| 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 | |
|---|
| 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,tidal,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 | !----------------------------------------------------------------------- |
|---|
