Changeset 1930


Ignore:
Timestamp:
2010-06-15T09:55:52+02:00 (10 years ago)
Author:
smasson
Message:

supress rauw and change rau0 to 1035 in OFF_SRC, see ticket:606

Location:
trunk/NEMO
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OFF_SRC/DOM/phycst.F90

    r1746 r1930  
    3737      rtt      = 273.16_wp  ,  &  !: triple point of temperature (Kelvin) 
    3838      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) 
    4140      rcp      =    4.e+3_wp,  &  !: ocean specific heat 
    4241      ro0cpr                      !: = 1. / ( rau0 * rcp ) 
     
    127126      ro0cpr = 1. / ( rau0 * rcp ) 
    128127      IF(lwp) WRITE(numout,*) 
    129       IF(lwp) WRITE(numout,*) '          volumic mass of pure water         rauw   = ', rauw, ' kg/m^3' 
    130128      IF(lwp) WRITE(numout,*) '          volumic mass of reference          rau0   = ', rau0, ' kg/m^3' 
    131129      IF(lwp) WRITE(numout,*) '          ocean specific heat                rcp    = ', rcp 
  • trunk/NEMO/OPA_SRC/DOM/phycst.F90

    r1860 r1930  
    4949#endif 
    5050      rau0     = 1035._wp   ,  &  !: volumic mass of reference (kg/m3) 
    51       rauw     = 1000._wp   ,  &  !: volumic mass of pure water (kg/m3) 
    5251      rcp      =    4.e+3_wp,  &  !: ocean specific heat 
    5352      ro0cpr                      !: = 1. / ( rau0 * rcp ) 
     
    154153      ro0cpr = 1. / ( rau0 * rcp ) 
    155154      IF(lwp) WRITE(numout,*) 
    156       IF(lwp) WRITE(numout,*) '          volumic mass of pure water         rauw   = ', rauw, ' kg/m^3' 
    157155      IF(lwp) WRITE(numout,*) '          volumic mass of reference          rau0   = ', rau0, ' kg/m^3' 
    158156      IF(lwp) WRITE(numout,*) '          ocean specific heat                rcp    = ', rcp 
Note: See TracChangeset for help on using the changeset viewer.