Merge pull request #53 from GEOS-ESM/hotfix/par_and_zenith

PARdffs bug fix
GEOS-ESM · Dec 10, 2019 · 63af837 · 63af837
2 parents 4f8f194 + 8e0cb9f
commit 63af837
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Components/GEOSldas_GridComp/GEOSlandpert_GridComp/GEOS_LandPertGridComp.F90 b/src/Components/GEOSldas_GridComp/GEOSlandpert_GridComp/GEOS_LandPertGridComp.F90
@@ -2010,7 +2010,7 @@ subroutine ApplyForcePert(gc, import, export, clock, rc)
                    mfPert(itile)%PARdrct = tmpRealArrDim1(1)
                    tmpRealArrDim1(1) = mfPert(itile)%PARdffs
                    call apply_pert(PertParam, [FORCEPERT(itile,ipert)], tmpRealArrDim1)
-                   mfPert(itile)%PARdrct = tmpRealArrDim1(1)
+                   mfPert(itile)%PARdffs = tmpRealArrDim1(1)         ! bug fix, rreichle+qliu, May 2019
                 end if
              end do
              call repair_forcing(land_nt_local, mfPert, fieldname='SWnet')