YOEGWD.h

Go to the documentation of this file.

!
! $Id: YOEGWD.h 2357 2015-08-31 16:25:19Z lguez $
!
!  ATTENTION : ce fichier include est compatible format fixe/format libre
!                 veillez  n'utiliser que des ! pour les commentaires
!                 et  bien positionner les & des lignes de continuation
!                 (les placer en colonne 6 et en colonne 73)
!     -----------------------------------------------------------------
!*    *COMMON* *YOEGWD* - PARAMETERS FOR GRAVITY WAVE DRAG CALCULATIONS
!     -----------------------------------------------------------------
!
      integer NKTOPG,NSTRA
      real GFRCRIT,GKWAKE,GRCRIT,GVCRIT,GKDRAG,GKLIFT
      real GHMAX,GRAHILO,GSIGCR,GSSEC,GTSEC,GVSEC

      REAL GWD_RANDO_RUWMAX
!     Maximum Eliassen-Palm flux at launch level, in "FLOTT_GWD_rando"

      REAL GWD_RANDO_SAT ! saturation parameter in "FLOTT_GWD_rando"
!     S_c in equation (12) of Lott (JGR, vol 118, page 8897, 2013)

      REAL GWD_FRONT_RUWMAX,GWD_FRONT_SAT 
! Same as GWD_RANDO params but for fronal GWs


      COMMON/YOEGWD/ GFRCRIT,GKWAKE,GRCRIT,GVCRIT,GKDRAG,GKLIFT,        &
     &     GHMAX,GRAHILO,GSIGCR,NKTOPG,NSTRA,GSSEC,GTSEC,GVSEC,         &
     &     GWD_RANDO_RUWMAX, gwd_rando_sat,                             &
     &     GWD_FRONT_RUWMAX, gwd_front_sat

      save /YOEGWD/
!$OMP THREADPRIVATE(/YOEGWD/)