c
c $Id: mgw.h,v 1.3 1995/10/14 21:12:42 rosinski Exp $
c $Author: rosinski $
c
c These constants are documented in the gravity wave section of NCAR
c TN-420 "Description of the NCAR Community Climate Model (CCM3)",
c  Kiehl et al. (1996)
c
c
c#ifndef GWPARMS_SET
c#define GWPARMS_SET
c#define PGWV	4
c#define FRACLDV 0.0
c#define TAULDV  0.0
c#define TAUSCAL	.001
c#define TAUNOR	0.75
c#define TAUSOU	1.2
c#define TAUBGND .4
c#define TAUEQ	1.
c#define TAUEQW	10.
c#define OROFC2	.5
c#define OROE	.125
c#define MXRANGE	.001
c#define MXASYM	.1
c#endif
      real cpx,cpwv,gx,rx,prndtl,prndtlt,prndtlm
      parameter(cpx = 1004.6)
      parameter(cpwv = 1810.0)
      parameter(gx = 9.8)
      parameter(rx = 287.04)
!
      parameter(prndtl =  3.)
      parameter(prndtlt = 3.)
      parameter(prndtlm = 3.)
c+
c common variables for multiple gravity wave parameterization
c-
      integer pgwv 
      parameter (pgwv = 6)  ! number of waves allowed
c     parameter (pgwv = 5)  ! number of waves allowed

      integer
     $     kbotbg, kbotoro,     ! interface of gwd source
     $     ktopbg, ktoporo      ! top interface of gwd region
c
      real
     $     alpha(0:plev),       ! newtonian cooling coefficients
     $     cphs(-pgwv:pgwv),       ! list of wave phase speeds
     $     cp,                  ! specific heat of dry air (constant p)
     $     cpvir,               ! specific humidity factor for specific heat
     $     dback,               ! background diffusivity
     $     efcncy,              ! "efficiency" factor
     $     efkw,                ! efcncy * kwv
     $     fracldv,             ! fraction of stress deposited in low level region
     $     g,                   ! acceleration of gravity
     $     kwv                  ! effective horizontal wave number
      real
     $     mxasym,              ! max asymmetry between tau(c) and tau(-c)
     $     mxrange,             ! max range of tau for all c
     $     n2min,               ! min value of bouyancy frequency
     $     orofc2,              ! critical froude number
     $     oroeko2,             ! e*k/2, tunable parameter
     $     orohmin,             ! min sdv of height for orographic waves
     $     orovmin,             ! min wind speed for orographic waves
     $     r,                   ! gas constant for dry air
     $     rog,                 ! r / g
     $     taubgnd,             ! background source strength (/tauscal)
     $     taumin,              ! minimum (nonzero) stress
     $     tauscal,             ! scale factor for background stress source
     $     tndmin,              ! minimum wind tendency
     $     tndmax,              ! maximum wind tendency
     $     ubmc2mn,             ! min (u-c)**2
     $     zldvcon,             ! constant for determining zldv from tau0
     $     usorla,ulsorla,faca,facnh,facsh,facoron,facoros,uth
c
c
c
c
      common /mgwdcom/
     $     alpha, 
     $     cphs, cp, cpvir,
     $     dback,
     $     efcncy, efkw,
     $     fracldv,
     $     g,
     $     kwv,
     $     mxasym, mxrange,
     $     n2min,     
     $     oroeko2, orofc2, orohmin, orovmin,
     $     r,
     $     rog,
     $     taubgnd, taumin, tauscal,
     $     tndmin, tndmax,
     $     ubmc2mn,
     $     zldvcon,
     $     usorla,ulsorla,faca,facnh,facsh,facoron,facoros,uth,
     $     kbotbg, kbotoro,
     $     ktopbg, ktoporo  
c#ifdef LOGENTRY 
c$Log: mgw.h,v $
c#endif