1 |
c $Header: /u/gcmpack/development/heimbach/ecco_env/pkg/exf/exf_fields.h,v 1.3 2002/01/11 17:34:46 heimbach Exp $ |
2 |
c |
3 |
c |
4 |
c ================================================================== |
5 |
c HEADER exf_fields |
6 |
c ================================================================== |
7 |
c |
8 |
c o Header file for the surface flux data. |
9 |
c |
10 |
c started: Ralf.Giering@FastOpt.de 25-Mai-2000 |
11 |
c changed: heimbach@mit.edu 10-Jan-2002 |
12 |
c |
13 |
c ================================================================== |
14 |
c HEADER exf_fields |
15 |
c ================================================================== |
16 |
|
17 |
c Model fields. |
18 |
|
19 |
c heat and salt flux. |
20 |
common /exf_hsflux_r/ hflux, sflux |
21 |
_RL hflux (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
22 |
_RL sflux (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
23 |
|
24 |
c zonal and meridionalwind stress. |
25 |
common /exf_stress_r/ ustress, vstress |
26 |
_RL ustress (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
27 |
_RL vstress (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
28 |
|
29 |
#ifdef ALLOW_ATM_TEMP |
30 |
c Use the atmospheric temperature and specific humidity for flux |
31 |
c estimates. |
32 |
|
33 |
c Atmospheric temperature. |
34 |
_RL atemp (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
35 |
|
36 |
c Atmospheric specific humidity. |
37 |
_RL aqh (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
38 |
|
39 |
c Long wave radiative flux. |
40 |
_RL lwflux (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
41 |
|
42 |
c Precipitation. |
43 |
_RL precip (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
44 |
|
45 |
common /exf_atm_temp_r/ atemp, aqh, lwflux, precip |
46 |
|
47 |
c Short wave radiative flux. |
48 |
common /exf_swflux_r/ swflux |
49 |
_RL swflux (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
50 |
|
51 |
#else |
52 |
c Do not use the atmospheric temperature and specific humidity for |
53 |
c flux estimates but given fluxes. |
54 |
|
55 |
#ifdef ALLOW_KPP |
56 |
c Short wave radiative flux. |
57 |
common /exf_swflux_r/ swflux |
58 |
_RL swflux (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
59 |
|
60 |
#endif |
61 |
|
62 |
#endif /* ALLOW_ATM_TEMP */ |
63 |
|
64 |
#ifdef ALLOW_ATM_WIND |
65 |
c Use the atmospheric winds for flux estimates. |
66 |
|
67 |
c Atmospheric zonal and meridional wind |
68 |
common /exf_atm_wind_r/ uwind, vwind |
69 |
_RL uwind (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
70 |
_RL vwind (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
71 |
|
72 |
#else |
73 |
c Do not use the atmospheric winds for flux estimates but given |
74 |
c wind stresses. |
75 |
|
76 |
#endif /* ALLOW_ATM_WIND */ |
77 |
|
78 |
c-- define auxiliary fields for temporal interpolation |
79 |
|
80 |
#ifdef ALLOW_ATM_TEMP |
81 |
|
82 |
common /exfl_aqh_r/ aqh0, aqh1 |
83 |
_RL aqh0(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
84 |
_RL aqh1(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
85 |
|
86 |
common /exfl_atemp_r/ atemp0, atemp1 |
87 |
_RL atemp0(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
88 |
_RL atemp1(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
89 |
|
90 |
common /exfl_precip_r/ precip0, precip1 |
91 |
_RL precip0(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
92 |
_RL precip1(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
93 |
|
94 |
common /exfl_lwflux_r/ lwflux0, lwflux1 |
95 |
_RL lwflux0(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
96 |
_RL lwflux1(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
97 |
|
98 |
common /exfl_swflux_r/ swflux0, swflux1 |
99 |
_RL swflux0(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
100 |
_RL swflux1(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
101 |
#else |
102 |
common /exfl_hflux_r/ hflux0, hflux1 |
103 |
_RL hflux0(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
104 |
_RL hflux1(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
105 |
|
106 |
common /exfl_sflux_r/ sflux0, sflux1 |
107 |
_RL sflux0(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
108 |
_RL sflux1(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
109 |
|
110 |
#ifdef ALLOW_KPP |
111 |
common /exfl_swflux_r/ swflux0, swflux1 |
112 |
_RL swflux0(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
113 |
_RL swflux1(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
114 |
#endif |
115 |
#endif |
116 |
|
117 |
#ifdef ALLOW_ATM_WIND |
118 |
|
119 |
common /exfl_uwind_r/ uwind0, uwind1 |
120 |
_RL uwind0(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
121 |
_RL uwind1(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
122 |
|
123 |
common /exfl_vwind_r/ vwind0, vwind1 |
124 |
_RL vwind0(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
125 |
_RL vwind1(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
126 |
#else |
127 |
common /exfl_ustress_r/ ustress0, ustress1 |
128 |
_RL ustress0(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
129 |
_RL ustress1(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
130 |
|
131 |
common /exfl_vstress_r/ vstress0, vstress1 |
132 |
_RL vstress0(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
133 |
_RL vstress1(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
134 |
#endif |