Changeset 10534 for NEMO/trunk/src/ICE/icethd.F90

Timestamp:

2019-01-16T17:49:45+01:00 (5 years ago)

Author:

clem

Message:

change some more names in the ice

File:

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

NEMO/trunk/src/ICE/icethd.F90

@@ -504 +504 @@
          CALL tab_1d_2d( npti, nptidx(1:npti), qns_ice_1d    (1:npti), qns_ice    (:,:,kl) )
          CALL tab_1d_2d( npti, nptidx(1:npti), qtr_ice_bot_1d(1:npti), qtr_ice_bot(:,:,kl) )
-         ! effective conductivity and 1st layer temperature (for Jules coupling)
+         ! effective conductivity and 1st layer temperature (ln_cndflx=T)
          CALL tab_1d_2d( npti, nptidx(1:npti), cnd_ice_1d(1:npti), cnd_ice(:,:,kl) )
          CALL tab_1d_2d( npti, nptidx(1:npti), t1_ice_1d (1:npti), t1_ice (:,:,kl) )