- Timestamp:
- 2018-07-11T10:24:17+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r9838_ENHANCE04_MLF/src/OCE/DOM/phycst.F90
r9656 r9923 46 46 REAL(wp), PUBLIC :: rt0_ice = 273.05_wp !: melting point of ice [Kelvin] 47 47 #endif 48 REAL(wp), PUBLIC :: r au0 !: volumic mass of reference [kg/m3]49 REAL(wp), PUBLIC :: r1_r au0 !: = 1. / rau0 [m3/kg]48 REAL(wp), PUBLIC :: rho0 !: volumic mass of reference [kg/m3] 49 REAL(wp), PUBLIC :: r1_rho0 !: = 1. / rho0 [m3/kg] 50 50 REAL(wp), PUBLIC :: rcp !: ocean specific heat [J/Kelvin] 51 51 REAL(wp), PUBLIC :: r1_rcp !: = 1. / rcp [Kelvin/J] 52 REAL(wp), PUBLIC :: r au0_rcp !: = rau0 * rcp53 REAL(wp), PUBLIC :: r1_r au0_rcp !: = 1. / ( rau0 * rcp )52 REAL(wp), PUBLIC :: rho0_rcp !: = rho0 * rcp 53 REAL(wp), PUBLIC :: r1_rho0_rcp !: = 1. / ( rho0 * rcp ) 54 54 55 55 REAL(wp), PUBLIC :: rhosn = 330._wp !: volumic mass of snow [kg/m3]
Note: See TracChangeset
for help on using the changeset viewer.