Changeset 14291

Timestamp:

2021-01-12T19:13:35+01:00 (3 years ago)

Author:

dancopsey

Message:

Merge in NEMO4.0.3 version of this branch from revision 13772 to 13773

File:

• NEMO/branches/UKMO/NEMO_4.0.4_isnow_comb_t1_ice/src/ICE/icethd_zdf_bl99.F90 (modified) (1 diff)

NEMO/branches/UKMO/NEMO_4.0.4_isnow_comb_t1_ice/src/ICE/icethd_zdf_bl99.F90

@@ -908 +908 @@
             cnd_ice_1d(ji) = 2._wp * ztcond_i(ji,0) / zhi_ssl ! cnd_ice is capped by: cond_i/zhi_ssl
          ENDIF
-         t1_ice_1d(ji) = isnow(ji) * t_s_1d(ji,1) + ( 1._wp - isnow(ji) ) * t_i_1d(ji,1)
+         t1_ice_1d(ji) = isnow_comb(ji) * t_s_1d(ji,1) + ( 1._wp - isnow_comb(ji) ) * t_i_1d(ji,1)
       END DO
       !