! ! $Id: logic.h 1488 2011-02-17 15:23:03Z crisi $ ! ! ! !----------------------------------------------------------------------- ! 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,grilles_gcm_netcdf 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,grilles_gcm_netcdf INTEGER iflag_phys !$OMP THREADPRIVATE(/logic/) !-----------------------------------------------------------------------