source: trunk/LMDZ.COMMON/libf/dyn3dpar/logic.h @ 134

Last change on this file since 134 was 127, checked in by emillour, 14 years ago

Ehouarn: suite de l'implementation de la discretisation verticale,
avec quelques mises a jour pour concorder avec la version terrestre.
-> Finalement, on met un flag "disvert_type" pour fixer la discretisation

disvert_type==1 (defaut si planet_type=="earth") pour cas terrestre
disvert_type==2 (defaut si planet_type!="earth") pour cas planeto (z2sig.def)

-> au passage, pour rester en phase avec modele terrestre on renomme

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