source: lmdz_wrf/trunk/WRFV3/lmdz/logic.h @ 354

Last change on this file since 354 was 1, checked in by lfita, 10 years ago
  • -- --- Opening of the WRF+LMDZ coupling repository --- -- -

WRF: version v3.3
LMDZ: version v1818

More details in:

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!-----------------------------------------------------------------------
Note: See TracBrowser for help on using the repository browser.