Changeset 10534 for NEMO/trunk/src/ICE/iceistate.F90
- Timestamp:
- 2019-01-16T17:49:45+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/ICE/iceistate.F90
r10527 r10534 112 112 DO jl = 1, jpl 113 113 t_su (:,:,jl) = rt0 * tmask(:,:,1) ! temp at the surface 114 cnd_ice(:,:,jl) = 0._wp ! initialisation of the effective conductivity at the top of ice/snow ( Jules coupling)114 cnd_ice(:,:,jl) = 0._wp ! initialisation of the effective conductivity at the top of ice/snow (ln_cndflx=T) 115 115 END DO 116 116 !
Note: See TracChangeset
for help on using the changeset viewer.