Changeset 6359 for branches/UKMO/dev_r5518_coupling_GSI7_GSI8_landice_bc/NEMOGCM/NEMO/OPA_SRC/DOM/phycst.F90
- Timestamp:
- 2016-03-07T12:56:55+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_coupling_GSI7_GSI8_landice_bc/NEMOGCM/NEMO/OPA_SRC/DOM/phycst.F90
- Property svn:keywords deleted
r6358 r6359 68 68 REAL(wp), PUBLIC :: rcdsn = 0.31_wp !: thermal conductivity of snow 69 69 REAL(wp), PUBLIC :: cpic = 2067.0_wp !: specific heat for ice 70 #if defined key_cice 71 REAL(wp), PUBLIC :: lsub = 2.835e+6_wp !: pure ice latent heat of sublimation [J/kg] 72 #else 70 73 REAL(wp), PUBLIC :: lsub = 2.834e+6_wp !: pure ice latent heat of sublimation [J/kg] 74 #endif 71 75 REAL(wp), PUBLIC :: lfus = 0.334e+6_wp !: latent heat of fusion of fresh ice [J/kg] 72 76 REAL(wp), PUBLIC :: tmut = 0.054_wp !: decrease of seawater meltpoint with salinity … … 90 94 !!---------------------------------------------------------------------- 91 95 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 92 !! $Id$ 96 !! $Id$ 93 97 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 94 98 !!----------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.