Changeset 8768 for branches/UKMO/dev_r8183_ICEMODEL_svn_removed/NEMOGCM/NEMO/LIM_SRC_3/icethd_zdf.F90

Timestamp:

2017-11-21T15:12:09+01:00 (6 years ago)

Author:

clem

Message:

add effective conductivity in LIM

File:

• branches/UKMO/dev_r8183_ICEMODEL_svn_removed/NEMOGCM/NEMO/LIM_SRC_3/icethd_zdf.F90 (modified) (2 diffs)

branches/UKMO/dev_r8183_ICEMODEL_svn_removed/NEMOGCM/NEMO/LIM_SRC_3/icethd_zdf.F90

@@ -388 +388 @@
             END DO
          END DO
-         
+
          !
          !----------------------------------------!
@@ -909 +909 @@
       ! 11) Jules coupling: reset inner snow and ice temperatures, update conduction fluxes
       !---------------------------------------------------------------------------------------
+      ! effective conductivity (10cm treshold to avoid cnd_ice to be too big)
+      DO ji = 1, npti
+         IF( zh_s(ji) >= 0.1_wp ) THEN   ;   cnd_ice_1d(ji) = zkappa_s(ji,0) * 2._wp
+         ELSE                            ;   cnd_ice_1d(ji) = zkappa_i(ji,0) * 2._wp
+         ENDIF
+      END DO
       !
       IF ( k_jules == np_zdf_jules_SND ) THEN   ! --- Jules coupling in "SND" mode