pkg/cheapaml/CHEAPAML.h

C $Header: /u/gcmpack/MITgcm/pkg/cheapaml/CHEAPAML.h,v 1.8 2012/08/27 17:05:49 wienders 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     gqairm :: atmosphere moisture tendency
C     uwind :: zonal wind
C     vwind :: meridional wind
C     solar :: short wave insolation
C     Cheapmask :: open boundary condition relaxation mask
C     Cheaptracer :: passive tracer
C     CheaptracerR :: Relaxation profile for passive tracer
C     gCheaptracerm :: passive tracer tendency

      COMMON /CHEAPAML_VARS/
     &       Tr, qr,
     &       Tair, gTairm,
     &       qair, gqairm,
     &       uwind, vwind, solar,
     &       wwind,
     &       ustress, vstress,
     &       wavesh, wavesp, Cheapmask, CheapHgrid,
     &       Cheapclouds,Cheapdlongwave,
     &       Cheaptracer, CheaptracerR, gCheaptracerm,
     &       Cheapprgrid,xgs,xrelf

      _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)
      _RL    qair   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RL    gqairm (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    wwind  (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)
      _RL    wavesh (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RL    wavesp (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RL    Cheapmask(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RL    xgs(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RL    xrelf(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RL    CheapHgrid(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RL    Cheapprgrid(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RL    Cheapclouds(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RL    Cheapdlongwave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RL    Cheaptracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RL    CheaptracerR(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RL    gCheaptracerm(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)

      COMMON /CHEAPAML_PARMS_R/
     &       cheapaml_h,
     &       cheapaml_kdiff,
     &       cheapaml_taurelax,
     &       cheapaml_taurelaxocean,
     &       rhoa, cpair, stefan,
     &       lath, xkar, gasR,
     &       dsolms, dsolmn,
     &       xphaseinit, gamma_blk, humid_fac, p0,
     &       xef, hm,
     &       zu, zt, zq,
     &       cdrag_1, cdrag_2, cdrag_3,
     &       externForcingPeriod_cheap,
     &       externForcingCycle_cheap,
     &       cheap_pr1,cheap_pr2
      _RL    cheapaml_h
      _RL    cheapaml_kdiff
      _RL    cheapaml_taurelax
      _RL    cheapaml_taurelaxocean
      _RL    rhoa, cpair, stefan
      _RL    lath, xkar, gasR
      _RL    dsolms, dsolmn
      _RL    xphaseinit, gamma_blk, humid_fac, p0
      _RL    xef, hm
      _RL    zu, zt, zq
      _RL    cdrag_1, cdrag_2, cdrag_3
      _RL    externForcingPeriod_cheap
      _RL    externForcingCycle_cheap
      _RL    cheap_pr1,cheap_pr2

      COMMON /CHEAPAML_PARMS_I/
     &       cheapaml_ntim,
     &       cheapaml_mask_width,
     &       cheapTairStartAB, cheapQairStartAB, cheapTracStartAB 
      INTEGER cheapaml_ntim
      INTEGER cheapaml_mask_width
      INTEGER cheapTairStartAB, cheapQairStartAB, cheapTracStartAB 

      COMMON /CHEAPAML_PARMS_L/
     &       useFreshWaterFlux,
     &       useFluxLimit,
     &       useStressOption,
     &       useRelativeHumidity,
     &       periodicExternalForcing_cheap,
     &       useCheapTracer,
     &       usetimevarblh,
     &       useclouds,
     &       usedlongwave
      LOGICAL useFreshWaterFlux
      LOGICAL useFluxLimit
      LOGICAL useStressOption
      LOGICAL useRelativeHumidity
      LOGICAL periodicExternalForcing_cheap
      LOGICAL useCheapTracer
      LOGICAL usetimevarblh
      LOGICAL useclouds
      LOGICAL usedlongwave

      COMMON /CHEAPAML_PARMS_C/
     &       AirTempFile, AirQFile, SolarFile,
     &       UWindFile, VWindFile, UStressFile, VStressFile,
     &       TrFile, QrFile,
     &       WaveHFile, WavePFile, FluxFormula, WaveModel,
     &       TracerFile, TracerRFile, CheapMaskFile, Cheap_hFile,
     &       Cheap_prfile, cheap_clfile,cheap_dlwFile

      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) UStressFile
      CHARACTER*(MAX_LEN_FNAM) VStressFile
      CHARACTER*(MAX_LEN_FNAM) TrFile
      CHARACTER*(MAX_LEN_FNAM) QrFile
      CHARACTER*(MAX_LEN_FNAM) WaveHFile
      CHARACTER*(MAX_LEN_FNAM) WavePFile
      CHARACTER*(MAX_LEN_FNAM) FluxFormula
      CHARACTER*(MAX_LEN_FNAM) WaveModel
      CHARACTER*(MAX_LEN_FNAM) TracerFile
      CHARACTER*(MAX_LEN_FNAM) TracerRFile
      CHARACTER*(MAX_LEN_FNAM) CheapMaskFile
      CHARACTER*(MAX_LEN_FNAM) Cheap_hFile
      CHARACTER*(MAX_LEN_FNAM) Cheap_prFile
      CHARACTER*(MAX_LEN_FNAM) Cheap_clFile
      CHARACTER*(MAX_LEN_FNAM) cheap_dlwFile

c #endif /* ALLOW_CHEAPAML */
1	jmc	1.9	C $Header: /u/gcmpack/MITgcm/pkg/cheapaml/CHEAPAML.h,v 1.8 2012/08/27 17:05:49 wienders Exp $
2	jmc	1.1	C $Name: $
3
4	jmc	1.2	c #ifdef ALLOW_CHEAPAML
5			C !ROUTINE: CHEAPAML.h
6			C -------------------------------
7			C CHEAPAML.h
8	jmc	1.1	C Parameters for cheap atmos mixed layer model
9	jmc	1.2	C -------------------------------
10	jmc	1.1	C Tr :: Relaxation temperature profile for lateral boundary region
11	jmc	1.2	C qr :: Relaxation specific humidity profile for lateral boundary region
12			C Tair :: atmosphere boundary layer temperature
13			C gTairm :: atmosphere temperature tendency
14			C qair :: atmosphere specific humidity
15	jmc	1.4	C gqairm :: atmosphere moisture tendency
16	jmc	1.2	C uwind :: zonal wind
17			C vwind :: meridional wind
18			C solar :: short wave insolation
19	jmc	1.4	C Cheapmask :: open boundary condition relaxation mask
20	wienders	1.6	C Cheaptracer :: passive tracer
21			C CheaptracerR :: Relaxation profile for passive tracer
22			C gCheaptracerm :: passive tracer tendency
23	jmc	1.3
24			COMMON /CHEAPAML_VARS/
25	wienders	1.5	& Tr, qr,
26	jmc	1.3	& Tair, gTairm,
27	wienders	1.5	& qair, gqairm,
28	jmc	1.3	& uwind, vwind, solar,
29	wienders	1.7	& wwind,
30	jmc	1.4	& ustress, vstress,
31	wienders	1.7	& wavesh, wavesp, Cheapmask, CheapHgrid,
32	wienders	1.8	& Cheapclouds,Cheapdlongwave,
33	wienders	1.7	& Cheaptracer, CheaptracerR, gCheaptracerm,
34			& Cheapprgrid,xgs,xrelf
35
36	jmc	1.4	_RL Tr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
37			_RL qr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
38			_RL Tair (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
39			_RL gTairm (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
40			_RL qair (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
41			_RL gqairm (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
42			_RL uwind (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
43			_RL vwind (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
44	wienders	1.7	_RL wwind (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
45	jmc	1.4	_RL Solar (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
46			_RL ustress(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
47			_RL vstress(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
48			_RL wavesh (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
49			_RL wavesp (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
50			_RL Cheapmask(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
51	wienders	1.7	_RL xgs(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
52			_RL xrelf(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
53			_RL CheapHgrid(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
54			_RL Cheapprgrid(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
55			_RL Cheapclouds(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
56	wienders	1.8	_RL Cheapdlongwave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
57	wienders	1.6	_RL Cheaptracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
58			_RL CheaptracerR(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
59			_RL gCheaptracerm(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
60
61	jmc	1.3	COMMON /CHEAPAML_PARMS_R/
62			& cheapaml_h,
63			& cheapaml_kdiff,
64	wienders	1.7	& cheapaml_taurelax,
65	wienders	1.8	& cheapaml_taurelaxocean,
66	jmc	1.4	& rhoa, cpair, stefan,
67			& lath, xkar, gasR,
68			& dsolms, dsolmn,
69			& xphaseinit, gamma_blk, humid_fac, p0,
70	wienders	1.7	& xef, hm,
71	jmc	1.4	& zu, zt, zq,
72	wienders	1.5	& cdrag_1, cdrag_2, cdrag_3,
73			& externForcingPeriod_cheap,
74	wienders	1.7	& externForcingCycle_cheap,
75			& cheap_pr1,cheap_pr2
76	jmc	1.1	_RL cheapaml_h
77	jmc	1.3	_RL cheapaml_kdiff
78	wienders	1.7	_RL cheapaml_taurelax
79	wienders	1.8	_RL cheapaml_taurelaxocean
80	jmc	1.3	_RL rhoa, cpair, stefan
81	jmc	1.4	_RL lath, xkar, gasR
82			_RL dsolms, dsolmn
83			_RL xphaseinit, gamma_blk, humid_fac, p0
84	wienders	1.7	_RL xef, hm
85	jmc	1.4	_RL zu, zt, zq
86	jmc	1.1	_RL cdrag_1, cdrag_2, cdrag_3
87	wienders	1.5	_RL externForcingPeriod_cheap
88	jmc	1.9	_RL externForcingCycle_cheap
89	wienders	1.7	_RL cheap_pr1,cheap_pr2
90	jmc	1.3
91			COMMON /CHEAPAML_PARMS_I/
92	jmc	1.4	& cheapaml_ntim,
93	jmc	1.9	& cheapaml_mask_width,
94			& cheapTairStartAB, cheapQairStartAB, cheapTracStartAB
95	jmc	1.2	INTEGER cheapaml_ntim
96	jmc	1.4	INTEGER cheapaml_mask_width
97	jmc	1.9	INTEGER cheapTairStartAB, cheapQairStartAB, cheapTracStartAB
98	jmc	1.3
99			COMMON /CHEAPAML_PARMS_L/
100	jmc	1.9	& useFreshWaterFlux,
101	jmc	1.4	& useFluxLimit,
102			& useStressOption,
103	wienders	1.5	& useRelativeHumidity,
104	wienders	1.6	& periodicExternalForcing_cheap,
105	wienders	1.7	& useCheapTracer,
106			& usetimevarblh,
107	wienders	1.8	& useclouds,
108			& usedlongwave
109	jmc	1.9	LOGICAL useFreshWaterFlux
110	jmc	1.4	LOGICAL useFluxLimit
111			LOGICAL useStressOption
112			LOGICAL useRelativeHumidity
113	wienders	1.5	LOGICAL periodicExternalForcing_cheap
114	wienders	1.6	LOGICAL useCheapTracer
115	wienders	1.7	LOGICAL usetimevarblh
116			LOGICAL useclouds
117	wienders	1.8	LOGICAL usedlongwave
118	jmc	1.3
119			COMMON /CHEAPAML_PARMS_C/
120	wienders	1.5	& AirTempFile, AirQFile, SolarFile,
121	jmc	1.4	& UWindFile, VWindFile, UStressFile, VStressFile,
122	wienders	1.5	& TrFile, QrFile,
123	wienders	1.6	& WaveHFile, WavePFile, FluxFormula, WaveModel,
124	wienders	1.7	& TracerFile, TracerRFile, CheapMaskFile, Cheap_hFile,
125	wienders	1.8	& Cheap_prfile, cheap_clfile,cheap_dlwFile
126	jmc	1.4
127	jmc	1.1	CHARACTER*(MAX_LEN_FNAM) AirTempFile
128			CHARACTER*(MAX_LEN_FNAM) AirQFile
129			CHARACTER*(MAX_LEN_FNAM) SolarFile
130			CHARACTER*(MAX_LEN_FNAM) UWindFile
131			CHARACTER*(MAX_LEN_FNAM) VWindFile
132	jmc	1.4	CHARACTER*(MAX_LEN_FNAM) UStressFile
133			CHARACTER*(MAX_LEN_FNAM) VStressFile
134			CHARACTER*(MAX_LEN_FNAM) TrFile
135	jmc	1.3	CHARACTER*(MAX_LEN_FNAM) QrFile
136	jmc	1.4	CHARACTER*(MAX_LEN_FNAM) WaveHFile
137			CHARACTER*(MAX_LEN_FNAM) WavePFile
138			CHARACTER*(MAX_LEN_FNAM) FluxFormula
139			CHARACTER*(MAX_LEN_FNAM) WaveModel
140	wienders	1.6	CHARACTER*(MAX_LEN_FNAM) TracerFile
141			CHARACTER*(MAX_LEN_FNAM) TracerRFile
142	wienders	1.7	CHARACTER*(MAX_LEN_FNAM) CheapMaskFile
143			CHARACTER*(MAX_LEN_FNAM) Cheap_hFile
144			CHARACTER*(MAX_LEN_FNAM) Cheap_prFile
145			CHARACTER*(MAX_LEN_FNAM) Cheap_clFile
146	wienders	1.8	CHARACTER*(MAX_LEN_FNAM) cheap_dlwFile
147	jmc	1.4
148	jmc	1.2	c #endif /* ALLOW_CHEAPAML */