New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 8768 for branches/UKMO/dev_r8183_ICEMODEL_svn_removed/NEMOGCM/NEMO/LIM_SRC_3/icethd_zdf.F90 – NEMO

Ignore:
Timestamp:
2017-11-21T15:12:09+01:00 (5 years ago)
Author:
clem
Message:

add effective conductivity in LIM

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r8183_ICEMODEL_svn_removed/NEMOGCM/NEMO/LIM_SRC_3/icethd_zdf.F90

    r8752 r8768  
    388388            END DO 
    389389         END DO 
    390           
     390 
    391391         ! 
    392392         !----------------------------------------! 
     
    909909      ! 11) Jules coupling: reset inner snow and ice temperatures, update conduction fluxes 
    910910      !--------------------------------------------------------------------------------------- 
     911      ! effective conductivity (10cm treshold to avoid cnd_ice to be too big) 
     912      DO ji = 1, npti 
     913         IF( zh_s(ji) >= 0.1_wp ) THEN   ;   cnd_ice_1d(ji) = zkappa_s(ji,0) * 2._wp 
     914         ELSE                            ;   cnd_ice_1d(ji) = zkappa_i(ji,0) * 2._wp 
     915         ENDIF 
     916      END DO 
    911917      ! 
    912918      IF ( k_jules == np_zdf_jules_SND ) THEN   ! --- Jules coupling in "SND" mode 
Note: See TracChangeset for help on using the changeset viewer.