1 |
C $Header: /u/gcmpack/MITgcm/pkg/aim/com_physvar.h,v 1.3 2001/05/29 19:28:53 cnh Exp $ |
2 |
C $Name: $ |
3 |
|
4 |
#ifdef ALLOW_AIM |
5 |
|
6 |
C-- COMMON /PHYGR1/ : Model variables on gaussian grid |
7 |
C UG1 = u-wind |
8 |
C VG1 = v-wind |
9 |
C TG1 = abs. temperature |
10 |
C QG1 = specific humidity (g/kg) |
11 |
C PHIG1 = geopotential |
12 |
C PSLG1 = log. of surface pressure |
13 |
C Vsurfsq = Square of surface wind speed (grid position = as T,Q) |
14 |
COMMON /PHYGR1/ UG1, VG1, TG1, QG1, PHIG1, PSLG1, Vsurfsq |
15 |
_RL UG1(NGP,NLEV,MAX_NO_THREADS) |
16 |
_RL VG1(NGP,NLEV,MAX_NO_THREADS) |
17 |
_RL TG1(NGP,NLEV,MAX_NO_THREADS) |
18 |
_RL QG1(NGP,NLEV,MAX_NO_THREADS) |
19 |
_RL PHIG1(NGP,NLEV,MAX_NO_THREADS) |
20 |
_RL PSLG1(NGP,MAX_NO_THREADS) |
21 |
_RL Vsurfsq(NGP,MAX_NO_THREADS) |
22 |
|
23 |
C-- COMMON /PHYGR2/ : Diagnosed upper-air variables |
24 |
C SE = dry static energy |
25 |
C RH = relative humidity |
26 |
C QSAT = saturation specific humidity (g/kg) |
27 |
COMMON /PHYGR2/ SE, RH, QSAT |
28 |
_RL SE(NGP,NLEV,MAX_NO_THREADS) |
29 |
_RL RH(NGP,NLEV,MAX_NO_THREADS) |
30 |
_RL QSAT(NGP,NLEV,MAX_NO_THREADS) |
31 |
|
32 |
|
33 |
C-- COMMON /PHYGR3/ : Diagnosed surface variables |
34 |
C PSG = surface pressure |
35 |
C TS = surface temperature |
36 |
C TSKIN = skin temperature (not yet implemented) |
37 |
C CLOUDC = total cloud cover (fraction) |
38 |
C PNLEVW = Surface pressure for the computation of the surface fluxes |
39 |
COMMON /PHYGR3/ PSG, TS, TSKIN, CLOUDC, PNLEVW |
40 |
_RL PSG (NGP,MAX_NO_THREADS) |
41 |
_RL TS (NGP,MAX_NO_THREADS) |
42 |
_RL TSKIN (NGP,MAX_NO_THREADS) |
43 |
_RL CLOUDC(NGP,MAX_NO_THREADS) |
44 |
_RL PNLEVW(NGP,MAX_NO_THREADS) |
45 |
|
46 |
C-- COMMON /PHYTEN/ : Physical param. tendencies |
47 |
C TT_CNV = temperature tendency due to convection |
48 |
C QT_CNV = sp. humidity tendency due to convection |
49 |
C TT_LSC = temperature tendency due to large-scale condensation |
50 |
C QT_LSC = sp. humidity tendency due to large-scale condensation |
51 |
C TT_RSW = temperature tendency due to short-wave radiation |
52 |
C TT_RLW = temperature tendency due to long-wave radiation |
53 |
C UT_PBL = u-wind tendency due to PBL and diffusive processes |
54 |
C VT_PBL = v-wind tendency due to PBL and diffusive processes |
55 |
C TT_PBL = temperature tendency due to PBL and diffusive processes |
56 |
C QT_PBL = sp. humidity tendency due to PBL and diffusive processes |
57 |
COMMON /PHYTEN/ TT_CNV, QT_CNV, TT_LSC, QT_LSC, |
58 |
& TT_RSW, TT_RLW, UT_PBL, VT_PBL, TT_PBL, QT_PBL |
59 |
_RL TT_CNV(NGP,NLEV,MAX_NO_THREADS) |
60 |
_RL QT_CNV(NGP,NLEV,MAX_NO_THREADS) |
61 |
_RL TT_LSC(NGP,NLEV,MAX_NO_THREADS) |
62 |
_RL QT_LSC(NGP,NLEV,MAX_NO_THREADS) |
63 |
_RL TT_RSW(NGP,NLEV,MAX_NO_THREADS) |
64 |
_RL TT_RLW(NGP,NLEV,MAX_NO_THREADS) |
65 |
_RL UT_PBL(NGP,NLEV,MAX_NO_THREADS) |
66 |
_RL VT_PBL(NGP,NLEV,MAX_NO_THREADS) |
67 |
_RL TT_PBL(NGP,NLEV,MAX_NO_THREADS) |
68 |
_RL QT_PBL(NGP,NLEV,MAX_NO_THREADS) |
69 |
|
70 |
C-- |
71 |
C-- COMMON /FLUXES/ : Surface and upper boundary fluxes |
72 |
C PRECNV = convective precipitation [g/(m^2 s)] |
73 |
C PRECLS = large-scale precipitation [g/(m^2 s)] |
74 |
C CBMF = cloud-base mass flux |
75 |
C TSR = top-of-atm. shortwave radiation (downward) |
76 |
C SSR = surface shortwave radiation (downward) |
77 |
C SLR = surface longwave radiation (upward) |
78 |
C OLR = outgoing longwave radiation (upward) |
79 |
C USTR = u-stress (1: land, 2: sea, 3: weighted average) |
80 |
C VSTR = v-stress (1: land, 2: sea, 3: weighted average) |
81 |
C SHF = sensible heat flux (1: land, 2: sea, 3: w. average) |
82 |
C EVAP = evaporation [g/(m^2 s)] (1: land, 2: sea, 3: w. average) |
83 |
C DRAG = surface Drag term (= Cd*Rho*|V|) |
84 |
COMMON /FLUXES/ PRECNV, PRECLS, CBMF, TSR, SSR, SLR, OLR, |
85 |
& USTR, VSTR, SHF, EVAP, T0, Q0, QSAT0, |
86 |
& SLR_DOWN, ST4S, SPEED0, DRAG |
87 |
_RL PRECNV (NGP,MAX_NO_THREADS) |
88 |
_RL PRECLS (NGP,MAX_NO_THREADS) |
89 |
_RL CBMF (NGP,MAX_NO_THREADS) |
90 |
_RL TSR (NGP,MAX_NO_THREADS) |
91 |
_RL SSR (NGP,MAX_NO_THREADS) |
92 |
_RL SLR (NGP,MAX_NO_THREADS) |
93 |
_RL OLR (NGP,MAX_NO_THREADS) |
94 |
_RL USTR (NGP,3,MAX_NO_THREADS) |
95 |
_RL VSTR (NGP,3,MAX_NO_THREADS) |
96 |
_RL SHF (NGP,3,MAX_NO_THREADS) |
97 |
_RL EVAP (NGP,3,MAX_NO_THREADS) |
98 |
_RL T0 (NGP,2,MAX_NO_THREADS) |
99 |
_RL Q0 (NGP,MAX_NO_THREADS) |
100 |
_RL QSAT0 (NGP,2,MAX_NO_THREADS) |
101 |
_RL SLR_DOWN(NGP,MAX_NO_THREADS) |
102 |
_RL ST4S (NGP,MAX_NO_THREADS) |
103 |
_RL SPEED0 (NGP,MAX_NO_THREADS) |
104 |
_RL DRAG (NGP,MAX_NO_THREADS) |
105 |
|
106 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
107 |
#endif /* ALLOW_AIM */ |