Changeset 9767 for NEMO/trunk/src/ICE/icethd_dh.F90

Timestamp:

2018-06-08T12:11:32+02:00 (6 years ago)

Author:

clem

Message:

remove cp_ice_msh option in NEMO because the ice model is in C-grid and not anymore in B-grid (LIM2 type)

File:

• NEMO/trunk/src/ICE/icethd_dh.F90 (modified) (1 diff)

NEMO/trunk/src/ICE/icethd_dh.F90

@@ -146 +146 @@
          DO ji = 1, npti
             zdum           = qns_ice_1d(ji) + qsr_ice_1d(ji) - qsr_ice_tr_1d(ji) - fc_su(ji) 
-            zdum           = zdum * MAX( 0._wp , SIGN( 1._wp, t_su_1d(ji) - rt0 ) )
-            zq_su(ji)      = MAX( 0._wp, zdum * rdt_ice )
+            qml_ice_1d(ji) = zdum * MAX( 0._wp , SIGN( 1._wp, t_su_1d(ji) - rt0 ) )
+            zq_su(ji)      = MAX( 0._wp, qml_ice_1d(ji) * rdt_ice )
          END DO
          !