gw_drag_init.F90

Go to the documentation of this file.

!        Generated by TAPENADE     (INRIA, Tropics team)
!  Tapenade 3.2 (r3024) - 06/17/2009 13:03
!  
MODULE gw_drag_init
  IMPLICIT NONE
!---------------------------------------------------------------------------------
! Purpose:
!
! Module to compute the forcing due to parameterized gravity waves. Both an 
! orographic and an internal source spectrum are considered.
!
! Author: Jong G. Kim
!
!---------------------------------------------------------------------------------

  integer, public :: isize_s1_tau,isize_s2_tau,isize_e1_tau,isize_e2_tau

!  REAL, allocatable, DIMENSION(:, :), PUBLIC :: tau
!  REAL, allocatable, DIMENSION(:, :), PUBLIC :: taub
!  REAL, allocatable, DIMENSION(:, :), PUBLIC :: taud

! spectrum source at 400 mb
  REAL*8 , PARAMETER, public :: p_src=40000.

  LOGICAL, PARAMETER, public :: bypass_bgnd=.false.
  LOGICAL, PARAMETER, public :: bypass_oro =.false.
  LOGICAL,            public :: do_bgnd
  LOGICAL,            public :: do_oro

END MODULE gw_drag_init