| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/ecco_cost_init_varia.F |
100 |
ECCO_COST_INIT_VARIA |
objf_tauum(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
101 |
ECCO_COST_INIT_VARIA |
objf_tauv(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
102 |
ECCO_COST_INIT_VARIA |
objf_tauvm(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
103 |
ECCO_COST_INIT_VARIA |
objf_temp(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
104 |
ECCO_COST_INIT_VARIA |
objf_salt(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
105 |
ECCO_COST_INIT_VARIA |
objf_temp0(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
106 |
ECCO_COST_INIT_VARIA |
objf_salt0(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
107 |
ECCO_COST_INIT_VARIA |
objf_temp0smoo(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
108 |
ECCO_COST_INIT_VARIA |
objf_salt0smoo(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
109 |
ECCO_COST_INIT_VARIA |
objf_etan0(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
110 |
ECCO_COST_INIT_VARIA |
objf_uvel0(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
111 |
ECCO_COST_INIT_VARIA |
objf_vvel0(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
112 |
ECCO_COST_INIT_VARIA |
objf_tmi(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
113 |
ECCO_COST_INIT_VARIA |
objf_sst(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
114 |
ECCO_COST_INIT_VARIA |
objf_sss(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
115 |
ECCO_COST_INIT_VARIA |
objf_bp(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
116 |
ECCO_COST_INIT_VARIA |
objf_h(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
117 |
ECCO_COST_INIT_VARIA |
objf_tp(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
118 |
ECCO_COST_INIT_VARIA |
objf_ers(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
119 |
ECCO_COST_INIT_VARIA |
objf_gfo(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
120 |
ECCO_COST_INIT_VARIA |
objf_ctdt(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
121 |
ECCO_COST_INIT_VARIA |
objf_ctds(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
122 |
ECCO_COST_INIT_VARIA |
objf_ctdtclim(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
123 |
ECCO_COST_INIT_VARIA |
objf_ctdsclim(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
124 |
ECCO_COST_INIT_VARIA |
objf_xbt(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
125 |
ECCO_COST_INIT_VARIA |
objf_argot(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
126 |
ECCO_COST_INIT_VARIA |
objf_argos(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
127 |
ECCO_COST_INIT_VARIA |
objf_drift(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
128 |
ECCO_COST_INIT_VARIA |
objf_wdrift(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
129 |
ECCO_COST_INIT_VARIA |
objf_sdrift(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
130 |
ECCO_COST_INIT_VARIA |
objf_tdrift(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
131 |
ECCO_COST_INIT_VARIA |
objf_scatx(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
132 |
ECCO_COST_INIT_VARIA |
objf_scaty(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
133 |
ECCO_COST_INIT_VARIA |
objf_scatxm(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
134 |
ECCO_COST_INIT_VARIA |
objf_scatym(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
135 |
ECCO_COST_INIT_VARIA |
objf_atemp(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
136 |
ECCO_COST_INIT_VARIA |
objf_aqh(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
137 |
ECCO_COST_INIT_VARIA |
objf_precip(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
138 |
ECCO_COST_INIT_VARIA |
objf_swflux(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
139 |
ECCO_COST_INIT_VARIA |
objf_swdown(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
140 |
ECCO_COST_INIT_VARIA |
objf_lwflux(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
141 |
ECCO_COST_INIT_VARIA |
objf_lwdown(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
142 |
ECCO_COST_INIT_VARIA |
objf_uwind(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
143 |
ECCO_COST_INIT_VARIA |
objf_vwind(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
145 |
ECCO_COST_INIT_VARIA |
objf_atl(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
147 |
ECCO_COST_INIT_VARIA |
objf_curmtr(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
148 |
ECCO_COST_INIT_VARIA |
objf_diffkr(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
149 |
ECCO_COST_INIT_VARIA |
objf_kapgm(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
150 |
ECCO_COST_INIT_VARIA |
objf_kapredi(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
151 |
ECCO_COST_INIT_VARIA |
objf_theta_ini_fin(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
152 |
ECCO_COST_INIT_VARIA |
objf_salt_ini_fin(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
153 |
ECCO_COST_INIT_VARIA |
objf_eddytau(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
154 |
ECCO_COST_INIT_VARIA |
objf_bottomdrag(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
156 |
ECCO_COST_INIT_VARIA |
objf_usercost(k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
159 |
ECCO_COST_INIT_VARIA |
objf_sshv4cost(k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
161 |
ECCO_COST_INIT_VARIA |
num_hflux(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
162 |
ECCO_COST_INIT_VARIA |
num_hfluxm(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
163 |
ECCO_COST_INIT_VARIA |
num_hfluxmm(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
164 |
ECCO_COST_INIT_VARIA |
num_sflux(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
165 |
ECCO_COST_INIT_VARIA |
num_sfluxm(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
166 |
ECCO_COST_INIT_VARIA |
num_sfluxmm(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
167 |
ECCO_COST_INIT_VARIA |
num_tauu(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
168 |
ECCO_COST_INIT_VARIA |
num_tauum(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
169 |
ECCO_COST_INIT_VARIA |
num_tauv(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
170 |
ECCO_COST_INIT_VARIA |
num_tauvm(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
171 |
ECCO_COST_INIT_VARIA |
num_temp(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
172 |
ECCO_COST_INIT_VARIA |
num_salt(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
173 |
ECCO_COST_INIT_VARIA |
num_temp0(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
174 |
ECCO_COST_INIT_VARIA |
num_salt0(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
175 |
ECCO_COST_INIT_VARIA |
num_etan0(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
176 |
ECCO_COST_INIT_VARIA |
num_uvel0(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
177 |
ECCO_COST_INIT_VARIA |
num_vvel0(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
178 |
ECCO_COST_INIT_VARIA |
num_tmi(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
179 |
ECCO_COST_INIT_VARIA |
num_sst(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
180 |
ECCO_COST_INIT_VARIA |
num_sss(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
181 |
ECCO_COST_INIT_VARIA |
num_bp(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
182 |
ECCO_COST_INIT_VARIA |
num_h(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
183 |
ECCO_COST_INIT_VARIA |
num_tp(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
184 |
ECCO_COST_INIT_VARIA |
num_ers(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
185 |
ECCO_COST_INIT_VARIA |
num_gfo(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
186 |
ECCO_COST_INIT_VARIA |
num_ctdt(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
187 |
ECCO_COST_INIT_VARIA |
num_ctds(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
188 |
ECCO_COST_INIT_VARIA |
num_ctdtclim(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
189 |
ECCO_COST_INIT_VARIA |
num_ctdsclim(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
190 |
ECCO_COST_INIT_VARIA |
num_xbt(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
191 |
ECCO_COST_INIT_VARIA |
num_argot(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
192 |
ECCO_COST_INIT_VARIA |
num_argos(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
193 |
ECCO_COST_INIT_VARIA |
num_drift(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
194 |
ECCO_COST_INIT_VARIA |
num_wdrift(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
195 |
ECCO_COST_INIT_VARIA |
num_sdrift(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
196 |
ECCO_COST_INIT_VARIA |
num_tdrift(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
197 |
ECCO_COST_INIT_VARIA |
num_scatx(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
198 |
ECCO_COST_INIT_VARIA |
num_scaty(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
199 |
ECCO_COST_INIT_VARIA |
num_scatxm(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
200 |
ECCO_COST_INIT_VARIA |
num_scatym(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
201 |
ECCO_COST_INIT_VARIA |
num_atemp(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
202 |
ECCO_COST_INIT_VARIA |
num_aqh(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
203 |
ECCO_COST_INIT_VARIA |
num_precip(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
204 |
ECCO_COST_INIT_VARIA |
num_swflux(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
205 |
ECCO_COST_INIT_VARIA |
num_swdown(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
206 |
ECCO_COST_INIT_VARIA |
num_lwflux(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
207 |
ECCO_COST_INIT_VARIA |
num_lwdown(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
208 |
ECCO_COST_INIT_VARIA |
num_uwind(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
209 |
ECCO_COST_INIT_VARIA |
num_vwind(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
210 |
ECCO_COST_INIT_VARIA |
num_curmtr(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
211 |
ECCO_COST_INIT_VARIA |
num_diffkr(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
212 |
ECCO_COST_INIT_VARIA |
num_kapgm(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
213 |
ECCO_COST_INIT_VARIA |
num_kapredi(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
214 |
ECCO_COST_INIT_VARIA |
num_eddytau(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
215 |
ECCO_COST_INIT_VARIA |
num_bottomdrag(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
217 |
ECCO_COST_INIT_VARIA |
num_usercost(k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
220 |
ECCO_COST_INIT_VARIA |
num_sshv4cost(k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
222 |
ECCO_COST_INIT_VARIA |
num_theta_ini_fin(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
223 |
ECCO_COST_INIT_VARIA |
num_salt_ini_fin(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
228 |
ECCO_COST_INIT_VARIA |
objf_gencost(bi,bj,k) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
229 |
ECCO_COST_INIT_VARIA |
num_gencost(bi,bj,k) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
234 |
ECCO_COST_INIT_VARIA |
objf_obcsn(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
235 |
ECCO_COST_INIT_VARIA |
objf_obcss(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
236 |
ECCO_COST_INIT_VARIA |
objf_obcsw(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
237 |
ECCO_COST_INIT_VARIA |
objf_obcse(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
238 |
ECCO_COST_INIT_VARIA |
objf_ageos(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
239 |
ECCO_COST_INIT_VARIA |
num_obcsn(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
240 |
ECCO_COST_INIT_VARIA |
num_obcss(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
241 |
ECCO_COST_INIT_VARIA |
num_obcsw(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
242 |
ECCO_COST_INIT_VARIA |
num_obcse(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
243 |
ECCO_COST_INIT_VARIA |
num_ageos(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
249 |
ECCO_COST_INIT_VARIA |
cosphi(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
259 |
ECCO_COST_INIT_VARIA |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_init_varia.F |
264 |
ECCO_COST_INIT_VARIA |
if (_hFacC(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/ecco_cost_init_varia.F |
265 |
ECCO_COST_INIT_VARIA |
mdtmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
267 |
ECCO_COST_INIT_VARIA |
mdtmask(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
269 |
ECCO_COST_INIT_VARIA |
mdt(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
272 |
ECCO_COST_INIT_VARIA |
if (_hFacC(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/ecco_cost_init_varia.F |
273 |
ECCO_COST_INIT_VARIA |
tpmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
275 |
ECCO_COST_INIT_VARIA |
tpmask(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
277 |
ECCO_COST_INIT_VARIA |
tpobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
280 |
ECCO_COST_INIT_VARIA |
if (_hFacC(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/ecco_cost_init_varia.F |
281 |
ECCO_COST_INIT_VARIA |
ersmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
283 |
ECCO_COST_INIT_VARIA |
ersmask(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
285 |
ECCO_COST_INIT_VARIA |
ersobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
288 |
ECCO_COST_INIT_VARIA |
if (_hFacC(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/ecco_cost_init_varia.F |
289 |
ECCO_COST_INIT_VARIA |
gfomask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
291 |
ECCO_COST_INIT_VARIA |
gfomask(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
293 |
ECCO_COST_INIT_VARIA |
gfoobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
296 |
ECCO_COST_INIT_VARIA |
if (_hFacC(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/ecco_cost_init_varia.F |
297 |
ECCO_COST_INIT_VARIA |
tmimask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
299 |
ECCO_COST_INIT_VARIA |
tmimask(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
303 |
ECCO_COST_INIT_VARIA |
if (_hFacC(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/ecco_cost_init_varia.F |
304 |
ECCO_COST_INIT_VARIA |
sstmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
306 |
ECCO_COST_INIT_VARIA |
sstmask(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
310 |
ECCO_COST_INIT_VARIA |
if (_hFacC(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/ecco_cost_init_varia.F |
311 |
ECCO_COST_INIT_VARIA |
sssmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
313 |
ECCO_COST_INIT_VARIA |
sssmask(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
317 |
ECCO_COST_INIT_VARIA |
if (_hFacC(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/ecco_cost_init_varia.F |
318 |
ECCO_COST_INIT_VARIA |
bpmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
320 |
ECCO_COST_INIT_VARIA |
bpmask(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
322 |
ECCO_COST_INIT_VARIA |
bpdat(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
330 |
ECCO_COST_INIT_VARIA |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_init_varia.F |
335 |
ECCO_COST_INIT_VARIA |
tbar_gen(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
336 |
ECCO_COST_INIT_VARIA |
sbar_gen(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
53 |
ECCO_COST_INIT_VARIA |
integer bi,bj |
|
./pkg/ecco/ecco_cost_init_varia.F |
92 |
ECCO_COST_INIT_VARIA |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_init_varia.F |
95 |
ECCO_COST_INIT_VARIA |
objf_hflux(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
96 |
ECCO_COST_INIT_VARIA |
objf_hfluxm(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
97 |
ECCO_COST_INIT_VARIA |
objf_sflux(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
98 |
ECCO_COST_INIT_VARIA |
objf_sfluxm(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
99 |
ECCO_COST_INIT_VARIA |
objf_tauu(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1002 |
ECCO_COST_WEIGHTS |
if (wuwind(i,j,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1003 |
ECCO_COST_WEIGHTS |
wuwind(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1005 |
ECCO_COST_WEIGHTS |
wuwind(i,j,bi,bj) = wuwind(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1006 |
ECCO_COST_WEIGHTS |
wuwind(i,j,bi,bj) = max(wuwind(i,j,bi,bj),wwind0) |
|
./pkg/ecco/ecco_cost_weights.F |
1007 |
ECCO_COST_WEIGHTS |
wuwind(i,j,bi,bj) = wuwind(i,j,bi,bj)*maskc(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1028 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
1033 |
ECCO_COST_WEIGHTS |
if (wtauv(i,j,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1034 |
ECCO_COST_WEIGHTS |
wtauv(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1036 |
ECCO_COST_WEIGHTS |
wtauv(i,j,bi,bj) = max(wtauv(i,j,bi,bj),wtau0) |
|
./pkg/ecco/ecco_cost_weights.F |
1038 |
ECCO_COST_WEIGHTS |
wtauv(i,j,bi,bj) = wtauv(i,j,bi,bj)*masks(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1041 |
ECCO_COST_WEIGHTS |
wtauv2(i,j,bi,bj) = wtau0*maskS(i,j,k,bi,bj)*frame(i,j) |
|
./pkg/ecco/ecco_cost_weights.F |
1044 |
ECCO_COST_WEIGHTS |
wtauv(i,j,bi,bj) = wtauv(i,j,bi,bj)*maskc(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1046 |
ECCO_COST_WEIGHTS |
wtauv2(i,j,bi,bj) = wtau0*maskc(i,j,k,bi,bj)*frame(i,j) |
|
./pkg/ecco/ecco_cost_weights.F |
1066 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
1071 |
ECCO_COST_WEIGHTS |
if (wvwind(i,j,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1072 |
ECCO_COST_WEIGHTS |
wvwind(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1074 |
ECCO_COST_WEIGHTS |
wvwind(i,j,bi,bj) = wvwind(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1075 |
ECCO_COST_WEIGHTS |
wvwind(i,j,bi,bj) = max(wvwind(i,j,bi,bj),wwind0) |
|
./pkg/ecco/ecco_cost_weights.F |
1076 |
ECCO_COST_WEIGHTS |
wvwind(i,j,bi,bj) = wvwind(i,j,bi,bj)*maskc(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1098 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
1103 |
ECCO_COST_WEIGHTS |
if (whflux(i,j,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1104 |
ECCO_COST_WEIGHTS |
whflux(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1107 |
ECCO_COST_WEIGHTS |
whflux(i,j,bi,bj) = whflux(i,j,bi,bj)/3. |
|
./pkg/ecco/ecco_cost_weights.F |
1108 |
ECCO_COST_WEIGHTS |
whflux(i,j,bi,bj) = max(whflux(i,j,bi,bj),whflux0) |
|
./pkg/ecco/ecco_cost_weights.F |
1110 |
ECCO_COST_WEIGHTS |
whfluxm(i,j,bi,bj) = max(whfluxm(i,j,bi,bj),whflux0m) |
|
./pkg/ecco/ecco_cost_weights.F |
1113 |
ECCO_COST_WEIGHTS |
whflux2(i,j,bi,bj) = whflux0*frame(i,j) |
|
./pkg/ecco/ecco_cost_weights.F |
1133 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
1138 |
ECCO_COST_WEIGHTS |
if (watemp(i,j,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1139 |
ECCO_COST_WEIGHTS |
watemp(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1142 |
ECCO_COST_WEIGHTS |
watemp(i,j,bi,bj) = watemp(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1143 |
ECCO_COST_WEIGHTS |
watemp(i,j,bi,bj) = max(watemp(i,j,bi,bj),watemp0) |
|
./pkg/ecco/ecco_cost_weights.F |
1166 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
1171 |
ECCO_COST_WEIGHTS |
if (wsflux(i,j,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1172 |
ECCO_COST_WEIGHTS |
wsflux(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1175 |
ECCO_COST_WEIGHTS |
wsflux(i,j,bi,bj) = wsflux(i,j,bi,bj) / 3. |
|
./pkg/ecco/ecco_cost_weights.F |
1176 |
ECCO_COST_WEIGHTS |
wsflux(i,j,bi,bj) = max(wsflux(i,j,bi,bj),wsflux0) |
|
./pkg/ecco/ecco_cost_weights.F |
1178 |
ECCO_COST_WEIGHTS |
wsfluxm(i,j,bi,bj) = max(wsfluxm(i,j,bi,bj),wsflux0m) |
|
./pkg/ecco/ecco_cost_weights.F |
1181 |
ECCO_COST_WEIGHTS |
wsflux2(i,j,bi,bj) = wsflux0*frame(i,j) |
|
./pkg/ecco/ecco_cost_weights.F |
1201 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
1206 |
ECCO_COST_WEIGHTS |
if (waqh(i,j,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1207 |
ECCO_COST_WEIGHTS |
waqh(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1210 |
ECCO_COST_WEIGHTS |
waqh(i,j,bi,bj) = waqh(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1211 |
ECCO_COST_WEIGHTS |
waqh(i,j,bi,bj) = max(waqh(i,j,bi,bj),waqh0) |
|
./pkg/ecco/ecco_cost_weights.F |
1233 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
1238 |
ECCO_COST_WEIGHTS |
if (wprecip(i,j,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1239 |
ECCO_COST_WEIGHTS |
wprecip(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1242 |
ECCO_COST_WEIGHTS |
wprecip(i,j,bi,bj) = wprecip(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1243 |
ECCO_COST_WEIGHTS |
wprecip(i,j,bi,bj) = max(wprecip(i,j,bi,bj),wprecip0) |
|
./pkg/ecco/ecco_cost_weights.F |
125 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
1265 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
1270 |
ECCO_COST_WEIGHTS |
if (wswflux(i,j,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1271 |
ECCO_COST_WEIGHTS |
wswflux(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1274 |
ECCO_COST_WEIGHTS |
wswflux(i,j,bi,bj) = wswflux(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1275 |
ECCO_COST_WEIGHTS |
wswflux(i,j,bi,bj) = max(wswflux(i,j,bi,bj),wswflux0) |
|
./pkg/ecco/ecco_cost_weights.F |
1297 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
129 |
ECCO_COST_WEIGHTS |
whflux (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1302 |
ECCO_COST_WEIGHTS |
if (wswdown(i,j,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1303 |
ECCO_COST_WEIGHTS |
wswdown(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1306 |
ECCO_COST_WEIGHTS |
wswdown(i,j,bi,bj) = wswdown(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1307 |
ECCO_COST_WEIGHTS |
wswdown(i,j,bi,bj) = max(wswdown(i,j,bi,bj),wswdown0) |
|
./pkg/ecco/ecco_cost_weights.F |
130 |
ECCO_COST_WEIGHTS |
whfluxm (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
131 |
ECCO_COST_WEIGHTS |
wsflux (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1329 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
132 |
ECCO_COST_WEIGHTS |
wsfluxm (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1334 |
ECCO_COST_WEIGHTS |
if (wlwflux(i,j,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1335 |
ECCO_COST_WEIGHTS |
wlwflux(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1338 |
ECCO_COST_WEIGHTS |
wlwflux(i,j,bi,bj) = wlwflux(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1339 |
ECCO_COST_WEIGHTS |
wlwflux(i,j,bi,bj) = max(wlwflux(i,j,bi,bj),wlwflux0) |
|
./pkg/ecco/ecco_cost_weights.F |
133 |
ECCO_COST_WEIGHTS |
wtauu (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
134 |
ECCO_COST_WEIGHTS |
wtauum (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
135 |
ECCO_COST_WEIGHTS |
wtauv (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1361 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
1366 |
ECCO_COST_WEIGHTS |
if (wlwdown(i,j,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1367 |
ECCO_COST_WEIGHTS |
wlwdown(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
136 |
ECCO_COST_WEIGHTS |
wtauvm (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1370 |
ECCO_COST_WEIGHTS |
wlwdown(i,j,bi,bj) = wlwdown(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1371 |
ECCO_COST_WEIGHTS |
wlwdown(i,j,bi,bj) = max(wlwdown(i,j,bi,bj),wlwdown0) |
|
./pkg/ecco/ecco_cost_weights.F |
137 |
ECCO_COST_WEIGHTS |
watemp (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
138 |
ECCO_COST_WEIGHTS |
waqh (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1393 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
1398 |
ECCO_COST_WEIGHTS |
if (wsnowprecip(i,j,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1399 |
ECCO_COST_WEIGHTS |
wsnowprecip(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
139 |
ECCO_COST_WEIGHTS |
wprecip (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1402 |
ECCO_COST_WEIGHTS |
wsnowprecip(i,j,bi,bj) = wsnowprecip(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1403 |
ECCO_COST_WEIGHTS |
wsnowprecip(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1404 |
ECCO_COST_WEIGHTS |
& max(wsnowprecip(i,j,bi,bj),wsnowprecip0) |
|
./pkg/ecco/ecco_cost_weights.F |
140 |
ECCO_COST_WEIGHTS |
wswflux (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
141 |
ECCO_COST_WEIGHTS |
wswdown (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1426 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
142 |
ECCO_COST_WEIGHTS |
wsnowprecip (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1431 |
ECCO_COST_WEIGHTS |
if (wevap(i,j,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1432 |
ECCO_COST_WEIGHTS |
wevap(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1435 |
ECCO_COST_WEIGHTS |
wevap(i,j,bi,bj) = wevap(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1436 |
ECCO_COST_WEIGHTS |
wevap(i,j,bi,bj) = max(wevap(i,j,bi,bj),wevap0) |
|
./pkg/ecco/ecco_cost_weights.F |
143 |
ECCO_COST_WEIGHTS |
wlwflux (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
144 |
ECCO_COST_WEIGHTS |
wlwdown (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1458 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
145 |
ECCO_COST_WEIGHTS |
wevap (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1463 |
ECCO_COST_WEIGHTS |
if (wapressure(i,j,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1464 |
ECCO_COST_WEIGHTS |
wapressure(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1467 |
ECCO_COST_WEIGHTS |
wapressure(i,j,bi,bj) = wapressure(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1468 |
ECCO_COST_WEIGHTS |
wapressure(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1469 |
ECCO_COST_WEIGHTS |
& max(wapressure(i,j,bi,bj),wapressure0) |
|
./pkg/ecco/ecco_cost_weights.F |
146 |
ECCO_COST_WEIGHTS |
wapressure(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
147 |
ECCO_COST_WEIGHTS |
wrunoff (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
148 |
ECCO_COST_WEIGHTS |
wuwind (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1491 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
1496 |
ECCO_COST_WEIGHTS |
if (wrunoff(i,j,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1497 |
ECCO_COST_WEIGHTS |
wrunoff(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
149 |
ECCO_COST_WEIGHTS |
wvwind (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1500 |
ECCO_COST_WEIGHTS |
wrunoff(i,j,bi,bj) = wrunoff(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1501 |
ECCO_COST_WEIGHTS |
wrunoff(i,j,bi,bj) = max(wrunoff(i,j,bi,bj),wrunoff0) |
|
./pkg/ecco/ecco_cost_weights.F |
150 |
ECCO_COST_WEIGHTS |
wsst (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1515 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
151 |
ECCO_COST_WEIGHTS |
wsss (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1520 |
ECCO_COST_WEIGHTS |
if (wbottomdrag(i,j,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1521 |
ECCO_COST_WEIGHTS |
wbottomdrag(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
152 |
ECCO_COST_WEIGHTS |
wtp (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1537 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
153 |
ECCO_COST_WEIGHTS |
wers (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1543 |
ECCO_COST_WEIGHTS |
if (wdiffkr2(i,j,k,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1544 |
ECCO_COST_WEIGHTS |
wdiffkr2(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
154 |
ECCO_COST_WEIGHTS |
wgfo (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
155 |
ECCO_COST_WEIGHTS |
wetan (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1561 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
1567 |
ECCO_COST_WEIGHTS |
if (wkapgm2(i,j,k,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1568 |
ECCO_COST_WEIGHTS |
wkapgm2(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
157 |
ECCO_COST_WEIGHTS |
wsshv4 (i,j,num_var,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1585 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
1591 |
ECCO_COST_WEIGHTS |
if (wkapredi2(i,j,k,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1592 |
ECCO_COST_WEIGHTS |
wkapredi2(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
159 |
ECCO_COST_WEIGHTS |
wp (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1609 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
160 |
ECCO_COST_WEIGHTS |
wudrift (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1615 |
ECCO_COST_WEIGHTS |
if (wedtaux2(i,j,k,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1616 |
ECCO_COST_WEIGHTS |
wedtaux2(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1618 |
ECCO_COST_WEIGHTS |
wedtauy2(i,j,k,bi,bj)=wedtaux2(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
161 |
ECCO_COST_WEIGHTS |
wvdrift (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1632 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
1637 |
ECCO_COST_WEIGHTS |
if ( wetan(i,j,bi,bj).eq.0 ) then |
|
./pkg/ecco/ecco_cost_weights.F |
1638 |
ECCO_COST_WEIGHTS |
wetan(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
163 |
ECCO_COST_WEIGHTS |
whflux2 (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1640 |
ECCO_COST_WEIGHTS |
wetan(i,j,bi,bj)=frame(i,j)*maskC(i,j,1,bi,bj)/ |
|
./pkg/ecco/ecco_cost_weights.F |
1641 |
ECCO_COST_WEIGHTS |
$ ( wetan(i,j,bi,bj)*wetan(i,j,bi,bj) ) |
|
./pkg/ecco/ecco_cost_weights.F |
164 |
ECCO_COST_WEIGHTS |
wsflux2 (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
165 |
ECCO_COST_WEIGHTS |
wtauu2 (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
166 |
ECCO_COST_WEIGHTS |
wtauv2 (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1672 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
1678 |
ECCO_COST_WEIGHTS |
if ( wuvel3d(i,j,k,bi,bj).eq.0 ) then |
|
./pkg/ecco/ecco_cost_weights.F |
1679 |
ECCO_COST_WEIGHTS |
wuvel3d(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1681 |
ECCO_COST_WEIGHTS |
wuvel3d(i,j,k,bi,bj)=frame(i,j)*maskW(i,j,k,bi,bj)/ |
|
./pkg/ecco/ecco_cost_weights.F |
1682 |
ECCO_COST_WEIGHTS |
$ ( wuvel3d(i,j,k,bi,bj)*wuvel3d(i,j,k,bi,bj) ) |
|
./pkg/ecco/ecco_cost_weights.F |
1684 |
ECCO_COST_WEIGHTS |
if ( wvvel3d(i,j,k,bi,bj).eq.0 ) then |
|
./pkg/ecco/ecco_cost_weights.F |
1685 |
ECCO_COST_WEIGHTS |
wvvel3d(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1687 |
ECCO_COST_WEIGHTS |
wvvel3d(i,j,k,bi,bj)=frame(i,j)*maskS(i,j,k,bi,bj)/ |
|
./pkg/ecco/ecco_cost_weights.F |
1688 |
ECCO_COST_WEIGHTS |
$ ( wvvel3d(i,j,k,bi,bj)*wvvel3d(i,j,k,bi,bj) ) |
|
./pkg/ecco/ecco_cost_weights.F |
168 |
ECCO_COST_WEIGHTS |
wbottomdrag (i,j,bi,bj) = wbottomdrag0 |
|
./pkg/ecco/ecco_cost_weights.F |
1706 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
1710 |
ECCO_COST_WEIGHTS |
if (wtp(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1711 |
ECCO_COST_WEIGHTS |
wtp (i,j,bi,bj) = 1./wtp(i,j,bi,bj)/wtp(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1713 |
ECCO_COST_WEIGHTS |
if (wers(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1714 |
ECCO_COST_WEIGHTS |
wers(i,j,bi,bj) = 1./wers(i,j,bi,bj)/wers(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1716 |
ECCO_COST_WEIGHTS |
if (wgfo(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1717 |
ECCO_COST_WEIGHTS |
wgfo(i,j,bi,bj) = 1./wgfo(i,j,bi,bj)/wgfo(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1719 |
ECCO_COST_WEIGHTS |
if (wp(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1720 |
ECCO_COST_WEIGHTS |
wp(i,j,bi,bj) = 1./wp(i,j,bi,bj)/wp(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1722 |
ECCO_COST_WEIGHTS |
if (wtauu(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1723 |
ECCO_COST_WEIGHTS |
wtauu(i,j,bi,bj) = 1./wtauu(i,j,bi,bj)/wtauu(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1725 |
ECCO_COST_WEIGHTS |
wtauu(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1727 |
ECCO_COST_WEIGHTS |
if (wtauum(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1728 |
ECCO_COST_WEIGHTS |
wtauum(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1729 |
ECCO_COST_WEIGHTS |
& 1./wtauum(i,j,bi,bj)/wtauum(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1731 |
ECCO_COST_WEIGHTS |
wtauum(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1733 |
ECCO_COST_WEIGHTS |
if (wscatx(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1734 |
ECCO_COST_WEIGHTS |
wscatx(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1735 |
ECCO_COST_WEIGHTS |
& 1./wscatx(i,j,bi,bj)/wscatx(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1737 |
ECCO_COST_WEIGHTS |
wscatx(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1739 |
ECCO_COST_WEIGHTS |
if (wtauv(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
173 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
1740 |
ECCO_COST_WEIGHTS |
wtauv(i,j,bi,bj) = 1./wtauv(i,j,bi,bj)/wtauv(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1742 |
ECCO_COST_WEIGHTS |
wtauv(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1744 |
ECCO_COST_WEIGHTS |
if (wtauvm(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1745 |
ECCO_COST_WEIGHTS |
wtauvm(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1746 |
ECCO_COST_WEIGHTS |
& 1./wtauvm(i,j,bi,bj)/wtauvm(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1748 |
ECCO_COST_WEIGHTS |
wtauvm(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1750 |
ECCO_COST_WEIGHTS |
if (wscaty(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1751 |
ECCO_COST_WEIGHTS |
wscaty(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1752 |
ECCO_COST_WEIGHTS |
& 1./wscaty(i,j,bi,bj)/wscaty(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1754 |
ECCO_COST_WEIGHTS |
wscaty(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1756 |
ECCO_COST_WEIGHTS |
if (whflux(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1757 |
ECCO_COST_WEIGHTS |
whflux(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1758 |
ECCO_COST_WEIGHTS |
& 1./whflux(i,j,bi,bj)/whflux(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1760 |
ECCO_COST_WEIGHTS |
whflux(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1762 |
ECCO_COST_WEIGHTS |
if (whfluxm(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1763 |
ECCO_COST_WEIGHTS |
whfluxm(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1764 |
ECCO_COST_WEIGHTS |
& 1./whfluxm(i,j,bi,bj)/whfluxm(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1766 |
ECCO_COST_WEIGHTS |
whfluxm(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1768 |
ECCO_COST_WEIGHTS |
if (wsflux(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1769 |
ECCO_COST_WEIGHTS |
wsflux(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
176 |
ECCO_COST_WEIGHTS |
wtheta (k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1770 |
ECCO_COST_WEIGHTS |
& 1./wsflux(i,j,bi,bj)/wsflux(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1772 |
ECCO_COST_WEIGHTS |
wsflux(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1774 |
ECCO_COST_WEIGHTS |
if (wsfluxm(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1775 |
ECCO_COST_WEIGHTS |
wsfluxm(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1776 |
ECCO_COST_WEIGHTS |
& 1./wsfluxm(i,j,bi,bj)/wsfluxm(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1778 |
ECCO_COST_WEIGHTS |
wsfluxm(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
177 |
ECCO_COST_WEIGHTS |
wsalt (k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1780 |
ECCO_COST_WEIGHTS |
if (wuwind(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1781 |
ECCO_COST_WEIGHTS |
wuwind(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1782 |
ECCO_COST_WEIGHTS |
& 1./wuwind(i,j,bi,bj)/wuwind(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1784 |
ECCO_COST_WEIGHTS |
wuwind(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1786 |
ECCO_COST_WEIGHTS |
if (wvwind(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1787 |
ECCO_COST_WEIGHTS |
wvwind(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1788 |
ECCO_COST_WEIGHTS |
& 1./wvwind(i,j,bi,bj)/wvwind(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
178 |
ECCO_COST_WEIGHTS |
wuvel (k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1790 |
ECCO_COST_WEIGHTS |
wvwind(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1792 |
ECCO_COST_WEIGHTS |
if (watemp(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1793 |
ECCO_COST_WEIGHTS |
watemp(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1794 |
ECCO_COST_WEIGHTS |
& 1./watemp(i,j,bi,bj)/watemp(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1796 |
ECCO_COST_WEIGHTS |
watemp(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1798 |
ECCO_COST_WEIGHTS |
if (waqh(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1799 |
ECCO_COST_WEIGHTS |
waqh(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
179 |
ECCO_COST_WEIGHTS |
wvvel (k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1800 |
ECCO_COST_WEIGHTS |
& 1./waqh(i,j,bi,bj)/waqh(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1802 |
ECCO_COST_WEIGHTS |
waqh(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1804 |
ECCO_COST_WEIGHTS |
if (wprecip(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1805 |
ECCO_COST_WEIGHTS |
wprecip(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1806 |
ECCO_COST_WEIGHTS |
& 1./wprecip(i,j,bi,bj)/wprecip(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1808 |
ECCO_COST_WEIGHTS |
wprecip(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
180 |
ECCO_COST_WEIGHTS |
wctdt (k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1810 |
ECCO_COST_WEIGHTS |
if (wswflux(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1811 |
ECCO_COST_WEIGHTS |
wswflux(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1812 |
ECCO_COST_WEIGHTS |
& 1./wswflux(i,j,bi,bj)/wswflux(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1814 |
ECCO_COST_WEIGHTS |
wswflux(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1816 |
ECCO_COST_WEIGHTS |
if (wswdown(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1817 |
ECCO_COST_WEIGHTS |
wswdown(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1818 |
ECCO_COST_WEIGHTS |
& 1./wswdown(i,j,bi,bj)/wswdown(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
181 |
ECCO_COST_WEIGHTS |
wctds (k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1820 |
ECCO_COST_WEIGHTS |
wswdown(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1822 |
ECCO_COST_WEIGHTS |
if (wlwflux(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1823 |
ECCO_COST_WEIGHTS |
wlwflux(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1824 |
ECCO_COST_WEIGHTS |
& 1./wlwflux(i,j,bi,bj)/wlwflux(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1826 |
ECCO_COST_WEIGHTS |
wlwflux(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1828 |
ECCO_COST_WEIGHTS |
if (wlwdown(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1829 |
ECCO_COST_WEIGHTS |
wlwdown(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
182 |
ECCO_COST_WEIGHTS |
wdiffkr(k,bi,bj) = wdiffkr0 |
|
./pkg/ecco/ecco_cost_weights.F |
1830 |
ECCO_COST_WEIGHTS |
& 1./wlwdown(i,j,bi,bj)/wlwdown(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1832 |
ECCO_COST_WEIGHTS |
wlwdown(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1834 |
ECCO_COST_WEIGHTS |
if (wevap(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1835 |
ECCO_COST_WEIGHTS |
wevap(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1836 |
ECCO_COST_WEIGHTS |
& 1./wevap(i,j,bi,bj)/wevap(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1838 |
ECCO_COST_WEIGHTS |
wevap(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
183 |
ECCO_COST_WEIGHTS |
wkapgm (k,bi,bj) = wkapgm0 |
|
./pkg/ecco/ecco_cost_weights.F |
1840 |
ECCO_COST_WEIGHTS |
if (wsnowprecip(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1841 |
ECCO_COST_WEIGHTS |
wsnowprecip(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1842 |
ECCO_COST_WEIGHTS |
& 1./wsnowprecip(i,j,bi,bj)/wsnowprecip(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1844 |
ECCO_COST_WEIGHTS |
wsnowprecip(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1846 |
ECCO_COST_WEIGHTS |
if (wapressure(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1847 |
ECCO_COST_WEIGHTS |
wapressure(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1848 |
ECCO_COST_WEIGHTS |
& 1./wapressure(i,j,bi,bj)/wapressure(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
184 |
ECCO_COST_WEIGHTS |
wkapredi (k,bi,bj) = wkapredi0 |
|
./pkg/ecco/ecco_cost_weights.F |
1850 |
ECCO_COST_WEIGHTS |
wapressure(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1852 |
ECCO_COST_WEIGHTS |
if (wrunoff(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1853 |
ECCO_COST_WEIGHTS |
wrunoff(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1854 |
ECCO_COST_WEIGHTS |
& 1./wrunoff(i,j,bi,bj)/wrunoff(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1856 |
ECCO_COST_WEIGHTS |
wrunoff(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1858 |
ECCO_COST_WEIGHTS |
if (wbottomdrag(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1859 |
ECCO_COST_WEIGHTS |
wbottomdrag(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
185 |
ECCO_COST_WEIGHTS |
wedtaux(k,bi,bj) = wedtau0 |
|
./pkg/ecco/ecco_cost_weights.F |
1860 |
ECCO_COST_WEIGHTS |
& 1./wbottomdrag(i,j,bi,bj)/wbottomdrag(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1862 |
ECCO_COST_WEIGHTS |
wbottomdrag(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
186 |
ECCO_COST_WEIGHTS |
wedtauy(k,bi,bj) = wedtau0 |
|
./pkg/ecco/ecco_cost_weights.F |
1872 |
ECCO_COST_WEIGHTS |
if (whflux2(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1873 |
ECCO_COST_WEIGHTS |
whflux2(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1874 |
ECCO_COST_WEIGHTS |
& 1./whflux2(i,j,bi,bj)/whflux2(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1876 |
ECCO_COST_WEIGHTS |
whflux2(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1878 |
ECCO_COST_WEIGHTS |
if (wsflux2(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1879 |
ECCO_COST_WEIGHTS |
wsflux2(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1880 |
ECCO_COST_WEIGHTS |
& 1./wsflux2(i,j,bi,bj)/wsflux2(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1882 |
ECCO_COST_WEIGHTS |
wsflux2(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1884 |
ECCO_COST_WEIGHTS |
if (wtauu2(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1885 |
ECCO_COST_WEIGHTS |
wtauu2(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1886 |
ECCO_COST_WEIGHTS |
& 1./wtauu2(i,j,bi,bj)/wtauu2(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1888 |
ECCO_COST_WEIGHTS |
wtauu2(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1890 |
ECCO_COST_WEIGHTS |
if (wtauv2(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1891 |
ECCO_COST_WEIGHTS |
wtauv2(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1892 |
ECCO_COST_WEIGHTS |
& 1./wtauv2(i,j,bi,bj)/wtauv2(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1894 |
ECCO_COST_WEIGHTS |
wtauv2(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
189 |
ECCO_COST_WEIGHTS |
wtheta2 (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
190 |
ECCO_COST_WEIGHTS |
wsalt2 (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
191 |
ECCO_COST_WEIGHTS |
wdiffkr2(i,j,k,bi,bj) = wdiffkr0 |
|
./pkg/ecco/ecco_cost_weights.F |
192 |
ECCO_COST_WEIGHTS |
wkapgm2 (i,j,k,bi,bj) = wkapgm0 |
|
./pkg/ecco/ecco_cost_weights.F |
193 |
ECCO_COST_WEIGHTS |
wkapredi2 (i,j,k,bi,bj) = wkapredi0 |
|
./pkg/ecco/ecco_cost_weights.F |
1944 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
1947 |
ECCO_COST_WEIGHTS |
if (wdiffkr(k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1948 |
ECCO_COST_WEIGHTS |
wdiffkr(k,bi,bj) = 1./wdiffkr(k,bi,bj)/wdiffkr(k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
194 |
ECCO_COST_WEIGHTS |
wedtaux2(i,j,k,bi,bj) = wedtau0 |
|
./pkg/ecco/ecco_cost_weights.F |
1950 |
ECCO_COST_WEIGHTS |
wdiffkr(k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1952 |
ECCO_COST_WEIGHTS |
if (wkapgm(k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1953 |
ECCO_COST_WEIGHTS |
wkapgm(k,bi,bj) = 1./wkapgm(k,bi,bj)/wkapgm(k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1955 |
ECCO_COST_WEIGHTS |
wkapgm(k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1957 |
ECCO_COST_WEIGHTS |
if (wkapredi(k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1958 |
ECCO_COST_WEIGHTS |
wkapredi(k,bi,bj) = 1./wkapredi(k,bi,bj)/wkapredi(k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
195 |
ECCO_COST_WEIGHTS |
wedtauy2(i,j,k,bi,bj) = wedtau0 |
|
./pkg/ecco/ecco_cost_weights.F |
1960 |
ECCO_COST_WEIGHTS |
wkapredi(k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1962 |
ECCO_COST_WEIGHTS |
if (wedtaux(k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1963 |
ECCO_COST_WEIGHTS |
wedtaux(k,bi,bj) = 1./wedtaux(k,bi,bj)/wedtaux(k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1965 |
ECCO_COST_WEIGHTS |
wedtaux(k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1967 |
ECCO_COST_WEIGHTS |
if (wedtauy(k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1968 |
ECCO_COST_WEIGHTS |
wedtauy(k,bi,bj) = 1./wedtauy(k,bi,bj)/wedtauy(k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
196 |
ECCO_COST_WEIGHTS |
wthetaLev (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1970 |
ECCO_COST_WEIGHTS |
wedtauy(k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1974 |
ECCO_COST_WEIGHTS |
if (wdiffkr2(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1975 |
ECCO_COST_WEIGHTS |
wdiffkr2(i,j,k,bi,bj) = frame(i,j)/ |
|
./pkg/ecco/ecco_cost_weights.F |
1976 |
ECCO_COST_WEIGHTS |
& wdiffkr2(i,j,k,bi,bj)/wdiffkr2(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1978 |
ECCO_COST_WEIGHTS |
wdiffkr2(i,j,k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
197 |
ECCO_COST_WEIGHTS |
wsaltLev (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1980 |
ECCO_COST_WEIGHTS |
wdiffkrFld(i,j,k,bi,bj) = wdiffkr2(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1982 |
ECCO_COST_WEIGHTS |
if (wkapgm2(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1983 |
ECCO_COST_WEIGHTS |
wkapgm2(i,j,k,bi,bj) = frame(i,j)/ |
|
./pkg/ecco/ecco_cost_weights.F |
1984 |
ECCO_COST_WEIGHTS |
& wkapgm2(i,j,k,bi,bj)/wkapgm2(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1986 |
ECCO_COST_WEIGHTS |
wkapgm2(i,j,k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1988 |
ECCO_COST_WEIGHTS |
wkapgmFld(i,j,k,bi,bj) = wkapgm2(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
198 |
ECCO_COST_WEIGHTS |
wdiffkrFld(i,j,k,bi,bj) = wdiffkr0 |
|
./pkg/ecco/ecco_cost_weights.F |
1990 |
ECCO_COST_WEIGHTS |
if (wkapredi2(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1991 |
ECCO_COST_WEIGHTS |
wkapredi2(i,j,k,bi,bj) = frame(i,j)/ |
|
./pkg/ecco/ecco_cost_weights.F |
1992 |
ECCO_COST_WEIGHTS |
& wkapredi2(i,j,k,bi,bj)/wkapredi2(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1994 |
ECCO_COST_WEIGHTS |
wkapredi2(i,j,k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1996 |
ECCO_COST_WEIGHTS |
wkaprediFld(i,j,k,bi,bj) = wkapredi2(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1998 |
ECCO_COST_WEIGHTS |
if (wedtaux2(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1999 |
ECCO_COST_WEIGHTS |
wedtaux2(i,j,k,bi,bj) = frame(i,j)/ |
|
./pkg/ecco/ecco_cost_weights.F |
199 |
ECCO_COST_WEIGHTS |
wkapgmFld (i,j,k,bi,bj) = wkapgm0 |
|
./pkg/ecco/ecco_cost_weights.F |
2000 |
ECCO_COST_WEIGHTS |
& wedtaux2(i,j,k,bi,bj)/wedtaux2(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
2002 |
ECCO_COST_WEIGHTS |
wedtaux2(i,j,k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
2004 |
ECCO_COST_WEIGHTS |
wedtauxFld(i,j,k,bi,bj) = wedtaux2(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
2006 |
ECCO_COST_WEIGHTS |
if (wedtauy2(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
2007 |
ECCO_COST_WEIGHTS |
wedtauy2(i,j,k,bi,bj) = frame(i,j)/ |
|
./pkg/ecco/ecco_cost_weights.F |
2008 |
ECCO_COST_WEIGHTS |
& wedtauy2(i,j,k,bi,bj)/wedtauy2(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
200 |
ECCO_COST_WEIGHTS |
wkaprediFld (i,j,k,bi,bj) = wkapredi0 |
|
./pkg/ecco/ecco_cost_weights.F |
2010 |
ECCO_COST_WEIGHTS |
wedtauy2(i,j,k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
2012 |
ECCO_COST_WEIGHTS |
wedtauyFld(i,j,k,bi,bj) = wedtauy2(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
201 |
ECCO_COST_WEIGHTS |
wedtauxFld(i,j,k,bi,bj) = wedtau0 |
|
./pkg/ecco/ecco_cost_weights.F |
202 |
ECCO_COST_WEIGHTS |
wedtauyFld(i,j,k,bi,bj) = wedtau0 |
|
./pkg/ecco/ecco_cost_weights.F |
205 |
ECCO_COST_WEIGHTS |
wuvel3d(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
206 |
ECCO_COST_WEIGHTS |
wvvel3d(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
266 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
272 |
ECCO_COST_WEIGHTS |
cosphi(i,j,bi,bj) = frame(i,j) |
|
./pkg/ecco/ecco_cost_weights.F |
317 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
328 |
ECCO_COST_WEIGHTS |
wtheta(k,bi,bj) = wti(k) |
|
./pkg/ecco/ecco_cost_weights.F |
329 |
ECCO_COST_WEIGHTS |
wsalt (k,bi,bj) = wsi(k) |
|
./pkg/ecco/ecco_cost_weights.F |
330 |
ECCO_COST_WEIGHTS |
wcurrent(k,bi,bj) = wvi(k) |
|
./pkg/ecco/ecco_cost_weights.F |
332 |
ECCO_COST_WEIGHTS |
if (wtheta(k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
333 |
ECCO_COST_WEIGHTS |
wtheta(k,bi,bj) = ratio/wtheta(k,bi,bj)/wtheta(k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
335 |
ECCO_COST_WEIGHTS |
wtheta(k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
337 |
ECCO_COST_WEIGHTS |
if (wsalt(k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
338 |
ECCO_COST_WEIGHTS |
wsalt(k,bi,bj) = ratio/wsalt(k,bi,bj)/wsalt(k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
340 |
ECCO_COST_WEIGHTS |
wsalt(k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
383 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
389 |
ECCO_COST_WEIGHTS |
if ( wsaltLev(i,j,k,bi,bj).eq.0 ) then |
|
./pkg/ecco/ecco_cost_weights.F |
390 |
ECCO_COST_WEIGHTS |
wsaltLev(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
392 |
ECCO_COST_WEIGHTS |
wsaltLev(i,j,k,bi,bj)=frame(i,j)*maskC(i,j,k,bi,bj)/ |
|
./pkg/ecco/ecco_cost_weights.F |
393 |
ECCO_COST_WEIGHTS |
$ ( wsaltLev(i,j,k,bi,bj)*wsaltLev(i,j,k,bi,bj) ) |
|
./pkg/ecco/ecco_cost_weights.F |
401 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
406 |
ECCO_COST_WEIGHTS |
wsaltLev(i,j,k,bi,bj)= |
|
./pkg/ecco/ecco_cost_weights.F |
407 |
ECCO_COST_WEIGHTS |
$ wsalt(k,bi,bj)*frame(i,j)*maskC(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
426 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
432 |
ECCO_COST_WEIGHTS |
if ( wthetaLev(i,j,k,bi,bj).eq.0 ) then |
|
./pkg/ecco/ecco_cost_weights.F |
433 |
ECCO_COST_WEIGHTS |
wthetaLev(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
435 |
ECCO_COST_WEIGHTS |
wthetaLev(i,j,k,bi,bj)=frame(i,j)*maskC(i,j,k,bi,bj)/ |
|
./pkg/ecco/ecco_cost_weights.F |
436 |
ECCO_COST_WEIGHTS |
$ ( wthetaLev(i,j,k,bi,bj)*wthetaLev(i,j,k,bi,bj) ) |
|
./pkg/ecco/ecco_cost_weights.F |
444 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
449 |
ECCO_COST_WEIGHTS |
wthetaLev(i,j,k,bi,bj)= |
|
./pkg/ecco/ecco_cost_weights.F |
450 |
ECCO_COST_WEIGHTS |
$ wtheta(k,bi,bj)*frame(i,j)*maskC(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
472 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
478 |
ECCO_COST_WEIGHTS |
if (wsalt(k,bi,bj).eq.0. .or. |
|
./pkg/ecco/ecco_cost_weights.F |
479 |
ECCO_COST_WEIGHTS |
$ wsalt2(i,j,k,bi,bj).eq.0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
480 |
ECCO_COST_WEIGHTS |
wsalt2(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
482 |
ECCO_COST_WEIGHTS |
wsalt2(i,j,k,bi,bj)=frame(i,j)*maskC(i,j,k,bi,bj)/ |
|
./pkg/ecco/ecco_cost_weights.F |
483 |
ECCO_COST_WEIGHTS |
$ ( wsalt2(i,j,k,bi,bj)*wsalt2(i,j,k,bi,bj) ) |
|
./pkg/ecco/ecco_cost_weights.F |
491 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
496 |
ECCO_COST_WEIGHTS |
wsalt2(i,j,k,bi,bj)= |
|
./pkg/ecco/ecco_cost_weights.F |
497 |
ECCO_COST_WEIGHTS |
$ wsalt(k,bi,bj)*frame(i,j)*maskC(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
519 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
525 |
ECCO_COST_WEIGHTS |
if (wtheta(k,bi,bj).eq.0. .or. |
|
./pkg/ecco/ecco_cost_weights.F |
526 |
ECCO_COST_WEIGHTS |
$ wtheta2(i,j,k,bi,bj).eq.0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
527 |
ECCO_COST_WEIGHTS |
wtheta2(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
529 |
ECCO_COST_WEIGHTS |
wtheta2(i,j,k,bi,bj)= frame(i,j)*maskC(i,j,k,bi,bj)/ |
|
./pkg/ecco/ecco_cost_weights.F |
530 |
ECCO_COST_WEIGHTS |
$ ( wtheta2(i,j,k,bi,bj)*wtheta2(i,j,k,bi,bj) ) |
|
./pkg/ecco/ecco_cost_weights.F |
538 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
543 |
ECCO_COST_WEIGHTS |
if (wtheta(k,bi,bj).eq.0 ) then |
|
./pkg/ecco/ecco_cost_weights.F |
544 |
ECCO_COST_WEIGHTS |
wtheta2(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
546 |
ECCO_COST_WEIGHTS |
wtheta2(i,j,k,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
547 |
ECCO_COST_WEIGHTS |
$ wtheta(k,bi,bj)*frame(i,j)*maskC(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
570 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
580 |
ECCO_COST_WEIGHTS |
if (wsst(i,j,bi,bj).ne.0) |
|
./pkg/ecco/ecco_cost_weights.F |
581 |
ECCO_COST_WEIGHTS |
& wsst(i,j,bi,bj)= frame(i,j)*maskC(i,j,k,bi,bj)/ |
|
./pkg/ecco/ecco_cost_weights.F |
582 |
ECCO_COST_WEIGHTS |
& ( wsst(i,j,bi,bj)*wsst(i,j,bi,bj) ) |
|
./pkg/ecco/ecco_cost_weights.F |
586 |
ECCO_COST_WEIGHTS |
wsst(i,j,bi,bj) = wtheta2(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
588 |
ECCO_COST_WEIGHTS |
wsst(i,j,bi,bj) = wthetaLev(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
58 |
ECCO_COST_WEIGHTS |
integer bi,bj |
|
./pkg/ecco/ecco_cost_weights.F |
590 |
ECCO_COST_WEIGHTS |
wsst(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
591 |
ECCO_COST_WEIGHTS |
& wtheta(k,bi,bj)*frame(i,j)*maskC(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
600 |
ECCO_COST_WEIGHTS |
if (wsss(i,j,bi,bj).ne.0) |
|
./pkg/ecco/ecco_cost_weights.F |
601 |
ECCO_COST_WEIGHTS |
& wsss(i,j,bi,bj)= frame(i,j)*maskC(i,j,k,bi,bj)/ |
|
./pkg/ecco/ecco_cost_weights.F |
602 |
ECCO_COST_WEIGHTS |
& ( wsss(i,j,bi,bj)*wsss(i,j,bi,bj) ) |
|
./pkg/ecco/ecco_cost_weights.F |
607 |
ECCO_COST_WEIGHTS |
wsss(i,j,bi,bj) = wsalt2(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
609 |
ECCO_COST_WEIGHTS |
wsss(i,j,bi,bj) = wsaltLev(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
611 |
ECCO_COST_WEIGHTS |
wsss(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
612 |
ECCO_COST_WEIGHTS |
& wsalt(k,bi,bj)*frame(i,j)*maskC(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
642 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
646 |
ECCO_COST_WEIGHTS |
wp(i,j,bi,bj) = wp(i,j,bi,bj)*frame(i,j) |
|
./pkg/ecco/ecco_cost_weights.F |
648 |
ECCO_COST_WEIGHTS |
if ( xC(i,j,bi,bj) .GT. 120. .AND. |
|
./pkg/ecco/ecco_cost_weights.F |
649 |
ECCO_COST_WEIGHTS |
& xC(i,j,bi,bj) .LT. 130. .AND. |
|
./pkg/ecco/ecco_cost_weights.F |
650 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .GT. -10. .AND. |
|
./pkg/ecco/ecco_cost_weights.F |
651 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .LT. 10. ) then |
|
./pkg/ecco/ecco_cost_weights.F |
652 |
ECCO_COST_WEIGHTS |
wp(i,j,bi,bj) = wp(i,j,bi,bj)*100. |
|
./pkg/ecco/ecco_cost_weights.F |
661 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
665 |
ECCO_COST_WEIGHTS |
wp(i,j,bi,bj) = frame(i,j) |
|
./pkg/ecco/ecco_cost_weights.F |
681 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
688 |
ECCO_COST_WEIGHTS |
if (maskC(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
689 |
ECCO_COST_WEIGHTS |
wtp (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
690 |
ECCO_COST_WEIGHTS |
wers(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
691 |
ECCO_COST_WEIGHTS |
wgfo(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
693 |
ECCO_COST_WEIGHTS |
wtp (i,j,bi,bj) = ( wtp(i,j,bi,bj) * 0.01 * 0.5 ) |
|
./pkg/ecco/ecco_cost_weights.F |
695 |
ECCO_COST_WEIGHTS |
wers(i,j,bi,bj) = ( wtp(i,j,bi,bj) + 0.05 ) |
|
./pkg/ecco/ecco_cost_weights.F |
697 |
ECCO_COST_WEIGHTS |
wgfo(i,j,bi,bj) = wers(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
720 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
725 |
ECCO_COST_WEIGHTS |
if (maskC(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
727 |
ECCO_COST_WEIGHTS |
& wtp (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
729 |
ECCO_COST_WEIGHTS |
& wers(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
731 |
ECCO_COST_WEIGHTS |
& wgfo(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
735 |
ECCO_COST_WEIGHTS |
wtp (i,j,bi,bj) = wtp (i,j,bi,bj) * 0.01 * frame(i,j) |
|
./pkg/ecco/ecco_cost_weights.F |
741 |
ECCO_COST_WEIGHTS |
wers(i,j,bi,bj) = wers(i,j,bi,bj) * 0.01 * frame(i,j) |
|
./pkg/ecco/ecco_cost_weights.F |
742 |
ECCO_COST_WEIGHTS |
if ( wers(i,j,bi,bj) .EQ. 0. ) |
|
./pkg/ecco/ecco_cost_weights.F |
743 |
ECCO_COST_WEIGHTS |
& wers(i,j,bi,bj) = 0.1 * frame(i,j) |
|
./pkg/ecco/ecco_cost_weights.F |
746 |
ECCO_COST_WEIGHTS |
wgfo(i,j,bi,bj) = wgfo(i,j,bi,bj) * 0.01 * frame(i,j) |
|
./pkg/ecco/ecco_cost_weights.F |
747 |
ECCO_COST_WEIGHTS |
if ( wgfo(i,j,bi,bj) .EQ. 0. ) |
|
./pkg/ecco/ecco_cost_weights.F |
748 |
ECCO_COST_WEIGHTS |
& wgfo(i,j,bi,bj) = 0.1 * frame(i,j) |
|
./pkg/ecco/ecco_cost_weights.F |
757 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
762 |
ECCO_COST_WEIGHTS |
if ( xC(i,j,bi,bj) .GT. 120. .AND. |
|
./pkg/ecco/ecco_cost_weights.F |
763 |
ECCO_COST_WEIGHTS |
& xC(i,j,bi,bj) .LT. 130. .AND. |
|
./pkg/ecco/ecco_cost_weights.F |
764 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .GT. -10. .AND. |
|
./pkg/ecco/ecco_cost_weights.F |
765 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .LT. 10. ) then |
|
./pkg/ecco/ecco_cost_weights.F |
766 |
ECCO_COST_WEIGHTS |
wtp(i,j,bi,bj) = wtp(i,j,bi,bj)*100. |
|
./pkg/ecco/ecco_cost_weights.F |
767 |
ECCO_COST_WEIGHTS |
wers(i,j,bi,bj) = wers(i,j,bi,bj)*100. |
|
./pkg/ecco/ecco_cost_weights.F |
768 |
ECCO_COST_WEIGHTS |
wgfo(i,j,bi,bj) = wgfo(i,j,bi,bj)*100. |
|
./pkg/ecco/ecco_cost_weights.F |
787 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
791 |
ECCO_COST_WEIGHTS |
wsshv4tmp(i,j,bi,bj)=wsshv4tmp(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
798 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
802 |
ECCO_COST_WEIGHTS |
wsshv4tmp(i,j,bi,bj)=0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
809 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
813 |
ECCO_COST_WEIGHTS |
if (wsshv4tmp(i,j,bi,bj).ne.0) then |
|
./pkg/ecco/ecco_cost_weights.F |
814 |
ECCO_COST_WEIGHTS |
wsshv4tmp(i,j,bi,bj)= frame(i,j)*maskC(i,j,k,bi,bj)/ |
|
./pkg/ecco/ecco_cost_weights.F |
815 |
ECCO_COST_WEIGHTS |
& ( wsshv4tmp(i,j,bi,bj)* wsshv4tmp(i,j,bi,bj) ) |
|
./pkg/ecco/ecco_cost_weights.F |
816 |
ECCO_COST_WEIGHTS |
wsshv4(i,j,num_var,bi,bj)=wsshv4tmp(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
837 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
841 |
ECCO_COST_WEIGHTS |
if (wbp(i,j,bi,bj).ne.0) |
|
./pkg/ecco/ecco_cost_weights.F |
842 |
ECCO_COST_WEIGHTS |
& wbp(i,j,bi,bj)= frame(i,j)*maskC(i,j,k,bi,bj)/ |
|
./pkg/ecco/ecco_cost_weights.F |
843 |
ECCO_COST_WEIGHTS |
& ( wbp(i,j,bi,bj)* wbp(i,j,bi,bj) ) |
|
./pkg/ecco/ecco_cost_weights.F |
858 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
862 |
ECCO_COST_WEIGHTS |
if (wies(i,j,bi,bj).ne.0) |
|
./pkg/ecco/ecco_cost_weights.F |
863 |
ECCO_COST_WEIGHTS |
& wies(i,j,bi,bj)= frame(i,j)*maskC(i,j,k,bi,bj)/ |
|
./pkg/ecco/ecco_cost_weights.F |
864 |
ECCO_COST_WEIGHTS |
& ( wies(i,j,bi,bj)* wies(i,j,bi,bj) ) |
|
./pkg/ecco/ecco_cost_weights.F |
887 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
893 |
ECCO_COST_WEIGHTS |
if (wscatx(i,j,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
894 |
ECCO_COST_WEIGHTS |
wscatx(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
896 |
ECCO_COST_WEIGHTS |
wscatx(i,j,bi,bj) = wscatx(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
897 |
ECCO_COST_WEIGHTS |
wscatx(i,j,bi,bj) = max(wscatx(i,j,bi,bj),wtau0) |
|
./pkg/ecco/ecco_cost_weights.F |
898 |
ECCO_COST_WEIGHTS |
wscatx(i,j,bi,bj) = wscatx(i,j,bi,bj)*maskw(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
900 |
ECCO_COST_WEIGHTS |
if (wscaty(i,j,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
901 |
ECCO_COST_WEIGHTS |
wscaty(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
903 |
ECCO_COST_WEIGHTS |
wscaty(i,j,bi,bj) = wscaty(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
904 |
ECCO_COST_WEIGHTS |
wscaty(i,j,bi,bj) = max(wscaty(i,j,bi,bj),wtau0) |
|
./pkg/ecco/ecco_cost_weights.F |
905 |
ECCO_COST_WEIGHTS |
wscaty(i,j,bi,bj) = wscaty(i,j,bi,bj)*masks(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
924 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
930 |
ECCO_COST_WEIGHTS |
if (wtauum(i,j,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
931 |
ECCO_COST_WEIGHTS |
wtauum(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
933 |
ECCO_COST_WEIGHTS |
wtauum(i,j,bi,bj) = max(wtauum(i,j,bi,bj),wtau0m) |
|
./pkg/ecco/ecco_cost_weights.F |
936 |
ECCO_COST_WEIGHTS |
if (wtauvm(i,j,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
937 |
ECCO_COST_WEIGHTS |
wtauvm(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
939 |
ECCO_COST_WEIGHTS |
wtauvm(i,j,bi,bj) = max(wtauvm(i,j,bi,bj),wtau0m) |
|
./pkg/ecco/ecco_cost_weights.F |
958 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
964 |
ECCO_COST_WEIGHTS |
if (wtauu(i,j,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
965 |
ECCO_COST_WEIGHTS |
wtauu(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
967 |
ECCO_COST_WEIGHTS |
wtauu(i,j,bi,bj) = max(wtauu(i,j,bi,bj),wtau0) |
|
./pkg/ecco/ecco_cost_weights.F |
969 |
ECCO_COST_WEIGHTS |
wtauu(i,j,bi,bj) = wtauu(i,j,bi,bj)*maskw(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
972 |
ECCO_COST_WEIGHTS |
wtauu2(i,j,bi,bj) = wtau0*maskW(i,j,k,bi,bj)*frame(i,j) |
|
./pkg/ecco/ecco_cost_weights.F |
975 |
ECCO_COST_WEIGHTS |
wtauu(i,j,bi,bj) = wtauu(i,j,bi,bj)*maskc(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
977 |
ECCO_COST_WEIGHTS |
wtauu2(i,j,bi,bj) = wtau0*maskc(i,j,k,bi,bj)*frame(i,j) |
|
./pkg/ecco/ecco_cost_weights.F |
996 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_phys.F |
100 |
ECCO_PHYS |
& hFacC(i,j,k,bi,bj)*drF(k)*rA(i,j,bi,bj) |
|
./pkg/ecco/ecco_phys.F |
128 |
ECCO_PHYS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/ecco/ecco_phys.F |
132 |
ECCO_PHYS |
m_eta(i,j,bi,bj)= |
|
./pkg/ecco/ecco_phys.F |
133 |
ECCO_PHYS |
& etan(i,j,bi,bj) |
|
./pkg/ecco/ecco_phys.F |
135 |
ECCO_PHYS |
& +sIceLoad(i,j,bi,bj)*sIceLoadFac |
|
./pkg/ecco/ecco_phys.F |
145 |
ECCO_PHYS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/ecco/ecco_phys.F |
150 |
ECCO_PHYS |
m_UE(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/ecco/ecco_phys.F |
151 |
ECCO_PHYS |
m_VN(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/ecco/ecco_phys.F |
174 |
ECCO_PHYS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/ecco/ecco_phys.F |
194 |
ECCO_PHYS |
& uVel(i,j,k,bi,bj)*hFacW(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_phys.F |
195 |
ECCO_PHYS |
& *dyG(i,j,bi,bj)*drF(k)*msktrVolW(i,j,bi,bj) |
|
./pkg/ecco/ecco_phys.F |
196 |
ECCO_PHYS |
& *maskInW(i,j,bi,bj) |
|
./pkg/ecco/ecco_phys.F |
198 |
ECCO_PHYS |
& vVel(i,j,k,bi,bj)*hFacS(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_phys.F |
199 |
ECCO_PHYS |
& *dxG(i,j,bi,bj)*drF(k)*msktrVolS(i,j,bi,bj) |
|
./pkg/ecco/ecco_phys.F |
200 |
ECCO_PHYS |
& *maskInS(i,j,bi,bj) |
|
./pkg/ecco/ecco_phys.F |
203 |
ECCO_PHYS |
& *(theta(i,j,k,bi,bj)+theta(i-1,j,k,bi,bj))*halfRL |
|
./pkg/ecco/ecco_phys.F |
206 |
ECCO_PHYS |
& *(theta(i,j,k,bi,bj)+theta(i,j-1,k,bi,bj))*halfRL |
|
./pkg/ecco/ecco_phys.F |
210 |
ECCO_PHYS |
& *(salt(i,j,k,bi,bj)+salt(i-1,j,k,bi,bj))*halfRL |
|
./pkg/ecco/ecco_phys.F |
213 |
ECCO_PHYS |
& *(salt(i,j,k,bi,bj)+salt(i,j-1,k,bi,bj))*halfRL |
|
./pkg/ecco/ecco_phys.F |
216 |
ECCO_PHYS |
trVol(i,j,k,bi,bj)=trVolW(i,j,k)+trVolS(i,j,k) |
|
./pkg/ecco/ecco_phys.F |
217 |
ECCO_PHYS |
trHeat(i,j,k,bi,bj)=trHeatW(i,j,k)+trHeatS(i,j,k) |
|
./pkg/ecco/ecco_phys.F |
218 |
ECCO_PHYS |
trSalt(i,j,k,bi,bj)=trSaltW(i,j,k)+trSaltS(i,j,k) |
|
./pkg/ecco/ecco_phys.F |
235 |
ECCO_PHYS |
do bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/ecco/ecco_phys.F |
237 |
ECCO_PHYS |
areavolTile(bi,bj)=0. _d 0 |
|
./pkg/ecco/ecco_phys.F |
242 |
ECCO_PHYS |
do bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/ecco/ecco_phys.F |
248 |
ECCO_PHYS |
tmpvol=hFacC(i,j,k,bi,bj)*drF(k)*rA(i,j,bi,bj) |
|
./pkg/ecco/ecco_phys.F |
252 |
ECCO_PHYS |
tmpmsk=gencost_mskCsurf(i,j,bi,bj,kgen)* |
|
./pkg/ecco/ecco_phys.F |
257 |
ECCO_PHYS |
tmpmsk=gencost_mskC(i,j,k,bi,bj,kgen3d) |
|
./pkg/ecco/ecco_phys.F |
264 |
ECCO_PHYS |
tmpfld=theta(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_phys.F |
268 |
ECCO_PHYS |
tmpfld=salt(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_phys.F |
273 |
ECCO_PHYS |
tmpfld=pTracer(i,j,k,bi,bj,itr) |
|
./pkg/ecco/ecco_phys.F |
278 |
ECCO_PHYS |
gencost_storefld(i,j,bi,bj,kgen) = |
|
./pkg/ecco/ecco_phys.F |
279 |
ECCO_PHYS |
& gencost_storefld(i,j,bi,bj,kgen) |
|
./pkg/ecco/ecco_phys.F |
281 |
ECCO_PHYS |
areavolTile(bi,bj)=areavolTile(bi,bj) |
|
./pkg/ecco/ecco_phys.F |
282 |
ECCO_PHYS |
& +tmpmsk2*eccoVol_0(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_phys.F |
286 |
ECCO_PHYS |
tmpmsk=maskC(i,j,1,bi,bj)*gencost_mskCsurf(i,j,bi,bj,kgen) |
|
./pkg/ecco/ecco_phys.F |
290 |
ECCO_PHYS |
tmpfld=m_eta(i,j,bi,bj) |
|
./pkg/ecco/ecco_phys.F |
294 |
ECCO_PHYS |
gencost_storefld(i,j,bi,bj,kgen) = |
|
./pkg/ecco/ecco_phys.F |
295 |
ECCO_PHYS |
& gencost_storefld(i,j,bi,bj,kgen) |
|
./pkg/ecco/ecco_phys.F |
296 |
ECCO_PHYS |
& +tmpmsk*tmpfld*rA(i,j,bi,bj) |
|
./pkg/ecco/ecco_phys.F |
297 |
ECCO_PHYS |
areavolTile(bi,bj)=areavolTile(bi,bj) |
|
./pkg/ecco/ecco_phys.F |
298 |
ECCO_PHYS |
& +tmpmsk2*rA(i,j,bi,bj) |
|
./pkg/ecco/ecco_phys.F |
305 |
ECCO_PHYS |
tmpmskW=gencost_mskWsurf(i,j,bi,bj,kgen) |
|
./pkg/ecco/ecco_phys.F |
307 |
ECCO_PHYS |
tmpmskS=gencost_mskSsurf(i,j,bi,bj,kgen) |
|
./pkg/ecco/ecco_phys.F |
312 |
ECCO_PHYS |
tmpmskW=gencost_mskW(i,j,k,bi,bj,kgen3d) |
|
./pkg/ecco/ecco_phys.F |
313 |
ECCO_PHYS |
tmpmskS=gencost_mskS(i,j,k,bi,bj,kgen3d) |
|
./pkg/ecco/ecco_phys.F |
316 |
ECCO_PHYS |
tmpmskW=tmpmskW*hFacW(i,j,k,bi,bj)*dyG(i,j,bi,bj)*drF(k) |
|
./pkg/ecco/ecco_phys.F |
317 |
ECCO_PHYS |
tmpmskS=tmpmskS*hFacS(i,j,k,bi,bj)*dxG(i,j,bi,bj)*drF(k) |
|
./pkg/ecco/ecco_phys.F |
320 |
ECCO_PHYS |
gencost_storefld(i,j,bi,bj,kgen) = |
|
./pkg/ecco/ecco_phys.F |
321 |
ECCO_PHYS |
& gencost_storefld(i,j,bi,bj,kgen) |
|
./pkg/ecco/ecco_phys.F |
322 |
ECCO_PHYS |
& +uVel(i,j,k,bi,bj)*tmpmskW |
|
./pkg/ecco/ecco_phys.F |
323 |
ECCO_PHYS |
& +vVel(i,j,k,bi,bj)*tmpmskS |
|
./pkg/ecco/ecco_phys.F |
40 |
ECCO_PHYS |
integer bi,bj |
|
./pkg/ecco/ecco_phys.F |
74 |
ECCO_PHYS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/ecco/ecco_phys.F |
79 |
ECCO_PHYS |
I theta(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/ecco/ecco_phys.F |
80 |
ECCO_PHYS |
I salt (1-OLx,1-OLy,k,bi,bj), |
|
./pkg/ecco/ecco_phys.F |
81 |
ECCO_PHYS |
O RHOInSituLoc(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/ecco/ecco_phys.F |
82 |
ECCO_PHYS |
I k, bi, bj, myThid ) |
|
./pkg/ecco/ecco_phys.F |
87 |
ECCO_PHYS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/ecco/ecco_phys.F |
89 |
ECCO_PHYS |
RHOsumTile(bi,bj)=0. _d 0 |
|
./pkg/ecco/ecco_phys.F |
90 |
ECCO_PHYS |
VOLsumTile(bi,bj)=0. _d 0 |
|
./pkg/ecco/ecco_phys.F |
96 |
ECCO_PHYS |
RHOsumTile(bi,bj)=RHOsumTile(bi,bj)+ |
|
./pkg/ecco/ecco_phys.F |
97 |
ECCO_PHYS |
& (rhoConst+RHOInSituLoc(i,j,k,bi,bj))* |
|
./pkg/ecco/ecco_phys.F |
98 |
ECCO_PHYS |
& hFacC(i,j,k,bi,bj)*drF(k)*rA(i,j,bi,bj) |
|
./pkg/ecco/ecco_phys.F |
99 |
ECCO_PHYS |
VOLsumTile(bi,bj)=VOLsumTile(bi,bj)+ |
|
./pkg/ecco/ecco_toolbox.F |
1014 |
ECCO_MULT |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_toolbox.F |
1019 |
ECCO_MULT |
fld(i,j,k,bi,bj) = fld(i,j,k,bi,bj)*multloc |
|
./pkg/ecco/ecco_toolbox.F |
1058 |
ECCO_MULTFIELD |
integer bi,bj |
|
./pkg/ecco/ecco_toolbox.F |
1076 |
ECCO_MULTFIELD |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_toolbox.F |
1081 |
ECCO_MULTFIELD |
fld2(i,j,k,bi,bj) = fld(i,j,k,bi,bj)* |
|
./pkg/ecco/ecco_toolbox.F |
1082 |
ECCO_MULTFIELD |
& fld2(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_toolbox.F |
1212 |
ECCO_READWEI |
integer bi,bj |
|
./pkg/ecco/ecco_toolbox.F |
1233 |
ECCO_READWEI |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/ecco/ecco_toolbox.F |
1239 |
ECCO_READWEI |
if (localweight(i,j,k,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_toolbox.F |
1240 |
ECCO_READWEI |
localweight(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_toolbox.F |
1243 |
ECCO_READWEI |
if (localweight(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_toolbox.F |
1244 |
ECCO_READWEI |
localweight(i,j,k,bi,bj) = |
|
./pkg/ecco/ecco_toolbox.F |
1245 |
ECCO_READWEI |
& 1./localweight(i,j,k,bi,bj)/ |
|
./pkg/ecco/ecco_toolbox.F |
1246 |
ECCO_READWEI |
& localweight(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_toolbox.F |
133 |
ECCO_DIFFMSK |
integer bi,bj |
|
./pkg/ecco/ecco_toolbox.F |
153 |
ECCO_DIFFMSK |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_toolbox.F |
159 |
ECCO_DIFFMSK |
difmask(i,j,k,bi,bj) = cosphi(i,j,bi,bj)* |
|
./pkg/ecco/ecco_toolbox.F |
160 |
ECCO_DIFFMSK |
& localmask(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_toolbox.F |
162 |
ECCO_DIFFMSK |
difmask(i,j,k,bi,bj) = localmask(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_toolbox.F |
164 |
ECCO_DIFFMSK |
if ( localobs(i,j,k,bi,bj) .lt. spminloc .or. |
|
./pkg/ecco/ecco_toolbox.F |
165 |
ECCO_DIFFMSK |
& localobs(i,j,k,bi,bj) .gt. spmaxloc .or. |
|
./pkg/ecco/ecco_toolbox.F |
166 |
ECCO_DIFFMSK |
& localobs(i,j,k,bi,bj) .eq. spzeroloc ) then |
|
./pkg/ecco/ecco_toolbox.F |
167 |
ECCO_DIFFMSK |
difmask(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_toolbox.F |
169 |
ECCO_DIFFMSK |
localdif(i,j,k,bi,bj) = difmask(i,j,k,bi,bj)* |
|
./pkg/ecco/ecco_toolbox.F |
170 |
ECCO_DIFFMSK |
& (localbar(i,j,k,bi,bj)-localobs(i,j,k,bi,bj)) |
|
./pkg/ecco/ecco_toolbox.F |
229 |
ECCO_DIFFANOMMSK |
integer bi,bj |
|
./pkg/ecco/ecco_toolbox.F |
249 |
ECCO_DIFFANOMMSK |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_toolbox.F |
255 |
ECCO_DIFFANOMMSK |
difmask(i,j,k,bi,bj) = cosphi(i,j,bi,bj)* |
|
./pkg/ecco/ecco_toolbox.F |
256 |
ECCO_DIFFANOMMSK |
& localmask(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_toolbox.F |
258 |
ECCO_DIFFANOMMSK |
difmask(i,j,k,bi,bj) = localmask(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_toolbox.F |
260 |
ECCO_DIFFANOMMSK |
if ( localobs(i,j,k,bi,bj) .lt. spminloc .or. |
|
./pkg/ecco/ecco_toolbox.F |
261 |
ECCO_DIFFANOMMSK |
& localobs(i,j,k,bi,bj) .gt. spmaxloc .or. |
|
./pkg/ecco/ecco_toolbox.F |
262 |
ECCO_DIFFANOMMSK |
& localobs(i,j,k,bi,bj) .eq. spzeroloc ) then |
|
./pkg/ecco/ecco_toolbox.F |
263 |
ECCO_DIFFANOMMSK |
difmask(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_toolbox.F |
265 |
ECCO_DIFFANOMMSK |
localdif(i,j,k,bi,bj) = difmask(i,j,k,bi,bj)* |
|
./pkg/ecco/ecco_toolbox.F |
266 |
ECCO_DIFFANOMMSK |
& ( (localbar(i,j,k,bi,bj)-localbarmean(i,j,k,bi,bj)) |
|
./pkg/ecco/ecco_toolbox.F |
267 |
ECCO_DIFFANOMMSK |
& -(localobs(i,j,k,bi,bj)-localobsmean(i,j,k,bi,bj)) ) |
|
./pkg/ecco/ecco_toolbox.F |
322 |
ECCO_OBSMSK |
integer bi,bj |
|
./pkg/ecco/ecco_toolbox.F |
342 |
ECCO_OBSMSK |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_toolbox.F |
348 |
ECCO_OBSMSK |
obsmask(i,j,k,bi,bj) = cosphi(i,j,bi,bj)* |
|
./pkg/ecco/ecco_toolbox.F |
349 |
ECCO_OBSMSK |
& localmask(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_toolbox.F |
351 |
ECCO_OBSMSK |
obsmask(i,j,k,bi,bj) = localmask(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_toolbox.F |
353 |
ECCO_OBSMSK |
if ( localobs(i,j,k,bi,bj) .lt. spminloc .or. |
|
./pkg/ecco/ecco_toolbox.F |
354 |
ECCO_OBSMSK |
& localobs(i,j,k,bi,bj) .gt. spmaxloc .or. |
|
./pkg/ecco/ecco_toolbox.F |
355 |
ECCO_OBSMSK |
& localobs(i,j,k,bi,bj) .eq. spzeroloc ) then |
|
./pkg/ecco/ecco_toolbox.F |
356 |
ECCO_OBSMSK |
obsmask(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_toolbox.F |
358 |
ECCO_OBSMSK |
localout(i,j,k,bi,bj) = obsmask(i,j,k,bi,bj)* |
|
./pkg/ecco/ecco_toolbox.F |
359 |
ECCO_OBSMSK |
& localbar(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_toolbox.F |
407 |
ECCO_CP |
integer bi,bj |
|
./pkg/ecco/ecco_toolbox.F |
427 |
ECCO_CP |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_toolbox.F |
432 |
ECCO_CP |
fldOut(i,j,k,bi,bj) = fldIn(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_toolbox.F |
480 |
ECCO_CPRSRL |
integer bi,bj |
|
./pkg/ecco/ecco_toolbox.F |
500 |
ECCO_CPRSRL |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_toolbox.F |
505 |
ECCO_CPRSRL |
fldOut(i,j,k,bi,bj) = fldIn(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_toolbox.F |
52 |
ECCO_ZERO |
integer bi,bj |
|
./pkg/ecco/ecco_toolbox.F |
560 |
ECCO_ADDCOST |
integer bi,bj |
|
./pkg/ecco/ecco_toolbox.F |
585 |
ECCO_ADDCOST |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_toolbox.F |
591 |
ECCO_ADDCOST |
localwww = localweight(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_toolbox.F |
592 |
ECCO_ADDCOST |
& * difmask(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_toolbox.F |
593 |
ECCO_ADDCOST |
junk = localdif(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_toolbox.F |
600 |
ECCO_ADDCOST |
& num_local(bi,bj) = num_local(bi,bj) + 1. _d 0 |
|
./pkg/ecco/ecco_toolbox.F |
604 |
ECCO_ADDCOST |
objf_local(bi,bj) = objf_local(bi,bj) + localcost |
|
./pkg/ecco/ecco_toolbox.F |
649 |
ECCO_ADD |
integer bi,bj |
|
./pkg/ecco/ecco_toolbox.F |
669 |
ECCO_ADD |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_toolbox.F |
674 |
ECCO_ADD |
fldOut(i,j,k,bi,bj) = fldOut(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_toolbox.F |
675 |
ECCO_ADD |
& + fldIn(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_toolbox.F |
723 |
ECCO_SUBTRACT |
integer bi,bj |
|
./pkg/ecco/ecco_toolbox.F |
72 |
ECCO_ZERO |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_toolbox.F |
741 |
ECCO_SUBTRACT |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_toolbox.F |
746 |
ECCO_SUBTRACT |
fldOut(i,j,k,bi,bj) = fldOut(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_toolbox.F |
747 |
ECCO_SUBTRACT |
& - fldIn(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_toolbox.F |
77 |
ECCO_ZERO |
fld(i,j,k,bi,bj) = zeroloc |
|
./pkg/ecco/ecco_toolbox.F |
798 |
ECCO_ADDMASK |
integer bi,bj |
|
./pkg/ecco/ecco_toolbox.F |
818 |
ECCO_ADDMASK |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_toolbox.F |
823 |
ECCO_ADDMASK |
if(fldInmask(i,j,k,bi,bj) .NE. 0. _d 0) then |
|
./pkg/ecco/ecco_toolbox.F |
824 |
ECCO_ADDMASK |
fldOut(i,j,k,bi,bj) = fldOut(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_toolbox.F |
825 |
ECCO_ADDMASK |
& + fldIn(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_toolbox.F |
826 |
ECCO_ADDMASK |
fldOutnum(i,j,k,bi,bj) = fldOutnum(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_toolbox.F |
867 |
ECCO_DIV |
integer bi,bj |
|
./pkg/ecco/ecco_toolbox.F |
885 |
ECCO_DIV |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_toolbox.F |
890 |
ECCO_DIV |
fld(i,j,k,bi,bj) = fld(i,j,k,bi,bj)/numerloc |
|
./pkg/ecco/ecco_toolbox.F |
929 |
ECCO_DIVFIELD |
integer bi,bj |
|
./pkg/ecco/ecco_toolbox.F |
947 |
ECCO_DIVFIELD |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_toolbox.F |
952 |
ECCO_DIVFIELD |
if(flddenom(i,j,k,bi,bj) .NE. 0. _d 0) then |
|
./pkg/ecco/ecco_toolbox.F |
953 |
ECCO_DIVFIELD |
fld(i,j,k,bi,bj) = fld(i,j,k,bi,bj)/ |
|
./pkg/ecco/ecco_toolbox.F |
954 |
ECCO_DIVFIELD |
& flddenom(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_toolbox.F |
956 |
ECCO_DIVFIELD |
fld(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_toolbox.F |
996 |
ECCO_MULT |
integer bi,bj |
|
./pkg/exch2/exch2_check_depths.F |
112 |
EXCH2_CHECK_DEPTHS |
& 'tile #', tId, ' (bi,bj=', bi, ',', bj, ' ):' |
|
./pkg/exch2/exch2_check_depths.F |
48 |
EXCH2_CHECK_DEPTHS |
INTEGER bi, bj, tId |
|
./pkg/exch2/exch2_check_depths.F |
59 |
EXCH2_CHECK_DEPTHS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/exch2/exch2_check_depths.F |
65 |
EXCH2_CHECK_DEPTHS |
tmpFld(0,j) = rHigh( 1 ,j,bi,bj) - rLow( 1 ,j,bi,bj) |
|
./pkg/exch2/exch2_check_depths.F |
66 |
EXCH2_CHECK_DEPTHS |
tmpFld(i,j) = rHigh(sNx,j,bi,bj) - rLow(sNx,j,bi,bj) |
|
./pkg/exch2/exch2_check_depths.F |
70 |
EXCH2_CHECK_DEPTHS |
tmpFld(i,0) = rHigh(i, 1 ,bi,bj) - rLow(i, 1 ,bi,bj) |
|
./pkg/exch2/exch2_check_depths.F |
71 |
EXCH2_CHECK_DEPTHS |
tmpFld(i,j) = rHigh(i,sNy,bi,bj) - rLow(i,sNy,bi,bj) |
|
./pkg/exch2/exch2_check_depths.F |
75 |
EXCH2_CHECK_DEPTHS |
tId = W2_myTileList(bi,bj) |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
137 |
W2_CUMULSUM_Z_TILE_RL |
DO bj=1,nSy |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
139 |
W2_CUMULSUM_Z_TILE_RL |
tN = W2_procTileList(bi,bj,np) |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
140 |
W2_CUMULSUM_Z_TILE_RL |
globalBuf(1,tN) = loc2Buf(1,bi,bj) |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
141 |
W2_CUMULSUM_Z_TILE_RL |
globalBuf(2,tN) = loc2Buf(2,bi,bj) |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
156 |
W2_CUMULSUM_Z_TILE_RL |
DO bj=1,nSy |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
158 |
W2_CUMULSUM_Z_TILE_RL |
tN = W2_myTileList(bi,bj) |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
159 |
W2_CUMULSUM_Z_TILE_RL |
globalBuf(1,tN) = shareBufCS2_R8(1,bi,bj) |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
160 |
W2_CUMULSUM_Z_TILE_RL |
globalBuf(2,tN) = shareBufCS2_R8(2,bi,bj) |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
196 |
W2_CUMULSUM_Z_TILE_RL |
DO bj=1,nbTy-1 |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
197 |
W2_CUMULSUM_Z_TILE_RL |
tS = facet_owns(1,j) - 1 + (bj-1)*nbTx |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
209 |
W2_CUMULSUM_Z_TILE_RL |
DO bj=1,nbTy |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
210 |
W2_CUMULSUM_Z_TILE_RL |
tN = facet_owns(1,j) + (bj-1)*nbTx |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
242 |
W2_CUMULSUM_Z_TILE_RL |
DO bj=1,nSy |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
244 |
W2_CUMULSUM_Z_TILE_RL |
tN = W2_myTileList(bi,bj) |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
245 |
W2_CUMULSUM_Z_TILE_RL |
shareBufCS1_R8(bi,bj) = globalBuf(3,tN) |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
255 |
W2_CUMULSUM_Z_TILE_RL |
DO bj=1,nSy |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
257 |
W2_CUMULSUM_Z_TILE_RL |
tN = W2_procTileList(bi,bj,np) |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
258 |
W2_CUMULSUM_Z_TILE_RL |
loc1Buf(bi,bj) = globalBuf(3,tN) |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
276 |
W2_CUMULSUM_Z_TILE_RL |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
278 |
W2_CUMULSUM_Z_TILE_RL |
psiZ(bi,bj) = shareBufCS1_R8(bi,bj) |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
62 |
W2_CUMULSUM_Z_TILE_RL |
INTEGER bi,bj |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
90 |
W2_CUMULSUM_Z_TILE_RL |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
92 |
W2_CUMULSUM_Z_TILE_RL |
shareBufCS2_R8(1,bi,bj) = dPsiX(bi,bj) |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
93 |
W2_CUMULSUM_Z_TILE_RL |
shareBufCS2_R8(2,bi,bj) = dPsiY(bi,bj) |
|
./pkg/exch2/w2_map_procs.F |
109 |
W2_MAP_PROCS |
DO bj=1,nSy |
|
./pkg/exch2/w2_map_procs.F |
111 |
W2_MAP_PROCS |
myTileId = W2_myTileList(bi,bj) |
|
./pkg/exch2/w2_map_procs.F |
139 |
W2_MAP_PROCS |
DO bj=1,nSy |
|
./pkg/exch2/w2_map_procs.F |
141 |
W2_MAP_PROCS |
myTileId = W2_myTileList(bi,bj) |
|
./pkg/exch2/w2_map_procs.F |
143 |
W2_MAP_PROCS |
& ' TILE: ', myTileId,' (bi,bj=', bi, bj, ' )', |
|
./pkg/exch2/w2_map_procs.F |
167 |
W2_MAP_PROCS |
W2_myCommFlag(J,bi,bj) = commFlag |
|
./pkg/exch2/w2_map_procs.F |
46 |
W2_MAP_PROCS |
INTEGER np, ii, jj, bi, bj |
|
./pkg/exch2/w2_map_procs.F |
55 |
W2_MAP_PROCS |
DO bj=1,nSy |
|
./pkg/exch2/w2_map_procs.F |
57 |
W2_MAP_PROCS |
W2_myTileList(bi,bj) = 0 |
|
./pkg/exch2/w2_map_procs.F |
59 |
W2_MAP_PROCS |
W2_procTileList(bi,bj,np) = 0 |
|
./pkg/exch2/w2_map_procs.F |
62 |
W2_MAP_PROCS |
W2_myCommFlag(J,bi,bj) = ' ' |
|
./pkg/exch2/w2_map_procs.F |
91 |
W2_MAP_PROCS |
bj = 1 + MOD(jj,nSy) |
|
./pkg/exch2/w2_map_procs.F |
95 |
W2_MAP_PROCS |
W2_tileIndex(I)= bi + (bj-1)*nSx |
|
./pkg/exch2/w2_map_procs.F |
96 |
W2_MAP_PROCS |
W2_procTileList(bi,bj,np) = I |
|
./pkg/exch2/w2_map_procs.F |
97 |
W2_MAP_PROCS |
IF ( np.EQ.thisProc ) W2_myTileList(bi,bj) = I |
|
./pkg/exch2/w2_print_comm_sequence.F |
121 |
W2_PRINT_COMM_SEQUENCE |
DO bj=1,nSy |
|
./pkg/exch2/w2_print_comm_sequence.F |
123 |
W2_PRINT_COMM_SEQUENCE |
myTileId=W2_myTileList(bi,bj) |
|
./pkg/exch2/w2_print_comm_sequence.F |
54 |
W2_PRINT_COMM_SEQUENCE |
INTEGER bi, bj, N |
|
./pkg/exch2/w2_print_comm_sequence.F |
65 |
W2_PRINT_COMM_SEQUENCE |
DO bj=1,nSy |
|
./pkg/exch2/w2_print_comm_sequence.F |
67 |
W2_PRINT_COMM_SEQUENCE |
myTileId=W2_myTileList(bi,bj) |
|
./pkg/exch2/w2_set_map_cumsum.F |
285 |
W2_SET_MAP_CUMSUM |
DO bj=1,nbTy |
|
./pkg/exch2/w2_set_map_cumsum.F |
288 |
W2_SET_MAP_CUMSUM |
tN = tS + 1 + (bj-1)*nbTx |
|
./pkg/exch2/w2_set_map_cumsum.F |
300 |
W2_SET_MAP_CUMSUM |
DO bj=1,nbTy-1 |
|
./pkg/exch2/w2_set_map_cumsum.F |
303 |
W2_SET_MAP_CUMSUM |
tN = tS + bj*nbTx |
|
./pkg/exch2/w2_set_map_cumsum.F |
304 |
W2_SET_MAP_CUMSUM |
DO k=1,bj |
|
./pkg/exch2/w2_set_map_cumsum.F |
44 |
W2_SET_MAP_CUMSUM |
INTEGER tS, bi, bj, l, is, ie |
|
./model/inc/HFACC_MACROS.h |
36 |
NO PROCEDURE |
# define _hFacC(i,j,k,bi,bj) hFacC(i,j,k,bi,bj)*maskC(i,j,k,bi,bj) |
|
./model/inc/HFACS_MACROS.h |
36 |
NO PROCEDURE |
# define _hFacS(i,j,k,bi,bj) hFacS(i,j,k,bi,bj)*maskS(i,j,k,bi,bj) |
|
./pkg/exf/exf_bulkformulae.F |
179 |
EXF_BULKFORMULAE |
INTEGER i,j,bi,bj |
|
./pkg/exf/exf_bulkformulae.F |
254 |
EXF_BULKFORMULAE |
DO bj = myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_bulkformulae.F |
268 |
EXF_BULKFORMULAE |
act2 = bj - myByLo(myThid) |
|
./pkg/exf/exf_bulkformulae.F |
288 |
EXF_BULKFORMULAE |
IF ( atemp(i,j,bi,bj) .NE. 0. _d 0 ) THEN |
|
./pkg/exf/exf_bulkformulae.F |
290 |
EXF_BULKFORMULAE |
Tsf = theta(i,j,ksrf,bi,bj) + cen2kel |
|
./pkg/exf/exf_bulkformulae.F |
293 |
EXF_BULKFORMULAE |
& *( theta(i,j,ksrf,bi,bj)-theta(i,j,ksrfp1,bi,bj) ) |
|
./pkg/exf/exf_bulkformulae.F |
294 |
EXF_BULKFORMULAE |
& * maskC(i,j,ksrfp1,bi,bj) |
|
./pkg/exf/exf_bulkformulae.F |
300 |
EXF_BULKFORMULAE |
atmrho_loc(i,j) = apressure(i,j,bi,bj) / |
|
./pkg/exf/exf_bulkformulae.F |
301 |
EXF_BULKFORMULAE |
& (287.04 _d 0*atemp(i,j,bi,bj) |
|
./pkg/exf/exf_bulkformulae.F |
302 |
EXF_BULKFORMULAE |
& *(1. _d 0 + humid_fac*aqh(i,j,bi,bj))) |
|
./pkg/exf/exf_bulkformulae.F |
307 |
EXF_BULKFORMULAE |
deltap(i,j) = atemp(i,j,bi,bj) + gamma_blk*ht - Tsf |
|
./pkg/exf/exf_bulkformulae.F |
308 |
EXF_BULKFORMULAE |
delq(i,j) = aqh(i,j,bi,bj) - ssq |
|
./pkg/exf/exf_bulkformulae.F |
321 |
EXF_BULKFORMULAE |
wsm = sh(i,j,bi,bj) |
|
./pkg/exf/exf_bulkformulae.F |
328 |
EXF_BULKFORMULAE |
windStress = wStress(i,j,bi,bj) |
|
./pkg/exf/exf_bulkformulae.F |
359 |
EXF_BULKFORMULAE |
IF ( atemp(i,j,bi,bj) .NE. 0. _d 0 ) THEN |
|
./pkg/exf/exf_bulkformulae.F |
378 |
EXF_BULKFORMULAE |
t0 = atemp(i,j,bi,bj)* |
|
./pkg/exf/exf_bulkformulae.F |
379 |
EXF_BULKFORMULAE |
& (exf_one + humid_fac*aqh(i,j,bi,bj)) |
|
./pkg/exf/exf_bulkformulae.F |
381 |
EXF_BULKFORMULAE |
& qstar(i,j)/(exf_one/humid_fac+aqh(i,j,bi,bj)) |
|
./pkg/exf/exf_bulkformulae.F |
428 |
EXF_BULKFORMULAE |
usn = wspeed(i,j,bi,bj)/(exf_one + rdn(i,j)*dzTmp ) |
|
./pkg/exf/exf_bulkformulae.F |
435 |
EXF_BULKFORMULAE |
usn = sh(i,j,bi,bj)/(exf_one - rdn(i,j)/karman*psimh) |
|
./pkg/exf/exf_bulkformulae.F |
448 |
EXF_BULKFORMULAE |
ustar(i,j) = rd(i,j)*sh(i,j,bi,bj) |
|
./pkg/exf/exf_bulkformulae.F |
451 |
EXF_BULKFORMULAE |
tau(i,j) = atmrho_loc(i,j)*rd(i,j)*wspeed(i,j,bi,bj) |
|
./pkg/exf/exf_bulkformulae.F |
453 |
EXF_BULKFORMULAE |
tau(i,j) = atmrho*rd(i,j)*wspeed(i,j,bi,bj) |
|
./pkg/exf/exf_bulkformulae.F |
476 |
EXF_BULKFORMULAE |
IF ( atemp(i,j,bi,bj) .NE. 0. _d 0 ) THEN |
|
./pkg/exf/exf_bulkformulae.F |
492 |
EXF_BULKFORMULAE |
hs(i,j,bi,bj) = atmcp*tau(i,j)*tstar(i,j) |
|
./pkg/exf/exf_bulkformulae.F |
493 |
EXF_BULKFORMULAE |
hl(i,j,bi,bj) = flamb*tau(i,j)*qstar(i,j) |
|
./pkg/exf/exf_bulkformulae.F |
497 |
EXF_BULKFORMULAE |
evap(i,j,bi,bj) = -recip_rhoConstFresh*tau(i,j)*qstar(i,j) |
|
./pkg/exf/exf_bulkformulae.F |
508 |
EXF_BULKFORMULAE |
ustress(i,j,bi,bj) = tmpbulk*uwind(i,j,bi,bj) |
|
./pkg/exf/exf_bulkformulae.F |
509 |
EXF_BULKFORMULAE |
vstress(i,j,bi,bj) = tmpbulk*vwind(i,j,bi,bj) |
|
./pkg/exf/exf_bulkformulae.F |
514 |
EXF_BULKFORMULAE |
IF ( useAtmWind ) ustress(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
515 |
EXF_BULKFORMULAE |
IF ( useAtmWind ) vstress(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
516 |
EXF_BULKFORMULAE |
hflux (i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
517 |
EXF_BULKFORMULAE |
evap (i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
518 |
EXF_BULKFORMULAE |
hs (i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
519 |
EXF_BULKFORMULAE |
hl (i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_check_range.F |
100 |
EXF_CHECK_RANGE |
IF ( ABS(vwind(i,j,bi,bj)) .GT. 100. .AND. |
|
./pkg/exf/exf_check_range.F |
101 |
EXF_CHECK_RANGE |
& maskS(i,j,1,bi,bj) .NE. 0. ) THEN |
|
./pkg/exf/exf_check_range.F |
104 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myIter, vwind(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
110 |
EXF_CHECK_RANGE |
IF ( ( wspeed(i,j,bi,bj) .LT. 0. .OR. |
|
./pkg/exf/exf_check_range.F |
111 |
EXF_CHECK_RANGE |
& wspeed(i,j,bi,bj) .GT. 100. ) .AND. |
|
./pkg/exf/exf_check_range.F |
112 |
EXF_CHECK_RANGE |
& maskS(i,j,1,bi,bj) .NE. 0. ) THEN |
|
./pkg/exf/exf_check_range.F |
115 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myIter, wspeed(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
121 |
EXF_CHECK_RANGE |
IF ( (atemp(i,j,bi,bj) .LT. 183 .OR. |
|
./pkg/exf/exf_check_range.F |
122 |
EXF_CHECK_RANGE |
& atemp(i,j,bi,bj) .GT. 343 ) .AND. |
|
./pkg/exf/exf_check_range.F |
123 |
EXF_CHECK_RANGE |
& maskC(i,j,1,bi,bj) .NE. 0. ) THEN |
|
./pkg/exf/exf_check_range.F |
127 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myIter, atemp(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
132 |
EXF_CHECK_RANGE |
IF ( (aqh(i,j,bi,bj) .LT. 0. .OR. |
|
./pkg/exf/exf_check_range.F |
133 |
EXF_CHECK_RANGE |
& aqh(i,j,bi,bj) .GT. 0.1 ) .AND. |
|
./pkg/exf/exf_check_range.F |
134 |
EXF_CHECK_RANGE |
& maskC(i,j,1,bi,bj) .NE. 0. ) THEN |
|
./pkg/exf/exf_check_range.F |
137 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myIter, aqh(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
142 |
EXF_CHECK_RANGE |
IF ( (precip(i,j,bi,bj) .LT. 0. .OR. |
|
./pkg/exf/exf_check_range.F |
143 |
EXF_CHECK_RANGE |
& precip(i,j,bi,bj) .GT. 2.E-6 ) .AND. |
|
./pkg/exf/exf_check_range.F |
144 |
EXF_CHECK_RANGE |
& maskC(i,j,1,bi,bj) .NE. 0. ) THEN |
|
./pkg/exf/exf_check_range.F |
147 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myIter, precip(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
152 |
EXF_CHECK_RANGE |
IF ( (snowprecip(i,j,bi,bj) .LT. 0. .OR. |
|
./pkg/exf/exf_check_range.F |
153 |
EXF_CHECK_RANGE |
& snowprecip(i,j,bi,bj) .GT. 2.E-6 ) .AND. |
|
./pkg/exf/exf_check_range.F |
154 |
EXF_CHECK_RANGE |
& maskC(i,j,1,bi,bj) .NE. 0. ) THEN |
|
./pkg/exf/exf_check_range.F |
158 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myIter, snowprecip(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
165 |
EXF_CHECK_RANGE |
IF ( (swflux(i,j,bi,bj) .GT. 1. .OR. |
|
./pkg/exf/exf_check_range.F |
166 |
EXF_CHECK_RANGE |
& swflux(i,j,bi,bj) .LT. -1000. ) .AND. |
|
./pkg/exf/exf_check_range.F |
167 |
EXF_CHECK_RANGE |
& maskC(i,j,1,bi,bj) .NE. 0. ) THEN |
|
./pkg/exf/exf_check_range.F |
170 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myIter, swflux(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
177 |
EXF_CHECK_RANGE |
IF ( (runoff(i,j,bi,bj) .LT. 0. .OR. |
|
./pkg/exf/exf_check_range.F |
178 |
EXF_CHECK_RANGE |
& runoff(i,j,bi,bj) .GT. 1.E-6 ) .AND. |
|
./pkg/exf/exf_check_range.F |
179 |
EXF_CHECK_RANGE |
& maskC(i,j,1,bi,bj) .NE. 0. ) THEN |
|
./pkg/exf/exf_check_range.F |
182 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myIter, runoff(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
195 |
EXF_CHECK_RANGE |
IF ( (runoftemp(i,j,bi,bj) .LT. -2. .OR. |
|
./pkg/exf/exf_check_range.F |
196 |
EXF_CHECK_RANGE |
& runoff(i,j,bi,bj) .GT. 36 ) .AND. |
|
./pkg/exf/exf_check_range.F |
197 |
EXF_CHECK_RANGE |
& maskC(i,j,1,bi,bj) .NE. 0. ) THEN |
|
./pkg/exf/exf_check_range.F |
200 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myIter, runoff(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
29 |
EXF_CHECK_RANGE |
INTEGER i, j, bi, bj |
|
./pkg/exf/exf_check_range.F |
42 |
EXF_CHECK_RANGE |
DO bj = 1, nSy |
|
./pkg/exf/exf_check_range.F |
53 |
EXF_CHECK_RANGE |
IF ( ( hflux(i,j,bi,bj) .GT. 1600. .OR. |
|
./pkg/exf/exf_check_range.F |
54 |
EXF_CHECK_RANGE |
& hflux(i,j,bi,bj) .LT. -500. ) .AND. |
|
./pkg/exf/exf_check_range.F |
55 |
EXF_CHECK_RANGE |
& maskC(i,j,1,bi,bj) .NE. 0. ) THEN |
|
./pkg/exf/exf_check_range.F |
58 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myIter, hflux(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
63 |
EXF_CHECK_RANGE |
IF ( ABS(sflux(i,j,bi,bj)) .GT. 1.E-6 .AND. |
|
./pkg/exf/exf_check_range.F |
64 |
EXF_CHECK_RANGE |
& maskC(i,j,1,bi,bj) .NE. 0. ) THEN |
|
./pkg/exf/exf_check_range.F |
67 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myIter, sflux(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
72 |
EXF_CHECK_RANGE |
IF ( ABS(ustress(i,j,bi,bj)) .GT. 2.7 .AND. |
|
./pkg/exf/exf_check_range.F |
73 |
EXF_CHECK_RANGE |
& maskW(i,j,1,bi,bj) .NE. 0. ) THEN |
|
./pkg/exf/exf_check_range.F |
76 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myIter, ustress(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
81 |
EXF_CHECK_RANGE |
IF ( ABS(vstress(i,j,bi,bj)) .GT. 2.3 .AND. |
|
./pkg/exf/exf_check_range.F |
82 |
EXF_CHECK_RANGE |
& maskS(i,j,1,bi,bj) .NE. 0. ) THEN |
|
./pkg/exf/exf_check_range.F |
85 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myIter, vstress(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
91 |
EXF_CHECK_RANGE |
IF ( ABS(uwind(i,j,bi,bj)) .GT. 100. .AND. |
|
./pkg/exf/exf_check_range.F |
92 |
EXF_CHECK_RANGE |
& maskW(i,j,1,bi,bj) .NE. 0. ) THEN |
|
./pkg/exf/exf_check_range.F |
95 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myIter, uwind(i,j,bi,bj) |
|
./model/inc/HFACW_MACROS.h |
36 |
NO PROCEDURE |
# define _hFacW(i,j,k,bi,bj) hFacW(i,j,k,bi,bj)*maskW(i,j,k,bi,bj) |
|
./pkg/exf/exf_filter_rl.F |
35 |
EXF_FILTER_RL |
INTEGER bi,bj |
|
./pkg/exf/exf_filter_rl.F |
46 |
EXF_FILTER_RL |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/exf/exf_filter_rl.F |
64 |
EXF_FILTER_RL |
IF ( maskC(i,j,ks,bi,bj) .EQ. 0. ) THEN |
|
./pkg/exf/exf_filter_rl.F |
65 |
EXF_FILTER_RL |
arr(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_filter_rl.F |
72 |
EXF_FILTER_RL |
IF ( maskW(i,j,ks,bi,bj) .EQ. 0. ) THEN |
|
./pkg/exf/exf_filter_rl.F |
73 |
EXF_FILTER_RL |
arr(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_filter_rl.F |
80 |
EXF_FILTER_RL |
IF ( maskS(i,j,ks,bi,bj) .EQ. 0. ) THEN |
|
./pkg/exf/exf_filter_rl.F |
81 |
EXF_FILTER_RL |
arr(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_getclim.F |
169 |
EXF_GETCLIM |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_getclim.F |
176 |
EXF_GETCLIM |
& theta(i,j,1,bi,bj) = climsst(i,j,bi,bj) |
|
./pkg/exf/exf_getclim.F |
181 |
EXF_GETCLIM |
& salt(i,j,1,bi,bj) = climsss(i,j,bi,bj) |
|
./pkg/exf/exf_getclim.F |
186 |
EXF_GETCLIM |
& uvel(i,j,1,bi,bj) = climustr(i,j,bi,bj) |
|
./pkg/exf/exf_getclim.F |
189 |
EXF_GETCLIM |
& vvel(i,j,1,bi,bj) = climvstr(i,j,bi,bj) |
|
./pkg/exf/exf_getclim.F |
192 |
EXF_GETCLIM |
IF ( maskC(i,j,1,bi,bj) .NE. 0. .AND. |
|
./pkg/exf/exf_getclim.F |
193 |
EXF_GETCLIM |
& theta(i,j,1,bi,bj) .EQ. 0. ) THEN |
|
./pkg/exf/exf_getclim.F |
194 |
EXF_GETCLIM |
print *, 'ph-warn-exf-clim ', i, j, theta(i,j,1,bi,bj) |
|
./pkg/exf/exf_getclim.F |
69 |
EXF_GETCLIM |
INTEGER bi, bj, i, j |
|
./pkg/exf/exf_getclim.F |
87 |
EXF_GETCLIM |
DO bj = myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_getclim.F |
91 |
EXF_GETCLIM |
IF (climsst(i,j,bi,bj) .LT. climtempfreeze) THEN |
|
./pkg/exf/exf_getclim.F |
92 |
EXF_GETCLIM |
climsst(i,j,bi,bj) = climtempfreeze |
|
./pkg/exf/exf_getffields.F |
101 |
EXF_GETFFIELDS |
ustress(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_getffields.F |
102 |
EXF_GETFFIELDS |
vstress(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_getffields.F |
146 |
EXF_GETFFIELDS |
DO bj = myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_getffields.F |
150 |
EXF_GETFFIELDS |
uwind(i,j,bi,bj) = uwind(i,j,bi,bj) - 0.5 _d 0 |
|
./pkg/exf/exf_getffields.F |
151 |
EXF_GETFFIELDS |
& * (uVel(i,j,1,bi,bj)+uVel(i+1,j,1,bi,bj)) |
|
./pkg/exf/exf_getffields.F |
152 |
EXF_GETFFIELDS |
vwind(i,j,bi,bj) = vwind(i,j,bi,bj) - 0.5 _d 0 |
|
./pkg/exf/exf_getffields.F |
153 |
EXF_GETFFIELDS |
& * (vVel(i,j,1,bi,bj)+vVel(i,j+1,1,bi,bj)) |
|
./pkg/exf/exf_getffields.F |
161 |
EXF_GETFFIELDS |
DO bj = myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_getffields.F |
165 |
EXF_GETFFIELDS |
uwind(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_getffields.F |
166 |
EXF_GETFFIELDS |
vwind(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_getffields.F |
213 |
EXF_GETFFIELDS |
DO bj = myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_getffields.F |
217 |
EXF_GETFFIELDS |
atemp(i,j,bi,bj) = atemp(i,j,bi,bj) + exf_offset_atemp |
|
./pkg/exf/exf_getffields.F |
323 |
EXF_GETFFIELDS |
DO bj = myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_getffields.F |
327 |
EXF_GETFFIELDS |
precip(i,j,bi,bj) = |
|
./pkg/exf/exf_getffields.F |
328 |
EXF_GETFFIELDS |
& MAX( precip(i,j,bi,bj), snowPrecip(i,j,bi,bj) ) |
|
./pkg/exf/exf_getffields.F |
478 |
EXF_GETFFIELDS |
DO bj = myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_getffields.F |
482 |
EXF_GETFFIELDS |
tmpUE(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_getffields.F |
483 |
EXF_GETFFIELDS |
tmpVN(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_getffields.F |
484 |
EXF_GETFFIELDS |
tmpUX(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_getffields.F |
485 |
EXF_GETFFIELDS |
tmpVY(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_getffields.F |
59 |
EXF_GETFFIELDS |
INTEGER i, j, bi, bj |
|
./pkg/exf/exf_getffields.F |
622 |
EXF_GETFFIELDS |
DO bj = myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_getffields.F |
626 |
EXF_GETFFIELDS |
uwind(i,j,bi,bj)=uwind(i,j,bi,bj)+tmpUX(i,j,bi,bj) |
|
./pkg/exf/exf_getffields.F |
627 |
EXF_GETFFIELDS |
vwind(i,j,bi,bj)=vwind(i,j,bi,bj)+tmpVY(i,j,bi,bj) |
|
./pkg/exf/exf_getffields.F |
638 |
EXF_GETFFIELDS |
DO bj = myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_getffields.F |
643 |
EXF_GETFFIELDS |
atemp(i,j,bi,bj) =atemp(i,j,bi,bj) +xx_atemp_mean(i,j,bi,bj) |
|
./pkg/exf/exf_getffields.F |
646 |
EXF_GETFFIELDS |
aqh(i,j,bi,bj) =aqh(i,j,bi,bj) +xx_aqh_mean(i,j,bi,bj) |
|
./pkg/exf/exf_getffields.F |
649 |
EXF_GETFFIELDS |
precip(i,j,bi,bj)=precip(i,j,bi,bj)+xx_precip_mean(i,j,bi,bj) |
|
./pkg/exf/exf_getffields.F |
652 |
EXF_GETFFIELDS |
swdown(i,j,bi,bj)=swdown(i,j,bi,bj)+xx_swdown_mean(i,j,bi,bj) |
|
./pkg/exf/exf_getffields.F |
655 |
EXF_GETFFIELDS |
uwind(i,j,bi,bj) =uwind(i,j,bi,bj) +xx_uwind_mean(i,j,bi,bj) |
|
./pkg/exf/exf_getffields.F |
658 |
EXF_GETFFIELDS |
vwind(i,j,bi,bj) =vwind(i,j,bi,bj) +xx_vwind_mean(i,j,bi,bj) |
|
./pkg/exf/exf_getffields.F |
682 |
EXF_GETFFIELDS |
DO bj = myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_getffields.F |
689 |
EXF_GETFFIELDS |
& atemp(i,j,bi,bj)=atemp(i,j,bi,bj)+ |
|
./pkg/exf/exf_getffields.F |
690 |
EXF_GETFFIELDS |
& xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/exf/exf_getffields.F |
692 |
EXF_GETFFIELDS |
& aqh(i,j,bi,bj)=aqh(i,j,bi,bj)+ |
|
./pkg/exf/exf_getffields.F |
693 |
EXF_GETFFIELDS |
& xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/exf/exf_getffields.F |
695 |
EXF_GETFFIELDS |
& precip(i,j,bi,bj)=precip(i,j,bi,bj)+ |
|
./pkg/exf/exf_getffields.F |
696 |
EXF_GETFFIELDS |
& xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/exf/exf_getffields.F |
698 |
EXF_GETFFIELDS |
& lwflux(i,j,bi,bj)=lwflux(i,j,bi,bj)+ |
|
./pkg/exf/exf_getffields.F |
699 |
EXF_GETFFIELDS |
& xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/exf/exf_getffields.F |
703 |
EXF_GETFFIELDS |
& swflux(i,j,bi,bj)=swflux(i,j,bi,bj)+ |
|
./pkg/exf/exf_getffields.F |
704 |
EXF_GETFFIELDS |
& xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/exf/exf_getffields.F |
708 |
EXF_GETFFIELDS |
& swdown(i,j,bi,bj)=swdown(i,j,bi,bj)+ |
|
./pkg/exf/exf_getffields.F |
709 |
EXF_GETFFIELDS |
& xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/exf/exf_getffields.F |
711 |
EXF_GETFFIELDS |
& lwdown(i,j,bi,bj)=lwdown(i,j,bi,bj)+ |
|
./pkg/exf/exf_getffields.F |
712 |
EXF_GETFFIELDS |
& xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/exf/exf_getffields.F |
716 |
EXF_GETFFIELDS |
& runoff(i,j,bi,bj)=runoff(i,j,bi,bj)+ |
|
./pkg/exf/exf_getffields.F |
717 |
EXF_GETFFIELDS |
& xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/exf/exf_getffields.F |
721 |
EXF_GETFFIELDS |
& evap(i,j,bi,bj)=evap(i,j,bi,bj)+ |
|
./pkg/exf/exf_getffields.F |
722 |
EXF_GETFFIELDS |
& xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/exf/exf_getffields.F |
726 |
EXF_GETFFIELDS |
& apressure(i,j,bi,bj)=apressure(i,j,bi,bj)+ |
|
./pkg/exf/exf_getffields.F |
727 |
EXF_GETFFIELDS |
& xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/exf/exf_getffields.F |
731 |
EXF_GETFFIELDS |
& areamask(i,j,bi,bj)=areamask(i,j,bi,bj)+ |
|
./pkg/exf/exf_getffields.F |
732 |
EXF_GETFFIELDS |
& xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/exf/exf_getffields.F |
736 |
EXF_GETFFIELDS |
& uwind(i,j,bi,bj)=uwind(i,j,bi,bj)+ |
|
./pkg/exf/exf_getffields.F |
737 |
EXF_GETFFIELDS |
& xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/exf/exf_getffields.F |
739 |
EXF_GETFFIELDS |
& vwind(i,j,bi,bj)=vwind(i,j,bi,bj)+ |
|
./pkg/exf/exf_getffields.F |
740 |
EXF_GETFFIELDS |
& xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/exf/exf_getffields.F |
743 |
EXF_GETFFIELDS |
& tmpUE(i,j,bi,bj)=tmpUE(i,j,bi,bj)+ |
|
./pkg/exf/exf_getffields.F |
744 |
EXF_GETFFIELDS |
& xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/exf/exf_getffields.F |
746 |
EXF_GETFFIELDS |
& tmpVN(i,j,bi,bj)=tmpVN(i,j,bi,bj)+ |
|
./pkg/exf/exf_getffields.F |
747 |
EXF_GETFFIELDS |
& xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/exf/exf_getffields.F |
758 |
EXF_GETFFIELDS |
DO bj = myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_getffields.F |
762 |
EXF_GETFFIELDS |
uwind(i,j,bi,bj)=uwind(i,j,bi,bj)+tmpUX(i,j,bi,bj) |
|
./pkg/exf/exf_getffields.F |
763 |
EXF_GETFFIELDS |
vwind(i,j,bi,bj)=vwind(i,j,bi,bj)+tmpVY(i,j,bi,bj) |
|
./pkg/exf/exf_getffields.F |
97 |
EXF_GETFFIELDS |
DO bj = myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_getforcing.F |
144 |
EXF_GETFORCING |
INTEGER bi,bj |
|
./pkg/exf/exf_getforcing.F |
203 |
EXF_GETFORCING |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/exf/exf_getforcing.F |
211 |
EXF_GETFORCING |
hflux(i,j,bi,bj) = |
|
./pkg/exf/exf_getforcing.F |
212 |
EXF_GETFORCING |
& - hs(i,j,bi,bj) |
|
./pkg/exf/exf_getforcing.F |
213 |
EXF_GETFORCING |
& - hl(i,j,bi,bj) |
|
./pkg/exf/exf_getforcing.F |
214 |
EXF_GETFORCING |
& + lwflux(i,j,bi,bj) |
|
./pkg/exf/exf_getforcing.F |
216 |
EXF_GETFORCING |
& + swflux(i,j,bi,bj) |
|
./pkg/exf/exf_getforcing.F |
219 |
EXF_GETFORCING |
sflux(i,j,bi,bj) = evap(i,j,bi,bj) - precip(i,j,bi,bj) |
|
./pkg/exf/exf_getforcing.F |
229 |
EXF_GETFORCING |
sflux(i,j,bi,bj) = sflux(i,j,bi,bj) - runoff(i,j,bi,bj) |
|
./pkg/exf/exf_getforcing.F |
231 |
EXF_GETFORCING |
hflux(i,j,bi,bj) = hflux(i,j,bi,bj)*maskC(i,j,k,bi,bj) |
|
./pkg/exf/exf_getforcing.F |
232 |
EXF_GETFORCING |
sflux(i,j,bi,bj) = sflux(i,j,bi,bj)*maskC(i,j,k,bi,bj) |
|
./pkg/exf/exf_getforcing.F |
280 |
EXF_GETFORCING |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/exf/exf_getforcing.F |
284 |
EXF_GETFORCING |
hflux(i,j,bi,bj) = hflux(i,j,bi,bj) + swflux(i,j,bi,bj) |
|
./pkg/exf/exf_getsurfacefluxes.F |
107 |
EXF_GETSURFACEFLUXES |
DO bj = myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_getsurfacefluxes.F |
114 |
EXF_GETSURFACEFLUXES |
& ustress(i,j,bi,bj)=ustress(i,j,bi,bj)+ |
|
./pkg/exf/exf_getsurfacefluxes.F |
115 |
EXF_GETSURFACEFLUXES |
& xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/exf/exf_getsurfacefluxes.F |
117 |
EXF_GETSURFACEFLUXES |
& vstress(i,j,bi,bj)=vstress(i,j,bi,bj)+ |
|
./pkg/exf/exf_getsurfacefluxes.F |
118 |
EXF_GETSURFACEFLUXES |
& xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/exf/exf_getsurfacefluxes.F |
121 |
EXF_GETSURFACEFLUXES |
& tmpUE(i,j,bi,bj)=tmpUE(i,j,bi,bj) |
|
./pkg/exf/exf_getsurfacefluxes.F |
122 |
EXF_GETSURFACEFLUXES |
& +xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/exf/exf_getsurfacefluxes.F |
124 |
EXF_GETSURFACEFLUXES |
& tmpVN(i,j,bi,bj)=tmpVN(i,j,bi,bj) |
|
./pkg/exf/exf_getsurfacefluxes.F |
125 |
EXF_GETSURFACEFLUXES |
& +xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/exf/exf_getsurfacefluxes.F |
212 |
EXF_GETSURFACEFLUXES |
do bj = mybylo(mythid),mybyhi(mythid) |
|
./pkg/exf/exf_getsurfacefluxes.F |
216 |
EXF_GETSURFACEFLUXES |
ustress(i,j,bi,bj)=ustress(i,j,bi,bj)+tmpUX(i,j,bi,bj) |
|
./pkg/exf/exf_getsurfacefluxes.F |
217 |
EXF_GETSURFACEFLUXES |
vstress(i,j,bi,bj)=vstress(i,j,bi,bj)+tmpVY(i,j,bi,bj) |
|
./pkg/exf/exf_getsurfacefluxes.F |
82 |
EXF_GETSURFACEFLUXES |
integer i,j,bi,bj |
|
./pkg/exf/exf_getsurfacefluxes.F |
89 |
EXF_GETSURFACEFLUXES |
do bj = mybylo(mythid),mybyhi(mythid) |
|
./pkg/exf/exf_getsurfacefluxes.F |
93 |
EXF_GETSURFACEFLUXES |
tmpUE(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_getsurfacefluxes.F |
94 |
EXF_GETSURFACEFLUXES |
tmpVN(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_getsurfacefluxes.F |
95 |
EXF_GETSURFACEFLUXES |
tmpUX(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_getsurfacefluxes.F |
96 |
EXF_GETSURFACEFLUXES |
tmpVY(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_init_fld.F |
138 |
EXF_INIT_FLD |
DO bj = myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_init_fld.F |
142 |
EXF_INIT_FLD |
fldArr(i,j,bi,bj) = fld_inScale*fldArr(i,j,bi,bj) |
|
./pkg/exf/exf_init_fld.F |
81 |
EXF_INIT_FLD |
INTEGER bi, bj, i, j, count |
|
./pkg/exf/exf_init_fld.F |
89 |
EXF_INIT_FLD |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/exf/exf_init_fld.F |
93 |
EXF_INIT_FLD |
fldArr(i,j,bi,bj) = fldConst |
|
./pkg/exf/exf_init_fld.F |
94 |
EXF_INIT_FLD |
fld0(i,j,bi,bj) = fldConst |
|
./pkg/exf/exf_init_fld.F |
95 |
EXF_INIT_FLD |
fld1(i,j,bi,bj) = fldConst |
|
./pkg/exf/exf_init_varia.F |
132 |
EXF_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/exf/exf_init_varia.F |
136 |
EXF_INIT_VARIA |
uwind(i,j,bi,bj) = 0. |
|
./pkg/exf/exf_init_varia.F |
137 |
EXF_INIT_VARIA |
vwind(i,j,bi,bj) = 0. |
|
./pkg/exf/exf_init_varia.F |
41 |
EXF_INIT_VARIA |
INTEGER i,j,bi,bj |
|
./pkg/exf/exf_init_varia.F |
455 |
EXF_INIT_VARIA |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_init_varia.F |
45 |
EXF_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/exf/exf_init_varia.F |
462 |
EXF_INIT_VARIA |
& theta(i,j,1,bi,bj) = climsst(i,j,bi,bj) |
|
./pkg/exf/exf_init_varia.F |
467 |
EXF_INIT_VARIA |
& salt(i,j,1,bi,bj) = climsss(i,j,bi,bj) |
|
./pkg/exf/exf_init_varia.F |
472 |
EXF_INIT_VARIA |
& uvel(i,j,1,bi,bj) = climustr(i,j,bi,bj) |
|
./pkg/exf/exf_init_varia.F |
475 |
EXF_INIT_VARIA |
& vvel(i,j,1,bi,bj) = climvstr(i,j,bi,bj) |
|
./pkg/exf/exf_init_varia.F |
477 |
EXF_INIT_VARIA |
IF ( maskC(i,j,1,bi,bj) .NE. 0. .AND. |
|
./pkg/exf/exf_init_varia.F |
478 |
EXF_INIT_VARIA |
& theta(i,j,1,bi,bj) .EQ. 0. ) then |
|
./pkg/exf/exf_init_varia.F |
479 |
EXF_INIT_VARIA |
print *, 'ph-warn-exf-init ', i, j, theta(i,j,1,bi,bj) |
|
./pkg/exf/exf_init_varia.F |
49 |
EXF_INIT_VARIA |
wStress(i,j,bi,bj) = 0. |
|
./pkg/exf/exf_init_varia.F |
50 |
EXF_INIT_VARIA |
cw(i,j,bi,bj) = 0. |
|
./pkg/exf/exf_init_varia.F |
51 |
EXF_INIT_VARIA |
sw(i,j,bi,bj) = 0. |
|
./pkg/exf/exf_init_varia.F |
52 |
EXF_INIT_VARIA |
sh(i,j,bi,bj) = 0. |
|
./pkg/exf/exf_init_varia.F |
54 |
EXF_INIT_VARIA |
hs(i,j,bi,bj) = 0. |
|
./pkg/exf/exf_init_varia.F |
55 |
EXF_INIT_VARIA |
hl(i,j,bi,bj) = 0. |
|
./pkg/exf/exf_init_varia.F |
91 |
EXF_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/exf/exf_init_varia.F |
95 |
EXF_INIT_VARIA |
uwind(i,j,bi,bj) = 0. |
|
./pkg/exf/exf_init_varia.F |
96 |
EXF_INIT_VARIA |
vwind(i,j,bi,bj) = 0. |
|
./pkg/exf/exf_interp.F |
341 |
EXF_INTERP |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_interp.F |
345 |
EXF_INTERP |
xG(i,j,bi,bj) = xG_in(i,j,bi,bj)-lon_0 |
|
./pkg/exf/exf_interp.F |
347 |
EXF_INTERP |
xG(i,j,bi,bj) = lon_0+MOD(xG(i,j,bi,bj),threeSixtyRS) |
|
./pkg/exf/exf_interp.F |
355 |
EXF_INTERP |
IF ( xG(i,j,bi,bj) .LT. x_in(0) .OR. |
|
./pkg/exf/exf_interp.F |
356 |
EXF_INTERP |
& xG(i,j,bi,bj) .GE. x_in(nxIn+1) .OR. |
|
./pkg/exf/exf_interp.F |
357 |
EXF_INTERP |
& yG(i,j,bi,bj) .LT. y_in(0) .OR. |
|
./pkg/exf/exf_interp.F |
358 |
EXF_INTERP |
& yG(i,j,bi,bj) .GE. y_in(nyIn+1) ) THEN |
|
./pkg/exf/exf_interp.F |
367 |
EXF_INTERP |
& i,j,bi,bj, ' , xG,yG=', xG(i,j,bi,bj), yG(i,j,bi,bj) |
|
./pkg/exf/exf_interp.F |
384 |
EXF_INTERP |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/exf/exf_interp.F |
404 |
EXF_INTERP |
IF ( yG(i,j,bi,bj) .LT. y_in(k) ) THEN |
|
./pkg/exf/exf_interp.F |
428 |
EXF_INTERP |
& 'EXF_INTERP: i,j,bi,bj=',i,j,bi,bj,' , yG=',yG(i,j,bi,bj) |
|
./pkg/exf/exf_interp.F |
445 |
EXF_INTERP |
w_ind(i,j) = INT((xG(i,j,bi,bj)-x_in(-1))/lon_inc) - 1 |
|
./pkg/exf/exf_interp.F |
457 |
EXF_INTERP |
I bi, bj, myThid ) |
|
./pkg/exf/exf_interp.F |
93 |
EXF_INTERP |
INTEGER bi, bj |
|
./pkg/exf/exf_interp_uv.F |
105 |
EXF_INTERP_UV |
INTEGER bi, bj |
|
./pkg/exf/exf_interp_uv.F |
367 |
EXF_INTERP_UV |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_interp_uv.F |
371 |
EXF_INTERP_UV |
xG(i,j,bi,bj) = xG_in(i,j,bi,bj)-lon_0 |
|
./pkg/exf/exf_interp_uv.F |
373 |
EXF_INTERP_UV |
xG(i,j,bi,bj) = lon_0+MOD(xG(i,j,bi,bj),threeSixtyRS) |
|
./pkg/exf/exf_interp_uv.F |
381 |
EXF_INTERP_UV |
IF ( xG(i,j,bi,bj) .LT. x_in(0) .OR. |
|
./pkg/exf/exf_interp_uv.F |
382 |
EXF_INTERP_UV |
& xG(i,j,bi,bj) .GE. x_in(nxIn+1) .OR. |
|
./pkg/exf/exf_interp_uv.F |
383 |
EXF_INTERP_UV |
& yG(i,j,bi,bj) .LT. y_in(0) .OR. |
|
./pkg/exf/exf_interp_uv.F |
384 |
EXF_INTERP_UV |
& yG(i,j,bi,bj) .GE. y_in(nyIn+1) ) THEN |
|
./pkg/exf/exf_interp_uv.F |
393 |
EXF_INTERP_UV |
& i,j,bi,bj, ' , xG,yG=', xG(i,j,bi,bj), yG(i,j,bi,bj) |
|
./pkg/exf/exf_interp_uv.F |
410 |
EXF_INTERP_UV |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/exf/exf_interp_uv.F |
430 |
EXF_INTERP_UV |
IF ( yG(i,j,bi,bj) .LT. y_in(k) ) THEN |
|
./pkg/exf/exf_interp_uv.F |
454 |
EXF_INTERP_UV |
& 'EXF_INTERP_UV: i,j,bi,bj=',i,j,bi,bj,' , yG=',yG(i,j,bi,bj) |
|
./pkg/exf/exf_interp_uv.F |
471 |
EXF_INTERP_UV |
w_ind(i,j) = INT((xG(i,j,bi,bj)-x_in(-1))/lon_inc) - 1 |
|
./pkg/exf/exf_interp_uv.F |
483 |
EXF_INTERP_UV |
I bi, bj, myThid ) |
|
./pkg/exf/exf_interp_uv.F |
491 |
EXF_INTERP_UV |
I bi, bj, myThid ) |
|
./pkg/exf/exf_interpolate.F |
111 |
EXF_INTERPOLATE |
INTEGER bi, bj, myThid |
|
./pkg/exf/exf_interpolate.F |
141 |
EXF_INTERPOLATE |
arrayout(i,j,bi,bj) = 0. |
|
./pkg/exf/exf_interpolate.F |
149 |
EXF_INTERPOLATE |
& *LAGRAN(1,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
151 |
EXF_INTERPOLATE |
& *LAGRAN(2,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
152 |
EXF_INTERPOLATE |
arrayout(i,j,bi,bj) = arrayout(i,j,bi,bj) |
|
./pkg/exf/exf_interpolate.F |
153 |
EXF_INTERPOLATE |
& + ew_val(k)*LAGRAN(k,yG(i,j,bi,bj),py_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
157 |
EXF_INTERPOLATE |
& *LAGRAN(1,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
159 |
EXF_INTERPOLATE |
& *LAGRAN(2,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
161 |
EXF_INTERPOLATE |
& *LAGRAN(1,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
163 |
EXF_INTERPOLATE |
& *LAGRAN(2,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
164 |
EXF_INTERPOLATE |
arrayout(i,j,bi,bj)= |
|
./pkg/exf/exf_interpolate.F |
165 |
EXF_INTERPOLATE |
& +ew_val1*LAGRAN(1,yG(i,j,bi,bj),py_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
166 |
EXF_INTERPOLATE |
& +ew_val2*LAGRAN(2,yG(i,j,bi,bj),py_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
176 |
EXF_INTERPOLATE |
arrayout(i,j,bi,bj) = 0. |
|
./pkg/exf/exf_interpolate.F |
184 |
EXF_INTERPOLATE |
& *LAGRAN(1,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
186 |
EXF_INTERPOLATE |
& *LAGRAN(2,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
188 |
EXF_INTERPOLATE |
& *LAGRAN(3,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
190 |
EXF_INTERPOLATE |
& *LAGRAN(4,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
191 |
EXF_INTERPOLATE |
arrayout(i,j,bi,bj) = arrayout(i,j,bi,bj) |
|
./pkg/exf/exf_interpolate.F |
192 |
EXF_INTERPOLATE |
& + ew_val(k)*LAGRAN(k,yG(i,j,bi,bj),py_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
196 |
EXF_INTERPOLATE |
& *LAGRAN(1,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
198 |
EXF_INTERPOLATE |
& *LAGRAN(2,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
200 |
EXF_INTERPOLATE |
& *LAGRAN(3,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
202 |
EXF_INTERPOLATE |
& *LAGRAN(4,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
204 |
EXF_INTERPOLATE |
& *LAGRAN(1,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
206 |
EXF_INTERPOLATE |
& *LAGRAN(2,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
208 |
EXF_INTERPOLATE |
& *LAGRAN(3,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
210 |
EXF_INTERPOLATE |
& *LAGRAN(4,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
212 |
EXF_INTERPOLATE |
& *LAGRAN(1,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
214 |
EXF_INTERPOLATE |
& *LAGRAN(2,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
216 |
EXF_INTERPOLATE |
& *LAGRAN(3,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
218 |
EXF_INTERPOLATE |
& *LAGRAN(4,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
220 |
EXF_INTERPOLATE |
& *LAGRAN(1,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
222 |
EXF_INTERPOLATE |
& *LAGRAN(2,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
224 |
EXF_INTERPOLATE |
& *LAGRAN(3,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
226 |
EXF_INTERPOLATE |
& *LAGRAN(4,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
227 |
EXF_INTERPOLATE |
arrayout(i,j,bi,bj) = |
|
./pkg/exf/exf_interpolate.F |
228 |
EXF_INTERPOLATE |
& ew_val1*LAGRAN(1,yG(i,j,bi,bj),py_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
229 |
EXF_INTERPOLATE |
& +ew_val2*LAGRAN(2,yG(i,j,bi,bj),py_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
230 |
EXF_INTERPOLATE |
& +ew_val3*LAGRAN(3,yG(i,j,bi,bj),py_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
231 |
EXF_INTERPOLATE |
& +ew_val4*LAGRAN(4,yG(i,j,bi,bj),py_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
69 |
EXF_INTERPOLATE |
I bi, bj, myThid ) |
|
./pkg/exf/exf_mapfields.F |
111 |
EXF_MAPFIELDS |
Qnet(i,j,bi,bj) = exf_outscal_hflux*hflux(i,j,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
117 |
EXF_MAPFIELDS |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) - |
|
./pkg/exf/exf_mapfields.F |
127 |
EXF_MAPFIELDS |
EmPmR(i,j,bi,bj)= exf_outscal_sflux*sflux(i,j,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
134 |
EXF_MAPFIELDS |
EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj) - rhoConstFresh* |
|
./pkg/exf/exf_mapfields.F |
157 |
EXF_MAPFIELDS |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
158 |
EXF_MAPFIELDS |
& + flami*snowPrecip(i,j,bi,bj)*rhoConstFresh |
|
./pkg/exf/exf_mapfields.F |
160 |
EXF_MAPFIELDS |
& *( atemp(i,j,bi,bj) - cen2kel - temp_EvPrRn ) |
|
./pkg/exf/exf_mapfields.F |
161 |
EXF_MAPFIELDS |
& *( precip(i,j,bi,bj)- snowPrecip(i,j,bi,bj) ) |
|
./pkg/exf/exf_mapfields.F |
171 |
EXF_MAPFIELDS |
IF ( atemp(i,j,bi,bj).LT.cen2kel ) THEN |
|
./pkg/exf/exf_mapfields.F |
172 |
EXF_MAPFIELDS |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
173 |
EXF_MAPFIELDS |
& + flami*precip(i,j,bi,bj)*rhoConstFresh |
|
./pkg/exf/exf_mapfields.F |
176 |
EXF_MAPFIELDS |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
178 |
EXF_MAPFIELDS |
& *( atemp(i,j,bi,bj) - cen2kel - temp_EvPrRn ) |
|
./pkg/exf/exf_mapfields.F |
179 |
EXF_MAPFIELDS |
& *precip(i,j,bi,bj)*rhoConstFresh |
|
./pkg/exf/exf_mapfields.F |
188 |
EXF_MAPFIELDS |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
190 |
EXF_MAPFIELDS |
& *( theta(i,j,ks,bi,bj) - temp_EvPrRn ) |
|
./pkg/exf/exf_mapfields.F |
191 |
EXF_MAPFIELDS |
& *runoff(i,j,bi,bj)*rhoConstFresh |
|
./pkg/exf/exf_mapfields.F |
198 |
EXF_MAPFIELDS |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
200 |
EXF_MAPFIELDS |
& *( theta(i,j,ks,bi,bj) - temp_EvPrRn ) |
|
./pkg/exf/exf_mapfields.F |
201 |
EXF_MAPFIELDS |
& *evap(i,j,bi,bj)*rhoConstFresh |
|
./pkg/exf/exf_mapfields.F |
202 |
EXF_MAPFIELDS |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj)*maskC(i,j,ks,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
213 |
EXF_MAPFIELDS |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
215 |
EXF_MAPFIELDS |
& *( theta(i,j,ks,bi,bj) - runoftemp(i,j,bi,bj) ) |
|
./pkg/exf/exf_mapfields.F |
216 |
EXF_MAPFIELDS |
& *runoff(i,j,bi,bj)*rhoConstFresh |
|
./pkg/exf/exf_mapfields.F |
228 |
EXF_MAPFIELDS |
IF (ustress(i,j,bi,bj).GT.windstressmax) THEN |
|
./pkg/exf/exf_mapfields.F |
229 |
EXF_MAPFIELDS |
ustress(i,j,bi,bj)=windstressmax |
|
./pkg/exf/exf_mapfields.F |
238 |
EXF_MAPFIELDS |
IF (ustress(i,j,bi,bj).LT.-windstressmax) THEN |
|
./pkg/exf/exf_mapfields.F |
239 |
EXF_MAPFIELDS |
ustress(i,j,bi,bj)=-windstressmax |
|
./pkg/exf/exf_mapfields.F |
246 |
EXF_MAPFIELDS |
fu(i,j,bi,bj) = exf_outscal_ustress*ustress(i,j,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
253 |
EXF_MAPFIELDS |
fu(i,j,bi,bj) = exf_outscal_ustress* |
|
./pkg/exf/exf_mapfields.F |
254 |
EXF_MAPFIELDS |
& (ustress(i,j,bi,bj)+ustress(i-1,j,bi,bj)) |
|
./pkg/exf/exf_mapfields.F |
255 |
EXF_MAPFIELDS |
& *exf_half*maskW(i,j,ks,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
266 |
EXF_MAPFIELDS |
IF (vstress(i,j,bi,bj).GT.windstressmax) THEN |
|
./pkg/exf/exf_mapfields.F |
267 |
EXF_MAPFIELDS |
vstress(i,j,bi,bj)=windstressmax |
|
./pkg/exf/exf_mapfields.F |
276 |
EXF_MAPFIELDS |
IF (vstress(i,j,bi,bj).LT.-windstressmax) THEN |
|
./pkg/exf/exf_mapfields.F |
277 |
EXF_MAPFIELDS |
vstress(i,j,bi,bj)=-windstressmax |
|
./pkg/exf/exf_mapfields.F |
284 |
EXF_MAPFIELDS |
fv(i,j,bi,bj) = exf_outscal_vstress*vstress(i,j,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
291 |
EXF_MAPFIELDS |
fv(i,j,bi,bj) = exf_outscal_vstress* |
|
./pkg/exf/exf_mapfields.F |
292 |
EXF_MAPFIELDS |
& (vstress(i,j,bi,bj)+vstress(i,j-1,bi,bj)) |
|
./pkg/exf/exf_mapfields.F |
293 |
EXF_MAPFIELDS |
& *exf_half*maskS(i,j,ks,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
302 |
EXF_MAPFIELDS |
Qsw(i,j,bi,bj) = exf_outscal_swflux*swflux(i,j,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
310 |
EXF_MAPFIELDS |
SST(i,j,bi,bj) = exf_outscal_sst*climsst(i,j,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
318 |
EXF_MAPFIELDS |
SSS(i,j,bi,bj) = exf_outscal_sss*climsss(i,j,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
326 |
EXF_MAPFIELDS |
pLoad(i,j,bi,bj)=exf_outscal_apressure*apressure(i,j,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
334 |
EXF_MAPFIELDS |
phiTide2d(i,j,bi,bj)=exf_outscal_tidePot*tidePot(i,j,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
342 |
EXF_MAPFIELDS |
saltFlux(I,J,bi,bj) = saltflx(I,J,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
350 |
EXF_MAPFIELDS |
exf_iceFraction(i,j,bi,bj) = |
|
./pkg/exf/exf_mapfields.F |
351 |
EXF_MAPFIELDS |
& exf_outscal_areamask*areamask(i,j,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
352 |
EXF_MAPFIELDS |
exf_iceFraction(I,J,bi,bj) = |
|
./pkg/exf/exf_mapfields.F |
353 |
EXF_MAPFIELDS |
& MIN( MAX(exf_iceFraction(I,J,bi,bj),zeroRS), oneRS ) |
|
./pkg/exf/exf_mapfields.F |
81 |
EXF_MAPFIELDS |
INTEGER bi,bj |
|
./pkg/exf/exf_mapfields.F |
92 |
EXF_MAPFIELDS |
DO bj = myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_mapfields.F |
98 |
EXF_MAPFIELDS |
act2 = bj - myByLo(myThid) |
|
./pkg/exf/exf_radiation.F |
100 |
EXF_RADIATION |
& ((theta(i,j,ks,bi,bj)+cen2kel)**4) |
|
./pkg/exf/exf_radiation.F |
101 |
EXF_RADIATION |
& - lwdown(i,j,bi,bj) |
|
./pkg/exf/exf_radiation.F |
145 |
EXF_RADIATION |
DO bj = myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_radiation.F |
149 |
EXF_RADIATION |
zen_albedo (i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_radiation.F |
150 |
EXF_RADIATION |
zen_fsol_diurnal (i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_radiation.F |
151 |
EXF_RADIATION |
zen_fsol_daily (i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_radiation.F |
159 |
EXF_RADIATION |
DO bj = myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_radiation.F |
165 |
EXF_RADIATION |
swflux(i,j,bi,bj) = - swdown(i,j,bi,bj) |
|
./pkg/exf/exf_radiation.F |
166 |
EXF_RADIATION |
& * (1.0-zen_albedo(i,j,bi,bj)) |
|
./pkg/exf/exf_radiation.F |
173 |
EXF_RADIATION |
swflux(i,j,bi,bj) = - swdown(i,j,bi,bj) |
|
./pkg/exf/exf_radiation.F |
47 |
EXF_RADIATION |
INTEGER bi,bj |
|
./pkg/exf/exf_radiation.F |
69 |
EXF_RADIATION |
DO bj = myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_radiation.F |
75 |
EXF_RADIATION |
Tsf = theta(i,j,ks,bi,bj) + cen2kel |
|
./pkg/exf/exf_radiation.F |
77 |
EXF_RADIATION |
& *( theta(i,j,ks,bi,bj)-theta(i,j,kl,bi,bj) ) |
|
./pkg/exf/exf_radiation.F |
78 |
EXF_RADIATION |
& * maskC(i,j,kl,bi,bj) |
|
./pkg/exf/exf_radiation.F |
81 |
EXF_RADIATION |
lwflux(i,j,bi,bj) = |
|
./pkg/exf/exf_radiation.F |
83 |
EXF_RADIATION |
& - lwdown(i,j,bi,bj) |
|
./pkg/exf/exf_radiation.F |
98 |
EXF_RADIATION |
lwflux(i,j,bi,bj) = |
|
./pkg/exf/exf_set_fld.F |
105 |
EXF_SET_FLD |
INTEGER bi, bj, i, j |
|
./pkg/exf/exf_set_fld.F |
282 |
EXF_SET_FLD |
DO bj = myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_set_fld.F |
287 |
EXF_SET_FLD |
fldArr(i,j,bi,bj) = fld_inScale * ( |
|
./pkg/exf/exf_set_fld.F |
288 |
EXF_SET_FLD |
& fac * fld0(i,j,bi,bj) |
|
./pkg/exf/exf_set_fld.F |
289 |
EXF_SET_FLD |
& + (exf_one - fac)* fld1(i,j,bi,bj) ) |
|
./pkg/exf/exf_set_fld.F |
290 |
EXF_SET_FLD |
fldArr(i,j,bi,bj) = fldArr(i,j,bi,bj) |
|
./pkg/exf/exf_set_obcs.F |
103 |
EXF_SET_OBCS_XZ |
DO bj = myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_set_obcs.F |
107 |
EXF_SET_OBCS_XZ |
obcs_fld_xz(i,k,bi,bj) = |
|
./pkg/exf/exf_set_obcs.F |
108 |
EXF_SET_OBCS_XZ |
& fac * obcs_xz_0(i,k,bi,bj) + |
|
./pkg/exf/exf_set_obcs.F |
109 |
EXF_SET_OBCS_XZ |
& (exf_one - fac) * obcs_xz_1(i,k,bi,bj) |
|
./pkg/exf/exf_set_obcs.F |
174 |
EXF_SET_OBCS_YZ |
INTEGER bi, bj |
|
./pkg/exf/exf_set_obcs.F |
210 |
EXF_SET_OBCS_YZ |
DO bj = myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_set_obcs.F |
214 |
EXF_SET_OBCS_YZ |
obcs_fld_yz(j,k,bi,bj) = |
|
./pkg/exf/exf_set_obcs.F |
215 |
EXF_SET_OBCS_YZ |
& fac *obcs_yz_0(j,k,bi,bj) + |
|
./pkg/exf/exf_set_obcs.F |
216 |
EXF_SET_OBCS_YZ |
& (exf_one - fac) *obcs_yz_1(j,k,bi,bj) |
|
./pkg/exf/exf_set_obcs.F |
281 |
EXF_SET_OBCS_X |
INTEGER bi, bj, i |
|
./pkg/exf/exf_set_obcs.F |
314 |
EXF_SET_OBCS_X |
DO bj = myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_set_obcs.F |
317 |
EXF_SET_OBCS_X |
obcs_fld_x(i,bi,bj) = |
|
./pkg/exf/exf_set_obcs.F |
318 |
EXF_SET_OBCS_X |
& fac * obcs_x_0(i,bi,bj) + |
|
./pkg/exf/exf_set_obcs.F |
319 |
EXF_SET_OBCS_X |
& (exf_one - fac) * obcs_x_1(i,bi,bj) |
|
./pkg/exf/exf_set_obcs.F |
382 |
EXF_SET_OBCS_Y |
INTEGER bi, bj, j |
|
./pkg/exf/exf_set_obcs.F |
415 |
EXF_SET_OBCS_Y |
DO bj = myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_set_obcs.F |
418 |
EXF_SET_OBCS_Y |
obcs_fld_y(j,bi,bj) = |
|
./pkg/exf/exf_set_obcs.F |
419 |
EXF_SET_OBCS_Y |
& fac *obcs_y_0(j,bi,bj) + |
|
./pkg/exf/exf_set_obcs.F |
420 |
EXF_SET_OBCS_Y |
& (exf_one - fac) *obcs_y_1(j,bi,bj) |
|
./pkg/exf/exf_set_obcs.F |
67 |
EXF_SET_OBCS_XZ |
INTEGER bi, bj |
|
./pkg/exf/exf_set_uv.F |
108 |
EXF_SET_UV |
INTEGER i, j, bi, bj |
|
./pkg/exf/exf_set_uv.F |
278 |
EXF_SET_UV |
DO bj = myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_set_uv.F |
282 |
EXF_SET_UV |
tmp_u(i,j,bi,bj) = uVec_inScale*tmp_u(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
283 |
EXF_SET_UV |
tmp_v(i,j,bi,bj) = vVec_inScale*tmp_v(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
289 |
EXF_SET_UV |
x1=xG(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
290 |
EXF_SET_UV |
x2=xG(i+1,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
291 |
EXF_SET_UV |
x3=xG(i,j+1,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
292 |
EXF_SET_UV |
x4=xG(i+1,j+1,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
299 |
EXF_SET_UV |
y1=yG(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
300 |
EXF_SET_UV |
y2=yG(i+1,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
301 |
EXF_SET_UV |
y3=yG(i,j+1,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
302 |
EXF_SET_UV |
y4=yG(i+1,j+1,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
305 |
EXF_SET_UV |
& cos(deg2rad*yC(i,j,bi,bj)) |
|
./pkg/exf/exf_set_uv.F |
307 |
EXF_SET_UV |
vVec1(i,j,bi,bj)= |
|
./pkg/exf/exf_set_uv.F |
308 |
EXF_SET_UV |
& (tmp_u(i,j,bi,bj)*dx+ |
|
./pkg/exf/exf_set_uv.F |
309 |
EXF_SET_UV |
& tmp_v(i,j,bi,bj)*dy)/ |
|
./pkg/exf/exf_set_uv.F |
313 |
EXF_SET_UV |
& cos(deg2rad*yC(i,j,bi,bj)) |
|
./pkg/exf/exf_set_uv.F |
315 |
EXF_SET_UV |
uVec1(i,j,bi,bj)= |
|
./pkg/exf/exf_set_uv.F |
316 |
EXF_SET_UV |
& (tmp_u(i,j,bi,bj)*dx+ |
|
./pkg/exf/exf_set_uv.F |
317 |
EXF_SET_UV |
& tmp_v(i,j,bi,bj)*dy)/ |
|
./pkg/exf/exf_set_uv.F |
320 |
EXF_SET_UV |
uVec1(i,j,bi,bj) = |
|
./pkg/exf/exf_set_uv.F |
321 |
EXF_SET_UV |
& angleCosC(i,j,bi,bj)*tmp_u(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
322 |
EXF_SET_UV |
& +angleSinC(i,j,bi,bj)*tmp_v(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
323 |
EXF_SET_UV |
vVec1(i,j,bi,bj) = |
|
./pkg/exf/exf_set_uv.F |
324 |
EXF_SET_UV |
& -angleSinC(i,j,bi,bj)*tmp_u(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
325 |
EXF_SET_UV |
& +angleCosC(i,j,bi,bj)*tmp_v(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
332 |
EXF_SET_UV |
DO bj = myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_set_uv.F |
336 |
EXF_SET_UV |
uVec1(i,j,bi,bj) = uVec_inScale*tmp_u(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
337 |
EXF_SET_UV |
vVec1(i,j,bi,bj) = vVec_inScale*tmp_v(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
439 |
EXF_SET_UV |
DO bj = myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_set_uv.F |
443 |
EXF_SET_UV |
tmp_u(i,j,bi,bj) = uVec_inScale*tmp_u(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
444 |
EXF_SET_UV |
tmp_v(i,j,bi,bj) = vVec_inScale*tmp_v(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
450 |
EXF_SET_UV |
x1=xG(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
451 |
EXF_SET_UV |
x2=xG(i+1,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
452 |
EXF_SET_UV |
x3=xG(i,j+1,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
453 |
EXF_SET_UV |
x4=xG(i+1,j+1,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
460 |
EXF_SET_UV |
y1=yG(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
461 |
EXF_SET_UV |
y2=yG(i+1,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
462 |
EXF_SET_UV |
y3=yG(i,j+1,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
463 |
EXF_SET_UV |
y4=yG(i+1,j+1,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
466 |
EXF_SET_UV |
& cos(deg2rad*yC(i,j,bi,bj)) |
|
./pkg/exf/exf_set_uv.F |
468 |
EXF_SET_UV |
vVec1(i,j,bi,bj)= |
|
./pkg/exf/exf_set_uv.F |
469 |
EXF_SET_UV |
& (tmp_u(i,j,bi,bj)*dx+ |
|
./pkg/exf/exf_set_uv.F |
470 |
EXF_SET_UV |
& tmp_v(i,j,bi,bj)*dy)/ |
|
./pkg/exf/exf_set_uv.F |
474 |
EXF_SET_UV |
& cos(deg2rad*yC(i,j,bi,bj)) |
|
./pkg/exf/exf_set_uv.F |
476 |
EXF_SET_UV |
uVec1(i,j,bi,bj)= |
|
./pkg/exf/exf_set_uv.F |
477 |
EXF_SET_UV |
& (tmp_u(i,j,bi,bj)*dx+ |
|
./pkg/exf/exf_set_uv.F |
478 |
EXF_SET_UV |
& tmp_v(i,j,bi,bj)*dy)/ |
|
./pkg/exf/exf_set_uv.F |
481 |
EXF_SET_UV |
uVec1(i,j,bi,bj) = |
|
./pkg/exf/exf_set_uv.F |
482 |
EXF_SET_UV |
& angleCosC(i,j,bi,bj)*tmp_u(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
483 |
EXF_SET_UV |
& +angleSinC(i,j,bi,bj)*tmp_v(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
484 |
EXF_SET_UV |
vVec1(i,j,bi,bj) = |
|
./pkg/exf/exf_set_uv.F |
485 |
EXF_SET_UV |
& -angleSinC(i,j,bi,bj)*tmp_u(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
486 |
EXF_SET_UV |
& +angleCosC(i,j,bi,bj)*tmp_v(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
493 |
EXF_SET_UV |
DO bj = myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_set_uv.F |
497 |
EXF_SET_UV |
uVec1(i,j,bi,bj) = uVec_inScale*tmp_u(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
498 |
EXF_SET_UV |
vVec1(i,j,bi,bj) = vVec_inScale*tmp_v(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
512 |
EXF_SET_UV |
DO bj = myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_set_uv.F |
516 |
EXF_SET_UV |
uVec(i,j,bi,bj) = fac * uVec0(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
517 |
EXF_SET_UV |
& + (exf_one - fac)* uVec1(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
518 |
EXF_SET_UV |
vVec(i,j,bi,bj) = fac * vVec0(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
519 |
EXF_SET_UV |
& + (exf_one - fac)* vVec1(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
556 |
EXF_SET_UV |
DO bj = myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_set_uv.F |
560 |
EXF_SET_UV |
tmp_u(i,j,bi,bj) = uVec(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
561 |
EXF_SET_UV |
tmp_v(i,j,bi,bj) = vVec(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
566 |
EXF_SET_UV |
DO bj = myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_set_uv.F |
570 |
EXF_SET_UV |
uVec(i,j,bi,bj) = |
|
./pkg/exf/exf_set_uv.F |
571 |
EXF_SET_UV |
& angleCosC(i,j,bi,bj)*tmp_u(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
572 |
EXF_SET_UV |
& +angleSinC(i,j,bi,bj)*tmp_v(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
573 |
EXF_SET_UV |
vVec(i,j,bi,bj) = |
|
./pkg/exf/exf_set_uv.F |
574 |
EXF_SET_UV |
& -angleSinC(i,j,bi,bj)*tmp_u(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
575 |
EXF_SET_UV |
& +angleCosC(i,j,bi,bj)*tmp_v(i,j,bi,bj) |
|
./pkg/exf/exf_swapffields.F |
103 |
EXF_SWAPFFIELDS_3D |
INTEGER bi, bj |
|
./pkg/exf/exf_swapffields.F |
108 |
EXF_SWAPFFIELDS_3D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_swapffields.F |
113 |
EXF_SWAPFFIELDS_3D |
ffld0(i,j,k,bi,bj) = ffld1(i,j,k,bi,bj) |
|
./pkg/exf/exf_swapffields.F |
114 |
EXF_SWAPFFIELDS_3D |
ffld1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_swapffields.F |
157 |
EXF_SWAPFFIELDS_XZ |
INTEGER bi, bj |
|
./pkg/exf/exf_swapffields.F |
162 |
EXF_SWAPFFIELDS_XZ |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_swapffields.F |
166 |
EXF_SWAPFFIELDS_XZ |
ffld0(i,k,bi,bj) = ffld1(i,k,bi,bj) |
|
./pkg/exf/exf_swapffields.F |
167 |
EXF_SWAPFFIELDS_XZ |
ffld1(i,k,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_swapffields.F |
209 |
EXF_SWAPFFIELDS_YZ |
INTEGER bi, bj |
|
./pkg/exf/exf_swapffields.F |
214 |
EXF_SWAPFFIELDS_YZ |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_swapffields.F |
218 |
EXF_SWAPFFIELDS_YZ |
ffld0(j,k,bi,bj) = ffld1(j,k,bi,bj) |
|
./pkg/exf/exf_swapffields.F |
219 |
EXF_SWAPFFIELDS_YZ |
ffld1(j,k,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_swapffields.F |
53 |
EXF_SWAPFFIELDS |
INTEGER bi, bj |
|
./pkg/exf/exf_swapffields.F |
58 |
EXF_SWAPFFIELDS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_swapffields.F |
62 |
EXF_SWAPFFIELDS |
ffld0(i,j,bi,bj) = ffld1(i,j,bi,bj) |
|
./pkg/exf/exf_swapffields.F |
63 |
EXF_SWAPFFIELDS |
ffld1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_wind.F |
100 |
EXF_WIND |
sh(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_wind.F |
101 |
EXF_WIND |
wStress(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_wind.F |
116 |
EXF_WIND |
wsSq = uwind(i,j,bi,bj)*uwind(i,j,bi,bj) |
|
./pkg/exf/exf_wind.F |
117 |
EXF_WIND |
& + vwind(i,j,bi,bj)*vwind(i,j,bi,bj) |
|
./pkg/exf/exf_wind.F |
120 |
EXF_WIND |
cw(i,j,bi,bj) = uwind(i,j,bi,bj)/wsLoc(i,j) |
|
./pkg/exf/exf_wind.F |
121 |
EXF_WIND |
sw(i,j,bi,bj) = vwind(i,j,bi,bj)/wsLoc(i,j) |
|
./pkg/exf/exf_wind.F |
124 |
EXF_WIND |
cw(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_wind.F |
125 |
EXF_WIND |
sw(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_wind.F |
133 |
EXF_WIND |
wspeed(i,j,bi,bj) = wsLoc(i,j) |
|
./pkg/exf/exf_wind.F |
146 |
EXF_WIND |
usSq = ( ustress(i, j,bi,bj)*ustress(i ,j,bi,bj) |
|
./pkg/exf/exf_wind.F |
147 |
EXF_WIND |
& +ustress(i+1,j,bi,bj)*ustress(i+1,j,bi,bj) |
|
./pkg/exf/exf_wind.F |
148 |
EXF_WIND |
& +vstress(i,j, bi,bj)*vstress(i,j ,bi,bj) |
|
./pkg/exf/exf_wind.F |
149 |
EXF_WIND |
& +vstress(i,j+1,bi,bj)*vstress(i,j+1,bi,bj) |
|
./pkg/exf/exf_wind.F |
152 |
EXF_WIND |
usSq = ustress(i,j,bi,bj)*ustress(i,j,bi,bj) |
|
./pkg/exf/exf_wind.F |
153 |
EXF_WIND |
& +vstress(i,j,bi,bj)*vstress(i,j,bi,bj) |
|
./pkg/exf/exf_wind.F |
156 |
EXF_WIND |
wStress(i,j,bi,bj) = SQRT(usSq) |
|
./pkg/exf/exf_wind.F |
158 |
EXF_WIND |
cw(i,j,bi,bj) = ustress(i,j,bi,bj)/wStress(i,j,bi,bj) |
|
./pkg/exf/exf_wind.F |
159 |
EXF_WIND |
sw(i,j,bi,bj) = vstress(i,j,bi,bj)/wStress(i,j,bi,bj) |
|
./pkg/exf/exf_wind.F |
161 |
EXF_WIND |
wStress(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_wind.F |
162 |
EXF_WIND |
cw(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_wind.F |
163 |
EXF_WIND |
sw(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_wind.F |
179 |
EXF_WIND |
ustar = wStress(i,j,bi,bj)*recip_sqrtRhoA |
|
./pkg/exf/exf_wind.F |
203 |
EXF_WIND |
wspeed(i,j,bi,bj) = wsLoc(i,j) |
|
./pkg/exf/exf_wind.F |
220 |
EXF_WIND |
uwind(i,j,bi,bj) = wspeed(i,j,bi,bj)*cw(i,j,bi,bj) |
|
./pkg/exf/exf_wind.F |
221 |
EXF_WIND |
vwind(i,j,bi,bj) = wspeed(i,j,bi,bj)*sw(i,j,bi,bj) |
|
./pkg/exf/exf_wind.F |
234 |
EXF_WIND |
& wspeed(i,j,bi,bj)=wspeed(i,j,bi,bj)+ |
|
./pkg/exf/exf_wind.F |
235 |
EXF_WIND |
& xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/exf/exf_wind.F |
248 |
EXF_WIND |
sh(i,j,bi,bj) = MAX(wspeed(i,j,bi,bj),uMin) |
|
./pkg/exf/exf_wind.F |
260 |
EXF_WIND |
wsm = sh(i,j,bi,bj) |
|
./pkg/exf/exf_wind.F |
263 |
EXF_WIND |
ustress(i,j,bi,bj) = atmrho*tmpbulk*wspeed(i,j,bi,bj) |
|
./pkg/exf/exf_wind.F |
264 |
EXF_WIND |
& * uwind(i,j,bi,bj) |
|
./pkg/exf/exf_wind.F |
265 |
EXF_WIND |
vstress(i,j,bi,bj) = atmrho*tmpbulk*wspeed(i,j,bi,bj) |
|
./pkg/exf/exf_wind.F |
266 |
EXF_WIND |
& * vwind(i,j,bi,bj) |
|
./pkg/exf/exf_wind.F |
57 |
EXF_WIND |
INTEGER bi,bj |
|
./pkg/exf/exf_wind.F |
78 |
EXF_WIND |
DO bj = myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_wind.F |
84 |
EXF_WIND |
act2 = bj - myByLo(myThid) |
|
./pkg/exf/exf_wind.F |
98 |
EXF_WIND |
cw(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_wind.F |
99 |
EXF_WIND |
sw(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_zenithangle.F |
114 |
EXF_ZENITHANGLE |
DO bj = myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_zenithangle.F |
121 |
EXF_ZENITHANGLE |
zen_albedo (i,j,bi,bj) = exf_albedo |
|
./pkg/exf/exf_zenithangle.F |
140 |
EXF_ZENITHANGLE |
IF ( zen_albedo_pointer(i,j,bi,bj).EQ. 181. _d 0 ) THEN |
|
./pkg/exf/exf_zenithangle.F |
146 |
EXF_ZENITHANGLE |
iLat1= INT(zen_albedo_pointer(i,j,bi,bj)) |
|
./pkg/exf/exf_zenithangle.F |
147 |
EXF_ZENITHANGLE |
wLat1= 1. _d 0 + iLat1 - zen_albedo_pointer(i,j,bi,bj) |
|
./pkg/exf/exf_zenithangle.F |
158 |
EXF_ZENITHANGLE |
zen_albedo (i,j,bi,bj) = |
|
./pkg/exf/exf_zenithangle.F |
192 |
EXF_ZENITHANGLE |
SJ = SIN(yC(i,j,bi,bj) * deg2rad) |
|
./pkg/exf/exf_zenithangle.F |
193 |
EXF_ZENITHANGLE |
CJ = COS(yC(i,j,bi,bj) * deg2rad) |
|
./pkg/exf/exf_zenithangle.F |
202 |
EXF_ZENITHANGLE |
& COS( 2. _d 0 *PI* TDAY + xC(i,j,bi,bj) * deg2rad ) |
|
./pkg/exf/exf_zenithangle.F |
258 |
EXF_ZENITHANGLE |
zen_albedo (i,j,bi,bj) = |
|
./pkg/exf/exf_zenithangle.F |
277 |
EXF_ZENITHANGLE |
DO bj = myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_zenithangle.F |
301 |
EXF_ZENITHANGLE |
SJ = SIN(yC(i,j,bi,bj) * deg2rad) |
|
./pkg/exf/exf_zenithangle.F |
302 |
EXF_ZENITHANGLE |
CJ = COS(yC(i,j,bi,bj) * deg2rad) |
|
./pkg/exf/exf_zenithangle.F |
307 |
EXF_ZENITHANGLE |
& COS( 2. _d 0 *PI*TDAY + xC(i,j,bi,bj)*deg2rad ) |
|
./pkg/exf/exf_zenithangle.F |
310 |
EXF_ZENITHANGLE |
zen_fsol_diurnal(i,j,bi,bj) = FSOL |
|
./pkg/exf/exf_zenithangle.F |
313 |
EXF_ZENITHANGLE |
H0 = -TAN( yC(i,j,bi,bj) *deg2rad ) * TAN( DECLI ) |
|
./pkg/exf/exf_zenithangle.F |
319 |
EXF_ZENITHANGLE |
zen_fsol_daily(i,j,bi,bj) = FSOL |
|
./pkg/exf/exf_zenithangle.F |
49 |
EXF_ZENITHANGLE |
INTEGER i, j, bi, bj |
|
./pkg/exf/exf_zenithangle_table.F |
122 |
EXF_ZENITHANGLE_TABLE |
DO bj = myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_zenithangle_table.F |
126 |
EXF_ZENITHANGLE_TABLE |
LLLAT=yC(i,j,bi,bj)+91. _d 0 |
|
./pkg/exf/exf_zenithangle_table.F |
131 |
EXF_ZENITHANGLE_TABLE |
zen_albedo_pointer(i,j,bi,bj)=LLLAT |
|
./pkg/exf/exf_zenithangle_table.F |
35 |
EXF_ZENITHANGLE_TABLE |
INTEGER bi,bj |
|
./pkg/fizhi/AtoC.F |
40 |
ATOC |
integer i, j, L, bi, bj |
|
./pkg/fizhi/AtoC.F |
50 |
ATOC |
do bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/fizhi/AtoC.F |
56 |
ATOC |
tmpfld1(i,j) = fieldin1(i,j,L,bi,bj)*mask(i,j,L,bi,bj) |
|
./pkg/fizhi/AtoC.F |
57 |
ATOC |
tmpfld2(i,j) = fieldin2(i,j,L,bi,bj)*mask(i,j,L,bi,bj) |
|
./pkg/fizhi/AtoC.F |
64 |
ATOC |
if( (mask(i-1,j,L,bi,bj).ne.0.) .or. |
|
./pkg/fizhi/AtoC.F |
65 |
ATOC |
. (mask(i,j,L,bi,bj).ne.0.) ) then |
|
./pkg/fizhi/AtoC.F |
70 |
ATOC |
fieldout1(i,j,L,bi,bj) = |
|
./pkg/fizhi/AtoC.F |
72 |
ATOC |
. ( mask(i-1,j,L,bi,bj) + mask(i,j,L,bi,bj) ) |
|
./pkg/fizhi/AtoC.F |
74 |
ATOC |
fieldout1(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/AtoC.F |
76 |
ATOC |
if( (mask(i,j-1,L,bi,bj).ne.0.) .or. |
|
./pkg/fizhi/AtoC.F |
77 |
ATOC |
. (mask(i,j,L,bi,bj).ne.0.) ) then |
|
./pkg/fizhi/AtoC.F |
82 |
ATOC |
fieldout2(i,j,L,bi,bj) = |
|
./pkg/fizhi/AtoC.F |
84 |
ATOC |
. ( mask(i,j,L,bi,bj) + mask(i,j-1,L,bi,bj) ) |
|
./pkg/fizhi/AtoC.F |
86 |
ATOC |
fieldout2(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/CtoA.F |
42 |
CTOA |
integer i, j, L, bi, bj |
|
./pkg/fizhi/CtoA.F |
52 |
CTOA |
do bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/fizhi/CtoA.F |
58 |
CTOA |
tmpfld1(i,j) = fieldin1(i,j,L,bi,bj)*mask1(i,j,L,bi,bj) |
|
./pkg/fizhi/CtoA.F |
59 |
CTOA |
tmpfld2(i,j) = fieldin2(i,j,L,bi,bj)*mask2(i,j,L,bi,bj) |
|
./pkg/fizhi/CtoA.F |
64 |
CTOA |
if( (mask1(i,j,L,bi,bj).ne.0.) .or. |
|
./pkg/fizhi/CtoA.F |
65 |
CTOA |
. (mask1(i+1,j,L,bi,bj).ne.0.) ) then |
|
./pkg/fizhi/CtoA.F |
70 |
CTOA |
fieldout1(i,j,L,bi,bj) = |
|
./pkg/fizhi/CtoA.F |
72 |
CTOA |
. ( mask1(i,j,L,bi,bj) + mask1(i+1,j,L,bi,bj) ) |
|
./pkg/fizhi/CtoA.F |
74 |
CTOA |
fieldout1(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/CtoA.F |
76 |
CTOA |
if( (mask2(i,j,L,bi,bj).ne.0.) .or. |
|
./pkg/fizhi/CtoA.F |
77 |
CTOA |
. (mask2(i,j+1,L,bi,bj).ne.0.) ) then |
|
./pkg/fizhi/CtoA.F |
82 |
CTOA |
fieldout2(i,j,L,bi,bj) = |
|
./pkg/fizhi/CtoA.F |
84 |
CTOA |
. ( mask2(i,j,L,bi,bj) + mask2(i,j+1,L,bi,bj) ) |
|
./pkg/fizhi/CtoA.F |
86 |
CTOA |
fieldout2(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/do_fizhi.F |
171 |
DO_FIZHI |
xlats(i,j) = lats(i,j,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
172 |
DO_FIZHI |
xlons(i,j) = lons(i,j,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
173 |
DO_FIZHI |
surfZ(i,j) = Zsurf(i,j,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
184 |
DO_FIZHI |
radswt(i,j,bi,bj) = S0*(1.0/ra**2)*cosz(i,j) |
|
./pkg/fizhi/do_fizhi.F |
194 |
DO_FIZHI |
ple(i,j,Nrphys+1,bi,bj) = pephy(i,j,Nrphys+1,bi,bj)/100. |
|
./pkg/fizhi/do_fizhi.F |
195 |
DO_FIZHI |
pkle(i,j,Nrphys+1,bi,bj)=(pephy(i,j,Nrphys+1,bi,bj)/100.) **kappa |
|
./pkg/fizhi/do_fizhi.F |
196 |
DO_FIZHI |
p(i,j,bi,bj) = pephy(i,j,Nrphys+1,bi,bj)/100. |
|
./pkg/fizhi/do_fizhi.F |
197 |
DO_FIZHI |
sea_ice(i,j) = sice(i,j,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
198 |
DO_FIZHI |
raincon(i,j) = rainconin(i,j,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
199 |
DO_FIZHI |
rainlsp(i,j) = rainlspin(i,j,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
200 |
DO_FIZHI |
snowfall(i,j) = snowfallin(i,j,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
206 |
DO_FIZHI |
u(i,j,L) = uphy(i,j,L,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
207 |
DO_FIZHI |
v(i,j,L) = vphy(i,j,L,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
208 |
DO_FIZHI |
t(i,j,L) = thphy(i,j,L,bi,bj)/p0kappa |
|
./pkg/fizhi/do_fizhi.F |
209 |
DO_FIZHI |
q(i,j,L,1) = sphy(i,j,L,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
210 |
DO_FIZHI |
pl(i,j,L,bi,bj) = (pephy(i,j,L,bi,bj)+pephy(i,j,L+1,bi,bj))/200. |
|
./pkg/fizhi/do_fizhi.F |
211 |
DO_FIZHI |
dpres(i,j,L,bi,bj)=(pephy(i,j,L+1,bi,bj)-pephy(i,j,L,bi,bj))/100. |
|
./pkg/fizhi/do_fizhi.F |
212 |
DO_FIZHI |
ple(i,j,L,bi,bj) = pephy(i,j,L,bi,bj)/100. |
|
./pkg/fizhi/do_fizhi.F |
213 |
DO_FIZHI |
if (ple(i,j,L,bi,bj).gt.0.) then |
|
./pkg/fizhi/do_fizhi.F |
214 |
DO_FIZHI |
pkle(i,j,L,bi,bj) = ple(i,j,L,bi,bj) **kappa |
|
./pkg/fizhi/do_fizhi.F |
216 |
DO_FIZHI |
pkle(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/do_fizhi.F |
218 |
DO_FIZHI |
cldtot_lw(i,j,L) = cldtotlwin(i,j,L,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
219 |
DO_FIZHI |
cldlsp_lw(i,j,L) = cldlsplwin(i,j,L,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
220 |
DO_FIZHI |
cldras_lw(i,j,L) = cldraslwin(i,j,L,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
221 |
DO_FIZHI |
lwlz(i,j,L) = lwlzin(i,j,L,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
222 |
DO_FIZHI |
qliqavelw(i,j,L) = qliqavelwin(i,j,L,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
223 |
DO_FIZHI |
fccavelw(i,j,L) = fccavelwin(i,j,L,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
224 |
DO_FIZHI |
cldtot_sw(i,j,L) = cldtotswin(i,j,L,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
225 |
DO_FIZHI |
cldlsp_sw(i,j,L) = cldlspswin(i,j,L,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
226 |
DO_FIZHI |
cldras_sw(i,j,L) = cldrasswin(i,j,L,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
227 |
DO_FIZHI |
swlz(i,j,L) = swlzin(i,j,L,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
228 |
DO_FIZHI |
qliqavesw(i,j,L) = qliqaveswin(i,j,L,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
229 |
DO_FIZHI |
fccavesw(i,j,L) = fccaveswin(i,j,L,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
234 |
DO_FIZHI |
call PKAPPA (im2,jm2,Nrphys,ple(1,1,1,bi,bj),pkle(1,1,1,bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
235 |
DO_FIZHI |
& pkl(1,1,1,bi,bj)) |
|
./pkg/fizhi/do_fizhi.F |
237 |
DO_FIZHI |
call FIZHI_DRIVER(myid,im2,jm2,Nrphys,bi,bj,ptracer,ntracer, |
|
./pkg/fizhi/do_fizhi.F |
239 |
DO_FIZHI |
& p(1,1,bi,bj),u,v,t,q,pl(1,1,1,bi,bj),ple(1,1,1,bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
240 |
DO_FIZHI |
& dpres(1,1,1,bi,bj),pkle(1,1,1,bi,bj),pkl(1,1,1,bi,bj),surfZ, |
|
./pkg/fizhi/do_fizhi.F |
241 |
DO_FIZHI |
& fracland(1,1,bi,bj),landtype(1,1,bi,bj),radswt(1,1,bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
242 |
DO_FIZHI |
& phis_var(1,1,bi,bj),tgz(1,1,bi,bj),sea_ice,nchp,chlat(1,bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
243 |
DO_FIZHI |
& chlon(1,bi,bj),igrd(1,bi,bj),nchptot(bi,bj),nchpland(bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
244 |
DO_FIZHI |
& chfr(1,bi,bj),ityp(1,bi,bj),tcanopy(1,bi,bj),tdeep(1,bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
245 |
DO_FIZHI |
& ecanopy(1,bi,bj),swetshal(1,bi,bj),swetroot(1,bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
246 |
DO_FIZHI |
& swetdeep(1,bi,bj),capac(1,bi,bj),snodep(1,bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
247 |
DO_FIZHI |
& ctmt(1,bi,bj),xxmt(1,bi,bj),yymt(1,bi,bj),zetamt(1,bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
248 |
DO_FIZHI |
& xlmt(1,1,bi,bj),khmt(1,1,bi,bj),tke(1,1,bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
249 |
DO_FIZHI |
& albvisdr(1,1,bi,bj),albvisdf(1,1,bi,bj),albnirdr(1,1,bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
250 |
DO_FIZHI |
& albnirdf(1,1,bi,bj),emiss(1,1,1,bi,bj),alai(1,bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
251 |
DO_FIZHI |
& agrn(1,bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
252 |
DO_FIZHI |
& qstr(1,1,1,bi,bj),o3(1,1,1,bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
254 |
DO_FIZHI |
& lwdt(1,1,1,bi,bj),lwdtclr(1,1,1,bi,bj),swdt(1,1,1,bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
255 |
DO_FIZHI |
& swdtclr(1,1,1,bi,bj),turbu(1,1,1,bi,bj),turbv(1,1,1,bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
256 |
DO_FIZHI |
& turbt(1,1,1,bi,bj),turbq(1,1,1,1,bi,bj),moistu(1,1,1,bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
257 |
DO_FIZHI |
& moistv(1,1,1,bi,bj),moistt(1,1,1,bi,bj),moistq(1,1,1,1,bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
258 |
DO_FIZHI |
& radswg(1,1,bi,bj),swgclr(1,1,bi,bj),fdirpar(1,1,bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
259 |
DO_FIZHI |
& fdifpar(1,1,bi,bj),osr(1,1,bi,bj),osrclr(1,1,bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
260 |
DO_FIZHI |
& tg0(1,1,bi,bj),radlwg(1,1,bi,bj),lwgclr(1,1,bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
261 |
DO_FIZHI |
& st4(1,1,bi,bj),dst4(1,1,bi,bj),dlwdtg(1,1,1,bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
262 |
DO_FIZHI |
& rainlsp,raincon,snowfall,iras(bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
263 |
DO_FIZHI |
& nlwcld(bi,bj),cldtot_lw,cldras_lw,cldlsp_lw,nlwlz(bi,bj),lwlz, |
|
./pkg/fizhi/do_fizhi.F |
264 |
DO_FIZHI |
& nswcld(bi,bj),cldtot_sw,cldras_sw,cldlsp_sw,nswlz(bi,bj),swlz, |
|
./pkg/fizhi/do_fizhi.F |
265 |
DO_FIZHI |
& imstturbsw(bi,bj),imstturblw(bi,bj),qliqavesw,qliqavelw, |
|
./pkg/fizhi/do_fizhi.F |
266 |
DO_FIZHI |
& fccavesw,fccavelw,qq(1,1,1,bi,bj)) |
|
./pkg/fizhi/do_fizhi.F |
271 |
DO_FIZHI |
cldtotlwin(i,j,L,bi,bj) = cldtot_lw(i,j,L) |
|
./pkg/fizhi/do_fizhi.F |
272 |
DO_FIZHI |
cldlsplwin(i,j,L,bi,bj) = cldlsp_lw(i,j,L) |
|
./pkg/fizhi/do_fizhi.F |
273 |
DO_FIZHI |
cldraslwin(i,j,L,bi,bj) = cldras_lw(i,j,L) |
|
./pkg/fizhi/do_fizhi.F |
274 |
DO_FIZHI |
lwlzin(i,j,L,bi,bj) = lwlz(i,j,L) |
|
./pkg/fizhi/do_fizhi.F |
275 |
DO_FIZHI |
qliqavelwin(i,j,L,bi,bj) = qliqavelw(i,j,L) |
|
./pkg/fizhi/do_fizhi.F |
276 |
DO_FIZHI |
fccavelwin(i,j,L,bi,bj) = fccavelw(i,j,L) |
|
./pkg/fizhi/do_fizhi.F |
277 |
DO_FIZHI |
cldtotswin(i,j,L,bi,bj) = cldtot_sw(i,j,L) |
|
./pkg/fizhi/do_fizhi.F |
278 |
DO_FIZHI |
cldlspswin(i,j,L,bi,bj) = cldlsp_sw(i,j,L) |
|
./pkg/fizhi/do_fizhi.F |
279 |
DO_FIZHI |
cldrasswin(i,j,L,bi,bj) = cldras_sw(i,j,L) |
|
./pkg/fizhi/do_fizhi.F |
280 |
DO_FIZHI |
swlzin(i,j,L,bi,bj) = swlz(i,j,L) |
|
./pkg/fizhi/do_fizhi.F |
281 |
DO_FIZHI |
qliqaveswin(i,j,L,bi,bj) = qliqavesw(i,j,L) |
|
./pkg/fizhi/do_fizhi.F |
282 |
DO_FIZHI |
fccaveswin(i,j,L,bi,bj) = fccavesw(i,j,L) |
|
./pkg/fizhi/do_fizhi.F |
289 |
DO_FIZHI |
rainconin(i,j,bi,bj) = raincon(i,j) |
|
./pkg/fizhi/do_fizhi.F |
290 |
DO_FIZHI |
rainlspin(i,j,bi,bj) = rainlsp(i,j) |
|
./pkg/fizhi/do_fizhi.F |
291 |
DO_FIZHI |
snowfallin(i,j,bi,bj) = snowfall(i,j) |
|
./pkg/fizhi/do_fizhi.F |
300 |
DO_FIZHI |
duphy(i,j,L,bi,bj) = moistu(i,j,L,bi,bj) + turbu(i,j,L,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
301 |
DO_FIZHI |
dvphy(i,j,L,bi,bj) = moistv(i,j,L,bi,bj) + turbv(i,j,L,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
302 |
DO_FIZHI |
dthphy(i,j,L,bi,bj) = ((moistt(i,j,L,bi,bj)+turbt(i,j,L,bi,bj)+ |
|
./pkg/fizhi/do_fizhi.F |
303 |
DO_FIZHI |
& lwdt(i,j,L,bi,bj) + |
|
./pkg/fizhi/do_fizhi.F |
304 |
DO_FIZHI |
& dlwdtg(i,j,L,bi,bj) * (tgz(i,j,bi,bj)-tg0(i,j,bi,bj)) + |
|
./pkg/fizhi/do_fizhi.F |
305 |
DO_FIZHI |
& swdt(i,j,L,bi,bj)*radswt(i,j,bi,bj) )*p0kappa ) / p(i,j,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
306 |
DO_FIZHI |
dsphy(i,j,L,bi,bj) = (moistq(i,j,L,1,bi,bj)+turbq(i,j,L,1,bi,bj)) |
|
./pkg/fizhi/do_fizhi.F |
307 |
DO_FIZHI |
& /p(i,j,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
316 |
DO_FIZHI |
& im1,im2,jm1,jm2,Nrphys,nSx,nSy,bi,bj,ntracer) |
|
./pkg/fizhi/do_fizhi.F |
35 |
DO_FIZHI |
INTEGER Nrphin,nSxIn,nSyIn,bi,bj,nchp |
|
./pkg/fizhi/do_fizhi.F |
5 |
DO_FIZHI |
& idim1,idim2,jdim1,jdim2,Nrphin,nSxIn,nSyIn,im1,im2,jm1,jm2,bi,bj, |
|
./pkg/fizhi/fizhi_driver.F |
164 |
FIZHI_DRIVER |
call SWRIO ( nymd,nhms,bi,bj,ndsw,myid,istrip,npcs, |
|
./pkg/fizhi/fizhi_driver.F |
187 |
FIZHI_DRIVER |
call LWRIO ( nymd,nhms,bi,bj,myid,istrip,npcs, |
|
./pkg/fizhi/fizhi_driver.F |
202 |
FIZHI_DRIVER |
call TURBIO (im,jm,lm,istrip,nymd,nhms,bi,bj, |
|
./pkg/fizhi/fizhi_driver.F |
221 |
FIZHI_DRIVER |
& turbu,turbv,turbt,im,jm,lm,bi,bj,istrip,npcs,imglobal) |
|
./pkg/fizhi/fizhi_driver.F |
227 |
FIZHI_DRIVER |
& bi,bj,rfu,rfv,rft) |
|
./pkg/fizhi/fizhi_driver.F |
247 |
FIZHI_DRIVER |
& p,pl,ple,dpres,pkht,pkl,u,v,t,q,bi,bj,ntracer,ptracer,qq, |
|
./pkg/fizhi/fizhi_driver.F |
52 |
FIZHI_DRIVER |
INTEGER myid,im,jm,lm,bi,bj,ptracer,ntracer |
|
./pkg/fizhi/fizhi_driver.F |
5 |
FIZHI_DRIVER |
SUBROUTINE FIZHI_DRIVER (myid,im,jm,lm,bi,bj,ptracer,ntracer, |
|
./pkg/fizhi/fizhi_fillnegs.F |
27 |
QCHECK |
integer Nsx,Nsy,bi,bj |
|
./pkg/fizhi/fizhi_fillnegs.F |
40 |
QCHECK |
ddsig = dp(i,j,LM1,bi,bj)/dp(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_fillnegs.F |
41 |
QCHECK |
if( qz(i,j,LM1,bi,bj).lt.0.0 _d 0) then |
|
./pkg/fizhi/fizhi_fillnegs.F |
42 |
QCHECK |
qz(i,j,L,bi,bj ) = qz(i,j,L,bi,bj) + qz(i,j,LM1,bi,bj)*ddsig |
|
./pkg/fizhi/fizhi_fillnegs.F |
43 |
QCHECK |
qz(i,j,LM1,bi,bj) = 0.0 _d 0 |
|
./pkg/fizhi/fizhi_fillnegs.F |
51 |
QCHECK |
if(qz(i,j,Ldim,bi,bj).lt.0.0 _d 0)qz(i,j,Ldim,bi,bj) = 0.0 _d 0 |
|
./pkg/fizhi/fizhi_fillnegs.F |
6 |
QCHECK |
. jm1,jm2,bi,bj,dp,qz) |
|
./pkg/fizhi/fizhi_gwdrag.F |
211 |
GWDRAG |
call DIAGNOSTICS_FILL(tmpdiag,'GWDU ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_gwdrag.F |
220 |
GWDRAG |
call DIAGNOSTICS_FILL(tmpdiag,'GWDV ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_gwdrag.F |
229 |
GWDRAG |
call DIAGNOSTICS_FILL(tmpdiag,'GWDT ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_gwdrag.F |
237 |
GWDRAG |
call DIAGNOSTICS_FILL(dragx,'GWDUS ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_gwdrag.F |
243 |
GWDRAG |
call DIAGNOSTICS_FILL(dragy,'GWDVS ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_gwdrag.F |
266 |
GWDRAG |
call DIAGNOSTICS_FILL(tmpdiag,'GWDUT ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_gwdrag.F |
289 |
GWDRAG |
call DIAGNOSTICS_FILL(tmpdiag,'GWDVT ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_gwdrag.F |
43 |
GWDRAG |
integer myid,im,jm,Lm,bi,bj,istrip,npcs,imglobal |
|
./pkg/fizhi/fizhi_gwdrag.F |
5 |
GWDRAG |
. dudt,dvdt,dtdt,im,jm,Lm,bi,bj,istrip,npcs,imglobal) |
|
./pkg/fizhi/fizhi_init_fixed.F |
109 |
FIZHI_INIT_FIXED |
do bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/fizhi/fizhi_init_fixed.F |
111 |
FIZHI_INIT_FIXED |
call GET_LANDFRAC(im2,jm2,nSx,nSy,bi,bj,maxtyp, |
|
./pkg/fizhi/fizhi_init_fixed.F |
112 |
FIZHI_INIT_FIXED |
& surftype,tilefrac,fracland(1,1,bi,bj)) |
|
./pkg/fizhi/fizhi_init_fixed.F |
115 |
FIZHI_INIT_FIXED |
landtype(i,j,bi,bj) = surftype(i,j,1,bi,bj) |
|
./pkg/fizhi/fizhi_init_fixed.F |
116 |
FIZHI_INIT_FIXED |
if(fracland(i,j,bi,bj).ge.0.3.and.surftype(i,j,1,bi,bj).ge.100) |
|
./pkg/fizhi/fizhi_init_fixed.F |
117 |
FIZHI_INIT_FIXED |
& landtype(i,j,bi,bj) = surftype(i,j,2,bi,bj) |
|
./pkg/fizhi/fizhi_init_fixed.F |
118 |
FIZHI_INIT_FIXED |
if(sice(i,j,bi,bj).ne.0.0)landtype(i,j,bi,bj) = 101 |
|
./pkg/fizhi/fizhi_init_fixed.F |
153 |
FIZHI_INIT_FIXED |
do bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/fizhi/fizhi_init_fixed.F |
157 |
FIZHI_INIT_FIXED |
if(fracland(i,j,bi,bj).gt.0.3) then |
|
./pkg/fizhi/fizhi_init_fixed.F |
158 |
FIZHI_INIT_FIXED |
phis_var(i,j,bi,bj) = tempoverlap(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_init_fixed.F |
160 |
FIZHI_INIT_FIXED |
phis_var(i,j,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_fixed.F |
44 |
FIZHI_INIT_FIXED |
INTEGER i,j,L,bi,bj |
|
./pkg/fizhi/fizhi_init_fixed.F |
85 |
FIZHI_INIT_FIXED |
do bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/fizhi/fizhi_init_fixed.F |
89 |
FIZHI_INIT_FIXED |
lons(i,j,bi,bj) = xC(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_init_fixed.F |
90 |
FIZHI_INIT_FIXED |
lats(i,j,bi,bj) = yC(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_init_vars.F |
103 |
FIZHI_INIT_VARS |
pedyn(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
109 |
FIZHI_INIT_VARS |
Lbotij = kSurfC(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_init_vars.F |
111 |
FIZHI_INIT_VARS |
& pedyn(i,j,Lbotij,bi,bj) = Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_init_vars.F |
116 |
FIZHI_INIT_VARS |
Lbotij = kSurfC(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_init_vars.F |
118 |
FIZHI_INIT_VARS |
pedyn(i,j,L,bi,bj) = pedyn(i,j,L-1,bi,bj) - |
|
./pkg/fizhi/fizhi_init_vars.F |
119 |
FIZHI_INIT_VARS |
& drF(L-1)*hfacC(i,j,L-1,bi,bj) |
|
./pkg/fizhi/fizhi_init_vars.F |
122 |
FIZHI_INIT_VARS |
if(pedyn(i,j,Nr+1,bi,bj).lt.1.e-5) |
|
./pkg/fizhi/fizhi_init_vars.F |
123 |
FIZHI_INIT_VARS |
& pedyn(i,j,Nr+1,bi,bj) = 1.e-5 |
|
./pkg/fizhi/fizhi_init_vars.F |
129 |
FIZHI_INIT_VARS |
pephy(i,j,1,bi,bj)=Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_init_vars.F |
131 |
FIZHI_INIT_VARS |
pephy(i,j,L,bi,bj)=pephy(i,j,L-1,bi,bj)-dpphys0(i,j,L-1,bi,bj) |
|
./pkg/fizhi/fizhi_init_vars.F |
134 |
FIZHI_INIT_VARS |
if(pephy(i,j,Nrphys+1,bi,bj).lt.1.e-5) |
|
./pkg/fizhi/fizhi_init_vars.F |
135 |
FIZHI_INIT_VARS |
& pephy(i,j,Nrphys+1,bi,bj) = 1.e-5 |
|
./pkg/fizhi/fizhi_init_vars.F |
145 |
FIZHI_INIT_VARS |
windphy(i,j,L,bi,bj) = 0.025 * |
|
./pkg/fizhi/fizhi_init_vars.F |
146 |
FIZHI_INIT_VARS |
& log((pephy(i,j,1,bi,bj)-pephy(i,j,L+1,bi,bj))*10.) |
|
./pkg/fizhi/fizhi_init_vars.F |
158 |
FIZHI_INIT_VARS |
do bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/fizhi/fizhi_init_vars.F |
163 |
FIZHI_INIT_VARS |
& 1,sNx,1,sNy,bi,bj,windphy,pephy,kSurfC,Nrphys,nlperdyn,1,tempphy) |
|
./pkg/fizhi/fizhi_init_vars.F |
169 |
FIZHI_INIT_VARS |
uphy(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_init_vars.F |
174 |
FIZHI_INIT_VARS |
& 1,sNx,1,sNy,bi,bj,windphy,pephy,kSurfC,Nrphys,nlperdyn,1,tempphy) |
|
./pkg/fizhi/fizhi_init_vars.F |
178 |
FIZHI_INIT_VARS |
vphy(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_init_vars.F |
183 |
FIZHI_INIT_VARS |
& 1,sNx,1,sNy,bi,bj,windphy,pephy,kSurfC,Nrphys,nlperdyn,2,tempphy) |
|
./pkg/fizhi/fizhi_init_vars.F |
187 |
FIZHI_INIT_VARS |
thphy(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_init_vars.F |
192 |
FIZHI_INIT_VARS |
& 1,sNx,1,sNy,bi,bj,windphy,pephy,kSurfC,Nrphys,nlperdyn,0,tempphy) |
|
./pkg/fizhi/fizhi_init_vars.F |
196 |
FIZHI_INIT_VARS |
sphy(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_init_vars.F |
205 |
FIZHI_INIT_VARS |
duphy(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
206 |
FIZHI_INIT_VARS |
dvphy(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
207 |
FIZHI_INIT_VARS |
dthphy(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
208 |
FIZHI_INIT_VARS |
dsphy(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
217 |
FIZHI_INIT_VARS |
guphy(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
218 |
FIZHI_INIT_VARS |
gvphy(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
219 |
FIZHI_INIT_VARS |
gthphy(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
220 |
FIZHI_INIT_VARS |
gsphy(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
229 |
FIZHI_INIT_VARS |
ctmt(i,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
230 |
FIZHI_INIT_VARS |
xxmt(i,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
231 |
FIZHI_INIT_VARS |
yymt(i,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
232 |
FIZHI_INIT_VARS |
zetamt(i,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
236 |
FIZHI_INIT_VARS |
tke(i,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
237 |
FIZHI_INIT_VARS |
xlmt(i,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
238 |
FIZHI_INIT_VARS |
khmt(i,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
245 |
FIZHI_INIT_VARS |
turbStart(bi,bj) = .TRUE. |
|
./pkg/fizhi/fizhi_init_vars.F |
253 |
FIZHI_INIT_VARS |
imstturblw(bi,bj) = 0 |
|
./pkg/fizhi/fizhi_init_vars.F |
254 |
FIZHI_INIT_VARS |
imstturbsw(bi,bj) = 0 |
|
./pkg/fizhi/fizhi_init_vars.F |
255 |
FIZHI_INIT_VARS |
iras(bi,bj) = 0 |
|
./pkg/fizhi/fizhi_init_vars.F |
256 |
FIZHI_INIT_VARS |
nlwcld(bi,bj) = 0 |
|
./pkg/fizhi/fizhi_init_vars.F |
257 |
FIZHI_INIT_VARS |
nlwlz(bi,bj) = 0 |
|
./pkg/fizhi/fizhi_init_vars.F |
258 |
FIZHI_INIT_VARS |
nswcld(bi,bj) = 0 |
|
./pkg/fizhi/fizhi_init_vars.F |
259 |
FIZHI_INIT_VARS |
nswlz(bi,bj) = 0 |
|
./pkg/fizhi/fizhi_init_vars.F |
263 |
FIZHI_INIT_VARS |
swlz(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
264 |
FIZHI_INIT_VARS |
lwlz(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
265 |
FIZHI_INIT_VARS |
qliqavesw(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
266 |
FIZHI_INIT_VARS |
qliqavelw(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
267 |
FIZHI_INIT_VARS |
fccavesw(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
268 |
FIZHI_INIT_VARS |
fccavelw(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
269 |
FIZHI_INIT_VARS |
cldtot_sw(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
270 |
FIZHI_INIT_VARS |
cldras_sw(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
271 |
FIZHI_INIT_VARS |
cldlsp_sw(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
272 |
FIZHI_INIT_VARS |
cldtot_lw(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
273 |
FIZHI_INIT_VARS |
cldras_lw(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
274 |
FIZHI_INIT_VARS |
cldlsp_lw(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
280 |
FIZHI_INIT_VARS |
rainlsp(i,j,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
281 |
FIZHI_INIT_VARS |
raincon(i,j,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
282 |
FIZHI_INIT_VARS |
snowfall(i,j,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
296 |
FIZHI_INIT_VARS |
do bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/fizhi/fizhi_init_vars.F |
298 |
FIZHI_INIT_VARS |
turbStart(bi,bj) = .FALSE. |
|
./pkg/fizhi/fizhi_init_vars.F |
60 |
FIZHI_INIT_VARS |
INTEGER i, j, L, bi, bj, Lbotij |
|
./pkg/fizhi/fizhi_init_vars.F |
96 |
FIZHI_INIT_VARS |
do bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/fizhi/fizhi_init_veg.F |
121 |
FIZHI_INIT_VEG |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/fizhi/fizhi_init_veg.F |
125 |
FIZHI_INIT_VEG |
bjglobal=bj+(myYGlobalLo-1)/jm |
|
./pkg/fizhi/fizhi_init_veg.F |
135 |
FIZHI_INIT_VEG |
surftype(i,j,k,bi,bj) = iveg_32(i,j,k,biglobal,bjglobal) |
|
./pkg/fizhi/fizhi_init_veg.F |
136 |
FIZHI_INIT_VEG |
tilefrac(i,j,k,bi,bj) = veg_32(i,j,k,biglobal,bjglobal) |
|
./pkg/fizhi/fizhi_init_veg.F |
155 |
FIZHI_INIT_VEG |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/fizhi/fizhi_init_veg.F |
160 |
FIZHI_INIT_VEG |
igrd(i,bi,bj) = 1 |
|
./pkg/fizhi/fizhi_init_veg.F |
164 |
FIZHI_INIT_VEG |
nchpland(bi,bj) = 0 |
|
./pkg/fizhi/fizhi_init_veg.F |
168 |
FIZHI_INIT_VEG |
if(surftype(i,j,k,bi,bj).lt.100 .and. |
|
./pkg/fizhi/fizhi_init_veg.F |
169 |
FIZHI_INIT_VEG |
& tilefrac(i,j,k,bi,bj).gt.0.) then |
|
./pkg/fizhi/fizhi_init_veg.F |
170 |
FIZHI_INIT_VEG |
nchpland(bi,bj) = nchpland(bi,bj) + 1 |
|
./pkg/fizhi/fizhi_init_veg.F |
171 |
FIZHI_INIT_VEG |
igrd (nchpland(bi,bj),bi,bj) = i + (j-1)*im |
|
./pkg/fizhi/fizhi_init_veg.F |
172 |
FIZHI_INIT_VEG |
ityp (nchpland(bi,bj),bi,bj) = surftype(i,j,k,bi,bj) |
|
./pkg/fizhi/fizhi_init_veg.F |
173 |
FIZHI_INIT_VEG |
chfr (nchpland(bi,bj),bi,bj) = tilefrac(i,j,k,bi,bj) |
|
./pkg/fizhi/fizhi_init_veg.F |
174 |
FIZHI_INIT_VEG |
chlon(nchpland(bi,bj),bi,bj) = lons(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_init_veg.F |
175 |
FIZHI_INIT_VEG |
chlt (nchpland(bi,bj),bi,bj) = lats(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_init_veg.F |
182 |
FIZHI_INIT_VEG |
nchptot(bi,bj) = nchpland(bi,bj) |
|
./pkg/fizhi/fizhi_init_veg.F |
186 |
FIZHI_INIT_VEG |
if(surftype(i,j,k,bi,bj).ge.100 .and. |
|
./pkg/fizhi/fizhi_init_veg.F |
187 |
FIZHI_INIT_VEG |
& tilefrac(i,j,k,bi,bj).gt.0.) then |
|
./pkg/fizhi/fizhi_init_veg.F |
188 |
FIZHI_INIT_VEG |
nchptot(bi,bj) = nchptot(bi,bj) + 1 |
|
./pkg/fizhi/fizhi_init_veg.F |
189 |
FIZHI_INIT_VEG |
igrd (nchptot(bi,bj),bi,bj) = i + (j-1)*im |
|
./pkg/fizhi/fizhi_init_veg.F |
190 |
FIZHI_INIT_VEG |
ityp (nchptot(bi,bj),bi,bj) = surftype(i,j,k,bi,bj) |
|
./pkg/fizhi/fizhi_init_veg.F |
191 |
FIZHI_INIT_VEG |
chfr (nchptot(bi,bj),bi,bj) = tilefrac(i,j,k,bi,bj) |
|
./pkg/fizhi/fizhi_init_veg.F |
192 |
FIZHI_INIT_VEG |
chlon(nchptot(bi,bj),bi,bj) = lons(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_init_veg.F |
193 |
FIZHI_INIT_VEG |
chlt (nchptot(bi,bj),bi,bj) = lats(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_init_veg.F |
200 |
FIZHI_INIT_VEG |
& ', bj=', bj, ', # of Land Tiles=', nchpland(bi,bj), |
|
./pkg/fizhi/fizhi_init_veg.F |
201 |
FIZHI_INIT_VEG |
& ', Total # of Tiles=', nchptot(bi,bj) |
|
./pkg/fizhi/fizhi_init_veg.F |
67 |
FIZHI_INIT_VEG |
INTEGER i,j,k,bi,bj |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
102 |
FIZHI_INIT_VEGSURFTILES |
call GRD2MSC(tempgrid,sNx,sNy,igrd(1,bi,bj), |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
103 |
FIZHI_INIT_VEGSURFTILES |
. temptile,nchp,nchptot(bi,bj)) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
105 |
FIZHI_INIT_VEGSURFTILES |
tcanopy(n,bi,bj) = temptile(n) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
111 |
FIZHI_INIT_VEGSURFTILES |
if (tempgrid(i,j).gt.1.e14 .and. fracland(i,j,bi,bj).gt.0.0001) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
115 |
FIZHI_INIT_VEGSURFTILES |
call GRD2MSC(tempgrid,sNx,sNy,igrd(1,bi,bj), |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
116 |
FIZHI_INIT_VEGSURFTILES |
. temptile,nchp,nchptot(bi,bj)) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
118 |
FIZHI_INIT_VEGSURFTILES |
tdeep(n,bi,bj) = temptile(n) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
124 |
FIZHI_INIT_VEGSURFTILES |
if (tempgrid(i,j).gt.1.e14 .and. fracland(i,j,bi,bj).gt.0.0001) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
128 |
FIZHI_INIT_VEGSURFTILES |
call GRD2MSC(tempgrid,sNx,sNy,igrd(1,bi,bj), |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
129 |
FIZHI_INIT_VEGSURFTILES |
. temptile,nchp,nchptot(bi,bj)) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
131 |
FIZHI_INIT_VEGSURFTILES |
ecanopy(n,bi,bj) = temptile(n) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
137 |
FIZHI_INIT_VEGSURFTILES |
if (tempgrid(i,j).gt.1.e14 .and. fracland(i,j,bi,bj).gt.0.0001) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
141 |
FIZHI_INIT_VEGSURFTILES |
call GRD2MSC(tempgrid,sNx,sNy,igrd(1,bi,bj), |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
142 |
FIZHI_INIT_VEGSURFTILES |
. temptile,nchp,nchptot(bi,bj)) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
144 |
FIZHI_INIT_VEGSURFTILES |
swetshal(n,bi,bj) = temptile(n) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
150 |
FIZHI_INIT_VEGSURFTILES |
if (tempgrid(i,j).gt.1.e14 .and. fracland(i,j,bi,bj).gt.0.0001) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
154 |
FIZHI_INIT_VEGSURFTILES |
call GRD2MSC(tempgrid,sNx,sNy,igrd(1,bi,bj), |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
155 |
FIZHI_INIT_VEGSURFTILES |
. temptile,nchp,nchptot(bi,bj)) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
157 |
FIZHI_INIT_VEGSURFTILES |
swetroot(n,bi,bj) = temptile(n) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
163 |
FIZHI_INIT_VEGSURFTILES |
if (tempgrid(i,j).gt.1.e14 .and. fracland(i,j,bi,bj).gt.0.0001) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
167 |
FIZHI_INIT_VEGSURFTILES |
call GRD2MSC(tempgrid,sNx,sNy,igrd(1,bi,bj), |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
168 |
FIZHI_INIT_VEGSURFTILES |
. temptile,nchp,nchptot(bi,bj)) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
170 |
FIZHI_INIT_VEGSURFTILES |
swetdeep(n,bi,bj) = temptile(n) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
176 |
FIZHI_INIT_VEGSURFTILES |
if (tempgrid(i,j).gt.1.e14 .and. fracland(i,j,bi,bj).gt.0.0001) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
180 |
FIZHI_INIT_VEGSURFTILES |
call GRD2MSC(tempgrid,sNx,sNy,igrd(1,bi,bj), |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
181 |
FIZHI_INIT_VEGSURFTILES |
. temptile,nchp,nchptot(bi,bj)) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
183 |
FIZHI_INIT_VEGSURFTILES |
snodep(n,bi,bj) = temptile(n) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
189 |
FIZHI_INIT_VEGSURFTILES |
if (tempgrid(i,j).gt.1.e14 .and. fracland(i,j,bi,bj).gt.0.0001) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
193 |
FIZHI_INIT_VEGSURFTILES |
call GRD2MSC(tempgrid,sNx,sNy,igrd(1,bi,bj), |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
194 |
FIZHI_INIT_VEGSURFTILES |
. temptile,nchp,nchptot(bi,bj)) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
196 |
FIZHI_INIT_VEGSURFTILES |
capac(n,bi,bj) = temptile(n) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
49 |
FIZHI_INIT_VEGSURFTILES |
integer bi,bj,fileprec |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
83 |
FIZHI_INIT_VEGSURFTILES |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
87 |
FIZHI_INIT_VEGSURFTILES |
bislot = exch2_txglobalo(W2_myTileList(bi,bj))-1 |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
88 |
FIZHI_INIT_VEGSURFTILES |
bjslot = exch2_tyglobalo(W2_myTileList(bi,bj))-1 |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
91 |
FIZHI_INIT_VEGSURFTILES |
bjslot = myYGlobalLo-1+(bj-1)*sNy |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
94 |
FIZHI_INIT_VEGSURFTILES |
call GET_LANDFRAC(sNx,sNy,Nsx,Nsy,bi,bj,maxtyp, |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
95 |
FIZHI_INIT_VEGSURFTILES |
. surftype,tilefrac,fracland(1,1,bi,bj)) |
|
./pkg/fizhi/fizhi_lwrad.F |
19 |
LWRIO |
integer nymd,nhms,istrip,npcs,bi,bj,myid |
|
./pkg/fizhi/fizhi_lwrad.F |
282 |
LWRIO |
call DIAGNOSTICS_FILL(tgz,'TGRLW ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_lwrad.F |
293 |
LWRIO |
call DIAGNOSTICS_FILL(tmpdiag,'TLW ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_lwrad.F |
302 |
LWRIO |
call DIAGNOSTICS_FILL(tmpdiag,'SHRAD ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_lwrad.F |
311 |
LWRIO |
call DIAGNOSTICS_FILL(tmpdiag,'OZLW ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_lwrad.F |
317 |
LWRIO |
call DIAGNOSTICS_FILL(tempor1,'OLR ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_lwrad.F |
321 |
LWRIO |
call DIAGNOSTICS_FILL(tempor2,'OLRCLR ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_lwrad.F |
5 |
LWRIO |
subroutine LWRIO (nymd,nhms,bi,bj,myid,istrip,npcs, |
|
./pkg/fizhi/fizhi_moist.F |
1142 |
MOISTIO |
call DIAGNOSTICS_FILL(tmpdiag,'CLDTMP ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_moist.F |
1143 |
MOISTIO |
call DIAGNOSTICS_FILL(tmpdiag2,'CTTCNT ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_moist.F |
1159 |
MOISTIO |
call DIAGNOSTICS_FILL(tmpdiag,'CLDPRS ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_moist.F |
1160 |
MOISTIO |
call DIAGNOSTICS_FILL(tmpdiag2,'CTPCNT ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_moist.F |
21 |
MOISTIO |
integer bi,bj,ntracerin,ptracer |
|
./pkg/fizhi/fizhi_moist.F |
7 |
MOISTIO |
. pz,plz,plze,dpres,pkht,pkl,uz,vz,tz,qz,bi,bj,ntracerin,ptracer, |
|
./pkg/fizhi/fizhi_moist.F |
850 |
MOISTIO |
call DIAGNOSTICS_FILL(psubcldg,'PSUBCLD ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_moist.F |
851 |
MOISTIO |
call DIAGNOSTICS_FILL(psubcldgc,'PSUBCLDC',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_moist.F |
863 |
MOISTIO |
call DIAGNOSTICS_FILL(tmpdiag,'CLDNP ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_moist.F |
877 |
MOISTIO |
call DIAGNOSTICS_FILL(tmpdiag,'MOISTT ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_moist.F |
890 |
MOISTIO |
call DIAGNOSTICS_FILL(tmpdiag,'MOISTQ ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_moist.F |
903 |
MOISTIO |
call DIAGNOSTICS_FILL(tmpdiag,'MOISTU ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_moist.F |
916 |
MOISTIO |
call DIAGNOSTICS_FILL(tmpdiag,'MOISTV ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_moist.F |
930 |
MOISTIO |
call DIAGNOSTICS_FILL(tmpdiag,'CLDMAS ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_moist.F |
944 |
MOISTIO |
call DIAGNOSTICS_FILL(tmpdiag,'DTRAIN ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_moist.F |
958 |
MOISTIO |
call DIAGNOSTICS_FILL(tmpdiag,'DTLS ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_moist.F |
972 |
MOISTIO |
call DIAGNOSTICS_FILL(tmpdiag,'DQLS ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_moist.F |
985 |
MOISTIO |
call DIAGNOSTICS_FILL(tmpdiag,'PREACC ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_moist.F |
997 |
MOISTIO |
call DIAGNOSTICS_FILL(tmpdiag,'PRECON ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_rayleigh.F |
38 |
RAYLEIGH |
integer myid,im,jm,lm,bi,bj |
|
./pkg/fizhi/fizhi_rayleigh.F |
6 |
RAYLEIGH |
. bi,bj,rfu,rfv,rft) |
|
./pkg/fizhi/fizhi_read_pickup.F |
45 |
FIZHI_READ_PICKUP |
integer j,bi,bj |
|
./pkg/fizhi/fizhi_read_pickup.F |
74 |
FIZHI_READ_PICKUP |
do bj = 1,myByLo(myThid), myByHi(myThid) |
|
./pkg/fizhi/fizhi_read_pickup.F |
78 |
FIZHI_READ_PICKUP |
raincon(i,j,bi,bj) = temp(i,j,1,bi,bj) |
|
./pkg/fizhi/fizhi_read_pickup.F |
79 |
FIZHI_READ_PICKUP |
rainlsp(i,j,bi,bj) = temp(i,j,2,bi,bj) |
|
./pkg/fizhi/fizhi_read_pickup.F |
80 |
FIZHI_READ_PICKUP |
snowfall(i,j,bi,bj) = temp(i,j,3,bi,bj) |
|
./pkg/fizhi/fizhi_read_pickup.F |
84 |
FIZHI_READ_PICKUP |
iras(bi,bj) = NINT(temp(1,1,4,bi,bj)) |
|
./pkg/fizhi/fizhi_read_pickup.F |
85 |
FIZHI_READ_PICKUP |
nlwcld(bi,bj) = NINT(temp(2,1,4,bi,bj)) |
|
./pkg/fizhi/fizhi_read_pickup.F |
86 |
FIZHI_READ_PICKUP |
nlwlz(bi,bj) = NINT(temp(3,1,4,bi,bj)) |
|
./pkg/fizhi/fizhi_read_pickup.F |
87 |
FIZHI_READ_PICKUP |
nswcld(bi,bj) = NINT(temp(4,1,4,bi,bj)) |
|
./pkg/fizhi/fizhi_read_pickup.F |
88 |
FIZHI_READ_PICKUP |
nswlz(bi,bj) = NINT(temp(5,1,4,bi,bj)) |
|
./pkg/fizhi/fizhi_read_pickup.F |
89 |
FIZHI_READ_PICKUP |
imstturbsw(bi,bj) = NINT(temp(6,1,4,bi,bj)) |
|
./pkg/fizhi/fizhi_read_pickup.F |
90 |
FIZHI_READ_PICKUP |
imstturblw(bi,bj) = NINT(temp(7,1,4,bi,bj)) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
111 |
FIZHI_WRITE_VEGTILES |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
115 |
FIZHI_WRITE_VEGTILES |
tn = W2_myTileList(bi,bj) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
120 |
FIZHI_WRITE_VEGTILES |
jG = bj+(myYGlobalLo-1)/sNy |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
131 |
FIZHI_WRITE_VEGTILES |
r8seg(n) = ctmt(n,bi,bj) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
139 |
FIZHI_WRITE_VEGTILES |
r8seg(n) = xxmt(n,bi,bj) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
147 |
FIZHI_WRITE_VEGTILES |
r8seg(n) = yymt(n,bi,bj) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
155 |
FIZHI_WRITE_VEGTILES |
r8seg(n) = zetamt(n,bi,bj) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
165 |
FIZHI_WRITE_VEGTILES |
r8seg(n) = xlmt(n,k,bi,bj) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
176 |
FIZHI_WRITE_VEGTILES |
r8seg(n) = khmt(n,k,bi,bj) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
187 |
FIZHI_WRITE_VEGTILES |
r8seg(n) = tke(n,k,bi,bj) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
198 |
FIZHI_WRITE_VEGTILES |
r8seg(n) = tcanopy(n,bi,bj) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
207 |
FIZHI_WRITE_VEGTILES |
r8seg(n) = tdeep(n,bi,bj) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
216 |
FIZHI_WRITE_VEGTILES |
r8seg(n) = ecanopy(n,bi,bj) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
225 |
FIZHI_WRITE_VEGTILES |
r8seg(n) = swetshal(n,bi,bj) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
234 |
FIZHI_WRITE_VEGTILES |
r8seg(n) = swetroot(n,bi,bj) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
243 |
FIZHI_WRITE_VEGTILES |
r8seg(n) = swetdeep(n,bi,bj) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
252 |
FIZHI_WRITE_VEGTILES |
r8seg(n) = snodep(n,bi,bj) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
261 |
FIZHI_WRITE_VEGTILES |
r8seg(n) = capac(n,bi,bj) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
323 |
FIZHI_READ_VEGTILES |
integer bi,bj,irec,fileprec |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
366 |
FIZHI_READ_VEGTILES |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
370 |
FIZHI_READ_VEGTILES |
tn = W2_myTileList(bi,bj) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
375 |
FIZHI_READ_VEGTILES |
jG = bj+(myYGlobalLo-1)/sNy |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
392 |
FIZHI_READ_VEGTILES |
ctmt(n,bi,bj) = r8seg(n) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
400 |
FIZHI_READ_VEGTILES |
xxmt(n,bi,bj) = r8seg(n) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
408 |
FIZHI_READ_VEGTILES |
yymt(n,bi,bj) = r8seg(n) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
416 |
FIZHI_READ_VEGTILES |
zetamt(n,bi,bj) = r8seg(n) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
427 |
FIZHI_READ_VEGTILES |
xlmt(n,k,bi,bj) = r8seg(n) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
438 |
FIZHI_READ_VEGTILES |
khmt(n,k,bi,bj) = r8seg(n) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
449 |
FIZHI_READ_VEGTILES |
tke(n,k,bi,bj) = r8seg(n) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
460 |
FIZHI_READ_VEGTILES |
tcanopy(n,bi,bj) = r8seg(n) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
469 |
FIZHI_READ_VEGTILES |
tdeep(n,bi,bj) = r8seg(n) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
478 |
FIZHI_READ_VEGTILES |
ecanopy(n,bi,bj) = r8seg(n) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
487 |
FIZHI_READ_VEGTILES |
swetshal(n,bi,bj) = r8seg(n) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
496 |
FIZHI_READ_VEGTILES |
swetroot(n,bi,bj) = r8seg(n) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
505 |
FIZHI_READ_VEGTILES |
swetdeep(n,bi,bj) = r8seg(n) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
514 |
FIZHI_READ_VEGTILES |
snodep(n,bi,bj) = r8seg(n) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
51 |
FIZHI_WRITE_VEGTILES |
integer bi,bj,irec,fileprec |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
523 |
FIZHI_READ_VEGTILES |
capac(n,bi,bj) = r8seg(n) |
|
./pkg/fizhi/fizhi_step_diag.F |
105 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = (1.0-osrclr(i,j,bi,bj))*radswt(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_step_diag.F |
108 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'OSRCLR ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
116 |
FIZHI_STEP_DIAG |
if(radswt(i,j,bi,bj).ne.0.) then |
|
./pkg/fizhi/fizhi_step_diag.F |
117 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = osr(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_step_diag.F |
123 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'PLALBEDO',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
131 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = st4(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_step_diag.F |
132 |
FIZHI_STEP_DIAG |
& + dst4(i,j,bi,bj)*(tgz(i,j,bi,bj)-tg0(i,j,bi,bj)) |
|
./pkg/fizhi/fizhi_step_diag.F |
135 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'LWGUP ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
13 |
FIZHI_STEP_DIAG |
INTEGER myid,im1,im2,jm1,jm2,Nrphys,Nbi,Nbj,bi,bj,ntracer |
|
./pkg/fizhi/fizhi_step_diag.F |
143 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = radlwg(i,j,bi,bj) + |
|
./pkg/fizhi/fizhi_step_diag.F |
144 |
FIZHI_STEP_DIAG |
& dst4(i,j,bi,bj)*(tgz(i,j,bi,bj)-tg0(i,j,bi,bj)) |
|
./pkg/fizhi/fizhi_step_diag.F |
147 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'RADLWG ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
155 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = lwgclr(i,j,bi,bj) + |
|
./pkg/fizhi/fizhi_step_diag.F |
156 |
FIZHI_STEP_DIAG |
& dst4(i,j,bi,bj)*(tgz(i,j,bi,bj)-tg0(i,j,bi,bj)) |
|
./pkg/fizhi/fizhi_step_diag.F |
159 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'LWGCLR ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
170 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = (moistu (i,j,L,bi,bj)+turbu(i,j,L,bi,bj) )*86400 |
|
./pkg/fizhi/fizhi_step_diag.F |
173 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'DIABU ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
181 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = (moistv (i,j,L,bi,bj)+turbv(i,j,L,bi,bj) )*86400 |
|
./pkg/fizhi/fizhi_step_diag.F |
184 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'DIABV ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
193 |
FIZHI_STEP_DIAG |
& ( turbt(i,j,L,bi,bj) + moistt(i,j,L,bi,bj) + |
|
./pkg/fizhi/fizhi_step_diag.F |
194 |
FIZHI_STEP_DIAG |
& lwdt(i,j,L,bi,bj) + |
|
./pkg/fizhi/fizhi_step_diag.F |
195 |
FIZHI_STEP_DIAG |
& dlwdtg(i,j,L,bi,bj)*(tgz(i,j,bi,bj)-tg0(i,j,bi,bj)) + |
|
./pkg/fizhi/fizhi_step_diag.F |
196 |
FIZHI_STEP_DIAG |
& swdt(i,j,L,bi,bj)*radswt(i,j,bi,bj) ) |
|
./pkg/fizhi/fizhi_step_diag.F |
197 |
FIZHI_STEP_DIAG |
& * pk(i,j,L,bi,bj)*pinv(i,j)*86400 |
|
./pkg/fizhi/fizhi_step_diag.F |
200 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'DIABT ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
209 |
FIZHI_STEP_DIAG |
& ( turbq(i,j,L,1,bi,bj) + moistq(i,j,L,1,bi,bj) ) * |
|
./pkg/fizhi/fizhi_step_diag.F |
213 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'DIABQ ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
222 |
FIZHI_STEP_DIAG |
& ( lwdt(i,j,l,bi,bj) + |
|
./pkg/fizhi/fizhi_step_diag.F |
223 |
FIZHI_STEP_DIAG |
& dlwdtg (i,j,L,bi,bj)*(tgz(i,j,bi,bj)-tg0(i,j,bi,bj)) ) |
|
./pkg/fizhi/fizhi_step_diag.F |
224 |
FIZHI_STEP_DIAG |
& * pk(i,j,l,bi,bj)*pinv(i,j)*86400 |
|
./pkg/fizhi/fizhi_step_diag.F |
227 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'RADLW ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
236 |
FIZHI_STEP_DIAG |
& ( lwdtclr(i,j,l,bi,bj) + |
|
./pkg/fizhi/fizhi_step_diag.F |
237 |
FIZHI_STEP_DIAG |
& dlwdtg (i,j,L,bi,bj)*(tgz(i,j,bi,bj)-tg0(i,j,bi,bj)) ) |
|
./pkg/fizhi/fizhi_step_diag.F |
238 |
FIZHI_STEP_DIAG |
& * pk(i,j,l,bi,bj)*pinv(i,j)*86400 |
|
./pkg/fizhi/fizhi_step_diag.F |
241 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'LWCLR ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
250 |
FIZHI_STEP_DIAG |
& + swdt(i,j,l,bi,bj)*radswt(i,j,bi,bj)* |
|
./pkg/fizhi/fizhi_step_diag.F |
251 |
FIZHI_STEP_DIAG |
& pk(i,j,l,bi,bj)*pinv(i,j)*86400 |
|
./pkg/fizhi/fizhi_step_diag.F |
254 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'RADSW ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
263 |
FIZHI_STEP_DIAG |
& + swdtclr(i,j,l,bi,bj)*radswt(i,j,bi,bj)* |
|
./pkg/fizhi/fizhi_step_diag.F |
264 |
FIZHI_STEP_DIAG |
& pk(i,j,l,bi,bj)*pinv(i,j)*86400 |
|
./pkg/fizhi/fizhi_step_diag.F |
267 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'SWCLR ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
278 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'UWND ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
289 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'VWND ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
297 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = thphy(i,j,L)*pk(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_step_diag.F |
300 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'TMPU ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
308 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = qq(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_step_diag.F |
311 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'TKE ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
322 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'SPHU ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
341 |
FIZHI_STEP_DIAG |
& moistt(i,j,L,bi,bj)*pk(i,j,l,bi,bj)*dp(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_step_diag.F |
350 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'VDTMOIST',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
365 |
FIZHI_STEP_DIAG |
& turbt(i,j,L,bi,bj)*pk(i,j,l,bi,bj)*dp(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_step_diag.F |
374 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'VDTTURB ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
388 |
FIZHI_STEP_DIAG |
qbar(i,j) = qbar(i,j) + ( lwdt(i,j,L,bi,bj) + |
|
./pkg/fizhi/fizhi_step_diag.F |
389 |
FIZHI_STEP_DIAG |
& dlwdtg(i,j,L,bi,bj)*(tgz(i,j,bi,bj)-tg0(i,j,bi,bj)) ) |
|
./pkg/fizhi/fizhi_step_diag.F |
390 |
FIZHI_STEP_DIAG |
& *pk(i,j,l,bi,bj)*dp(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_step_diag.F |
399 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'VDTRADLW',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
414 |
FIZHI_STEP_DIAG |
& swdt(i,j,L,bi,bj)*pk(i,j,l,bi,bj)*dp(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_step_diag.F |
421 |
FIZHI_STEP_DIAG |
& radswt(i,j,bi,bj) * pinv(i,j) * pinv(i,j) * 86400 |
|
./pkg/fizhi/fizhi_step_diag.F |
424 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'VDTRADSW',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
440 |
FIZHI_STEP_DIAG |
& sphy(i,j,L)*dp(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_step_diag.F |
449 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'TPW ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
54 |
FIZHI_STEP_DIAG |
pinv(i,j) = 1.0 / p(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_step_diag.F |
60 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(p(1,1,bi,bj),'PS ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
64 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(radswt(1,1,bi,bj),'RADSWT ', |
|
./pkg/fizhi/fizhi_step_diag.F |
65 |
FIZHI_STEP_DIAG |
& 0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
72 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = radswg(i,j,bi,bj)*radswt(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_step_diag.F |
75 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'RADSWG ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
83 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = swgclr(i,j,bi,bj)*radswt(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_step_diag.F |
86 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'SWGCLR ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
94 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = (1.0-osr(i,j,bi,bj))*radswt(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_step_diag.F |
97 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'OSR ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
9 |
FIZHI_STEP_DIAG |
& im1,im2,jm1,jm2,Nrphys,Nbi,Nbj,bi,bj,ntracer) |
|
./pkg/fizhi/fizhi_swrad.F |
18 |
SWRIO |
integer nymd,nhms,bi,bj,ndswr,myid,istrip,npcs |
|
./pkg/fizhi/fizhi_swrad.F |
235 |
SWRIO |
call DIAGNOSTICS_FILL(totcld,'CLDFRC ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_swrad.F |
245 |
SWRIO |
call DIAGNOSTICS_FILL(tmpdiag,'CLDRAS ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_swrad.F |
256 |
SWRIO |
call DIAGNOSTICS_FILL(tmpdiag,'CLDTOT ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_swrad.F |
261 |
SWRIO |
call DIAGNOSTICS_FILL(cldlow,'CLDLOW ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_swrad.F |
265 |
SWRIO |
call DIAGNOSTICS_FILL(cldmid,'CLDMID ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_swrad.F |
269 |
SWRIO |
call DIAGNOSTICS_FILL(cldhi,'CLDHI ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_swrad.F |
279 |
SWRIO |
call DIAGNOSTICS_FILL(tmpdiag,'LZRAD ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_swrad.F |
286 |
SWRIO |
call DIAGNOSTICS_FILL(albvisdr,'ALBVISDR',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_swrad.F |
290 |
SWRIO |
call DIAGNOSTICS_FILL(albvisdf,'ALBVISDF',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_swrad.F |
294 |
SWRIO |
call DIAGNOSTICS_FILL(albnirdr,'ALBNIRDR',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_swrad.F |
298 |
SWRIO |
call DIAGNOSTICS_FILL(albnirdf,'ALBNIRDF',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_swrad.F |
324 |
SWRIO |
call DIAGNOSTICS_FILL(tmpdiag,'TAUAVE ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_swrad.F |
342 |
SWRIO |
call DIAGNOSTICS_FILL(tmpdiag,'TAUCLD ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_swrad.F |
343 |
SWRIO |
call DIAGNOSTICS_FILL(tmpdiag,'TAUCLDC ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_swrad.F |
364 |
SWRIO |
call DIAGNOSTICS_FILL(taulow,'TAULOW ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_swrad.F |
365 |
SWRIO |
call DIAGNOSTICS_FILL(tmpdiag2,'TAULOWC ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_swrad.F |
383 |
SWRIO |
call DIAGNOSTICS_FILL(taumid,'TAUMID ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_swrad.F |
384 |
SWRIO |
call DIAGNOSTICS_FILL(tmpdiag2,'TAUMIDC ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_swrad.F |
402 |
SWRIO |
call DIAGNOSTICS_FILL(tauhi,'TAUHI ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_swrad.F |
403 |
SWRIO |
call DIAGNOSTICS_FILL(tmpdiag2,'TAUHIC ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_swrad.F |
523 |
SWRIO |
call DIAGNOSTICS_FILL(tmpdiag,'ALBEDO ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_swrad.F |
524 |
SWRIO |
call DIAGNOSTICS_FILL(tmpdiag2,'ALBEDOC ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_swrad.F |
5 |
SWRIO |
subroutine SWRIO (nymd,nhms,bi,bj,ndswr,myid,istrip,npcs, |
|
./pkg/fizhi/fizhi_tendency_apply.F |
119 |
FIZHI_TENDENCY_APPLY_V |
INTEGER kLev, bi, bj |
|
./pkg/fizhi/fizhi_tendency_apply.F |
141 |
FIZHI_TENDENCY_APPLY_V |
& + maskS(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
142 |
FIZHI_TENDENCY_APPLY_V |
& *( gvphy(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
143 |
FIZHI_TENDENCY_APPLY_V |
& - rayleighdrag*vVel(i,j,kLev,bi,bj) ) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
150 |
FIZHI_TENDENCY_APPLY_V |
tmpdiag(i,j) = maskS(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
151 |
FIZHI_TENDENCY_APPLY_V |
& *( gvphy(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
152 |
FIZHI_TENDENCY_APPLY_V |
& - rayleighdrag*vVel(i,j,kLev,bi,bj) ) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
156 |
FIZHI_TENDENCY_APPLY_V |
CALL DIAGNOSTICS_FILL(tmpdiag,'DIABVDYN',kLev,1,2,bi,bj,myThid) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
163 |
FIZHI_TENDENCY_APPLY_V |
& maskS(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj) * 86400 |
|
./pkg/fizhi/fizhi_tendency_apply.F |
166 |
FIZHI_TENDENCY_APPLY_V |
CALL DIAGNOSTICS_FILL(tmpdiag,'RFV ',kLev,1,2,bi,bj,myThid) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
173 |
FIZHI_TENDENCY_APPLY_T |
I iMin,iMax,jMin,jMax, kLev, bi, bj, |
|
./pkg/fizhi/fizhi_tendency_apply.F |
201 |
FIZHI_TENDENCY_APPLY_T |
INTEGER kLev, bi, bj |
|
./pkg/fizhi/fizhi_tendency_apply.F |
226 |
FIZHI_TENDENCY_APPLY_T |
& + ( maskC(i,j,kLev,bi,bj)*gthphy(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
228 |
FIZHI_TENDENCY_APPLY_T |
& *( maskW(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
229 |
FIZHI_TENDENCY_APPLY_T |
& *uVel(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
230 |
FIZHI_TENDENCY_APPLY_T |
& + maskW(i+1,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
231 |
FIZHI_TENDENCY_APPLY_T |
& *uVel(i+1,j,kLev,bi,bj)*uVel(i+1,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
232 |
FIZHI_TENDENCY_APPLY_T |
& + maskS(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
233 |
FIZHI_TENDENCY_APPLY_T |
& *vVel(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
234 |
FIZHI_TENDENCY_APPLY_T |
& + maskS(i,j+1,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
235 |
FIZHI_TENDENCY_APPLY_T |
& *vVel(i,j+1,kLev,bi,bj)*vVel(i,j+1,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
244 |
FIZHI_TENDENCY_APPLY_T |
& ( maskC(i,j,kLev,bi,bj)*gthphy(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
246 |
FIZHI_TENDENCY_APPLY_T |
& *( maskW(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
247 |
FIZHI_TENDENCY_APPLY_T |
& *uVel(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
248 |
FIZHI_TENDENCY_APPLY_T |
& + maskW(i+1,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
249 |
FIZHI_TENDENCY_APPLY_T |
& *uVel(i+1,j,kLev,bi,bj)*uVel(i+1,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
250 |
FIZHI_TENDENCY_APPLY_T |
& + maskS(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
251 |
FIZHI_TENDENCY_APPLY_T |
& *vVel(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
252 |
FIZHI_TENDENCY_APPLY_T |
& + maskS(i,j+1,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
253 |
FIZHI_TENDENCY_APPLY_T |
& *vVel(i,j+1,kLev,bi,bj)*vVel(i,j+1,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
257 |
FIZHI_TENDENCY_APPLY_T |
CALL DIAGNOSTICS_FILL(tmpdiag,'DIABTDYN',kLev,1,2,bi,bj,myThid) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
264 |
FIZHI_TENDENCY_APPLY_T |
& *( maskW(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
265 |
FIZHI_TENDENCY_APPLY_T |
& *uVel(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
266 |
FIZHI_TENDENCY_APPLY_T |
& + maskW(i+1,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
267 |
FIZHI_TENDENCY_APPLY_T |
& *uVel(i+1,j,kLev,bi,bj)*uVel(i+1,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
268 |
FIZHI_TENDENCY_APPLY_T |
& + maskS(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
269 |
FIZHI_TENDENCY_APPLY_T |
& *vVel(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
270 |
FIZHI_TENDENCY_APPLY_T |
& + maskS(i,j+1,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
271 |
FIZHI_TENDENCY_APPLY_T |
& *vVel(i,j+1,kLev,bi,bj)*vVel(i,j+1,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
275 |
FIZHI_TENDENCY_APPLY_T |
CALL DIAGNOSTICS_FILL(tmpdiag,'RFT ',kLev,1,2,bi,bj,myThid) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
282 |
FIZHI_TENDENCY_APPLY_S |
I iMin,iMax,jMin,jMax, kLev, bi, bj, |
|
./pkg/fizhi/fizhi_tendency_apply.F |
310 |
FIZHI_TENDENCY_APPLY_S |
INTEGER kLev, bi, bj |
|
./pkg/fizhi/fizhi_tendency_apply.F |
325 |
FIZHI_TENDENCY_APPLY_S |
& + maskC(i,j,kLev,bi,bj)*gsphy(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
332 |
FIZHI_TENDENCY_APPLY_S |
tmpdiag(i,j) = ( maskC(i,j,kLev,bi,bj) * gsphy(i,j,kLev,bi,bj) ) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
336 |
FIZHI_TENDENCY_APPLY_S |
CALL DIAGNOSTICS_FILL(tmpdiag,'DIABQDYN',kLev,1,2,bi,bj,myThid) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
36 |
FIZHI_TENDENCY_APPLY_U |
INTEGER kLev, bi, bj |
|
./pkg/fizhi/fizhi_tendency_apply.F |
58 |
FIZHI_TENDENCY_APPLY_U |
& + maskW(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
59 |
FIZHI_TENDENCY_APPLY_U |
& *( guphy(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
60 |
FIZHI_TENDENCY_APPLY_U |
& - rayleighdrag*uVel(i,j,kLev,bi,bj) ) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
67 |
FIZHI_TENDENCY_APPLY_U |
tmpdiag(i,j) = maskW(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
68 |
FIZHI_TENDENCY_APPLY_U |
& *( guphy(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
69 |
FIZHI_TENDENCY_APPLY_U |
& - rayleighdrag*uVel(i,j,kLev,bi,bj) ) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
73 |
FIZHI_TENDENCY_APPLY_U |
CALL DIAGNOSTICS_FILL(tmpdiag,'DIABUDYN',kLev,1,2,bi,bj,myThid) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
7 |
FIZHI_TENDENCY_APPLY_U |
I iMin,iMax,jMin,jMax, kLev, bi, bj, |
|
./pkg/fizhi/fizhi_tendency_apply.F |
80 |
FIZHI_TENDENCY_APPLY_U |
& maskW(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj) * 86400 |
|
./pkg/fizhi/fizhi_tendency_apply.F |
83 |
FIZHI_TENDENCY_APPLY_U |
CALL DIAGNOSTICS_FILL(tmpdiag,'RFU ',kLev,1,2,bi,bj,myThid) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
90 |
FIZHI_TENDENCY_APPLY_V |
I iMin,iMax,jMin,jMax, kLev, bi, bj, |
|
./pkg/fizhi/fizhi_turb.F |
1001 |
TURBIO |
& nn,.false., 'UFLUX ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1005 |
TURBIO |
& nn,.false., 'VFLUX ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1009 |
TURBIO |
& .false., 'USTAR ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1013 |
TURBIO |
& .false., 'Z0 ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1017 |
TURBIO |
& .false., 'FRQTRB ', 0, nlay-1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1021 |
TURBIO |
& .false., 'PBL ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1025 |
TURBIO |
& .false., 'U2M ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1029 |
TURBIO |
& .false., 'V2M ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1033 |
TURBIO |
& .false., 'T2M ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1044 |
TURBIO |
& .false., 'Q2M ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1048 |
TURBIO |
& .false., 'U10M ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1052 |
TURBIO |
& .false., 'V10M ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1056 |
TURBIO |
& .false., 'T10M ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1067 |
TURBIO |
& .false., 'Q10M ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1076 |
TURBIO |
& .false., 'TDEEP ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1080 |
TURBIO |
& .false., 'QCANOPY ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1084 |
TURBIO |
& .false., 'SMSHAL ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1088 |
TURBIO |
& .false., 'SMROOT ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1092 |
TURBIO |
& .false., 'SMDEEP ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1096 |
TURBIO |
& .false., 'CAPACITY', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1100 |
TURBIO |
& .false., 'SNOW ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
115 |
TURBIO |
integer im,jm,nlay,istrip,nymd,nhms,bi,bj,ndturb,nltop |
|
./pkg/fizhi/fizhi_turb.F |
1183 |
TURBIO |
CALL DIAGNOSTICS_FILL(fcctmp,'TRBFCC ',0,nlay,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_turb.F |
1185 |
TURBIO |
& 'TRBQLIQ ',0,nlay,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_turb.F |
1199 |
TURBIO |
call DIAGNOSTICS_FILL(tgz,'TGROUND ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_turb.F |
1200 |
TURBIO |
call DIAGNOSTICS_FILL(tgz,'TCANOPY ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_turb.F |
1206 |
TURBIO |
call DIAGNOSTICS_FILL(tmpdiag,'TS ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_turb.F |
1209 |
TURBIO |
call DIAGNOSTICS_FILL(tgz,'DTG ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_turb.F |
1216 |
TURBIO |
& 'TURBV ',0,nlay,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_turb.F |
1218 |
TURBIO |
& 'TURBU ',0,nlay,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_turb.F |
1221 |
TURBIO |
& 'TURBQ ',0,nlay,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_turb.F |
1228 |
TURBIO |
call DIAGNOSTICS_FILL(tmpdiag,'TURBT ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_turb.F |
26 |
TURBIO |
SUBROUTINE TURBIO (im,jm,nlay,istrip,nymd,nhms,bi,bj, qbeg |
|
./pkg/fizhi/fizhi_turb.F |
315 |
TURBIO |
& 'DTG ',0,1,-3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_turb.F |
432 |
TURBIO |
call DIAGNOSTICS_FILL(tmpdiag,'QICE ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_turb.F |
539 |
TURBIO |
& .false., 'QG ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
589 |
TURBIO |
& .false., 'DTSRF ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
679 |
TURBIO |
& .false., 'SNOWFALL', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
686 |
TURBIO |
& .false., 'RAINCON ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
693 |
TURBIO |
& .false., 'RAINLSP ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
697 |
TURBIO |
& .false., 'GREEN ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
701 |
TURBIO |
& .false., 'LAI ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
705 |
TURBIO |
& .false., 'PARDR ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
709 |
TURBIO |
& .false., 'PARDF ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
713 |
TURBIO |
& .false., 'DLWDTC ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
717 |
TURBIO |
& .false., 'DHDTC ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
721 |
TURBIO |
& .false., 'DEDTC ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
725 |
TURBIO |
& .false., 'DHDQA ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
729 |
TURBIO |
& .false., 'DEDQA ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
733 |
TURBIO |
& .false., 'LWGDOWN ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
770 |
TURBIO |
& .false., 'RUNOFF ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
774 |
TURBIO |
& .false., 'FWSOIL ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
778 |
TURBIO |
& .false., 'GDRAIN ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
782 |
TURBIO |
& .false., 'SNOWMELT', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
786 |
TURBIO |
& .false., 'EVEG ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
790 |
TURBIO |
& .false., 'ESNOW ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
794 |
TURBIO |
& .false., 'ESOIL ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
798 |
TURBIO |
& .false., 'ERESV ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
802 |
TURBIO |
& .false., 'EVPOT ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
806 |
TURBIO |
& .false., 'DTC ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
810 |
TURBIO |
& .false., 'DQC ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
814 |
TURBIO |
& .false., 'TCDTC ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
818 |
TURBIO |
& .false., 'RADDTC ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
822 |
TURBIO |
& .false., 'SENSDTC ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
826 |
TURBIO |
& .false., 'LATDTC ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
830 |
TURBIO |
& .false., 'TDDTC ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
834 |
TURBIO |
& .false., 'QCDTC ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
933 |
TURBIO |
& .false., 'EVAP ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
940 |
TURBIO |
& .false., 'EFLUX ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
947 |
TURBIO |
& .false., 'HFLUX ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
951 |
TURBIO |
& .false., 'TUFLUX ', 0, nlay, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
955 |
TURBIO |
& .false., 'TVFLUX ', 0, nlay, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
964 |
TURBIO |
& .false., 'TTFLUX ', 0, nlay, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
973 |
TURBIO |
& .false., 'TQFLUX ', 0, nlay, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
977 |
TURBIO |
& .false., 'RI ', 0, nlay, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
981 |
TURBIO |
& .false., 'KH ', 0, nlay, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
985 |
TURBIO |
& .false., 'KM ', 0, nlay, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
989 |
TURBIO |
& .false., 'CT ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
993 |
TURBIO |
& .false., 'CU ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
997 |
TURBIO |
& .false., 'WINDS ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_wrapper.F |
104 |
FIZHI_WRAPPER |
vdynbef(i,j,L,bi,bj) = vvel(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
113 |
FIZHI_WRAPPER |
do bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/fizhi/fizhi_wrapper.F |
118 |
FIZHI_WRAPPER |
thbef(i,j,L,bi,bj) = thphy(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
125 |
FIZHI_WRAPPER |
thdynbef(i,j,L,bi,bj) = theta(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
134 |
FIZHI_WRAPPER |
do bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/fizhi/fizhi_wrapper.F |
139 |
FIZHI_WRAPPER |
sbef(i,j,L,bi,bj) = sphy(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
146 |
FIZHI_WRAPPER |
sdynbef(i,j,L,bi,bj) = salt(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
156 |
FIZHI_WRAPPER |
do bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/fizhi/fizhi_wrapper.F |
164 |
FIZHI_WRAPPER |
pephy(i,j,1,bi,bj)=(Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj)) |
|
./pkg/fizhi/fizhi_wrapper.F |
166 |
FIZHI_WRAPPER |
pephy(i,j,L,bi,bj)=pephy(i,j,L-1,bi,bj)-dpphys(i,j,L-1,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
170 |
FIZHI_WRAPPER |
pephy4fiz(i,j,Nrphys+2-L,bi,bj)=pephy(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
172 |
FIZHI_WRAPPER |
if(pephy(i,j,Nrphys+1,bi,bj).lt.1.e-5) |
|
./pkg/fizhi/fizhi_wrapper.F |
173 |
FIZHI_WRAPPER |
& pephy(i,j,Nrphys+1,bi,bj) = 1.e-5 |
|
./pkg/fizhi/fizhi_wrapper.F |
180 |
FIZHI_WRAPPER |
pedyn(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_wrapper.F |
186 |
FIZHI_WRAPPER |
Lbotij = kSurfC(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
188 |
FIZHI_WRAPPER |
& pedyn(i,j,Lbotij,bi,bj) = (Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj)) |
|
./pkg/fizhi/fizhi_wrapper.F |
193 |
FIZHI_WRAPPER |
Lbotij = kSurfC(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
195 |
FIZHI_WRAPPER |
pedyn(i,j,L,bi,bj) = pedyn(i,j,L-1,bi,bj) - |
|
./pkg/fizhi/fizhi_wrapper.F |
196 |
FIZHI_WRAPPER |
& drF(L-1)* rStarExpC(i,j,bi,bj)*hfacC(i,j,L-1,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
199 |
FIZHI_WRAPPER |
if(pedyn(i,j,Nr+1,bi,bj).lt.1.e-5) |
|
./pkg/fizhi/fizhi_wrapper.F |
200 |
FIZHI_WRAPPER |
& pedyn(i,j,Nr+1,bi,bj) = 1.e-5 |
|
./pkg/fizhi/fizhi_wrapper.F |
209 |
FIZHI_WRAPPER |
do bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/fizhi/fizhi_wrapper.F |
214 |
FIZHI_WRAPPER |
tempphy(i,j,L,bi,bj) = pephy4fiz(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
227 |
FIZHI_WRAPPER |
do bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/fizhi/fizhi_wrapper.F |
229 |
FIZHI_WRAPPER |
call GET_LANDFRAC(im2,jm2,nSx,nSy,bi,bj,maxtyp, |
|
./pkg/fizhi/fizhi_wrapper.F |
230 |
FIZHI_WRAPPER |
& surftype,tilefrac,fracland(1,1,bi,bj)) |
|
./pkg/fizhi/fizhi_wrapper.F |
238 |
FIZHI_WRAPPER |
tempdiag(i,j) = topoZ(i,j,bi,bj)*grav |
|
./pkg/fizhi/fizhi_wrapper.F |
239 |
FIZHI_WRAPPER |
tempLdiag(i,j,L) = pephy4fiz(i,j,L,bi,bj)/100. |
|
./pkg/fizhi/fizhi_wrapper.F |
245 |
FIZHI_WRAPPER |
tempLdiag(i,j,L) = pephy4fiz(i,j,L,bi,bj)/100. |
|
./pkg/fizhi/fizhi_wrapper.F |
246 |
FIZHI_WRAPPER |
tempLdiag2(i,j,L) = thphy(i,j,L,bi,bj) * |
|
./pkg/fizhi/fizhi_wrapper.F |
247 |
FIZHI_WRAPPER |
& (1.+0.609*sphy(i,j,L,bi,bj)) |
|
./pkg/fizhi/fizhi_wrapper.F |
253 |
FIZHI_WRAPPER |
& fracland(1,1,bi,bj),sNx,sNy,Nrphys,slp) |
|
./pkg/fizhi/fizhi_wrapper.F |
254 |
FIZHI_WRAPPER |
call DIAGNOSTICS_FILL( slp,'SLP ',1,1,3,bi,bj,myThid ) |
|
./pkg/fizhi/fizhi_wrapper.F |
260 |
FIZHI_WRAPPER |
turbStart(bi,bj) = turbStart(bi,bj) .AND. ( myIter.EQ.nIter0 ) |
|
./pkg/fizhi/fizhi_wrapper.F |
263 |
FIZHI_WRAPPER |
& idim1,idim2,jdim1,jdim2,Nrphys,nSx,nSy,im1,im2,jm1,jm2,bi,bj, |
|
./pkg/fizhi/fizhi_wrapper.F |
264 |
FIZHI_WRAPPER |
& turbStart(bi,bj), nchp,nchptot,nchpland, |
|
./pkg/fizhi/fizhi_wrapper.F |
282 |
FIZHI_WRAPPER |
do bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/fizhi/fizhi_wrapper.F |
290 |
FIZHI_WRAPPER |
tempphy(i,j,Nrphys+1-L,bi,bj)=duphy(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
295 |
FIZHI_WRAPPER |
& nSx,nSy,im1,im2,jm1,jm2,bi,bj,pedyn,kSurfC,Nr,nlperdyn,guphy) |
|
./pkg/fizhi/fizhi_wrapper.F |
299 |
FIZHI_WRAPPER |
tempphy(i,j,Nrphys+1-L,bi,bj)=dvphy(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
304 |
FIZHI_WRAPPER |
& nSx,nSy,im1,im2,jm1,jm2,bi,bj,pedyn,kSurfC,Nr,nlperdyn,gvphy) |
|
./pkg/fizhi/fizhi_wrapper.F |
308 |
FIZHI_WRAPPER |
tempphy(i,j,Nrphys+1-L,bi,bj)=dthphy(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
313 |
FIZHI_WRAPPER |
& nSx,nSy,im1,im2,jm1,jm2,bi,bj,pedyn,kSurfC,Nr,nlperdyn,gthphy) |
|
./pkg/fizhi/fizhi_wrapper.F |
317 |
FIZHI_WRAPPER |
tempphy(i,j,Nrphys+1-L,bi,bj)=dsphy(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
322 |
FIZHI_WRAPPER |
& nSx,nSy,im1,im2,jm1,jm2,bi,bj,pedyn,kSurfC,Nr,nlperdyn,gsphy) |
|
./pkg/fizhi/fizhi_wrapper.F |
53 |
FIZHI_WRAPPER |
INTEGER i, j, L, Lbotij, bi, bj |
|
./pkg/fizhi/fizhi_wrapper.F |
71 |
FIZHI_WRAPPER |
do bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/fizhi/fizhi_wrapper.F |
76 |
FIZHI_WRAPPER |
ubef(i,j,L,bi,bj) = uphy(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
83 |
FIZHI_WRAPPER |
udynbef(i,j,L,bi,bj) = uvel(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
92 |
FIZHI_WRAPPER |
do bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/fizhi/fizhi_wrapper.F |
97 |
FIZHI_WRAPPER |
vbef(i,j,L,bi,bj) = vphy(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_write_pickup.F |
101 |
FIZHI_WRITE_PICKUP |
temp(1,1,4,bi,bj) = float(iras(bi,bj)) |
|
./pkg/fizhi/fizhi_write_pickup.F |
102 |
FIZHI_WRITE_PICKUP |
temp(2,1,4,bi,bj) = float(nlwcld(bi,bj)) |
|
./pkg/fizhi/fizhi_write_pickup.F |
103 |
FIZHI_WRITE_PICKUP |
temp(3,1,4,bi,bj) = float(nlwlz(bi,bj)) |
|
./pkg/fizhi/fizhi_write_pickup.F |
104 |
FIZHI_WRITE_PICKUP |
temp(4,1,4,bi,bj) = float(nswcld(bi,bj)) |
|
./pkg/fizhi/fizhi_write_pickup.F |
105 |
FIZHI_WRITE_PICKUP |
temp(5,1,4,bi,bj) = float(nswlz(bi,bj)) |
|
./pkg/fizhi/fizhi_write_pickup.F |
106 |
FIZHI_WRITE_PICKUP |
temp(6,1,4,bi,bj) = float(imstturbsw(bi,bj)) |
|
./pkg/fizhi/fizhi_write_pickup.F |
107 |
FIZHI_WRITE_PICKUP |
temp(7,1,4,bi,bj) = float(imstturblw(bi,bj)) |
|
./pkg/fizhi/fizhi_write_pickup.F |
49 |
FIZHI_WRITE_PICKUP |
integer i,j,k,bi,bj |
|
./pkg/fizhi/fizhi_write_pickup.F |
52 |
FIZHI_WRITE_PICKUP |
do bj = 1,myByLo(myThid), myByHi(myThid) |
|
./pkg/fizhi/fizhi_write_pickup.F |
57 |
FIZHI_WRITE_PICKUP |
temp(i,j,k,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_write_pickup.F |
91 |
FIZHI_WRITE_PICKUP |
do bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/fizhi/fizhi_write_pickup.F |
95 |
FIZHI_WRITE_PICKUP |
temp(i,j,1,bi,bj) = raincon(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_write_pickup.F |
96 |
FIZHI_WRITE_PICKUP |
temp(i,j,2,bi,bj) = rainlsp(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_write_pickup.F |
97 |
FIZHI_WRITE_PICKUP |
temp(i,j,3,bi,bj) = snowfall(i,j,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
101 |
STEP_FIZHI_CORR |
if(pedyn(i,j,Nr+1,bi,bj).lt.1.e-5) |
|
./pkg/fizhi/step_fizhi_corr.F |
102 |
STEP_FIZHI_CORR |
. pedyn(i,j,Nr+1,bi,bj) = 1.e-5 |
|
./pkg/fizhi/step_fizhi_corr.F |
108 |
STEP_FIZHI_CORR |
pephy(i,j,1,bi,bj)=Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
110 |
STEP_FIZHI_CORR |
pephy(i,j,L,bi,bj)=pephy(i,j,L-1,bi,bj)-dpphys(i,j,L-1,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
113 |
STEP_FIZHI_CORR |
if(pephy(i,j,Nrphys+1,bi,bj).lt.1.e-5) |
|
./pkg/fizhi/step_fizhi_corr.F |
114 |
STEP_FIZHI_CORR |
. pephy(i,j,Nrphys+1,bi,bj) = 1.e-5 |
|
./pkg/fizhi/step_fizhi_corr.F |
123 |
STEP_FIZHI_CORR |
windphy(i,j,L,bi,bj) = |
|
./pkg/fizhi/step_fizhi_corr.F |
124 |
STEP_FIZHI_CORR |
. sqrt(uphy(i,j,Nrphys+1-L,bi,bj)*uphy(i,j,Nrphys+1-L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
125 |
STEP_FIZHI_CORR |
. + vphy(i,j,Nrphys+1-L,bi,bj)*vphy(i,j,Nrphys+1-L,bi,bj)) |
|
./pkg/fizhi/step_fizhi_corr.F |
133 |
STEP_FIZHI_CORR |
do bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/fizhi/step_fizhi_corr.F |
142 |
STEP_FIZHI_CORR |
tempphy(i,j,Nrphys+1-L,bi,bj) = uphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
147 |
STEP_FIZHI_CORR |
. 1,sNx,1,sNy,bi,bj,pedyn,ksurfC,Nr,nlperdyn,udyntemp) |
|
./pkg/fizhi/step_fizhi_corr.F |
151 |
STEP_FIZHI_CORR |
tempphy(i,j,Nrphys+1-L,bi,bj) = vphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
156 |
STEP_FIZHI_CORR |
. 1,sNx,1,sNy,bi,bj,pedyn,ksurfC,Nr,nlperdyn,vdyntemp) |
|
./pkg/fizhi/step_fizhi_corr.F |
160 |
STEP_FIZHI_CORR |
tempphy(i,j,Nrphys+1-L,bi,bj) = thphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
165 |
STEP_FIZHI_CORR |
. 1,sNx,1,sNy,bi,bj,pedyn,ksurfC,Nr,nlperdyn,thdyntemp) |
|
./pkg/fizhi/step_fizhi_corr.F |
169 |
STEP_FIZHI_CORR |
tempphy(i,j,Nrphys+1-L,bi,bj) = sphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
174 |
STEP_FIZHI_CORR |
. 1,sNx,1,sNy,bi,bj,pedyn,ksurfC,Nr,nlperdyn,sdyntemp) |
|
./pkg/fizhi/step_fizhi_corr.F |
188 |
STEP_FIZHI_CORR |
do bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/fizhi/step_fizhi_corr.F |
194 |
STEP_FIZHI_CORR |
udyntemp(i,j,L,bi,bj)=uvel(i,j,L,bi,bj)-udyntemp(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
195 |
STEP_FIZHI_CORR |
vdyntemp(i,j,L,bi,bj)=vvel(i,j,L,bi,bj)-vdyntemp(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
196 |
STEP_FIZHI_CORR |
thdyntemp(i,j,L,bi,bj)=theta(i,j,L,bi,bj)-thdyntemp(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
197 |
STEP_FIZHI_CORR |
sdyntemp(i,j,L,bi,bj)=salt(i,j,L,bi,bj)-sdyntemp(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
213 |
STEP_FIZHI_CORR |
do bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/fizhi/step_fizhi_corr.F |
217 |
STEP_FIZHI_CORR |
. 1,sNy,bi,bj,windphy,pephy,ksurfC,Nrphys,nlperdyn,1,tempphy) |
|
./pkg/fizhi/step_fizhi_corr.F |
222 |
STEP_FIZHI_CORR |
uphytemp(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
227 |
STEP_FIZHI_CORR |
. 1,sNy,bi,bj,windphy,pephy,ksurfC,Nrphys,nlperdyn,1,tempphy) |
|
./pkg/fizhi/step_fizhi_corr.F |
231 |
STEP_FIZHI_CORR |
vphytemp(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
236 |
STEP_FIZHI_CORR |
. 1,sNy,bi,bj,windphy,pephy,ksurfC,Nrphys,nlperdyn,0,tempphy) |
|
./pkg/fizhi/step_fizhi_corr.F |
240 |
STEP_FIZHI_CORR |
thphytemp(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
245 |
STEP_FIZHI_CORR |
. 1,sNy,bi,bj,windphy,pephy,ksurfC,Nrphys,nlperdyn,0,tempphy) |
|
./pkg/fizhi/step_fizhi_corr.F |
249 |
STEP_FIZHI_CORR |
sphytemp(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
258 |
STEP_FIZHI_CORR |
do bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/fizhi/step_fizhi_corr.F |
261 |
STEP_FIZHI_CORR |
. Nrphys,Nsx,Nsy,1,sNx,1,sNy,bi,bj, |
|
./pkg/fizhi/step_fizhi_corr.F |
265 |
STEP_FIZHI_CORR |
. jdim1,jdim2,bi,bj,dpphys,sphy) |
|
./pkg/fizhi/step_fizhi_corr.F |
278 |
STEP_FIZHI_CORR |
do bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/fizhi/step_fizhi_corr.F |
287 |
STEP_FIZHI_CORR |
tempij(i,j) = (uphy (i,j,L,bi,bj)-ubef(i,j,L,bi,bj) ) |
|
./pkg/fizhi/step_fizhi_corr.F |
291 |
STEP_FIZHI_CORR |
call DIAGNOSTICS_FILL(tempij,'TENDUFIZ',L,1,3,bi,bj,myThid) |
|
./pkg/fizhi/step_fizhi_corr.F |
299 |
STEP_FIZHI_CORR |
tempij(i,j) = (vphy (i,j,L,bi,bj)-vbef(i,j,L,bi,bj) ) |
|
./pkg/fizhi/step_fizhi_corr.F |
303 |
STEP_FIZHI_CORR |
call DIAGNOSTICS_FILL(tempij,'TENDVFIZ',L,1,3,bi,bj,myThid) |
|
./pkg/fizhi/step_fizhi_corr.F |
311 |
STEP_FIZHI_CORR |
tempij(i,j) = (thphy (i,j,L,bi,bj)-thbef(i,j,L,bi,bj) ) |
|
./pkg/fizhi/step_fizhi_corr.F |
315 |
STEP_FIZHI_CORR |
call DIAGNOSTICS_FILL(tempij,'TENDTFIZ',L,1,3,bi,bj,myThid) |
|
./pkg/fizhi/step_fizhi_corr.F |
323 |
STEP_FIZHI_CORR |
tempij(i,j) = (sphy (i,j,L,bi,bj)-sbef(i,j,L,bi,bj) ) |
|
./pkg/fizhi/step_fizhi_corr.F |
327 |
STEP_FIZHI_CORR |
call DIAGNOSTICS_FILL(tempij,'TENDQFIZ',L,1,3,bi,bj,myThid) |
|
./pkg/fizhi/step_fizhi_corr.F |
341 |
STEP_FIZHI_CORR |
do bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/fizhi/step_fizhi_corr.F |
346 |
STEP_FIZHI_CORR |
udyntemp(i,j,L,bi,bj) = |
|
./pkg/fizhi/step_fizhi_corr.F |
347 |
STEP_FIZHI_CORR |
. (uvel(i,j,L,bi,bj)-udynbef(i,j,L,bi,bj))*dtinv - |
|
./pkg/fizhi/step_fizhi_corr.F |
348 |
STEP_FIZHI_CORR |
. guphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
349 |
STEP_FIZHI_CORR |
vdyntemp(i,j,L,bi,bj) = |
|
./pkg/fizhi/step_fizhi_corr.F |
350 |
STEP_FIZHI_CORR |
. (vvel(i,j,L,bi,bj)-vdynbef(i,j,L,bi,bj))*dtinv - |
|
./pkg/fizhi/step_fizhi_corr.F |
351 |
STEP_FIZHI_CORR |
. gvphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
365 |
STEP_FIZHI_CORR |
windphy(i,j,L,bi,bj) = |
|
./pkg/fizhi/step_fizhi_corr.F |
366 |
STEP_FIZHI_CORR |
. sqrt(uphy(i,j,Nrphys+1-L,bi,bj)*uphy(i,j,Nrphys+1-L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
367 |
STEP_FIZHI_CORR |
. + vphy(i,j,Nrphys+1-L,bi,bj)*vphy(i,j,Nrphys+1-L,bi,bj)) |
|
./pkg/fizhi/step_fizhi_corr.F |
373 |
STEP_FIZHI_CORR |
. 1,sNy,bi,bj,windphy,pephy,ksurfC,Nrphys,nlperdyn,1,tempphy) |
|
./pkg/fizhi/step_fizhi_corr.F |
379 |
STEP_FIZHI_CORR |
uphytemp(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
384 |
STEP_FIZHI_CORR |
. 1,sNy,bi,bj,windphy,pephy,ksurfC,Nrphys,nlperdyn,1,tempphy) |
|
./pkg/fizhi/step_fizhi_corr.F |
388 |
STEP_FIZHI_CORR |
vphytemp(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
396 |
STEP_FIZHI_CORR |
uphytemp(i,j,L,bi,bj)= |
|
./pkg/fizhi/step_fizhi_corr.F |
397 |
STEP_FIZHI_CORR |
. ( (uphy(i,j,L,bi,bj)-ubef(i,j,L,bi,bj))*dtinv |
|
./pkg/fizhi/step_fizhi_corr.F |
398 |
STEP_FIZHI_CORR |
. - duphy(i,j,L,bi,bj) - uphytemp(i,j,L,bi,bj) ) * 86400. _d 0 |
|
./pkg/fizhi/step_fizhi_corr.F |
399 |
STEP_FIZHI_CORR |
vphytemp(i,j,L,bi,bj)= |
|
./pkg/fizhi/step_fizhi_corr.F |
400 |
STEP_FIZHI_CORR |
. ( (vphy(i,j,L,bi,bj)-vbef(i,j,L,bi,bj))*dtinv |
|
./pkg/fizhi/step_fizhi_corr.F |
401 |
STEP_FIZHI_CORR |
. - dvphy(i,j,L,bi,bj) - vphytemp(i,j,L,bi,bj) ) * 86400. _d 0 |
|
./pkg/fizhi/step_fizhi_corr.F |
423 |
STEP_FIZHI_CORR |
do bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/fizhi/step_fizhi_corr.F |
428 |
STEP_FIZHI_CORR |
thdyntemp(i,j,L,bi,bj) = |
|
./pkg/fizhi/step_fizhi_corr.F |
429 |
STEP_FIZHI_CORR |
. (theta(i,j,L,bi,bj)-thdynbef(i,j,L,bi,bj))*dtinv - |
|
./pkg/fizhi/step_fizhi_corr.F |
430 |
STEP_FIZHI_CORR |
. gthphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
437 |
STEP_FIZHI_CORR |
. 1,sNy,bi,bj,windphy,pephy,ksurfC,Nrphys,nlperdyn,0,tempphy) |
|
./pkg/fizhi/step_fizhi_corr.F |
443 |
STEP_FIZHI_CORR |
thphytemp(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
451 |
STEP_FIZHI_CORR |
thphytemp(i,j,L,bi,bj)= |
|
./pkg/fizhi/step_fizhi_corr.F |
452 |
STEP_FIZHI_CORR |
. ( (thphy(i,j,L,bi,bj)-thbef(i,j,L,bi,bj))*dtinv |
|
./pkg/fizhi/step_fizhi_corr.F |
453 |
STEP_FIZHI_CORR |
. - dthphy(i,j,L,bi,bj) - thphytemp(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
470 |
STEP_FIZHI_CORR |
do bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/fizhi/step_fizhi_corr.F |
475 |
STEP_FIZHI_CORR |
sdyntemp(i,j,L,bi,bj) = |
|
./pkg/fizhi/step_fizhi_corr.F |
476 |
STEP_FIZHI_CORR |
. (salt(i,j,L,bi,bj)-sdynbef(i,j,L,bi,bj))*dtinv - |
|
./pkg/fizhi/step_fizhi_corr.F |
477 |
STEP_FIZHI_CORR |
. gsphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
484 |
STEP_FIZHI_CORR |
. 1,sNy,bi,bj,windphy,pephy,ksurfC,Nrphys,nlperdyn,0,tempphy) |
|
./pkg/fizhi/step_fizhi_corr.F |
490 |
STEP_FIZHI_CORR |
sphytemp(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
498 |
STEP_FIZHI_CORR |
sphytemp(i,j,L,bi,bj)= |
|
./pkg/fizhi/step_fizhi_corr.F |
499 |
STEP_FIZHI_CORR |
. ( (sphy(i,j,L,bi,bj)-sbef(i,j,L,bi,bj))*dtinv |
|
./pkg/fizhi/step_fizhi_corr.F |
500 |
STEP_FIZHI_CORR |
. - dsphy(i,j,L,bi,bj) - sphytemp(i,j,L,bi,bj) ) * 86400. _d 0 |
|
./pkg/fizhi/step_fizhi_corr.F |
56 |
STEP_FIZHI_CORR |
integer i, j, L, Lbotij, bi, bj |
|
./pkg/fizhi/step_fizhi_corr.F |
75 |
STEP_FIZHI_CORR |
do bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/fizhi/step_fizhi_corr.F |
82 |
STEP_FIZHI_CORR |
pedyn(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/step_fizhi_corr.F |
88 |
STEP_FIZHI_CORR |
Lbotij = ksurfC(i,j,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
90 |
STEP_FIZHI_CORR |
. pedyn(i,j,Lbotij,bi,bj) = Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
95 |
STEP_FIZHI_CORR |
Lbotij = ksurfC(i,j,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
97 |
STEP_FIZHI_CORR |
pedyn(i,j,L,bi,bj) = pedyn(i,j,L-1,bi,bj) - |
|
./pkg/fizhi/step_fizhi_corr.F |
98 |
STEP_FIZHI_CORR |
. drF(L-1)* rStarExpC(i,j,bi,bj)*hfacC(i,j,L-1,bi,bj) |
|
./pkg/fizhi/step_fizhi_fg.F |
27 |
STEP_FIZHI_FG |
integer bi, bj |
|
./pkg/fizhi/step_fizhi_fg.F |
43 |
STEP_FIZHI_FG |
do bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/fizhi/step_fizhi_fg.F |
49 |
STEP_FIZHI_FG |
. Nrphys,Nsx,Nsy,1,sNx,1,sNy,bi,bj,duphy,dvphy,dthphy,dsphy) |
|
./pkg/fizhi/step_fizhi_fg.F |
56 |
STEP_FIZHI_FG |
tempij(i,j) = uphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_fg.F |
64 |
STEP_FIZHI_FG |
tempij(i,j) = vphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_fg.F |
72 |
STEP_FIZHI_FG |
tempij(i,j) = thphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_fg.F |
80 |
STEP_FIZHI_FG |
tempij(i,j) = sphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_fg.F |
88 |
STEP_FIZHI_FG |
. jm1,jm2,bi,bj,dpphys,sphy) |
|
./pkg/fizhi/step_fizhi_fg.F |
95 |
STEP_FIZHI_FG |
tempij(i,j) = sphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_physics.F |
14 |
STEP_PHYSICS |
integer Nrphys,Nsx,Nsy,bi,bj |
|
./pkg/fizhi/step_physics.F |
30 |
STEP_PHYSICS |
uphy(i,j,L,bi,bj) = uphy(i,j,L,bi,bj) + duphy(i,j,L,bi,bj) * dt |
|
./pkg/fizhi/step_physics.F |
31 |
STEP_PHYSICS |
vphy(i,j,L,bi,bj) = vphy(i,j,L,bi,bj) + dvphy(i,j,L,bi,bj) * dt |
|
./pkg/fizhi/step_physics.F |
32 |
STEP_PHYSICS |
thphy(i,j,L,bi,bj)=thphy(i,j,L,bi,bj) + dthphy(i,j,L,bi,bj)* dt |
|
./pkg/fizhi/step_physics.F |
33 |
STEP_PHYSICS |
sphy(i,j,L,bi,bj) = sphy(i,j,L,bi,bj) + dsphy(i,j,L,bi,bj) * dt |
|
./pkg/fizhi/step_physics.F |
6 |
STEP_PHYSICS |
. idim1,idim2,jdim1,jdim2,Nrphys,Nsx,Nsy,im1,im2,jm1,jm2,bi,bj, |
|
./pkg/fizhi/update_chemistry_exports.F |
111 |
INTERP_CHEMISTRY |
. qz,plz,xlat,im,jm,lm,nSx,nSy,bi,bj,ozrad,qzrad) |
|
./pkg/fizhi/update_chemistry_exports.F |
117 |
INTERP_CHEMISTRY |
integer nwatlevs,nwatlats,nozlevs,nozlats,nSx,nSy,bi,bj |
|
./pkg/fizhi/update_chemistry_exports.F |
132 |
INTERP_CHEMISTRY |
. bi,bj, xlat,lm,plz,qz,qzrad(1,1,1,bi,bj)) |
|
./pkg/fizhi/update_chemistry_exports.F |
134 |
INTERP_CHEMISTRY |
. bi,bj, xlat,lm,plz,ozrad(1,1,1,bi,bj)) |
|
./pkg/fizhi/update_chemistry_exports.F |
140 |
INTERP_QZ |
. irun,bi,bj,xlat,nlevs,pres,qz_in,qz_out ) |
|
./pkg/fizhi/update_chemistry_exports.F |
159 |
INTERP_QZ |
integer bi,bj |
|
./pkg/fizhi/update_chemistry_exports.F |
279 |
INTERP_OZ |
. irun,bi,bj,xlat,nlevs,plevs,ozrad) |
|
./pkg/fizhi/update_chemistry_exports.F |
296 |
INTERP_OZ |
integer bi,bj |
|
./pkg/fizhi/update_chemistry_exports.F |
35 |
UPDATE_CHEMISTRY_EXPORTS |
integer i, j, L, LL, bi, bj |
|
./pkg/fizhi/update_chemistry_exports.F |
49 |
UPDATE_CHEMISTRY_EXPORTS |
do bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/fizhi/update_chemistry_exports.F |
56 |
UPDATE_CHEMISTRY_EXPORTS |
pephy(i,j,Nrphys+1,bi,bj)=(Ro_surf(i,j,bi,bj)+etaH(i,j,bi,bj)) |
|
./pkg/fizhi/update_chemistry_exports.F |
59 |
UPDATE_CHEMISTRY_EXPORTS |
pephy(i,j,LL,bi,bj)=pephy(i,j,LL+1,bi,bj)-dpphys(i,j,L-1,bi,bj) |
|
./pkg/fizhi/update_chemistry_exports.F |
66 |
UPDATE_CHEMISTRY_EXPORTS |
pphy(i,j,L,bi,bj)=(pephy(i,j,L+1,bi,bj)+pephy(i,j,L,bi,bj)) |
|
./pkg/fizhi/update_chemistry_exports.F |
74 |
UPDATE_CHEMISTRY_EXPORTS |
xlat(i,j) = yC(i,j,bi,bj) |
|
./pkg/fizhi/update_chemistry_exports.F |
76 |
UPDATE_CHEMISTRY_EXPORTS |
waterin(i,j,L) = sphy(i,j,L,bi,bj) |
|
./pkg/fizhi/update_chemistry_exports.F |
98 |
UPDATE_CHEMISTRY_EXPORTS |
. waterin,pphy(1,1,1,bi,bj),xlat, |
|
./pkg/fizhi/update_chemistry_exports.F |
99 |
UPDATE_CHEMISTRY_EXPORTS |
. im2,jm2,Nrphys,nSx,nSy,bi,bj,o3,qstr) |
|
./pkg/fizhi/update_earth_exports.F |
100 |
UPDATE_EARTH_EXPORTS |
call GETLGR (sec,month,day,chlt,ityp,nchpland(bi,bj), |
|
./pkg/fizhi/update_earth_exports.F |
1014 |
GETEMISS |
call EMISSIVITY(snowdep(1,bi,bj),fraci,nchp,nchptot,ityp(1,bi,bj), |
|
./pkg/fizhi/update_earth_exports.F |
101 |
UPDATE_EARTH_EXPORTS |
& nchp,nSx,nSy,bi,bj,alai,agrn ) |
|
./pkg/fizhi/update_earth_exports.F |
1025 |
GETEMISS |
call MSC2GRD(igrd(1,bi,bj),chfr(1,bi,bj),emisstile(1,k),nchp, |
|
./pkg/fizhi/update_earth_exports.F |
1029 |
GETEMISS |
emiss(i,j,k,bi,bj) = tmpij(i,j) |
|
./pkg/fizhi/update_earth_exports.F |
115 |
UPDATE_EARTH_EXPORTS |
& nchptot(bi,bj),nchpland(bi,bj),nSx,nSy,bi,bj,igrd,ityp, |
|
./pkg/fizhi/update_earth_exports.F |
1221 |
GET_LANDFRAC |
SUBROUTINE GET_LANDFRAC(im,jm,nSx,nSy,bi,bj,maxtyp,surftype, |
|
./pkg/fizhi/update_earth_exports.F |
1230 |
GET_LANDFRAC |
INTEGER im,jm,nSx,nSy,bi,bj,maxtyp |
|
./pkg/fizhi/update_earth_exports.F |
1246 |
GET_LANDFRAC |
if( (surftype(i,j,k,bi,bj).lt.100.).and. |
|
./pkg/fizhi/update_earth_exports.F |
1247 |
GET_LANDFRAC |
& (tilefrac(i,j,k,bi,bj).gt.0.0))then |
|
./pkg/fizhi/update_earth_exports.F |
1248 |
GET_LANDFRAC |
frac(i,j) = frac(i,j) + tilefrac(i,j,k,bi,bj) |
|
./pkg/fizhi/update_earth_exports.F |
125 |
UPDATE_EARTH_EXPORTS |
call GRD2MSC(fraci,im2,jm2,igrd(1,bi,bj),ficetile, |
|
./pkg/fizhi/update_earth_exports.F |
126 |
UPDATE_EARTH_EXPORTS |
& nchp,nchptot(bi,bj)) |
|
./pkg/fizhi/update_earth_exports.F |
127 |
UPDATE_EARTH_EXPORTS |
call GETEMISS(fracl,im2,jm2,nchp,nchptot(bi,bj),nSx,nSy,bi,bj, |
|
./pkg/fizhi/update_earth_exports.F |
141 |
UPDATE_EARTH_EXPORTS |
do i = 1,nchptot(bi,bj) |
|
./pkg/fizhi/update_earth_exports.F |
142 |
UPDATE_EARTH_EXPORTS |
tmpchp(i) = tcanopy(i,bi,bj) |
|
./pkg/fizhi/update_earth_exports.F |
144 |
UPDATE_EARTH_EXPORTS |
call MSC2GRD(igrd(1,bi,bj),chfr(1,bi,bj),tmpchp, |
|
./pkg/fizhi/update_earth_exports.F |
145 |
UPDATE_EARTH_EXPORTS |
& nchp,nchptot(bi,bj),fracl,tmpij,im2,jm2) |
|
./pkg/fizhi/update_earth_exports.F |
148 |
UPDATE_EARTH_EXPORTS |
tgz(i,j,bi,bj) = tmpij(i,j) |
|
./pkg/fizhi/update_earth_exports.F |
149 |
UPDATE_EARTH_EXPORTS |
if(fracl(i,j).lt.0.3.and.sice(i,j,bi,bj).eq.0.0) |
|
./pkg/fizhi/update_earth_exports.F |
150 |
UPDATE_EARTH_EXPORTS |
& tgz(i,j,bi,bj) = sst(i,j,bi,bj) |
|
./pkg/fizhi/update_earth_exports.F |
53 |
UPDATE_EARTH_EXPORTS |
INTEGER i, j, n, bi, bj |
|
./pkg/fizhi/update_earth_exports.F |
706 |
GETLGR |
& nSx,nSy,bi,bj,ALAI,AGRN) |
|
./pkg/fizhi/update_earth_exports.F |
716 |
GETLGR |
INTEGER sec, imon, iday, nchps, nchpdim, nSx, nSy, bi, bj |
|
./pkg/fizhi/update_earth_exports.F |
73 |
UPDATE_EARTH_EXPORTS |
do bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/fizhi/update_earth_exports.F |
77 |
UPDATE_EARTH_EXPORTS |
lons(i,j) = xC(i,j,bi,bj) |
|
./pkg/fizhi/update_earth_exports.F |
78 |
UPDATE_EARTH_EXPORTS |
lats(i,j) = yC(i,j,bi,bj) |
|
./pkg/fizhi/update_earth_exports.F |
800 |
GETLGR |
IF(ALAT(I,bi,bj).GT.0.) THEN |
|
./pkg/fizhi/update_earth_exports.F |
808 |
GETLGR |
ALAI(I,bi,bj) = VGLA(KK2,ITYP(I,bi,bj))*FAC+ |
|
./pkg/fizhi/update_earth_exports.F |
809 |
GETLGR |
& VGLA(KK1,ITYP(I,bi,bj))*(ONE-FAC) |
|
./pkg/fizhi/update_earth_exports.F |
810 |
GETLGR |
AGRN(I,bi,bj) = VGGR(KK2,ITYP(I,bi,bj))*FAC+ |
|
./pkg/fizhi/update_earth_exports.F |
811 |
GETLGR |
& VGGR(KK1,ITYP(I,bi,bj))*(ONE-FAC) |
|
./pkg/fizhi/update_earth_exports.F |
821 |
GETALB |
& nchp,nchptot,nchpland,nSx,nSy,bi,bj,igrd,ityp,chfr,chlt, |
|
./pkg/fizhi/update_earth_exports.F |
82 |
UPDATE_EARTH_EXPORTS |
call GET_LANDFRAC(im2,jm2,nSx,nSy,bi,bj,maxtyp,surftype,tilefrac, |
|
./pkg/fizhi/update_earth_exports.F |
862 |
GETALB |
INTEGER sec,month,day,im,jm,nchp,nchptot,nchpland,nSx,nSy,bi,bj |
|
./pkg/fizhi/update_earth_exports.F |
87 |
UPDATE_EARTH_EXPORTS |
if(sice(i,j,bi,bj).gt.0.) then |
|
./pkg/fizhi/update_earth_exports.F |
890 |
GETALB |
ALBVR(I,J,bi,bj) = ALBSI*FRACI(I,J) + ALBOC(I,J)*(ONE-FRACI(I,J)) |
|
./pkg/fizhi/update_earth_exports.F |
891 |
GETALB |
ALBNR(I,J,bi,bj) = ALBVR(I,J,bi,bj) |
|
./pkg/fizhi/update_earth_exports.F |
892 |
GETALB |
ALBVF(I,J,bi,bj) = ALBSI * FRACI(I,J) + OCNALB * (ONE-FRACI(I,J)) |
|
./pkg/fizhi/update_earth_exports.F |
893 |
GETALB |
ALBNF(I,J,bi,bj) = ALBVF(I,J,bi,bj) |
|
./pkg/fizhi/update_earth_exports.F |
899 |
GETALB |
call GRD2MSC(cosz,im,jm,igrd(1,bi,bj),zenith,nchp,nchpland) |
|
./pkg/fizhi/update_earth_exports.F |
903 |
GETALB |
call SIBALB(avisdr,anirdr,avisdf,anirdf,alai(1,bi,bj), |
|
./pkg/fizhi/update_earth_exports.F |
904 |
GETALB |
& agrn(1,bi,bj),zenith,snodep(1,bi,bj),ityp(1,bi,bj),nchpland) |
|
./pkg/fizhi/update_earth_exports.F |
910 |
GETALB |
tmpij(i,j) = albvr(i,j,bi,bj) |
|
./pkg/fizhi/update_earth_exports.F |
913 |
GETALB |
call MSC2GRD(igrd(1,bi,bj),chfr(1,bi,bj),avisdr,nchp,nchpland, |
|
./pkg/fizhi/update_earth_exports.F |
918 |
GETALB |
albvr(i,j,bi,bj) = tmpij(i,j) |
|
./pkg/fizhi/update_earth_exports.F |
923 |
GETALB |
tmpij(i,j) = albvf(i,j,bi,bj) |
|
./pkg/fizhi/update_earth_exports.F |
926 |
GETALB |
call MSC2GRD(igrd(1,bi,bj),chfr(1,bi,bj),avisdf,nchp,nchpland, |
|
./pkg/fizhi/update_earth_exports.F |
930 |
GETALB |
albvf(i,j,bi,bj) = tmpij(i,j) |
|
./pkg/fizhi/update_earth_exports.F |
935 |
GETALB |
tmpij(i,j) = albnr(i,j,bi,bj) |
|
./pkg/fizhi/update_earth_exports.F |
938 |
GETALB |
call MSC2GRD(igrd(1,bi,bj),chfr(1,bi,bj),anirdr,nchp,nchpland, |
|
./pkg/fizhi/update_earth_exports.F |
942 |
GETALB |
albnr(i,j,bi,bj) = tmpij(i,j) |
|
./pkg/fizhi/update_earth_exports.F |
947 |
GETALB |
tmpij(i,j) = albnf(i,j,bi,bj) |
|
./pkg/fizhi/update_earth_exports.F |
950 |
GETALB |
call MSC2GRD(igrd(1,bi,bj),chfr(1,bi,bj),anirdf,nchp,nchpland, |
|
./pkg/fizhi/update_earth_exports.F |
954 |
GETALB |
albnf(i,j,bi,bj) = tmpij(i,j) |
|
./pkg/fizhi/update_earth_exports.F |
963 |
GETEMISS |
SUBROUTINE GETEMISS(fracg,im,jm,nchp,nchptot,nSx,nSy,bi,bj, |
|
./pkg/fizhi/update_earth_exports.F |
994 |
GETEMISS |
INTEGER im,jm,nchp,nchptot,nSx,nSy,bi,bj |
|
./pkg/fizhi/update_ocean_exports.F |
104 |
UPDATE_OCEAN_EXPORTS |
if(sice(i,j,bi,bj).eq.0.0 .and. sst(i,j,bi,bj).lt.sstmin) |
|
./pkg/fizhi/update_ocean_exports.F |
105 |
UPDATE_OCEAN_EXPORTS |
. sst(i,j,bi,bj) = sstmin |
|
./pkg/fizhi/update_ocean_exports.F |
118 |
GETSICE |
. jm1,jm2,nSumx,nSumy,xsize,ysize,bi,bj,bislot,bjslot,nymd,nhms, |
|
./pkg/fizhi/update_ocean_exports.F |
165 |
GETSICE |
integer xsize,ysize,bi,bj,bislot,bjslot,nymd,nhms,mythid |
|
./pkg/fizhi/update_ocean_exports.F |
34 |
UPDATE_OCEAN_EXPORTS |
integer i, j, bi, bj, bislot, bjslot |
|
./pkg/fizhi/update_ocean_exports.F |
354 |
GETSICE |
sice(i,j,bi,bj) = sicebc1(i+bislot,j+bjslot)*fac1 |
|
./pkg/fizhi/update_ocean_exports.F |
358 |
GETSICE |
if (sice(i,j,bi,bj) .ge. 0.5) then |
|
./pkg/fizhi/update_ocean_exports.F |
359 |
GETSICE |
sice(i,j,bi,bj) = 1. |
|
./pkg/fizhi/update_ocean_exports.F |
361 |
GETSICE |
sice(i,j,bi,bj) = 0. |
|
./pkg/fizhi/update_ocean_exports.F |
369 |
GETSICE |
if (sice(i,j,bi,bj) .eq. 1.) then |
|
./pkg/fizhi/update_ocean_exports.F |
370 |
GETSICE |
sice(i,j,bi,bj) = 3. |
|
./pkg/fizhi/update_ocean_exports.F |
379 |
GETSST |
. jm1,jm2,nSumx,nSumy,xsize,ysize,bi,bj,bislot,bjslot,nymd,nhms, |
|
./pkg/fizhi/update_ocean_exports.F |
426 |
GETSST |
integer xsize,ysize,bi,bj,bislot,bjslot,nymd,nhms,mythid |
|
./pkg/fizhi/update_ocean_exports.F |
616 |
GETSST |
sst(i,j,bi,bj) = sstbc1(i+bislot,j+bjslot)*fac1 |
|
./pkg/fizhi/update_ocean_exports.F |
82 |
UPDATE_OCEAN_EXPORTS |
bislot = exch2_txglobalo(W2_myTileList(bi,bj))-1 |
|
./pkg/fizhi/update_ocean_exports.F |
83 |
UPDATE_OCEAN_EXPORTS |
bjslot = exch2_tyglobalo(W2_myTileList(bi,bj))-1 |
|
./pkg/fizhi/update_ocean_exports.F |
86 |
UPDATE_OCEAN_EXPORTS |
bjslot = myYGlobalLo-1+(bj-1)*sNy |
|
./pkg/fizhi/update_ocean_exports.F |
90 |
UPDATE_OCEAN_EXPORTS |
. jm1,jm2,nSx,nSy,xsize,ysize,bi,bj,bislot,bjslot,nymd,nhms, |
|
./pkg/fizhi/update_ocean_exports.F |
91 |
UPDATE_OCEAN_EXPORTS |
. sst1,sst2,first(bi,bj),nymd1sst(bi,bj),nymd2sst(bi,bj), |
|
./pkg/fizhi/update_ocean_exports.F |
92 |
UPDATE_OCEAN_EXPORTS |
. nhms1sst(bi,bj),nhms2sst(bi,bj),sstdates(1,bi,bj), |
|
./pkg/fizhi/update_ocean_exports.F |
93 |
UPDATE_OCEAN_EXPORTS |
. ssttimes(1,bi,bj),sst,myThid) |
|
./pkg/fizhi/update_ocean_exports.F |
95 |
UPDATE_OCEAN_EXPORTS |
. jm1,jm2,nSx,nSy,xsize,ysize,bi,bj,bislot,bjslot,nymd,nhms, |
|
./pkg/fizhi/update_ocean_exports.F |
96 |
UPDATE_OCEAN_EXPORTS |
. sice1,sice2,first(bi,bj),nymd1sice(bi,bj),nymd2sice(bi,bj), |
|
./pkg/fizhi/update_ocean_exports.F |
97 |
UPDATE_OCEAN_EXPORTS |
. nhms1sice(bi,bj),nhms2sice(bi,bj),sicedates(1,bi,bj), |
|
./pkg/fizhi/update_ocean_exports.F |
98 |
UPDATE_OCEAN_EXPORTS |
. sicetimes(1,bi,bj),sice,myThid) |
|
./pkg/flt/exch2_recv_get_vec.F |
107 |
EXCH2_RECV_GET_VEC_RL |
write(ioUnit,'(A,5I6)') 'RECV,0 :',myProcId,bi,bj |
|
./pkg/flt/exch2_recv_get_vec.F |
109 |
EXCH2_RECV_GET_VEC_RL |
IF ( W2_myCommFlag(nN,bi,bj) .EQ. 'M' ) THEN |
|
./pkg/flt/exch2_recv_get_vec.F |
115 |
EXCH2_RECV_GET_VEC_RL |
write(ioUnit,'(A,5I5,I8)') 'qq2xW: ',myProcId,bi,bj, |
|
./pkg/flt/exch2_recv_get_vec.F |
118 |
EXCH2_RECV_GET_VEC_RL |
CALL MPI_RECV( array(1,bi,bj,dir), theSize, theType, |
|
./pkg/flt/exch2_recv_get_vec.F |
137 |
EXCH2_RECV_GET_VEC_RL |
IF (array(imax*(ip-1)+1,bi,bj,dir).NE.0.) THEN |
|
./pkg/flt/exch2_recv_get_vec.F |
138 |
EXCH2_RECV_GET_VEC_RL |
itc=array(imax*(ip-1)+3,bi,bj,dir)+itb |
|
./pkg/flt/exch2_recv_get_vec.F |
139 |
EXCH2_RECV_GET_VEC_RL |
jtc=array(imax*(ip-1)+4,bi,bj,dir)+jtb |
|
./pkg/flt/exch2_recv_get_vec.F |
144 |
EXCH2_RECV_GET_VEC_RL |
& array(imax*(ip-1)+1,bi,bj,dir), |
|
./pkg/flt/exch2_recv_get_vec.F |
145 |
EXCH2_RECV_GET_VEC_RL |
& array(imax*(ip-1)+2,bi,bj,dir), |
|
./pkg/flt/exch2_recv_get_vec.F |
146 |
EXCH2_RECV_GET_VEC_RL |
& array(imax*(ip-1)+3,bi,bj,dir), |
|
./pkg/flt/exch2_recv_get_vec.F |
147 |
EXCH2_RECV_GET_VEC_RL |
& array(imax*(ip-1)+4,bi,bj,dir), |
|
./pkg/flt/exch2_recv_get_vec.F |
154 |
EXCH2_RECV_GET_VEC_RL |
IF (array(imax*(ip-1)+1,bi,bj,dir).NE.0.) THEN |
|
./pkg/flt/exch2_recv_get_vec.F |
155 |
EXCH2_RECV_GET_VEC_RL |
itc=array(imax*(ip-1)+3,bi,bj,dir)+itb |
|
./pkg/flt/exch2_recv_get_vec.F |
156 |
EXCH2_RECV_GET_VEC_RL |
jtc=array(imax*(ip-1)+4,bi,bj,dir)+jtb |
|
./pkg/flt/exch2_recv_get_vec.F |
157 |
EXCH2_RECV_GET_VEC_RL |
array(imax*(ip-1)+3,bi,bj,dir) = pi(1)*itc+pi(2)*jtc+oi-isb |
|
./pkg/flt/exch2_recv_get_vec.F |
158 |
EXCH2_RECV_GET_VEC_RL |
array(imax*(ip-1)+4,bi,bj,dir) = pj(1)*itc+pj(2)*jtc+oj-jsb |
|
./pkg/flt/exch2_recv_get_vec.F |
165 |
EXCH2_RECV_GET_VEC_RL |
write(ioUnit,'(A,5I6)') 'RECV,1 :',myProcId,bi,bj |
|
./pkg/flt/exch2_recv_get_vec.F |
177 |
EXCH2_RECV_GET_VEC_RL |
DO bj=1,nSy |
|
./pkg/flt/exch2_recv_get_vec.F |
179 |
EXCH2_RECV_GET_VEC_RL |
thisTile = W2_myTileList(bi,bj) |
|
./pkg/flt/exch2_recv_get_vec.F |
189 |
EXCH2_RECV_GET_VEC_RL |
IF ( W2_myCommFlag(nN,bi,bj) .EQ. 'M' ) THEN |
|
./pkg/flt/exch2_recv_get_vec.F |
190 |
EXCH2_RECV_GET_VEC_RL |
wHandle = theHandle(1,nN,bi,bj) |
|
./pkg/flt/exch2_recv_get_vec.F |
67 |
EXCH2_RECV_GET_VEC_RL |
INTEGER bi, bj |
|
./pkg/flt/exch2_recv_get_vec.F |
95 |
EXCH2_RECV_GET_VEC_RL |
DO bj=1,nSy |
|
./pkg/flt/exch2_recv_get_vec.F |
97 |
EXCH2_RECV_GET_VEC_RL |
thisTile = W2_myTileList(bi,bj) |
|
./pkg/flt/exch2_send_put_vec.F |
104 |
EXCH2_SEND_PUT_VEC_RL |
DO bj=1,nSy |
|
./pkg/flt/exch2_send_put_vec.F |
107 |
EXCH2_SEND_PUT_VEC_RL |
thisTile = W2_myTileList(bi,bj) |
|
./pkg/flt/exch2_send_put_vec.F |
117 |
EXCH2_SEND_PUT_VEC_RL |
IF ( W2_myCommFlag(nN,bi,bj) .EQ. 'P' ) THEN |
|
./pkg/flt/exch2_send_put_vec.F |
128 |
EXCH2_SEND_PUT_VEC_RL |
bufRec(I,sBi,sBj,sDir) = array(I,bi,bj,dir) |
|
./pkg/flt/exch2_send_put_vec.F |
132 |
EXCH2_SEND_PUT_VEC_RL |
& W2_myCommFlag(nN,bi,bj) .EQ. 'M' ) THEN |
|
./pkg/flt/exch2_send_put_vec.F |
139 |
EXCH2_SEND_PUT_VEC_RL |
write(ioUnit,'(A,5I5,I8)') 'qq1xW: ',myProcId,bi,bj, |
|
./pkg/flt/exch2_send_put_vec.F |
142 |
EXCH2_SEND_PUT_VEC_RL |
CALL MPI_ISEND(array(1,bi,bj,dir), theSize, theType, |
|
./pkg/flt/exch2_send_put_vec.F |
144 |
EXCH2_SEND_PUT_VEC_RL |
& theHandle(1,nN,bi,bj), mpiRc) |
|
./pkg/flt/exch2_send_put_vec.F |
68 |
EXCH2_SEND_PUT_VEC_RL |
INTEGER bi, bj |
|
./pkg/flt/exch_recv_get_vec.F |
100 |
EXCH_RECV_GET_VEC_X_RL |
theTag = _tileTagRecvW(bi,bj) |
|
./pkg/flt/exch_recv_get_vec.F |
104 |
EXCH_RECV_GET_VEC_X_RL |
write(ioUnit,'(A,5I5,I8)') 'qq2xW: ',myProcId,bi,bj, |
|
./pkg/flt/exch_recv_get_vec.F |
107 |
EXCH_RECV_GET_VEC_X_RL |
CALL MPI_RECV( arrayW(1,bi,bj), theSize, theType, |
|
./pkg/flt/exch_recv_get_vec.F |
123 |
EXCH_RECV_GET_VEC_X_RL |
write(ioUnit,'(A,5I6)') 'RECV_X,1 :',myProcId,bi,bj |
|
./pkg/flt/exch_recv_get_vec.F |
129 |
EXCH_RECV_GET_VEC_X_RL |
theProc = tilePidE(bi,bj) |
|
./pkg/flt/exch_recv_get_vec.F |
130 |
EXCH_RECV_GET_VEC_X_RL |
theTag = _tileTagRecvE(bi,bj) |
|
./pkg/flt/exch_recv_get_vec.F |
134 |
EXCH_RECV_GET_VEC_X_RL |
write(ioUnit,'(A,5I5,I8)') 'qq2xE: ',myProcId,bi,bj, |
|
./pkg/flt/exch_recv_get_vec.F |
137 |
EXCH_RECV_GET_VEC_X_RL |
CALL MPI_RECV( arrayE(1,bi,bj), theSize, theType, |
|
./pkg/flt/exch_recv_get_vec.F |
144 |
EXCH_RECV_GET_VEC_X_RL |
write(ioUnit,'(A,5I6)') 'RECV_X,2 :',myProcId,bi,bj |
|
./pkg/flt/exch_recv_get_vec.F |
153 |
EXCH_RECV_GET_VEC_X_RL |
DO bj=1,nSy |
|
./pkg/flt/exch_recv_get_vec.F |
155 |
EXCH_RECV_GET_VEC_X_RL |
IF ( exchNReqsX(1,bi,bj) .GT. 0 ) THEN |
|
./pkg/flt/exch_recv_get_vec.F |
158 |
EXCH_RECV_GET_VEC_X_RL |
& CALL MPI_WAITALL( exchNReqsX(1,bi,bj), exchReqIdX(1,1,bi,bj), |
|
./pkg/flt/exch_recv_get_vec.F |
163 |
EXCH_RECV_GET_VEC_X_RL |
exchNReqsX(1,bi,bj) = 0 |
|
./pkg/flt/exch_recv_get_vec.F |
184 |
EXCH_RECV_GET_VEC_X_RL |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/flt/exch_recv_get_vec.F |
187 |
EXCH_RECV_GET_VEC_X_RL |
westCommMode = _tileCommModeW(bi,bj) |
|
./pkg/flt/exch_recv_get_vec.F |
188 |
EXCH_RECV_GET_VEC_X_RL |
eastCommMode = _tileCommModeE(bi,bj) |
|
./pkg/flt/exch_recv_get_vec.F |
190 |
EXCH_RECV_GET_VEC_X_RL |
write(ioUnit,'(A,5I6,I12)') 'spin:', myProcId,bi,bj, |
|
./pkg/flt/exch_recv_get_vec.F |
191 |
EXCH_RECV_GET_VEC_X_RL |
& westRecvAck(1,bi,bj), eastRecvAck(1,bi,bj), spinCount |
|
./pkg/flt/exch_recv_get_vec.F |
197 |
EXCH_RECV_GET_VEC_X_RL |
write(ioUnit,'(A,5I6,I12)') 'spin:', myProcId,bi,bj, |
|
./pkg/flt/exch_recv_get_vec.F |
198 |
EXCH_RECV_GET_VEC_X_RL |
& westRecvAck(1,bi,bj), eastRecvAck(1,bi,bj), spinCount |
|
./pkg/flt/exch_recv_get_vec.F |
203 |
EXCH_RECV_GET_VEC_X_RL |
IF ( westRecvAck(1,bi,bj) .EQ. 0 ) GOTO 10 |
|
./pkg/flt/exch_recv_get_vec.F |
204 |
EXCH_RECV_GET_VEC_X_RL |
IF ( eastRecvAck(1,bi,bj) .EQ. 0 ) GOTO 10 |
|
./pkg/flt/exch_recv_get_vec.F |
206 |
EXCH_RECV_GET_VEC_X_RL |
westRecvAck(1,bi,bj) = 0 |
|
./pkg/flt/exch_recv_get_vec.F |
207 |
EXCH_RECV_GET_VEC_X_RL |
eastRecvAck(1,bi,bj) = 0 |
|
./pkg/flt/exch_recv_get_vec.F |
262 |
EXCH_RECV_GET_VEC_Y_RL |
INTEGER bi, bj |
|
./pkg/flt/exch_recv_get_vec.F |
289 |
EXCH_RECV_GET_VEC_Y_RL |
DO bj=1,nSy |
|
./pkg/flt/exch_recv_get_vec.F |
291 |
EXCH_RECV_GET_VEC_Y_RL |
southCommMode = _tileCommModeS(bi,bj) |
|
./pkg/flt/exch_recv_get_vec.F |
292 |
EXCH_RECV_GET_VEC_Y_RL |
northCommMode = _tileCommModeN(bi,bj) |
|
./pkg/flt/exch_recv_get_vec.F |
294 |
EXCH_RECV_GET_VEC_Y_RL |
write(ioUnit,'(A,5I6)') 'RECV_Y,0 :',myProcId,bi,bj |
|
./pkg/flt/exch_recv_get_vec.F |
303 |
EXCH_RECV_GET_VEC_Y_RL |
theProc = tilePidS(bi,bj) |
|
./pkg/flt/exch_recv_get_vec.F |
304 |
EXCH_RECV_GET_VEC_Y_RL |
theTag = _tileTagRecvS(bi,bj) |
|
./pkg/flt/exch_recv_get_vec.F |
307 |
EXCH_RECV_GET_VEC_Y_RL |
CALL MPI_RECV( arrayS(1,bi,bj), theSize, theType, |
|
./pkg/flt/exch_recv_get_vec.F |
314 |
EXCH_RECV_GET_VEC_Y_RL |
write(ioUnit,'(A,5I6)') 'RECV_Y,1 :',myProcId,bi,bj |
|
./pkg/flt/exch_recv_get_vec.F |
320 |
EXCH_RECV_GET_VEC_Y_RL |
theProc = tilePidN(bi,bj) |
|
./pkg/flt/exch_recv_get_vec.F |
321 |
EXCH_RECV_GET_VEC_Y_RL |
theTag = _tileTagRecvN(bi,bj) |
|
./pkg/flt/exch_recv_get_vec.F |
324 |
EXCH_RECV_GET_VEC_Y_RL |
CALL MPI_RECV( arrayN(1,bi,bj), theSize, theType, |
|
./pkg/flt/exch_recv_get_vec.F |
331 |
EXCH_RECV_GET_VEC_Y_RL |
write(ioUnit,'(A,5I6)') 'RECV_Y,2 :',myProcId,bi,bj |
|
./pkg/flt/exch_recv_get_vec.F |
341 |
EXCH_RECV_GET_VEC_Y_RL |
DO bj=1,nSy |
|
./pkg/flt/exch_recv_get_vec.F |
343 |
EXCH_RECV_GET_VEC_Y_RL |
IF ( exchNReqsY(1,bi,bj) .GT. 0 ) THEN |
|
./pkg/flt/exch_recv_get_vec.F |
346 |
EXCH_RECV_GET_VEC_Y_RL |
& CALL MPI_WAITALL( exchNReqsY(1,bi,bj), exchReqIdY(1,1,bi,bj), |
|
./pkg/flt/exch_recv_get_vec.F |
351 |
EXCH_RECV_GET_VEC_Y_RL |
exchNReqsY(1,bi,bj) = 0 |
|
./pkg/flt/exch_recv_get_vec.F |
372 |
EXCH_RECV_GET_VEC_Y_RL |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/flt/exch_recv_get_vec.F |
375 |
EXCH_RECV_GET_VEC_Y_RL |
southCommMode = _tileCommModeS(bi,bj) |
|
./pkg/flt/exch_recv_get_vec.F |
376 |
EXCH_RECV_GET_VEC_Y_RL |
northCommMode = _tileCommModeN(bi,bj) |
|
./pkg/flt/exch_recv_get_vec.F |
378 |
EXCH_RECV_GET_VEC_Y_RL |
write(ioUnit,'(A,5I6,I12)') 'spin:', myProcId,bi,bj, |
|
./pkg/flt/exch_recv_get_vec.F |
379 |
EXCH_RECV_GET_VEC_Y_RL |
& southRecvAck(1,bi,bj), northRecvAck(1,bi,bj), spinCount |
|
./pkg/flt/exch_recv_get_vec.F |
385 |
EXCH_RECV_GET_VEC_Y_RL |
write(ioUnit,'(A,5I6,I12)') 'spin:', myProcId,bi,bj, |
|
./pkg/flt/exch_recv_get_vec.F |
386 |
EXCH_RECV_GET_VEC_Y_RL |
& southRecvAck(1,bi,bj), northRecvAck(1,bi,bj), spinCount |
|
./pkg/flt/exch_recv_get_vec.F |
391 |
EXCH_RECV_GET_VEC_Y_RL |
IF ( southRecvAck(1,bi,bj) .EQ. 0 ) GOTO 10 |
|
./pkg/flt/exch_recv_get_vec.F |
392 |
EXCH_RECV_GET_VEC_Y_RL |
IF ( northRecvAck(1,bi,bj) .EQ. 0 ) GOTO 10 |
|
./pkg/flt/exch_recv_get_vec.F |
394 |
EXCH_RECV_GET_VEC_Y_RL |
southRecvAck(1,bi,bj) = 0 |
|
./pkg/flt/exch_recv_get_vec.F |
395 |
EXCH_RECV_GET_VEC_Y_RL |
northRecvAck(1,bi,bj) = 0 |
|
./pkg/flt/exch_recv_get_vec.F |
58 |
EXCH_RECV_GET_VEC_X_RL |
INTEGER bi, bj |
|
./pkg/flt/exch_recv_get_vec.F |
85 |
EXCH_RECV_GET_VEC_X_RL |
DO bj=1,nSy |
|
./pkg/flt/exch_recv_get_vec.F |
87 |
EXCH_RECV_GET_VEC_X_RL |
westCommMode = _tileCommModeW(bi,bj) |
|
./pkg/flt/exch_recv_get_vec.F |
88 |
EXCH_RECV_GET_VEC_X_RL |
eastCommMode = _tileCommModeE(bi,bj) |
|
./pkg/flt/exch_recv_get_vec.F |
90 |
EXCH_RECV_GET_VEC_X_RL |
write(ioUnit,'(A,5I6)') 'RECV_X,0 :',myProcId,bi,bj |
|
./pkg/flt/exch_recv_get_vec.F |
99 |
EXCH_RECV_GET_VEC_X_RL |
theProc = tilePidW(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
109 |
EXCH_SEND_PUT_VEC_X_RL |
DO bj=1,nSy |
|
./pkg/flt/exch_send_put_vec.F |
112 |
EXCH_SEND_PUT_VEC_X_RL |
westCommMode = _tileCommModeW(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
113 |
EXCH_SEND_PUT_VEC_X_RL |
eastCommMode = _tileCommModeE(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
114 |
EXCH_SEND_PUT_VEC_X_RL |
biE = _tileBiE(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
115 |
EXCH_SEND_PUT_VEC_X_RL |
bjE = _tileBjE(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
116 |
EXCH_SEND_PUT_VEC_X_RL |
biW = _tileBiW(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
117 |
EXCH_SEND_PUT_VEC_X_RL |
bjW = _tileBjW(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
124 |
EXCH_SEND_PUT_VEC_X_RL |
theProc = tilePidW(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
125 |
EXCH_SEND_PUT_VEC_X_RL |
theTag = _tileTagSendW(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
128 |
EXCH_SEND_PUT_VEC_X_RL |
exchNReqsX(1,bi,bj) = exchNReqsX(1,bi,bj)+1 |
|
./pkg/flt/exch_send_put_vec.F |
130 |
EXCH_SEND_PUT_VEC_X_RL |
write(ioUnit,'(A,7I5,I8)') 'qq1xW: ',myProcId,bi,bj, |
|
./pkg/flt/exch_send_put_vec.F |
131 |
EXCH_SEND_PUT_VEC_X_RL |
& theProc,theTag, exchNReqsX(1,bi,bj), |
|
./pkg/flt/exch_send_put_vec.F |
132 |
EXCH_SEND_PUT_VEC_X_RL |
& exchReqIdX(exchNReqsX(1,bi,bj),1,bi,bj), theSize |
|
./pkg/flt/exch_send_put_vec.F |
134 |
EXCH_SEND_PUT_VEC_X_RL |
CALL MPI_ISEND( arrayW(1,bi,bj), theSize, theType, |
|
./pkg/flt/exch_send_put_vec.F |
136 |
EXCH_SEND_PUT_VEC_X_RL |
& exchReqIdX(exchNReqsX(1,bi,bj),1,bi,bj), |
|
./pkg/flt/exch_send_put_vec.F |
144 |
EXCH_SEND_PUT_VEC_X_RL |
bufRecE(I,biW,bjW) = arrayW(I,bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
155 |
EXCH_SEND_PUT_VEC_X_RL |
theProc = tilePidE(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
156 |
EXCH_SEND_PUT_VEC_X_RL |
theTag = _tileTagSendE(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
159 |
EXCH_SEND_PUT_VEC_X_RL |
exchNReqsX(1,bi,bj) = exchNReqsX(1,bi,bj)+1 |
|
./pkg/flt/exch_send_put_vec.F |
163 |
EXCH_SEND_PUT_VEC_X_RL |
write(ioUnit,'(A,7I5,I8)') 'qq1xE: ',myProcId,bi,bj, |
|
./pkg/flt/exch_send_put_vec.F |
164 |
EXCH_SEND_PUT_VEC_X_RL |
& theProc,theTag, exchNReqsX(1,bi,bj), |
|
./pkg/flt/exch_send_put_vec.F |
165 |
EXCH_SEND_PUT_VEC_X_RL |
& exchReqIdX(exchNReqsX(1,bi,bj),1,bi,bj), theSize |
|
./pkg/flt/exch_send_put_vec.F |
169 |
EXCH_SEND_PUT_VEC_X_RL |
CALL MPI_ISEND( arrayE(1,bi,bj), theSize, theType, |
|
./pkg/flt/exch_send_put_vec.F |
171 |
EXCH_SEND_PUT_VEC_X_RL |
& exchReqIdX(exchNReqsX(1,bi,bj),1,bi,bj), |
|
./pkg/flt/exch_send_put_vec.F |
179 |
EXCH_SEND_PUT_VEC_X_RL |
bufRecW(I,biE,bjE) = arrayE(I,bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
199 |
EXCH_SEND_PUT_VEC_X_RL |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/flt/exch_send_put_vec.F |
201 |
EXCH_SEND_PUT_VEC_X_RL |
biE = _tileBiE(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
202 |
EXCH_SEND_PUT_VEC_X_RL |
bjE = _tileBjE(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
203 |
EXCH_SEND_PUT_VEC_X_RL |
biW = _tileBiW(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
204 |
EXCH_SEND_PUT_VEC_X_RL |
bjW = _tileBjW(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
205 |
EXCH_SEND_PUT_VEC_X_RL |
westCommMode = _tileCommModeW(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
206 |
EXCH_SEND_PUT_VEC_X_RL |
eastCommMode = _tileCommModeE(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
290 |
EXCH_SEND_PUT_VEC_Y_RL |
INTEGER bi, bj, biS, bjS, biN, bjN |
|
./pkg/flt/exch_send_put_vec.F |
331 |
EXCH_SEND_PUT_VEC_Y_RL |
DO bj=1,nSy |
|
./pkg/flt/exch_send_put_vec.F |
334 |
EXCH_SEND_PUT_VEC_Y_RL |
southCommMode = _tileCommModeS(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
335 |
EXCH_SEND_PUT_VEC_Y_RL |
northCommMode = _tileCommModeN(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
336 |
EXCH_SEND_PUT_VEC_Y_RL |
biN = _tileBiN(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
337 |
EXCH_SEND_PUT_VEC_Y_RL |
bjN = _tileBjN(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
338 |
EXCH_SEND_PUT_VEC_Y_RL |
biS = _tileBiS(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
339 |
EXCH_SEND_PUT_VEC_Y_RL |
bjS = _tileBjS(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
346 |
EXCH_SEND_PUT_VEC_Y_RL |
theProc = tilePidS(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
347 |
EXCH_SEND_PUT_VEC_Y_RL |
theTag = _tileTagSendS(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
350 |
EXCH_SEND_PUT_VEC_Y_RL |
exchNReqsY(1,bi,bj) = exchNReqsY(1,bi,bj)+1 |
|
./pkg/flt/exch_send_put_vec.F |
351 |
EXCH_SEND_PUT_VEC_Y_RL |
CALL MPI_ISEND( arrayS(1,bi,bj), theSize, theType, |
|
./pkg/flt/exch_send_put_vec.F |
353 |
EXCH_SEND_PUT_VEC_Y_RL |
& exchReqIdY(exchNReqsY(1,bi,bj),1,bi,bj), |
|
./pkg/flt/exch_send_put_vec.F |
361 |
EXCH_SEND_PUT_VEC_Y_RL |
bufRecN(I,biS,bjS) = arrayS(I,bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
372 |
EXCH_SEND_PUT_VEC_Y_RL |
theProc = tilePidN(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
373 |
EXCH_SEND_PUT_VEC_Y_RL |
theTag = _tileTagSendN(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
376 |
EXCH_SEND_PUT_VEC_Y_RL |
exchNReqsY(1,bi,bj) = exchNReqsY(1,bi,bj)+1 |
|
./pkg/flt/exch_send_put_vec.F |
377 |
EXCH_SEND_PUT_VEC_Y_RL |
CALL MPI_ISEND( arrayN(1,bi,bj), theSize, theType, |
|
./pkg/flt/exch_send_put_vec.F |
379 |
EXCH_SEND_PUT_VEC_Y_RL |
& exchReqIdY(exchNReqsY(1,bi,bj),1,bi,bj), |
|
./pkg/flt/exch_send_put_vec.F |
387 |
EXCH_SEND_PUT_VEC_Y_RL |
bufRecS(I,biN,bjN) = arrayN(I,bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
407 |
EXCH_SEND_PUT_VEC_Y_RL |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/flt/exch_send_put_vec.F |
409 |
EXCH_SEND_PUT_VEC_Y_RL |
biN = _tileBiN(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
410 |
EXCH_SEND_PUT_VEC_Y_RL |
bjN = _tileBjN(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
411 |
EXCH_SEND_PUT_VEC_Y_RL |
biS = _tileBiS(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
412 |
EXCH_SEND_PUT_VEC_Y_RL |
bjS = _tileBjS(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
413 |
EXCH_SEND_PUT_VEC_Y_RL |
southCommMode = _tileCommModeS(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
414 |
EXCH_SEND_PUT_VEC_Y_RL |
northCommMode = _tileCommModeN(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
65 |
EXCH_SEND_PUT_VEC_X_RL |
INTEGER bi, bj, biW, bjW, biE, bjE |
|
./pkg/flt/flt_down.F |
30 |
FLT_DOWN |
INTEGER bi, bj |
|
./pkg/flt/flt_down.F |
35 |
FLT_DOWN |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/flt/flt_down.F |
38 |
FLT_DOWN |
DO ip=1,npart_tile(bi,bj) |
|
./pkg/flt/flt_down.F |
41 |
FLT_DOWN |
& ( myTime.GE.tstart(ip,bi,bj)) |
|
./pkg/flt/flt_down.F |
43 |
FLT_DOWN |
& ( tend(ip,bi,bj).EQ.-1. .OR. myTime.LE. tend(ip,bi,bj)) |
|
./pkg/flt/flt_down.F |
45 |
FLT_DOWN |
& (kpart(ip,bi,bj) .LE. flt_surf) |
|
./pkg/flt/flt_down.F |
47 |
FLT_DOWN |
& (iup(ip,bi,bj) .GT. 0.) |
|
./pkg/flt/flt_down.F |
58 |
FLT_DOWN |
IF (mod(myTime,iup(ip,bi,bj)).EQ.itop(ip,bi,bj)) |
|
./pkg/flt/flt_down.F |
59 |
FLT_DOWN |
& kpart(ip,bi,bj) = kfloat(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
100 |
FLT_EXCH2 |
DO ip=1,npart_tile(bi,bj) |
|
./pkg/flt/flt_exch2.F |
103 |
FLT_EXCH2 |
& (myTime.LE.tend(ip,bi,bj) .OR. tend(ip,bi,bj).EQ.-1.) |
|
./pkg/flt/flt_exch2.F |
104 |
FLT_EXCH2 |
& .AND. ipart(ip,bi,bj).GE.ihi ) THEN |
|
./pkg/flt/flt_exch2.F |
106 |
FLT_EXCH2 |
tend(ip,bi,bj) = flt_stopped |
|
./pkg/flt/flt_exch2.F |
107 |
FLT_EXCH2 |
ELSEIF ( ipart(ip,bi,bj).GE.ihi ) THEN |
|
./pkg/flt/flt_exch2.F |
112 |
FLT_EXCH2 |
iNew = ipart(ip,bi,bj) - DFLOAT(sNx) |
|
./pkg/flt/flt_exch2.F |
113 |
FLT_EXCH2 |
fltbuf_send(ic+1,bi,bj,W2_EAST) = npart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
114 |
FLT_EXCH2 |
fltbuf_send(ic+2,bi,bj,W2_EAST) = tstart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
116 |
FLT_EXCH2 |
fltbuf_send(ic+3,bi,bj,W2_EAST) = ipart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
118 |
FLT_EXCH2 |
fltbuf_send(ic+3,bi,bj,W2_EAST) = iNew |
|
./pkg/flt/flt_exch2.F |
120 |
FLT_EXCH2 |
fltbuf_send(ic+4,bi,bj,W2_EAST) = jpart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
121 |
FLT_EXCH2 |
fltbuf_send(ic+5,bi,bj,W2_EAST) = kpart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
122 |
FLT_EXCH2 |
fltbuf_send(ic+6,bi,bj,W2_EAST) = kfloat(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
123 |
FLT_EXCH2 |
fltbuf_send(ic+7,bi,bj,W2_EAST) = iup(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
124 |
FLT_EXCH2 |
fltbuf_send(ic+8,bi,bj,W2_EAST) = itop(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
125 |
FLT_EXCH2 |
fltbuf_send(ic+9,bi,bj,W2_EAST) = tend(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
130 |
FLT_EXCH2 |
npart(ip,bi,bj) = 0. |
|
./pkg/flt/flt_exch2.F |
136 |
FLT_EXCH2 |
& (myTime.LE.tend(ip,bi,bj) .OR. tend(ip,bi,bj).EQ.-1.) |
|
./pkg/flt/flt_exch2.F |
137 |
FLT_EXCH2 |
& .AND. ipart(ip,bi,bj).LT.ilo ) THEN |
|
./pkg/flt/flt_exch2.F |
139 |
FLT_EXCH2 |
tend(ip,bi,bj) = flt_stopped |
|
./pkg/flt/flt_exch2.F |
140 |
FLT_EXCH2 |
ELSEIF ( ipart(ip,bi,bj).LT.ilo ) THEN |
|
./pkg/flt/flt_exch2.F |
145 |
FLT_EXCH2 |
iNew = ipart(ip,bi,bj) + DFLOAT(sNx) |
|
./pkg/flt/flt_exch2.F |
146 |
FLT_EXCH2 |
fltbuf_send(ic+1,bi,bj,W2_WEST) = npart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
147 |
FLT_EXCH2 |
fltbuf_send(ic+2,bi,bj,W2_WEST) = tstart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
149 |
FLT_EXCH2 |
fltbuf_send(ic+3,bi,bj,W2_WEST) = ipart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
151 |
FLT_EXCH2 |
fltbuf_send(ic+3,bi,bj,W2_WEST) = iNew |
|
./pkg/flt/flt_exch2.F |
153 |
FLT_EXCH2 |
fltbuf_send(ic+4,bi,bj,W2_WEST) = jpart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
154 |
FLT_EXCH2 |
fltbuf_send(ic+5,bi,bj,W2_WEST) = kpart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
155 |
FLT_EXCH2 |
fltbuf_send(ic+6,bi,bj,W2_WEST) = kfloat(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
156 |
FLT_EXCH2 |
fltbuf_send(ic+7,bi,bj,W2_WEST) = iup(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
157 |
FLT_EXCH2 |
fltbuf_send(ic+8,bi,bj,W2_WEST) = itop(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
158 |
FLT_EXCH2 |
fltbuf_send(ic+9,bi,bj,W2_WEST) = tend(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
163 |
FLT_EXCH2 |
npart(ip,bi,bj) = 0. |
|
./pkg/flt/flt_exch2.F |
171 |
FLT_EXCH2 |
& ' bi,bj=', bi, bj, |
|
./pkg/flt/flt_exch2.F |
178 |
FLT_EXCH2 |
& ' bi,bj=', bi, bj, |
|
./pkg/flt/flt_exch2.F |
189 |
FLT_EXCH2 |
npNew = npart_tile(bi,bj) - (icountE+icountW) |
|
./pkg/flt/flt_exch2.F |
191 |
FLT_EXCH2 |
DO jp = npNew+1,npart_tile(bi,bj) |
|
./pkg/flt/flt_exch2.F |
192 |
FLT_EXCH2 |
IF ( npart(jp,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/flt/flt_exch2.F |
196 |
FLT_EXCH2 |
npart (ip,bi,bj) = npart (jp,bi,bj) |
|
./pkg/flt/flt_exch2.F |
197 |
FLT_EXCH2 |
tstart(ip,bi,bj) = tstart(jp,bi,bj) |
|
./pkg/flt/flt_exch2.F |
198 |
FLT_EXCH2 |
ipart (ip,bi,bj) = ipart (jp,bi,bj) |
|
./pkg/flt/flt_exch2.F |
199 |
FLT_EXCH2 |
jpart (ip,bi,bj) = jpart (jp,bi,bj) |
|
./pkg/flt/flt_exch2.F |
200 |
FLT_EXCH2 |
kpart (ip,bi,bj) = kpart (jp,bi,bj) |
|
./pkg/flt/flt_exch2.F |
201 |
FLT_EXCH2 |
kfloat(ip,bi,bj) = kfloat(jp,bi,bj) |
|
./pkg/flt/flt_exch2.F |
202 |
FLT_EXCH2 |
iup (ip,bi,bj) = iup (jp,bi,bj) |
|
./pkg/flt/flt_exch2.F |
203 |
FLT_EXCH2 |
itop (ip,bi,bj) = itop (jp,bi,bj) |
|
./pkg/flt/flt_exch2.F |
204 |
FLT_EXCH2 |
tend (ip,bi,bj) = tend (jp,bi,bj) |
|
./pkg/flt/flt_exch2.F |
207 |
FLT_EXCH2 |
npart_tile(bi,bj) = npNew |
|
./pkg/flt/flt_exch2.F |
223 |
FLT_EXCH2 |
DO ip=1,npart_tile(bi,bj) |
|
./pkg/flt/flt_exch2.F |
225 |
FLT_EXCH2 |
IF ( npart(ip,bi,bj).NE.0 ) THEN |
|
./pkg/flt/flt_exch2.F |
228 |
FLT_EXCH2 |
& (myTime.LE.tend(ip,bi,bj) .OR. tend(ip,bi,bj).EQ.-1.) |
|
./pkg/flt/flt_exch2.F |
229 |
FLT_EXCH2 |
& .AND. jpart(ip,bi,bj).GE.jhi ) THEN |
|
./pkg/flt/flt_exch2.F |
231 |
FLT_EXCH2 |
tend(ip,bi,bj) = flt_stopped |
|
./pkg/flt/flt_exch2.F |
232 |
FLT_EXCH2 |
ELSEIF ( jpart(ip,bi,bj).GE.jhi ) THEN |
|
./pkg/flt/flt_exch2.F |
237 |
FLT_EXCH2 |
jNew = jpart(ip,bi,bj) - DFLOAT(sNy) |
|
./pkg/flt/flt_exch2.F |
238 |
FLT_EXCH2 |
fltbuf_send(ic+1,bi,bj,W2_NORTH) = npart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
239 |
FLT_EXCH2 |
fltbuf_send(ic+2,bi,bj,W2_NORTH) = tstart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
240 |
FLT_EXCH2 |
fltbuf_send(ic+3,bi,bj,W2_NORTH) = ipart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
242 |
FLT_EXCH2 |
fltbuf_send(ic+4,bi,bj,W2_NORTH) = jpart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
244 |
FLT_EXCH2 |
fltbuf_send(ic+4,bi,bj,W2_NORTH) = jNew |
|
./pkg/flt/flt_exch2.F |
246 |
FLT_EXCH2 |
fltbuf_send(ic+5,bi,bj,W2_NORTH) = kpart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
247 |
FLT_EXCH2 |
fltbuf_send(ic+6,bi,bj,W2_NORTH) = kfloat(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
248 |
FLT_EXCH2 |
fltbuf_send(ic+7,bi,bj,W2_NORTH) = iup(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
249 |
FLT_EXCH2 |
fltbuf_send(ic+8,bi,bj,W2_NORTH) = itop(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
250 |
FLT_EXCH2 |
fltbuf_send(ic+9,bi,bj,W2_NORTH) = tend(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
255 |
FLT_EXCH2 |
npart(ip,bi,bj) = 0. |
|
./pkg/flt/flt_exch2.F |
266 |
FLT_EXCH2 |
& (myTime.LE.tend(ip,bi,bj) .OR. tend(ip,bi,bj).EQ.-1.) |
|
./pkg/flt/flt_exch2.F |
267 |
FLT_EXCH2 |
& .AND. jpart(ip,bi,bj).LT.jlo ) THEN |
|
./pkg/flt/flt_exch2.F |
269 |
FLT_EXCH2 |
tend(ip,bi,bj) = flt_stopped |
|
./pkg/flt/flt_exch2.F |
270 |
FLT_EXCH2 |
ELSEIF ( jpart(ip,bi,bj).LT.jlo ) THEN |
|
./pkg/flt/flt_exch2.F |
275 |
FLT_EXCH2 |
jNew = jpart(ip,bi,bj) + DFLOAT(sNy) |
|
./pkg/flt/flt_exch2.F |
276 |
FLT_EXCH2 |
fltbuf_send(ic+1,bi,bj,W2_SOUTH) = npart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
277 |
FLT_EXCH2 |
fltbuf_send(ic+2,bi,bj,W2_SOUTH) = tstart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
278 |
FLT_EXCH2 |
fltbuf_send(ic+3,bi,bj,W2_SOUTH) = ipart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
280 |
FLT_EXCH2 |
fltbuf_send(ic+4,bi,bj,W2_SOUTH) = jpart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
282 |
FLT_EXCH2 |
fltbuf_send(ic+4,bi,bj,W2_SOUTH) = jNew |
|
./pkg/flt/flt_exch2.F |
284 |
FLT_EXCH2 |
fltbuf_send(ic+5,bi,bj,W2_SOUTH) = kpart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
285 |
FLT_EXCH2 |
fltbuf_send(ic+6,bi,bj,W2_SOUTH) = kfloat(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
286 |
FLT_EXCH2 |
fltbuf_send(ic+7,bi,bj,W2_SOUTH) = iup(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
287 |
FLT_EXCH2 |
fltbuf_send(ic+8,bi,bj,W2_SOUTH) = itop(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
288 |
FLT_EXCH2 |
fltbuf_send(ic+9,bi,bj,W2_SOUTH) = tend(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
293 |
FLT_EXCH2 |
npart(ip,bi,bj) = 0. |
|
./pkg/flt/flt_exch2.F |
308 |
FLT_EXCH2 |
& ' bi,bj=', bi, bj, |
|
./pkg/flt/flt_exch2.F |
315 |
FLT_EXCH2 |
& ' bi,bj=', bi, bj, |
|
./pkg/flt/flt_exch2.F |
326 |
FLT_EXCH2 |
npNew = npart_tile(bi,bj) - (icountN+icountS) |
|
./pkg/flt/flt_exch2.F |
328 |
FLT_EXCH2 |
DO jp = npNew+1,npart_tile(bi,bj) |
|
./pkg/flt/flt_exch2.F |
329 |
FLT_EXCH2 |
IF ( npart(jp,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/flt/flt_exch2.F |
333 |
FLT_EXCH2 |
npart (ip,bi,bj) = npart (jp,bi,bj) |
|
./pkg/flt/flt_exch2.F |
334 |
FLT_EXCH2 |
tstart(ip,bi,bj) = tstart(jp,bi,bj) |
|
./pkg/flt/flt_exch2.F |
335 |
FLT_EXCH2 |
ipart (ip,bi,bj) = ipart (jp,bi,bj) |
|
./pkg/flt/flt_exch2.F |
336 |
FLT_EXCH2 |
jpart (ip,bi,bj) = jpart (jp,bi,bj) |
|
./pkg/flt/flt_exch2.F |
337 |
FLT_EXCH2 |
kpart (ip,bi,bj) = kpart (jp,bi,bj) |
|
./pkg/flt/flt_exch2.F |
338 |
FLT_EXCH2 |
kfloat(ip,bi,bj) = kfloat(jp,bi,bj) |
|
./pkg/flt/flt_exch2.F |
339 |
FLT_EXCH2 |
iup (ip,bi,bj) = iup (jp,bi,bj) |
|
./pkg/flt/flt_exch2.F |
340 |
FLT_EXCH2 |
itop (ip,bi,bj) = itop (jp,bi,bj) |
|
./pkg/flt/flt_exch2.F |
341 |
FLT_EXCH2 |
tend (ip,bi,bj) = tend (jp,bi,bj) |
|
./pkg/flt/flt_exch2.F |
344 |
FLT_EXCH2 |
npart_tile(bi,bj) = npNew |
|
./pkg/flt/flt_exch2.F |
386 |
FLT_EXCH2 |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/flt/flt_exch2.F |
392 |
FLT_EXCH2 |
IF ( fltbuf_recv(ic+1,bi,bj,W2_EAST).NE.0. ) THEN |
|
./pkg/flt/flt_exch2.F |
393 |
FLT_EXCH2 |
npart_tile(bi,bj) = npart_tile(bi,bj) + 1 |
|
./pkg/flt/flt_exch2.F |
394 |
FLT_EXCH2 |
IF ( npart_tile(bi,bj).LE.max_npart_tile ) THEN |
|
./pkg/flt/flt_exch2.F |
395 |
FLT_EXCH2 |
jp = npart_tile(bi,bj) |
|
./pkg/flt/flt_exch2.F |
396 |
FLT_EXCH2 |
npart( jp,bi,bj) = fltbuf_recv(ic+1,bi,bj,W2_EAST) |
|
./pkg/flt/flt_exch2.F |
397 |
FLT_EXCH2 |
tstart(jp,bi,bj) = fltbuf_recv(ic+2,bi,bj,W2_EAST) |
|
./pkg/flt/flt_exch2.F |
398 |
FLT_EXCH2 |
ipart( jp,bi,bj) = fltbuf_recv(ic+3,bi,bj,W2_EAST) |
|
./pkg/flt/flt_exch2.F |
399 |
FLT_EXCH2 |
jpart( jp,bi,bj) = fltbuf_recv(ic+4,bi,bj,W2_EAST) |
|
./pkg/flt/flt_exch2.F |
400 |
FLT_EXCH2 |
kpart( jp,bi,bj) = fltbuf_recv(ic+5,bi,bj,W2_EAST) |
|
./pkg/flt/flt_exch2.F |
401 |
FLT_EXCH2 |
kfloat(jp,bi,bj) = fltbuf_recv(ic+6,bi,bj,W2_EAST) |
|
./pkg/flt/flt_exch2.F |
402 |
FLT_EXCH2 |
iup( jp,bi,bj) = fltbuf_recv(ic+7,bi,bj,W2_EAST) |
|
./pkg/flt/flt_exch2.F |
403 |
FLT_EXCH2 |
itop( jp,bi,bj) = fltbuf_recv(ic+8,bi,bj,W2_EAST) |
|
./pkg/flt/flt_exch2.F |
404 |
FLT_EXCH2 |
tend( jp,bi,bj) = fltbuf_recv(ic+9,bi,bj,W2_EAST) |
|
./pkg/flt/flt_exch2.F |
409 |
FLT_EXCH2 |
IF ( npart_tile(bi,bj).GT.max_npart_tile ) THEN |
|
./pkg/flt/flt_exch2.F |
411 |
FLT_EXCH2 |
& ' bi,bj=', bi, bj, |
|
./pkg/flt/flt_exch2.F |
412 |
FLT_EXCH2 |
& ' npart_tile=', npart_tile(bi,bj), |
|
./pkg/flt/flt_exch2.F |
421 |
FLT_EXCH2 |
IF ( fltbuf_recv(ic+1,bi,bj,W2_WEST).NE.0. ) THEN |
|
./pkg/flt/flt_exch2.F |
422 |
FLT_EXCH2 |
npart_tile(bi,bj) = npart_tile(bi,bj) + 1 |
|
./pkg/flt/flt_exch2.F |
423 |
FLT_EXCH2 |
IF ( npart_tile(bi,bj).LE.max_npart_tile ) THEN |
|
./pkg/flt/flt_exch2.F |
424 |
FLT_EXCH2 |
jp = npart_tile(bi,bj) |
|
./pkg/flt/flt_exch2.F |
425 |
FLT_EXCH2 |
npart( jp,bi,bj) = fltbuf_recv(ic+1,bi,bj,W2_WEST) |
|
./pkg/flt/flt_exch2.F |
426 |
FLT_EXCH2 |
tstart(jp,bi,bj) = fltbuf_recv(ic+2,bi,bj,W2_WEST) |
|
./pkg/flt/flt_exch2.F |
427 |
FLT_EXCH2 |
ipart( jp,bi,bj) = fltbuf_recv(ic+3,bi,bj,W2_WEST) |
|
./pkg/flt/flt_exch2.F |
428 |
FLT_EXCH2 |
jpart( jp,bi,bj) = fltbuf_recv(ic+4,bi,bj,W2_WEST) |
|
./pkg/flt/flt_exch2.F |
429 |
FLT_EXCH2 |
kpart( jp,bi,bj) = fltbuf_recv(ic+5,bi,bj,W2_WEST) |
|
./pkg/flt/flt_exch2.F |
42 |
FLT_EXCH2 |
INTEGER bi, bj, ic |
|
./pkg/flt/flt_exch2.F |
430 |
FLT_EXCH2 |
kfloat(jp,bi,bj) = fltbuf_recv(ic+6,bi,bj,W2_WEST) |
|
./pkg/flt/flt_exch2.F |
431 |
FLT_EXCH2 |
iup( jp,bi,bj) = fltbuf_recv(ic+7,bi,bj,W2_WEST) |
|
./pkg/flt/flt_exch2.F |
432 |
FLT_EXCH2 |
itop( jp,bi,bj) = fltbuf_recv(ic+8,bi,bj,W2_WEST) |
|
./pkg/flt/flt_exch2.F |
433 |
FLT_EXCH2 |
tend( jp,bi,bj) = fltbuf_recv(ic+9,bi,bj,W2_WEST) |
|
./pkg/flt/flt_exch2.F |
438 |
FLT_EXCH2 |
IF ( npart_tile(bi,bj).GT.max_npart_tile ) THEN |
|
./pkg/flt/flt_exch2.F |
440 |
FLT_EXCH2 |
& ' bi,bj=', bi, bj, |
|
./pkg/flt/flt_exch2.F |
441 |
FLT_EXCH2 |
& ' npart_tile=', npart_tile(bi,bj), |
|
./pkg/flt/flt_exch2.F |
450 |
FLT_EXCH2 |
IF ( fltbuf_recv(ic+1,bi,bj,W2_NORTH).NE.0. ) THEN |
|
./pkg/flt/flt_exch2.F |
451 |
FLT_EXCH2 |
npart_tile(bi,bj) = npart_tile(bi,bj) + 1 |
|
./pkg/flt/flt_exch2.F |
452 |
FLT_EXCH2 |
IF ( npart_tile(bi,bj).LE.max_npart_tile ) THEN |
|
./pkg/flt/flt_exch2.F |
453 |
FLT_EXCH2 |
jp = npart_tile(bi,bj) |
|
./pkg/flt/flt_exch2.F |
454 |
FLT_EXCH2 |
npart( jp,bi,bj) = fltbuf_recv(ic+1,bi,bj,W2_NORTH) |
|
./pkg/flt/flt_exch2.F |
455 |
FLT_EXCH2 |
tstart(jp,bi,bj) = fltbuf_recv(ic+2,bi,bj,W2_NORTH) |
|
./pkg/flt/flt_exch2.F |
456 |
FLT_EXCH2 |
ipart( jp,bi,bj) = fltbuf_recv(ic+3,bi,bj,W2_NORTH) |
|
./pkg/flt/flt_exch2.F |
457 |
FLT_EXCH2 |
jpart( jp,bi,bj) = fltbuf_recv(ic+4,bi,bj,W2_NORTH) |
|
./pkg/flt/flt_exch2.F |
458 |
FLT_EXCH2 |
kpart( jp,bi,bj) = fltbuf_recv(ic+5,bi,bj,W2_NORTH) |
|
./pkg/flt/flt_exch2.F |
459 |
FLT_EXCH2 |
kfloat(jp,bi,bj) = fltbuf_recv(ic+6,bi,bj,W2_NORTH) |
|
./pkg/flt/flt_exch2.F |
460 |
FLT_EXCH2 |
iup( jp,bi,bj) = fltbuf_recv(ic+7,bi,bj,W2_NORTH) |
|
./pkg/flt/flt_exch2.F |
461 |
FLT_EXCH2 |
itop( jp,bi,bj) = fltbuf_recv(ic+8,bi,bj,W2_NORTH) |
|
./pkg/flt/flt_exch2.F |
462 |
FLT_EXCH2 |
tend( jp,bi,bj) = fltbuf_recv(ic+9,bi,bj,W2_NORTH) |
|
./pkg/flt/flt_exch2.F |
467 |
FLT_EXCH2 |
IF ( npart_tile(bi,bj).GT.max_npart_tile ) THEN |
|
./pkg/flt/flt_exch2.F |
469 |
FLT_EXCH2 |
& ' bi,bj=', bi, bj, |
|
./pkg/flt/flt_exch2.F |
470 |
FLT_EXCH2 |
& ' npart_tile=', npart_tile(bi,bj), |
|
./pkg/flt/flt_exch2.F |
479 |
FLT_EXCH2 |
IF ( fltbuf_recv(ic+1,bi,bj,W2_SOUTH).NE.0. ) THEN |
|
./pkg/flt/flt_exch2.F |
480 |
FLT_EXCH2 |
npart_tile(bi,bj) = npart_tile(bi,bj) + 1 |
|
./pkg/flt/flt_exch2.F |
481 |
FLT_EXCH2 |
IF ( npart_tile(bi,bj).LE.max_npart_tile ) THEN |
|
./pkg/flt/flt_exch2.F |
482 |
FLT_EXCH2 |
jp = npart_tile(bi,bj) |
|
./pkg/flt/flt_exch2.F |
483 |
FLT_EXCH2 |
npart( jp,bi,bj) = fltbuf_recv(ic+1,bi,bj,W2_SOUTH) |
|
./pkg/flt/flt_exch2.F |
484 |
FLT_EXCH2 |
tstart(jp,bi,bj) = fltbuf_recv(ic+2,bi,bj,W2_SOUTH) |
|
./pkg/flt/flt_exch2.F |
485 |
FLT_EXCH2 |
ipart( jp,bi,bj) = fltbuf_recv(ic+3,bi,bj,W2_SOUTH) |
|
./pkg/flt/flt_exch2.F |
486 |
FLT_EXCH2 |
jpart( jp,bi,bj) = fltbuf_recv(ic+4,bi,bj,W2_SOUTH) |
|
./pkg/flt/flt_exch2.F |
487 |
FLT_EXCH2 |
kpart( jp,bi,bj) = fltbuf_recv(ic+5,bi,bj,W2_SOUTH) |
|
./pkg/flt/flt_exch2.F |
488 |
FLT_EXCH2 |
kfloat(jp,bi,bj) = fltbuf_recv(ic+6,bi,bj,W2_SOUTH) |
|
./pkg/flt/flt_exch2.F |
489 |
FLT_EXCH2 |
iup( jp,bi,bj) = fltbuf_recv(ic+7,bi,bj,W2_SOUTH) |
|
./pkg/flt/flt_exch2.F |
490 |
FLT_EXCH2 |
itop( jp,bi,bj) = fltbuf_recv(ic+8,bi,bj,W2_SOUTH) |
|
./pkg/flt/flt_exch2.F |
491 |
FLT_EXCH2 |
tend( jp,bi,bj) = fltbuf_recv(ic+9,bi,bj,W2_SOUTH) |
|
./pkg/flt/flt_exch2.F |
496 |
FLT_EXCH2 |
IF ( npart_tile(bi,bj).GT.max_npart_tile ) THEN |
|
./pkg/flt/flt_exch2.F |
498 |
FLT_EXCH2 |
& ' bi,bj=', bi, bj, |
|
./pkg/flt/flt_exch2.F |
499 |
FLT_EXCH2 |
& ' npart_tile=', npart_tile(bi,bj), |
|
./pkg/flt/flt_exch2.F |
74 |
FLT_EXCH2 |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/flt/flt_exch2.F |
76 |
FLT_EXCH2 |
nT = W2_myTileList(bi,bj) |
|
./pkg/flt/flt_exch2.F |
82 |
FLT_EXCH2 |
fltbuf_send(m,bi,bj,N) = 0. |
|
./pkg/flt/flt_exch2.F |
83 |
FLT_EXCH2 |
fltbuf_recv(m,bi,bj,N) = 0. |
|
./pkg/flt/flt_exchg.F |
100 |
FLT_EXCHG |
& (myTime.LE.tend(ip,bi,bj) .OR. tend(ip,bi,bj).EQ.-1.) |
|
./pkg/flt/flt_exchg.F |
101 |
FLT_EXCHG |
& .AND. ipart(ip,bi,bj).GE.ihi ) THEN |
|
./pkg/flt/flt_exchg.F |
103 |
FLT_EXCHG |
tend(ip,bi,bj) = flt_stopped |
|
./pkg/flt/flt_exchg.F |
104 |
FLT_EXCHG |
ELSEIF ( ipart(ip,bi,bj).GE.ihi ) THEN |
|
./pkg/flt/flt_exchg.F |
106 |
FLT_EXCHG |
IF ( ipart(ip,bi,bj).GE.ihi ) THEN |
|
./pkg/flt/flt_exchg.F |
112 |
FLT_EXCHG |
iNew = ipart(ip,bi,bj) - DFLOAT(sNx) |
|
./pkg/flt/flt_exchg.F |
113 |
FLT_EXCHG |
fltbuf_sendE(ic+1,bi,bj) = npart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
114 |
FLT_EXCHG |
fltbuf_sendE(ic+2,bi,bj) = tstart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
115 |
FLT_EXCHG |
fltbuf_sendE(ic+3,bi,bj) = iNew |
|
./pkg/flt/flt_exchg.F |
116 |
FLT_EXCHG |
fltbuf_sendE(ic+4,bi,bj) = jpart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
117 |
FLT_EXCHG |
fltbuf_sendE(ic+5,bi,bj) = kpart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
118 |
FLT_EXCHG |
fltbuf_sendE(ic+6,bi,bj) = kfloat(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
119 |
FLT_EXCHG |
fltbuf_sendE(ic+7,bi,bj) = iup(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
120 |
FLT_EXCHG |
fltbuf_sendE(ic+8,bi,bj) = itop(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
121 |
FLT_EXCHG |
fltbuf_sendE(ic+9,bi,bj) = tend(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
126 |
FLT_EXCHG |
npart(ip,bi,bj) = 0. |
|
./pkg/flt/flt_exchg.F |
133 |
FLT_EXCHG |
& (myTime.LE.tend(ip,bi,bj) .OR. tend(ip,bi,bj).EQ.-1.) |
|
./pkg/flt/flt_exchg.F |
134 |
FLT_EXCHG |
& .AND. ipart(ip,bi,bj).LT.ilo ) THEN |
|
./pkg/flt/flt_exchg.F |
136 |
FLT_EXCHG |
tend(ip,bi,bj) = flt_stopped |
|
./pkg/flt/flt_exchg.F |
137 |
FLT_EXCHG |
ELSEIF ( ipart(ip,bi,bj).LT.ilo ) THEN |
|
./pkg/flt/flt_exchg.F |
139 |
FLT_EXCHG |
IF ( ipart(ip,bi,bj).LT.ilo ) THEN |
|
./pkg/flt/flt_exchg.F |
145 |
FLT_EXCHG |
iNew = ipart(ip,bi,bj) + DFLOAT(sNx) |
|
./pkg/flt/flt_exchg.F |
146 |
FLT_EXCHG |
fltbuf_sendW(ic+1,bi,bj) = npart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
147 |
FLT_EXCHG |
fltbuf_sendW(ic+2,bi,bj) = tstart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
148 |
FLT_EXCHG |
fltbuf_sendW(ic+3,bi,bj) = iNew |
|
./pkg/flt/flt_exchg.F |
149 |
FLT_EXCHG |
fltbuf_sendW(ic+4,bi,bj) = jpart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
150 |
FLT_EXCHG |
fltbuf_sendW(ic+5,bi,bj) = kpart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
151 |
FLT_EXCHG |
fltbuf_sendW(ic+6,bi,bj) = kfloat(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
152 |
FLT_EXCHG |
fltbuf_sendW(ic+7,bi,bj) = iup(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
153 |
FLT_EXCHG |
fltbuf_sendW(ic+8,bi,bj) = itop(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
154 |
FLT_EXCHG |
fltbuf_sendW(ic+9,bi,bj) = tend(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
159 |
FLT_EXCHG |
npart(ip,bi,bj) = 0. |
|
./pkg/flt/flt_exchg.F |
167 |
FLT_EXCHG |
& ' bi,bj=', bi, bj, |
|
./pkg/flt/flt_exchg.F |
174 |
FLT_EXCHG |
& ' bi,bj=', bi, bj, |
|
./pkg/flt/flt_exchg.F |
185 |
FLT_EXCHG |
npNew = npart_tile(bi,bj) - (icountE+icountW) |
|
./pkg/flt/flt_exchg.F |
187 |
FLT_EXCHG |
DO jp = npNew+1,npart_tile(bi,bj) |
|
./pkg/flt/flt_exchg.F |
188 |
FLT_EXCHG |
IF ( npart(jp,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/flt/flt_exchg.F |
192 |
FLT_EXCHG |
npart (ip,bi,bj) = npart (jp,bi,bj) |
|
./pkg/flt/flt_exchg.F |
193 |
FLT_EXCHG |
tstart(ip,bi,bj) = tstart(jp,bi,bj) |
|
./pkg/flt/flt_exchg.F |
194 |
FLT_EXCHG |
ipart (ip,bi,bj) = ipart (jp,bi,bj) |
|
./pkg/flt/flt_exchg.F |
195 |
FLT_EXCHG |
jpart (ip,bi,bj) = jpart (jp,bi,bj) |
|
./pkg/flt/flt_exchg.F |
196 |
FLT_EXCHG |
kpart (ip,bi,bj) = kpart (jp,bi,bj) |
|
./pkg/flt/flt_exchg.F |
197 |
FLT_EXCHG |
kfloat(ip,bi,bj) = kfloat(jp,bi,bj) |
|
./pkg/flt/flt_exchg.F |
198 |
FLT_EXCHG |
iup (ip,bi,bj) = iup (jp,bi,bj) |
|
./pkg/flt/flt_exchg.F |
199 |
FLT_EXCHG |
itop (ip,bi,bj) = itop (jp,bi,bj) |
|
./pkg/flt/flt_exchg.F |
200 |
FLT_EXCHG |
tend (ip,bi,bj) = tend (jp,bi,bj) |
|
./pkg/flt/flt_exchg.F |
203 |
FLT_EXCHG |
npart_tile(bi,bj) = npNew |
|
./pkg/flt/flt_exchg.F |
231 |
FLT_EXCHG |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/flt/flt_exchg.F |
237 |
FLT_EXCHG |
IF ( fltbuf_recvE(ic+1,bi,bj).NE.0. ) THEN |
|
./pkg/flt/flt_exchg.F |
238 |
FLT_EXCHG |
npart_tile(bi,bj) = npart_tile(bi,bj) + 1 |
|
./pkg/flt/flt_exchg.F |
239 |
FLT_EXCHG |
IF ( npart_tile(bi,bj).LE.max_npart_tile ) THEN |
|
./pkg/flt/flt_exchg.F |
240 |
FLT_EXCHG |
jp = npart_tile(bi,bj) |
|
./pkg/flt/flt_exchg.F |
241 |
FLT_EXCHG |
npart( jp,bi,bj) = fltbuf_recvE(ic+1,bi,bj) |
|
./pkg/flt/flt_exchg.F |
242 |
FLT_EXCHG |
tstart(jp,bi,bj) = fltbuf_recvE(ic+2,bi,bj) |
|
./pkg/flt/flt_exchg.F |
243 |
FLT_EXCHG |
ipart( jp,bi,bj) = fltbuf_recvE(ic+3,bi,bj) |
|
./pkg/flt/flt_exchg.F |
244 |
FLT_EXCHG |
jpart( jp,bi,bj) = fltbuf_recvE(ic+4,bi,bj) |
|
./pkg/flt/flt_exchg.F |
245 |
FLT_EXCHG |
kpart( jp,bi,bj) = fltbuf_recvE(ic+5,bi,bj) |
|
./pkg/flt/flt_exchg.F |
246 |
FLT_EXCHG |
kfloat(jp,bi,bj) = fltbuf_recvE(ic+6,bi,bj) |
|
./pkg/flt/flt_exchg.F |
247 |
FLT_EXCHG |
iup( jp,bi,bj) = fltbuf_recvE(ic+7,bi,bj) |
|
./pkg/flt/flt_exchg.F |
248 |
FLT_EXCHG |
itop( jp,bi,bj) = fltbuf_recvE(ic+8,bi,bj) |
|
./pkg/flt/flt_exchg.F |
249 |
FLT_EXCHG |
tend( jp,bi,bj) = fltbuf_recvE(ic+9,bi,bj) |
|
./pkg/flt/flt_exchg.F |
254 |
FLT_EXCHG |
IF ( npart_tile(bi,bj).GT.max_npart_tile ) THEN |
|
./pkg/flt/flt_exchg.F |
256 |
FLT_EXCHG |
& ' bi,bj=', bi, bj, |
|
./pkg/flt/flt_exchg.F |
257 |
FLT_EXCHG |
& ' npart_tile=', npart_tile(bi,bj), |
|
./pkg/flt/flt_exchg.F |
266 |
FLT_EXCHG |
IF ( fltbuf_recvW(ic+1,bi,bj).NE.0. ) THEN |
|
./pkg/flt/flt_exchg.F |
267 |
FLT_EXCHG |
npart_tile(bi,bj) = npart_tile(bi,bj) + 1 |
|
./pkg/flt/flt_exchg.F |
268 |
FLT_EXCHG |
IF ( npart_tile(bi,bj).LE.max_npart_tile ) THEN |
|
./pkg/flt/flt_exchg.F |
269 |
FLT_EXCHG |
jp = npart_tile(bi,bj) |
|
./pkg/flt/flt_exchg.F |
270 |
FLT_EXCHG |
npart( jp,bi,bj) = fltbuf_recvW(ic+1,bi,bj) |
|
./pkg/flt/flt_exchg.F |
271 |
FLT_EXCHG |
tstart(jp,bi,bj) = fltbuf_recvW(ic+2,bi,bj) |
|
./pkg/flt/flt_exchg.F |
272 |
FLT_EXCHG |
ipart( jp,bi,bj) = fltbuf_recvW(ic+3,bi,bj) |
|
./pkg/flt/flt_exchg.F |
273 |
FLT_EXCHG |
jpart( jp,bi,bj) = fltbuf_recvW(ic+4,bi,bj) |
|
./pkg/flt/flt_exchg.F |
274 |
FLT_EXCHG |
kpart( jp,bi,bj) = fltbuf_recvW(ic+5,bi,bj) |
|
./pkg/flt/flt_exchg.F |
275 |
FLT_EXCHG |
kfloat(jp,bi,bj) = fltbuf_recvW(ic+6,bi,bj) |
|
./pkg/flt/flt_exchg.F |
276 |
FLT_EXCHG |
iup( jp,bi,bj) = fltbuf_recvW(ic+7,bi,bj) |
|
./pkg/flt/flt_exchg.F |
277 |
FLT_EXCHG |
itop( jp,bi,bj) = fltbuf_recvW(ic+8,bi,bj) |
|
./pkg/flt/flt_exchg.F |
278 |
FLT_EXCHG |
tend( jp,bi,bj) = fltbuf_recvW(ic+9,bi,bj) |
|
./pkg/flt/flt_exchg.F |
283 |
FLT_EXCHG |
IF ( npart_tile(bi,bj).GT.max_npart_tile ) THEN |
|
./pkg/flt/flt_exchg.F |
285 |
FLT_EXCHG |
& ' bi,bj=', bi, bj, |
|
./pkg/flt/flt_exchg.F |
286 |
FLT_EXCHG |
& ' npart_tile=', npart_tile(bi,bj), |
|
./pkg/flt/flt_exchg.F |
306 |
FLT_EXCHG |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/flt/flt_exchg.F |
312 |
FLT_EXCHG |
fltbuf_sendE(m,bi,bj) = 0. |
|
./pkg/flt/flt_exchg.F |
313 |
FLT_EXCHG |
fltbuf_sendW(m,bi,bj) = 0. |
|
./pkg/flt/flt_exchg.F |
314 |
FLT_EXCHG |
fltbuf_recvE(m,bi,bj) = 0. |
|
./pkg/flt/flt_exchg.F |
315 |
FLT_EXCHG |
fltbuf_recvW(m,bi,bj) = 0. |
|
./pkg/flt/flt_exchg.F |
325 |
FLT_EXCHG |
sSide = myYGlobalLo+bj .LE.2 |
|
./pkg/flt/flt_exchg.F |
326 |
FLT_EXCHG |
nSide = myYGlobalLo+bj*sNy.GT.Ny |
|
./pkg/flt/flt_exchg.F |
329 |
FLT_EXCHG |
DO ip=1,npart_tile(bi,bj) |
|
./pkg/flt/flt_exchg.F |
333 |
FLT_EXCHG |
& (myTime.LE.tend(ip,bi,bj) .OR. tend(ip,bi,bj).EQ.-1.) |
|
./pkg/flt/flt_exchg.F |
334 |
FLT_EXCHG |
& .AND. jpart(ip,bi,bj).GE.jhi ) THEN |
|
./pkg/flt/flt_exchg.F |
336 |
FLT_EXCHG |
tend(ip,bi,bj) = flt_stopped |
|
./pkg/flt/flt_exchg.F |
337 |
FLT_EXCHG |
ELSEIF ( jpart(ip,bi,bj).GE.jhi ) THEN |
|
./pkg/flt/flt_exchg.F |
339 |
FLT_EXCHG |
IF ( jpart(ip,bi,bj).GE.jhi ) THEN |
|
./pkg/flt/flt_exchg.F |
345 |
FLT_EXCHG |
jNew = jpart(ip,bi,bj) - DFLOAT(sNy) |
|
./pkg/flt/flt_exchg.F |
346 |
FLT_EXCHG |
fltbuf_sendE(ic+1,bi,bj) = npart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
347 |
FLT_EXCHG |
fltbuf_sendE(ic+2,bi,bj) = tstart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
348 |
FLT_EXCHG |
fltbuf_sendE(ic+3,bi,bj) = ipart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
349 |
FLT_EXCHG |
fltbuf_sendE(ic+4,bi,bj) = jNew |
|
./pkg/flt/flt_exchg.F |
350 |
FLT_EXCHG |
fltbuf_sendE(ic+5,bi,bj) = kpart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
351 |
FLT_EXCHG |
fltbuf_sendE(ic+6,bi,bj) = kfloat(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
352 |
FLT_EXCHG |
fltbuf_sendE(ic+7,bi,bj) = iup(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
353 |
FLT_EXCHG |
fltbuf_sendE(ic+8,bi,bj) = itop(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
354 |
FLT_EXCHG |
fltbuf_sendE(ic+9,bi,bj) = tend(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
359 |
FLT_EXCHG |
npart(ip,bi,bj) = 0. |
|
./pkg/flt/flt_exchg.F |
371 |
FLT_EXCHG |
& (myTime.LE.tend(ip,bi,bj) .OR. tend(ip,bi,bj).EQ.-1.) |
|
./pkg/flt/flt_exchg.F |
372 |
FLT_EXCHG |
& .AND. jpart(ip,bi,bj).LT.jlo ) THEN |
|
./pkg/flt/flt_exchg.F |
374 |
FLT_EXCHG |
tend(ip,bi,bj) = flt_stopped |
|
./pkg/flt/flt_exchg.F |
375 |
FLT_EXCHG |
ELSEIF ( jpart(ip,bi,bj).LT.jlo ) THEN |
|
./pkg/flt/flt_exchg.F |
377 |
FLT_EXCHG |
IF ( jpart(ip,bi,bj).LT.jlo ) THEN |
|
./pkg/flt/flt_exchg.F |
383 |
FLT_EXCHG |
jNew = jpart(ip,bi,bj) + DFLOAT(sNy) |
|
./pkg/flt/flt_exchg.F |
384 |
FLT_EXCHG |
fltbuf_sendW(ic+1,bi,bj) = npart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
385 |
FLT_EXCHG |
fltbuf_sendW(ic+2,bi,bj) = tstart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
386 |
FLT_EXCHG |
fltbuf_sendW(ic+3,bi,bj) = ipart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
387 |
FLT_EXCHG |
fltbuf_sendW(ic+4,bi,bj) = jNew |
|
./pkg/flt/flt_exchg.F |
388 |
FLT_EXCHG |
fltbuf_sendW(ic+5,bi,bj) = kpart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
389 |
FLT_EXCHG |
fltbuf_sendW(ic+6,bi,bj) = kfloat(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
390 |
FLT_EXCHG |
fltbuf_sendW(ic+7,bi,bj) = iup(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
391 |
FLT_EXCHG |
fltbuf_sendW(ic+8,bi,bj) = itop(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
392 |
FLT_EXCHG |
fltbuf_sendW(ic+9,bi,bj) = tend(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
397 |
FLT_EXCHG |
npart(ip,bi,bj) = 0. |
|
./pkg/flt/flt_exchg.F |
410 |
FLT_EXCHG |
& ' bi,bj=', bi, bj, |
|
./pkg/flt/flt_exchg.F |
417 |
FLT_EXCHG |
& ' bi,bj=', bi, bj, |
|
./pkg/flt/flt_exchg.F |
428 |
FLT_EXCHG |
npNew = npart_tile(bi,bj) - (icountN+icountS) |
|
./pkg/flt/flt_exchg.F |
430 |
FLT_EXCHG |
DO jp = npNew+1,npart_tile(bi,bj) |
|
./pkg/flt/flt_exchg.F |
431 |
FLT_EXCHG |
IF ( npart(jp,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/flt/flt_exchg.F |
435 |
FLT_EXCHG |
npart (ip,bi,bj) = npart (jp,bi,bj) |
|
./pkg/flt/flt_exchg.F |
436 |
FLT_EXCHG |
tstart(ip,bi,bj) = tstart(jp,bi,bj) |
|
./pkg/flt/flt_exchg.F |
437 |
FLT_EXCHG |
ipart (ip,bi,bj) = ipart (jp,bi,bj) |
|
./pkg/flt/flt_exchg.F |
438 |
FLT_EXCHG |
jpart (ip,bi,bj) = jpart (jp,bi,bj) |
|
./pkg/flt/flt_exchg.F |
439 |
FLT_EXCHG |
kpart (ip,bi,bj) = kpart (jp,bi,bj) |
|
./pkg/flt/flt_exchg.F |
440 |
FLT_EXCHG |
kfloat(ip,bi,bj) = kfloat(jp,bi,bj) |
|
./pkg/flt/flt_exchg.F |
441 |
FLT_EXCHG |
iup (ip,bi,bj) = iup (jp,bi,bj) |
|
./pkg/flt/flt_exchg.F |
442 |
FLT_EXCHG |
itop (ip,bi,bj) = itop (jp,bi,bj) |
|
./pkg/flt/flt_exchg.F |
443 |
FLT_EXCHG |
tend (ip,bi,bj) = tend (jp,bi,bj) |
|
./pkg/flt/flt_exchg.F |
446 |
FLT_EXCHG |
npart_tile(bi,bj) = npNew |
|
./pkg/flt/flt_exchg.F |
46 |
FLT_EXCHG |
INTEGER bi, bj, ic |
|
./pkg/flt/flt_exchg.F |
474 |
FLT_EXCHG |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/flt/flt_exchg.F |
480 |
FLT_EXCHG |
IF ( fltbuf_recvE(ic+1,bi,bj).NE.0. ) THEN |
|
./pkg/flt/flt_exchg.F |
481 |
FLT_EXCHG |
npart_tile(bi,bj) = npart_tile(bi,bj) + 1 |
|
./pkg/flt/flt_exchg.F |
482 |
FLT_EXCHG |
IF ( npart_tile(bi,bj).LE.max_npart_tile ) THEN |
|
./pkg/flt/flt_exchg.F |
483 |
FLT_EXCHG |
jp = npart_tile(bi,bj) |
|
./pkg/flt/flt_exchg.F |
484 |
FLT_EXCHG |
npart( jp,bi,bj) = fltbuf_recvE(ic+1,bi,bj) |
|
./pkg/flt/flt_exchg.F |
485 |
FLT_EXCHG |
tstart(jp,bi,bj) = fltbuf_recvE(ic+2,bi,bj) |
|
./pkg/flt/flt_exchg.F |
486 |
FLT_EXCHG |
ipart( jp,bi,bj) = fltbuf_recvE(ic+3,bi,bj) |
|
./pkg/flt/flt_exchg.F |
487 |
FLT_EXCHG |
jpart( jp,bi,bj) = fltbuf_recvE(ic+4,bi,bj) |
|
./pkg/flt/flt_exchg.F |
488 |
FLT_EXCHG |
kpart( jp,bi,bj) = fltbuf_recvE(ic+5,bi,bj) |
|
./pkg/flt/flt_exchg.F |
489 |
FLT_EXCHG |
kfloat(jp,bi,bj) = fltbuf_recvE(ic+6,bi,bj) |
|
./pkg/flt/flt_exchg.F |
490 |
FLT_EXCHG |
iup( jp,bi,bj) = fltbuf_recvE(ic+7,bi,bj) |
|
./pkg/flt/flt_exchg.F |
491 |
FLT_EXCHG |
itop( jp,bi,bj) = fltbuf_recvE(ic+8,bi,bj) |
|
./pkg/flt/flt_exchg.F |
492 |
FLT_EXCHG |
tend( jp,bi,bj) = fltbuf_recvE(ic+9,bi,bj) |
|
./pkg/flt/flt_exchg.F |
497 |
FLT_EXCHG |
IF ( npart_tile(bi,bj).GT.max_npart_tile ) THEN |
|
./pkg/flt/flt_exchg.F |
499 |
FLT_EXCHG |
& ' bi,bj=', bi, bj, |
|
./pkg/flt/flt_exchg.F |
500 |
FLT_EXCHG |
& ' npart_tile=', npart_tile(bi,bj), |
|
./pkg/flt/flt_exchg.F |
509 |
FLT_EXCHG |
IF ( fltbuf_recvW(ic+1,bi,bj).NE.0. ) THEN |
|
./pkg/flt/flt_exchg.F |
510 |
FLT_EXCHG |
npart_tile(bi,bj) = npart_tile(bi,bj) + 1 |
|
./pkg/flt/flt_exchg.F |
511 |
FLT_EXCHG |
IF ( npart_tile(bi,bj).LE.max_npart_tile ) THEN |
|
./pkg/flt/flt_exchg.F |
512 |
FLT_EXCHG |
jp = npart_tile(bi,bj) |
|
./pkg/flt/flt_exchg.F |
513 |
FLT_EXCHG |
npart( jp,bi,bj) = fltbuf_recvW(ic+1,bi,bj) |
|
./pkg/flt/flt_exchg.F |
514 |
FLT_EXCHG |
tstart(jp,bi,bj) = fltbuf_recvW(ic+2,bi,bj) |
|
./pkg/flt/flt_exchg.F |
515 |
FLT_EXCHG |
ipart( jp,bi,bj) = fltbuf_recvW(ic+3,bi,bj) |
|
./pkg/flt/flt_exchg.F |
516 |
FLT_EXCHG |
jpart( jp,bi,bj) = fltbuf_recvW(ic+4,bi,bj) |
|
./pkg/flt/flt_exchg.F |
517 |
FLT_EXCHG |
kpart( jp,bi,bj) = fltbuf_recvW(ic+5,bi,bj) |
|
./pkg/flt/flt_exchg.F |
518 |
FLT_EXCHG |
kfloat(jp,bi,bj) = fltbuf_recvW(ic+6,bi,bj) |
|
./pkg/flt/flt_exchg.F |
519 |
FLT_EXCHG |
iup( jp,bi,bj) = fltbuf_recvW(ic+7,bi,bj) |
|
./pkg/flt/flt_exchg.F |
520 |
FLT_EXCHG |
itop( jp,bi,bj) = fltbuf_recvW(ic+8,bi,bj) |
|
./pkg/flt/flt_exchg.F |
521 |
FLT_EXCHG |
tend( jp,bi,bj) = fltbuf_recvW(ic+9,bi,bj) |
|
./pkg/flt/flt_exchg.F |
526 |
FLT_EXCHG |
IF ( npart_tile(bi,bj).GT.max_npart_tile ) THEN |
|
./pkg/flt/flt_exchg.F |
528 |
FLT_EXCHG |
& ' bi,bj=', bi, bj, |
|
./pkg/flt/flt_exchg.F |
529 |
FLT_EXCHG |
& ' npart_tile=', npart_tile(bi,bj), |
|
./pkg/flt/flt_exchg.F |
74 |
FLT_EXCHG |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/flt/flt_exchg.F |
79 |
FLT_EXCHG |
fltbuf_sendE(m,bi,bj) = 0. |
|
./pkg/flt/flt_exchg.F |
80 |
FLT_EXCHG |
fltbuf_sendW(m,bi,bj) = 0. |
|
./pkg/flt/flt_exchg.F |
81 |
FLT_EXCHG |
fltbuf_recvE(m,bi,bj) = 0. |
|
./pkg/flt/flt_exchg.F |
82 |
FLT_EXCHG |
fltbuf_recvW(m,bi,bj) = 0. |
|
./pkg/flt/flt_exchg.F |
96 |
FLT_EXCHG |
DO ip=1,npart_tile(bi,bj) |
|
./pkg/flt/flt_init_fixed.F |
33 |
FLT_INIT_FIXED |
INTEGER bi, bj |
|
./pkg/flt/flt_init_fixed.F |
44 |
FLT_INIT_FIXED |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/flt/flt_init_fixed.F |
46 |
FLT_INIT_FIXED |
xLo = MAX( xLo, -xG(1,1,bi,bj) ) |
|
./pkg/flt/flt_init_fixed.F |
47 |
FLT_INIT_FIXED |
xHi = MAX( xHi, xG(sNx+1,1,bi,bj) ) |
|
./pkg/flt/flt_init_fixed.F |
48 |
FLT_INIT_FIXED |
yLo = MAX( yLo, -yG(1,1,bi,bj) ) |
|
./pkg/flt/flt_init_fixed.F |
49 |
FLT_INIT_FIXED |
yHi = MAX( yHi, yG(1,sNy+1,bi,bj) ) |
|
./pkg/flt/flt_init_varia.F |
125 |
FLT_INIT_VARIA |
bj = 0 |
|
./pkg/flt/flt_init_varia.F |
130 |
FLT_INIT_VARIA |
& bi, bj, 1, myThid ) |
|
./pkg/flt/flt_init_varia.F |
136 |
FLT_INIT_VARIA |
& ' bi,bj=', bi, bj, ' , npart,max_npart=', tmp(1), tmp(6) |
|
./pkg/flt/flt_init_varia.F |
145 |
FLT_INIT_VARIA |
& bi, bj, ip+1, myThid ) |
|
./pkg/flt/flt_init_varia.F |
146 |
FLT_INIT_VARIA |
DO bj = 1,nSy |
|
./pkg/flt/flt_init_varia.F |
150 |
FLT_INIT_VARIA |
I tmp(3), tmp(4),bi,bj,myThid ) |
|
./pkg/flt/flt_init_varia.F |
151 |
FLT_INIT_VARIA |
kz = FLT_MAP_R2K( tmp(5), bi, bj, myThid ) |
|
./pkg/flt/flt_init_varia.F |
155 |
FLT_INIT_VARIA |
npart_tile(bi,bj) = npart_tile(bi,bj) + 1 |
|
./pkg/flt/flt_init_varia.F |
156 |
FLT_INIT_VARIA |
IF ( npart_tile(bi,bj).LE.max_npart_tile ) THEN |
|
./pkg/flt/flt_init_varia.F |
158 |
FLT_INIT_VARIA |
npart( npart_tile(bi,bj),bi,bj) = tmp(1) |
|
./pkg/flt/flt_init_varia.F |
159 |
FLT_INIT_VARIA |
tstart(npart_tile(bi,bj),bi,bj) = tmp(2) |
|
./pkg/flt/flt_init_varia.F |
160 |
FLT_INIT_VARIA |
ipart( npart_tile(bi,bj),bi,bj) = ix |
|
./pkg/flt/flt_init_varia.F |
161 |
FLT_INIT_VARIA |
jpart( npart_tile(bi,bj),bi,bj) = jy |
|
./pkg/flt/flt_init_varia.F |
162 |
FLT_INIT_VARIA |
kpart( npart_tile(bi,bj),bi,bj) = kz |
|
./pkg/flt/flt_init_varia.F |
163 |
FLT_INIT_VARIA |
kfloat(npart_tile(bi,bj),bi,bj) = tmp(6) |
|
./pkg/flt/flt_init_varia.F |
164 |
FLT_INIT_VARIA |
iup( npart_tile(bi,bj),bi,bj) = tmp(7) |
|
./pkg/flt/flt_init_varia.F |
165 |
FLT_INIT_VARIA |
itop( npart_tile(bi,bj),bi,bj) = tmp(8) |
|
./pkg/flt/flt_init_varia.F |
166 |
FLT_INIT_VARIA |
tend( npart_tile(bi,bj),bi,bj) = tmp(9) |
|
./pkg/flt/flt_init_varia.F |
186 |
FLT_INIT_VARIA |
DO bj = 1,nSy |
|
./pkg/flt/flt_init_varia.F |
190 |
FLT_INIT_VARIA |
jG=bj+(myYGlobalLo-1)/sNy |
|
./pkg/flt/flt_init_varia.F |
195 |
FLT_INIT_VARIA |
npart_tile(bi,bj) = 6*6 |
|
./pkg/flt/flt_init_varia.F |
202 |
FLT_INIT_VARIA |
npart(ip,bi,bj) = (iG-1)*6*6+ip |
|
./pkg/flt/flt_init_varia.F |
203 |
FLT_INIT_VARIA |
tstart(ip,bi,bj) = -1. _d 0 |
|
./pkg/flt/flt_init_varia.F |
204 |
FLT_INIT_VARIA |
ipart(ip,bi,bj) = 1+5*(i-1) |
|
./pkg/flt/flt_init_varia.F |
205 |
FLT_INIT_VARIA |
jpart(ip,bi,bj) = 1+5*(j-1) |
|
./pkg/flt/flt_init_varia.F |
206 |
FLT_INIT_VARIA |
kpart(ip,bi,bj) = 1. _d 0 |
|
./pkg/flt/flt_init_varia.F |
207 |
FLT_INIT_VARIA |
kfloat(ip,bi,bj) = 0. _d 0 |
|
./pkg/flt/flt_init_varia.F |
208 |
FLT_INIT_VARIA |
iup( ip,bi,bj) = 0. _d 0 |
|
./pkg/flt/flt_init_varia.F |
209 |
FLT_INIT_VARIA |
itop( ip,bi,bj) = 0. _d 0 |
|
./pkg/flt/flt_init_varia.F |
210 |
FLT_INIT_VARIA |
tend( ip,bi,bj) = -1. _d 0 |
|
./pkg/flt/flt_init_varia.F |
218 |
FLT_INIT_VARIA |
& bi, bj, 1, myThid ) |
|
./pkg/flt/flt_init_varia.F |
220 |
FLT_INIT_VARIA |
& ' bi,bj=', bi, bj, ' , npart,max_npart=', tmp(1), tmp(6) |
|
./pkg/flt/flt_init_varia.F |
224 |
FLT_INIT_VARIA |
npart_tile(bi,bj) = NINT(tmp(1)) |
|
./pkg/flt/flt_init_varia.F |
226 |
FLT_INIT_VARIA |
npart_read = MIN( npart_tile(bi,bj), max_npart_tile ) |
|
./pkg/flt/flt_init_varia.F |
231 |
FLT_INIT_VARIA |
& bi, bj, ip+1, myThid ) |
|
./pkg/flt/flt_init_varia.F |
235 |
FLT_INIT_VARIA |
I tmp(3), tmp(4),bi,bj,myThid ) |
|
./pkg/flt/flt_init_varia.F |
236 |
FLT_INIT_VARIA |
kz = FLT_MAP_R2K( tmp(5), bi, bj, myThid ) |
|
./pkg/flt/flt_init_varia.F |
244 |
FLT_INIT_VARIA |
npart(ip,bi,bj) = tmp(1) |
|
./pkg/flt/flt_init_varia.F |
245 |
FLT_INIT_VARIA |
tstart(ip,bi,bj) = tmp(2) |
|
./pkg/flt/flt_init_varia.F |
246 |
FLT_INIT_VARIA |
ipart(ip,bi,bj) = ix |
|
./pkg/flt/flt_init_varia.F |
247 |
FLT_INIT_VARIA |
jpart(ip,bi,bj) = jy |
|
./pkg/flt/flt_init_varia.F |
248 |
FLT_INIT_VARIA |
kpart(ip,bi,bj) = kz |
|
./pkg/flt/flt_init_varia.F |
249 |
FLT_INIT_VARIA |
kfloat(ip,bi,bj) = tmp(6) |
|
./pkg/flt/flt_init_varia.F |
250 |
FLT_INIT_VARIA |
iup( ip,bi,bj) = tmp(7) |
|
./pkg/flt/flt_init_varia.F |
251 |
FLT_INIT_VARIA |
itop( ip,bi,bj) = tmp(8) |
|
./pkg/flt/flt_init_varia.F |
252 |
FLT_INIT_VARIA |
tend( ip,bi,bj) = tmp(9) |
|
./pkg/flt/flt_init_varia.F |
263 |
FLT_INIT_VARIA |
DO bj = 1,nSy |
|
./pkg/flt/flt_init_varia.F |
265 |
FLT_INIT_VARIA |
npart_dist = npart_dist + DBLE(npart_tile(bi,bj)) |
|
./pkg/flt/flt_init_varia.F |
266 |
FLT_INIT_VARIA |
IF ( npart_tile(bi,bj).GT.max_npart_tile ) THEN |
|
./pkg/flt/flt_init_varia.F |
268 |
FLT_INIT_VARIA |
& ' bi,bj=', bi, bj, |
|
./pkg/flt/flt_init_varia.F |
269 |
FLT_INIT_VARIA |
& ' npart_tile=', npart_tile(bi,bj), |
|
./pkg/flt/flt_init_varia.F |
47 |
FLT_INIT_VARIA |
INTEGER bi, bj |
|
./pkg/flt/flt_init_varia.F |
83 |
FLT_INIT_VARIA |
DO bj = 1,nSy |
|
./pkg/flt/flt_init_varia.F |
85 |
FLT_INIT_VARIA |
npart_tile(bi,bj) = 0 |
|
./pkg/flt/flt_interp_linear.F |
110 |
FLT_TRILINEAR |
I nu, bi, bj, myThid ) |
|
./pkg/flt/flt_interp_linear.F |
135 |
FLT_TRILINEAR |
INTEGER nu, bi, bj, myThid |
|
./pkg/flt/flt_interp_linear.F |
17 |
FLT_BILINEAR |
I kl, nu, bi, bj, myThid ) |
|
./pkg/flt/flt_interp_linear.F |
187 |
FLT_TRILINEAR |
uu = (1.-ddz)*( ( (1.-ddx)*(1.-ddy)*var(i1,j1,k1,bi,bj) |
|
./pkg/flt/flt_interp_linear.F |
188 |
FLT_TRILINEAR |
& + ddx * ddy *var(i2,j2,k1,bi,bj) ) |
|
./pkg/flt/flt_interp_linear.F |
189 |
FLT_TRILINEAR |
& + ( ddx *(1.-ddy)*var(i2,j1,k1,bi,bj) |
|
./pkg/flt/flt_interp_linear.F |
190 |
FLT_TRILINEAR |
& + (1.-ddx)* ddy *var(i1,j2,k1,bi,bj) ) ) |
|
./pkg/flt/flt_interp_linear.F |
191 |
FLT_TRILINEAR |
& + ddz *( ( (1.-ddx)*(1.-ddy)*var(i1,j1,k2,bi,bj) |
|
./pkg/flt/flt_interp_linear.F |
192 |
FLT_TRILINEAR |
& + ddx * ddy *var(i2,j2,k2,bi,bj) ) |
|
./pkg/flt/flt_interp_linear.F |
193 |
FLT_TRILINEAR |
& + ( ddx*(1.-ddy) *var(i2,j1,k2,bi,bj) |
|
./pkg/flt/flt_interp_linear.F |
194 |
FLT_TRILINEAR |
& + (1.-ddx)* ddy *var(i1,j2,k2,bi,bj) ) ) |
|
./pkg/flt/flt_interp_linear.F |
205 |
FLT_BILINEAR2D |
I nu, bi, bj, myThid ) |
|
./pkg/flt/flt_interp_linear.F |
227 |
FLT_BILINEAR2D |
INTEGER nu, bi, bj, myThid |
|
./pkg/flt/flt_interp_linear.F |
266 |
FLT_BILINEAR2D |
uu = ( (1.-ddx)*(1.-ddy)*var(i1,j1,bi,bj) |
|
./pkg/flt/flt_interp_linear.F |
267 |
FLT_BILINEAR2D |
& + ddx * ddy *var(i2,j2,bi,bj) ) |
|
./pkg/flt/flt_interp_linear.F |
268 |
FLT_BILINEAR2D |
& + ( ddx *(1.-ddy)*var(i2,j1,bi,bj) |
|
./pkg/flt/flt_interp_linear.F |
269 |
FLT_BILINEAR2D |
& + (1.-ddx)* ddy *var(i1,j2,bi,bj) ) |
|
./pkg/flt/flt_interp_linear.F |
36 |
FLT_BILINEAR |
INTEGER kl, nu, bi, bj, myThid |
|
./pkg/flt/flt_interp_linear.F |
84 |
FLT_BILINEAR |
uu = ( (1.-ddx)*(1.-ddy)*var(i1,j1,kl,bi,bj) |
|
./pkg/flt/flt_interp_linear.F |
85 |
FLT_BILINEAR |
& + ddx * ddy *var(i2,j2,kl,bi,bj) ) |
|
./pkg/flt/flt_interp_linear.F |
86 |
FLT_BILINEAR |
& + ( ddx *(1.-ddy)*var(i2,j1,kl,bi,bj) |
|
./pkg/flt/flt_interp_linear.F |
87 |
FLT_BILINEAR |
& + (1.-ddx)* ddy *var(i1,j2,kl,bi,bj) ) |
|
./pkg/flt/flt_interp_linear.F |
90 |
FLT_BILINEAR |
u11 = ( var(i1,j1,kl,bi,bj)+var(i1,j1,klp,bi,bj) )*0.5 _d 0 |
|
./pkg/flt/flt_interp_linear.F |
91 |
FLT_BILINEAR |
u21 = ( var(i2,j1,kl,bi,bj)+var(i2,j1,klp,bi,bj) )*0.5 _d 0 |
|
./pkg/flt/flt_interp_linear.F |
92 |
FLT_BILINEAR |
u22 = ( var(i2,j2,kl,bi,bj)+var(i2,j2,klp,bi,bj) )*0.5 _d 0 |
|
./pkg/flt/flt_interp_linear.F |
93 |
FLT_BILINEAR |
u12 = ( var(i1,j2,kl,bi,bj)+var(i1,j2,klp,bi,bj) )*0.5 _d 0 |
|
./pkg/flt/flt_mapping.F |
116 |
FLT_MAP_IJLOCAL2XY |
INTEGER bi, bj, myThid |
|
./pkg/flt/flt_mapping.F |
136 |
FLT_MAP_IJLOCAL2XY |
xx = xG(i,j,bi,bj) + ddx*( xG(i+1,j,bi,bj) - xG(i,j,bi,bj) ) |
|
./pkg/flt/flt_mapping.F |
137 |
FLT_MAP_IJLOCAL2XY |
yy = yG(i,j,bi,bj) + ddy*( yG(i,j+1,bi,bj) - yG(i,j,bi,bj) ) |
|
./pkg/flt/flt_mapping.F |
147 |
FLT_MAP_IJLOCAL2XY |
xx = xG(i,j,bi,bj) + ddx*( xG(i+1,j,bi,bj) - xG(i,j,bi,bj) ) |
|
./pkg/flt/flt_mapping.F |
148 |
FLT_MAP_IJLOCAL2XY |
& + ddy*( xG(i,j+1,bi,bj) - xG(i,j,bi,bj) ) |
|
./pkg/flt/flt_mapping.F |
149 |
FLT_MAP_IJLOCAL2XY |
& + ddx*ddy*( xG(i+1,j+1,bi,bj) - xG(i+1,j,bi,bj) |
|
./pkg/flt/flt_mapping.F |
150 |
FLT_MAP_IJLOCAL2XY |
& - xG(i,j+1,bi,bj) + xG(i,j,bi,bj) ) |
|
./pkg/flt/flt_mapping.F |
151 |
FLT_MAP_IJLOCAL2XY |
yy = yG(i,j,bi,bj) + ddx*( yG(i+1,j,bi,bj) - yG(i,j,bi,bj) ) |
|
./pkg/flt/flt_mapping.F |
152 |
FLT_MAP_IJLOCAL2XY |
& + ddy*( yG(i,j+1,bi,bj) - yG(i,j,bi,bj) ) |
|
./pkg/flt/flt_mapping.F |
153 |
FLT_MAP_IJLOCAL2XY |
& + ddx*ddy*( yG(i+1,j+1,bi,bj) - yG(i+1,j,bi,bj) |
|
./pkg/flt/flt_mapping.F |
154 |
FLT_MAP_IJLOCAL2XY |
& - yG(i,j+1,bi,bj) + yG(i,j,bi,bj) ) |
|
./pkg/flt/flt_mapping.F |
157 |
FLT_MAP_IJLOCAL2XY |
xx_ij=xG(i,j,bi,bj) |
|
./pkg/flt/flt_mapping.F |
158 |
FLT_MAP_IJLOCAL2XY |
xx_ip1j=xG(i+1,j,bi,bj) |
|
./pkg/flt/flt_mapping.F |
159 |
FLT_MAP_IJLOCAL2XY |
xx_ijp1=xG(i,j+1,bi,bj) |
|
./pkg/flt/flt_mapping.F |
160 |
FLT_MAP_IJLOCAL2XY |
xx_ip1jp1=xG(i+1,j+1,bi,bj) |
|
./pkg/flt/flt_mapping.F |
16 |
FLT_MAP_XY2IJLOCAL |
I xx, yy, bi, bj, myThid ) |
|
./pkg/flt/flt_mapping.F |
182 |
FLT_MAP_IJLOCAL2XY |
I rr, bi, bj, myThid ) |
|
./pkg/flt/flt_mapping.F |
204 |
FLT_MAP_IJLOCAL2XY |
INTEGER bi, bj, myThid |
|
./pkg/flt/flt_mapping.F |
229 |
FLT_MAP_IJLOCAL2XY |
I kr, bi, bj, myThid ) |
|
./pkg/flt/flt_mapping.F |
251 |
FLT_MAP_IJLOCAL2XY |
INTEGER bi, bj, myThid |
|
./pkg/flt/flt_mapping.F |
42 |
FLT_MAP_XY2IJLOCAL |
INTEGER bi, bj, myThid |
|
./pkg/flt/flt_mapping.F |
60 |
FLT_MAP_XY2IJLOCAL |
IF ( xG(i,j,bi,bj).LE.xx .AND. xx.LT.xG(i+1,j,bi,bj) ) THEN |
|
./pkg/flt/flt_mapping.F |
61 |
FLT_MAP_XY2IJLOCAL |
dist = xG(i+1,j,bi,bj) - xG(i,j,bi,bj) |
|
./pkg/flt/flt_mapping.F |
62 |
FLT_MAP_XY2IJLOCAL |
fm = ( xx - xG(i,j,bi,bj) ) / dist |
|
./pkg/flt/flt_mapping.F |
71 |
FLT_MAP_XY2IJLOCAL |
IF ( yG(i,j,bi,bj).LE.yy .AND. yy.LT.yG(i,j+1,bi,bj) ) THEN |
|
./pkg/flt/flt_mapping.F |
72 |
FLT_MAP_XY2IJLOCAL |
dist = yG(i,j+1,bi,bj) - yG(i,j,bi,bj) |
|
./pkg/flt/flt_mapping.F |
73 |
FLT_MAP_XY2IJLOCAL |
fm = ( yy - yG(i,j,bi,bj) ) / dist |
|
./pkg/flt/flt_mapping.F |
90 |
FLT_MAP_IJLOCAL2XY |
I ix, jy, bi, bj, myThid ) |
|
./pkg/flt/flt_runga2.F |
100 |
FLT_RUNGA2 |
scaley=recip_dyF(ic,jc,bi,bj) |
|
./pkg/flt/flt_runga2.F |
102 |
FLT_RUNGA2 |
jG = myYGlobalLo + (bj-1)*sNy + jc-1 |
|
./pkg/flt/flt_runga2.F |
105 |
FLT_RUNGA2 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga2.F |
112 |
FLT_RUNGA2 |
kz=kpart(ip,bi,bj) |
|
./pkg/flt/flt_runga2.F |
113 |
FLT_RUNGA2 |
CALL FLT_TRILINEAR(ix,jy,kz,uu,uVel,1,bi,bj,myThid) |
|
./pkg/flt/flt_runga2.F |
114 |
FLT_RUNGA2 |
CALL FLT_TRILINEAR(ix,jy,kz,vv,vVel,2,bi,bj,myThid) |
|
./pkg/flt/flt_runga2.F |
115 |
FLT_RUNGA2 |
CALL FLT_TRILINEAR(ix,jy,kz,ww,wVel,4,bi,bj,myThid) |
|
./pkg/flt/flt_runga2.F |
120 |
FLT_RUNGA2 |
CALL FLT_BILINEAR(ix,jy,uu,uVel,kc,1,bi,bj,myThid) |
|
./pkg/flt/flt_runga2.F |
121 |
FLT_RUNGA2 |
CALL FLT_BILINEAR(ix,jy,vv,vVel,kc,2,bi,bj,myThid) |
|
./pkg/flt/flt_runga2.F |
126 |
FLT_RUNGA2 |
IF ( flt_noise.NE.0. .AND. iup(ip,bi,bj).NE.-2. ) THEN |
|
./pkg/flt/flt_runga2.F |
131 |
FLT_RUNGA2 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga2.F |
148 |
FLT_RUNGA2 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga2.F |
150 |
FLT_RUNGA2 |
CALL FLT_TRILINEAR(itx,jty,ktz,u1,uVel,1,bi,bj,myThid) |
|
./pkg/flt/flt_runga2.F |
151 |
FLT_RUNGA2 |
CALL FLT_TRILINEAR(itx,jty,ktz,v1,vVel,2,bi,bj,myThid) |
|
./pkg/flt/flt_runga2.F |
152 |
FLT_RUNGA2 |
CALL FLT_TRILINEAR(itx,jty,ktz,w1,wVel,4,bi,bj,myThid) |
|
./pkg/flt/flt_runga2.F |
157 |
FLT_RUNGA2 |
CALL FLT_BILINEAR(itx,jty,u1,uVel,kc,1,bi,bj,myThid) |
|
./pkg/flt/flt_runga2.F |
158 |
FLT_RUNGA2 |
CALL FLT_BILINEAR(itx,jty,v1,vVel,kc,2,bi,bj,myThid) |
|
./pkg/flt/flt_runga2.F |
161 |
FLT_RUNGA2 |
IF ( flt_noise.NE.0. .AND. iup(ip,bi,bj).NE.-2. ) THEN |
|
./pkg/flt/flt_runga2.F |
167 |
FLT_RUNGA2 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga2.F |
178 |
FLT_RUNGA2 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga2.F |
190 |
FLT_RUNGA2 |
ipart(ip,bi,bj) = ipart(ip,bi,bj) |
|
./pkg/flt/flt_runga2.F |
192 |
FLT_RUNGA2 |
jpart(ip,bi,bj) = jpart(ip,bi,bj) |
|
./pkg/flt/flt_runga2.F |
195 |
FLT_RUNGA2 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga2.F |
196 |
FLT_RUNGA2 |
kpart(ip,bi,bj) = kpart(ip,bi,bj) |
|
./pkg/flt/flt_runga2.F |
202 |
FLT_RUNGA2 |
ic = MAX( 1-OLx, MIN( NINT(ipart(ip,bi,bj)), sNx+OLx ) ) |
|
./pkg/flt/flt_runga2.F |
203 |
FLT_RUNGA2 |
jc = MAX( 1-OLy, MIN( NINT(jpart(ip,bi,bj)), sNy+OLy ) ) |
|
./pkg/flt/flt_runga2.F |
207 |
FLT_RUNGA2 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga2.F |
209 |
FLT_RUNGA2 |
IF (kpart(ip,bi,bj).LT.kzlo) kpart(ip,bi,bj)=kzlo |
|
./pkg/flt/flt_runga2.F |
210 |
FLT_RUNGA2 |
& +kzlo-kpart(ip,bi,bj) |
|
./pkg/flt/flt_runga2.F |
212 |
FLT_RUNGA2 |
IF (kpart(ip,bi,bj).GT.kzhi) kpart(ip,bi,bj)=kzhi |
|
./pkg/flt/flt_runga2.F |
222 |
FLT_RUNGA2 |
IF ( maskInC(ic,jc,bi,bj).EQ.0. .AND. |
|
./pkg/flt/flt_runga2.F |
223 |
FLT_RUNGA2 |
& maskC(ic,jc,1,bi,bj).EQ.1. ) THEN |
|
./pkg/flt/flt_runga2.F |
226 |
FLT_RUNGA2 |
tend(ip,bi,bj) = myTime - flt_deltaT |
|
./pkg/flt/flt_runga2.F |
52 |
FLT_RUNGA2 |
INTEGER bi, bj |
|
./pkg/flt/flt_runga2.F |
78 |
FLT_RUNGA2 |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/flt/flt_runga2.F |
80 |
FLT_RUNGA2 |
DO ip=1,npart_tile(bi,bj) |
|
./pkg/flt/flt_runga2.F |
83 |
FLT_RUNGA2 |
IF ( tend(ip,bi,bj).NE.-1. .AND. myTime.GT.tend(ip,bi,bj) |
|
./pkg/flt/flt_runga2.F |
85 |
FLT_RUNGA2 |
kpart(ip,bi,bj) = 0. |
|
./pkg/flt/flt_runga2.F |
88 |
FLT_RUNGA2 |
IF ( (tstart(ip,bi,bj).EQ.-1..OR.myTime.GE.tstart(ip,bi,bj)) |
|
./pkg/flt/flt_runga2.F |
89 |
FLT_RUNGA2 |
& .AND.( tend(ip,bi,bj).EQ.-1..OR.myTime.LE. tend(ip,bi,bj)) |
|
./pkg/flt/flt_runga2.F |
90 |
FLT_RUNGA2 |
& .AND.( iup(ip,bi,bj).NE.-3.) |
|
./pkg/flt/flt_runga2.F |
93 |
FLT_RUNGA2 |
ix = ipart(ip,bi,bj) |
|
./pkg/flt/flt_runga2.F |
94 |
FLT_RUNGA2 |
jy = jpart(ip,bi,bj) |
|
./pkg/flt/flt_runga2.F |
97 |
FLT_RUNGA2 |
kc=NINT(kpart(ip,bi,bj)) |
|
./pkg/flt/flt_runga2.F |
99 |
FLT_RUNGA2 |
scalex=recip_dxF(ic,jc,bi,bj) |
|
./pkg/flt/flt_runga4.F |
100 |
FLT_RUNGA4 |
scaley=recip_dyF(ic,jc,bi,bj) |
|
./pkg/flt/flt_runga4.F |
102 |
FLT_RUNGA4 |
jG = myYGlobalLo + (bj-1)*sNy + jc-1 |
|
./pkg/flt/flt_runga4.F |
107 |
FLT_RUNGA4 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga4.F |
114 |
FLT_RUNGA4 |
kz=kpart(ip,bi,bj) |
|
./pkg/flt/flt_runga4.F |
115 |
FLT_RUNGA4 |
CALL FLT_TRILINEAR(ix,jy,kz,u1,uVel,1,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
116 |
FLT_RUNGA4 |
CALL FLT_TRILINEAR(ix,jy,kz,v1,vVel,2,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
117 |
FLT_RUNGA4 |
CALL FLT_TRILINEAR(ix,jy,kz,w1,wVel,4,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
122 |
FLT_RUNGA4 |
CALL FLT_BILINEAR(ix,jy,u1,uVel,kc,1,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
123 |
FLT_RUNGA4 |
CALL FLT_BILINEAR(ix,jy,v1,vVel,kc,2,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
128 |
FLT_RUNGA4 |
IF ( flt_noise.NE.0. .AND. iup(ip,bi,bj).NE.-2. ) THEN |
|
./pkg/flt/flt_runga4.F |
133 |
FLT_RUNGA4 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga4.F |
150 |
FLT_RUNGA4 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga4.F |
153 |
FLT_RUNGA4 |
& 1,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
155 |
FLT_RUNGA4 |
& 2,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
157 |
FLT_RUNGA4 |
& 4,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
163 |
FLT_RUNGA4 |
& kc,1,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
165 |
FLT_RUNGA4 |
& kc,2,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
168 |
FLT_RUNGA4 |
IF ( flt_noise.NE.0. .AND. iup(ip,bi,bj).NE.-2. ) THEN |
|
./pkg/flt/flt_runga4.F |
174 |
FLT_RUNGA4 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga4.F |
185 |
FLT_RUNGA4 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga4.F |
200 |
FLT_RUNGA4 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga4.F |
203 |
FLT_RUNGA4 |
& 1,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
205 |
FLT_RUNGA4 |
& 2,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
207 |
FLT_RUNGA4 |
& 4,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
213 |
FLT_RUNGA4 |
& kc,1,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
215 |
FLT_RUNGA4 |
& kc,2,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
218 |
FLT_RUNGA4 |
IF ( flt_noise.NE.0. .AND. iup(ip,bi,bj).NE.-2. ) THEN |
|
./pkg/flt/flt_runga4.F |
224 |
FLT_RUNGA4 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga4.F |
235 |
FLT_RUNGA4 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga4.F |
250 |
FLT_RUNGA4 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga4.F |
253 |
FLT_RUNGA4 |
& 1,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
255 |
FLT_RUNGA4 |
& 2,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
257 |
FLT_RUNGA4 |
& 4,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
263 |
FLT_RUNGA4 |
& kc,1,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
265 |
FLT_RUNGA4 |
& kc,2,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
268 |
FLT_RUNGA4 |
IF ( flt_noise.NE.0. .AND. iup(ip,bi,bj).NE.-2. ) THEN |
|
./pkg/flt/flt_runga4.F |
274 |
FLT_RUNGA4 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga4.F |
285 |
FLT_RUNGA4 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga4.F |
297 |
FLT_RUNGA4 |
ipart(ip,bi,bj) = ipart(ip,bi,bj) + flt_deltaT/6 |
|
./pkg/flt/flt_runga4.F |
299 |
FLT_RUNGA4 |
jpart(ip,bi,bj) = jpart(ip,bi,bj) + flt_deltaT/6 |
|
./pkg/flt/flt_runga4.F |
302 |
FLT_RUNGA4 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga4.F |
303 |
FLT_RUNGA4 |
kpart(ip,bi,bj) = kpart(ip,bi,bj) + flt_deltaT/6 |
|
./pkg/flt/flt_runga4.F |
309 |
FLT_RUNGA4 |
ic = MAX( 1-OLx, MIN( NINT(ipart(ip,bi,bj)), sNx+OLx ) ) |
|
./pkg/flt/flt_runga4.F |
310 |
FLT_RUNGA4 |
jc = MAX( 1-OLy, MIN( NINT(jpart(ip,bi,bj)), sNy+OLy ) ) |
|
./pkg/flt/flt_runga4.F |
314 |
FLT_RUNGA4 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga4.F |
316 |
FLT_RUNGA4 |
IF (kpart(ip,bi,bj).LT.kzlo) kpart(ip,bi,bj)=kzlo |
|
./pkg/flt/flt_runga4.F |
317 |
FLT_RUNGA4 |
& +kzlo-kpart(ip,bi,bj) |
|
./pkg/flt/flt_runga4.F |
319 |
FLT_RUNGA4 |
IF (kpart(ip,bi,bj).GT.kzhi) kpart(ip,bi,bj)=kzhi |
|
./pkg/flt/flt_runga4.F |
329 |
FLT_RUNGA4 |
IF ( maskInC(ic,jc,bi,bj).EQ.0. .AND. |
|
./pkg/flt/flt_runga4.F |
330 |
FLT_RUNGA4 |
& maskC(ic,jc,1,bi,bj).EQ.1. ) THEN |
|
./pkg/flt/flt_runga4.F |
333 |
FLT_RUNGA4 |
tend(ip,bi,bj) = myTime - flt_deltaT |
|
./pkg/flt/flt_runga4.F |
52 |
FLT_RUNGA4 |
INTEGER bi, bj |
|
./pkg/flt/flt_runga4.F |
78 |
FLT_RUNGA4 |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/flt/flt_runga4.F |
80 |
FLT_RUNGA4 |
DO ip=1,npart_tile(bi,bj) |
|
./pkg/flt/flt_runga4.F |
83 |
FLT_RUNGA4 |
IF ( tend(ip,bi,bj).NE.-1. .AND. myTime.GT.tend(ip,bi,bj) |
|
./pkg/flt/flt_runga4.F |
85 |
FLT_RUNGA4 |
kpart(ip,bi,bj) = 0. |
|
./pkg/flt/flt_runga4.F |
88 |
FLT_RUNGA4 |
IF ( (tstart(ip,bi,bj).EQ.-1..OR.myTime.GE.tstart(ip,bi,bj)) |
|
./pkg/flt/flt_runga4.F |
89 |
FLT_RUNGA4 |
& .AND.( tend(ip,bi,bj).EQ.-1..OR.myTime.LE. tend(ip,bi,bj)) |
|
./pkg/flt/flt_runga4.F |
90 |
FLT_RUNGA4 |
& .AND.( iup(ip,bi,bj).NE.-3.) |
|
./pkg/flt/flt_runga4.F |
93 |
FLT_RUNGA4 |
ix = ipart(ip,bi,bj) |
|
./pkg/flt/flt_runga4.F |
94 |
FLT_RUNGA4 |
jy = jpart(ip,bi,bj) |
|
./pkg/flt/flt_runga4.F |
97 |
FLT_RUNGA4 |
kc=NINT(kpart(ip,bi,bj)) |
|
./pkg/flt/flt_runga4.F |
99 |
FLT_RUNGA4 |
scalex=recip_dxF(ic,jc,bi,bj) |
|
./pkg/flt/flt_traj.F |
100 |
FLT_TRAJ |
j0y = DFLOAT( myYGlobalLo-1 + (bj-1)*sNy ) |
|
./pkg/flt/flt_traj.F |
102 |
FLT_TRAJ |
DO ip=1,npart_tile(bi,bj) |
|
./pkg/flt/flt_traj.F |
104 |
FLT_TRAJ |
ix = ipart(ip,bi,bj) |
|
./pkg/flt/flt_traj.F |
105 |
FLT_TRAJ |
jy = jpart(ip,bi,bj) |
|
./pkg/flt/flt_traj.F |
107 |
FLT_TRAJ |
I ix, jy, bi,bj, myThid ) |
|
./pkg/flt/flt_traj.F |
108 |
FLT_TRAJ |
zz = FLT_MAP_K2R( kpart(ip,bi,bj),bi,bj,myThid ) |
|
./pkg/flt/flt_traj.F |
109 |
FLT_TRAJ |
kp = NINT(kpart(ip,bi,bj)) |
|
./pkg/flt/flt_traj.F |
110 |
FLT_TRAJ |
tmp(1) = npart(ip,bi,bj) |
|
./pkg/flt/flt_traj.F |
117 |
FLT_TRAJ |
tmp(8) = kpart(ip,bi,bj) |
|
./pkg/flt/flt_traj.F |
120 |
FLT_TRAJ |
& ( myTime.GE.tstart(ip,bi,bj)) .AND. |
|
./pkg/flt/flt_traj.F |
121 |
FLT_TRAJ |
& ( tend(ip,bi,bj).EQ.-1. .OR. myTime.LE.tend(ip,bi,bj)) |
|
./pkg/flt/flt_traj.F |
129 |
FLT_TRAJ |
& ' FLT_TRAJ: ', (flt_io_buff(ii,ip,bi,bj),ii=1,5) |
|
./pkg/flt/flt_traj.F |
137 |
FLT_TRAJ |
CALL FLT_BILINEAR (ix,jy,uu,uVel, kp,1,bi,bj,myThid) |
|
./pkg/flt/flt_traj.F |
138 |
FLT_TRAJ |
CALL FLT_BILINEAR (ix,jy,vv,vVel, kp,2,bi,bj,myThid) |
|
./pkg/flt/flt_traj.F |
139 |
FLT_TRAJ |
CALL FLT_BILINEAR2D(ix,jy,pp,etaN, 0,bi,bj,myThid) |
|
./pkg/flt/flt_traj.F |
140 |
FLT_TRAJ |
CALL FLT_BILINEAR (ix,jy,tt,theta, kp,0,bi,bj,myThid) |
|
./pkg/flt/flt_traj.F |
141 |
FLT_TRAJ |
CALL FLT_BILINEAR (ix,jy,ss,salt, kp,0,bi,bj,myThid) |
|
./pkg/flt/flt_traj.F |
156 |
FLT_TRAJ |
flt_io_buff(ii,ip,bi,bj) = tmp(ii) |
|
./pkg/flt/flt_traj.F |
174 |
FLT_TRAJ |
DO bj=1,nSy |
|
./pkg/flt/flt_traj.F |
181 |
FLT_TRAJ |
I bi, bj, 1, myThid ) |
|
./pkg/flt/flt_traj.F |
210 |
FLT_TRAJ |
tmp(1) = DBLE(npart_tile(bi,bj))+npart_read |
|
./pkg/flt/flt_traj.F |
229 |
FLT_TRAJ |
& bi, bj, -1, myIter, myThid ) |
|
./pkg/flt/flt_traj.F |
231 |
FLT_TRAJ |
DO ip=1,npart_tile(bi,bj) |
|
./pkg/flt/flt_traj.F |
234 |
FLT_TRAJ |
IF ( ip.NE.npart_tile(bi,bj) ) irecord = -irecord |
|
./pkg/flt/flt_traj.F |
236 |
FLT_TRAJ |
I flt_io_buff(1,ip,bi,bj), dummyRS, |
|
./pkg/flt/flt_traj.F |
237 |
FLT_TRAJ |
I bi, bj, irecord, myIter, myThid ) |
|
./pkg/flt/flt_traj.F |
47 |
FLT_TRAJ |
INTEGER bi, bj, nFlds |
|
./pkg/flt/flt_traj.F |
91 |
FLT_TRAJ |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/flt/flt_traj.F |
95 |
FLT_TRAJ |
nT = W2_myTileList(bi,bj) |
|
./pkg/flt/flt_up.F |
100 |
FLT_UP |
IF ( MOD(myTime,iup(ip,bi,bj)).EQ.0.) |
|
./pkg/flt/flt_up.F |
101 |
FLT_UP |
& kpart(ip,bi,bj) = flt_surf |
|
./pkg/flt/flt_up.F |
106 |
FLT_UP |
IF ( tend(ip,bi,bj).NE.-1..AND.myTime.GT.tend(ip,bi,bj) |
|
./pkg/flt/flt_up.F |
108 |
FLT_UP |
kpart(ip,bi,bj) = 0. |
|
./pkg/flt/flt_up.F |
113 |
FLT_UP |
ix = ipart(ip,bi,bj) |
|
./pkg/flt/flt_up.F |
114 |
FLT_UP |
jy = jpart(ip,bi,bj) |
|
./pkg/flt/flt_up.F |
116 |
FLT_UP |
I ix, jy, bi,bj, myThid ) |
|
./pkg/flt/flt_up.F |
117 |
FLT_UP |
zz = FLT_MAP_K2R( kpart(ip,bi,bj),bi,bj,myThid ) |
|
./pkg/flt/flt_up.F |
119 |
FLT_UP |
tmp(1) = npart(ip,bi,bj) |
|
./pkg/flt/flt_up.F |
126 |
FLT_UP |
tmp(8) = kpart(ip,bi,bj) |
|
./pkg/flt/flt_up.F |
130 |
FLT_UP |
& ( myTime.GE.tstart(ip,bi,bj) ) .AND. |
|
./pkg/flt/flt_up.F |
131 |
FLT_UP |
& ( tend(ip,bi,bj).EQ.-1..OR.myTime.LE.tend(ip,bi,bj) ) |
|
./pkg/flt/flt_up.F |
133 |
FLT_UP |
CALL FLT_BILINEAR2D(ix,jy,pp,etaN,0,bi,bj,myThid) |
|
./pkg/flt/flt_up.F |
136 |
FLT_UP |
CALL FLT_BILINEAR (ix,jy,uu,uVel, k,1,bi,bj,myThid) |
|
./pkg/flt/flt_up.F |
137 |
FLT_UP |
CALL FLT_BILINEAR (ix,jy,vv,vVel, k,2,bi,bj,myThid) |
|
./pkg/flt/flt_up.F |
138 |
FLT_UP |
CALL FLT_BILINEAR (ix,jy,tt,theta, k,0,bi,bj,myThid) |
|
./pkg/flt/flt_up.F |
139 |
FLT_UP |
CALL FLT_BILINEAR (ix,jy,ss,salt, k,0,bi,bj,myThid) |
|
./pkg/flt/flt_up.F |
152 |
FLT_UP |
flt_io_buff(ii,ip,bi,bj) = tmp(ii) |
|
./pkg/flt/flt_up.F |
172 |
FLT_UP |
DO bj=1,nSy |
|
./pkg/flt/flt_up.F |
179 |
FLT_UP |
& bi, bj, 1, myThid ) |
|
./pkg/flt/flt_up.F |
208 |
FLT_UP |
tmp(1) = DBLE(npart_tile(bi,bj))+npart_read |
|
./pkg/flt/flt_up.F |
227 |
FLT_UP |
& bi, bj, -1, myIter, myThid ) |
|
./pkg/flt/flt_up.F |
229 |
FLT_UP |
DO ip=1,npart_tile(bi,bj) |
|
./pkg/flt/flt_up.F |
232 |
FLT_UP |
IF ( ip.NE.npart_tile(bi,bj) ) irecord = -irecord |
|
./pkg/flt/flt_up.F |
234 |
FLT_UP |
& flt_io_buff(1,ip,bi,bj), dummyRS, |
|
./pkg/flt/flt_up.F |
235 |
FLT_UP |
& bi, bj, irecord, myIter, myThid ) |
|
./pkg/flt/flt_up.F |
45 |
FLT_UP |
INTEGER bi, bj, nFlds |
|
./pkg/flt/flt_up.F |
85 |
FLT_UP |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/flt/flt_up.F |
89 |
FLT_UP |
j0y = DFLOAT( myYGlobalLo-1 + (bj-1)*sNy ) |
|
./pkg/flt/flt_up.F |
90 |
FLT_UP |
DO ip=1,npart_tile(bi,bj) |
|
./pkg/flt/flt_up.F |
93 |
FLT_UP |
IF ( myTime.GE.tstart(ip,bi,bj) .AND. |
|
./pkg/flt/flt_up.F |
94 |
FLT_UP |
& (tend(ip,bi,bj).EQ.-1..OR.myTime.LE.tend(ip,bi,bj)) |
|
./pkg/flt/flt_up.F |
96 |
FLT_UP |
& kpart(ip,bi,bj).EQ.kfloat(ip,bi,bj) .AND. |
|
./pkg/flt/flt_up.F |
97 |
FLT_UP |
& iup(ip,bi,bj).GT.0. |
|
./pkg/flt/flt_write_pickup.F |
101 |
FLT_WRITE_PICKUP |
npart_dist = npart_dist + DBLE(npart_tile(bi,bj)) |
|
./pkg/flt/flt_write_pickup.F |
44 |
FLT_WRITE_PICKUP |
INTEGER bi, bj, imax, iLen |
|
./pkg/flt/flt_write_pickup.F |
58 |
FLT_WRITE_PICKUP |
DO bj=1,nSy |
|
./pkg/flt/flt_write_pickup.F |
64 |
FLT_WRITE_PICKUP |
tmp(1) = npart_tile(bi,bj) |
|
./pkg/flt/flt_write_pickup.F |
77 |
FLT_WRITE_PICKUP |
& bi,bj,-1, myIter, myThid ) |
|
./pkg/flt/flt_write_pickup.F |
79 |
FLT_WRITE_PICKUP |
DO ip=1,npart_tile(bi,bj) |
|
./pkg/flt/flt_write_pickup.F |
81 |
FLT_WRITE_PICKUP |
tmp(1) = npart(ip,bi,bj) |
|
./pkg/flt/flt_write_pickup.F |
82 |
FLT_WRITE_PICKUP |
tmp(2) = tstart(ip,bi,bj) |
|
./pkg/flt/flt_write_pickup.F |
83 |
FLT_WRITE_PICKUP |
tmp(3) = ipart(ip,bi,bj) |
|
./pkg/flt/flt_write_pickup.F |
84 |
FLT_WRITE_PICKUP |
tmp(4) = jpart(ip,bi,bj) |
|
./pkg/flt/flt_write_pickup.F |
85 |
FLT_WRITE_PICKUP |
tmp(5) = kpart(ip,bi,bj) |
|
./pkg/flt/flt_write_pickup.F |
86 |
FLT_WRITE_PICKUP |
tmp(6) = kfloat(ip,bi,bj) |
|
./pkg/flt/flt_write_pickup.F |
87 |
FLT_WRITE_PICKUP |
tmp(7) = iup(ip,bi,bj) |
|
./pkg/flt/flt_write_pickup.F |
88 |
FLT_WRITE_PICKUP |
tmp(8) = itop(ip,bi,bj) |
|
./pkg/flt/flt_write_pickup.F |
89 |
FLT_WRITE_PICKUP |
tmp(9) = tend(ip,bi,bj) |
|
./pkg/flt/flt_write_pickup.F |
93 |
FLT_WRITE_PICKUP |
IF ( ip.NE.npart_tile(bi,bj) ) irecord = -irecord |
|
./pkg/flt/flt_write_pickup.F |
96 |
FLT_WRITE_PICKUP |
& bi,bj,irecord, myIter, myThid ) |
|
./pkg/frazil/frazil_calc_rhs.F |
42 |
FRAZIL_CALC_RHS |
INTEGER bi,bj,i,j,k,kTop |
|
./pkg/frazil/frazil_calc_rhs.F |
53 |
FRAZIL_CALC_RHS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/frazil/frazil_calc_rhs.F |
60 |
FRAZIL_CALC_RHS |
FrazilForcingT(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/frazil/frazil_calc_rhs.F |
69 |
FRAZIL_CALC_RHS |
IF ( maskC(i,j,k-1,bi,bj) .NE. 0. _d 0 .AND. |
|
./pkg/frazil/frazil_calc_rhs.F |
70 |
FRAZIL_CALC_RHS |
& maskC(i,j,k, bi,bj) .NE. 0. _d 0 ) THEN |
|
./pkg/frazil/frazil_calc_rhs.F |
73 |
FRAZIL_CALC_RHS |
sLoc = MAX(salt(i,j,k,bi,bj), 0. _d 0) |
|
./pkg/frazil/frazil_calc_rhs.F |
74 |
FRAZIL_CALC_RHS |
tLoc = SW_TEMP(sLoc,theta(i,j,k,bi,bj),pLoc,0. _d 0) |
|
./pkg/frazil/frazil_calc_rhs.F |
92 |
FRAZIL_CALC_RHS |
kTop = kSurfC(i,j,bi,bj) |
|
./pkg/frazil/frazil_calc_rhs.F |
95 |
FRAZIL_CALC_RHS |
& * drF(k) * _hFacC(i,j,k,bi,bj) |
|
./pkg/frazil/frazil_calc_rhs.F |
96 |
FRAZIL_CALC_RHS |
FrazilForcingT(i,j,k,bi,bj) = Tresid / dTtracerLev(k) |
|
./pkg/frazil/frazil_calc_rhs.F |
97 |
FRAZIL_CALC_RHS |
FrazilForcingT(i,j,kTop,bi,bj) = |
|
./pkg/frazil/frazil_calc_rhs.F |
98 |
FRAZIL_CALC_RHS |
& FrazilForcingT(i,j,kTop,bi,bj) |
|
./pkg/frazil/frazil_init_varia.F |
32 |
FRAZIL_INIT_VARIA |
INTEGER i,j,k,bi,bj |
|
./pkg/frazil/frazil_init_varia.F |
35 |
FRAZIL_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/frazil/frazil_init_varia.F |
40 |
FRAZIL_INIT_VARIA |
FrazilForcingT(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/frazil/frazil_tendency_apply.F |
15 |
FRAZIL_TENDENCY_APPLY_T |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./pkg/frazil/frazil_tendency_apply.F |
44 |
FRAZIL_TENDENCY_APPLY_T |
INTEGER k, bi, bj |
|
./pkg/frazil/frazil_tendency_apply.F |
60 |
FRAZIL_TENDENCY_APPLY_T |
& + FrazilForcingT(i,j,k,bi,bj) |
|
./pkg/frazil/frazil_tendency_apply.F |
62 |
FRAZIL_TENDENCY_APPLY_T |
& * recip_drF(k) * _recip_hFacC(i,j,k,bi,bj) |
|
./pkg/gchem/gchem_add_tendency.F |
12 |
GCHEM_ADD_TENDENCY |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./pkg/gchem/gchem_add_tendency.F |
41 |
GCHEM_ADD_TENDENCY |
INTEGER k, bi, bj, iTr |
|
./pkg/gchem/gchem_add_tendency.F |
64 |
GCHEM_ADD_TENDENCY |
& + gchemTendency(i,j,k,bi,bj,jTr) |
|
./pkg/gchem/gchem_calc_tendency.F |
108 |
GCHEM_CALC_TENDENCY |
I pTracer (1-OLx,1-OLy,1,bi,bj,iTr), |
|
./pkg/gchem/gchem_calc_tendency.F |
109 |
GCHEM_CALC_TENDENCY |
U gchemTendency(1-OLx,1-OLy,1,bi,bj,jTr), |
|
./pkg/gchem/gchem_calc_tendency.F |
110 |
GCHEM_CALC_TENDENCY |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/gchem/gchem_calc_tendency.F |
115 |
GCHEM_CALC_TENDENCY |
I pTracer (1-OLx,1-OLy,1,bi,bj,iTr), |
|
./pkg/gchem/gchem_calc_tendency.F |
116 |
GCHEM_CALC_TENDENCY |
U gchemTendency(1-OLx,1-OLy,1,bi,bj,jTr), |
|
./pkg/gchem/gchem_calc_tendency.F |
117 |
GCHEM_CALC_TENDENCY |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/gchem/gchem_calc_tendency.F |
59 |
GCHEM_CALC_TENDENCY |
INTEGER bi,bj,iMin,iMax,jMin,jMax,k |
|
./pkg/gchem/gchem_calc_tendency.F |
63 |
GCHEM_CALC_TENDENCY |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/gchem/gchem_calc_tendency.F |
68 |
GCHEM_CALC_TENDENCY |
gchemTendency(i,j,k,bi,bj,jTr) = 0. _d 0 |
|
./pkg/gchem/gchem_calc_tendency.F |
82 |
GCHEM_CALC_TENDENCY |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/gchem/gchem_forcing_sep.F |
140 |
GCHEM_FORCING_SEP |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/gchem/gchem_forcing_sep.F |
155 |
GCHEM_FORCING_SEP |
CALL DIC_BIOTIC_FORCING( pTracer(1-OLx,1-OLy,1,bi,bj,1), |
|
./pkg/gchem/gchem_forcing_sep.F |
156 |
GCHEM_FORCING_SEP |
& pTracer(1-OLx,1-OLy,1,bi,bj,2), |
|
./pkg/gchem/gchem_forcing_sep.F |
157 |
GCHEM_FORCING_SEP |
& pTracer(1-OLx,1-OLy,1,bi,bj,3), |
|
./pkg/gchem/gchem_forcing_sep.F |
158 |
GCHEM_FORCING_SEP |
& pTracer(1-OLx,1-OLy,1,bi,bj,4), |
|
./pkg/gchem/gchem_forcing_sep.F |
159 |
GCHEM_FORCING_SEP |
& pTracer(1-OLx,1-OLy,1,bi,bj,5), |
|
./pkg/gchem/gchem_forcing_sep.F |
160 |
GCHEM_FORCING_SEP |
& pTracer(1-OLx,1-OLy,1,bi,bj,6), |
|
./pkg/gchem/gchem_forcing_sep.F |
161 |
GCHEM_FORCING_SEP |
& bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/gchem/gchem_forcing_sep.F |
165 |
GCHEM_FORCING_SEP |
CALL DIC_BIOTIC_FORCING( pTracer(1-OLx,1-OLy,1,bi,bj,1), |
|
./pkg/gchem/gchem_forcing_sep.F |
166 |
GCHEM_FORCING_SEP |
& pTracer(1-OLx,1-OLy,1,bi,bj,2), |
|
./pkg/gchem/gchem_forcing_sep.F |
167 |
GCHEM_FORCING_SEP |
& pTracer(1-OLx,1-OLy,1,bi,bj,3), |
|
./pkg/gchem/gchem_forcing_sep.F |
168 |
GCHEM_FORCING_SEP |
& pTracer(1-OLx,1-OLy,1,bi,bj,4), |
|
./pkg/gchem/gchem_forcing_sep.F |
169 |
GCHEM_FORCING_SEP |
& pTracer(1-OLx,1-OLy,1,bi,bj,5), |
|
./pkg/gchem/gchem_forcing_sep.F |
170 |
GCHEM_FORCING_SEP |
& bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/gchem/gchem_forcing_sep.F |
173 |
GCHEM_FORCING_SEP |
CALL DIC_BIOTIC_FORCING( pTracer(1-OLx,1-OLy,1,bi,bj,1), |
|
./pkg/gchem/gchem_forcing_sep.F |
174 |
GCHEM_FORCING_SEP |
& pTracer(1-OLx,1-OLy,1,bi,bj,2), |
|
./pkg/gchem/gchem_forcing_sep.F |
175 |
GCHEM_FORCING_SEP |
& pTracer(1-OLx,1-OLy,1,bi,bj,3), |
|
./pkg/gchem/gchem_forcing_sep.F |
176 |
GCHEM_FORCING_SEP |
& pTracer(1-OLx,1-OLy,1,bi,bj,4), |
|
./pkg/gchem/gchem_forcing_sep.F |
177 |
GCHEM_FORCING_SEP |
& bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/gchem/gchem_forcing_sep.F |
190 |
GCHEM_FORCING_SEP |
CALL BLING_MAIN( pTracer(1-OLx,1-OLy,1,bi,bj,1), |
|
./pkg/gchem/gchem_forcing_sep.F |
191 |
GCHEM_FORCING_SEP |
& pTracer(1-OLx,1-OLy,1,bi,bj,2), |
|
./pkg/gchem/gchem_forcing_sep.F |
192 |
GCHEM_FORCING_SEP |
& pTracer(1-OLx,1-OLy,1,bi,bj,3), |
|
./pkg/gchem/gchem_forcing_sep.F |
193 |
GCHEM_FORCING_SEP |
& pTracer(1-OLx,1-OLy,1,bi,bj,4), |
|
./pkg/gchem/gchem_forcing_sep.F |
194 |
GCHEM_FORCING_SEP |
& pTracer(1-OLx,1-OLy,1,bi,bj,5), |
|
./pkg/gchem/gchem_forcing_sep.F |
195 |
GCHEM_FORCING_SEP |
& pTracer(1-OLx,1-OLy,1,bi,bj,6), |
|
./pkg/gchem/gchem_forcing_sep.F |
196 |
GCHEM_FORCING_SEP |
& pTracer(1-OLx,1-OLy,1,bi,bj,7), |
|
./pkg/gchem/gchem_forcing_sep.F |
197 |
GCHEM_FORCING_SEP |
& pTracer(1-OLx,1-OLy,1,bi,bj,8), |
|
./pkg/gchem/gchem_forcing_sep.F |
199 |
GCHEM_FORCING_SEP |
& pTracer(1-OLx,1-OLy,1,bi,bj,9), |
|
./pkg/gchem/gchem_forcing_sep.F |
201 |
GCHEM_FORCING_SEP |
& bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/gchem/gchem_forcing_sep.F |
214 |
GCHEM_FORCING_SEP |
CALL DARWIN_NUT_SUPPLY( pTracer(1-OLx,1-OLy,1,bi,bj,1), |
|
./pkg/gchem/gchem_forcing_sep.F |
215 |
GCHEM_FORCING_SEP |
& bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/gchem/gchem_forcing_sep.F |
217 |
GCHEM_FORCING_SEP |
CALL DARWIN_NUT_SUPPLY( pTracer(1-OLx,1-OLy,1,bi,bj,2), |
|
./pkg/gchem/gchem_forcing_sep.F |
218 |
GCHEM_FORCING_SEP |
& bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/gchem/gchem_forcing_sep.F |
220 |
GCHEM_FORCING_SEP |
CALL DARWIN_NUT_SUPPLY( pTracer(1-OLx,1-OLy,1,bi,bj,3), |
|
./pkg/gchem/gchem_forcing_sep.F |
221 |
GCHEM_FORCING_SEP |
& bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/gchem/gchem_forcing_sep.F |
223 |
GCHEM_FORCING_SEP |
CALL DARWIN_NUT_SUPPLY( pTracer(1-OLx,1-OLy,1,bi,bj,4), |
|
./pkg/gchem/gchem_forcing_sep.F |
224 |
GCHEM_FORCING_SEP |
& bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/gchem/gchem_forcing_sep.F |
234 |
GCHEM_FORCING_SEP |
& bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/gchem/gchem_forcing_sep.F |
250 |
GCHEM_FORCING_SEP |
I bi, bj, 0, iTr, |
|
./pkg/gchem/gchem_forcing_sep.F |
251 |
GCHEM_FORCING_SEP |
U pTracer(1-OLx,1-OLy,1,bi,bj,iTr), |
|
./pkg/gchem/gchem_forcing_sep.F |
62 |
GCHEM_FORCING_SEP |
INTEGER bi,bj,iMin,iMax,jMin,jMax |
|
./pkg/gchem/gchem_init_vari.F |
42 |
GCHEM_INIT_VARI |
INTEGER bi,bj |
|
./pkg/gchem/gchem_init_vari.F |
50 |
GCHEM_INIT_VARI |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/gchem/gchem_init_vari.F |
55 |
GCHEM_INIT_VARI |
gchemTendency(i,j,k,bi,bj,jTr) = 0. _d 0 |
|
./pkg/gchem/gchem_surfmean.F |
32 |
GCHEM_SURFMEAN |
INTEGER i,j,bi,bj |
|
./pkg/gchem/gchem_surfmean.F |
44 |
GCHEM_SURFMEAN |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/gchem/gchem_surfmean.F |
46 |
GCHEM_SURFMEAN |
sumTracerTile(bi,bj) = 0. _d 0 |
|
./pkg/gchem/gchem_surfmean.F |
49 |
GCHEM_SURFMEAN |
sumTracerTile(bi,bj) = sumTracerTile(bi,bj) |
|
./pkg/gchem/gchem_surfmean.F |
50 |
GCHEM_SURFMEAN |
& + tracer(i,j,ks,bi,bj)*rA(i,j,bi,bj)*maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
1015 |
GAD_ADVECTION |
& *rkSign*maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
1018 |
GAD_ADVECTION |
& *rkSign*maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
1029 |
GAD_ADVECTION |
& ( tmpTrac - tracer(i,j,k,bi,bj)*localVol(i,j) ) |
|
./pkg/generic_advdiff/gad_advection.F |
1030 |
GAD_ADVECTION |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/generic_advdiff/gad_advection.F |
1031 |
GAD_ADVECTION |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
1041 |
GAD_ADVECTION |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_advection.F |
1042 |
GAD_ADVECTION |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/generic_advdiff/gad_advection.F |
1044 |
GAD_ADVECTION |
& -tracer(i,j,k,bi,bj)*(rTransKp(i,j)-rTrans(i,j)) |
|
./pkg/generic_advdiff/gad_advection.F |
1045 |
GAD_ADVECTION |
& )*rkSign*maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
1047 |
GAD_ADVECTION |
& ( localTij(i,j) - tracer(i,j,k,bi,bj) )/deltaTLev(k) |
|
./pkg/generic_advdiff/gad_advection.F |
1056 |
GAD_ADVECTION |
& diagName, k,1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_advection.F |
1061 |
GAD_ADVECTION |
& 'AFR', k, 1, 2,bi,bj, myThid) |
|
./pkg/generic_advdiff/gad_advection.F |
178 |
GAD_ADVECTION |
act2 = bj - myByLo(myThid) |
|
./pkg/generic_advdiff/gad_advection.F |
19 |
GAD_ADVECTION |
I bi,bj, myTime,myIter,myThid) |
|
./pkg/generic_advdiff/gad_advection.F |
248 |
GAD_ADVECTION |
myTile = W2_myTileList(bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
281 |
GAD_ADVECTION |
xA(i,j) = _dyG(i,j,bi,bj)*deepFacC(k) |
|
./pkg/generic_advdiff/gad_advection.F |
282 |
GAD_ADVECTION |
& *drF(k)*_hFacW(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
283 |
GAD_ADVECTION |
yA(i,j) = _dxG(i,j,bi,bj)*deepFacC(k) |
|
./pkg/generic_advdiff/gad_advection.F |
284 |
GAD_ADVECTION |
& *drF(k)*_hFacS(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
299 |
GAD_ADVECTION |
localTij(i,j) = tracer(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
301 |
GAD_ADVECTION |
localVol(i,j) = rA(i,j,bi,bj)*deepFac2C(k) |
|
./pkg/generic_advdiff/gad_advection.F |
302 |
GAD_ADVECTION |
& *rhoFacC(k)*drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
303 |
GAD_ADVECTION |
& + ( oneRS - maskC(i,j,k,bi,bj) ) |
|
./pkg/generic_advdiff/gad_advection.F |
306 |
GAD_ADVECTION |
maskLocW(i,j) = _maskW(i,j,k,bi,bj)*maskInW(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
307 |
GAD_ADVECTION |
maskLocS(i,j) = _maskS(i,j,k,bi,bj)*maskInS(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
309 |
GAD_ADVECTION |
maskLocW(i,j) = _maskW(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
310 |
GAD_ADVECTION |
maskLocS(i,j) = _maskS(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
318 |
GAD_ADVECTION |
& withSigns, maskLocW,maskLocS, bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_advection.F |
386 |
GAD_ADVECTION |
& localTij, bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_advection.F |
405 |
GAD_ADVECTION |
CALL GAD_DST2U1_ADV_X( bi,bj,k, advectionScheme, .TRUE., |
|
./pkg/generic_advdiff/gad_advection.F |
409 |
GAD_ADVECTION |
CALL GAD_FLUXLIMIT_ADV_X( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
413 |
GAD_ADVECTION |
CALL GAD_DST3_ADV_X( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
417 |
GAD_ADVECTION |
CALL GAD_DST3FL_ADV_X( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
422 |
GAD_ADVECTION |
CALL GAD_OS7MP_ADV_X( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
428 |
GAD_ADVECTION |
CALL GAD_PPM_ADV_X( advectionScheme, bi, bj, k , .TRUE., |
|
./pkg/generic_advdiff/gad_advection.F |
434 |
GAD_ADVECTION |
CALL GAD_PQM_ADV_X( advectionScheme, bi, bj, k , .TRUE., |
|
./pkg/generic_advdiff/gad_advection.F |
445 |
GAD_ADVECTION |
CALL OBCS_U1_ADV_TRACER( .TRUE., trIdentity, bi, bj, k, |
|
./pkg/generic_advdiff/gad_advection.F |
454 |
GAD_ADVECTION |
& localTij, bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_advection.F |
486 |
GAD_ADVECTION |
& *maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
489 |
GAD_ADVECTION |
& *maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
494 |
GAD_ADVECTION |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_advection.F |
495 |
GAD_ADVECTION |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/generic_advdiff/gad_advection.F |
497 |
GAD_ADVECTION |
& -tracer(i,j,k,bi,bj)*(uTrans(i+1,j)-uTrans(i,j)) |
|
./pkg/generic_advdiff/gad_advection.F |
498 |
GAD_ADVECTION |
& )*maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
509 |
GAD_ADVECTION |
& *maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
512 |
GAD_ADVECTION |
& *maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
517 |
GAD_ADVECTION |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_advection.F |
518 |
GAD_ADVECTION |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/generic_advdiff/gad_advection.F |
520 |
GAD_ADVECTION |
& -tracer(i,j,k,bi,bj)*(uTrans(i+1,j)-uTrans(i,j)) |
|
./pkg/generic_advdiff/gad_advection.F |
521 |
GAD_ADVECTION |
& )*maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
538 |
GAD_ADVECTION |
& *maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
541 |
GAD_ADVECTION |
& *maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
546 |
GAD_ADVECTION |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_advection.F |
547 |
GAD_ADVECTION |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/generic_advdiff/gad_advection.F |
549 |
GAD_ADVECTION |
& -tracer(i,j,k,bi,bj)*(uTrans(i+1,j)-uTrans(i,j)) |
|
./pkg/generic_advdiff/gad_advection.F |
550 |
GAD_ADVECTION |
& )*maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
595 |
GAD_ADVECTION |
& localTij, bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_advection.F |
614 |
GAD_ADVECTION |
CALL GAD_DST2U1_ADV_Y( bi,bj,k, advectionScheme, .TRUE., |
|
./pkg/generic_advdiff/gad_advection.F |
618 |
GAD_ADVECTION |
CALL GAD_FLUXLIMIT_ADV_Y( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
622 |
GAD_ADVECTION |
CALL GAD_DST3_ADV_Y( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
626 |
GAD_ADVECTION |
CALL GAD_DST3FL_ADV_Y( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
631 |
GAD_ADVECTION |
CALL GAD_OS7MP_ADV_Y( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
637 |
GAD_ADVECTION |
CALL GAD_PPM_ADV_Y(advectionScheme, bi, bj, k , .TRUE., |
|
./pkg/generic_advdiff/gad_advection.F |
643 |
GAD_ADVECTION |
CALL GAD_PQM_ADV_Y(advectionScheme, bi, bj, k , .TRUE., |
|
./pkg/generic_advdiff/gad_advection.F |
654 |
GAD_ADVECTION |
CALL OBCS_U1_ADV_TRACER( .FALSE., trIdentity, bi, bj, k, |
|
./pkg/generic_advdiff/gad_advection.F |
663 |
GAD_ADVECTION |
& localTij, bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_advection.F |
695 |
GAD_ADVECTION |
& *maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
698 |
GAD_ADVECTION |
& *maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
703 |
GAD_ADVECTION |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_advection.F |
704 |
GAD_ADVECTION |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/generic_advdiff/gad_advection.F |
706 |
GAD_ADVECTION |
& -tracer(i,j,k,bi,bj)*(vTrans(i,j+1)-vTrans(i,j)) |
|
./pkg/generic_advdiff/gad_advection.F |
707 |
GAD_ADVECTION |
& )*maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
718 |
GAD_ADVECTION |
& *maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
721 |
GAD_ADVECTION |
& *maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
726 |
GAD_ADVECTION |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_advection.F |
727 |
GAD_ADVECTION |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/generic_advdiff/gad_advection.F |
729 |
GAD_ADVECTION |
& -tracer(i,j,k,bi,bj)*(vTrans(i,j+1)-vTrans(i,j)) |
|
./pkg/generic_advdiff/gad_advection.F |
730 |
GAD_ADVECTION |
& )*maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
747 |
GAD_ADVECTION |
& *maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
750 |
GAD_ADVECTION |
& *maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
755 |
GAD_ADVECTION |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_advection.F |
756 |
GAD_ADVECTION |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/generic_advdiff/gad_advection.F |
758 |
GAD_ADVECTION |
& -tracer(i,j,k,bi,bj)*(vTrans(i,j+1)-vTrans(i,j)) |
|
./pkg/generic_advdiff/gad_advection.F |
759 |
GAD_ADVECTION |
& )*maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
787 |
GAD_ADVECTION |
& ( localTij(i,j) - tracer(i,j,k,bi,bj) )/deltaTLev(k) |
|
./pkg/generic_advdiff/gad_advection.F |
805 |
GAD_ADVECTION |
CALL DIAGNOSTICS_FILL( afx, diagName, k,1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_advection.F |
809 |
GAD_ADVECTION |
CALL DIAGNOSTICS_FILL( afy, diagName, k,1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_advection.F |
80 |
GAD_ADVECTION |
INTEGER bi,bj |
|
./pkg/generic_advdiff/gad_advection.F |
813 |
GAD_ADVECTION |
CALL LAYERS_FILL(afx,trIdentity,'AFX',k,1,2,bi,bj,myThid) |
|
./pkg/generic_advdiff/gad_advection.F |
814 |
GAD_ADVECTION |
CALL LAYERS_FILL(afy,trIdentity,'AFY',k,1,2,bi,bj,myThid) |
|
./pkg/generic_advdiff/gad_advection.F |
826 |
GAD_ADVECTION |
& afx,afy, k, standardMessageUnit,bi,bj,myThid ) |
|
./pkg/generic_advdiff/gad_advection.F |
854 |
GAD_ADVECTION |
rTran3d(i,j,k) = wFld(i,j,k)*rA(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
856 |
GAD_ADVECTION |
& *maskC(i,j,k-1,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
862 |
GAD_ADVECTION |
CALL GAD_PPM_ADV_R( vertAdvecScheme, bi, bj, |
|
./pkg/generic_advdiff/gad_advection.F |
883 |
GAD_ADVECTION |
rTran3d(i,j,k) = wFld(i,j,k)*rA(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
885 |
GAD_ADVECTION |
& *maskC(i,j,k-1,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
891 |
GAD_ADVECTION |
CALL GAD_PQM_ADV_R( vertAdvecScheme, bi, bj, |
|
./pkg/generic_advdiff/gad_advection.F |
939 |
GAD_ADVECTION |
rTrans(i,j) = wFld(i,j,k)*rA(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
941 |
GAD_ADVECTION |
& *maskC(i,j,k-1,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
956 |
GAD_ADVECTION |
CALL GAD_DST2U1_ADV_R( bi,bj,k, advectionScheme, |
|
./pkg/generic_advdiff/gad_advection.F |
960 |
GAD_ADVECTION |
CALL GAD_FLUXLIMIT_ADV_R( bi,bj,k, deltaTLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
964 |
GAD_ADVECTION |
CALL GAD_DST3_ADV_R( bi,bj,k, deltaTLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
968 |
GAD_ADVECTION |
CALL GAD_DST3FL_ADV_R( bi,bj,k, deltaTLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
973 |
GAD_ADVECTION |
CALL GAD_OS7MP_ADV_R( bi,bj,k, deltaTLev(k), |
|
./pkg/generic_advdiff/gad_biharm_r.F |
11 |
GAD_BIHARM_R |
I bi, bj, k, |
|
./pkg/generic_advdiff/gad_biharm_r.F |
35 |
GAD_BIHARM_R |
INTEGER bi, bj, k |
|
./pkg/generic_advdiff/gad_biharm_r.F |
72 |
GAD_BIHARM_R |
& *tmpFac*maskC(i,j,kl,bi,bj)*maskC(i,j,km,bi,bj) |
|
./pkg/generic_advdiff/gad_biharm_r.F |
86 |
GAD_BIHARM_R |
& *_recip_hFacC(i,j,kl,bi,bj) |
|
./pkg/generic_advdiff/gad_biharm_r.F |
97 |
GAD_BIHARM_R |
& *tmpFac*_rA(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_biharm_x.F |
11 |
GAD_BIHARM_X |
I bi,bj,k, |
|
./pkg/generic_advdiff/gad_biharm_x.F |
35 |
GAD_BIHARM_X |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_biharm_x.F |
56 |
GAD_BIHARM_X |
& *_recip_dxC(i,j,bi,bj)*recip_deepFacC(k) |
|
./pkg/generic_advdiff/gad_biharm_x.F |
59 |
GAD_BIHARM_X |
& *sqCosFacU(j,bi,bj) |
|
./pkg/generic_advdiff/gad_biharm_x.F |
61 |
GAD_BIHARM_X |
& *cosFacU(j,bi,bj) |
|
./pkg/generic_advdiff/gad_biharm_y.F |
11 |
GAD_BIHARM_Y |
I bi,bj,k, |
|
./pkg/generic_advdiff/gad_biharm_y.F |
35 |
GAD_BIHARM_Y |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_biharm_y.F |
58 |
GAD_BIHARM_Y |
& *_recip_dyC(i,j,bi,bj)*recip_deepFacC(k) |
|
./pkg/generic_advdiff/gad_biharm_y.F |
62 |
GAD_BIHARM_Y |
& *sqCosFacV(j,bi,bj) |
|
./pkg/generic_advdiff/gad_biharm_y.F |
64 |
GAD_BIHARM_Y |
& *cosFacV(j,bi,bj) |
|
./pkg/generic_advdiff/gad_c2_adv_r.F |
11 |
GAD_C2_ADV_R |
I bi, bj, k, |
|
./pkg/generic_advdiff/gad_c2_adv_r.F |
37 |
GAD_C2_ADV_R |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_c2_adv_r.F |
63 |
GAD_C2_ADV_R |
wT(i,j) = maskC(i,j,km1,bi,bj)* |
|
./pkg/generic_advdiff/gad_c2_adv_x.F |
11 |
GAD_C2_ADV_X |
I bi,bj,k, |
|
./pkg/generic_advdiff/gad_c2_adv_x.F |
35 |
GAD_C2_ADV_X |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_c2_adv_y.F |
11 |
GAD_C2_ADV_Y |
I bi,bj,k, |
|
./pkg/generic_advdiff/gad_c2_adv_y.F |
35 |
GAD_C2_ADV_Y |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
10 |
GAD_C2_IMPL_R |
I bi,bj,k, iMin,iMax,jMin,jMax, |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
42 |
GAD_C2_IMPL_R |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
65 |
GAD_C2_IMPL_R |
rCenter = 0.5 _d 0 *rTrans(i,j)*recip_rA(i,j,bi,bj)*rkSign |
|
./model/inc/RECIP_HFACC_MACROS.h |
36 |
NO PROCEDURE |
# define _recip_hFacC(i,j,k,bi,bj) recip_hFacC(i,j,k,bi,bj)*maskC(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_c4_adv_r.F |
11 |
GAD_C4_ADV_R |
I bi, bj, k, |
|
./pkg/generic_advdiff/gad_c4_adv_r.F |
39 |
GAD_C4_ADV_R |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_c4_adv_r.F |
76 |
GAD_C4_ADV_R |
maskBound = maskPM*maskC(i,j,km2,bi,bj)*maskC(i,j,kp1,bi,bj) |
|
./pkg/generic_advdiff/gad_c4_adv_r.F |
77 |
GAD_C4_ADV_R |
Rjp = (tracer(i,j,kp1)-tracer(i,j, k ))*maskC(i,j,kp1,bi,bj) |
|
./pkg/generic_advdiff/gad_c4_adv_r.F |
79 |
GAD_C4_ADV_R |
Rjm = (tracer(i,j,km1)-tracer(i,j,km2))*maskC(i,j,km1,bi,bj) |
|
./pkg/generic_advdiff/gad_c4_adv_r.F |
83 |
GAD_C4_ADV_R |
wT(i,j) = maskC(i,j,km1,bi,bj)*( |
|
./pkg/generic_advdiff/gad_c4_adv_x.F |
11 |
GAD_C4_ADV_X |
I bi,bj,k, |
|
./pkg/generic_advdiff/gad_c4_adv_x.F |
40 |
GAD_C4_ADV_X |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_c4_adv_x.F |
75 |
GAD_C4_ADV_X |
& *( 1. _d 0 - maskW(i-1,j,k,bi,bj)*maskW(i+1,j,k,bi,bj) ) |
|
./pkg/generic_advdiff/gad_c4_adv_y.F |
11 |
GAD_C4_ADV_Y |
I bi,bj,k, |
|
./pkg/generic_advdiff/gad_c4_adv_y.F |
40 |
GAD_C4_ADV_Y |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_c4_adv_y.F |
75 |
GAD_C4_ADV_Y |
& *( 1. _d 0 - maskS(i,j-1,k,bi,bj)*maskS(i,j+1,k,bi,bj) ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
11 |
GAD_CALC_RHS |
I bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
202 |
GAD_CALC_RHS |
CALL GAD_GRAD_X(bi,bj,k,xA,localT,fZon,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
203 |
GAD_CALC_RHS |
CALL GAD_GRAD_Y(bi,bj,k,yA,localT,fMer,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
204 |
GAD_CALC_RHS |
CALL GAD_DEL2(bi,bj,k,fZon,fMer,df4,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
217 |
GAD_CALC_RHS |
CALL GAD_C2_ADV_X( bi,bj,k, uTrans, locABT, af, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
220 |
GAD_CALC_RHS |
CALL GAD_DST2U1_ADV_X( bi,bj,k, advectionScheme, .TRUE., |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
227 |
GAD_CALC_RHS |
maskLocW(i,j) = _maskW(i,j,k,bi,bj)*maskInW(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
229 |
GAD_CALC_RHS |
maskLocW(i,j) = _maskW(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
234 |
GAD_CALC_RHS |
CALL GAD_FLUXLIMIT_ADV_X( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
238 |
GAD_CALC_RHS |
CALL GAD_U3_ADV_X( bi,bj,k, uTrans, maskLocW, locABT, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
241 |
GAD_CALC_RHS |
CALL GAD_C4_ADV_X( bi,bj,k, uTrans, maskLocW, locABT, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
253 |
GAD_CALC_RHS |
CALL GAD_DST3_ADV_X( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
257 |
GAD_CALC_RHS |
CALL GAD_DST3FL_ADV_X( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
262 |
GAD_CALC_RHS |
CALL GAD_OS7MP_ADV_X( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
273 |
GAD_CALC_RHS |
CALL OBCS_U1_ADV_TRACER( .TRUE., trIdentity, bi, bj, k, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
274 |
GAD_CALC_RHS |
I maskW(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
287 |
GAD_CALC_RHS |
CALL DIAGNOSTICS_FILL( af, diagName, k,1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
292 |
GAD_CALC_RHS |
& k, 1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
300 |
GAD_CALC_RHS |
CALL GAD_DIFF_X(bi,bj,k,xA,diffKh,localT,df,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
311 |
GAD_CALC_RHS |
CALL GAD_BIHARM_X(bi,bj,k,xA,df4,diffK4,df,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
318 |
GAD_CALC_RHS |
I trIdentity, bi, bj, k, iMin, iMax+1, jMin, jMax, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
337 |
GAD_CALC_RHS |
CALL DIAGNOSTICS_FILL( df, diagName, k,1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
341 |
GAD_CALC_RHS |
& k, 1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
357 |
GAD_CALC_RHS |
CALL GAD_C2_ADV_Y( bi,bj,k, vTrans, locABT, af, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
360 |
GAD_CALC_RHS |
CALL GAD_DST2U1_ADV_Y( bi,bj,k, advectionScheme, .TRUE., |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
367 |
GAD_CALC_RHS |
maskLocS(i,j) = _maskS(i,j,k,bi,bj)*maskInS(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
369 |
GAD_CALC_RHS |
maskLocS(i,j) = _maskS(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
374 |
GAD_CALC_RHS |
CALL GAD_FLUXLIMIT_ADV_Y( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
378 |
GAD_CALC_RHS |
CALL GAD_U3_ADV_Y( bi,bj,k, vTrans, maskLocS, locABT, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
381 |
GAD_CALC_RHS |
CALL GAD_C4_ADV_Y( bi,bj,k, vTrans, maskLocS, locABT, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
393 |
GAD_CALC_RHS |
CALL GAD_DST3_ADV_Y( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
397 |
GAD_CALC_RHS |
CALL GAD_DST3FL_ADV_Y( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
402 |
GAD_CALC_RHS |
CALL GAD_OS7MP_ADV_Y( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
413 |
GAD_CALC_RHS |
CALL OBCS_U1_ADV_TRACER( .FALSE., trIdentity, bi, bj, k, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
414 |
GAD_CALC_RHS |
I maskS(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
427 |
GAD_CALC_RHS |
CALL DIAGNOSTICS_FILL( af, diagName, k,1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
432 |
GAD_CALC_RHS |
& k, 1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
440 |
GAD_CALC_RHS |
CALL GAD_DIFF_Y(bi,bj,k,yA,diffKh,localT,df,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
451 |
GAD_CALC_RHS |
CALL GAD_BIHARM_Y(bi,bj,k,yA,df4,diffK4,df,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
458 |
GAD_CALC_RHS |
I trIdentity, bi, bj, k, iMin, iMax, jMin, jMax+1, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
477 |
GAD_CALC_RHS |
CALL DIAGNOSTICS_FILL( df, diagName, k,1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
481 |
GAD_CALC_RHS |
& k, 1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
500 |
GAD_CALC_RHS |
CALL GAD_C2_ADV_R( bi,bj,k, rTrans, TracAB, af, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
503 |
GAD_CALC_RHS |
CALL GAD_DST2U1_ADV_R( bi,bj,k,vertAdvecScheme,deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
507 |
GAD_CALC_RHS |
CALL GAD_FLUXLIMIT_ADV_R( bi,bj,k, deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
511 |
GAD_CALC_RHS |
CALL GAD_U3_ADV_R( bi,bj,k, rTrans, TracAB, af, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
513 |
GAD_CALC_RHS |
CALL GAD_C4_ADV_R( bi,bj,k, rTrans, TracAB, af, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
524 |
GAD_CALC_RHS |
CALL GAD_DST3_ADV_R( bi,bj,k, deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
528 |
GAD_CALC_RHS |
CALL GAD_DST3FL_ADV_R( bi,bj,k, deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
533 |
GAD_CALC_RHS |
CALL GAD_OS7MP_ADV_R( bi,bj,k, deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
543 |
GAD_CALC_RHS |
CALL GAD_C2_ADV_R( bi,bj,k, rTrans, TracerN, af, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
546 |
GAD_CALC_RHS |
CALL GAD_DST2U1_ADV_R( bi,bj,k,vertAdvecScheme,deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
550 |
GAD_CALC_RHS |
CALL GAD_FLUXLIMIT_ADV_R( bi,bj,k, deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
554 |
GAD_CALC_RHS |
CALL GAD_U3_ADV_R( bi,bj,k, rTrans, TracerN, af, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
556 |
GAD_CALC_RHS |
CALL GAD_C4_ADV_R( bi,bj,k, rTrans, TracerN, af, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
567 |
GAD_CALC_RHS |
CALL GAD_DST3_ADV_R( bi,bj,k, deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
571 |
GAD_CALC_RHS |
CALL GAD_DST3FL_ADV_R( bi,bj,k, deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
576 |
GAD_CALC_RHS |
CALL GAD_OS7MP_ADV_R( bi,bj,k, deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
587 |
GAD_CALC_RHS |
fVerT(i,j,kUp) = fVerT(i,j,kUp) + af(i,j)*maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
593 |
GAD_CALC_RHS |
CALL DIAGNOSTICS_FILL( af, diagName, k,1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
596 |
GAD_CALC_RHS |
IF ( k.EQ.2 ) CALL DIAGNOSTICS_COUNT(diagName,bi,bj,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
599 |
GAD_CALC_RHS |
CALL LAYERS_FILL(af,trIdentity,'AFR',k,1,2,bi,bj,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
616 |
GAD_CALC_RHS |
CALL GAD_DIFF_R(bi,bj,k,KappaR,TracerN,df,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
620 |
GAD_CALC_RHS |
CALL GAD_BIHARM_R( bi,bj,k, diffKr4, TracerN, df, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
627 |
GAD_CALC_RHS |
I trIdentity, bi, bj, k, iMin, iMax, jMin, jMax, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
647 |
GAD_CALC_RHS |
CALL DIAGNOSTICS_FILL( df, diagName, k,1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
650 |
GAD_CALC_RHS |
CALL LAYERS_FILL(df,trIdentity,'DFR',k,1,2,bi,bj,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
666 |
GAD_CALC_RHS |
I iMin,iMax,jMin,jMax,bi,bj,k,km1, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
671 |
GAD_CALC_RHS |
I iMin,iMax,jMin,jMax,bi,bj,k,km1, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
677 |
GAD_CALC_RHS |
I iMin,iMax,jMin,jMax,bi,bj,k,km1, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
697 |
GAD_CALC_RHS |
CALL DIAGNOSTICS_FILL( df, diagName, k,1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
700 |
GAD_CALC_RHS |
IF ( k.EQ.2 ) CALL DIAGNOSTICS_COUNT(diagName,bi,bj,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
703 |
GAD_CALC_RHS |
CALL LAYERS_FILL(df,trIdentity,'DFR',k,1,2,bi,bj,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
723 |
GAD_CALC_RHS |
& _recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
724 |
GAD_CALC_RHS |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)*recip_rhoFacC(k) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
750 |
GAD_CALC_RHS |
& +_recip_hFacC(i,j,k+1,bi,bj)*recip_drF(k+1) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
751 |
GAD_CALC_RHS |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k+1) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
758 |
GAD_CALC_RHS |
& +_recip_hFacC(i,j,k+1,bi,bj)*recip_drF(k+1) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
759 |
GAD_CALC_RHS |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k+1) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
776 |
GAD_CALC_RHS |
& -_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
777 |
GAD_CALC_RHS |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)*recip_rhoFacC(k) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
778 |
GAD_CALC_RHS |
& *( (fZon(i+1,j)-fZon(i,j))*maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
779 |
GAD_CALC_RHS |
& +(fMer(i,j+1)-fMer(i,j))*maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
784 |
GAD_CALC_RHS |
& )*maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
796 |
GAD_CALC_RHS |
& fZon,fMer, k, standardMessageUnit,bi,bj,myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
88 |
GAD_CALC_RHS |
INTEGER bi,bj,iMin,iMax,jMin,jMax |
|
./pkg/generic_advdiff/gad_del2.F |
11 |
GAD_DEL2 |
I bi,bj,k, |
|
./pkg/generic_advdiff/gad_del2.F |
33 |
GAD_DEL2 |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_del2.F |
58 |
GAD_DEL2 |
del2(i,j)=recip_rA(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/generic_advdiff/gad_del2.F |
59 |
GAD_DEL2 |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
112 |
GAD_DIAGNOSTICS_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
119 |
GAD_DIAGNOSTICS_STATE |
recipVol = recip_rA(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
120 |
GAD_DIAGNOSTICS_STATE |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
123 |
GAD_DIAGNOSTICS_STATE |
& ( som_S(i,j,k,bi,bj,1)*som_S(i,j,k,bi,bj,1) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
124 |
GAD_DIAGNOSTICS_STATE |
& + som_S(i,j,k,bi,bj,2)*som_S(i,j,k,bi,bj,2) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
125 |
GAD_DIAGNOSTICS_STATE |
& + som_S(i,j,k,bi,bj,3)*som_S(i,j,k,bi,bj,3) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
127 |
GAD_DIAGNOSTICS_STATE |
& + ( som_S(i,j,k,bi,bj,4)*som_S(i,j,k,bi,bj,4) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
128 |
GAD_DIAGNOSTICS_STATE |
& + som_S(i,j,k,bi,bj,5)*som_S(i,j,k,bi,bj,5) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
129 |
GAD_DIAGNOSTICS_STATE |
& + som_S(i,j,k,bi,bj,6)*som_S(i,j,k,bi,bj,6) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
131 |
GAD_DIAGNOSTICS_STATE |
& + ( som_S(i,j,k,bi,bj,7)*som_S(i,j,k,bi,bj,7) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
132 |
GAD_DIAGNOSTICS_STATE |
& + som_S(i,j,k,bi,bj,8)*som_S(i,j,k,bi,bj,8) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
133 |
GAD_DIAGNOSTICS_STATE |
& + som_S(i,j,k,bi,bj,9)*som_S(i,j,k,bi,bj,9) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
140 |
GAD_DIAGNOSTICS_STATE |
& 0, Nr, 2, bi, bj, myThid ) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
45 |
GAD_DIAGNOSTICS_STATE |
INTEGER i,j,k,bi,bj,n |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
67 |
GAD_DIAGNOSTICS_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
74 |
GAD_DIAGNOSTICS_STATE |
recipVol = recip_rA(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
75 |
GAD_DIAGNOSTICS_STATE |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
78 |
GAD_DIAGNOSTICS_STATE |
& ( som_T(i,j,k,bi,bj,1)*som_T(i,j,k,bi,bj,1) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
79 |
GAD_DIAGNOSTICS_STATE |
& + som_T(i,j,k,bi,bj,2)*som_T(i,j,k,bi,bj,2) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
80 |
GAD_DIAGNOSTICS_STATE |
& + som_T(i,j,k,bi,bj,3)*som_T(i,j,k,bi,bj,3) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
82 |
GAD_DIAGNOSTICS_STATE |
& + ( som_T(i,j,k,bi,bj,4)*som_T(i,j,k,bi,bj,4) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
83 |
GAD_DIAGNOSTICS_STATE |
& + som_T(i,j,k,bi,bj,5)*som_T(i,j,k,bi,bj,5) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
84 |
GAD_DIAGNOSTICS_STATE |
& + som_T(i,j,k,bi,bj,6)*som_T(i,j,k,bi,bj,6) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
86 |
GAD_DIAGNOSTICS_STATE |
& + ( som_T(i,j,k,bi,bj,7)*som_T(i,j,k,bi,bj,7) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
87 |
GAD_DIAGNOSTICS_STATE |
& + som_T(i,j,k,bi,bj,8)*som_T(i,j,k,bi,bj,8) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
88 |
GAD_DIAGNOSTICS_STATE |
& + som_T(i,j,k,bi,bj,9)*som_T(i,j,k,bi,bj,9) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
96 |
GAD_DIAGNOSTICS_STATE |
& 0, Nr, 2, bi, bj, myThid ) |
|
./pkg/generic_advdiff/gad_diff_r.F |
11 |
GAD_DIFF_R |
I bi, bj, k, |
|
./pkg/generic_advdiff/gad_diff_r.F |
37 |
GAD_DIFF_R |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_diff_r.F |
64 |
GAD_DIFF_R |
& *_rA(i,j,bi,bj)*deepFac2F(k)*rhoFacF(k) |
|
./pkg/generic_advdiff/gad_diff_x.F |
11 |
GAD_DIFF_X |
I bi,bj,k, |
|
./pkg/generic_advdiff/gad_diff_x.F |
36 |
GAD_DIFF_X |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_diff_x.F |
55 |
GAD_DIFF_X |
& *_recip_dxC(i,j,bi,bj)*recip_deepFacC(k) |
|
./pkg/generic_advdiff/gad_diff_x.F |
57 |
GAD_DIFF_X |
& *cosFacU(j,bi,bj) |
|
./model/inc/RECIP_HFACS_MACROS.h |
36 |
NO PROCEDURE |
# define _recip_hFacS(i,j,k,bi,bj) recip_hFacS(i,j,k,bi,bj)*maskS(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_diff_y.F |
11 |
GAD_DIFF_Y |
I bi,bj,k, |
|
./pkg/generic_advdiff/gad_diff_y.F |
36 |
GAD_DIFF_Y |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_diff_y.F |
57 |
GAD_DIFF_Y |
& *_recip_dyC(i,j,bi,bj)*recip_deepFacC(k) |
|
./pkg/generic_advdiff/gad_diff_y.F |
60 |
GAD_DIFF_Y |
& *cosFacV(j,bi,bj) |
|
./pkg/generic_advdiff/gad_dst2u1_adv_r.F |
11 |
GAD_DST2U1_ADV_R |
I bi,bj,k, advectionScheme, |
|
./pkg/generic_advdiff/gad_dst2u1_adv_r.F |
38 |
GAD_DST2U1_ADV_R |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_dst2u1_adv_r.F |
90 |
GAD_DST2U1_ADV_R |
wT(i,j) = maskC(i,j,km1,bi,bj)*( |
|
./pkg/generic_advdiff/gad_dst2u1_adv_x.F |
11 |
GAD_DST2U1_ADV_X |
I bi,bj,k, advectionScheme, calcCFL, |
|
./pkg/generic_advdiff/gad_dst2u1_adv_x.F |
39 |
GAD_DST2U1_ADV_X |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_dst2u1_adv_x.F |
71 |
GAD_DST2U1_ADV_X |
& *recip_dxC(i,j,bi,bj)*recip_deepFacC(k) ) |
|
./pkg/generic_advdiff/gad_dst2u1_adv_y.F |
11 |
GAD_DST2U1_ADV_Y |
I bi,bj,k, advectionScheme, calcCFL, |
|
./pkg/generic_advdiff/gad_dst2u1_adv_y.F |
39 |
GAD_DST2U1_ADV_Y |
INTEGER bi,bj, k, advectionScheme |
|
./pkg/generic_advdiff/gad_dst2u1_adv_y.F |
70 |
GAD_DST2U1_ADV_Y |
& *recip_dyC(i,j,bi,bj)*recip_deepFacC(k) ) |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
10 |
GAD_DST2U1_IMPL_R |
I bi,bj,k, iMin,iMax,jMin,jMax, |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
47 |
GAD_DST2U1_IMPL_R |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
85 |
GAD_DST2U1_IMPL_R |
rCenter = 0.5 _d 0 *rTrans(i,j)*recip_rA(i,j,bi,bj)*rkSign |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
11 |
GAD_DST3_ADV_R |
I bi,bj,k,dTarg, |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
42 |
GAD_DST3_ADV_R |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
80 |
GAD_DST3_ADV_R |
& *maskC(i,j,kp1,bi,bj) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
82 |
GAD_DST3_ADV_R |
& *maskC(i,j,k,bi,bj)*maskC(i,j,km1,bi,bj) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
84 |
GAD_DST3_ADV_R |
& *maskC(i,j,km1,bi,bj) |
|
./pkg/generic_advdiff/gad_dst3_adv_x.F |
11 |
GAD_DST3_ADV_X |
I bi,bj,k, calcCFL, deltaTloc, |
|
./pkg/generic_advdiff/gad_dst3_adv_x.F |
43 |
GAD_DST3_ADV_X |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_dst3_adv_x.F |
87 |
GAD_DST3_ADV_X |
& *recip_dxC(i,j,bi,bj)*recip_deepFacC(k) ) |
|
./pkg/generic_advdiff/gad_dst3_adv_y.F |
11 |
GAD_DST3_ADV_Y |
I bi,bj,k, calcCFL, deltaTloc, |
|
./pkg/generic_advdiff/gad_dst3_adv_y.F |
42 |
GAD_DST3_ADV_Y |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_dst3_adv_y.F |
86 |
GAD_DST3_ADV_Y |
& *recip_dyC(i,j,bi,bj)*recip_deepFacC(k) ) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
11 |
GAD_DST3FL_ADV_R |
I bi,bj,k,dTarg, |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
38 |
GAD_DST3FL_ADV_R |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
74 |
GAD_DST3FL_ADV_R |
& *maskC(i,j,kp1,bi,bj) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
76 |
GAD_DST3FL_ADV_R |
& *maskC(i,j,k,bi,bj)*maskC(i,j,km1,bi,bj) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
78 |
GAD_DST3FL_ADV_R |
& *maskC(i,j,km1,bi,bj) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
25 |
GAD_DST3FL_ADV_X |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
63 |
GAD_DST3FL_ADV_X |
& *recip_dxC(i,j,bi,bj)*recip_deepFacC(k) ) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
7 |
GAD_DST3FL_ADV_X |
I bi,bj,k, calcCFL, deltaTloc, |
|
./model/inc/RECIP_HFACW_MACROS.h |
36 |
NO PROCEDURE |
# define _recip_hFacW(i,j,k,bi,bj) recip_hFacW(i,j,k,bi,bj)*maskW(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
25 |
GAD_DST3FL_ADV_Y |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
59 |
GAD_DST3FL_ADV_Y |
& *recip_dyC(i,j,bi,bj)*recip_deepFacC(k) ) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
7 |
GAD_DST3FL_ADV_Y |
I bi,bj,k, calcCFL, deltaTloc, |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
103 |
GAD_DST3FL_IMPL_R |
& *recip_rA(i,j,bi,bj)*recip_drC(k) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
10 |
GAD_DST3FL_IMPL_R |
I bi,bj,k, iMin,iMax,jMin,jMax, |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
112 |
GAD_DST3FL_IMPL_R |
Rjh = (tFld(i,j,k-1)-tFld(i,j,km2))*maskC(i,j,km2,bi,bj) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
114 |
GAD_DST3FL_IMPL_R |
Rjh = (tFld(i,j,kp1)-tFld(i,j,k) )*maskC(i,j,kp1,bi,bj) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
145 |
GAD_DST3FL_IMPL_R |
rCenter= 0.5 _d 0 *rTrans(i,j)*recip_rA(i,j,bi,bj)*rkSign |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
146 |
GAD_DST3FL_IMPL_R |
mskM = maskC(i,j,km2,bi,bj)*maskM2 |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
147 |
GAD_DST3FL_IMPL_R |
mskP = maskC(i,j,kp1,bi,bj)*maskP1 |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
50 |
GAD_DST3FL_IMPL_R |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
107 |
GAD_FLUXLIMIT_ADV_R |
wT(i,j) = maskC(i,j,kM1,bi,bj)*( |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
11 |
GAD_FLUXLIMIT_ADV_R |
I bi,bj,k,dTarg, |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
44 |
GAD_FLUXLIMIT_ADV_R |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
88 |
GAD_FLUXLIMIT_ADV_R |
& *maskC(i,j,kp1,bi,bj) |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
91 |
GAD_FLUXLIMIT_ADV_R |
& *maskC(i,j,km2,bi,bj) |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F |
11 |
GAD_FLUXLIMIT_ADV_X |
I bi,bj,k, calcCFL, deltaTloc, |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F |
44 |
GAD_FLUXLIMIT_ADV_X |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F |
78 |
GAD_FLUXLIMIT_ADV_X |
& *recip_dxC(i,j,bi,bj)*recip_deepFacC(k) ) |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F |
11 |
GAD_FLUXLIMIT_ADV_Y |
I bi,bj,k, calcCFL, deltaTloc, |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F |
44 |
GAD_FLUXLIMIT_ADV_Y |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F |
78 |
GAD_FLUXLIMIT_ADV_Y |
& *recip_dyC(i,j,bi,bj)*recip_deepFacC(k) ) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
10 |
GAD_FLUXLIMIT_IMPL_R |
I bi,bj,k, iMin,iMax,jMin,jMax, |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
112 |
GAD_FLUXLIMIT_IMPL_R |
rCenter = 0.5 _d 0 *rTrans(i,j)*recip_rA(i,j,bi,bj)*rkSign |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
45 |
GAD_FLUXLIMIT_IMPL_R |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
88 |
GAD_FLUXLIMIT_IMPL_R |
w_CFL = deltaTcfl*rTrans(i,j)*recip_rA(i,j,bi,bj)*recip_drC(k) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
90 |
GAD_FLUXLIMIT_IMPL_R |
Rjp=(tFld(i,j,kp1)-tFld(i,j,k) )*maskC(i,j,kp1,bi,bj) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
92 |
GAD_FLUXLIMIT_IMPL_R |
Rjm=(tFld(i,j,km1)-tFld(i,j,km2))*maskC(i,j,km2,bi,bj) |
|
./pkg/generic_advdiff/gad_grad_x.F |
11 |
GAD_GRAD_X |
I bi,bj,k, |
|
./pkg/generic_advdiff/gad_grad_x.F |
32 |
GAD_GRAD_X |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_grad_x.F |
54 |
GAD_GRAD_X |
& tracer, bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_grad_x.F |
63 |
GAD_GRAD_X |
& *_recip_dxC(i,j,bi,bj)*recip_deepFacC(k) |
|
./pkg/generic_advdiff/gad_grad_x.F |
66 |
GAD_GRAD_X |
& *sqCosFacU(j,bi,bj) |
|
./pkg/generic_advdiff/gad_grad_x.F |
69 |
GAD_GRAD_X |
& *maskInW(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_grad_y.F |
11 |
GAD_GRAD_Y |
I bi,bj,k, |
|
./pkg/generic_advdiff/gad_grad_y.F |
32 |
GAD_GRAD_Y |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_grad_y.F |
54 |
GAD_GRAD_Y |
& tracer, bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_grad_y.F |
65 |
GAD_GRAD_Y |
& *_recip_dyC(i,j,bi,bj)*recip_deepFacC(k) |
|
./pkg/generic_advdiff/gad_grad_y.F |
69 |
GAD_GRAD_Y |
& *sqCosFacV(j,bi,bj) |
|
./pkg/generic_advdiff/gad_grad_y.F |
73 |
GAD_GRAD_Y |
& *maskInS(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
128 |
GAD_IMPLICIT_R |
b5d(i,j,k) = -deltaTLev(k)*maskC(i,j,k-1,bi,bj) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
140 |
GAD_IMPLICIT_R |
d5d(i,j,k) = -deltaTLev(k)*maskC(i,j,k+1,bi,bj) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
14 |
GAD_IMPLICIT_R |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
198 |
GAD_IMPLICIT_R |
rTrans(i,j) = wFld(i,j,k)*rA(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
200 |
GAD_IMPLICIT_R |
& *maskC(i,j,k-1,bi,bj) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
216 |
GAD_IMPLICIT_R |
CALL GAD_C2_IMPL_R( bi,bj,k, iMin,iMax,jMin,jMax, |
|
./pkg/generic_advdiff/gad_implicit_r.F |
223 |
GAD_IMPLICIT_R |
CALL GAD_DST2U1_IMPL_R( bi,bj,k, iMin,iMax,jMin,jMax, |
|
./pkg/generic_advdiff/gad_implicit_r.F |
230 |
GAD_IMPLICIT_R |
CALL GAD_FLUXLIMIT_IMPL_R( bi,bj,k, iMin,iMax,jMin,jMax, |
|
./pkg/generic_advdiff/gad_implicit_r.F |
238 |
GAD_IMPLICIT_R |
CALL GAD_U3C4_IMPL_R( bi,bj,k, iMin,iMax,jMin,jMax, |
|
./pkg/generic_advdiff/gad_implicit_r.F |
245 |
GAD_IMPLICIT_R |
CALL GAD_DST3FL_IMPL_R( bi,bj,k, iMin,iMax,jMin,jMax, |
|
./pkg/generic_advdiff/gad_implicit_r.F |
268 |
GAD_IMPLICIT_R |
I bi, bj, myThid ) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
279 |
GAD_IMPLICIT_R |
I bi, bj, myThid ) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
314 |
GAD_IMPLICIT_R |
& -rA(i,j,bi,bj)*deepFac2F(k)*rhoFacF(k) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
318 |
GAD_IMPLICIT_R |
& * maskC(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
319 |
GAD_IMPLICIT_R |
& * maskC(i,j,k-1,bi,bj) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
334 |
GAD_IMPLICIT_R |
CALL DIAGNOSTICS_FILL(df,diagName, k,1, 2,bi,bj, myThid) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
335 |
GAD_IMPLICIT_R |
IF ( k.EQ.2 ) CALL DIAGNOSTICS_COUNT(diagName,bi,bj,myThid) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
339 |
GAD_IMPLICIT_R |
& k, 1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
385 |
GAD_IMPLICIT_R |
div(i,j) = div(i,j)*h0FacC(i,j,k,bi,bj)*drF(k) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
386 |
GAD_IMPLICIT_R |
& *rStarFacC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
393 |
GAD_IMPLICIT_R |
& _hFacC(i,j,k,bi,bj)*drF(k) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
394 |
GAD_IMPLICIT_R |
& + dBHybSigF(k)*dEtaHdt(i,j,bi,bj)*deltaTFreeSurf |
|
./pkg/generic_advdiff/gad_implicit_r.F |
401 |
GAD_IMPLICIT_R |
IF ( k.EQ.kSurfC(i,j,bi,bj) ) THEN |
|
./pkg/generic_advdiff/gad_implicit_r.F |
402 |
GAD_IMPLICIT_R |
div(i,j) = div(i,j)*hFac_surfC(i,j,bi,bj)*drF(k) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
404 |
GAD_IMPLICIT_R |
div(i,j) = div(i,j)*_hFacC(i,j,k,bi,bj)*drF(k) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
416 |
GAD_IMPLICIT_R |
div(i,j) = div(i,j)*_hFacC(i,j,k,bi,bj)*drF(k) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
426 |
GAD_IMPLICIT_R |
& - rkSign*div(i,j)*rA(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
433 |
GAD_IMPLICIT_R |
CALL DIAGNOSTICS_FILL(af,diagName, k,1, 2,bi,bj, myThid) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
437 |
GAD_IMPLICIT_R |
& k,1,2,bi,bj,myThid) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
51 |
GAD_IMPLICIT_R |
INTEGER bi, bj |
|
./pkg/generic_advdiff/gad_init_varia.F |
37 |
GAD_INIT_VARIA |
INTEGER i,j,k,bi,bj |
|
./pkg/generic_advdiff/gad_init_varia.F |
40 |
GAD_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/generic_advdiff/gad_init_varia.F |
49 |
GAD_INIT_VARIA |
som_T(i,j,k,bi,bj,n) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_init_varia.F |
51 |
GAD_INIT_VARIA |
som_S(i,j,k,bi,bj,n) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
25 |
GAD_OS7MP_ADV_R |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
74 |
GAD_OS7MP_ADV_R |
MskIpp = maskC(i,j,kp2,bi,bj) * float(kp2-kp1) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
75 |
GAD_OS7MP_ADV_R |
MskIp = maskC(i,j,kp1,bi,bj) * float(kp1-k) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
76 |
GAD_OS7MP_ADV_R |
MskI = maskC(i,j,k,bi,bj) * float(k-km1) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
77 |
GAD_OS7MP_ADV_R |
MskIm = maskC(i,j,km1,bi,bj) * float(km1-km2) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
78 |
GAD_OS7MP_ADV_R |
MskImm = maskC(i,j,km2,bi,bj) * float(km2-km3) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
79 |
GAD_OS7MP_ADV_R |
MskImmm = maskC(i,j,km3,bi,bj) * float(km3-km4) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
7 |
GAD_OS7MP_ADV_R |
I bi,bj,k,deltaTloc, |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
89 |
GAD_OS7MP_ADV_R |
MskIpp = maskC(i,j,km2,bi,bj) * float(km2-km3) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
90 |
GAD_OS7MP_ADV_R |
MskIp = maskC(i,j,km1,bi,bj) * float(km1-km2) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
91 |
GAD_OS7MP_ADV_R |
MskI = maskC(i,j,k,bi,bj) * float(k-km1) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
92 |
GAD_OS7MP_ADV_R |
MskIm = maskC(i,j,kp1,bi,bj) * float(kp1-k) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
93 |
GAD_OS7MP_ADV_R |
MskImm = maskC(i,j,kp2,bi,bj) * float(kp2-kp1) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
94 |
GAD_OS7MP_ADV_R |
MskImmm = maskC(i,j,kp3,bi,bj) * float(kp3-kp2) |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
25 |
GAD_OS7MP_ADV_X |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
67 |
GAD_OS7MP_ADV_X |
IF ( calcCFL ) cfl = abs(uLoc*deltaTloc*recip_dxC(i,j,bi,bj)) |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
7 |
GAD_OS7MP_ADV_X |
I bi,bj,k, calcCFL, deltaTloc, |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
25 |
GAD_OS7MP_ADV_Y |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
67 |
GAD_OS7MP_ADV_Y |
IF ( calcCFL ) cfl = abs(vLoc*deltaTloc*recip_dyC(i,j,bi,bj)) |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
7 |
GAD_OS7MP_ADV_Y |
I bi,bj,k, calcCFL, deltaTloc, |
|
./pkg/generic_advdiff/gad_osc_hat_r.F |
110 |
GAD_OSC_HAT_R |
integer bi,bj,ix,iy |
|
./pkg/generic_advdiff/gad_osc_hat_r.F |
98 |
GAD_OSC_HAT_R |
SUBROUTINE GAD_OSC_HAT_R(bi,bj,ix,iy, |
|
./pkg/generic_advdiff/gad_osc_hat_x.F |
106 |
GAD_OSC_HAT_X |
SUBROUTINE GAD_OSC_HAT_X(bi,bj,kk,iy, |
|
./pkg/generic_advdiff/gad_osc_hat_x.F |
118 |
GAD_OSC_HAT_X |
integer bi,bj,kk,iy |
|
./pkg/generic_advdiff/gad_osc_hat_y.F |
106 |
GAD_OSC_HAT_Y |
SUBROUTINE GAD_OSC_HAT_Y(bi,bj,kk,ix, |
|
./pkg/generic_advdiff/gad_osc_hat_y.F |
118 |
GAD_OSC_HAT_Y |
integer bi,bj,kk,ix |
|
./pkg/generic_advdiff/gad_ppm_adv_r.F |
113 |
GAD_PPM_ADV_R |
& maskC(ix,iy,ir,bi,bj) |
|
./pkg/generic_advdiff/gad_ppm_adv_r.F |
126 |
GAD_PPM_ADV_R |
CALL GAD_OSC_HAT_R(bi,bj,ix,iy, |
|
./pkg/generic_advdiff/gad_ppm_adv_r.F |
132 |
GAD_PPM_ADV_R |
CALL GAD_PPM_P3E_R(bi,bj,ix,iy, |
|
./pkg/generic_advdiff/gad_ppm_adv_r.F |
137 |
GAD_PPM_ADV_R |
CALL GAD_PPM_HAT_R(bi,bj,ix,iy, |
|
./pkg/generic_advdiff/gad_ppm_adv_r.F |
144 |
GAD_PPM_ADV_R |
CALL GAD_PPM_FLX_R(bi,bj,ix,iy, |
|
./pkg/generic_advdiff/gad_ppm_adv_r.F |
32 |
GAD_PPM_ADV_R |
integer bi,bj |
|
./pkg/generic_advdiff/gad_ppm_adv_r.F |
6 |
GAD_PPM_ADV_R |
SUBROUTINE GAD_PPM_ADV_R(meth,bi,bj, |
|
./pkg/generic_advdiff/gad_ppm_adv_x.F |
108 |
GAD_PPM_ADV_X |
& maskC(ix,iy,kk,bi,bj) |
|
./pkg/generic_advdiff/gad_ppm_adv_x.F |
113 |
GAD_PPM_ADV_X |
CALL GAD_OSC_HAT_X(bi,bj,kk,iy, |
|
./pkg/generic_advdiff/gad_ppm_adv_x.F |
119 |
GAD_PPM_ADV_X |
CALL GAD_PPM_P3E_X(bi,bj,kk,iy, |
|
./pkg/generic_advdiff/gad_ppm_adv_x.F |
124 |
GAD_PPM_ADV_X |
CALL GAD_PPM_HAT_X(bi,bj,kk,iy, |
|
./pkg/generic_advdiff/gad_ppm_adv_x.F |
131 |
GAD_PPM_ADV_X |
CALL GAD_PPM_FLX_X(bi,bj,kk,iy, |
|
./pkg/generic_advdiff/gad_ppm_adv_x.F |
34 |
GAD_PPM_ADV_X |
integer bi,bj,kk |
|
./pkg/generic_advdiff/gad_ppm_adv_x.F |
6 |
GAD_PPM_ADV_X |
SUBROUTINE GAD_PPM_ADV_X(meth,bi,bj,kk, |
|
./pkg/generic_advdiff/gad_ppm_adv_y.F |
108 |
GAD_PPM_ADV_Y |
& maskC(ix,iy,kk,bi,bj) |
|
./pkg/generic_advdiff/gad_ppm_adv_y.F |
113 |
GAD_PPM_ADV_Y |
CALL GAD_OSC_HAT_Y(bi,bj,kk,ix, |
|
./pkg/generic_advdiff/gad_ppm_adv_y.F |
119 |
GAD_PPM_ADV_Y |
CALL GAD_PPM_P3E_Y(bi,bj,kk,ix, |
|
./pkg/generic_advdiff/gad_ppm_adv_y.F |
124 |
GAD_PPM_ADV_Y |
CALL GAD_PPM_HAT_Y(bi,bj,kk,ix, |
|
./pkg/generic_advdiff/gad_ppm_adv_y.F |
131 |
GAD_PPM_ADV_Y |
CALL GAD_PPM_FLX_Y(bi,bj,kk,ix, |
|
./pkg/generic_advdiff/gad_ppm_adv_y.F |
34 |
GAD_PPM_ADV_Y |
integer bi,bj,kk |
|
./pkg/generic_advdiff/gad_ppm_adv_y.F |
6 |
GAD_PPM_ADV_Y |
SUBROUTINE GAD_PPM_ADV_Y(meth,bi,bj,kk, |
|
./pkg/generic_advdiff/gad_ppm_flx_r.F |
31 |
GAD_PPM_FLX_R |
integer bi,bj,ix,iy |
|
./pkg/generic_advdiff/gad_ppm_flx_r.F |
6 |
GAD_PPM_FLX_R |
SUBROUTINE GAD_PPM_FLX_R(bi,bj,ix,iy, |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
106 |
GAD_PPM_FLX_X |
& * recip_dxF(ix-0,iy,bi,bj) |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
32 |
GAD_PPM_FLX_X |
integer bi,bj,kk,iy |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
6 |
GAD_PPM_FLX_X |
SUBROUTINE GAD_PPM_FLX_X(bi,bj,kk,iy, |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
79 |
GAD_PPM_FLX_X |
& * recip_dxF(ix-1,iy,bi,bj) |
|
./pkg/generic_advdiff/gad_ppm_flx_y.F |
106 |
GAD_PPM_FLX_Y |
& * recip_dyF(ix,iy-0,bi,bj) |
|
./pkg/generic_advdiff/gad_ppm_flx_y.F |
32 |
GAD_PPM_FLX_Y |
integer bi,bj,kk,ix |
|
./pkg/generic_advdiff/gad_ppm_flx_y.F |
6 |
GAD_PPM_FLX_Y |
SUBROUTINE GAD_PPM_FLX_Y(bi,bj,kk,ix, |
|
./pkg/generic_advdiff/gad_ppm_flx_y.F |
79 |
GAD_PPM_FLX_Y |
& * recip_dyF(ix,iy-1,bi,bj) |
|
./pkg/generic_advdiff/gad_ppm_hat_r.F |
34 |
GAD_PPM_HAT_R |
integer bi,bj,ix,iy |
|
./pkg/generic_advdiff/gad_ppm_hat_r.F |
6 |
GAD_PPM_HAT_R |
SUBROUTINE GAD_PPM_HAT_R(bi,bj,ix,iy, |
|
./pkg/generic_advdiff/gad_ppm_hat_x.F |
35 |
GAD_PPM_HAT_X |
integer bi,bj,kk,iy |
|
./pkg/generic_advdiff/gad_ppm_hat_x.F |
6 |
GAD_PPM_HAT_X |
SUBROUTINE GAD_PPM_HAT_X(bi,bj,kk,iy, |
|
./pkg/generic_advdiff/gad_ppm_hat_y.F |
35 |
GAD_PPM_HAT_Y |
integer bi,bj,kk,ix |
|
./pkg/generic_advdiff/gad_ppm_hat_y.F |
6 |
GAD_PPM_HAT_Y |
SUBROUTINE GAD_PPM_HAT_Y(bi,bj,kk,ix, |
|
./pkg/generic_advdiff/gad_ppm_p3e_r.F |
21 |
GAD_PPM_P3E_R |
integer bi,bj,ix,iy |
|
./pkg/generic_advdiff/gad_ppm_p3e_r.F |
6 |
GAD_PPM_P3E_R |
SUBROUTINE GAD_PPM_P3E_R(bi,bj,ix,iy, |
|
./pkg/generic_advdiff/gad_ppm_p3e_x.F |
21 |
GAD_PPM_P3E_X |
integer bi,bj,kk,iy |
|
./pkg/generic_advdiff/gad_ppm_p3e_x.F |
6 |
GAD_PPM_P3E_X |
SUBROUTINE GAD_PPM_P3E_X(bi,bj,kk,iy, |
|
./pkg/generic_advdiff/gad_ppm_p3e_y.F |
21 |
GAD_PPM_P3E_Y |
integer bi,bj,kk,ix |
|
./pkg/generic_advdiff/gad_ppm_p3e_y.F |
6 |
GAD_PPM_P3E_Y |
SUBROUTINE GAD_PPM_P3E_Y(bi,bj,kk,ix, |
|
./pkg/generic_advdiff/gad_pqm_adv_r.F |
108 |
GAD_PQM_ADV_R |
& maskC(ix,iy,ir,bi,bj) |
|
./pkg/generic_advdiff/gad_pqm_adv_r.F |
123 |
GAD_PQM_ADV_R |
CALL GAD_OSC_HAT_R(bi,bj,ix,iy, |
|
./pkg/generic_advdiff/gad_pqm_adv_r.F |
129 |
GAD_PQM_ADV_R |
CALL GAD_PQM_P5E_R(bi,bj,ix,iy, |
|
./pkg/generic_advdiff/gad_pqm_adv_r.F |
134 |
GAD_PQM_ADV_R |
CALL GAD_PQM_HAT_R(bi,bj,ix,iy, |
|
./pkg/generic_advdiff/gad_pqm_adv_r.F |
141 |
GAD_PQM_ADV_R |
CALL GAD_PQM_FLX_R(bi,bj,ix,iy, |
|
./pkg/generic_advdiff/gad_pqm_adv_r.F |
32 |
GAD_PQM_ADV_R |
integer bi,bj |
|
./pkg/generic_advdiff/gad_pqm_adv_r.F |
6 |
GAD_PQM_ADV_R |
SUBROUTINE GAD_PQM_ADV_R(meth,bi,bj, |
|
./pkg/generic_advdiff/gad_pqm_adv_x.F |
104 |
GAD_PQM_ADV_X |
& maskC(ix,iy,kk,bi,bj) |
|
./pkg/generic_advdiff/gad_pqm_adv_x.F |
111 |
GAD_PQM_ADV_X |
CALL GAD_OSC_HAT_X(bi,bj,kk,iy, |
|
./pkg/generic_advdiff/gad_pqm_adv_x.F |
117 |
GAD_PQM_ADV_X |
CALL GAD_PQM_P5E_X(bi,bj,kk,iy, |
|
./pkg/generic_advdiff/gad_pqm_adv_x.F |
122 |
GAD_PQM_ADV_X |
CALL GAD_PQM_HAT_X(bi,bj,kk,iy, |
|
./pkg/generic_advdiff/gad_pqm_adv_x.F |
129 |
GAD_PQM_ADV_X |
CALL GAD_PQM_FLX_X(bi,bj,kk,iy, |
|
./pkg/generic_advdiff/gad_pqm_adv_x.F |
34 |
GAD_PQM_ADV_X |
integer bi,bj,kk |
|
./pkg/generic_advdiff/gad_pqm_adv_x.F |
6 |
GAD_PQM_ADV_X |
SUBROUTINE GAD_PQM_ADV_X(meth,bi,bj,kk, |
|
./pkg/generic_advdiff/gad_pqm_adv_y.F |
104 |
GAD_PQM_ADV_Y |
& maskC(ix,iy,kk,bi,bj) |
|
./pkg/generic_advdiff/gad_pqm_adv_y.F |
111 |
GAD_PQM_ADV_Y |
CALL GAD_OSC_HAT_Y(bi,bj,kk,ix, |
|
./pkg/generic_advdiff/gad_pqm_adv_y.F |
117 |
GAD_PQM_ADV_Y |
CALL GAD_PQM_P5E_Y(bi,bj,kk,ix, |
|
./pkg/generic_advdiff/gad_pqm_adv_y.F |
122 |
GAD_PQM_ADV_Y |
CALL GAD_PQM_HAT_Y(bi,bj,kk,ix, |
|
./pkg/generic_advdiff/gad_pqm_adv_y.F |
129 |
GAD_PQM_ADV_Y |
CALL GAD_PQM_FLX_Y(bi,bj,kk,ix, |
|
./pkg/generic_advdiff/gad_pqm_adv_y.F |
34 |
GAD_PQM_ADV_Y |
integer bi,bj,kk |
|
./pkg/generic_advdiff/gad_pqm_adv_y.F |
6 |
GAD_PQM_ADV_Y |
SUBROUTINE GAD_PQM_ADV_Y(meth,bi,bj,kk, |
|
./pkg/generic_advdiff/gad_pqm_flx_r.F |
31 |
GAD_PQM_FLX_R |
integer bi,bj,ix,iy |
|
./pkg/generic_advdiff/gad_pqm_flx_r.F |
6 |
GAD_PQM_FLX_R |
SUBROUTINE GAD_PQM_FLX_R(bi,bj,ix,iy, |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
112 |
GAD_PQM_FLX_X |
& * recip_dxF(ix-0,iy,bi,bj) |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
32 |
GAD_PQM_FLX_X |
integer bi,bj,kk,iy |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
6 |
GAD_PQM_FLX_X |
SUBROUTINE GAD_PQM_FLX_X(bi,bj,kk,iy, |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
79 |
GAD_PQM_FLX_X |
& * recip_dxF(ix-1,iy,bi,bj) |
|
./pkg/generic_advdiff/gad_pqm_flx_y.F |
112 |
GAD_PQM_FLX_Y |
& * recip_dyF(ix,iy-0,bi,bj) |
|
./pkg/generic_advdiff/gad_pqm_flx_y.F |
32 |
GAD_PQM_FLX_Y |
integer bi,bj,kk,ix |
|
./pkg/generic_advdiff/gad_pqm_flx_y.F |
6 |
GAD_PQM_FLX_Y |
SUBROUTINE GAD_PQM_FLX_Y(bi,bj,kk,ix, |
|
./pkg/generic_advdiff/gad_pqm_flx_y.F |
79 |
GAD_PQM_FLX_Y |
& * recip_dyF(ix,iy-1,bi,bj) |
|
./pkg/generic_advdiff/gad_pqm_hat_r.F |
36 |
GAD_PQM_HAT_R |
integer bi,bj |
|
./pkg/generic_advdiff/gad_pqm_hat_r.F |
6 |
GAD_PQM_HAT_R |
SUBROUTINE GAD_PQM_HAT_R(bi,bj,ix,iy, |
|
./pkg/generic_advdiff/gad_pqm_hat_x.F |
37 |
GAD_PQM_HAT_X |
integer bi,bj,kk,iy |
|
./pkg/generic_advdiff/gad_pqm_hat_x.F |
6 |
GAD_PQM_HAT_X |
SUBROUTINE GAD_PQM_HAT_X(bi,bj,kk,iy, |
|
./pkg/generic_advdiff/gad_pqm_hat_x.F |
80 |
GAD_PQM_HAT_X |
xhat = dxF(ix,iy,bi,bj) * 0.5 _d 0 |
|
./pkg/generic_advdiff/gad_pqm_hat_y.F |
37 |
GAD_PQM_HAT_Y |
integer bi,bj,kk,ix |
|
./pkg/generic_advdiff/gad_pqm_hat_y.F |
6 |
GAD_PQM_HAT_Y |
SUBROUTINE GAD_PQM_HAT_Y(bi,bj,kk,ix, |
|
./pkg/generic_advdiff/gad_pqm_hat_y.F |
81 |
GAD_PQM_HAT_Y |
yhat = dyF(ix,iy,bi,bj) * 0.5 _d 0 |
|
./pkg/generic_advdiff/gad_pqm_p5e_r.F |
21 |
GAD_PQM_P5E_R |
integer bi,bj,ix,iy |
|
./pkg/generic_advdiff/gad_pqm_p5e_r.F |
6 |
GAD_PQM_P5E_R |
SUBROUTINE GAD_PQM_P5E_R(bi,bj,ix,iy, |
|
./pkg/generic_advdiff/gad_pqm_p5e_x.F |
21 |
GAD_PQM_P5E_X |
integer bi,bj,kk,iy |
|
./pkg/generic_advdiff/gad_pqm_p5e_x.F |
6 |
GAD_PQM_P5E_X |
SUBROUTINE GAD_PQM_P5E_X(bi,bj,kk,iy, |
|
./pkg/generic_advdiff/gad_pqm_p5e_x.F |
75 |
GAD_PQM_P5E_X |
& ) * recip_dxC(ix,iy,bi,bj) |
|
./pkg/generic_advdiff/gad_pqm_p5e_y.F |
21 |
GAD_PQM_P5E_Y |
integer bi,bj,kk,ix |
|
./pkg/generic_advdiff/gad_pqm_p5e_y.F |
6 |
GAD_PQM_P5E_Y |
SUBROUTINE GAD_PQM_P5E_Y(bi,bj,kk,ix, |
|
./pkg/generic_advdiff/gad_pqm_p5e_y.F |
76 |
GAD_PQM_P5E_Y |
& ) * recip_dyC(ix,iy,bi,bj) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
11 |
GAD_SOM_ADV_R |
I bi,bj,k, kUp, kDw, |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
258 |
GAD_SOM_ADV_R |
IF ( k.EQ.kSurfC(i,j,bi,bj) ) THEN |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
55 |
GAD_SOM_ADV_R |
INTEGER bi,bj,k, kUp, kDw |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
11 |
GAD_SOM_ADV_X |
I bi,bj,k, limiter, |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
52 |
GAD_SOM_ADV_X |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
11 |
GAD_SOM_ADV_Y |
I bi,bj,k, limiter, |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
52 |
GAD_SOM_ADV_Y |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_som_advect.F |
17 |
GAD_SOM_ADVECT |
I bi,bj, myTime,myIter,myThid) |
|
./pkg/generic_advdiff/gad_som_advect.F |
216 |
GAD_SOM_ADVECT |
myTile = W2_myTileList(bi,bj) |
|
./pkg/generic_advdiff/gad_som_advect.F |
246 |
GAD_SOM_ADVECT |
xA(i,j) = _dyG(i,j,bi,bj)*deepFacC(k) |
|
./pkg/generic_advdiff/gad_som_advect.F |
247 |
GAD_SOM_ADVECT |
& *drF(k)*_hFacW(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_som_advect.F |
248 |
GAD_SOM_ADVECT |
yA(i,j) = _dxG(i,j,bi,bj)*deepFacC(k) |
|
./pkg/generic_advdiff/gad_som_advect.F |
249 |
GAD_SOM_ADVECT |
& *drF(k)*_hFacS(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_som_advect.F |
264 |
GAD_SOM_ADVECT |
smVol(i,j,k) = rA(i,j,bi,bj)*deepFac2C(k) |
|
./pkg/generic_advdiff/gad_som_advect.F |
265 |
GAD_SOM_ADVECT |
& *drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_som_advect.F |
267 |
GAD_SOM_ADVECT |
smTr0(i,j,k) = tracer(i,j,k,bi,bj)*smVol(i,j,k) |
|
./pkg/generic_advdiff/gad_som_advect.F |
270 |
GAD_SOM_ADVECT |
& + (1. _d 0 - maskC(i,j,k,bi,bj)) |
|
./pkg/generic_advdiff/gad_som_advect.F |
319 |
GAD_SOM_ADVECT |
I ipass, k, Nr, bi, bj, myThid ) |
|
./pkg/generic_advdiff/gad_som_advect.F |
326 |
GAD_SOM_ADVECT |
I bi,bj,k, limiter, |
|
./pkg/generic_advdiff/gad_som_advect.F |
330 |
GAD_SOM_ADVECT |
I maskInC(1-OLx,1-OLy,bi,bj), |
|
./pkg/generic_advdiff/gad_som_advect.F |
333 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,1), |
|
./pkg/generic_advdiff/gad_som_advect.F |
334 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,2), |
|
./pkg/generic_advdiff/gad_som_advect.F |
335 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,3), |
|
./pkg/generic_advdiff/gad_som_advect.F |
336 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,4), |
|
./pkg/generic_advdiff/gad_som_advect.F |
337 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,5), |
|
./pkg/generic_advdiff/gad_som_advect.F |
338 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,6), |
|
./pkg/generic_advdiff/gad_som_advect.F |
339 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,7), |
|
./pkg/generic_advdiff/gad_som_advect.F |
340 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,8), |
|
./pkg/generic_advdiff/gad_som_advect.F |
341 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,9), |
|
./pkg/generic_advdiff/gad_som_advect.F |
366 |
GAD_SOM_ADVECT |
I iPass, k, Nr, bi, bj, myThid ) |
|
./pkg/generic_advdiff/gad_som_advect.F |
373 |
GAD_SOM_ADVECT |
I bi,bj,k, limiter, |
|
./pkg/generic_advdiff/gad_som_advect.F |
377 |
GAD_SOM_ADVECT |
I maskInC(1-OLx,1-OLy,bi,bj), |
|
./pkg/generic_advdiff/gad_som_advect.F |
380 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,1), |
|
./pkg/generic_advdiff/gad_som_advect.F |
381 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,2), |
|
./pkg/generic_advdiff/gad_som_advect.F |
382 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,3), |
|
./pkg/generic_advdiff/gad_som_advect.F |
383 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,4), |
|
./pkg/generic_advdiff/gad_som_advect.F |
384 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,5), |
|
./pkg/generic_advdiff/gad_som_advect.F |
385 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,6), |
|
./pkg/generic_advdiff/gad_som_advect.F |
386 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,7), |
|
./pkg/generic_advdiff/gad_som_advect.F |
387 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,8), |
|
./pkg/generic_advdiff/gad_som_advect.F |
388 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,9), |
|
./pkg/generic_advdiff/gad_som_advect.F |
410 |
GAD_SOM_ADVECT |
& ( smTr0(i,j,k) - tracer(i,j,k,bi,bj)*smVol(i,j,k) ) |
|
./pkg/generic_advdiff/gad_som_advect.F |
411 |
GAD_SOM_ADVECT |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/generic_advdiff/gad_som_advect.F |
412 |
GAD_SOM_ADVECT |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_som_advect.F |
422 |
GAD_SOM_ADVECT |
CALL DIAGNOSTICS_FILL(afx,diagName, k,1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_som_advect.F |
426 |
GAD_SOM_ADVECT |
CALL DIAGNOSTICS_FILL(afy,diagName, k,1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_som_advect.F |
430 |
GAD_SOM_ADVECT |
CALL LAYERS_FILL(afx,tracerIdentity,'AFX',k,1,2,bi,bj,myThid) |
|
./pkg/generic_advdiff/gad_som_advect.F |
431 |
GAD_SOM_ADVECT |
CALL LAYERS_FILL(afy,tracerIdentity,'AFY',k,1,2,bi,bj,myThid) |
|
./pkg/generic_advdiff/gad_som_advect.F |
443 |
GAD_SOM_ADVECT |
& afx,afy, k, standardMessageUnit,bi,bj,myThid ) |
|
./pkg/generic_advdiff/gad_som_advect.F |
457 |
GAD_SOM_ADVECT |
CALL GAD_SOM_LIM_R( bi,bj, limiter, |
|
./pkg/generic_advdiff/gad_som_advect.F |
460 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,1,bi,bj,1), |
|
./pkg/generic_advdiff/gad_som_advect.F |
461 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,1,bi,bj,2), |
|
./pkg/generic_advdiff/gad_som_advect.F |
462 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,1,bi,bj,3), |
|
./pkg/generic_advdiff/gad_som_advect.F |
463 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,1,bi,bj,4), |
|
./pkg/generic_advdiff/gad_som_advect.F |
464 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,1,bi,bj,5), |
|
./pkg/generic_advdiff/gad_som_advect.F |
465 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,1,bi,bj,6), |
|
./pkg/generic_advdiff/gad_som_advect.F |
466 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,1,bi,bj,7), |
|
./pkg/generic_advdiff/gad_som_advect.F |
467 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,1,bi,bj,8), |
|
./pkg/generic_advdiff/gad_som_advect.F |
468 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,1,bi,bj,9), |
|
./pkg/generic_advdiff/gad_som_advect.F |
531 |
GAD_SOM_ADVECT |
rTrans(i,j) = wFld(i,j,k)*rA(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_som_advect.F |
533 |
GAD_SOM_ADVECT |
& *maskC(i,j,k-1,bi,bj) |
|
./pkg/generic_advdiff/gad_som_advect.F |
543 |
GAD_SOM_ADVECT |
rTrans(i,j) = wFld(i,j,k)*rA(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_som_advect.F |
545 |
GAD_SOM_ADVECT |
maskUp(i,j) = maskC(i,j,km1,bi,bj)*maskC(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_som_advect.F |
556 |
GAD_SOM_ADVECT |
I bi,bj,k, kUp, kDown, |
|
./pkg/generic_advdiff/gad_som_advect.F |
558 |
GAD_SOM_ADVECT |
I maskInC(1-OLx,1-OLy,bi,bj), |
|
./pkg/generic_advdiff/gad_som_advect.F |
561 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,1,bi,bj,1), |
|
./pkg/generic_advdiff/gad_som_advect.F |
562 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,1,bi,bj,2), |
|
./pkg/generic_advdiff/gad_som_advect.F |
563 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,1,bi,bj,3), |
|
./pkg/generic_advdiff/gad_som_advect.F |
564 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,1,bi,bj,4), |
|
./pkg/generic_advdiff/gad_som_advect.F |
565 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,1,bi,bj,5), |
|
./pkg/generic_advdiff/gad_som_advect.F |
566 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,1,bi,bj,6), |
|
./pkg/generic_advdiff/gad_som_advect.F |
567 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,1,bi,bj,7), |
|
./pkg/generic_advdiff/gad_som_advect.F |
568 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,1,bi,bj,8), |
|
./pkg/generic_advdiff/gad_som_advect.F |
569 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,1,bi,bj,9), |
|
./pkg/generic_advdiff/gad_som_advect.F |
593 |
GAD_SOM_ADVECT |
& ( smTr0(i,j,k) - tracer(i,j,k,bi,bj)*smVol(i,j,k) ) |
|
./pkg/generic_advdiff/gad_som_advect.F |
594 |
GAD_SOM_ADVECT |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/generic_advdiff/gad_som_advect.F |
595 |
GAD_SOM_ADVECT |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_som_advect.F |
59 |
GAD_SOM_ADVECT |
INTEGER bi,bj |
|
./pkg/generic_advdiff/gad_som_advect.F |
605 |
GAD_SOM_ADVECT |
& diagName, k,1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_som_advect.F |
610 |
GAD_SOM_ADVECT |
& k,1,2,bi,bj,myThid) |
|
./pkg/generic_advdiff/gad_som_fill_cs_corner.F |
13 |
GAD_SOM_FILL_CS_CORNER |
I bi, bj, myThid ) |
|
./pkg/generic_advdiff/gad_som_fill_cs_corner.F |
58 |
GAD_SOM_FILL_CS_CORNER |
INTEGER bi,bj |
|
./pkg/generic_advdiff/gad_som_fill_cs_corner.F |
73 |
GAD_SOM_FILL_CS_CORNER |
& sm_v , bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_som_fill_cs_corner.F |
75 |
GAD_SOM_FILL_CS_CORNER |
& sm_o , bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_som_fill_cs_corner.F |
77 |
GAD_SOM_FILL_CS_CORNER |
& sm_x , sm_y , bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_som_fill_cs_corner.F |
79 |
GAD_SOM_FILL_CS_CORNER |
& sm_z , bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_som_fill_cs_corner.F |
81 |
GAD_SOM_FILL_CS_CORNER |
& sm_xx, sm_yy, bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_som_fill_cs_corner.F |
83 |
GAD_SOM_FILL_CS_CORNER |
& sm_zz, bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_som_fill_cs_corner.F |
85 |
GAD_SOM_FILL_CS_CORNER |
& sm_xy, bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_som_fill_cs_corner.F |
87 |
GAD_SOM_FILL_CS_CORNER |
& sm_xz, sm_yz, bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_som_lim_r.F |
11 |
GAD_SOM_LIM_R |
I bi,bj, limiter, |
|
./pkg/generic_advdiff/gad_som_lim_r.F |
32 |
GAD_SOM_LIM_R |
INTEGER bi,bj |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
113 |
GAD_SOM_PREP_CS_CORNER |
U smTr(1-OLx,1-OLy,k,bi,bj,1), |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
114 |
GAD_SOM_PREP_CS_CORNER |
U smTr(1-OLx,1-OLy,k,bi,bj,2), |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
115 |
GAD_SOM_PREP_CS_CORNER |
U smTr(1-OLx,1-OLy,k,bi,bj,3), |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
116 |
GAD_SOM_PREP_CS_CORNER |
U smTr(1-OLx,1-OLy,k,bi,bj,4), |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
117 |
GAD_SOM_PREP_CS_CORNER |
U smTr(1-OLx,1-OLy,k,bi,bj,5), |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
118 |
GAD_SOM_PREP_CS_CORNER |
U smTr(1-OLx,1-OLy,k,bi,bj,6), |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
119 |
GAD_SOM_PREP_CS_CORNER |
U smTr(1-OLx,1-OLy,k,bi,bj,7), |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
120 |
GAD_SOM_PREP_CS_CORNER |
U smTr(1-OLx,1-OLy,k,bi,bj,8), |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
121 |
GAD_SOM_PREP_CS_CORNER |
U smTr(1-OLx,1-OLy,k,bi,bj,9), |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
122 |
GAD_SOM_PREP_CS_CORNER |
I bi, bj, myThid ) |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
134 |
GAD_SOM_PREP_CS_CORNER |
smCorners(i,j,1,n) = smTr (i-OLx,j-OLy,k,bi,bj,n) |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
13 |
GAD_SOM_PREP_CS_CORNER |
I iPass, k, myNz, bi, bj, myThid ) |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
145 |
GAD_SOM_PREP_CS_CORNER |
smCorners(i,j,2,n) = smTr (sNx+i,j-OLy,k,bi,bj,n) |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
156 |
GAD_SOM_PREP_CS_CORNER |
smCorners(i,j,3,n) = smTr (sNx+i,sNy+j,k,bi,bj,n) |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
167 |
GAD_SOM_PREP_CS_CORNER |
smCorners(i,j,4,n) = smTr (i-OLx,sNy+j,k,bi,bj,n) |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
187 |
GAD_SOM_PREP_CS_CORNER |
smTr(i-OLx,j-OLy,k,bi,bj,n) = smCorners(i,j,1, n) |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
198 |
GAD_SOM_PREP_CS_CORNER |
smTr(sNx+i,j-OLy,k,bi,bj,n) = smCorners(i,j,2, n) |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
209 |
GAD_SOM_PREP_CS_CORNER |
smTr(sNx+i,sNy+j,k,bi,bj,n) = smCorners(i,j,3, n) |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
220 |
GAD_SOM_PREP_CS_CORNER |
smTr(i-OLx,sNy+j,k,bi,bj,n) = smCorners(i,j,4, n) |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
56 |
GAD_SOM_PREP_CS_CORNER |
INTEGER iPass, k, bi, bj |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
90 |
GAD_SOM_PREP_CS_CORNER |
U smTr(1-OLx,1-OLy,k,bi,bj,1), |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
91 |
GAD_SOM_PREP_CS_CORNER |
U smTr(1-OLx,1-OLy,k,bi,bj,2), |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
92 |
GAD_SOM_PREP_CS_CORNER |
U smTr(1-OLx,1-OLy,k,bi,bj,3), |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
93 |
GAD_SOM_PREP_CS_CORNER |
U smTr(1-OLx,1-OLy,k,bi,bj,4), |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
94 |
GAD_SOM_PREP_CS_CORNER |
U smTr(1-OLx,1-OLy,k,bi,bj,5), |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
95 |
GAD_SOM_PREP_CS_CORNER |
U smTr(1-OLx,1-OLy,k,bi,bj,6), |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
96 |
GAD_SOM_PREP_CS_CORNER |
U smTr(1-OLx,1-OLy,k,bi,bj,7), |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
97 |
GAD_SOM_PREP_CS_CORNER |
U smTr(1-OLx,1-OLy,k,bi,bj,8), |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
98 |
GAD_SOM_PREP_CS_CORNER |
U smTr(1-OLx,1-OLy,k,bi,bj,9), |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
99 |
GAD_SOM_PREP_CS_CORNER |
I bi, bj, myThid ) |
|
./pkg/generic_advdiff/gad_u3_adv_r.F |
11 |
GAD_U3_ADV_R |
I bi, bj, k, |
|
./pkg/generic_advdiff/gad_u3_adv_r.F |
38 |
GAD_U3_ADV_R |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_u3_adv_r.F |
71 |
GAD_U3_ADV_R |
Rjp = (tracer(i,j,kp1)-tracer(i,j, k ))*maskC(i,j,kp1,bi,bj) |
|
./pkg/generic_advdiff/gad_u3_adv_r.F |
73 |
GAD_U3_ADV_R |
Rjm = (tracer(i,j,km1)-tracer(i,j,km2))*maskC(i,j,km2,bi,bj) |
|
./pkg/generic_advdiff/gad_u3_adv_r.F |
76 |
GAD_U3_ADV_R |
wT(i,j) = maskC(i,j,km1,bi,bj)*( |
|
./pkg/generic_advdiff/gad_u3_adv_x.F |
11 |
GAD_U3_ADV_X |
I bi,bj,k, |
|
./pkg/generic_advdiff/gad_u3_adv_x.F |
39 |
GAD_U3_ADV_X |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_u3_adv_y.F |
11 |
GAD_U3_ADV_Y |
I bi,bj,k, |
|
./pkg/generic_advdiff/gad_u3_adv_y.F |
39 |
GAD_U3_ADV_Y |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
103 |
GAD_U3C4_IMPL_R |
& 0.5 _d 0 *rTrans(i,j)*recip_rA(i,j,bi,bj)*rkSign |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
104 |
GAD_U3C4_IMPL_R |
mskM = maskC(i,j,km2,bi,bj)*maskM2 |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
105 |
GAD_U3C4_IMPL_R |
mskP = maskC(i,j,kp1,bi,bj)*maskP1 |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
10 |
GAD_U3C4_IMPL_R |
I bi,bj,k, iMin,iMax,jMin,jMax, |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
112 |
GAD_U3C4_IMPL_R |
& *recip_rA(i,j,bi,bj)*recip_drC(k) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
135 |
GAD_U3C4_IMPL_R |
rCenter= 0.5 _d 0 *rTrans(i,j)*recip_rA(i,j,bi,bj)*rkSign |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
136 |
GAD_U3C4_IMPL_R |
mskM = maskC(i,j,km2,bi,bj)*maskM2 |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
137 |
GAD_U3C4_IMPL_R |
mskP = maskC(i,j,kp1,bi,bj)*maskP1 |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
144 |
GAD_U3C4_IMPL_R |
& *recip_rA(i,j,bi,bj)*recip_drC(k) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
50 |
GAD_U3C4_IMPL_R |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/salt_fill.F |
101 |
SALT_FILL |
if(salt(i,j,1,bi,bj).lt.0.0 _d 0) |
|
./pkg/generic_advdiff/salt_fill.F |
102 |
SALT_FILL |
. salt(i,j,1,bi,bj) = 0.0 _d 0 |
|
./pkg/generic_advdiff/salt_fill.F |
113 |
SALT_FILL |
CALL DIAGNOSTICS_FILL(salt,'SALTFILL',0,Nr,1,bi,bj,myThid) |
|
./pkg/generic_advdiff/salt_fill.F |
62 |
SALT_FILL |
INTEGER bi,bj,i,j,L,LM1 |
|
./pkg/generic_advdiff/salt_fill.F |
70 |
SALT_FILL |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/generic_advdiff/salt_fill.F |
77 |
SALT_FILL |
& 0,Nr,-1,bi,bj,myThid) |
|
./pkg/generic_advdiff/salt_fill.F |
90 |
SALT_FILL |
if( salt(i,j,L,bi,bj).lt.0.0 _d 0) then |
|
./pkg/generic_advdiff/salt_fill.F |
91 |
SALT_FILL |
salt(i,j,LM1,bi,bj) = salt(i,j,LM1,bi,bj) + |
|
./pkg/generic_advdiff/salt_fill.F |
92 |
SALT_FILL |
. salt(i,j,L,bi,bj)*dpratio |
|
./pkg/generic_advdiff/salt_fill.F |
93 |
SALT_FILL |
salt(i,j,L,bi,bj) = 0.0 _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
11 |
GGL90_CALC |
I bi, bj, sigmaR, myTime, myIter, myThid ) |
|
./pkg/ggl90/ggl90_calc.F |
156 |
GGL90_CALC |
& MIN(.5 _d 0,_hFacC(i,j,km1,bi,bj) ) + |
|
./pkg/ggl90/ggl90_calc.F |
157 |
GGL90_CALC |
& MIN(.5 _d 0,_hFacC(i,j,k ,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
193 |
GGL90_CALC |
totalDepth(i,j) = Ro_surf(i,j,bi,bj) - R_low(i,j,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
196 |
GGL90_CALC |
SQRTTKE(i,j,1) = SQRT( GGL90TKE(i,j,1,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
209 |
GGL90_CALC |
& bi, bj, hFacI, recip_hFacI, sigmaR, myTime, myIter, myThid ) |
|
./pkg/ggl90/ggl90_calc.F |
215 |
GGL90_CALC |
SQRTTKE(i,j,k)=SQRT( GGL90TKE(i,j,k,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
267 |
GGL90_CALC |
MaxLength=MIN(Ro_surf(i,j,bi,bj)-rF(k),rF(k)-R_low(i,j,bi,bj)) |
|
./pkg/ggl90/ggl90_calc.F |
373 |
GGL90_CALC |
xA(i,j) = _dyG(i,j,bi,bj)*drC(k)* |
|
./pkg/ggl90/ggl90_calc.F |
374 |
GGL90_CALC |
& (min(.5 _d 0,_hFacW(i,j,k-1,bi,bj) ) + |
|
./pkg/ggl90/ggl90_calc.F |
375 |
GGL90_CALC |
& min(.5 _d 0,_hFacW(i,j,k ,bi,bj) ) ) |
|
./pkg/ggl90/ggl90_calc.F |
376 |
GGL90_CALC |
yA(i,j) = _dxG(i,j,bi,bj)*drC(k)* |
|
./pkg/ggl90/ggl90_calc.F |
377 |
GGL90_CALC |
& (min(.5 _d 0,_hFacS(i,j,k-1,bi,bj) ) + |
|
./pkg/ggl90/ggl90_calc.F |
378 |
GGL90_CALC |
& min(.5 _d 0,_hFacS(i,j,k ,bi,bj) ) ) |
|
./pkg/ggl90/ggl90_calc.F |
387 |
GGL90_CALC |
& *_recip_dxC(i,j,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
388 |
GGL90_CALC |
& *(GGL90TKE(i,j,k,bi,bj)-GGL90TKE(i-1,j,k,bi,bj)) |
|
./pkg/ggl90/ggl90_calc.F |
390 |
GGL90_CALC |
& *CosFacU(j,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
401 |
GGL90_CALC |
& *_recip_dyC(i,j,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
402 |
GGL90_CALC |
& *(GGL90TKE(i,j,k,bi,bj)-GGL90TKE(i,j-1,k,bi,bj)) |
|
./pkg/ggl90/ggl90_calc.F |
404 |
GGL90_CALC |
& *CosFacV(j,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
411 |
GGL90_CALC |
gTKE(i,j) = -recip_drC(k)*recip_rA(i,j,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
426 |
GGL90_CALC |
& * maskC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
429 |
GGL90_CALC |
KappaM(i,j) = MAX(KappaM(i,j),viscArNr(k)) * maskC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
438 |
GGL90_CALC |
tempU = ( uVel( i ,j,km1,bi,bj) - uVel( i ,j,k,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
439 |
GGL90_CALC |
tempUp = ( uVel(i+1,j,km1,bi,bj) - uVel(i+1,j,k,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
440 |
GGL90_CALC |
tempV = ( vVel(i, j ,km1,bi,bj) - vVel(i, j ,k,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
441 |
GGL90_CALC |
tempVp = ( vVel(i,j+1,km1,bi,bj) - vVel(i,j+1,k,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
452 |
GGL90_CALC |
tempU = ( ( uVel(i,j,km1,bi,bj) + uVel(i+1,j,km1,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
453 |
GGL90_CALC |
& -( uVel(i,j,k ,bi,bj) + uVel(i+1,j,k ,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
455 |
GGL90_CALC |
tempV = ( ( vVel(i,j,km1,bi,bj) + vVel(i,j+1,km1,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
456 |
GGL90_CALC |
& -( vVel(i,j,k ,bi,bj) + vVel(i,j+1,k ,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
475 |
GGL90_CALC |
& (GGL90eps+IDEMIX_tau_d(i,j,k,bi,bj)*IDEMIX_E(i,j,k,bi,bj)**2) |
|
./pkg/ggl90/ggl90_calc.F |
49 |
GGL90_CALC |
INTEGER bi, bj |
|
./pkg/ggl90/ggl90_calc.F |
500 |
GGL90_CALC |
KappaE(i,j,k) = GGL90alpha * KappaM(i,j) * maskC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
505 |
GGL90_CALC |
& *GGL90TKE(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
507 |
GGL90_CALC |
GGL90TKE(i,j,k,bi,bj) = GGL90TKE(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
521 |
GGL90_CALC |
GGL90TKE(i,j,k,bi,bj) = GGL90TKE(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
523 |
GGL90_CALC |
& + IDEMIX_tau_d(i,j,k,bi,bj)*IDEMIX_E(i,j,k,bi,bj)**2 |
|
./pkg/ggl90/ggl90_calc.F |
535 |
GGL90_CALC |
GGL90TKE(i,j,k,bi,bj) = GGL90TKE(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
564 |
GGL90_CALC |
& *recip_drF(k-1)*recip_hFacC(i,j,k-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
566 |
GGL90_CALC |
& *recip_drC(k)*maskC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
579 |
GGL90_CALC |
kp1=MAX(1,MIN(klowC(i,j,bi,bj),k+1)) |
|
./pkg/ggl90/ggl90_calc.F |
584 |
GGL90_CALC |
& *recip_drF( k ) * recip_hFacC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
586 |
GGL90_CALC |
& *recip_drC(k)*maskC(i,j,k-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
608 |
GGL90_CALC |
kBottom = MAX(kLowC(i,j,bi,bj),1) |
|
./pkg/ggl90/ggl90_calc.F |
622 |
GGL90_CALC |
& * maskC(i,j,k,bi,bj)*maskC(i,j,km1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
634 |
GGL90_CALC |
& ( .5 _d 0*( surfaceForcingU(i, j, bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
635 |
GGL90_CALC |
& + surfaceForcingU(i+1,j, bi,bj) ) )**2 |
|
./pkg/ggl90/ggl90_calc.F |
636 |
GGL90_CALC |
& + ( .5 _d 0*( surfaceForcingV(i, j, bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
637 |
GGL90_CALC |
& + surfaceForcingV(i, j+1,bi,bj) ) )**2 |
|
./pkg/ggl90/ggl90_calc.F |
640 |
GGL90_CALC |
GGL90TKE(i,j,kSurf,bi,bj) = maskC(i,j,kSurf,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
642 |
GGL90_CALC |
GGL90TKE(i,j,kp1,bi,bj) = GGL90TKE(i,j,kp1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
643 |
GGL90_CALC |
& - a3d(i,j,kp1)*GGL90TKE(i,j,kSurf,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
652 |
GGL90_CALC |
kBottom = MAX(kLowC(i,j,bi,bj),1) |
|
./pkg/ggl90/ggl90_calc.F |
653 |
GGL90_CALC |
GGL90TKE(i,j,kBottom,bi,bj) = GGL90TKE(i,j,kBottom,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
664 |
GGL90_CALC |
U GGL90TKE(1-OLx,1-OLy,1,bi,bj), |
|
./pkg/ggl90/ggl90_calc.F |
666 |
GGL90_CALC |
I bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_calc.F |
672 |
GGL90_CALC |
GGL90TKE(i,j,k,bi,bj) = maskC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
673 |
GGL90_CALC |
& *MAX( GGL90TKE(i,j,k,bi,bj), GGL90TKEmin ) |
|
./pkg/ggl90/ggl90_calc.F |
686 |
GGL90_CALC |
& p4 * GGL90visctmp(i ,j ,k)*mskCor(i ,j ,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
687 |
GGL90_CALC |
& +p8 *( ( GGL90visctmp(i-1,j ,k)*mskCor(i-1,j ,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
688 |
GGL90_CALC |
& + GGL90visctmp(i+1,j ,k)*mskCor(i+1,j ,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
689 |
GGL90_CALC |
& + ( GGL90visctmp(i ,j-1,k)*mskCor(i ,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
690 |
GGL90_CALC |
& + GGL90visctmp(i ,j+1,k)*mskCor(i ,j+1,bi,bj) ) ) |
|
./pkg/ggl90/ggl90_calc.F |
691 |
GGL90_CALC |
& +p16*( ( GGL90visctmp(i+1,j+1,k)*mskCor(i+1,j+1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
692 |
GGL90_CALC |
& + GGL90visctmp(i-1,j-1,k)*mskCor(i-1,j-1,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
693 |
GGL90_CALC |
& + ( GGL90visctmp(i+1,j-1,k)*mskCor(i+1,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
694 |
GGL90_CALC |
& + GGL90visctmp(i-1,j+1,k)*mskCor(i-1,j+1,bi,bj) ) ) |
|
./pkg/ggl90/ggl90_calc.F |
697 |
GGL90_CALC |
& +p8 *( ( maskC(i-1,j ,k,bi,bj)*mskCor(i-1,j ,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
698 |
GGL90_CALC |
& + maskC(i+1,j ,k,bi,bj)*mskCor(i+1,j ,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
699 |
GGL90_CALC |
& + ( maskC(i ,j-1,k,bi,bj)*mskCor(i ,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
700 |
GGL90_CALC |
& + maskC(i ,j+1,k,bi,bj)*mskCor(i ,j+1,bi,bj) ) ) |
|
./pkg/ggl90/ggl90_calc.F |
701 |
GGL90_CALC |
& +p16*( ( maskC(i+1,j+1,k,bi,bj)* mskCor(i+1,j+1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
702 |
GGL90_CALC |
& + maskC(i-1,j-1,k,bi,bj)*mskCor(i-1,j-1,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
703 |
GGL90_CALC |
& + ( maskC(i+1,j-1,k,bi,bj)*mskCor(i+1,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
704 |
GGL90_CALC |
& + maskC(i-1,j+1,k,bi,bj)*mskCor(i-1,j+1,bi,bj) ) ) |
|
./pkg/ggl90/ggl90_calc.F |
705 |
GGL90_CALC |
& )*maskC(i,j,k,bi,bj)*mskCor(i,j,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
710 |
GGL90_CALC |
GGL90diffKr(i,j,k,bi,bj)= MAX( tmpVisc , diffKrNrS(k) ) |
|
./pkg/ggl90/ggl90_calc.F |
720 |
GGL90_CALC |
& p4 *( GGL90visctmp(i-1,j ,k)*mskCor(i-1,j ,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
721 |
GGL90_CALC |
& + GGL90visctmp(i ,j ,k)*mskCor(i ,j ,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
722 |
GGL90_CALC |
& +p8 *( ( GGL90visctmp(i-1,j-1,k)*mskCor(i-1,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
723 |
GGL90_CALC |
& + GGL90visctmp(i ,j-1,k)*mskCor(i ,j-1,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
724 |
GGL90_CALC |
& + ( GGL90visctmp(i-1,j+1,k)*mskCor(i-1,j+1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
725 |
GGL90_CALC |
& + GGL90visctmp(i ,j+1,k)*mskCor(i ,j+1,bi,bj) ) ) |
|
./pkg/ggl90/ggl90_calc.F |
728 |
GGL90_CALC |
& +p8 *( ( maskC(i-1,j-1,k,bi,bj)*mskCor(i-1,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
729 |
GGL90_CALC |
& + maskC(i ,j-1,k,bi,bj)*mskCor(i ,j-1,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
730 |
GGL90_CALC |
& + ( maskC(i-1,j+1,k,bi,bj)*mskCor(i-1,j+1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
731 |
GGL90_CALC |
& + maskC(i ,j+1,k,bi,bj)*mskCor(i ,j+1,bi,bj) ) ) |
|
./pkg/ggl90/ggl90_calc.F |
732 |
GGL90_CALC |
& )*maskC(i-1,j,k,bi,bj)*mskCor(i-1,j,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
733 |
GGL90_CALC |
& *maskC(i ,j,k,bi,bj)*mskCor(i ,j,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
735 |
GGL90_CALC |
tmpVisc = _maskW(i,j,k,bi,bj) * halfRL |
|
./pkg/ggl90/ggl90_calc.F |
740 |
GGL90_CALC |
GGL90viscArU(i,j,k,bi,bj) = MAX( tmpVisc, viscArNr(k) ) |
|
./pkg/ggl90/ggl90_calc.F |
750 |
GGL90_CALC |
& p4 *( GGL90visctmp(i ,j-1,k)*mskCor(i ,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
751 |
GGL90_CALC |
& + GGL90visctmp(i ,j ,k)*mskCor(i ,j ,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
752 |
GGL90_CALC |
& +p8 *( ( GGL90visctmp(i-1,j-1,k)*mskCor(i-1,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
753 |
GGL90_CALC |
& + GGL90visctmp(i-1,j ,k)*mskCor(i-1,j ,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
754 |
GGL90_CALC |
& + ( GGL90visctmp(i+1,j-1,k)*mskCor(i+1,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
755 |
GGL90_CALC |
& + GGL90visctmp(i+1,j ,k)*mskCor(i+1,j ,bi,bj) ) ) |
|
./pkg/ggl90/ggl90_calc.F |
758 |
GGL90_CALC |
& +p8 *( ( maskC(i-1,j-1,k,bi,bj)*mskCor(i-1,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
759 |
GGL90_CALC |
& + maskC(i-1,j ,k,bi,bj)*mskCor(i-1,j ,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
760 |
GGL90_CALC |
& + ( maskC(i+1,j-1,k,bi,bj)*mskCor(i+1,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
761 |
GGL90_CALC |
& + maskC(i+1,j ,k,bi,bj)*mskCor(i+1,j ,bi,bj) ) ) |
|
./pkg/ggl90/ggl90_calc.F |
762 |
GGL90_CALC |
& )*maskC(i,j-1,k,bi,bj)*mskCor(i,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
763 |
GGL90_CALC |
& *maskC(i,j ,k,bi,bj)*mskCor(i,j ,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
765 |
GGL90_CALC |
tmpVisc = _maskS(i,j,k,bi,bj) * halfRL |
|
./pkg/ggl90/ggl90_calc.F |
770 |
GGL90_CALC |
GGL90viscArV(i,j,k,bi,bj) = MAX( tmpVisc, viscArNr(k) ) |
|
./pkg/ggl90/ggl90_calc.F |
778 |
GGL90_CALC |
& 0,Nr, 1, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_calc.F |
780 |
GGL90_CALC |
& 0,Nr, 1, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_calc.F |
782 |
GGL90_CALC |
& 0,Nr, 1, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_calc.F |
784 |
GGL90_CALC |
& 0,Nr, 1, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_calc.F |
786 |
GGL90_CALC |
& 0,Nr, 2, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_calc.F |
788 |
GGL90_CALC |
& 0,Nr, 2, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_calc.F |
794 |
GGL90_CALC |
surf_flx_tke(i,j) =(GGL90TKE(i,j,kSurf,bi,bj)- |
|
./pkg/ggl90/ggl90_calc.F |
795 |
GGL90_CALC |
& GGL90TKE(i,j,kp1,bi,bj)) |
|
./pkg/ggl90/ggl90_calc.F |
796 |
GGL90_CALC |
& *recip_drF(kSurf)*recip_hFacC(i,j,kSurf,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
801 |
GGL90_CALC |
& 0, 1, 2, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_calc.F |
808 |
GGL90_CALC |
& halfRL*( surfaceForcingU(i, j,bi,bj)*uVel(i ,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
809 |
GGL90_CALC |
& +surfaceForcingU(i+1,j,bi,bj)*uVel(i+1,j,k,bi,bj)) |
|
./pkg/ggl90/ggl90_calc.F |
810 |
GGL90_CALC |
& + halfRL*( surfaceForcingV(i,j, bi,bj)*vVel(i,j ,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
811 |
GGL90_CALC |
& +surfaceForcingV(i,j+1,bi,bj)*vVel(i,j+1,k,bi,bj)) |
|
./pkg/ggl90/ggl90_calc.F |
815 |
GGL90_CALC |
& 0, 1, 2, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_calc_diff.F |
37 |
GGL90_CALC_DIFF |
INTEGER bi,bj,iMin,iMax,jMin,jMax,kArg,kSize |
|
./pkg/ggl90/ggl90_calc_diff.F |
54 |
GGL90_CALC_DIFF |
& +( GGL90diffKr(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc_diff.F |
65 |
GGL90_CALC_DIFF |
& +( GGL90diffKr(i,j,kArg,bi,bj) |
|
./pkg/ggl90/ggl90_calc_diff.F |
7 |
GGL90_CALC_DIFF |
I bi,bj,iMin,iMax,jMin,jMax,kArg,kSize, |
|
./pkg/ggl90/ggl90_calc_visc.F |
30 |
GGL90_CALC_VISC |
INTEGER bi,bj,iMin,iMax,jMin,jMax,K |
|
./pkg/ggl90/ggl90_calc_visc.F |
50 |
GGL90_CALC_VISC |
& (GGL90viscArU(i,j,k,bi,bj) - viscArNr(k) ) |
|
./pkg/ggl90/ggl90_calc_visc.F |
56 |
GGL90_CALC_VISC |
KappaRV(i,j,k) = KappaRV(i,j,k) + _maskS(i,j,k,bi,bj) * |
|
./pkg/ggl90/ggl90_calc_visc.F |
57 |
GGL90_CALC_VISC |
& (GGL90viscArV(i,j,k,bi,bj) - viscArNr(k) ) |
|
./pkg/ggl90/ggl90_calc_visc.F |
7 |
GGL90_CALC_VISC |
I bi,bj,iMin,iMax,jMin,jMax,K, |
|
./pkg/ggl90/ggl90_idemix.F |
10 |
GGL90_IDEMIX |
I bi, bj, hFacI, recip_hFacI, sigmaR, myTime, myIter, myThid ) |
|
./pkg/ggl90/ggl90_idemix.F |
117 |
GGL90_IDEMIX |
fxb = max( 1. _d -6, abs( fCori(i,j,bi,bj) )) |
|
./pkg/ggl90/ggl90_idemix.F |
119 |
GGL90_IDEMIX |
& *maskC(i,j,k,bi,bj)*maskC(i,j,k-1,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
141 |
GGL90_IDEMIX |
fxb = max( 1. _d -6, abs( fCori(i,j,bi,bj) )) |
|
./pkg/ggl90/ggl90_idemix.F |
146 |
GGL90_IDEMIX |
IDEMIX_V0(i,j,k,bi,bj)=max(0. _d 0, |
|
./pkg/ggl90/ggl90_idemix.F |
150 |
GGL90_IDEMIX |
IDEMIX_tau_d(i,j,k,bi,bj) = IDEMIX_mu0*fxb*fxc* |
|
./pkg/ggl90/ggl90_idemix.F |
164 |
GGL90_IDEMIX |
fxb = 0.5*min( _dxF(i,j,bi,bj), _dyF(i,j,bi,bj) )*fxa |
|
./pkg/ggl90/ggl90_idemix.F |
165 |
GGL90_IDEMIX |
IDEMIX_V0(i,j,k,bi,bj) = min( IDEMIX_V0(i,j,k,bi,bj), fxb ) |
|
./pkg/ggl90/ggl90_idemix.F |
182 |
GGL90_IDEMIX |
& +GM_EG_diss(i,j,k,bi,bj)*drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
191 |
GGL90_IDEMIX |
& +max( 0. _d 0,Kwz(i,j,k,bi,bj)*Nsquare(i,j,k) ) |
|
./pkg/ggl90/ggl90_idemix.F |
206 |
GGL90_IDEMIX |
& +.5 _d 0*(GM_EG_diss(i,j,k,bi,bj)+ |
|
./pkg/ggl90/ggl90_idemix.F |
207 |
GGL90_IDEMIX |
& GM_EG_diss(i,j,k-1,bi,bj)) |
|
./pkg/ggl90/ggl90_idemix.F |
216 |
GGL90_IDEMIX |
& +max( 0. _d 0,Kwz(i,j,k,bi,bj)*Nsquare(i,j,k) ) |
|
./pkg/ggl90/ggl90_idemix.F |
227 |
GGL90_IDEMIX |
kBottom = MAX(kLowC(i,j,bi,bj),1) |
|
./pkg/ggl90/ggl90_idemix.F |
244 |
GGL90_IDEMIX |
& IDEMIX_V0(i-1,j,k,bi,bj)*maskC(i-1,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
245 |
GGL90_IDEMIX |
& +IDEMIX_V0(i ,j,k,bi,bj)*maskC(i ,j,k,bi,bj)) |
|
./pkg/ggl90/ggl90_idemix.F |
246 |
GGL90_IDEMIX |
dfx(i,j) = -fxa*_dyG(i,j,bi,bj)*drC(k) |
|
./pkg/ggl90/ggl90_idemix.F |
247 |
GGL90_IDEMIX |
& *(min(.5 _d 0,_hFacW(i,j,k-1,bi,bj) ) + |
|
./pkg/ggl90/ggl90_idemix.F |
248 |
GGL90_IDEMIX |
& min(.5 _d 0,_hFacW(i,j,k ,bi,bj) ) ) |
|
./pkg/ggl90/ggl90_idemix.F |
249 |
GGL90_IDEMIX |
& *_recip_dxC(i,j,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
250 |
GGL90_IDEMIX |
& *(IDEMIX_V0(i ,j,k,bi,bj)*IDEMIX_E(i ,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
251 |
GGL90_IDEMIX |
& -IDEMIX_V0(i-1,j,k,bi,bj)*IDEMIX_E(i-1,j,k,bi,bj)) |
|
./pkg/ggl90/ggl90_idemix.F |
252 |
GGL90_IDEMIX |
& *maskW(i,j,k,bi,bj) ! paranoia setting |
|
./pkg/ggl90/ggl90_idemix.F |
261 |
GGL90_IDEMIX |
& IDEMIX_V0(i,j ,k,bi,bj)*maskC(i,j ,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
262 |
GGL90_IDEMIX |
& +IDEMIX_V0(i,j-1,k,bi,bj)*maskC(i,j-1,k,bi,bj) ) |
|
./pkg/ggl90/ggl90_idemix.F |
263 |
GGL90_IDEMIX |
dfy(i,j) = -fxa*_dxG(i,j,bi,bj)*drC(k) |
|
./pkg/ggl90/ggl90_idemix.F |
264 |
GGL90_IDEMIX |
& *(min(.5 _d 0,_hFacS(i,j,k-1,bi,bj) ) + |
|
./pkg/ggl90/ggl90_idemix.F |
265 |
GGL90_IDEMIX |
& min(.5 _d 0,_hFacS(i,j,k ,bi,bj) ) ) |
|
./pkg/ggl90/ggl90_idemix.F |
266 |
GGL90_IDEMIX |
& *_recip_dyC(i,j,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
267 |
GGL90_IDEMIX |
& *(IDEMIX_V0(i,j ,k,bi,bj)*IDEMIX_E(i,j ,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
268 |
GGL90_IDEMIX |
& -IDEMIX_V0(i,j-1,k,bi,bj)*IDEMIX_E(i,j-1,k,bi,bj)) |
|
./pkg/ggl90/ggl90_idemix.F |
269 |
GGL90_IDEMIX |
& *maskS(i,j,k,bi,bj) ! paranoia setting |
|
./pkg/ggl90/ggl90_idemix.F |
277 |
GGL90_IDEMIX |
IDEMIX_E(i,j,k,bi,bj) = IDEMIX_E(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
278 |
GGL90_IDEMIX |
& + deltaTggl90*(-recip_drC(k)*recip_rA(i,j,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
281 |
GGL90_IDEMIX |
& *maskC(i,j,k,bi,bj) ! paranoia setting |
|
./pkg/ggl90/ggl90_idemix.F |
291 |
GGL90_IDEMIX |
IDEMIX_E(i,j,k,bi,bj) = IDEMIX_E(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
305 |
GGL90_IDEMIX |
& *recip_drF(k)*recip_hFacC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
314 |
GGL90_IDEMIX |
kBottom = MAX(kLowC(i,j,bi,bj),1) |
|
./pkg/ggl90/ggl90_idemix.F |
333 |
GGL90_IDEMIX |
& *maskC(i,j,k,bi,bj)!*maskC(i,j,km1,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
343 |
GGL90_IDEMIX |
kp1=MAX(1,MIN(klowC(i,j,bi,bj),k+1)) |
|
./pkg/ggl90/ggl90_idemix.F |
346 |
GGL90_IDEMIX |
& *maskC(i,j,k-1,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
354 |
GGL90_IDEMIX |
kBottom = MAX(kLowC(i,j,bi,bj),1) |
|
./pkg/ggl90/ggl90_idemix.F |
369 |
GGL90_IDEMIX |
b3d(i,j,k) = 1. _d 0 + deltaTggl90*IDEMIX_tau_d(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
370 |
GGL90_IDEMIX |
& *IDEMIX_E(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
371 |
GGL90_IDEMIX |
& *maskC(i,j,k,bi,bj)*maskC(i,j,km1,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
375 |
GGL90_IDEMIX |
& *maskC(i,j,km1,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
379 |
GGL90_IDEMIX |
& *maskC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
387 |
GGL90_IDEMIX |
k = MAX(kLowC(i,j,bi,bj),1) |
|
./pkg/ggl90/ggl90_idemix.F |
389 |
GGL90_IDEMIX |
b3d(i,j,k) = 1. _d 0 + deltaTggl90*IDEMIX_tau_d(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
390 |
GGL90_IDEMIX |
& *IDEMIX_E(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
391 |
GGL90_IDEMIX |
& *maskC(i,j,k,bi,bj)*maskC(i,j,km1,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
395 |
GGL90_IDEMIX |
& *maskC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
397 |
GGL90_IDEMIX |
b3d(i,j,k) = 1. _d 0 + deltaTggl90*IDEMIX_tau_d(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
398 |
GGL90_IDEMIX |
& *IDEMIX_E(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
399 |
GGL90_IDEMIX |
& *maskC(i,j,k,bi,bj)*maskC(i,j,km1,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
403 |
GGL90_IDEMIX |
& *maskC(i,j,km1,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
412 |
GGL90_IDEMIX |
IDEMIX_E(i,j,k,bi,bj) = IDEMIX_E(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
413 |
GGL90_IDEMIX |
& +deltaTggl90*IDEMIX_F_s(i,j,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
415 |
GGL90_IDEMIX |
& *maskC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
416 |
GGL90_IDEMIX |
k = MAX(kLowC(i,j,bi,bj),1) |
|
./pkg/ggl90/ggl90_idemix.F |
417 |
GGL90_IDEMIX |
IDEMIX_E(i,j,k,bi,bj) = IDEMIX_E(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
418 |
GGL90_IDEMIX |
& -deltaTggl90*IDEMIX_F_b(i,j,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
420 |
GGL90_IDEMIX |
& *maskC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
428 |
GGL90_IDEMIX |
U IDEMIX_E(1-OLx,1-OLy,1,bi,bj), |
|
./pkg/ggl90/ggl90_idemix.F |
430 |
GGL90_IDEMIX |
I bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_idemix.F |
443 |
GGL90_IDEMIX |
& *IDEMIX_tau_d(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
444 |
GGL90_IDEMIX |
& *IDEMIX_E(i,j,k,bi,bj)*IDEMIX_E(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
445 |
GGL90_IDEMIX |
& /max(1. _d -12,Nsquare(i,j,k))*maskC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
451 |
GGL90_IDEMIX |
& 0,Nr, 1, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_idemix.F |
453 |
GGL90_IDEMIX |
& 0,Nr, 1, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_idemix.F |
455 |
GGL90_IDEMIX |
& 0,Nr, 1, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_idemix.F |
457 |
GGL90_IDEMIX |
& 0,Nr, 2, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_idemix.F |
459 |
GGL90_IDEMIX |
& 0,Nr, 2, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_idemix.F |
461 |
GGL90_IDEMIX |
& 0,Nr, 2, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_idemix.F |
462 |
GGL90_IDEMIX |
CALL DIAGNOSTICS_FILL(IDEMIX_F_b,'IDEM_F_b',0,1,1,bi,bj,myThid) |
|
./pkg/ggl90/ggl90_idemix.F |
463 |
GGL90_IDEMIX |
CALL DIAGNOSTICS_FILL(IDEMIX_F_s,'IDEM_F_s',0,1,1,bi,bj,myThid) |
|
./pkg/ggl90/ggl90_idemix.F |
465 |
GGL90_IDEMIX |
& 0,1,2,bi,bj,myThid) |
|
./pkg/ggl90/ggl90_idemix.F |
48 |
GGL90_IDEMIX |
INTEGER bi, bj |
|
./pkg/ggl90/ggl90_init_fixed.F |
33 |
GGL90_INIT_FIXED |
INTEGER i, j, bi, bj |
|
./pkg/ggl90/ggl90_init_fixed.F |
50 |
GGL90_INIT_FIXED |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/ggl90/ggl90_init_fixed.F |
54 |
GGL90_INIT_FIXED |
mskCor(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ggl90/ggl90_init_fixed.F |
60 |
GGL90_INIT_FIXED |
U mskCor(1-OLx,1-OLy,bi,bj), |
|
./pkg/ggl90/ggl90_init_fixed.F |
61 |
GGL90_INIT_FIXED |
I bi,bj, myThid ) |
|
./pkg/ggl90/ggl90_init_varia.F |
102 |
GGL90_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/ggl90/ggl90_init_varia.F |
106 |
GGL90_INIT_VARIA |
IDEMIX_F_b(i,j,bi,bj) = -MAX(0. _d 0, |
|
./pkg/ggl90/ggl90_init_varia.F |
107 |
GGL90_INIT_VARIA |
& MIN(1. _d 0,IDEMIX_F_b(i,j,bi,bj))) |
|
./pkg/ggl90/ggl90_init_varia.F |
109 |
GGL90_INIT_VARIA |
IDEMIX_F_b(i,j,bi,bj) = IDEMIX_frac_F_b* |
|
./pkg/ggl90/ggl90_init_varia.F |
111 |
GGL90_INIT_VARIA |
& IDEMIX_F_b(i,j,bi,bj)/1024. _d 0 |
|
./pkg/ggl90/ggl90_init_varia.F |
121 |
GGL90_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/ggl90/ggl90_init_varia.F |
125 |
GGL90_INIT_VARIA |
IDEMIX_F_s(i,j,bi,bj) = MAX(0. _d 0, |
|
./pkg/ggl90/ggl90_init_varia.F |
126 |
GGL90_INIT_VARIA |
& MIN(1. _d 0,IDEMIX_F_s(i,j,bi,bj))) |
|
./pkg/ggl90/ggl90_init_varia.F |
128 |
GGL90_INIT_VARIA |
IDEMIX_F_s(i,j,bi,bj) = IDEMIX_frac_F_s* |
|
./pkg/ggl90/ggl90_init_varia.F |
130 |
GGL90_INIT_VARIA |
& IDEMIX_F_s(i,j,bi,bj)/1024. |
|
./pkg/ggl90/ggl90_init_varia.F |
145 |
GGL90_INIT_VARIA |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/ggl90/ggl90_init_varia.F |
150 |
GGL90_INIT_VARIA |
GGL90TKE(I,J,K,bi,bj) = MAX(GGL90TKE(I,J,K,bi,bj), |
|
./pkg/ggl90/ggl90_init_varia.F |
151 |
GGL90_INIT_VARIA |
& GGL90TKEmin)*maskC(I,J,K,bi,bj) |
|
./pkg/ggl90/ggl90_init_varia.F |
36 |
GGL90_INIT_VARIA |
INTEGER bi, bj |
|
./pkg/ggl90/ggl90_init_varia.F |
42 |
GGL90_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/ggl90/ggl90_init_varia.F |
50 |
GGL90_INIT_VARIA |
GGL90viscArU(I,J,K,bi,bj) = 0. _d 0 |
|
./pkg/ggl90/ggl90_init_varia.F |
51 |
GGL90_INIT_VARIA |
GGL90viscArV(I,J,K,bi,bj) = 0. _d 0 |
|
./pkg/ggl90/ggl90_init_varia.F |
52 |
GGL90_INIT_VARIA |
GGL90diffKr(I,J,K,bi,bj) = 0. _d 0 |
|
./pkg/ggl90/ggl90_init_varia.F |
54 |
GGL90_INIT_VARIA |
GGL90TKE(I,J,K,bi,bj)=GGL90eps*maskC(I,J,K,bi,bj) |
|
./pkg/ggl90/ggl90_init_varia.F |
57 |
GGL90_INIT_VARIA |
GGL90TKE(I,J,K,bi,bj)=GGL90TKEmin*maskC(I,J,K,bi,bj) |
|
./pkg/ggl90/ggl90_init_varia.F |
73 |
GGL90_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/ggl90/ggl90_init_varia.F |
79 |
GGL90_INIT_VARIA |
IDEMIX_E(I,J,K,bi,bj) = 0. _d 0 |
|
./pkg/ggl90/ggl90_init_varia.F |
80 |
GGL90_INIT_VARIA |
IDEMIX_V0(I,J,K,bi,bj) = 0. _d 0 |
|
./pkg/ggl90/ggl90_init_varia.F |
81 |
GGL90_INIT_VARIA |
IDEMIX_tau_d(I,J,K,bi,bj) = 0. _d 0 |
|
./pkg/ggl90/ggl90_init_varia.F |
88 |
GGL90_INIT_VARIA |
IDEMIX_F_B(I,J,bi,bj) = 0. _d 0 |
|
./pkg/ggl90/ggl90_init_varia.F |
89 |
GGL90_INIT_VARIA |
IDEMIX_F_S(I,J,bi,bj) = 0. _d 0 |
|
./pkg/ggl90/ggl90_output.F |
112 |
GGL90_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/ggl90/ggl90_output.F |
114 |
GGL90_OUTPUT |
CALL TIMEAVE_RESET( GGL90viscArUtave, Nr, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
115 |
GGL90_OUTPUT |
CALL TIMEAVE_RESET( GGL90viscArVtave, Nr, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
116 |
GGL90_OUTPUT |
CALL TIMEAVE_RESET( GGL90diffKrtave, Nr, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
117 |
GGL90_OUTPUT |
CALL TIMEAVE_RESET( GGL90TKEtave, Nr, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
118 |
GGL90_OUTPUT |
GGL90_timeAve(bi,bj) = 0. |
|
./pkg/ggl90/ggl90_output.F |
125 |
GGL90_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/ggl90/ggl90_output.F |
128 |
GGL90_OUTPUT |
& Nr, DDTT, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
130 |
GGL90_OUTPUT |
& Nr, DDTT, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
132 |
GGL90_OUTPUT |
& Nr, DDTT, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
134 |
GGL90_OUTPUT |
& Nr, DDTT, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
136 |
GGL90_OUTPUT |
GGL90_timeAve(bi,bj) = GGL90_timeAve(bi,bj)+DDTT |
|
./pkg/ggl90/ggl90_output.F |
147 |
GGL90_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/ggl90/ggl90_output.F |
150 |
GGL90_OUTPUT |
& GGL90_timeAve, Nr, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
152 |
GGL90_OUTPUT |
& GGL90_timeAve, Nr, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
154 |
GGL90_OUTPUT |
& GGL90_timeAve, Nr, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
156 |
GGL90_OUTPUT |
& GGL90_timeAve, Nr, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
176 |
GGL90_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/ggl90/ggl90_output.F |
178 |
GGL90_OUTPUT |
CALL TIMEAVE_RESET( GGL90viscArUtave, Nr, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
179 |
GGL90_OUTPUT |
CALL TIMEAVE_RESET( GGL90viscArVtave, Nr, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
180 |
GGL90_OUTPUT |
CALL TIMEAVE_RESET( GGL90diffKrtave, Nr, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
181 |
GGL90_OUTPUT |
CALL TIMEAVE_RESET( GGL90TKEtave, Nr, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
182 |
GGL90_OUTPUT |
GGL90_timeAve(bi,bj) = 0. |
|
./pkg/ggl90/ggl90_output.F |
69 |
GGL90_OUTPUT |
INTEGER bi, bj |
|
./pkg/gmredi/gmredi_calc_diff.F |
40 |
GMREDI_CALC_DIFF |
INTEGER bi,bj,iMin,iMax,jMin,jMax,kArg,kSize |
|
./pkg/gmredi/gmredi_calc_diff.F |
58 |
GMREDI_CALC_DIFF |
KappaRx(i,j,k) = KappaRx(i,j,k)+Kwz(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_diff.F |
59 |
GMREDI_CALC_DIFF |
& *maskInC(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_calc_diff.F |
62 |
GMREDI_CALC_DIFF |
KappaRx(i,j,k) = KappaRx(i,j,k)+LS_Kwz(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_diff.F |
64 |
GMREDI_CALC_DIFF |
KappaRx(i,j,k) = KappaRx(i,j,k)+Kwz(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_diff.F |
66 |
GMREDI_CALC_DIFF |
& *maskInC(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_calc_diff.F |
77 |
GMREDI_CALC_DIFF |
KappaRx(i,j,k) = KappaRx(i,j,k)+Kwz(i,j,kArg,bi,bj) |
|
./pkg/gmredi/gmredi_calc_diff.F |
78 |
GMREDI_CALC_DIFF |
& *maskInC(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_calc_diff.F |
7 |
GMREDI_CALC_DIFF |
I bi,bj,iMin,iMax,jMin,jMax,kArg,kSize, |
|
./pkg/gmredi/gmredi_calc_diff.F |
81 |
GMREDI_CALC_DIFF |
KappaRx(i,j,k) = KappaRx(i,j,k)+LS_Kwz(i,j,kArg,bi,bj) |
|
./pkg/gmredi/gmredi_calc_diff.F |
83 |
GMREDI_CALC_DIFF |
KappaRx(i,j,k) = KappaRx(i,j,k)+Kwz(i,j,kArg,bi,bj) |
|
./pkg/gmredi/gmredi_calc_diff.F |
85 |
GMREDI_CALC_DIFF |
& *maskInC(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
103 |
GMREDI_CALC_EIGS |
fCori2(i,j) = fCori(i,j,bi,bj)*fCori(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
10 |
GMREDI_CALC_EIGS |
I bi, bj, N2, myThid, kLow, |
|
./pkg/gmredi/gmredi_calc_eigs.F |
295 |
GMREDI_CALC_EIGS |
Rmid(i,j) = c1(i,j)/ABS(fCori(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
37 |
GMREDI_CALC_EIGS |
INTEGER bi, bj |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
112 |
GMREDI_CALC_PSI_B |
& *maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
114 |
GMREDI_CALC_PSI_B |
& *maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
120 |
GMREDI_CALC_PSI_B |
& *maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
122 |
GMREDI_CALC_PSI_B |
& *maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
132 |
GMREDI_CALC_PSI_B |
I bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
147 |
GMREDI_CALC_PSI_B |
GM_PsiX(i,j,k,bi,bj) = SlopeX(i,j)*taperX(i,j) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
150 |
GMREDI_CALC_PSI_B |
& *( kapGM(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
152 |
GMREDI_CALC_PSI_B |
& *( op25*( kapGM(i-1,j,km1,bi,bj)+kapGM(i,j,km1,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
153 |
GMREDI_CALC_PSI_B |
& + kapGM(i-1,j,k,bi,bj)+kapGM(i,j,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
157 |
GMREDI_CALC_PSI_B |
& *(GM_bolFac2d(i-1,j,bi,bj)+GM_bolFac2d(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
160 |
GMREDI_CALC_PSI_B |
& +op5*(VisbeckK(i-1,j,bi,bj)+VisbeckK(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
162 |
GMREDI_CALC_PSI_B |
& )*maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
164 |
GMREDI_CALC_PSI_B |
& +eddyPsiX(i,j,k,bi,bj)*maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
16 |
GMREDI_CALC_PSI_B |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
170 |
GMREDI_CALC_PSI_B |
GM_PsiY(i,j,k,bi,bj) = SlopeY(i,j)*taperY(i,j) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
173 |
GMREDI_CALC_PSI_B |
& *( kapGM(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
175 |
GMREDI_CALC_PSI_B |
& *( op25*( kapGM(i,j-1,km1,bi,bj)+kapGM(i,j,km1,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
176 |
GMREDI_CALC_PSI_B |
& + kapGM(i,j-1,k,bi,bj)+kapGM(i,j,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
180 |
GMREDI_CALC_PSI_B |
& *(GM_bolFac2d(i,j-1,bi,bj)+GM_bolFac2d(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
183 |
GMREDI_CALC_PSI_B |
& +op5*(VisbeckK(i,j-1,bi,bj)+VisbeckK(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
185 |
GMREDI_CALC_PSI_B |
& )*maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
187 |
GMREDI_CALC_PSI_B |
& +eddyPsiY(i,j,k,bi,bj)*maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
55 |
GMREDI_CALC_PSI_B |
INTEGER bi,bj,iMin,iMax,jMin,jMax |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
78 |
GMREDI_CALC_PSI_B |
act2 = bj - myByLo(myThid) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
10 |
GMREDI_CALC_PSI_BVP |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
113 |
GMREDI_CALC_PSI_BVP |
& *maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
115 |
GMREDI_CALC_PSI_BVP |
& *maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
125 |
GMREDI_CALC_PSI_BVP |
GM_PsiX(i,j,k,bi,bj) = half_K*sigmaX_W |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
126 |
GMREDI_CALC_PSI_BVP |
& *(GM_bolFac2d(i-1,j,bi,bj)+GM_bolFac2d(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
142 |
GMREDI_CALC_PSI_BVP |
IF ( maskW(i,j,k,bi,bj).NE.0. ) THEN |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
145 |
GMREDI_CALC_PSI_BVP |
& *recip_drF(km1)*recip_hFacW(i,j,km1,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
148 |
GMREDI_CALC_PSI_BVP |
& *(recip_drF(km1)*recip_hFacW(i,j,km1,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
149 |
GMREDI_CALC_PSI_BVP |
& +recip_drF(k)*recip_hFacW(i,j,k,bi,bj) ) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
151 |
GMREDI_CALC_PSI_BVP |
& *recip_drF(k)*recip_hFacW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
162 |
GMREDI_CALC_PSI_BVP |
& GM_PsiX(1-OLx,1-OLy,1,bi,bj), |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
163 |
GMREDI_CALC_PSI_BVP |
& errCode, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
192 |
GMREDI_CALC_PSI_BVP |
& *maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
194 |
GMREDI_CALC_PSI_BVP |
& *maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
204 |
GMREDI_CALC_PSI_BVP |
GM_PsiY(i,j,k,bi,bj) = half_K*sigmaY_W |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
205 |
GMREDI_CALC_PSI_BVP |
& *(GM_bolFac2d(i,j-1,bi,bj)+GM_bolFac2d(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
214 |
GMREDI_CALC_PSI_BVP |
IF ( maskS(i,j,k,bi,bj).NE.0. ) THEN |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
217 |
GMREDI_CALC_PSI_BVP |
& *recip_drF(km1)*recip_hFacS(i,j,km1,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
220 |
GMREDI_CALC_PSI_BVP |
& *(recip_drF(km1)*recip_hFacS(i,j,km1,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
221 |
GMREDI_CALC_PSI_BVP |
& +recip_drF(k)*recip_hFacS(i,j,k,bi,bj) ) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
223 |
GMREDI_CALC_PSI_BVP |
& *recip_drF(k)*recip_hFacS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
234 |
GMREDI_CALC_PSI_BVP |
& GM_PsiY(1-OLx,1-OLy,1,bi,bj), |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
235 |
GMREDI_CALC_PSI_BVP |
& errCode, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
249 |
GMREDI_CALC_PSI_BVP |
& 0, 1, 2, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
251 |
GMREDI_CALC_PSI_BVP |
& 0, 1, 2, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
40 |
GMREDI_CALC_PSI_BVP |
INTEGER bi,bj,iMin,iMax,jMin,jMax |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
89 |
GMREDI_CALC_PSI_BVP |
GM_PsiX(i,j,1,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
90 |
GMREDI_CALC_PSI_BVP |
GM_PsiY(i,j,1,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1002 |
GMREDI_CALC_TENSOR |
& +op5*(VisbeckK(i,j,bi,bj)+VisbeckK(i,j-1,bi,bj))*GM_advect |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1005 |
GMREDI_CALC_TENSOR |
& +op5*(K3D(i,j,k,bi,bj)+K3D(i,j-1,k,bi,bj))*GM_advect |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1021 |
GMREDI_CALC_TENSOR |
tmp1k(i,j) = ( kapRedi(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1023 |
GMREDI_CALC_TENSOR |
tmp1k(i,j) = ( op5*(kapRedi(i,j-1,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1024 |
GMREDI_CALC_TENSOR |
& +kapRedi(i,j,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1028 |
GMREDI_CALC_TENSOR |
& *op5*(GM_isoFac2d(i,j-1,bi,bj)+GM_isoFac2d(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1031 |
GMREDI_CALC_TENSOR |
& +(VisbeckK(i,j,bi,bj)+VisbeckK(i,j-1,bi,bj))*0.5 _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1034 |
GMREDI_CALC_TENSOR |
& +op5*(K3D(i,j,k,bi,bj)+K3D(i,j-1,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1044 |
GMREDI_CALC_TENSOR |
& ( maskC(i,j-1,k,bi,bj)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1045 |
GMREDI_CALC_TENSOR |
& (theta(i,j-1,km1,bi,bj)-theta(i,j-1,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1046 |
GMREDI_CALC_TENSOR |
& +maskC(i, j ,k,bi,bj)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1047 |
GMREDI_CALC_TENSOR |
& (theta(i, j ,km1,bi,bj)-theta(i, j ,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1050 |
GMREDI_CALC_TENSOR |
& ( maskC(i,j-1,kp1,bi,bj)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1051 |
GMREDI_CALC_TENSOR |
& (theta(i,j-1,k,bi,bj)-theta(i,j-1,kp1,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1052 |
GMREDI_CALC_TENSOR |
& +maskC(i, j ,kp1,bi,bj)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1053 |
GMREDI_CALC_TENSOR |
& (theta(i, j ,k,bi,bj)-theta(i, j ,kp1,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1055 |
GMREDI_CALC_TENSOR |
tmp1k(i,j) = dxG(i,j,bi,bj)*drF(k) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1056 |
GMREDI_CALC_TENSOR |
& * _hFacS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1060 |
GMREDI_CALC_TENSOR |
CALL DIAGNOSTICS_FILL(tmp1k, 'GM_KvzTz', k,1,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1074 |
GMREDI_CALC_TENSOR |
& deltaTclock, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1076 |
GMREDI_CALC_TENSOR |
& deltaTclock, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1078 |
GMREDI_CALC_TENSOR |
& deltaTclock, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1082 |
GMREDI_CALC_TENSOR |
& deltaTclock, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1088 |
GMREDI_CALC_TENSOR |
& deltaTclock, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1090 |
GMREDI_CALC_TENSOR |
& deltaTclock, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1093 |
GMREDI_CALC_TENSOR |
GM_timeAve(bi,bj) = GM_timeAve(bi,bj)+deltaTclock |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1100 |
GMREDI_CALC_TENSOR |
CALL GMREDI_DIAGNOSTICS_FILL(bi,bj,myThid) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1117 |
GMREDI_CALC_TENSOR_DUMMY |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1139 |
GMREDI_CALC_TENSOR_DUMMY |
INTEGER bi, bj |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1152 |
GMREDI_CALC_TENSOR_DUMMY |
Kwx(i,j,k,bi,bj) = 0.0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1153 |
GMREDI_CALC_TENSOR_DUMMY |
Kwy(i,j,k,bi,bj) = 0.0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1154 |
GMREDI_CALC_TENSOR_DUMMY |
Kwz(i,j,k,bi,bj) = 0.0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
128 |
GMREDI_CALC_TENSOR |
act2 = bj - myByLo(myThid) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
154 |
GMREDI_CALC_TENSOR |
VisbeckK(i,j,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
168 |
GMREDI_CALC_TENSOR |
IF (fCori(i,j,bi,bj).NE.0.) THEN |
|
./pkg/gmredi/gmredi_calc_tensor.F |
169 |
GMREDI_CALC_TENSOR |
ldd97_LrhoC(i,j) = Cspd/ABS(fCori(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
181 |
GMREDI_CALC_TENSOR |
kLow_W(i,j) = MIN(kLowC(i-1,j,bi,bj),kLowC(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
182 |
GMREDI_CALC_TENSOR |
fCoriLoc = op5*(fCori(i-1,j,bi,bj)+fCori(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
198 |
GMREDI_CALC_TENSOR |
kLow_S(i,j) = MIN(kLowC(i,j-1,bi,bj),kLowC(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
199 |
GMREDI_CALC_TENSOR |
fCoriLoc = op5*(fCori(i,j-1,bi,bj)+fCori(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
21 |
GMREDI_CALC_TENSOR |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
223 |
GMREDI_CALC_TENSOR |
GM_PsiX(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
224 |
GMREDI_CALC_TENSOR |
GM_PsiY(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
233 |
GMREDI_CALC_TENSOR |
Kwx(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
234 |
GMREDI_CALC_TENSOR |
Kwy(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
235 |
GMREDI_CALC_TENSOR |
Kwz(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
237 |
GMREDI_CALC_TENSOR |
Kux(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
238 |
GMREDI_CALC_TENSOR |
Kvy(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
241 |
GMREDI_CALC_TENSOR |
Kuz(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
242 |
GMREDI_CALC_TENSOR |
Kvz(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
252 |
GMREDI_CALC_TENSOR |
hTransLay(i,j) = R_low(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
262 |
GMREDI_CALC_TENSOR |
locMixLayer(i,j) = KPPhbl(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
271 |
GMREDI_CALC_TENSOR |
locMixLayer(i,j) = hMixLayer(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
285 |
GMREDI_CALC_TENSOR |
I bi, bj, myTime, myThid) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
316 |
GMREDI_CALC_TENSOR |
& )*maskC(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
319 |
GMREDI_CALC_TENSOR |
& )*maskC(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
345 |
GMREDI_CALC_TENSOR |
IF ( maskC(i,j,k,bi,bj).NE.0. ) THEN |
|
./pkg/gmredi/gmredi_calc_tensor.F |
346 |
GMREDI_CALC_TENSOR |
integrDepth = -rC( kLowC(i,j,bi,bj) ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
369 |
GMREDI_CALC_TENSOR |
& + maskC(i-1,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
370 |
GMREDI_CALC_TENSOR |
& + maskC(i+1,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
371 |
GMREDI_CALC_TENSOR |
& + maskC(i,j-1,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
372 |
GMREDI_CALC_TENSOR |
& + maskC(i,j+1,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
396 |
GMREDI_CALC_TENSOR |
VisbeckK(i,j,bi,bj) = VisbeckK(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
429 |
GMREDI_CALC_TENSOR |
I kLowC(1-OLx,1-OLy,bi,bj), |
|
./pkg/gmredi/gmredi_calc_tensor.F |
430 |
GMREDI_CALC_TENSOR |
I k, bi, bj, myTime, myIter, myThid ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
435 |
GMREDI_CALC_TENSOR |
SlopeX(i,j)=SlopeX(i,j)*maskC(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
436 |
GMREDI_CALC_TENSOR |
SlopeY(i,j)=SlopeY(i,j)*maskC(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
437 |
GMREDI_CALC_TENSOR |
SlopeSqr(i,j)=SlopeSqr(i,j)*maskC(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
452 |
GMREDI_CALC_TENSOR |
Kwx(i,j,k,bi,bj)= SlopeX(i,j)*taperFct(i,j) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
453 |
GMREDI_CALC_TENSOR |
Kwy(i,j,k,bi,bj)= SlopeY(i,j)*taperFct(i,j) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
454 |
GMREDI_CALC_TENSOR |
Kwz(i,j,k,bi,bj)= SlopeSqr(i,j)*taperFct(i,j) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
484 |
GMREDI_CALC_TENSOR |
VisbeckK(i,j,bi,bj) = VisbeckK(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
505 |
GMREDI_CALC_TENSOR |
VisbeckK(i,j,bi,bj)= |
|
./pkg/gmredi/gmredi_calc_tensor.F |
506 |
GMREDI_CALC_TENSOR |
& MIN( MAX( VisbeckK(i,j,bi,bj), GM_Visbeck_minVal_K ), |
|
./pkg/gmredi/gmredi_calc_tensor.F |
538 |
GMREDI_CALC_TENSOR |
Kgm_tmp = kapRedi(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
540 |
GMREDI_CALC_TENSOR |
Kgm_tmp = op5*(kapRedi(i,j,k,bi,bj)+kapRedi(i,j,km1,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
543 |
GMREDI_CALC_TENSOR |
Kgm_tmp = isopycK*GM_isoFac2d(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
547 |
GMREDI_CALC_TENSOR |
& + GM_skewflx*kapGM(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
549 |
GMREDI_CALC_TENSOR |
& + GM_skewflx*op5*(kapGM(i,j,k,bi,bj)+kapGM(i,j,km1,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
552 |
GMREDI_CALC_TENSOR |
& + GM_skewflx*bolus_K*GM_bolFac2d(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
555 |
GMREDI_CALC_TENSOR |
& + VisbeckK(i,j,bi,bj)*(1. _d 0 + GM_skewflx) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
558 |
GMREDI_CALC_TENSOR |
& + op5*(K3D(i,j,k,bi,bj)+K3D(i,j,km1,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
561 |
GMREDI_CALC_TENSOR |
Kwx(i,j,k,bi,bj)= Kgm_tmp*Kwx(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
562 |
GMREDI_CALC_TENSOR |
Kwy(i,j,k,bi,bj)= Kgm_tmp*Kwy(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
565 |
GMREDI_CALC_TENSOR |
Kwz(i,j,k,bi,bj)= ( kapRedi(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
567 |
GMREDI_CALC_TENSOR |
Kwz(i,j,k,bi,bj)= ( op5*(kapRedi(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
568 |
GMREDI_CALC_TENSOR |
& +kapRedi(i,j,km1,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
571 |
GMREDI_CALC_TENSOR |
Kwz(i,j,k,bi,bj)= ( isopycK*GM_isoFac2d(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
574 |
GMREDI_CALC_TENSOR |
& + VisbeckK(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
577 |
GMREDI_CALC_TENSOR |
& + op5*(K3D(i,j,k,bi,bj)+K3D(i,j,km1,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
579 |
GMREDI_CALC_TENSOR |
& )*Kwz(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
586 |
GMREDI_CALC_TENSOR |
CALL DIAGNOSTICS_FILL( hTransLay, 'GM_hTrsL', 0,1,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
587 |
GMREDI_CALC_TENSOR |
CALL DIAGNOSTICS_FILL( baseSlope, 'GM_baseS', 0,1,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
588 |
GMREDI_CALC_TENSOR |
CALL DIAGNOSTICS_FILL(recipLambda,'GM_rLamb', 0,1,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
600 |
GMREDI_CALC_TENSOR |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/gmredi/gmredi_calc_tensor.F |
610 |
GMREDI_CALC_TENSOR |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/gmredi/gmredi_calc_tensor.F |
626 |
GMREDI_CALC_TENSOR |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/gmredi/gmredi_calc_tensor.F |
641 |
GMREDI_CALC_TENSOR |
locMixLayer(i,j) = ( KPPhbl(i-1,j,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
642 |
GMREDI_CALC_TENSOR |
& + KPPhbl( i ,j,bi,bj) )*op5 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
651 |
GMREDI_CALC_TENSOR |
locMixLayer(i,j) = ( hMixLayer(i-1,j,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
652 |
GMREDI_CALC_TENSOR |
& + hMixLayer( i ,j,bi,bj) )*op5 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
65 |
GMREDI_CALC_TENSOR |
INTEGER bi, bj |
|
./pkg/gmredi/gmredi_calc_tensor.F |
663 |
GMREDI_CALC_TENSOR |
hTransLay(i,j) = MAX( R_low(i-1,j,bi,bj), R_low(i,j,bi,bj) ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
679 |
GMREDI_CALC_TENSOR |
& *_maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
682 |
GMREDI_CALC_TENSOR |
& )*_maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
685 |
GMREDI_CALC_TENSOR |
& )*_maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
709 |
GMREDI_CALC_TENSOR |
I k, bi, bj, myTime, myIter, myThid ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
720 |
GMREDI_CALC_TENSOR |
Kux(i,j,k,bi,bj) = |
|
./pkg/gmredi/gmredi_calc_tensor.F |
723 |
GMREDI_CALC_TENSOR |
& ( kapRedi(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
725 |
GMREDI_CALC_TENSOR |
& ( op5*(kapRedi(i,j,k,bi,bj)+kapRedi(i-1,j,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
729 |
GMREDI_CALC_TENSOR |
& *op5*(GM_isoFac2d(i-1,j,bi,bj)+GM_isoFac2d(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
732 |
GMREDI_CALC_TENSOR |
& +op5*(VisbeckK(i,j,bi,bj)+VisbeckK(i-1,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
735 |
GMREDI_CALC_TENSOR |
& +op5*(K3D(i,j,k,bi,bj)+K3D(i-1,j,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
747 |
GMREDI_CALC_TENSOR |
Kux(i,j,k,bi,bj) = MAX( Kux(i,j,k,bi,bj), GM_Kmin_horiz ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
762 |
GMREDI_CALC_TENSOR |
Kuz(i,j,k,bi,bj) = |
|
./pkg/gmredi/gmredi_calc_tensor.F |
765 |
GMREDI_CALC_TENSOR |
& ( kapRedi(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
767 |
GMREDI_CALC_TENSOR |
& ( op5*(kapRedi(i,j,k,bi,bj)+kapRedi(i-1,j,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
771 |
GMREDI_CALC_TENSOR |
& *op5*(GM_isoFac2d(i-1,j,bi,bj)+GM_isoFac2d(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
775 |
GMREDI_CALC_TENSOR |
& - GM_skewflx*kapGM(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
777 |
GMREDI_CALC_TENSOR |
& - GM_skewflx*op5*(kapGM(i,j,k,bi,bj)+kapGM(i-1,j,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
781 |
GMREDI_CALC_TENSOR |
& *op5*(GM_bolFac2d(i-1,j,bi,bj)+GM_bolFac2d(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
784 |
GMREDI_CALC_TENSOR |
& +op5*(VisbeckK(i,j,bi,bj)+VisbeckK(i-1,j,bi,bj))*GM_advect |
|
./pkg/gmredi/gmredi_calc_tensor.F |
787 |
GMREDI_CALC_TENSOR |
& +op5*(K3D(i,j,k,bi,bj)+K3D(i-1,j,k,bi,bj))*GM_advect |
|
./pkg/gmredi/gmredi_calc_tensor.F |
803 |
GMREDI_CALC_TENSOR |
tmp1k(i,j) = ( kapRedi(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
805 |
GMREDI_CALC_TENSOR |
tmp1k(i,j) = ( op5*(kapRedi(i-1,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
806 |
GMREDI_CALC_TENSOR |
& +kapRedi(i,j,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
810 |
GMREDI_CALC_TENSOR |
& *op5*(GM_isoFac2d(i-1,j,bi,bj)+GM_isoFac2d(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
813 |
GMREDI_CALC_TENSOR |
& +(VisbeckK(i,j,bi,bj)+VisbeckK(i-1,j,bi,bj))*0.5 _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
816 |
GMREDI_CALC_TENSOR |
& +op5*(K3D(i,j,k,bi,bj)+K3D(i-1,j,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
826 |
GMREDI_CALC_TENSOR |
& ( maskC(i-1,j,k,bi,bj)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
827 |
GMREDI_CALC_TENSOR |
& (theta(i-1,j,km1,bi,bj)-theta(i-1,j,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
828 |
GMREDI_CALC_TENSOR |
& +maskC( i ,j,k,bi,bj)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
829 |
GMREDI_CALC_TENSOR |
& (theta( i ,j,km1,bi,bj)-theta( i ,j,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
832 |
GMREDI_CALC_TENSOR |
& ( maskC(i-1,j,kp1,bi,bj)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
833 |
GMREDI_CALC_TENSOR |
& (theta(i-1,j,k,bi,bj)-theta(i-1,j,kp1,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
834 |
GMREDI_CALC_TENSOR |
& +maskC( i ,j,kp1,bi,bj)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
835 |
GMREDI_CALC_TENSOR |
& (theta( i ,j,k,bi,bj)-theta( i ,j,kp1,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
837 |
GMREDI_CALC_TENSOR |
tmp1k(i,j) = dyG(i,j,bi,bj)*drF(k) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
838 |
GMREDI_CALC_TENSOR |
& * _hFacW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
842 |
GMREDI_CALC_TENSOR |
CALL DIAGNOSTICS_FILL(tmp1k, 'GM_KuzTz', k,1,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
856 |
GMREDI_CALC_TENSOR |
locMixLayer(i,j) = ( KPPhbl(i,j-1,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
857 |
GMREDI_CALC_TENSOR |
& + KPPhbl(i, j ,bi,bj) )*op5 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
866 |
GMREDI_CALC_TENSOR |
locMixLayer(i,j) = ( hMixLayer(i,j-1,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
867 |
GMREDI_CALC_TENSOR |
& + hMixLayer(i, j ,bi,bj) )*op5 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
880 |
GMREDI_CALC_TENSOR |
hTransLay(i,j) = MAX( R_low(i,j-1,bi,bj), R_low(i,j,bi,bj) ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
897 |
GMREDI_CALC_TENSOR |
& )*_maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
899 |
GMREDI_CALC_TENSOR |
& *_maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
902 |
GMREDI_CALC_TENSOR |
& )*_maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
924 |
GMREDI_CALC_TENSOR |
I k, bi, bj, myTime, myIter, myThid ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
938 |
GMREDI_CALC_TENSOR |
Kvy(i,j,k,bi,bj) = |
|
./pkg/gmredi/gmredi_calc_tensor.F |
941 |
GMREDI_CALC_TENSOR |
& ( kapRedi(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
943 |
GMREDI_CALC_TENSOR |
& ( op5*(kapRedi(i,j,k,bi,bj)+kapRedi(i,j-1,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
947 |
GMREDI_CALC_TENSOR |
& *op5*(GM_isoFac2d(i,j-1,bi,bj)+GM_isoFac2d(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
950 |
GMREDI_CALC_TENSOR |
& +op5*(VisbeckK(i,j,bi,bj)+VisbeckK(i,j-1,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
953 |
GMREDI_CALC_TENSOR |
& +op5*(K3D(i,j,k,bi,bj)+K3D(i,j-1,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
965 |
GMREDI_CALC_TENSOR |
Kvy(i,j,k,bi,bj) = MAX( Kvy(i,j,k,bi,bj), GM_Kmin_horiz ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
980 |
GMREDI_CALC_TENSOR |
Kvz(i,j,k,bi,bj) = |
|
./pkg/gmredi/gmredi_calc_tensor.F |
983 |
GMREDI_CALC_TENSOR |
& ( kapRedi(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
985 |
GMREDI_CALC_TENSOR |
& ( op5*(kapRedi(i,j,k,bi,bj)+kapRedi(i,j-1,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
989 |
GMREDI_CALC_TENSOR |
& *op5*(GM_isoFac2d(i,j-1,bi,bj)+GM_isoFac2d(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
993 |
GMREDI_CALC_TENSOR |
& - GM_skewflx*kapGM(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
995 |
GMREDI_CALC_TENSOR |
& - GM_skewflx*op5*(kapGM(i,j,k,bi,bj)+kapGM(i,j-1,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
999 |
GMREDI_CALC_TENSOR |
& *op5*(GM_bolFac2d(i,j-1,bi,bj)+GM_bolFac2d(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_urms.F |
10 |
GMREDI_CALC_URMS |
I bi, bj, N2, myThid, |
|
./pkg/gmredi/gmredi_calc_urms.F |
34 |
GMREDI_CALC_URMS |
INTEGER bi, bj |
|
./pkg/gmredi/gmredi_calc_urms.F |
60 |
GMREDI_CALC_URMS |
k = kLowC(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_calc_urms.F |
63 |
GMREDI_CALC_URMS |
& /(modesC(1,i,j,k,bi,bj)-modesC(1,i,j,1,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_urms.F |
73 |
GMREDI_CALC_URMS |
IF (k.LT.kLowC(i,j,bi,bj)) THEN |
|
./pkg/gmredi/gmredi_calc_urms.F |
75 |
GMREDI_CALC_URMS |
& const(i,j)*(modesC(1,i,j,k,bi,bj)-modesC(1,i,j,1,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_urms.F |
86 |
GMREDI_CALC_URMS |
if (kLowC(i,j,bi,bj).EQ.0) urms(i,j,1) = zeroRL |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
100 |
GMREDI_DIAGNOSTICS_FILL |
& 0,Nr,1,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
27 |
GMREDI_DIAGNOSTICS_FILL |
INTEGER bi,bj |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
51 |
GMREDI_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(VisbeckK,'GM_VisbK',0,1,1,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
55 |
GMREDI_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(Kux,'GM_Kux ',0,Nr,1,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
56 |
GMREDI_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(Kvy,'GM_Kvy ',0,Nr,1,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
60 |
GMREDI_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(Kuz,'GM_Kuz ',0,Nr,1,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
61 |
GMREDI_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(Kvz,'GM_Kvz ',0,Nr,1,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
64 |
GMREDI_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(Kwx,'GM_Kwx ',0,Nr,1,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
65 |
GMREDI_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(Kwy,'GM_Kwy ',0,Nr,1,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
66 |
GMREDI_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(Kwz,'GM_Kwz ',0,Nr,1,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
69 |
GMREDI_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(GM_PsiX,'GM_PsiX ',0,Nr,1,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
70 |
GMREDI_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(GM_PsiY,'GM_PsiY ',0,Nr,1,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
79 |
GMREDI_DIAGNOSTICS_FILL |
tmpfld3dloc(i,j,k,bi,bj) = |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
80 |
GMREDI_DIAGNOSTICS_FILL |
& 0.5*rhoConst*fCori(i,j,bi,bj)* |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
81 |
GMREDI_DIAGNOSTICS_FILL |
& Kwy(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
86 |
GMREDI_DIAGNOSTICS_FILL |
& 0,Nr,1,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
8 |
GMREDI_DIAGNOSTICS_FILL |
I bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
93 |
GMREDI_DIAGNOSTICS_FILL |
tmpfld3dloc(i,j,k,bi,bj) = |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
94 |
GMREDI_DIAGNOSTICS_FILL |
& -0.5*rhoConst*fCori(i,j,bi,bj)* |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
95 |
GMREDI_DIAGNOSTICS_FILL |
& Kwx(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_diagnostics_impl.F |
44 |
GMREDI_DIAGNOSTICS_IMPL |
INTEGER bi,bj |
|
./pkg/gmredi/gmredi_diagnostics_impl.F |
54 |
GMREDI_DIAGNOSTICS_IMPL |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/gmredi/gmredi_diagnostics_impl.F |
56 |
GMREDI_DIAGNOSTICS_IMPL |
CALL DIAGNOSTICS_COUNT( 'GM_KwzTz', bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_diagnostics_impl.F |
61 |
GMREDI_DIAGNOSTICS_IMPL |
& *(theta(i,j,k,bi,bj)-theta(i,j,k-1,bi,bj)) |
|
./pkg/gmredi/gmredi_diagnostics_impl.F |
62 |
GMREDI_DIAGNOSTICS_IMPL |
& * maskC(i,j,k,bi,bj)*maskC(i,j,k-1,bi,bj) |
|
./pkg/gmredi/gmredi_diagnostics_impl.F |
63 |
GMREDI_DIAGNOSTICS_IMPL |
tmpVar(i,j) = tmpVar(i,j)*Kwz(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_diagnostics_impl.F |
64 |
GMREDI_DIAGNOSTICS_IMPL |
& *rA(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_diagnostics_impl.F |
68 |
GMREDI_DIAGNOSTICS_IMPL |
& k, 1, 2, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_init_fixed.F |
43 |
GMREDI_INIT_FIXED |
INTEGER bi,bj |
|
./pkg/gmredi/gmredi_init_fixed.F |
46 |
GMREDI_INIT_FIXED |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/gmredi/gmredi_init_fixed.F |
50 |
GMREDI_INIT_FIXED |
GM_isoFac2d(i,j,bi,bj) = 1. _d 0 |
|
./pkg/gmredi/gmredi_init_fixed.F |
51 |
GMREDI_INIT_FIXED |
GM_bolFac2d(i,j,bi,bj) = 1. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
122 |
GMREDI_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/gmredi/gmredi_init_varia.F |
126 |
GMREDI_INIT_VARIA |
gradf(i,j,bi,bj) = beta |
|
./pkg/gmredi/gmredi_init_varia.F |
132 |
GMREDI_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/gmredi/gmredi_init_varia.F |
136 |
GMREDI_INIT_VARIA |
gradf(i,j,bi,bj) = recip_rSphere*fCoriCos(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_init_varia.F |
142 |
GMREDI_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/gmredi/gmredi_init_varia.F |
146 |
GMREDI_INIT_VARIA |
gradf(i,j,bi,bj) = .5 _d 0*angleSinC(i,j,bi,bj)*( |
|
./pkg/gmredi/gmredi_init_varia.F |
147 |
GMREDI_INIT_VARIA |
& (fCori(i+1,j,bi,bj)-fCori(i ,j,bi,bj))*recip_dxC(i+1,j,bi,bj) |
|
./pkg/gmredi/gmredi_init_varia.F |
148 |
GMREDI_INIT_VARIA |
& +(fCori(i ,j,bi,bj)-fCori(i-1,j,bi,bj))*recip_dxC(i,j,bi,bj) ) |
|
./pkg/gmredi/gmredi_init_varia.F |
149 |
GMREDI_INIT_VARIA |
& + .5 _d 0*angleCosC(i,j,bi,bj)*( |
|
./pkg/gmredi/gmredi_init_varia.F |
150 |
GMREDI_INIT_VARIA |
& (fCori(i,j+1,bi,bj)-fCori(i,j ,bi,bj))*recip_dyC(i,j+1,bi,bj) |
|
./pkg/gmredi/gmredi_init_varia.F |
151 |
GMREDI_INIT_VARIA |
& +(fCori(i,j ,bi,bj)-fCori(i,j-1,bi,bj))*recip_dyC(i,j,bi,bj) ) |
|
./pkg/gmredi/gmredi_init_varia.F |
152 |
GMREDI_INIT_VARIA |
gradf(i,j,bi,bj)=max(1. _d -18, gradf(i,j,bi,bj) ) |
|
./pkg/gmredi/gmredi_init_varia.F |
39 |
GMREDI_INIT_VARIA |
INTEGER i,j,k,bi,bj |
|
./pkg/gmredi/gmredi_init_varia.F |
41 |
GMREDI_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/gmredi/gmredi_init_varia.F |
48 |
GMREDI_INIT_VARIA |
Kwx(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
49 |
GMREDI_INIT_VARIA |
Kwy(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
50 |
GMREDI_INIT_VARIA |
Kwz(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
52 |
GMREDI_INIT_VARIA |
Kuz(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
53 |
GMREDI_INIT_VARIA |
Kvz(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
56 |
GMREDI_INIT_VARIA |
Kux(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
57 |
GMREDI_INIT_VARIA |
Kvy(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
60 |
GMREDI_INIT_VARIA |
GM_PsiX(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
61 |
GMREDI_INIT_VARIA |
GM_PsiY(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
64 |
GMREDI_INIT_VARIA |
VisbeckK(i,j,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
67 |
GMREDI_INIT_VARIA |
K3D(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
75 |
GMREDI_INIT_VARIA |
CALL TIMEAVE_RESET(GM_Kwx_T,Nr, bi,bj,myThid) |
|
./pkg/gmredi/gmredi_init_varia.F |
76 |
GMREDI_INIT_VARIA |
CALL TIMEAVE_RESET(GM_Kwy_T,Nr, bi,bj,myThid) |
|
./pkg/gmredi/gmredi_init_varia.F |
77 |
GMREDI_INIT_VARIA |
CALL TIMEAVE_RESET(GM_Kwz_T,Nr, bi,bj,myThid) |
|
./pkg/gmredi/gmredi_init_varia.F |
78 |
GMREDI_INIT_VARIA |
GM_timeAve(bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
80 |
GMREDI_INIT_VARIA |
CALL TIMEAVE_RESET(Visbeck_K_T, 1, bi,bj,myThid) |
|
./pkg/gmredi/gmredi_init_varia.F |
83 |
GMREDI_INIT_VARIA |
CALL TIMEAVE_RESET(GM_PsiXtave,Nr, bi,bj,myThid) |
|
./pkg/gmredi/gmredi_init_varia.F |
84 |
GMREDI_INIT_VARIA |
CALL TIMEAVE_RESET(GM_PsiYtave,Nr, bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1007 |
GMREDI_K3D |
IF (kLowC(i,j,bi,bj).GT.0) THEN |
|
./pkg/gmredi/gmredi_k3d.F |
1009 |
GMREDI_K3D |
& (uKdqdyInt(i,j)-uInt(i,j)*KdqdyInt(i,j)/R_low(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_k3d.F |
1010 |
GMREDI_K3D |
& -(vKdqdxInt(i,j)-vInt(i,j)*KdqdxInt(i,j)/R_low(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_k3d.F |
1060 |
GMREDI_K3D |
psistar(i,j,Nr) = -hfacS(i,j,k,bi,bj)*drF(k)*vstar(i,j,k) |
|
./pkg/gmredi/gmredi_k3d.F |
1067 |
GMREDI_K3D |
& - hfacS(i,j,k,bi,bj)*drF(k)*vstar(i,j,k) |
|
./pkg/gmredi/gmredi_k3d.F |
1078 |
GMREDI_K3D |
GM_PsiX(i,j,k,bi,bj) = -hfacW(i,j,k,bi,bj)*drF(k)*ustar(i,j,k) |
|
./pkg/gmredi/gmredi_k3d.F |
1079 |
GMREDI_K3D |
GM_PsiY(i,j,k,bi,bj) = -hfacS(i,j,k,bi,bj)*drF(k)*vstar(i,j,k) |
|
./pkg/gmredi/gmredi_k3d.F |
1085 |
GMREDI_K3D |
GM_PsiX(i,j,k,bi,bj) = GM_PsiX(i,j,k+1,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
1086 |
GMREDI_K3D |
& - hfacW(i,j,k,bi,bj)*drF(k)*ustar(i,j,k) |
|
./pkg/gmredi/gmredi_k3d.F |
1087 |
GMREDI_K3D |
GM_PsiY(i,j,k,bi,bj) = GM_PsiY(i,j,k+1,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
1088 |
GMREDI_K3D |
& - hfacS(i,j,k,bi,bj)*drF(k)*vstar(i,j,k) |
|
./pkg/gmredi/gmredi_k3d.F |
1099 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(K3D, 'GM_K3D ',0,Nr,1,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1100 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(KPV, 'GM_KPV ',0,Nr,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1101 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(urms, 'GM_URMS ',0,Nr,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1102 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(Rdef, 'GM_RDEF ',0, 1,1,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1103 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(Rurms, 'GM_RURMS',0, 1,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1104 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(RRhines,'GM_RRHNS',0, 1,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1105 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(Rmix, 'GM_RMIX ',0, 1,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1106 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(supp, 'GM_SUPP ',0,Nr,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1107 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(Xix, 'GM_Xix ',0,Nr,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1108 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(Xiy, 'GM_Xiy ',0,Nr,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1109 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(cDopp, 'GM_C ',0, 1,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1110 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(Ubaro, 'GM_UBARO',0, 1,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1111 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(eady, 'GM_EADY ',0, 1,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1112 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(SlopeX, 'GM_Sx ',0,Nr,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1113 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(SlopeY, 'GM_Sy ',0,Nr,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1114 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(tfluxX, 'GM_TFLXX',0,Nr,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1115 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(tfluxY, 'GM_TFLXY',0,Nr,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1116 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(gradqx, 'GM_dqdx ',0,Nr,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1117 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(gradqy, 'GM_dqdy ',0,Nr,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1118 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(Kdqdy, 'GM_Kdqdy',0,Nr,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1119 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(Kdqdx, 'GM_Kdqdx',0,Nr,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1120 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(surfkz, 'GM_SFLYR',0, 1,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1121 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(ustar, 'GM_USTAR',0,Nr,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1122 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(vstar, 'GM_VSTAR',0,Nr,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1123 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(umc, 'GM_UMC ',0,Nr,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1124 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(ubar, 'GM_UBAR ',0,Nr,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1125 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(modesC, 'GM_MODEC',0,Nr,1,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1126 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(M4loc, 'GM_M4 ',0,Nr,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1127 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(N2loc, 'GM_N2 ',0,Nr,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1128 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(M4onN2, 'GM_M4_N2',0,Nr,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1129 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(slopeC, 'GM_SLOPE',0,Nr,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1130 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(Renorm, 'GM_RENRM',0, 1,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1132 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(psistar,'GM_PSTAR',0,Nr,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1143 |
GMREDI_K3D |
K3D(i,j,k,bi,bj) = GM_K3D_constK |
|
./pkg/gmredi/gmredi_k3d.F |
1151 |
GMREDI_K3D |
& CALL DIAGNOSTICS_FILL(K3D, 'GM_K3D_T',0,Nr,1,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
11 |
GMREDI_K3D |
I bi, bj, myTime, myThid ) |
|
./pkg/gmredi/gmredi_k3d.F |
223 |
GMREDI_K3D |
kLow_C(i,j) = kLowC(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
252 |
GMREDI_K3D |
dfdx(i,j) = ( fCori(i,j,bi,bj)-fCori(i-1,j,bi,bj) ) |
|
./pkg/gmredi/gmredi_k3d.F |
253 |
GMREDI_K3D |
& *recip_dxC(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
254 |
GMREDI_K3D |
dfdy(i,j) = ( fCori(i,j,bi,bj)-fCori(i,j-1,bi,bj) ) |
|
./pkg/gmredi/gmredi_k3d.F |
255 |
GMREDI_K3D |
& *recip_dyC(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
264 |
GMREDI_K3D |
fCoriU(i,j)= op5*( fCori(i,j,bi,bj)+fCori(i-1,j,bi,bj) ) |
|
./pkg/gmredi/gmredi_k3d.F |
273 |
GMREDI_K3D |
fCoriV(i,j)= op5*( fCori(i,j,bi,bj)+fCori(i,j-1,bi,bj) ) |
|
./pkg/gmredi/gmredi_k3d.F |
282 |
GMREDI_K3D |
fCoriU(i,j)= fCori(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
283 |
GMREDI_K3D |
coriU(i,j) = SIGN( MAX( ABS(fCori(i,j,bi,bj)),GM_K3D_minCori ), |
|
./pkg/gmredi/gmredi_k3d.F |
284 |
GMREDI_K3D |
& fCori(i,j,bi,bj) ) |
|
./pkg/gmredi/gmredi_k3d.F |
288 |
GMREDI_K3D |
fCoriV(i,j)= fCori(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
289 |
GMREDI_K3D |
coriV(i,j) = SIGN( MAX( ABS(fCori(i,j,bi,bj)),GM_K3D_minCori ), |
|
./pkg/gmredi/gmredi_k3d.F |
290 |
GMREDI_K3D |
& fCori(i,j,bi,bj) ) |
|
./pkg/gmredi/gmredi_k3d.F |
344 |
GMREDI_K3D |
uFldX(i,j,k) = uEulerMean(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
345 |
GMREDI_K3D |
vFldY(i,j,k) = vEulerMean(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
354 |
GMREDI_K3D |
uFldX(i,j,k) = uVel(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
355 |
GMREDI_K3D |
vFldY(i,j,k) = vVel(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
383 |
GMREDI_K3D |
tmpU(i,j) = tmpU(i,j) * maskC(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
384 |
GMREDI_K3D |
tmpV(i,j) = tmpV(i,j) * maskC(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
391 |
GMREDI_K3D |
& angleCosC(i,j,bi,bj)*tmpU(i,j) |
|
./pkg/gmredi/gmredi_k3d.F |
392 |
GMREDI_K3D |
& -angleSinC(i,j,bi,bj)*tmpV(i,j) |
|
./pkg/gmredi/gmredi_k3d.F |
404 |
GMREDI_K3D |
& drF(k)*hfacC(i,j,k,bi,bj)*ubar(i,j,k) |
|
./pkg/gmredi/gmredi_k3d.F |
40 |
GMREDI_K3D |
INTEGER bi, bj |
|
./pkg/gmredi/gmredi_k3d.F |
412 |
GMREDI_K3D |
Ubaro(i,j) = -Ubaro(i,j)/r_Low(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
424 |
GMREDI_K3D |
N2(i,j,k) = MAX(N2(i,j,k),GM_K3D_minN2)*maskC(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
447 |
GMREDI_K3D |
BVint(i,j) = BVint(i,j) + hFacC(i,j,k,bi,bj)*drF(k) |
|
./pkg/gmredi/gmredi_k3d.F |
456 |
GMREDI_K3D |
I iMin,iMax,jMin,jMax,bi,bj,N2,myThid, |
|
./pkg/gmredi/gmredi_k3d.F |
457 |
GMREDI_K3D |
I kLow_C, maskC(:,:,:,bi,bj), |
|
./pkg/gmredi/gmredi_k3d.F |
458 |
GMREDI_K3D |
I hfacC(:,:,:,bi,bj), recip_hfacC(:,:,:,bi,bj), |
|
./pkg/gmredi/gmredi_k3d.F |
459 |
GMREDI_K3D |
I R_Low(:,:,bi,bj), 1, .TRUE., |
|
./pkg/gmredi/gmredi_k3d.F |
460 |
GMREDI_K3D |
O Rmid, modesC(:,:,:,:,bi,bj)) |
|
./pkg/gmredi/gmredi_k3d.F |
465 |
GMREDI_K3D |
Req = SQRT(BVint(i,j)/(2. _d 0*pi*gradf(i,j,bi,bj))) |
|
./pkg/gmredi/gmredi_k3d.F |
466 |
GMREDI_K3D |
Rdef(i,j,bi,bj) = MIN(Rmid(i,j),Req) |
|
./pkg/gmredi/gmredi_k3d.F |
509 |
GMREDI_K3D |
& (-hMixLayer(i,j,bi,bj).LE.-rC(k)) ) THEN |
|
./pkg/gmredi/gmredi_k3d.F |
520 |
GMREDI_K3D |
& + hfacC(i,j,k,bi,bj)*drF(k)*M4onN2(i,j,k) |
|
./pkg/gmredi/gmredi_k3d.F |
553 |
GMREDI_K3D |
Rurms(i,j) = MIN(Rdef(i,j,bi,bj),GM_K3D_Rmax) |
|
./pkg/gmredi/gmredi_k3d.F |
560 |
GMREDI_K3D |
RRhines(i,j) = SQRT(urms(i,j,1)/gradf(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_k3d.F |
563 |
GMREDI_K3D |
Rmix(i,j) = MIN(Rdef(i,j,bi,bj), RRhines(i,j)) |
|
./pkg/gmredi/gmredi_k3d.F |
569 |
GMREDI_K3D |
& - gradf(i,j,bi,bj)*Rdef(i,j,bi,bj)*Rdef(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
580 |
GMREDI_K3D |
I iMin,iMax,jMin,jMax,bi,bj,N2,myThid, |
|
./pkg/gmredi/gmredi_k3d.F |
589 |
GMREDI_K3D |
K3D(i,j,k,bi,bj) = GM_K3D_smallK |
|
./pkg/gmredi/gmredi_k3d.F |
592 |
GMREDI_K3D |
K3D(i,j,k,bi,bj) = GM_K3D_smallK |
|
./pkg/gmredi/gmredi_k3d.F |
597 |
GMREDI_K3D |
K3D(i,j,k,bi,bj) = GM_K3D_gamma*urms(i,j,k) |
|
./pkg/gmredi/gmredi_k3d.F |
602 |
GMREDI_K3D |
K3D(i,j,k,bi,bj) = MIN(K3D(i,j,k,bi,bj),GM_maxK3D) |
|
./pkg/gmredi/gmredi_k3d.F |
603 |
GMREDI_K3D |
K3D(i,j,k,bi,bj) = MAX(K3D(i,j,k,bi,bj),GM_K3D_smallK) |
|
./pkg/gmredi/gmredi_k3d.F |
620 |
GMREDI_K3D |
surfkz(i,j) = MIN(-GM_K3D_surfMinDepth,-hMixLayer(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_k3d.F |
621 |
GMREDI_K3D |
surfkz(i,j) = MAX(surfkz(i,j),R_low(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_k3d.F |
622 |
GMREDI_K3D |
IF(maskC(i,j,1,bi,bj).EQ.0.0) surfkz(i,j)=0.0 |
|
./pkg/gmredi/gmredi_k3d.F |
645 |
GMREDI_K3D |
IF(surfk(i,j).GE.kLowC(i,j,bi,bj)) THEN |
|
./pkg/gmredi/gmredi_k3d.F |
658 |
GMREDI_K3D |
SlopeX(i,j,k)=-maskW(i,j,k-1,bi,bj)*maskW(i,j,k,bi,bj)*slope |
|
./pkg/gmredi/gmredi_k3d.F |
666 |
GMREDI_K3D |
SlopeY(i,j,k)=-maskS(i,j,k-1,bi,bj)*maskS(i,j,k,bi,bj)*slope |
|
./pkg/gmredi/gmredi_k3d.F |
680 |
GMREDI_K3D |
& *recip_drF(k)*recip_hFacW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
683 |
GMREDI_K3D |
& *recip_drF(k)*recip_hFacS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
687 |
GMREDI_K3D |
KPV(i,j,k) = K3D(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
698 |
GMREDI_K3D |
& *recip_drF(k)*recip_hFacW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
699 |
GMREDI_K3D |
& *maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
702 |
GMREDI_K3D |
& *recip_drF(k)*recip_hFacS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
703 |
GMREDI_K3D |
& *maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
707 |
GMREDI_K3D |
KPV(i,j,k) = K3D(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
730 |
GMREDI_K3D |
hsurf = -rLowW(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
737 |
GMREDI_K3D |
tfluxX(i,j,k) = -fCoriU(i,j)*maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
740 |
GMREDI_K3D |
tfluxX(i,j,k) = -fCoriU(i,j)*maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
749 |
GMREDI_K3D |
hsurf = -rLowS(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
756 |
GMREDI_K3D |
tfluxY(i,j,k) = -fCoriV(i,j)*maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
759 |
GMREDI_K3D |
tfluxY(i,j,k) = -fCoriV(i,j)*maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
783 |
GMREDI_K3D |
gradqx(i,j,k) = maskW(i,j,k,bi,bj)*tfluxX(i,j,k) |
|
./pkg/gmredi/gmredi_k3d.F |
784 |
GMREDI_K3D |
gradqy(i,j,k) = maskS(i,j,k,bi,bj)*tfluxY(i,j,k) |
|
./pkg/gmredi/gmredi_k3d.F |
794 |
GMREDI_K3D |
gradqx(i,j,k) = maskW(i,j,k,bi,bj)*(dfdx(i,j)+tfluxX(i,j,k)) |
|
./pkg/gmredi/gmredi_k3d.F |
795 |
GMREDI_K3D |
gradqy(i,j,k) = maskS(i,j,k,bi,bj)*(dfdy(i,j)+tfluxY(i,j,k)) |
|
./pkg/gmredi/gmredi_k3d.F |
809 |
GMREDI_K3D |
N2W(i,j,k) = maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
811 |
GMREDI_K3D |
N2S(i,j,k) = maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
838 |
GMREDI_K3D |
Xix(i,j,k) = -maskW(i,j,k,bi,bj)*KPV(i,j,k)*gradqx(i,j,k) |
|
./pkg/gmredi/gmredi_k3d.F |
839 |
GMREDI_K3D |
Xiy(i,j,k) = -maskS(i,j,k,bi,bj)*KPV(i,j,k)*gradqy(i,j,k) |
|
./pkg/gmredi/gmredi_k3d.F |
853 |
GMREDI_K3D |
I iMin,iMax,jMin,jMax,bi,bj,N2W,myThid, |
|
./pkg/gmredi/gmredi_k3d.F |
854 |
GMREDI_K3D |
I kLow_U,maskW(:,:,:,bi,bj), |
|
./pkg/gmredi/gmredi_k3d.F |
855 |
GMREDI_K3D |
I hfacW(:,:,:,bi,bj),recip_hfacW(:,:,:,bi,bj), |
|
./pkg/gmredi/gmredi_k3d.F |
856 |
GMREDI_K3D |
I rLowW(:,:,bi,bj),GM_K3D_NModes,.FALSE., |
|
./pkg/gmredi/gmredi_k3d.F |
857 |
GMREDI_K3D |
O dummy,modesW(:,:,:,:,bi,bj)) |
|
./pkg/gmredi/gmredi_k3d.F |
874 |
GMREDI_K3D |
& - maskW(i,j,k,bi,bj)*drF(k)*hfacW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
875 |
GMREDI_K3D |
& *Kdqdx(i,j,k)*modesW(m,i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
894 |
GMREDI_K3D |
& + maskW(i,j,k,bi,bj)*XimX(m,i,j)*modesW(m,i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
905 |
GMREDI_K3D |
I iMin,iMax,jMin,jMax,bi,bj,N2S,myThid, |
|
./pkg/gmredi/gmredi_k3d.F |
906 |
GMREDI_K3D |
I kLow_V,maskS(:,:,:,bi,bj), |
|
./pkg/gmredi/gmredi_k3d.F |
907 |
GMREDI_K3D |
I hfacS(:,:,:,bi,bj),recip_hfacS(:,:,:,bi,bj), |
|
./pkg/gmredi/gmredi_k3d.F |
908 |
GMREDI_K3D |
I rLowS(:,:,bi,bj), GM_K3D_NModes, .FALSE., |
|
./pkg/gmredi/gmredi_k3d.F |
909 |
GMREDI_K3D |
O dummy,modesS(:,:,:,:,bi,bj)) |
|
./pkg/gmredi/gmredi_k3d.F |
925 |
GMREDI_K3D |
& - drF(k)*hfacS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
926 |
GMREDI_K3D |
& *Kdqdy(i,j,k)*modesS(m,i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
945 |
GMREDI_K3D |
& + maskS(i,j,k,bi,bj)*XimY(m,i,j)*modesS(m,i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
973 |
GMREDI_K3D |
centreX = op5*(uVel(i,j,k,bi,bj)+uVel(i+1,j,k,bi,bj)) |
|
./pkg/gmredi/gmredi_k3d.F |
977 |
GMREDI_K3D |
& + centreX*hfacC(i,j,k,bi,bj)*drF(k) |
|
./pkg/gmredi/gmredi_k3d.F |
979 |
GMREDI_K3D |
& + centreY*hfacC(i,j,k,bi,bj)*drF(k) |
|
./pkg/gmredi/gmredi_k3d.F |
981 |
GMREDI_K3D |
& + centreX*centreY*hfacC(i,j,k,bi,bj)*drF(k) |
|
./pkg/gmredi/gmredi_k3d.F |
985 |
GMREDI_K3D |
& + centreX*centreY*hfacC(i,j,k,bi,bj)*drF(k) |
|
./pkg/gmredi/gmredi_k3d.F |
988 |
GMREDI_K3D |
centreY = op5*(vVel(i,j,k,bi,bj)+vVel(i,j+1,k,bi,bj) ) |
|
./pkg/gmredi/gmredi_k3d.F |
991 |
GMREDI_K3D |
& + centreY*hfacC(i,j,k,bi,bj)*drF(k) |
|
./pkg/gmredi/gmredi_k3d.F |
993 |
GMREDI_K3D |
& + CentreX*hfacC(i,j,k,bi,bj)*drF(k) |
|
./pkg/gmredi/gmredi_k3d.F |
995 |
GMREDI_K3D |
& + centreY*centreX*hfacC(i,j,k,bi,bj)*drF(k) |
|
./pkg/gmredi/gmredi_k3d.F |
999 |
GMREDI_K3D |
& + centreY*centreX*hfacC(i,j,k,bi,bj)*drF(k) |
|
./pkg/gmredi/gmredi_output.F |
116 |
GMREDI_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/gmredi/gmredi_output.F |
119 |
GMREDI_OUTPUT |
& Nr, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_output.F |
121 |
GMREDI_OUTPUT |
& Nr, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_output.F |
123 |
GMREDI_OUTPUT |
& Nr, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_output.F |
127 |
GMREDI_OUTPUT |
& 1 , bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_output.F |
132 |
GMREDI_OUTPUT |
& Nr, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_output.F |
134 |
GMREDI_OUTPUT |
& Nr, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_output.F |
196 |
GMREDI_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/gmredi/gmredi_output.F |
198 |
GMREDI_OUTPUT |
CALL TIMEAVE_RESET( GM_Kwx_T, Nr, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_output.F |
199 |
GMREDI_OUTPUT |
CALL TIMEAVE_RESET( GM_Kwy_T, Nr, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_output.F |
200 |
GMREDI_OUTPUT |
CALL TIMEAVE_RESET( GM_Kwz_T, Nr, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_output.F |
203 |
GMREDI_OUTPUT |
& CALL TIMEAVE_RESET( Visbeck_K_T, 1, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_output.F |
207 |
GMREDI_OUTPUT |
CALL TIMEAVE_RESET( GM_PsiXtave, Nr, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_output.F |
208 |
GMREDI_OUTPUT |
CALL TIMEAVE_RESET( GM_PsiYtave, Nr, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_output.F |
211 |
GMREDI_OUTPUT |
GM_timeAve(bi,bj) = 0. |
|
./pkg/gmredi/gmredi_output.F |
53 |
GMREDI_OUTPUT |
INTEGER bi, bj |
|
./pkg/gmredi/gmredi_read_pickup.F |
143 |
GMREDI_READ_PICKUP |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/gmredi/gmredi_read_pickup.F |
148 |
GMREDI_READ_PICKUP |
modesC(1,i,j,k,bi,bj) = vec(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_read_pickup.F |
161 |
GMREDI_READ_PICKUP |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/gmredi/gmredi_read_pickup.F |
166 |
GMREDI_READ_PICKUP |
modesW(n,i,j,k,bi,bj) = vec(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_read_pickup.F |
180 |
GMREDI_READ_PICKUP |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/gmredi/gmredi_read_pickup.F |
185 |
GMREDI_READ_PICKUP |
modesS(n,i,j,k,bi,bj) = vec(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_read_pickup.F |
46 |
GMREDI_READ_PICKUP |
INTEGER i,j,k,n,nm,ioUnit,bi,bj |
|
./pkg/gmredi/gmredi_residual_flow.F |
106 |
GMREDI_RESIDUAL_FLOW |
delPsi = GM_PsiX(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_residual_flow.F |
107 |
GMREDI_RESIDUAL_FLOW |
& - GM_PsiX(i,j, k, bi,bj) |
|
./pkg/gmredi/gmredi_residual_flow.F |
108 |
GMREDI_RESIDUAL_FLOW |
ustar = delPsi*recip_drF(k)*_recip_hFacW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_residual_flow.F |
109 |
GMREDI_RESIDUAL_FLOW |
uEulerMean(i,j,k,bi,bj) = uVel(i,j,k,bi,bj) - ustar |
|
./pkg/gmredi/gmredi_residual_flow.F |
114 |
GMREDI_RESIDUAL_FLOW |
delPsi = GM_PsiY(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_residual_flow.F |
115 |
GMREDI_RESIDUAL_FLOW |
& - GM_PsiY(i,j, k, bi,bj) |
|
./pkg/gmredi/gmredi_residual_flow.F |
116 |
GMREDI_RESIDUAL_FLOW |
vstar = delPsi*recip_drF(k)*_recip_hFacS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_residual_flow.F |
117 |
GMREDI_RESIDUAL_FLOW |
vEulerMean(i,j,k,bi,bj) = vVel(i,j,k,bi,bj) - vstar |
|
./pkg/gmredi/gmredi_residual_flow.F |
11 |
GMREDI_RESIDUAL_FLOW |
I bi, bj, myIter, myThid ) |
|
./pkg/gmredi/gmredi_residual_flow.F |
125 |
GMREDI_RESIDUAL_FLOW |
CALL DIAGNOSTICS_FILL(uEulerMean,'U_EulerM',0,Nr,1,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_residual_flow.F |
126 |
GMREDI_RESIDUAL_FLOW |
CALL DIAGNOSTICS_FILL(vEulerMean,'V_EulerM',0,Nr,1,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_residual_flow.F |
37 |
GMREDI_RESIDUAL_FLOW |
INTEGER bi, bj, myIter, myThid |
|
./pkg/gmredi/gmredi_residual_flow.F |
67 |
GMREDI_RESIDUAL_FLOW |
delPsi = GM_PsiX(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_residual_flow.F |
68 |
GMREDI_RESIDUAL_FLOW |
& - GM_PsiX(i,j, k, bi,bj) |
|
./pkg/gmredi/gmredi_residual_flow.F |
70 |
GMREDI_RESIDUAL_FLOW |
& + delPsi*recip_drF(k)*_recip_hFacW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_residual_flow.F |
75 |
GMREDI_RESIDUAL_FLOW |
delPsi = GM_PsiY(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_residual_flow.F |
76 |
GMREDI_RESIDUAL_FLOW |
& - GM_PsiY(i,j, k, bi,bj) |
|
./pkg/gmredi/gmredi_residual_flow.F |
78 |
GMREDI_RESIDUAL_FLOW |
& + delPsi*recip_drF(k)*_recip_hFacS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_residual_flow.F |
83 |
GMREDI_RESIDUAL_FLOW |
delPsi = ( dyG(i+1,j,bi,bj)*GM_PsiX(i+1,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_residual_flow.F |
84 |
GMREDI_RESIDUAL_FLOW |
& -dyG( i ,j,bi,bj)*GM_PsiX( i ,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_residual_flow.F |
85 |
GMREDI_RESIDUAL_FLOW |
& +dxG(i,j+1,bi,bj)*GM_PsiY(i,j+1,k,bi,bj) |
|
./pkg/gmredi/gmredi_residual_flow.F |
86 |
GMREDI_RESIDUAL_FLOW |
& -dxG(i, j ,bi,bj)*GM_PsiY(i, j ,k,bi,bj) |
|
./pkg/gmredi/gmredi_residual_flow.F |
87 |
GMREDI_RESIDUAL_FLOW |
& )*maskC(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_residual_flow.F |
88 |
GMREDI_RESIDUAL_FLOW |
wFld(i,j,k) = wFld(i,j,k) + delPsi*recip_rA(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
103 |
GMREDI_RTRANSPORT |
& +op5*(_maskW(i+1,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
104 |
GMREDI_RTRANSPORT |
& *_recip_dxC(i+1,j,bi,bj)* |
|
./pkg/gmredi/gmredi_rtransport.F |
106 |
GMREDI_RTRANSPORT |
& +_maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
107 |
GMREDI_RTRANSPORT |
& *_recip_dxC(i,j,bi,bj)* |
|
./pkg/gmredi/gmredi_rtransport.F |
109 |
GMREDI_RTRANSPORT |
& +op5*(_maskW(i+1,j,k-1,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
110 |
GMREDI_RTRANSPORT |
& *_recip_dxC(i+1,j,bi,bj)* |
|
./pkg/gmredi/gmredi_rtransport.F |
112 |
GMREDI_RTRANSPORT |
& +_maskW(i,j,k-1,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
113 |
GMREDI_RTRANSPORT |
& *_recip_dxC(i,j,bi,bj)* |
|
./pkg/gmredi/gmredi_rtransport.F |
118 |
GMREDI_RTRANSPORT |
& +op5*(_maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
119 |
GMREDI_RTRANSPORT |
& *_recip_dyC(i,j,bi,bj)* |
|
./pkg/gmredi/gmredi_rtransport.F |
121 |
GMREDI_RTRANSPORT |
& +_maskS(i,j+1,k,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
122 |
GMREDI_RTRANSPORT |
& *_recip_dyC(i,j+1,bi,bj)* |
|
./pkg/gmredi/gmredi_rtransport.F |
124 |
GMREDI_RTRANSPORT |
& +op5*(_maskS(i,j,k-1,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
125 |
GMREDI_RTRANSPORT |
& *_recip_dyC(i,j,bi,bj)* |
|
./pkg/gmredi/gmredi_rtransport.F |
127 |
GMREDI_RTRANSPORT |
& +_maskS(i,j+1,k-1,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
128 |
GMREDI_RTRANSPORT |
& *_recip_dyC(i,j+1,bi,bj)* |
|
./pkg/gmredi/gmredi_rtransport.F |
12 |
GMREDI_RTRANSPORT |
I trIdentity, bi, bj, k, |
|
./pkg/gmredi/gmredi_rtransport.F |
147 |
GMREDI_RTRANSPORT |
& - _rA(i,j,bi,bj)*maskInC(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
148 |
GMREDI_RTRANSPORT |
& *( LS_Kwx(i,j,k,bi,bj)*dTdx(i,j) |
|
./pkg/gmredi/gmredi_rtransport.F |
149 |
GMREDI_RTRANSPORT |
& + LS_Kwy(i,j,k,bi,bj)*dTdy(i,j) ) |
|
./pkg/gmredi/gmredi_rtransport.F |
157 |
GMREDI_RTRANSPORT |
& - _rA(i,j,bi,bj)*maskInC(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
158 |
GMREDI_RTRANSPORT |
& *( Kwx(i,j,k,bi,bj)*dTdx(i,j) |
|
./pkg/gmredi/gmredi_rtransport.F |
159 |
GMREDI_RTRANSPORT |
& + Kwy(i,j,k,bi,bj)*dTdy(i,j) ) |
|
./pkg/gmredi/gmredi_rtransport.F |
172 |
GMREDI_RTRANSPORT |
& dyG(i+1,j,bi,bj)*GM_PsiX(i+1,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
173 |
GMREDI_RTRANSPORT |
& -dyG( i ,j,bi,bj)*GM_PsiX( i ,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
174 |
GMREDI_RTRANSPORT |
& +dxG(i,j+1,bi,bj)*GM_PsiY(i,j+1,k,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
175 |
GMREDI_RTRANSPORT |
& -dxG(i, j ,bi,bj)*GM_PsiY(i, j ,k,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
187 |
GMREDI_RTRANSPORT |
& *maskInC(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
57 |
GMREDI_RTRANSPORT |
INTEGER bi, bj, k |
|
./pkg/gmredi/gmredi_rtransport.F |
79 |
GMREDI_RTRANSPORT |
act2 = bj - myByLo(myThid) |
|
./pkg/gmredi/gmredi_slope_limit.F |
134 |
GMREDI_SLOPE_LIMIT |
act2 = bj - myByLo(myThid) |
|
./pkg/gmredi/gmredi_slope_limit.F |
19 |
GMREDI_SLOPE_LIMIT |
I k, bi, bj, myTime, myIter, myThid ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
95 |
GMREDI_SLOPE_LIMIT |
INTEGER k, bi,bj |
|
./pkg/gmredi/gmredi_slope_psi.F |
15 |
GMREDI_SLOPE_PSI |
I bi,bj, myThid ) |
|
./pkg/gmredi/gmredi_slope_psi.F |
54 |
GMREDI_SLOPE_PSI |
INTEGER K,bi,bj,myThid |
|
./pkg/gmredi/gmredi_slope_psi.F |
79 |
GMREDI_SLOPE_PSI |
act2 = bj - myByLo(myThid) |
|
./pkg/gmredi/gmredi_write_pickup.F |
104 |
GMREDI_WRITE_PICKUP |
vec(i,j,k,bi,bj) = modesW(n,i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_write_pickup.F |
119 |
GMREDI_WRITE_PICKUP |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/gmredi/gmredi_write_pickup.F |
124 |
GMREDI_WRITE_PICKUP |
vec(i,j,k,bi,bj) = modesS(n,i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_write_pickup.F |
54 |
GMREDI_WRITE_PICKUP |
INTEGER i,j,k,bi,bj,m,n, nm, fp, lChar |
|
./pkg/gmredi/gmredi_write_pickup.F |
80 |
GMREDI_WRITE_PICKUP |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/gmredi/gmredi_write_pickup.F |
85 |
GMREDI_WRITE_PICKUP |
vec(i,j,k,bi,bj) = modesC(1,i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_write_pickup.F |
99 |
GMREDI_WRITE_PICKUP |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/gmredi/gmredi_xtransport.F |
131 |
GMREDI_XTRANSPORT |
& *Kux(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_xtransport.F |
134 |
GMREDI_XTRANSPORT |
& *(kapRedi(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_xtransport.F |
139 |
GMREDI_XTRANSPORT |
& +op5*(VisbeckK(i,j,bi,bj)+VisbeckK(i-1,j,bi,bj)) |
|
./pkg/gmredi/gmredi_xtransport.F |
143 |
GMREDI_XTRANSPORT |
& *_recip_dxC(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_xtransport.F |
158 |
GMREDI_XTRANSPORT |
& ( maskC(i-1,j,k,bi,bj)* |
|
./pkg/gmredi/gmredi_xtransport.F |
160 |
GMREDI_XTRANSPORT |
& +maskC( i ,j,k,bi,bj)* |
|
./pkg/gmredi/gmredi_xtransport.F |
164 |
GMREDI_XTRANSPORT |
& ( maskC(i-1,j,kp1,bi,bj)* |
|
./pkg/gmredi/gmredi_xtransport.F |
166 |
GMREDI_XTRANSPORT |
& +maskC( i ,j,kp1,bi,bj)* |
|
./pkg/gmredi/gmredi_xtransport.F |
16 |
GMREDI_XTRANSPORT |
I trIdentity, bi, bj, k, |
|
./pkg/gmredi/gmredi_xtransport.F |
179 |
GMREDI_XTRANSPORT |
df(i,j) = df(i,j) - xA(i,j)*Kuz(i,j,k,bi,bj)*dTdz(i,j) |
|
./pkg/gmredi/gmredi_xtransport.F |
193 |
GMREDI_XTRANSPORT |
uTrans(i,j) = dyG(i,j,bi,bj)*( GM_PsiX(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_xtransport.F |
194 |
GMREDI_XTRANSPORT |
& -GM_PsiX(i,j,k,bi,bj) ) |
|
./pkg/gmredi/gmredi_xtransport.F |
195 |
GMREDI_XTRANSPORT |
& *maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_xtransport.F |
221 |
GMREDI_XTRANSPORT |
tmp1k(i,j) = dyG(i,j,bi,bj)*( GM_PsiX(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_xtransport.F |
222 |
GMREDI_XTRANSPORT |
& -GM_PsiX(i,j,k,bi,bj) ) |
|
./pkg/gmredi/gmredi_xtransport.F |
223 |
GMREDI_XTRANSPORT |
& *maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_xtransport.F |
227 |
GMREDI_XTRANSPORT |
CALL DIAGNOSTICS_FILL(tmp1k,'GM_ubT ', k,1,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_xtransport.F |
61 |
GMREDI_XTRANSPORT |
INTEGER bi, bj, k |
|
./pkg/gmredi/gmredi_xtransport.F |
95 |
GMREDI_XTRANSPORT |
act2 = bj - myByLo(myThid) |
|
./pkg/gmredi/gmredi_ytransport.F |
130 |
GMREDI_YTRANSPORT |
& *Kvy(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_ytransport.F |
133 |
GMREDI_YTRANSPORT |
& *(kapRedi(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_ytransport.F |
138 |
GMREDI_YTRANSPORT |
& +op5*(VisbeckK(i,j,bi,bj)+VisbeckK(i,j-1,bi,bj)) |
|
./pkg/gmredi/gmredi_ytransport.F |
142 |
GMREDI_YTRANSPORT |
& *_recip_dyC(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_ytransport.F |
157 |
GMREDI_YTRANSPORT |
& ( maskC(i,j-1,k,bi,bj)* |
|
./pkg/gmredi/gmredi_ytransport.F |
159 |
GMREDI_YTRANSPORT |
& +maskC(i, j ,k,bi,bj)* |
|
./pkg/gmredi/gmredi_ytransport.F |
15 |
GMREDI_YTRANSPORT |
I trIdentity, bi, bj, k, |
|
./pkg/gmredi/gmredi_ytransport.F |
163 |
GMREDI_YTRANSPORT |
& ( maskC(i,j-1,kp1,bi,bj)* |
|
./pkg/gmredi/gmredi_ytransport.F |
165 |
GMREDI_YTRANSPORT |
& +maskC(i, j ,kp1,bi,bj)* |
|
./pkg/gmredi/gmredi_ytransport.F |
177 |
GMREDI_YTRANSPORT |
df(i,j) = df(i,j) - yA(i,j)*Kvz(i,j,k,bi,bj)*dTdz(i,j) |
|
./pkg/gmredi/gmredi_ytransport.F |
192 |
GMREDI_YTRANSPORT |
vTrans(i,j) = dxG(i,j,bi,bj)*( GM_PsiY(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_ytransport.F |
193 |
GMREDI_YTRANSPORT |
& -GM_PsiY(i,j,k,bi,bj) ) |
|
./pkg/gmredi/gmredi_ytransport.F |
194 |
GMREDI_YTRANSPORT |
& *maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_ytransport.F |
219 |
GMREDI_YTRANSPORT |
tmp1k(i,j) = dxG(i,j,bi,bj)*( GM_PsiY(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_ytransport.F |
220 |
GMREDI_YTRANSPORT |
& -GM_PsiY(i,j,k,bi,bj) ) |
|
./pkg/gmredi/gmredi_ytransport.F |
221 |
GMREDI_YTRANSPORT |
& *maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_ytransport.F |
225 |
GMREDI_YTRANSPORT |
CALL DIAGNOSTICS_FILL(tmp1k,'GM_vbT ', k,1,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_ytransport.F |
60 |
GMREDI_YTRANSPORT |
INTEGER bi, bj, k |
|
./pkg/gmredi/gmredi_ytransport.F |
94 |
GMREDI_YTRANSPORT |
act2 = bj - myByLo(myThid) |
|
./pkg/gmredi/submeso_calc_psi.F |
10 |
SUBMESO_CALC_PSI |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/gmredi/submeso_calc_psi.F |
157 |
SUBMESO_CALC_PSI |
& *MIN( dxC(i,j,bi,bj), subMeso_Lmax ) |
|
./pkg/gmredi/submeso_calc_psi.F |
174 |
SUBMESO_CALC_PSI |
GM_PsiX(i,j,k,bi,bj) = GM_PsiX(i,j,k,bi,bj) |
|
./pkg/gmredi/submeso_calc_psi.F |
183 |
SUBMESO_CALC_PSI |
& 0, 1, 2, bi, bj, myThid ) |
|
./pkg/gmredi/submeso_calc_psi.F |
185 |
SUBMESO_CALC_PSI |
& 0, 1, 2, bi, bj, myThid ) |
|
./pkg/gmredi/submeso_calc_psi.F |
190 |
SUBMESO_CALC_PSI |
& bi,bj,1,myIter,myThid ) |
|
./pkg/gmredi/submeso_calc_psi.F |
192 |
SUBMESO_CALC_PSI |
& bi,bj,1,myIter,myThid ) |
|
./pkg/gmredi/submeso_calc_psi.F |
200 |
SUBMESO_CALC_PSI |
& *MIN( dyC(i,j,bi,bj), subMeso_Lmax ) |
|
./pkg/gmredi/submeso_calc_psi.F |
217 |
SUBMESO_CALC_PSI |
GM_PsiY(i,j,k,bi,bj) = GM_PsiY(i,j,k,bi,bj) |
|
./pkg/gmredi/submeso_calc_psi.F |
226 |
SUBMESO_CALC_PSI |
& 0, 1, 2, bi, bj, myThid ) |
|
./pkg/gmredi/submeso_calc_psi.F |
231 |
SUBMESO_CALC_PSI |
& bi,bj,1,myIter,myThid ) |
|
./pkg/gmredi/submeso_calc_psi.F |
41 |
SUBMESO_CALC_PSI |
INTEGER bi,bj,iMin,iMax,jMin,jMax |
|
./pkg/gmredi/submeso_calc_psi.F |
82 |
SUBMESO_CALC_PSI |
mixLayerU(i,j) = MIN( mixLayerU(i,j), -rLowW(i,j,bi,bj) ) |
|
./pkg/gmredi/submeso_calc_psi.F |
88 |
SUBMESO_CALC_PSI |
mixLayerV(i,j) = MIN( mixLayerV(i,j), -rLowS(i,j,bi,bj) ) |
|
./pkg/gmredi/submeso_calc_psi.F |
98 |
SUBMESO_CALC_PSI |
fcorLoc(i,j) = SQRT( fCori(i,j,bi,bj)*fCori(i,j,bi,bj) |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
110 |
GRDCHK_GET_OBCS_MASK |
do bj = jtlo,jthi |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
114 |
GRDCHK_GET_OBCS_MASK |
grdchk_maskxz(i,k,bi,bj,iobcs) = |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
115 |
GRDCHK_GET_OBCS_MASK |
& tmpfldxz(i,k,bi,bj) |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
133 |
GRDCHK_GET_OBCS_MASK |
do bj = jtlo,jthi |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
137 |
GRDCHK_GET_OBCS_MASK |
grdchk_maskyz(j,k,bi,bj,iobcs) = |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
138 |
GRDCHK_GET_OBCS_MASK |
& tmpfldyz(j,k,bi,bj) |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
156 |
GRDCHK_GET_OBCS_MASK |
do bj = jtlo,jthi |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
160 |
GRDCHK_GET_OBCS_MASK |
grdchk_maskyz(j,k,bi,bj,iobcs) = |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
161 |
GRDCHK_GET_OBCS_MASK |
& tmpfldyz(j,k,bi,bj) |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
41 |
GRDCHK_GET_OBCS_MASK |
integer bi,bj |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
87 |
GRDCHK_GET_OBCS_MASK |
do bj = jtlo,jthi |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
91 |
GRDCHK_GET_OBCS_MASK |
grdchk_maskxz(i,k,bi,bj,iobcs) = |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
92 |
GRDCHK_GET_OBCS_MASK |
& tmpfldxz(i,k,bi,bj) |
|
./pkg/grdchk/grdchk_get_position.F |
131 |
GRDCHK_GET_POSITION |
bj = jtile |
|
./pkg/grdchk/grdchk_get_position.F |
145 |
GRDCHK_GET_POSITION |
if ( maskC(i,j,k,bi,bj) .gt. 0.) then |
|
./pkg/grdchk/grdchk_get_position.F |
148 |
GRDCHK_GET_POSITION |
wetlocal = maskC(i,j,k,bi,bj) |
|
./pkg/grdchk/grdchk_get_position.F |
150 |
GRDCHK_GET_POSITION |
if ( _maskS(i,j,k,bi,bj) .gt. 0.) then |
|
./pkg/grdchk/grdchk_get_position.F |
153 |
GRDCHK_GET_POSITION |
wetlocal = _maskS(i,j,k,bi,bj) |
|
./pkg/grdchk/grdchk_get_position.F |
155 |
GRDCHK_GET_POSITION |
if ( _maskW(i,j,k,bi,bj) .gt. 0.) then |
|
./pkg/grdchk/grdchk_get_position.F |
158 |
GRDCHK_GET_POSITION |
wetlocal = _maskW(i,j,k,bi,bj) |
|
./pkg/grdchk/grdchk_get_position.F |
162 |
GRDCHK_GET_POSITION |
if ( maskSHI(i,j,k,bi,bj) .gt. 0.) then |
|
./pkg/grdchk/grdchk_get_position.F |
165 |
GRDCHK_GET_POSITION |
wetlocal = maskSHI(i,j,k,bi,bj) |
|
./pkg/grdchk/grdchk_get_position.F |
170 |
GRDCHK_GET_POSITION |
if (grdchk_maskxz(i,k,bi,bj,iobcs) .gt. 0. |
|
./pkg/grdchk/grdchk_get_position.F |
171 |
GRDCHK_GET_POSITION |
& .and. j.eq. OB_Jn(I,bi,bj) ) then |
|
./pkg/grdchk/grdchk_get_position.F |
174 |
GRDCHK_GET_POSITION |
wetlocal = grdchk_maskxz(i,k,bi,bj,iobcs) |
|
./pkg/grdchk/grdchk_get_position.F |
178 |
GRDCHK_GET_POSITION |
if (grdchk_maskxz(i,k,bi,bj,iobcs) .gt. 0. |
|
./pkg/grdchk/grdchk_get_position.F |
179 |
GRDCHK_GET_POSITION |
& .and. j.eq. OB_Js(I,bi,bj) ) then |
|
./pkg/grdchk/grdchk_get_position.F |
182 |
GRDCHK_GET_POSITION |
wetlocal = grdchk_maskxz(i,k,bi,bj,iobcs) |
|
./pkg/grdchk/grdchk_get_position.F |
186 |
GRDCHK_GET_POSITION |
if ( grdchk_maskyz(j,k,bi,bj,iobcs) .gt. 0. |
|
./pkg/grdchk/grdchk_get_position.F |
187 |
GRDCHK_GET_POSITION |
& .and. i.eq. OB_Iw(J,bi,bj) ) then |
|
./pkg/grdchk/grdchk_get_position.F |
190 |
GRDCHK_GET_POSITION |
wetlocal = grdchk_maskyz(j,k,bi,bj,iobcs) |
|
./pkg/grdchk/grdchk_get_position.F |
194 |
GRDCHK_GET_POSITION |
if (grdchk_maskyz(j,k,bi,bj,iobcs) .gt. 0. |
|
./pkg/grdchk/grdchk_get_position.F |
195 |
GRDCHK_GET_POSITION |
& .and. i.eq. OB_Ie(J,bi,bj) ) then |
|
./pkg/grdchk/grdchk_get_position.F |
198 |
GRDCHK_GET_POSITION |
wetlocal = grdchk_maskyz(j,k,bi,bj,iobcs) |
|
./pkg/grdchk/grdchk_get_position.F |
207 |
GRDCHK_GET_POSITION |
& bj .EQ. jtile .AND. |
|
./pkg/grdchk/grdchk_get_position.F |
243 |
GRDCHK_GET_POSITION |
itest = itest + nwettile(bi,bj,k,iobcs) |
|
./pkg/grdchk/grdchk_get_position.F |
59 |
GRDCHK_GET_POSITION |
integer bi,bj |
|
./pkg/grdchk/grdchk_init.F |
100 |
GRDCHK_INIT |
nwettile(bi,bj,k,1) = nwetwtile(bi,bj,k) |
|
./pkg/grdchk/grdchk_init.F |
105 |
GRDCHK_INIT |
do bj = jtlo,jthi |
|
./pkg/grdchk/grdchk_init.F |
108 |
GRDCHK_INIT |
nwettile(bi,bj,k,1) = nwetvtile(bi,bj,k) |
|
./pkg/grdchk/grdchk_init.F |
114 |
GRDCHK_INIT |
do bj = jtlo,jthi |
|
./pkg/grdchk/grdchk_init.F |
117 |
GRDCHK_INIT |
nwettile(bi,bj,k,1) = nwetitile(bi,bj,k) |
|
./pkg/grdchk/grdchk_init.F |
123 |
GRDCHK_INIT |
do bj = jtlo,jthi |
|
./pkg/grdchk/grdchk_init.F |
129 |
GRDCHK_INIT |
nwettile(bi,bj,k,iobcs) = |
|
./pkg/grdchk/grdchk_init.F |
130 |
GRDCHK_INIT |
& nwetobcsn(bi,bj,k,iobcs) |
|
./pkg/grdchk/grdchk_init.F |
134 |
GRDCHK_INIT |
nwettile(bi,bj,k,iobcs) = |
|
./pkg/grdchk/grdchk_init.F |
135 |
GRDCHK_INIT |
& nwetobcss(bi,bj,k,iobcs) |
|
./pkg/grdchk/grdchk_init.F |
139 |
GRDCHK_INIT |
nwettile(bi,bj,k,iobcs) = |
|
./pkg/grdchk/grdchk_init.F |
140 |
GRDCHK_INIT |
& nwetobcsw(bi,bj,k,iobcs) |
|
./pkg/grdchk/grdchk_init.F |
144 |
GRDCHK_INIT |
nwettile(bi,bj,k,iobcs) = |
|
./pkg/grdchk/grdchk_init.F |
145 |
GRDCHK_INIT |
& nwetobcse(bi,bj,k,iobcs) |
|
./pkg/grdchk/grdchk_init.F |
167 |
GRDCHK_INIT |
do bj = jtlo,jthi |
|
./pkg/grdchk/grdchk_init.F |
171 |
GRDCHK_INIT |
ncvarcomp = ncvarcomp + nwettile(bi,bj,k,iobcs) |
|
./pkg/grdchk/grdchk_init.F |
182 |
GRDCHK_INIT |
do bj = jtlo,jthi |
|
./pkg/grdchk/grdchk_init.F |
184 |
GRDCHK_INIT |
iwetsum(bi,bj,0) = 0 |
|
./pkg/grdchk/grdchk_init.F |
186 |
GRDCHK_INIT |
iwetsum(bi,bj,k) = iwetsum(bi,bj,k-1) + |
|
./pkg/grdchk/grdchk_init.F |
187 |
GRDCHK_INIT |
& nwettile(bi,bj,k,1) |
|
./pkg/grdchk/grdchk_init.F |
43 |
GRDCHK_INIT |
integer bi,bj |
|
./pkg/grdchk/grdchk_init.F |
68 |
GRDCHK_INIT |
do bj = jtlo,jthi |
|
./pkg/grdchk/grdchk_init.F |
72 |
GRDCHK_INIT |
nwettile(bi,bj,k,iobcs) = 0 |
|
./pkg/grdchk/grdchk_init.F |
81 |
GRDCHK_INIT |
do bj = jtlo,jthi |
|
./pkg/grdchk/grdchk_init.F |
84 |
GRDCHK_INIT |
nwettile(bi,bj,k,1) = nwetctile(bi,bj,k) |
|
./pkg/grdchk/grdchk_init.F |
89 |
GRDCHK_INIT |
do bj = jtlo,jthi |
|
./pkg/grdchk/grdchk_init.F |
92 |
GRDCHK_INIT |
nwettile(bi,bj,k,1) = nwetstile(bi,bj,k) |
|
./pkg/grdchk/grdchk_init.F |
97 |
GRDCHK_INIT |
do bj = jtlo,jthi |
|
./model/src/adams_bashforth2.F |
10 |
ADAMS_BASHFORTH2 |
I bi, bj, kArg, kSize, |
|
./model/src/adams_bashforth2.F |
47 |
ADAMS_BASHFORTH2 |
INTEGER bi, bj, kArg, kSize |
|
./pkg/grdchk/grdchk_loc.F |
158 |
GRDCHK_LOC |
bj = jLocTile |
|
./pkg/grdchk/grdchk_loc.F |
161 |
GRDCHK_LOC |
icglo = icglo + nwettile(bi,bj,k,iobcs) |
|
./pkg/grdchk/grdchk_loc.F |
162 |
GRDCHK_LOC |
icglom1 = icglo - nwettile(bi,bj,k,iobcs) |
|
./pkg/grdchk/grdchk_loc.F |
165 |
GRDCHK_LOC |
& bi, bj, icomptest, ichknum |
|
./pkg/grdchk/grdchk_loc.F |
185 |
GRDCHK_LOC |
jtile = bj |
|
./pkg/grdchk/grdchk_loc.F |
193 |
GRDCHK_LOC |
if ( maskC(i,j,k,bi,bj) .gt. 0.) then |
|
./pkg/grdchk/grdchk_loc.F |
199 |
GRDCHK_LOC |
if ( _maskS(i,j,k,bi,bj) .gt. 0.) then |
|
./pkg/grdchk/grdchk_loc.F |
205 |
GRDCHK_LOC |
if ( _maskW(i,j,k,bi,bj) .gt. 0.) then |
|
./pkg/grdchk/grdchk_loc.F |
212 |
GRDCHK_LOC |
if ( maskSHI(i,j,k,bi,bj) .gt. 0.) then |
|
./pkg/grdchk/grdchk_loc.F |
221 |
GRDCHK_LOC |
if ( grdchk_maskxz(i,k,bi,bj,iobcs) .gt. 0. |
|
./pkg/grdchk/grdchk_loc.F |
222 |
GRDCHK_LOC |
& .and. j.eq. OB_Jn(I,bi,bj) ) then |
|
./pkg/grdchk/grdchk_loc.F |
225 |
GRDCHK_LOC |
jtmp = OB_Jn(I,bi,bj) |
|
./pkg/grdchk/grdchk_loc.F |
230 |
GRDCHK_LOC |
if ( grdchk_maskxz(i,k,bi,bj,iobcs) .gt. 0. |
|
./pkg/grdchk/grdchk_loc.F |
231 |
GRDCHK_LOC |
& .and. j.eq. OB_Js(I,bi,bj) ) then |
|
./pkg/grdchk/grdchk_loc.F |
234 |
GRDCHK_LOC |
jtmp = OB_Js(I,bi,bj) |
|
./pkg/grdchk/grdchk_loc.F |
239 |
GRDCHK_LOC |
if ( grdchk_maskyz(j,k,bi,bj,iobcs) .gt. 0. |
|
./pkg/grdchk/grdchk_loc.F |
240 |
GRDCHK_LOC |
& .and. i.eq. OB_Iw(J,bi,bj) ) then |
|
./pkg/grdchk/grdchk_loc.F |
242 |
GRDCHK_LOC |
itmp = OB_Iw(J,bi,bj) |
|
./pkg/grdchk/grdchk_loc.F |
248 |
GRDCHK_LOC |
if ( grdchk_maskyz(j,k,bi,bj,iobcs) .gt. 0. |
|
./pkg/grdchk/grdchk_loc.F |
249 |
GRDCHK_LOC |
& .and. i.eq. OB_Ie(J,bi,bj) ) then |
|
./pkg/grdchk/grdchk_loc.F |
251 |
GRDCHK_LOC |
itmp = OB_Ie(J,bi,bj) |
|
./pkg/grdchk/grdchk_loc.F |
282 |
GRDCHK_LOC |
icomptest = icomptest + nwettile(bi,bj,k,iobcs) |
|
./pkg/grdchk/grdchk_loc.F |
74 |
GRDCHK_LOC |
integer bi,bj |
|
./pkg/grdchk/grdchk_main.F |
100 |
GRDCHK_MAIN |
INTEGER bi, bj |
|
./pkg/grdchk/grdchk_main.F |
177 |
GRDCHK_MAIN |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/grdchk/grdchk_main.F |
182 |
GRDCHK_MAIN |
tmpplot1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/grdchk/grdchk_main.F |
183 |
GRDCHK_MAIN |
tmpplot2(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/grdchk/grdchk_main.F |
184 |
GRDCHK_MAIN |
tmpplot3(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gridalt/dyn2phys.F |
102 |
DYN2PHYS |
dpkedyn = pedyn(i,j,L,bi,bj)-pedyn(i,j,L+1,bi,bj) |
|
./pkg/gridalt/dyn2phys.F |
108 |
DYN2PHYS |
dpkephy = pephy(i,j,Lphy,bi,bj)-pephy(i,j,Lphy+1,bi,bj) |
|
./pkg/gridalt/dyn2phys.F |
109 |
DYN2PHYS |
windsum = windsum+(windphy(i,j,Lphy,bi,bj)*dpkephy)/dpkedyn |
|
./pkg/gridalt/dyn2phys.F |
116 |
DYN2PHYS |
. weights(i,j,Lphy)=windphy(i,j,Lphy,bi,bj)/windsum |
|
./pkg/gridalt/dyn2phys.F |
117 |
DYN2PHYS |
if( (flg.eq.2) .and. (pedyn(i,j,L,bi,bj).lt.10000.)) then |
|
./pkg/gridalt/dyn2phys.F |
119 |
DYN2PHYS |
. (qd-5. + (10.*(pedyn(i,j,L,bi,bj)-pphy(i,j,Lphy))/dpkedyn))/qd |
|
./pkg/gridalt/dyn2phys.F |
120 |
DYN2PHYS |
elseif( (flg.eq.2) .and. (pedyn(i,j,L,bi,bj).ge.10000.)) then |
|
./pkg/gridalt/dyn2phys.F |
123 |
DYN2PHYS |
qphy(i,j,Lphy,bi,bj) = qd * weights(i,j,Lphy) |
|
./pkg/gridalt/dyn2phys.F |
47 |
DYN2PHYS |
integer idim1, idim2, jdim1, jdim2, bi, bj |
|
./pkg/gridalt/dyn2phys.F |
7 |
DYN2PHYS |
. idim1,idim2,jdim1,jdim2,bi,bj,windphy,pephy,Lbot,lmphy,nlperdyn, |
|
./pkg/gridalt/dyn2phys.F |
80 |
DYN2PHYS |
. (pephy(i,j,Lphy,bi,bj)+pephy(i,j,Lphy+1,bi,bj))/2. |
|
./pkg/gridalt/dyn2phys.F |
90 |
DYN2PHYS |
qd = qdyn(i,j,L,bi,bj) |
|
./pkg/gridalt/dyn2phys.F |
92 |
DYN2PHYS |
if(L.ge.Lbot(i,j,bi,bj))then |
|
./pkg/gridalt/dyn2phys.F |
93 |
DYN2PHYS |
if(L.eq.Lbot(i,j,bi,bj)) then |
|
./pkg/gridalt/dyn2phys.F |
96 |
DYN2PHYS |
Lout1 = nlperdyn(i,j,L-1,bi,bj) |
|
./pkg/gridalt/dyn2phys.F |
98 |
DYN2PHYS |
Lout2 = nlperdyn(i,j,L,bi,bj) |
|
./pkg/gridalt/gridalt_initialise.F |
30 |
GRIDALT_INITIALISE |
integer bi, bj |
|
./pkg/gridalt/gridalt_initialise.F |
44 |
GRIDALT_INITIALISE |
do bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/gridalt/gridalt_initialise.F |
48 |
GRIDALT_INITIALISE |
. 1,sNx,1,sNy,bi,bj,Nrphys,ksurfC,dpphys0,nlph,nlperdyn) |
|
./model/src/adams_bashforth3.F |
10 |
ADAMS_BASHFORTH3 |
I bi, bj, kArg, kSize, |
|
./model/src/adams_bashforth3.F |
110 |
ADAMS_BASHFORTH3 |
& + ab1*gTrNm(i,j,k,bi,bj,m1) |
|
./model/src/adams_bashforth3.F |
111 |
ADAMS_BASHFORTH3 |
& + ab2*gTrNm(i,j,k,bi,bj,m2) |
|
./model/src/adams_bashforth3.F |
112 |
ADAMS_BASHFORTH3 |
gTrNm(i,j,k,bi,bj,m2) = gTracer(i,j,k) + AB_gTr(i,j) |
|
./model/src/adams_bashforth3.F |
122 |
ADAMS_BASHFORTH3 |
& + ab1*gTrNm(i,j,k,bi,bj,m1) |
|
./model/src/adams_bashforth3.F |
123 |
ADAMS_BASHFORTH3 |
& + ab2*gTrNm(i,j,k,bi,bj,m2) |
|
./model/src/adams_bashforth3.F |
124 |
ADAMS_BASHFORTH3 |
gTrNm(i,j,k,bi,bj,m2) = gTracer(i,j,k) |
|
./model/src/adams_bashforth3.F |
65 |
ADAMS_BASHFORTH3 |
INTEGER bi, bj, kArg, kSize |
|
./pkg/gridalt/gridalt_update.F |
30 |
GRIDALT_UPDATE |
integer i1,i2,j1,j2,bi,bj |
|
./pkg/gridalt/gridalt_update.F |
49 |
GRIDALT_UPDATE |
do bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/gridalt/gridalt_update.F |
55 |
GRIDALT_UPDATE |
dpphys(i,j,L,bi,bj) = dpphys0(i,j,L,bi,bj) * |
|
./pkg/gridalt/gridalt_update.F |
56 |
GRIDALT_UPDATE |
. rstarfacC(i,j,bi,bj) |
|
./pkg/gridalt/gridalt_update.F |
71 |
GRIDALT_UPDATE |
do bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/gridalt/gridalt_update.F |
76 |
GRIDALT_UPDATE |
temparr(i,j,L,bi,bj) = dpphys(i,j,L,bi,bj) * 1. _d -2 |
|
./pkg/gridalt/make_phys_grid.F |
123 |
MAKE_PHYS_GRID |
Lbotij = Lbot(i,j,bi,bj) |
|
./pkg/gridalt/make_phys_grid.F |
130 |
MAKE_PHYS_GRID |
& (dptry_accum(Lnew).gt.(hfacC(i,j,Lbotij,bi,bj)*drF(Lbotij))))then |
|
./pkg/gridalt/make_phys_grid.F |
144 |
MAKE_PHYS_GRID |
if((hfacC(i,j,Lbotij,bi,bj)*drF(Lbotij)).ge. |
|
./pkg/gridalt/make_phys_grid.F |
147 |
MAKE_PHYS_GRID |
dpphys(i,j,nlphys,bi,bj) = dptry(Lnew) |
|
./pkg/gridalt/make_phys_grid.F |
152 |
MAKE_PHYS_GRID |
if((dptry(Lnew-1)+(hfacC(i,j,Lbotij,bi,bj)* |
|
./pkg/gridalt/make_phys_grid.F |
156 |
MAKE_PHYS_GRID |
dpphys(i,j,nlphys,bi,bj) = |
|
./pkg/gridalt/make_phys_grid.F |
157 |
MAKE_PHYS_GRID |
& (hfacC(i,j,Lbotij,bi,bj)*drF(Lbotij))-deltap |
|
./pkg/gridalt/make_phys_grid.F |
160 |
MAKE_PHYS_GRID |
dpphys(i,j,nlphys,bi,bj) = dpphys(i,j,nlphys,bi,bj) + |
|
./pkg/gridalt/make_phys_grid.F |
161 |
MAKE_PHYS_GRID |
& (hfacC(i,j,Lbotij,bi,bj)*drF(Lbotij)-deltap) |
|
./pkg/gridalt/make_phys_grid.F |
163 |
MAKE_PHYS_GRID |
deltap = deltap+(hfacC(i,j,Lbotij,bi,bj)*drF(Lbotij)-deltap) |
|
./pkg/gridalt/make_phys_grid.F |
167 |
MAKE_PHYS_GRID |
nlperdyn(i,j,Lbotij,bi,bj) = nlphys |
|
./pkg/gridalt/make_phys_grid.F |
178 |
MAKE_PHYS_GRID |
if((hfacC(i,j,L,bi,bj)*drF(L)).ge.deltap+dptry(Lnew))then |
|
./pkg/gridalt/make_phys_grid.F |
180 |
MAKE_PHYS_GRID |
dpphys(i,j,nlphys,bi,bj) = dptry(Lnew) |
|
./pkg/gridalt/make_phys_grid.F |
187 |
MAKE_PHYS_GRID |
if( (dptry(Lnew-1)+(hfacC(i,j,L,bi,bj)*drF(L)-deltap)) |
|
./pkg/gridalt/make_phys_grid.F |
191 |
MAKE_PHYS_GRID |
dpphys(i,j,nlphys,bi,bj) = |
|
./pkg/gridalt/make_phys_grid.F |
192 |
MAKE_PHYS_GRID |
& (hfacC(i,j,L,bi,bj)*drF(L))-deltap |
|
./pkg/gridalt/make_phys_grid.F |
193 |
MAKE_PHYS_GRID |
deltap = hfacC(i,j,L,bi,bj)*drF(L) |
|
./pkg/gridalt/make_phys_grid.F |
196 |
MAKE_PHYS_GRID |
dpphys(i,j,nlphys,bi,bj) = dpphys(i,j,nlphys,bi,bj) + |
|
./pkg/gridalt/make_phys_grid.F |
197 |
MAKE_PHYS_GRID |
& (hfacC(i,j,L,bi,bj)*drF(L)-deltap) |
|
./pkg/gridalt/make_phys_grid.F |
198 |
MAKE_PHYS_GRID |
deltap = hfacC(i,j,L,bi,bj)*drF(L) |
|
./pkg/gridalt/make_phys_grid.F |
207 |
MAKE_PHYS_GRID |
if(abs(deltap-hfacC(i,j,L-1,bi,bj)*drF(L-1)).gt.0.001)then |
|
./pkg/gridalt/make_phys_grid.F |
209 |
MAKE_PHYS_GRID |
dpphys(i,j,nlphys,bi,bj) = hfacC(i,j,L-1,bi,bj)*drF(L-1) |
|
./pkg/gridalt/make_phys_grid.F |
217 |
MAKE_PHYS_GRID |
if(abs(deltap-hfacC(i,j,L-1,bi,bj)*drF(L-1)).gt.0.001)then |
|
./pkg/gridalt/make_phys_grid.F |
219 |
MAKE_PHYS_GRID |
dpphys(i,j,nlphys,bi,bj) = hfacC(i,j,L-1,bi,bj)*drF(L-1) |
|
./pkg/gridalt/make_phys_grid.F |
222 |
MAKE_PHYS_GRID |
dpphys(i,j,nlphys,bi,bj) = hfacC(i,j,L,bi,bj)*drF(L) |
|
./pkg/gridalt/make_phys_grid.F |
225 |
MAKE_PHYS_GRID |
dpphys(i,j,nlphys,bi,bj) = hfacC(i,j,L,bi,bj)*drF(L) |
|
./pkg/gridalt/make_phys_grid.F |
231 |
MAKE_PHYS_GRID |
dpphys(i,j,nlphys,bi,bj) = hfacC(i,j,L,bi,bj)*drF(L) |
|
./pkg/gridalt/make_phys_grid.F |
233 |
MAKE_PHYS_GRID |
nlperdyn(i,j,L,bi,bj) = nlphys |
|
./pkg/gridalt/make_phys_grid.F |
240 |
MAKE_PHYS_GRID |
dpphys(i,j,nlphys,bi,bj)=dpphys(i,j,nlphys,bi,bj)-thindp*nlevs |
|
./pkg/gridalt/make_phys_grid.F |
242 |
MAKE_PHYS_GRID |
dpphys(i,j,Lnew,bi,bj) = thindp |
|
./pkg/gridalt/make_phys_grid.F |
244 |
MAKE_PHYS_GRID |
nlperdyn(i,j,Nr,bi,bj) = numlevphys |
|
./pkg/gridalt/make_phys_grid.F |
48 |
MAKE_PHYS_GRID |
integer i1,i2,j1,j2,bi,bj |
|
./pkg/gridalt/make_phys_grid.F |
7 |
MAKE_PHYS_GRID |
& nSx,nSy,i1,i2,j1,j2,bi,bj,Nrphys,Lbot,dpphys,numlevphys,nlperdyn) |
|
./pkg/gridalt/make_phys_grid.F |
98 |
MAKE_PHYS_GRID |
nlperdyn(i,j,L,bi,bj) = 0 |
|
./pkg/gridalt/phys2dyn.F |
43 |
PHYS2DYN |
integer idim1, idim2, jdim1, jdim2, bi, bj |
|
./pkg/gridalt/phys2dyn.F |
74 |
PHYS2DYN |
qdyn(i,j,L,bi,bj) = 0. |
|
./pkg/gridalt/phys2dyn.F |
76 |
PHYS2DYN |
if(L.ge.Lbot(i,j,bi,bj))then |
|
./pkg/gridalt/phys2dyn.F |
77 |
PHYS2DYN |
if(L.eq.Lbot(i,j,bi,bj)) then |
|
./pkg/gridalt/phys2dyn.F |
7 |
PHYS2DYN |
. idim1,idim2,jdim1,jdim2,bi,bj,pedyn,Lbot,lmdyn,nlperdyn,qdyn) |
|
./pkg/gridalt/phys2dyn.F |
80 |
PHYS2DYN |
Lout1 = nlperdyn(i,j,L-1,bi,bj) |
|
./pkg/gridalt/phys2dyn.F |
82 |
PHYS2DYN |
Lout2 = nlperdyn(i,j,L,bi,bj) |
|
./pkg/gridalt/phys2dyn.F |
86 |
PHYS2DYN |
dpkedyn = pedyn(i,j,L,bi,bj)-pedyn(i,j,L+1,bi,bj) |
|
./pkg/gridalt/phys2dyn.F |
92 |
PHYS2DYN |
dpkephy = pephy(i,j,Lphy,bi,bj)-pephy(i,j,Lphy+1,bi,bj) |
|
./pkg/gridalt/phys2dyn.F |
93 |
PHYS2DYN |
sum=sum+qphy(i,j,Lphy,bi,bj)*(dpkephy/dpkedyn) |
|
./pkg/gridalt/phys2dyn.F |
95 |
PHYS2DYN |
qdyn(i,j,L,bi,bj) = sum |
|
./pkg/icefront/icefront_init_fixed.F |
100 |
ICEFRONT_INIT_FIXED |
& K_icefront(I,J,bi,bj) = K |
|
./pkg/icefront/icefront_init_fixed.F |
108 |
ICEFRONT_INIT_FIXED |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/icefront/icefront_init_fixed.F |
113 |
ICEFRONT_INIT_FIXED |
IF (ICEFRONTlength(I,J,bi,bj) .GT. 0. _d 0) THEN |
|
./pkg/icefront/icefront_init_fixed.F |
115 |
ICEFRONT_INIT_FIXED |
IsInterface=Isinterface + K_icefront(I,J,bi,bj) |
|
./pkg/icefront/icefront_init_fixed.F |
37 |
ICEFRONT_INIT_FIXED |
INTEGER I, J, K, bi, bj |
|
./pkg/icefront/icefront_init_fixed.F |
83 |
ICEFRONT_INIT_FIXED |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/icefront/icefront_init_fixed.F |
87 |
ICEFRONT_INIT_FIXED |
R_icefront(I,J,bi,bj) = ABS(R_icefront(I,J,bi,bj)) |
|
./pkg/icefront/icefront_init_fixed.F |
93 |
ICEFRONT_INIT_FIXED |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/icefront/icefront_init_fixed.F |
97 |
ICEFRONT_INIT_FIXED |
K_icefront(i,j,bi,bj) = 0 |
|
./pkg/icefront/icefront_init_fixed.F |
99 |
ICEFRONT_INIT_FIXED |
IF ( R_icefront(I,J,bi,bj) .GT. ABS(rF(K))) |
|
./pkg/icefront/icefront_init_varia.F |
31 |
ICEFRONT_INIT_VARIA |
INTEGER I, J, K, bi, bj |
|
./pkg/icefront/icefront_init_varia.F |
34 |
ICEFRONT_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/icefront/icefront_init_varia.F |
39 |
ICEFRONT_INIT_VARIA |
icefront_TendT (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/icefront/icefront_init_varia.F |
40 |
ICEFRONT_INIT_VARIA |
icefront_TendS (i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/add_walls2masks.F |
108 |
ADD_WALLS2MASKS |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./model/src/add_walls2masks.F |
112 |
ADD_WALLS2MASKS |
IF ( tmpFldW(i,j,bi,bj).EQ.oneRS ) THEN |
|
./model/src/add_walls2masks.F |
114 |
ADD_WALLS2MASKS |
hFacW(i,j,k,bi,bj) = zeroRS |
|
./model/src/add_walls2masks.F |
116 |
ADD_WALLS2MASKS |
rLowW (i,j,bi,bj) = rF(1) |
|
./model/src/add_walls2masks.F |
117 |
ADD_WALLS2MASKS |
rSurfW(i,j,bi,bj) = rF(1) |
|
./model/src/add_walls2masks.F |
119 |
ADD_WALLS2MASKS |
IF ( tmpFldS(i,j,bi,bj).EQ.oneRS ) THEN |
|
./model/src/add_walls2masks.F |
121 |
ADD_WALLS2MASKS |
hFacS(i,j,k,bi,bj) = zeroRS |
|
./model/src/add_walls2masks.F |
123 |
ADD_WALLS2MASKS |
rLowS (i,j,bi,bj) = rF(1) |
|
./model/src/add_walls2masks.F |
124 |
ADD_WALLS2MASKS |
rSurfS(i,j,bi,bj) = rF(1) |
|
./model/src/add_walls2masks.F |
45 |
ADD_WALLS2MASKS |
INTEGER bi, bj |
|
./model/src/add_walls2masks.F |
54 |
ADD_WALLS2MASKS |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./model/src/add_walls2masks.F |
58 |
ADD_WALLS2MASKS |
tmpFldW(i,j,bi,bj) = zeroRS |
|
./model/src/add_walls2masks.F |
59 |
ADD_WALLS2MASKS |
tmpFldS(i,j,bi,bj) = zeroRS |
|
./model/src/add_walls2masks.F |
81 |
ADD_WALLS2MASKS |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./model/src/add_walls2masks.F |
85 |
ADD_WALLS2MASKS |
IF ( dyG(i,j,bi,bj).EQ.zeroRS ) THEN |
|
./model/src/add_walls2masks.F |
87 |
ADD_WALLS2MASKS |
hFacW(i,j,k,bi,bj) = zeroRS |
|
./model/src/add_walls2masks.F |
89 |
ADD_WALLS2MASKS |
rLowW (i,j,bi,bj) = rF(1) |
|
./model/src/add_walls2masks.F |
90 |
ADD_WALLS2MASKS |
rSurfW(i,j,bi,bj) = rF(1) |
|
./model/src/add_walls2masks.F |
92 |
ADD_WALLS2MASKS |
IF ( dxG(i,j,bi,bj).EQ.zeroRS ) THEN |
|
./model/src/add_walls2masks.F |
94 |
ADD_WALLS2MASKS |
hFacS(i,j,k,bi,bj) = zeroRS |
|
./model/src/add_walls2masks.F |
96 |
ADD_WALLS2MASKS |
rLowS (i,j,bi,bj) = rF(1) |
|
./model/src/add_walls2masks.F |
97 |
ADD_WALLS2MASKS |
rSurfS(i,j,bi,bj) = rF(1) |
|
./pkg/icefront/icefront_tendency_apply.F |
103 |
ICEFRONT_TENDENCY_APPLY_S |
IF ( k .LE. k_icefront(i,j,bi,bj) ) THEN |
|
./pkg/icefront/icefront_tendency_apply.F |
105 |
ICEFRONT_TENDENCY_APPLY_S |
& + ICEFRONT_TendS(i,j,k,bi,bj) |
|
./pkg/icefront/icefront_tendency_apply.F |
17 |
ICEFRONT_TENDENCY_APPLY_T |
I k, bi, bj, myTime, myIter, myThid ) |
|
./pkg/icefront/icefront_tendency_apply.F |
39 |
ICEFRONT_TENDENCY_APPLY_T |
INTEGER k, bi, bj |
|
./pkg/icefront/icefront_tendency_apply.F |
51 |
ICEFRONT_TENDENCY_APPLY_T |
IF ( k .LE. k_icefront(i,j,bi,bj) ) THEN |
|
./pkg/icefront/icefront_tendency_apply.F |
53 |
ICEFRONT_TENDENCY_APPLY_T |
& + ICEFRONT_TendT(i,j,k,bi,bj) |
|
./pkg/icefront/icefront_tendency_apply.F |
69 |
ICEFRONT_TENDENCY_APPLY_S |
I k, bi, bj, myTime, myIter, myThid ) |
|
./pkg/icefront/icefront_tendency_apply.F |
91 |
ICEFRONT_TENDENCY_APPLY_S |
INTEGER k, bi, bj |
|
./pkg/icefront/icefront_thermodynamics.F |
113 |
ICEFRONT_THERMODYNAMICS |
tLoc = theta(I,J,K,bi,bj) |
|
./pkg/icefront/icefront_thermodynamics.F |
114 |
ICEFRONT_THERMODYNAMICS |
sLoc = MAX(salt(I,J,K,bi,bj), 0. _d 0) |
|
./pkg/icefront/icefront_thermodynamics.F |
121 |
ICEFRONT_THERMODYNAMICS |
IF ( K .EQ. K_icefront(I,J,bi,bj)) THEN |
|
./pkg/icefront/icefront_thermodynamics.F |
122 |
ICEFRONT_THERMODYNAMICS |
pLoc = 0.5*(ABS(R_icefront(I,J,bi,bj))+ABS(rF(K))) |
|
./pkg/icefront/icefront_thermodynamics.F |
125 |
ICEFRONT_THERMODYNAMICS |
& (R_icefront(I,J,bi,bj)-pLoc) |
|
./pkg/icefront/icefront_thermodynamics.F |
126 |
ICEFRONT_THERMODYNAMICS |
& / R_icefront(I,J,bi,bj) |
|
./pkg/icefront/icefront_thermodynamics.F |
146 |
ICEFRONT_THERMODYNAMICS |
FreshWaterFlux(I,J) = maskC(I,J,K,bi,bj) * |
|
./pkg/icefront/icefront_thermodynamics.F |
150 |
ICEFRONT_THERMODYNAMICS |
HeatFlux(I,J) = maskC(I,J,K,bi,bj) * HeatCapacity_Cp * |
|
./pkg/icefront/icefront_thermodynamics.F |
155 |
ICEFRONT_THERMODYNAMICS |
icefront_TendT(i,j,K,bi,bj) = - HeatFlux(I,J)* eps5 |
|
./pkg/icefront/icefront_thermodynamics.F |
156 |
ICEFRONT_THERMODYNAMICS |
icefront_TendS(i,j,K,bi,bj) = FreshWaterFlux(I,J) * |
|
./pkg/icefront/icefront_thermodynamics.F |
161 |
ICEFRONT_THERMODYNAMICS |
IF (k .LT. k_icefront(i,j,bi,bj)) THEN |
|
./pkg/icefront/icefront_thermodynamics.F |
162 |
ICEFRONT_THERMODYNAMICS |
icefront_TendT(i,j,K,bi,bj) = icefront_TendT(i,j,K,bi,bj) |
|
./pkg/icefront/icefront_thermodynamics.F |
163 |
ICEFRONT_THERMODYNAMICS |
& * ICEFRONTlength(i,j,bi,bj) |
|
./pkg/icefront/icefront_thermodynamics.F |
164 |
ICEFRONT_THERMODYNAMICS |
icefront_TendS(i,j,K,bi,bj) = icefront_TendS(i,j,K,bi,bj) |
|
./pkg/icefront/icefront_thermodynamics.F |
165 |
ICEFRONT_THERMODYNAMICS |
& * ICEFRONTlength(i,j,bi,bj) |
|
./pkg/icefront/icefront_thermodynamics.F |
166 |
ICEFRONT_THERMODYNAMICS |
ELSEIF (k .EQ. k_icefront(i,j,bi,bj)) THEN |
|
./pkg/icefront/icefront_thermodynamics.F |
169 |
ICEFRONT_THERMODYNAMICS |
icefront_TendT(i,j,K,bi,bj) = icefront_TendT(i,j,K,bi,bj) |
|
./pkg/icefront/icefront_thermodynamics.F |
170 |
ICEFRONT_THERMODYNAMICS |
& * ICEFRONTlength(i,j,bi,bj) |
|
./pkg/icefront/icefront_thermodynamics.F |
171 |
ICEFRONT_THERMODYNAMICS |
& * (ABS(R_icefront(I,J,bi,bj))-ABS(rF(K))) |
|
./pkg/icefront/icefront_thermodynamics.F |
173 |
ICEFRONT_THERMODYNAMICS |
icefront_TendS(i,j,K,bi,bj) = icefront_TendS(i,j,K,bi,bj) |
|
./pkg/icefront/icefront_thermodynamics.F |
174 |
ICEFRONT_THERMODYNAMICS |
& * ICEFRONTlength(i,j,bi,bj) |
|
./pkg/icefront/icefront_thermodynamics.F |
175 |
ICEFRONT_THERMODYNAMICS |
& * (ABS(R_icefront(I,J,bi,bj))-ABS(rF(K))) |
|
./pkg/icefront/icefront_thermodynamics.F |
192 |
ICEFRONT_THERMODYNAMICS |
& k,1,3,bi,bj,myThid) |
|
./pkg/icefront/icefront_thermodynamics.F |
194 |
ICEFRONT_THERMODYNAMICS |
& k,1,3,bi,bj,myThid) |
|
./pkg/icefront/icefront_thermodynamics.F |
61 |
ICEFRONT_THERMODYNAMICS |
INTEGER bi,bj |
|
./pkg/icefront/icefront_thermodynamics.F |
85 |
ICEFRONT_THERMODYNAMICS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/icefront/icefront_thermodynamics.F |
92 |
ICEFRONT_THERMODYNAMICS |
IF( ICEFRONTlength(I,J,bi,bj) .GT. 0. _d 0 |
|
./pkg/icefront/icefront_thermodynamics.F |
93 |
ICEFRONT_THERMODYNAMICS |
& .AND. K .LE. K_icefront(I,J,bi,bj) ) THEN |
|
./pkg/icefront/icefront_thermodynamics.F |
95 |
ICEFRONT_THERMODYNAMICS |
& *abs(wVEL(I,J,K,bi,bj)) |
|
./pkg/kl10/kl10_calc.F |
106 |
KL10_CALC |
& ,bj).GT.0)) THEN |
|
./pkg/kl10/kl10_calc.F |
11 |
KL10_CALC |
I bi, bj, sigmaR, myTime, myIter, myThid ) |
|
./pkg/kl10/kl10_calc.F |
122 |
KL10_CALC |
KLdiffKr(I,J,1,bi,bj) = MAX(KLviscAr(I,J,1,bi,bj), |
|
./pkg/kl10/kl10_calc.F |
124 |
KL10_CALC |
& diffKr(I,J,1,bi,bj) ) |
|
./pkg/kl10/kl10_calc.F |
165 |
KL10_CALC |
KLviscAr(I,J,K,bi,bj) = MAX(KTemp,viscArNr(K)) |
|
./pkg/kl10/kl10_calc.F |
166 |
KL10_CALC |
KLdiffKr(I,J,K,bi,bj) = MAX(KTemp, |
|
./pkg/kl10/kl10_calc.F |
168 |
KL10_CALC |
& diffKr(I,J,K,bi,bj) ) |
|
./pkg/kl10/kl10_calc.F |
187 |
KL10_CALC |
IF (hfacW(I+di,J-1,K,bi,bj).GT.0.000001) THEN |
|
./pkg/kl10/kl10_calc.F |
188 |
KL10_CALC |
dz = 0.5*(drF(K)*hfacW(I+di,J-1,K,bi,bj) |
|
./pkg/kl10/kl10_calc.F |
189 |
KL10_CALC |
& +drF(Km1)*hfacW(I+di,J-1,Km1,bi,bj)) |
|
./pkg/kl10/kl10_calc.F |
191 |
KL10_CALC |
tempu = (uVel(I+di,J-1,Km1,bi,bj)-uVel(I+di,J |
|
./pkg/kl10/kl10_calc.F |
192 |
KL10_CALC |
& -1,K,bi,bj))/dz |
|
./pkg/kl10/kl10_calc.F |
194 |
KL10_CALC |
& ,bj) |
|
./pkg/kl10/kl10_calc.F |
201 |
KL10_CALC |
dz=0.5*(drF(Km1)*hfacW(I+di,J-1,Km1,bi ,bj)) |
|
./pkg/kl10/kl10_calc.F |
206 |
KL10_CALC |
IF (hfacS(I-1,J+di,K,bi,bj).GT.0.000001) THEN |
|
./pkg/kl10/kl10_calc.F |
207 |
KL10_CALC |
dz = 0.5*(drF(K)*hfacS(I-1,J+di,K,bi,bj) |
|
./pkg/kl10/kl10_calc.F |
208 |
KL10_CALC |
& +drF(Km1)*hfacS(I-1,J+di,Km1,bi,bj)) |
|
./pkg/kl10/kl10_calc.F |
210 |
KL10_CALC |
tempu = (vVel(I-1,J+di,Km1,bi,bj)-vVel(I-1,J |
|
./pkg/kl10/kl10_calc.F |
211 |
KL10_CALC |
& +di,K,bi,bj))/dz |
|
./pkg/kl10/kl10_calc.F |
213 |
KL10_CALC |
& ,bj) |
|
./pkg/kl10/kl10_calc.F |
220 |
KL10_CALC |
dz=+0.5*(drF(Km1)*hfacS(I-1,J+di,Km1 ,bi,bj)) |
|
./pkg/kl10/kl10_calc.F |
242 |
KL10_CALC |
KLeps(I-1,J-1,Km1,bi,bj) = 0.5*(ep+ec) |
|
./pkg/kl10/kl10_calc.F |
244 |
KL10_CALC |
KLeps(I-1,J-1,Km1,bi,bj) = ec |
|
./pkg/kl10/kl10_calc.F |
259 |
KL10_CALC |
KLeps(I-1,J-1,Nr,bi,bj) =ep |
|
./pkg/kl10/kl10_calc.F |
51 |
KL10_CALC |
INTEGER bi, bj |
|
./pkg/kl10/kl10_calc.F |
82 |
KL10_CALC |
CALL FIND_RHO_SCALAR(theta(I,J,K,bi,bj), salt(I,J,K,bi,bj), |
|
./pkg/kl10/kl10_calc.F |
83 |
KL10_CALC |
& totPhiHyd(I,J,K,bi,bj),rhot,myThid ) |
|
./pkg/kl10/kl10_calc.F |
87 |
KL10_CALC |
KLeps(I-1,J-1,1,bi,bj)=0.0 |
|
./pkg/kl10/kl10_calc.F |
92 |
KL10_CALC |
KLviscAr(I,J,1,bi,bj) = viscArNr(1) |
|
./pkg/kl10/kl10_calc.F |
93 |
KL10_CALC |
KLviscold = KLviscAr(I,J,1,bi,bj) ! at previous cell center |
|
./pkg/kl10/kl10_calc.F |
97 |
KL10_CALC |
CALL FIND_RHO_SCALAR(theta(I,J,K,bi,bj), salt(I,J,K,bi |
|
./pkg/kl10/kl10_calc.F |
98 |
KL10_CALC |
& ,bj),totPhiHyd(I,J,K,bi,bj),rhot,myThid ) |
|
./pkg/kl10/kl10_calc_diff.F |
39 |
KL10_CALC_DIFF |
INTEGER bi,bj,iMin,iMax,jMin,jMax,kArg,kSize |
|
./pkg/kl10/kl10_calc_diff.F |
56 |
KL10_CALC_DIFF |
& +( KLdiffKr(i,j,k,bi,bj) |
|
./pkg/kl10/kl10_calc_diff.F |
58 |
KL10_CALC_DIFF |
& - diffKr(i,j,k,bi,bj) ) |
|
./pkg/kl10/kl10_calc_diff.F |
71 |
KL10_CALC_DIFF |
& +( KLdiffKr(i,j,kArg,bi,bj) |
|
./pkg/kl10/kl10_calc_diff.F |
73 |
KL10_CALC_DIFF |
& - diffKr(i,j,kArg,bi,bj) ) |
|
./pkg/kl10/kl10_calc_diff.F |
7 |
KL10_CALC_DIFF |
I bi,bj,iMin,iMax,jMin,jMax,kArg,kSize, |
|
./pkg/kl10/kl10_calc_visc.F |
31 |
KL10_CALC_VISC |
INTEGER bi,bj,iMin,iMax,jMin,jMax,k |
|
./pkg/kl10/kl10_calc_visc.F |
45 |
KL10_CALC_VISC |
& KappaRU(i,j,k) - viscArNr(k) + _maskW(i,j,k,bi,bj) * |
|
./pkg/kl10/kl10_calc_visc.F |
46 |
KL10_CALC_VISC |
& 0.5*(KLviscAr(i,j,k,bi,bj)+KLviscAr(i-1,j,k,bi,bj)) ) |
|
./pkg/kl10/kl10_calc_visc.F |
53 |
KL10_CALC_VISC |
& KappaRV(i,j,k) - viscArNr(k) + _maskS(i,j,k,bi,bj) * |
|
./pkg/kl10/kl10_calc_visc.F |
54 |
KL10_CALC_VISC |
& 0.5*(KLviscAr(i,j,k,bi,bj)+KLviscAr(i,j-1,k,bi,bj)) ) |
|
./pkg/kl10/kl10_calc_visc.F |
6 |
KL10_CALC_VISC |
I bi,bj,iMin,iMax,jMin,jMax,k, |
|
./model/src/apply_forcing.F |
111 |
APPLY_FORCING_U |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
118 |
APPLY_FORCING_U |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
125 |
APPLY_FORCING_U |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
134 |
APPLY_FORCING_U |
& - recip_dxC(i,j,bi,bj)*recip_deepFacC(k) |
|
./model/src/apply_forcing.F |
135 |
APPLY_FORCING_U |
& * ( phiTide2d(i,j,bi,bj) - phiTide2d(i-1,j,bi,bj) ) |
|
./model/src/apply_forcing.F |
136 |
APPLY_FORCING_U |
& *_maskW(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
148 |
APPLY_FORCING_U |
& +foFacMom*surfaceForcingU(i,j,bi,bj) |
|
./model/src/apply_forcing.F |
149 |
APPLY_FORCING_U |
& *recip_drF(k)*_recip_hFacW(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
155 |
APPLY_FORCING_U |
IF ( kSurfW(i,j,bi,bj).EQ.k ) THEN |
|
./model/src/apply_forcing.F |
157 |
APPLY_FORCING_U |
& +foFacMom*surfaceForcingU(i,j,bi,bj) |
|
./model/src/apply_forcing.F |
158 |
APPLY_FORCING_U |
& *recip_drF(k)*_recip_hFacW(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
167 |
APPLY_FORCING_U |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
175 |
APPLY_FORCING_U |
I k, bi, bj, -1, |
|
./model/src/apply_forcing.F |
185 |
APPLY_FORCING_U |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
194 |
APPLY_FORCING_U |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
20 |
APPLY_FORCING_U |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./model/src/apply_forcing.F |
210 |
APPLY_FORCING_V |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./model/src/apply_forcing.F |
243 |
APPLY_FORCING_V |
INTEGER k, bi, bj |
|
./model/src/apply_forcing.F |
264 |
APPLY_FORCING_V |
locVar(i,j) = gV(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
268 |
APPLY_FORCING_V |
I iMin, iMax, jMin, jMax, bi, bj, k, |
|
./model/src/apply_forcing.F |
275 |
APPLY_FORCING_V |
tmpVar(i,j) = gV(i,j,k,bi,bj) - locVar(i,j) |
|
./model/src/apply_forcing.F |
276 |
APPLY_FORCING_V |
gV(i,j,k,bi,bj) = locVar(i,j) |
|
./model/src/apply_forcing.F |
301 |
APPLY_FORCING_V |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
308 |
APPLY_FORCING_V |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
315 |
APPLY_FORCING_V |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
324 |
APPLY_FORCING_V |
& - recip_dyC(i,j,bi,bj)*recip_deepFacC(k) |
|
./model/src/apply_forcing.F |
325 |
APPLY_FORCING_V |
& *( phiTide2d(i,j,bi,bj) - phiTide2d(i,j-1,bi,bj) ) |
|
./model/src/apply_forcing.F |
326 |
APPLY_FORCING_V |
& *_maskS(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
338 |
APPLY_FORCING_V |
& +foFacMom*surfaceForcingV(i,j,bi,bj) |
|
./model/src/apply_forcing.F |
339 |
APPLY_FORCING_V |
& *recip_drF(k)*_recip_hFacS(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
345 |
APPLY_FORCING_V |
IF ( kSurfS(i,j,bi,bj).EQ.k ) THEN |
|
./model/src/apply_forcing.F |
347 |
APPLY_FORCING_V |
& +foFacMom*surfaceForcingV(i,j,bi,bj) |
|
./model/src/apply_forcing.F |
348 |
APPLY_FORCING_V |
& *recip_drF(k)*_recip_hFacS(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
357 |
APPLY_FORCING_V |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
365 |
APPLY_FORCING_V |
I k, bi, bj, -2, |
|
./model/src/apply_forcing.F |
374 |
APPLY_FORCING_V |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
383 |
APPLY_FORCING_V |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
399 |
APPLY_FORCING_T |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./model/src/apply_forcing.F |
433 |
APPLY_FORCING_T |
INTEGER k, bi, bj |
|
./model/src/apply_forcing.F |
461 |
APPLY_FORCING_T |
gT(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/apply_forcing.F |
465 |
APPLY_FORCING_T |
I iMin, iMax, jMin, jMax, bi, bj, k, |
|
./model/src/apply_forcing.F |
469 |
APPLY_FORCING_T |
gT_arr(i,j) = gT_arr(i,j) + gT(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
495 |
APPLY_FORCING_T |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
502 |
APPLY_FORCING_T |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
509 |
APPLY_FORCING_T |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
520 |
APPLY_FORCING_T |
& + addMass(i,j,k,bi,bj)*mass2rUnit |
|
./model/src/apply_forcing.F |
521 |
APPLY_FORCING_T |
& *( temp_addMass - theta(i,j,k,bi,bj) ) |
|
./model/src/apply_forcing.F |
522 |
APPLY_FORCING_T |
& *recip_rA(i,j,bi,bj) |
|
./model/src/apply_forcing.F |
523 |
APPLY_FORCING_T |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
531 |
APPLY_FORCING_T |
& + addMass(i,j,k,bi,bj)*mass2rUnit |
|
./model/src/apply_forcing.F |
533 |
APPLY_FORCING_T |
& *recip_rA(i,j,bi,bj) |
|
./model/src/apply_forcing.F |
534 |
APPLY_FORCING_T |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
53 |
APPLY_FORCING_U |
INTEGER k, bi, bj |
|
./model/src/apply_forcing.F |
556 |
APPLY_FORCING_T |
& + frictionHeating(i,j,k,bi,bj)*tmpFac |
|
./model/src/apply_forcing.F |
557 |
APPLY_FORCING_T |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
589 |
APPLY_FORCING_T |
tmpVar(i,j) = wVel(i,j,kc,bi,bj)*delPI*atm_Rq |
|
./model/src/apply_forcing.F |
590 |
APPLY_FORCING_T |
& *( theta(i,j,km,bi,bj)*salt(i,j,km,bi,bj) |
|
./model/src/apply_forcing.F |
591 |
APPLY_FORCING_T |
& + theta(i,j,kc,bi,bj)*salt(i,j,kc,bi,bj) |
|
./model/src/apply_forcing.F |
592 |
APPLY_FORCING_T |
& )*maskC(i,j,km,bi,bj)*0.25 _d 0 |
|
./model/src/apply_forcing.F |
602 |
APPLY_FORCING_T |
& + wVel(i,j,kp,bi,bj)*delPI*atm_Rq |
|
./model/src/apply_forcing.F |
603 |
APPLY_FORCING_T |
& *( theta(i,j,kc,bi,bj)*salt(i,j,kc,bi,bj) |
|
./model/src/apply_forcing.F |
604 |
APPLY_FORCING_T |
& + theta(i,j,kp,bi,bj)*salt(i,j,kp,bi,bj) |
|
./model/src/apply_forcing.F |
605 |
APPLY_FORCING_T |
& )*maskC(i,j,kp,bi,bj)*0.25 _d 0 |
|
./model/src/apply_forcing.F |
613 |
APPLY_FORCING_T |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
621 |
APPLY_FORCING_T |
& 'MoistCor', kc, 1, 2, bi,bj,myThid ) |
|
./model/src/apply_forcing.F |
631 |
APPLY_FORCING_T |
& +surfaceForcingT(i,j,bi,bj) |
|
./model/src/apply_forcing.F |
632 |
APPLY_FORCING_T |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
638 |
APPLY_FORCING_T |
IF ( kSurfC(i,j,bi,bj).EQ.k ) THEN |
|
./model/src/apply_forcing.F |
640 |
APPLY_FORCING_T |
& +surfaceForcingT(i,j,bi,bj) |
|
./model/src/apply_forcing.F |
641 |
APPLY_FORCING_T |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
650 |
APPLY_FORCING_T |
IF (k .EQ. kSurfC(i,j,bi,bj)) THEN |
|
./model/src/apply_forcing.F |
652 |
APPLY_FORCING_T |
& +TsurfCor*recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
662 |
APPLY_FORCING_T |
IF ( k.EQ.kLowC(i,j,bi,bj) ) THEN |
|
./model/src/apply_forcing.F |
664 |
APPLY_FORCING_T |
& + geothermalFlux(i,j,bi,bj) |
|
./model/src/apply_forcing.F |
666 |
APPLY_FORCING_T |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
690 |
APPLY_FORCING_T |
& -Qsw(i,j,bi,bj)*(swfracb(1)*maskC(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
691 |
APPLY_FORCING_T |
& -swfracb(2)*maskC(i,j,kp1, bi,bj)) |
|
./model/src/apply_forcing.F |
693 |
APPLY_FORCING_T |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
703 |
APPLY_FORCING_T |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
711 |
APPLY_FORCING_T |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
719 |
APPLY_FORCING_T |
I k, bi, bj, myTime, myIter, myThid ) |
|
./model/src/apply_forcing.F |
726 |
APPLY_FORCING_T |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
734 |
APPLY_FORCING_T |
I k, bi, bj, 1, |
|
./model/src/apply_forcing.F |
743 |
APPLY_FORCING_T |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
74 |
APPLY_FORCING_U |
locVar(i,j) = gU(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
751 |
APPLY_FORCING_T |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
759 |
APPLY_FORCING_T |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
775 |
APPLY_FORCING_S |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./model/src/apply_forcing.F |
78 |
APPLY_FORCING_U |
I iMin, iMax, jMin, jMax, bi, bj, k, |
|
./model/src/apply_forcing.F |
809 |
APPLY_FORCING_S |
INTEGER k, bi, bj |
|
./model/src/apply_forcing.F |
827 |
APPLY_FORCING_S |
gS(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/apply_forcing.F |
831 |
APPLY_FORCING_S |
I iMin, iMax, jMin, jMax, bi, bj, k, |
|
./model/src/apply_forcing.F |
835 |
APPLY_FORCING_S |
gS_arr(i,j) = gS_arr(i,j) + gS(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
85 |
APPLY_FORCING_U |
tmpVar(i,j) = gU(i,j,k,bi,bj) - locVar(i,j) |
|
./model/src/apply_forcing.F |
860 |
APPLY_FORCING_S |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
867 |
APPLY_FORCING_S |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
86 |
APPLY_FORCING_U |
gU(i,j,k,bi,bj) = locVar(i,j) |
|
./model/src/apply_forcing.F |
874 |
APPLY_FORCING_S |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
885 |
APPLY_FORCING_S |
& + addMass(i,j,k,bi,bj)*mass2rUnit |
|
./model/src/apply_forcing.F |
886 |
APPLY_FORCING_S |
& *( salt_addMass - salt(i,j,k,bi,bj) ) |
|
./model/src/apply_forcing.F |
887 |
APPLY_FORCING_S |
& *recip_rA(i,j,bi,bj) |
|
./model/src/apply_forcing.F |
888 |
APPLY_FORCING_S |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
896 |
APPLY_FORCING_S |
& + addMass(i,j,k,bi,bj)*mass2rUnit |
|
./model/src/apply_forcing.F |
898 |
APPLY_FORCING_S |
& *recip_rA(i,j,bi,bj) |
|
./model/src/apply_forcing.F |
899 |
APPLY_FORCING_S |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
912 |
APPLY_FORCING_S |
& +surfaceForcingS(i,j,bi,bj) |
|
./model/src/apply_forcing.F |
913 |
APPLY_FORCING_S |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
919 |
APPLY_FORCING_S |
IF ( kSurfC(i,j,bi,bj).EQ.k ) THEN |
|
./model/src/apply_forcing.F |
921 |
APPLY_FORCING_S |
& +surfaceForcingS(i,j,bi,bj) |
|
./model/src/apply_forcing.F |
922 |
APPLY_FORCING_S |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
931 |
APPLY_FORCING_S |
IF (k .EQ. kSurfC(i,j,bi,bj)) THEN |
|
./model/src/apply_forcing.F |
933 |
APPLY_FORCING_S |
& +SsurfCor*recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
943 |
APPLY_FORCING_S |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
951 |
APPLY_FORCING_S |
I k, bi, bj, myTime, myIter, myThid ) |
|
./model/src/apply_forcing.F |
958 |
APPLY_FORCING_S |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
966 |
APPLY_FORCING_S |
I k, bi, bj, 2, |
|
./model/src/apply_forcing.F |
975 |
APPLY_FORCING_S |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
983 |
APPLY_FORCING_S |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
991 |
APPLY_FORCING_S |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./pkg/kl10/kl10_init_varia.F |
31 |
KL10_INIT_VARIA |
INTEGER i, j, k, bi, bj |
|
./pkg/kl10/kl10_init_varia.F |
37 |
KL10_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/kl10/kl10_init_varia.F |
42 |
KL10_INIT_VARIA |
KLviscAr (i,j,k,bi,bj) = viscArNr(k) |
|
./pkg/kl10/kl10_init_varia.F |
43 |
KL10_INIT_VARIA |
KLdiffKr (i,j,k,bi,bj) = diffKrNrS(k) |
|
./pkg/kl10/kl10_output.F |
109 |
KL10_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/kl10/kl10_output.F |
111 |
KL10_OUTPUT |
CALL TIMEAVE_RESET( KLviscArtave, Nr, bi, bj, myThid ) |
|
./pkg/kl10/kl10_output.F |
112 |
KL10_OUTPUT |
CALL TIMEAVE_RESET( KLdiffKrtave, Nr, bi, bj, myThid ) |
|
./pkg/kl10/kl10_output.F |
113 |
KL10_OUTPUT |
KL_timeAve(bi,bj) = 0. |
|
./pkg/kl10/kl10_output.F |
120 |
KL10_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/kl10/kl10_output.F |
123 |
KL10_OUTPUT |
& Nr, DDTT, bi, bj, myThid ) |
|
./pkg/kl10/kl10_output.F |
125 |
KL10_OUTPUT |
& Nr, DDTT, bi, bj, myThid ) |
|
./pkg/kl10/kl10_output.F |
127 |
KL10_OUTPUT |
KL_timeAve(bi,bj) = KL_timeAve(bi,bj)+DDTT |
|
./pkg/kl10/kl10_output.F |
138 |
KL10_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/kl10/kl10_output.F |
141 |
KL10_OUTPUT |
& KL_timeAve, Nr, bi, bj, myThid ) |
|
./pkg/kl10/kl10_output.F |
143 |
KL10_OUTPUT |
& KL_timeAve, Nr, bi, bj, myThid ) |
|
./pkg/kl10/kl10_output.F |
159 |
KL10_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/kl10/kl10_output.F |
161 |
KL10_OUTPUT |
CALL TIMEAVE_RESET( KLviscArtave, Nr, bi, bj, myThid ) |
|
./pkg/kl10/kl10_output.F |
162 |
KL10_OUTPUT |
CALL TIMEAVE_RESET( KLdiffKrtave, Nr, bi, bj, myThid ) |
|
./pkg/kl10/kl10_output.F |
163 |
KL10_OUTPUT |
KL_timeAve(bi,bj) = 0. |
|
./pkg/kl10/kl10_output.F |
69 |
KL10_OUTPUT |
INTEGER bi, bj |
|
./model/src/calc_3d_diffusivity.F |
106 |
CALC_3D_DIFFUSIVITY |
& IVDConvCount(i,j,k,bi,bj)*ivdc_kappa |
|
./model/src/calc_3d_diffusivity.F |
109 |
CALC_3D_DIFFUSIVITY |
& + (KbryanLewisEQ-KbryanLewis79)*BL79LatArray(i,j,bi,bj) |
|
./model/src/calc_3d_diffusivity.F |
11 |
CALC_3D_DIFFUSIVITY |
I bi, bj, iMin,iMax,jMin,jMax, |
|
./model/src/calc_3d_diffusivity.F |
121 |
CALC_3D_DIFFUSIVITY |
& + diffKr(i,j,k,bi,bj) |
|
./model/src/calc_3d_diffusivity.F |
134 |
CALC_3D_DIFFUSIVITY |
& + diffKr(i,j,k,bi,bj) |
|
./model/src/calc_3d_diffusivity.F |
150 |
CALC_3D_DIFFUSIVITY |
& + diffKr(i,j,k,bi,bj) |
|
./model/src/calc_3d_diffusivity.F |
173 |
CALC_3D_DIFFUSIVITY |
I bi,bj,iMin,iMax,jMin,jMax,0,Nr, |
|
./model/src/calc_3d_diffusivity.F |
178 |
CALC_3D_DIFFUSIVITY |
I bi,bj,iMin,iMax,jMin,jMax,0,Nr, |
|
./model/src/calc_3d_diffusivity.F |
185 |
CALC_3D_DIFFUSIVITY |
I bi,bj,iMin,iMax,jMin,jMax,0,Nr, |
|
./model/src/calc_3d_diffusivity.F |
201 |
CALC_3D_DIFFUSIVITY |
I bi,bj,iMin,iMax,jMin,jMax,0,Nr, |
|
./model/src/calc_3d_diffusivity.F |
210 |
CALC_3D_DIFFUSIVITY |
I bi,bj,iMin,iMax,jMin,jMax,0,Nr, |
|
./model/src/calc_3d_diffusivity.F |
219 |
CALC_3D_DIFFUSIVITY |
I bi,bj,iMin,iMax,jMin,jMax,0,Nr, |
|
./model/src/calc_3d_diffusivity.F |
228 |
CALC_3D_DIFFUSIVITY |
I bi,bj,iMin,iMax,jMin,jMax,0,Nr, |
|
./model/src/calc_3d_diffusivity.F |
237 |
CALC_3D_DIFFUSIVITY |
I bi,bj,iMin,iMax,jMin,jMax,0,Nr, |
|
./model/src/calc_3d_diffusivity.F |
252 |
CALC_3D_DIFFUSIVITY |
IF ( k.GT.kSurfC(i,j,bi,bj) .AND. |
|
./model/src/calc_3d_diffusivity.F |
253 |
CALC_3D_DIFFUSIVITY |
& k.LE.kLowC(i,j,bi,bj) ) THEN |
|
./model/src/calc_3d_diffusivity.F |
255 |
CALC_3D_DIFFUSIVITY |
& *twoRL/(hFacC(i,j,km,bi,bj)+hFacC(i,j,k,bi,bj)) |
|
./model/src/calc_3d_diffusivity.F |
278 |
CALC_3D_DIFFUSIVITY |
IF ( k.EQ.kLowC(i,j,bi,bj) .AND. |
|
./model/src/calc_3d_diffusivity.F |
279 |
CALC_3D_DIFFUSIVITY |
& k.GT.kSurfC(i,j,bi,bj) ) THEN |
|
./model/src/calc_3d_diffusivity.F |
280 |
CALC_3D_DIFFUSIVITY |
tmpFac(i,j) = pC_kFac*_recip_hFacC(i,j,k,bi,bj) |
|
./model/src/calc_3d_diffusivity.F |
325 |
CALC_3D_DIFFUSIVITY |
IF ( km.EQ.kSurfC(i,j,bi,bj) .AND. |
|
./model/src/calc_3d_diffusivity.F |
326 |
CALC_3D_DIFFUSIVITY |
& km.LT.kLowC(i,j,bi,bj) ) THEN |
|
./model/src/calc_3d_diffusivity.F |
327 |
CALC_3D_DIFFUSIVITY |
tmpFac(i,j) = pC_kFac*_recip_hFacC(i,j,km,bi,bj) |
|
./model/src/calc_3d_diffusivity.F |
55 |
CALC_3D_DIFFUSIVITY |
INTEGER bi,bj,iMin,iMax,jMin,jMax |
|
./model/src/calc_3d_diffusivity.F |
96 |
CALC_3D_DIFFUSIVITY |
& LS_IVDConvCount(i,j,k,bi,bj)*ivdc_kappa |
|
./model/src/calc_3d_diffusivity.F |
99 |
CALC_3D_DIFFUSIVITY |
& + (KbryanLewisEQ-KbryanLewis79)*BL79LatArray(i,j,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
136 |
KPP_CALC |
INTEGER bi, bj |
|
./pkg/kpp/kpp_calc.F |
17 |
KPP_CALC |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/kpp/kpp_calc.F |
225 |
KPP_CALC |
act2 = bj - myByLo(myThid) |
|
./pkg/kpp/kpp_calc.F |
278 |
KPP_CALC |
I ikppkey, bi, bj, myThid ) |
|
./pkg/kpp/kpp_calc.F |
296 |
KPP_CALC |
I k+1, bi, bj, |
|
./pkg/kpp/kpp_calc.F |
306 |
KPP_CALC |
I 1, bi, bj, |
|
./pkg/kpp/kpp_calc.F |
311 |
KPP_CALC |
I k+1, bi, bj, |
|
./pkg/kpp/kpp_calc.F |
315 |
KPP_CALC |
I k, bi, bj, |
|
./pkg/kpp/kpp_calc.F |
319 |
KPP_CALC |
I k, bi, bj, |
|
./pkg/kpp/kpp_calc.F |
323 |
KPP_CALC |
I k, bi, bj, |
|
./pkg/kpp/kpp_calc.F |
336 |
KPP_CALC |
dbloc(i,j,k) = dbloc(i,j,k) * maskC(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
337 |
KPP_CALC |
& * maskC(i,j,km1,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
338 |
KPP_CALC |
ghat(i,j,k) = ghat(i,j,k) * maskC(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
339 |
KPP_CALC |
& * maskC(i,j,km1,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
340 |
KPP_CALC |
Ritop(i,j,k) = Ritop(i,j,k) * maskC(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
341 |
KPP_CALC |
& * maskC(i,j,km1,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
342 |
KPP_CALC |
if(k.eq.nzmax(i,j,bi,bj)) then |
|
./pkg/kpp/kpp_calc.F |
416 |
KPP_CALC |
temp1(i,j,1) = saltPlumeFlux(i,j,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
424 |
KPP_CALC |
temp1(i,j,k) = SPforcingS(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
425 |
KPP_CALC |
temp2(i,j,k) = SPforcingT(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
445 |
KPP_CALC |
I ikppkey, iMin, iMax, jMin, jMax, bi, bj, myTime, myThid ) |
|
./pkg/kpp/kpp_calc.F |
472 |
KPP_CALC |
& (uVel(i, j, k,bi,bj)-uVel(i, j, kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
473 |
KPP_CALC |
& (uVel(i, j, k,bi,bj)-uVel(i, j, kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
474 |
KPP_CALC |
& (uVel(ip1,j, k,bi,bj)-uVel(ip1,j, kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
475 |
KPP_CALC |
& (uVel(ip1,j, k,bi,bj)-uVel(ip1,j, kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
476 |
KPP_CALC |
& (vVel(i, j, k,bi,bj)-vVel(i, j, kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
477 |
KPP_CALC |
& (vVel(i, j, k,bi,bj)-vVel(i, j, kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
478 |
KPP_CALC |
& (vVel(i, jp1,k,bi,bj)-vVel(i, jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
479 |
KPP_CALC |
& (vVel(i, jp1,k,bi,bj)-vVel(i, jp1,kp1,bi,bj)) ) |
|
./pkg/kpp/kpp_calc.F |
482 |
KPP_CALC |
& (uVel(i, jm1,k,bi,bj)-uVel(i, jm1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
483 |
KPP_CALC |
& (uVel(i, jm1,k,bi,bj)-uVel(i, jm1,kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
484 |
KPP_CALC |
& (uVel(ip1,jm1,k,bi,bj)-uVel(ip1,jm1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
485 |
KPP_CALC |
& (uVel(ip1,jm1,k,bi,bj)-uVel(ip1,jm1,kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
486 |
KPP_CALC |
& (uVel(i, jp1,k,bi,bj)-uVel(i, jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
487 |
KPP_CALC |
& (uVel(i, jp1,k,bi,bj)-uVel(i, jp1,kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
488 |
KPP_CALC |
& (uVel(ip1,jp1,k,bi,bj)-uVel(ip1,jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
489 |
KPP_CALC |
& (uVel(ip1,jp1,k,bi,bj)-uVel(ip1,jp1,kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
490 |
KPP_CALC |
& (vVel(im1,j, k,bi,bj)-vVel(im1,j, kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
491 |
KPP_CALC |
& (vVel(im1,j, k,bi,bj)-vVel(im1,j, kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
492 |
KPP_CALC |
& (vVel(im1,jp1,k,bi,bj)-vVel(im1,jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
493 |
KPP_CALC |
& (vVel(im1,jp1,k,bi,bj)-vVel(im1,jp1,kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
494 |
KPP_CALC |
& (vVel(ip1,j, k,bi,bj)-vVel(ip1,j, kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
495 |
KPP_CALC |
& (vVel(ip1,j, k,bi,bj)-vVel(ip1,j, kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
496 |
KPP_CALC |
& (vVel(ip1,jp1,k,bi,bj)-vVel(ip1,jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
497 |
KPP_CALC |
& (vVel(ip1,jp1,k,bi,bj)-vVel(ip1,jp1,kp1,bi,bj)) ) |
|
./pkg/kpp/kpp_calc.F |
518 |
KPP_CALC |
I bi,bj,1-OLx,sNx+OLx,1-OLy,sNy+OLy, |
|
./pkg/kpp/kpp_calc.F |
520 |
KPP_CALC |
O KPPdiffKzS(1-OLx,1-OLy,1,bi,bj), |
|
./pkg/kpp/kpp_calc.F |
523 |
KPP_CALC |
I bi,bj,1-OLx,sNx+OLx,1-OLy,sNy+OLy, |
|
./pkg/kpp/kpp_calc.F |
525 |
KPP_CALC |
O KPPdiffKzT(1-OLx,1-OLy,1,bi,bj), |
|
./pkg/kpp/kpp_calc.F |
535 |
KPP_CALC |
U KPPdiffKzT(1-OLx,1-OLy,1,bi,bj), |
|
./pkg/kpp/kpp_calc.F |
536 |
KPP_CALC |
U KPPdiffKzS(1-OLx,1-OLy,1,bi,bj), |
|
./pkg/kpp/kpp_calc.F |
537 |
KPP_CALC |
I ikppkey,1-OLx,sNx+OLx,1-OLy,sNy+OLy,bi,bj,myThid) |
|
./pkg/kpp/kpp_calc.F |
543 |
KPP_CALC |
work1(i,j) = nzmax(i,j,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
544 |
KPP_CALC |
work2(i,j) = Fcori(i,j,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
549 |
KPP_CALC |
I , maskC(1-OLx,1-OLy,1,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
552 |
KPP_CALC |
I , boplume, SaltPlumeDepth(1-OLx,1-OLy,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
554 |
KPP_CALC |
I , XC(1-OLx,1-OLy,bi,bj), YC(1-OLx,1-OLy,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
558 |
KPP_CALC |
I , KPPdiffKzS(1-OLx,1-OLy,1,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
559 |
KPP_CALC |
I , KPPdiffKzT(1-OLx,1-OLy,1,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
564 |
KPP_CALC |
I , bi, bj, myTime, myIter, myThid ) |
|
./pkg/kpp/kpp_calc.F |
574 |
KPP_CALC |
KPPviscAz(i,j,k,bi,bj) = vddiff(i,j,k-1,1) * maskC(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
575 |
KPP_CALC |
& * maskC(i,j,km1,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
576 |
KPP_CALC |
KPPdiffKzS(i,j,k,bi,bj)= vddiff(i,j,k-1,2) * maskC(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
577 |
KPP_CALC |
& * maskC(i,j,km1,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
578 |
KPP_CALC |
KPPdiffKzT(i,j,k,bi,bj)= vddiff(i,j,k-1,3) * maskC(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
579 |
KPP_CALC |
& * maskC(i,j,km1,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
580 |
KPP_CALC |
KPPghat(i,j,k,bi,bj) = ghat(i,j,k) * maskC(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
581 |
KPP_CALC |
& * maskC(i,j,km1,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
585 |
KPP_CALC |
if ( useShelfIce ) k = kTopC(i,j,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
587 |
KPP_CALC |
KPPhbl(i,j,bi,bj) = hbl(i,j) * maskC(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
596 |
KPP_CALC |
I k, bi, bj, |
|
./pkg/kpp/kpp_calc.F |
597 |
KPP_CALC |
U KPPviscAz(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/kpp/kpp_calc.F |
608 |
KPP_CALC |
I k, bi, bj, |
|
./pkg/kpp/kpp_calc.F |
609 |
KPP_CALC |
U KPPdiffKzS(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/kpp/kpp_calc.F |
612 |
KPP_CALC |
I k, bi, bj, |
|
./pkg/kpp/kpp_calc.F |
613 |
KPP_CALC |
U KPPdiffKzT(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/kpp/kpp_calc.F |
629 |
KPP_CALC |
worka(i,j) = KPPhbl(i,j,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
638 |
KPP_CALC |
KPPfrac(i,j,bi,bj) = worka(i,j) |
|
./pkg/kpp/kpp_calc.F |
649 |
KPP_CALC |
work2(i,j) = SaltPlumeDepth(i,j,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
650 |
KPP_CALC |
worka(i,j) = KPPhbl(i,j,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
652 |
KPP_CALC |
lon(i,j) = XC(i,j,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
653 |
KPP_CALC |
lat(i,j) = YC(i,j,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
666 |
KPP_CALC |
KPPplumefrac(i,j,bi,bj) = 1. _d 0 - worka(i,j) |
|
./pkg/kpp/kpp_calc.F |
672 |
KPP_CALC |
KPPplumefrac(i,j,bi,bj) = 0. _d 0 |
|
./pkg/kpp/kpp_calc.F |
689 |
KPP_CALC_DUMMY |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/kpp/kpp_calc.F |
714 |
KPP_CALC_DUMMY |
INTEGER bi, bj |
|
./pkg/kpp/kpp_calc.F |
726 |
KPP_CALC_DUMMY |
KPPhbl (i,j,bi,bj) = 1.0 |
|
./pkg/kpp/kpp_calc.F |
727 |
KPP_CALC_DUMMY |
KPPfrac(i,j,bi,bj) = 0.0 |
|
./pkg/kpp/kpp_calc.F |
729 |
KPP_CALC_DUMMY |
KPPplumefrac(i,j,bi,bj) = 0.0 |
|
./pkg/kpp/kpp_calc.F |
732 |
KPP_CALC_DUMMY |
KPPghat (i,j,k,bi,bj) = 0.0 |
|
./pkg/kpp/kpp_calc.F |
733 |
KPP_CALC_DUMMY |
KPPviscAz (i,j,k,bi,bj) = viscArNr(1) |
|
./pkg/kpp/kpp_calc.F |
739 |
KPP_CALC_DUMMY |
I bi,bj,1-OLx,sNx+OLx,1-OLy,sNy+OLy, |
|
./pkg/kpp/kpp_calc.F |
741 |
KPP_CALC_DUMMY |
O KPPdiffKzS(1-OLx,1-OLy,1,bi,bj), |
|
./pkg/kpp/kpp_calc.F |
744 |
KPP_CALC_DUMMY |
I bi,bj,1-OLx,sNx+OLx,1-OLy,sNy+OLy, |
|
./pkg/kpp/kpp_calc.F |
746 |
KPP_CALC_DUMMY |
O KPPdiffKzT(1-OLx,1-OLy,1,bi,bj), |
|
./pkg/kpp/kpp_calc_diff_ptr.F |
43 |
KPP_CALC_DIFF_PTR |
INTEGER bi,bj,iMin,iMax,jMin,jMax,kArg,kSize |
|
./pkg/kpp/kpp_calc_diff_ptr.F |
61 |
KPP_CALC_DIFF_PTR |
KappaRx(i,j,k) = LS_KPPdiffKzS(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_calc_diff_ptr.F |
63 |
KPP_CALC_DIFF_PTR |
KappaRx(i,j,k) = KPPdiffKzS(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_calc_diff_ptr.F |
78 |
KPP_CALC_DIFF_PTR |
KappaRx(i,j,k) = LS_KPPdiffKzS(i,j,kArg,bi,bj) |
|
./pkg/kpp/kpp_calc_diff_ptr.F |
7 |
KPP_CALC_DIFF_PTR |
I bi,bj,iMin,iMax,jMin,jMax,kArg,kSize, |
|
./pkg/kpp/kpp_calc_diff_ptr.F |
80 |
KPP_CALC_DIFF_PTR |
KappaRx(i,j,k) = KPPdiffKzS(i,j,kArg,bi,bj) |
|
./pkg/kpp/kpp_calc_diff_s.F |
37 |
KPP_CALC_DIFF_S |
INTEGER bi,bj,iMin,iMax,jMin,jMax,kArg,kSize |
|
./pkg/kpp/kpp_calc_diff_s.F |
53 |
KPP_CALC_DIFF_S |
KappaRS(i,j,k) = KPPdiffKzS(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_calc_diff_s.F |
62 |
KPP_CALC_DIFF_S |
KappaRS(i,j,k) = KPPdiffKzS(i,j,kArg,bi,bj) |
|
./pkg/kpp/kpp_calc_diff_s.F |
7 |
KPP_CALC_DIFF_S |
I bi,bj,iMin,iMax,jMin,jMax,kArg,kSize, |
|
./pkg/kpp/kpp_calc_diff_t.F |
37 |
KPP_CALC_DIFF_T |
INTEGER bi,bj,iMin,iMax,jMin,jMax,kArg,kSize |
|
./pkg/kpp/kpp_calc_diff_t.F |
53 |
KPP_CALC_DIFF_T |
KappaRT(i,j,k) = KPPdiffKzT(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_calc_diff_t.F |
62 |
KPP_CALC_DIFF_T |
KappaRT(i,j,k) = KPPdiffKzT(i,j,kArg,bi,bj) |
|
./pkg/kpp/kpp_calc_diff_t.F |
7 |
KPP_CALC_DIFF_T |
I bi,bj,iMin,iMax,jMin,jMax,kArg,kSize, |
|
./pkg/kpp/kpp_calc_visc.F |
29 |
KPP_CALC_VISC |
INTEGER bi,bj,iMin,iMax,jMin,jMax,K |
|
./pkg/kpp/kpp_calc_visc.F |
41 |
KPP_CALC_VISC |
& KappaRU(i,j,k) - viscArNr(1) + _maskW(i,j,k,bi,bj) * |
|
./pkg/kpp/kpp_calc_visc.F |
42 |
KPP_CALC_VISC |
& 0.5*(KPPviscAz(i,j,k,bi,bj)+KPPviscAz(i-1,j,k,bi,bj)) ) |
|
./pkg/kpp/kpp_calc_visc.F |
49 |
KPP_CALC_VISC |
& KappaRV(i,j,k) - viscArNr(1) + _maskS(i,j,k,bi,bj) * |
|
./pkg/kpp/kpp_calc_visc.F |
50 |
KPP_CALC_VISC |
& 0.5*(KPPviscAz(i,j,k,bi,bj)+KPPviscAz(i,j-1,k,bi,bj)) ) |
|
./pkg/kpp/kpp_calc_visc.F |
7 |
KPP_CALC_VISC |
I bi,bj,iMin,iMax,jMin,jMax,K, |
|
./pkg/kpp/kpp_forcing_surf.F |
100 |
KPP_FORCING_SURF |
INTEGER bi, bj |
|
./pkg/kpp/kpp_forcing_surf.F |
184 |
KPP_FORCING_SURF |
& (surfForcU(i,j,bi,bj) + surfForcU(ip1,j,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
185 |
KPP_FORCING_SURF |
& (surfForcU(i,j,bi,bj) + surfForcU(ip1,j,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
186 |
KPP_FORCING_SURF |
& (surfForcV(i,j,bi,bj) + surfForcV(i,jp1,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
187 |
KPP_FORCING_SURF |
& (surfForcV(i,j,bi,bj) + surfForcV(i,jp1,bi,bj)) |
|
./pkg/kpp/kpp_forcing_surf.F |
213 |
KPP_FORCING_SURF |
& ( TTALPHA(I,J,1) * (surfForcT(i,j,bi,bj)+ |
|
./pkg/kpp/kpp_forcing_surf.F |
214 |
KPP_FORCING_SURF |
& surfForcTice(i,j,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
215 |
KPP_FORCING_SURF |
& SSBETA(I,J,1) * surfForcS(i,j,bi,bj) ) |
|
./pkg/kpp/kpp_forcing_surf.F |
217 |
KPP_FORCING_SURF |
bosol(I,J) = gravity * TTALPHA(I,J,1) * Qsw(i,j,bi,bj) * |
|
./pkg/kpp/kpp_forcing_surf.F |
262 |
KPP_FORCING_SURF |
CALL DIAGNOSTICS_FILL(bo ,'KPPbo ',0,1,2,bi,bj,myThid) |
|
./pkg/kpp/kpp_forcing_surf.F |
263 |
KPP_FORCING_SURF |
CALL DIAGNOSTICS_FILL(bosol ,'KPPbosol',0,1,2,bi,bj,myThid) |
|
./pkg/kpp/kpp_forcing_surf.F |
265 |
KPP_FORCING_SURF |
CALL DIAGNOSTICS_FILL(boplume,'KPPboplm',0,Nr,2,bi,bj,myThid) |
|
./pkg/kpp/kpp_forcing_surf.F |
29 |
KPP_FORCING_SURF |
I ikppkey, iMin, iMax, jMin, jMax, bi, bj, myTime, myThid ) |
|
./pkg/kpp/kpp_forcing_surf.F |
304 |
KPP_FORCING_SURF |
work1(i,j) = nzmax(i,j,bi,bj) |
|
./pkg/kpp/kpp_forcing_surf.F |
306 |
KPP_FORCING_SURF |
IF ( k .LT. nzmax(i,j,bi,bj) .AND. |
|
./pkg/kpp/kpp_forcing_surf.F |
307 |
KPP_FORCING_SURF |
& maskC(I,J,k,bi,bj) .GT. 0. .AND. |
|
./pkg/kpp/kpp_forcing_surf.F |
314 |
KPP_FORCING_SURF |
IF ( k .EQ. 0 .OR. nzmax(i,j,bi,bj) .EQ. 1 ) THEN |
|
./pkg/kpp/kpp_forcing_surf.F |
319 |
KPP_FORCING_SURF |
ELSEIF ( k .LT. nzmax(i,j,bi,bj) ) THEN |
|
./pkg/kpp/kpp_forcing_surf.F |
330 |
KPP_FORCING_SURF |
& (uVel(i, j, 1,bi,bj)-uVel(i, j, 2,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
331 |
KPP_FORCING_SURF |
& (uVel(i, j, 1,bi,bj)-uVel(i, j, 2,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
332 |
KPP_FORCING_SURF |
& (uVel(ip1,j, 1,bi,bj)-uVel(ip1,j, 2,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
333 |
KPP_FORCING_SURF |
& (uVel(ip1,j, 1,bi,bj)-uVel(ip1,j, 2,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
334 |
KPP_FORCING_SURF |
& (vVel(i, j, 1,bi,bj)-vVel(i, j, 2,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
335 |
KPP_FORCING_SURF |
& (vVel(i, j, 1,bi,bj)-vVel(i, j, 2,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
336 |
KPP_FORCING_SURF |
& (vVel(i, jp1,1,bi,bj)-vVel(i, jp1,2,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
337 |
KPP_FORCING_SURF |
& (vVel(i, jp1,1,bi,bj)-vVel(i, jp1,2,bi,bj)) ) |
|
./pkg/kpp/kpp_forcing_surf.F |
355 |
KPP_FORCING_SURF |
uRef(i,j) = p5 * ( uVel(i,j,1,bi,bj) + uVel(ip1,j,1,bi,bj) ) |
|
./pkg/kpp/kpp_forcing_surf.F |
356 |
KPP_FORCING_SURF |
vRef(i,j) = p5 * ( vVel(i,j,1,bi,bj) + vVel(i,jp1,1,bi,bj) ) |
|
./pkg/kpp/kpp_forcing_surf.F |
358 |
KPP_FORCING_SURF |
ustarX = ( surfForcU(i, j,bi,bj) + |
|
./pkg/kpp/kpp_forcing_surf.F |
359 |
KPP_FORCING_SURF |
& surfForcU(ip1,j,bi,bj) ) * p5 *recip_drF(1) |
|
./pkg/kpp/kpp_forcing_surf.F |
360 |
KPP_FORCING_SURF |
ustarY = ( surfForcV(i,j, bi,bj) + |
|
./pkg/kpp/kpp_forcing_surf.F |
361 |
KPP_FORCING_SURF |
& surfForcV(i,jp1,bi,bj) ) * p5 *recip_drF(1) |
|
./pkg/kpp/kpp_forcing_surf.F |
387 |
KPP_FORCING_SURF |
& (uRef(i,j) - uVel(i, j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
388 |
KPP_FORCING_SURF |
& (uRef(i,j) - uVel(i, j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
389 |
KPP_FORCING_SURF |
& (uRef(i,j) - uVel(ip1,j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
390 |
KPP_FORCING_SURF |
& (uRef(i,j) - uVel(ip1,j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
391 |
KPP_FORCING_SURF |
& (vRef(i,j) - vVel(i, j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
392 |
KPP_FORCING_SURF |
& (vRef(i,j) - vVel(i, j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
393 |
KPP_FORCING_SURF |
& (vRef(i,j) - vVel(i, jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
394 |
KPP_FORCING_SURF |
& (vRef(i,j) - vVel(i, jp1,k,bi,bj)) ) |
|
./pkg/kpp/kpp_forcing_surf.F |
397 |
KPP_FORCING_SURF |
& (uRef(i,j) - uVel(i, jm1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
398 |
KPP_FORCING_SURF |
& (uRef(i,j) - uVel(i, jm1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
399 |
KPP_FORCING_SURF |
& (uRef(i,j) - uVel(ip1,jm1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
400 |
KPP_FORCING_SURF |
& (uRef(i,j) - uVel(ip1,jm1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
401 |
KPP_FORCING_SURF |
& (uRef(i,j) - uVel(i, jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
402 |
KPP_FORCING_SURF |
& (uRef(i,j) - uVel(i, jp1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
403 |
KPP_FORCING_SURF |
& (uRef(i,j) - uVel(ip1,jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
404 |
KPP_FORCING_SURF |
& (uRef(i,j) - uVel(ip1,jp1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
405 |
KPP_FORCING_SURF |
& (vRef(i,j) - vVel(im1,j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
406 |
KPP_FORCING_SURF |
& (vRef(i,j) - vVel(im1,j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
407 |
KPP_FORCING_SURF |
& (vRef(i,j) - vVel(im1,jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
408 |
KPP_FORCING_SURF |
& (vRef(i,j) - vVel(im1,jp1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
409 |
KPP_FORCING_SURF |
& (vRef(i,j) - vVel(ip1,j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
410 |
KPP_FORCING_SURF |
& (vRef(i,j) - vVel(ip1,j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
411 |
KPP_FORCING_SURF |
& (vRef(i,j) - vVel(ip1,jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
412 |
KPP_FORCING_SURF |
& (vRef(i,j) - vVel(ip1,jp1,k,bi,bj)) ) |
|
./pkg/kpp/kpp_forcing_surf.F |
428 |
KPP_FORCING_SURF |
& (uVel(i, j, 1,bi,bj)-uVel(i, j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
429 |
KPP_FORCING_SURF |
& (uVel(i, j, 1,bi,bj)-uVel(i, j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
430 |
KPP_FORCING_SURF |
& (uVel(ip1,j, 1,bi,bj)-uVel(ip1,j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
431 |
KPP_FORCING_SURF |
& (uVel(ip1,j, 1,bi,bj)-uVel(ip1,j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
432 |
KPP_FORCING_SURF |
& (vVel(i, j, 1,bi,bj)-vVel(i, j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
433 |
KPP_FORCING_SURF |
& (vVel(i, j, 1,bi,bj)-vVel(i, j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
434 |
KPP_FORCING_SURF |
& (vVel(i, jp1,1,bi,bj)-vVel(i, jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
435 |
KPP_FORCING_SURF |
& (vVel(i, jp1,1,bi,bj)-vVel(i, jp1,k,bi,bj)) ) |
|
./pkg/kpp/kpp_forcing_surf.F |
438 |
KPP_FORCING_SURF |
& (uVel(i, jm1,1,bi,bj)-uVel(i, jm1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
439 |
KPP_FORCING_SURF |
& (uVel(i, jm1,1,bi,bj)-uVel(i, jm1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
440 |
KPP_FORCING_SURF |
& (uVel(ip1,jm1,1,bi,bj)-uVel(ip1,jm1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
441 |
KPP_FORCING_SURF |
& (uVel(ip1,jm1,1,bi,bj)-uVel(ip1,jm1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
442 |
KPP_FORCING_SURF |
& (uVel(i, jp1,1,bi,bj)-uVel(i, jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
443 |
KPP_FORCING_SURF |
& (uVel(i, jp1,1,bi,bj)-uVel(i, jp1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
444 |
KPP_FORCING_SURF |
& (uVel(ip1,jp1,1,bi,bj)-uVel(ip1,jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
445 |
KPP_FORCING_SURF |
& (uVel(ip1,jp1,1,bi,bj)-uVel(ip1,jp1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
446 |
KPP_FORCING_SURF |
& (vVel(im1,j, 1,bi,bj)-vVel(im1,j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
447 |
KPP_FORCING_SURF |
& (vVel(im1,j, 1,bi,bj)-vVel(im1,j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
448 |
KPP_FORCING_SURF |
& (vVel(im1,jp1,1,bi,bj)-vVel(im1,jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
449 |
KPP_FORCING_SURF |
& (vVel(im1,jp1,1,bi,bj)-vVel(im1,jp1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
450 |
KPP_FORCING_SURF |
& (vVel(ip1,j, 1,bi,bj)-vVel(ip1,j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
451 |
KPP_FORCING_SURF |
& (vVel(ip1,j, 1,bi,bj)-vVel(ip1,j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
452 |
KPP_FORCING_SURF |
& (vVel(ip1,jp1,1,bi,bj)-vVel(ip1,jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
453 |
KPP_FORCING_SURF |
& (vVel(ip1,jp1,1,bi,bj)-vVel(ip1,jp1,k,bi,bj)) ) |
|
./model/src/calc_adv_flow.F |
129 |
CALC_ADV_FLOW |
maskUp(i,j) = maskC(i,j,k-1,bi,bj)*maskC(i,j,k,bi,bj) |
|
./model/src/calc_adv_flow.F |
130 |
CALC_ADV_FLOW |
rTrans(i,j) = wFld(i,j,k)*rA(i,j,bi,bj)*maskUp(i,j) |
|
./model/src/calc_adv_flow.F |
15 |
CALC_ADV_FLOW |
I k, bi, bj, myThid ) |
|
./model/src/calc_adv_flow.F |
63 |
CALC_ADV_FLOW |
INTEGER k,bi,bj |
|
./model/src/calc_adv_flow.F |
75 |
CALC_ADV_FLOW |
xA(i,j) = _dyG(i,j,bi,bj)*deepFacC(k) |
|
./model/src/calc_adv_flow.F |
76 |
CALC_ADV_FLOW |
& *drF(k)*_hFacW(i,j,k,bi,bj) |
|
./model/src/calc_adv_flow.F |
77 |
CALC_ADV_FLOW |
yA(i,j) = _dxG(i,j,bi,bj)*deepFacC(k) |
|
./model/src/calc_adv_flow.F |
78 |
CALC_ADV_FLOW |
& *drF(k)*_hFacS(i,j,k,bi,bj) |
|
./model/src/calc_adv_flow.F |
95 |
CALC_ADV_FLOW |
rTransKp(i,j) = wFld(i,j,k+1)*rA(i,j,bi,bj) |
|
./model/src/calc_adv_flow.F |
96 |
CALC_ADV_FLOW |
& * maskC(i,j,k,bi,bj)*maskC(i,j,k+1,bi,bj) |
|
./pkg/kpp/kpp_init_varia.F |
32 |
KPP_INIT_VARIA |
INTEGER i, j, k, bi, bj |
|
./pkg/kpp/kpp_init_varia.F |
40 |
KPP_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/kpp/kpp_init_varia.F |
45 |
KPP_INIT_VARIA |
nzmax(i,j,bi,bj) = kLowC(I,J,bi,bj) |
|
./pkg/kpp/kpp_init_varia.F |
66 |
KPP_INIT_VARIA |
KPPhbl(i,j,bi,bj) = 0. |
|
./pkg/kpp/kpp_init_varia.F |
72 |
KPP_INIT_VARIA |
KPPghat (i,j,k,bi,bj) = 0. |
|
./pkg/kpp/kpp_init_varia.F |
73 |
KPP_INIT_VARIA |
KPPviscAz (i,j,k,bi,bj) = viscArNr(1) |
|
./pkg/kpp/kpp_init_varia.F |
74 |
KPP_INIT_VARIA |
KPPdiffKzS (i,j,k,bi,bj) = 0. |
|
./pkg/kpp/kpp_init_varia.F |
75 |
KPP_INIT_VARIA |
KPPdiffKzT (i,j,k,bi,bj) = 0. |
|
./pkg/kpp/kpp_output.F |
208 |
KPP_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/kpp/kpp_output.F |
210 |
KPP_OUTPUT |
CALL TIMEAVE_RESET(KPPviscAztave, Nr,bi,bj,myThid) |
|
./pkg/kpp/kpp_output.F |
211 |
KPP_OUTPUT |
CALL TIMEAVE_RESET(KPPdiffKzTtave,Nr,bi,bj,myThid) |
|
./pkg/kpp/kpp_output.F |
212 |
KPP_OUTPUT |
CALL TIMEAVE_RESET(KPPghatKStave, Nr,bi,bj,myThid) |
|
./pkg/kpp/kpp_output.F |
213 |
KPP_OUTPUT |
CALL TIMEAVE_RESET(KPPdiffKzStave,Nr,bi,bj,myThid) |
|
./pkg/kpp/kpp_output.F |
214 |
KPP_OUTPUT |
CALL TIMEAVE_RESET(KPPhbltave, 1, bi,bj,myThid) |
|
./pkg/kpp/kpp_output.F |
215 |
KPP_OUTPUT |
KPP_timeAve(bi,bj) = 0. |
|
./pkg/kpp/kpp_output.F |
228 |
KPP_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/kpp/kpp_output.F |
231 |
KPP_OUTPUT |
& KPPviscAztave, KPPviscAz, Nr,DDTT,bi,bj,myThid) |
|
./pkg/kpp/kpp_output.F |
233 |
KPP_OUTPUT |
& KPPdiffKzTtave,KPPdiffKzT,Nr,DDTT,bi,bj,myThid) |
|
./pkg/kpp/kpp_output.F |
235 |
KPP_OUTPUT |
& KPPdiffKzStave,KPPdiffKzS,Nr,DDTT,bi,bj,myThid) |
|
./pkg/kpp/kpp_output.F |
239 |
KPP_OUTPUT |
KPPghatKStave(i,j,k,bi,bj) = KPPghatKStave(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_output.F |
240 |
KPP_OUTPUT |
& + ( KPPdiffKzS(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_output.F |
242 |
KPP_OUTPUT |
& +tmpFac*Kwz(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_output.F |
244 |
KPP_OUTPUT |
& )*KPPghat(i,j,k-1,bi,bj)*DDTT |
|
./pkg/kpp/kpp_output.F |
249 |
KPP_OUTPUT |
& KPPhbltave, KPPhbl, 1, DDTT,bi,bj,myThid) |
|
./pkg/kpp/kpp_output.F |
251 |
KPP_OUTPUT |
KPP_timeAve(bi,bj) = KPP_timeAve(bi,bj)+DDTT |
|
./pkg/kpp/kpp_output.F |
273 |
KPP_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/kpp/kpp_output.F |
276 |
KPP_OUTPUT |
& KPP_timeAve, Nr, bi, bj, myThid ) |
|
./pkg/kpp/kpp_output.F |
278 |
KPP_OUTPUT |
& KPP_timeAve, Nr, bi, bj, myThid ) |
|
./pkg/kpp/kpp_output.F |
280 |
KPP_OUTPUT |
& KPP_timeAve, Nr, bi, bj, myThid ) |
|
./pkg/kpp/kpp_output.F |
282 |
KPP_OUTPUT |
& KPP_timeAve, Nr, bi, bj, myThid ) |
|
./pkg/kpp/kpp_output.F |
284 |
KPP_OUTPUT |
& KPP_timeAve, 1 , bi, bj, myThid ) |
|
./pkg/kpp/kpp_output.F |
356 |
KPP_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/kpp/kpp_output.F |
358 |
KPP_OUTPUT |
CALL TIMEAVE_RESET(KPPviscAztave, Nr,bi,bj,myThid) |
|
./pkg/kpp/kpp_output.F |
359 |
KPP_OUTPUT |
CALL TIMEAVE_RESET(KPPdiffKzTtave,Nr,bi,bj,myThid) |
|
./pkg/kpp/kpp_output.F |
360 |
KPP_OUTPUT |
CALL TIMEAVE_RESET(KPPghatKStave, Nr,bi,bj,myThid) |
|
./pkg/kpp/kpp_output.F |
361 |
KPP_OUTPUT |
CALL TIMEAVE_RESET(KPPdiffKzStave,Nr,bi,bj,myThid) |
|
./pkg/kpp/kpp_output.F |
362 |
KPP_OUTPUT |
CALL TIMEAVE_RESET(KPPhbltave, 1, bi,bj,myThid) |
|
./pkg/kpp/kpp_output.F |
363 |
KPP_OUTPUT |
KPP_timeAve(bi,bj) = 0. |
|
./pkg/kpp/kpp_output.F |
386 |
KPP_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/kpp/kpp_output.F |
396 |
KPP_OUTPUT |
tmpLoc(i,j,k) = KPPghat(i,j,k-1,bi,bj)* |
|
./pkg/kpp/kpp_output.F |
397 |
KPP_OUTPUT |
& ( KPPdiffKzS(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_output.F |
399 |
KPP_OUTPUT |
& + tmpFac*Kwz(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_output.F |
405 |
KPP_OUTPUT |
CALL DIAGNOSTICS_FILL(tmpLoc,'KPPghatK',0,Nr,3,bi,bj,myThid) |
|
./pkg/kpp/kpp_output.F |
88 |
KPP_OUTPUT |
INTEGER bi, bj |
|
./pkg/kpp/kpp_routines.F |
1212 |
SMOOTH_HORIZ |
I k, bi, bj, |
|
./pkg/kpp/kpp_routines.F |
1228 |
SMOOTH_HORIZ |
integer k, bi, bj |
|
./pkg/kpp/kpp_routines.F |
1254 |
SMOOTH_HORIZ |
& p25 * maskC(i ,j ,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1255 |
SMOOTH_HORIZ |
& p125 * ( maskC(im1,j ,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1256 |
SMOOTH_HORIZ |
& maskC(ip1,j ,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1257 |
SMOOTH_HORIZ |
& maskC(i ,jm1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1258 |
SMOOTH_HORIZ |
& maskC(i ,jp1,k,bi,bj) ) + |
|
./pkg/kpp/kpp_routines.F |
1259 |
SMOOTH_HORIZ |
& p0625 * ( maskC(im1,jm1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1260 |
SMOOTH_HORIZ |
& maskC(im1,jp1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1261 |
SMOOTH_HORIZ |
& maskC(ip1,jm1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1262 |
SMOOTH_HORIZ |
& maskC(ip1,jp1,k,bi,bj) ) |
|
./pkg/kpp/kpp_routines.F |
1265 |
SMOOTH_HORIZ |
& p25 * fld(i ,j )*maskC(i ,j ,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1266 |
SMOOTH_HORIZ |
& p125 *(fld(im1,j )*maskC(im1,j ,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1267 |
SMOOTH_HORIZ |
& fld(ip1,j )*maskC(ip1,j ,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1268 |
SMOOTH_HORIZ |
& fld(i ,jm1)*maskC(i ,jm1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1269 |
SMOOTH_HORIZ |
& fld(i ,jp1)*maskC(i ,jp1,k,bi,bj))+ |
|
./pkg/kpp/kpp_routines.F |
1270 |
SMOOTH_HORIZ |
& p0625*(fld(im1,jm1)*maskC(im1,jm1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1271 |
SMOOTH_HORIZ |
& fld(im1,jp1)*maskC(im1,jp1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1272 |
SMOOTH_HORIZ |
& fld(ip1,jm1)*maskC(ip1,jm1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1273 |
SMOOTH_HORIZ |
& fld(ip1,jp1)*maskC(ip1,jp1,k,bi,bj))) |
|
./pkg/kpp/kpp_routines.F |
1632 |
STATEKPP |
I ikppkey, bi, bj, myThid ) |
|
./pkg/kpp/kpp_routines.F |
1673 |
STATEKPP |
INTEGER bi, bj, myThid |
|
./pkg/kpp/kpp_routines.F |
1713 |
STATEKPP |
I theta(1-OLx,1-OLy,1,bi,bj), salt(1-OLx,1-OLy,1,bi,bj), |
|
./pkg/kpp/kpp_routines.F |
1715 |
STATEKPP |
I 1, bi, bj, myThid ) |
|
./pkg/kpp/kpp_routines.F |
1724 |
STATEKPP |
I bi, bj, 1-OLx, sNx+OLx, 1-OLy, sNy+OLy, 1, 1, |
|
./pkg/kpp/kpp_routines.F |
1728 |
STATEKPP |
I bi, bj, 1-OLx, sNx+OLx, 1-OLy, sNy+OLy, 1, 1, |
|
./pkg/kpp/kpp_routines.F |
1755 |
STATEKPP |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/kpp/kpp_routines.F |
1757 |
STATEKPP |
I k, bi, bj, myThid ) |
|
./pkg/kpp/kpp_routines.F |
1767 |
STATEKPP |
I theta(1-OLx,1-OLy,k-1,bi,bj),salt(1-OLx,1-OLy,k-1,bi,bj), |
|
./pkg/kpp/kpp_routines.F |
1769 |
STATEKPP |
I k-1, bi, bj, myThid ) |
|
./pkg/kpp/kpp_routines.F |
1779 |
STATEKPP |
I theta(1-OLx,1-OLy,1,bi,bj), salt(1-OLx,1-OLy,1,bi,bj), |
|
./pkg/kpp/kpp_routines.F |
1781 |
STATEKPP |
I 1, bi, bj, myThid ) |
|
./pkg/kpp/kpp_routines.F |
1793 |
STATEKPP |
I bi, bj, 1-OLx, sNx+OLx, 1-OLy, sNy+OLy, K, K, |
|
./pkg/kpp/kpp_routines.F |
1797 |
STATEKPP |
I bi, bj, 1-OLx, sNx+OLx, 1-OLy, sNy+OLy, K, K, |
|
./pkg/kpp/kpp_routines.F |
1824 |
STATEKPP |
CALL DIAGNOSTICS_FILL(DBSFC ,'KPPdbsfc',0,Nr,2,bi,bj,myThid) |
|
./pkg/kpp/kpp_routines.F |
1825 |
STATEKPP |
CALL DIAGNOSTICS_FILL(DBLOC ,'KPPdbloc',0,Nr,2,bi,bj,myThid) |
|
./pkg/kpp/kpp_routines.F |
1840 |
KPP_DOUBLEDIFF |
I ikppkey, imin, imax, jmin, jmax, bi, bj, myThid ) |
|
./pkg/kpp/kpp_routines.F |
1877 |
KPP_DOUBLEDIFF |
INTEGER ikppkey, imin, imax, jmin, jmax, bi, bj, myThid |
|
./pkg/kpp/kpp_routines.F |
1926 |
KPP_DOUBLEDIFF |
alphaDT(I,J) = ( theta(I,J,Km1,bi,bj)-theta(I,J,K,bi,bj) ) |
|
./pkg/kpp/kpp_routines.F |
1928 |
KPP_DOUBLEDIFF |
betaDS(I,J) = ( salt(I,J,Km1,bi,bj)-salt(I,J,K,bi,bj) ) |
|
./pkg/kpp/kpp_routines.F |
1986 |
KPP_DOUBLEDIFF |
CALL DIAGNOSTICS_FILL(nuddt,'KPPnuddt',k,1,2,bi,bj,myThid) |
|
./pkg/kpp/kpp_routines.F |
1987 |
KPP_DOUBLEDIFF |
CALL DIAGNOSTICS_FILL(nudds,'KPPnudds',k,1,2,bi,bj,myThid) |
|
./pkg/kpp/kpp_routines.F |
219 |
KPPMIX |
I , bi, bj, myTime, myIter, myThid ) |
|
./pkg/kpp/kpp_routines.F |
307 |
BLDEPTH |
I , bi, bj, myTime, myIter, myThid ) |
|
./pkg/kpp/kpp_routines.F |
357 |
BLDEPTH |
INTEGER bi, bj |
|
./pkg/kpp/kpp_routines.F |
46 |
KPPMIX |
I , bi, bj, myTime, myIter, myThid ) |
|
./pkg/kpp/kpp_routines.F |
581 |
BLDEPTH |
CALL DIAGNOSTICS_FILL(KPPBFSFC,'KPPbfsfc',0,Nr,2,bi,bj,myThid) |
|
./pkg/kpp/kpp_routines.F |
582 |
BLDEPTH |
CALL DIAGNOSTICS_FILL(KPPRi ,'KPPRi ',0,Nr,2,bi,bj,myThid) |
|
./pkg/kpp/kpp_routines.F |
96 |
KPPMIX |
INTEGER bi, bj |
|
./pkg/kpp/kpp_transport_ptr.F |
105 |
KPP_TRANSPORT_PTR |
df(i,j) = - _rA(i,j,bi,bj) |
|
./pkg/kpp/kpp_transport_ptr.F |
107 |
KPP_TRANSPORT_PTR |
& *( LS_KPPdiffKzS(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_transport_ptr.F |
109 |
KPP_TRANSPORT_PTR |
& + tmpFac*LS_Kwz(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_transport_ptr.F |
111 |
KPP_TRANSPORT_PTR |
& )*LS_KPPghat(i,j,km1,bi,bj) |
|
./pkg/kpp/kpp_transport_ptr.F |
113 |
KPP_TRANSPORT_PTR |
& *( KPPdiffKzS(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_transport_ptr.F |
115 |
KPP_TRANSPORT_PTR |
& + tmpFac*Kwz(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_transport_ptr.F |
117 |
KPP_TRANSPORT_PTR |
& )*KPPghat(i,j,km1,bi,bj) |
|
./pkg/kpp/kpp_transport_ptr.F |
119 |
KPP_TRANSPORT_PTR |
& *surfaceForcingPTr(i,j,bi,bj,iTr) |
|
./pkg/kpp/kpp_transport_ptr.F |
11 |
KPP_TRANSPORT_PTR |
I bi, bj, k, km1, iTr, |
|
./pkg/kpp/kpp_transport_ptr.F |
65 |
KPP_TRANSPORT_PTR |
INTEGER bi, bj, k, km1, iTr |
|
./pkg/kpp/kpp_transport_ptr.F |
90 |
KPP_TRANSPORT_PTR |
df(i,j) = - _rA(i,j,bi,bj) |
|
./pkg/kpp/kpp_transport_ptr.F |
91 |
KPP_TRANSPORT_PTR |
& *KPPghat(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_transport_ptr.F |
92 |
KPP_TRANSPORT_PTR |
& *surfaceForcingPTr(i,j,bi,bj,iTr) |
|
./pkg/kpp/kpp_transport_s.F |
101 |
KPP_TRANSPORT_S |
& + tmpFac1*saltPlumeFlux(i,j,bi,bj)*recip_rhoConst |
|
./pkg/kpp/kpp_transport_s.F |
102 |
KPP_TRANSPORT_S |
& *(1.-KPPplumefrac(i,j,bi,bj)) |
|
./pkg/kpp/kpp_transport_s.F |
112 |
KPP_TRANSPORT_S |
df(i,j) = - _rA(i,j,bi,bj) |
|
./pkg/kpp/kpp_transport_s.F |
113 |
KPP_TRANSPORT_S |
& *KPPdiffKzS(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_transport_s.F |
114 |
KPP_TRANSPORT_S |
& *KPPghat(i,j,km1,bi,bj) |
|
./pkg/kpp/kpp_transport_s.F |
115 |
KPP_TRANSPORT_S |
& *( surfaceForcingS(i,j,bi,bj) |
|
./pkg/kpp/kpp_transport_s.F |
117 |
KPP_TRANSPORT_S |
& + tmpFac1*saltPlumeFlux(i,j,bi,bj)*recip_rhoConst |
|
./pkg/kpp/kpp_transport_s.F |
118 |
KPP_TRANSPORT_S |
& *(1.-KPPplumefrac(i,j,bi,bj)) |
|
./pkg/kpp/kpp_transport_s.F |
13 |
KPP_TRANSPORT_S |
I iMin,iMax,jMin,jMax,bi,bj,k,km1, |
|
./pkg/kpp/kpp_transport_s.F |
53 |
KPP_TRANSPORT_S |
INTEGER iMin,iMax,jMin,jMax,bi,bj,k,km1 |
|
./pkg/kpp/kpp_transport_s.F |
96 |
KPP_TRANSPORT_S |
df(i,j) = - _rA(i,j,bi,bj) |
|
./pkg/kpp/kpp_transport_s.F |
97 |
KPP_TRANSPORT_S |
& *( KPPdiffKzS(i,j,k,bi,bj) + tmpFac*Kwz(i,j,k,bi,bj) ) |
|
./pkg/kpp/kpp_transport_s.F |
98 |
KPP_TRANSPORT_S |
& *KPPghat(i,j,km1,bi,bj) |
|
./pkg/kpp/kpp_transport_s.F |
99 |
KPP_TRANSPORT_S |
& *( surfaceForcingS(i,j,bi,bj) |
|
./pkg/kpp/kpp_transport_t.F |
100 |
KPP_TRANSPORT_T |
& *(1.-KPPfrac(i,j,bi,bj)) |
|
./pkg/kpp/kpp_transport_t.F |
10 |
KPP_TRANSPORT_T |
I iMin,iMax,jMin,jMax,bi,bj,k,km1, |
|
./pkg/kpp/kpp_transport_t.F |
51 |
KPP_TRANSPORT_T |
INTEGER iMin,iMax,jMin,jMax,bi,bj,k,km1 |
|
./pkg/kpp/kpp_transport_t.F |
79 |
KPP_TRANSPORT_T |
df(i,j) = - _rA(i,j,bi,bj) |
|
./pkg/kpp/kpp_transport_t.F |
80 |
KPP_TRANSPORT_T |
& *( KPPdiffKzT(i,j,k,bi,bj) + tmpFac*Kwz(i,j,k,bi,bj) ) |
|
./pkg/kpp/kpp_transport_t.F |
81 |
KPP_TRANSPORT_T |
& *KPPghat(i,j,km1,bi,bj) |
|
./pkg/kpp/kpp_transport_t.F |
82 |
KPP_TRANSPORT_T |
& *( surfaceForcingT(i,j,bi,bj) |
|
./pkg/kpp/kpp_transport_t.F |
83 |
KPP_TRANSPORT_T |
& +surfaceForcingTice(i,j,bi,bj) |
|
./pkg/kpp/kpp_transport_t.F |
84 |
KPP_TRANSPORT_T |
& -Qsw(i,j,bi,bj)*recip_Cp*recip_rhoConst |
|
./pkg/kpp/kpp_transport_t.F |
85 |
KPP_TRANSPORT_T |
& *(1.-KPPfrac(i,j,bi,bj)) |
|
./pkg/kpp/kpp_transport_t.F |
94 |
KPP_TRANSPORT_T |
df(i,j) = - _rA(i,j,bi,bj) |
|
./pkg/kpp/kpp_transport_t.F |
95 |
KPP_TRANSPORT_T |
& *KPPdiffKzT(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_transport_t.F |
96 |
KPP_TRANSPORT_T |
& *KPPghat(i,j,km1,bi,bj) |
|
./pkg/kpp/kpp_transport_t.F |
97 |
KPP_TRANSPORT_T |
& *( surfaceForcingT(i,j,bi,bj) |
|
./pkg/kpp/kpp_transport_t.F |
98 |
KPP_TRANSPORT_T |
& +surfaceForcingTice(i,j,bi,bj) |
|
./pkg/kpp/kpp_transport_t.F |
99 |
KPP_TRANSPORT_T |
& -Qsw(i,j,bi,bj)*recip_Cp*recip_rhoConst |
|
./model/src/calc_div_ghat.F |
10 |
CALC_DIV_GHAT |
I bi,bj,k, |
|
./model/src/calc_div_ghat.F |
115 |
CALC_DIV_GHAT |
pf(i,j) = ( implicDiv2Dflow * gU(i,j,k,bi,bj) |
|
./model/src/calc_div_ghat.F |
116 |
CALC_DIV_GHAT |
& + (1. _d 0-implicDiv2Dflow)* uVel(i,j,k,bi,bj) |
|
./model/src/calc_div_ghat.F |
123 |
CALC_DIV_GHAT |
cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj) + |
|
./model/src/calc_div_ghat.F |
132 |
CALC_DIV_GHAT |
cg3d_b(i,j,k,bi,bj) = ( pf(i+1,j)-pf(i,j) ) |
|
./model/src/calc_div_ghat.F |
142 |
CALC_DIV_GHAT |
pf(i,j) = yA(i,j)*gV(i,j,k,bi,bj) / deltatmom |
|
./model/src/calc_div_ghat.F |
151 |
CALC_DIV_GHAT |
& *yA(i,j)*gV(i,j,k,bi,bj) / deltatmom |
|
./model/src/calc_div_ghat.F |
158 |
CALC_DIV_GHAT |
pf(i,j) = ( implicDiv2Dflow * gV(i,j,k,bi,bj) |
|
./model/src/calc_div_ghat.F |
159 |
CALC_DIV_GHAT |
& + (1. _d 0-implicDiv2Dflow)* vVel(i,j,k,bi,bj) |
|
./model/src/calc_div_ghat.F |
166 |
CALC_DIV_GHAT |
cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj) + |
|
./model/src/calc_div_ghat.F |
175 |
CALC_DIV_GHAT |
cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj) |
|
./model/src/calc_div_ghat.F |
186 |
CALC_DIV_GHAT |
cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj) |
|
./model/src/calc_div_ghat.F |
187 |
CALC_DIV_GHAT |
& - addMass(i,j,k,bi,bj)*mass2rUnit/deltaTMom |
|
./model/src/calc_div_ghat.F |
194 |
CALC_DIV_GHAT |
cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj) |
|
./model/src/calc_div_ghat.F |
195 |
CALC_DIV_GHAT |
& - addMass(i,j,k,bi,bj)*mass2rUnit/deltaTMom |
|
./model/src/calc_div_ghat.F |
43 |
CALC_DIV_GHAT |
INTEGER bi,bj |
|
./model/src/calc_div_ghat.F |
67 |
CALC_DIV_GHAT |
xA(i,j) = _dyG(i,j,bi,bj)*deepFacC(k) |
|
./model/src/calc_div_ghat.F |
68 |
CALC_DIV_GHAT |
& *drF(k)*_hFacW(i,j,k,bi,bj)*rhoFacC(k) |
|
./model/src/calc_div_ghat.F |
69 |
CALC_DIV_GHAT |
yA(i,j) = _dxG(i,j,bi,bj)*deepFacC(k) |
|
./model/src/calc_div_ghat.F |
70 |
CALC_DIV_GHAT |
& *drF(k)*_hFacS(i,j,k,bi,bj)*rhoFacC(k) |
|
./model/src/calc_div_ghat.F |
83 |
CALC_DIV_GHAT |
pf(i,j) = xA(i,j)*gU(i,j,k,bi,bj) / deltaTMom |
|
./model/src/calc_div_ghat.F |
92 |
CALC_DIV_GHAT |
& *xA(i,j)*gU(i,j,k,bi,bj) / deltaTMom |
|
./pkg/land/land_albedo.F |
12 |
LAND_ALBEDO |
I bi,bj, myTime, myIter, myThid ) |
|
./pkg/land/land_albedo.F |
45 |
LAND_ALBEDO |
INTEGER bi, bj, myIter, myThid |
|
./pkg/land/land_albedo.F |
63 |
LAND_ALBEDO |
alb_land(i,j) = grnd_alb(i,j,bi,bj) |
|
./pkg/land/land_albedo.F |
64 |
LAND_ALBEDO |
IF ( land_frc(i,j,bi,bj).GT.0. ) THEN |
|
./pkg/land/land_albedo.F |
65 |
LAND_ALBEDO |
Tsf = land_skinT(i,j,bi,bj) |
|
./pkg/land/land_albedo.F |
67 |
LAND_ALBEDO |
ageSnow = land_snowAge(i,j,bi,bj)/86400. _d 0 |
|
./pkg/land/land_albedo.F |
68 |
LAND_ALBEDO |
hSnow = land_hSnow(i,j,bi,bj) |
|
./pkg/land/land_do_diags.F |
10 |
LAND_DO_DIAGS |
I land_frc, bi,bj, myTime, myIter, myThid ) |
|
./pkg/land/land_do_diags.F |
43 |
LAND_DO_DIAGS |
INTEGER bi, bj, myIter, myThid |
|
./pkg/land/land_do_diags.F |
60 |
LAND_DO_DIAGS |
& land_deltaT, bi, bj, myThid ) |
|
./pkg/land/land_do_diags.F |
62 |
LAND_DO_DIAGS |
& land_deltaT, bi, bj, myThid ) |
|
./pkg/land/land_do_diags.F |
64 |
LAND_DO_DIAGS |
& land_deltaT, bi, bj, myThid ) |
|
./pkg/land/land_do_diags.F |
66 |
LAND_DO_DIAGS |
& land_deltaT, bi, bj, myThid ) |
|
./pkg/land/land_do_diags.F |
68 |
LAND_DO_DIAGS |
& land_deltaT, bi, bj, myThid ) |
|
./pkg/land/land_do_diags.F |
70 |
LAND_DO_DIAGS |
& land_deltaT, bi, bj, myThid ) |
|
./pkg/land/land_do_diags.F |
72 |
LAND_DO_DIAGS |
& land_deltaT, bi, bj, myThid ) |
|
./pkg/land/land_do_diags.F |
74 |
LAND_DO_DIAGS |
& land_deltaT, bi, bj, myThid ) |
|
./pkg/land/land_do_diags.F |
77 |
LAND_DO_DIAGS |
land_timeAve(bi,bj) = land_timeAve(bi,bj)+land_deltaT |
|
./pkg/land/land_do_diags.F |
90 |
LAND_DO_DIAGS |
& 1,bi,bj,myThid) |
|
./pkg/land/land_do_diags.F |
92 |
LAND_DO_DIAGS |
& 1,bi,bj,myThid) |
|
./pkg/land/land_do_diags.F |
94 |
LAND_DO_DIAGS |
& 1,bi,bj,myThid) |
|
./pkg/land/land_do_diags.F |
96 |
LAND_DO_DIAGS |
& 1,bi,bj,myThid) |
|
./pkg/land/land_do_diags.F |
98 |
LAND_DO_DIAGS |
& 1,bi,bj,myThid) |
|
./pkg/land/land_impl_temp.F |
131 |
LAND_IMPL_TEMP |
IF ( land_frc(i,j,bi,bj).GT.0. ) THEN |
|
./pkg/land/land_impl_temp.F |
135 |
LAND_IMPL_TEMP |
tSurf = land_skinT(i,j,bi,bj) |
|
./pkg/land/land_impl_temp.F |
136 |
LAND_IMPL_TEMP |
mSnow = land_rhoSnow*land_hSnow(i,j,bi,bj) |
|
./pkg/land/land_impl_temp.F |
139 |
LAND_IMPL_TEMP |
alpha = land_hSnow(i,j,bi,bj)/diffKsnow |
|
./pkg/land/land_impl_temp.F |
13 |
LAND_IMPL_TEMP |
I bi, bj, myTime, myIter, myThid) |
|
./pkg/land/land_impl_temp.F |
142 |
LAND_IMPL_TEMP |
eg(k) = land_dzF(k)*land_enthalp(i,j,k,bi,bj) |
|
./pkg/land/land_impl_temp.F |
143 |
LAND_IMPL_TEMP |
mW(k) = land_dzF(k)*land_groundW(i,j,k,bi,bj) |
|
./pkg/land/land_impl_temp.F |
147 |
LAND_IMPL_TEMP |
tg(k) = land_groundT(i,j,k,bi,bj) |
|
./pkg/land/land_impl_temp.F |
176 |
LAND_IMPL_TEMP |
IF ( tg(2)*land_groundT(i,j,2,bi,bj) .LE. 0. _d 0 |
|
./pkg/land/land_impl_temp.F |
196 |
LAND_IMPL_TEMP |
& i,j,bi,bj,myIter |
|
./pkg/land/land_impl_temp.F |
201 |
LAND_IMPL_TEMP |
& land_groundT(i,j,1,bi,bj),land_groundT(i,j,2,bi,bj), |
|
./pkg/land/land_impl_temp.F |
222 |
LAND_IMPL_TEMP |
IF ( tg(1)*land_groundT(i,j,1,bi,bj) .LE. 0. _d 0 |
|
./pkg/land/land_impl_temp.F |
236 |
LAND_IMPL_TEMP |
land_Pr_m_Ev(i,j,bi,bj) = dMsn/delT |
|
./pkg/land/land_impl_temp.F |
237 |
LAND_IMPL_TEMP |
land_hSnow(i,j,bi,bj) = (mSnow - dMsn)/land_rhoSnow |
|
./pkg/land/land_impl_temp.F |
249 |
LAND_IMPL_TEMP |
& i,j,bi,bj,myIter |
|
./pkg/land/land_impl_temp.F |
254 |
LAND_IMPL_TEMP |
& land_groundT(i,j,1,bi,bj),land_groundT(i,j,2,bi,bj), |
|
./pkg/land/land_impl_temp.F |
289 |
LAND_IMPL_TEMP |
tg(1) = land_groundT(i,j,1,bi,bj) |
|
./pkg/land/land_impl_temp.F |
290 |
LAND_IMPL_TEMP |
tg(2) = land_groundT(i,j,2,bi,bj) |
|
./pkg/land/land_impl_temp.F |
306 |
LAND_IMPL_TEMP |
IF ( tg(2)*land_groundT(i,j,2,bi,bj).LE.0. _d 0 ) THEN |
|
./pkg/land/land_impl_temp.F |
309 |
LAND_IMPL_TEMP |
ELSEIF ( tg(1)*land_groundT(i,j,1,bi,bj).LE.0. _d 0 ) THEN |
|
./pkg/land/land_impl_temp.F |
327 |
LAND_IMPL_TEMP |
land_Pr_m_Ev(i,j,bi,bj) = dMsn/delT |
|
./pkg/land/land_impl_temp.F |
328 |
LAND_IMPL_TEMP |
land_hSnow(i,j,bi,bj) = (mSnow - dMsn)/land_rhoSnow |
|
./pkg/land/land_impl_temp.F |
343 |
LAND_IMPL_TEMP |
& dTsurf(i,j) = tSurf - land_skinT(i,j,bi,bj) |
|
./pkg/land/land_impl_temp.F |
344 |
LAND_IMPL_TEMP |
land_skinT(i,j,bi,bj) = tSurf |
|
./pkg/land/land_impl_temp.F |
346 |
LAND_IMPL_TEMP |
land_enthalp(i,j,k,bi,bj) = eg(k)/land_dzF(k) |
|
./pkg/land/land_impl_temp.F |
347 |
LAND_IMPL_TEMP |
land_groundT(i,j,k,bi,bj) = tg(k) |
|
./pkg/land/land_impl_temp.F |
354 |
LAND_IMPL_TEMP |
& (land_enthalp(i,j,k,bi,bj),k=1,2), land_Pr_m_Ev(i,j,bi,bj) |
|
./pkg/land/land_impl_temp.F |
51 |
LAND_IMPL_TEMP |
INTEGER bi, bj, myIter, myThid |
|
./pkg/land/land_ini_vars.F |
126 |
LAND_INI_VARS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/land/land_ini_vars.F |
139 |
LAND_INI_VARS |
& *land_groundW(i,j,k,bi,bj) |
|
./pkg/land/land_ini_vars.F |
141 |
LAND_INI_VARS |
land_enthalp(i,j,k,bi,bj) = |
|
./pkg/land/land_ini_vars.F |
142 |
LAND_INI_VARS |
& grd_HeatCp*land_groundT(i,j,k,bi,bj) |
|
./pkg/land/land_ini_vars.F |
143 |
LAND_INI_VARS |
IF (land_groundT(i,j,k,bi,bj).LT. 0. _d 0) |
|
./pkg/land/land_ini_vars.F |
144 |
LAND_INI_VARS |
& land_enthalp(i,j,k,bi,bj) = land_enthalp(i,j,k,bi,bj) |
|
./pkg/land/land_ini_vars.F |
147 |
LAND_INI_VARS |
land_skinT(i,j,bi,bj) = land_groundT(i,j,1,bi,bj) |
|
./pkg/land/land_ini_vars.F |
156 |
LAND_INI_VARS |
& *land_groundW(i,j,k,bi,bj) |
|
./pkg/land/land_ini_vars.F |
159 |
LAND_INI_VARS |
temp_bf = (land_enthalp(i,j,k,bi,bj)+land_Lfreez*mWater) |
|
./pkg/land/land_ini_vars.F |
162 |
LAND_INI_VARS |
temp_af = land_enthalp(i,j,k,bi,bj) / grd_HeatCp |
|
./pkg/land/land_ini_vars.F |
163 |
LAND_INI_VARS |
land_groundT(i,j,k,bi,bj) = |
|
./pkg/land/land_ini_vars.F |
49 |
LAND_INI_VARS |
INTEGER i,j,k,bi,bj |
|
./pkg/land/land_ini_vars.F |
58 |
LAND_INI_VARS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/land/land_ini_vars.F |
65 |
LAND_INI_VARS |
land_groundT(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/land/land_ini_vars.F |
66 |
LAND_INI_VARS |
land_enthalp(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/land/land_ini_vars.F |
67 |
LAND_INI_VARS |
land_groundW(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/land/land_ini_vars.F |
75 |
LAND_INI_VARS |
land_skinT (i,j,bi,bj) = 0. _d 0 |
|
./pkg/land/land_ini_vars.F |
76 |
LAND_INI_VARS |
land_hSnow (i,j,bi,bj) = 0. _d 0 |
|
./pkg/land/land_ini_vars.F |
77 |
LAND_INI_VARS |
land_snowAge(i,j,bi,bj) = 0. _d 0 |
|
./pkg/land/land_ini_vars.F |
78 |
LAND_INI_VARS |
land_runOff (i,j,bi,bj) = 0. _d 0 |
|
./pkg/land/land_ini_vars.F |
79 |
LAND_INI_VARS |
land_enRnOf (i,j,bi,bj) = 0. _d 0 |
|
./pkg/land/land_ini_vars.F |
80 |
LAND_INI_VARS |
land_HeatFLx(i,j,bi,bj) = 0. _d 0 |
|
./pkg/land/land_ini_vars.F |
81 |
LAND_INI_VARS |
land_Pr_m_Ev(i,j,bi,bj) = 0. _d 0 |
|
./pkg/land/land_ini_vars.F |
82 |
LAND_INI_VARS |
land_EnWFlux(i,j,bi,bj) = 0. _d 0 |
|
./model/src/calc_eddy_stress.F |
101 |
CALC_EDDY_STRESS |
& 0, Nr, 1, bi, bj, myThid ) |
|
./model/src/calc_eddy_stress.F |
11 |
CALC_EDDY_STRESS |
SUBROUTINE CALC_EDDY_STRESS( bi, bj, myThid ) |
|
./model/src/calc_eddy_stress.F |
38 |
CALC_EDDY_STRESS |
INTEGER bi,bj |
|
./model/src/calc_eddy_stress.F |
58 |
CALC_EDDY_STRESS |
psiy = op25*(GM_PsiY(i, j ,k,bi,bj) |
|
./model/src/calc_eddy_stress.F |
59 |
CALC_EDDY_STRESS |
& +GM_PsiY(i, j+1,k,bi,bj) |
|
./model/src/calc_eddy_stress.F |
60 |
CALC_EDDY_STRESS |
& +GM_PsiY(i-1,j ,k,bi,bj) |
|
./model/src/calc_eddy_stress.F |
61 |
CALC_EDDY_STRESS |
& +GM_PsiY(i-1,j+1,k,bi,bj)) |
|
./model/src/calc_eddy_stress.F |
63 |
CALC_EDDY_STRESS |
psiy = op25*(eddyPsiY(i, j ,k,bi,bj) |
|
./model/src/calc_eddy_stress.F |
64 |
CALC_EDDY_STRESS |
& +eddyPsiY(i, j+1,k,bi,bj) |
|
./model/src/calc_eddy_stress.F |
65 |
CALC_EDDY_STRESS |
& +eddyPsiY(i-1,j ,k,bi,bj) |
|
./model/src/calc_eddy_stress.F |
66 |
CALC_EDDY_STRESS |
& +eddyPsiY(i-1,j+1,k,bi,bj)) |
|
./model/src/calc_eddy_stress.F |
68 |
CALC_EDDY_STRESS |
coriU = op5*(fcori(i-1,j,bi,bj) |
|
./model/src/calc_eddy_stress.F |
69 |
CALC_EDDY_STRESS |
& +fCori(i ,j,bi,bj)) |
|
./model/src/calc_eddy_stress.F |
70 |
CALC_EDDY_STRESS |
tauxEddy(i,j,k,bi,bj) = rhoConst*coriU*psiy |
|
./model/src/calc_eddy_stress.F |
77 |
CALC_EDDY_STRESS |
psix = op25*(GM_PsiX(i, j ,k,bi,bj) |
|
./model/src/calc_eddy_stress.F |
78 |
CALC_EDDY_STRESS |
& +GM_PsiX(i+1,j ,k,bi,bj) |
|
./model/src/calc_eddy_stress.F |
79 |
CALC_EDDY_STRESS |
& +GM_PsiX(i ,j-1,k,bi,bj) |
|
./model/src/calc_eddy_stress.F |
80 |
CALC_EDDY_STRESS |
& +GM_PsiX(i+1,j-1,k,bi,bj)) |
|
./model/src/calc_eddy_stress.F |
82 |
CALC_EDDY_STRESS |
psix = op25*(eddyPsiX(i, j ,k,bi,bj) |
|
./model/src/calc_eddy_stress.F |
83 |
CALC_EDDY_STRESS |
& +eddyPsiX(i+1,j ,k,bi,bj) |
|
./model/src/calc_eddy_stress.F |
84 |
CALC_EDDY_STRESS |
& +eddyPsiX(i ,j-1,k,bi,bj) |
|
./model/src/calc_eddy_stress.F |
85 |
CALC_EDDY_STRESS |
& +eddyPsiX(i+1,j-1,k,bi,bj)) |
|
./model/src/calc_eddy_stress.F |
87 |
CALC_EDDY_STRESS |
coriV = op5*(fcori(i,j-1,bi,bj) |
|
./model/src/calc_eddy_stress.F |
88 |
CALC_EDDY_STRESS |
& +fCori(i,j ,bi,bj)) |
|
./model/src/calc_eddy_stress.F |
89 |
CALC_EDDY_STRESS |
tauyEddy(i,j,k,bi,bj) = -rhoConst*coriV*psix |
|
./model/src/calc_eddy_stress.F |
99 |
CALC_EDDY_STRESS |
& 0, Nr, 1, bi, bj, myThid ) |
|
./pkg/land/land_output.F |
170 |
LAND_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/land/land_output.F |
172 |
LAND_OUTPUT |
CALL TIMEAVE_RESET(land_grTtave,land_nLev, bi, bj, myThid) |
|
./pkg/land/land_output.F |
173 |
LAND_OUTPUT |
CALL TIMEAVE_RESET(land_entave, land_nLev, bi, bj, myThid) |
|
./pkg/land/land_output.F |
174 |
LAND_OUTPUT |
CALL TIMEAVE_RESET(land_grWtave,land_nLev, bi, bj, myThid) |
|
./pkg/land/land_output.F |
175 |
LAND_OUTPUT |
CALL TIMEAVE_RESET(land_sTtave, 1, bi, bj, myThid) |
|
./pkg/land/land_output.F |
176 |
LAND_OUTPUT |
CALL TIMEAVE_RESET(land_hStave, 1, bi, bj, myThid) |
|
./pkg/land/land_output.F |
177 |
LAND_OUTPUT |
CALL TIMEAVE_RESET(land_sAtave, 1, bi, bj, myThid) |
|
./pkg/land/land_output.F |
178 |
LAND_OUTPUT |
CALL TIMEAVE_RESET(land_ROftave, 1, bi, bj, myThid) |
|
./pkg/land/land_output.F |
179 |
LAND_OUTPUT |
CALL TIMEAVE_RESET(land_eROtave, 1, bi, bj, myThid) |
|
./pkg/land/land_output.F |
180 |
LAND_OUTPUT |
land_timeAve(bi,bj) = 0. |
|
./pkg/land/land_output.F |
190 |
LAND_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/land/land_output.F |
193 |
LAND_OUTPUT |
& land_nLev, bi, bj, myThid ) |
|
./pkg/land/land_output.F |
195 |
LAND_OUTPUT |
& land_nLev, bi, bj, myThid ) |
|
./pkg/land/land_output.F |
197 |
LAND_OUTPUT |
& land_nLev, bi, bj, myThid ) |
|
./pkg/land/land_output.F |
199 |
LAND_OUTPUT |
& 1, bi, bj, myThid ) |
|
./pkg/land/land_output.F |
201 |
LAND_OUTPUT |
& 1, bi, bj, myThid ) |
|
./pkg/land/land_output.F |
203 |
LAND_OUTPUT |
& 1, bi, bj, myThid ) |
|
./pkg/land/land_output.F |
205 |
LAND_OUTPUT |
& 1, bi, bj, myThid ) |
|
./pkg/land/land_output.F |
207 |
LAND_OUTPUT |
& 1, bi, bj, myThid ) |
|
./pkg/land/land_output.F |
279 |
LAND_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/land/land_output.F |
281 |
LAND_OUTPUT |
CALL TIMEAVE_RESET(land_grTtave,land_nLev, bi, bj, myThid) |
|
./pkg/land/land_output.F |
282 |
LAND_OUTPUT |
CALL TIMEAVE_RESET(land_entave, land_nLev, bi, bj, myThid) |
|
./pkg/land/land_output.F |
283 |
LAND_OUTPUT |
CALL TIMEAVE_RESET(land_grWtave,land_nLev, bi, bj, myThid) |
|
./pkg/land/land_output.F |
284 |
LAND_OUTPUT |
CALL TIMEAVE_RESET(land_sTtave, 1, bi, bj, myThid) |
|
./pkg/land/land_output.F |
285 |
LAND_OUTPUT |
CALL TIMEAVE_RESET(land_hStave, 1, bi, bj, myThid) |
|
./pkg/land/land_output.F |
286 |
LAND_OUTPUT |
CALL TIMEAVE_RESET(land_sAtave, 1, bi, bj, myThid) |
|
./pkg/land/land_output.F |
287 |
LAND_OUTPUT |
CALL TIMEAVE_RESET(land_ROftave, 1, bi, bj, myThid) |
|
./pkg/land/land_output.F |
288 |
LAND_OUTPUT |
CALL TIMEAVE_RESET(land_eROtave, 1, bi, bj, myThid) |
|
./pkg/land/land_output.F |
289 |
LAND_OUTPUT |
land_timeAve(bi,bj) = 0. |
|
./pkg/land/land_output.F |
52 |
LAND_OUTPUT |
INTEGER bi, bj, k |
|
./pkg/land/land_stepfwd.F |
10 |
LAND_STEPFWD |
I land_frc, bi, bj, myTime, myIter, myThid) |
|
./pkg/land/land_stepfwd.F |
112 |
LAND_STEPFWD |
IF ( land_frc(i,j,bi,bj).GT.0. ) THEN |
|
./pkg/land/land_stepfwd.F |
115 |
LAND_STEPFWD |
& ( land_groundT(i,j,k,bi,bj) |
|
./pkg/land/land_stepfwd.F |
116 |
LAND_STEPFWD |
& -land_groundT(i,j,kp1,bi,bj) ) |
|
./pkg/land/land_stepfwd.F |
120 |
LAND_STEPFWD |
land_enthalp(i,j,k,bi,bj) = land_enthalp(i,j,k,bi,bj) |
|
./pkg/land/land_stepfwd.F |
137 |
LAND_STEPFWD |
land_runOff(i,j,bi,bj) = 0. _d 0 |
|
./pkg/land/land_stepfwd.F |
138 |
LAND_STEPFWD |
land_enRnOf(i,j,bi,bj) = 0. _d 0 |
|
./pkg/land/land_stepfwd.F |
152 |
LAND_STEPFWD |
IF ( land_frc(i,j,bi,bj).GT.0. ) THEN |
|
./pkg/land/land_stepfwd.F |
154 |
LAND_STEPFWD |
& *land_groundW(i,j,k,bi,bj) |
|
./pkg/land/land_stepfwd.F |
157 |
LAND_STEPFWD |
temp_bf = (land_enthalp(i,j,k,bi,bj)+land_Lfreez*mWater) |
|
./pkg/land/land_stepfwd.F |
159 |
LAND_STEPFWD |
temp_af = land_enthalp(i,j,k,bi,bj) / grd_HeatCp |
|
./pkg/land/land_stepfwd.F |
160 |
LAND_STEPFWD |
land_groundT(i,j,k,bi,bj) = |
|
./pkg/land/land_stepfwd.F |
166 |
LAND_STEPFWD |
& k,land_groundT(i,j,k,bi,bj),temp_af,temp_bf |
|
./pkg/land/land_stepfwd.F |
179 |
LAND_STEPFWD |
IF ( land_frc(i,j,bi,bj).GT.0. ) THEN |
|
./pkg/land/land_stepfwd.F |
180 |
LAND_STEPFWD |
mPmE = land_Pr_m_Ev(i,j,bi,bj) |
|
./pkg/land/land_stepfwd.F |
181 |
LAND_STEPFWD |
enWfx = land_EnWFlux(i,j,bi,bj) |
|
./pkg/land/land_stepfwd.F |
182 |
LAND_STEPFWD |
enGr1 = land_enthalp(i,j,1,bi,bj)*land_dzF(1) |
|
./pkg/land/land_stepfwd.F |
187 |
LAND_STEPFWD |
& mPmE,enWfx,enGr1/land_deltaT,land_hSnow(i,j,bi,bj) |
|
./pkg/land/land_stepfwd.F |
190 |
LAND_STEPFWD |
land_snowAge(i,j,bi,bj) = |
|
./pkg/land/land_stepfwd.F |
191 |
LAND_STEPFWD |
& ( land_deltaT + land_snowAge(i,j,bi,bj)*ageFac ) |
|
./pkg/land/land_stepfwd.F |
203 |
LAND_STEPFWD |
land_snowAge(i,j,bi,bj) = land_snowAge(i,j,bi,bj) |
|
./pkg/land/land_stepfwd.F |
209 |
LAND_STEPFWD |
& land_hMaxSnow - land_hSnow(i,j,bi,bj) ) |
|
./pkg/land/land_stepfwd.F |
211 |
LAND_STEPFWD |
land_hSnow(i,j,bi,bj) = land_hSnow(i,j,bi,bj) + dhSnow |
|
./pkg/land/land_stepfwd.F |
213 |
LAND_STEPFWD |
land_runOff(i,j,bi,bj) = mIceDt |
|
./pkg/land/land_stepfwd.F |
214 |
LAND_STEPFWD |
land_enRnOf(i,j,bi,bj) = -mIceDt*land_Lfreez |
|
./pkg/land/land_stepfwd.F |
218 |
LAND_STEPFWD |
& 3,snowPrec,mPmE,hNewSnow,land_hSnow(i,j,bi,bj) |
|
./pkg/land/land_stepfwd.F |
225 |
LAND_STEPFWD |
mSnow = land_hSnow(i,j,bi,bj)*land_rhoSnow |
|
./pkg/land/land_stepfwd.F |
229 |
LAND_STEPFWD |
land_hSnow(i,j,bi,bj) = 0. _d 0 |
|
./pkg/land/land_stepfwd.F |
233 |
LAND_STEPFWD |
land_hSnow(i,j,bi,bj) = land_hSnow(i,j,bi,bj) |
|
./pkg/land/land_stepfwd.F |
241 |
LAND_STEPFWD |
& 4,dMsn,mPmE,land_hSnow(i,j,bi,bj),flxEngU(i,j) |
|
./pkg/land/land_stepfwd.F |
246 |
LAND_STEPFWD |
IF ( land_hSnow(i,j,bi,bj).LE. 0. _d 0 ) |
|
./pkg/land/land_stepfwd.F |
247 |
LAND_STEPFWD |
& land_snowAge(i,j,bi,bj) = 0. _d 0 |
|
./pkg/land/land_stepfwd.F |
260 |
LAND_STEPFWD |
flxkup(i,j) = land_Pr_m_Ev(i,j,bi,bj)/land_rhoLiqW |
|
./pkg/land/land_stepfwd.F |
283 |
LAND_STEPFWD |
IF ( land_frc(i,j,bi,bj).GT.0. ) THEN |
|
./pkg/land/land_stepfwd.F |
292 |
LAND_STEPFWD |
IF ( land_groundT(i,j,k,bi,bj).LT.0. _d 0 ) THEN |
|
./pkg/land/land_stepfwd.F |
296 |
LAND_STEPFWD |
land_groundW(i,j,k,bi,bj) = land_groundW(i,j,k,bi,bj) |
|
./pkg/land/land_stepfwd.F |
299 |
LAND_STEPFWD |
& land_enthalp(i,j,k,bi,bj) = land_enthalp(i,j,k,bi,bj) |
|
./pkg/land/land_stepfwd.F |
303 |
LAND_STEPFWD |
land_runOff(i,j,bi,bj) = land_runOff(i,j,bi,bj) |
|
./pkg/land/land_stepfwd.F |
305 |
LAND_STEPFWD |
land_enRnOf(i,j,bi,bj) = land_enRnOf(i,j,bi,bj) |
|
./pkg/land/land_stepfwd.F |
317 |
LAND_STEPFWD |
& land_groundT(i,j,kp1,bi,bj).LT.0. _d 0 ) THEN |
|
./pkg/land/land_stepfwd.F |
324 |
LAND_STEPFWD |
& ( land_groundW(i,j,k,bi,bj) |
|
./pkg/land/land_stepfwd.F |
325 |
LAND_STEPFWD |
& -land_groundW(i,j,kp1,bi,bj) ) |
|
./pkg/land/land_stepfwd.F |
330 |
LAND_STEPFWD |
& *land_groundT(i,j,k,bi,bj) |
|
./pkg/land/land_stepfwd.F |
333 |
LAND_STEPFWD |
& *land_groundT(i,j,kp1,bi,bj) |
|
./pkg/land/land_stepfwd.F |
338 |
LAND_STEPFWD |
groundWnp1 = land_groundW(i,j,k,bi,bj) |
|
./pkg/land/land_stepfwd.F |
343 |
LAND_STEPFWD |
& ,5,land_groundW(i,j,k,bi,bj)-1., |
|
./pkg/land/land_stepfwd.F |
348 |
LAND_STEPFWD |
land_groundW(i,j,k,bi,bj) = MIN(1. _d 0, groundWnp1) |
|
./pkg/land/land_stepfwd.F |
353 |
LAND_STEPFWD |
land_runOff(i,j,bi,bj) = land_runOff(i,j,bi,bj) |
|
./pkg/land/land_stepfwd.F |
361 |
LAND_STEPFWD |
& *land_groundT(i,j,k,bi,bj) |
|
./pkg/land/land_stepfwd.F |
363 |
LAND_STEPFWD |
land_enthalp(i,j,k,bi,bj) = land_enthalp(i,j,k,bi,bj) |
|
./pkg/land/land_stepfwd.F |
367 |
LAND_STEPFWD |
land_enRnOf(i,j,bi,bj) = land_enRnOf(i,j,bi,bj) |
|
./pkg/land/land_stepfwd.F |
375 |
LAND_STEPFWD |
& 7, land_groundT(i,j,k,bi,bj), flxEngU(i,j), flxkup(i,j) |
|
./pkg/land/land_stepfwd.F |
381 |
LAND_STEPFWD |
& 8, land_runOff(i,j,bi,bj),land_enRnOf(i,j,bi,bj) |
|
./pkg/land/land_stepfwd.F |
38 |
LAND_STEPFWD |
INTEGER bi, bj, myIter, myThid |
|
./pkg/land/land_stepfwd.F |
402 |
LAND_STEPFWD |
& *land_groundW(i,j,k,bi,bj) |
|
./pkg/land/land_stepfwd.F |
406 |
LAND_STEPFWD |
temp_bf = (land_enthalp(i,j,k,bi,bj)+land_Lfreez*mWater) |
|
./pkg/land/land_stepfwd.F |
409 |
LAND_STEPFWD |
temp_af = land_enthalp(i,j,k,bi,bj) / grd_HeatCp |
|
./pkg/land/land_stepfwd.F |
411 |
LAND_STEPFWD |
land_enthalp(i,j,k,bi,bj) = |
|
./pkg/land/land_stepfwd.F |
412 |
LAND_STEPFWD |
& grd_HeatCp*land_groundT(i,j,k,bi,bj) |
|
./pkg/land/land_stepfwd.F |
414 |
LAND_STEPFWD |
land_groundT(i,j,k,bi,bj) = |
|
./pkg/land/land_stepfwd.F |
424 |
LAND_STEPFWD |
IF ( land_hSnow(i,j,bi,bj).GT.0. _d 0 ) THEN |
|
./pkg/land/land_stepfwd.F |
425 |
LAND_STEPFWD |
land_skinT(i,j,bi,bj) = MIN(land_skinT(i,j,bi,bj), 0. _d 0) |
|
./pkg/land/land_stepfwd.F |
427 |
LAND_STEPFWD |
land_skinT(i,j,bi,bj) = land_groundT(i,j,1,bi,bj) |
|
./pkg/land/land_stepfwd.F |
434 |
LAND_STEPFWD |
land_skinT(i,j,bi,bj) = land_groundT(i,j,1,bi,bj) |
|
./pkg/land/land_stepfwd.F |
99 |
LAND_STEPFWD |
flxkup(i,j) = land_HeatFlx(i,j,bi,bj) |
|
./model/src/calc_grad_phi_fv.F |
103 |
CALC_GRAD_PHI_FV |
dPhiHydX(i,j) = dPhiHydX(i,j)*_maskW(i,j,k,bi,bj) |
|
./model/src/calc_grad_phi_fv.F |
104 |
CALC_GRAD_PHI_FV |
dPhiHydY(i,j) = dPhiHydY(i,j)*_maskS(i,j,k,bi,bj) |
|
./model/src/calc_grad_phi_fv.F |
10 |
CALC_GRAD_PHI_FV |
I k, bi, bj, iMin,iMax, jMin,jMax, |
|
./model/src/calc_grad_phi_fv.F |
47 |
CALC_GRAD_PHI_FV |
INTEGER k, bi,bj, iMin,iMax, jMin,jMax |
|
./model/src/calc_grad_phi_fv.F |
79 |
CALC_GRAD_PHI_FV |
dPhiHydX(i,j) = ( phi0surf(i,j,bi,bj) - phi0surf(i-1,j,bi,bj) ) |
|
./model/src/calc_grad_phi_fv.F |
83 |
CALC_GRAD_PHI_FV |
dPhiHydX(i,j) = _recip_dxC(i,j,bi,bj)*dPhiHydX(i,j) |
|
./model/src/calc_grad_phi_fv.F |
91 |
CALC_GRAD_PHI_FV |
dPhiHydY(i,j) = ( phi0surf(i,j,bi,bj) - phi0surf(i,j-1,bi,bj) ) |
|
./model/src/calc_grad_phi_fv.F |
95 |
CALC_GRAD_PHI_FV |
dPhiHydY(i,j) = _recip_dyC(i,j,bi,bj)*dPhiHydY(i,j) |
|
./pkg/layers/layers_calc.F |
169 |
LAYERS_CALC |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/layers/layers_calc.F |
175 |
LAYERS_CALC |
prho(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_calc.F |
182 |
LAYERS_CALC |
& theta(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/layers/layers_calc.F |
183 |
LAYERS_CALC |
& salt(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/layers/layers_calc.F |
184 |
LAYERS_CALC |
& prho(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/layers/layers_calc.F |
185 |
LAYERS_CALC |
& k, bi, bj, myThid ) |
|
./pkg/layers/layers_calc.F |
189 |
LAYERS_CALC |
CALL FIND_ALPHA( bi, bj, 1-OLx, sNx+OLx, 1-OLy, sNy+OLy, |
|
./pkg/layers/layers_calc.F |
191 |
LAYERS_CALC |
& layers_alpha(1-OLx,1-OLy,k,bi,bj), myThid ) |
|
./pkg/layers/layers_calc.F |
192 |
LAYERS_CALC |
CALL FIND_BETA( bi, bj, 1-OLx, sNx+OLx, 1-OLy, sNy+OLy, |
|
./pkg/layers/layers_calc.F |
194 |
LAYERS_CALC |
& layers_beta(1-OLx,1-OLy,k,bi,bj), myThid ) |
|
./pkg/layers/layers_calc.F |
198 |
LAYERS_CALC |
prho(i,j,k,bi,bj) = prho(i,j,k,bi,bj) + rhoShift |
|
./pkg/layers/layers_calc.F |
402 |
LAYERS_CALC |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/layers/layers_calc.F |
407 |
LAYERS_CALC |
& deltaTClock, bi, bj, myThid ) |
|
./pkg/layers/layers_calc.F |
410 |
LAYERS_CALC |
& deltaTClock, bi, bj, myThid ) |
|
./pkg/layers/layers_calc.F |
415 |
LAYERS_CALC |
& deltaTClock, bi, bj, myThid ) |
|
./pkg/layers/layers_calc.F |
418 |
LAYERS_CALC |
& deltaTClock, bi, bj, myThid ) |
|
./pkg/layers/layers_calc.F |
425 |
LAYERS_CALC |
& deltaTClock, bi, bj, myThid ) |
|
./pkg/layers/layers_calc.F |
428 |
LAYERS_CALC |
layers_TimeAve(bi,bj)=layers_TimeAve(bi,bj)+deltaTClock |
|
./pkg/layers/layers_calc.F |
440 |
LAYERS_CALC |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/layers/layers_calc.F |
445 |
LAYERS_CALC |
layers_surfflux(i,j,1,iTracer,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_calc.F |
451 |
LAYERS_CALC |
layers_dfx (i,j,k,iTracer,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_calc.F |
452 |
LAYERS_CALC |
layers_dfy (i,j,k,iTracer,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_calc.F |
453 |
LAYERS_CALC |
layers_dfr (i,j,k,iTracer,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_calc.F |
454 |
LAYERS_CALC |
layers_afx (i,j,k,iTracer,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_calc.F |
455 |
LAYERS_CALC |
layers_afy (i,j,k,iTracer,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_calc.F |
456 |
LAYERS_CALC |
layers_afr (i,j,k,iTracer,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_calc.F |
457 |
LAYERS_CALC |
layers_tottend (i,j,k,iTracer,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_calc.F |
459 |
LAYERS_CALC |
layers_sw (i,j,k,1 ,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_calc.F |
87 |
LAYERS_CALC |
INTEGER bi, bj, iLa |
|
./pkg/layers/layers_fluxcalc.F |
107 |
LAYERS_FLUXCALC |
INTEGER bi, bj |
|
./pkg/layers/layers_fluxcalc.F |
127 |
LAYERS_FLUXCALC |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/layers/layers_fluxcalc.F |
146 |
LAYERS_FLUXCALC |
UH (i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
148 |
LAYERS_FLUXCALC |
Hw(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
149 |
LAYERS_FLUXCALC |
PIw(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
150 |
LAYERS_FLUXCALC |
Uw(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
154 |
LAYERS_FLUXCALC |
VH (i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
156 |
LAYERS_FLUXCALC |
Hs(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
157 |
LAYERS_FLUXCALC |
PIs(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
158 |
LAYERS_FLUXCALC |
Vs(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
179 |
LAYERS_FLUXCALC |
IF (maskW(i,j,kp1,bi,bj).EQ.zeroRS) kp1=k |
|
./pkg/layers/layers_fluxcalc.F |
181 |
LAYERS_FLUXCALC |
& 0.5 _d 0 * (tracer(i-1,j,k,bi,bj)+tracer(i,j,k,bi,bj)) + |
|
./pkg/layers/layers_fluxcalc.F |
183 |
LAYERS_FLUXCALC |
& 0.5 _d 0 * (tracer(i-1,j,kp1,bi,bj)+tracer(i,j,kp1,bi,bj)) |
|
./pkg/layers/layers_fluxcalc.F |
216 |
LAYERS_FLUXCALC |
dzfac = dZZf(kk) * hFacW(i,j,kci,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
219 |
LAYERS_FLUXCALC |
UH(i,j,kloc,bi,bj) = |
|
./pkg/layers/layers_fluxcalc.F |
220 |
LAYERS_FLUXCALC |
& UH(i,j,kloc,bi,bj) + |
|
./pkg/layers/layers_fluxcalc.F |
221 |
LAYERS_FLUXCALC |
& dzfac * uVel(i,j,kci,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
227 |
LAYERS_FLUXCALC |
& ( rA(i-1,j,bi,bj)*Kwx(i-1,j,kcip1,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
228 |
LAYERS_FLUXCALC |
& +rA( i ,j,bi,bj)*Kwx( i ,j,kcip1,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
229 |
LAYERS_FLUXCALC |
& ) * maskW(i,j,kcip1,bi,bj) * maskp1 |
|
./pkg/layers/layers_fluxcalc.F |
230 |
LAYERS_FLUXCALC |
& - ( rA(i-1,j,bi,bj)*Kwx(i-1,j, kci ,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
231 |
LAYERS_FLUXCALC |
& +rA( i ,j,bi,bj)*Kwx( i ,j, kci ,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
232 |
LAYERS_FLUXCALC |
& ) * maskW(i,j, kci ,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
233 |
LAYERS_FLUXCALC |
& ) * recip_rAw(i,j,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
236 |
LAYERS_FLUXCALC |
delPsi = GM_PsiX(i,j,kcip1,bi,bj)*maskp1 |
|
./pkg/layers/layers_fluxcalc.F |
237 |
LAYERS_FLUXCALC |
& - GM_PsiX(i,j, kci, bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
240 |
LAYERS_FLUXCALC |
UH(i,j,kloc,bi,bj) = UH(i,j,kloc,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
241 |
LAYERS_FLUXCALC |
& + delPsi*recip_drF(kci)*_recip_hFacW(i,j,kci,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
247 |
LAYERS_FLUXCALC |
Hw(i,j,kloc,bi,bj) = Hw(i,j,kloc,bi,bj) + dzfac |
|
./pkg/layers/layers_fluxcalc.F |
259 |
LAYERS_FLUXCALC |
IF (maskS(i,j,kp1,bi,bj).EQ.zeroRS) kp1=k |
|
./pkg/layers/layers_fluxcalc.F |
261 |
LAYERS_FLUXCALC |
& 0.5 _d 0 * (tracer(i,j-1,k,bi,bj)+tracer(i,j,k,bi,bj)) + |
|
./pkg/layers/layers_fluxcalc.F |
263 |
LAYERS_FLUXCALC |
& 0.5 _d 0 * (tracer(i,j-1,kp1,bi,bj)+tracer(i,j,kp1,bi,bj)) |
|
./pkg/layers/layers_fluxcalc.F |
296 |
LAYERS_FLUXCALC |
dzfac = dZZf(kk) * hFacS(i,j,kci,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
309 |
LAYERS_FLUXCALC |
VH(i,j,kloc,bi,bj) = |
|
./pkg/layers/layers_fluxcalc.F |
310 |
LAYERS_FLUXCALC |
& VH(i,j,kloc,bi,bj) + dzfac * vVel(i,j,kci,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
316 |
LAYERS_FLUXCALC |
& ( rA(i,j-1,bi,bj)*Kwy(i,j-1,kcip1,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
317 |
LAYERS_FLUXCALC |
& +rA(i, j ,bi,bj)*Kwy(i, j ,kcip1,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
318 |
LAYERS_FLUXCALC |
& ) * maskS(i,j,kcip1,bi,bj) * maskp1 |
|
./pkg/layers/layers_fluxcalc.F |
319 |
LAYERS_FLUXCALC |
& - ( rA(i,j-1,bi,bj)*Kwy(i,j-1, kci ,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
320 |
LAYERS_FLUXCALC |
& +rA(i, j ,bi,bj)*Kwy(i, j , kci ,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
321 |
LAYERS_FLUXCALC |
& ) * maskS(i,j, kci ,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
322 |
LAYERS_FLUXCALC |
& ) * recip_rAs(i,j,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
325 |
LAYERS_FLUXCALC |
delPsi = GM_PsiY(i,j,kcip1,bi,bj)*maskp1 |
|
./pkg/layers/layers_fluxcalc.F |
326 |
LAYERS_FLUXCALC |
& - GM_PsiY(i,j, kci, bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
329 |
LAYERS_FLUXCALC |
VH(i,j,kloc,bi,bj) = VH(i,j,kloc,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
330 |
LAYERS_FLUXCALC |
& + delPsi*recip_drF(kci)*_recip_hFacS(i,j,kci,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
336 |
LAYERS_FLUXCALC |
Hs(i,j,kloc,bi,bj) = Hs(i,j,kloc,bi,bj) + dzfac |
|
./pkg/layers/layers_fluxcalc.F |
351 |
LAYERS_FLUXCALC |
IF (Hw(i,j,kg,bi,bj) .GT. 0.) THEN |
|
./pkg/layers/layers_fluxcalc.F |
352 |
LAYERS_FLUXCALC |
PIw(i,j,kg,bi,bj) = 1. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
353 |
LAYERS_FLUXCALC |
Uw(i,j,kg,bi,bj) = |
|
./pkg/layers/layers_fluxcalc.F |
354 |
LAYERS_FLUXCALC |
& UH(i,j,kg,bi,bj) / Hw(i,j,kg,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
358 |
LAYERS_FLUXCALC |
IF (Hs(i,j,kg,bi,bj) .GT. 0.) THEN |
|
./pkg/layers/layers_fluxcalc.F |
359 |
LAYERS_FLUXCALC |
PIs(i,j,kg,bi,bj) = 1. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
360 |
LAYERS_FLUXCALC |
Vs(i,j,kg,bi,bj) = |
|
./pkg/layers/layers_fluxcalc.F |
361 |
LAYERS_FLUXCALC |
& VH(i,j,kg,bi,bj) / Hs(i,j,kg,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
453 |
LAYERS_DIAPYCNAL |
INTEGER bi, bj |
|
./pkg/layers/layers_fluxcalc.F |
476 |
LAYERS_DIAPYCNAL |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/layers/layers_fluxcalc.F |
495 |
LAYERS_DIAPYCNAL |
TtendSurf (i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
496 |
LAYERS_DIAPYCNAL |
TtendDiffh(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
497 |
LAYERS_DIAPYCNAL |
TtendDiffr(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
498 |
LAYERS_DIAPYCNAL |
TtendAdvh(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
499 |
LAYERS_DIAPYCNAL |
TtendAdvr(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
500 |
LAYERS_DIAPYCNAL |
Ttendtot(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
501 |
LAYERS_DIAPYCNAL |
StendSurf (i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
502 |
LAYERS_DIAPYCNAL |
StendDiffh(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
503 |
LAYERS_DIAPYCNAL |
StendDiffr(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
504 |
LAYERS_DIAPYCNAL |
StendAdvh(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
505 |
LAYERS_DIAPYCNAL |
StendAdvr(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
506 |
LAYERS_DIAPYCNAL |
Stendtot(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
507 |
LAYERS_DIAPYCNAL |
Hcw(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
515 |
LAYERS_DIAPYCNAL |
Hc(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
516 |
LAYERS_DIAPYCNAL |
PIc(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
529 |
LAYERS_DIAPYCNAL |
IF (maskC(i,j,kp1,bi,bj).EQ.zeroRS) kp1=k |
|
./pkg/layers/layers_fluxcalc.F |
530 |
LAYERS_DIAPYCNAL |
TatC(i,j) = MapFact(kk) * tracer(i,j,k,bi,bj) + |
|
./pkg/layers/layers_fluxcalc.F |
531 |
LAYERS_DIAPYCNAL |
& (1. _d 0 -MapFact(kk)) * tracer(i,j,kp1,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
540 |
LAYERS_DIAPYCNAL |
TatC(i,j) = tracer(i,j,k,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
613 |
LAYERS_DIAPYCNAL |
dzfac = dZZf(kk) * hFacC(i,j,kci,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
615 |
LAYERS_DIAPYCNAL |
dzfac = dRf(kci) * hFacC(i,j,kci,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
620 |
LAYERS_DIAPYCNAL |
Hcw(i,j,kloc,bi,bj) = Hcw(i,j,kloc,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
623 |
LAYERS_DIAPYCNAL |
Hc(i,j,kgc(i,j),bi,bj) = Hc(i,j,kgc(i,j),bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
630 |
LAYERS_DIAPYCNAL |
Tfac = layers_alpha(i,j,kci,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
631 |
LAYERS_DIAPYCNAL |
Sfac = layers_beta(i,j,kci,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
635 |
LAYERS_DIAPYCNAL |
TtendSurf(i,j,kloc,bi,bj) = |
|
./pkg/layers/layers_fluxcalc.F |
636 |
LAYERS_DIAPYCNAL |
& TtendSurf(i,j,kloc,bi,bj) + |
|
./pkg/layers/layers_fluxcalc.F |
637 |
LAYERS_DIAPYCNAL |
& Tfac * dzfac * layers_surfflux(i,j,1,1,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
638 |
LAYERS_DIAPYCNAL |
StendSurf(i,j,kloc,bi,bj) = |
|
./pkg/layers/layers_fluxcalc.F |
639 |
LAYERS_DIAPYCNAL |
& StendSurf(i,j,kloc,bi,bj) + |
|
./pkg/layers/layers_fluxcalc.F |
640 |
LAYERS_DIAPYCNAL |
& Sfac * dzfac * layers_surfflux(i,j,1,2,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
644 |
LAYERS_DIAPYCNAL |
TtendSurf(i,j,kloc,bi,bj) = |
|
./pkg/layers/layers_fluxcalc.F |
645 |
LAYERS_DIAPYCNAL |
& TtendSurf(i,j,kloc,bi,bj) + |
|
./pkg/layers/layers_fluxcalc.F |
646 |
LAYERS_DIAPYCNAL |
& Tfac * dzfac * layers_sw(i,j,kci,1,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
650 |
LAYERS_DIAPYCNAL |
TtendDiffh(i,j,kloc,bi,bj) = |
|
./pkg/layers/layers_fluxcalc.F |
651 |
LAYERS_DIAPYCNAL |
& TtendDiffh(i,j,kloc,bi,bj) + dzfac * Tfac * |
|
./pkg/layers/layers_fluxcalc.F |
652 |
LAYERS_DIAPYCNAL |
& (layers_dfx(i,j,kci,1,bi,bj)+ |
|
./pkg/layers/layers_fluxcalc.F |
653 |
LAYERS_DIAPYCNAL |
& layers_dfy(i,j,kci,1,bi,bj)) |
|
./pkg/layers/layers_fluxcalc.F |
654 |
LAYERS_DIAPYCNAL |
TtendDiffr(i,j,kloc,bi,bj) = |
|
./pkg/layers/layers_fluxcalc.F |
655 |
LAYERS_DIAPYCNAL |
& TtendDiffr(i,j,kloc,bi,bj) + |
|
./pkg/layers/layers_fluxcalc.F |
656 |
LAYERS_DIAPYCNAL |
& dzfac * Tfac * layers_dfr(i,j,kci,1,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
657 |
LAYERS_DIAPYCNAL |
StendDiffh(i,j,kloc,bi,bj) = |
|
./pkg/layers/layers_fluxcalc.F |
658 |
LAYERS_DIAPYCNAL |
& StendDiffh(i,j,kloc,bi,bj) + dzfac * Sfac * |
|
./pkg/layers/layers_fluxcalc.F |
659 |
LAYERS_DIAPYCNAL |
& (layers_dfx(i,j,kci,2,bi,bj)+ |
|
./pkg/layers/layers_fluxcalc.F |
660 |
LAYERS_DIAPYCNAL |
& layers_dfy(i,j,kci,2,bi,bj)) |
|
./pkg/layers/layers_fluxcalc.F |
661 |
LAYERS_DIAPYCNAL |
StendDiffr(i,j,kloc,bi,bj) = |
|
./pkg/layers/layers_fluxcalc.F |
662 |
LAYERS_DIAPYCNAL |
& StendDiffr(i,j,kloc,bi,bj) + |
|
./pkg/layers/layers_fluxcalc.F |
663 |
LAYERS_DIAPYCNAL |
& dzfac * Sfac * layers_dfr(i,j,kci,2,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
665 |
LAYERS_DIAPYCNAL |
TtendAdvh(i,j,kloc,bi,bj) = |
|
./pkg/layers/layers_fluxcalc.F |
666 |
LAYERS_DIAPYCNAL |
& TtendAdvh(i,j,kloc,bi,bj) + dzfac * Tfac * |
|
./pkg/layers/layers_fluxcalc.F |
667 |
LAYERS_DIAPYCNAL |
& (layers_afx(i,j,kci,1,bi,bj)+ |
|
./pkg/layers/layers_fluxcalc.F |
668 |
LAYERS_DIAPYCNAL |
& layers_afy(i,j,kci,1,bi,bj)) |
|
./pkg/layers/layers_fluxcalc.F |
669 |
LAYERS_DIAPYCNAL |
TtendAdvr(i,j,kloc,bi,bj) = |
|
./pkg/layers/layers_fluxcalc.F |
670 |
LAYERS_DIAPYCNAL |
& TtendAdvr(i,j,kloc,bi,bj) + |
|
./pkg/layers/layers_fluxcalc.F |
671 |
LAYERS_DIAPYCNAL |
& dzfac * Tfac * layers_afr(i,j,kci,1,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
672 |
LAYERS_DIAPYCNAL |
StendAdvh(i,j,kloc,bi,bj) = |
|
./pkg/layers/layers_fluxcalc.F |
673 |
LAYERS_DIAPYCNAL |
& StendAdvh(i,j,kloc,bi,bj) + dzfac * Sfac * |
|
./pkg/layers/layers_fluxcalc.F |
674 |
LAYERS_DIAPYCNAL |
& (layers_afx(i,j,kci,2,bi,bj)+ |
|
./pkg/layers/layers_fluxcalc.F |
675 |
LAYERS_DIAPYCNAL |
& layers_afy(i,j,kci,2,bi,bj)) |
|
./pkg/layers/layers_fluxcalc.F |
676 |
LAYERS_DIAPYCNAL |
StendAdvr(i,j,kloc,bi,bj) = |
|
./pkg/layers/layers_fluxcalc.F |
677 |
LAYERS_DIAPYCNAL |
& StendAdvr(i,j,kloc,bi,bj) + |
|
./pkg/layers/layers_fluxcalc.F |
678 |
LAYERS_DIAPYCNAL |
& dzfac * Sfac * layers_afr(i,j,kci,2,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
680 |
LAYERS_DIAPYCNAL |
Ttendtot(i,j,kloc,bi,bj) = |
|
./pkg/layers/layers_fluxcalc.F |
681 |
LAYERS_DIAPYCNAL |
& Ttendtot(i,j,kloc,bi,bj) + |
|
./pkg/layers/layers_fluxcalc.F |
682 |
LAYERS_DIAPYCNAL |
& dzfac * Tfac * layers_tottend(i,j,kci,1,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
683 |
LAYERS_DIAPYCNAL |
Stendtot(i,j,kloc,bi,bj) = |
|
./pkg/layers/layers_fluxcalc.F |
684 |
LAYERS_DIAPYCNAL |
& Stendtot(i,j,kloc,bi,bj) + |
|
./pkg/layers/layers_fluxcalc.F |
685 |
LAYERS_DIAPYCNAL |
& dzfac * Sfac * layers_tottend(i,j,kci,2,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
695 |
LAYERS_DIAPYCNAL |
IF (Hc(i,j,kg,bi,bj) .GT. 0.) THEN |
|
./pkg/layers/layers_fluxcalc.F |
696 |
LAYERS_DIAPYCNAL |
PIc(i,j,kg,bi,bj) = 1. _d 0 |
|
./pkg/layers/layers_init_varia.F |
28 |
LAYERS_INIT_VARIA |
INTEGER bi, bj |
|
./pkg/layers/layers_init_varia.F |
34 |
LAYERS_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/layers/layers_init_varia.F |
42 |
LAYERS_INIT_VARIA |
layers_Hc (i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
43 |
LAYERS_INIT_VARIA |
layers_PIc(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
50 |
LAYERS_INIT_VARIA |
layers_Hc (i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
51 |
LAYERS_INIT_VARIA |
layers_TtendSurf (i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
52 |
LAYERS_INIT_VARIA |
layers_TtendDiffh(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
53 |
LAYERS_INIT_VARIA |
layers_TtendDiffr(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
54 |
LAYERS_INIT_VARIA |
layers_TtendAdvh (i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
55 |
LAYERS_INIT_VARIA |
layers_TtendAdvr (i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
56 |
LAYERS_INIT_VARIA |
layers_StendSurf (i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
57 |
LAYERS_INIT_VARIA |
layers_StendDiffh(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
58 |
LAYERS_INIT_VARIA |
layers_StendDiffr(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
59 |
LAYERS_INIT_VARIA |
layers_StendAdvh(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
60 |
LAYERS_INIT_VARIA |
layers_StendAdvr(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
68 |
LAYERS_INIT_VARIA |
layers_alpha(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
69 |
LAYERS_INIT_VARIA |
layers_beta(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
78 |
LAYERS_INIT_VARIA |
layers_surfflux(i,j,1,iTracer,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
84 |
LAYERS_INIT_VARIA |
layers_tottend (i,j,kg,iTracer,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
85 |
LAYERS_INIT_VARIA |
layers_dfx (i,j,kg,iTracer,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
86 |
LAYERS_INIT_VARIA |
layers_dfy (i,j,kg,iTracer,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
87 |
LAYERS_INIT_VARIA |
layers_dfr (i,j,kg,iTracer,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
88 |
LAYERS_INIT_VARIA |
layers_afx (i,j,kg,iTracer,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
89 |
LAYERS_INIT_VARIA |
layers_afy (i,j,kg,iTracer,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
90 |
LAYERS_INIT_VARIA |
layers_afr (i,j,kg,iTracer,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
92 |
LAYERS_INIT_VARIA |
layers_sw (i,j,kg,1 ,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_output.F |
104 |
LAYERS_OUTPUT |
& Nlayers, bi, bj, myThid ) |
|
./pkg/layers/layers_output.F |
107 |
LAYERS_OUTPUT |
& Nlayers, bi, bj, myThid ) |
|
./pkg/layers/layers_output.F |
114 |
LAYERS_OUTPUT |
& Nr, bi, bj, myThid ) |
|
./pkg/layers/layers_output.F |
156 |
LAYERS_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/layers/layers_output.F |
158 |
LAYERS_OUTPUT |
layers_TimeAve(bi,bj) = 0. |
|
./pkg/layers/layers_output.F |
160 |
LAYERS_OUTPUT |
CALL TIMEAVE_RESET(layers_UH_T, Nlayers,bi,bj,myThid) |
|
./pkg/layers/layers_output.F |
162 |
LAYERS_OUTPUT |
CALL TIMEAVE_RESET(layers_Hw_T, Nlayers,bi,bj,myThid) |
|
./pkg/layers/layers_output.F |
167 |
LAYERS_OUTPUT |
CALL TIMEAVE_RESET(layers_VH_T, Nlayers,bi,bj,myThid) |
|
./pkg/layers/layers_output.F |
169 |
LAYERS_OUTPUT |
CALL TIMEAVE_RESET(layers_Hs_T, Nlayers,bi,bj,myThid) |
|
./pkg/layers/layers_output.F |
175 |
LAYERS_OUTPUT |
& CALL TIMEAVE_RESET(prho_tave,Nr,bi,bj,myThid) |
|
./pkg/layers/layers_output.F |
49 |
LAYERS_OUTPUT |
INTEGER bi, bj |
|
./pkg/layers/layers_output.F |
61 |
LAYERS_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/layers/layers_output.F |
63 |
LAYERS_OUTPUT |
layers_TimeAve(bi,bj) = 0. |
|
./pkg/layers/layers_output.F |
65 |
LAYERS_OUTPUT |
CALL TIMEAVE_RESET(layers_UH_T, Nlayers,bi,bj,myThid) |
|
./pkg/layers/layers_output.F |
67 |
LAYERS_OUTPUT |
CALL TIMEAVE_RESET(layers_Hw_T, Nlayers,bi,bj,myThid) |
|
./pkg/layers/layers_output.F |
72 |
LAYERS_OUTPUT |
CALL TIMEAVE_RESET(layers_VH_T, Nlayers,bi,bj,myThid) |
|
./pkg/layers/layers_output.F |
74 |
LAYERS_OUTPUT |
CALL TIMEAVE_RESET(layers_Hs_T, Nlayers,bi,bj,myThid) |
|
./pkg/layers/layers_output.F |
79 |
LAYERS_OUTPUT |
CALL TIMEAVE_RESET(prho_tave,Nr,bi,bj,myThid) |
|
./pkg/layers/layers_output.F |
90 |
LAYERS_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/layers/layers_output.F |
95 |
LAYERS_OUTPUT |
& Nlayers, bi, bj, myThid ) |
|
./pkg/layers/layers_output.F |
98 |
LAYERS_OUTPUT |
& Nlayers, bi, bj, myThid ) |
|
./pkg/layers/layers_save.F |
150 |
LAYERS_FILL_FIELD |
INTEGER iRun, jRun, k, bi, bj |
|
./pkg/layers/layers_save.F |
218 |
LAYERS_FILL_FIELD |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./pkg/layers/layers_save.F |
223 |
LAYERS_FILL_FIELD |
U layers_saved_flux(1-OLx,1-OLy,kd,trIdentity,bi,bj), |
|
./pkg/layers/layers_save.F |
226 |
LAYERS_FILL_FIELD |
I iRun,jRun,k,bi,bj, |
|
./pkg/layers/layers_save.F |
233 |
LAYERS_FILL_FIELD |
bj = MIN(bjArg,sizTy) |
|
./pkg/layers/layers_save.F |
240 |
LAYERS_FILL_FIELD |
I iRun,jRun,k,bi,bj, |
|
./pkg/layers/layers_save.F |
289 |
LAYERS_CUMULATE |
I iRun,jRun,k,bi,bj, |
|
./pkg/layers/layers_save.F |
318 |
LAYERS_CUMULATE |
INTEGER iRun, jRun, k, bi, bj |
|
./pkg/layers/layers_save.F |
331 |
LAYERS_CUMULATE |
cumFld(i,j) = cumFld(i,j) + inpFld(i,j,k,bi,bj) |
|
./model/src/calc_grad_phi_hyd.F |
102 |
CALC_GRAD_PHI_HYD |
& + phi0surf(i,j,bi,bj) |
|
./model/src/calc_grad_phi_hyd.F |
103 |
CALC_GRAD_PHI_HYD |
ELSEIF (Ro_surf(i,j,bi,bj).NE.0. _d 0) THEN |
|
./model/src/calc_grad_phi_hyd.F |
104 |
CALC_GRAD_PHI_HYD |
factPI = (rC(k)/Ro_surf(i,j,bi,bj))**atm_kappa |
|
./model/src/calc_grad_phi_hyd.F |
106 |
CALC_GRAD_PHI_HYD |
& *(pStarFacK(i,j,bi,bj) - factPI) |
|
./model/src/calc_grad_phi_hyd.F |
108 |
CALC_GRAD_PHI_HYD |
& + phi0surf(i,j,bi,bj) |
|
./model/src/calc_grad_phi_hyd.F |
115 |
CALC_GRAD_PHI_HYD |
IF (Ro_surf(i,j,bi,bj).EQ.rC(k)) THEN |
|
./model/src/calc_grad_phi_hyd.F |
11 |
CALC_GRAD_PHI_HYD |
I k, bi, bj, iMin,iMax, jMin,jMax, |
|
./model/src/calc_grad_phi_hyd.F |
123 |
CALC_GRAD_PHI_HYD |
& *(etaH(i,j,bi,bj)+Ro_surf(i,j,bi,bj)-rC(k)) |
|
./model/src/calc_grad_phi_hyd.F |
124 |
CALC_GRAD_PHI_HYD |
& / (Ro_surf(i,j,bi,bj)-rC(k)) |
|
./model/src/calc_grad_phi_hyd.F |
125 |
CALC_GRAD_PHI_HYD |
& + phi0surf(i,j,bi,bj) |
|
./model/src/calc_grad_phi_hyd.F |
137 |
CALC_GRAD_PHI_HYD |
varLoc(i,j) = phiHydC(i,j)+phi0surf(i,j,bi,bj) |
|
./model/src/calc_grad_phi_hyd.F |
151 |
CALC_GRAD_PHI_HYD |
dPhiHydX(i,j) = _recip_dxC(i,j,bi,bj)*recip_deepFacC(k) |
|
./model/src/calc_grad_phi_hyd.F |
157 |
CALC_GRAD_PHI_HYD |
dPhiHydY(i,j) = _recip_dyC(i,j,bi,bj)*recip_deepFacC(k) |
|
./model/src/calc_grad_phi_hyd.F |
170 |
CALC_GRAD_PHI_HYD |
varLoc(i,j) = etaH(i,j,bi,bj) |
|
./model/src/calc_grad_phi_hyd.F |
171 |
CALC_GRAD_PHI_HYD |
& *(1. _d 0 + rC(k)*recip_Rcol(i,j,bi,bj)) |
|
./model/src/calc_grad_phi_hyd.F |
179 |
CALC_GRAD_PHI_HYD |
& *recip_dxC(i,j,bi,bj)*recip_deepFacC(k) |
|
./model/src/calc_grad_phi_hyd.F |
187 |
CALC_GRAD_PHI_HYD |
& *recip_dyC(i,j,bi,bj)*recip_deepFacC(k) |
|
./model/src/calc_grad_phi_hyd.F |
197 |
CALC_GRAD_PHI_HYD |
& *(rStarFacC(i,j,bi,bj)-rStarFacC(i-1,j,bi,bj)) |
|
./model/src/calc_grad_phi_hyd.F |
198 |
CALC_GRAD_PHI_HYD |
& *rC(k)*recip_dxC(i,j,bi,bj)*recip_deepFacC(k) |
|
./model/src/calc_grad_phi_hyd.F |
205 |
CALC_GRAD_PHI_HYD |
& *(rStarFacC(i,j,bi,bj)-rStarFacC(i,j-1,bi,bj)) |
|
./model/src/calc_grad_phi_hyd.F |
206 |
CALC_GRAD_PHI_HYD |
& *rC(k)*recip_dyC(i,j,bi,bj)*recip_deepFacC(k) |
|
./model/src/calc_grad_phi_hyd.F |
228 |
CALC_GRAD_PHI_HYD |
& *(rStarFacC(i,j,bi,bj)-rStarFacC(i-1,j,bi,bj)) |
|
./model/src/calc_grad_phi_hyd.F |
229 |
CALC_GRAD_PHI_HYD |
& *rC(k)*recip_dxC(i,j,bi,bj)*recip_deepFacC(k) |
|
./model/src/calc_grad_phi_hyd.F |
231 |
CALC_GRAD_PHI_HYD |
& *(pStarFacK(i,j,bi,bj)-pStarFacK(i-1,j,bi,bj)) |
|
./model/src/calc_grad_phi_hyd.F |
232 |
CALC_GRAD_PHI_HYD |
& *recip_dxC(i,j,bi,bj)*recip_deepFacC(k) |
|
./model/src/calc_grad_phi_hyd.F |
241 |
CALC_GRAD_PHI_HYD |
& *(rStarFacC(i,j,bi,bj)-rStarFacC(i,j-1,bi,bj)) |
|
./model/src/calc_grad_phi_hyd.F |
242 |
CALC_GRAD_PHI_HYD |
& *rC(k)*recip_dyC(i,j,bi,bj)*recip_deepFacC(k) |
|
./model/src/calc_grad_phi_hyd.F |
244 |
CALC_GRAD_PHI_HYD |
& *(pStarFacK(i,j,bi,bj)-pStarFacK(i,j-1,bi,bj)) |
|
./model/src/calc_grad_phi_hyd.F |
245 |
CALC_GRAD_PHI_HYD |
& *recip_dyC(i,j,bi,bj)*recip_deepFacC(k) |
|
./model/src/calc_grad_phi_hyd.F |
257 |
CALC_GRAD_PHI_HYD |
dPhiHydX(i,j) = dPhiHydX(i,j)*_maskW(i,j,k,bi,bj) |
|
./model/src/calc_grad_phi_hyd.F |
258 |
CALC_GRAD_PHI_HYD |
dPhiHydY(i,j) = dPhiHydY(i,j)*_maskS(i,j,k,bi,bj) |
|
./model/src/calc_grad_phi_hyd.F |
45 |
CALC_GRAD_PHI_HYD |
INTEGER k, bi,bj, iMin,iMax, jMin,jMax |
|
./model/src/calc_grad_phi_hyd.F |
78 |
CALC_GRAD_PHI_HYD |
varLoc(i,j) = phiHydC(i,j)*pStarFacK(i,j,bi,bj) |
|
./model/src/calc_grad_phi_hyd.F |
79 |
CALC_GRAD_PHI_HYD |
& + phi0surf(i,j,bi,bj) |
|
./model/src/calc_grad_phi_hyd.F |
85 |
CALC_GRAD_PHI_HYD |
varLoc(i,j) = phiHydC(i,j)*rStarFacC(i,j,bi,bj) |
|
./model/src/calc_grad_phi_hyd.F |
86 |
CALC_GRAD_PHI_HYD |
& + phi0surf(i,j,bi,bj) |
|
./model/src/calc_grad_phi_hyd.F |
97 |
CALC_GRAD_PHI_HYD |
IF (Ro_surf(i,j,bi,bj).EQ.rC(k)) THEN |
|
./model/src/calc_grad_phi_hyd.F |
98 |
CALC_GRAD_PHI_HYD |
factPI=atm_Cp*( ((etaH(i,j,bi,bj)+rC(k))/atm_Po)**atm_kappa |
|
./pkg/layers/layers_thermodynamics.F |
105 |
LAYERS_CALC_RHS |
tmpfac = -_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/layers/layers_thermodynamics.F |
106 |
LAYERS_CALC_RHS |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)*recip_rhoFacC(k) |
|
./pkg/layers/layers_thermodynamics.F |
107 |
LAYERS_CALC_RHS |
layers_dfx(i,j,k,iTracer,bi,bj) = maskInC(i,j,bi,bj) * |
|
./pkg/layers/layers_thermodynamics.F |
108 |
LAYERS_CALC_RHS |
& tmpfac * ( layers_dfx(i+1,j,k,iTracer,bi,bj) - |
|
./pkg/layers/layers_thermodynamics.F |
109 |
LAYERS_CALC_RHS |
& layers_dfx(i,j,k,iTracer,bi,bj) ) |
|
./pkg/layers/layers_thermodynamics.F |
110 |
LAYERS_CALC_RHS |
layers_dfy(i,j,k,iTracer,bi,bj) = maskInC(i,j,bi,bj) * |
|
./pkg/layers/layers_thermodynamics.F |
111 |
LAYERS_CALC_RHS |
& tmpfac * ( layers_dfy(i,j+1,k,iTracer,bi,bj) - |
|
./pkg/layers/layers_thermodynamics.F |
112 |
LAYERS_CALC_RHS |
& layers_dfy(i,j,k,iTracer,bi,bj) ) |
|
./pkg/layers/layers_thermodynamics.F |
113 |
LAYERS_CALC_RHS |
layers_dfr(i,j,k,iTracer,bi,bj) = tmpfac * rkSign * |
|
./pkg/layers/layers_thermodynamics.F |
114 |
LAYERS_CALC_RHS |
& ( layers_dfr(i,j,kdown,iTracer,bi,bj)*downfac - |
|
./pkg/layers/layers_thermodynamics.F |
115 |
LAYERS_CALC_RHS |
& layers_dfr(i,j,k,iTracer,bi,bj) ) |
|
./pkg/layers/layers_thermodynamics.F |
117 |
LAYERS_CALC_RHS |
layers_afx(i,j,k,iTracer,bi,bj) = maskInC(i,j,bi,bj) * |
|
./pkg/layers/layers_thermodynamics.F |
118 |
LAYERS_CALC_RHS |
& tmpfac * ( layers_afx(i+1,j,k,iTracer,bi,bj) - |
|
./pkg/layers/layers_thermodynamics.F |
119 |
LAYERS_CALC_RHS |
& layers_afx(i,j,k,iTracer,bi,bj) ) |
|
./pkg/layers/layers_thermodynamics.F |
120 |
LAYERS_CALC_RHS |
layers_afy(i,j,k,iTracer,bi,bj) = maskInC(i,j,bi,bj) * |
|
./pkg/layers/layers_thermodynamics.F |
121 |
LAYERS_CALC_RHS |
& tmpfac * ( layers_afy(i,j+1,k,iTracer,bi,bj) - |
|
./pkg/layers/layers_thermodynamics.F |
122 |
LAYERS_CALC_RHS |
& layers_afy(i,j,k,iTracer,bi,bj) ) |
|
./pkg/layers/layers_thermodynamics.F |
123 |
LAYERS_CALC_RHS |
layers_afr(i,j,k,iTracer,bi,bj) = tmpfac * rkSign * |
|
./pkg/layers/layers_thermodynamics.F |
124 |
LAYERS_CALC_RHS |
& ( layers_afr(i,j,kdown,iTracer,bi,bj)*downfac - |
|
./pkg/layers/layers_thermodynamics.F |
125 |
LAYERS_CALC_RHS |
& layers_afr(i,j,k,iTracer,bi,bj) ) |
|
./pkg/layers/layers_thermodynamics.F |
151 |
LAYERS_CALC_RHS |
layers_sw(i,j,k,iTracer,bi,bj) = |
|
./pkg/layers/layers_thermodynamics.F |
152 |
LAYERS_CALC_RHS |
& layers_sw(i,j,k,iTracer,bi,bj) |
|
./pkg/layers/layers_thermodynamics.F |
153 |
LAYERS_CALC_RHS |
& -Qsw(i,j,bi,bj)*(swfracb(1)*maskC(i,j,k,bi,bj) |
|
./pkg/layers/layers_thermodynamics.F |
154 |
LAYERS_CALC_RHS |
& -swfracb(2)*maskC(i,j,kdown,bi,bj)) |
|
./pkg/layers/layers_thermodynamics.F |
156 |
LAYERS_CALC_RHS |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./pkg/layers/layers_thermodynamics.F |
51 |
LAYERS_CALC_RHS |
INTEGER bi, bj |
|
./pkg/layers/layers_thermodynamics.F |
66 |
LAYERS_CALC_RHS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/layers/layers_thermodynamics.F |
78 |
LAYERS_CALC_RHS |
layers_surfflux(i,j,k,iTracer,bi,bj) = |
|
./pkg/layers/layers_thermodynamics.F |
79 |
LAYERS_CALC_RHS |
& layers_surfflux(i,j,k,iTracer,bi,bj) |
|
./pkg/layers/layers_thermodynamics.F |
81 |
LAYERS_CALC_RHS |
& +Qsw(i,j,bi,bj) |
|
./pkg/layers/layers_thermodynamics.F |
85 |
LAYERS_CALC_RHS |
layers_surfflux(i,j,k,iTracer,bi,bj) = |
|
./pkg/layers/layers_thermodynamics.F |
86 |
LAYERS_CALC_RHS |
& layers_surfflux(i,j,k,iTracer,bi,bj) |
|
./pkg/layers/layers_thermodynamics.F |
87 |
LAYERS_CALC_RHS |
& *recip_drF(1)*_recip_hFacC(i,j,1,bi,bj) |
|
./pkg/layers/layers_wsurf_tr.F |
54 |
LAYERS_WSURF_TR |
INTEGER i,j,bi,bj,ks |
|
./pkg/layers/layers_wsurf_tr.F |
60 |
LAYERS_WSURF_TR |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./pkg/layers/layers_wsurf_tr.F |
64 |
LAYERS_WSURF_TR |
ks = ksurfC(i,j,bi,bj) |
|
./pkg/layers/layers_wsurf_tr.F |
67 |
LAYERS_WSURF_TR |
tcor = -wVelFld(i,j,ks,bi,bj) * thetaFld(i,j,ks,bi,bj) |
|
./pkg/layers/layers_wsurf_tr.F |
68 |
LAYERS_WSURF_TR |
scor = -wVelFld(i,j,ks,bi,bj) * saltFld(i,j,ks,bi,bj) |
|
./pkg/layers/layers_wsurf_tr.F |
74 |
LAYERS_WSURF_TR |
layers_surfflux(i,j,1,1,bi,bj) = |
|
./pkg/layers/layers_wsurf_tr.F |
75 |
LAYERS_WSURF_TR |
& layers_surfflux(i,j,1,1,bi,bj) + |
|
./pkg/layers/layers_wsurf_tr.F |
78 |
LAYERS_WSURF_TR |
layers_surfflux(i,j,1,2,bi,bj) = |
|
./pkg/layers/layers_wsurf_tr.F |
79 |
LAYERS_WSURF_TR |
& layers_surfflux(i,j,1,2,bi,bj) + |
|
./pkg/longstep/longstep_average_3d.F |
43 |
LONGSTEP_AVERAGE_3D |
INTEGER i,j,k,bi,bj |
|
./pkg/longstep/longstep_average_3d.F |
47 |
LONGSTEP_AVERAGE_3D |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./pkg/longstep/longstep_average_3d.F |
49 |
LONGSTEP_AVERAGE_3D |
factor = lsCnt(bi,bj) |
|
./pkg/longstep/longstep_average_3d.F |
50 |
LONGSTEP_AVERAGE_3D |
IF (lsCnt(bi,bj).NE.0) factor = 1. _d 0 / factor |
|
./pkg/longstep/longstep_average_3d.F |
54 |
LONGSTEP_AVERAGE_3D |
lsFld(i,j,k,bi,bj) = lsFld(i,j,k,bi,bj)*factor |
|
./pkg/longstep/longstep_average_3d_fac.F |
45 |
LONGSTEP_AVERAGE_3D_FAC |
INTEGER i,j,k,bi,bj |
|
./pkg/longstep/longstep_average_3d_fac.F |
49 |
LONGSTEP_AVERAGE_3D_FAC |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./pkg/longstep/longstep_average_3d_fac.F |
54 |
LONGSTEP_AVERAGE_3D_FAC |
factor = lsCnt(bi,bj) |
|
./pkg/longstep/longstep_average_3d_fac.F |
55 |
LONGSTEP_AVERAGE_3D_FAC |
factor = factor*fac(i,j,k,bi,bj) |
|
./pkg/longstep/longstep_average_3d_fac.F |
57 |
LONGSTEP_AVERAGE_3D_FAC |
lsFld(i,j,k,bi,bj) = lsFld(i,j,k,bi,bj)*factor |
|
./model/src/calc_grad_phi_surf.F |
36 |
CALC_GRAD_PHI_SURF |
INTEGER bi,bj,iMin,iMax,jMin,jMax |
|
./model/src/calc_grad_phi_surf.F |
51 |
CALC_GRAD_PHI_SURF |
phiSurfX(i,j)=_recip_dxC(i,j,bi,bj)* |
|
./model/src/calc_grad_phi_surf.F |
52 |
CALC_GRAD_PHI_SURF |
& ( Bo_surf(i,j,bi,bj)*etaFld(i,j,bi,bj) |
|
./model/src/calc_grad_phi_surf.F |
53 |
CALC_GRAD_PHI_SURF |
& - Bo_surf(i-1,j,bi,bj)*etaFld(i-1,j,bi,bj) ) |
|
./model/src/calc_grad_phi_surf.F |
60 |
CALC_GRAD_PHI_SURF |
phiSurfY(i,j)=_recip_dyC(i,j,bi,bj)* |
|
./model/src/calc_grad_phi_surf.F |
61 |
CALC_GRAD_PHI_SURF |
& ( Bo_surf(i,j,bi,bj)*etaFld(i,j,bi,bj) |
|
./model/src/calc_grad_phi_surf.F |
62 |
CALC_GRAD_PHI_SURF |
& - Bo_surf(i,j-1,bi,bj)*etaFld(i,j-1,bi,bj) ) |
|
./model/src/calc_grad_phi_surf.F |
9 |
CALC_GRAD_PHI_SURF |
SUBROUTINE CALC_GRAD_PHI_SURF( bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/longstep/longstep_fill_3d.F |
44 |
LONGSTEP_FILL_3D |
INTEGER i,j,k,bi,bj |
|
./pkg/longstep/longstep_fill_3d.F |
47 |
LONGSTEP_FILL_3D |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./pkg/longstep/longstep_fill_3d.F |
49 |
LONGSTEP_FILL_3D |
lsCnt(bi,bj) = lsCnt(bi,bj) + 1 |
|
./pkg/longstep/longstep_fill_3d.F |
53 |
LONGSTEP_FILL_3D |
lsFld(i,j,k,bi,bj) = lsFld(i,j,k,bi,bj) + fld(i,j,k,bi,bj) |
|
./pkg/longstep/longstep_fill_3d_fac.F |
45 |
LONGSTEP_FILL_3D_FAC |
INTEGER i,j,k,bi,bj |
|
./pkg/longstep/longstep_fill_3d_fac.F |
48 |
LONGSTEP_FILL_3D_FAC |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./pkg/longstep/longstep_fill_3d_fac.F |
50 |
LONGSTEP_FILL_3D_FAC |
lsCnt(bi,bj) = lsCnt(bi,bj) + 1 |
|
./pkg/longstep/longstep_fill_3d_fac.F |
54 |
LONGSTEP_FILL_3D_FAC |
lsFld(i,j,k,bi,bj) = lsFld(i,j,k,bi,bj) |
|
./pkg/longstep/longstep_fill_3d_fac.F |
55 |
LONGSTEP_FILL_3D_FAC |
& + fld(i,j,k,bi,bj)*fac(i,j,k,bi,bj) |
|
./pkg/longstep/longstep_fill_3d_rs.F |
45 |
LONGSTEP_FILL_3D_RS |
INTEGER i,j,k,bi,bj |
|
./pkg/longstep/longstep_fill_3d_rs.F |
48 |
LONGSTEP_FILL_3D_RS |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./pkg/longstep/longstep_fill_3d_rs.F |
50 |
LONGSTEP_FILL_3D_RS |
lsCnt(bi,bj) = lsCnt(bi,bj) + 1 |
|
./pkg/longstep/longstep_fill_3d_rs.F |
54 |
LONGSTEP_FILL_3D_RS |
lsFld(i,j,k,bi,bj) = lsFld(i,j,k,bi,bj) + fld(i,j,k,bi,bj) |
|
./pkg/longstep/longstep_forcing_surf.F |
118 |
LONGSTEP_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = |
|
./pkg/longstep/longstep_forcing_surf.F |
119 |
LONGSTEP_FORCING_SURF |
& surfaceForcingPTr(i,j,bi,bj,iTrc) |
|
./pkg/longstep/longstep_forcing_surf.F |
11 |
LONGSTEP_FORCING_SURF |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/longstep/longstep_forcing_surf.F |
120 |
LONGSTEP_FORCING_SURF |
& + LS_fwFlux(i,j,bi,bj) |
|
./pkg/longstep/longstep_forcing_surf.F |
121 |
LONGSTEP_FORCING_SURF |
& *( pTracer(i,j,ks,bi,bj,iTrc) - PTRACERS_EvPrRn(iTrc) ) |
|
./pkg/longstep/longstep_forcing_surf.F |
142 |
LONGSTEP_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = |
|
./pkg/longstep/longstep_forcing_surf.F |
143 |
LONGSTEP_FORCING_SURF |
& surfaceForcingPTr(i,j,bi,bj,iTrc) |
|
./pkg/longstep/longstep_forcing_surf.F |
144 |
LONGSTEP_FORCING_SURF |
& + LS_fwFlux(i,j,bi,bj) |
|
./pkg/longstep/longstep_forcing_surf.F |
38 |
LONGSTEP_FORCING_SURF |
INTEGER bi, bj, iMin, iMax, jMin, jMax |
|
./pkg/longstep/longstep_forcing_surf.F |
63 |
LONGSTEP_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = |
|
./pkg/longstep/longstep_forcing_surf.F |
85 |
LONGSTEP_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = |
|
./pkg/longstep/longstep_forcing_surf.F |
86 |
LONGSTEP_FORCING_SURF |
& surfaceForcingPTr(i,j,bi,bj,iTrc) |
|
./pkg/longstep/longstep_forcing_surf.F |
87 |
LONGSTEP_FORCING_SURF |
& + LS_fwFlux(i,j,bi,bj) |
|
./pkg/longstep/longstep_forcing_surf.F |
88 |
LONGSTEP_FORCING_SURF |
& *( PTRACERS_EvPrRn(iTrc) - pTracer(i,j,ks,bi,bj,iTrc) ) |
|
./pkg/longstep/longstep_reset_3d.F |
42 |
LONGSTEP_RESET_3D |
INTEGER i,j,k,bi,bj |
|
./pkg/longstep/longstep_reset_3d.F |
45 |
LONGSTEP_RESET_3D |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./pkg/longstep/longstep_reset_3d.F |
47 |
LONGSTEP_RESET_3D |
lsCnt(bi,bj) = 0 |
|
./pkg/longstep/longstep_reset_3d.F |
51 |
LONGSTEP_RESET_3D |
lsFld(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/longstep/longstep_thermodynamics.F |
107 |
LONGSTEP_THERMODYNAMICS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/longstep/longstep_thermodynamics.F |
113 |
LONGSTEP_THERMODYNAMICS |
act2 = bj - myByLo(myThid) |
|
./pkg/longstep/longstep_thermodynamics.F |
146 |
LONGSTEP_THERMODYNAMICS |
recip_hFacNew(i,j,k) = recip_hFacC(i,j,k,bi,bj) |
|
./pkg/longstep/longstep_thermodynamics.F |
147 |
LONGSTEP_THERMODYNAMICS |
& / rStarExpC(i,j,bi,bj) |
|
./pkg/longstep/longstep_thermodynamics.F |
157 |
LONGSTEP_THERMODYNAMICS |
recip_hFacNew(i,j,k) = recip_hFacC(i,j,k,bi,bj) |
|
./pkg/longstep/longstep_thermodynamics.F |
158 |
LONGSTEP_THERMODYNAMICS |
& /( 1. _d 0 + dEtaHdt(i,j,bi,bj)*deltaTFreeSurf |
|
./pkg/longstep/longstep_thermodynamics.F |
160 |
LONGSTEP_THERMODYNAMICS |
& *recip_hFacC(i,j,k,bi,bj) |
|
./pkg/longstep/longstep_thermodynamics.F |
170 |
LONGSTEP_THERMODYNAMICS |
IF ( k.EQ.kSurfC(i,j,bi,bj) ) THEN |
|
./pkg/longstep/longstep_thermodynamics.F |
171 |
LONGSTEP_THERMODYNAMICS |
recip_hFacNew(i,j,k) = 1. _d 0 / hFac_surfC(i,j,bi,bj) |
|
./pkg/longstep/longstep_thermodynamics.F |
173 |
LONGSTEP_THERMODYNAMICS |
recip_hFacNew(i,j,k) = recip_hFacC(i,j,k,bi,bj) |
|
./pkg/longstep/longstep_thermodynamics.F |
184 |
LONGSTEP_THERMODYNAMICS |
recip_hFacNew(i,j,k) = _recip_hFacC(i,j,k,bi,bj) |
|
./pkg/longstep/longstep_thermodynamics.F |
199 |
LONGSTEP_THERMODYNAMICS |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/longstep/longstep_thermodynamics.F |
207 |
LONGSTEP_THERMODYNAMICS |
uFld(i,j,k) = LS_uVel(i,j,k,bi,bj) |
|
./pkg/longstep/longstep_thermodynamics.F |
208 |
LONGSTEP_THERMODYNAMICS |
vFld(i,j,k) = LS_vVel(i,j,k,bi,bj) |
|
./pkg/longstep/longstep_thermodynamics.F |
209 |
LONGSTEP_THERMODYNAMICS |
wFld(i,j,k) = LS_wVel(i,j,k,bi,bj) |
|
./pkg/longstep/longstep_thermodynamics.F |
218 |
LONGSTEP_THERMODYNAMICS |
I bi, bj, myIter, myThid ) |
|
./pkg/longstep/longstep_thermodynamics.F |
231 |
LONGSTEP_THERMODYNAMICS |
I bi, bj, recip_hFacNew, |
|
./pkg/longstep/longstep_thermodynamics.F |
90 |
LONGSTEP_THERMODYNAMICS |
INTEGER bi, bj |
|
./model/src/calc_grid_angles.F |
100 |
CALC_GRID_ANGLES |
& ( yG(i,j,bi,bj) + yG(i,j+1,bi,bj) )*halfRL ) |
|
./model/src/calc_grid_angles.F |
102 |
CALC_GRID_ANGLES |
u2zonDir(i,j,bi,bj) = rSphere |
|
./model/src/calc_grid_angles.F |
103 |
CALC_GRID_ANGLES |
& *( SIN( yG(i,j+1,bi,bj)*deg2rad ) |
|
./model/src/calc_grid_angles.F |
104 |
CALC_GRID_ANGLES |
& - SIN( yG(i, j, bi,bj)*deg2rad ) |
|
./model/src/calc_grid_angles.F |
105 |
CALC_GRID_ANGLES |
& )* _dxC(i,j,bi,bj)/tmpVal |
|
./model/src/calc_grid_angles.F |
108 |
CALC_GRID_ANGLES |
u2zonDir(i,j,bi,bj) = 1. |
|
./model/src/calc_grid_angles.F |
117 |
CALC_GRID_ANGLES |
tmpVal = _rAs(i,j,bi,bj) * COS( deg2rad* |
|
./model/src/calc_grid_angles.F |
118 |
CALC_GRID_ANGLES |
& ( yG(i,j,bi,bj) + yG(i+1,j,bi,bj) )*halfRL ) |
|
./model/src/calc_grid_angles.F |
120 |
CALC_GRID_ANGLES |
v2zonDir(i,j,bi,bj) = -rSphere |
|
./model/src/calc_grid_angles.F |
121 |
CALC_GRID_ANGLES |
& *( SIN( yG(i+1,j,bi,bj)*deg2rad ) |
|
./model/src/calc_grid_angles.F |
122 |
CALC_GRID_ANGLES |
& - SIN( yG(i,j,bi,bj)*deg2rad ) |
|
./model/src/calc_grid_angles.F |
123 |
CALC_GRID_ANGLES |
& )* _dyC(i,j,bi,bj)/tmpVal |
|
./model/src/calc_grid_angles.F |
126 |
CALC_GRID_ANGLES |
v2zonDir(i,j,bi,bj) = 0. |
|
./model/src/calc_grid_angles.F |
40 |
CALC_GRID_ANGLES |
INTEGER bi, bj |
|
./model/src/calc_grid_angles.F |
49 |
CALC_GRID_ANGLES |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./model/src/calc_grid_angles.F |
56 |
CALC_GRID_ANGLES |
IF ( _dyG(i,j,bi,bj).GT.0. ) THEN |
|
./model/src/calc_grid_angles.F |
58 |
CALC_GRID_ANGLES |
& - ( yG(i,j,bi,bj) - yG(i,j+1,bi,bj) )*deg2rad |
|
./model/src/calc_grid_angles.F |
59 |
CALC_GRID_ANGLES |
& / _dyG(i,j,bi,bj) |
|
./model/src/calc_grid_angles.F |
63 |
CALC_GRID_ANGLES |
u2zonDir(i,j,bi,bj) = rSphere*uPseudo(i,j) |
|
./model/src/calc_grid_angles.F |
68 |
CALC_GRID_ANGLES |
IF ( _dxG(i,j,bi,bj).GT.0. ) THEN |
|
./model/src/calc_grid_angles.F |
70 |
CALC_GRID_ANGLES |
& + ( yG(i,j,bi,bj) - yG(i+1,j,bi,bj) )*deg2rad |
|
./model/src/calc_grid_angles.F |
71 |
CALC_GRID_ANGLES |
& / _dxG(i,j,bi,bj) |
|
./model/src/calc_grid_angles.F |
75 |
CALC_GRID_ANGLES |
v2zonDir(i,j,bi,bj) = rSphere*vPseudo(i,j) |
|
./model/src/calc_grid_angles.F |
85 |
CALC_GRID_ANGLES |
angleCosC(i,j,bi,bj) = uC*uNorm |
|
./model/src/calc_grid_angles.F |
86 |
CALC_GRID_ANGLES |
angleSinC(i,j,bi,bj) = -vC*uNorm |
|
./model/src/calc_grid_angles.F |
99 |
CALC_GRID_ANGLES |
tmpVal = _rAw(i,j,bi,bj) * COS( deg2rad* |
|
./pkg/matrix/matrix_init_varia.F |
23 |
MATRIX_INIT_VARIA |
INTEGER i, j, k, bi, bj |
|
./pkg/matrix/matrix_init_varia.F |
29 |
MATRIX_INIT_VARIA |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/matrix/matrix_init_varia.F |
31 |
MATRIX_INIT_VARIA |
expMatrixCounter(bi,bj) = 0 |
|
./pkg/matrix/matrix_init_varia.F |
32 |
MATRIX_INIT_VARIA |
impMatrixCounter(bi,bj) = 0 |
|
./pkg/matrix/matrix_init_varia.F |
36 |
MATRIX_INIT_VARIA |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/matrix/matrix_init_varia.F |
41 |
MATRIX_INIT_VARIA |
PTRACERS_initial(i,j,k,bi,bj,iTracer) = |
|
./pkg/matrix/matrix_init_varia.F |
42 |
MATRIX_INIT_VARIA |
& pTracer(i,j,k,bi,bj,iTracer) |
|
./pkg/matrix/matrix_init_varia.F |
43 |
MATRIX_INIT_VARIA |
MATRIX(i,j,k,bi,bj,iTracer,1) = 0. _d 0 |
|
./pkg/matrix/matrix_init_varia.F |
44 |
MATRIX_INIT_VARIA |
MATRIX(i,j,k,bi,bj,iTracer,2) = 0. _d 0 |
|
./pkg/matrix/matrix_store_tendency.F |
108 |
MATRIX_STORE_TENDENCY_IMP |
MATRIX(i,j,k,bi,bj,iTracer,2) = |
|
./pkg/matrix/matrix_store_tendency.F |
109 |
MATRIX_STORE_TENDENCY_IMP |
& MATRIX(i,j,k,bi,bj,iTracer,2) |
|
./pkg/matrix/matrix_store_tendency.F |
110 |
MATRIX_STORE_TENDENCY_IMP |
& + pTracer(i,j,k,bi,bj,iTracer) |
|
./pkg/matrix/matrix_store_tendency.F |
111 |
MATRIX_STORE_TENDENCY_IMP |
pTracer(i,j,k,bi,bj,iTracer)= |
|
./pkg/matrix/matrix_store_tendency.F |
112 |
MATRIX_STORE_TENDENCY_IMP |
& PTRACERS_initial(i,j,k,bi,bj,iTracer) |
|
./pkg/matrix/matrix_store_tendency.F |
117 |
MATRIX_STORE_TENDENCY_IMP |
impMatrixCounter(bi,bj) = impMatrixCounter(bi,bj) + 1 |
|
./pkg/matrix/matrix_store_tendency.F |
17 |
MATRIX_STORE_TENDENCY_EXP |
I iTracer, bi, bj, |
|
./pkg/matrix/matrix_store_tendency.F |
39 |
MATRIX_STORE_TENDENCY_EXP |
INTEGER bi, bj |
|
./pkg/matrix/matrix_store_tendency.F |
53 |
MATRIX_STORE_TENDENCY_EXP |
MATRIX(i,j,k,bi,bj,iTracer,1) = MATRIX(i,j,k,bi,bj,iTracer,1) |
|
./pkg/matrix/matrix_store_tendency.F |
54 |
MATRIX_STORE_TENDENCY_EXP |
& + ( tracNew(i,j,k) - PTRACERS_initial(i,j,k,bi,bj,iTracer) ) |
|
./pkg/matrix/matrix_store_tendency.F |
55 |
MATRIX_STORE_TENDENCY_EXP |
tracNew(i,j,k) = PTRACERS_initial(i,j,k,bi,bj,iTracer) |
|
./pkg/matrix/matrix_store_tendency.F |
62 |
MATRIX_STORE_TENDENCY_EXP |
expMatrixCounter(bi,bj) = expMatrixCounter(bi,bj) + 1 |
|
./pkg/matrix/matrix_store_tendency.F |
75 |
MATRIX_STORE_TENDENCY_IMP |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/matrix/matrix_store_tendency.F |
93 |
MATRIX_STORE_TENDENCY_IMP |
INTEGER bi, bj |
|
./pkg/matrix/matrix_write_tendency.F |
103 |
MATRIX_WRITE_TENDENCY |
DO bj=myByLo(myThid), myByHi (myThid) |
|
./pkg/matrix/matrix_write_tendency.F |
108 |
MATRIX_WRITE_TENDENCY |
MATRIX(i,j,k,bi,bj,iTracer,2) = |
|
./pkg/matrix/matrix_write_tendency.F |
109 |
MATRIX_WRITE_TENDENCY |
& MATRIX(i,j,k,bi,bj,iTracer,2) |
|
./pkg/matrix/matrix_write_tendency.F |
117 |
MATRIX_WRITE_TENDENCY |
bj=myByLo(myThid) |
|
./pkg/matrix/matrix_write_tendency.F |
120 |
MATRIX_WRITE_TENDENCY |
& iTracer, impMatrixWriteCount, impMatrixCounter(bi,bj) |
|
./pkg/matrix/matrix_write_tendency.F |
134 |
MATRIX_WRITE_TENDENCY |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/matrix/matrix_write_tendency.F |
136 |
MATRIX_WRITE_TENDENCY |
impMatrixCounter(bi,bj) = 0 |
|
./pkg/matrix/matrix_write_tendency.F |
140 |
MATRIX_WRITE_TENDENCY |
DO bj=myByLo(myThid), myByHi (myThid) |
|
./pkg/matrix/matrix_write_tendency.F |
145 |
MATRIX_WRITE_TENDENCY |
MATRIX(i,j,k,bi,bj,iTracer,2) = 0. _d 0 |
|
./pkg/matrix/matrix_write_tendency.F |
29 |
MATRIX_WRITE_TENDENCY |
INTEGER bi,bj,i,j,k,iTracer,iRec |
|
./pkg/matrix/matrix_write_tendency.F |
38 |
MATRIX_WRITE_TENDENCY |
bj=myByLo(myThid) |
|
./pkg/matrix/matrix_write_tendency.F |
40 |
MATRIX_WRITE_TENDENCY |
recipExpDeltaTtracer = expMatrixCounter(bi,bj)*dTtracerLev(1) |
|
./pkg/matrix/matrix_write_tendency.F |
44 |
MATRIX_WRITE_TENDENCY |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/matrix/matrix_write_tendency.F |
49 |
MATRIX_WRITE_TENDENCY |
MATRIX(i,j,k,bi,bj,iTracer,1) = |
|
./pkg/matrix/matrix_write_tendency.F |
50 |
MATRIX_WRITE_TENDENCY |
& MATRIX(i,j,k,bi,bj,iTracer,1) |
|
./pkg/matrix/matrix_write_tendency.F |
58 |
MATRIX_WRITE_TENDENCY |
bj=myByLo(myThid) |
|
./pkg/matrix/matrix_write_tendency.F |
61 |
MATRIX_WRITE_TENDENCY |
& iTracer, expMatrixWriteCount, expMatrixCounter(bi,bj) |
|
./pkg/matrix/matrix_write_tendency.F |
75 |
MATRIX_WRITE_TENDENCY |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/matrix/matrix_write_tendency.F |
77 |
MATRIX_WRITE_TENDENCY |
expMatrixCounter(bi,bj) = 0 |
|
./pkg/matrix/matrix_write_tendency.F |
81 |
MATRIX_WRITE_TENDENCY |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/matrix/matrix_write_tendency.F |
86 |
MATRIX_WRITE_TENDENCY |
MATRIX(i,j,k,bi,bj,iTracer,1) = 0. _d 0 |
|
./pkg/matrix/matrix_write_tendency.F |
97 |
MATRIX_WRITE_TENDENCY |
bj=myByLo(myThid) |
|
./pkg/matrix/matrix_write_tendency.F |
99 |
MATRIX_WRITE_TENDENCY |
recipImpMatrixCounter = impMatrixCounter(bi,bj) |
|
./model/src/calc_gw.F |
154 |
CALC_GW |
gW(i,j,k,bi,bj) = 0. |
|
./model/src/calc_gw.F |
15 |
CALC_GW |
I bi, bj, kappaRU, kappaRV, |
|
./model/src/calc_gw.F |
194 |
CALC_GW |
IF ( maskC(i,j,k-1,bi,bj).EQ.0. .OR. |
|
./model/src/calc_gw.F |
195 |
CALC_GW |
& maskC(i,j, k ,bi,bj).EQ.0. ) THEN |
|
./model/src/calc_gw.F |
200 |
CALC_GW |
& ( MIN( Ro_surf(i,j,bi,bj),rC(k-1) ) |
|
./model/src/calc_gw.F |
201 |
CALC_GW |
& - MAX( R_low(i,j,bi,bj), rC(k) ) |
|
./model/src/calc_gw.F |
210 |
CALC_GW |
& MIN( Ro_surf(i,j,bi,bj), rC(k-1) ) |
|
./model/src/calc_gw.F |
211 |
CALC_GW |
& -MAX( R_low(i,j,bi,bj), rC(k) ) |
|
./model/src/calc_gw.F |
218 |
CALC_GW |
& MIN( rSurfW(i,j,bi,bj), rC(k-1) ) |
|
./model/src/calc_gw.F |
219 |
CALC_GW |
& -MAX( rLowW(i,j,bi,bj), rC(k) ) |
|
./model/src/calc_gw.F |
222 |
CALC_GW |
xA(i,j) = _dyG(i,j,bi,bj)*rThickC_W(i,j) |
|
./model/src/calc_gw.F |
229 |
CALC_GW |
& MIN( rSurfS(i,j,bi,bj), rC(k-1) ) |
|
./model/src/calc_gw.F |
230 |
CALC_GW |
& -MAX( rLowS(i,j,bi,bj), rC(k) ) |
|
./model/src/calc_gw.F |
233 |
CALC_GW |
yA(i,j) = _dxG(i,j,bi,bj)*rThickC_S(i,j) |
|
./model/src/calc_gw.F |
244 |
CALC_GW |
IF ( maskC(i,j,k,bi,bj).EQ.0. ) THEN |
|
./model/src/calc_gw.F |
249 |
CALC_GW |
& + drF( k )*MIN( _hFacC(i,j, k ,bi,bj), halfRS ) |
|
./model/src/calc_gw.F |
255 |
CALC_GW |
& drF(k-1)*MAX( h0FacC(i,j,k-1,bi,bj)-halfRS, zeroRS ) |
|
./model/src/calc_gw.F |
256 |
CALC_GW |
& + drF( k )*MIN( h0FacC(i,j,k ,bi,bj), halfRS ) |
|
./model/src/calc_gw.F |
259 |
CALC_GW |
& drF(k-1)*MAX( _hFacC(i,j,k-1,bi,bj)-halfRS, zeroRS ) |
|
./model/src/calc_gw.F |
260 |
CALC_GW |
& + drF( k )*MIN( _hFacC(i,j,k ,bi,bj), halfRS ) |
|
./model/src/calc_gw.F |
263 |
CALC_GW |
& drF(k-1)*MAX( _hFacW(i,j,k-1,bi,bj)-halfRS, zeroRS ) |
|
./model/src/calc_gw.F |
264 |
CALC_GW |
& + drF( k )*MIN( _hFacW(i,j,k ,bi,bj), halfRS ) |
|
./model/src/calc_gw.F |
266 |
CALC_GW |
& drF(k-1)*MAX( _hFacS(i,j,k-1,bi,bj)-halfRS, zeroRS ) |
|
./model/src/calc_gw.F |
267 |
CALC_GW |
& + drF( k )*MIN( _hFacS(i,j, k ,bi,bj), halfRS ) |
|
./model/src/calc_gw.F |
269 |
CALC_GW |
xA(i,j) = _dyG(i,j,bi,bj)*rThickC_W(i,j) |
|
./model/src/calc_gw.F |
272 |
CALC_GW |
yA(i,j) = _dxG(i,j,bi,bj)*rThickC_S(i,j) |
|
./model/src/calc_gw.F |
296 |
CALC_GW |
wFld(i,j) = wVel(i,j,k,bi,bj) |
|
./model/src/calc_gw.F |
308 |
CALC_GW |
& wFld, bi,bj, myThid ) |
|
./model/src/calc_gw.F |
315 |
CALC_GW |
& *_recip_dxC(i,j,bi,bj)*xA(i,j) |
|
./model/src/calc_gw.F |
317 |
CALC_GW |
& *sqCosFacU(j,bi,bj) |
|
./model/src/calc_gw.F |
320 |
CALC_GW |
& *maskInW(i,j,bi,bj) |
|
./model/src/calc_gw.F |
329 |
CALC_GW |
& wFld, bi,bj, myThid ) |
|
./model/src/calc_gw.F |
338 |
CALC_GW |
& *_recip_dyC(i,j,bi,bj)*yA(i,j) |
|
./model/src/calc_gw.F |
341 |
CALC_GW |
& *sqCosFacV(j,bi,bj) |
|
./model/src/calc_gw.F |
345 |
CALC_GW |
& *maskInS(i,j,bi,bj) |
|
./model/src/calc_gw.F |
356 |
CALC_GW |
& )*recip_rA(i,j,bi,bj)*recip_rThickC(i,j) |
|
./model/src/calc_gw.F |
368 |
CALC_GW |
& - (viscAh_W(i,j,k,bi,bj)+viscAh_W(i-1,j,k,bi,bj))*halfRL |
|
./model/src/calc_gw.F |
369 |
CALC_GW |
& *(wVel(i,j,k,bi,bj)-wVel(i-1,j,k,bi,bj)) |
|
./model/src/calc_gw.F |
370 |
CALC_GW |
& *_recip_dxC(i,j,bi,bj)*xA(i,j) |
|
./model/src/calc_gw.F |
371 |
CALC_GW |
& *cosFacU(j,bi,bj) |
|
./model/src/calc_gw.F |
372 |
CALC_GW |
& + (viscA4_W(i,j,k,bi,bj)+viscA4_W(i-1,j,k,bi,bj))*halfRL |
|
./model/src/calc_gw.F |
374 |
CALC_GW |
& *_recip_dxC(i,j,bi,bj)*xA(i,j) |
|
./model/src/calc_gw.F |
376 |
CALC_GW |
& *sqCosFacU(j,bi,bj) |
|
./model/src/calc_gw.F |
378 |
CALC_GW |
& *cosFacU(j,bi,bj) |
|
./model/src/calc_gw.F |
386 |
CALC_GW |
& - (viscAh_W(i,j,k,bi,bj)+viscAh_W(i,j-1,k,bi,bj))*halfRL |
|
./model/src/calc_gw.F |
387 |
CALC_GW |
& *(wVel(i,j,k,bi,bj)-wVel(i,j-1,k,bi,bj)) |
|
./model/src/calc_gw.F |
388 |
CALC_GW |
& *_recip_dyC(i,j,bi,bj)*yA(i,j) |
|
./model/src/calc_gw.F |
390 |
CALC_GW |
& *cosFacV(j,bi,bj) |
|
./model/src/calc_gw.F |
392 |
CALC_GW |
& + (viscA4_W(i,j,k,bi,bj)+viscA4_W(i,j-1,k,bi,bj))*halfRL |
|
./model/src/calc_gw.F |
394 |
CALC_GW |
& *_recip_dyC(i,j,bi,bj)*yA(i,j) |
|
./model/src/calc_gw.F |
397 |
CALC_GW |
& *sqCosFacV(j,bi,bj) |
|
./model/src/calc_gw.F |
399 |
CALC_GW |
& *cosFacV(j,bi,bj) |
|
./model/src/calc_gw.F |
414 |
CALC_GW |
& - viscLoc*( wVel(i,j,kp1,bi,bj)*mskP1 |
|
./model/src/calc_gw.F |
415 |
CALC_GW |
& -wVel(i,j, k ,bi,bj) )*rkSign |
|
./model/src/calc_gw.F |
416 |
CALC_GW |
& *recip_drF(k)*rA(i,j,bi,bj) |
|
./model/src/calc_gw.F |
432 |
CALC_GW |
& - viscLoc*( wVel(i,j, k ,bi,bj) |
|
./model/src/calc_gw.F |
433 |
CALC_GW |
& -wVel(i,j,k-1,bi,bj) )*rkSign |
|
./model/src/calc_gw.F |
434 |
CALC_GW |
& *recip_drF(k-1)*rA(i,j,bi,bj) |
|
./model/src/calc_gw.F |
450 |
CALC_GW |
& )*recip_rA(i,j,bi,bj)*recip_rThickC(i,j) |
|
./model/src/calc_gw.F |
461 |
CALC_GW |
I bi,bj,k, |
|
./model/src/calc_gw.F |
481 |
CALC_GW |
I iMin,iMax,jMin,jMax, k, bi, bj, myThid ) |
|
./model/src/calc_gw.F |
500 |
CALC_GW |
& drF(km1)*_hFacW(i,j,km1,bi,bj)*uVel(i,j,km1,bi,bj) |
|
./model/src/calc_gw.F |
502 |
CALC_GW |
& + drF( k )*_hFacW(i,j, k ,bi,bj)*uVel(i,j, k ,bi,bj) |
|
./model/src/calc_gw.F |
504 |
CALC_GW |
& )*halfRL*_dyG(i,j,bi,bj)*deepFacF(k) |
|
./model/src/calc_gw.F |
515 |
CALC_GW |
& drF(km1)*_hFacS(i,j,km1,bi,bj)*vVel(i,j,km1,bi,bj) |
|
./model/src/calc_gw.F |
517 |
CALC_GW |
& +drF( k )*_hFacS(i,j, k ,bi,bj)*vVel(i,j, k ,bi,bj) |
|
./model/src/calc_gw.F |
519 |
CALC_GW |
& )*halfRL*_dxG(i,j,bi,bj)*deepFacF(k) |
|
./model/src/calc_gw.F |
532 |
CALC_GW |
& ( wVel(i,j, k ,bi,bj)*rVel2wUnit( k ) |
|
./model/src/calc_gw.F |
533 |
CALC_GW |
& +wVel(i,j,kp1,bi,bj)*rVel2wUnit(kp1)*mskP1 ) |
|
./model/src/calc_gw.F |
536 |
CALC_GW |
& ( wVel(i,j, k ,bi,bj)*deepFac2F( k )*rhoFacF( k ) |
|
./model/src/calc_gw.F |
537 |
CALC_GW |
& +wVel(i,j,kp1,bi,bj)*deepFac2F(kp1)*rhoFacF(kp1) |
|
./model/src/calc_gw.F |
539 |
CALC_GW |
& )*rA(i,j,bi,bj) |
|
./model/src/calc_gw.F |
548 |
CALC_GW |
tmp_WbarZ = wVel(i,j,k,bi,bj)*rVel2wUnit(k) |
|
./model/src/calc_gw.F |
549 |
CALC_GW |
rTrans = wVel(i,j,k,bi,bj)*deepFac2F(k)*rhoFacF(k) |
|
./model/src/calc_gw.F |
550 |
CALC_GW |
& *rA(i,j,bi,bj) |
|
./model/src/calc_gw.F |
564 |
CALC_GW |
gW(i,j,k,bi,bj) = |
|
./model/src/calc_gw.F |
568 |
CALC_GW |
& )*recip_rA(i,j,bi,bj)*recip_rThickC(i,j) |
|
./model/src/calc_gw.F |
576 |
CALC_GW |
gW(i,j,k,bi,bj) = gW(i,j,k,bi,bj) |
|
./model/src/calc_gw.F |
577 |
CALC_GW |
& + wVel(i,j,k,bi,bj)*mass2rUnit*0.5 _d 0 |
|
./model/src/calc_gw.F |
578 |
CALC_GW |
& *( addMass(i,j,k,bi,bj) |
|
./model/src/calc_gw.F |
579 |
CALC_GW |
& +addMass(i,j,km1,bi,bj)*mskM1 ) |
|
./model/src/calc_gw.F |
580 |
CALC_GW |
& *recip_rA(i,j,bi,bj)*recip_rThickC(i,j) |
|
./model/src/calc_gw.F |
58 |
CALC_GW |
INTEGER bi,bj |
|
./model/src/calc_gw.F |
610 |
CALC_GW |
I bi,bj,k, |
|
./model/src/calc_gw.F |
616 |
CALC_GW |
gW(i,j,k,bi,bj) = gW(i,j,k,bi,bj)+gwAdd(i,j) |
|
./model/src/calc_gw.F |
622 |
CALC_GW |
I bi,bj,k, |
|
./model/src/calc_gw.F |
628 |
CALC_GW |
gW(i,j,k,bi,bj) = gW(i,j,k,bi,bj)+gwAdd(i,j) |
|
./model/src/calc_gw.F |
638 |
CALC_GW |
& k, 1, 2, bi,bj, myThid ) |
|
./model/src/calc_gw.F |
645 |
CALC_GW |
& k,Nr, 1, bi,bj, myThid ) |
|
./model/src/calc_gw.F |
654 |
CALC_GW |
gW(i,j,k,bi,bj) = gW(i,j,k,bi,bj)+gwDiss(i,j) |
|
./model/src/calc_gw.F |
663 |
CALC_GW |
I bi, bj, k, Nr, |
|
./model/src/calc_gw.F |
664 |
CALC_GW |
U gW(1-OLx,1-OLy,1,bi,bj), gwNm, |
|
./model/src/calc_gw.F |
669 |
CALC_GW |
I bi, bj, k, Nr, |
|
./model/src/calc_gw.F |
670 |
CALC_GW |
U gW(1-OLx,1-OLy,1,bi,bj), |
|
./model/src/calc_gw.F |
671 |
CALC_GW |
U gwNm1(1-OLx,1-OLy,1,bi,bj), |
|
./model/src/calc_gw.F |
677 |
CALC_GW |
CALL DIAGNOSTICS_FILL(gw_AB,'AB_gW ',k,1,2,bi,bj,myThid) |
|
./model/src/calc_gw.F |
685 |
CALC_GW |
gW(i,j,k,bi,bj) = gW(i,j,k,bi,bj)+gwDiss(i,j) |
|
./model/src/calc_gw.F |
695 |
CALC_GW |
CALL DIAGNOSTICS_FILL(viscAh_W,'VISCAHW ',0,Nr,1,bi,bj,myThid) |
|
./model/src/calc_gw.F |
696 |
CALC_GW |
CALL DIAGNOSTICS_FILL(viscA4_W,'VISCA4W ',0,Nr,1,bi,bj,myThid) |
|
./pkg/mdsio/mdsio_facef_read.F |
104 |
MDS_FACEF_READ_RS |
array(i,j,bi,bj) = ioBuf8(i+tBx) |
|
./pkg/mdsio/mdsio_facef_read.F |
128 |
MDS_FACEF_READ_RS |
array(i,j,bi,bj) = ioBuf4(i,j) |
|
./pkg/mdsio/mdsio_facef_read.F |
138 |
MDS_FACEF_READ_RS |
array(i,j,bi,bj) = ioBuf8(i,j) |
|
./pkg/mdsio/mdsio_facef_read.F |
19 |
MDS_FACEF_READ_RS |
I bi,bj, myThid ) |
|
./pkg/mdsio/mdsio_facef_read.F |
45 |
MDS_FACEF_READ_RS |
INTEGER bi,bj, myThid |
|
./pkg/mdsio/mdsio_facef_read.F |
71 |
MDS_FACEF_READ_RS |
tN = W2_myTileList(bi,bj) |
|
./pkg/mdsio/mdsio_facef_read.F |
93 |
MDS_FACEF_READ_RS |
array(i,j,bi,bj) = ioBuf4(i+tBx) |
|
./pkg/mdsio/mdsio_gl.F |
1014 |
MDSREADFIELD_2D_GL |
do bj=1,nSy |
|
./pkg/mdsio/mdsio_gl.F |
1019 |
MDSREADFIELD_2D_GL |
jG=bj+(jp-1)*nsy ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl.F |
1057 |
MDSREADFIELD_2D_GL |
jG=bj+(jp-1)*nsy |
|
./pkg/mdsio/mdsio_gl.F |
1072 |
MDSREADFIELD_2D_GL |
call MDS_SEG4TORS( j,bi,bj,k,nLocz, r4seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
1075 |
MDSREADFIELD_2D_GL |
call MDS_SEG4TORL( j,bi,bj,k,nLocz, r4seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
1089 |
MDSREADFIELD_2D_GL |
call MDS_SEG8TORS( j,bi,bj,k,nLocz, r8seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
1092 |
MDSREADFIELD_2D_GL |
call MDS_SEG8TORL( j,bi,bj,k,nLocz, r8seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
1106 |
MDSREADFIELD_2D_GL |
arr_gl(ii,bi,ip,j,bj,jp,k)=arr(ii,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_gl.F |
1174 |
MDSREADFIELD_2D_GL |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/mdsio/mdsio_gl.F |
1177 |
MDSREADFIELD_2D_GL |
JJ=((jp-1)*nSy+(bj-1))*sNy+J |
|
./pkg/mdsio/mdsio_gl.F |
1180 |
MDSREADFIELD_2D_GL |
arr_gl(i,bi,ip,j,bj,jp,k) = global(II,JJ) |
|
./pkg/mdsio/mdsio_gl.F |
1280 |
MDSWRITEFIELD_2D_GL |
integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl.F |
1379 |
MDSWRITEFIELD_2D_GL |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/mdsio/mdsio_gl.F |
1382 |
MDSWRITEFIELD_2D_GL |
JJ=((jp-1)*nSy+(bj-1))*sNy+J |
|
./pkg/mdsio/mdsio_gl.F |
1385 |
MDSWRITEFIELD_2D_GL |
global(II,JJ) = arr_gl(i,bi,ip,j,bj,jp,k) |
|
./pkg/mdsio/mdsio_gl.F |
1461 |
MDSWRITEFIELD_2D_GL |
do bj=1,nSy |
|
./pkg/mdsio/mdsio_gl.F |
1465 |
MDSWRITEFIELD_2D_GL |
jG=bj+(jp-1)*nsy ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl.F |
1483 |
MDSWRITEFIELD_2D_GL |
arr(i,j,k,bi,bj)=arr_gl(i,bi,ip,j,bj,jp,k) |
|
./pkg/mdsio/mdsio_gl.F |
1491 |
MDSWRITEFIELD_2D_GL |
call MDS_SEG4TORS( j,bi,bj,k,nLocz, r4seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
1494 |
MDSWRITEFIELD_2D_GL |
call MDS_SEG4TORL( j,bi,bj,k,nLocz, r4seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
1508 |
MDSWRITEFIELD_2D_GL |
call MDS_SEG8TORS( j,bi,bj,k,nLocz, r8seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
1511 |
MDSWRITEFIELD_2D_GL |
call MDS_SEG8TORL( j,bi,bj,k,nLocz, r8seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
1545 |
MDSWRITEFIELD_2D_GL |
jG=bj+(jp-1)*nsy ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl.F |
1552 |
MDSWRITEFIELD_2D_GL |
dimList(2,2)=((jp-1)*nSy+(bj-1))*sNy+1 |
|
./pkg/mdsio/mdsio_gl.F |
1553 |
MDSWRITEFIELD_2D_GL |
dimList(3,2)=((jp-1)*nSy+bj)*sNy |
|
./pkg/mdsio/mdsio_gl.F |
227 |
MDSREADFIELD_3D_GL |
do bj=1,nSy |
|
./pkg/mdsio/mdsio_gl.F |
232 |
MDSREADFIELD_3D_GL |
jG=bj+(jp-1)*nsy ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl.F |
270 |
MDSREADFIELD_3D_GL |
jG=bj+(jp-1)*nsy |
|
./pkg/mdsio/mdsio_gl.F |
285 |
MDSREADFIELD_3D_GL |
call MDS_SEG4TORS( j,bi,bj,k,Nr, r4seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
288 |
MDSREADFIELD_3D_GL |
call MDS_SEG4TORL( j,bi,bj,k,Nr, r4seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
302 |
MDSREADFIELD_3D_GL |
call MDS_SEG8TORS( j,bi,bj,k,Nr, r8seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
305 |
MDSREADFIELD_3D_GL |
call MDS_SEG8TORL( j,bi,bj,k,Nr, r8seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
319 |
MDSREADFIELD_3D_GL |
arr_gl(ii,bi,ip,j,bj,jp,k)=arr(ii,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_gl.F |
387 |
MDSREADFIELD_3D_GL |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/mdsio/mdsio_gl.F |
390 |
MDSREADFIELD_3D_GL |
JJ=((jp-1)*nSy+(bj-1))*sNy+J |
|
./pkg/mdsio/mdsio_gl.F |
393 |
MDSREADFIELD_3D_GL |
arr_gl(i,bi,ip,j,bj,jp,k) = global(II,JJ) |
|
./pkg/mdsio/mdsio_gl.F |
492 |
MDSWRITEFIELD_3D_GL |
integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl.F |
590 |
MDSWRITEFIELD_3D_GL |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/mdsio/mdsio_gl.F |
593 |
MDSWRITEFIELD_3D_GL |
JJ=((jp-1)*nSy+(bj-1))*sNy+J |
|
./pkg/mdsio/mdsio_gl.F |
596 |
MDSWRITEFIELD_3D_GL |
global(II,JJ) = arr_gl(i,bi,ip,j,bj,jp,k) |
|
./pkg/mdsio/mdsio_gl.F |
672 |
MDSWRITEFIELD_3D_GL |
do bj=1,nSy |
|
./pkg/mdsio/mdsio_gl.F |
676 |
MDSWRITEFIELD_3D_GL |
jG=bj+(jp-1)*nsy ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl.F |
694 |
MDSWRITEFIELD_3D_GL |
arr(i,j,k,bi,bj)=arr_gl(i,bi,ip,j,bj,jp,k) |
|
./pkg/mdsio/mdsio_gl.F |
702 |
MDSWRITEFIELD_3D_GL |
call MDS_SEG4TORS( j,bi,bj,k,Nr, r4seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
705 |
MDSWRITEFIELD_3D_GL |
call MDS_SEG4TORL( j,bi,bj,k,Nr, r4seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
719 |
MDSWRITEFIELD_3D_GL |
call MDS_SEG8TORS( j,bi,bj,k,Nr, r8seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
722 |
MDSWRITEFIELD_3D_GL |
call MDS_SEG8TORL( j,bi,bj,k,Nr, r8seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
73 |
MDSREADFIELD_3D_GL |
integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl.F |
756 |
MDSWRITEFIELD_3D_GL |
jG=bj+(jp-1)*nsy ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl.F |
763 |
MDSWRITEFIELD_3D_GL |
dimList(2,2)=((jp-1)*nSy+(bj-1))*sNy+1 |
|
./pkg/mdsio/mdsio_gl.F |
764 |
MDSWRITEFIELD_3D_GL |
dimList(3,2)=((jp-1)*nSy+bj)*sNy |
|
./pkg/mdsio/mdsio_gl.F |
860 |
MDSREADFIELD_2D_GL |
integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl_slice.F |
141 |
MDSREADFIELD_XZ_GL |
do bj=1,nSy |
|
./pkg/mdsio/mdsio_gl_slice.F |
146 |
MDSREADFIELD_XZ_GL |
jG=bj+(jp-1)*nsy ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl_slice.F |
188 |
MDSREADFIELD_XZ_GL |
call MDS_SEG4TORS_2D(sNx,oLx,nNz,bi,bj,k,.TRUE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
191 |
MDSREADFIELD_XZ_GL |
call MDS_SEG4TORL_2D(sNx,oLx,nNz,bi,bj,k,.TRUE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
205 |
MDSREADFIELD_XZ_GL |
call MDS_SEG8TORS_2D(sNx,oLx,nNz,bi,bj,k,.TRUE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
208 |
MDSREADFIELD_XZ_GL |
call MDS_SEG8TORL_2D(sNx,oLx,nNz,bi,bj,k,.TRUE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
222 |
MDSREADFIELD_XZ_GL |
arr_gl(ii,bi,ip,bj,jp,k)=arr(ii,k,bi,bj) |
|
./pkg/mdsio/mdsio_gl_slice.F |
313 |
MDSREADFIELD_YZ_GL |
integer ip,jp,iG,jG,irec,bi,bj,jj,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl_slice.F |
381 |
MDSREADFIELD_YZ_GL |
do bj=1,nSy |
|
./pkg/mdsio/mdsio_gl_slice.F |
386 |
MDSREADFIELD_YZ_GL |
jG=bj+(jp-1)*nsy ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl_slice.F |
428 |
MDSREADFIELD_YZ_GL |
call MDS_SEG4TORS_2D(sNy,oLy,nNz,bi,bj,k,.TRUE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
431 |
MDSREADFIELD_YZ_GL |
call MDS_SEG4TORL_2D(sNy,oLy,nNz,bi,bj,k,.TRUE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
445 |
MDSREADFIELD_YZ_GL |
call MDS_SEG8TORS_2D(sNy,oLy,nNz,bi,bj,k,.TRUE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
448 |
MDSREADFIELD_YZ_GL |
call MDS_SEG8TORL_2D(sNy,oLy,nNz,bi,bj,k,.TRUE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
462 |
MDSREADFIELD_YZ_GL |
arr_gl(bi,ip,jj,bj,jp,k)=arr(jj,k,bi,bj) |
|
./pkg/mdsio/mdsio_gl_slice.F |
567 |
MDSWRITEFIELD_XZ_GL |
integer ip,jp,iG,jG,irec,bi,bj,ii,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl_slice.F |
618 |
MDSWRITEFIELD_XZ_GL |
do bj=1,nSy |
|
./pkg/mdsio/mdsio_gl_slice.F |
622 |
MDSWRITEFIELD_XZ_GL |
jG=bj+(jp-1)*nsy ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl_slice.F |
639 |
MDSWRITEFIELD_XZ_GL |
arr(ii,k,bi,bj)=arr_gl(ii,bi,ip,bj,jp,k) |
|
./pkg/mdsio/mdsio_gl_slice.F |
647 |
MDSWRITEFIELD_XZ_GL |
call MDS_SEG4TORS_2D(sNx,oLx,nNz,bi,bj,k,.FALSE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
650 |
MDSWRITEFIELD_XZ_GL |
call MDS_SEG4TORL_2D(sNx,oLx,nNz,bi,bj,k,.FALSE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
664 |
MDSWRITEFIELD_XZ_GL |
call MDS_SEG8TORS_2D(sNx,oLx,nNz,bi,bj,k,.FALSE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
667 |
MDSWRITEFIELD_XZ_GL |
call MDS_SEG8TORL_2D(sNx,oLx,nNz,bi,bj,k,.FALSE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
699 |
MDSWRITEFIELD_XZ_GL |
jG=bj+(jp-1)*nsy ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl_slice.F |
706 |
MDSWRITEFIELD_XZ_GL |
dimList(2,2)=(jp-1)*nSy+bj |
|
./pkg/mdsio/mdsio_gl_slice.F |
707 |
MDSWRITEFIELD_XZ_GL |
dimList(3,2)= jp*nSy+bj |
|
./pkg/mdsio/mdsio_gl_slice.F |
72 |
MDSREADFIELD_XZ_GL |
integer ip,jp,iG,jG,irec,bi,bj,ii,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl_slice.F |
808 |
MDSWRITEFIELD_YZ_GL |
integer ip,jp,iG,jG,irec,bi,bj,jj,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl_slice.F |
859 |
MDSWRITEFIELD_YZ_GL |
do bj=1,nSy |
|
./pkg/mdsio/mdsio_gl_slice.F |
863 |
MDSWRITEFIELD_YZ_GL |
jG=bj+(jp-1)*nsy ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl_slice.F |
880 |
MDSWRITEFIELD_YZ_GL |
arr(jj,k,bi,bj)=arr_gl(bi,ip,jj,bj,jp,k) |
|
./pkg/mdsio/mdsio_gl_slice.F |
888 |
MDSWRITEFIELD_YZ_GL |
call MDS_SEG4TORS_2D(sNy,oLy,nNz,bi,bj,k,.FALSE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
891 |
MDSWRITEFIELD_YZ_GL |
call MDS_SEG4TORL_2D(sNy,oLy,nNz,bi,bj,k,.FALSE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
905 |
MDSWRITEFIELD_YZ_GL |
call MDS_SEG8TORS_2D(sNy,oLy,nNz,bi,bj,k,.FALSE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
908 |
MDSWRITEFIELD_YZ_GL |
call MDS_SEG8TORL_2D(sNy,oLy,nNz,bi,bj,k,.FALSE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
940 |
MDSWRITEFIELD_YZ_GL |
jG=bj+(jp-1)*nsy ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl_slice.F |
947 |
MDSWRITEFIELD_YZ_GL |
dimList(2,2)=((jp-1)*nSy+(bj-1))*sNy+1 |
|
./pkg/mdsio/mdsio_gl_slice.F |
948 |
MDSWRITEFIELD_YZ_GL |
dimList(3,2)=((jp-1)*nSy+bj)*sNy |
|
./pkg/mdsio/mdsio_pass_r4torl.F |
103 |
MDS_PASS_R4TORL |
arrFld(i,j,kLev,1,1) = buffer(i,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_pass_r4torl.F |
112 |
MDS_PASS_R4TORL |
buffer(i,j,k,bi,bj) = arrFld(i,j,kLev,1,1) |
|
./pkg/mdsio/mdsio_pass_r4torl.F |
58 |
MDS_PASS_R4TORL |
INTEGER i,j,k,bi,bj |
|
./pkg/mdsio/mdsio_pass_r4torl.F |
68 |
MDS_PASS_R4TORL |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/mdsio/mdsio_pass_r4torl.F |
74 |
MDS_PASS_R4TORL |
arrFld(i,j,kLev,bi,bj) = buffer(i,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_pass_r4torl.F |
81 |
MDS_PASS_R4TORL |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/mdsio/mdsio_pass_r4torl.F |
87 |
MDS_PASS_R4TORL |
buffer(i,j,k,bi,bj) = arrFld(i,j,kLev,bi,bj) |
|
./pkg/mdsio/mdsio_pass_r4torl.F |
97 |
MDS_PASS_R4TORL |
bj = bjArg |
|
./pkg/mdsio/mdsio_pass_r4tors.F |
103 |
MDS_PASS_R4TORS |
arrFld(i,j,kLev,1,1) = buffer(i,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_pass_r4tors.F |
112 |
MDS_PASS_R4TORS |
buffer(i,j,k,bi,bj) = arrFld(i,j,kLev,1,1) |
|
./pkg/mdsio/mdsio_pass_r4tors.F |
58 |
MDS_PASS_R4TORS |
INTEGER i,j,k,bi,bj |
|
./pkg/mdsio/mdsio_pass_r4tors.F |
68 |
MDS_PASS_R4TORS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/mdsio/mdsio_pass_r4tors.F |
74 |
MDS_PASS_R4TORS |
arrFld(i,j,kLev,bi,bj) = buffer(i,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_pass_r4tors.F |
81 |
MDS_PASS_R4TORS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/mdsio/mdsio_pass_r4tors.F |
87 |
MDS_PASS_R4TORS |
buffer(i,j,k,bi,bj) = arrFld(i,j,kLev,bi,bj) |
|
./pkg/mdsio/mdsio_pass_r4tors.F |
97 |
MDS_PASS_R4TORS |
bj = bjArg |
|
./pkg/mdsio/mdsio_pass_r8torl.F |
103 |
MDS_PASS_R8TORL |
arrFld(i,j,kLev,1,1) = buffer(i,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_pass_r8torl.F |
112 |
MDS_PASS_R8TORL |
buffer(i,j,k,bi,bj) = arrFld(i,j,kLev,1,1) |
|
./pkg/mdsio/mdsio_pass_r8torl.F |
58 |
MDS_PASS_R8TORL |
INTEGER i,j,k,bi,bj |
|
./pkg/mdsio/mdsio_pass_r8torl.F |
68 |
MDS_PASS_R8TORL |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/mdsio/mdsio_pass_r8torl.F |
74 |
MDS_PASS_R8TORL |
arrFld(i,j,kLev,bi,bj) = buffer(i,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_pass_r8torl.F |
81 |
MDS_PASS_R8TORL |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/mdsio/mdsio_pass_r8torl.F |
87 |
MDS_PASS_R8TORL |
buffer(i,j,k,bi,bj) = arrFld(i,j,kLev,bi,bj) |
|
./pkg/mdsio/mdsio_pass_r8torl.F |
97 |
MDS_PASS_R8TORL |
bj = bjArg |
|
./model/src/calc_ivdc.F |
35 |
CALC_IVDC |
INTEGER bi,bj,iMin,iMax,jMin,jMax,K |
|
./model/src/calc_ivdc.F |
51 |
CALC_IVDC |
IVDConvCount(i,j,k,bi,bj) = 1. _d 0 |
|
./model/src/calc_ivdc.F |
53 |
CALC_IVDC |
IVDConvCount(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/calc_ivdc.F |
9 |
CALC_IVDC |
I bi, bj, iMin, iMax, jMin, jMax, K, |
|
./pkg/mdsio/mdsio_pass_r8tors.F |
103 |
MDS_PASS_R8TORS |
arrFld(i,j,kLev,1,1) = buffer(i,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_pass_r8tors.F |
112 |
MDS_PASS_R8TORS |
buffer(i,j,k,bi,bj) = arrFld(i,j,kLev,1,1) |
|
./pkg/mdsio/mdsio_pass_r8tors.F |
58 |
MDS_PASS_R8TORS |
INTEGER i,j,k,bi,bj |
|
./pkg/mdsio/mdsio_pass_r8tors.F |
68 |
MDS_PASS_R8TORS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/mdsio/mdsio_pass_r8tors.F |
74 |
MDS_PASS_R8TORS |
arrFld(i,j,kLev,bi,bj) = buffer(i,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_pass_r8tors.F |
81 |
MDS_PASS_R8TORS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/mdsio/mdsio_pass_r8tors.F |
87 |
MDS_PASS_R8TORS |
buffer(i,j,k,bi,bj) = arrFld(i,j,kLev,bi,bj) |
|
./pkg/mdsio/mdsio_pass_r8tors.F |
97 |
MDS_PASS_R8TORS |
bj = bjArg |
|
./pkg/mdsio/mdsio_read_field.F |
110 |
MDS_READ_FIELD |
INTEGER iG,jG,bi,bj |
|
./pkg/mdsio/mdsio_read_field.F |
391 |
MDS_READ_FIELD |
DO bj=1,nSy |
|
./pkg/mdsio/mdsio_read_field.F |
393 |
MDS_READ_FIELD |
bBij = sNx*sNy*nNz*( bi-1 + (bj-1)*nSx ) |
|
./pkg/mdsio/mdsio_read_field.F |
403 |
MDS_READ_FIELD |
tBy = myYGlobalLo-1 + (bj-1)*sNy |
|
./pkg/mdsio/mdsio_read_field.F |
408 |
MDS_READ_FIELD |
tN = W2_myTileList(bi,bj) |
|
./pkg/mdsio/mdsio_read_field.F |
454 |
MDS_READ_FIELD |
jG=bj+(myYGlobalLo-1)/sNy |
|
./pkg/mdsio/mdsio_read_section.F |
165 |
MDS_READ_SEC_XZ |
DO bj=1,nSy |
|
./pkg/mdsio/mdsio_read_section.F |
170 |
MDS_READ_SEC_XZ |
jG=bj+(myYGlobalLo-1)/sNy |
|
./pkg/mdsio/mdsio_read_section.F |
203 |
MDS_READ_SEC_XZ |
tN = W2_myTileList(bi,bj) |
|
./pkg/mdsio/mdsio_read_section.F |
216 |
MDS_READ_SEC_XZ |
jG = (myYGlobalLo-1)/sNy + (bj-1) |
|
./pkg/mdsio/mdsio_read_section.F |
231 |
MDS_READ_SEC_XZ |
CALL MDS_SEG4TORS_2D( sNx,oLx,kSize,bi,bj,k,.TRUE., |
|
./pkg/mdsio/mdsio_read_section.F |
234 |
MDS_READ_SEC_XZ |
CALL MDS_SEG4TORL_2D( sNx,oLx,kSize,bi,bj,k,.TRUE., |
|
./pkg/mdsio/mdsio_read_section.F |
248 |
MDS_READ_SEC_XZ |
CALL MDS_SEG8TORS_2D(sNx,oLx,kSize,bi,bj,k,.TRUE., |
|
./pkg/mdsio/mdsio_read_section.F |
251 |
MDS_READ_SEC_XZ |
CALL MDS_SEG8TORL_2D(sNx,oLx,kSize,bi,bj,k,.TRUE., |
|
./pkg/mdsio/mdsio_read_section.F |
361 |
MDS_READ_SEC_YZ |
INTEGER iG,jG,irec,bi,bj,k,dUnit,IL,pIL |
|
./pkg/mdsio/mdsio_read_section.F |
443 |
MDS_READ_SEC_YZ |
DO bj=1,nSy |
|
./pkg/mdsio/mdsio_read_section.F |
448 |
MDS_READ_SEC_YZ |
jG=bj+(myYGlobalLo-1)/sNy |
|
./pkg/mdsio/mdsio_read_section.F |
481 |
MDS_READ_SEC_YZ |
tN = W2_myTileList(bi,bj) |
|
./pkg/mdsio/mdsio_read_section.F |
494 |
MDS_READ_SEC_YZ |
jG = myYGlobalLo-1 + (bj-1)*sNy |
|
./pkg/mdsio/mdsio_read_section.F |
509 |
MDS_READ_SEC_YZ |
CALL MDS_SEG4TORS_2D( sNy,oLy,kSize,bi,bj,k,.TRUE., |
|
./pkg/mdsio/mdsio_read_section.F |
512 |
MDS_READ_SEC_YZ |
CALL MDS_SEG4TORL_2D( sNy,oLy,kSize,bi,bj,k,.TRUE., |
|
./pkg/mdsio/mdsio_read_section.F |
526 |
MDS_READ_SEC_YZ |
CALL MDS_SEG8TORS_2D( sNy,oLy,kSize,bi,bj,k,.TRUE., |
|
./pkg/mdsio/mdsio_read_section.F |
529 |
MDS_READ_SEC_YZ |
CALL MDS_SEG8TORL_2D( sNy,oLy,kSize,bi,bj,k,.TRUE., |
|
./pkg/mdsio/mdsio_read_section.F |
84 |
MDS_READ_SEC_XZ |
INTEGER iG,jG,irec,bi,bj,k,dUnit,IL,pIL |
|
./pkg/mdsio/mdsio_read_whalos.F |
90 |
MDS_READ_WHALOS |
integer i,j,k,bi,bj,ii |
|
./pkg/mdsio/mdsio_readvec_loc.F |
144 |
MDS_READVEC_LOC |
IF ( bi.EQ.0 .AND. bj.EQ.0 ) THEN |
|
./pkg/mdsio/mdsio_readvec_loc.F |
164 |
MDS_READVEC_LOC |
jG=bj+(myYGlobalLo-1)/sNy |
|
./pkg/mdsio/mdsio_readvec_loc.F |
16 |
MDS_READVEC_LOC |
I bi, bj, |
|
./pkg/mdsio/mdsio_readvec_loc.F |
67 |
MDS_READVEC_LOC |
INTEGER bi,bj |
|
./model/src/calc_oce_mxlayer.F |
105 |
CALC_OCE_MXLAYER |
hMixLayer(i,j,bi,bj) = rF(1)-R_low(i,j,bi,bj) |
|
./model/src/calc_oce_mxlayer.F |
112 |
CALC_OCE_MXLAYER |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/calc_oce_mxlayer.F |
114 |
CALC_OCE_MXLAYER |
I k, bi, bj, myThid ) |
|
./model/src/calc_oce_mxlayer.F |
118 |
CALC_OCE_MXLAYER |
IF ( k.LE.klowC(i,j,bi,bj) .AND. |
|
./model/src/calc_oce_mxlayer.F |
126 |
CALC_OCE_MXLAYER |
hMixLayer(i,j,bi,bj) = rF(1)-rC(k-1)+tmpFac*drC(k) |
|
./model/src/calc_oce_mxlayer.F |
12 |
CALC_OCE_MXLAYER |
I bi, bj, myTime, myIter, myThid ) |
|
./model/src/calc_oce_mxlayer.F |
145 |
CALC_OCE_MXLAYER |
IF ( klowC(i,j,bi,bj) .GT. 0 ) THEN |
|
./model/src/calc_oce_mxlayer.F |
146 |
CALC_OCE_MXLAYER |
hMixLayer(i,j,bi,bj) = drF(1) |
|
./model/src/calc_oce_mxlayer.F |
149 |
CALC_OCE_MXLAYER |
hMixLayer(i,j,bi,bj) = rF(1) |
|
./model/src/calc_oce_mxlayer.F |
158 |
CALC_OCE_MXLAYER |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/calc_oce_mxlayer.F |
160 |
CALC_OCE_MXLAYER |
I k, bi, bj, myThid ) |
|
./model/src/calc_oce_mxlayer.F |
164 |
CALC_OCE_MXLAYER |
IF ( k.LT.klowC(i,j,bi,bj) |
|
./model/src/calc_oce_mxlayer.F |
178 |
CALC_OCE_MXLAYER |
hMixLayer(i,j,bi,bj) = rF(1)-rF(k+1) |
|
./model/src/calc_oce_mxlayer.F |
195 |
CALC_OCE_MXLAYER |
rhoLoc(i,j)=(hMixSmooth * hMixLayer(i,j,bi,bj) + |
|
./model/src/calc_oce_mxlayer.F |
196 |
CALC_OCE_MXLAYER |
& tmpFac * ( hMixLayer(i-1,j,bi,bj) + |
|
./model/src/calc_oce_mxlayer.F |
197 |
CALC_OCE_MXLAYER |
& hMixLayer(i+1,j,bi,bj) + |
|
./model/src/calc_oce_mxlayer.F |
198 |
CALC_OCE_MXLAYER |
& hMixLayer(i,j-1,bi,bj) + |
|
./model/src/calc_oce_mxlayer.F |
199 |
CALC_OCE_MXLAYER |
& hMixLayer(i,j+1,bi,bj) ) |
|
./model/src/calc_oce_mxlayer.F |
202 |
CALC_OCE_MXLAYER |
& tmpFac * ( maskC(i-1,j,1,bi,bj) + |
|
./model/src/calc_oce_mxlayer.F |
203 |
CALC_OCE_MXLAYER |
& maskC(i+1,j,1,bi,bj) + |
|
./model/src/calc_oce_mxlayer.F |
204 |
CALC_OCE_MXLAYER |
& maskC(i,j-1,1,bi,bj) + |
|
./model/src/calc_oce_mxlayer.F |
205 |
CALC_OCE_MXLAYER |
& maskC(i,j+1,1,bi,bj) ) |
|
./model/src/calc_oce_mxlayer.F |
206 |
CALC_OCE_MXLAYER |
& ) * maskC(i,j,1,bi,bj) |
|
./model/src/calc_oce_mxlayer.F |
211 |
CALC_OCE_MXLAYER |
hMixLayer(i,j,bi,bj) = rhoLoc(i,j) |
|
./model/src/calc_oce_mxlayer.F |
219 |
CALC_OCE_MXLAYER |
& 0, 1, 1, bi, bj, myThid ) |
|
./model/src/calc_oce_mxlayer.F |
42 |
CALC_OCE_MXLAYER |
INTEGER bi, bj |
|
./model/src/calc_oce_mxlayer.F |
97 |
CALC_OCE_MXLAYER |
I bi, bj, 1-OLx, sNx+OLx, 1-OLy, sNy+OLy, 1, 1, |
|
./pkg/mdsio/mdsio_seg4torl.F |
22 |
MDS_SEG4TORL |
INTEGER j,bi,bj,k,nNz |
|
./pkg/mdsio/mdsio_seg4torl.F |
31 |
MDS_SEG4TORL |
arr(ii,j,k,bi,bj)=seg(ii) |
|
./pkg/mdsio/mdsio_seg4torl.F |
35 |
MDS_SEG4TORL |
seg(ii)=arr(ii,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_seg4torl.F |
6 |
MDS_SEG4TORL |
SUBROUTINE MDS_SEG4TORL( j,bi,bj,k,nNz, seg, copyTo, arr ) |
|
./pkg/mdsio/mdsio_seg4tors.F |
22 |
MDS_SEG4TORS |
INTEGER j,bi,bj,k,nNz |
|
./pkg/mdsio/mdsio_seg4tors.F |
31 |
MDS_SEG4TORS |
arr(ii,j,k,bi,bj)=seg(ii) |
|
./pkg/mdsio/mdsio_seg4tors.F |
35 |
MDS_SEG4TORS |
seg(ii)=arr(ii,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_seg4tors.F |
6 |
MDS_SEG4TORS |
SUBROUTINE MDS_SEG4TORS( j,bi,bj,k,nNz, seg, copyTo, arr ) |
|
./pkg/mdsio/mdsio_seg8torl.F |
22 |
MDS_SEG8TORL |
INTEGER j,bi,bj,k,nNz |
|
./pkg/mdsio/mdsio_seg8torl.F |
31 |
MDS_SEG8TORL |
arr(ii,j,k,bi,bj)=seg(ii) |
|
./pkg/mdsio/mdsio_seg8torl.F |
35 |
MDS_SEG8TORL |
seg(ii)=arr(ii,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_seg8torl.F |
6 |
MDS_SEG8TORL |
SUBROUTINE MDS_SEG8TORL( j,bi,bj,k,nNz, seg, copyTo, arr ) |
|
./pkg/mdsio/mdsio_seg8tors.F |
22 |
MDS_SEG8TORS |
INTEGER j,bi,bj,k,nNz |
|
./pkg/mdsio/mdsio_seg8tors.F |
31 |
MDS_SEG8TORS |
arr(ii,j,k,bi,bj)=seg(ii) |
|
./pkg/mdsio/mdsio_seg8tors.F |
35 |
MDS_SEG8TORS |
seg(ii)=arr(ii,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_seg8tors.F |
6 |
MDS_SEG8TORS |
SUBROUTINE MDS_SEG8TORS( j,bi,bj,k,nNz, seg, copyTo, arr ) |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
115 |
MDS_SEG8TORL_2D |
INTEGER sn,ol,nNz,bi,bj,k |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
125 |
MDS_SEG8TORL_2D |
arr(ii,k,bi,bj)=seg(ii) |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
129 |
MDS_SEG8TORL_2D |
seg(ii)=arr(ii,k,bi,bj) |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
138 |
MDS_SEG8TORS_2D |
SUBROUTINE MDS_SEG8TORS_2D(sn,ol,nNz,bi,bj,k,copyTo,seg,arr) |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
156 |
MDS_SEG8TORS_2D |
INTEGER sn,ol,nNz,bi,bj,k |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
15 |
MDS_SEG4TORL_2D |
SUBROUTINE MDS_SEG4TORL_2D(sn,ol,nNz,bi,bj,k,copyTo,seg,arr) |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
166 |
MDS_SEG8TORS_2D |
arr(ii,k,bi,bj)=seg(ii) |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
170 |
MDS_SEG8TORS_2D |
seg(ii)=arr(ii,k,bi,bj) |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
33 |
MDS_SEG4TORL_2D |
INTEGER sn,ol,nNz,bi,bj,k |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
43 |
MDS_SEG4TORL_2D |
arr(ii,k,bi,bj)=seg(ii) |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
47 |
MDS_SEG4TORL_2D |
seg(ii)=arr(ii,k,bi,bj) |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
56 |
MDS_SEG4TORS_2D |
SUBROUTINE MDS_SEG4TORS_2D(sn,ol,nNz,bi,bj,k,copyTo,seg,arr) |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
74 |
MDS_SEG4TORS_2D |
INTEGER sn,ol,nNz,bi,bj,k |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
84 |
MDS_SEG4TORS_2D |
arr(ii,k,bi,bj)=seg(ii) |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
88 |
MDS_SEG4TORS_2D |
seg(ii)=arr(ii,k,bi,bj) |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
97 |
MDS_SEG8TORL_2D |
SUBROUTINE MDS_SEG8TORL_2D(sn,ol,nNz,bi,bj,k,copyTo,seg,arr) |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
157 |
MDS_WR_METAFILES |
DO bj=1,nSy |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
161 |
MDS_WR_METAFILES |
jG=bj+(myYGlobalLo-1)/sNy |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
168 |
MDS_WR_METAFILES |
tBy = myYGlobalLo-1 + (bj-1)*sNy |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
173 |
MDS_WR_METAFILES |
tN = W2_myTileList(bi,bj) |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
97 |
MDS_WR_METAFILES |
INTEGER iG,jG, bi,bj, IL,pIL |
|
./pkg/mdsio/mdsio_write_field.F |
127 |
MDS_WRITE_FIELD |
INTEGER iG,jG,bi,bj |
|
./pkg/mdsio/mdsio_write_field.F |
441 |
MDS_WRITE_FIELD |
DO bj=1,nSy |
|
./pkg/mdsio/mdsio_write_field.F |
443 |
MDS_WRITE_FIELD |
bBij = sNx*sNy*nNz*( bi-1 + (bj-1)*nSx ) |
|
./pkg/mdsio/mdsio_write_field.F |
449 |
MDS_WRITE_FIELD |
tBy = myYGlobalLo-1 + (bj-1)*sNy |
|
./pkg/mdsio/mdsio_write_field.F |
452 |
MDS_WRITE_FIELD |
tN = W2_myTileList(bi,bj) |
|
./pkg/mdsio/mdsio_write_field.F |
498 |
MDS_WRITE_FIELD |
jG=bj+(myYGlobalLo-1)/sNy |
|
./pkg/mdsio/mdsio_write_field.F |
532 |
MDS_WRITE_FIELD |
jG=bj+(myYGlobalLo-1)/sNy |
|
./model/src/calc_phi_hyd.F |
123 |
CALC_PHI_HYD |
act2 = bj - myByLo(myThid) |
|
./model/src/calc_phi_hyd.F |
14 |
CALC_PHI_HYD |
I bi, bj, iMin, iMax, jMin, jMax, k, |
|
./model/src/calc_phi_hyd.F |
167 |
CALC_PHI_HYD |
I tFld(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/calc_phi_hyd.F |
168 |
CALC_PHI_HYD |
I sFld(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/calc_phi_hyd.F |
170 |
CALC_PHI_HYD |
I k, bi, bj, myThid ) |
|
./model/src/calc_phi_hyd.F |
174 |
CALC_PHI_HYD |
alphaRho(i,j) = rhoInSitu(i,j,k,bi,bj) |
|
./model/src/calc_phi_hyd.F |
188 |
CALC_PHI_HYD |
IF ( k.LT.kSurfC(i,j,bi,bj) ) alphaRho(i,j) = 0. _d 0 |
|
./model/src/calc_phi_hyd.F |
194 |
CALC_PHI_HYD |
alphaRho(i,j) = alphaRho(i,j)*maskC(i,j,k,bi,bj) |
|
./model/src/calc_phi_hyd.F |
203 |
CALC_PHI_HYD |
CALL MOM_QUASIHYDROSTATIC(bi,bj,k,uVel,vVel,alphaRho,myThid) |
|
./model/src/calc_phi_hyd.F |
212 |
CALC_PHI_HYD |
phiHydF(i,j) = surfPhiFac*etaH(i,j,bi,bj) |
|
./model/src/calc_phi_hyd.F |
242 |
CALC_PHI_HYD |
IF (k.EQ.kSurfC(i,j,bi,bj)) THEN |
|
./model/src/calc_phi_hyd.F |
243 |
CALC_PHI_HYD |
ddRloc = Ro_surf(i,j,bi,bj)-rC(k) |
|
./model/src/calc_phi_hyd.F |
245 |
CALC_PHI_HYD |
ddRloc = ddRloc + surfPhiFac*etaH(i,j,bi,bj) |
|
./model/src/calc_phi_hyd.F |
288 |
CALC_PHI_HYD |
IF (k.EQ.kSurfC(i,j,bi,bj)) THEN |
|
./model/src/calc_phi_hyd.F |
289 |
CALC_PHI_HYD |
ddRloc = Ro_surf(i,j,bi,bj)-rC(k) |
|
./model/src/calc_phi_hyd.F |
291 |
CALC_PHI_HYD |
ddRloc = ddRloc + surfPhiFac*etaH(i,j,bi,bj) |
|
./model/src/calc_phi_hyd.F |
329 |
CALC_PHI_HYD |
I tFld(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/calc_phi_hyd.F |
330 |
CALC_PHI_HYD |
I sFld(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/calc_phi_hyd.F |
332 |
CALC_PHI_HYD |
I k, bi, bj, myThid ) |
|
./model/src/calc_phi_hyd.F |
340 |
CALC_PHI_HYD |
alphaRho(i,j) = rhoInSitu(i,j,k,bi,bj) |
|
./model/src/calc_phi_hyd.F |
349 |
CALC_PHI_HYD |
alphaRho(i,j)=maskC(i,j,k,bi,bj)* |
|
./model/src/calc_phi_hyd.F |
357 |
CALC_PHI_HYD |
CALL MOM_QUASIHYDROSTATIC(bi,bj,k,uVel,vVel,alphaRho,myThid) |
|
./model/src/calc_phi_hyd.F |
373 |
CALC_PHI_HYD |
IF (k.EQ.kSurfC(i,j,bi,bj)) THEN |
|
./model/src/calc_phi_hyd.F |
374 |
CALC_PHI_HYD |
ddRloc = Ro_surf(i,j,bi,bj)-rC(k) |
|
./model/src/calc_phi_hyd.F |
376 |
CALC_PHI_HYD |
ddRloc = ddRloc + surfPhiFac*etaH(i,j,bi,bj) |
|
./model/src/calc_phi_hyd.F |
412 |
CALC_PHI_HYD |
IF (k.EQ.kSurfC(i,j,bi,bj)) THEN |
|
./model/src/calc_phi_hyd.F |
413 |
CALC_PHI_HYD |
ddRloc = Ro_surf(i,j,bi,bj)-rC(k) |
|
./model/src/calc_phi_hyd.F |
415 |
CALC_PHI_HYD |
ddRloc = ddRloc + surfPhiFac*etaH(i,j,bi,bj) |
|
./model/src/calc_phi_hyd.F |
447 |
CALC_PHI_HYD |
alphaRho(i,j) = ( tFld(i,j,k,bi,bj) |
|
./model/src/calc_phi_hyd.F |
448 |
CALC_PHI_HYD |
& *( sFld(i,j,k,bi,bj)*atm_Rq + oneRL ) |
|
./model/src/calc_phi_hyd.F |
449 |
CALC_PHI_HYD |
& - thetaRef )*maskC(i,j,k,bi,bj) |
|
./model/src/calc_phi_hyd.F |
455 |
CALC_PHI_HYD |
alphaRho(i,j) = rhoInSitu(i,j,k,bi,bj) |
|
./model/src/calc_phi_hyd.F |
463 |
CALC_PHI_HYD |
CALL MOM_QUASIHYDROSTATIC(bi,bj,k,uVel,vVel,alphaRho,myThid) |
|
./model/src/calc_phi_hyd.F |
476 |
CALC_PHI_HYD |
locDepth = Ro_surf(i,j,bi,bj) - R_low(i,j,bi,bj) |
|
./model/src/calc_phi_hyd.F |
478 |
CALC_PHI_HYD |
locDepth = locDepth + surfPhiFac*etaH(i,j,bi,bj) |
|
./model/src/calc_phi_hyd.F |
481 |
CALC_PHI_HYD |
& ( R_low(i,j,bi,bj) + aHybSigmF( k )*fullDepth |
|
./model/src/calc_phi_hyd.F |
485 |
CALC_PHI_HYD |
& ( R_low(i,j,bi,bj) + aHybSigmC( k )*fullDepth |
|
./model/src/calc_phi_hyd.F |
489 |
CALC_PHI_HYD |
& ( R_low(i,j,bi,bj)+ aHybSigmF(k+1)*fullDepth |
|
./model/src/calc_phi_hyd.F |
551 |
CALC_PHI_HYD |
IF (k.EQ.kSurfC(i,j,bi,bj)) THEN |
|
./model/src/calc_phi_hyd.F |
552 |
CALC_PHI_HYD |
ddRloc = Ro_surf(i,j,bi,bj)-rC(k) |
|
./model/src/calc_phi_hyd.F |
554 |
CALC_PHI_HYD |
ddRloc = ddRloc + surfPhiFac*etaH(i,j,bi,bj) |
|
./model/src/calc_phi_hyd.F |
595 |
CALC_PHI_HYD |
IF (k.EQ.kSurfC(i,j,bi,bj)) THEN |
|
./model/src/calc_phi_hyd.F |
596 |
CALC_PHI_HYD |
ddRloc = Ro_surf(i,j,bi,bj)-rC(k) |
|
./model/src/calc_phi_hyd.F |
598 |
CALC_PHI_HYD |
ddRloc = ddRloc + surfPhiFac*etaH(i,j,bi,bj) |
|
./model/src/calc_phi_hyd.F |
626 |
CALC_PHI_HYD |
I k, bi, bj, iMin,iMax, jMin,jMax, |
|
./model/src/calc_phi_hyd.F |
641 |
CALC_PHI_HYD |
I k, bi, bj, iMin,iMax, jMin,jMax, |
|
./model/src/calc_phi_hyd.F |
662 |
CALC_PHI_HYD |
I k, bi, bj, iMin,iMax, jMin,jMax, |
|
./model/src/calc_phi_hyd.F |
669 |
CALC_PHI_HYD |
I k, bi, bj, iMin,iMax, jMin,jMax, |
|
./model/src/calc_phi_hyd.F |
68 |
CALC_PHI_HYD |
INTEGER bi,bj,iMin,iMax,jMin,jMax,k |
|
./pkg/mdsio/mdsio_write_section.F |
151 |
MDS_WRITE_SEC_XZ |
DO bj=1,nSy |
|
./pkg/mdsio/mdsio_write_section.F |
156 |
MDS_WRITE_SEC_XZ |
jG=bj+(myYGlobalLo-1)/sNy |
|
./pkg/mdsio/mdsio_write_section.F |
174 |
MDS_WRITE_SEC_XZ |
tN = W2_myTileList(bi,bj) |
|
./pkg/mdsio/mdsio_write_section.F |
187 |
MDS_WRITE_SEC_XZ |
jG = (myYGlobalLo-1)/sNy + (bj-1) |
|
./pkg/mdsio/mdsio_write_section.F |
198 |
MDS_WRITE_SEC_XZ |
CALL MDS_SEG4TORS_2D( sNx,oLx,kSize,bi,bj,k,.FALSE., |
|
./pkg/mdsio/mdsio_write_section.F |
201 |
MDS_WRITE_SEC_XZ |
CALL MDS_SEG4TORL_2D( sNx,oLx,kSize,bi,bj,k,.FALSE., |
|
./pkg/mdsio/mdsio_write_section.F |
215 |
MDS_WRITE_SEC_XZ |
CALL MDS_SEG8TORS_2D( sNx,oLx,kSize,bi,bj,k,.FALSE., |
|
./pkg/mdsio/mdsio_write_section.F |
218 |
MDS_WRITE_SEC_XZ |
CALL MDS_SEG8TORL_2D( sNx,oLx,kSize,bi,bj,k,.FALSE., |
|
./pkg/mdsio/mdsio_write_section.F |
345 |
MDS_WRITE_SEC_YZ |
INTEGER iG,jG,irec,bi,bj,k,dUnit,IL,pIL |
|
./pkg/mdsio/mdsio_write_section.F |
404 |
MDS_WRITE_SEC_YZ |
DO bj=1,nSy |
|
./pkg/mdsio/mdsio_write_section.F |
409 |
MDS_WRITE_SEC_YZ |
jG=bj+(myYGlobalLo-1)/sNy |
|
./pkg/mdsio/mdsio_write_section.F |
427 |
MDS_WRITE_SEC_YZ |
tN = W2_myTileList(bi,bj) |
|
./pkg/mdsio/mdsio_write_section.F |
440 |
MDS_WRITE_SEC_YZ |
jG = myYGlobalLo-1 + (bj-1)*sNy |
|
./pkg/mdsio/mdsio_write_section.F |
451 |
MDS_WRITE_SEC_YZ |
CALL MDS_SEG4TORS_2D( sNy,oLy,kSize,bi,bj,k,.FALSE., |
|
./pkg/mdsio/mdsio_write_section.F |
454 |
MDS_WRITE_SEC_YZ |
CALL MDS_SEG4TORL_2D( sNy,oLy,kSize,bi,bj,k,.FALSE., |
|
./pkg/mdsio/mdsio_write_section.F |
468 |
MDS_WRITE_SEC_YZ |
CALL MDS_SEG8TORS_2D( sNy,oLy,kSize,bi,bj,k,.FALSE., |
|
./pkg/mdsio/mdsio_write_section.F |
471 |
MDS_WRITE_SEC_YZ |
CALL MDS_SEG8TORL_2D( sNy,oLy,kSize,bi,bj,k,.FALSE., |
|
./pkg/mdsio/mdsio_write_section.F |
91 |
MDS_WRITE_SEC_XZ |
INTEGER iG,jG,irec,bi,bj,k,dUnit,IL,pIL |
|
./pkg/mdsio/mdsio_write_whalos.F |
92 |
MDS_WRITE_WHALOS |
integer i,j,k,bi,bj,ii |
|
./pkg/mdsio/mdsio_writelocal.F |
120 |
MDS_WRITELOCAL |
INTEGER bi, bj |
|
./pkg/mdsio/mdsio_writelocal.F |
288 |
MDS_WRITELOCAL |
bj = bjArg + myByLo(ith) - 1 |
|
./pkg/mdsio/mdsio_writelocal.F |
290 |
MDS_WRITELOCAL |
bBij = sNx*sNy*nNz*( bi-1 + (bj-1)*nSx ) |
|
./pkg/mdsio/mdsio_writelocal.F |
304 |
MDS_WRITELOCAL |
tBy = myYGlobalLo-1 + (bj-1)*sNy |
|
./pkg/mdsio/mdsio_writelocal.F |
307 |
MDS_WRITELOCAL |
tN = W2_myTileList(bi,bj) |
|
./pkg/mdsio/mdsio_writelocal.F |
352 |
MDS_WRITELOCAL |
jG=bj+(myYGlobalLo-1)/sNy |
|
./pkg/mdsio/mdsio_writelocal.F |
386 |
MDS_WRITELOCAL |
jG=bj+(myYGlobalLo-1)/sNy |
|
./pkg/mdsio/mdsio_writevec_loc.F |
156 |
MDS_WRITEVEC_LOC |
IF ( bi.EQ.0 .AND. bj.EQ.0 ) THEN |
|
./pkg/mdsio/mdsio_writevec_loc.F |
162 |
MDS_WRITEVEC_LOC |
jG=bj+(myYGlobalLo-1)/sNy |
|
./pkg/mdsio/mdsio_writevec_loc.F |
16 |
MDS_WRITEVEC_LOC |
I bi, bj, |
|
./pkg/mdsio/mdsio_writevec_loc.F |
216 |
MDS_WRITEVEC_LOC |
IF ( bi.EQ.0 .AND. bj.EQ.0 ) THEN |
|
./pkg/mdsio/mdsio_writevec_loc.F |
228 |
MDS_WRITEVEC_LOC |
jG=bj+(myYGlobalLo-1)/sNy |
|
./pkg/mdsio/mdsio_writevec_loc.F |
68 |
MDS_WRITEVEC_LOC |
INTEGER bi,bj |
|
./pkg/mdsio/mdsio_writevec_loc.F |
96 |
MDS_WRITEVEC_LOC |
IF ( myProcId.EQ.0 .OR. bi.NE.0 .OR. bj.NE.0 ) THEN |
|
./model/src/calc_r_star.F |
105 |
CALC_R_STAR |
IF (kSurfC(i,j,bi,bj).LE.Nr ) THEN |
|
./model/src/calc_r_star.F |
106 |
CALC_R_STAR |
rStarFacC(i,j,bi,bj) = |
|
./model/src/calc_r_star.F |
107 |
CALC_R_STAR |
& (etaFld(i,j,bi,bj)+Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj)) |
|
./model/src/calc_r_star.F |
108 |
CALC_R_STAR |
& *recip_Rcol(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
110 |
CALC_R_STAR |
rStarFacC(i,j,bi,bj) = 1. |
|
./model/src/calc_r_star.F |
118 |
CALC_R_STAR |
IF ( kSurfW(i,j,bi,bj).LE.Nr ) THEN |
|
./model/src/calc_r_star.F |
119 |
CALC_R_STAR |
tmpfldW = rSurfW(i,j,bi,bj) - rLowW(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
120 |
CALC_R_STAR |
rStarFacW(i,j,bi,bj) = |
|
./model/src/calc_r_star.F |
121 |
CALC_R_STAR |
& ( 0.5 _d 0 *( etaFld(i-1,j,bi,bj)*rA(i-1,j,bi,bj) |
|
./model/src/calc_r_star.F |
122 |
CALC_R_STAR |
& +etaFld(i,j,bi,bj)*rA(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
123 |
CALC_R_STAR |
& )*recip_rAw(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
126 |
CALC_R_STAR |
rStarFacW(i,j,bi,bj) = 1. |
|
./model/src/calc_r_star.F |
132 |
CALC_R_STAR |
IF ( kSurfS(i,j,bi,bj).LE.Nr ) THEN |
|
./model/src/calc_r_star.F |
133 |
CALC_R_STAR |
tmpfldS = rSurfS(i,j,bi,bj) - rLowS(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
134 |
CALC_R_STAR |
rStarFacS(i,j,bi,bj) = |
|
./model/src/calc_r_star.F |
135 |
CALC_R_STAR |
& ( 0.5 _d 0 *( etaFld(i,j-1,bi,bj)*rA(i,j-1,bi,bj) |
|
./model/src/calc_r_star.F |
136 |
CALC_R_STAR |
& +etaFld(i,j,bi,bj)*rA(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
137 |
CALC_R_STAR |
& )*recip_rAs(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
140 |
CALC_R_STAR |
rStarFacS(i,j,bi,bj) = 1. |
|
./model/src/calc_r_star.F |
148 |
CALC_R_STAR |
IF ( kSurfW(i,j,bi,bj).LE.Nr ) THEN |
|
./model/src/calc_r_star.F |
149 |
CALC_R_STAR |
tmpfldW = rSurfW(i,j,bi,bj) - rLowW(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
150 |
CALC_R_STAR |
rStarFacW(i,j,bi,bj) = |
|
./model/src/calc_r_star.F |
151 |
CALC_R_STAR |
& ( 0.5 _d 0 *( etaFld(i-1,j,bi,bj) + etaFld(i,j,bi,bj) ) |
|
./model/src/calc_r_star.F |
154 |
CALC_R_STAR |
rStarFacW(i,j,bi,bj) = 1. |
|
./model/src/calc_r_star.F |
160 |
CALC_R_STAR |
IF ( kSurfS(i,j,bi,bj).LE.Nr ) THEN |
|
./model/src/calc_r_star.F |
161 |
CALC_R_STAR |
tmpfldS = rSurfS(i,j,bi,bj) - rLowS(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
162 |
CALC_R_STAR |
rStarFacS(i,j,bi,bj) = |
|
./model/src/calc_r_star.F |
163 |
CALC_R_STAR |
& ( 0.5 _d 0 *( etaFld(i,j-1,bi,bj) + etaFld(i,j,bi,bj) ) |
|
./model/src/calc_r_star.F |
166 |
CALC_R_STAR |
rStarFacS(i,j,bi,bj) = 1. |
|
./model/src/calc_r_star.F |
174 |
CALC_R_STAR |
I bi, bj, etaFld, |
|
./model/src/calc_r_star.F |
188 |
CALC_R_STAR |
IF ( rStarFacC(i,j,bi,bj).LT.hFacInf ) THEN |
|
./model/src/calc_r_star.F |
191 |
CALC_R_STAR |
IF ( rStarFacW(i,j,bi,bj).LT.hFacInf ) THEN |
|
./model/src/calc_r_star.F |
194 |
CALC_R_STAR |
IF ( rStarFacS(i,j,bi,bj).LT.hFacInf ) THEN |
|
./model/src/calc_r_star.F |
197 |
CALC_R_STAR |
IF ( rStarFacC(i,j,bi,bj).GT.hFacSup ) THEN |
|
./model/src/calc_r_star.F |
199 |
CALC_R_STAR |
maxhFacC = max(rStarFacC(i,j,bi,bj),maxhFacC) |
|
./model/src/calc_r_star.F |
208 |
CALC_R_STAR |
IF ( rStarFacC(i,j,bi,bj).LT.hFacInf ) THEN |
|
./model/src/calc_r_star.F |
211 |
CALC_R_STAR |
& rStarFacC(i,j,bi,bj), |
|
./model/src/calc_r_star.F |
212 |
CALC_R_STAR |
& Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj), |
|
./model/src/calc_r_star.F |
213 |
CALC_R_STAR |
& etaFld(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
215 |
CALC_R_STAR |
IF ( rStarFacW(i,j,bi,bj).LT.hFacInf ) THEN |
|
./model/src/calc_r_star.F |
216 |
CALC_R_STAR |
tmpfldW = rSurfW(i,j,bi,bj) - rLowW(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
219 |
CALC_R_STAR |
& rStarFacW(i,j,bi,bj), tmpfldW, |
|
./model/src/calc_r_star.F |
220 |
CALC_R_STAR |
& etaFld(i-1,j,bi,bj), etaFld(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
222 |
CALC_R_STAR |
IF ( rStarFacS(i,j,bi,bj).LT.hFacInf ) THEN |
|
./model/src/calc_r_star.F |
223 |
CALC_R_STAR |
tmpfldS = rSurfS(i,j,bi,bj) - rLowS(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
226 |
CALC_R_STAR |
& rStarFacS(i,j,bi,bj), tmpfldS, |
|
./model/src/calc_r_star.F |
227 |
CALC_R_STAR |
& etaFld(i,j-1,bi,bj), etaFld(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
234 |
CALC_R_STAR |
& ' pts : bi,bj,Thid,Iter=',bi,bj,myThid,myIter |
|
./model/src/calc_r_star.F |
238 |
CALC_R_STAR |
& ' pts : bi,bj,Thid,Iter=',bi,bj,myThid,myIter |
|
./model/src/calc_r_star.F |
242 |
CALC_R_STAR |
& ' pts : bi,bj,Thid,Iter=',bi,bj,myThid,myIter |
|
./model/src/calc_r_star.F |
253 |
CALC_R_STAR |
& ' pts : bi,bj,Thid,Iter=',bi,bj,myThid,myIter |
|
./model/src/calc_r_star.F |
267 |
CALC_R_STAR |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./model/src/calc_r_star.F |
281 |
CALC_R_STAR |
IF (kSurfC(1-i,1-j,bi,bj).GT.Nr) rStarFacC(1-i,1-j,bi,bj)= 1. |
|
./model/src/calc_r_star.F |
282 |
CALC_R_STAR |
IF (kSurfC(ii, 1-j,bi,bj).GT.Nr) rStarFacC(ii, 1-j,bi,bj)= 1. |
|
./model/src/calc_r_star.F |
283 |
CALC_R_STAR |
IF (kSurfC(1-i,jj, bi,bj).GT.Nr) rStarFacC(1-i,jj, bi,bj)= 1. |
|
./model/src/calc_r_star.F |
284 |
CALC_R_STAR |
IF (kSurfC(ii, jj, bi,bj).GT.Nr) rStarFacC(ii, jj, bi,bj)= 1. |
|
./model/src/calc_r_star.F |
286 |
CALC_R_STAR |
IF (kSurfW(1-i,1-j,bi,bj).GT.Nr) rStarFacW(1-i,1-j,bi,bj)= 1. |
|
./model/src/calc_r_star.F |
287 |
CALC_R_STAR |
IF (kSurfW(ii, 1-j,bi,bj).GT.Nr) rStarFacW(ii, 1-j,bi,bj)= 1. |
|
./model/src/calc_r_star.F |
288 |
CALC_R_STAR |
IF (kSurfW(1-i,jj, bi,bj).GT.Nr) rStarFacW(1-i,jj, bi,bj)= 1. |
|
./model/src/calc_r_star.F |
289 |
CALC_R_STAR |
IF (kSurfW(ii, jj, bi,bj).GT.Nr) rStarFacW(ii, jj, bi,bj)= 1. |
|
./model/src/calc_r_star.F |
291 |
CALC_R_STAR |
IF (kSurfS(1-i,1-j,bi,bj).GT.Nr) rStarFacS(1-i,1-j,bi,bj)= 1. |
|
./model/src/calc_r_star.F |
292 |
CALC_R_STAR |
IF (kSurfS(ii, 1-j,bi,bj).GT.Nr) rStarFacS(ii, 1-j,bi,bj)= 1. |
|
./model/src/calc_r_star.F |
293 |
CALC_R_STAR |
IF (kSurfS(1-i,jj, bi,bj).GT.Nr) rStarFacS(1-i,jj, bi,bj)= 1. |
|
./model/src/calc_r_star.F |
294 |
CALC_R_STAR |
IF (kSurfS(ii, jj, bi,bj).GT.Nr) rStarFacS(ii, jj, bi,bj)= 1. |
|
./model/src/calc_r_star.F |
303 |
CALC_R_STAR |
rStarDhCDt(i,j,bi,bj)=(rStarFacC(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
304 |
CALC_R_STAR |
& -rStarExpC(i,j,bi,bj))/deltaTFreeSurf |
|
./model/src/calc_r_star.F |
305 |
CALC_R_STAR |
rStarDhWDt(i,j,bi,bj)=(rStarFacW(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
306 |
CALC_R_STAR |
& -rStarExpW(i,j,bi,bj))/deltaTFreeSurf |
|
./model/src/calc_r_star.F |
307 |
CALC_R_STAR |
rStarDhSDt(i,j,bi,bj)=(rStarFacS(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
308 |
CALC_R_STAR |
& -rStarExpS(i,j,bi,bj))/deltaTFreeSurf |
|
./model/src/calc_r_star.F |
309 |
CALC_R_STAR |
rStarExpC(i,j,bi,bj) = rStarFacC(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
310 |
CALC_R_STAR |
& / rStarExpC(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
311 |
CALC_R_STAR |
rStarExpW(i,j,bi,bj) = rStarFacW(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
312 |
CALC_R_STAR |
& / rStarExpW(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
313 |
CALC_R_STAR |
rStarExpS(i,j,bi,bj) = rStarFacS(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
314 |
CALC_R_STAR |
& / rStarExpS(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
321 |
CALC_R_STAR |
pStarFacK(i,j,bi,bj) = rStarFacC(i,j,bi,bj)**atm_kappa |
|
./model/src/calc_r_star.F |
328 |
CALC_R_STAR |
pStarFacK(i,j,bi,bj) = 1. _d 0 |
|
./model/src/calc_r_star.F |
53 |
CALC_R_STAR |
INTEGER i,j,bi,bj |
|
./model/src/calc_r_star.F |
79 |
CALC_R_STAR |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./model/src/calc_r_star.F |
85 |
CALC_R_STAR |
rStarFacNm1C(i,j,bi,bj) = rStarFacC(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
86 |
CALC_R_STAR |
rStarFacNm1S(i,j,bi,bj) = rStarFacS(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
87 |
CALC_R_STAR |
rStarFacNm1W(i,j,bi,bj) = rStarFacW(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
96 |
CALC_R_STAR |
rStarExpC(i,j,bi,bj) = rStarFacC(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
97 |
CALC_R_STAR |
rStarExpW(i,j,bi,bj) = rStarFacW(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
98 |
CALC_R_STAR |
rStarExpS(i,j,bi,bj) = rStarFacS(i,j,bi,bj) |
|
./pkg/mnc/mnc_cw_cvars.F |
100 |
MNC_CW_WRITE_CVAR |
rtmp(i) = xC(i,1,bi,bj) |
|
./pkg/mnc/mnc_cw_cvars.F |
136 |
MNC_CW_WRITE_CVAR |
rtmp(i) = xG(i,1,bi,bj) |
|
./pkg/mnc/mnc_cw_cvars.F |
16 |
MNC_CW_WRITE_CVAR |
I bi, bj, |
|
./pkg/mnc/mnc_cw_cvars.F |
172 |
MNC_CW_WRITE_CVAR |
rtmp(i) = xC(i,1,bi,bj) |
|
./pkg/mnc/mnc_cw_cvars.F |
210 |
MNC_CW_WRITE_CVAR |
rtmp(i) = yC(1,i,bi,bj) |
|
./pkg/mnc/mnc_cw_cvars.F |
246 |
MNC_CW_WRITE_CVAR |
rtmp(i) = yG(1,i,bi,bj) |
|
./pkg/mnc/mnc_cw_cvars.F |
282 |
MNC_CW_WRITE_CVAR |
rtmp(i) = yC(1,i-OLy,bi,bj) |
|
./pkg/mnc/mnc_cw_cvars.F |
41 |
MNC_CW_WRITE_CVAR |
integer fid, did, bi,bj |
|
./pkg/mnc/mnc_cw_cvars.F |
68 |
MNC_CW_WRITE_CVAR |
xtmin = exch2_tbasex(W2_myTileList(bi,bj)) |
|
./pkg/mnc/mnc_cw_cvars.F |
69 |
MNC_CW_WRITE_CVAR |
ytmin = exch2_tbasey(W2_myTileList(bi,bj)) |
|
./pkg/mnc/mnc_cw_cvars.F |
77 |
MNC_CW_WRITE_CVAR |
ytmin = sNy * ( bj+(myYGlobalLo-1)/sNy - 1 ) |
|
./pkg/mnc/mnc_cw_model_attr.F |
13 |
MNC_CW_SET_GATTR |
I bi, bj, tnum, |
|
./pkg/mnc/mnc_cw_model_attr.F |
36 |
MNC_CW_SET_GATTR |
integer myThid, bi,bj, tnum |
|
./pkg/mnc/mnc_cw_model_attr.F |
83 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_INT(fname,'bj', 1, bj, myThid) |
|
./pkg/mnc/mnc_cwrapper.F |
606 |
MNC_CW_GET_TILE_NUM |
I bi, bj, |
|
./pkg/mnc/mnc_cwrapper.F |
622 |
MNC_CW_GET_TILE_NUM |
integer myThid, bi,bj, uniq_tnum |
|
./pkg/mnc/mnc_cwrapper.F |
633 |
MNC_CW_GET_TILE_NUM |
uniq_tnum = W2_myTileList(bi,bj) |
|
./pkg/mnc/mnc_cwrapper.F |
639 |
MNC_CW_GET_TILE_NUM |
jG = bj+(myYGlobalLo-1)/sNy |
|
./pkg/mnc/mnc_cwrapper.F |
656 |
MNC_CW_GET_FACE_NUM |
I bi, bj, |
|
./pkg/mnc/mnc_cwrapper.F |
672 |
MNC_CW_GET_FACE_NUM |
integer myThid, bi,bj, uniq_fnum |
|
./pkg/mnc/mnc_cwrapper.F |
677 |
MNC_CW_GET_FACE_NUM |
uniq_fnum = exch2_myFace( W2_myTileList(bi,bj) ) |
|
./pkg/mnc/mnc_cwrapper.F |
695 |
MNC_CW_GET_XYFO |
I bi, bj, |
|
./pkg/mnc/mnc_cwrapper.F |
711 |
MNC_CW_GET_XYFO |
integer myThid, bi,bj, ixoff,iyoff |
|
./pkg/mnc/mnc_cwrapper.F |
721 |
MNC_CW_GET_XYFO |
uniq_tnum = W2_myTileList(bi,bj) |
|
./pkg/mnc/mnc_cwrapper.F |
732 |
MNC_CW_GET_XYFO |
iyoff = myYGlobalLo + bj * sNy |
|
./pkg/mnc/mnc_dim.F |
154 |
MNC_DIM_INIT_ALL_CV |
& mnc_f_info(indf,2), idd, bi, bj, myThid) |
|
./pkg/mnc/mnc_dim.F |
69 |
MNC_DIM_INIT_ALL_CV |
I bi,bj, |
|
./pkg/mnc/mnc_dim.F |
82 |
MNC_DIM_INIT_ALL_CV |
integer myThid, dlen, bi,bj |
|
./model/src/calc_surf_dr.F |
103 |
CALC_SURF_DR |
& hfacC(i,j,ks,bi,bj), hFactmp, etaFld(i,j,bi,bj) |
|
./model/src/calc_surf_dr.F |
114 |
CALC_SURF_DR |
& + rA(i,j,bi,bj)*(Rmin_surf(i,j,bi,bj)-rSurftmp(i,j)) |
|
./model/src/calc_surf_dr.F |
116 |
CALC_SURF_DR |
rSurftmp(i,j) = Rmin_surf(i,j,bi,bj) |
|
./model/src/calc_surf_dr.F |
121 |
CALC_SURF_DR |
hFac_surfC(i,j,bi,bj) = h0FacC(i,j,ks,bi,bj) |
|
./model/src/calc_surf_dr.F |
122 |
CALC_SURF_DR |
& + ( rSurftmp(i,j) - Ro_surf(i,j,bi,bj) |
|
./model/src/calc_surf_dr.F |
123 |
CALC_SURF_DR |
& )*recip_drF(ks)*maskC(i,j,ks,bi,bj) |
|
./model/src/calc_surf_dr.F |
127 |
CALC_SURF_DR |
& hFac_surfC(i,j,bi,bj).GT.hFacSup ) THEN |
|
./model/src/calc_surf_dr.F |
131 |
CALC_SURF_DR |
& ' i,j,k,bi,bj,Thid,Iter=',i,j,ks,bi,bj,myThid,myIter |
|
./model/src/calc_surf_dr.F |
133 |
CALC_SURF_DR |
& 'hFac_n-1,hFac_n,eta =', hfacC(i,j,ks,bi,bj), |
|
./model/src/calc_surf_dr.F |
134 |
CALC_SURF_DR |
& hFac_surfC(i,j,bi,bj), etaFld(i,j,bi,bj) |
|
./model/src/calc_surf_dr.F |
147 |
CALC_SURF_DR |
ks = kSurfW(i,j,bi,bj) |
|
./model/src/calc_surf_dr.F |
158 |
CALC_SURF_DR |
hFac_surfW(i,j,bi,bj) = h0FacW(i,j,ks,bi,bj) |
|
./model/src/calc_surf_dr.F |
160 |
CALC_SURF_DR |
& - MIN( Ro_surf(i-1,j,bi,bj), Ro_surf(i,j,bi,bj) ) |
|
./model/src/calc_surf_dr.F |
161 |
CALC_SURF_DR |
& )*recip_drF(ks)*maskW(i,j,ks,bi,bj) |
|
./model/src/calc_surf_dr.F |
168 |
CALC_SURF_DR |
ks = kSurfS(i,j,bi,bj) |
|
./model/src/calc_surf_dr.F |
179 |
CALC_SURF_DR |
hFac_surfS(i,j,bi,bj) = h0FacS(i,j,ks,bi,bj) |
|
./model/src/calc_surf_dr.F |
181 |
CALC_SURF_DR |
& - MIN( Ro_surf(i,j-1,bi,bj), Ro_surf(i,j,bi,bj) ) |
|
./model/src/calc_surf_dr.F |
182 |
CALC_SURF_DR |
& )*recip_drF(ks)*maskS(i,j,ks,bi,bj) |
|
./model/src/calc_surf_dr.F |
191 |
CALC_SURF_DR |
I bi, bj, etaFld, |
|
./model/src/calc_surf_dr.F |
51 |
CALC_SURF_DR |
INTEGER i,j,bi,bj |
|
./model/src/calc_surf_dr.F |
66 |
CALC_SURF_DR |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./model/src/calc_surf_dr.F |
72 |
CALC_SURF_DR |
hFac_surfNm1C(i,j,bi,bj) = hFac_surfC(i,j,bi,bj) |
|
./model/src/calc_surf_dr.F |
73 |
CALC_SURF_DR |
hFac_surfNm1S(i,j,bi,bj) = hFac_surfS(i,j,bi,bj) |
|
./model/src/calc_surf_dr.F |
74 |
CALC_SURF_DR |
hFac_surfNm1W(i,j,bi,bj) = hFac_surfW(i,j,bi,bj) |
|
./model/src/calc_surf_dr.F |
83 |
CALC_SURF_DR |
rSurftmp(i,j) = Ro_surf(i,j,bi,bj)+etaFld(i,j,bi,bj) |
|
./model/src/calc_surf_dr.F |
84 |
CALC_SURF_DR |
ks = kSurfC(i,j,bi,bj) |
|
./model/src/calc_surf_dr.F |
86 |
CALC_SURF_DR |
IF ( rSurftmp(i,j).LT.Rmin_surf(i,j,bi,bj) ) THEN |
|
./model/src/calc_surf_dr.F |
90 |
CALC_SURF_DR |
hFactmp = h0FacC(i,j,ks,bi,bj) |
|
./model/src/calc_surf_dr.F |
91 |
CALC_SURF_DR |
& + ( rSurftmp(i,j) - Ro_surf(i,j,bi,bj) )*recip_drF(ks) |
|
./model/src/calc_surf_dr.F |
95 |
CALC_SURF_DR |
& ' i,j,k,bi,bj,Thid,Iter=',i,j,ks,bi,bj,myThid,myIter |
|
./model/src/calc_surf_dr.F |
99 |
CALC_SURF_DR |
& ' i,j,k,bi,bj,Thid,Iter=',i,j,ks,bi,bj,myThid,myIter |
|
./model/src/calc_viscosity.F |
105 |
CALC_VISCOSITY |
I bi,bj, iMin,iMax,jMin,jMax, k, |
|
./model/src/calc_viscosity.F |
11 |
CALC_VISCOSITY |
I bi,bj, iMin,iMax,jMin,jMax, |
|
./model/src/calc_viscosity.F |
134 |
CALC_VISCOSITY |
IF ( k.GT.kSurfW(i,j,bi,bj) .AND. |
|
./model/src/calc_viscosity.F |
135 |
CALC_VISCOSITY |
& k.LE.MIN( kLowC(i,j,bi,bj), kLowC(i-1,j,bi,bj) ) |
|
./model/src/calc_viscosity.F |
138 |
CALC_VISCOSITY |
& *twoRL/(hFacW(i,j,km,bi,bj)+hFacW(i,j,k,bi,bj)) |
|
./model/src/calc_viscosity.F |
144 |
CALC_VISCOSITY |
IF ( k.GT.kSurfS(i,j,bi,bj) .AND. |
|
./model/src/calc_viscosity.F |
145 |
CALC_VISCOSITY |
& k.LE.MIN( kLowC(i,j,bi,bj), kLowC(i,j-1,bi,bj) ) |
|
./model/src/calc_viscosity.F |
148 |
CALC_VISCOSITY |
& *twoRL/(hFacS(i,j,km,bi,bj)+hFacS(i,j,k,bi,bj)) |
|
./model/src/calc_viscosity.F |
171 |
CALC_VISCOSITY |
IF ( k.EQ.MIN( kLowC(i,j,bi,bj), kLowC(i-1,j,bi,bj) ) |
|
./model/src/calc_viscosity.F |
172 |
CALC_VISCOSITY |
& .AND. k.GT.kSurfW(i,j,bi,bj) ) THEN |
|
./model/src/calc_viscosity.F |
173 |
CALC_VISCOSITY |
tmpFac(i,j) = pC_kFac*_recip_hFacW(i,j,k,bi,bj) |
|
./model/src/calc_viscosity.F |
214 |
CALC_VISCOSITY |
IF ( k.EQ.MIN( kLowC(i,j,bi,bj), kLowC(i,j-1,bi,bj) ) |
|
./model/src/calc_viscosity.F |
215 |
CALC_VISCOSITY |
& .AND. k.GT.kSurfS(i,j,bi,bj) ) THEN |
|
./model/src/calc_viscosity.F |
216 |
CALC_VISCOSITY |
tmpFac(i,j) = pC_kFac*_recip_hFacS(i,j,k,bi,bj) |
|
./model/src/calc_viscosity.F |
261 |
CALC_VISCOSITY |
IF ( km.EQ.kSurfW(i,j,bi,bj) .AND. |
|
./model/src/calc_viscosity.F |
262 |
CALC_VISCOSITY |
& km.LT.MIN( kLowC(i,j,bi,bj), kLowC(i-1,j,bi,bj) ) |
|
./model/src/calc_viscosity.F |
264 |
CALC_VISCOSITY |
tmpFac(i,j) = pC_kFac*_recip_hFacW(i,j,km,bi,bj) |
|
./model/src/calc_viscosity.F |
305 |
CALC_VISCOSITY |
IF ( km.EQ.kSurfS(i,j,bi,bj) .AND. |
|
./model/src/calc_viscosity.F |
306 |
CALC_VISCOSITY |
& km.LT.MIN( kLowC(i,j,bi,bj), kLowC(i,j-1,bi,bj) ) |
|
./model/src/calc_viscosity.F |
308 |
CALC_VISCOSITY |
tmpFac(i,j) = pC_kFac*_recip_hFacS(i,j,km,bi,bj) |
|
./model/src/calc_viscosity.F |
39 |
CALC_VISCOSITY |
INTEGER bi,bj |
|
./model/src/calc_viscosity.F |
69 |
CALC_VISCOSITY |
I bi,bj, iMin,iMax,jMin,jMax, k, |
|
./model/src/calc_viscosity.F |
78 |
CALC_VISCOSITY |
I bi,bj, iMin,iMax,jMin,jMax, k, |
|
./model/src/calc_viscosity.F |
87 |
CALC_VISCOSITY |
I bi,bj, iMin,iMax,jMin,jMax, k, |
|
./model/src/calc_viscosity.F |
96 |
CALC_VISCOSITY |
I bi,bj, iMin,iMax,jMin,jMax, k, |
|
./pkg/mom_common/mom_calc_3d_strain.F |
103 |
MOM_CALC_3D_STRAIN |
& *( maskp1*wVel( i , j ,kp1,bi,bj)-wVel( i , j , k ,bi,bj) ) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
111 |
MOM_CALC_3D_STRAIN |
& recip_dyU(i,j,bi,bj) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
112 |
MOM_CALC_3D_STRAIN |
& *( uVel( i , j , k ,bi,bj)-uVel( i ,j-1, k ,bi,bj) ) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
113 |
MOM_CALC_3D_STRAIN |
& +recip_dxV(i,j,bi,bj) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
114 |
MOM_CALC_3D_STRAIN |
& *( vVel( i , j , k ,bi,bj)-vVel(i-1, j , k ,bi,bj) ) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
133 |
MOM_CALC_3D_STRAIN |
& *( uVel( i , j , k ,bi,bj)*twoRL ) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
134 |
MOM_CALC_3D_STRAIN |
& +recip_dxC(i,j,bi,bj) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
135 |
MOM_CALC_3D_STRAIN |
& *( wVel( i , j , k ,bi,bj)-wVel(i-1, j , k ,bi,bj) ) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
13 |
MOM_CALC_3D_STRAIN |
I bi, bj, myThid ) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
143 |
MOM_CALC_3D_STRAIN |
& *( vVel( i , j , k ,bi,bj)*twoRL ) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
144 |
MOM_CALC_3D_STRAIN |
& +recip_dyC(i,j,bi,bj) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
145 |
MOM_CALC_3D_STRAIN |
& *( wVel( i , j , k ,bi,bj)-wVel( i ,j-1, k ,bi,bj) ) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
155 |
MOM_CALC_3D_STRAIN |
& *( uVel( i , j , k ,bi,bj)-uVel( i , j ,k-1 ,bi,bj) ) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
156 |
MOM_CALC_3D_STRAIN |
& +recip_dxC(i,j,bi,bj) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
157 |
MOM_CALC_3D_STRAIN |
& *( wVel( i , j , k ,bi,bj)-wVel(i-1, j , k ,bi,bj) ) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
166 |
MOM_CALC_3D_STRAIN |
& *( vVel( i , j , k ,bi,bj)-vVel( i , j ,k-1,bi,bj) ) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
167 |
MOM_CALC_3D_STRAIN |
& +recip_dyC(i,j,bi,bj) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
168 |
MOM_CALC_3D_STRAIN |
& *( wVel( i , j , k ,bi,bj)-wVel( i ,j-1, k ,bi,bj) ) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
178 |
MOM_CALC_3D_STRAIN |
& *maskW(i,j-1,k,bi,bj)*maskW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
185 |
MOM_CALC_3D_STRAIN |
& *maskW(i,j,k-1,bi,bj)*maskW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
191 |
MOM_CALC_3D_STRAIN |
& *maskS(i,j,k-1,bi,bj)*maskS(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
218 |
MOM_CALC_3D_STRAIN |
& *( 0. _d 0 - uVel( i , j ,k-1 ,bi,bj) ) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
228 |
MOM_CALC_3D_STRAIN |
& *( 0. _d 0 - vVel( i , j ,k-1,bi,bj) ) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
31 |
MOM_CALC_3D_STRAIN |
INTEGER bi, bj |
|
./pkg/mom_common/mom_calc_3d_strain.F |
86 |
MOM_CALC_3D_STRAIN |
str11(i,j,k) = recip_dxF(i,j,bi,bj) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
87 |
MOM_CALC_3D_STRAIN |
& *( uVel(i+1, j , k ,bi,bj)-uVel( i , j , k ,bi,bj) ) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
94 |
MOM_CALC_3D_STRAIN |
str22(i,j,k) = recip_dyF(i,j,bi,bj) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
95 |
MOM_CALC_3D_STRAIN |
& *( vVel( i ,j+1, k ,bi,bj)-vVel( i , j , k ,bi,bj) ) |
|
./pkg/mom_common/mom_calc_absvort3.F |
24 |
MOM_CALC_ABSVORT3 |
INTEGER bi,bj,k |
|
./pkg/mom_common/mom_calc_absvort3.F |
47 |
MOM_CALC_ABSVORT3 |
& fCoriG(i,j,bi,bj)*useCoriolisFac |
|
./pkg/mom_common/mom_calc_absvort3.F |
7 |
MOM_CALC_ABSVORT3 |
I bi,bj,k, |
|
./pkg/mom_common/mom_calc_hdiv.F |
24 |
MOM_CALC_HDIV |
INTEGER bi,bj,k,hDivScheme |
|
./pkg/mom_common/mom_calc_hdiv.F |
39 |
MOM_CALC_HDIV |
& uFld(i+1, j )*dyG(i+1, j ,bi,bj) |
|
./pkg/mom_common/mom_calc_hdiv.F |
40 |
MOM_CALC_HDIV |
& -uFld( i , j )*dyG( i , j ,bi,bj) |
|
./pkg/mom_common/mom_calc_hdiv.F |
41 |
MOM_CALC_HDIV |
& +vFld( i ,j+1)*dxG( i ,j+1,bi,bj) |
|
./pkg/mom_common/mom_calc_hdiv.F |
42 |
MOM_CALC_HDIV |
& -vFld( i , j )*dxG( i , j ,bi,bj) |
|
./pkg/mom_common/mom_calc_hdiv.F |
43 |
MOM_CALC_HDIV |
& )*recip_rA(i,j,bi,bj)*recip_deepFacC(k) |
|
./pkg/mom_common/mom_calc_hdiv.F |
45 |
MOM_CALC_HDIV |
& *maskInC(i,j,bi,bj) |
|
./pkg/mom_common/mom_calc_hdiv.F |
56 |
MOM_CALC_HDIV |
& ( ( uFld(i+1, j )*dyG(i+1, j ,bi,bj)*hFacW(i+1, j ,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hdiv.F |
57 |
MOM_CALC_HDIV |
& -uFld( i , j )*dyG( i , j ,bi,bj)*hFacW( i , j ,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hdiv.F |
58 |
MOM_CALC_HDIV |
& +( vFld( i ,j+1)*dxG( i ,j+1,bi,bj)*hFacS( i ,j+1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hdiv.F |
59 |
MOM_CALC_HDIV |
& -vFld( i , j )*dxG( i , j ,bi,bj)*hFacS( i , j ,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hdiv.F |
60 |
MOM_CALC_HDIV |
& )*recip_rA(i,j,bi,bj)*recip_deepFacC(k) |
|
./pkg/mom_common/mom_calc_hdiv.F |
61 |
MOM_CALC_HDIV |
& *_recip_hFacC(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hdiv.F |
63 |
MOM_CALC_HDIV |
& *maskInC(i,j,bi,bj) |
|
./pkg/mom_common/mom_calc_hdiv.F |
7 |
MOM_CALC_HDIV |
I bi,bj,k, hDivScheme, |
|
./pkg/mom_common/mom_calc_hfacz.F |
117 |
MOM_CALC_HFACZ |
& SMOOTHMIN_RS(_hFacW(i ,j ,k,bi,bj), |
|
./pkg/mom_common/mom_calc_hfacz.F |
119 |
MOM_CALC_HFACZ |
& MIN(_hFacW(i ,j ,k,bi,bj), |
|
./pkg/mom_common/mom_calc_hfacz.F |
121 |
MOM_CALC_HFACZ |
& _hFacW(i ,j-1,k,bi,bj)) |
|
./pkg/mom_common/mom_calc_hfacz.F |
122 |
MOM_CALC_HFACZ |
& *maskW(i,j,k,bi,bj)*maskW(i,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
125 |
MOM_CALC_HFACZ |
& SMOOTHMIN_RS(_hFacS(i ,j ,k,bi,bj), |
|
./pkg/mom_common/mom_calc_hfacz.F |
127 |
MOM_CALC_HFACZ |
& MIN(_hFacS(i ,j ,k,bi,bj), |
|
./pkg/mom_common/mom_calc_hfacz.F |
129 |
MOM_CALC_HFACZ |
& _hFacS(i-1,j ,k,bi,bj)) |
|
./pkg/mom_common/mom_calc_hfacz.F |
130 |
MOM_CALC_HFACZ |
& *maskS(i,j,k,bi,bj)*maskS(i-1,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
145 |
MOM_CALC_HFACZ |
& *maskW(i,j,k,bi,bj)*maskW(i,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
146 |
MOM_CALC_HFACZ |
& *maskS(i,j,k,bi,bj)*maskS(i-1,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
14 |
MOM_CALC_HFACZ |
I bi, bj, k, |
|
./pkg/mom_common/mom_calc_hfacz.F |
196 |
MOM_CALC_HFACZ |
& ( _hFacW(i, j ,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
197 |
MOM_CALC_HFACZ |
& +_hFacW(i,j-1,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hfacz.F |
198 |
MOM_CALC_HFACZ |
& + ( _hFacS( i ,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
199 |
MOM_CALC_HFACZ |
& +_hFacS(i-1,j,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hfacz.F |
214 |
MOM_CALC_HFACZ |
& _hFacW(i, j ,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
215 |
MOM_CALC_HFACZ |
& + _hFacW(i,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
216 |
MOM_CALC_HFACZ |
& , _hFacS( i ,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
217 |
MOM_CALC_HFACZ |
& + _hFacS(i-1,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
225 |
MOM_CALC_HFACZ |
hFacZOpen=MIN(_hFacW(i,j,k,bi,bj), |
|
./pkg/mom_common/mom_calc_hfacz.F |
226 |
MOM_CALC_HFACZ |
& _hFacW(i,j-1,k,bi,bj)) |
|
./pkg/mom_common/mom_calc_hfacz.F |
227 |
MOM_CALC_HFACZ |
hFacZOpen=MIN(_hFacS(i,j,k,bi,bj),hFacZOpen) |
|
./pkg/mom_common/mom_calc_hfacz.F |
228 |
MOM_CALC_HFACZ |
hFacZOpen=MIN(_hFacS(i-1,j,k,bi,bj),hFacZOpen) |
|
./pkg/mom_common/mom_calc_hfacz.F |
239 |
MOM_CALC_HFACZ |
myTile = W2_myTileList(bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
261 |
MOM_CALC_HFACZ |
hFacZOpen=MIN(_hFacW(i,j,k,bi,bj), |
|
./pkg/mom_common/mom_calc_hfacz.F |
262 |
MOM_CALC_HFACZ |
& _hFacW(i,j-1,k,bi,bj)) |
|
./pkg/mom_common/mom_calc_hfacz.F |
263 |
MOM_CALC_HFACZ |
hFacZOpen=MIN(_hFacS(i,j,k,bi,bj),hFacZOpen) |
|
./pkg/mom_common/mom_calc_hfacz.F |
268 |
MOM_CALC_HFACZ |
& ( _hFacW(i,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
269 |
MOM_CALC_HFACZ |
& +_hFacS( i ,j,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hfacz.F |
270 |
MOM_CALC_HFACZ |
& + _hFacW(i, j ,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
273 |
MOM_CALC_HFACZ |
& ( _hFacW(i, j ,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
274 |
MOM_CALC_HFACZ |
& +_hFacW(i,j-1,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hfacz.F |
275 |
MOM_CALC_HFACZ |
& + _hFacS( i ,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
286 |
MOM_CALC_HFACZ |
hFacZOpen=MIN(_hFacW(i,j,k,bi,bj), |
|
./pkg/mom_common/mom_calc_hfacz.F |
287 |
MOM_CALC_HFACZ |
& _hFacW(i,j-1,k,bi,bj)) |
|
./pkg/mom_common/mom_calc_hfacz.F |
288 |
MOM_CALC_HFACZ |
hFacZOpen=MIN(_hFacS(i-1,j,k,bi,bj),hFacZOpen) |
|
./pkg/mom_common/mom_calc_hfacz.F |
293 |
MOM_CALC_HFACZ |
& ( _hFacS(i-1,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
294 |
MOM_CALC_HFACZ |
& +_hFacW(i,j-1,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hfacz.F |
295 |
MOM_CALC_HFACZ |
& + _hFacW(i, j ,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
298 |
MOM_CALC_HFACZ |
& ( _hFacW(i,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
299 |
MOM_CALC_HFACZ |
& +_hFacW(i, j ,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hfacz.F |
300 |
MOM_CALC_HFACZ |
& + _hFacS(i-1,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
303 |
MOM_CALC_HFACZ |
& ( _hFacW(i, j ,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
304 |
MOM_CALC_HFACZ |
& +_hFacS(i-1,j,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hfacz.F |
305 |
MOM_CALC_HFACZ |
& + _hFacW(i,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
316 |
MOM_CALC_HFACZ |
hFacZOpen=MIN(_hFacW(i,j,k,bi,bj), |
|
./pkg/mom_common/mom_calc_hfacz.F |
317 |
MOM_CALC_HFACZ |
& _hFacW(i,j-1,k,bi,bj)) |
|
./pkg/mom_common/mom_calc_hfacz.F |
318 |
MOM_CALC_HFACZ |
hFacZOpen=MIN(_hFacS(i,j,k,bi,bj),hFacZOpen) |
|
./pkg/mom_common/mom_calc_hfacz.F |
323 |
MOM_CALC_HFACZ |
& ( _hFacS( i ,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
324 |
MOM_CALC_HFACZ |
& +_hFacW(i, j ,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hfacz.F |
325 |
MOM_CALC_HFACZ |
& + _hFacW(i,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
328 |
MOM_CALC_HFACZ |
& ( _hFacW(i, j ,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
329 |
MOM_CALC_HFACZ |
& +_hFacW(i,j-1,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hfacz.F |
330 |
MOM_CALC_HFACZ |
& + _hFacS( i ,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
333 |
MOM_CALC_HFACZ |
& ( _hFacW(i,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
334 |
MOM_CALC_HFACZ |
& +_hFacS( i ,j,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hfacz.F |
335 |
MOM_CALC_HFACZ |
& + _hFacW(i, j ,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
345 |
MOM_CALC_HFACZ |
hFacZOpen=MIN(_hFacW(i,j,k,bi,bj), |
|
./pkg/mom_common/mom_calc_hfacz.F |
346 |
MOM_CALC_HFACZ |
& _hFacW(i,j-1,k,bi,bj)) |
|
./pkg/mom_common/mom_calc_hfacz.F |
347 |
MOM_CALC_HFACZ |
hFacZOpen=MIN(_hFacS(i-1,j,k,bi,bj),hFacZOpen) |
|
./pkg/mom_common/mom_calc_hfacz.F |
352 |
MOM_CALC_HFACZ |
& ( _hFacW(i,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
353 |
MOM_CALC_HFACZ |
& +_hFacW(i, j ,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hfacz.F |
354 |
MOM_CALC_HFACZ |
& + _hFacS(i-1,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
357 |
MOM_CALC_HFACZ |
& ( _hFacW(i, j ,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
358 |
MOM_CALC_HFACZ |
& +_hFacS(i-1,j,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hfacz.F |
359 |
MOM_CALC_HFACZ |
& + _hFacW(i,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
43 |
MOM_CALC_HFACZ |
INTEGER bi, bj, k |
|
./pkg/mom_common/mom_calc_hfacz.F |
89 |
MOM_CALC_HFACZ |
act2 = bj - myByLo(myThid) |
|
./pkg/mom_common/mom_calc_ke.F |
100 |
MOM_CALC_KE |
& )*recip_rA(i,j,bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
110 |
MOM_CALC_KE |
& ( uFld( i , j )*uFld( i , j )*_hFacW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
111 |
MOM_CALC_KE |
& +uFld(i+1, j )*uFld(i+1, j )*_hFacW(i+1,j,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_ke.F |
112 |
MOM_CALC_KE |
& + ( vFld( i , j )*vFld( i , j )*_hFacS(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
113 |
MOM_CALC_KE |
& +vFld( i ,j+1)*vFld( i ,j+1)*_hFacS(i,j+1,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_ke.F |
114 |
MOM_CALC_KE |
& )*_recip_hFacC(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
11 |
MOM_CALC_KE |
I bi,bj,k,KEscheme, |
|
./pkg/mom_common/mom_calc_ke.F |
125 |
MOM_CALC_KE |
& *_hFacW(i ,j, k,bi,bj)*rAw(i ,j, bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
127 |
MOM_CALC_KE |
& *_hFacW(i+1,j,k,bi,bj)*rAw(i+1,j,bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
131 |
MOM_CALC_KE |
& *_hFacS(i, j, k,bi,bj)*rAs(i ,j, bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
133 |
MOM_CALC_KE |
& *_hFacS(i,j+1,k,bi,bj)*rAs(i,j+1,bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
134 |
MOM_CALC_KE |
& ) )*_recip_hFacC(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
135 |
MOM_CALC_KE |
& * recip_rA(i,j,bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
35 |
MOM_CALC_KE |
INTEGER bi,bj,k |
|
./pkg/mom_common/mom_calc_ke.F |
96 |
MOM_CALC_KE |
& ( uFld(i, j )*uFld(i, j )*rAw(i ,j, bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
97 |
MOM_CALC_KE |
& +uFld(i+1,j)*uFld(i+1,j)*rAw(i+1,j,bi,bj) ) |
|
./pkg/mom_common/mom_calc_ke.F |
98 |
MOM_CALC_KE |
& + ( vFld(i, j )*vFld(i, j )*rAs(i ,j, bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
99 |
MOM_CALC_KE |
& +vFld(i,j+1)*vFld(i,j+1)*rAs(i,j+1,bi,bj) ) |
|
./pkg/mom_common/mom_calc_relvort3.F |
118 |
MOM_CALC_RELVORT3 |
& +recip_rAz(I,J,bi,bj)*( |
|
./pkg/mom_common/mom_calc_relvort3.F |
119 |
MOM_CALC_RELVORT3 |
& ( vFld(I,J)*dyC(I,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
120 |
MOM_CALC_RELVORT3 |
& -uFld(I,J)*dxC(I,J,bi,bj) ) |
|
./pkg/mom_common/mom_calc_relvort3.F |
121 |
MOM_CALC_RELVORT3 |
& + uFld(I,J-1)*dxC(I,J-1,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
132 |
MOM_CALC_RELVORT3 |
& recip_rAz(I-1,J,bi,bj)*( |
|
./pkg/mom_common/mom_calc_relvort3.F |
133 |
MOM_CALC_RELVORT3 |
& vFld(I-1,J)*dyC(I-1,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
134 |
MOM_CALC_RELVORT3 |
& -vFld(I-2,J)*dyC(I-2,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
135 |
MOM_CALC_RELVORT3 |
& -uFld(I-1,J)*dxC(I-1,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
136 |
MOM_CALC_RELVORT3 |
& +vFld(I+0,J-1)*dyC(I+0,J-1,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
138 |
MOM_CALC_RELVORT3 |
& *maskS(i-1,j,k,bi,bj)*maskS(i-2,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
139 |
MOM_CALC_RELVORT3 |
& *maskW(i-1,j,k,bi,bj)*maskS(i,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
160 |
MOM_CALC_RELVORT3 |
& +recip_rAz(I,J,bi,bj)*( |
|
./pkg/mom_common/mom_calc_relvort3.F |
161 |
MOM_CALC_RELVORT3 |
& (-uFld(I,J)*dxC(I,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
162 |
MOM_CALC_RELVORT3 |
& -vFld(I-1,J)*dyC(I-1,J,bi,bj) ) |
|
./pkg/mom_common/mom_calc_relvort3.F |
163 |
MOM_CALC_RELVORT3 |
& + uFld(I,J-1)*dxC(I,J-1,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
167 |
MOM_CALC_RELVORT3 |
& +recip_rAz(I,J,bi,bj)*( |
|
./pkg/mom_common/mom_calc_relvort3.F |
168 |
MOM_CALC_RELVORT3 |
& (-vFld(I-1,J)*dyC(I-1,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
169 |
MOM_CALC_RELVORT3 |
& +uFld(I,J-1)*dxC(I,J-1,bi,bj) ) |
|
./pkg/mom_common/mom_calc_relvort3.F |
170 |
MOM_CALC_RELVORT3 |
& - uFld(I,J)*dxC(I,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
174 |
MOM_CALC_RELVORT3 |
& +recip_rAz(I,J,bi,bj)*( |
|
./pkg/mom_common/mom_calc_relvort3.F |
175 |
MOM_CALC_RELVORT3 |
& (+uFld(I,J-1)*dxC(I,J-1,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
176 |
MOM_CALC_RELVORT3 |
& -uFld(I,J)*dxC(I,J,bi,bj) ) |
|
./pkg/mom_common/mom_calc_relvort3.F |
177 |
MOM_CALC_RELVORT3 |
& - vFld(I-1,J)*dyC(I-1,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
189 |
MOM_CALC_RELVORT3 |
& recip_rAz(I+1,J,bi,bj)*( |
|
./pkg/mom_common/mom_calc_relvort3.F |
190 |
MOM_CALC_RELVORT3 |
& vFld(I+1,J)*dyC(I+1,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
191 |
MOM_CALC_RELVORT3 |
& -vFld(I-0,J)*dyC(I-0,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
192 |
MOM_CALC_RELVORT3 |
& -uFld(I+1,J)*dxC(I+1,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
193 |
MOM_CALC_RELVORT3 |
& -vFld(I-1,J-1)*dyC(I-1,J-1,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
195 |
MOM_CALC_RELVORT3 |
& *maskS(i+1,j,k,bi,bj)*maskS(i-0,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
196 |
MOM_CALC_RELVORT3 |
& *maskW(i+1,j,k,bi,bj)*maskS(i-1,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
217 |
MOM_CALC_RELVORT3 |
& +recip_rAz(I,J,bi,bj)*( |
|
./pkg/mom_common/mom_calc_relvort3.F |
218 |
MOM_CALC_RELVORT3 |
& (+uFld(I,J-1)*dxC(I,J-1,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
219 |
MOM_CALC_RELVORT3 |
& +vFld(I,J)*dyC(I,J,bi,bj) ) |
|
./pkg/mom_common/mom_calc_relvort3.F |
220 |
MOM_CALC_RELVORT3 |
& -uFld(I,J)*dxC(I,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
224 |
MOM_CALC_RELVORT3 |
& +recip_rAz(I,J,bi,bj)*( |
|
./pkg/mom_common/mom_calc_relvort3.F |
225 |
MOM_CALC_RELVORT3 |
& (-uFld(I,J)*dxC(I,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
226 |
MOM_CALC_RELVORT3 |
& +uFld(I,J-1)*dxC(I,J-1,bi,bj) ) |
|
./pkg/mom_common/mom_calc_relvort3.F |
227 |
MOM_CALC_RELVORT3 |
& + vFld(I,J)*dyC(I,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
231 |
MOM_CALC_RELVORT3 |
& +recip_rAz(I,J,bi,bj)*( |
|
./pkg/mom_common/mom_calc_relvort3.F |
232 |
MOM_CALC_RELVORT3 |
& (+vFld(I,J)*dyC(I,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
233 |
MOM_CALC_RELVORT3 |
& -uFld(I,J)*dxC(I,J,bi,bj) ) |
|
./pkg/mom_common/mom_calc_relvort3.F |
234 |
MOM_CALC_RELVORT3 |
& + uFld(I,J-1)*dxC(I,J-1,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
246 |
MOM_CALC_RELVORT3 |
& recip_rAz(I-1,J,bi,bj)*( |
|
./pkg/mom_common/mom_calc_relvort3.F |
247 |
MOM_CALC_RELVORT3 |
& vFld(I-1,J)*dyC(I-1,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
248 |
MOM_CALC_RELVORT3 |
& -vFld(I-2,J)*dyC(I-2,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
249 |
MOM_CALC_RELVORT3 |
& +vFld(I-0,J+1)*dyC(I-0,J+1,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
250 |
MOM_CALC_RELVORT3 |
& +uFld(I-1,J-1)*dxC(I-1,J-1,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
252 |
MOM_CALC_RELVORT3 |
& *maskS(i-1,j,k,bi,bj)*maskS(i-2,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
253 |
MOM_CALC_RELVORT3 |
& *maskS(i,j+1,k,bi,bj)*maskW(i-1,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
274 |
MOM_CALC_RELVORT3 |
& +recip_rAz(I,J,bi,bj)*( |
|
./pkg/mom_common/mom_calc_relvort3.F |
275 |
MOM_CALC_RELVORT3 |
& (-uFld(I,J)*dxC(I,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
276 |
MOM_CALC_RELVORT3 |
& -vFld(I-1,J)*dyC(I-1,J,bi,bj) ) |
|
./pkg/mom_common/mom_calc_relvort3.F |
277 |
MOM_CALC_RELVORT3 |
& + uFld(I,J-1)*dxC(I,J-1,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
281 |
MOM_CALC_RELVORT3 |
& +recip_rAz(I,J,bi,bj)*( |
|
./pkg/mom_common/mom_calc_relvort3.F |
282 |
MOM_CALC_RELVORT3 |
& (+uFld(I,J-1)*dxC(I,J-1,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
283 |
MOM_CALC_RELVORT3 |
& -uFld(I,J)*dxC(I,J,bi,bj) ) |
|
./pkg/mom_common/mom_calc_relvort3.F |
284 |
MOM_CALC_RELVORT3 |
& - vFld(I-1,J)*dyC(I-1,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
296 |
MOM_CALC_RELVORT3 |
& recip_rAz(I+1,J,bi,bj)*( |
|
./pkg/mom_common/mom_calc_relvort3.F |
297 |
MOM_CALC_RELVORT3 |
& vFld(I+1,J)*dyC(I+1,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
298 |
MOM_CALC_RELVORT3 |
& -vFld(I-0,J)*dyC(I-0,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
299 |
MOM_CALC_RELVORT3 |
& -vFld(I-1,J+1)*dyC(I-1,J+1,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
29 |
MOM_CALC_RELVORT3 |
INTEGER bi,bj,k |
|
./pkg/mom_common/mom_calc_relvort3.F |
300 |
MOM_CALC_RELVORT3 |
& +uFld(I+1,J-1)*dxC(I+1,J-1,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
302 |
MOM_CALC_RELVORT3 |
& *maskS(i+1,j,k,bi,bj)*maskS(i-0,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
303 |
MOM_CALC_RELVORT3 |
& *maskS(i-1,j+1,k,bi,bj)*maskW(i+1,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
58 |
MOM_CALC_RELVORT3 |
& recip_rAz(I,J,bi,bj)*( |
|
./pkg/mom_common/mom_calc_relvort3.F |
59 |
MOM_CALC_RELVORT3 |
& ( vFld(I,J)*dyC(I,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
60 |
MOM_CALC_RELVORT3 |
& -vFld(I-1,J)*dyC(I-1,J,bi,bj) ) |
|
./pkg/mom_common/mom_calc_relvort3.F |
61 |
MOM_CALC_RELVORT3 |
& -( uFld(I,J)*dxC(I,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
62 |
MOM_CALC_RELVORT3 |
& -uFld(I,J-1)*dxC(I,J-1,bi,bj) ) |
|
./pkg/mom_common/mom_calc_relvort3.F |
85 |
MOM_CALC_RELVORT3 |
myTile = W2_myTileList(bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
8 |
MOM_CALC_RELVORT3 |
I bi,bj,k, |
|
./pkg/mom_common/mom_calc_smag_3d.F |
130 |
MOM_CALC_SMAG_3D |
& smag3D_hLsC(i,j,bi,bj)*tmpFac*SQRT( |
|
./pkg/mom_common/mom_calc_smag_3d.F |
147 |
MOM_CALC_SMAG_3D |
& smag3D_hLsZ(i,j,bi,bj)*tmpFac*SQRT( |
|
./pkg/mom_common/mom_calc_smag_3d.F |
16 |
MOM_CALC_SMAG_3D |
I k, bi, bj, myThid ) |
|
./pkg/mom_common/mom_calc_smag_3d.F |
182 |
MOM_CALC_SMAG_3D |
& smag3D_hLsW(i,j,bi,bj)*tmpFac*SQRT( |
|
./pkg/mom_common/mom_calc_smag_3d.F |
199 |
MOM_CALC_SMAG_3D |
& smag3D_hLsS(i,j,bi,bj)*tmpFac*SQRT( |
|
./pkg/mom_common/mom_calc_smag_3d.F |
57 |
MOM_CALC_SMAG_3D |
INTEGER k, bi, bj |
|
./pkg/mom_common/mom_calc_strain.F |
11 |
MOM_CALC_STRAIN |
I bi,bj,k, |
|
./pkg/mom_common/mom_calc_strain.F |
38 |
MOM_CALC_STRAIN |
INTEGER bi,bj,k |
|
./pkg/mom_common/mom_calc_strain.F |
58 |
MOM_CALC_STRAIN |
& ( dyC( i , j ,bi,bj)*vFld( i , j ) |
|
./pkg/mom_common/mom_calc_strain.F |
59 |
MOM_CALC_STRAIN |
& -dyC(i-1, j ,bi,bj)*vFld(i-1, j ) |
|
./pkg/mom_common/mom_calc_strain.F |
60 |
MOM_CALC_STRAIN |
& +dxC( i , j ,bi,bj)*uFld( i , j ) |
|
./pkg/mom_common/mom_calc_strain.F |
61 |
MOM_CALC_STRAIN |
& -dxC( i ,j-1,bi,bj)*uFld( i ,j-1) |
|
./pkg/mom_common/mom_calc_strain.F |
62 |
MOM_CALC_STRAIN |
& )*recip_rAz(i,j,bi,bj)*recip_deepFacC(k) |
|
./pkg/mom_common/mom_calc_tension.F |
11 |
MOM_CALC_TENSION |
I bi,bj,k, |
|
./pkg/mom_common/mom_calc_tension.F |
35 |
MOM_CALC_TENSION |
INTEGER bi,bj,k |
|
./pkg/mom_common/mom_calc_tension.F |
55 |
MOM_CALC_TENSION |
& ( dyG(i+1, j ,bi,bj)*uFld(i+1, j ) |
|
./pkg/mom_common/mom_calc_tension.F |
56 |
MOM_CALC_TENSION |
& -dyG( i , j ,bi,bj)*uFld( i , j ) |
|
./pkg/mom_common/mom_calc_tension.F |
57 |
MOM_CALC_TENSION |
& -dxG( i ,j+1,bi,bj)*vFld( i ,j+1) |
|
./pkg/mom_common/mom_calc_tension.F |
58 |
MOM_CALC_TENSION |
& +dxG( i , j ,bi,bj)*vFld( i , j ) |
|
./pkg/mom_common/mom_calc_tension.F |
59 |
MOM_CALC_TENSION |
& )*recip_rA(i,j,bi,bj)*recip_deepFacC(k) |
|
./pkg/mom_common/mom_calc_tension.F |
61 |
MOM_CALC_TENSION |
& *maskInC(i,j,bi,bj) |
|
./pkg/mom_common/mom_calc_visc.F |
150 |
MOM_CALC_VISC |
act2 = bj - myByLo(myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
15 |
MOM_CALC_VISC |
I bi,bj,k, |
|
./pkg/mom_common/mom_calc_visc.F |
264 |
MOM_CALC_VISC |
& hDiv, bi,bj, myThid ) |
|
./pkg/mom_common/mom_calc_visc.F |
269 |
MOM_CALC_VISC |
& *recip_dxC(i,j,bi,bj)*recip_deepFacC(k) |
|
./pkg/mom_common/mom_calc_visc.F |
277 |
MOM_CALC_VISC |
& hDiv, bi,bj, myThid ) |
|
./pkg/mom_common/mom_calc_visc.F |
282 |
MOM_CALC_VISC |
& *recip_dyC(i,j,bi,bj)*recip_deepFacC(k) |
|
./pkg/mom_common/mom_calc_visc.F |
291 |
MOM_CALC_VISC |
& *recip_dxG(i,j,bi,bj)*recip_deepFacC(k) |
|
./pkg/mom_common/mom_calc_visc.F |
292 |
MOM_CALC_VISC |
& *maskS(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_visc.F |
294 |
MOM_CALC_VISC |
& *maskInS(i,j,bi,bj) |
|
./pkg/mom_common/mom_calc_visc.F |
302 |
MOM_CALC_VISC |
& *recip_dyG(i,j,bi,bj)*recip_deepFacC(k) |
|
./pkg/mom_common/mom_calc_visc.F |
303 |
MOM_CALC_VISC |
& *maskW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_visc.F |
305 |
MOM_CALC_VISC |
& *maskInW(i,j,bi,bj) |
|
./pkg/mom_common/mom_calc_visc.F |
329 |
MOM_CALC_VISC |
L2 = L2_D(i,j,bi,bj)*deepFac2C(k) |
|
./pkg/mom_common/mom_calc_visc.F |
331 |
MOM_CALC_VISC |
L3 = L3_D(i,j,bi,bj)*deepFac3 |
|
./pkg/mom_common/mom_calc_visc.F |
332 |
MOM_CALC_VISC |
L4rdt = L4rdt_D(i,j,bi,bj)*deepFac4 |
|
./pkg/mom_common/mom_calc_visc.F |
411 |
MOM_CALC_VISC |
& +viscAhDfld(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_visc.F |
425 |
MOM_CALC_VISC |
& +viscA4Dfld(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_visc.F |
437 |
MOM_CALC_VISC |
L2 = L2_Z(i,j,bi,bj)*deepFac2C(k) |
|
./pkg/mom_common/mom_calc_visc.F |
439 |
MOM_CALC_VISC |
L3 = L3_Z(i,j,bi,bj)*deepFac3 |
|
./pkg/mom_common/mom_calc_visc.F |
440 |
MOM_CALC_VISC |
L4rdt = L4rdt_Z(i,j,bi,bj)*deepFac4 |
|
./pkg/mom_common/mom_calc_visc.F |
519 |
MOM_CALC_VISC |
& +viscAhZfld(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_visc.F |
530 |
MOM_CALC_VISC |
& +viscA4Zfld(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_visc.F |
547 |
MOM_CALC_VISC |
viscAh_W(i,j,k+1,bi,bj) = halfRL*viscAh_D(i,j) |
|
./pkg/mom_common/mom_calc_visc.F |
548 |
MOM_CALC_VISC |
viscA4_W(i,j,k+1,bi,bj) = halfRL*viscA4_D(i,j) |
|
./pkg/mom_common/mom_calc_visc.F |
559 |
MOM_CALC_VISC |
viscAh_W(i,j,k,bi,bj) = shiftAh + viscAh_D(i,j) |
|
./pkg/mom_common/mom_calc_visc.F |
560 |
MOM_CALC_VISC |
viscA4_W(i,j,k,bi,bj) = shiftA4 + viscA4_D(i,j) |
|
./pkg/mom_common/mom_calc_visc.F |
567 |
MOM_CALC_VISC |
viscAh_W(i,j,k,bi,bj) = shiftAh + viscAh_W(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_visc.F |
569 |
MOM_CALC_VISC |
viscA4_W(i,j,k,bi,bj) = shiftA4 + viscA4_W(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_visc.F |
593 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscAh_D,'VISCAHD ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
594 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscA4_D,'VISCA4D ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
595 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscAh_Z,'VISCAHZ ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
596 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscA4_Z,'VISCA4Z ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
598 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscAh_DMax,'VAHDMAX ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
599 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscA4_DMax,'VA4DMAX ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
600 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscAh_ZMax,'VAHZMAX ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
601 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscA4_ZMax,'VA4ZMAX ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
603 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscAh_DMin,'VAHDMIN ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
604 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscA4_DMin,'VA4DMIN ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
605 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscAh_ZMin,'VAHZMIN ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
606 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscA4_ZMin,'VA4ZMIN ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
608 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscAh_DLth,'VAHDLTH ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
609 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscA4_DLth,'VA4DLTH ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
610 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscAh_ZLth,'VAHZLTH ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
611 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscA4_ZLth,'VA4ZLTH ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
614 |
MOM_CALC_VISC |
& k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
616 |
MOM_CALC_VISC |
& k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
618 |
MOM_CALC_VISC |
& k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
620 |
MOM_CALC_VISC |
& k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
622 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscAh_DSmg,'VAHDSMAG',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
623 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscA4_DSmg,'VA4DSMAG',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
624 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscAh_ZSmg,'VAHZSMAG',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
625 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscA4_ZSmg,'VA4ZSMAG',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
91 |
MOM_CALC_VISC |
INTEGER bi,bj,k |
|
./model/src/calc_wsurf_tr.F |
50 |
CALC_WSURF_TR |
INTEGER i,j,bi,bj,ks |
|
./model/src/calc_wsurf_tr.F |
64 |
CALC_WSURF_TR |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./model/src/calc_wsurf_tr.F |
66 |
CALC_WSURF_TR |
wT_Tile(bi,bj) = 0. |
|
./model/src/calc_wsurf_tr.F |
67 |
CALC_WSURF_TR |
wS_Tile(bi,bj) = 0. |
|
./model/src/calc_wsurf_tr.F |
70 |
CALC_WSURF_TR |
ks = ksurfC(i,j,bi,bj) |
|
./model/src/calc_wsurf_tr.F |
72 |
CALC_WSURF_TR |
wT_Tile(bi,bj) = wT_Tile(bi,bj) |
|
./model/src/calc_wsurf_tr.F |
73 |
CALC_WSURF_TR |
& + rA(i,j,bi,bj)*wVelFld(i,j,ks,bi,bj) |
|
./model/src/calc_wsurf_tr.F |
74 |
CALC_WSURF_TR |
& *thetaFld(i,j,ks,bi,bj) |
|
./model/src/calc_wsurf_tr.F |
75 |
CALC_WSURF_TR |
wS_Tile(bi,bj) = wS_Tile(bi,bj) |
|
./model/src/calc_wsurf_tr.F |
76 |
CALC_WSURF_TR |
& + rA(i,j,bi,bj)*wVelFld(i,j,ks,bi,bj) |
|
./model/src/calc_wsurf_tr.F |
77 |
CALC_WSURF_TR |
& *saltFld(i,j,ks,bi,bj) |
|
./pkg/mom_common/mom_hdissip.F |
27 |
MOM_HDISSIP |
INTEGER bi,bj,k |
|
./pkg/mom_common/mom_hdissip.F |
49 |
MOM_HDISSIP |
& recip_dyG(i,j,bi,bj)*recip_dyG(i,j,bi,bj) |
|
./pkg/mom_common/mom_hdissip.F |
50 |
MOM_HDISSIP |
& *recip_dxC(i,j,bi,bj) |
|
./pkg/mom_common/mom_hdissip.F |
52 |
MOM_HDISSIP |
& dyF( i , j ,bi,bj)*dyF( i , j ,bi,bj) |
|
./pkg/mom_common/mom_hdissip.F |
54 |
MOM_HDISSIP |
& -dyF(i-1, j ,bi,bj)*dyF(i-1, j ,bi,bj) |
|
./pkg/mom_common/mom_hdissip.F |
57 |
MOM_HDISSIP |
& +recip_dxC(i,j,bi,bj)*recip_dxC(i,j,bi,bj) |
|
./pkg/mom_common/mom_hdissip.F |
58 |
MOM_HDISSIP |
& *recip_dyG(i,j,bi,bj) |
|
./pkg/mom_common/mom_hdissip.F |
60 |
MOM_HDISSIP |
& dxV( i ,j+1,bi,bj)*dxV( i ,j+1,bi,bj) |
|
./pkg/mom_common/mom_hdissip.F |
62 |
MOM_HDISSIP |
& -dxV( i , j ,bi,bj)*dxV( i , j ,bi,bj) |
|
./pkg/mom_common/mom_hdissip.F |
67 |
MOM_HDISSIP |
& recip_dyC(i,j,bi,bj)*recip_dyC(i,j,bi,bj) |
|
./pkg/mom_common/mom_hdissip.F |
68 |
MOM_HDISSIP |
& *recip_dxG(i,j,bi,bj) |
|
./pkg/mom_common/mom_hdissip.F |
70 |
MOM_HDISSIP |
& dyU(i+1, j ,bi,bj)*dyU(i+1, j ,bi,bj) |
|
./pkg/mom_common/mom_hdissip.F |
72 |
MOM_HDISSIP |
& -dyU( i , j ,bi,bj)*dyU( i , j ,bi,bj) |
|
./pkg/mom_common/mom_hdissip.F |
75 |
MOM_HDISSIP |
& -recip_dxG(i,j,bi,bj)*recip_dxG(i,j,bi,bj) |
|
./pkg/mom_common/mom_hdissip.F |
76 |
MOM_HDISSIP |
& *recip_dyC(i,j,bi,bj) |
|
./pkg/mom_common/mom_hdissip.F |
78 |
MOM_HDISSIP |
& dxF( i , j ,bi,bj)*dxF( i , j ,bi,bj) |
|
./pkg/mom_common/mom_hdissip.F |
7 |
MOM_HDISSIP |
I bi, bj, k, |
|
./pkg/mom_common/mom_hdissip.F |
80 |
MOM_HDISSIP |
& -dxF( i ,j-1,bi,bj)*dxF( i ,j-1,bi,bj) |
|
./pkg/mom_common/mom_init_fixed.F |
104 |
MOM_INIT_FIXED |
L2_Z(i,j,bi,bj) = rAz(i,j,bi,bj) |
|
./pkg/mom_common/mom_init_fixed.F |
110 |
MOM_INIT_FIXED |
IF ( recip_dxV(i,j,bi,bj).NE.0. .OR. |
|
./pkg/mom_common/mom_init_fixed.F |
111 |
MOM_INIT_FIXED |
& recip_dyU(i,j,bi,bj).NE.0. ) THEN |
|
./pkg/mom_common/mom_init_fixed.F |
112 |
MOM_INIT_FIXED |
L2_Z(i,j,bi,bj) = 2. _d 0 |
|
./pkg/mom_common/mom_init_fixed.F |
113 |
MOM_INIT_FIXED |
& /((recip_dxV(i,j,bi,bj)**2+recip_dyU(i,j,bi,bj)**2)) |
|
./pkg/mom_common/mom_init_fixed.F |
120 |
MOM_INIT_FIXED |
L3_Z(i,j,bi,bj) = L2_Z(i,j,bi,bj)**1.5 |
|
./pkg/mom_common/mom_init_fixed.F |
121 |
MOM_INIT_FIXED |
L4rdt_Z(i,j,bi,bj) = 0.03125 _d 0*recip_dt |
|
./pkg/mom_common/mom_init_fixed.F |
122 |
MOM_INIT_FIXED |
& *L2_Z(i,j,bi,bj)**2 |
|
./pkg/mom_common/mom_init_fixed.F |
129 |
MOM_INIT_FIXED |
smag3D_hLsC(i,j,bi,bj) = rA (i,j,bi,bj)**twoThird |
|
./pkg/mom_common/mom_init_fixed.F |
130 |
MOM_INIT_FIXED |
smag3D_hLsW(i,j,bi,bj) = rAw(i,j,bi,bj)**twoThird |
|
./pkg/mom_common/mom_init_fixed.F |
131 |
MOM_INIT_FIXED |
smag3D_hLsS(i,j,bi,bj) = rAs(i,j,bi,bj)**twoThird |
|
./pkg/mom_common/mom_init_fixed.F |
132 |
MOM_INIT_FIXED |
smag3D_hLsZ(i,j,bi,bj) = rAz(i,j,bi,bj)**twoThird |
|
./pkg/mom_common/mom_init_fixed.F |
33 |
MOM_INIT_FIXED |
INTEGER i,j,k,bi,bj |
|
./pkg/mom_common/mom_init_fixed.F |
42 |
MOM_INIT_FIXED |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./pkg/mom_common/mom_init_fixed.F |
49 |
MOM_INIT_FIXED |
viscAhDfld(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mom_common/mom_init_fixed.F |
50 |
MOM_INIT_FIXED |
viscAhZfld(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mom_common/mom_init_fixed.F |
59 |
MOM_INIT_FIXED |
viscA4Dfld(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mom_common/mom_init_fixed.F |
60 |
MOM_INIT_FIXED |
viscA4Zfld(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mom_common/mom_init_fixed.F |
70 |
MOM_INIT_FIXED |
viscAh_W(i,j,k,bi,bj) = viscAhW |
|
./pkg/mom_common/mom_init_fixed.F |
71 |
MOM_INIT_FIXED |
viscA4_W(i,j,k,bi,bj) = viscA4W |
|
./pkg/mom_common/mom_init_fixed.F |
80 |
MOM_INIT_FIXED |
L2_D(i,j,bi,bj) = rA(i,j,bi,bj) |
|
./pkg/mom_common/mom_init_fixed.F |
86 |
MOM_INIT_FIXED |
IF ( recip_dxF(i,j,bi,bj).NE.0. .OR. |
|
./pkg/mom_common/mom_init_fixed.F |
87 |
MOM_INIT_FIXED |
& recip_dyF(i,j,bi,bj).NE.0. ) THEN |
|
./pkg/mom_common/mom_init_fixed.F |
88 |
MOM_INIT_FIXED |
L2_D(i,j,bi,bj) = 2. _d 0 |
|
./pkg/mom_common/mom_init_fixed.F |
89 |
MOM_INIT_FIXED |
& /((recip_dxF(i,j,bi,bj)**2+recip_dyF(i,j,bi,bj)**2)) |
|
./pkg/mom_common/mom_init_fixed.F |
96 |
MOM_INIT_FIXED |
L3_D(i,j,bi,bj) = L2_D(i,j,bi,bj)**1.5 |
|
./pkg/mom_common/mom_init_fixed.F |
97 |
MOM_INIT_FIXED |
L4rdt_D(i,j,bi,bj) = 0.03125 _d 0*recip_dt |
|
./pkg/mom_common/mom_init_fixed.F |
98 |
MOM_INIT_FIXED |
& *L2_D(i,j,bi,bj)**2 |
|
./pkg/mom_common/mom_quasihydrostatic.F |
102 |
MOM_QUASIHYDROSTATIC |
& ( (uFld( i ,j,k,bi,bj)*uFld( i ,j,k,bi,bj) |
|
./pkg/mom_common/mom_quasihydrostatic.F |
103 |
MOM_QUASIHYDROSTATIC |
& +uFld(i+1,j,k,bi,bj)*uFld(i+1,j,k,bi,bj)) |
|
./pkg/mom_common/mom_quasihydrostatic.F |
104 |
MOM_QUASIHYDROSTATIC |
& + (vFld(i, j ,k,bi,bj)*vFld(i, j ,k,bi,bj) |
|
./pkg/mom_common/mom_quasihydrostatic.F |
105 |
MOM_QUASIHYDROSTATIC |
& +vFld(i,j+1,k,bi,bj)*vFld(i,j+1,k,bi,bj)) |
|
./pkg/mom_common/mom_quasihydrostatic.F |
11 |
MOM_QUASIHYDROSTATIC |
I bi,bj,k, |
|
./pkg/mom_common/mom_quasihydrostatic.F |
38 |
MOM_QUASIHYDROSTATIC |
INTEGER bi,bj,k |
|
./pkg/mom_common/mom_quasihydrostatic.F |
87 |
MOM_QUASIHYDROSTATIC |
& fCoriCos(i,j,bi,bj)* |
|
./pkg/mom_common/mom_quasihydrostatic.F |
88 |
MOM_QUASIHYDROSTATIC |
& ( angleCosC(i,j,bi,bj)*0.5 _d 0 * |
|
./pkg/mom_common/mom_quasihydrostatic.F |
89 |
MOM_QUASIHYDROSTATIC |
& (uFld(i,j,k,bi,bj)+uFld(i+1,j,k,bi,bj)) |
|
./pkg/mom_common/mom_quasihydrostatic.F |
90 |
MOM_QUASIHYDROSTATIC |
& -angleSinC(i,j,bi,bj)*0.5 _d 0 * |
|
./pkg/mom_common/mom_quasihydrostatic.F |
91 |
MOM_QUASIHYDROSTATIC |
& (vFld(i,j,k,bi,bj)+vFld(i,j+1,k,bi,bj)) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
107 |
MOM_U_BOTDRAG_IMPL |
& + halfRL*( bottomDragFld(i-1,j,bi,bj) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
108 |
MOM_U_BOTDRAG_IMPL |
& + bottomDragFld(i,j,bi,bj) )*dragFac |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
122 |
MOM_U_BOTDRAG_IMPL |
& *_recip_hFacW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
143 |
MOM_U_BOTDRAG_IMPL |
& ( uFld( i , j ,k)*uFld( i , j ,k)*_hFacW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
144 |
MOM_U_BOTDRAG_IMPL |
& +uFld(i+1, j ,k)*uFld(i+1, j ,k)*_hFacW(i+1,j,k,bi,bj) ) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
145 |
MOM_U_BOTDRAG_IMPL |
& + ( vFld( i , j ,k)*vFld( i , j ,k)*_hFacS(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
146 |
MOM_U_BOTDRAG_IMPL |
& +vFld( i ,j+1,k)*vFld( i ,j+1,k)*_hFacS(i,j+1,k,bi,bj) ) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
147 |
MOM_U_BOTDRAG_IMPL |
& )*_recip_hFacC(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
166 |
MOM_U_BOTDRAG_IMPL |
& + ( (vFld(i-1, j ,k)*vFld(i-1, j ,k)*hFacS(i-1, j ,k,bi,bj) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
167 |
MOM_U_BOTDRAG_IMPL |
& +vFld( i , j ,k)*vFld( i , j ,k)*hFacS( i , j ,k,bi,bj)) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
168 |
MOM_U_BOTDRAG_IMPL |
& + (vFld(i-1,j+1,k)*vFld(i-1,j+1,k)*hFacS(i-1,j+1,k,bi,bj) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
169 |
MOM_U_BOTDRAG_IMPL |
& +vFld( i ,j+1,k)*vFld( i ,j+1,k)*hFacS( i ,j+1,k,bi,bj)) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
16 |
MOM_U_BOTDRAG_IMPL |
I bi, bj, myIter, myThid ) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
170 |
MOM_U_BOTDRAG_IMPL |
& )*recip_hFacW(i,j,k,bi,bj)*0.25 _d 0 |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
183 |
MOM_U_BOTDRAG_IMPL |
uSq = ( hFacS(i-1, j ,k,bi,bj) + hFacS( i , j ,k,bi,bj) ) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
184 |
MOM_U_BOTDRAG_IMPL |
& + ( hFacS(i-1,j+1,k,bi,bj) + hFacS( i ,j+1,k,bi,bj) ) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
187 |
MOM_U_BOTDRAG_IMPL |
& +( (vFld(i-1, j ,k)*vFld(i-1, j ,k)*hFacS(i-1, j ,k,bi,bj) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
188 |
MOM_U_BOTDRAG_IMPL |
& +vFld( i , j ,k)*vFld( i , j ,k)*hFacS( i , j ,k,bi,bj)) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
189 |
MOM_U_BOTDRAG_IMPL |
& + (vFld(i-1,j+1,k)*vFld(i-1,j+1,k)*hFacS(i-1,j+1,k,bi,bj) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
190 |
MOM_U_BOTDRAG_IMPL |
& +vFld( i ,j+1,k)*vFld( i ,j+1,k)*hFacS( i ,j+1,k,bi,bj)) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
45 |
MOM_U_BOTDRAG_IMPL |
INTEGER bi, bj |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
87 |
MOM_U_BOTDRAG_IMPL |
recDrF_bot(i,j) = _recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
94 |
MOM_U_BOTDRAG_IMPL |
recDrF_bot(i,j) = _recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
95 |
MOM_U_BOTDRAG_IMPL |
& * ( 1. _d 0 -_maskW(i,j,kDown,bi,bj) ) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
103 |
MOM_U_BOTTOMDRAG |
& + halfRL*( bottomDragFld(i-1,j,bi,bj) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
104 |
MOM_U_BOTTOMDRAG |
& + bottomDragFld(i,j,bi,bj) )*dragFac |
|
./pkg/mom_common/mom_u_bottomdrag.F |
118 |
MOM_U_BOTTOMDRAG |
& *_recip_hFacW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
14 |
MOM_U_BOTTOMDRAG |
I bi, bj, k, |
|
./pkg/mom_common/mom_u_bottomdrag.F |
152 |
MOM_U_BOTTOMDRAG |
& + ( (vFld(i-1, j )*vFld(i-1, j )*hFacS(i-1, j ,k,bi,bj) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
153 |
MOM_U_BOTTOMDRAG |
& +vFld( i , j )*vFld( i , j )*hFacS( i , j ,k,bi,bj)) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
154 |
MOM_U_BOTTOMDRAG |
& + (vFld(i-1,j+1)*vFld(i-1,j+1)*hFacS(i-1,j+1,k,bi,bj) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
155 |
MOM_U_BOTTOMDRAG |
& +vFld( i ,j+1)*vFld( i ,j+1)*hFacS( i ,j+1,k,bi,bj)) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
156 |
MOM_U_BOTTOMDRAG |
& )*recip_hFacW(i,j,k,bi,bj)*0.25 _d 0 |
|
./pkg/mom_common/mom_u_bottomdrag.F |
169 |
MOM_U_BOTTOMDRAG |
uSq = ( hFacS(i-1, j ,k,bi,bj) + hFacS( i , j ,k,bi,bj) ) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
170 |
MOM_U_BOTTOMDRAG |
& + ( hFacS(i-1,j+1,k,bi,bj) + hFacS( i ,j+1,k,bi,bj) ) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
173 |
MOM_U_BOTTOMDRAG |
& +( (vFld(i-1, j )*vFld(i-1, j )*hFacS(i-1, j ,k,bi,bj) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
174 |
MOM_U_BOTTOMDRAG |
& +vFld( i , j )*vFld( i , j )*hFacS( i , j ,k,bi,bj)) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
175 |
MOM_U_BOTTOMDRAG |
& + (vFld(i-1,j+1)*vFld(i-1,j+1)*hFacS(i-1,j+1,k,bi,bj) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
176 |
MOM_U_BOTTOMDRAG |
& +vFld( i ,j+1)*vFld( i ,j+1)*hFacS( i ,j+1,k,bi,bj)) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
195 |
MOM_U_BOTTOMDRAG |
CALL DIAGNOSTICS_FILL(uDragTerms,'UBotDrag',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
43 |
MOM_U_BOTTOMDRAG |
INTEGER bi,bj,k |
|
./pkg/mom_common/mom_u_bottomdrag.F |
83 |
MOM_U_BOTTOMDRAG |
recDrF_bot(i,j) = _recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
90 |
MOM_U_BOTTOMDRAG |
recDrF_bot(i,j) = _recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
91 |
MOM_U_BOTTOMDRAG |
& * ( 1. _d 0 -_maskW(i,j,kDown,bi,bj) ) |
|
./pkg/mom_common/mom_u_coriolis_nh.F |
11 |
MOM_U_CORIOLIS_NH |
I bi,bj,k,wFld, |
|
./pkg/mom_common/mom_u_coriolis_nh.F |
34 |
MOM_U_CORIOLIS_NH |
INTEGER bi,bj,k |
|
./pkg/mom_common/mom_u_coriolis_nh.F |
57 |
MOM_U_CORIOLIS_NH |
& 0.5*( fCoriCos( i ,j,bi,bj)*angleCosC( i ,j,bi,bj) |
|
./pkg/mom_common/mom_u_coriolis_nh.F |
58 |
MOM_U_CORIOLIS_NH |
& *0.5*( wFld( i ,j, k ,bi,bj)*rVel2wUnit( k ) |
|
./pkg/mom_common/mom_u_coriolis_nh.F |
59 |
MOM_U_CORIOLIS_NH |
& +wFld( i ,j,kp1,bi,bj)*rVel2wUnit(kp1)*wMsk ) |
|
./pkg/mom_common/mom_u_coriolis_nh.F |
60 |
MOM_U_CORIOLIS_NH |
& + fCoriCos(i-1,j,bi,bj)*angleCosC(i-1,j,bi,bj) |
|
./pkg/mom_common/mom_u_coriolis_nh.F |
61 |
MOM_U_CORIOLIS_NH |
& *0.5*( wFld(i-1,j, k ,bi,bj)*rVel2wUnit( k ) |
|
./pkg/mom_common/mom_u_coriolis_nh.F |
62 |
MOM_U_CORIOLIS_NH |
& +wFld(i-1,j,kp1,bi,bj)*rVel2wUnit(kp1)*wMsk ) |
|
./pkg/mom_common/mom_u_implicit_r.F |
108 |
MOM_U_IMPLICIT_R |
IF (maskW(i,j,k+1,bi,bj).EQ.oneRS) |
|
./pkg/mom_common/mom_u_implicit_r.F |
110 |
MOM_U_IMPLICIT_R |
& *_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
11 |
MOM_U_IMPLICIT_R |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/mom_common/mom_u_implicit_r.F |
133 |
MOM_U_IMPLICIT_R |
I uVel(1-OLx,1-OLy,1,bi,bj), |
|
./pkg/mom_common/mom_u_implicit_r.F |
134 |
MOM_U_IMPLICIT_R |
I vVel(1-OLx,1-OLy,1,bi,bj), |
|
./pkg/mom_common/mom_u_implicit_r.F |
137 |
MOM_U_IMPLICIT_R |
I bi, bj, myIter, myThid ) |
|
./pkg/mom_common/mom_u_implicit_r.F |
149 |
MOM_U_IMPLICIT_R |
& wVel( i ,j,k,bi,bj)*rA( i ,j,bi,bj) |
|
./pkg/mom_common/mom_u_implicit_r.F |
150 |
MOM_U_IMPLICIT_R |
& *maskC( i ,j,k-1,bi,bj) |
|
./pkg/mom_common/mom_u_implicit_r.F |
151 |
MOM_U_IMPLICIT_R |
& + wVel(i-1,j,k,bi,bj)*rA(i-1,j,bi,bj) |
|
./pkg/mom_common/mom_u_implicit_r.F |
152 |
MOM_U_IMPLICIT_R |
& *maskC(i-1,j,k-1,bi,bj) |
|
./pkg/mom_common/mom_u_implicit_r.F |
167 |
MOM_U_IMPLICIT_R |
& *recip_rAw(i,j,bi,bj)*rkSign |
|
./pkg/mom_common/mom_u_implicit_r.F |
171 |
MOM_U_IMPLICIT_R |
& *_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
175 |
MOM_U_IMPLICIT_R |
& *_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
179 |
MOM_U_IMPLICIT_R |
& *_recip_hFacW(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/mom_common/mom_u_implicit_r.F |
183 |
MOM_U_IMPLICIT_R |
& *_recip_hFacW(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/mom_common/mom_u_implicit_r.F |
192 |
MOM_U_IMPLICIT_R |
& *recip_rAw(i,j,bi,bj)*rkSign |
|
./pkg/mom_common/mom_u_implicit_r.F |
194 |
MOM_U_IMPLICIT_R |
& - rCenter*_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
197 |
MOM_U_IMPLICIT_R |
& - rCenter*_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
200 |
MOM_U_IMPLICIT_R |
& + rCenter*_recip_hFacW(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/mom_common/mom_u_implicit_r.F |
203 |
MOM_U_IMPLICIT_R |
& + rCenter*_recip_hFacW(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/mom_common/mom_u_implicit_r.F |
231 |
MOM_U_IMPLICIT_R |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)*c5d(i,j,k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
243 |
MOM_U_IMPLICIT_R |
U gU(1-OLx,1-OLy,1,bi,bj), |
|
./pkg/mom_common/mom_u_implicit_r.F |
245 |
MOM_U_IMPLICIT_R |
I bi, bj, myThid ) |
|
./pkg/mom_common/mom_u_implicit_r.F |
258 |
MOM_U_IMPLICIT_R |
dU_psFacX(i,j,k,bi,bj) = maskW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_u_implicit_r.F |
267 |
MOM_U_IMPLICIT_R |
dU_psFacX(i,j,k,bi,bj) = dU_psFacX(i,j,k,bi,bj)*c5d(i,j,k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
274 |
MOM_U_IMPLICIT_R |
U dU_psFacX(1-OLx,1-OLy,1,bi,bj), |
|
./pkg/mom_common/mom_u_implicit_r.F |
276 |
MOM_U_IMPLICIT_R |
I bi, bj, myThid ) |
|
./pkg/mom_common/mom_u_implicit_r.F |
298 |
MOM_U_IMPLICIT_R |
vf(i,j) = -rAw(i,j,bi,bj)*deepFac2F(k)*rhoFacF(k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
300 |
MOM_U_IMPLICIT_R |
& * (gU(i,j,k,bi,bj) - gU(i,j,k-1,bi,bj)) |
|
./pkg/mom_common/mom_u_implicit_r.F |
301 |
MOM_U_IMPLICIT_R |
& *_maskW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_u_implicit_r.F |
302 |
MOM_U_IMPLICIT_R |
& *_maskW(i,j,k-1,bi,bj) |
|
./pkg/mom_common/mom_u_implicit_r.F |
306 |
MOM_U_IMPLICIT_R |
CALL DIAGNOSTICS_FILL(vf,diagName, k,1, 2,bi,bj, myThid) |
|
./pkg/mom_common/mom_u_implicit_r.F |
33 |
MOM_U_IMPLICIT_R |
INTEGER bi, bj |
|
./pkg/mom_common/mom_u_implicit_r.F |
95 |
MOM_U_IMPLICIT_R |
IF (maskW(i,j,k-1,bi,bj).EQ.oneRS) |
|
./pkg/mom_common/mom_u_implicit_r.F |
97 |
MOM_U_IMPLICIT_R |
& *_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_u_metric_nh.F |
11 |
MOM_U_METRIC_NH |
I bi,bj,k, |
|
./pkg/mom_common/mom_u_metric_nh.F |
35 |
MOM_U_METRIC_NH |
INTEGER bi,bj,k |
|
./pkg/mom_common/mom_u_metric_nh.F |
57 |
MOM_U_METRIC_NH |
& *0.25*( (wFld(i-1,j,kp1,bi,bj)+wFld(i,j,kp1,bi,bj)) |
|
./pkg/mom_common/mom_u_metric_nh.F |
59 |
MOM_U_METRIC_NH |
& + (wFld(i-1,j, k ,bi,bj)+wFld(i,j, k ,bi,bj)) |
|
./pkg/mom_common/mom_u_rviscflux.F |
11 |
MOM_U_RVISCFLUX |
I bi,bj,k, |
|
./pkg/mom_common/mom_u_rviscflux.F |
36 |
MOM_U_RVISCFLUX |
INTEGER bi,bj,k |
|
./pkg/mom_common/mom_u_rviscflux.F |
62 |
MOM_U_RVISCFLUX |
& *rAw(i,j,bi,bj)*deepFac2F(k)*rhoFacF(k) |
|
./pkg/mom_common/mom_u_rviscflux.F |
63 |
MOM_U_RVISCFLUX |
& *( uFld(i,j,k,bi,bj)-uFld(i,j,k-1,bi,bj) |
|
./pkg/mom_common/mom_u_rviscflux.F |
65 |
MOM_U_RVISCFLUX |
& *_maskW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_u_rviscflux.F |
66 |
MOM_U_RVISCFLUX |
& *_maskW(i,j,k-1,bi,bj) |
|
./model/src/cg2d.F |
117 |
CG2D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d.F |
121 |
CG2D |
cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj)*cg2dNorm |
|
./model/src/cg2d.F |
122 |
CG2D |
rhsMax = MAX(ABS(cg2d_b(i,j,bi,bj)),rhsMax) |
|
./model/src/cg2d.F |
133 |
CG2D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d.F |
137 |
CG2D |
cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj)*rhsNorm |
|
./model/src/cg2d.F |
138 |
CG2D |
cg2d_x(i,j,bi,bj) = cg2d_x(i,j,bi,bj)*rhsNorm |
|
./model/src/cg2d.F |
150 |
CG2D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d.F |
155 |
CG2D |
cg2d_min(i,j,bi,bj) = cg2d_x(i,j,bi,bj) |
|
./model/src/cg2d.F |
161 |
CG2D |
cg2d_s(i,j,bi,bj) = 0. |
|
./model/src/cg2d.F |
164 |
CG2D |
sumRHStile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d.F |
165 |
CG2D |
errTile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d.F |
171 |
CG2D |
cg2d_r(i,j,bi,bj) = cg2d_b(i,j,bi,bj) - |
|
./model/src/cg2d.F |
172 |
CG2D |
& (aW2d(i ,j ,bi,bj)*cg2d_x(i-1,j ,bi,bj) |
|
./model/src/cg2d.F |
173 |
CG2D |
& +aW2d(i+1,j ,bi,bj)*cg2d_x(i+1,j ,bi,bj) |
|
./model/src/cg2d.F |
174 |
CG2D |
& +aS2d(i ,j ,bi,bj)*cg2d_x(i ,j-1,bi,bj) |
|
./model/src/cg2d.F |
175 |
CG2D |
& +aS2d(i ,j+1,bi,bj)*cg2d_x(i ,j+1,bi,bj) |
|
./model/src/cg2d.F |
176 |
CG2D |
& +aC2d(i ,j ,bi,bj)*cg2d_x(i ,j ,bi,bj) |
|
./model/src/cg2d.F |
179 |
CG2D |
localBuf(i,j,bi,bj) = cg2d_r(i,j,bi,bj)*cg2d_r(i,j,bi,bj) |
|
./model/src/cg2d.F |
181 |
CG2D |
errTile(bi,bj) = errTile(bi,bj) |
|
./model/src/cg2d.F |
182 |
CG2D |
& + cg2d_r(i,j,bi,bj)*cg2d_r(i,j,bi,bj) |
|
./model/src/cg2d.F |
183 |
CG2D |
sumRHStile(bi,bj) = sumRHStile(bi,bj) + cg2d_b(i,j,bi,bj) |
|
./model/src/cg2d.F |
220 |
CG2D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d.F |
222 |
CG2D |
eta_qrNtile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d.F |
228 |
CG2D |
cg2d_q(i,j,bi,bj) = |
|
./model/src/cg2d.F |
229 |
CG2D |
& pC(i ,j ,bi,bj)*cg2d_r(i ,j ,bi,bj) |
|
./model/src/cg2d.F |
230 |
CG2D |
& +pW(i ,j ,bi,bj)*cg2d_r(i-1,j ,bi,bj) |
|
./model/src/cg2d.F |
231 |
CG2D |
& +pW(i+1,j ,bi,bj)*cg2d_r(i+1,j ,bi,bj) |
|
./model/src/cg2d.F |
232 |
CG2D |
& +pS(i ,j ,bi,bj)*cg2d_r(i ,j-1,bi,bj) |
|
./model/src/cg2d.F |
233 |
CG2D |
& +pS(i ,j+1,bi,bj)*cg2d_r(i ,j+1,bi,bj) |
|
./model/src/cg2d.F |
238 |
CG2D |
localBuf(i,j,bi,bj) = |
|
./model/src/cg2d.F |
239 |
CG2D |
& cg2d_q(i,j,bi,bj)*cg2d_r(i,j,bi,bj) |
|
./model/src/cg2d.F |
241 |
CG2D |
eta_qrNtile(bi,bj) = eta_qrNtile(bi,bj) |
|
./model/src/cg2d.F |
242 |
CG2D |
& +cg2d_q(i,j,bi,bj)*cg2d_r(i,j,bi,bj) |
|
./model/src/cg2d.F |
261 |
CG2D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d.F |
265 |
CG2D |
cg2d_s(i,j,bi,bj) = cg2d_q(i,j,bi,bj) |
|
./model/src/cg2d.F |
266 |
CG2D |
& + cgBeta*cg2d_s(i,j,bi,bj) |
|
./model/src/cg2d.F |
277 |
CG2D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d.F |
279 |
CG2D |
alphaTile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d.F |
285 |
CG2D |
cg2d_q(i,j,bi,bj) = |
|
./model/src/cg2d.F |
286 |
CG2D |
& aW2d(i ,j ,bi,bj)*cg2d_s(i-1,j ,bi,bj) |
|
./model/src/cg2d.F |
287 |
CG2D |
& +aW2d(i+1,j ,bi,bj)*cg2d_s(i+1,j ,bi,bj) |
|
./model/src/cg2d.F |
288 |
CG2D |
& +aS2d(i ,j ,bi,bj)*cg2d_s(i ,j-1,bi,bj) |
|
./model/src/cg2d.F |
289 |
CG2D |
& +aS2d(i ,j+1,bi,bj)*cg2d_s(i ,j+1,bi,bj) |
|
./model/src/cg2d.F |
290 |
CG2D |
& +aC2d(i ,j ,bi,bj)*cg2d_s(i ,j ,bi,bj) |
|
./model/src/cg2d.F |
292 |
CG2D |
localBuf(i,j,bi,bj) = cg2d_s(i,j,bi,bj)*cg2d_q(i,j,bi,bj) |
|
./model/src/cg2d.F |
294 |
CG2D |
alphaTile(bi,bj) = alphaTile(bi,bj) |
|
./model/src/cg2d.F |
295 |
CG2D |
& + cg2d_s(i,j,bi,bj)*cg2d_q(i,j,bi,bj) |
|
./model/src/cg2d.F |
314 |
CG2D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d.F |
316 |
CG2D |
errTile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d.F |
319 |
CG2D |
cg2d_x(i,j,bi,bj)=cg2d_x(i,j,bi,bj)+alpha*cg2d_s(i,j,bi,bj) |
|
./model/src/cg2d.F |
320 |
CG2D |
cg2d_r(i,j,bi,bj)=cg2d_r(i,j,bi,bj)-alpha*cg2d_q(i,j,bi,bj) |
|
./model/src/cg2d.F |
322 |
CG2D |
localBuf(i,j,bi,bj) = cg2d_r(i,j,bi,bj)*cg2d_r(i,j,bi,bj) |
|
./model/src/cg2d.F |
324 |
CG2D |
errTile(bi,bj) = errTile(bi,bj) |
|
./model/src/cg2d.F |
325 |
CG2D |
& + cg2d_r(i,j,bi,bj)*cg2d_r(i,j,bi,bj) |
|
./model/src/cg2d.F |
351 |
CG2D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d.F |
355 |
CG2D |
cg2d_min(i,j,bi,bj) = cg2d_x(i,j,bi,bj) |
|
./model/src/cg2d.F |
369 |
CG2D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d.F |
373 |
CG2D |
cg2d_x(i,j,bi,bj) = cg2d_min(i,j,bi,bj) |
|
./model/src/cg2d.F |
382 |
CG2D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d.F |
386 |
CG2D |
cg2d_x(i,j,bi,bj) = cg2d_x(i,j,bi,bj)/rhsNorm |
|
./model/src/cg2d.F |
90 |
CG2D |
INTEGER bi, bj |
|
./pkg/mom_common/mom_u_sidedrag.F |
110 |
MOM_U_SIDEDRAG |
hFacZClosedS = h0FacW(i,j,k,bi,bj) - hFacZ(i,j) |
|
./pkg/mom_common/mom_u_sidedrag.F |
111 |
MOM_U_SIDEDRAG |
hFacZClosedN = h0FacW(i,j,k,bi,bj) - hFacZ(i,j+1) |
|
./pkg/mom_common/mom_u_sidedrag.F |
113 |
MOM_U_SIDEDRAG |
hFacZClosedS = _hFacW(i,j,k,bi,bj) - hFacZ(i,j) |
|
./pkg/mom_common/mom_u_sidedrag.F |
114 |
MOM_U_SIDEDRAG |
hFacZClosedN = _hFacW(i,j,k,bi,bj) - hFacZ(i,j+1) |
|
./pkg/mom_common/mom_u_sidedrag.F |
117 |
MOM_U_SIDEDRAG |
& -_recip_hFacW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
118 |
MOM_U_SIDEDRAG |
& *recip_drF(k)*recip_rAw(i,j,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
119 |
MOM_U_SIDEDRAG |
& *( hFacZClosedS*_dxV(i, j ,bi,bj)*_recip_dyU(i, j ,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
11 |
MOM_U_SIDEDRAG |
I bi, bj, k, |
|
./pkg/mom_common/mom_u_sidedrag.F |
121 |
MOM_U_SIDEDRAG |
& *( viscAh_Z(i,j )*uFld(i,j)*cosFacU(j,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
123 |
MOM_U_SIDEDRAG |
& -viscA4_Z(i,j )*del2u(i,j)*sqcosFacU(j,bi,bj) ) |
|
./pkg/mom_common/mom_u_sidedrag.F |
125 |
MOM_U_SIDEDRAG |
& -viscA4_Z(i,j )*del2u(i,j)*cosFacU(j,bi,bj) ) |
|
./pkg/mom_common/mom_u_sidedrag.F |
131 |
MOM_U_SIDEDRAG |
& +hFacZClosedN*_dxV(i,j+1,bi,bj)*_recip_dyU(i,j+1,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
133 |
MOM_U_SIDEDRAG |
& *( viscAh_Z(i,j+1)*uFld(i,j)*cosFacU(j,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
135 |
MOM_U_SIDEDRAG |
& -viscA4_Z(i,j+1)*del2u(i,j)*sqcosFacU(j,bi,bj) ) |
|
./pkg/mom_common/mom_u_sidedrag.F |
137 |
MOM_U_SIDEDRAG |
& -viscA4_Z(i,j+1)*del2u(i,j)*cosFacU(j,bi,bj) ) |
|
./pkg/mom_common/mom_u_sidedrag.F |
152 |
MOM_U_SIDEDRAG |
CALL DIAGNOSTICS_FILL(uDragTerms,'USidDrag',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_u_sidedrag.F |
39 |
MOM_U_SIDEDRAG |
INTEGER bi, bj, k |
|
./pkg/mom_common/mom_u_sidedrag.F |
68 |
MOM_U_SIDEDRAG |
hFacZClosedS = h0FacW(i,j,k,bi,bj) - hFacZ(i,j) |
|
./pkg/mom_common/mom_u_sidedrag.F |
69 |
MOM_U_SIDEDRAG |
hFacZClosedN = h0FacW(i,j,k,bi,bj) - hFacZ(i,j+1) |
|
./pkg/mom_common/mom_u_sidedrag.F |
71 |
MOM_U_SIDEDRAG |
hFacZClosedS = _hFacW(i,j,k,bi,bj) - hFacZ(i,j) |
|
./pkg/mom_common/mom_u_sidedrag.F |
72 |
MOM_U_SIDEDRAG |
hFacZClosedN = _hFacW(i,j,k,bi,bj) - hFacZ(i,j+1) |
|
./pkg/mom_common/mom_u_sidedrag.F |
74 |
MOM_U_SIDEDRAG |
Ahtmp=MIN(viscAh+viscAhGrid*rAw(i,j,bi,bj)/deltaTmom, |
|
./pkg/mom_common/mom_u_sidedrag.F |
76 |
MOM_U_SIDEDRAG |
A4tmp=MIN(viscA4+viscA4Grid*(rAw(i,j,bi,bj)**2)/deltaTmom, |
|
./pkg/mom_common/mom_u_sidedrag.F |
78 |
MOM_U_SIDEDRAG |
A4tmp=MIN(A4tmp,viscA4GridMax*(rAw(i,j,bi,bj)**2)/deltaTmom) |
|
./pkg/mom_common/mom_u_sidedrag.F |
79 |
MOM_U_SIDEDRAG |
A4tmp=MAX(A4tmp,viscA4GridMin*(rAw(i,j,bi,bj)**2)/deltaTmom) |
|
./pkg/mom_common/mom_u_sidedrag.F |
81 |
MOM_U_SIDEDRAG |
& -_recip_hFacW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
82 |
MOM_U_SIDEDRAG |
& *recip_drF(k)*recip_rAw(i,j,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
83 |
MOM_U_SIDEDRAG |
& *( hFacZClosedS*_dxV(i, j ,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
84 |
MOM_U_SIDEDRAG |
& *_recip_dyU(i, j ,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
85 |
MOM_U_SIDEDRAG |
& +hFacZClosedN*_dxV(i,j+1,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
86 |
MOM_U_SIDEDRAG |
& *_recip_dyU(i,j+1,bi,bj) ) |
|
./pkg/mom_common/mom_u_sidedrag.F |
89 |
MOM_U_SIDEDRAG |
& viscAh*uFld(i,j)*cosFacU(j,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
91 |
MOM_U_SIDEDRAG |
& -viscA4*del2u(i,j)*sqcosFacU(j,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
93 |
MOM_U_SIDEDRAG |
& -viscA4*del2u(i,j)*cosFacU(j,bi,bj) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
101 |
MOM_UV_SMAG_3D |
& *dyU( i , j ,bi,bj) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
104 |
MOM_UV_SMAG_3D |
& *dxF( i , j ,bi,bj) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
106 |
MOM_UV_SMAG_3D |
& *dxF( i ,j-1,bi,bj) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
113 |
MOM_UV_SMAG_3D |
& )*rkSign*recip_hFacS(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
17 |
MOM_UV_SMAG_3D |
I iMin,iMax,jMin,jMax, k, bi, bj, myThid ) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
44 |
MOM_UV_SMAG_3D |
INTEGER k, bi, bj |
|
./pkg/mom_common/mom_uv_smag_3d.F |
75 |
MOM_UV_SMAG_3D |
uDissip(i,j) = recip_rAw(i,j,bi,bj)*( |
|
./pkg/mom_common/mom_uv_smag_3d.F |
77 |
MOM_UV_SMAG_3D |
& *dyF( i , j ,bi,bj) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
79 |
MOM_UV_SMAG_3D |
& *dyF(i-1, j ,bi,bj) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
82 |
MOM_UV_SMAG_3D |
& *dxV( i ,j+1,bi,bj) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
84 |
MOM_UV_SMAG_3D |
& *dxV( i , j ,bi,bj) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
91 |
MOM_UV_SMAG_3D |
& )*rkSign*recip_hFacW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
97 |
MOM_UV_SMAG_3D |
vDissip(i,j) = recip_rAs(i,j,bi,bj)*( |
|
./pkg/mom_common/mom_uv_smag_3d.F |
99 |
MOM_UV_SMAG_3D |
& *dyU(i+1, j ,bi,bj) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
107 |
MOM_V_BOTDRAG_IMPL |
& + halfRL*( bottomDragFld(i,j-1,bi,bj) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
108 |
MOM_V_BOTDRAG_IMPL |
& + bottomDragFld(i,j,bi,bj) )*dragFac |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
122 |
MOM_V_BOTDRAG_IMPL |
& *_recip_hFacS(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
143 |
MOM_V_BOTDRAG_IMPL |
& ( uFld( i , j ,k)*uFld( i , j ,k)*_hFacW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
144 |
MOM_V_BOTDRAG_IMPL |
& +uFld(i+1, j ,k)*uFld(i+1, j ,k)*_hFacW(i+1,j,k,bi,bj) ) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
145 |
MOM_V_BOTDRAG_IMPL |
& + ( vFld( i , j ,k)*vFld( i , j ,k)*_hFacS(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
146 |
MOM_V_BOTDRAG_IMPL |
& +vFld( i ,j+1,k)*vFld( i ,j+1,k)*_hFacS(i,j+1,k,bi,bj) ) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
147 |
MOM_V_BOTDRAG_IMPL |
& )*_recip_hFacC(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
166 |
MOM_V_BOTDRAG_IMPL |
& + ( (uFld( i ,j-1,k)*uFld( i ,j-1,k)*hFacW( i ,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
167 |
MOM_V_BOTDRAG_IMPL |
& +uFld( i , j ,k)*uFld( i , j ,k)*hFacW( i , j ,k,bi,bj)) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
168 |
MOM_V_BOTDRAG_IMPL |
& + (uFld(i+1,j-1,k)*uFld(i+1,j-1,k)*hFacW(i+1,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
169 |
MOM_V_BOTDRAG_IMPL |
& +uFld(i+1, j ,k)*uFld(i+1, j ,k)*hFacW(i+1, j ,k,bi,bj)) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
16 |
MOM_V_BOTDRAG_IMPL |
I bi, bj, myIter, myThid ) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
170 |
MOM_V_BOTDRAG_IMPL |
& )*recip_hFacS(i,j,k,bi,bj)*0.25 _d 0 |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
183 |
MOM_V_BOTDRAG_IMPL |
vSq = ( hFacW( i ,j-1,k,bi,bj) + hFacW( i , j ,k,bi,bj) ) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
184 |
MOM_V_BOTDRAG_IMPL |
& + ( hFacW(i+1,j-1,k,bi,bj) + hFacW(i+1, j ,k,bi,bj) ) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
187 |
MOM_V_BOTDRAG_IMPL |
& +( (uFld( i ,j-1,k)*uFld( i ,j-1,k)*hFacW( i ,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
188 |
MOM_V_BOTDRAG_IMPL |
& +uFld( i , j ,k)*uFld( i , j ,k)*hFacW( i , j ,k,bi,bj)) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
189 |
MOM_V_BOTDRAG_IMPL |
& + (uFld(i+1,j-1,k)*uFld(i+1,j-1,k)*hFacW(i+1,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
190 |
MOM_V_BOTDRAG_IMPL |
& +uFld(i+1, j ,k)*uFld(i+1, j ,k)*hFacW(i+1, j ,k,bi,bj)) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
45 |
MOM_V_BOTDRAG_IMPL |
INTEGER bi, bj |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
87 |
MOM_V_BOTDRAG_IMPL |
recDrF_bot(i,j) = _recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
94 |
MOM_V_BOTDRAG_IMPL |
recDrF_bot(i,j) = _recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
95 |
MOM_V_BOTDRAG_IMPL |
& * ( 1. _d 0 -_maskS(i,j,kDown,bi,bj) ) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
103 |
MOM_V_BOTTOMDRAG |
& + halfRL*( bottomDragFld(i,j-1,bi,bj) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
104 |
MOM_V_BOTTOMDRAG |
& + bottomDragFld(i,j,bi,bj) )*dragFac |
|
./pkg/mom_common/mom_v_bottomdrag.F |
118 |
MOM_V_BOTTOMDRAG |
& *_recip_hFacS(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
14 |
MOM_V_BOTTOMDRAG |
I bi, bj, k, |
|
./pkg/mom_common/mom_v_bottomdrag.F |
152 |
MOM_V_BOTTOMDRAG |
& + ( (uFld( i ,j-1)*uFld( i ,j-1)*hFacW( i ,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
153 |
MOM_V_BOTTOMDRAG |
& +uFld( i , j )*uFld( i , j )*hFacW( i , j ,k,bi,bj)) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
154 |
MOM_V_BOTTOMDRAG |
& + (uFld(i+1,j-1)*uFld(i+1,j-1)*hFacW(i+1,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
155 |
MOM_V_BOTTOMDRAG |
& +uFld(i+1, j )*uFld(i+1, j )*hFacW(i+1, j ,k,bi,bj)) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
156 |
MOM_V_BOTTOMDRAG |
& )*recip_hFacS(i,j,k,bi,bj)*0.25 _d 0 |
|
./pkg/mom_common/mom_v_bottomdrag.F |
169 |
MOM_V_BOTTOMDRAG |
vSq = ( hFacW( i ,j-1,k,bi,bj) + hFacW( i , j ,k,bi,bj) ) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
170 |
MOM_V_BOTTOMDRAG |
& + ( hFacW(i+1,j-1,k,bi,bj) + hFacW(i+1, j ,k,bi,bj) ) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
173 |
MOM_V_BOTTOMDRAG |
& +( (uFld( i ,j-1)*uFld( i ,j-1)*hFacW( i ,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
174 |
MOM_V_BOTTOMDRAG |
& +uFld( i , j )*uFld( i , j )*hFacW( i , j ,k,bi,bj)) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
175 |
MOM_V_BOTTOMDRAG |
& + (uFld(i+1,j-1)*uFld(i+1,j-1)*hFacW(i+1,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
176 |
MOM_V_BOTTOMDRAG |
& +uFld(i+1, j )*uFld(i+1, j )*hFacW(i+1, j ,k,bi,bj)) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
195 |
MOM_V_BOTTOMDRAG |
CALL DIAGNOSTICS_FILL(vDragTerms,'VBotDrag',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
43 |
MOM_V_BOTTOMDRAG |
INTEGER bi,bj,k |
|
./pkg/mom_common/mom_v_bottomdrag.F |
83 |
MOM_V_BOTTOMDRAG |
recDrF_bot(i,j) = _recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
90 |
MOM_V_BOTTOMDRAG |
recDrF_bot(i,j) = _recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
91 |
MOM_V_BOTTOMDRAG |
& * ( 1. _d 0 -_maskS(i,j,kDown,bi,bj) ) |
|
./pkg/mom_common/mom_v_coriolis_nh.F |
11 |
MOM_V_CORIOLIS_NH |
I bi,bj,k,wFld, |
|
./pkg/mom_common/mom_v_coriolis_nh.F |
34 |
MOM_V_CORIOLIS_NH |
INTEGER bi,bj,k |
|
./pkg/mom_common/mom_v_coriolis_nh.F |
57 |
MOM_V_CORIOLIS_NH |
& -0.5*( fCoriCos( i ,j,bi,bj)*angleSinC(i, j ,bi,bj) |
|
./pkg/mom_common/mom_v_coriolis_nh.F |
58 |
MOM_V_CORIOLIS_NH |
& *0.5*( wFld( i ,j, k ,bi,bj)*rVel2wUnit( k ) |
|
./pkg/mom_common/mom_v_coriolis_nh.F |
59 |
MOM_V_CORIOLIS_NH |
& +wFld( i ,j,kp1,bi,bj)*rVel2wUnit(kp1)*wMsk ) |
|
./pkg/mom_common/mom_v_coriolis_nh.F |
60 |
MOM_V_CORIOLIS_NH |
& + fCoriCos(i,j-1,bi,bj)*angleSinC(i,j-1,bi,bj) |
|
./pkg/mom_common/mom_v_coriolis_nh.F |
61 |
MOM_V_CORIOLIS_NH |
& *0.5*( wFld(i,j-1, k ,bi,bj)*rVel2wUnit( k ) |
|
./pkg/mom_common/mom_v_coriolis_nh.F |
62 |
MOM_V_CORIOLIS_NH |
& +wFld(i,j-1,kp1,bi,bj)*rVel2wUnit(kp1)*wMsk ) |
|
./pkg/mom_common/mom_v_implicit_r.F |
108 |
MOM_V_IMPLICIT_R |
IF (maskS(i,j,k+1,bi,bj).EQ.oneRS) |
|
./pkg/mom_common/mom_v_implicit_r.F |
110 |
MOM_V_IMPLICIT_R |
& *_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
11 |
MOM_V_IMPLICIT_R |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/mom_common/mom_v_implicit_r.F |
133 |
MOM_V_IMPLICIT_R |
I uVel(1-OLx,1-OLy,1,bi,bj), |
|
./pkg/mom_common/mom_v_implicit_r.F |
134 |
MOM_V_IMPLICIT_R |
I vVel(1-OLx,1-OLy,1,bi,bj), |
|
./pkg/mom_common/mom_v_implicit_r.F |
137 |
MOM_V_IMPLICIT_R |
I bi, bj, myIter, myThid ) |
|
./pkg/mom_common/mom_v_implicit_r.F |
149 |
MOM_V_IMPLICIT_R |
& wVel(i, j ,k,bi,bj)*rA(i, j ,bi,bj) |
|
./pkg/mom_common/mom_v_implicit_r.F |
150 |
MOM_V_IMPLICIT_R |
& *maskC(i, j ,k-1,bi,bj) |
|
./pkg/mom_common/mom_v_implicit_r.F |
151 |
MOM_V_IMPLICIT_R |
& + wVel(i,j-1,k,bi,bj)*rA(i,j-1,bi,bj) |
|
./pkg/mom_common/mom_v_implicit_r.F |
152 |
MOM_V_IMPLICIT_R |
& *maskC(i,j-1,k-1,bi,bj) |
|
./pkg/mom_common/mom_v_implicit_r.F |
167 |
MOM_V_IMPLICIT_R |
& *recip_rAs(i,j,bi,bj)*rkSign |
|
./pkg/mom_common/mom_v_implicit_r.F |
171 |
MOM_V_IMPLICIT_R |
& *_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
175 |
MOM_V_IMPLICIT_R |
& *_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
179 |
MOM_V_IMPLICIT_R |
& *_recip_hFacS(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/mom_common/mom_v_implicit_r.F |
183 |
MOM_V_IMPLICIT_R |
& *_recip_hFacS(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/mom_common/mom_v_implicit_r.F |
192 |
MOM_V_IMPLICIT_R |
& *recip_rAs(i,j,bi,bj)*rkSign |
|
./pkg/mom_common/mom_v_implicit_r.F |
194 |
MOM_V_IMPLICIT_R |
& - rCenter*_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
197 |
MOM_V_IMPLICIT_R |
& - rCenter*_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
200 |
MOM_V_IMPLICIT_R |
& + rCenter*_recip_hFacS(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/mom_common/mom_v_implicit_r.F |
203 |
MOM_V_IMPLICIT_R |
& + rCenter*_recip_hFacS(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/mom_common/mom_v_implicit_r.F |
231 |
MOM_V_IMPLICIT_R |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)*c5d(i,j,k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
243 |
MOM_V_IMPLICIT_R |
U gV(1-OLx,1-OLy,1,bi,bj), |
|
./pkg/mom_common/mom_v_implicit_r.F |
245 |
MOM_V_IMPLICIT_R |
I bi, bj, myThid ) |
|
./pkg/mom_common/mom_v_implicit_r.F |
258 |
MOM_V_IMPLICIT_R |
dV_psFacY(i,j,k,bi,bj) = maskS(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_v_implicit_r.F |
267 |
MOM_V_IMPLICIT_R |
dV_psFacY(i,j,k,bi,bj) = dV_psFacY(i,j,k,bi,bj)*c5d(i,j,k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
274 |
MOM_V_IMPLICIT_R |
U dV_psFacY(1-OLx,1-OLy,1,bi,bj), |
|
./pkg/mom_common/mom_v_implicit_r.F |
276 |
MOM_V_IMPLICIT_R |
I bi, bj, myThid ) |
|
./pkg/mom_common/mom_v_implicit_r.F |
298 |
MOM_V_IMPLICIT_R |
vf(i,j) = -rAs(i,j,bi,bj)*deepFac2F(k)*rhoFacF(k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
300 |
MOM_V_IMPLICIT_R |
& * (gV(i,j,k,bi,bj) - gV(i,j,k-1,bi,bj)) |
|
./pkg/mom_common/mom_v_implicit_r.F |
301 |
MOM_V_IMPLICIT_R |
& *_maskS(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_v_implicit_r.F |
302 |
MOM_V_IMPLICIT_R |
& *_maskS(i,j,k-1,bi,bj) |
|
./pkg/mom_common/mom_v_implicit_r.F |
306 |
MOM_V_IMPLICIT_R |
CALL DIAGNOSTICS_FILL(vf,diagName, k,1, 2,bi,bj, myThid) |
|
./pkg/mom_common/mom_v_implicit_r.F |
33 |
MOM_V_IMPLICIT_R |
INTEGER bi, bj |
|
./pkg/mom_common/mom_v_implicit_r.F |
95 |
MOM_V_IMPLICIT_R |
IF (maskS(i,j,k-1,bi,bj).EQ.oneRS) |
|
./pkg/mom_common/mom_v_implicit_r.F |
97 |
MOM_V_IMPLICIT_R |
& *_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_v_metric_nh.F |
11 |
MOM_V_METRIC_NH |
I bi,bj,k, |
|
./pkg/mom_common/mom_v_metric_nh.F |
35 |
MOM_V_METRIC_NH |
INTEGER bi,bj,k |
|
./pkg/mom_common/mom_v_metric_nh.F |
57 |
MOM_V_METRIC_NH |
& *0.25*( (wFld(i,j-1,kp1,bi,bj)+wFld(i,j,kp1,bi,bj)) |
|
./pkg/mom_common/mom_v_metric_nh.F |
59 |
MOM_V_METRIC_NH |
& + (wFld(i,j-1, k ,bi,bj)+wFld(i,j, k ,bi,bj)) |
|
./pkg/mom_common/mom_v_rviscflux.F |
11 |
MOM_V_RVISCFLUX |
I bi,bj,k, |
|
./pkg/mom_common/mom_v_rviscflux.F |
36 |
MOM_V_RVISCFLUX |
INTEGER bi,bj,k |
|
./pkg/mom_common/mom_v_rviscflux.F |
62 |
MOM_V_RVISCFLUX |
& *rAs(i,j,bi,bj)*deepFac2F(k)*rhoFacF(k) |
|
./pkg/mom_common/mom_v_rviscflux.F |
63 |
MOM_V_RVISCFLUX |
& *( vFld(i,j,k,bi,bj)-vFld(i,j,k-1,bi,bj) |
|
./pkg/mom_common/mom_v_rviscflux.F |
65 |
MOM_V_RVISCFLUX |
& *_maskS(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_v_rviscflux.F |
66 |
MOM_V_RVISCFLUX |
& *_maskS(i,j,k-1,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
107 |
MOM_V_SIDEDRAG |
hFacZClosedW = h0FacS(i,j,k,bi,bj) - hFacZ(i,j) |
|
./pkg/mom_common/mom_v_sidedrag.F |
108 |
MOM_V_SIDEDRAG |
hFacZClosedE = h0FacS(i,j,k,bi,bj) - hFacZ(i+1,j) |
|
./pkg/mom_common/mom_v_sidedrag.F |
110 |
MOM_V_SIDEDRAG |
hFacZClosedW = _hFacS(i,j,k,bi,bj) - hFacZ(i,j) |
|
./pkg/mom_common/mom_v_sidedrag.F |
111 |
MOM_V_SIDEDRAG |
hFacZClosedE = _hFacS(i,j,k,bi,bj) - hFacZ(i+1,j) |
|
./pkg/mom_common/mom_v_sidedrag.F |
114 |
MOM_V_SIDEDRAG |
& -_recip_hFacS(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
115 |
MOM_V_SIDEDRAG |
& *recip_drF(k)*recip_rAs(i,j,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
116 |
MOM_V_SIDEDRAG |
& *( hFacZClosedW*_dyU( i ,j,bi,bj)*_recip_dxV( i ,j,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
117 |
MOM_V_SIDEDRAG |
& *( viscAh_Z(i ,j)*vFld(i,j)*cosFacV(j,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
119 |
MOM_V_SIDEDRAG |
& -viscA4_Z(i ,j)*del2v(i,j)*sqcosFacV(j,bi,bj) ) |
|
./pkg/mom_common/mom_v_sidedrag.F |
11 |
MOM_V_SIDEDRAG |
I bi, bj, k, |
|
./pkg/mom_common/mom_v_sidedrag.F |
121 |
MOM_V_SIDEDRAG |
& -viscA4_Z(i ,j)*del2v(i,j)*cosFacV(j,bi,bj) ) |
|
./pkg/mom_common/mom_v_sidedrag.F |
123 |
MOM_V_SIDEDRAG |
& +hFacZClosedE*_dyU(i+1,j,bi,bj)*_recip_dxV(i+1,j,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
124 |
MOM_V_SIDEDRAG |
& *( viscAh_Z(i+1,j)*vFld(i,j)*cosFacV(j,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
126 |
MOM_V_SIDEDRAG |
& -viscA4_Z(i+1,j)*del2v(i,j)*sqcosFacV(j,bi,bj) ) |
|
./pkg/mom_common/mom_v_sidedrag.F |
128 |
MOM_V_SIDEDRAG |
& -viscA4_Z(i+1,j)*del2v(i,j)*cosFacV(j,bi,bj) ) |
|
./pkg/mom_common/mom_v_sidedrag.F |
139 |
MOM_V_SIDEDRAG |
CALL DIAGNOSTICS_FILL(vDragTerms,'VSidDrag',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_v_sidedrag.F |
39 |
MOM_V_SIDEDRAG |
INTEGER bi, bj, k |
|
./pkg/mom_common/mom_v_sidedrag.F |
68 |
MOM_V_SIDEDRAG |
hFacZClosedW = h0FacS(i,j,k,bi,bj) - hFacZ(i,j) |
|
./pkg/mom_common/mom_v_sidedrag.F |
69 |
MOM_V_SIDEDRAG |
hFacZClosedE = h0FacS(i,j,k,bi,bj) - hFacZ(i+1,j) |
|
./pkg/mom_common/mom_v_sidedrag.F |
71 |
MOM_V_SIDEDRAG |
hFacZClosedW = _hFacS(i,j,k,bi,bj) - hFacZ(i,j) |
|
./pkg/mom_common/mom_v_sidedrag.F |
72 |
MOM_V_SIDEDRAG |
hFacZClosedE = _hFacS(i,j,k,bi,bj) - hFacZ(i+1,j) |
|
./pkg/mom_common/mom_v_sidedrag.F |
74 |
MOM_V_SIDEDRAG |
Ahtmp=MIN(viscAh+viscAhGrid*rAs(i,j,bi,bj)/deltaTmom, |
|
./pkg/mom_common/mom_v_sidedrag.F |
76 |
MOM_V_SIDEDRAG |
A4tmp=MIN(viscA4+viscA4Grid*(rAs(i,j,bi,bj)**2)/deltaTmom, |
|
./pkg/mom_common/mom_v_sidedrag.F |
79 |
MOM_V_SIDEDRAG |
A4tmp=MIN(A4tmp,viscA4GridMax*(rAs(i,j,bi,bj)**2)/deltaTmom) |
|
./pkg/mom_common/mom_v_sidedrag.F |
81 |
MOM_V_SIDEDRAG |
A4tmp=MAX(A4tmp,viscA4GridMin*(rAs(i,j,bi,bj)**2)/deltaTmom) |
|
./pkg/mom_common/mom_v_sidedrag.F |
83 |
MOM_V_SIDEDRAG |
& -_recip_hFacS(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
84 |
MOM_V_SIDEDRAG |
& *recip_drF(k)*recip_rAs(i,j,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
85 |
MOM_V_SIDEDRAG |
& *( hFacZClosedW*_dyU( i ,j,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
86 |
MOM_V_SIDEDRAG |
& *_recip_dxV( i ,j,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
87 |
MOM_V_SIDEDRAG |
& +hFacZClosedE*_dyU(i+1,j,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
88 |
MOM_V_SIDEDRAG |
& *_recip_dxV(i+1,j,bi,bj) ) |
|
./pkg/mom_common/mom_v_sidedrag.F |
90 |
MOM_V_SIDEDRAG |
& Ahtmp*vFld(i,j)*cosFacV(j,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
92 |
MOM_V_SIDEDRAG |
& -viscA4*del2v(i,j)*sqcosFacV(j,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
94 |
MOM_V_SIDEDRAG |
& -A4tmp*del2v(i,j)*cosFacV(j,bi,bj) |
|
./pkg/mom_common/mom_w_coriolis_nh.F |
11 |
MOM_W_CORIOLIS_NH |
I bi,bj,k, |
|
./pkg/mom_common/mom_w_coriolis_nh.F |
35 |
MOM_W_CORIOLIS_NH |
INTEGER bi,bj,k |
|
./pkg/mom_common/mom_w_coriolis_nh.F |
56 |
MOM_W_CORIOLIS_NH |
& -gravitySign*fCoriCos(i,j,bi,bj)* |
|
./pkg/mom_common/mom_w_coriolis_nh.F |
57 |
MOM_W_CORIOLIS_NH |
& ( angleCosC(i,j,bi,bj)*( |
|
./pkg/mom_common/mom_w_coriolis_nh.F |
58 |
MOM_W_CORIOLIS_NH |
& (uFld(i,j,k-1,bi,bj)+uFld(i+1,j,k-1,bi,bj)) |
|
./pkg/mom_common/mom_w_coriolis_nh.F |
59 |
MOM_W_CORIOLIS_NH |
& + (uFld(i,j, k ,bi,bj)+uFld(i+1,j, k ,bi,bj)) |
|
./pkg/mom_common/mom_w_coriolis_nh.F |
61 |
MOM_W_CORIOLIS_NH |
& -angleSinC(i,j,bi,bj)*( |
|
./pkg/mom_common/mom_w_coriolis_nh.F |
62 |
MOM_W_CORIOLIS_NH |
& (vFld(i,j,k-1,bi,bj)+vFld(i,j+1,k-1,bi,bj)) |
|
./pkg/mom_common/mom_w_coriolis_nh.F |
63 |
MOM_W_CORIOLIS_NH |
& + (vFld(i,j, k ,bi,bj)+vFld(i,j+1, k ,bi,bj)) |
|
./model/src/cg2d_ex0.F |
106 |
CG2D_EX0 |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d_ex0.F |
109 |
CG2D_EX0 |
actualIts(bi,bj) = 0 |
|
./model/src/cg2d_ex0.F |
110 |
CG2D_EX0 |
minResIter(bi,bj) = 0 |
|
./model/src/cg2d_ex0.F |
111 |
CG2D_EX0 |
minResTile(bi,bj) = -1. _d 0 |
|
./model/src/cg2d_ex0.F |
112 |
CG2D_EX0 |
eta_qrNM1(bi,bj) = 1. _d 0 |
|
./model/src/cg2d_ex0.F |
116 |
CG2D_EX0 |
cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj)*cg2dNorm |
|
./model/src/cg2d_ex0.F |
117 |
CG2D_EX0 |
rhsMaxLoc = MAX(ABS(cg2d_b(i,j,bi,bj)),rhsMaxLoc) |
|
./model/src/cg2d_ex0.F |
120 |
CG2D_EX0 |
rhsNorm(bi,bj) = 1. _d 0 |
|
./model/src/cg2d_ex0.F |
121 |
CG2D_EX0 |
IF ( rhsMaxLoc .NE. 0. ) rhsNorm(bi,bj) = 1. _d 0 / rhsMaxLoc |
|
./model/src/cg2d_ex0.F |
125 |
CG2D_EX0 |
cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj)*rhsNorm(bi,bj) |
|
./model/src/cg2d_ex0.F |
126 |
CG2D_EX0 |
cg2d_x(i,j,bi,bj) = cg2d_x(i,j,bi,bj)*rhsNorm(bi,bj) |
|
./model/src/cg2d_ex0.F |
142 |
CG2D_EX0 |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d_ex0.F |
147 |
CG2D_EX0 |
cg2d_min(i,j,bi,bj) = cg2d_x(i,j,bi,bj) |
|
./model/src/cg2d_ex0.F |
153 |
CG2D_EX0 |
cg2d_s(i,j,bi,bj) = 0. |
|
./model/src/cg2d_ex0.F |
156 |
CG2D_EX0 |
sumRHStile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d_ex0.F |
157 |
CG2D_EX0 |
errTile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d_ex0.F |
163 |
CG2D_EX0 |
cg2d_r(i,j,bi,bj) = cg2d_b(i,j,bi,bj) - |
|
./model/src/cg2d_ex0.F |
164 |
CG2D_EX0 |
& (aW2d(i ,j ,bi,bj)*cg2d_x(i-1,j ,bi,bj) |
|
./model/src/cg2d_ex0.F |
165 |
CG2D_EX0 |
& +aW2d(i+1,j ,bi,bj)*cg2d_x(i+1,j ,bi,bj) |
|
./model/src/cg2d_ex0.F |
166 |
CG2D_EX0 |
& +aS2d(i ,j ,bi,bj)*cg2d_x(i ,j-1,bi,bj) |
|
./model/src/cg2d_ex0.F |
167 |
CG2D_EX0 |
& +aS2d(i ,j+1,bi,bj)*cg2d_x(i ,j+1,bi,bj) |
|
./model/src/cg2d_ex0.F |
168 |
CG2D_EX0 |
& +aC2d(i ,j ,bi,bj)*cg2d_x(i ,j ,bi,bj) |
|
./model/src/cg2d_ex0.F |
170 |
CG2D_EX0 |
errTile(bi,bj) = errTile(bi,bj) |
|
./model/src/cg2d_ex0.F |
171 |
CG2D_EX0 |
& + cg2d_r(i,j,bi,bj)*cg2d_r(i,j,bi,bj) |
|
./model/src/cg2d_ex0.F |
172 |
CG2D_EX0 |
sumRHStile(bi,bj) = sumRHStile(bi,bj) + cg2d_b(i,j,bi,bj) |
|
./model/src/cg2d_ex0.F |
176 |
CG2D_EX0 |
minResTile(bi,bj) = errTile(bi,bj) |
|
./model/src/cg2d_ex0.F |
178 |
CG2D_EX0 |
err_sq = MAX( errTile(bi,bj), err_sq ) |
|
./model/src/cg2d_ex0.F |
179 |
CG2D_EX0 |
sumRHS = MAX( ABS(sumRHStile(bi,bj)), sumRHS ) |
|
./model/src/cg2d_ex0.F |
204 |
CG2D_EX0 |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d_ex0.F |
206 |
CG2D_EX0 |
IF ( errTile(bi,bj).GE.cg2dTolerance_sq ) THEN |
|
./model/src/cg2d_ex0.F |
210 |
CG2D_EX0 |
eta_qrNtile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d_ex0.F |
216 |
CG2D_EX0 |
cg2d_q(i,j,bi,bj) = |
|
./model/src/cg2d_ex0.F |
217 |
CG2D_EX0 |
& pC(i ,j ,bi,bj)*cg2d_r(i ,j ,bi,bj) |
|
./model/src/cg2d_ex0.F |
218 |
CG2D_EX0 |
& +pW(i ,j ,bi,bj)*cg2d_r(i-1,j ,bi,bj) |
|
./model/src/cg2d_ex0.F |
219 |
CG2D_EX0 |
& +pW(i+1,j ,bi,bj)*cg2d_r(i+1,j ,bi,bj) |
|
./model/src/cg2d_ex0.F |
220 |
CG2D_EX0 |
& +pS(i ,j ,bi,bj)*cg2d_r(i ,j-1,bi,bj) |
|
./model/src/cg2d_ex0.F |
221 |
CG2D_EX0 |
& +pS(i ,j+1,bi,bj)*cg2d_r(i ,j+1,bi,bj) |
|
./model/src/cg2d_ex0.F |
222 |
CG2D_EX0 |
eta_qrNtile(bi,bj) = eta_qrNtile(bi,bj) |
|
./model/src/cg2d_ex0.F |
223 |
CG2D_EX0 |
& +cg2d_q(i,j,bi,bj)*cg2d_r(i,j,bi,bj) |
|
./model/src/cg2d_ex0.F |
227 |
CG2D_EX0 |
cgBeta = eta_qrNtile(bi,bj)/eta_qrNM1(bi,bj) |
|
./model/src/cg2d_ex0.F |
228 |
CG2D_EX0 |
eta_qrNM1(bi,bj) = eta_qrNtile(bi,bj) |
|
./model/src/cg2d_ex0.F |
232 |
CG2D_EX0 |
cg2d_s(i,j,bi,bj) = cg2d_q(i,j,bi,bj) |
|
./model/src/cg2d_ex0.F |
233 |
CG2D_EX0 |
& + cgBeta*cg2d_s(i,j,bi,bj) |
|
./model/src/cg2d_ex0.F |
239 |
CG2D_EX0 |
U cg2d_s(0,0,bi,bj), |
|
./model/src/cg2d_ex0.F |
241 |
CG2D_EX0 |
I EXCH_IGNORE_CORNERS, bi, bj, myThid ) |
|
./model/src/cg2d_ex0.F |
245 |
CG2D_EX0 |
alphaTile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d_ex0.F |
251 |
CG2D_EX0 |
cg2d_q(i,j,bi,bj) = |
|
./model/src/cg2d_ex0.F |
252 |
CG2D_EX0 |
& aW2d(i ,j ,bi,bj)*cg2d_s(i-1,j ,bi,bj) |
|
./model/src/cg2d_ex0.F |
253 |
CG2D_EX0 |
& +aW2d(i+1,j ,bi,bj)*cg2d_s(i+1,j ,bi,bj) |
|
./model/src/cg2d_ex0.F |
254 |
CG2D_EX0 |
& +aS2d(i ,j ,bi,bj)*cg2d_s(i ,j-1,bi,bj) |
|
./model/src/cg2d_ex0.F |
255 |
CG2D_EX0 |
& +aS2d(i ,j+1,bi,bj)*cg2d_s(i ,j+1,bi,bj) |
|
./model/src/cg2d_ex0.F |
256 |
CG2D_EX0 |
& +aC2d(i ,j ,bi,bj)*cg2d_s(i ,j ,bi,bj) |
|
./model/src/cg2d_ex0.F |
257 |
CG2D_EX0 |
alphaTile(bi,bj) = alphaTile(bi,bj) |
|
./model/src/cg2d_ex0.F |
258 |
CG2D_EX0 |
& + cg2d_s(i,j,bi,bj)*cg2d_q(i,j,bi,bj) |
|
./model/src/cg2d_ex0.F |
261 |
CG2D_EX0 |
alpha = eta_qrNtile(bi,bj)/alphaTile(bi,bj) |
|
./model/src/cg2d_ex0.F |
265 |
CG2D_EX0 |
errTile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d_ex0.F |
268 |
CG2D_EX0 |
cg2d_x(i,j,bi,bj)=cg2d_x(i,j,bi,bj)+alpha*cg2d_s(i,j,bi,bj) |
|
./model/src/cg2d_ex0.F |
269 |
CG2D_EX0 |
cg2d_r(i,j,bi,bj)=cg2d_r(i,j,bi,bj)-alpha*cg2d_q(i,j,bi,bj) |
|
./model/src/cg2d_ex0.F |
270 |
CG2D_EX0 |
errTile(bi,bj) = errTile(bi,bj) |
|
./model/src/cg2d_ex0.F |
271 |
CG2D_EX0 |
& + cg2d_r(i,j,bi,bj)*cg2d_r(i,j,bi,bj) |
|
./model/src/cg2d_ex0.F |
274 |
CG2D_EX0 |
actualIts(bi,bj) = it2d |
|
./model/src/cg2d_ex0.F |
279 |
CG2D_EX0 |
& bj, '): iter=', it2d, ' ; resid.= ', SQRT(errTile(bi,bj)) |
|
./model/src/cg2d_ex0.F |
284 |
CG2D_EX0 |
IF ( errTile(bi,bj) .GE. cg2dTolerance_sq .AND. |
|
./model/src/cg2d_ex0.F |
285 |
CG2D_EX0 |
& errTile(bi,bj) .LT. minResTile(bi,bj) ) THEN |
|
./model/src/cg2d_ex0.F |
287 |
CG2D_EX0 |
minResTile(bi,bj) = errTile(bi,bj) |
|
./model/src/cg2d_ex0.F |
288 |
CG2D_EX0 |
minResIter(bi,bj) = it2d |
|
./model/src/cg2d_ex0.F |
291 |
CG2D_EX0 |
cg2d_min(i,j,bi,bj) = cg2d_x(i,j,bi,bj) |
|
./model/src/cg2d_ex0.F |
297 |
CG2D_EX0 |
U cg2d_r(0,0,bi,bj), |
|
./model/src/cg2d_ex0.F |
299 |
CG2D_EX0 |
I EXCH_IGNORE_CORNERS, bi, bj, myThid ) |
|
./model/src/cg2d_ex0.F |
302 |
CG2D_EX0 |
err_sq = MAX( errTile(bi,bj), err_sq ) |
|
./model/src/cg2d_ex0.F |
314 |
CG2D_EX0 |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d_ex0.F |
318 |
CG2D_EX0 |
IF ( errTile(bi,bj) .GT. minResTile(bi,bj) ) THEN |
|
./model/src/cg2d_ex0.F |
321 |
CG2D_EX0 |
cg2d_x(i,j,bi,bj) = cg2d_min(i,j,bi,bj) |
|
./model/src/cg2d_ex0.F |
331 |
CG2D_EX0 |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d_ex0.F |
335 |
CG2D_EX0 |
cg2d_x(i,j,bi,bj) = cg2d_x(i,j,bi,bj)/rhsNorm(bi,bj) |
|
./model/src/cg2d_ex0.F |
349 |
CG2D_EX0 |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d_ex0.F |
351 |
CG2D_EX0 |
nIterMin = MIN( actualIts(bi,bj), nIterMin ) |
|
./model/src/cg2d_ex0.F |
352 |
CG2D_EX0 |
numIters = MAX( actualIts(bi,bj), numIters ) |
|
./model/src/cg2d_ex0.F |
353 |
CG2D_EX0 |
minResidualSq = MIN( errTile(bi,bj), minResidualSq ) |
|
./model/src/cg2d_ex0.F |
82 |
CG2D_EX0 |
INTEGER bi, bj |
|
./pkg/mom_common/mom_w_metric_nh.F |
11 |
MOM_W_METRIC_NH |
I bi,bj,k, |
|
./pkg/mom_common/mom_w_metric_nh.F |
35 |
MOM_W_METRIC_NH |
INTEGER bi,bj,k |
|
./pkg/mom_common/mom_w_metric_nh.F |
55 |
MOM_W_METRIC_NH |
& ( (uFld( i ,j,k-1,bi,bj)*uFld( i ,j,k-1,bi,bj) |
|
./pkg/mom_common/mom_w_metric_nh.F |
56 |
MOM_W_METRIC_NH |
& +uFld(i+1,j,k-1,bi,bj)*uFld(i+1,j,k-1,bi,bj)) |
|
./pkg/mom_common/mom_w_metric_nh.F |
57 |
MOM_W_METRIC_NH |
& + (vFld(i, j ,k-1,bi,bj)*vFld(i, j ,k-1,bi,bj) |
|
./pkg/mom_common/mom_w_metric_nh.F |
58 |
MOM_W_METRIC_NH |
& +vFld(i,j+1,k-1,bi,bj)*vFld(i,j+1,k-1,bi,bj)) |
|
./pkg/mom_common/mom_w_metric_nh.F |
60 |
MOM_W_METRIC_NH |
& + ( (uFld( i ,j, k ,bi,bj)*uFld( i ,j, k ,bi,bj) |
|
./pkg/mom_common/mom_w_metric_nh.F |
61 |
MOM_W_METRIC_NH |
& +uFld(i+1,j, k ,bi,bj)*uFld(i+1,j, k ,bi,bj)) |
|
./pkg/mom_common/mom_w_metric_nh.F |
62 |
MOM_W_METRIC_NH |
& + (vFld(i, j , k ,bi,bj)*vFld(i, j , k ,bi,bj) |
|
./pkg/mom_common/mom_w_metric_nh.F |
63 |
MOM_W_METRIC_NH |
& +vFld(i,j+1, k ,bi,bj)*vFld(i,j+1, k ,bi,bj)) |
|
./pkg/mom_common/mom_w_sidedrag.F |
102 |
MOM_W_SIDEDRAG |
& +heightStepS*_dxG(i,j,bi,bj)*_recip_dyC(i,j,bi,bj) |
|
./pkg/mom_common/mom_w_sidedrag.F |
103 |
MOM_W_SIDEDRAG |
& *( viscAh_W(i,j,k,bi,bj)*wFld(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_w_sidedrag.F |
105 |
MOM_W_SIDEDRAG |
& *cosFacV(j,bi,bj) |
|
./pkg/mom_common/mom_w_sidedrag.F |
107 |
MOM_W_SIDEDRAG |
& -viscA4_W(i,j,k,bi,bj)*del2w(i,j) |
|
./pkg/mom_common/mom_w_sidedrag.F |
110 |
MOM_W_SIDEDRAG |
& *sqCosFacV(j,bi,bj) |
|
./pkg/mom_common/mom_w_sidedrag.F |
112 |
MOM_W_SIDEDRAG |
& *cosFacV(j,bi,bj) |
|
./pkg/mom_common/mom_w_sidedrag.F |
116 |
MOM_W_SIDEDRAG |
& +heightStepN*_dxG(i,j+1,bi,bj)*_recip_dyC(i,j+1,bi,bj) |
|
./pkg/mom_common/mom_w_sidedrag.F |
117 |
MOM_W_SIDEDRAG |
& *( viscAh_W(i,j,k,bi,bj)*wFld(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_w_sidedrag.F |
119 |
MOM_W_SIDEDRAG |
& *cosFacV(j+1,bi,bj) |
|
./pkg/mom_common/mom_w_sidedrag.F |
11 |
MOM_W_SIDEDRAG |
I bi,bj,k, |
|
./pkg/mom_common/mom_w_sidedrag.F |
121 |
MOM_W_SIDEDRAG |
& -viscA4_W(i,j,k,bi,bj)*del2w(i,j) |
|
./pkg/mom_common/mom_w_sidedrag.F |
124 |
MOM_W_SIDEDRAG |
& *sqCosFacV(j+1,bi,bj) |
|
./pkg/mom_common/mom_w_sidedrag.F |
126 |
MOM_W_SIDEDRAG |
& *cosFacV(j+1,bi,bj) |
|
./pkg/mom_common/mom_w_sidedrag.F |
130 |
MOM_W_SIDEDRAG |
& )*recip_rThickC(i,j)*recip_rA(i,j,bi,bj) |
|
./pkg/mom_common/mom_w_sidedrag.F |
136 |
MOM_W_SIDEDRAG |
CALL DIAGNOSTICS_FILL(gwSideDrag,'WSidDrag',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_w_sidedrag.F |
42 |
MOM_W_SIDEDRAG |
INTEGER bi,bj,k |
|
./pkg/mom_common/mom_w_sidedrag.F |
82 |
MOM_W_SIDEDRAG |
& *( heightStepW*_dyG( i ,j,bi,bj)*_recip_dxC( i ,j,bi,bj) |
|
./pkg/mom_common/mom_w_sidedrag.F |
83 |
MOM_W_SIDEDRAG |
& *( viscAh_W(i,j,k,bi,bj)*wFld(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_w_sidedrag.F |
84 |
MOM_W_SIDEDRAG |
& *cosFacV(j,bi,bj) |
|
./pkg/mom_common/mom_w_sidedrag.F |
85 |
MOM_W_SIDEDRAG |
& -viscA4_W(i,j,k,bi,bj)*del2w(i,j) |
|
./pkg/mom_common/mom_w_sidedrag.F |
87 |
MOM_W_SIDEDRAG |
& *sqCosFacU(j,bi,bj) |
|
./pkg/mom_common/mom_w_sidedrag.F |
89 |
MOM_W_SIDEDRAG |
& *cosFacU(j,bi,bj) |
|
./pkg/mom_common/mom_w_sidedrag.F |
92 |
MOM_W_SIDEDRAG |
& +heightStepE*_dyG(i+1,j,bi,bj)*_recip_dxC(i+1,j,bi,bj) |
|
./pkg/mom_common/mom_w_sidedrag.F |
93 |
MOM_W_SIDEDRAG |
& *( viscAh_W(i,j,k,bi,bj)*wFld(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_w_sidedrag.F |
94 |
MOM_W_SIDEDRAG |
& *cosFacV(j,bi,bj) |
|
./pkg/mom_common/mom_w_sidedrag.F |
95 |
MOM_W_SIDEDRAG |
& -viscA4_W(i,j,k,bi,bj)*del2w(i,j) |
|
./pkg/mom_common/mom_w_sidedrag.F |
97 |
MOM_W_SIDEDRAG |
& *sqCosFacU(j,bi,bj) |
|
./pkg/mom_common/mom_w_sidedrag.F |
99 |
MOM_W_SIDEDRAG |
& *cosFacU(j,bi,bj) |
|
./pkg/mom_common/mom_w_smag_3d.F |
16 |
MOM_W_SMAG_3D |
I iMin,iMax,jMin,jMax, k, bi, bj, myThid ) |
|
./pkg/mom_common/mom_w_smag_3d.F |
47 |
MOM_W_SMAG_3D |
INTEGER k, bi, bj |
|
./pkg/mom_common/mom_w_smag_3d.F |
76 |
MOM_W_SMAG_3D |
& recip_rA(i,j,bi,bj)*( |
|
./pkg/mom_common/mom_w_smag_3d.F |
79 |
MOM_W_SMAG_3D |
& *dyG(i+1, j ,bi,bj) |
|
./pkg/mom_common/mom_w_smag_3d.F |
82 |
MOM_W_SMAG_3D |
& *dyG( i , j ,bi,bj) |
|
./pkg/mom_common/mom_w_smag_3d.F |
86 |
MOM_W_SMAG_3D |
& *dxG( i ,j+1,bi,bj) |
|
./pkg/mom_common/mom_w_smag_3d.F |
89 |
MOM_W_SMAG_3D |
& *dxG( i , j ,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
100 |
MOM_CALC_RTRANS |
& 0.5 _d 0*( wVel(i-1,j,k,bi,bj)*rA(i-1,j,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
101 |
MOM_CALC_RTRANS |
& +wVel( i ,j,k,bi,bj)*rA( i ,j,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
104 |
MOM_CALC_RTRANS |
& 0.5 _d 0*( wVel(i,j-1,k,bi,bj)*rA(i,j-1,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
105 |
MOM_CALC_RTRANS |
& +wVel(i, j ,k,bi,bj)*rA(i, j ,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
10 |
MOM_CALC_RTRANS |
I k, bi, bj, |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
121 |
MOM_CALC_RTRANS |
dWtransC(i,j,bi,bj) = rStarDhCDt(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
122 |
MOM_CALC_RTRANS |
& *(Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj)) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
123 |
MOM_CALC_RTRANS |
& *rA(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
128 |
MOM_CALC_RTRANS |
dWtransU(i,j,bi,bj) = |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
129 |
MOM_CALC_RTRANS |
& 0.5 _d 0*(dWtransC(i-1,j,bi,bj)+dWtransC(i,j,bi,bj)) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
130 |
MOM_CALC_RTRANS |
dWtransV(i,j,bi,bj) = |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
131 |
MOM_CALC_RTRANS |
& 0.5 _d 0*(dWtransC(i,j-1,bi,bj)+dWtransC(i,j,bi,bj)) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
139 |
MOM_CALC_RTRANS |
dWtransC(i,j,bi,bj) = dWtransC(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
140 |
MOM_CALC_RTRANS |
& - rStarDhCDt(i,j,bi,bj)*drF(k-1)*h0FacC(i,j,k-1,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
141 |
MOM_CALC_RTRANS |
& *rA(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
146 |
MOM_CALC_RTRANS |
dWtransU(i,j,bi,bj) = dWtransU(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
147 |
MOM_CALC_RTRANS |
& - rStarDhWDt(i,j,bi,bj)*drF(k-1)*h0FacW(i,j,k-1,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
148 |
MOM_CALC_RTRANS |
& *rAw(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
149 |
MOM_CALC_RTRANS |
dWtransV(i,j,bi,bj) = dWtransV(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
150 |
MOM_CALC_RTRANS |
& - rStarDhSDt(i,j,bi,bj)*drF(k-1)*h0FacS(i,j,k-1,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
151 |
MOM_CALC_RTRANS |
& *rAs(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
157 |
MOM_CALC_RTRANS |
rTransU(i,j) = rTransU(i,j)-dWtransU(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
158 |
MOM_CALC_RTRANS |
& + (dWtransC(i-1,j,bi,bj)+dWtransC(i,j,bi,bj))*0.5 _d 0 |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
159 |
MOM_CALC_RTRANS |
rTransV(i,j) = rTransV(i,j)-dWtransV(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
160 |
MOM_CALC_RTRANS |
& + (dWtransC(i,j-1,bi,bj)+dWtransC(i,j,bi,bj))*0.5 _d 0 |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
47 |
MOM_CALC_RTRANS |
INTEGER k, bi, bj, myIter, myThid |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
78 |
MOM_CALC_RTRANS |
& 0.5 _d 0*( PmEpR( i ,j,bi,bj)*rA( i ,j,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
79 |
MOM_CALC_RTRANS |
& +PmEpR(i-1,j,bi,bj)*rA(i-1,j,bi,bj) ) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
81 |
MOM_CALC_RTRANS |
& 0.5 _d 0*( PmEpR(i, j ,bi,bj)*rA(i, j ,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
82 |
MOM_CALC_RTRANS |
& +PmEpR(i,j-1,bi,bj)*rA(i,j-1,bi,bj) ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
185 |
MOM_FLUXFORM |
act2 = bj - myByLo(myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
265 |
MOM_FLUXFORM |
CALL MOM_CALC_HFACZ( bi,bj,k,hFacZ,r_hFacZ,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
271 |
MOM_FLUXFORM |
xA(i,j) = _dyG(i,j,bi,bj)*deepFacC(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
272 |
MOM_FLUXFORM |
& *drF(k)*_hFacW(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
273 |
MOM_FLUXFORM |
yA(i,j) = _dxG(i,j,bi,bj)*deepFacC(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
274 |
MOM_FLUXFORM |
& *drF(k)*_hFacS(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
284 |
MOM_FLUXFORM |
& MIN( h0FacW(i,j,k,bi,bj), h0FacW(i,j-1,k,bi,bj) ), |
|
./pkg/mom_fluxform/mom_fluxform.F |
285 |
MOM_FLUXFORM |
& MIN( h0FacS(i,j,k,bi,bj), h0FacS(i-1,j,k,bi,bj) ) ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
294 |
MOM_FLUXFORM |
uFld(i,j) = uVel(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
295 |
MOM_FLUXFORM |
vFld(i,j) = vVel(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
308 |
MOM_FLUXFORM |
CALL MOM_CALC_KE( bi,bj,k,2,uFld,vFld,KE,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
310 |
MOM_FLUXFORM |
CALL MOM_CALC_HDIV( bi,bj,k,2,uFld,vFld,hDiv,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
311 |
MOM_FLUXFORM |
CALL MOM_CALC_RELVORT3( bi,bj,k,uFld,vFld,hFacZ,vort3,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
312 |
MOM_FLUXFORM |
CALL MOM_CALC_TENSION( bi,bj,k,uFld,vFld,tension,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
313 |
MOM_FLUXFORM |
CALL MOM_CALC_STRAIN( bi,bj,k,uFld,vFld,hFacZ,strain,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
324 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(hDiv, 'momHDiv ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
325 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(vort3, 'momVort3',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
326 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(tension,'Tension ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
327 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(strain, 'Strain ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
336 |
MOM_FLUXFORM |
CALL MOM_UV_BOUNDARY( bi, bj, k, |
|
./pkg/mom_fluxform/mom_fluxform.F |
338 |
MOM_FLUXFORM |
O uBnd(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/mom_fluxform/mom_fluxform.F |
339 |
MOM_FLUXFORM |
O vBnd(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/mom_fluxform/mom_fluxform.F |
357 |
MOM_FLUXFORM |
CALL MOM_CALC_RTRANS( k, bi, bj, |
|
./pkg/mom_fluxform/mom_fluxform.F |
362 |
MOM_FLUXFORM |
CALL MOM_U_ADV_WU( bi,bj,k,uVel,wVel,rTransU, |
|
./pkg/mom_fluxform/mom_fluxform.F |
365 |
MOM_FLUXFORM |
CALL MOM_V_ADV_WV( bi,bj,k,vVel,wVel,rTransV, |
|
./pkg/mom_fluxform/mom_fluxform.F |
373 |
MOM_FLUXFORM |
CALL MOM_CALC_RTRANS( k+1, bi, bj, |
|
./pkg/mom_fluxform/mom_fluxform.F |
380 |
MOM_FLUXFORM |
CALL MOM_UV_BOUNDARY( bi, bj, k+1, |
|
./pkg/mom_fluxform/mom_fluxform.F |
382 |
MOM_FLUXFORM |
O uBnd(1-OLx,1-OLy,k+1,bi,bj), |
|
./pkg/mom_fluxform/mom_fluxform.F |
383 |
MOM_FLUXFORM |
O vBnd(1-OLx,1-OLy,k+1,bi,bj), |
|
./pkg/mom_fluxform/mom_fluxform.F |
398 |
MOM_FLUXFORM |
CALL MOM_CALC_VISC( bi, bj, k, |
|
./pkg/mom_fluxform/mom_fluxform.F |
413 |
MOM_FLUXFORM |
CALL MOM_U_ADV_UU( bi,bj,k,uTrans,uBnd(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/mom_fluxform/mom_fluxform.F |
415 |
MOM_FLUXFORM |
CALL MOM_U_ADV_VU( bi,bj,k,vTrans,uBnd(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/mom_fluxform/mom_fluxform.F |
418 |
MOM_FLUXFORM |
I bi,bj,k+1,uBnd,wVel,rTransU, |
|
./pkg/mom_fluxform/mom_fluxform.F |
41 |
MOM_FLUXFORM |
I bi,bj,k,iMin,iMax,jMin,jMax, |
|
./pkg/mom_fluxform/mom_fluxform.F |
423 |
MOM_FLUXFORM |
CALL MOM_U_ADV_UU( bi,bj,k,uTrans,uFld,fZon,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
427 |
MOM_FLUXFORM |
CALL MOM_U_ADV_VU( bi,bj,k,vTrans,uFld,fMer,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
432 |
MOM_FLUXFORM |
I bi,bj,k+1,uVel,wVel,rTransU, |
|
./pkg/mom_fluxform/mom_fluxform.F |
439 |
MOM_FLUXFORM |
gU(i,j,k,bi,bj) = |
|
./pkg/mom_fluxform/mom_fluxform.F |
441 |
MOM_FLUXFORM |
& -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k)/ |
|
./pkg/mom_fluxform/mom_fluxform.F |
442 |
MOM_FLUXFORM |
& ( 0.5 _d 0*(rA(i,j,bi,bj)+rA(i-1,j,bi,bj)) ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
444 |
MOM_FLUXFORM |
& -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
445 |
MOM_FLUXFORM |
& *recip_rAw(i,j,bi,bj)*recip_deepFac2C(k)*recip_rhoFacC(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
456 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL( fZon, 'ADVx_Um ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
457 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL( fMer, 'ADVy_Um ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
458 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(fVerUkm,'ADVrE_Um',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
468 |
MOM_FLUXFORM |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
469 |
MOM_FLUXFORM |
& - (rStarExpW(i,j,bi,bj) - 1. _d 0)/deltaTFreeSurf |
|
./pkg/mom_fluxform/mom_fluxform.F |
470 |
MOM_FLUXFORM |
& *uVel(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
477 |
MOM_FLUXFORM |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
478 |
MOM_FLUXFORM |
& - rStarDhWDt(i,j,bi,bj)*uVel(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
489 |
MOM_FLUXFORM |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
490 |
MOM_FLUXFORM |
& + uVel(i,j,k,bi,bj)*mass2rUnit*0.5 _d 0 |
|
./pkg/mom_fluxform/mom_fluxform.F |
491 |
MOM_FLUXFORM |
& *( addMass(i-1,j,k,bi,bj) + addMass(i,j,k,bi,bj) ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
492 |
MOM_FLUXFORM |
& *_recip_hFacW(i,j,k,bi,bj)*recip_drF(k)*recip_rhoFacC(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
493 |
MOM_FLUXFORM |
& * recip_rAw(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
503 |
MOM_FLUXFORM |
gU(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mom_fluxform/mom_fluxform.F |
515 |
MOM_FLUXFORM |
& CALL MOM_U_DEL2U( bi, bj, k, uFld, hFacZ, h0FacZ, |
|
./pkg/mom_fluxform/mom_fluxform.F |
519 |
MOM_FLUXFORM |
CALL MOM_U_XVISCFLUX( bi,bj,k,uFld,v4F,fZon, |
|
./pkg/mom_fluxform/mom_fluxform.F |
523 |
MOM_FLUXFORM |
CALL MOM_U_YVISCFLUX( bi,bj,k,uFld,v4F,hFacZ,fMer, |
|
./pkg/mom_fluxform/mom_fluxform.F |
528 |
MOM_FLUXFORM |
CALL MOM_U_RVISCFLUX( bi,bj, k, uVel,kappaRU,fVrUp,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
529 |
MOM_FLUXFORM |
CALL MOM_U_RVISCFLUX( bi,bj,k+1,uVel,kappaRU,fVrDw,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
538 |
MOM_FLUXFORM |
& -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k)/ |
|
./pkg/mom_fluxform/mom_fluxform.F |
539 |
MOM_FLUXFORM |
& ( 0.5 _d 0*(rA(i,j,bi,bj)+rA(i-1,j,bi,bj)) ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
541 |
MOM_FLUXFORM |
& -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
542 |
MOM_FLUXFORM |
& *recip_rAw(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
554 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(fZon, 'VISCx_Um',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
555 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(fMer, 'VISCy_Um',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
557 |
MOM_FLUXFORM |
& CALL DIAGNOSTICS_FILL(fVrUp,'VISrE_Um',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
564 |
MOM_FLUXFORM |
CALL MOM_U_SIDEDRAG( bi, bj, k, |
|
./pkg/mom_fluxform/mom_fluxform.F |
578 |
MOM_FLUXFORM |
CALL MOM_U_BOTTOMDRAG( bi, bj, k, |
|
./pkg/mom_fluxform/mom_fluxform.F |
591 |
MOM_FLUXFORM |
CALL SHELFICE_U_DRAG( bi, bj, k, |
|
./pkg/mom_fluxform/mom_fluxform.F |
615 |
MOM_FLUXFORM |
CALL MOM_U_METRIC_NH( bi,bj,k,uFld,wVel,mT,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
618 |
MOM_FLUXFORM |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+mtNHFacU*mT(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
624 |
MOM_FLUXFORM |
CALL MOM_U_METRIC_SPHERE( bi,bj,k,uFld,vFld,mT,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
627 |
MOM_FLUXFORM |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+mtFacU*mT(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
633 |
MOM_FLUXFORM |
CALL MOM_U_METRIC_CYLINDER( bi,bj,k,uFld,vFld,mT,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
636 |
MOM_FLUXFORM |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+mtFacU*mT(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
648 |
MOM_FLUXFORM |
CALL MOM_V_ADV_UV( bi,bj,k,uTrans,vBnd(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/mom_fluxform/mom_fluxform.F |
650 |
MOM_FLUXFORM |
CALL MOM_V_ADV_VV( bi,bj,k,vTrans,vBnd(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/mom_fluxform/mom_fluxform.F |
652 |
MOM_FLUXFORM |
CALL MOM_V_ADV_WV( bi,bj,k+1,vBnd,wVel,rTransV, |
|
./pkg/mom_fluxform/mom_fluxform.F |
657 |
MOM_FLUXFORM |
CALL MOM_V_ADV_UV( bi,bj,k,uTrans,vFld,fZon,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
661 |
MOM_FLUXFORM |
CALL MOM_V_ADV_VV( bi,bj,k,vTrans,vFld,fMer,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
665 |
MOM_FLUXFORM |
CALL MOM_V_ADV_WV( bi,bj,k+1,vVel,wVel,rTransV, |
|
./pkg/mom_fluxform/mom_fluxform.F |
672 |
MOM_FLUXFORM |
gV(i,j,k,bi,bj) = |
|
./pkg/mom_fluxform/mom_fluxform.F |
674 |
MOM_FLUXFORM |
& -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k)/ |
|
./pkg/mom_fluxform/mom_fluxform.F |
675 |
MOM_FLUXFORM |
& ( 0.5 _d 0*(_rA(i,j,bi,bj)+_rA(i,j-1,bi,bj)) ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
677 |
MOM_FLUXFORM |
& -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
678 |
MOM_FLUXFORM |
& *recip_rAs(i,j,bi,bj)*recip_deepFac2C(k)*recip_rhoFacC(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
689 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL( fZon, 'ADVx_Vm ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
690 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL( fMer, 'ADVy_Vm ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
691 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(fVerVkm,'ADVrE_Vm',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
701 |
MOM_FLUXFORM |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
702 |
MOM_FLUXFORM |
& - (rStarExpS(i,j,bi,bj) - 1. _d 0)/deltaTFreeSurf |
|
./pkg/mom_fluxform/mom_fluxform.F |
703 |
MOM_FLUXFORM |
& *vVel(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
710 |
MOM_FLUXFORM |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
711 |
MOM_FLUXFORM |
& - rStarDhSDt(i,j,bi,bj)*vVel(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
722 |
MOM_FLUXFORM |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
723 |
MOM_FLUXFORM |
& + vVel(i,j,k,bi,bj)*mass2rUnit*0.5 _d 0 |
|
./pkg/mom_fluxform/mom_fluxform.F |
724 |
MOM_FLUXFORM |
& *( addMass(i,j-1,k,bi,bj) + addMass(i,j,k,bi,bj) ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
725 |
MOM_FLUXFORM |
& *_recip_hFacS(i,j,k,bi,bj)*recip_drF(k)*recip_rhoFacC(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
726 |
MOM_FLUXFORM |
& * recip_rAs(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
736 |
MOM_FLUXFORM |
gV(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mom_fluxform/mom_fluxform.F |
747 |
MOM_FLUXFORM |
& CALL MOM_V_DEL2V( bi, bj, k, vFld, hFacZ, h0FacZ, |
|
./pkg/mom_fluxform/mom_fluxform.F |
751 |
MOM_FLUXFORM |
CALL MOM_V_XVISCFLUX( bi,bj,k,vFld,v4f,hFacZ,fZon, |
|
./pkg/mom_fluxform/mom_fluxform.F |
755 |
MOM_FLUXFORM |
CALL MOM_V_YVISCFLUX( bi,bj,k,vFld,v4f,fMer, |
|
./pkg/mom_fluxform/mom_fluxform.F |
760 |
MOM_FLUXFORM |
CALL MOM_V_RVISCFLUX( bi,bj, k, vVel,KappaRV,fVrUp,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
761 |
MOM_FLUXFORM |
CALL MOM_V_RVISCFLUX( bi,bj,k+1,vVel,KappaRV,fVrDw,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
770 |
MOM_FLUXFORM |
& -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k)/ |
|
./pkg/mom_fluxform/mom_fluxform.F |
771 |
MOM_FLUXFORM |
& ( 0.5 _d 0*(_rA(i,j,bi,bj)+_rA(i,j-1,bi,bj)) ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
773 |
MOM_FLUXFORM |
& -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
774 |
MOM_FLUXFORM |
& *recip_rAs(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
786 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(fZon, 'VISCx_Vm',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
787 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(fMer, 'VISCy_Vm',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
789 |
MOM_FLUXFORM |
& CALL DIAGNOSTICS_FILL(fVrUp,'VISrE_Vm',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
796 |
MOM_FLUXFORM |
CALL MOM_V_SIDEDRAG( bi, bj, k, |
|
./pkg/mom_fluxform/mom_fluxform.F |
810 |
MOM_FLUXFORM |
CALL MOM_V_BOTTOMDRAG( bi, bj, k, |
|
./pkg/mom_fluxform/mom_fluxform.F |
823 |
MOM_FLUXFORM |
CALL SHELFICE_V_DRAG( bi, bj, k, |
|
./pkg/mom_fluxform/mom_fluxform.F |
847 |
MOM_FLUXFORM |
CALL MOM_V_METRIC_NH( bi,bj,k,vFld,wVel,mT,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
850 |
MOM_FLUXFORM |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+mtNHFacV*mT(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
856 |
MOM_FLUXFORM |
CALL MOM_V_METRIC_SPHERE( bi,bj,k,uFld,mT,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
859 |
MOM_FLUXFORM |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+mtFacV*mT(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
865 |
MOM_FLUXFORM |
CALL MOM_V_METRIC_CYLINDER( bi,bj,k,uFld,vFld,mT,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
868 |
MOM_FLUXFORM |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+mtFacV*mT(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
86 |
MOM_FLUXFORM |
INTEGER bi,bj,k |
|
./pkg/mom_fluxform/mom_fluxform.F |
877 |
MOM_FLUXFORM |
CALL MOM_U_CORIOLIS( bi,bj,k,vFld,cf,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
880 |
MOM_FLUXFORM |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+fuFac*cf(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
885 |
MOM_FLUXFORM |
& CALL DIAGNOSTICS_FILL(cf,'Um_Cori ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
887 |
MOM_FLUXFORM |
CALL MOM_V_CORIOLIS( bi,bj,k,uFld,cf,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
890 |
MOM_FLUXFORM |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+fvFac*cf(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
895 |
MOM_FLUXFORM |
& CALL DIAGNOSTICS_FILL(cf,'Vm_Cori ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
901 |
MOM_FLUXFORM |
CALL MOM_U_CORIOLIS_NH( bi,bj,k,wVel,cf,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
904 |
MOM_FLUXFORM |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+fuFac*cf(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
909 |
MOM_FLUXFORM |
CALL MOM_V_CORIOLIS_NH( bi,bj,k,wVel,cf,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
912 |
MOM_FLUXFORM |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+fvFac*cf(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
921 |
MOM_FLUXFORM |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)*_maskW(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
922 |
MOM_FLUXFORM |
guDiss(i,j) = guDiss(i,j) *_maskW(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
923 |
MOM_FLUXFORM |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)*_maskS(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
924 |
MOM_FLUXFORM |
gvDiss(i,j) = gvDiss(i,j) *_maskS(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
930 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(KE, 'momKE ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
931 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(gU(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/mom_fluxform/mom_fluxform.F |
932 |
MOM_FLUXFORM |
& 'Um_Advec',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
933 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(gV(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/mom_fluxform/mom_fluxform.F |
934 |
MOM_FLUXFORM |
& 'Vm_Advec',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_u_adv_uu.F |
11 |
MOM_U_ADV_UU |
I bi,bj,k, |
|
./pkg/mom_fluxform/mom_u_adv_uu.F |
35 |
MOM_U_ADV_UU |
INTEGER bi,bj,k |
|
./pkg/mom_fluxform/mom_u_adv_uu.F |
54 |
MOM_U_ADV_UU |
& *( uFld(i,j)*_maskW(i+1,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_u_adv_uu.F |
55 |
MOM_U_ADV_UU |
& + uFld(i+1,j)*_maskW(i,j,k,bi,bj) ) |
|
./pkg/mom_fluxform/mom_u_adv_vu.F |
11 |
MOM_U_ADV_VU |
I bi,bj,k, |
|
./pkg/mom_fluxform/mom_u_adv_vu.F |
35 |
MOM_U_ADV_VU |
INTEGER bi,bj,k |
|
./pkg/mom_fluxform/mom_u_adv_vu.F |
54 |
MOM_U_ADV_VU |
& *( uFld(i,j)*_maskW(i,j-1,k,bi,bj) |
|
./pkg/mom_fluxform/mom_u_adv_vu.F |
55 |
MOM_U_ADV_VU |
& + uFld(i,j-1)*_maskW(i,j,k,bi,bj) ) |
|
./pkg/mom_fluxform/mom_u_adv_vu.F |
60 |
MOM_U_ADV_VU |
& *_maskW(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_u_adv_vu.F |
61 |
MOM_U_ADV_VU |
& *_maskW(i,j-1,k,bi,bj) |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
100 |
MOM_U_ADV_WU |
& (maskC( i ,j,k,bi,bj)-maskC( i ,j,k-1,bi,bj)) |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
101 |
MOM_U_ADV_WU |
& +wFld(i-1,j,k,bi,bj)*rA(i-1,j,bi,bj)* |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
102 |
MOM_U_ADV_WU |
& (maskC(i-1,j,k,bi,bj)-maskC(i-1,j,k-1,bi,bj)) |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
104 |
MOM_U_ADV_WU |
& *uFld(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
11 |
MOM_U_ADV_WU |
I bi,bj,k, |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
36 |
MOM_U_ADV_WU |
INTEGER bi,bj,k |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
55 |
MOM_U_ADV_WU |
advectiveFluxWU(i,j) = rTrans(i,j)*uFld(i,j,k-1,bi,bj) |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
73 |
MOM_U_ADV_WU |
advectiveFluxWU(i,j) = rTrans(i,j)*uFld(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
84 |
MOM_U_ADV_WU |
& 0.5 _d 0*( uFld(i,j,k,bi,bj)*_maskW(i,j,k-1,bi,bj) |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
85 |
MOM_U_ADV_WU |
& +uFld(i,j,k-1,bi,bj)*_maskW(i,j,k,bi,bj) ) |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
87 |
MOM_U_ADV_WU |
& 0.5 _d 0*( uFld(i,j,k,bi,bj)+uFld(i,j,k-1,bi,bj) ) |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
99 |
MOM_U_ADV_WU |
& wFld(i, j ,k,bi,bj)*rA(i, j ,bi,bj)* |
|
./model/src/cg2d_nsa.F |
100 |
CG2D_NSA |
INTEGER bi, bj |
|
./model/src/cg2d_nsa.F |
147 |
CG2D_NSA |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d_nsa.F |
151 |
CG2D_NSA |
cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj)*cg2dNorm |
|
./model/src/cg2d_nsa.F |
152 |
CG2D_NSA |
rhsMax = MAX(ABS(cg2d_b(i,j,bi,bj)),rhsMax) |
|
./model/src/cg2d_nsa.F |
164 |
CG2D_NSA |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d_nsa.F |
168 |
CG2D_NSA |
cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj)*rhsNorm |
|
./model/src/cg2d_nsa.F |
169 |
CG2D_NSA |
cg2d_x(i,j,bi,bj) = cg2d_x(i,j,bi,bj)*rhsNorm |
|
./model/src/cg2d_nsa.F |
186 |
CG2D_NSA |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d_nsa.F |
188 |
CG2D_NSA |
errTile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d_nsa.F |
189 |
CG2D_NSA |
sumRHStile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d_nsa.F |
192 |
CG2D_NSA |
cg2d_s(i,j,bi,bj) = 0. |
|
./model/src/cg2d_nsa.F |
197 |
CG2D_NSA |
cg2d_r(i,j,bi,bj) = cg2d_b(i,j,bi,bj) - |
|
./model/src/cg2d_nsa.F |
198 |
CG2D_NSA |
& (aW2d(i ,j ,bi,bj)*cg2d_x(i-1,j ,bi,bj) |
|
./model/src/cg2d_nsa.F |
199 |
CG2D_NSA |
& +aW2d(i+1,j ,bi,bj)*cg2d_x(i+1,j ,bi,bj) |
|
./model/src/cg2d_nsa.F |
200 |
CG2D_NSA |
& +aS2d(i ,j ,bi,bj)*cg2d_x(i ,j-1,bi,bj) |
|
./model/src/cg2d_nsa.F |
201 |
CG2D_NSA |
& +aS2d(i ,j+1,bi,bj)*cg2d_x(i ,j+1,bi,bj) |
|
./model/src/cg2d_nsa.F |
202 |
CG2D_NSA |
& +aC2d(i ,j ,bi,bj)*cg2d_x(i ,j ,bi,bj) |
|
./model/src/cg2d_nsa.F |
204 |
CG2D_NSA |
errTile(bi,bj) = errTile(bi,bj) |
|
./model/src/cg2d_nsa.F |
205 |
CG2D_NSA |
& + cg2d_r(i,j,bi,bj)*cg2d_r(i,j,bi,bj) |
|
./model/src/cg2d_nsa.F |
206 |
CG2D_NSA |
sumRHStile(bi,bj) = sumRHStile(bi,bj) + cg2d_b(i,j,bi,bj) |
|
./model/src/cg2d_nsa.F |
256 |
CG2D_NSA |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d_nsa.F |
258 |
CG2D_NSA |
eta_qrNtile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d_nsa.F |
261 |
CG2D_NSA |
cg2d_z(i,j,bi,bj) = |
|
./model/src/cg2d_nsa.F |
262 |
CG2D_NSA |
& pC(i ,j ,bi,bj)*cg2d_r(i ,j ,bi,bj) |
|
./model/src/cg2d_nsa.F |
263 |
CG2D_NSA |
& +pW(i ,j ,bi,bj)*cg2d_r(i-1,j ,bi,bj) |
|
./model/src/cg2d_nsa.F |
264 |
CG2D_NSA |
& +pW(i+1,j ,bi,bj)*cg2d_r(i+1,j ,bi,bj) |
|
./model/src/cg2d_nsa.F |
265 |
CG2D_NSA |
& +pS(i ,j ,bi,bj)*cg2d_r(i ,j-1,bi,bj) |
|
./model/src/cg2d_nsa.F |
266 |
CG2D_NSA |
& +pS(i ,j+1,bi,bj)*cg2d_r(i ,j+1,bi,bj) |
|
./model/src/cg2d_nsa.F |
267 |
CG2D_NSA |
eta_qrNtile(bi,bj) = eta_qrNtile(bi,bj) |
|
./model/src/cg2d_nsa.F |
268 |
CG2D_NSA |
& +cg2d_z(i,j,bi,bj)*cg2d_r(i,j,bi,bj) |
|
./model/src/cg2d_nsa.F |
286 |
CG2D_NSA |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d_nsa.F |
290 |
CG2D_NSA |
cg2d_s(i,j,bi,bj) = cg2d_z(i,j,bi,bj) |
|
./model/src/cg2d_nsa.F |
291 |
CG2D_NSA |
& + cgBeta*cg2d_s(i,j,bi,bj) |
|
./model/src/cg2d_nsa.F |
309 |
CG2D_NSA |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d_nsa.F |
311 |
CG2D_NSA |
alphaTile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d_nsa.F |
314 |
CG2D_NSA |
cg2d_q(i,j,bi,bj) = |
|
./model/src/cg2d_nsa.F |
315 |
CG2D_NSA |
& aW2d(i ,j ,bi,bj)*cg2d_s(i-1,j ,bi,bj) |
|
./model/src/cg2d_nsa.F |
316 |
CG2D_NSA |
& +aW2d(i+1,j ,bi,bj)*cg2d_s(i+1,j ,bi,bj) |
|
./model/src/cg2d_nsa.F |
317 |
CG2D_NSA |
& +aS2d(i ,j ,bi,bj)*cg2d_s(i ,j-1,bi,bj) |
|
./model/src/cg2d_nsa.F |
318 |
CG2D_NSA |
& +aS2d(i ,j+1,bi,bj)*cg2d_s(i ,j+1,bi,bj) |
|
./model/src/cg2d_nsa.F |
319 |
CG2D_NSA |
& +aC2d(i ,j ,bi,bj)*cg2d_s(i ,j ,bi,bj) |
|
./model/src/cg2d_nsa.F |
320 |
CG2D_NSA |
alphaTile(bi,bj) = alphaTile(bi,bj) |
|
./model/src/cg2d_nsa.F |
321 |
CG2D_NSA |
& + cg2d_s(i,j,bi,bj)*cg2d_q(i,j,bi,bj) |
|
./model/src/cg2d_nsa.F |
336 |
CG2D_NSA |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d_nsa.F |
338 |
CG2D_NSA |
errTile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d_nsa.F |
341 |
CG2D_NSA |
cg2d_x(i,j,bi,bj)=cg2d_x(i,j,bi,bj)+alpha*cg2d_s(i,j,bi,bj) |
|
./model/src/cg2d_nsa.F |
342 |
CG2D_NSA |
cg2d_r(i,j,bi,bj)=cg2d_r(i,j,bi,bj)-alpha*cg2d_q(i,j,bi,bj) |
|
./model/src/cg2d_nsa.F |
343 |
CG2D_NSA |
errTile(bi,bj) = errTile(bi,bj) |
|
./model/src/cg2d_nsa.F |
344 |
CG2D_NSA |
& + cg2d_r(i,j,bi,bj)*cg2d_r(i,j,bi,bj) |
|
./model/src/cg2d_nsa.F |
371 |
CG2D_NSA |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d_nsa.F |
375 |
CG2D_NSA |
cg2d_x(i,j,bi,bj) = cg2d_x(i,j,bi,bj)/rhsNorm |
|
./pkg/mom_fluxform/mom_u_coriolis.F |
11 |
MOM_U_CORIOLIS |
I bi,bj,k,vFld, |
|
./pkg/mom_fluxform/mom_u_coriolis.F |
34 |
MOM_U_CORIOLIS |
INTEGER bi,bj,k |
|
./pkg/mom_fluxform/mom_u_coriolis.F |
54 |
MOM_U_CORIOLIS |
& 0.5*( _fCori( i ,j,bi,bj) |
|
./pkg/mom_fluxform/mom_u_coriolis.F |
56 |
MOM_U_CORIOLIS |
& + _fCori(i-1,j,bi,bj) |
|
./pkg/mom_fluxform/mom_u_coriolis.F |
65 |
MOM_U_CORIOLIS |
& 0.5*( _fCori( i ,j,bi,bj) + |
|
./pkg/mom_fluxform/mom_u_coriolis.F |
66 |
MOM_U_CORIOLIS |
& _fCori(i-1,j,bi,bj) ) |
|
./pkg/mom_fluxform/mom_u_coriolis.F |
83 |
MOM_U_CORIOLIS |
& maskS( i , j ,k,bi,bj)+maskS( i ,j+1,k,bi,bj) |
|
./pkg/mom_fluxform/mom_u_coriolis.F |
84 |
MOM_U_CORIOLIS |
& +maskS(i-1, j ,k,bi,bj)+maskS(i-1,j+1,k,bi,bj) ) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
105 |
MOM_U_DEL2U |
hFacZClosedS = h0FacW(i,j,k,bi,bj) - h0FacZ(i,j) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
106 |
MOM_U_DEL2U |
hFacZClosedN = h0FacW(i,j,k,bi,bj) - h0FacZ(i,j+1) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
108 |
MOM_U_DEL2U |
hFacZClosedS = _hFacW(i,j,k,bi,bj) - h0FacZ(i,j) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
109 |
MOM_U_DEL2U |
hFacZClosedN = _hFacW(i,j,k,bi,bj) - h0FacZ(i,j+1) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
112 |
MOM_U_DEL2U |
& -_recip_hFacW(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
113 |
MOM_U_DEL2U |
& *recip_rAw(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
114 |
MOM_U_DEL2U |
& *( hFacZClosedS*dxV(i, j ,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
115 |
MOM_U_DEL2U |
& *_recip_dyU(i, j ,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
116 |
MOM_U_DEL2U |
& +hFacZClosedN*dxV(i,j+1,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
117 |
MOM_U_DEL2U |
& *_recip_dyU(i,j+1,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
119 |
MOM_U_DEL2U |
& *_maskW(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
11 |
MOM_U_DEL2U |
I bi, bj, k, |
|
./pkg/mom_fluxform/mom_u_del2u.F |
34 |
MOM_U_DEL2U |
INTEGER bi, bj, k |
|
./pkg/mom_fluxform/mom_u_del2u.F |
55 |
MOM_U_DEL2U |
fZon(i,j) = drF(k)*_hFacC(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
56 |
MOM_U_DEL2U |
& *_dyF(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
57 |
MOM_U_DEL2U |
& *_recip_dxF(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
60 |
MOM_U_DEL2U |
& *sqCosFacU(J,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
63 |
MOM_U_DEL2U |
& *maskInC(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
74 |
MOM_U_DEL2U |
& *_dxV(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
75 |
MOM_U_DEL2U |
& *_recip_dyU(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
78 |
MOM_U_DEL2U |
& *sqCosFacV(J,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
89 |
MOM_U_DEL2U |
& recip_drF(k)*_recip_hFacW(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
90 |
MOM_U_DEL2U |
& *recip_rAw(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
93 |
MOM_U_DEL2U |
& )*_maskW(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
95 |
MOM_U_DEL2U |
& *maskInW(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_u_metric_cylinder.F |
11 |
MOM_U_METRIC_CYLINDER |
I bi,bj,k, |
|
./pkg/mom_fluxform/mom_u_metric_cylinder.F |
35 |
MOM_U_METRIC_CYLINDER |
INTEGER bi,bj,k |
|
./pkg/mom_fluxform/mom_u_metric_cylinder.F |
52 |
MOM_U_METRIC_CYLINDER |
radius = (yG(i,j,bi,bj)+yG(i,j+1,bi,bj))*0.5 _d 0 |
|
./pkg/mom_fluxform/mom_u_metric_sphere.F |
11 |
MOM_U_METRIC_SPHERE |
I bi,bj,k, |
|
./pkg/mom_fluxform/mom_u_metric_sphere.F |
35 |
MOM_U_METRIC_SPHERE |
INTEGER bi,bj,k |
|
./pkg/mom_fluxform/mom_u_metric_sphere.F |
55 |
MOM_U_METRIC_SPHERE |
& )*_tanPhiAtU(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_u_xviscflux.F |
11 |
MOM_U_XVISCFLUX |
I bi,bj,k, |
|
./pkg/mom_fluxform/mom_u_xviscflux.F |
37 |
MOM_U_XVISCFLUX |
INTEGER bi,bj,k |
|
./pkg/mom_fluxform/mom_u_xviscflux.F |
57 |
MOM_U_XVISCFLUX |
& _dyF(i,j,bi,bj)*drF(k)*_hFacC(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_u_xviscflux.F |
60 |
MOM_U_XVISCFLUX |
& *cosFacU(J,bi,bj) |
|
./pkg/mom_fluxform/mom_u_xviscflux.F |
63 |
MOM_U_XVISCFLUX |
& *sqCosFacU(J,bi,bj) |
|
./pkg/mom_fluxform/mom_u_xviscflux.F |
65 |
MOM_U_XVISCFLUX |
& *cosFacU(J,bi,bj) |
|
./pkg/mom_fluxform/mom_u_xviscflux.F |
67 |
MOM_U_XVISCFLUX |
& )*_recip_dxF(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_u_yviscflux.F |
11 |
MOM_U_YVISCFLUX |
I bi,bj,k, |
|
./pkg/mom_fluxform/mom_u_yviscflux.F |
37 |
MOM_U_YVISCFLUX |
INTEGER bi,bj,k |
|
./pkg/mom_fluxform/mom_u_yviscflux.F |
58 |
MOM_U_YVISCFLUX |
& _dxV(i,j,bi,bj)*drF(k)*hFacZ(i,j) |
|
./pkg/mom_fluxform/mom_u_yviscflux.F |
62 |
MOM_U_YVISCFLUX |
& *cosFacV(J,bi,bj) |
|
./pkg/mom_fluxform/mom_u_yviscflux.F |
67 |
MOM_U_YVISCFLUX |
& *sqCosFacV(J,bi,bj) |
|
./pkg/mom_fluxform/mom_u_yviscflux.F |
69 |
MOM_U_YVISCFLUX |
& *cosFacV(J,bi,bj) |
|
./pkg/mom_fluxform/mom_u_yviscflux.F |
72 |
MOM_U_YVISCFLUX |
& )*_recip_dyU(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
100 |
MOM_UV_BOUNDARY |
& * drF(k)*hFacS(i,j,k,bi,bj)*rhoFacC(k) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
11 |
MOM_UV_BOUNDARY |
I bi,bj,k, |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
129 |
MOM_UV_BOUNDARY |
IF (maskW(i,j,k,bi,bj).EQ.0.) THEN |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
135 |
MOM_UV_BOUNDARY |
& *(uFld(i-1,j,k,bi,bj)+uFld(i+1,j,k,bi,bj)) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
137 |
MOM_UV_BOUNDARY |
& *(uFld(i,j-1,k,bi,bj)+uFld(i,j+1,k,bi,bj)) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
139 |
MOM_UV_BOUNDARY |
& *(uFld(i,j,km1,bi,bj)*maskM1 |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
140 |
MOM_UV_BOUNDARY |
& +uFld(i,j,kp1,bi,bj)*maskP1) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
143 |
MOM_UV_BOUNDARY |
IF (maskS(i,j,k,bi,bj).EQ.0.) THEN |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
149 |
MOM_UV_BOUNDARY |
& *(vFld(i-1,j,k,bi,bj)+vFld(i+1,j,k,bi,bj)) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
151 |
MOM_UV_BOUNDARY |
& *(vFld(i,j-1,k,bi,bj)+vFld(i,j+1,k,bi,bj)) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
153 |
MOM_UV_BOUNDARY |
& *(vFld(i,j,km1,bi,bj)*maskM1 |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
154 |
MOM_UV_BOUNDARY |
& +vFld(i,j,kp1,bi,bj)*maskP1) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
37 |
MOM_UV_BOUNDARY |
INTEGER bi,bj |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
70 |
MOM_UV_BOUNDARY |
uBnd(i,j) = uFld(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
71 |
MOM_UV_BOUNDARY |
vBnd(i,j) = vFld(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
95 |
MOM_UV_BOUNDARY |
uTrans(i,j) = uFld(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
96 |
MOM_UV_BOUNDARY |
& * dyG(i,j,bi,bj)*deepFacC(k) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
97 |
MOM_UV_BOUNDARY |
& * drF(k)*hFacW(i,j,k,bi,bj)*rhoFacC(k) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
98 |
MOM_UV_BOUNDARY |
vTrans(i,j) = vFld(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
99 |
MOM_UV_BOUNDARY |
& * dxG(i,j,bi,bj)*deepFacC(k) |
|
./pkg/mom_fluxform/mom_v_adv_uv.F |
11 |
MOM_V_ADV_UV |
I bi,bj,k, |
|
./pkg/mom_fluxform/mom_v_adv_uv.F |
35 |
MOM_V_ADV_UV |
INTEGER bi,bj,k |
|
./pkg/mom_fluxform/mom_v_adv_uv.F |
53 |
MOM_V_ADV_UV |
& *( vFld(i,j)*_maskS(i-1,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_v_adv_uv.F |
54 |
MOM_V_ADV_UV |
& + vFld(i-1,j)*_maskS(i,j,k,bi,bj) ) |
|
./pkg/mom_fluxform/mom_v_adv_uv.F |
59 |
MOM_V_ADV_UV |
& *_maskS(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_v_adv_uv.F |
60 |
MOM_V_ADV_UV |
& *_maskS(i-1,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_v_adv_vv.F |
11 |
MOM_V_ADV_VV |
I bi,bj,k, |
|
./pkg/mom_fluxform/mom_v_adv_vv.F |
35 |
MOM_V_ADV_VV |
INTEGER bi,bj,k |
|
./pkg/mom_fluxform/mom_v_adv_vv.F |
54 |
MOM_V_ADV_VV |
& *( vFld(i,j)*_maskS(i,j+1,k,bi,bj) |
|
./pkg/mom_fluxform/mom_v_adv_vv.F |
55 |
MOM_V_ADV_VV |
& + vFld(i,j+1)*_maskS(i,j,k,bi,bj) ) |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
100 |
MOM_V_ADV_WV |
& wFld(i, j ,k,bi,bj)*rA(i, j ,bi,bj)* |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
101 |
MOM_V_ADV_WV |
& (maskC(i, j ,k,bi,bj)-maskC(i, j ,k-1,bi,bj)) |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
102 |
MOM_V_ADV_WV |
& +wFld(i,j-1,k,bi,bj)*rA(i,j-1,bi,bj)* |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
103 |
MOM_V_ADV_WV |
& (maskC(i,j-1,k,bi,bj)-maskC(i,j-1,k-1,bi,bj)) |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
105 |
MOM_V_ADV_WV |
& *vFld(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
12 |
MOM_V_ADV_WV |
I bi,bj,k, |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
37 |
MOM_V_ADV_WV |
INTEGER bi,bj,k |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
56 |
MOM_V_ADV_WV |
advectiveFluxWV(i,j) = rTrans(i,j)*vFld(i,j,k-1,bi,bj) |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
74 |
MOM_V_ADV_WV |
advectiveFluxWV(i,j) = rTrans(i,j)*vFld(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
85 |
MOM_V_ADV_WV |
& 0.5 _d 0*( vFld(i,j,k,bi,bj)*_maskS(i,j,k-1,bi,bj) |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
86 |
MOM_V_ADV_WV |
& +vFld(i,j,k-1,bi,bj)*_maskS(i,j,k,bi,bj) ) |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
88 |
MOM_V_ADV_WV |
& 0.5 _d 0*( vFld(i,j,k,bi,bj)+vFld(i,j,k-1,bi,bj) ) |
|
./model/src/cg2d_sr.F |
122 |
CG2D_SR |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d_sr.F |
126 |
CG2D_SR |
cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj)*cg2dNorm |
|
./model/src/cg2d_sr.F |
127 |
CG2D_SR |
rhsMax = MAX(ABS(cg2d_b(i,j,bi,bj)),rhsMax) |
|
./model/src/cg2d_sr.F |
138 |
CG2D_SR |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d_sr.F |
142 |
CG2D_SR |
cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj)*rhsNorm |
|
./model/src/cg2d_sr.F |
143 |
CG2D_SR |
cg2d_x(i,j,bi,bj) = cg2d_x(i,j,bi,bj)*rhsNorm |
|
./model/src/cg2d_sr.F |
155 |
CG2D_SR |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d_sr.F |
160 |
CG2D_SR |
cg2d_min(i,j,bi,bj) = cg2d_x(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
166 |
CG2D_SR |
cg2d_s(i,j,bi,bj) = 0. |
|
./model/src/cg2d_sr.F |
169 |
CG2D_SR |
sumRHStile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d_sr.F |
170 |
CG2D_SR |
errTile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d_sr.F |
176 |
CG2D_SR |
cg2d_r(i,j,bi,bj) = cg2d_b(i,j,bi,bj) - |
|
./model/src/cg2d_sr.F |
177 |
CG2D_SR |
& (aW2d(i ,j ,bi,bj)*cg2d_x(i-1,j ,bi,bj) |
|
./model/src/cg2d_sr.F |
178 |
CG2D_SR |
& +aW2d(i+1,j ,bi,bj)*cg2d_x(i+1,j ,bi,bj) |
|
./model/src/cg2d_sr.F |
179 |
CG2D_SR |
& +aS2d(i ,j ,bi,bj)*cg2d_x(i ,j-1,bi,bj) |
|
./model/src/cg2d_sr.F |
180 |
CG2D_SR |
& +aS2d(i ,j+1,bi,bj)*cg2d_x(i ,j+1,bi,bj) |
|
./model/src/cg2d_sr.F |
181 |
CG2D_SR |
& +aC2d(i ,j ,bi,bj)*cg2d_x(i ,j ,bi,bj) |
|
./model/src/cg2d_sr.F |
183 |
CG2D_SR |
errTile(bi,bj) = errTile(bi,bj) |
|
./model/src/cg2d_sr.F |
184 |
CG2D_SR |
& + cg2d_r(i,j,bi,bj)*cg2d_r(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
185 |
CG2D_SR |
sumRHStile(bi,bj) = sumRHStile(bi,bj) + cg2d_b(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
218 |
CG2D_SR |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d_sr.F |
220 |
CG2D_SR |
eta_qrNtile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d_sr.F |
226 |
CG2D_SR |
cg2d_y(i,j,bi,bj) = |
|
./model/src/cg2d_sr.F |
227 |
CG2D_SR |
& pC(i ,j ,bi,bj)*cg2d_r(i ,j ,bi,bj) |
|
./model/src/cg2d_sr.F |
228 |
CG2D_SR |
& +pW(i ,j ,bi,bj)*cg2d_r(i-1,j ,bi,bj) |
|
./model/src/cg2d_sr.F |
229 |
CG2D_SR |
& +pW(i+1,j ,bi,bj)*cg2d_r(i+1,j ,bi,bj) |
|
./model/src/cg2d_sr.F |
230 |
CG2D_SR |
& +pS(i ,j ,bi,bj)*cg2d_r(i ,j-1,bi,bj) |
|
./model/src/cg2d_sr.F |
231 |
CG2D_SR |
& +pS(i ,j+1,bi,bj)*cg2d_r(i ,j+1,bi,bj) |
|
./model/src/cg2d_sr.F |
232 |
CG2D_SR |
cg2d_s(i,j,bi,bj) = cg2d_y(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
233 |
CG2D_SR |
eta_qrNtile(bi,bj) = eta_qrNtile(bi,bj) |
|
./model/src/cg2d_sr.F |
234 |
CG2D_SR |
& +cg2d_y(i,j,bi,bj)*cg2d_r(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
247 |
CG2D_SR |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d_sr.F |
249 |
CG2D_SR |
alphaTile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d_sr.F |
255 |
CG2D_SR |
cg2d_q(i,j,bi,bj) = |
|
./model/src/cg2d_sr.F |
256 |
CG2D_SR |
& aW2d(i ,j ,bi,bj)*cg2d_s(i-1,j ,bi,bj) |
|
./model/src/cg2d_sr.F |
257 |
CG2D_SR |
& +aW2d(i+1,j ,bi,bj)*cg2d_s(i+1,j ,bi,bj) |
|
./model/src/cg2d_sr.F |
258 |
CG2D_SR |
& +aS2d(i ,j ,bi,bj)*cg2d_s(i ,j-1,bi,bj) |
|
./model/src/cg2d_sr.F |
259 |
CG2D_SR |
& +aS2d(i ,j+1,bi,bj)*cg2d_s(i ,j+1,bi,bj) |
|
./model/src/cg2d_sr.F |
260 |
CG2D_SR |
& +aC2d(i ,j ,bi,bj)*cg2d_s(i ,j ,bi,bj) |
|
./model/src/cg2d_sr.F |
261 |
CG2D_SR |
alphaTile(bi,bj) = alphaTile(bi,bj) |
|
./model/src/cg2d_sr.F |
262 |
CG2D_SR |
& + cg2d_s(i,j,bi,bj)*cg2d_q(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
274 |
CG2D_SR |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d_sr.F |
278 |
CG2D_SR |
cg2d_x(i,j,bi,bj)=cg2d_x(i,j,bi,bj)+sigma*cg2d_s(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
279 |
CG2D_SR |
cg2d_r(i,j,bi,bj)=cg2d_r(i,j,bi,bj)-sigma*cg2d_q(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
295 |
CG2D_SR |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d_sr.F |
302 |
CG2D_SR |
cg2d_y(i,j,bi,bj) = |
|
./model/src/cg2d_sr.F |
303 |
CG2D_SR |
& pC(i ,j ,bi,bj)*cg2d_r(i ,j ,bi,bj) |
|
./model/src/cg2d_sr.F |
304 |
CG2D_SR |
& +pW(i ,j ,bi,bj)*cg2d_r(i-1,j ,bi,bj) |
|
./model/src/cg2d_sr.F |
305 |
CG2D_SR |
& +pW(i+1,j ,bi,bj)*cg2d_r(i+1,j ,bi,bj) |
|
./model/src/cg2d_sr.F |
306 |
CG2D_SR |
& +pS(i ,j ,bi,bj)*cg2d_r(i ,j-1,bi,bj) |
|
./model/src/cg2d_sr.F |
307 |
CG2D_SR |
& +pS(i ,j+1,bi,bj)*cg2d_r(i ,j+1,bi,bj) |
|
./model/src/cg2d_sr.F |
319 |
CG2D_SR |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d_sr.F |
321 |
CG2D_SR |
eta_qrNtile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d_sr.F |
322 |
CG2D_SR |
deltaTile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d_sr.F |
323 |
CG2D_SR |
errTile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d_sr.F |
329 |
CG2D_SR |
cg2d_v(i,j,bi,bj) = |
|
./model/src/cg2d_sr.F |
330 |
CG2D_SR |
& aW2d(i ,j ,bi,bj)*cg2d_y(i-1,j ,bi,bj) |
|
./model/src/cg2d_sr.F |
331 |
CG2D_SR |
& +aW2d(i+1,j ,bi,bj)*cg2d_y(i+1,j ,bi,bj) |
|
./model/src/cg2d_sr.F |
332 |
CG2D_SR |
& +aS2d(i ,j ,bi,bj)*cg2d_y(i ,j-1,bi,bj) |
|
./model/src/cg2d_sr.F |
333 |
CG2D_SR |
& +aS2d(i ,j+1,bi,bj)*cg2d_y(i ,j+1,bi,bj) |
|
./model/src/cg2d_sr.F |
334 |
CG2D_SR |
& +aC2d(i ,j ,bi,bj)*cg2d_y(i ,j ,bi,bj) |
|
./model/src/cg2d_sr.F |
335 |
CG2D_SR |
eta_qrNtile(bi,bj) = eta_qrNtile(bi,bj) |
|
./model/src/cg2d_sr.F |
336 |
CG2D_SR |
& +cg2d_y(i,j,bi,bj)*cg2d_r(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
337 |
CG2D_SR |
deltaTile(bi,bj) = deltaTile(bi,bj) |
|
./model/src/cg2d_sr.F |
338 |
CG2D_SR |
& +cg2d_y(i,j,bi,bj)*cg2d_v(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
339 |
CG2D_SR |
errTile(bi,bj) = errTile(bi,bj) |
|
./model/src/cg2d_sr.F |
340 |
CG2D_SR |
& + cg2d_r(i,j,bi,bj)*cg2d_r(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
343 |
CG2D_SR |
sumPhi(1,bi,bj) = eta_qrNtile(bi,bj) |
|
./model/src/cg2d_sr.F |
344 |
CG2D_SR |
sumPhi(2,bi,bj) = deltaTile(bi,bj) |
|
./model/src/cg2d_sr.F |
345 |
CG2D_SR |
sumPhi(3,bi,bj) = errTile(bi,bj) |
|
./model/src/cg2d_sr.F |
371 |
CG2D_SR |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d_sr.F |
375 |
CG2D_SR |
cg2d_min(i,j,bi,bj) = cg2d_x(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
388 |
CG2D_SR |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d_sr.F |
392 |
CG2D_SR |
cg2d_s(i,j,bi,bj) = cg2d_y(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
393 |
CG2D_SR |
& + cgBeta*cg2d_s(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
394 |
CG2D_SR |
cg2d_x(i,j,bi,bj) = cg2d_x(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
395 |
CG2D_SR |
& + sigma*cg2d_s(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
396 |
CG2D_SR |
cg2d_q(i,j,bi,bj) = cg2d_v(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
397 |
CG2D_SR |
& + cgBeta*cg2d_q(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
398 |
CG2D_SR |
cg2d_r(i,j,bi,bj) = cg2d_r(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
399 |
CG2D_SR |
& - sigma*cg2d_q(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
409 |
CG2D_SR |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d_sr.F |
411 |
CG2D_SR |
errTile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d_sr.F |
414 |
CG2D_SR |
errTile(bi,bj) = errTile(bi,bj) |
|
./model/src/cg2d_sr.F |
415 |
CG2D_SR |
& + cg2d_r(i,j,bi,bj)*cg2d_r(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
425 |
CG2D_SR |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d_sr.F |
429 |
CG2D_SR |
cg2d_x(i,j,bi,bj) = cg2d_min(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
438 |
CG2D_SR |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d_sr.F |
442 |
CG2D_SR |
cg2d_x(i,j,bi,bj) = cg2d_x(i,j,bi,bj)/rhsNorm |
|
./model/src/cg2d_sr.F |
96 |
CG2D_SR |
INTEGER bi, bj |
|
./pkg/mom_fluxform/mom_v_coriolis.F |
11 |
MOM_V_CORIOLIS |
I bi,bj,k,uFld, |
|
./pkg/mom_fluxform/mom_v_coriolis.F |
34 |
MOM_V_CORIOLIS |
INTEGER bi,bj,k |
|
./pkg/mom_fluxform/mom_v_coriolis.F |
54 |
MOM_V_CORIOLIS |
& -0.5*( _fCori(i, j ,bi,bj) |
|
./pkg/mom_fluxform/mom_v_coriolis.F |
56 |
MOM_V_CORIOLIS |
& + _fCori(i,j-1,bi,bj) |
|
./pkg/mom_fluxform/mom_v_coriolis.F |
65 |
MOM_V_CORIOLIS |
& -0.5*(_fCori(i, j ,bi,bj)+_fCori(i,j-1,bi,bj)) |
|
./pkg/mom_fluxform/mom_v_coriolis.F |
81 |
MOM_V_CORIOLIS |
& maskW( i , j ,k,bi,bj)+maskW(i+1, j ,k,bi,bj) |
|
./pkg/mom_fluxform/mom_v_coriolis.F |
82 |
MOM_V_CORIOLIS |
& +maskW( i ,j-1,k,bi,bj)+maskW(i+1,j-1,k,bi,bj) ) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
104 |
MOM_V_DEL2V |
hFacZClosedW = h0FacS(i,j,k,bi,bj) - h0FacZ(i,j) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
105 |
MOM_V_DEL2V |
hFacZClosedE = h0FacS(i,j,k,bi,bj) - h0FacZ(i+1,j) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
107 |
MOM_V_DEL2V |
hFacZClosedW = _hFacS(i,j,k,bi,bj) - h0FacZ(i,j) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
108 |
MOM_V_DEL2V |
hFacZClosedE = _hFacS(i,j,k,bi,bj) - h0FacZ(i+1,j) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
111 |
MOM_V_DEL2V |
& -_recip_hFacS(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
112 |
MOM_V_DEL2V |
& *recip_rAs(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
113 |
MOM_V_DEL2V |
& *( hFacZClosedW*dyU( i ,j,bi,bj) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
114 |
MOM_V_DEL2V |
& *_recip_dxV( i ,j,bi,bj) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
115 |
MOM_V_DEL2V |
& +hFacZClosedE*dyU(i+1,j,bi,bj) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
116 |
MOM_V_DEL2V |
& *_recip_dxV(i+1,j,bi,bj) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
118 |
MOM_V_DEL2V |
& *_maskS(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
11 |
MOM_V_DEL2V |
I bi, bj, k, |
|
./pkg/mom_fluxform/mom_v_del2v.F |
34 |
MOM_V_DEL2V |
INTEGER bi, bj, k |
|
./pkg/mom_fluxform/mom_v_del2v.F |
55 |
MOM_V_DEL2V |
& *_dyU(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
56 |
MOM_V_DEL2V |
& *_recip_dxV(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
59 |
MOM_V_DEL2V |
& *sqCosFacV(J,bi,bj) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
69 |
MOM_V_DEL2V |
fMer(i,j) = drF(k)*_hFacC(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
70 |
MOM_V_DEL2V |
& *_dxF(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
71 |
MOM_V_DEL2V |
& *_recip_dyF(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
74 |
MOM_V_DEL2V |
& *sqCosFacU(J,bi,bj) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
77 |
MOM_V_DEL2V |
& *maskInC(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
88 |
MOM_V_DEL2V |
& recip_drF(k)*_recip_hFacS(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
89 |
MOM_V_DEL2V |
& *recip_rAs(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
92 |
MOM_V_DEL2V |
& )*_maskS(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
94 |
MOM_V_DEL2V |
& *maskInS(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_v_metric_cylinder.F |
11 |
MOM_V_METRIC_CYLINDER |
I bi,bj,k, |
|
./pkg/mom_fluxform/mom_v_metric_cylinder.F |
35 |
MOM_V_METRIC_CYLINDER |
INTEGER bi,bj,k |
|
./pkg/mom_fluxform/mom_v_metric_cylinder.F |
52 |
MOM_V_METRIC_CYLINDER |
radius = (yG(i,j,bi,bj)+yG(i+1,j,bi,bj))*0.5 _d 0 |
|
./pkg/mom_fluxform/mom_v_metric_sphere.F |
11 |
MOM_V_METRIC_SPHERE |
I bi,bj,k, |
|
./pkg/mom_fluxform/mom_v_metric_sphere.F |
34 |
MOM_V_METRIC_SPHERE |
INTEGER bi,bj,k |
|
./pkg/mom_fluxform/mom_v_metric_sphere.F |
56 |
MOM_V_METRIC_SPHERE |
& *_tanPhiAtV(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_v_xviscflux.F |
11 |
MOM_V_XVISCFLUX |
I bi,bj,k, |
|
./pkg/mom_fluxform/mom_v_xviscflux.F |
37 |
MOM_V_XVISCFLUX |
INTEGER bi,bj,k |
|
./pkg/mom_fluxform/mom_v_xviscflux.F |
58 |
MOM_V_XVISCFLUX |
& _dyU(i,j,bi,bj)*drF(k)*hFacZ(i,j) |
|
./pkg/mom_fluxform/mom_v_xviscflux.F |
61 |
MOM_V_XVISCFLUX |
& *cosFacV(J,bi,bj) |
|
./pkg/mom_fluxform/mom_v_xviscflux.F |
64 |
MOM_V_XVISCFLUX |
& *sqCosFacV(J,bi,bj) |
|
./pkg/mom_fluxform/mom_v_xviscflux.F |
66 |
MOM_V_XVISCFLUX |
& *cosFacV(J,bi,bj) |
|
./pkg/mom_fluxform/mom_v_xviscflux.F |
68 |
MOM_V_XVISCFLUX |
& )*_recip_dxV(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_v_yviscflux.F |
11 |
MOM_V_YVISCFLUX |
I bi,bj,k, |
|
./pkg/mom_fluxform/mom_v_yviscflux.F |
37 |
MOM_V_YVISCFLUX |
INTEGER bi,bj,k |
|
./pkg/mom_fluxform/mom_v_yviscflux.F |
57 |
MOM_V_YVISCFLUX |
& _dxF(i,j,bi,bj)*drF(k)*_hFacC(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_v_yviscflux.F |
61 |
MOM_V_YVISCFLUX |
& *cosFacU(J,bi,bj) |
|
./pkg/mom_fluxform/mom_v_yviscflux.F |
66 |
MOM_V_YVISCFLUX |
& *sqCosFacU(J,bi,bj) |
|
./pkg/mom_fluxform/mom_v_yviscflux.F |
68 |
MOM_V_YVISCFLUX |
& *cosFacU(J,bi,bj) |
|
./pkg/mom_fluxform/mom_v_yviscflux.F |
71 |
MOM_V_YVISCFLUX |
& )*_recip_dyF(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vecinv.F |
13 |
MOM_VECINV |
I bi,bj,k,iMin,iMax,jMin,jMax, |
|
./pkg/mom_vecinv/mom_vecinv.F |
152 |
MOM_VECINV |
act2 = bj - myByLo(myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
173 |
MOM_VECINV |
IF ((bi .EQ. 1).AND.(bj .EQ. 1).AND.(k .EQ. 1)) THEN |
|
./pkg/mom_vecinv/mom_vecinv.F |
242 |
MOM_VECINV |
CALL MOM_CALC_HFACZ(bi,bj,k,hFacZ,r_hFacZ,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
247 |
MOM_VECINV |
uFld(i,j) = uVel(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vecinv.F |
248 |
MOM_VECINV |
vFld(i,j) = vVel(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vecinv.F |
271 |
MOM_VECINV |
CALL MOM_CALC_KE(bi,bj,k,selectKEscheme,uFld,vFld,KE,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
273 |
MOM_VECINV |
CALL MOM_CALC_RELVORT3(bi,bj,k,uFld,vFld,hFacZ,vort3,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
316 |
MOM_VECINV |
& MIN( h0FacW(i,j,k,bi,bj), h0FacW(i,j-1,k,bi,bj) ), |
|
./pkg/mom_vecinv/mom_vecinv.F |
317 |
MOM_VECINV |
& MIN( h0FacS(i,j,k,bi,bj), h0FacS(i-1,j,k,bi,bj) ) ) |
|
./pkg/mom_vecinv/mom_vecinv.F |
330 |
MOM_VECINV |
CALL MOM_CALC_HDIV(bi,bj,k,2,uFld,vFld,hDiv,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
333 |
MOM_VECINV |
CALL MOM_CALC_TENSION( bi,bj,k,uFld,vFld,tension,myThid ) |
|
./pkg/mom_vecinv/mom_vecinv.F |
334 |
MOM_VECINV |
CALL MOM_CALC_STRAIN( bi,bj,k,uFld,vFld,hFacZ,strain,myThid ) |
|
./pkg/mom_vecinv/mom_vecinv.F |
369 |
MOM_VECINV |
CALL MOM_CALC_VISC( bi, bj, k, |
|
./pkg/mom_vecinv/mom_vecinv.F |
397 |
MOM_VECINV |
CALL MOM_VI_DEL2UV(bi,bj,k,hDiv,vort3,hFacZ, |
|
./pkg/mom_vecinv/mom_vecinv.F |
406 |
MOM_VECINV |
CALL MOM_CALC_HDIV(bi,bj,k,2,del2u,del2v,dStar,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
407 |
MOM_VECINV |
CALL MOM_CALC_RELVORT3(bi,bj,k, |
|
./pkg/mom_vecinv/mom_vecinv.F |
427 |
MOM_VECINV |
CALL MOM_HDISSIP( bi, bj, k, |
|
./pkg/mom_vecinv/mom_vecinv.F |
435 |
MOM_VECINV |
CALL MOM_VI_HDISSIP( bi, bj, k, |
|
./pkg/mom_vecinv/mom_vecinv.F |
448 |
MOM_VECINV |
CALL MOM_U_RVISCFLUX(bi,bj,k+1,uVel,kappaRU,vrF,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
466 |
MOM_VECINV |
& -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_vecinv/mom_vecinv.F |
467 |
MOM_VECINV |
& *recip_rAw(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vecinv.F |
477 |
MOM_VECINV |
CALL MOM_U_SIDEDRAG( bi, bj, k, |
|
./pkg/mom_vecinv/mom_vecinv.F |
492 |
MOM_VECINV |
CALL MOM_U_BOTTOMDRAG( bi, bj, k, |
|
./pkg/mom_vecinv/mom_vecinv.F |
504 |
MOM_VECINV |
CALL SHELFICE_U_DRAG( bi, bj, k, |
|
./pkg/mom_vecinv/mom_vecinv.F |
521 |
MOM_VECINV |
CALL MOM_V_RVISCFLUX(bi,bj,k+1,vVel,kappaRV,vrF,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
537 |
MOM_VECINV |
& -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_vecinv/mom_vecinv.F |
538 |
MOM_VECINV |
& *recip_rAs(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vecinv.F |
548 |
MOM_VECINV |
CALL MOM_V_SIDEDRAG( bi, bj, k, |
|
./pkg/mom_vecinv/mom_vecinv.F |
563 |
MOM_VECINV |
CALL MOM_V_BOTTOMDRAG( bi, bj, k, |
|
./pkg/mom_vecinv/mom_vecinv.F |
575 |
MOM_VECINV |
CALL SHELFICE_V_DRAG( bi, bj, k, |
|
./pkg/mom_vecinv/mom_vecinv.F |
598 |
MOM_VECINV |
& CALL MOM_CALC_ABSVORT3(bi,bj,k,vort3,omega3,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
613 |
MOM_VECINV |
CALL MOM_VI_U_CORIOLIS(bi,bj,k,selectVortScheme,useJamartMomAdv, |
|
./pkg/mom_vecinv/mom_vecinv.F |
616 |
MOM_VECINV |
CALL MOM_VI_V_CORIOLIS(bi,bj,k,selectVortScheme,useJamartMomAdv, |
|
./pkg/mom_vecinv/mom_vecinv.F |
620 |
MOM_VECINV |
CALL MOM_VI_CORIOLIS(bi,bj,k,uFld,vFld,hFacZ,r_hFacZ, |
|
./pkg/mom_vecinv/mom_vecinv.F |
625 |
MOM_VECINV |
gU(i,j,k,bi,bj) = uCf(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
626 |
MOM_VECINV |
gV(i,j,k,bi,bj) = vCf(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
631 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('fV','I10',1,uCf,bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
632 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('fU','I10',1,vCf,bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
636 |
MOM_VECINV |
CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj, 'fV', uCf, |
|
./pkg/mom_vecinv/mom_vecinv.F |
638 |
MOM_VECINV |
CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj, 'fU', vCf, |
|
./pkg/mom_vecinv/mom_vecinv.F |
645 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(uCf,'Um_Cori ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
646 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(vCf,'Vm_Cori ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
652 |
MOM_VECINV |
gU(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mom_vecinv/mom_vecinv.F |
653 |
MOM_VECINV |
gV(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mom_vecinv/mom_vecinv.F |
669 |
MOM_VECINV |
CALL MOM_VI_U_CORIOLIS_C4(bi,bj,k,selectVortScheme, |
|
./pkg/mom_vecinv/mom_vecinv.F |
674 |
MOM_VECINV |
CALL MOM_VI_U_CORIOLIS_C4(bi,bj,k,selectVortScheme, |
|
./pkg/mom_vecinv/mom_vecinv.F |
679 |
MOM_VECINV |
CALL MOM_VI_U_CORIOLIS(bi,bj,k,selectVortScheme,useJamartMomAdv, |
|
./pkg/mom_vecinv/mom_vecinv.F |
683 |
MOM_VECINV |
CALL MOM_VI_U_CORIOLIS(bi,bj,k,selectVortScheme,useJamartMomAdv, |
|
./pkg/mom_vecinv/mom_vecinv.F |
689 |
MOM_VECINV |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+uCf(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
694 |
MOM_VECINV |
CALL MOM_VI_V_CORIOLIS_C4(bi,bj,k,selectVortScheme, |
|
./pkg/mom_vecinv/mom_vecinv.F |
699 |
MOM_VECINV |
CALL MOM_VI_V_CORIOLIS_C4(bi,bj,k,selectVortScheme, |
|
./pkg/mom_vecinv/mom_vecinv.F |
704 |
MOM_VECINV |
CALL MOM_VI_V_CORIOLIS(bi,bj,k,selectVortScheme,useJamartMomAdv, |
|
./pkg/mom_vecinv/mom_vecinv.F |
708 |
MOM_VECINV |
CALL MOM_VI_V_CORIOLIS(bi,bj,k,selectVortScheme,useJamartMomAdv, |
|
./pkg/mom_vecinv/mom_vecinv.F |
714 |
MOM_VECINV |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+vCf(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
727 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('zV','I10',1,uCf,bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
728 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('zU','I10',1,vCf,bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
732 |
MOM_VECINV |
CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj, 'zV', uCf, |
|
./pkg/mom_vecinv/mom_vecinv.F |
734 |
MOM_VECINV |
CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj, 'zU', vCf, |
|
./pkg/mom_vecinv/mom_vecinv.F |
73 |
MOM_VECINV |
INTEGER bi,bj,k |
|
./pkg/mom_vecinv/mom_vecinv.F |
743 |
MOM_VECINV |
& Nr, k, bi, bj, myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
745 |
MOM_VECINV |
& Nr, k, bi, bj, myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
750 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(uCf,'Um_AdvZ3',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
751 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(vCf,'Vm_AdvZ3',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
757 |
MOM_VECINV |
CALL MOM_VI_U_VERTSHEAR(bi,bj,k,uVel,wVel,uCf,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
760 |
MOM_VECINV |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+uCf(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
763 |
MOM_VECINV |
CALL MOM_VI_V_VERTSHEAR(bi,bj,k,vVel,wVel,vCf,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
766 |
MOM_VECINV |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+vCf(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
771 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(uCf,'Um_AdvRe',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
772 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(vCf,'Vm_AdvRe',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
778 |
MOM_VECINV |
CALL MOM_VI_U_GRAD_KE(bi,bj,k,KE,uCf,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
781 |
MOM_VECINV |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+uCf(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
784 |
MOM_VECINV |
CALL MOM_VI_V_GRAD_KE(bi,bj,k,KE,vCf,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
787 |
MOM_VECINV |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+vCf(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
792 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('KEx','I10',1,uCf,bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
793 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('KEy','I10',1,vCf,bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
797 |
MOM_VECINV |
CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj, 'KEx', uCf, |
|
./pkg/mom_vecinv/mom_vecinv.F |
799 |
MOM_VECINV |
CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj, 'KEy', vCf, |
|
./pkg/mom_vecinv/mom_vecinv.F |
810 |
MOM_VECINV |
CALL MOM_U_CORIOLIS_NH(bi,bj,k,wVel,uCf,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
813 |
MOM_VECINV |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+uCf(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
818 |
MOM_VECINV |
CALL MOM_V_CORIOLIS_NH(bi,bj,k,wVel,vCf,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
821 |
MOM_VECINV |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+vCf(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
829 |
MOM_VECINV |
CALL MOM_U_METRIC_NH(bi,bj,k,uFld,wVel,uCf,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
832 |
MOM_VECINV |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+uCf(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
835 |
MOM_VECINV |
CALL MOM_V_METRIC_NH(bi,bj,k,vFld,wVel,vCf,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
838 |
MOM_VECINV |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+vCf(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
846 |
MOM_VECINV |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)*_maskW(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vecinv.F |
847 |
MOM_VECINV |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)*_maskS(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vecinv.F |
857 |
MOM_VECINV |
& guDiss,gvDiss, k, standardMessageUnit,bi,bj,myThid ) |
|
./pkg/mom_vecinv/mom_vecinv.F |
864 |
MOM_VECINV |
& bi,bj,k, myIter, myThid ) |
|
./pkg/mom_vecinv/mom_vecinv.F |
866 |
MOM_VECINV |
& bi,bj,k, myIter, myThid ) |
|
./pkg/mom_vecinv/mom_vecinv.F |
868 |
MOM_VECINV |
& bi,bj,k, myIter, myThid ) |
|
./pkg/mom_vecinv/mom_vecinv.F |
870 |
MOM_VECINV |
& bi,bj,k, myIter, myThid ) |
|
./pkg/mom_vecinv/mom_vecinv.F |
873 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('W3','I10',1,omega3, bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
874 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('Z3','I10',1,vort3BC,bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
875 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('KE','I10',1,KE, bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
876 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('D', 'I10',1,hDiv, bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
877 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('Dt','I10',1,tension,bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
879 |
MOM_VECINV |
& bi,bj,k, myIter, myThid ) |
|
./pkg/mom_vecinv/mom_vecinv.F |
880 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('Du','I10',1,guDiss, bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
881 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('Dv','I10',1,gvDiss, bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
885 |
MOM_VECINV |
CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj,'W3',omega3, |
|
./pkg/mom_vecinv/mom_vecinv.F |
887 |
MOM_VECINV |
CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj,'Z3',vort3BC, |
|
./pkg/mom_vecinv/mom_vecinv.F |
889 |
MOM_VECINV |
CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj,'KE',KE, |
|
./pkg/mom_vecinv/mom_vecinv.F |
891 |
MOM_VECINV |
CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj,'D', hDiv, |
|
./pkg/mom_vecinv/mom_vecinv.F |
893 |
MOM_VECINV |
CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj,'Dt',tension, |
|
./pkg/mom_vecinv/mom_vecinv.F |
895 |
MOM_VECINV |
CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj,'Ds',strainBC, |
|
./pkg/mom_vecinv/mom_vecinv.F |
897 |
MOM_VECINV |
CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj,'Du',guDiss, |
|
./pkg/mom_vecinv/mom_vecinv.F |
899 |
MOM_VECINV |
CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj,'Dv',gvDiss, |
|
./pkg/mom_vecinv/mom_vecinv.F |
907 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(vort3BC,'momVort3',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
908 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(KE, 'momKE ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
910 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(hDiv, 'momHDiv ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
913 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(tension, 'Tension ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
914 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(strainBC,'Strain ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
916 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(gU(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/mom_vecinv/mom_vecinv.F |
917 |
MOM_VECINV |
& 'Um_Advec',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
918 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(gV(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/mom_vecinv/mom_vecinv.F |
919 |
MOM_VECINV |
& 'Vm_Advec',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
100 |
MOM_VI_CORIOLIS |
& )*uBarXY*recip_dyC(i,j,bi,bj)*_maskS(I,J,K,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
24 |
MOM_VI_CORIOLIS |
INTEGER bi,bj,K |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
44 |
MOM_VI_CORIOLIS |
& (vFld( i , j )*dxG( i , j ,bi,bj)*_hFacS( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
45 |
MOM_VI_CORIOLIS |
& +vFld(i-1, j )*dxG(i-1, j ,bi,bj)*_hFacS(i-1, j ,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
46 |
MOM_VI_CORIOLIS |
& +(vFld( i ,j+1)*dxG( i ,j+1,bi,bj)*_hFacS( i ,j+1,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
47 |
MOM_VI_CORIOLIS |
& +vFld(i-1,j+1)*dxG(i-1,j+1,bi,bj)*_hFacS(i-1,j+1,k,bi,bj))) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
48 |
MOM_VI_CORIOLIS |
& / MAX( epsil,(_hFacS(i, j ,k,bi,bj)+_hFacS(i-1, j ,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
49 |
MOM_VI_CORIOLIS |
& +(_hFacS(i,j+1,k,bi,bj)+_hFacS(i-1,j+1,k,bi,bj)) ) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
51 |
MOM_VI_CORIOLIS |
& +0.5*( fCoriG(i,j,bi,bj)+fCoriG(i,j+1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
52 |
MOM_VI_CORIOLIS |
& )*vBarXY*recip_dxC(i,j,bi,bj)*_maskW(I,J,K,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
60 |
MOM_VI_CORIOLIS |
& (vFld( i , j )*dxG( i , j ,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
61 |
MOM_VI_CORIOLIS |
& +vFld(i-1, j )*dxG(i-1, j ,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
62 |
MOM_VI_CORIOLIS |
& +(vFld( i ,j+1)*dxG( i ,j+1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
63 |
MOM_VI_CORIOLIS |
& +vFld(i-1,j+1)*dxG(i-1,j+1,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
66 |
MOM_VI_CORIOLIS |
& +0.5*( fCoriG(i,j,bi,bj)+fCoriG(i,j+1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
67 |
MOM_VI_CORIOLIS |
& )*vBarXY*recip_dxC(i,j,bi,bj)*_maskW(I,J,K,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
77 |
MOM_VI_CORIOLIS |
& (uFld( i , j )*dyG( i , j ,bi,bj)*_hFacW( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
78 |
MOM_VI_CORIOLIS |
& +uFld( i ,j-1)*dyG( i ,j-1,bi,bj)*_hFacW( i ,j-1,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
79 |
MOM_VI_CORIOLIS |
& +(uFld(i+1, j )*dyG(i+1, j ,bi,bj)*_hFacW(i+1, j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
7 |
MOM_VI_CORIOLIS |
I bi,bj,K, |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
80 |
MOM_VI_CORIOLIS |
& +uFld(i+1,j-1)*dyG(i+1,j-1,bi,bj)*_hFacW(i+1,j-1,k,bi,bj))) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
81 |
MOM_VI_CORIOLIS |
& / MAX( epsil,(_hFacW( i ,j,k,bi,bj)+_hFacW( i ,j-1,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
82 |
MOM_VI_CORIOLIS |
& +(_hFacW(i+1,j,k,bi,bj)+_hFacW(i+1,j-1,k,bi,bj)) ) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
84 |
MOM_VI_CORIOLIS |
& -0.5*( fCoriG(i,j,bi,bj)+fCoriG(i+1,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
85 |
MOM_VI_CORIOLIS |
& )*uBarXY*recip_dyC(i,j,bi,bj)*_maskS(I,J,K,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
93 |
MOM_VI_CORIOLIS |
& (uFld( i , j )*dyG( i , j ,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
94 |
MOM_VI_CORIOLIS |
& +uFld( i ,j-1)*dyG( i ,j-1,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
95 |
MOM_VI_CORIOLIS |
& +(uFld(i+1, j )*dyG(i+1, j ,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
96 |
MOM_VI_CORIOLIS |
& +uFld(i+1,j-1)*dyG(i+1,j-1,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
99 |
MOM_VI_CORIOLIS |
& -0.5*( fCoriG(i,j,bi,bj)+fCoriG(i+1,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
110 |
MOM_VI_DEL2UV |
& hDiv, bi,bj, myThid ) |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
118 |
MOM_VI_DEL2UV |
& ( ( hDiv(i,j) - hDiv(i,j-1) )*recip_dyC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
119 |
MOM_VI_DEL2UV |
& +_recip_hFacS(i,j,k,bi,bj)* |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
121 |
MOM_VI_DEL2UV |
& *recip_dxG(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
122 |
MOM_VI_DEL2UV |
& )*maskS(i,j,k,bi,bj)*recip_deepFacC(k) |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
124 |
MOM_VI_DEL2UV |
& *maskInS(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
22 |
MOM_VI_DEL2UV |
INTEGER bi,bj,k |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
7 |
MOM_VI_DEL2UV |
I bi,bj,k, |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
85 |
MOM_VI_DEL2UV |
& hDiv, bi,bj, myThid ) |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
93 |
MOM_VI_DEL2UV |
& ( ( hDiv(i,j) - hDiv(i-1,j) )*recip_dxC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
94 |
MOM_VI_DEL2UV |
& -_recip_hFacW(i,j,k,bi,bj)* |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
96 |
MOM_VI_DEL2UV |
& *recip_dyG(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
97 |
MOM_VI_DEL2UV |
& )*maskW(i,j,k,bi,bj)*recip_deepFacC(k) |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
99 |
MOM_VI_DEL2UV |
& *maskInW(i,j,bi,bj) |
|
./model/src/cg3d.F |
138 |
CG3D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg3d.F |
143 |
CG3D |
cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj)*cg3dNorm |
|
./model/src/cg3d.F |
144 |
CG3D |
& * maskC(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
145 |
CG3D |
rhsMax = MAX(ABS(cg3d_b(i,j,k,bi,bj)),rhsMax) |
|
./model/src/cg3d.F |
154 |
CG3D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg3d.F |
159 |
CG3D |
cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj)*rhsNorm |
|
./model/src/cg3d.F |
160 |
CG3D |
cg3d_x(i,j,k,bi,bj) = cg3d_x(i,j,k,bi,bj)*rhsNorm |
|
./model/src/cg3d.F |
171 |
CG3D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg3d.F |
173 |
CG3D |
errTile(bi,bj) = 0. _d 0 |
|
./model/src/cg3d.F |
174 |
CG3D |
sumRHStile(bi,bj) = 0. _d 0 |
|
./model/src/cg3d.F |
186 |
CG3D |
& +cg3d_x(i,j,k,bi,bj)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
192 |
CG3D |
ks = kSurfC(i,j,bi,bj) |
|
./model/src/cg3d.F |
194 |
CG3D |
& *recip_Rcol(i,j,bi,bj)*recip_Rcol(i,j,bi,bj) |
|
./model/src/cg3d.F |
195 |
CG3D |
& *rA(i,j,bi,bj)*deepFac2F(ks) |
|
./model/src/cg3d.F |
196 |
CG3D |
& *recip_Bo(i,j,bi,bj)/deltaTMom/deltaTfreesurf |
|
./model/src/cg3d.F |
213 |
CG3D |
cg3d_r(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
215 |
CG3D |
& +aW3d( i, j, k, bi,bj)*cg3d_x(i-1,j, k, bi,bj) |
|
./model/src/cg3d.F |
216 |
CG3D |
& +aW3d(i+1,j, k, bi,bj)*cg3d_x(i+1,j, k, bi,bj) |
|
./model/src/cg3d.F |
217 |
CG3D |
& +aS3d( i, j, k, bi,bj)*cg3d_x( i,j-1,k, bi,bj) |
|
./model/src/cg3d.F |
218 |
CG3D |
& +aS3d( i,j+1,k, bi,bj)*cg3d_x( i,j+1,k, bi,bj) |
|
./model/src/cg3d.F |
219 |
CG3D |
& +aV3d( i, j, k, bi,bj)*cg3d_x( i, j,km1,bi,bj)*maskM1 |
|
./model/src/cg3d.F |
220 |
CG3D |
& +aV3d( i, j,kp1,bi,bj)*cg3d_x( i, j,kp1,bi,bj)*maskP1 |
|
./model/src/cg3d.F |
221 |
CG3D |
& +aC3d( i, j, k, bi,bj)*cg3d_x( i, j, k, bi,bj) |
|
./model/src/cg3d.F |
223 |
CG3D |
& -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
226 |
CG3D |
errTile(bi,bj) = errTile(bi,bj) |
|
./model/src/cg3d.F |
227 |
CG3D |
& +cg3d_r(i,j,k,bi,bj)*cg3d_r(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
228 |
CG3D |
sumRHStile(bi,bj) = sumRHStile(bi,bj)+cg3d_b(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
233 |
CG3D |
cg3d_s(i,j,k,bi,bj) = 0. |
|
./model/src/cg3d.F |
270 |
CG3D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg3d.F |
272 |
CG3D |
eta_qrNtile(bi,bj) = 0. _d 0 |
|
./model/src/cg3d.F |
279 |
CG3D |
cg3d_q(i,j,k,bi,bj) = zMC(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
280 |
CG3D |
& *cg3d_r(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
290 |
CG3D |
cg3d_q(i,j,k,bi,bj) = zMC(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
291 |
CG3D |
& *( cg3d_r(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
292 |
CG3D |
& -zML(i,j,k,bi,bj)*cg3d_q(i,j,k-1,bi,bj) |
|
./model/src/cg3d.F |
303 |
CG3D |
eta_qrNtile(bi,bj) = eta_qrNtile(bi,bj) |
|
./model/src/cg3d.F |
304 |
CG3D |
& +cg3d_q(i,j,k,bi,bj)*cg3d_r(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
314 |
CG3D |
cg3d_q(i,j,k,bi,bj) = cg3d_q(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
315 |
CG3D |
& -zMU(i,j,k,bi,bj)*cg3d_q(i,j,k+1,bi,bj) |
|
./model/src/cg3d.F |
323 |
CG3D |
eta_qrNtile(bi,bj) = eta_qrNtile(bi,bj) |
|
./model/src/cg3d.F |
324 |
CG3D |
& +cg3d_q(i,j,k,bi,bj)*cg3d_r(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
339 |
CG3D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg3d.F |
344 |
CG3D |
cg3d_s(i,j,k,bi,bj) = cg3d_q(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
345 |
CG3D |
& + cgBeta*cg3d_s(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
354 |
CG3D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg3d.F |
356 |
CG3D |
alphaTile(bi,bj) = 0. _d 0 |
|
./model/src/cg3d.F |
368 |
CG3D |
& +cg3d_s(i,j,k,bi,bj)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
374 |
CG3D |
ks = kSurfC(i,j,bi,bj) |
|
./model/src/cg3d.F |
376 |
CG3D |
& *recip_Rcol(i,j,bi,bj)*recip_Rcol(i,j,bi,bj) |
|
./model/src/cg3d.F |
377 |
CG3D |
& *rA(i,j,bi,bj)*deepFac2F(ks) |
|
./model/src/cg3d.F |
378 |
CG3D |
& *recip_Bo(i,j,bi,bj)/deltaTMom/deltaTfreesurf |
|
./model/src/cg3d.F |
390 |
CG3D |
cg3d_q(i,j,k,bi,bj) = |
|
./model/src/cg3d.F |
391 |
CG3D |
& aW3d( i, j, k, bi,bj)*cg3d_s(i-1,j, k, bi,bj) |
|
./model/src/cg3d.F |
392 |
CG3D |
& +aW3d(i+1,j, k, bi,bj)*cg3d_s(i+1,j, k, bi,bj) |
|
./model/src/cg3d.F |
393 |
CG3D |
& +aS3d( i, j, k, bi,bj)*cg3d_s( i,j-1,k, bi,bj) |
|
./model/src/cg3d.F |
394 |
CG3D |
& +aS3d( i,j+1,k, bi,bj)*cg3d_s( i,j+1,k, bi,bj) |
|
./model/src/cg3d.F |
395 |
CG3D |
& +aV3d( i, j,k+1,bi,bj)*cg3d_s( i, j,k+1,bi,bj) |
|
./model/src/cg3d.F |
396 |
CG3D |
& +aC3d( i, j, k, bi,bj)*cg3d_s( i, j, k, bi,bj) |
|
./model/src/cg3d.F |
398 |
CG3D |
& -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
400 |
CG3D |
alphaTile(bi,bj) = alphaTile(bi,bj) |
|
./model/src/cg3d.F |
401 |
CG3D |
& +cg3d_s(i,j,k,bi,bj)*cg3d_q(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
411 |
CG3D |
cg3d_q(i,j,k,bi,bj) = |
|
./model/src/cg3d.F |
412 |
CG3D |
& aW3d( i, j, k, bi,bj)*cg3d_s(i-1,j, k, bi,bj) |
|
./model/src/cg3d.F |
413 |
CG3D |
& +aW3d(i+1,j, k, bi,bj)*cg3d_s(i+1,j, k, bi,bj) |
|
./model/src/cg3d.F |
414 |
CG3D |
& +aS3d( i, j, k, bi,bj)*cg3d_s( i,j-1,k, bi,bj) |
|
./model/src/cg3d.F |
415 |
CG3D |
& +aS3d( i,j+1,k, bi,bj)*cg3d_s( i,j+1,k, bi,bj) |
|
./model/src/cg3d.F |
416 |
CG3D |
& +aC3d( i, j, k, bi,bj)*cg3d_s( i, j, k, bi,bj) |
|
./model/src/cg3d.F |
418 |
CG3D |
& -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
420 |
CG3D |
alphaTile(bi,bj) = alphaTile(bi,bj) |
|
./model/src/cg3d.F |
421 |
CG3D |
& +cg3d_s(i,j,k,bi,bj)*cg3d_q(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
431 |
CG3D |
cg3d_q(i,j,k,bi,bj) = |
|
./model/src/cg3d.F |
432 |
CG3D |
& aW3d( i, j, k, bi,bj)*cg3d_s(i-1,j, k, bi,bj) |
|
./model/src/cg3d.F |
433 |
CG3D |
& +aW3d(i+1,j, k, bi,bj)*cg3d_s(i+1,j, k, bi,bj) |
|
./model/src/cg3d.F |
434 |
CG3D |
& +aS3d( i, j, k, bi,bj)*cg3d_s( i,j-1,k, bi,bj) |
|
./model/src/cg3d.F |
435 |
CG3D |
& +aS3d( i,j+1,k, bi,bj)*cg3d_s( i,j+1,k, bi,bj) |
|
./model/src/cg3d.F |
436 |
CG3D |
& +aV3d( i, j, k, bi,bj)*cg3d_s( i, j,k-1,bi,bj) |
|
./model/src/cg3d.F |
437 |
CG3D |
& +aV3d( i, j,k+1,bi,bj)*cg3d_s( i, j,k+1,bi,bj) |
|
./model/src/cg3d.F |
438 |
CG3D |
& +aC3d( i, j, k, bi,bj)*cg3d_s( i, j, k, bi,bj) |
|
./model/src/cg3d.F |
440 |
CG3D |
& -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
442 |
CG3D |
alphaTile(bi,bj) = alphaTile(bi,bj) |
|
./model/src/cg3d.F |
443 |
CG3D |
& +cg3d_s(i,j,k,bi,bj)*cg3d_q(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
454 |
CG3D |
cg3d_q(i,j,k,bi,bj) = |
|
./model/src/cg3d.F |
455 |
CG3D |
& aW3d( i, j, k, bi,bj)*cg3d_s(i-1,j, k, bi,bj) |
|
./model/src/cg3d.F |
456 |
CG3D |
& +aW3d(i+1,j, k, bi,bj)*cg3d_s(i+1,j, k, bi,bj) |
|
./model/src/cg3d.F |
457 |
CG3D |
& +aS3d( i, j, k, bi,bj)*cg3d_s( i,j-1,k, bi,bj) |
|
./model/src/cg3d.F |
458 |
CG3D |
& +aS3d( i,j+1,k, bi,bj)*cg3d_s( i,j+1,k, bi,bj) |
|
./model/src/cg3d.F |
459 |
CG3D |
& +aV3d( i, j, k, bi,bj)*cg3d_s( i, j,k-1,bi,bj) |
|
./model/src/cg3d.F |
460 |
CG3D |
& +aC3d( i, j, k, bi,bj)*cg3d_s( i, j, k, bi,bj) |
|
./model/src/cg3d.F |
462 |
CG3D |
& -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
464 |
CG3D |
alphaTile(bi,bj) = alphaTile(bi,bj) |
|
./model/src/cg3d.F |
465 |
CG3D |
& +cg3d_s(i,j,k,bi,bj)*cg3d_q(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
480 |
CG3D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg3d.F |
482 |
CG3D |
errTile(bi,bj) = 0. _d 0 |
|
./model/src/cg3d.F |
489 |
CG3D |
cg3d_x(i,j,k,bi,bj)=cg3d_x(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
490 |
CG3D |
& +alpha*cg3d_s(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
491 |
CG3D |
cg3d_r(i,j,k,bi,bj)=cg3d_r(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
492 |
CG3D |
& -alpha*cg3d_q(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
493 |
CG3D |
errTile(bi,bj) = errTile(bi,bj) |
|
./model/src/cg3d.F |
494 |
CG3D |
& +cg3d_r(i,j,k,bi,bj)*cg3d_r(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
523 |
CG3D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg3d.F |
528 |
CG3D |
cg3d_x(i,j,k,bi,bj) = cg3d_x(i,j,k,bi,bj)/rhsNorm |
|
./model/src/cg3d.F |
95 |
CG3D |
INTEGER bi, bj |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
100 |
MOM_VI_HDISSIP |
& cosFacV(j,bi,bj)*( Zpj-Zij )*recip_DXG(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
101 |
MOM_VI_HDISSIP |
& + viscAhD* ( Dij-Dim )*recip_DYC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
103 |
MOM_VI_HDISSIP |
& *cosFacV(j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
132 |
MOM_VI_HDISSIP |
Dim=dyF( i ,j-1,bi,bj)*dStar( i ,j-1) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
133 |
MOM_VI_HDISSIP |
Dij=dyF( i , j ,bi,bj)*dStar( i , j ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
134 |
MOM_VI_HDISSIP |
Dmj=dyF(i-1, j ,bi,bj)*dStar(i-1, j ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
136 |
MOM_VI_HDISSIP |
Zip1=dxV( i ,j+1,bi,bj)*hFacZ( i ,j+1)*zStar( i ,j+1) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
137 |
MOM_VI_HDISSIP |
Zij1=dxV( i , j ,bi,bj)*hFacZ( i , j )*zStar( i , j ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
138 |
MOM_VI_HDISSIP |
Zpj1=dxV(i+1, j ,bi,bj)*hFacZ(i+1, j )*zStar(i+1, j ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
156 |
MOM_VI_HDISSIP |
uD4 = recip_rAw(i,j,bi,bj)*( |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
157 |
MOM_VI_HDISSIP |
& ( (Dij-Dmj)*cosFacU(j,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
158 |
MOM_VI_HDISSIP |
& -_recip_hFacW(i,j,k,bi,bj)*( Zip-Zij ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
160 |
MOM_VI_HDISSIP |
& *cosFacU(j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
163 |
MOM_VI_HDISSIP |
vD4 = recip_rAs(i,j,bi,bj)*( |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
164 |
MOM_VI_HDISSIP |
& _recip_hFacS(i,j,k,bi,bj)*( (Zpj-Zij)*cosFacV(j,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
167 |
MOM_VI_HDISSIP |
& *cosFacV(j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
172 |
MOM_VI_HDISSIP |
& cosFacU(j,bi,bj)*( Dij-Dmj )*recip_DXC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
173 |
MOM_VI_HDISSIP |
& -_recip_hFacW(i,j,k,bi,bj)*( Zip-Zij )*recip_DYG(i,j,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
175 |
MOM_VI_HDISSIP |
& *cosFacU(j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
178 |
MOM_VI_HDISSIP |
& _recip_hFacS(i,j,k,bi,bj)*( Zpj-Zij )*recip_DXG(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
179 |
MOM_VI_HDISSIP |
& *cosFacV(j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
180 |
MOM_VI_HDISSIP |
& +( Dij-Dim )*recip_DYC(i,j,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
182 |
MOM_VI_HDISSIP |
& *cosFacV(j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
196 |
MOM_VI_HDISSIP |
Dim=dyF( i ,j-1,bi,bj)*dStar( i ,j-1) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
197 |
MOM_VI_HDISSIP |
Dij=dyF( i , j ,bi,bj)*dStar( i , j ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
198 |
MOM_VI_HDISSIP |
Dmj=dyF(i-1, j ,bi,bj)*dStar(i-1, j ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
200 |
MOM_VI_HDISSIP |
Zip1=dxV( i ,j+1,bi,bj)*hFacZ( i ,j+1)*zStar( i ,j+1) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
201 |
MOM_VI_HDISSIP |
Zij1=dxV( i , j ,bi,bj)*hFacZ( i , j )*zStar( i , j ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
202 |
MOM_VI_HDISSIP |
Zpj1=dxV(i+1, j ,bi,bj)*hFacZ(i+1, j )*zStar(i+1, j ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
217 |
MOM_VI_HDISSIP |
uD4 = recip_rAw(i,j,bi,bj)*( |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
218 |
MOM_VI_HDISSIP |
& viscA4D*( Dij-Dmj )*cosFacU(j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
219 |
MOM_VI_HDISSIP |
& -_recip_hFacW(i,j,k,bi,bj)*viscA4Z*( Zip-Zij ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
221 |
MOM_VI_HDISSIP |
& *cosFacU(j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
224 |
MOM_VI_HDISSIP |
vD4 = recip_rAs(i,j,bi,bj)*( |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
225 |
MOM_VI_HDISSIP |
& _recip_hFacS(i,j,k,bi,bj)*viscA4Z*( Zpj-Zij )*cosFacV(j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
228 |
MOM_VI_HDISSIP |
& *cosFacV(j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
233 |
MOM_VI_HDISSIP |
& cosFacU(j,bi,bj)*( Dij-Dmj )*recip_DXC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
234 |
MOM_VI_HDISSIP |
& - viscA4Z*_recip_hFacW(i,j,k,bi,bj)* |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
235 |
MOM_VI_HDISSIP |
& ( Zip-Zij )*recip_DYG(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
237 |
MOM_VI_HDISSIP |
& *cosFacU(j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
239 |
MOM_VI_HDISSIP |
vD4 = viscA4Z*_recip_hFacS(i,j,k,bi,bj)* |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
240 |
MOM_VI_HDISSIP |
& cosFacV(j,bi,bj)*( Zpj-Zij )*recip_DXG(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
241 |
MOM_VI_HDISSIP |
& + viscA4D* ( Dij-Dim )*recip_DYC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
243 |
MOM_VI_HDISSIP |
& *cosFacV(j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
258 |
MOM_VI_HDISSIP |
uDissip(i,j) = uDissip(i,j)*maskW(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
260 |
MOM_VI_HDISSIP |
vDissip(i,j) = vDissip(i,j)*maskS(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
26 |
MOM_VI_HDISSIP |
INTEGER bi, bj, k |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
63 |
MOM_VI_HDISSIP |
& cosFacU(j,bi,bj)*( Dij-Dmj )*recip_DXC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
64 |
MOM_VI_HDISSIP |
& -_recip_hFacW(i,j,k,bi,bj)*( Zip-Zij )*recip_DYG(i,j,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
66 |
MOM_VI_HDISSIP |
& *cosFacU(j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
69 |
MOM_VI_HDISSIP |
& _recip_hFacS(i,j,k,bi,bj)*( Zpj-Zij )*recip_DXG(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
70 |
MOM_VI_HDISSIP |
& *cosFacV(j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
71 |
MOM_VI_HDISSIP |
& +( Dij-Dim )*recip_DYC(i,j,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
73 |
MOM_VI_HDISSIP |
& *cosFacV(j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
7 |
MOM_VI_HDISSIP |
I bi, bj, k, |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
93 |
MOM_VI_HDISSIP |
& cosFacU(j,bi,bj)*( Dij-Dmj )*recip_DXC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
94 |
MOM_VI_HDISSIP |
& - viscAhZ*_recip_hFacW(i,j,k,bi,bj)* |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
95 |
MOM_VI_HDISSIP |
& ( Zip-Zij )*recip_DYG(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
97 |
MOM_VI_HDISSIP |
& *cosFacU(j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
99 |
MOM_VI_HDISSIP |
vD2 = viscAhZ*_recip_hFacS(i,j,k,bi,bj)* |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
108 |
MOM_VI_U_CORIOLIS |
uCoriolisTerm(i,j)= +vort3u*vBarXY*recip_dxC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
109 |
MOM_VI_U_CORIOLIS |
& * _maskW(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
10 |
MOM_VI_U_CORIOLIS |
I bi, bj, k, |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
119 |
MOM_VI_U_CORIOLIS |
& vFld( i , j )*dxG( i , j ,bi,bj)*_hFacS( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
120 |
MOM_VI_U_CORIOLIS |
& +vFld(i-1, j )*dxG(i-1, j ,bi,bj)*_hFacS(i-1, j ,k,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
122 |
MOM_VI_U_CORIOLIS |
& vFld( i ,j+1)*dxG( i ,j+1,bi,bj)*_hFacS( i ,j+1,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
123 |
MOM_VI_U_CORIOLIS |
& +vFld(i-1,j+1)*dxG(i-1,j+1,bi,bj)*_hFacS(i-1,j+1,k,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
135 |
MOM_VI_U_CORIOLIS |
uCoriolisTerm(i,j)= +vort3u*recip_dxC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
136 |
MOM_VI_U_CORIOLIS |
& * _maskW(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
154 |
MOM_VI_U_CORIOLIS |
& *vFld(i-1, j )*dxG(i-1, j ,bi,bj)*_hFacS(i-1, j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
160 |
MOM_VI_U_CORIOLIS |
& *vFld( i , j )*dxG( i , j ,bi,bj)*_hFacS( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
166 |
MOM_VI_U_CORIOLIS |
& *vFld(i-1,j+1)*dxG(i-1,j+1,bi,bj)*_hFacS(i-1,j+1,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
172 |
MOM_VI_U_CORIOLIS |
& *vFld( i ,j+1)*dxG( i ,j+1,bi,bj)*_hFacS( i ,j+1,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
175 |
MOM_VI_U_CORIOLIS |
& *0.25 _d 0 *recip_dxC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
176 |
MOM_VI_U_CORIOLIS |
& * _maskW(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
193 |
MOM_VI_U_CORIOLIS |
& * 4. _d 0 * _hFacW(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
195 |
MOM_VI_U_CORIOLIS |
& (_hFacS(i, j ,k,bi,bj)+_hFacS(i-1, j ,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
196 |
MOM_VI_U_CORIOLIS |
& +(_hFacS(i,j+1,k,bi,bj)+_hFacS(i-1,j+1,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
34 |
MOM_VI_U_CORIOLIS |
INTEGER bi, bj, k |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
68 |
MOM_VI_U_CORIOLIS |
& (vFld( i , j )*dxG( i , j ,bi,bj)*_hFacS( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
69 |
MOM_VI_U_CORIOLIS |
& +vFld(i-1, j )*dxG(i-1, j ,bi,bj)*_hFacS(i-1, j ,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
70 |
MOM_VI_U_CORIOLIS |
& +(vFld( i ,j+1)*dxG( i ,j+1,bi,bj)*_hFacS( i ,j+1,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
71 |
MOM_VI_U_CORIOLIS |
& +vFld(i-1,j+1)*dxG(i-1,j+1,bi,bj)*_hFacS(i-1,j+1,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
83 |
MOM_VI_U_CORIOLIS |
uCoriolisTerm(i,j)= +vort3u*vBarXY*recip_dxC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
84 |
MOM_VI_U_CORIOLIS |
& * _maskW(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
94 |
MOM_VI_U_CORIOLIS |
& (vFld( i , j )*dxG( i , j ,bi,bj)*hFacZ(i, j ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
95 |
MOM_VI_U_CORIOLIS |
& +vFld(i-1, j )*dxG(i-1, j ,bi,bj)*hFacZ(i, j )) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
96 |
MOM_VI_U_CORIOLIS |
& +(vFld( i ,j+1)*dxG( i ,j+1,bi,bj)*hFacZ(i,j+1) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
97 |
MOM_VI_U_CORIOLIS |
& +vFld(i-1,j+1)*dxG(i-1,j+1,bi,bj)*hFacZ(i,j+1)) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
10 |
MOM_VI_U_CORIOLIS_C4 |
I bi,bj,k, |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
132 |
MOM_VI_U_CORIOLIS_C4 |
& (vFld( i , j )*dxG( i , j ,bi,bj)*_hFacS( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
133 |
MOM_VI_U_CORIOLIS_C4 |
& +vFld(i-1, j )*dxG(i-1, j ,bi,bj)*_hFacS(i-1, j ,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
134 |
MOM_VI_U_CORIOLIS_C4 |
& +(vFld( i ,j+1)*dxG( i ,j+1,bi,bj)*_hFacS( i ,j+1,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
135 |
MOM_VI_U_CORIOLIS_C4 |
& +vFld(i-1,j+1)*dxG(i-1,j+1,bi,bj)*_hFacS(i-1,j+1,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
145 |
MOM_VI_U_CORIOLIS_C4 |
Rjp = ( vort3r(i,j+2) - vort3r(i,j+1) )*maskInW(i,j+1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
146 |
MOM_VI_U_CORIOLIS_C4 |
Rjm = ( vort3r(i, j ) - vort3r(i,j-1) )*maskInW(i,j-1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
158 |
MOM_VI_U_CORIOLIS_C4 |
uCoriolisTerm(i,j) = vort3u*vBarXY*recip_dxC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
159 |
MOM_VI_U_CORIOLIS_C4 |
& * _maskW(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
173 |
MOM_VI_U_CORIOLIS_C4 |
& vFld( i , j )*dxG( i , j ,bi,bj)*_hFacS( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
174 |
MOM_VI_U_CORIOLIS_C4 |
& +vFld(i-1, j )*dxG(i-1, j ,bi,bj)*_hFacS(i-1, j ,k,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
176 |
MOM_VI_U_CORIOLIS_C4 |
& vFld( i ,j+1)*dxG( i ,j+1,bi,bj)*_hFacS( i ,j+1,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
177 |
MOM_VI_U_CORIOLIS_C4 |
& +vFld(i-1,j+1)*dxG(i-1,j+1,bi,bj)*_hFacS(i-1,j+1,k,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
186 |
MOM_VI_U_CORIOLIS_C4 |
Rjp = ( vort3r(i,j+2) - vort3r(i,j+1) )*maskInW(i,j+1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
187 |
MOM_VI_U_CORIOLIS_C4 |
Rjm = ( vort3r(i, j ) - vort3r(i,j-1) )*maskInW(i,j-1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
202 |
MOM_VI_U_CORIOLIS_C4 |
uCoriolisTerm(i,j) = vort3u*recip_dxC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
203 |
MOM_VI_U_CORIOLIS_C4 |
& * _maskW(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
38 |
MOM_VI_U_CORIOLIS_C4 |
INTEGER bi,bj,k |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
80 |
MOM_VI_U_CORIOLIS_C4 |
myTile = W2_myTileList(bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_grad_ke.F |
23 |
MOM_VI_U_GRAD_KE |
INTEGER bi,bj,k |
|
./pkg/mom_vecinv/mom_vi_u_grad_ke.F |
33 |
MOM_VI_U_GRAD_KE |
dKEdx(i,j)=-_recip_dxC(i,j,bi,bj)*(KE(i,j)-KE(i-1,j)) |
|
./pkg/mom_vecinv/mom_vi_u_grad_ke.F |
34 |
MOM_VI_U_GRAD_KE |
& *_maskW(i,j,k,bi,bj)*recip_deepFacC(k) |
|
./pkg/mom_vecinv/mom_vi_u_grad_ke.F |
7 |
MOM_VI_U_GRAD_KE |
I bi,bj,k, |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
103 |
MOM_VI_U_VERTSHEAR |
uZp=(mask_Kp1*uFld(I,J,Kp1,bi,bj)-uFld(I,J,K,bi,bj))*rkSign |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
126 |
MOM_VI_U_VERTSHEAR |
& )*_recip_hFacW(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
131 |
MOM_VI_U_VERTSHEAR |
& *_recip_hFacW(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
24 |
MOM_VI_U_VERTSHEAR |
INTEGER bi,bj,K |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
69 |
MOM_VI_U_VERTSHEAR |
& wFld(I,J,K,bi,bj)*rA(i,j,bi,bj)*maskC(I,J,Km1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
70 |
MOM_VI_U_VERTSHEAR |
& +wFld(I-1,J,K,bi,bj)*rA(i-1,j,bi,bj)*maskC(I-1,J,Km1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
72 |
MOM_VI_U_VERTSHEAR |
& *recip_rAw(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
76 |
MOM_VI_U_VERTSHEAR |
& wFld(I,J,Kp1,bi,bj)*rA(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
77 |
MOM_VI_U_VERTSHEAR |
& +wFld(I-1,J,Kp1,bi,bj)*rA(i-1,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
79 |
MOM_VI_U_VERTSHEAR |
& *recip_rAw(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
7 |
MOM_VI_U_VERTSHEAR |
I bi,bj,K, |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
83 |
MOM_VI_U_VERTSHEAR |
& wFld(I,J,K,bi,bj)*maskC(I,J,Km1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
84 |
MOM_VI_U_VERTSHEAR |
& +wFld(I-1,J,K,bi,bj)*maskC(I-1,J,Km1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
89 |
MOM_VI_U_VERTSHEAR |
& wFld(I,J,Kp1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
90 |
MOM_VI_U_VERTSHEAR |
& +wFld(I-1,J,Kp1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
96 |
MOM_VI_U_VERTSHEAR |
uZm=(uFld(I,J,K,bi,bj)-mask_Km1*uFld(I,J,Km1,bi,bj))*rkSign |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
108 |
MOM_VI_V_CORIOLIS |
vCoriolisTerm(i,j)= -vort3v*uBarXY*recip_dyC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
109 |
MOM_VI_V_CORIOLIS |
& * _maskS(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
10 |
MOM_VI_V_CORIOLIS |
I bi, bj, k, |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
119 |
MOM_VI_V_CORIOLIS |
& uFld( i , j )*dyG( i , j ,bi,bj)*_hFacW( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
120 |
MOM_VI_V_CORIOLIS |
& +uFld( i ,j-1)*dyG( i ,j-1,bi,bj)*_hFacW( i ,j-1,k,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
122 |
MOM_VI_V_CORIOLIS |
& uFld(i+1, j )*dyG(i+1, j ,bi,bj)*_hFacW(i+1, j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
123 |
MOM_VI_V_CORIOLIS |
& +uFld(i+1,j-1)*dyG(i+1,j-1,bi,bj)*_hFacW(i+1,j-1,k,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
135 |
MOM_VI_V_CORIOLIS |
vCoriolisTerm(i,j)= -vort3v*recip_dyC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
136 |
MOM_VI_V_CORIOLIS |
& * _maskS(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
154 |
MOM_VI_V_CORIOLIS |
& *uFld( i ,j-1)*dyG( i ,j-1,bi,bj)*_hFacW( i ,j-1,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
160 |
MOM_VI_V_CORIOLIS |
& *uFld( i , j )*dyG( i , j ,bi,bj)*_hFacW( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
166 |
MOM_VI_V_CORIOLIS |
& *uFld(i+1,j-1)*dyG(i+1,j-1,bi,bj)*_hFacW(i+1,j-1,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
172 |
MOM_VI_V_CORIOLIS |
& *uFld(i+1, j )*dyG(i+1, j ,bi,bj)*_hFacW(i+1, j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
175 |
MOM_VI_V_CORIOLIS |
& *0.25 _d 0 *recip_dyC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
176 |
MOM_VI_V_CORIOLIS |
& * _maskS(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
193 |
MOM_VI_V_CORIOLIS |
& * 4. _d 0 * _hFacS(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
195 |
MOM_VI_V_CORIOLIS |
& (_hFacW( i ,j,k,bi,bj)+_hFacW( i ,j-1,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
196 |
MOM_VI_V_CORIOLIS |
& +(_hFacW(i+1,j,k,bi,bj)+_hFacW(i+1,j-1,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
34 |
MOM_VI_V_CORIOLIS |
INTEGER bi, bj, k |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
68 |
MOM_VI_V_CORIOLIS |
& (uFld( i , j )*dyG( i , j ,bi,bj)*_hFacW( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
69 |
MOM_VI_V_CORIOLIS |
& +uFld( i ,j-1)*dyG( i ,j-1,bi,bj)*_hFacW( i ,j-1,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
70 |
MOM_VI_V_CORIOLIS |
& +(uFld(i+1, j )*dyG(i+1, j ,bi,bj)*_hFacW(i+1, j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
71 |
MOM_VI_V_CORIOLIS |
& +uFld(i+1,j-1)*dyG(i+1,j-1,bi,bj)*_hFacW(i+1,j-1,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
83 |
MOM_VI_V_CORIOLIS |
vCoriolisTerm(i,j)= -vort3v*uBarXY*recip_dyC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
84 |
MOM_VI_V_CORIOLIS |
& * _maskS(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
94 |
MOM_VI_V_CORIOLIS |
& (uFld( i , j )*dyG( i , j ,bi,bj)*hFacZ( i ,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
95 |
MOM_VI_V_CORIOLIS |
& +uFld( i ,j-1)*dyG( i ,j-1,bi,bj)*hFacZ( i ,j)) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
96 |
MOM_VI_V_CORIOLIS |
& +(uFld(i+1, j )*dyG(i+1, j ,bi,bj)*hFacZ(i+1,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
97 |
MOM_VI_V_CORIOLIS |
& +uFld(i+1,j-1)*dyG(i+1,j-1,bi,bj)*hFacZ(i+1,j)) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
10 |
MOM_VI_V_CORIOLIS_C4 |
I bi,bj,k, |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
132 |
MOM_VI_V_CORIOLIS_C4 |
& (uFld( i , j )*dyG( i , j ,bi,bj)*_hFacW( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
133 |
MOM_VI_V_CORIOLIS_C4 |
& +uFld( i ,j-1)*dyG( i ,j-1,bi,bj)*_hFacW( i ,j-1,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
134 |
MOM_VI_V_CORIOLIS_C4 |
& +(uFld(i+1, j )*dyG(i+1, j ,bi,bj)*_hFacW(i+1, j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
135 |
MOM_VI_V_CORIOLIS_C4 |
& +uFld(i+1,j-1)*dyG(i+1,j-1,bi,bj)*_hFacW(i+1,j-1,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
145 |
MOM_VI_V_CORIOLIS_C4 |
Rjp = ( vort3r(i+2,j) - vort3r(i+1,j) )*maskInS(i+1,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
146 |
MOM_VI_V_CORIOLIS_C4 |
Rjm = ( vort3r( i ,j) - vort3r(i-1,j) )*maskInS(i-1,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
158 |
MOM_VI_V_CORIOLIS_C4 |
vCoriolisTerm(i,j) = -vort3v*uBarXY*recip_dyC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
159 |
MOM_VI_V_CORIOLIS_C4 |
& * _maskS(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
173 |
MOM_VI_V_CORIOLIS_C4 |
& uFld( i , j )*dyG( i , j ,bi,bj)*_hFacW( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
174 |
MOM_VI_V_CORIOLIS_C4 |
& +uFld( i ,j-1)*dyG( i ,j-1,bi,bj)*_hFacW( i ,j-1,k,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
176 |
MOM_VI_V_CORIOLIS_C4 |
& uFld(i+1, j )*dyG(i+1, j ,bi,bj)*_hFacW(i+1, j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
177 |
MOM_VI_V_CORIOLIS_C4 |
& +uFld(i+1,j-1)*dyG(i+1,j-1,bi,bj)*_hFacW(i+1,j-1,k,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
186 |
MOM_VI_V_CORIOLIS_C4 |
Rjp = ( vort3r(i+2,j) - vort3r(i+1,j) )*maskInS(i+1,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
187 |
MOM_VI_V_CORIOLIS_C4 |
Rjm = ( vort3r( i ,j) - vort3r(i-1,j) )*maskInS(i-1,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
202 |
MOM_VI_V_CORIOLIS_C4 |
vCoriolisTerm(i,j) = -vort3v*recip_dyC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
203 |
MOM_VI_V_CORIOLIS_C4 |
& * _maskS(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
38 |
MOM_VI_V_CORIOLIS_C4 |
INTEGER bi,bj,k |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
80 |
MOM_VI_V_CORIOLIS_C4 |
myTile = W2_myTileList(bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_grad_ke.F |
23 |
MOM_VI_V_GRAD_KE |
INTEGER bi,bj,k |
|
./pkg/mom_vecinv/mom_vi_v_grad_ke.F |
33 |
MOM_VI_V_GRAD_KE |
dKEdy(i,j)=-_recip_dyC(i,j,bi,bj)*(KE(i,j)-KE(i,j-1)) |
|
./pkg/mom_vecinv/mom_vi_v_grad_ke.F |
34 |
MOM_VI_V_GRAD_KE |
& *_maskS(i,j,k,bi,bj)*recip_deepFacC(k) |
|
./pkg/mom_vecinv/mom_vi_v_grad_ke.F |
7 |
MOM_VI_V_GRAD_KE |
I bi,bj,k, |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
103 |
MOM_VI_V_VERTSHEAR |
vZp=(mask_Kp1*vFld(I,J,Kp1,bi,bj)-vFld(I,J,K,bi,bj))*rkSign |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
126 |
MOM_VI_V_VERTSHEAR |
& )*_recip_hFacS(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
131 |
MOM_VI_V_VERTSHEAR |
& *_recip_hFacS(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
24 |
MOM_VI_V_VERTSHEAR |
INTEGER bi,bj,K |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
69 |
MOM_VI_V_VERTSHEAR |
& wFld(I,J,K,bi,bj)*rA(i,j,bi,bj)*maskC(i,j,Km1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
70 |
MOM_VI_V_VERTSHEAR |
& +wFld(I,J-1,K,bi,bj)*rA(i,j-1,bi,bj)*maskC(i,j-1,Km1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
72 |
MOM_VI_V_VERTSHEAR |
& *recip_rAs(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
76 |
MOM_VI_V_VERTSHEAR |
& wFld(I,J,Kp1,bi,bj)*rA(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
77 |
MOM_VI_V_VERTSHEAR |
& +wFld(I,J-1,Kp1,bi,bj)*rA(i,j-1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
79 |
MOM_VI_V_VERTSHEAR |
& *recip_rAs(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
7 |
MOM_VI_V_VERTSHEAR |
I bi,bj,K, |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
83 |
MOM_VI_V_VERTSHEAR |
& wFld(I,J,K,bi,bj)*maskC(i,j,Km1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
84 |
MOM_VI_V_VERTSHEAR |
& +wFld(I,J-1,K,bi,bj)*maskC(i,j-1,Km1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
89 |
MOM_VI_V_VERTSHEAR |
& wFld(I,J,Kp1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
90 |
MOM_VI_V_VERTSHEAR |
& +wFld(I,J-1,Kp1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
96 |
MOM_VI_V_VERTSHEAR |
vZm=(vFld(I,J,K,bi,bj)-mask_Km1*vFld(I,J,Km1,bi,bj))*rkSign |
|
./model/src/cg3d_ex0.F |
127 |
CG3D_EX0 |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg3d_ex0.F |
130 |
CG3D_EX0 |
actualIts(bi,bj) = 0 |
|
./model/src/cg3d_ex0.F |
131 |
CG3D_EX0 |
eta_qrNM1(bi,bj) = 1. _d 0 |
|
./model/src/cg3d_ex0.F |
136 |
CG3D_EX0 |
cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj)*cg3dNorm |
|
./model/src/cg3d_ex0.F |
137 |
CG3D_EX0 |
& * maskC(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
138 |
CG3D_EX0 |
rhsMaxLoc = MAX(ABS(cg3d_b(i,j,k,bi,bj)),rhsMaxLoc) |
|
./model/src/cg3d_ex0.F |
142 |
CG3D_EX0 |
rhsNorm(bi,bj) = 1. _d 0 |
|
./model/src/cg3d_ex0.F |
143 |
CG3D_EX0 |
IF ( rhsMaxLoc .NE. 0. ) rhsNorm(bi,bj) = 1. _d 0 / rhsMaxLoc |
|
./model/src/cg3d_ex0.F |
147 |
CG3D_EX0 |
cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj)*rhsNorm(bi,bj) |
|
./model/src/cg3d_ex0.F |
148 |
CG3D_EX0 |
cg3d_x(i,j,k,bi,bj) = cg3d_x(i,j,k,bi,bj)*rhsNorm(bi,bj) |
|
./model/src/cg3d_ex0.F |
164 |
CG3D_EX0 |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg3d_ex0.F |
166 |
CG3D_EX0 |
errTile(bi,bj) = 0. _d 0 |
|
./model/src/cg3d_ex0.F |
167 |
CG3D_EX0 |
sumRHStile(bi,bj) = 0. _d 0 |
|
./model/src/cg3d_ex0.F |
179 |
CG3D_EX0 |
& +cg3d_x(i,j,k,bi,bj)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
185 |
CG3D_EX0 |
ks = kSurfC(i,j,bi,bj) |
|
./model/src/cg3d_ex0.F |
187 |
CG3D_EX0 |
& *recip_Rcol(i,j,bi,bj)*recip_Rcol(i,j,bi,bj) |
|
./model/src/cg3d_ex0.F |
188 |
CG3D_EX0 |
& *rA(i,j,bi,bj)*deepFac2F(ks) |
|
./model/src/cg3d_ex0.F |
189 |
CG3D_EX0 |
& *recip_Bo(i,j,bi,bj)/deltaTMom/deltaTfreesurf |
|
./model/src/cg3d_ex0.F |
206 |
CG3D_EX0 |
cg3d_r(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
208 |
CG3D_EX0 |
& +aW3d( i, j, k, bi,bj)*cg3d_x(i-1,j, k, bi,bj) |
|
./model/src/cg3d_ex0.F |
209 |
CG3D_EX0 |
& +aW3d(i+1,j, k, bi,bj)*cg3d_x(i+1,j, k, bi,bj) |
|
./model/src/cg3d_ex0.F |
210 |
CG3D_EX0 |
& +aS3d( i, j, k, bi,bj)*cg3d_x( i,j-1,k, bi,bj) |
|
./model/src/cg3d_ex0.F |
211 |
CG3D_EX0 |
& +aS3d( i,j+1,k, bi,bj)*cg3d_x( i,j+1,k, bi,bj) |
|
./model/src/cg3d_ex0.F |
212 |
CG3D_EX0 |
& +aV3d( i, j, k, bi,bj)*cg3d_x( i, j,km1,bi,bj)*maskM1 |
|
./model/src/cg3d_ex0.F |
213 |
CG3D_EX0 |
& +aV3d( i, j,kp1,bi,bj)*cg3d_x( i, j,kp1,bi,bj)*maskP1 |
|
./model/src/cg3d_ex0.F |
214 |
CG3D_EX0 |
& +aC3d( i, j, k, bi,bj)*cg3d_x( i, j, k, bi,bj) |
|
./model/src/cg3d_ex0.F |
216 |
CG3D_EX0 |
& -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
219 |
CG3D_EX0 |
errTile(bi,bj) = errTile(bi,bj) |
|
./model/src/cg3d_ex0.F |
220 |
CG3D_EX0 |
& +cg3d_r(i,j,k,bi,bj)*cg3d_r(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
221 |
CG3D_EX0 |
sumRHStile(bi,bj) = sumRHStile(bi,bj)+cg3d_b(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
226 |
CG3D_EX0 |
cg3d_s(i,j,k,bi,bj) = 0. |
|
./model/src/cg3d_ex0.F |
230 |
CG3D_EX0 |
err_sq = MAX( errTile(bi,bj), err_sq ) |
|
./model/src/cg3d_ex0.F |
231 |
CG3D_EX0 |
sumRHS = MAX( ABS(sumRHStile(bi,bj)), sumRHS ) |
|
./model/src/cg3d_ex0.F |
259 |
CG3D_EX0 |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg3d_ex0.F |
261 |
CG3D_EX0 |
IF ( errTile(bi,bj).GE.cg3dTolerance_sq ) THEN |
|
./model/src/cg3d_ex0.F |
269 |
CG3D_EX0 |
eta_qrNtile(bi,bj) = 0. _d 0 |
|
./model/src/cg3d_ex0.F |
276 |
CG3D_EX0 |
cg3d_q(i,j,k,bi,bj) = zMC(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
277 |
CG3D_EX0 |
& *cg3d_r(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
287 |
CG3D_EX0 |
cg3d_q(i,j,k,bi,bj) = zMC(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
288 |
CG3D_EX0 |
& *( cg3d_r(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
289 |
CG3D_EX0 |
& -zML(i,j,k,bi,bj)*cg3d_q(i,j,k-1,bi,bj) |
|
./model/src/cg3d_ex0.F |
300 |
CG3D_EX0 |
eta_qrNtile(bi,bj) = eta_qrNtile(bi,bj) |
|
./model/src/cg3d_ex0.F |
301 |
CG3D_EX0 |
& +cg3d_q(i,j,k,bi,bj)*cg3d_r(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
311 |
CG3D_EX0 |
cg3d_q(i,j,k,bi,bj) = cg3d_q(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
312 |
CG3D_EX0 |
& -zMU(i,j,k,bi,bj)*cg3d_q(i,j,k+1,bi,bj) |
|
./model/src/cg3d_ex0.F |
320 |
CG3D_EX0 |
eta_qrNtile(bi,bj) = eta_qrNtile(bi,bj) |
|
./model/src/cg3d_ex0.F |
321 |
CG3D_EX0 |
& +cg3d_q(i,j,k,bi,bj)*cg3d_r(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
326 |
CG3D_EX0 |
cgBeta = eta_qrNtile(bi,bj)/eta_qrNM1(bi,bj) |
|
./model/src/cg3d_ex0.F |
327 |
CG3D_EX0 |
eta_qrNM1(bi,bj) = eta_qrNtile(bi,bj) |
|
./model/src/cg3d_ex0.F |
332 |
CG3D_EX0 |
cg3d_s(i,j,k,bi,bj) = cg3d_q(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
333 |
CG3D_EX0 |
& + cgBeta*cg3d_s(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
340 |
CG3D_EX0 |
alphaTile(bi,bj) = 0. _d 0 |
|
./model/src/cg3d_ex0.F |
352 |
CG3D_EX0 |
& +cg3d_s(i,j,k,bi,bj)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
358 |
CG3D_EX0 |
ks = kSurfC(i,j,bi,bj) |
|
./model/src/cg3d_ex0.F |
360 |
CG3D_EX0 |
& *recip_Rcol(i,j,bi,bj)*recip_Rcol(i,j,bi,bj) |
|
./model/src/cg3d_ex0.F |
361 |
CG3D_EX0 |
& *rA(i,j,bi,bj)*deepFac2F(ks) |
|
./model/src/cg3d_ex0.F |
362 |
CG3D_EX0 |
& *recip_Bo(i,j,bi,bj)/deltaTMom/deltaTfreesurf |
|
./model/src/cg3d_ex0.F |
374 |
CG3D_EX0 |
cg3d_q(i,j,k,bi,bj) = |
|
./model/src/cg3d_ex0.F |
375 |
CG3D_EX0 |
& aW3d( i, j, k, bi,bj)*cg3d_s(i-1,j, k, bi,bj) |
|
./model/src/cg3d_ex0.F |
376 |
CG3D_EX0 |
& +aW3d(i+1,j, k, bi,bj)*cg3d_s(i+1,j, k, bi,bj) |
|
./model/src/cg3d_ex0.F |
377 |
CG3D_EX0 |
& +aS3d( i, j, k, bi,bj)*cg3d_s( i,j-1,k, bi,bj) |
|
./model/src/cg3d_ex0.F |
378 |
CG3D_EX0 |
& +aS3d( i,j+1,k, bi,bj)*cg3d_s( i,j+1,k, bi,bj) |
|
./model/src/cg3d_ex0.F |
379 |
CG3D_EX0 |
& +aV3d( i, j,k+1,bi,bj)*cg3d_s( i, j,k+1,bi,bj) |
|
./model/src/cg3d_ex0.F |
380 |
CG3D_EX0 |
& +aC3d( i, j, k, bi,bj)*cg3d_s( i, j, k, bi,bj) |
|
./model/src/cg3d_ex0.F |
382 |
CG3D_EX0 |
& -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
384 |
CG3D_EX0 |
alphaTile(bi,bj) = alphaTile(bi,bj) |
|
./model/src/cg3d_ex0.F |
385 |
CG3D_EX0 |
& +cg3d_s(i,j,k,bi,bj)*cg3d_q(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
395 |
CG3D_EX0 |
cg3d_q(i,j,k,bi,bj) = |
|
./model/src/cg3d_ex0.F |
396 |
CG3D_EX0 |
& aW3d( i, j, k, bi,bj)*cg3d_s(i-1,j, k, bi,bj) |
|
./model/src/cg3d_ex0.F |
397 |
CG3D_EX0 |
& +aW3d(i+1,j, k, bi,bj)*cg3d_s(i+1,j, k, bi,bj) |
|
./model/src/cg3d_ex0.F |
398 |
CG3D_EX0 |
& +aS3d( i, j, k, bi,bj)*cg3d_s( i,j-1,k, bi,bj) |
|
./model/src/cg3d_ex0.F |
399 |
CG3D_EX0 |
& +aS3d( i,j+1,k, bi,bj)*cg3d_s( i,j+1,k, bi,bj) |
|
./model/src/cg3d_ex0.F |
400 |
CG3D_EX0 |
& +aC3d( i, j, k, bi,bj)*cg3d_s( i, j, k, bi,bj) |
|
./model/src/cg3d_ex0.F |
402 |
CG3D_EX0 |
& -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
404 |
CG3D_EX0 |
alphaTile(bi,bj) = alphaTile(bi,bj) |
|
./model/src/cg3d_ex0.F |
405 |
CG3D_EX0 |
& +cg3d_s(i,j,k,bi,bj)*cg3d_q(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
415 |
CG3D_EX0 |
cg3d_q(i,j,k,bi,bj) = |
|
./model/src/cg3d_ex0.F |
416 |
CG3D_EX0 |
& aW3d( i, j, k, bi,bj)*cg3d_s(i-1,j, k, bi,bj) |
|
./model/src/cg3d_ex0.F |
417 |
CG3D_EX0 |
& +aW3d(i+1,j, k, bi,bj)*cg3d_s(i+1,j, k, bi,bj) |
|
./model/src/cg3d_ex0.F |
418 |
CG3D_EX0 |
& +aS3d( i, j, k, bi,bj)*cg3d_s( i,j-1,k, bi,bj) |
|
./model/src/cg3d_ex0.F |
419 |
CG3D_EX0 |
& +aS3d( i,j+1,k, bi,bj)*cg3d_s( i,j+1,k, bi,bj) |
|
./model/src/cg3d_ex0.F |
420 |
CG3D_EX0 |
& +aV3d( i, j, k, bi,bj)*cg3d_s( i, j,k-1,bi,bj) |
|
./model/src/cg3d_ex0.F |
421 |
CG3D_EX0 |
& +aV3d( i, j,k+1,bi,bj)*cg3d_s( i, j,k+1,bi,bj) |
|
./model/src/cg3d_ex0.F |
422 |
CG3D_EX0 |
& +aC3d( i, j, k, bi,bj)*cg3d_s( i, j, k, bi,bj) |
|
./model/src/cg3d_ex0.F |
424 |
CG3D_EX0 |
& -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
426 |
CG3D_EX0 |
alphaTile(bi,bj) = alphaTile(bi,bj) |
|
./model/src/cg3d_ex0.F |
427 |
CG3D_EX0 |
& +cg3d_s(i,j,k,bi,bj)*cg3d_q(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
438 |
CG3D_EX0 |
cg3d_q(i,j,k,bi,bj) = |
|
./model/src/cg3d_ex0.F |
439 |
CG3D_EX0 |
& aW3d( i, j, k, bi,bj)*cg3d_s(i-1,j, k, bi,bj) |
|
./model/src/cg3d_ex0.F |
440 |
CG3D_EX0 |
& +aW3d(i+1,j, k, bi,bj)*cg3d_s(i+1,j, k, bi,bj) |
|
./model/src/cg3d_ex0.F |
441 |
CG3D_EX0 |
& +aS3d( i, j, k, bi,bj)*cg3d_s( i,j-1,k, bi,bj) |
|
./model/src/cg3d_ex0.F |
442 |
CG3D_EX0 |
& +aS3d( i,j+1,k, bi,bj)*cg3d_s( i,j+1,k, bi,bj) |
|
./model/src/cg3d_ex0.F |
443 |
CG3D_EX0 |
& +aV3d( i, j, k, bi,bj)*cg3d_s( i, j,k-1,bi,bj) |
|
./model/src/cg3d_ex0.F |
444 |
CG3D_EX0 |
& +aC3d( i, j, k, bi,bj)*cg3d_s( i, j, k, bi,bj) |
|
./model/src/cg3d_ex0.F |
446 |
CG3D_EX0 |
& -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
448 |
CG3D_EX0 |
alphaTile(bi,bj) = alphaTile(bi,bj) |
|
./model/src/cg3d_ex0.F |
449 |
CG3D_EX0 |
& +cg3d_s(i,j,k,bi,bj)*cg3d_q(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
453 |
CG3D_EX0 |
alpha = eta_qrNtile(bi,bj)/alphaTile(bi,bj) |
|
./model/src/cg3d_ex0.F |
457 |
CG3D_EX0 |
errTile(bi,bj) = 0. _d 0 |
|
./model/src/cg3d_ex0.F |
464 |
CG3D_EX0 |
cg3d_x(i,j,k,bi,bj)=cg3d_x(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
465 |
CG3D_EX0 |
& +alpha*cg3d_s(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
466 |
CG3D_EX0 |
cg3d_r(i,j,k,bi,bj)=cg3d_r(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
467 |
CG3D_EX0 |
& -alpha*cg3d_q(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
468 |
CG3D_EX0 |
errTile(bi,bj) = errTile(bi,bj) |
|
./model/src/cg3d_ex0.F |
469 |
CG3D_EX0 |
& +cg3d_r(i,j,k,bi,bj)*cg3d_r(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
473 |
CG3D_EX0 |
actualIts(bi,bj) = it3d |
|
./model/src/cg3d_ex0.F |
478 |
CG3D_EX0 |
& bj, '): iter=', it3d, ' ; resid.= ', SQRT(errTile(bi,bj)) |
|
./model/src/cg3d_ex0.F |
485 |
CG3D_EX0 |
U cg3d_r(0,0,1,bi,bj), |
|
./model/src/cg3d_ex0.F |
487 |
CG3D_EX0 |
I EXCH_IGNORE_CORNERS, bi, bj, myThid ) |
|
./model/src/cg3d_ex0.F |
490 |
CG3D_EX0 |
err_sq = MAX( errTile(bi,bj), err_sq ) |
|
./model/src/cg3d_ex0.F |
507 |
CG3D_EX0 |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg3d_ex0.F |
512 |
CG3D_EX0 |
cg3d_x(i,j,k,bi,bj) = cg3d_x(i,j,k,bi,bj)/rhsNorm(bi,bj) |
|
./model/src/cg3d_ex0.F |
516 |
CG3D_EX0 |
numIters = MAX( actualIts(bi,bj), numIters ) |
|
./model/src/cg3d_ex0.F |
87 |
CG3D_EX0 |
INTEGER bi, bj |
|
./pkg/monitor/mon_advcfl.F |
33 |
MON_ADVCFL |
INTEGER bi,bj,I,J,K |
|
./pkg/monitor/mon_advcfl.F |
38 |
MON_ADVCFL |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/monitor/mon_advcfl.F |
43 |
MON_ADVCFL |
tmpVal=abs(U(I,J,K,bi,bj))*rDx(I,J,BI,BJ)*dT |
|
./pkg/monitor/mon_advcflw.F |
33 |
MON_ADVCFLW |
INTEGER bi,bj,I,J,K |
|
./pkg/monitor/mon_advcflw.F |
38 |
MON_ADVCFLW |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/monitor/mon_advcflw.F |
43 |
MON_ADVCFLW |
tmpVal=abs(W(I,J,K,bi,bj))*rDz(K)*dT |
|
./pkg/monitor/mon_advcflw2.F |
35 |
MON_ADVCFLW2 |
INTEGER bi,bj,I,J,K |
|
./pkg/monitor/mon_advcflw2.F |
40 |
MON_ADVCFLW2 |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/monitor/mon_advcflw2.F |
45 |
MON_ADVCFLW2 |
tmpVal=abs(W(I,J,K,bi,bj))*dT |
|
./pkg/monitor/mon_advcflw2.F |
46 |
MON_ADVCFLW2 |
& *max( rDrF(K)*rHfac(I,J,K,bi,bj), |
|
./pkg/monitor/mon_advcflw2.F |
47 |
MON_ADVCFLW2 |
& rDrF(K-1)*rHfac(I,J,K-1,bi,bj) ) |
|
./pkg/monitor/mon_calc_advcfl.F |
111 |
MON_CALC_ADVCFL_TILE |
& *recip_drF(k)*recip_hFacC(i,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_advcfl.F |
154 |
MON_CALC_ADVCFL_GLOB |
INTEGER bi, bj |
|
./pkg/monitor/mon_calc_advcfl.F |
160 |
MON_CALC_ADVCFL_GLOB |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/monitor/mon_calc_advcfl.F |
162 |
MON_CALC_ADVCFL_GLOB |
uCFL = MAX( uCFL, maxCFL(1,bi,bj) ) |
|
./pkg/monitor/mon_calc_advcfl.F |
163 |
MON_CALC_ADVCFL_GLOB |
vCFL = MAX( vCFL, maxCFL(2,bi,bj) ) |
|
./pkg/monitor/mon_calc_advcfl.F |
164 |
MON_CALC_ADVCFL_GLOB |
wCFL = MAX( wCFL, maxCFL(3,bi,bj) ) |
|
./pkg/monitor/mon_calc_advcfl.F |
17 |
MON_CALC_ADVCFL_TILE |
I myNr, bi, bj, |
|
./pkg/monitor/mon_calc_advcfl.F |
44 |
MON_CALC_ADVCFL_TILE |
INTEGER myNr, bi, bj |
|
./pkg/monitor/mon_calc_advcfl.F |
78 |
MON_CALC_ADVCFL_TILE |
uTrans(i,j) = uFld(i,j,k)*dyG(i,j,bi,bj)*deepFacC(k) |
|
./pkg/monitor/mon_calc_advcfl.F |
79 |
MON_CALC_ADVCFL_TILE |
& *hFacW(i,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_advcfl.F |
80 |
MON_CALC_ADVCFL_TILE |
vTrans(i,j) = vFld(i,j,k)*dxG(i,j,bi,bj)*deepFacC(k) |
|
./pkg/monitor/mon_calc_advcfl.F |
81 |
MON_CALC_ADVCFL_TILE |
& *hFacS(i,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_advcfl.F |
87 |
MON_CALC_ADVCFL_TILE |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/monitor/mon_calc_advcfl.F |
88 |
MON_CALC_ADVCFL_TILE |
& *recip_hFacC(i,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_stats_rl.F |
100 |
MON_CALC_STATS_RL |
tileDel2(bi,bj) = tileDel2(bi,bj) + ddx*ddx + ddy*ddy |
|
./pkg/monitor/mon_calc_stats_rl.F |
102 |
MON_CALC_STATS_RL |
tileNbPt(bi,bj) = tileNbPt(bi,bj) + oneRL |
|
./pkg/monitor/mon_calc_stats_rl.F |
103 |
MON_CALC_STATS_RL |
tmpVol = arrArea(i,j,bi,bj)*arrDr(k)*tmpMask |
|
./pkg/monitor/mon_calc_stats_rl.F |
104 |
MON_CALC_STATS_RL |
tileVol (bi,bj) = tileVol (bi,bj) + tmpVol |
|
./pkg/monitor/mon_calc_stats_rl.F |
105 |
MON_CALC_STATS_RL |
tileMean(bi,bj) = tileMean(bi,bj) + tmpVol*tmpVal |
|
./pkg/monitor/mon_calc_stats_rl.F |
106 |
MON_CALC_STATS_RL |
tileVar (bi,bj) = tileVar (bi,bj) + tmpVol*tmpVal*tmpVal |
|
./pkg/monitor/mon_calc_stats_rl.F |
135 |
MON_CALC_STATS_RL |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/monitor/mon_calc_stats_rl.F |
137 |
MON_CALC_STATS_RL |
tileSD(bi,bj)=0. |
|
./pkg/monitor/mon_calc_stats_rl.F |
141 |
MON_CALC_STATS_RL |
tmpVal=arr(i,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_stats_rl.F |
142 |
MON_CALC_STATS_RL |
tmpMask = arrMask(i,j,bi,bj)*arrhFac(i,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_stats_rl.F |
144 |
MON_CALC_STATS_RL |
tmpVol = arrArea(i,j,bi,bj)*arrDr(k)*tmpMask |
|
./pkg/monitor/mon_calc_stats_rl.F |
145 |
MON_CALC_STATS_RL |
tileSD(bi,bj) = tileSD(bi,bj) |
|
./pkg/monitor/mon_calc_stats_rl.F |
36 |
MON_CALC_STATS_RL |
INTEGER bi,bj,i,j,k |
|
./pkg/monitor/mon_calc_stats_rl.F |
61 |
MON_CALC_STATS_RL |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/monitor/mon_calc_stats_rl.F |
63 |
MON_CALC_STATS_RL |
tileNbPt(bi,bj) = 0. |
|
./pkg/monitor/mon_calc_stats_rl.F |
64 |
MON_CALC_STATS_RL |
tileDel2(bi,bj) = 0. |
|
./pkg/monitor/mon_calc_stats_rl.F |
65 |
MON_CALC_STATS_RL |
tileVol (bi,bj) = 0. |
|
./pkg/monitor/mon_calc_stats_rl.F |
66 |
MON_CALC_STATS_RL |
tileMean(bi,bj) = 0. |
|
./pkg/monitor/mon_calc_stats_rl.F |
67 |
MON_CALC_STATS_RL |
tileVar (bi,bj) = 0. |
|
./pkg/monitor/mon_calc_stats_rl.F |
71 |
MON_CALC_STATS_RL |
tmpVal = arr(i,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_stats_rl.F |
72 |
MON_CALC_STATS_RL |
tmpMask = arrMask(i,j,bi,bj)*arrhFac(i,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_stats_rl.F |
90 |
MON_CALC_STATS_RL |
ddx = arrhFac(i+1,j,k,bi,bj)*arrhFac(i-1,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_stats_rl.F |
92 |
MON_CALC_STATS_RL |
ddx = (arr(i+1,j,k,bi,bj)-tmpVal) |
|
./pkg/monitor/mon_calc_stats_rl.F |
93 |
MON_CALC_STATS_RL |
& + (arr(i-1,j,k,bi,bj)-tmpVal) |
|
./pkg/monitor/mon_calc_stats_rl.F |
95 |
MON_CALC_STATS_RL |
ddy = arrhFac(i,j+1,k,bi,bj)*arrhFac(i,j-1,k,bi,bj) |
|
./pkg/monitor/mon_calc_stats_rl.F |
97 |
MON_CALC_STATS_RL |
ddy = (arr(i,j+1,k,bi,bj)-tmpVal) |
|
./pkg/monitor/mon_calc_stats_rl.F |
98 |
MON_CALC_STATS_RL |
& + (arr(i,j-1,k,bi,bj)-tmpVal) |
|
./pkg/monitor/mon_calc_stats_rs.F |
100 |
MON_CALC_STATS_RS |
tileDel2(bi,bj) = tileDel2(bi,bj) + ddx*ddx + ddy*ddy |
|
./pkg/monitor/mon_calc_stats_rs.F |
102 |
MON_CALC_STATS_RS |
tileNbPt(bi,bj) = tileNbPt(bi,bj) + oneRL |
|
./pkg/monitor/mon_calc_stats_rs.F |
103 |
MON_CALC_STATS_RS |
tmpVol = arrArea(i,j,bi,bj)*arrDr(k)*tmpMask |
|
./pkg/monitor/mon_calc_stats_rs.F |
104 |
MON_CALC_STATS_RS |
tileVol (bi,bj) = tileVol (bi,bj) + tmpVol |
|
./pkg/monitor/mon_calc_stats_rs.F |
105 |
MON_CALC_STATS_RS |
tileMean(bi,bj) = tileMean(bi,bj) + tmpVol*tmpVal |
|
./pkg/monitor/mon_calc_stats_rs.F |
106 |
MON_CALC_STATS_RS |
tileVar (bi,bj) = tileVar (bi,bj) + tmpVol*tmpVal*tmpVal |
|
./pkg/monitor/mon_calc_stats_rs.F |
135 |
MON_CALC_STATS_RS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/monitor/mon_calc_stats_rs.F |
137 |
MON_CALC_STATS_RS |
tileSD(bi,bj)=0. |
|
./pkg/monitor/mon_calc_stats_rs.F |
141 |
MON_CALC_STATS_RS |
tmpVal=arr(i,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_stats_rs.F |
142 |
MON_CALC_STATS_RS |
tmpMask = arrMask(i,j,bi,bj)*arrhFac(i,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_stats_rs.F |
144 |
MON_CALC_STATS_RS |
tmpVol = arrArea(i,j,bi,bj)*arrDr(k)*tmpMask |
|
./pkg/monitor/mon_calc_stats_rs.F |
145 |
MON_CALC_STATS_RS |
tileSD(bi,bj) = tileSD(bi,bj) |
|
./pkg/monitor/mon_calc_stats_rs.F |
36 |
MON_CALC_STATS_RS |
INTEGER bi,bj,i,j,k |
|
./pkg/monitor/mon_calc_stats_rs.F |
61 |
MON_CALC_STATS_RS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/monitor/mon_calc_stats_rs.F |
63 |
MON_CALC_STATS_RS |
tileNbPt(bi,bj) = 0. |
|
./pkg/monitor/mon_calc_stats_rs.F |
64 |
MON_CALC_STATS_RS |
tileDel2(bi,bj) = 0. |
|
./pkg/monitor/mon_calc_stats_rs.F |
65 |
MON_CALC_STATS_RS |
tileVol (bi,bj) = 0. |
|
./pkg/monitor/mon_calc_stats_rs.F |
66 |
MON_CALC_STATS_RS |
tileMean(bi,bj) = 0. |
|
./pkg/monitor/mon_calc_stats_rs.F |
67 |
MON_CALC_STATS_RS |
tileVar (bi,bj) = 0. |
|
./pkg/monitor/mon_calc_stats_rs.F |
71 |
MON_CALC_STATS_RS |
tmpVal = arr(i,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_stats_rs.F |
72 |
MON_CALC_STATS_RS |
tmpMask = arrMask(i,j,bi,bj)*arrhFac(i,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_stats_rs.F |
90 |
MON_CALC_STATS_RS |
ddx = arrhFac(i+1,j,k,bi,bj)*arrhFac(i-1,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_stats_rs.F |
92 |
MON_CALC_STATS_RS |
ddx = (arr(i+1,j,k,bi,bj)-tmpVal) |
|
./pkg/monitor/mon_calc_stats_rs.F |
93 |
MON_CALC_STATS_RS |
& + (arr(i-1,j,k,bi,bj)-tmpVal) |
|
./pkg/monitor/mon_calc_stats_rs.F |
95 |
MON_CALC_STATS_RS |
ddy = arrhFac(i,j+1,k,bi,bj)*arrhFac(i,j-1,k,bi,bj) |
|
./pkg/monitor/mon_calc_stats_rs.F |
97 |
MON_CALC_STATS_RS |
ddy = (arr(i,j+1,k,bi,bj)-tmpVal) |
|
./pkg/monitor/mon_calc_stats_rs.F |
98 |
MON_CALC_STATS_RS |
& + (arr(i,j-1,k,bi,bj)-tmpVal) |
|
./pkg/monitor/mon_ke.F |
100 |
MON_KE |
& *dyG(i+1,j,bi,bj)*dxC(i+1,j,bi,bj)*_hFacW(i+1,j,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
101 |
MON_KE |
& +vVel(i, j ,k,bi,bj)*vVel(i, j ,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
102 |
MON_KE |
& *dxG(i, j ,bi,bj)*dyC(i, j ,bi,bj)*_hFacS(i, j ,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
103 |
MON_KE |
& +vVel(i,j+1,k,bi,bj)*vVel(i,j+1,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
104 |
MON_KE |
& *dxG(i,j+1,bi,bj)*dyC(i,j+1,bi,bj)*_hFacS(i,j+1,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
105 |
MON_KE |
& )*maskInC(i,j,bi,bj) |
|
./pkg/monitor/mon_ke.F |
106 |
MON_KE |
tileVlAv(bi,bj) = tileVlAv(bi,bj) |
|
./pkg/monitor/mon_ke.F |
108 |
MON_KE |
tmpVal= tmpVal*_recip_hFacC(i,j,k,bi,bj)*recip_rA(i,j,bi,bj) |
|
./pkg/monitor/mon_ke.F |
113 |
MON_KE |
& ( wVel(i,j, k, bi,bj)*wVel(i,j, k, bi,bj)*msk_1 |
|
./pkg/monitor/mon_ke.F |
115 |
MON_KE |
& +wVel(i,j,kp1,bi,bj)*wVel(i,j,kp1,bi,bj)*mskp1 |
|
./pkg/monitor/mon_ke.F |
117 |
MON_KE |
& )*maskC(i,j,k,bi,bj)*maskInC(i,j,bi,bj) |
|
./pkg/monitor/mon_ke.F |
118 |
MON_KE |
tileVlAv(bi,bj) = tileVlAv(bi,bj) |
|
./pkg/monitor/mon_ke.F |
119 |
MON_KE |
& + tmpWke*rA(i,j,bi,bj)*drF(k)*_hFacC(i,j,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
127 |
MON_KE |
tileMean(bi,bj)=tileMean(bi,bj)+tmpVal |
|
./pkg/monitor/mon_ke.F |
137 |
MON_KE |
tmpVal = 0.5 _d 0*Bo_surf(i,j,bi,bj) |
|
./pkg/monitor/mon_ke.F |
138 |
MON_KE |
& *etaN(i,j,bi,bj)*etaN(i,j,bi,bj) |
|
./pkg/monitor/mon_ke.F |
142 |
MON_KE |
& + phi0surf(i,j,bi,bj)*etaN(i,j,bi,bj) |
|
./pkg/monitor/mon_ke.F |
143 |
MON_KE |
tilePEav(bi,bj) = tilePEav(bi,bj) |
|
./pkg/monitor/mon_ke.F |
144 |
MON_KE |
& + tmpVal*rA(i,j,bi,bj)*deepFac2F(1) |
|
./pkg/monitor/mon_ke.F |
145 |
MON_KE |
& *maskInC(i,j,bi,bj) |
|
./pkg/monitor/mon_ke.F |
170 |
MON_KE |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/monitor/mon_ke.F |
195 |
MON_KE |
tmpVal = abFac1*guNm(i,j,k,bi,bj,m1) |
|
./pkg/monitor/mon_ke.F |
196 |
MON_KE |
& + abFac2*guNm(i,j,k,bi,bj,m2) |
|
./pkg/monitor/mon_ke.F |
198 |
MON_KE |
tmpVal = abFac1*guNm1(i,j,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
200 |
MON_KE |
tmpVal = tmpVal*deltaTMom + uVel(i,j,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
202 |
MON_KE |
& + R_drK*tmpVal*_hFacW(i,j,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
210 |
MON_KE |
& ( yG(i,j,bi,bj) + yG(i,j+1,bi,bj) )*halfRL ) |
|
./pkg/monitor/mon_ke.F |
211 |
MON_KE |
tmpFld(i,j) = tmpFld(i,j)*u2zonDir(i,j,bi,bj) |
|
./pkg/monitor/mon_ke.F |
212 |
MON_KE |
& *cosLat*rAw(i,j,bi,bj) |
|
./pkg/monitor/mon_ke.F |
213 |
MON_KE |
& *maskInW(i,j,bi,bj) |
|
./pkg/monitor/mon_ke.F |
216 |
MON_KE |
tileAMu(bi,bj) = 0. _d 0 |
|
./pkg/monitor/mon_ke.F |
219 |
MON_KE |
tileAMu(bi,bj) = tileAMu(bi,bj) + tmpFld(i,j) |
|
./pkg/monitor/mon_ke.F |
234 |
MON_KE |
tmpVal = abFac1*gvNm(i,j,k,bi,bj,m1) |
|
./pkg/monitor/mon_ke.F |
235 |
MON_KE |
& + abFac2*gvNm(i,j,k,bi,bj,m2) |
|
./pkg/monitor/mon_ke.F |
237 |
MON_KE |
tmpVal = abFac1*gvNm1(i,j,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
239 |
MON_KE |
tmpVal = tmpVal*deltaTMom + vVel(i,j,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
241 |
MON_KE |
& + R_drK*tmpVal*_hFacS(i,j,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
249 |
MON_KE |
& ( yG(i,j,bi,bj) + yG(i+1,j,bi,bj) )*halfRL ) |
|
./pkg/monitor/mon_ke.F |
250 |
MON_KE |
tmpFld(i,j) = tmpFld(i,j)*v2zonDir(i,j,bi,bj) |
|
./pkg/monitor/mon_ke.F |
251 |
MON_KE |
& *cosLat*rAs(i,j,bi,bj) |
|
./pkg/monitor/mon_ke.F |
252 |
MON_KE |
& *maskInS(i,j,bi,bj) |
|
./pkg/monitor/mon_ke.F |
257 |
MON_KE |
tileAMu(bi,bj) = tileAMu(bi,bj) + tmpFld(i,j) |
|
./pkg/monitor/mon_ke.F |
265 |
MON_KE |
tmpFld(i,j) = etaHnm1(i,j,bi,bj) |
|
./pkg/monitor/mon_ke.F |
274 |
MON_KE |
tmpFld(i,j) = etaN(i,j,bi,bj) |
|
./pkg/monitor/mon_ke.F |
282 |
MON_KE |
cosLat = COS( deg2rad*yG(i,j,bi,bj) ) |
|
./pkg/monitor/mon_ke.F |
297 |
MON_KE |
ks = kSurfC(i,j,bi,bj) |
|
./pkg/monitor/mon_ke.F |
299 |
MON_KE |
& *maskInC(i,j,bi,bj)*deepFac2F(ks) |
|
./pkg/monitor/mon_ke.F |
300 |
MON_KE |
& *rA(i,j,bi,bj)*deepFac2F(ks)*rhoFacF(ks) |
|
./pkg/monitor/mon_ke.F |
303 |
MON_KE |
tileAMs(bi,bj) = 0. _d 0 |
|
./pkg/monitor/mon_ke.F |
306 |
MON_KE |
tileAMs(bi,bj) = tileAMs(bi,bj) + tmpFld(i,j) |
|
./pkg/monitor/mon_ke.F |
33 |
MON_KE |
INTEGER bi, bj |
|
./pkg/monitor/mon_ke.F |
64 |
MON_KE |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/monitor/mon_ke.F |
66 |
MON_KE |
tileVol(bi,bj) = 0. _d 0 |
|
./pkg/monitor/mon_ke.F |
67 |
MON_KE |
tileMean(bi,bj) = 0. _d 0 |
|
./pkg/monitor/mon_ke.F |
68 |
MON_KE |
tileVlAv(bi,bj) = 0. _d 0 |
|
./pkg/monitor/mon_ke.F |
69 |
MON_KE |
tilePEav(bi,bj) = 0. _d 0 |
|
./pkg/monitor/mon_ke.F |
80 |
MON_KE |
tileVol(bi,bj) = tileVol(bi,bj) |
|
./pkg/monitor/mon_ke.F |
81 |
MON_KE |
& + rA(i,j,bi,bj)*deepFac2C(k) |
|
./pkg/monitor/mon_ke.F |
82 |
MON_KE |
& *rhoFacC(k)*drF(k)*_hFacC(i,j,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
83 |
MON_KE |
& *maskInC(i,j,bi,bj) |
|
./pkg/monitor/mon_ke.F |
97 |
MON_KE |
& uVel( i ,j,k,bi,bj)*uVel( i ,j,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
98 |
MON_KE |
& *dyG( i ,j,bi,bj)*dxC( i , |