source: LMDZ5/trunk/libf/dyn3dmem/logic.h @ 1700

Last change on this file since 1700 was 1673, checked in by Laurent Fairhead, 12 years ago

Fin du phasage de la dynamique parallele localisee (petite memoire) avec le tronc LMDZ5 r1671
Il reste quelques routines a verifier (en particulier ce qui touche a l'etude des cas academiques)
et la validation a effectuer

End of the phasing of the localised (low memory) parallel dynamics package with the
LMDZ5 trunk (r1671)
Some routines still need some checking (in particular the academic cases) and some
validation is still required
File size: 1.1 KB
Line 
1!
2! $Id$
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.