- Timestamp:
- 2011-09-28T12:19:59+02:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_r2802_UKMO8_cice/NEMOGCM/NEMO/OPA_SRC/DOM/phycst.F90
r2528 r2874 48 48 #endif 49 49 50 #if defined key_cice 51 REAL(wp), PUBLIC :: rau0 = 1026._wp !: reference volumic mass (density) (kg/m3) 52 #else 50 53 REAL(wp), PUBLIC :: rau0 = 1035._wp !: reference volumic mass (density) (kg/m3) 54 #endif 51 55 REAL(wp), PUBLIC :: rau0r !: reference specific volume (m3/kg) 52 56 REAL(wp), PUBLIC :: rcp = 4.e+3_wp !: ocean specific heat 53 57 REAL(wp), PUBLIC :: ro0cpr !: = 1. / ( rau0 * rcp ) 54 58 55 #if defined key_lim3 59 #if defined key_lim3 || defined key_cice 56 60 REAL(wp), PUBLIC :: rcdsn = 0.31_wp !: thermal conductivity of snow 57 61 REAL(wp), PUBLIC :: rcdic = 2.034396_wp !: thermal conductivity of fresh ice … … 100 104 rsiyea = 365.25 * rday * 2. * rpi / 6.283076 101 105 rsiday = rday / ( 1. + rday / rsiyea ) 106 #if defined key_cice 107 omega = 7.292116e-05 108 #else 102 109 omega = 2. * rpi / rsiday 110 #endif 103 111 104 112 rau0r = 1. / rau0
Note: See TracChangeset
for help on using the changeset viewer.