diff --git a/src/biogeophys/PhotosynthesisMod.F90 b/src/biogeophys/PhotosynthesisMod.F90 index e407a3c8a9..7d2e91b207 100644 --- a/src/biogeophys/PhotosynthesisMod.F90 +++ b/src/biogeophys/PhotosynthesisMod.F90 @@ -1884,11 +1884,18 @@ subroutine Photosynthesis ( bounds, fn, filterp, & end if 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) + ! + ! 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 end if ! Use time period 1 hour before and 1 hour after local noon inclusive (11AM-1PM)