Changeset 8782 for branches/UKMO/dev_r8183_ICEMODEL_svn_removed/NEMOGCM/NEMO/LIM_SRC_3/iceistate.F90
- Timestamp:
- 2017-11-22T11:41:37+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r8183_ICEMODEL_svn_removed/NEMOGCM/NEMO/LIM_SRC_3/iceistate.F90
r8752 r8782 357 357 358 358 tn_ice (:,:,:) = t_su (:,:,:) 359 t1_ice (:,:,:) = t_i (:,:,1,:) ! initialisation of 1st layer temp for coupled simu 360 cnd_ice(:,:,:) = 0._wp ! initialisation of the effective conductivity at the top of ice/snow (Jules coupling) 359 361 360 362 ! Melt pond volume and fraction … … 391 393 END DO 392 394 395 tn_ice (:,:,:) = t_i (:,:,1,:) 396 t1_ice (:,:,:) = t_i (:,:,1,:) ! initialisation of 1st layer temp for coupled simu 397 cnd_ice(:,:,:) = 0._wp ! initialisation of the effective conductivity at the top of ice/snow (Jules coupling) 398 393 399 a_ip(:,:,:) = 0._wp 394 400 v_ip(:,:,:) = 0._wp
Note: See TracChangeset
for help on using the changeset viewer.