Changeset 12374 for NEMO/branches/UKMO/NEMO_4.0_add_pond_lids_prints/src/ICE/icethd_zdf_bl99.F90

Timestamp:

2020-02-12T13:58:18+01:00 (4 years ago)

Author:

dancopsey

Message:

Get skin temperature to be passed from the atmosphere

File:

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

NEMO/branches/UKMO/NEMO_4.0_add_pond_lids_prints/src/ICE/icethd_zdf_bl99.F90

@@ -930 +930 @@
          DO ji = 1, npti
             qcn_ice_top_1d(ji) = qcn_ice_1d(ji)
-            !
+         END DO
+         !
+      ENDIF
+      !     surface ice temperature
+      IF( k_cnd == np_cnd_ON .AND. ln_cndemulate ) THEN
+         !
+         DO ji = 1, npti
             t_su_1d(ji) = (  qcn_ice_top_1d(ji) &            ! calculate surface temperature
                &           +           isnow(ji)   * zkappa_s(ji,0) * zg1s * t_s_1d(ji,1) &