Fix ESCOMP#1462 so that GSSHA and GSSUN are actually set for history …

…files with values not just identical to missing value
ekluzek · Sep 20, 2021 · c3aea99 · c3aea99
1 parent 3dcbc74
commit c3aea99
Showing 1 changed file with 5 additions and 9 deletions.
diff --git a/src/biogeophys/PhotosynthesisMod.F90 b/src/biogeophys/PhotosynthesisMod.F90
@@ -1898,17 +1898,13 @@ subroutine Photosynthesis ( bounds, fn, filterp, &
                end if
 
                !
-               ! Turn this off right now as it causes an apparant change in
-               ! answers (See ESCOMP/#CTSM/1446) for history variables 
                ! This sets the  variables GSSUN and GSSHA
                !
-               if ( .false. )then
-                   ! Write stomatal conductance to the appropriate phase
-                   if (phase=='sun') then
-                      gs_mol_sun(p,iv) = gs_mol(p,iv)
-                   else if (phase=='sha') then
-                      gs_mol_sha(p,iv) = gs_mol(p,iv)
-                   end if
+               ! Write stomatal conductance to the appropriate phase
+               if (phase=='sun') then
+                  gs_mol_sun(p,iv) = gs_mol(p,iv)
+               else if (phase=='sha') then
+                  gs_mol_sha(p,iv) = gs_mol(p,iv)
                end if
 
                ! Use time period 1 hour before and 1 hour after local noon inclusive (11AM-1PM)