- Timestamp:
- 2012-10-17T13:40:14+02:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_r3385_NOCS04_HAMF/NEMOGCM/NEMO/OPA_SRC/DOM/phycst.F90
r3396 r3508 187 187 WRITE(numout,*) ' fresh ice specific heat = ', cpic , ' J/kg/K' 188 188 WRITE(numout,*) ' latent heat of fusion of fresh ice / snow = ', lfus , ' J/kg' 189 #if defined key_lim3 189 #if defined key_lim3 || defined key_cice 190 190 WRITE(numout,*) ' latent heat of subl. of fresh ice / snow = ', lsub , ' J/kg' 191 191 #else
Note: See TracChangeset
for help on using the changeset viewer.