Changeset 15661 for NEMO/branches/UKMO/NEMO_4.0.4_GO8_paquage_branch/src/ICE

Timestamp:

2022-01-19T19:42:26+01:00 (2 years ago)

Author:

jpalmier

Message:

4th and 5th merge : GC couple and isnow comb

File:

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

NEMO/branches/UKMO/NEMO_4.0.4_GO8_paquage_branch/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
       !