removing updating tsfco in gcycle when nsstr is on

SamuelTrahanNOAA · Feb 27, 2020 · 5936661 · 5936661
1 parent 02a0e7f
commit 5936661
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/physics/gcycle.F90 b/physics/gcycle.F90
@@ -198,12 +198,12 @@ SUBROUTINE GCYCLE (nblks, Model, Grid, Sfcprop, Cldprop)
           Sfcprop(nb)%slmsk  (ix) = SLIFCS  (len)
           if ( Model%nstf_name(1) > 0 ) then
              Sfcprop(nb)%tref(ix) = TSFFCS  (len)
-            if ( Model%nstf_name(2) == 0 ) then
-              dt_warm = (Sfcprop(nb)%xt(ix) + Sfcprop(nb)%xt(ix) ) &
-                      / Sfcprop(nb)%xz(ix) 
-              Sfcprop(nb)%tsfco(ix) = Sfcprop(nb)%tref(ix)         &
-                                    + dt_warm - Sfcprop(nb)%dt_cool(ix)
-            endif
+!           if ( Model%nstf_name(2) == 0 ) then
+!             dt_warm = (Sfcprop(nb)%xt(ix) + Sfcprop(nb)%xt(ix) ) &
+!                     / Sfcprop(nb)%xz(ix) 
+!             Sfcprop(nb)%tsfco(ix) = Sfcprop(nb)%tref(ix)         &
+!                                   + dt_warm - Sfcprop(nb)%dt_cool(ix)
+!           endif
           else
              Sfcprop(nb)%tsfc(ix)  = TSFFCS  (len)
              Sfcprop(nb)%tsfco(ix) = TSFFCS  (len)