doxy/html/em_2comvert_8h_source.html

!

! $Id$

!

!-----------------------------------------------------------------------

!   INCLUDE 'comvert.h'


      COMMON/comvertr/ap(llm+1),bp(llm+1),presnivs(llm),dpres(llm),     &

     &               pa,preff,nivsigs(llm),nivsig(llm+1),               &

     &               aps(llm),bps(llm),scaleheight,pseudoalt(llm)


      common/comverti/disvert_type, pressure_exner


      real ap     ! hybrid pressure contribution at interlayers

      real bp     ! hybrid sigma contribution at interlayer

      real presnivs ! (reference) pressure at mid-layers

      real dpres

      real pa     ! reference pressure (Pa) at which hybrid coordinates

                  ! become purely pressure

      real preff  ! reference surface pressure (Pa)

      real nivsigs

      real nivsig

      real aps    ! hybrid pressure contribution at mid-layers

      real bps    ! hybrid sigma contribution at mid-layers

      real scaleheight ! atmospheric (reference) scale height (km)

      real pseudoalt ! for planets


      integer disvert_type ! type of vertical discretization:

                           ! 1: Earth (default for planet_type==earth),

                           !     automatic generation

                           ! 2: Planets (default for planet_type!=earth),

                           !     using 'z2sig.def' (or 'esasig.def) file


      logical pressure_exner

!     compute pressure inside layers using Exner function, else use mean

!     of pressure values at interfaces


 !-----------------------------------------------------------------------