- Timestamp:
- 2010-10-15T13:04:18+02:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/DOM/phycst.F90
r2044 r2277 48 48 #endif 49 49 50 REAL(wp), PUBLIC :: rau0 = 10 20._wp !: reference volumic mass (density) (kg/m3)50 REAL(wp), PUBLIC :: rau0 = 1035._wp !: reference volumic mass (density) (kg/m3) 51 51 REAL(wp), PUBLIC :: rau0r !: reference specific volume (m3/kg) 52 52 REAL(wp), PUBLIC :: rcp = 4.e+3_wp !: ocean specific heat
Note: See TracChangeset
for help on using the changeset viewer.