source: LMDZ5/trunk/libf/dyn3dpar/logic.h @ 1839

Last change on this file since 1839 was 1520, checked in by Ehouarn Millour, 14 years ago

Implementation of a different vertical discretization (from/for planets, but
can in principle also be used for Earth).
Choice of vertical discretization is set by flag 'disvert_type';
'disvert_type=1' is Earth standard (default; ie set to 1 if
planet_type=="earth") case.
With 'disvert_type=2', approximate altitude of layers and reference atmospheric
scale height must be given using an input file ("z2sig.def", first line
should give scale height, in km, following lines must specify the altitude,
in km above surface, of mid-layers, one per line; see disvert_noterre.F).

Checked that these changes do not impact on 'bench' results, on Vargas.

EM.
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 1.1 KB
RevLine 
[630]1!
[1319]2! $Id: logic.h 1520 2011-05-23 11:37:09Z fairhead $
[630]3!
[1000]4!
[1520]5! NB: keep items of different kinds in seperate common blocs to avoid
6!     "misaligned commons" issues
[1000]7!-----------------------------------------------------------------------
8! INCLUDE 'logic.h'
[630]9
[1520]10      COMMON/logicl/ purmats,forward,leapf,apphys,                      &
[1000]11     &  statcl,conser,apdiss,apdelq,saison,ecripar,fxyhypb,ysinus       &
[1319]12     &  ,read_start,ok_guide,ok_strato,ok_gradsfile                     &
[1520]13     &  ,ok_limit,ok_etat0,grilles_gcm_netcdf,hybrid
[630]14
[1520]15      COMMON/logici/ iflag_phys,iflag_trac
16     
[1000]17      LOGICAL purmats,forward,leapf,apphys,statcl,conser,               &
18     & apdiss,apdelq,saison,ecripar,fxyhypb,ysinus                      &
[1319]19     &  ,read_start,ok_guide,ok_strato,ok_gradsfile                     &
[1492]20     &  ,ok_limit,ok_etat0,grilles_gcm_netcdf
[1520]21      logical hybrid ! vertical coordinate is hybrid if true (sigma otherwise)
22                     ! (only used if disvert_type==2)
[630]23
[1520]24      integer iflag_phys,iflag_trac
25!$OMP THREADPRIVATE(/logicl/)
26!$OMP THREADPRIVATE(/logici/)
[1000]27!-----------------------------------------------------------------------
Note: See TracBrowser for help on using the repository browser.