fixing snod bug in atmos_model.F90 (#465)

NOAA-EMC · Jan 13, 2022 · 7362f7d · 7362f7d
1 parent 9038ef7
commit 7362f7d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/atmos_model.F90 b/atmos_model.F90
@@ -2423,7 +2423,7 @@ subroutine assign_importdata(jdat, rc)
             if (GFS_data(nb)%Sfcprop%fice(ix) >= GFS_control%min_seaice) then
 
               GFS_data(nb)%Coupling%hsnoin_cpl(ix) = min(hsmax, GFS_data(nb)%Coupling%hsnoin_cpl(ix) &
-                             / (GFS_data(nb)%Sfcprop%fice(ix)*GFS_data(nb)%Sfcprop%oceanfrac(ix)))
+                                                              / GFS_data(nb)%Sfcprop%fice(ix))
               GFS_data(nb)%Sfcprop%zorli(ix)       = z0ice
               tem = GFS_data(nb)%Sfcprop%tisfc(ix) * GFS_data(nb)%Sfcprop%tisfc(ix)
               tem = con_sbc * tem * tem