source: LMDZ5/trunk/libf/dyn3dmem/comvert.h @ 1950

Last change on this file since 1950 was 1907, checked in by lguez, 11 years ago

Added a copyright property to every file of the distribution, except
for the fcm files (which have their own copyright). Use svn propget on
a file to see the copyright. For instance:

$ svn propget copyright libf/phylmd/physiq.F90
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

Also added the files defining the CeCILL version 2 license, in French
and English, at the top of the LMDZ tree.
  • 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
File size: 1.7 KB
RevLine 
[1632]1!
[1793]2! $Id: comvert.h 1654 2012-09-24 15:07:18Z aslmd $
[1632]3!
4!-----------------------------------------------------------------------
5!   INCLUDE 'comvert.h'
6
[1673]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)
[1632]10
[1673]11      common/comverti/disvert_type, pressure_exner
[1632]12
[1673]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)
[1793]25      real pseudoalt ! pseudo-altitude of model levels (km), based on presnivs(),
26                     ! preff and scaleheight
[1632]27
28      integer disvert_type ! type of vertical discretization:
29                           ! 1: Earth (default for planet_type==earth),
30                           !     automatic generation
31                           ! 2: Planets (default for planet_type!=earth),
32                           !     using 'z2sig.def' (or 'esasig.def) file
[1673]33
34      logical pressure_exner
35!     compute pressure inside layers using Exner function, else use mean
36!     of pressure values at interfaces
37
38 !-----------------------------------------------------------------------
Note: See TracBrowser for help on using the repository browser.