source: LMDZ5/trunk/libf/dyn3d_common/comvert_mod.F90 @ 3301

Last change on this file since 3301 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
RevLine 
[524]1!
[1279]2! $Id: comvert_mod.F90 2602 2016-07-25 08:44:13Z fairhead $
[524]3!
[2600]4MODULE comvert_mod
[524]5
[2600]6IMPLICIT NONE 
[524]7
[2602]8PRIVATE
[2600]9INCLUDE "dimensions.h"
[524]10
[2602]11PUBLIC :: ap,bp,presnivs,dpres,sig,ds,pa,preff,nivsigs,nivsig, &
12          aps,bps,scaleheight,pseudoalt,disvert_type, pressure_exner
13
[2600]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(),
[1793]29                     ! preff and scaleheight
[1520]30
[2600]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
[1520]36
[2600]37LOGICAL pressure_exner
[1625]38!     compute pressure inside layers using Exner function, else use mean
39!     of pressure values at interfaces
40
[2600]41END MODULE comvert_mod
Note: See TracBrowser for help on using the repository browser.