! ! $Id: logic.h 1319 2010-02-23 21:29:54Z acaubel $ ! ! ! !----------------------------------------------------------------------- ! INCLUDE 'logic.h' COMMON/logic/ purmats,iflag_phys,forward,leapf,apphys, & & statcl,conser,apdiss,apdelq,saison,ecripar,fxyhypb,ysinus & & ,read_start,ok_guide,ok_strato,ok_gradsfile & & ,ok_limit,ok_etat0 LOGICAL purmats,forward,leapf,apphys,statcl,conser, & & apdiss,apdelq,saison,ecripar,fxyhypb,ysinus & & ,read_start,ok_guide,ok_strato,ok_gradsfile & & ,ok_limit,ok_etat0 INTEGER iflag_phys !$OMP THREADPRIVATE(/logic/) !-----------------------------------------------------------------------