[222] | 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,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 |
---|
| 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 | !----------------------------------------------------------------------- |
---|