Changeset 5123 for trunk/NEMOGCM/NEMO/OPA_SRC/DOM/phycst.F90
- Timestamp:
- 2015-03-04T17:06:03+01:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/DOM/phycst.F90
r4990 r5123 41 41 REAL(wp), PUBLIC :: rt0 = 273.15_wp !: freezing point of fresh water [Kelvin] 42 42 #if defined key_lim3 43 REAL(wp), PUBLIC :: rt0_snow = 273.1 6_wp !: melting point of snow [Kelvin]44 REAL(wp), PUBLIC :: rt0_ice = 273.1 6_wp !: melting point of ice [Kelvin]43 REAL(wp), PUBLIC :: rt0_snow = 273.15_wp !: melting point of snow [Kelvin] 44 REAL(wp), PUBLIC :: rt0_ice = 273.15_wp !: melting point of ice [Kelvin] 45 45 #else 46 46 REAL(wp), PUBLIC :: rt0_snow = 273.15_wp !: melting point of snow [Kelvin] … … 82 82 REAL(wp), PUBLIC :: xlic = 300.33e+6_wp !: volumetric latent heat fusion of ice [J/m3] 83 83 REAL(wp), PUBLIC :: xsn = 2.8e+6_wp !: volumetric latent heat of sublimation of snow [J/m3] 84 #endif 85 #if defined key_lim3 86 REAL(wp), PUBLIC :: r1_rhoic !: 1 / rhoic 87 REAL(wp), PUBLIC :: r1_rhosn !: 1 / rhosn 84 88 #endif 85 89 !!---------------------------------------------------------------------- … … 166 170 lfus = xlsn / rhosn ! latent heat of fusion of fresh ice 167 171 #endif 168 172 #if defined key_lim3 173 r1_rhoic = 1._wp / rhoic 174 r1_rhosn = 1._wp / rhosn 175 #endif 169 176 IF(lwp) THEN 170 177 WRITE(numout,*)
Note: See TracChangeset
for help on using the changeset viewer.