- Timestamp:
- 2017-11-21T17:28:51+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r8183_ICEMODEL_svn_removed/NEMOGCM/NEMO/LIM_SRC_3/icestp.F90
r8768 r8771 260 260 CALL ice_dia_init ! initialization for diags 261 261 ! 262 fr_i (:,:) = at_i(:,:) ! initialisation of sea-ice fraction 263 tn_ice(:,:,:) = t_su(:,:,:) ! initialisation of surface temp for coupled simu 262 fr_i (:,:) = at_i(:,:) ! initialisation of sea-ice fraction 263 tn_ice (:,:,:) = t_su(:,:,:) ! initialisation of surface temp for coupled simu 264 t1_ice (:,:,:) = t_i (:,:,1,:) ! initialisation of 1st layer temp for coupled simu 265 cnd_ice(:,:,:) = 0._wp ! initialisation of the effective conductivity at the top of ice/snow (Jules coupling) 264 266 ! 265 267 ! ! set max concentration in both hemispheres
Note: See TracChangeset
for help on using the changeset viewer.