module yoegwd_h ! ----------------------------------------------------------------- !* *COMMON* *YOEGWD* - PARAMETERS FOR GRAVITY WAVE DRAG CALCULATIONS ! ----------------------------------------------------------------- implicit none real,save :: GFRCRIT real,save :: GRCRIT real,save :: GVCRIT !$OMP THREADPRIVATE(GFRCRIT,GRCRIT,GVCRIT) real,save :: GKDRAG real,save :: GKDRAGL real,save :: GHMAX !$OMP THREADPRIVATE(GKDRAG,GKDRAGL,GHMAX) real,save :: GRAHILO real,save :: GSIGCR real,save :: GSSEC !$OMP THREADPRIVATE(GRAHILO,GSIGCR,GSSEC) real,save :: GTSEC real,save :: GVSEC real,save :: GKWAKE !$OMP THREADPRIVATE(GTSEC,GVSEC,GKWAKE) integer :: NKTOPG !$OMP THREADPRIVATE(NKTOPG) end module yoegwd_h