New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 2141 for branches/dev_1784_PATM/NEMO/OPA_SRC/DOM/phycst.F90 – NEMO

Ignore:
Timestamp:
2010-09-30T15:22:26+02:00 (14 years ago)
Author:
cbricaud
Message:

add module to read atmospheric pressure and module to compute surface pressure gradient

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/dev_1784_PATM/NEMO/OPA_SRC/DOM/phycst.F90

    r1739 r2141  
    5252      rauw     = 1000._wp   ,  &  !: volumic mass of pure water (kg/m3) 
    5353      rcp      =    4.e+3_wp,  &  !: ocean specific heat 
    54       ro0cpr                      !: = 1. / ( rau0 * rcp ) 
     54      ro0cpr                ,  &  !: = 1. / ( rau0 * rcp ) 
     55      rpref    = 101000._wp       !: reference pressure for sea surface 
    5556 
    5657   REAL(wp), PUBLIC ::            &  !: 
Note: See TracChangeset for help on using the changeset viewer.