| [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 & |
|---|
| [127] | 13 | & ,ok_limit,ok_etat0,grilles_gcm_netcdf,hybrid |
|---|
| [1] | 14 | |
|---|
| [124] | 15 | COMMON/logici/ iflag_phys,iflag_trac |
|---|
| 16 | |
|---|
| [1] | 17 | LOGICAL purmats,forward,leapf,apphys,statcl,conser, & |
|---|
| 18 | & apdiss,apdelq,saison,ecripar,fxyhypb,ysinus & |
|---|
| [495] | 19 | & ,read_start,ok_guide,ok_strato,tidal,ok_gradsfile & |
|---|
| [127] | 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) |
|---|
| [1] | 23 | |
|---|
| [127] | 24 | integer iflag_phys,iflag_trac |
|---|
| [124] | 25 | !$OMP THREADPRIVATE(/logicl/) |
|---|
| 26 | !$OMP THREADPRIVATE(/logici/) |
|---|
| [1] | 27 | !----------------------------------------------------------------------- |
|---|
