| 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,tidal,ok_gradsfile & |
|---|
| 13 | & ,ok_limit,ok_etat0,grilles_gcm_netcdf,hybrid & |
|---|
| 14 | & ,moyzon_mu,moyzon_ch |
|---|
| 15 | |
|---|
| 16 | COMMON/logici/ iflag_phys,iflag_trac |
|---|
| 17 | |
|---|
| 18 | LOGICAL purmats,forward,leapf,apphys,statcl,conser, & |
|---|
| 19 | & apdiss,apdelq,saison,ecripar,fxyhypb,ysinus & |
|---|
| 20 | & ,read_start,ok_guide,ok_strato,tidal,ok_gradsfile & |
|---|
| 21 | & ,ok_limit,ok_etat0,grilles_gcm_netcdf |
|---|
| 22 | logical hybrid ! vertical coordinate is hybrid if true (sigma otherwise) |
|---|
| 23 | ! (only used if disvert_type==2) |
|---|
| 24 | logical moyzon_mu,moyzon_ch ! used for zonal averages in Titan |
|---|
| 25 | |
|---|
| 26 | integer iflag_phys,iflag_trac |
|---|
| 27 | !$OMP THREADPRIVATE(/logicl/) |
|---|
| 28 | !$OMP THREADPRIVATE(/logici/) |
|---|
| 29 | !----------------------------------------------------------------------- |
|---|
