source: LMDZ6/trunk/libf/dyn3d_common/comvert_mod.F90 @ 4643

Last change on this file since 4643 was 4228, checked in by Laurent Fairhead, 2 years ago

Modifications to code to introduce a new vertical axis on llm+1 levels so that fluxes can
be output on their proper levels as per the CMIP6 DataRequest??
Actually is r3853 from the IPSL-CM6A-MR branch
LF

  • 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 4228 2022-07-26 13:36:45Z fairhead $
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          presinter
14
15REAL ap(llm+1) ! hybrid pressure contribution at interlayers
16REAL bp (llm+1) ! hybrid sigma contribution at interlayer
17REAL presnivs(llm) ! (reference) pressure at mid-layers
18REAL presinter(llm+1) ! (reference) pressure at interlayers
19REAL dpres(llm)
20REAL sig(llm+1)
21REAL ds(llm)
22REAL pa ! reference pressure (Pa) at which hybrid coordinates
23        ! become purely pressure (more or less)
24REAL preff  ! reference surface pressure (Pa)
25REAL nivsigs(llm)
26REAL nivsig(llm+1)
27REAL aps(llm) ! hybrid pressure contribution at mid-layers
28REAL bps(llm) ! hybrid sigma contribution at mid-layers
29REAL scaleheight ! atmospheric (reference) scale height (km)
30REAL pseudoalt(llm) ! pseudo-altitude of model levels (km), based on presnivs(),
31                     ! preff and scaleheight
32
33INTEGER disvert_type ! type of vertical discretization:
34                     ! 1: Earth (default for planet_type==earth),
35                     !     automatic generation
36                     ! 2: Planets (default for planet_type!=earth),
37                     !     using 'z2sig.def' (or 'esasig.def) file
38
39LOGICAL pressure_exner
40!     compute pressure inside layers using Exner function, else use mean
41!     of pressure values at interfaces
42
43END MODULE comvert_mod
Note: See TracBrowser for help on using the repository browser.