- Timestamp:
- 2018-03-28T18:42:49+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/LIM_SRC_3/iceistate.F90
r9416 r9448 114 114 DO jl = 1, jpl 115 115 t_su (:,:,jl) = rt0 * tmask(:,:,1) ! temp at the surface 116 t_si (:,:,jl) = rt0 * tmask(:,:,1) ! temp at the ice-snow interface117 116 cnd_ice(:,:,jl) = 0._wp ! initialisation of the effective conductivity at the top of ice/snow (Jules coupling) 118 117 END DO
Note: See TracChangeset
for help on using the changeset viewer.