Changeset 8782 for branches/UKMO/dev_r8183_ICEMODEL_svn_removed/NEMOGCM
- Timestamp:
- 2017-11-22T11:41:37+01:00 (7 years ago)
- Location:
- branches/UKMO/dev_r8183_ICEMODEL_svn_removed/NEMOGCM/NEMO/LIM_SRC_3
- Files:
-
- 2 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 -
branches/UKMO/dev_r8183_ICEMODEL_svn_removed/NEMOGCM/NEMO/LIM_SRC_3/icestp.F90
r8771 r8782 262 262 fr_i (:,:) = at_i(:,:) ! initialisation of sea-ice fraction 263 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 simu265 cnd_ice(:,:,:) = 0._wp ! initialisation of the effective conductivity at the top of ice/snow (Jules coupling)266 264 ! 267 265 ! ! set max concentration in both hemispheres … … 415 413 416 414 tau_icebfr(:,:) = 0._wp; ! landfast ice param only (clem: important to keep the init here) 417 cnd_ice(:,:,:) = 0._wp ! effective conductivity at the top of ice/snow (Jules coupling)415 cnd_ice(:,:,:) = 0._wp ! initialisation of the effective conductivity at the top of ice/snow (Jules coupling) 418 416 419 417 END SUBROUTINE diag_set0
Note: See TracChangeset
for help on using the changeset viewer.