source: LMDZ5/branches/LMDZ5-DOFOCO/libf/dyn3dmem/comvert.h @ 5440

Last change on this file since 5440 was 1673, checked in by Laurent Fairhead, 12 years ago

Fin du phasage de la dynamique parallele localisee (petite memoire) avec le tronc LMDZ5 r1671
Il reste quelques routines a verifier (en particulier ce qui touche a l'etude des cas academiques)
et la validation a effectuer

End of the phasing of the localised (low memory) parallel dynamics package with the
LMDZ5 trunk (r1671)
Some routines still need some checking (in particular the academic cases) and some
validation is still required
File size: 1.5 KB
Line 
1!
2! $Id$
3!
4!-----------------------------------------------------------------------
5!   INCLUDE 'comvert.h'
6
7      COMMON/comvertr/ap(llm+1),bp(llm+1),presnivs(llm),dpres(llm),     &
8     &               pa,preff,nivsigs(llm),nivsig(llm+1),               &
9     &               aps(llm),bps(llm),scaleheight,pseudoalt(llm)
10
11      common/comverti/disvert_type, pressure_exner
12
13      real ap     ! hybrid pressure contribution at interlayers
14      real bp     ! hybrid sigma contribution at interlayer
15      real presnivs ! (reference) pressure at mid-layers
16      real dpres
17      real pa     ! reference pressure (Pa) at which hybrid coordinates
18                  ! become purely pressure
19      real preff  ! reference surface pressure (Pa)
20      real nivsigs
21      real nivsig
22      real aps    ! hybrid pressure contribution at mid-layers
23      real bps    ! hybrid sigma contribution at mid-layers
24      real scaleheight ! atmospheric (reference) scale height (km)
25      real pseudoalt ! for planets
26
27      integer disvert_type ! type of vertical discretization:
28                           ! 1: Earth (default for planet_type==earth),
29                           !     automatic generation
30                           ! 2: Planets (default for planet_type!=earth),
31                           !     using 'z2sig.def' (or 'esasig.def) file
32
33      logical pressure_exner
34!     compute pressure inside layers using Exner function, else use mean
35!     of pressure values at interfaces
36
37 !-----------------------------------------------------------------------
Note: See TracBrowser for help on using the repository browser.