source: LMDZ5/trunk/libf/dyn3d/comvert.h @ 1729

Last change on this file since 1729 was 1654, checked in by aslmd, 12 years ago
  • Changements dans calfis pour appeler la physique generique planetaire NB: dans le futur il faudrait un appel commun mais actuellement differences dans les arguments...
  • Changements dans dynetat0 pour s'accommoder des tableaux "controle" terrestre et planeto
  • Passage de la variable pseudoalt dans comvert.h (compatibilite planeto)
  • arch : ajout des fichiers pour faire fonctionner sur ciclad avec ifort

verifie : compatibilite bit-par-bit des resultats et initialisations, ainsi que 1+1=2 avec unpun.sh

  • Changes in calfis so that generic physics for planets could be interfaced NB: ideally a common call should be implemented but for now there are differences in arguments...
  • Changes in dynetat0 to cope with difference in "controle" between earth and planeto
  • Transfer of variable pseudoalt into comvert.h (this is only used by planeto and done for compatibility)
  • arch: added files to allow use of ifort compiler on ciclad cluster

checked : bit-by-bit compatibility of results and starts, as well as 1+1=2 with unpun.sh

Author : AS equipe planeto
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 1.5 KB
Line 
1!
2! $Id: comvert.h 1654 2012-09-24 15:07:18Z emillour $
3!
4!-----------------------------------------------------------------------
5!   INCLUDE 'comvert.h'
6
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)
10
11      common/comverti/disvert_type, pressure_exner
12
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)
25      real pseudoalt ! for planets
26
27      integer disvert_type ! type of vertical discretization:
28                           ! 1: Earth (default for planet_type==earth),
29                           !     automatic generation
30                           ! 2: Planets (default for planet_type!=earth),
31                           !     using 'z2sig.def' (or 'esasig.def) file
32
33      logical pressure_exner
34!     compute pressure inside layers using Exner function, else use mean
35!     of pressure values at interfaces
36
37 !-----------------------------------------------------------------------
Note: See TracBrowser for help on using the repository browser.