C $Header: /u/gcmpack/MITgcm/pkg/cheapaml/CHEAPAML.h,v 1.3 2010/09/05 03:56:18 jmc Exp $
C $Name: $
c #ifdef ALLOW_CHEAPAML
C !ROUTINE: CHEAPAML.h
C -------------------------------
C CHEAPAML.h
C Parameters for cheap atmos mixed layer model
C -------------------------------
C Tr :: Relaxation temperature profile for lateral boundary region
C qr :: Relaxation specific humidity profile for lateral boundary region
C Tair :: atmosphere boundary layer temperature
C gTairm :: atmosphere temperature tendency
C qair :: atmosphere specific humidity
C uwind :: zonal wind
C vwind :: meridional wind
C solar :: short wave insolation
COMMON /CHEAPAML_VARS/
& Tr, qr,
& Tair, gTairm,
c & qair,
& uwind, vwind, solar,
& ustress, vstress
_RL Tr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
_RL qr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
_RL Tair (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
_RL gTairm (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
c _RL qair (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
_RL uwind (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
_RL vwind (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
_RL Solar (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
_RL ustress (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
_RL vstress (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
COMMON /CHEAPAML_PARMS_R/
& cheapaml_h,
& cheapaml_kdiff,
c & cheapaml_taurelax1,
& cheapaml_taurelax2,
c & cheapaml_xf,
c & cheapaml_dtc,
& rhoa,cpair,stefan,
& dsolms,dsolmn,
& xphaseinit,
& cdrag_1,cdrag_2,cdrag_3
_RL cheapaml_h
_RL cheapaml_kdiff
c _RL cheapaml_taurelax1
_RL cheapaml_taurelax2
c _RL cheapaml_xf
c _RL cheapaml_dtc
_RL rhoa, cpair, stefan
_RL cdrag_1, cdrag_2, cdrag_3
_RL dsolms,dsolmn
_RL xphaseinit
COMMON /CHEAPAML_PARMS_I/
& cheapaml_ntim
INTEGER cheapaml_ntim
COMMON /CHEAPAML_PARMS_L/
& useFreshwaterFlux
LOGICAL useFreshwaterFlux
COMMON /CHEAPAML_PARMS_C/
& AirTempFile, AirQFile,SolarFile, UWindFile,
& VWindFile, TrFile, QrFile
CHARACTER*(MAX_LEN_FNAM) AirTempFile
CHARACTER*(MAX_LEN_FNAM) AirQFile
CHARACTER*(MAX_LEN_FNAM) SolarFile
CHARACTER*(MAX_LEN_FNAM) UWindFile
CHARACTER*(MAX_LEN_FNAM) VWindFile
CHARACTER*(MAX_LEN_FNAM) TRFile
CHARACTER*(MAX_LEN_FNAM) QrFile
c #endif /* ALLOW_CHEAPAML */