Changeset 124 for trunk/libf/dyn3dpar/logic.h
- Timestamp:
- May 19, 2011, 5:05:39 PM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/libf/dyn3dpar/logic.h
r119 r124 3 3 ! 4 4 ! 5 ! 5 ! NB: keep items of different kinds in seperate common blocs to avoid 6 ! "misaligned commons" issues 6 7 !----------------------------------------------------------------------- 7 8 ! INCLUDE 'logic.h' 8 9 9 COMMON/logic / purmats,iflag_phys,forward,leapf,apphys,&10 COMMON/logicl/ purmats,forward,leapf,apphys, & 10 11 & statcl,conser,apdiss,apdelq,saison,ecripar,fxyhypb,ysinus & 11 12 & ,read_start,ok_guide,ok_strato,ok_gradsfile & 12 & ,ok_limit,ok_etat0, iflag_trac13 & ,ok_limit,ok_etat0,hybrid 13 14 15 COMMON/logici/ iflag_phys,iflag_trac 16 14 17 LOGICAL purmats,forward,leapf,apphys,statcl,conser, & 15 18 & apdiss,apdelq,saison,ecripar,fxyhypb,ysinus & 16 19 & ,read_start,ok_guide,ok_strato,ok_gradsfile & 17 20 & ,ok_limit,ok_etat0 21 logical hybrid ! vertcal coordinate is hybrid if true (sigma otherwise) 18 22 19 23 INTEGER iflag_phys,iflag_trac 20 !$OMP THREADPRIVATE(/logic/) 24 !$OMP THREADPRIVATE(/logicl/) 25 !$OMP THREADPRIVATE(/logici/) 21 26 !-----------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.