Changeset 1930 for trunk/NEMO
- Timestamp:
- 2010-06-15T09:55:52+02:00 (14 years ago)
- Location:
- trunk/NEMO
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OFF_SRC/DOM/phycst.F90
r1746 r1930 37 37 rtt = 273.16_wp , & !: triple point of temperature (Kelvin) 38 38 rt0 = 273.15_wp , & !: freezing point of water (Kelvin) 39 rau0 = 1020._wp , & !: volumic mass of reference (kg/m3) 40 rauw = 1000._wp , & !: density of pure water (kg/m3) 39 rau0 = 1035._wp , & !: volumic mass of reference (kg/m3) 41 40 rcp = 4.e+3_wp, & !: ocean specific heat 42 41 ro0cpr !: = 1. / ( rau0 * rcp ) … … 127 126 ro0cpr = 1. / ( rau0 * rcp ) 128 127 IF(lwp) WRITE(numout,*) 129 IF(lwp) WRITE(numout,*) ' volumic mass of pure water rauw = ', rauw, ' kg/m^3'130 128 IF(lwp) WRITE(numout,*) ' volumic mass of reference rau0 = ', rau0, ' kg/m^3' 131 129 IF(lwp) WRITE(numout,*) ' ocean specific heat rcp = ', rcp -
trunk/NEMO/OPA_SRC/DOM/phycst.F90
r1860 r1930 49 49 #endif 50 50 rau0 = 1035._wp , & !: volumic mass of reference (kg/m3) 51 rauw = 1000._wp , & !: volumic mass of pure water (kg/m3)52 51 rcp = 4.e+3_wp, & !: ocean specific heat 53 52 ro0cpr !: = 1. / ( rau0 * rcp ) … … 154 153 ro0cpr = 1. / ( rau0 * rcp ) 155 154 IF(lwp) WRITE(numout,*) 156 IF(lwp) WRITE(numout,*) ' volumic mass of pure water rauw = ', rauw, ' kg/m^3'157 155 IF(lwp) WRITE(numout,*) ' volumic mass of reference rau0 = ', rau0, ' kg/m^3' 158 156 IF(lwp) WRITE(numout,*) ' ocean specific heat rcp = ', rcp
Note: See TracChangeset
for help on using the changeset viewer.