fixing a typo in gcycle.F90

NCAR · Feb 26, 2020 · 02a0e7f · 02a0e7f
1 parent 21190a8
commit 02a0e7f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/physics/gcycle.F90 b/physics/gcycle.F90
@@ -198,7 +198,7 @@ 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
+            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)         &