| 1 | MODULE logic_mod |
|---|
| 2 | |
|---|
| 3 | IMPLICIT NONE |
|---|
| 4 | |
|---|
| 5 | LOGICAL purmats,forward,leapf,apphys,statcl,conser, & |
|---|
| 6 | & apdiss,apdelq,saison,ecripar,fxyhypb,ysinus & |
|---|
| 7 | & ,read_start,ok_guide,ok_strato,tidal,ok_gradsfile & |
|---|
| 8 | & ,ok_limit,ok_etat0,physic,grireg |
|---|
| 9 | logical hybrid ! vertical coordinate is hybrid if true (sigma otherwise) |
|---|
| 10 | ! (only used if disvert_type==2) |
|---|
| 11 | logical moyzon_mu,moyzon_ch ! used for zonal averages in Titan |
|---|
| 12 | |
|---|
| 13 | integer iflag_phys,iflag_trac |
|---|
| 14 | |
|---|
| 15 | !$OMP THREADPRIVATE(purmats,forward,leapf,apphys,statcl,conser, & |
|---|
| 16 | !$OMP apdiss,apdelq,saison,ecripar,fxyhypb,ysinus, & |
|---|
| 17 | !$OMP read_start,ok_guide,ok_strato,tidal,ok_gradsfile, & |
|---|
| 18 | !$OMP ok_limit,ok_etat0,physic,grireg) |
|---|
| 19 | !$OMP THREADPRIVATE(iflag_phys,iflag_trac) |
|---|
| 20 | |
|---|
| 21 | !BE CAREFUL: when adding a threadprivate variable in this module |
|---|
| 22 | ! do not forget to add it to copyin clause of gcm.F (before CALL leapfrog_p) |
|---|
| 23 | |
|---|
| 24 | END MODULE logic_mod |
|---|
