| [1] | 1 | ! |
|---|
| [127] | 2 | ! $Id: logic.h 1520 2011-05-23 11:37:09Z emillour $ |
|---|
| [1] | 3 | ! |
|---|
| 4 | ! |
|---|
| [124] | 5 | ! NB: keep items of different kinds in seperate common blocs to avoid |
|---|
| 6 | ! "misaligned commons" issues |
|---|
| [1] | 7 | !----------------------------------------------------------------------- |
|---|
| 8 | ! INCLUDE 'logic.h' |
|---|
| 9 | |
|---|
| [124] | 10 | COMMON/logicl/ purmats,forward,leapf,apphys, & |
|---|
| [1] | 11 | & statcl,conser,apdiss,apdelq,saison,ecripar,fxyhypb,ysinus & |
|---|
| [495] | 12 | & ,read_start,ok_guide,ok_strato,tidal,ok_gradsfile & |
|---|
| [1056] | 13 | & ,ok_limit,ok_etat0,grilles_gcm_netcdf,hybrid & |
|---|
| 14 | & ,moyzon_mu,moyzon_ch |
|---|
| [1] | 15 | |
|---|
| [124] | 16 | COMMON/logici/ iflag_phys,iflag_trac |
|---|
| 17 | |
|---|
| [1] | 18 | LOGICAL purmats,forward,leapf,apphys,statcl,conser, & |
|---|
| 19 | & apdiss,apdelq,saison,ecripar,fxyhypb,ysinus & |
|---|
| [495] | 20 | & ,read_start,ok_guide,ok_strato,tidal,ok_gradsfile & |
|---|
| [127] | 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) |
|---|
| [1056] | 24 | logical moyzon_mu,moyzon_ch ! used for zonal averages in Titan |
|---|
| [1] | 25 | |
|---|
| [127] | 26 | integer iflag_phys,iflag_trac |
|---|
| [124] | 27 | !$OMP THREADPRIVATE(/logicl/) |
|---|
| 28 | !$OMP THREADPRIVATE(/logici/) |
|---|
| [1] | 29 | !----------------------------------------------------------------------- |
|---|
