Changeset 3078 for branches/2011/dev_UKM0_2011/NEMOGCM/NEMO/OPA_SRC/DOM
- Timestamp:
- 2011-11-10T18:29:56+01:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_UKM0_2011/NEMOGCM/NEMO/OPA_SRC/DOM/phycst.F90
r3066 r3078 164 164 WRITE(numout,*) ' latent heat of fusion of fresh ice / snow = ', lfus , ' J/kg' 165 165 WRITE(numout,*) ' latent heat of subl. of fresh ice / snow = ', lsub , ' J/kg' 166 #elif defined key_cice 167 WRITE(numout,*) ' latent heat of fusion of fresh ice / snow = ', lfus , ' J/kg' 166 168 #else 167 169 WRITE(numout,*) ' density times specific heat for snow = ', rcpsn , ' J/m^3/K'
Note: See TracChangeset
for help on using the changeset viewer.