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