- Timestamp:
- 2017-11-21T15:12:09+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
r8752 r8768 413 413 414 414 tau_icebfr(:,:) = 0._wp; ! landfast ice param only (clem: important to keep the init here) 415 cnd_ice(:,:,:) = 0._wp ! effective conductivity at the top of ice/snow (Jules coupling) 415 416 416 417 END SUBROUTINE diag_set0
Note: See TracChangeset
for help on using the changeset viewer.