Changeset 1000 for LMDZ4/trunk/libf/dyn3dpar/logic.h
- Timestamp:
- Oct 6, 2008, 10:43:22 AM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/trunk/libf/dyn3dpar/logic.h
r774 r1000 2 2 ! $Header$ 3 3 ! 4 c 5 c 6 c-----------------------------------------------------------------------7 cINCLUDE 'logic.h'4 ! 5 ! 6 !----------------------------------------------------------------------- 7 ! INCLUDE 'logic.h' 8 8 9 COMMON/logic/ purmats,iflag_phys,forward,leapf,apphys, 10 . statcl,conser,apdiss,apdelq,saison,ecripar,fxyhypb,ysinus11 . ,read_start,ok_guide9 COMMON/logic/ purmats,iflag_phys,forward,leapf,apphys, & 10 & statcl,conser,apdiss,apdelq,saison,ecripar,fxyhypb,ysinus & 11 & ,read_start,ok_guide,ok_strato 12 12 13 LOGICAL purmats,forward,leapf,apphys,statcl,conser, 14 . apdiss,apdelq,saison,ecripar,fxyhypb,ysinus15 . ,read_start,ok_guide13 LOGICAL purmats,forward,leapf,apphys,statcl,conser, & 14 & apdiss,apdelq,saison,ecripar,fxyhypb,ysinus & 15 & ,read_start,ok_guide,ok_strato 16 16 17 17 INTEGER iflag_phys 18 c$OMP THREADPRIVATE(/logic/)19 c-----------------------------------------------------------------------18 !$OMP THREADPRIVATE(/logic/) 19 !-----------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.