source: LMDZ5/branches/IPSLCM6.0.11pre/libf/dyn3d_common/comvert_mod.F90 @ 5049

Last change on this file since 5049 was 2602, checked in by Ehouarn Millour, 8 years ago

Missing usage of comvert_mod in lmdzd1d since the creation of the former (r2600).
EM+MPL

  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 1.4 KB
Line 
1!
2! $Id: comvert_mod.F90 2602 2016-07-25 08:44:13Z abarral $
3!
4MODULE comvert_mod
5
6IMPLICIT NONE 
7
8PRIVATE
9INCLUDE "dimensions.h"
10
11PUBLIC :: ap,bp,presnivs,dpres,sig,ds,pa,preff,nivsigs,nivsig, &
12          aps,bps,scaleheight,pseudoalt,disvert_type, pressure_exner
13
14REAL ap(llm+1) ! hybrid pressure contribution at interlayers
15REAL bp (llm+1) ! hybrid sigma contribution at interlayer
16REAL presnivs(llm) ! (reference) pressure at mid-layers
17REAL dpres(llm)
18REAL sig(llm+1)
19REAL ds(llm)
20REAL pa ! reference pressure (Pa) at which hybrid coordinates
21        ! become purely pressure (more or less)
22REAL preff  ! reference surface pressure (Pa)
23REAL nivsigs(llm)
24REAL nivsig(llm+1)
25REAL aps(llm) ! hybrid pressure contribution at mid-layers
26REAL bps(llm) ! hybrid sigma contribution at mid-layers
27REAL scaleheight ! atmospheric (reference) scale height (km)
28REAL pseudoalt(llm) ! pseudo-altitude of model levels (km), based on presnivs(),
29                     ! preff and scaleheight
30
31INTEGER disvert_type ! type of vertical discretization:
32                     ! 1: Earth (default for planet_type==earth),
33                     !     automatic generation
34                     ! 2: Planets (default for planet_type!=earth),
35                     !     using 'z2sig.def' (or 'esasig.def) file
36
37LOGICAL pressure_exner
38!     compute pressure inside layers using Exner function, else use mean
39!     of pressure values at interfaces
40
41END MODULE comvert_mod
Note: See TracBrowser for help on using the repository browser.