| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/ecco_cost_init_varia.F |
246 |
ECCO_COST_INIT_VARIA |
do j = jmin,jmax |
|
./pkg/ecco/ecco_cost_init_varia.F |
248 |
ECCO_COST_INIT_VARIA |
frame(i,j) = 1. _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 |
261 |
ECCO_COST_INIT_VARIA |
do j = jmin,jmax |
|
./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 |
333 |
ECCO_COST_INIT_VARIA |
do j = jmin,jmax |
|
./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 |
58 |
ECCO_COST_INIT_VARIA |
integer i,j,k |
|
./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 |
1008 |
ECCO_COST_WEIGHTS |
& *frame(i,j) |
|
./pkg/ecco/ecco_cost_weights.F |
1030 |
ECCO_COST_WEIGHTS |
do j = jmin,jmax |
|
./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 |
1039 |
ECCO_COST_WEIGHTS |
& *frame(i,j) |
|
./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 |
1045 |
ECCO_COST_WEIGHTS |
& *frame(i,j) |
|
./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 |
1068 |
ECCO_COST_WEIGHTS |
do j = jmin,jmax |
|
./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 |
1077 |
ECCO_COST_WEIGHTS |
& *frame(i,j) |
|
./pkg/ecco/ecco_cost_weights.F |
1100 |
ECCO_COST_WEIGHTS |
do j = jmin,jmax |
|
./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 |
1109 |
ECCO_COST_WEIGHTS |
& *frame(i,j) |
|
./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 |
1111 |
ECCO_COST_WEIGHTS |
& *frame(i,j) |
|
./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 |
1135 |
ECCO_COST_WEIGHTS |
do j = jmin,jmax |
|
./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 |
1144 |
ECCO_COST_WEIGHTS |
& *frame(i,j) |
|
./pkg/ecco/ecco_cost_weights.F |
1168 |
ECCO_COST_WEIGHTS |
do j = jmin,jmax |
|
./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 |
1177 |
ECCO_COST_WEIGHTS |
& *frame(i,j) |
|
./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 |
1179 |
ECCO_COST_WEIGHTS |
& *frame(i,j) |
|
./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 |
1203 |
ECCO_COST_WEIGHTS |
do j = jmin,jmax |
|
./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 |
1212 |
ECCO_COST_WEIGHTS |
& *frame(i,j) |
|
./pkg/ecco/ecco_cost_weights.F |
1235 |
ECCO_COST_WEIGHTS |
do j = jmin,jmax |
|
./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 |
1244 |
ECCO_COST_WEIGHTS |
& *frame(i,j) |
|
./pkg/ecco/ecco_cost_weights.F |
1267 |
ECCO_COST_WEIGHTS |
do j = jmin,jmax |
|
./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 |
1276 |
ECCO_COST_WEIGHTS |
& *frame(i,j) |
|
./pkg/ecco/ecco_cost_weights.F |
127 |
ECCO_COST_WEIGHTS |
do j = jmin,jmax |
|
./pkg/ecco/ecco_cost_weights.F |
1299 |
ECCO_COST_WEIGHTS |
do j = jmin,jmax |
|
./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 |
1308 |
ECCO_COST_WEIGHTS |
& *frame(i,j) |
|
./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 |
132 |
ECCO_COST_WEIGHTS |
wsfluxm (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1331 |
ECCO_COST_WEIGHTS |
do j = jmin,jmax |
|
./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 |
1340 |
ECCO_COST_WEIGHTS |
& *frame(i,j) |
|
./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 |
1363 |
ECCO_COST_WEIGHTS |
do j = jmin,jmax |
|
./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 |
1372 |
ECCO_COST_WEIGHTS |
& *frame(i,j) |
|
./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 |
1395 |
ECCO_COST_WEIGHTS |
do j = jmin,jmax |
|
./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 |
1405 |
ECCO_COST_WEIGHTS |
& *frame(i,j) |
|
./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 |
1428 |
ECCO_COST_WEIGHTS |
do j = jmin,jmax |
|
./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 |
1437 |
ECCO_COST_WEIGHTS |
& *frame(i,j) |
|
./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 |
145 |
ECCO_COST_WEIGHTS |
wevap (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1460 |
ECCO_COST_WEIGHTS |
do j = jmin,jmax |
|
./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 |
1470 |
ECCO_COST_WEIGHTS |
& *frame(i,j) |
|
./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 |
1493 |
ECCO_COST_WEIGHTS |
do j = jmin,jmax |
|
./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 |
1502 |
ECCO_COST_WEIGHTS |
& *frame(i,j) |
|
./pkg/ecco/ecco_cost_weights.F |
150 |
ECCO_COST_WEIGHTS |
wsst (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1517 |
ECCO_COST_WEIGHTS |
do j = jmin,jmax |
|
./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 |
153 |
ECCO_COST_WEIGHTS |
wers (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1540 |
ECCO_COST_WEIGHTS |
do j = jmin,jmax |
|
./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 |
1564 |
ECCO_COST_WEIGHTS |
do j = jmin,jmax |
|
./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 |
1588 |
ECCO_COST_WEIGHTS |
do j = jmin,jmax |
|
./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 |
160 |
ECCO_COST_WEIGHTS |
wudrift (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1612 |
ECCO_COST_WEIGHTS |
do j = jmin,jmax |
|
./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 |
1634 |
ECCO_COST_WEIGHTS |
do j = jmin,jmax |
|
./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 |
1675 |
ECCO_COST_WEIGHTS |
do j = jmin,jmax |
|
./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 |
1708 |
ECCO_COST_WEIGHTS |
do j = jmin,jmax |
|
./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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
187 |
ECCO_COST_WEIGHTS |
do j = jmin,jmax |
|
./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 |
194 |
ECCO_COST_WEIGHTS |
wedtaux2(i,j,k,bi,bj) = wedtau0 |
|
./pkg/ecco/ecco_cost_weights.F |
195 |
ECCO_COST_WEIGHTS |
wedtauy2(i,j,k,bi,bj) = wedtau0 |
|
./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 |
1972 |
ECCO_COST_WEIGHTS |
do j = jmin,jmax |
|
./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 |
247 |
ECCO_COST_WEIGHTS |
do j = jmin,jmax |
|
./pkg/ecco/ecco_cost_weights.F |
254 |
ECCO_COST_WEIGHTS |
frame(i,j) = 1. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
268 |
ECCO_COST_WEIGHTS |
do j = jmin,jmax |
|
./pkg/ecco/ecco_cost_weights.F |
272 |
ECCO_COST_WEIGHTS |
cosphi(i,j,bi,bj) = frame(i,j) |
|
./pkg/ecco/ecco_cost_weights.F |
386 |
ECCO_COST_WEIGHTS |
do j = jmin,jmax |
|
./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 |
404 |
ECCO_COST_WEIGHTS |
do j = jmin,jmax |
|
./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 |
429 |
ECCO_COST_WEIGHTS |
do j = jmin,jmax |
|
./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 |
447 |
ECCO_COST_WEIGHTS |
do j = jmin,jmax |
|
./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 |
475 |
ECCO_COST_WEIGHTS |
do j = jmin,jmax |
|
./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 |
494 |
ECCO_COST_WEIGHTS |
do j = jmin,jmax |
|
./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 |
522 |
ECCO_COST_WEIGHTS |
do j = jmin,jmax |
|
./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 |
541 |
ECCO_COST_WEIGHTS |
do j = jmin,jmax |
|
./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 |
572 |
ECCO_COST_WEIGHTS |
do j = jmin,jmax |
|
./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 |
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 |
59 |
ECCO_COST_WEIGHTS |
integer i,j,k |
|
./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 |
644 |
ECCO_COST_WEIGHTS |
do j = jmin,jmax |
|
./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 |
663 |
ECCO_COST_WEIGHTS |
do j = jmin,jmax |
|
./pkg/ecco/ecco_cost_weights.F |
665 |
ECCO_COST_WEIGHTS |
wp(i,j,bi,bj) = frame(i,j) |
|
./pkg/ecco/ecco_cost_weights.F |
684 |
ECCO_COST_WEIGHTS |
do j = jmin,jmax |
|
./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 |
694 |
ECCO_COST_WEIGHTS |
& *frame(i,j) |
|
./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 |
696 |
ECCO_COST_WEIGHTS |
& *frame(i,j) |
|
./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 |
723 |
ECCO_COST_WEIGHTS |
do j = jmin,jmax |
|
./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 |
760 |
ECCO_COST_WEIGHTS |
do j = jmin,jmax |
|
./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 |
789 |
ECCO_COST_WEIGHTS |
do j = jmin,jmax |
|
./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 |
800 |
ECCO_COST_WEIGHTS |
do j = jmin,jmax |
|
./pkg/ecco/ecco_cost_weights.F |
802 |
ECCO_COST_WEIGHTS |
wsshv4tmp(i,j,bi,bj)=0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
811 |
ECCO_COST_WEIGHTS |
do j = jmin,jmax |
|
./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 |
839 |
ECCO_COST_WEIGHTS |
do j = jmin,jmax |
|
./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 |
860 |
ECCO_COST_WEIGHTS |
do j = jmin,jmax |
|
./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 |
890 |
ECCO_COST_WEIGHTS |
do j = jmin,jmax |
|
./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 |
899 |
ECCO_COST_WEIGHTS |
& *frame(i,j) |
|
./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 |
906 |
ECCO_COST_WEIGHTS |
& *frame(i,j) |
|
./pkg/ecco/ecco_cost_weights.F |
927 |
ECCO_COST_WEIGHTS |
do j = jmin,jmax |
|
./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 |
934 |
ECCO_COST_WEIGHTS |
& *frame(i,j) |
|
./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 |
940 |
ECCO_COST_WEIGHTS |
& *frame(i,j) |
|
./pkg/ecco/ecco_cost_weights.F |
961 |
ECCO_COST_WEIGHTS |
do j = jmin,jmax |
|
./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 |
970 |
ECCO_COST_WEIGHTS |
& *frame(i,j) |
|
./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 |
976 |
ECCO_COST_WEIGHTS |
& *frame(i,j) |
|
./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 |
999 |
ECCO_COST_WEIGHTS |
do j = jmin,jmax |
|
./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 |
130 |
ECCO_PHYS |
do j = jmin,jmax |
|
./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 |
148 |
ECCO_PHYS |
do j = 1,sNy |
|
./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 |
179 |
ECCO_PHYS |
do j = 1-OLy,sNy+Oly |
|
./pkg/ecco/ecco_phys.F |
181 |
ECCO_PHYS |
trVolW(i,j,k)=0. _d 0 |
|
./pkg/ecco/ecco_phys.F |
182 |
ECCO_PHYS |
trVolS(i,j,k)=0. _d 0 |
|
./pkg/ecco/ecco_phys.F |
183 |
ECCO_PHYS |
trHeatW(i,j,k)=0. _d 0 |
|
./pkg/ecco/ecco_phys.F |
184 |
ECCO_PHYS |
trHeatS(i,j,k)=0. _d 0 |
|
./pkg/ecco/ecco_phys.F |
185 |
ECCO_PHYS |
trSaltW(i,j,k)=0. _d 0 |
|
./pkg/ecco/ecco_phys.F |
186 |
ECCO_PHYS |
trSaltS(i,j,k)=0. _d 0 |
|
./pkg/ecco/ecco_phys.F |
191 |
ECCO_PHYS |
do j = 1,sNy |
|
./pkg/ecco/ecco_phys.F |
193 |
ECCO_PHYS |
trVolW(i,j,k) = |
|
./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 |
197 |
ECCO_PHYS |
trVolS(i,j,k) = |
|
./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 |
202 |
ECCO_PHYS |
trHeatW(i,j,k) = trVolW(i,j,k) |
|
./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 |
205 |
ECCO_PHYS |
trHeatS(i,j,k) = trVolS(i,j,k) |
|
./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 |
209 |
ECCO_PHYS |
trSaltW(i,j,k) = trVolW(i,j,k) |
|
./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 |
212 |
ECCO_PHYS |
trSaltS(i,j,k) = trVolS(i,j,k) |
|
./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 |
244 |
ECCO_PHYS |
do j = 1,sNy |
|
./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 |
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 |
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 |
41 |
ECCO_PHYS |
integer i,j,k |
|
./pkg/ecco/ecco_phys.F |
94 |
ECCO_PHYS |
do j = 1,sNy |
|
./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_toolbox.F |
1017 |
ECCO_MULT |
do j = jmin,jmax |
|
./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 |
1059 |
ECCO_MULTFIELD |
integer i,j,k |
|
./pkg/ecco/ecco_toolbox.F |
1079 |
ECCO_MULTFIELD |
do j = jmin,jmax |
|
./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 |
1213 |
ECCO_READWEI |
integer i,j,k |
|
./pkg/ecco/ecco_toolbox.F |
1235 |
ECCO_READWEI |
DO j = jmin,jmax |
|
./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 |
134 |
ECCO_DIFFMSK |
integer i,j,k |
|
./pkg/ecco/ecco_toolbox.F |
156 |
ECCO_DIFFMSK |
do j = jmin,jmax |
|
./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 |
230 |
ECCO_DIFFANOMMSK |
integer i,j,k |
|
./pkg/ecco/ecco_toolbox.F |
252 |
ECCO_DIFFANOMMSK |
do j = jmin,jmax |
|
./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 |
323 |
ECCO_OBSMSK |
integer i,j,k |
|
./pkg/ecco/ecco_toolbox.F |
345 |
ECCO_OBSMSK |
do j = jmin,jmax |
|
./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 |
408 |
ECCO_CP |
integer i,j,k |
|
./pkg/ecco/ecco_toolbox.F |
430 |
ECCO_CP |
do j = jmin,jmax |
|
./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 |
481 |
ECCO_CPRSRL |
integer i,j,k |
|
./pkg/ecco/ecco_toolbox.F |
503 |
ECCO_CPRSRL |
do j = jmin,jmax |
|
./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 |
53 |
ECCO_ZERO |
integer i,j,k |
|
./pkg/ecco/ecco_toolbox.F |
561 |
ECCO_ADDCOST |
integer i,j,k |
|
./pkg/ecco/ecco_toolbox.F |
589 |
ECCO_ADDCOST |
do j = jmin,jmax |
|
./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 |
650 |
ECCO_ADD |
integer i,j,k |
|
./pkg/ecco/ecco_toolbox.F |
672 |
ECCO_ADD |
do j = jmin,jmax |
|
./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 |
724 |
ECCO_SUBTRACT |
integer i,j,k |
|
./pkg/ecco/ecco_toolbox.F |
744 |
ECCO_SUBTRACT |
do j = jmin,jmax |
|
./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 |
75 |
ECCO_ZERO |
do j = jmin,jmax |
|
./pkg/ecco/ecco_toolbox.F |
77 |
ECCO_ZERO |
fld(i,j,k,bi,bj) = zeroloc |
|
./pkg/ecco/ecco_toolbox.F |
799 |
ECCO_ADDMASK |
integer i,j,k |
|
./pkg/ecco/ecco_toolbox.F |
821 |
ECCO_ADDMASK |
do j = jmin,jmax |
|
./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 |
868 |
ECCO_DIV |
integer i,j,k |
|
./pkg/ecco/ecco_toolbox.F |
888 |
ECCO_DIV |
do j = jmin,jmax |
|
./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 |
930 |
ECCO_DIVFIELD |
integer i,j,k |
|
./pkg/ecco/ecco_toolbox.F |
950 |
ECCO_DIVFIELD |
do j = jmin,jmax |
|
./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 |
997 |
ECCO_MULT |
integer i,j,k |
|
./pkg/exch2/exch2_check_depths.F |
100 |
EXCH2_CHECK_DEPTHS |
IF ( tmpFld(i,j).GT.0. ) errE = errE + 1 |
|
./pkg/exch2/exch2_check_depths.F |
105 |
EXCH2_CHECK_DEPTHS |
DO j=1,sNy |
|
./pkg/exch2/exch2_check_depths.F |
106 |
EXCH2_CHECK_DEPTHS |
IF ( tmpFld(i,j).GT.0. ) errW = errW + 1 |
|
./pkg/exch2/exch2_check_depths.F |
49 |
EXCH2_CHECK_DEPTHS |
INTEGER i, j, n |
|
./pkg/exch2/exch2_check_depths.F |
64 |
EXCH2_CHECK_DEPTHS |
DO j=1,sNy |
|
./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 |
68 |
EXCH2_CHECK_DEPTHS |
j = sNy+1 |
|
./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 |
77 |
EXCH2_CHECK_DEPTHS |
DO j=exch2_jLo(n,tId),exch2_jHi(n,tId) |
|
./pkg/exch2/exch2_check_depths.F |
79 |
EXCH2_CHECK_DEPTHS |
tmpFld(i,j) = 0. |
|
./pkg/exch2/exch2_check_depths.F |
86 |
EXCH2_CHECK_DEPTHS |
j = sNy+1 |
|
./pkg/exch2/exch2_check_depths.F |
88 |
EXCH2_CHECK_DEPTHS |
IF ( tmpFld(i,j).GT.0. ) errN = errN + 1 |
|
./pkg/exch2/exch2_check_depths.F |
92 |
EXCH2_CHECK_DEPTHS |
j = 0 |
|
./pkg/exch2/exch2_check_depths.F |
94 |
EXCH2_CHECK_DEPTHS |
IF ( tmpFld(i,j).GT.0. ) errS = errS + 1 |
|
./pkg/exch2/exch2_check_depths.F |
99 |
EXCH2_CHECK_DEPTHS |
DO j=1,sNy |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
178 |
W2_CUMULSUM_Z_TILE_RL |
DO j=1,W2_maxNbFacets |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
179 |
W2_CUMULSUM_Z_TILE_RL |
facetXYSum(1,j) = 0 |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
180 |
W2_CUMULSUM_Z_TILE_RL |
facetXYSum(2,j) = 0 |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
181 |
W2_CUMULSUM_Z_TILE_RL |
facet_CSum(j) = 0 |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
185 |
W2_CUMULSUM_Z_TILE_RL |
DO j=1,nFacets |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
186 |
W2_CUMULSUM_Z_TILE_RL |
fNx = facet_dims(2*j-1) |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
187 |
W2_CUMULSUM_Z_TILE_RL |
fNy = facet_dims( 2*j ) |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
193 |
W2_CUMULSUM_Z_TILE_RL |
tN = facet_owns(1,j) + bi-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 |
206 |
W2_CUMULSUM_Z_TILE_RL |
tN = facet_owns(1,j) + bi-1 |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
207 |
W2_CUMULSUM_Z_TILE_RL |
facetXYSum(1,j) = facetXYSum(1,j) + globalBuf(1,tN) |
|
./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 |
211 |
W2_CUMULSUM_Z_TILE_RL |
facetXYSum(2,j) = facetXYSum(2,j) + globalBuf(2,tN) |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
218 |
W2_CUMULSUM_Z_TILE_RL |
DO j=1,nFacets |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
220 |
W2_CUMULSUM_Z_TILE_RL |
facet_CSum(j) = facet_CSum(j) |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
221 |
W2_CUMULSUM_Z_TILE_RL |
& + W2_cumSum_facet(1,i,j)*facetXYSum(1,i) |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
222 |
W2_CUMULSUM_Z_TILE_RL |
& + W2_cumSum_facet(2,i,j)*facetXYSum(2,i) |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
228 |
W2_CUMULSUM_Z_TILE_RL |
j = exch2_myFace(tN) |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
229 |
W2_CUMULSUM_Z_TILE_RL |
IF ( j.NE.0 ) THEN |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
230 |
W2_CUMULSUM_Z_TILE_RL |
globalBuf(3,tN) = globalBuf(3,tN) + facet_CSum(j) |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
69 |
W2_CUMULSUM_Z_TILE_RL |
INTEGER i, j |
|
./pkg/exch2/w2_e2setup.F |
43 |
W2_E2SETUP |
INTEGER i, j, k |
|
./pkg/exch2/w2_e2setup.F |
51 |
W2_E2SETUP |
DO j=1,W2_maxNbFacets |
|
./pkg/exch2/w2_e2setup.F |
52 |
W2_E2SETUP |
facet_owns(1,j) = 0 |
|
./pkg/exch2/w2_e2setup.F |
53 |
W2_E2SETUP |
facet_owns(2,j) = 0 |
|
./pkg/exch2/w2_e2setup.F |
56 |
W2_E2SETUP |
facet_pij(k,i,j) = 0 |
|
./pkg/exch2/w2_e2setup.F |
58 |
W2_E2SETUP |
facet_oi(i,j) = 0 |
|
./pkg/exch2/w2_e2setup.F |
59 |
W2_E2SETUP |
facet_oj(i,j) = 0 |
|
./pkg/exch2/w2_e2setup.F |
68 |
W2_E2SETUP |
DO j=1,nBlankTiles |
|
./pkg/exch2/w2_e2setup.F |
69 |
W2_E2SETUP |
IF ( blankList(i).EQ.blankList(j) ) THEN |
|
./pkg/exch2/w2_e2setup.F |
73 |
W2_E2SETUP |
& ' appears several times in blankList (',j,i,')' |
|
./pkg/exch2/w2_print_e2setup.F |
130 |
W2_PRINT_E2SETUP |
j = exch2_myFace(ip(i)) |
|
./pkg/exch2/w2_print_e2setup.F |
140 |
W2_PRINT_E2SETUP |
& ' ', edge(i), '.Edge Facet', j, ' <-- ', |
|
./pkg/exch2/w2_print_e2setup.F |
42 |
W2_PRINT_E2SETUP |
INTEGER i, j, js, jp, jt, ii, is, it, ns, nt, k, tx, ty |
|
./pkg/exch2/w2_print_e2setup.F |
73 |
W2_PRINT_E2SETUP |
j = exch2_myFace(ip(i)) |
|
./pkg/exch2/w2_print_e2setup.F |
83 |
W2_PRINT_E2SETUP |
& ' ', edge(i), '.Edge Facet', j, ' <-- ', |
|
./pkg/exch2/w2_readparms.F |
149 |
W2_READPARMS |
DO j=1,2*W2_maxNbFacets |
|
./pkg/exch2/w2_readparms.F |
151 |
W2_READPARMS |
facet_dims(j) = dimsFacets(j) |
|
./pkg/exch2/w2_readparms.F |
153 |
W2_READPARMS |
DO j=1,W2_maxNbFacets |
|
./pkg/exch2/w2_readparms.F |
155 |
W2_READPARMS |
facet_link(i,j) = facetEdgeLink(i,j) |
|
./pkg/exch2/w2_readparms.F |
161 |
W2_READPARMS |
DO j=W2_maxNbFacets+1,namList_NbFacets |
|
./pkg/exch2/w2_readparms.F |
164 |
W2_READPARMS |
IF ( facetEdgeLink(i,j).NE.0. ) errFlag = .TRUE. |
|
./pkg/exch2/w2_readparms.F |
181 |
W2_READPARMS |
DO j=2*W2_maxNbFacets+1,2*namList_NbFacets |
|
./pkg/exch2/w2_readparms.F |
182 |
W2_READPARMS |
IF ( dimsFacets(j).NE.0 ) errCnt = errCnt + 1 |
|
./pkg/exch2/w2_readparms.F |
37 |
W2_READPARMS |
INTEGER i, j, iUnit, stdUnit, errCnt |
|
./pkg/exch2/w2_readparms.F |
79 |
W2_READPARMS |
DO j=1,W2_maxNbFacets*2 |
|
./pkg/exch2/w2_readparms.F |
80 |
W2_READPARMS |
dimsFacets(2*j-1) = 0 |
|
./pkg/exch2/w2_readparms.F |
81 |
W2_READPARMS |
dimsFacets( 2*j ) = 0 |
|
./pkg/exch2/w2_readparms.F |
83 |
W2_READPARMS |
facetEdgeLink(i,j) = 0. |
|
./pkg/exch2/w2_readparms.F |
90 |
W2_READPARMS |
DO j=1,W2_maxNbFacets |
|
./pkg/exch2/w2_readparms.F |
91 |
W2_READPARMS |
facet_dims(2*j-1) = 0 |
|
./pkg/exch2/w2_readparms.F |
92 |
W2_READPARMS |
facet_dims( 2*j ) = 0 |
|
./pkg/exch2/w2_readparms.F |
94 |
W2_READPARMS |
facet_link(i,j) = 0. |
|
./pkg/exch2/w2_set_cs6_facets.F |
142 |
W2_SET_CS6_FACETS |
DO j=2,nFacets |
|
./pkg/exch2/w2_set_cs6_facets.F |
145 |
W2_SET_CS6_FACETS |
jj = INT(facet_link(i,j)) |
|
./pkg/exch2/w2_set_cs6_facets.F |
146 |
W2_SET_CS6_FACETS |
ii = MOD( NINT(facet_link(i,j)*10.), 10 ) |
|
./pkg/exch2/w2_set_cs6_facets.F |
150 |
W2_SET_CS6_FACETS |
lo = 2*(j-1) + (i+1)/2 |
|
./pkg/exch2/w2_set_cs6_facets.F |
158 |
W2_SET_CS6_FACETS |
& ' facet',j,'.',edge(i), ' set dim', lo, ' = dim', ll, |
|
./pkg/exch2/w2_set_cs6_facets.F |
174 |
W2_SET_CS6_FACETS |
DO j=1,nFacets |
|
./pkg/exch2/w2_set_cs6_facets.F |
175 |
W2_SET_CS6_FACETS |
IF ( facet_dims(2*j-1)*facet_dims(2*j).EQ.0 ) THEN |
|
./pkg/exch2/w2_set_cs6_facets.F |
177 |
W2_SET_CS6_FACETS |
& ' facets #', j, ' , x-size=', facet_dims(2*j-1), |
|
./pkg/exch2/w2_set_cs6_facets.F |
178 |
W2_SET_CS6_FACETS |
& ' , y-size=', facet_dims(2*j) |
|
./pkg/exch2/w2_set_cs6_facets.F |
40 |
W2_SET_CS6_FACETS |
INTEGER i, j, ii, jj, lo, ll |
|
./pkg/exch2/w2_set_cs6_facets.F |
62 |
W2_SET_CS6_FACETS |
DO j=1,nFacets |
|
./pkg/exch2/w2_set_cs6_facets.F |
63 |
W2_SET_CS6_FACETS |
IF ( MOD(j,2).EQ.1 ) THEN |
|
./pkg/exch2/w2_set_cs6_facets.F |
64 |
W2_SET_CS6_FACETS |
jj = j+2 |
|
./pkg/exch2/w2_set_cs6_facets.F |
65 |
W2_SET_CS6_FACETS |
facet_link(1,j) = 0.4 + FLOAT( 1+MOD(jj+5,6) ) |
|
./pkg/exch2/w2_set_cs6_facets.F |
66 |
W2_SET_CS6_FACETS |
jj = j-1 |
|
./pkg/exch2/w2_set_cs6_facets.F |
67 |
W2_SET_CS6_FACETS |
facet_link(2,j) = 0.1 + FLOAT( 1+MOD(jj+5,6) ) |
|
./pkg/exch2/w2_set_cs6_facets.F |
68 |
W2_SET_CS6_FACETS |
jj = j+1 |
|
./pkg/exch2/w2_set_cs6_facets.F |
69 |
W2_SET_CS6_FACETS |
facet_link(3,j) = 0.4 + FLOAT( 1+MOD(jj+5,6) ) |
|
./pkg/exch2/w2_set_cs6_facets.F |
70 |
W2_SET_CS6_FACETS |
jj = j-2 |
|
./pkg/exch2/w2_set_cs6_facets.F |
71 |
W2_SET_CS6_FACETS |
facet_link(4,j) = 0.1 + FLOAT( 1+MOD(jj+5,6) ) |
|
./pkg/exch2/w2_set_cs6_facets.F |
73 |
W2_SET_CS6_FACETS |
jj = j+1 |
|
./pkg/exch2/w2_set_cs6_facets.F |
74 |
W2_SET_CS6_FACETS |
facet_link(1,j) = 0.2 + FLOAT( 1+MOD(jj+5,6) ) |
|
./pkg/exch2/w2_set_cs6_facets.F |
75 |
W2_SET_CS6_FACETS |
jj = j-2 |
|
./pkg/exch2/w2_set_cs6_facets.F |
76 |
W2_SET_CS6_FACETS |
facet_link(2,j) = 0.3 + FLOAT( 1+MOD(jj+5,6) ) |
|
./pkg/exch2/w2_set_cs6_facets.F |
77 |
W2_SET_CS6_FACETS |
jj = j+2 |
|
./pkg/exch2/w2_set_cs6_facets.F |
78 |
W2_SET_CS6_FACETS |
facet_link(3,j) = 0.2 + FLOAT( 1+MOD(jj+5,6) ) |
|
./pkg/exch2/w2_set_cs6_facets.F |
79 |
W2_SET_CS6_FACETS |
jj = j-1 |
|
./pkg/exch2/w2_set_cs6_facets.F |
80 |
W2_SET_CS6_FACETS |
facet_link(4,j) = 0.3 + FLOAT( 1+MOD(jj+5,6) ) |
|
./pkg/exch2/w2_set_cs6_facets.F |
88 |
W2_SET_CS6_FACETS |
DO j=4,W2_maxNbFacets*2 |
|
./pkg/exch2/w2_set_cs6_facets.F |
89 |
W2_SET_CS6_FACETS |
IF ( facet_dims(j).NE.0 ) THEN |
|
./pkg/exch2/w2_set_f2f_index.F |
102 |
W2_SET_F2F_INDEX |
DO j=1,nFacets |
|
./pkg/exch2/w2_set_f2f_index.F |
105 |
W2_SET_F2F_INDEX |
lo = 2*(j-1) + (i+1)/2 |
|
./pkg/exch2/w2_set_f2f_index.F |
108 |
W2_SET_F2F_INDEX |
jj = INT(facet_link(i,j)) |
|
./pkg/exch2/w2_set_f2f_index.F |
109 |
W2_SET_F2F_INDEX |
ii = MOD( NINT(facet_link(i,j)*10.), 10 ) |
|
./pkg/exch2/w2_set_f2f_index.F |
115 |
W2_SET_F2F_INDEX |
& edge(i), '.Edge facet #', j, ' (=',lo,')' |
|
./pkg/exch2/w2_set_f2f_index.F |
130 |
W2_SET_F2F_INDEX |
facet_pij(1,i,j) = 1 |
|
./pkg/exch2/w2_set_f2f_index.F |
131 |
W2_SET_F2F_INDEX |
facet_pij(2,i,j) = 0 |
|
./pkg/exch2/w2_set_f2f_index.F |
132 |
W2_SET_F2F_INDEX |
facet_pij(3,i,j) = 0 |
|
./pkg/exch2/w2_set_f2f_index.F |
133 |
W2_SET_F2F_INDEX |
facet_pij(4,i,j) = 1 |
|
./pkg/exch2/w2_set_f2f_index.F |
137 |
W2_SET_F2F_INDEX |
facet_oi(i,j) = 0 |
|
./pkg/exch2/w2_set_f2f_index.F |
138 |
W2_SET_F2F_INDEX |
facet_oj(i,j) = +facet_dims(2*j) |
|
./pkg/exch2/w2_set_f2f_index.F |
141 |
W2_SET_F2F_INDEX |
facet_oi(i,j) = 0 |
|
./pkg/exch2/w2_set_f2f_index.F |
142 |
W2_SET_F2F_INDEX |
facet_oj(i,j) = -facet_dims(2*jj) |
|
./pkg/exch2/w2_set_f2f_index.F |
145 |
W2_SET_F2F_INDEX |
facet_oi(i,j) = +facet_dims(2*j-1) |
|
./pkg/exch2/w2_set_f2f_index.F |
146 |
W2_SET_F2F_INDEX |
facet_oj(i,j) = 0 |
|
./pkg/exch2/w2_set_f2f_index.F |
149 |
W2_SET_F2F_INDEX |
facet_oi(i,j) = -facet_dims(2*jj-1) |
|
./pkg/exch2/w2_set_f2f_index.F |
150 |
W2_SET_F2F_INDEX |
facet_oj(i,j) = 0 |
|
./pkg/exch2/w2_set_f2f_index.F |
155 |
W2_SET_F2F_INDEX |
facet_pij(1,i,j) = 0 |
|
./pkg/exch2/w2_set_f2f_index.F |
156 |
W2_SET_F2F_INDEX |
facet_pij(2,i,j) =-1 |
|
./pkg/exch2/w2_set_f2f_index.F |
157 |
W2_SET_F2F_INDEX |
facet_pij(3,i,j) = 1 |
|
./pkg/exch2/w2_set_f2f_index.F |
158 |
W2_SET_F2F_INDEX |
facet_pij(4,i,j) = 0 |
|
./pkg/exch2/w2_set_f2f_index.F |
159 |
W2_SET_F2F_INDEX |
facet_oi(i,j) = lo+1 |
|
./pkg/exch2/w2_set_f2f_index.F |
160 |
W2_SET_F2F_INDEX |
facet_oj(i,j) = +facet_dims(2*j) |
|
./pkg/exch2/w2_set_f2f_index.F |
164 |
W2_SET_F2F_INDEX |
facet_pij(1,i,j) = 0 |
|
./pkg/exch2/w2_set_f2f_index.F |
165 |
W2_SET_F2F_INDEX |
facet_pij(2,i,j) =-1 |
|
./pkg/exch2/w2_set_f2f_index.F |
166 |
W2_SET_F2F_INDEX |
facet_pij(3,i,j) = 1 |
|
./pkg/exch2/w2_set_f2f_index.F |
167 |
W2_SET_F2F_INDEX |
facet_pij(4,i,j) = 0 |
|
./pkg/exch2/w2_set_f2f_index.F |
168 |
W2_SET_F2F_INDEX |
facet_oi(i,j) = lo+1 |
|
./pkg/exch2/w2_set_f2f_index.F |
169 |
W2_SET_F2F_INDEX |
facet_oj(i,j) = -facet_dims(2*jj-1) |
|
./pkg/exch2/w2_set_f2f_index.F |
173 |
W2_SET_F2F_INDEX |
facet_pij(1,i,j) = 0 |
|
./pkg/exch2/w2_set_f2f_index.F |
174 |
W2_SET_F2F_INDEX |
facet_pij(2,i,j) = 1 |
|
./pkg/exch2/w2_set_f2f_index.F |
175 |
W2_SET_F2F_INDEX |
facet_pij(3,i,j) =-1 |
|
./pkg/exch2/w2_set_f2f_index.F |
176 |
W2_SET_F2F_INDEX |
facet_pij(4,i,j) = 0 |
|
./pkg/exch2/w2_set_f2f_index.F |
177 |
W2_SET_F2F_INDEX |
facet_oi(i,j) = +facet_dims(2*j-1) |
|
./pkg/exch2/w2_set_f2f_index.F |
178 |
W2_SET_F2F_INDEX |
facet_oj(i,j) = lo+1 |
|
./pkg/exch2/w2_set_f2f_index.F |
182 |
W2_SET_F2F_INDEX |
facet_pij(1,i,j) = 0 |
|
./pkg/exch2/w2_set_f2f_index.F |
183 |
W2_SET_F2F_INDEX |
facet_pij(2,i,j) = 1 |
|
./pkg/exch2/w2_set_f2f_index.F |
184 |
W2_SET_F2F_INDEX |
facet_pij(3,i,j) =-1 |
|
./pkg/exch2/w2_set_f2f_index.F |
185 |
W2_SET_F2F_INDEX |
facet_pij(4,i,j) = 0 |
|
./pkg/exch2/w2_set_f2f_index.F |
186 |
W2_SET_F2F_INDEX |
facet_oi(i,j) = -facet_dims(2*jj) |
|
./pkg/exch2/w2_set_f2f_index.F |
187 |
W2_SET_F2F_INDEX |
facet_oj(i,j) = lo+1 |
|
./pkg/exch2/w2_set_f2f_index.F |
190 |
W2_SET_F2F_INDEX |
& edge(i), '.Edge (facet#', j, ' ) to: ', |
|
./pkg/exch2/w2_set_f2f_index.F |
200 |
W2_SET_F2F_INDEX |
& ' ', edge(i), '.Edge Facet', j, ' <-- ', |
|
./pkg/exch2/w2_set_f2f_index.F |
202 |
W2_SET_F2F_INDEX |
& ' : pij=', (facet_pij(k,i,j),k=1,4), |
|
./pkg/exch2/w2_set_f2f_index.F |
203 |
W2_SET_F2F_INDEX |
& ' ; oi,oj=', facet_oi(i,j), facet_oj(i,j) |
|
./pkg/exch2/w2_set_f2f_index.F |
219 |
W2_SET_F2F_INDEX |
DO j=1,nFacets |
|
./pkg/exch2/w2_set_f2f_index.F |
222 |
W2_SET_F2F_INDEX |
jj = INT(facet_link(i,j)) |
|
./pkg/exch2/w2_set_f2f_index.F |
223 |
W2_SET_F2F_INDEX |
ii = MOD( NINT(facet_link(i,j)*10.), 10 ) |
|
./pkg/exch2/w2_set_f2f_index.F |
232 |
W2_SET_F2F_INDEX |
chk1 = facet_pij(1,i,j)*facet_pij(1,ii,jj) |
|
./pkg/exch2/w2_set_f2f_index.F |
233 |
W2_SET_F2F_INDEX |
& + facet_pij(2,i,j)*facet_pij(3,ii,jj) |
|
./pkg/exch2/w2_set_f2f_index.F |
234 |
W2_SET_F2F_INDEX |
chk2 = facet_pij(1,i,j)*facet_pij(2,ii,jj) |
|
./pkg/exch2/w2_set_f2f_index.F |
235 |
W2_SET_F2F_INDEX |
& + facet_pij(2,i,j)*facet_pij(4,ii,jj) |
|
./pkg/exch2/w2_set_f2f_index.F |
236 |
W2_SET_F2F_INDEX |
chk3 = facet_pij(3,i,j)*facet_pij(1,ii,jj) |
|
./pkg/exch2/w2_set_f2f_index.F |
237 |
W2_SET_F2F_INDEX |
& + facet_pij(4,i,j)*facet_pij(3,ii,jj) |
|
./pkg/exch2/w2_set_f2f_index.F |
238 |
W2_SET_F2F_INDEX |
chk4 = facet_pij(3,i,j)*facet_pij(2,ii,jj) |
|
./pkg/exch2/w2_set_f2f_index.F |
239 |
W2_SET_F2F_INDEX |
& + facet_pij(4,i,j)*facet_pij(4,ii,jj) |
|
./pkg/exch2/w2_set_f2f_index.F |
241 |
W2_SET_F2F_INDEX |
chk5 = facet_pij(1,i,j)*facet_oi(ii,jj) |
|
./pkg/exch2/w2_set_f2f_index.F |
242 |
W2_SET_F2F_INDEX |
& + facet_pij(2,i,j)*facet_oj(ii,jj) |
|
./pkg/exch2/w2_set_f2f_index.F |
243 |
W2_SET_F2F_INDEX |
& + facet_oi(i,j) |
|
./pkg/exch2/w2_set_f2f_index.F |
244 |
W2_SET_F2F_INDEX |
chk6 = facet_pij(3,i,j)*facet_oi(ii,jj) |
|
./pkg/exch2/w2_set_f2f_index.F |
245 |
W2_SET_F2F_INDEX |
& + facet_pij(4,i,j)*facet_oj(ii,jj) |
|
./pkg/exch2/w2_set_f2f_index.F |
246 |
W2_SET_F2F_INDEX |
& + facet_oj(i,j) |
|
./pkg/exch2/w2_set_f2f_index.F |
250 |
W2_SET_F2F_INDEX |
& edge(i), '.Edge (facet#', j, ' ) to: ', |
|
./pkg/exch2/w2_set_f2f_index.F |
37 |
W2_SET_F2F_INDEX |
INTEGER i, j, ii, jj, i1, j1, k, lo, ll |
|
./pkg/exch2/w2_set_f2f_index.F |
52 |
W2_SET_F2F_INDEX |
DO j=1,nFacets |
|
./pkg/exch2/w2_set_f2f_index.F |
55 |
W2_SET_F2F_INDEX |
jj = INT(facet_link(i,j)) |
|
./pkg/exch2/w2_set_f2f_index.F |
56 |
W2_SET_F2F_INDEX |
ii = MOD( NINT(facet_link(i,j)*10.), 10 ) |
|
./pkg/exch2/w2_set_f2f_index.F |
57 |
W2_SET_F2F_INDEX |
IF ( facet_link(i,j).EQ. 0. ) THEN |
|
./pkg/exch2/w2_set_f2f_index.F |
60 |
W2_SET_F2F_INDEX |
& j, ' disconnected (facet_link=',facet_link(i,j),')' |
|
./pkg/exch2/w2_set_f2f_index.F |
66 |
W2_SET_F2F_INDEX |
& j, ' : bad connection (facet_link=',facet_link(i,j),')' |
|
./pkg/exch2/w2_set_f2f_index.F |
73 |
W2_SET_F2F_INDEX |
IF ( j1.NE.j .OR. i1.NE.i ) THEN |
|
./pkg/exch2/w2_set_f2f_index.F |
75 |
W2_SET_F2F_INDEX |
& edge(i), '.Edge facet #', j,' connect to: ', |
|
./pkg/exch2/w2_set_f2f_index.F |
76 |
W2_SET_F2F_INDEX |
& edge(ii),'.Edge facet #',jj,' (',facet_link(i,j),' )' |
|
./pkg/exch2/w2_set_gen_facets.F |
100 |
W2_SET_GEN_FACETS |
j = (jj+1)/2 |
|
./pkg/exch2/w2_set_gen_facets.F |
102 |
W2_SET_GEN_FACETS |
& ' of facet', j, ' =', facet_dims(jj), ' : invalid (< 0)' |
|
./pkg/exch2/w2_set_gen_facets.F |
115 |
W2_SET_GEN_FACETS |
DO j=nFacets+1,W2_maxNbFacets |
|
./pkg/exch2/w2_set_gen_facets.F |
117 |
W2_SET_GEN_FACETS |
IF ( facet_link(i,j).NE.0 ) THEN |
|
./pkg/exch2/w2_set_gen_facets.F |
120 |
W2_SET_GEN_FACETS |
& 'Link for ',edge(i), '.Edge of facet #',j, |
|
./pkg/exch2/w2_set_gen_facets.F |
121 |
W2_SET_GEN_FACETS |
& ' (facetEdgeLink=',facet_link(i,j),')' |
|
./pkg/exch2/w2_set_gen_facets.F |
38 |
W2_SET_GEN_FACETS |
INTEGER i,j,jj,fNx,fNy |
|
./pkg/exch2/w2_set_gen_facets.F |
52 |
W2_SET_GEN_FACETS |
DO j=1,W2_maxNbFacets |
|
./pkg/exch2/w2_set_gen_facets.F |
53 |
W2_SET_GEN_FACETS |
fNx = facet_dims(2*j-1) |
|
./pkg/exch2/w2_set_gen_facets.F |
54 |
W2_SET_GEN_FACETS |
fNy = facet_dims( 2*j ) |
|
./pkg/exch2/w2_set_gen_facets.F |
57 |
W2_SET_GEN_FACETS |
nFacets = j |
|
./pkg/exch2/w2_set_gen_facets.F |
61 |
W2_SET_GEN_FACETS |
& 'dimsFacets: Expect pair of >0 dims : facet',j, |
|
./pkg/exch2/w2_set_map_cumsum.F |
107 |
W2_SET_MAP_CUMSUM |
DO j=1,nFacets |
|
./pkg/exch2/w2_set_map_cumsum.F |
108 |
W2_SET_MAP_CUMSUM |
IF ( fIsSet(j) ) THEN |
|
./pkg/exch2/w2_set_map_cumsum.F |
111 |
W2_SET_MAP_CUMSUM |
jj = INT(facet_link(i,j)) |
|
./pkg/exch2/w2_set_map_cumsum.F |
112 |
W2_SET_MAP_CUMSUM |
ii = MOD( NINT(facet_link(i,j)*10.), 10 ) |
|
./pkg/exch2/w2_set_map_cumsum.F |
118 |
W2_SET_MAP_CUMSUM |
W2_cumSum_facet(1,k,jj) = W2_cumSum_facet(1,k,j) |
|
./pkg/exch2/w2_set_map_cumsum.F |
119 |
W2_SET_MAP_CUMSUM |
W2_cumSum_facet(2,k,jj) = W2_cumSum_facet(2,k,j) |
|
./pkg/exch2/w2_set_map_cumsum.F |
121 |
W2_SET_MAP_CUMSUM |
W2_cumSum_facet(2,j,jj) = W2_cumSum_facet(2,j,jj) + 1 |
|
./pkg/exch2/w2_set_map_cumsum.F |
125 |
W2_SET_MAP_CUMSUM |
& ' CumSum SW.corner of facet #', jj,' set from facet',j, |
|
./pkg/exch2/w2_set_map_cumsum.F |
131 |
W2_SET_MAP_CUMSUM |
W2_cumSum_facet(1,k,jj) = W2_cumSum_facet(1,k,j) |
|
./pkg/exch2/w2_set_map_cumsum.F |
132 |
W2_SET_MAP_CUMSUM |
W2_cumSum_facet(2,k,jj) = W2_cumSum_facet(2,k,j) |
|
./pkg/exch2/w2_set_map_cumsum.F |
134 |
W2_SET_MAP_CUMSUM |
W2_cumSum_facet(1,j,jj) = W2_cumSum_facet(1,j,jj) + 1 |
|
./pkg/exch2/w2_set_map_cumsum.F |
138 |
W2_SET_MAP_CUMSUM |
& ' CumSum SW.corner of facet #', jj,' set from facet',j, |
|
./pkg/exch2/w2_set_map_cumsum.F |
147 |
W2_SET_MAP_CUMSUM |
W2_cumSum_facet(1,k,jj) = W2_cumSum_facet(1,k,j) |
|
./pkg/exch2/w2_set_map_cumsum.F |
148 |
W2_SET_MAP_CUMSUM |
W2_cumSum_facet(2,k,jj) = W2_cumSum_facet(2,k,j) |
|
./pkg/exch2/w2_set_map_cumsum.F |
154 |
W2_SET_MAP_CUMSUM |
& ' CumSum SW.corner of facet #', jj,' set from facet',j, |
|
./pkg/exch2/w2_set_map_cumsum.F |
160 |
W2_SET_MAP_CUMSUM |
W2_cumSum_facet(1,k,jj) = W2_cumSum_facet(1,k,j) |
|
./pkg/exch2/w2_set_map_cumsum.F |
161 |
W2_SET_MAP_CUMSUM |
W2_cumSum_facet(2,k,jj) = W2_cumSum_facet(2,k,j) |
|
./pkg/exch2/w2_set_map_cumsum.F |
167 |
W2_SET_MAP_CUMSUM |
& ' CumSum SW.corner of facet #', jj,' set from facet',j, |
|
./pkg/exch2/w2_set_map_cumsum.F |
179 |
W2_SET_MAP_CUMSUM |
W2_cumSum_facet(1,k,jj) = W2_cumSum_facet(1,k,j) |
|
./pkg/exch2/w2_set_map_cumsum.F |
180 |
W2_SET_MAP_CUMSUM |
W2_cumSum_facet(2,k,jj) = W2_cumSum_facet(2,k,j) |
|
./pkg/exch2/w2_set_map_cumsum.F |
182 |
W2_SET_MAP_CUMSUM |
W2_cumSum_facet(2,j, jj) = W2_cumSum_facet(2,j, jj) + 1 |
|
./pkg/exch2/w2_set_map_cumsum.F |
187 |
W2_SET_MAP_CUMSUM |
& ' CumSum SW.corner of facet #', jj,' set from facet',j, |
|
./pkg/exch2/w2_set_map_cumsum.F |
194 |
W2_SET_MAP_CUMSUM |
W2_cumSum_facet(1,k,jj) = W2_cumSum_facet(1,k,j) |
|
./pkg/exch2/w2_set_map_cumsum.F |
195 |
W2_SET_MAP_CUMSUM |
W2_cumSum_facet(2,k,jj) = W2_cumSum_facet(2,k,j) |
|
./pkg/exch2/w2_set_map_cumsum.F |
197 |
W2_SET_MAP_CUMSUM |
W2_cumSum_facet(1,j, jj) = W2_cumSum_facet(1,j, jj) + 1 |
|
./pkg/exch2/w2_set_map_cumsum.F |
202 |
W2_SET_MAP_CUMSUM |
& ' CumSum SW.corner of facet #', jj,' set from facet',j, |
|
./pkg/exch2/w2_set_map_cumsum.F |
234 |
W2_SET_MAP_CUMSUM |
DO j=1,nFacets |
|
./pkg/exch2/w2_set_map_cumsum.F |
235 |
W2_SET_MAP_CUMSUM |
WRITE(W2_oUnit,'(A,I3,A,30(2I3,A))') '- facet', j, ' :', |
|
./pkg/exch2/w2_set_map_cumsum.F |
236 |
W2_SET_MAP_CUMSUM |
& (W2_cumSum_facet(1,i,j),W2_cumSum_facet(2,i,j),' ,', |
|
./pkg/exch2/w2_set_map_cumsum.F |
245 |
W2_SET_MAP_CUMSUM |
DO j=1,nFacets |
|
./pkg/exch2/w2_set_map_cumsum.F |
246 |
W2_SET_MAP_CUMSUM |
fNx = facet_dims(2*j-1) |
|
./pkg/exch2/w2_set_map_cumsum.F |
247 |
W2_SET_MAP_CUMSUM |
fNy = facet_dims( 2*j ) |
|
./pkg/exch2/w2_set_map_cumsum.F |
251 |
W2_SET_MAP_CUMSUM |
tN = facet_owns(1,j) - 1 + nbTx |
|
./pkg/exch2/w2_set_map_cumsum.F |
252 |
W2_SET_MAP_CUMSUM |
IF ( W2_tMC2.EQ.0 .AND. MOD(j,2).EQ.0 |
|
./pkg/exch2/w2_set_map_cumsum.F |
254 |
W2_SET_MAP_CUMSUM |
tN = facet_owns(1,j) + (nbTy-1)*nbTx |
|
./pkg/exch2/w2_set_map_cumsum.F |
255 |
W2_SET_MAP_CUMSUM |
IF ( W2_tMC1.EQ.0 .AND. MOD(j,2).EQ.1 |
|
./pkg/exch2/w2_set_map_cumsum.F |
268 |
W2_SET_MAP_CUMSUM |
DO j=1,W2_maxNbFacets |
|
./pkg/exch2/w2_set_map_cumsum.F |
270 |
W2_SET_MAP_CUMSUM |
facetXYSum(1,i,j) = 0 |
|
./pkg/exch2/w2_set_map_cumsum.F |
271 |
W2_SET_MAP_CUMSUM |
facetXYSum(2,i,j) = 0 |
|
./pkg/exch2/w2_set_map_cumsum.F |
272 |
W2_SET_MAP_CUMSUM |
facet_CSum(1,i,j) = 0 |
|
./pkg/exch2/w2_set_map_cumsum.F |
273 |
W2_SET_MAP_CUMSUM |
facet_CSum(2,i,j) = 0 |
|
./pkg/exch2/w2_set_map_cumsum.F |
278 |
W2_SET_MAP_CUMSUM |
DO j=1,nFacets |
|
./pkg/exch2/w2_set_map_cumsum.F |
279 |
W2_SET_MAP_CUMSUM |
fNx = facet_dims(2*j-1) |
|
./pkg/exch2/w2_set_map_cumsum.F |
280 |
W2_SET_MAP_CUMSUM |
fNy = facet_dims( 2*j ) |
|
./pkg/exch2/w2_set_map_cumsum.F |
287 |
W2_SET_MAP_CUMSUM |
tS = facet_owns(1,j) - 1 + bi |
|
./pkg/exch2/w2_set_map_cumsum.F |
289 |
W2_SET_MAP_CUMSUM |
DO k=facet_owns(1,j),tS |
|
./pkg/exch2/w2_set_map_cumsum.F |
294 |
W2_SET_MAP_CUMSUM |
tN = facet_owns(1,j) - 1 + nbTx |
|
./pkg/exch2/w2_set_map_cumsum.F |
295 |
W2_SET_MAP_CUMSUM |
facetXYSum(1,tN,j) = 1 |
|
./pkg/exch2/w2_set_map_cumsum.F |
296 |
W2_SET_MAP_CUMSUM |
DO k=facet_owns(1,j),tN-1 |
|
./pkg/exch2/w2_set_map_cumsum.F |
297 |
W2_SET_MAP_CUMSUM |
facetXYSum(1,k,j) = W2_cumSum_tiles(1,k,tN) |
|
./pkg/exch2/w2_set_map_cumsum.F |
302 |
W2_SET_MAP_CUMSUM |
tS = facet_owns(1,j) - 1 + bi |
|
./pkg/exch2/w2_set_map_cumsum.F |
310 |
W2_SET_MAP_CUMSUM |
tN = facet_owns(1,j) + (nbTy-1)*nbTx |
|
./pkg/exch2/w2_set_map_cumsum.F |
311 |
W2_SET_MAP_CUMSUM |
facetXYSum(2,tN,j) = 1 |
|
./pkg/exch2/w2_set_map_cumsum.F |
312 |
W2_SET_MAP_CUMSUM |
DO k=facet_owns(1,j),tN-1 |
|
./pkg/exch2/w2_set_map_cumsum.F |
313 |
W2_SET_MAP_CUMSUM |
facetXYSum(2,k,j) = W2_cumSum_tiles(2,k,tN) |
|
./pkg/exch2/w2_set_map_cumsum.F |
320 |
W2_SET_MAP_CUMSUM |
DO j=1,nFacets |
|
./pkg/exch2/w2_set_map_cumsum.F |
323 |
W2_SET_MAP_CUMSUM |
facet_CSum(1,k,j) = facet_CSum(1,k,j) |
|
./pkg/exch2/w2_set_map_cumsum.F |
324 |
W2_SET_MAP_CUMSUM |
& + W2_cumSum_facet(1,i,j)*facetXYSum(1,k,i) |
|
./pkg/exch2/w2_set_map_cumsum.F |
325 |
W2_SET_MAP_CUMSUM |
facet_CSum(2,k,j) = facet_CSum(2,k,j) |
|
./pkg/exch2/w2_set_map_cumsum.F |
326 |
W2_SET_MAP_CUMSUM |
& + W2_cumSum_facet(2,i,j)*facetXYSum(2,k,i) |
|
./pkg/exch2/w2_set_map_cumsum.F |
332 |
W2_SET_MAP_CUMSUM |
DO j=1,nFacets |
|
./pkg/exch2/w2_set_map_cumsum.F |
333 |
W2_SET_MAP_CUMSUM |
DO tN=facet_owns(1,j),facet_owns(2,j) |
|
./pkg/exch2/w2_set_map_cumsum.F |
336 |
W2_SET_MAP_CUMSUM |
& + facet_CSum(1,k,j) |
|
./pkg/exch2/w2_set_map_cumsum.F |
338 |
W2_SET_MAP_CUMSUM |
& + facet_CSum(2,k,j) |
|
./pkg/exch2/w2_set_map_cumsum.F |
346 |
W2_SET_MAP_CUMSUM |
DO j=1,exch2_nTiles |
|
./pkg/exch2/w2_set_map_cumsum.F |
350 |
W2_SET_MAP_CUMSUM |
WRITE(W2_oUnit,'(3(I6,A),10(2I3,A))') j,' ,',is,' ->',ie,' :', |
|
./pkg/exch2/w2_set_map_cumsum.F |
351 |
W2_SET_MAP_CUMSUM |
& (W2_cumSum_tiles(1,i,j),W2_cumSum_tiles(2,i,j),' ,',i=is,ie) |
|
./pkg/exch2/w2_set_map_cumsum.F |
354 |
W2_SET_MAP_CUMSUM |
& (W2_cumSum_tiles(1,i,j),W2_cumSum_tiles(2,i,j),' ,',i=is,ie) |
|
./pkg/exch2/w2_set_map_cumsum.F |
42 |
W2_SET_MAP_CUMSUM |
INTEGER tN, i, j, k, ii, jj |
|
./pkg/exch2/w2_set_map_cumsum.F |
61 |
W2_SET_MAP_CUMSUM |
DO j=1,W2_maxNbFacets |
|
./pkg/exch2/w2_set_map_cumsum.F |
63 |
W2_SET_MAP_CUMSUM |
W2_cumSum_facet(1,i,j) = 0 |
|
./pkg/exch2/w2_set_map_cumsum.F |
64 |
W2_SET_MAP_CUMSUM |
W2_cumSum_facet(2,i,j) = 0 |
|
./pkg/exch2/w2_set_map_cumsum.F |
68 |
W2_SET_MAP_CUMSUM |
DO j=1,W2_maxNbTiles |
|
./pkg/exch2/w2_set_map_cumsum.F |
70 |
W2_SET_MAP_CUMSUM |
W2_cumSum_tiles(1,i,j) = 0 |
|
./pkg/exch2/w2_set_map_cumsum.F |
71 |
W2_SET_MAP_CUMSUM |
W2_cumSum_tiles(2,i,j) = 0 |
|
./pkg/exch2/w2_set_map_cumsum.F |
79 |
W2_SET_MAP_CUMSUM |
DO j=1,nFacets |
|
./pkg/exch2/w2_set_map_cumsum.F |
80 |
W2_SET_MAP_CUMSUM |
fIsSet(j) = .FALSE. |
|
./pkg/exch2/w2_set_map_cumsum.F |
85 |
W2_SET_MAP_CUMSUM |
DO j=1,nFacets |
|
./pkg/exch2/w2_set_map_cumsum.F |
86 |
W2_SET_MAP_CUMSUM |
IF ( facet_dims(2*j-1)*facet_dims(2*j).GE.1 ) THEN |
|
./pkg/exch2/w2_set_map_cumsum.F |
89 |
W2_SET_MAP_CUMSUM |
fIsSet(j) = .TRUE. |
|
./pkg/exch2/w2_set_map_cumsum.F |
92 |
W2_SET_MAP_CUMSUM |
& ' CumSum starts @ SW.corner of facet #', j |
|
./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) |
|
./pkg/exch2/w2_set_map_tiles.F |
110 |
W2_SET_MAP_TILES |
DO j=1,nFacets |
|
./pkg/exch2/w2_set_map_tiles.F |
112 |
W2_SET_MAP_TILES |
IF ( facet_dims(2*j-1).GT.0 ) THEN |
|
./pkg/exch2/w2_set_map_tiles.F |
114 |
W2_SET_MAP_TILES |
nnx(k) = facet_dims(2*j-1)/tNx |
|
./pkg/exch2/w2_set_map_tiles.F |
128 |
W2_SET_MAP_TILES |
DO j=1,nFacets |
|
./pkg/exch2/w2_set_map_tiles.F |
129 |
W2_SET_MAP_TILES |
exch2_xStack_Nx = exch2_xStack_Nx + facet_dims(2*j-1) |
|
./pkg/exch2/w2_set_map_tiles.F |
130 |
W2_SET_MAP_TILES |
exch2_xStack_Ny = MAX( exch2_xStack_Ny, facet_dims(2*j) ) |
|
./pkg/exch2/w2_set_map_tiles.F |
135 |
W2_SET_MAP_TILES |
DO j=1,nFacets |
|
./pkg/exch2/w2_set_map_tiles.F |
136 |
W2_SET_MAP_TILES |
exch2_yStack_Nx = MAX( exch2_yStack_Nx, facet_dims(2*j-1) ) |
|
./pkg/exch2/w2_set_map_tiles.F |
137 |
W2_SET_MAP_TILES |
exch2_yStack_Ny = exch2_yStack_Ny + facet_dims(2*j) |
|
./pkg/exch2/w2_set_map_tiles.F |
161 |
W2_SET_MAP_TILES |
DO j=1,nFacets |
|
./pkg/exch2/w2_set_map_tiles.F |
162 |
W2_SET_MAP_TILES |
fNx = facet_dims(2*j-1) |
|
./pkg/exch2/w2_set_map_tiles.F |
163 |
W2_SET_MAP_TILES |
fNy = facet_dims( 2*j ) |
|
./pkg/exch2/w2_set_map_tiles.F |
167 |
W2_SET_MAP_TILES |
& '- facet', j, ' : X-size=', fNx, ' , Y-size=', fNy, |
|
./pkg/exch2/w2_set_map_tiles.F |
178 |
W2_SET_MAP_TILES |
IF ( tileIsActive ) exch2_myFace(tId) = j |
|
./pkg/exch2/w2_set_map_tiles.F |
246 |
W2_SET_MAP_TILES |
INTEGER j, ii |
|
./pkg/exch2/w2_set_map_tiles.F |
254 |
W2_SET_MAP_TILES |
DO j=1,nFld |
|
./pkg/exch2/w2_set_map_tiles.F |
255 |
W2_SET_MAP_TILES |
mnFld = MIN( mnFld, fldList(j) ) |
|
./pkg/exch2/w2_set_map_tiles.F |
265 |
W2_SET_MAP_TILES |
DO j=1,nFld |
|
./pkg/exch2/w2_set_map_tiles.F |
266 |
W2_SET_MAP_TILES |
flag = flag.AND.(MOD(fldList(j),ii).EQ.0 ) |
|
./pkg/exch2/w2_set_map_tiles.F |
270 |
W2_SET_MAP_TILES |
DO j=1,nFld |
|
./pkg/exch2/w2_set_map_tiles.F |
271 |
W2_SET_MAP_TILES |
fldList(j) = fldList(j)/ii |
|
./pkg/exch2/w2_set_map_tiles.F |
282 |
W2_SET_MAP_TILES |
IF (localDBg) WRITE(0,'(10I8)') (fldList(j),j=1,nFld) |
|
./pkg/exch2/w2_set_map_tiles.F |
283 |
W2_SET_MAP_TILES |
DO j=1,nFld |
|
./pkg/exch2/w2_set_map_tiles.F |
284 |
W2_SET_MAP_TILES |
fldList(j) = fldList(j)*divide |
|
./pkg/exch2/w2_set_map_tiles.F |
47 |
W2_SET_MAP_TILES |
INTEGER j, ii, k, tId, tx, ty |
|
./pkg/exch2/w2_set_map_tiles.F |
66 |
W2_SET_MAP_TILES |
DO j=1,nFacets |
|
./pkg/exch2/w2_set_map_tiles.F |
67 |
W2_SET_MAP_TILES |
fNx = facet_dims(2*j-1) |
|
./pkg/exch2/w2_set_map_tiles.F |
68 |
W2_SET_MAP_TILES |
fNy = facet_dims( 2*j ) |
|
./pkg/exch2/w2_set_map_tiles.F |
72 |
W2_SET_MAP_TILES |
WRITE(msgBuf,'(A,I3,2(A,I7))') 'Facet',j, |
|
./pkg/exch2/w2_set_map_tiles.F |
78 |
W2_SET_MAP_TILES |
WRITE(msgBuf,'(A,I3,2(A,I7))') 'Facet',j, |
|
./pkg/exch2/w2_set_map_tiles.F |
83 |
W2_SET_MAP_TILES |
facet_owns(1,j) = tCnt+1 |
|
./pkg/exch2/w2_set_map_tiles.F |
85 |
W2_SET_MAP_TILES |
facet_owns(2,j) = tCnt |
|
./pkg/exch2/w2_set_single_facet.F |
36 |
W2_SET_SINGLE_FACET |
INTEGER j |
|
./pkg/exch2/w2_set_single_facet.F |
71 |
W2_SET_SINGLE_FACET |
DO j=3,W2_maxNbFacets*2 |
|
./pkg/exch2/w2_set_single_facet.F |
72 |
W2_SET_SINGLE_FACET |
IF ( facet_dims(j).NE.0 ) THEN |
|
./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 |
262 |
EXF_BULKFORMULAE |
DO j = 1,sNy |
|
./pkg/exf/exf_bulkformulae.F |
275 |
EXF_BULKFORMULAE |
& + sNx*(j-1) |
|
./pkg/exf/exf_bulkformulae.F |
283 |
EXF_BULKFORMULAE |
deltap(i,j) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
284 |
EXF_BULKFORMULAE |
delq(i,j) = 0. _d 0 |
|
./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 |
303 |
EXF_BULKFORMULAE |
ssq = saltsat*tmpbulk/atmrho_loc(i,j) |
|
./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 |
310 |
EXF_BULKFORMULAE |
IF ( noNegativeEvap ) delq(i,j) = MIN( 0. _d 0, delq(i,j) ) |
|
./pkg/exf/exf_bulkformulae.F |
314 |
EXF_BULKFORMULAE |
stable = exf_half + SIGN(exf_half, deltap(i,j)) |
|
./pkg/exf/exf_bulkformulae.F |
321 |
EXF_BULKFORMULAE |
wsm = sh(i,j,bi,bj) |
|
./pkg/exf/exf_bulkformulae.F |
324 |
EXF_BULKFORMULAE |
rdn(i,j) = SQRT(tmpbulk) |
|
./pkg/exf/exf_bulkformulae.F |
325 |
EXF_BULKFORMULAE |
ustar(i,j) = rdn(i,j)*wsm |
|
./pkg/exf/exf_bulkformulae.F |
327 |
EXF_BULKFORMULAE |
rdn(i,j) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
328 |
EXF_BULKFORMULAE |
windStress = wStress(i,j,bi,bj) |
|
./pkg/exf/exf_bulkformulae.F |
330 |
EXF_BULKFORMULAE |
ustar(i,j) = SQRT(windStress/atmrho_loc(i,j)) |
|
./pkg/exf/exf_bulkformulae.F |
331 |
EXF_BULKFORMULAE |
tau(i,j) = SQRT(windStress*atmrho_loc(i,j)) |
|
./pkg/exf/exf_bulkformulae.F |
333 |
EXF_BULKFORMULAE |
ustar(i,j) = SQRT(windStress/atmrho) |
|
./pkg/exf/exf_bulkformulae.F |
335 |
EXF_BULKFORMULAE |
tau(i,j) = SQRT(windStress*atmrho) |
|
./pkg/exf/exf_bulkformulae.F |
343 |
EXF_BULKFORMULAE |
tstar(i,j)=rhn*deltap(i,j) |
|
./pkg/exf/exf_bulkformulae.F |
344 |
EXF_BULKFORMULAE |
qstar(i,j)=ren*delq(i,j) |
|
./pkg/exf/exf_bulkformulae.F |
348 |
EXF_BULKFORMULAE |
tstar (i,j) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
349 |
EXF_BULKFORMULAE |
qstar (i,j) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
350 |
EXF_BULKFORMULAE |
ustar (i,j) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
351 |
EXF_BULKFORMULAE |
tau (i,j) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
352 |
EXF_BULKFORMULAE |
rdn (i,j) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
357 |
EXF_BULKFORMULAE |
DO j = 1,sNy |
|
./pkg/exf/exf_bulkformulae.F |
359 |
EXF_BULKFORMULAE |
IF ( atemp(i,j,bi,bj) .NE. 0. _d 0 ) THEN |
|
./pkg/exf/exf_bulkformulae.F |
364 |
EXF_BULKFORMULAE |
& + sNx*(j-1) |
|
./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 |
380 |
EXF_BULKFORMULAE |
huol = ( tstar(i,j)/t0 + |
|
./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 |
382 |
EXF_BULKFORMULAE |
& )*czol/(ustar(i,j)*ustar(i,j)) |
|
./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 |
442 |
EXF_BULKFORMULAE |
rdn(i,j) = SQRT(tmpbulk) |
|
./pkg/exf/exf_bulkformulae.F |
444 |
EXF_BULKFORMULAE |
rd(i,j) = rdn(i,j)/(exf_one + rdn(i,j)*dzTmp) |
|
./pkg/exf/exf_bulkformulae.F |
446 |
EXF_BULKFORMULAE |
rd(i,j) = rdn(i,j)/(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 |
466 |
EXF_BULKFORMULAE |
qstar(i,j) = re*delq(i,j) |
|
./pkg/exf/exf_bulkformulae.F |
467 |
EXF_BULKFORMULAE |
tstar(i,j) = rh*deltap(i,j) |
|
./pkg/exf/exf_bulkformulae.F |
474 |
EXF_BULKFORMULAE |
DO j = 1,sNy |
|
./pkg/exf/exf_bulkformulae.F |
476 |
EXF_BULKFORMULAE |
IF ( atemp(i,j,bi,bj) .NE. 0. _d 0 ) THEN |
|
./pkg/exf/exf_bulkformulae.F |
480 |
EXF_BULKFORMULAE |
& + sNx*(j-1) |
|
./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 |
507 |
EXF_BULKFORMULAE |
tmpbulk = tau(i,j)*rd(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 |
49 |
EXF_CHECK_RANGE |
DO j = 1, sNy |
|
./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 |
36 |
EXF_FILTER_RL |
INTEGER i,j, ks |
|
./pkg/exf/exf_filter_rl.F |
62 |
EXF_FILTER_RL |
DO j = 1,sNy |
|
./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 |
70 |
EXF_FILTER_RL |
DO j = 1,sNy |
|
./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 |
78 |
EXF_FILTER_RL |
DO j = 1,sNy |
|
./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 |
171 |
EXF_GETCLIM |
DO j=1-OLy,sNy+OLy |
|
./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 |
89 |
EXF_GETCLIM |
DO j = 1,sNy |
|
./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 |
148 |
EXF_GETFFIELDS |
DO j = 1,sNy |
|
./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 |
163 |
EXF_GETFFIELDS |
DO j=1-OLy,sNy+OLy |
|
./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 |
215 |
EXF_GETFFIELDS |
DO j = 1,sNy |
|
./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 |
325 |
EXF_GETFFIELDS |
DO j = 1,sNy |
|
./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 |
480 |
EXF_GETFFIELDS |
DO j = 1-OLy,sNy+OLy |
|
./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 |
624 |
EXF_GETFFIELDS |
DO j = 1,sNy |
|
./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 |
640 |
EXF_GETFFIELDS |
DO j = 1,sNy |
|
./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 |
684 |
EXF_GETFFIELDS |
DO j = 1,sNy |
|
./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 |
760 |
EXF_GETFFIELDS |
DO j = 1,sNy |
|
./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 |
99 |
EXF_GETFFIELDS |
DO j=1-OLy,sNy+OLy |
|
./pkg/exf/exf_getforcing.F |
145 |
EXF_GETFORCING |
INTEGER i,j,k |
|
./pkg/exf/exf_getforcing.F |
208 |
EXF_GETFORCING |
DO j = 1,sNy |
|
./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 |
226 |
EXF_GETFORCING |
DO j = 1,sNy |
|
./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 |
282 |
EXF_GETFORCING |
DO j = 1-oLy,sNy+oLy |
|
./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 |
109 |
EXF_GETSURFACEFLUXES |
DO j = 1,sNy |
|
./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 |
214 |
EXF_GETSURFACEFLUXES |
do j = 1-oly,sny+oly |
|
./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 |
91 |
EXF_GETSURFACEFLUXES |
do j = 1-oly,sny+oly |
|
./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_fixed.F |
41 |
EXF_INIT_FIXED |
INTEGER j |
|
./pkg/exf/exf_init_fixed.F |
541 |
EXF_INIT_FIXED |
DO j=1,MIN(ustress_nlat-1,MAX_LAT_INC) |
|
./pkg/exf/exf_init_fixed.F |
543 |
EXF_INIT_FIXED |
& .AND. ustress_lat_inc(j) .EQ. vstress_lat_inc(j) |
|
./pkg/exf/exf_init_fixed.F |
559 |
EXF_INIT_FIXED |
DO j=1,MIN(uwind_nlat-1,MAX_LAT_INC) |
|
./pkg/exf/exf_init_fixed.F |
561 |
EXF_INIT_FIXED |
& .AND. uwind_lat_inc(j) .EQ. vwind_lat_inc(j) |
|
./pkg/exf/exf_init_fixed.F |
577 |
EXF_INIT_FIXED |
DO j=1,MIN(climustr_nlat-1,MAX_LAT_INC) |
|
./pkg/exf/exf_init_fixed.F |
579 |
EXF_INIT_FIXED |
& .AND. climustr_lat_inc(j) .EQ. climvstr_lat_inc(j) |
|
./pkg/exf/exf_init_fld.F |
105 |
EXF_INIT_FLD |
j = ILNBLNK(fldFile) |
|
./pkg/exf/exf_init_fld.F |
108 |
EXF_INIT_FLD |
& '", loading rec=', count, ' from: ', fldFile(1:j) |
|
./pkg/exf/exf_init_fld.F |
140 |
EXF_INIT_FLD |
DO j = 1,sNy |
|
./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 |
91 |
EXF_INIT_FLD |
DO j = 1-OLy, sNy+OLy |
|
./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 |
134 |
EXF_INIT_VARIA |
DO j=1-OLy,sNy+OLy |
|
./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 |
457 |
EXF_INIT_VARIA |
DO j=1-oLy,sNy+oLy |
|
./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 |
47 |
EXF_INIT_VARIA |
DO j=1-OLy,sNy+OLy |
|
./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 |
93 |
EXF_INIT_VARIA |
DO j=1-OLy,sNy+OLy |
|
./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 |
149 |
EXF_INTERP |
DO j=1,nyIn+1 |
|
./pkg/exf/exf_interp.F |
150 |
EXF_INTERP |
i = MIN(j,nyIn-1) |
|
./pkg/exf/exf_interp.F |
151 |
EXF_INTERP |
y_in(j+1) = y_in(j) + lat_inc(i) |
|
./pkg/exf/exf_interp.F |
169 |
EXF_INTERP |
j = 0 |
|
./pkg/exf/exf_interp.F |
170 |
EXF_INTERP |
IF ( ABS(y_in(j+1)).LT.yPole .AND. ABS(y_in(j)).GT.yPole ) THEN |
|
./pkg/exf/exf_interp.F |
171 |
EXF_INTERP |
y_in(j) = -yPole |
|
./pkg/exf/exf_interp.F |
172 |
EXF_INTERP |
y_in(j-1) = -2.*yPole - y_in(j+1) |
|
./pkg/exf/exf_interp.F |
174 |
EXF_INTERP |
prtPole(j) = 1. |
|
./pkg/exf/exf_interp.F |
175 |
EXF_INTERP |
prtPole(j-1) = 2. |
|
./pkg/exf/exf_interp.F |
178 |
EXF_INTERP |
j = -1 |
|
./pkg/exf/exf_interp.F |
179 |
EXF_INTERP |
IF ( ABS(y_in(j+1)).LT.yPole .AND. ABS(y_in(j)).GT.yPole ) THEN |
|
./pkg/exf/exf_interp.F |
180 |
EXF_INTERP |
y_in(j) = -yPole |
|
./pkg/exf/exf_interp.F |
182 |
EXF_INTERP |
prtPole(j) = 1. |
|
./pkg/exf/exf_interp.F |
187 |
EXF_INTERP |
j = nyIn+1 |
|
./pkg/exf/exf_interp.F |
188 |
EXF_INTERP |
IF ( ABS(y_in(j-1)).LT.yPole .AND. ABS(y_in(j)).GT.yPole ) THEN |
|
./pkg/exf/exf_interp.F |
189 |
EXF_INTERP |
y_in(j) = yPole |
|
./pkg/exf/exf_interp.F |
190 |
EXF_INTERP |
y_in(j+1) = 2.*yPole - y_in(j-1) |
|
./pkg/exf/exf_interp.F |
196 |
EXF_INTERP |
j = nyIn+2 |
|
./pkg/exf/exf_interp.F |
197 |
EXF_INTERP |
IF ( ABS(y_in(j-1)).LT.yPole .AND. ABS(y_in(j)).GT.yPole ) THEN |
|
./pkg/exf/exf_interp.F |
198 |
EXF_INTERP |
y_in(j) = yPole |
|
./pkg/exf/exf_interp.F |
208 |
EXF_INTERP |
DO j=1,nyIn |
|
./pkg/exf/exf_interp.F |
209 |
EXF_INTERP |
arrayin( 0,j) = arrayin(nxIn ,j) |
|
./pkg/exf/exf_interp.F |
210 |
EXF_INTERP |
arrayin(-1,j) = arrayin(nxIn-1,j) |
|
./pkg/exf/exf_interp.F |
211 |
EXF_INTERP |
arrayin(nxIn+1,j) = arrayin(1,j) |
|
./pkg/exf/exf_interp.F |
212 |
EXF_INTERP |
arrayin(nxIn+2,j) = arrayin(2,j) |
|
./pkg/exf/exf_interp.F |
216 |
EXF_INTERP |
DO j=1,nyIn |
|
./pkg/exf/exf_interp.F |
217 |
EXF_INTERP |
arrayin( 0,j) = arrayin(1,j) |
|
./pkg/exf/exf_interp.F |
218 |
EXF_INTERP |
arrayin(-1,j) = arrayin(1,j) |
|
./pkg/exf/exf_interp.F |
219 |
EXF_INTERP |
arrayin(nxIn+1,j) = arrayin(nxIn,j) |
|
./pkg/exf/exf_interp.F |
220 |
EXF_INTERP |
arrayin(nxIn+2,j) = arrayin(nxIn,j) |
|
./pkg/exf/exf_interp.F |
226 |
EXF_INTERP |
j = l |
|
./pkg/exf/exf_interp.F |
227 |
EXF_INTERP |
IF ( l.GE.1 ) j = nyIn+l |
|
./pkg/exf/exf_interp.F |
228 |
EXF_INTERP |
k = MAX(1,MIN(j,nyIn)) |
|
./pkg/exf/exf_interp.F |
229 |
EXF_INTERP |
IF ( poleSymmetry .AND. ABS(y_in(j)).GT.yPole ) THEN |
|
./pkg/exf/exf_interp.F |
231 |
EXF_INTERP |
& k = MAX(2,MIN(j,nyIn-1)) |
|
./pkg/exf/exf_interp.F |
234 |
EXF_INTERP |
arrayin(i,j) = symSign*arrayin(i+nxd2,k) |
|
./pkg/exf/exf_interp.F |
237 |
EXF_INTERP |
arrayin(i+nxd2,j) = symSign*arrayin(i,k) |
|
./pkg/exf/exf_interp.F |
246 |
EXF_INTERP |
arrayin(i,j) = arrayin(i,k) |
|
./pkg/exf/exf_interp.F |
262 |
EXF_INTERP |
j = l |
|
./pkg/exf/exf_interp.F |
263 |
EXF_INTERP |
IF ( l.GE.2 ) j = nyIn+l-2 |
|
./pkg/exf/exf_interp.F |
264 |
EXF_INTERP |
IF ( ABS(y_in(j)).EQ.yPole ) THEN |
|
./pkg/exf/exf_interp.F |
268 |
EXF_INTERP |
poleValue = poleValue + arrayin(i,j) |
|
./pkg/exf/exf_interp.F |
272 |
EXF_INTERP |
arrayin(i,j) = poleValue |
|
./pkg/exf/exf_interp.F |
280 |
EXF_INTERP |
arrayin(i,j) = 0. |
|
./pkg/exf/exf_interp.F |
297 |
EXF_INTERP |
j = l*(nyIn+1) |
|
./pkg/exf/exf_interp.F |
299 |
EXF_INTERP |
edgeFac = (y_in(j) - y_in(k)) / (y_in(i) - y_in(k)) |
|
./pkg/exf/exf_interp.F |
300 |
EXF_INTERP |
poleFac = (y_in(i) - y_in(j)) / (y_in(i) - y_in(k)) |
|
./pkg/exf/exf_interp.F |
302 |
EXF_INTERP |
arrayin(i,j) = arrayin(i,j) * edgeFac |
|
./pkg/exf/exf_interp.F |
326 |
EXF_INTERP |
& ' proc=', (prtPole(j),j=-1,1), ', yIn=', (y_in(j),j=-1,1) |
|
./pkg/exf/exf_interp.F |
330 |
EXF_INTERP |
& ' proc=', (prtPole(j),j=2,4), ', yIn=',(y_in(j),j=nyIn,nyIn+2) |
|
./pkg/exf/exf_interp.F |
343 |
EXF_INTERP |
DO j=1-OLy,sNy+OLy |
|
./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 |
353 |
EXF_INTERP |
DO j=1,sNy |
|
./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 |
389 |
EXF_INTERP |
DO j=1,sNy |
|
./pkg/exf/exf_interp.F |
391 |
EXF_INTERP |
s_ind(i,j) = 0 |
|
./pkg/exf/exf_interp.F |
392 |
EXF_INTERP |
w_ind(i,j) = nyIn+1 |
|
./pkg/exf/exf_interp.F |
400 |
EXF_INTERP |
DO j=1,sNy |
|
./pkg/exf/exf_interp.F |
402 |
EXF_INTERP |
IF ( w_ind(i,j).GT.s_ind(i,j)+1 ) THEN |
|
./pkg/exf/exf_interp.F |
403 |
EXF_INTERP |
k = NINT( (s_ind(i,j)+w_ind(i,j))*0.5 ) |
|
./pkg/exf/exf_interp.F |
404 |
EXF_INTERP |
IF ( yG(i,j,bi,bj) .LT. y_in(k) ) THEN |
|
./pkg/exf/exf_interp.F |
405 |
EXF_INTERP |
w_ind(i,j) = k |
|
./pkg/exf/exf_interp.F |
407 |
EXF_INTERP |
s_ind(i,j) = k |
|
./pkg/exf/exf_interp.F |
416 |
EXF_INTERP |
DO j=1,sNy |
|
./pkg/exf/exf_interp.F |
418 |
EXF_INTERP |
IF ( w_ind(i,j).NE.s_ind(i,j)+1 ) 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 |
431 |
EXF_INTERP |
& 'EXF_INTERP: s_ind=',s_ind(i,j),', lat=',y_in(s_ind(i,j)) |
|
./pkg/exf/exf_interp.F |
434 |
EXF_INTERP |
& 'EXF_INTERP: n_ind=',w_ind(i,j),', lat=',y_in(w_ind(i,j)) |
|
./pkg/exf/exf_interp.F |
443 |
EXF_INTERP |
DO j=1,sNy |
|
./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 |
94 |
EXF_INTERP |
INTEGER i, j, k, l |
|
./pkg/exf/exf_interp_read.F |
189 |
EXF_INTERP_READ |
DO j=1,ny_in |
|
./pkg/exf/exf_interp_read.F |
191 |
EXF_INTERP_READ |
arrayin(i,j)=glPtr4(i,j) |
|
./pkg/exf/exf_interp_read.F |
195 |
EXF_INTERP_READ |
DO j=1,ny_in |
|
./pkg/exf/exf_interp_read.F |
197 |
EXF_INTERP_READ |
arrayin(i,j)=glPtr8(i,j) |
|
./pkg/exf/exf_interp_read.F |
203 |
EXF_INTERP_READ |
DO j=1,ny_in |
|
./pkg/exf/exf_interp_read.F |
205 |
EXF_INTERP_READ |
arrayin(i,j)=buffer_r4(i,j) |
|
./pkg/exf/exf_interp_read.F |
209 |
EXF_INTERP_READ |
DO j=1,ny_in |
|
./pkg/exf/exf_interp_read.F |
211 |
EXF_INTERP_READ |
arrayin(i,j)=buffer_r8(i,j) |
|
./pkg/exf/exf_interp_read.F |
218 |
EXF_INTERP_READ |
DO j=1,ny_in |
|
./pkg/exf/exf_interp_read.F |
219 |
EXF_INTERP_READ |
ijs = (j-1)*nx_in |
|
./pkg/exf/exf_interp_read.F |
221 |
EXF_INTERP_READ |
arrayin(i,j)=buffer_r4(i+ijs) |
|
./pkg/exf/exf_interp_read.F |
225 |
EXF_INTERP_READ |
DO j=1,ny_in |
|
./pkg/exf/exf_interp_read.F |
226 |
EXF_INTERP_READ |
ijs = (j-1)*nx_in |
|
./pkg/exf/exf_interp_read.F |
228 |
EXF_INTERP_READ |
arrayin(i,j)=buffer_r8(i+ijs) |
|
./pkg/exf/exf_interp_read.F |
51 |
EXF_INTERP_READ |
INTEGER i, j |
|
./pkg/exf/exf_interp_uv.F |
106 |
EXF_INTERP_UV |
INTEGER i, j, k, l |
|
./pkg/exf/exf_interp_uv.F |
164 |
EXF_INTERP_UV |
DO j=1,nyIn+1 |
|
./pkg/exf/exf_interp_uv.F |
165 |
EXF_INTERP_UV |
i = MIN(j,nyIn-1) |
|
./pkg/exf/exf_interp_uv.F |
166 |
EXF_INTERP_UV |
y_in(j+1) = y_in(j) + lat_inc(i) |
|
./pkg/exf/exf_interp_uv.F |
179 |
EXF_INTERP_UV |
j = 0 |
|
./pkg/exf/exf_interp_uv.F |
180 |
EXF_INTERP_UV |
IF ( ABS(y_in(j+1)).LT.yPole .AND. ABS(y_in(j)).GT.yPole ) THEN |
|
./pkg/exf/exf_interp_uv.F |
181 |
EXF_INTERP_UV |
y_in(j) = -yPole |
|
./pkg/exf/exf_interp_uv.F |
182 |
EXF_INTERP_UV |
y_in(j-1) = -2.*yPole - y_in(j+1) |
|
./pkg/exf/exf_interp_uv.F |
184 |
EXF_INTERP_UV |
prtPole(j) = 1. |
|
./pkg/exf/exf_interp_uv.F |
185 |
EXF_INTERP_UV |
prtPole(j-1) = 2. |
|
./pkg/exf/exf_interp_uv.F |
188 |
EXF_INTERP_UV |
j = -1 |
|
./pkg/exf/exf_interp_uv.F |
189 |
EXF_INTERP_UV |
IF ( ABS(y_in(j+1)).LT.yPole .AND. ABS(y_in(j)).GT.yPole ) THEN |
|
./pkg/exf/exf_interp_uv.F |
190 |
EXF_INTERP_UV |
y_in(j) = -yPole |
|
./pkg/exf/exf_interp_uv.F |
192 |
EXF_INTERP_UV |
prtPole(j) = 1. |
|
./pkg/exf/exf_interp_uv.F |
196 |
EXF_INTERP_UV |
j = nyIn+1 |
|
./pkg/exf/exf_interp_uv.F |
197 |
EXF_INTERP_UV |
IF ( ABS(y_in(j-1)).LT.yPole .AND. ABS(y_in(j)).GT.yPole ) THEN |
|
./pkg/exf/exf_interp_uv.F |
198 |
EXF_INTERP_UV |
y_in(j) = yPole |
|
./pkg/exf/exf_interp_uv.F |
199 |
EXF_INTERP_UV |
y_in(j+1) = 2.*yPole - y_in(j-1) |
|
./pkg/exf/exf_interp_uv.F |
205 |
EXF_INTERP_UV |
j = nyIn+2 |
|
./pkg/exf/exf_interp_uv.F |
206 |
EXF_INTERP_UV |
IF ( ABS(y_in(j-1)).LT.yPole .AND. ABS(y_in(j)).GT.yPole ) THEN |
|
./pkg/exf/exf_interp_uv.F |
207 |
EXF_INTERP_UV |
y_in(j) = yPole |
|
./pkg/exf/exf_interp_uv.F |
216 |
EXF_INTERP_UV |
DO j=1,nyIn |
|
./pkg/exf/exf_interp_uv.F |
217 |
EXF_INTERP_UV |
arrUin( 0,j) = arrUin(nxIn ,j) |
|
./pkg/exf/exf_interp_uv.F |
218 |
EXF_INTERP_UV |
arrUin(-1,j) = arrUin(nxIn-1,j) |
|
./pkg/exf/exf_interp_uv.F |
219 |
EXF_INTERP_UV |
arrUin(nxIn+1,j) = arrUin(1,j) |
|
./pkg/exf/exf_interp_uv.F |
220 |
EXF_INTERP_UV |
arrUin(nxIn+2,j) = arrUin(2,j) |
|
./pkg/exf/exf_interp_uv.F |
221 |
EXF_INTERP_UV |
arrVin( 0,j) = arrVin(nxIn ,j) |
|
./pkg/exf/exf_interp_uv.F |
222 |
EXF_INTERP_UV |
arrVin(-1,j) = arrVin(nxIn-1,j) |
|
./pkg/exf/exf_interp_uv.F |
223 |
EXF_INTERP_UV |
arrVin(nxIn+1,j) = arrVin(1,j) |
|
./pkg/exf/exf_interp_uv.F |
224 |
EXF_INTERP_UV |
arrVin(nxIn+2,j) = arrVin(2,j) |
|
./pkg/exf/exf_interp_uv.F |
228 |
EXF_INTERP_UV |
DO j=1,nyIn |
|
./pkg/exf/exf_interp_uv.F |
229 |
EXF_INTERP_UV |
arrUin( 0,j) = arrUin(1,j) |
|
./pkg/exf/exf_interp_uv.F |
230 |
EXF_INTERP_UV |
arrUin(-1,j) = arrUin(1,j) |
|
./pkg/exf/exf_interp_uv.F |
231 |
EXF_INTERP_UV |
arrUin(nxIn+1,j) = arrUin(nxIn,j) |
|
./pkg/exf/exf_interp_uv.F |
232 |
EXF_INTERP_UV |
arrUin(nxIn+2,j) = arrUin(nxIn,j) |
|
./pkg/exf/exf_interp_uv.F |
233 |
EXF_INTERP_UV |
arrVin( 0,j) = arrVin(1,j) |
|
./pkg/exf/exf_interp_uv.F |
234 |
EXF_INTERP_UV |
arrVin(-1,j) = arrVin(1,j) |
|
./pkg/exf/exf_interp_uv.F |
235 |
EXF_INTERP_UV |
arrVin(nxIn+1,j) = arrVin(nxIn,j) |
|
./pkg/exf/exf_interp_uv.F |
236 |
EXF_INTERP_UV |
arrVin(nxIn+2,j) = arrVin(nxIn,j) |
|
./pkg/exf/exf_interp_uv.F |
241 |
EXF_INTERP_UV |
j = l |
|
./pkg/exf/exf_interp_uv.F |
242 |
EXF_INTERP_UV |
IF ( l.GE.1 ) j = nyIn+l |
|
./pkg/exf/exf_interp_uv.F |
243 |
EXF_INTERP_UV |
k = MAX(1,MIN(j,nyIn)) |
|
./pkg/exf/exf_interp_uv.F |
244 |
EXF_INTERP_UV |
IF ( poleSymmetry .AND. ABS(y_in(j)).GT.yPole ) THEN |
|
./pkg/exf/exf_interp_uv.F |
246 |
EXF_INTERP_UV |
& k = MAX(2,MIN(j,nyIn-1)) |
|
./pkg/exf/exf_interp_uv.F |
249 |
EXF_INTERP_UV |
arrUin(i,j) = symSign*arrUin(i+nxd2,k) |
|
./pkg/exf/exf_interp_uv.F |
250 |
EXF_INTERP_UV |
arrVin(i,j) = symSign*arrVin(i+nxd2,k) |
|
./pkg/exf/exf_interp_uv.F |
253 |
EXF_INTERP_UV |
arrUin(i+nxd2,j) = symSign*arrUin(i,k) |
|
./pkg/exf/exf_interp_uv.F |
254 |
EXF_INTERP_UV |
arrVin(i+nxd2,j) = symSign*arrVin(i,k) |
|
./pkg/exf/exf_interp_uv.F |
263 |
EXF_INTERP_UV |
arrUin(i,j) = arrUin(i,k) |
|
./pkg/exf/exf_interp_uv.F |
264 |
EXF_INTERP_UV |
arrVin(i,j) = arrVin(i,k) |
|
./pkg/exf/exf_interp_uv.F |
274 |
EXF_INTERP_UV |
j = l |
|
./pkg/exf/exf_interp_uv.F |
275 |
EXF_INTERP_UV |
IF ( l.GE.2 ) j = nyIn+l-2 |
|
./pkg/exf/exf_interp_uv.F |
276 |
EXF_INTERP_UV |
IF ( ABS(y_in(j)).EQ.yPole ) THEN |
|
./pkg/exf/exf_interp_uv.F |
277 |
EXF_INTERP_UV |
pSign = SIGN( oneRL, y_in(j) ) |
|
./pkg/exf/exf_interp_uv.F |
298 |
EXF_INTERP_UV |
& + ( csLon(i)*arrUin(i,j) - pSign*snLon(i)*arrVin(i,j) ) |
|
./pkg/exf/exf_interp_uv.F |
300 |
EXF_INTERP_UV |
& + ( pSign*snLon(i)*arrUin(i,j) + csLon(i)*arrVin(i,j) ) |
|
./pkg/exf/exf_interp_uv.F |
306 |
EXF_INTERP_UV |
arrUin(i,j) = csLon(i)*poleU + pSign*snLon(i)*poleV |
|
./pkg/exf/exf_interp_uv.F |
307 |
EXF_INTERP_UV |
arrVin(i,j) = -pSign*snLon(i)*poleU + csLon(i)*poleV |
|
./pkg/exf/exf_interp_uv.F |
319 |
EXF_INTERP_UV |
j = l*(nyIn+1) |
|
./pkg/exf/exf_interp_uv.F |
321 |
EXF_INTERP_UV |
edgeFac = (y_in(j) - y_in(k)) / (y_in(i) - y_in(k)) |
|
./pkg/exf/exf_interp_uv.F |
322 |
EXF_INTERP_UV |
poleFac = (y_in(i) - y_in(j)) / (y_in(i) - y_in(k)) |
|
./pkg/exf/exf_interp_uv.F |
324 |
EXF_INTERP_UV |
arrUin(i,j) = arrUin(i,j) * edgeFac |
|
./pkg/exf/exf_interp_uv.F |
326 |
EXF_INTERP_UV |
arrVin(i,j) = arrVin(i,j) * edgeFac |
|
./pkg/exf/exf_interp_uv.F |
348 |
EXF_INTERP_UV |
& ' proc=', (prtPole(j),j=-1,1), ', yIn=', (y_in(j),j=-1,1) |
|
./pkg/exf/exf_interp_uv.F |
352 |
EXF_INTERP_UV |
& ' proc=', (prtPole(j),j=2,4), ', yIn=',(y_in(j),j=nyIn,nyIn+2) |
|
./pkg/exf/exf_interp_uv.F |
369 |
EXF_INTERP_UV |
DO j=1-OLy,sNy+OLy |
|
./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 |
379 |
EXF_INTERP_UV |
DO j=1,sNy |
|
./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 |
415 |
EXF_INTERP_UV |
DO j=1,sNy |
|
./pkg/exf/exf_interp_uv.F |
417 |
EXF_INTERP_UV |
s_ind(i,j) = 0 |
|
./pkg/exf/exf_interp_uv.F |
418 |
EXF_INTERP_UV |
w_ind(i,j) = nyIn+1 |
|
./pkg/exf/exf_interp_uv.F |
426 |
EXF_INTERP_UV |
DO j=1,sNy |
|
./pkg/exf/exf_interp_uv.F |
428 |
EXF_INTERP_UV |
IF ( w_ind(i,j).GT.s_ind(i,j)+1 ) THEN |
|
./pkg/exf/exf_interp_uv.F |
429 |
EXF_INTERP_UV |
k = NINT( (s_ind(i,j)+w_ind(i,j))*0.5 ) |
|
./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 |
431 |
EXF_INTERP_UV |
w_ind(i,j) = k |
|
./pkg/exf/exf_interp_uv.F |
433 |
EXF_INTERP_UV |
s_ind(i,j) = k |
|
./pkg/exf/exf_interp_uv.F |
442 |
EXF_INTERP_UV |
DO j=1,sNy |
|
./pkg/exf/exf_interp_uv.F |
444 |
EXF_INTERP_UV |
IF ( w_ind(i,j).NE.s_ind(i,j)+1 ) 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 |
457 |
EXF_INTERP_UV |
& 'EXF_INTERP_UV: s_ind=',s_ind(i,j),', lat=',y_in(s_ind(i,j)) |
|
./pkg/exf/exf_interp_uv.F |
460 |
EXF_INTERP_UV |
& 'EXF_INTERP_UV: n_ind=',w_ind(i,j),', lat=',y_in(w_ind(i,j)) |
|
./pkg/exf/exf_interp_uv.F |
469 |
EXF_INTERP_UV |
DO j=1,sNy |
|
./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_interpolate.F |
128 |
EXF_INTERPOLATE |
INTEGER i, j, k, l |
|
./pkg/exf/exf_interpolate.F |
139 |
EXF_INTERPOLATE |
DO j=1,sNy |
|
./pkg/exf/exf_interpolate.F |
141 |
EXF_INTERPOLATE |
arrayout(i,j,bi,bj) = 0. |
|
./pkg/exf/exf_interpolate.F |
143 |
EXF_INTERPOLATE |
px_ind(l+1) = x_in(w_ind(i,j)+l) |
|
./pkg/exf/exf_interpolate.F |
144 |
EXF_INTERPOLATE |
py_ind(l+1) = y_in(s_ind(i,j)+l) |
|
./pkg/exf/exf_interpolate.F |
148 |
EXF_INTERPOLATE |
ew_val(k) = arrayin(w_ind(i,j) ,s_ind(i,j)+k-1) |
|
./pkg/exf/exf_interpolate.F |
149 |
EXF_INTERPOLATE |
& *LAGRAN(1,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
150 |
EXF_INTERPOLATE |
& + arrayin(w_ind(i,j)+1,s_ind(i,j)+k-1) |
|
./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 |
156 |
EXF_INTERPOLATE |
ew_val1 = arrayin(w_ind(i,j) ,s_ind(i,j) ) |
|
./pkg/exf/exf_interpolate.F |
157 |
EXF_INTERPOLATE |
& *LAGRAN(1,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
158 |
EXF_INTERPOLATE |
& + arrayin(w_ind(i,j)+1,s_ind(i,j) ) |
|
./pkg/exf/exf_interpolate.F |
159 |
EXF_INTERPOLATE |
& *LAGRAN(2,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
160 |
EXF_INTERPOLATE |
ew_val2 = arrayin(w_ind(i,j) ,s_ind(i,j)+1) |
|
./pkg/exf/exf_interpolate.F |
161 |
EXF_INTERPOLATE |
& *LAGRAN(1,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
162 |
EXF_INTERPOLATE |
& + arrayin(w_ind(i,j)+1,s_ind(i,j)+1) |
|
./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 |
174 |
EXF_INTERPOLATE |
DO j=1,sNy |
|
./pkg/exf/exf_interpolate.F |
176 |
EXF_INTERPOLATE |
arrayout(i,j,bi,bj) = 0. |
|
./pkg/exf/exf_interpolate.F |
178 |
EXF_INTERPOLATE |
px_ind(l+2) = x_in(w_ind(i,j)+l) |
|
./pkg/exf/exf_interpolate.F |
179 |
EXF_INTERPOLATE |
py_ind(l+2) = y_in(s_ind(i,j)+l) |
|
./pkg/exf/exf_interpolate.F |
183 |
EXF_INTERPOLATE |
ew_val(k) = arrayin(w_ind(i,j)-1,s_ind(i,j)+k-2) |
|
./pkg/exf/exf_interpolate.F |
184 |
EXF_INTERPOLATE |
& *LAGRAN(1,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
185 |
EXF_INTERPOLATE |
& + arrayin(w_ind(i,j) ,s_ind(i,j)+k-2) |
|
./pkg/exf/exf_interpolate.F |
186 |
EXF_INTERPOLATE |
& *LAGRAN(2,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
187 |
EXF_INTERPOLATE |
& + arrayin(w_ind(i,j)+1,s_ind(i,j)+k-2) |
|
./pkg/exf/exf_interpolate.F |
188 |
EXF_INTERPOLATE |
& *LAGRAN(3,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
189 |
EXF_INTERPOLATE |
& + arrayin(w_ind(i,j)+2,s_ind(i,j)+k-2) |
|
./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 |
195 |
EXF_INTERPOLATE |
ew_val1 = arrayin(w_ind(i,j)-1,s_ind(i,j)-1) |
|
./pkg/exf/exf_interpolate.F |
196 |
EXF_INTERPOLATE |
& *LAGRAN(1,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
197 |
EXF_INTERPOLATE |
& + arrayin(w_ind(i,j) ,s_ind(i,j)-1) |
|
./pkg/exf/exf_interpolate.F |
198 |
EXF_INTERPOLATE |
& *LAGRAN(2,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
199 |
EXF_INTERPOLATE |
& + arrayin(w_ind(i,j)+1,s_ind(i,j)-1) |
|
./pkg/exf/exf_interpolate.F |
200 |
EXF_INTERPOLATE |
& *LAGRAN(3,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
201 |
EXF_INTERPOLATE |
& + arrayin(w_ind(i,j)+2,s_ind(i,j)-1) |
|
./pkg/exf/exf_interpolate.F |
202 |
EXF_INTERPOLATE |
& *LAGRAN(4,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
203 |
EXF_INTERPOLATE |
ew_val2 = arrayin(w_ind(i,j)-1,s_ind(i,j) ) |
|
./pkg/exf/exf_interpolate.F |
204 |
EXF_INTERPOLATE |
& *LAGRAN(1,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
205 |
EXF_INTERPOLATE |
& + arrayin(w_ind(i,j) ,s_ind(i,j) ) |
|
./pkg/exf/exf_interpolate.F |
206 |
EXF_INTERPOLATE |
& *LAGRAN(2,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
207 |
EXF_INTERPOLATE |
& + arrayin(w_ind(i,j)+1,s_ind(i,j) ) |
|
./pkg/exf/exf_interpolate.F |
208 |
EXF_INTERPOLATE |
& *LAGRAN(3,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
209 |
EXF_INTERPOLATE |
& + arrayin(w_ind(i,j)+2,s_ind(i,j) ) |
|
./pkg/exf/exf_interpolate.F |
210 |
EXF_INTERPOLATE |
& *LAGRAN(4,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
211 |
EXF_INTERPOLATE |
ew_val3 = arrayin(w_ind(i,j)-1,s_ind(i,j)+1) |
|
./pkg/exf/exf_interpolate.F |
212 |
EXF_INTERPOLATE |
& *LAGRAN(1,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
213 |
EXF_INTERPOLATE |
& + arrayin(w_ind(i,j) ,s_ind(i,j)+1) |
|
./pkg/exf/exf_interpolate.F |
214 |
EXF_INTERPOLATE |
& *LAGRAN(2,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
215 |
EXF_INTERPOLATE |
& + arrayin(w_ind(i,j)+1,s_ind(i,j)+1) |
|
./pkg/exf/exf_interpolate.F |
216 |
EXF_INTERPOLATE |
& *LAGRAN(3,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
217 |
EXF_INTERPOLATE |
& + arrayin(w_ind(i,j)+2,s_ind(i,j)+1) |
|
./pkg/exf/exf_interpolate.F |
218 |
EXF_INTERPOLATE |
& *LAGRAN(4,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
219 |
EXF_INTERPOLATE |
ew_val4 = arrayin(w_ind(i,j)-1,s_ind(i,j)+2) |
|
./pkg/exf/exf_interpolate.F |
220 |
EXF_INTERPOLATE |
& *LAGRAN(1,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
221 |
EXF_INTERPOLATE |
& + arrayin(w_ind(i,j) ,s_ind(i,j)+2) |
|
./pkg/exf/exf_interpolate.F |
222 |
EXF_INTERPOLATE |
& *LAGRAN(2,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
223 |
EXF_INTERPOLATE |
& + arrayin(w_ind(i,j)+1,s_ind(i,j)+2) |
|
./pkg/exf/exf_interpolate.F |
224 |
EXF_INTERPOLATE |
& *LAGRAN(3,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
225 |
EXF_INTERPOLATE |
& + arrayin(w_ind(i,j)+2,s_ind(i,j)+2) |
|
./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_mapfields.F |
109 |
EXF_MAPFIELDS |
DO j = jmin,jmax |
|
./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 |
115 |
EXF_MAPFIELDS |
DO j = jmin,jmax |
|
./pkg/exf/exf_mapfields.F |
117 |
EXF_MAPFIELDS |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) - |
|
./pkg/exf/exf_mapfields.F |
125 |
EXF_MAPFIELDS |
DO j = jmin,jmax |
|
./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 |
132 |
EXF_MAPFIELDS |
DO j = jmin,jmax |
|
./pkg/exf/exf_mapfields.F |
134 |
EXF_MAPFIELDS |
EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj) - rhoConstFresh* |
|
./pkg/exf/exf_mapfields.F |
155 |
EXF_MAPFIELDS |
DO j = 1, sNy |
|
./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 |
169 |
EXF_MAPFIELDS |
DO j = 1, sNy |
|
./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 |
186 |
EXF_MAPFIELDS |
DO j = 1, sNy |
|
./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 |
196 |
EXF_MAPFIELDS |
DO j = 1, sNy |
|
./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 |
211 |
EXF_MAPFIELDS |
DO j = 1, sNy |
|
./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 |
225 |
EXF_MAPFIELDS |
DO j = jmin,jmax |
|
./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 |
236 |
EXF_MAPFIELDS |
DO j = jmin,jmax |
|
./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 |
244 |
EXF_MAPFIELDS |
DO j = jmin,jmax |
|
./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 |
250 |
EXF_MAPFIELDS |
DO j = jmin,jmax |
|
./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 |
263 |
EXF_MAPFIELDS |
DO j = jmin,jmax |
|
./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 |
274 |
EXF_MAPFIELDS |
DO j = jmin,jmax |
|
./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 |
282 |
EXF_MAPFIELDS |
DO j = jmin+1,jmax |
|
./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 |
288 |
EXF_MAPFIELDS |
DO j = jmin+1,jmax |
|
./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 |
300 |
EXF_MAPFIELDS |
DO j = jmin,jmax |
|
./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 |
308 |
EXF_MAPFIELDS |
DO j = jmin,jmax |
|
./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 |
316 |
EXF_MAPFIELDS |
DO j = jmin,jmax |
|
./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 |
324 |
EXF_MAPFIELDS |
DO j = jmin,jmax |
|
./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 |
332 |
EXF_MAPFIELDS |
DO j = jmin,jmax |
|
./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 |
340 |
EXF_MAPFIELDS |
DO j = jmin,jmax |
|
./pkg/exf/exf_mapfields.F |
348 |
EXF_MAPFIELDS |
DO j = jmin,jmax |
|
./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 |
82 |
EXF_MAPFIELDS |
INTEGER i,j,ks |
|
./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 |
147 |
EXF_RADIATION |
DO j = 1,sNy |
|
./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 |
163 |
EXF_RADIATION |
DO j = 1,sNy |
|
./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 |
171 |
EXF_RADIATION |
DO j = 1,sNy |
|
./pkg/exf/exf_radiation.F |
173 |
EXF_RADIATION |
swflux(i,j,bi,bj) = - swdown(i,j,bi,bj) |
|
./pkg/exf/exf_radiation.F |
48 |
EXF_RADIATION |
INTEGER i,j |
|
./pkg/exf/exf_radiation.F |
73 |
EXF_RADIATION |
DO j = 1,sNy |
|
./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 |
96 |
EXF_RADIATION |
DO j = 1,sNy |
|
./pkg/exf/exf_radiation.F |
98 |
EXF_RADIATION |
lwflux(i,j,bi,bj) = |
|
./pkg/exf/exf_readparms.F |
69 |
EXF_READPARMS |
INTEGER j |
|
./pkg/exf/exf_readparms.F |
876 |
EXF_READPARMS |
DO j=1,MAX_LAT_INC |
|
./pkg/exf/exf_readparms.F |
877 |
EXF_READPARMS |
IF (j.LT.gridNy) THEN |
|
./pkg/exf/exf_readparms.F |
878 |
EXF_READPARMS |
inp_dLat = (delY(j) + delY(j+1))*exf_half |
|
./pkg/exf/exf_readparms.F |
882 |
EXF_READPARMS |
ustress_lat_inc(j) = inp_dLat |
|
./pkg/exf/exf_readparms.F |
883 |
EXF_READPARMS |
vstress_lat_inc(j) = inp_dLat |
|
./pkg/exf/exf_readparms.F |
884 |
EXF_READPARMS |
hflux_lat_inc(j) = inp_dLat |
|
./pkg/exf/exf_readparms.F |
885 |
EXF_READPARMS |
sflux_lat_inc(j) = inp_dLat |
|
./pkg/exf/exf_readparms.F |
886 |
EXF_READPARMS |
swflux_lat_inc(j) = inp_dLat |
|
./pkg/exf/exf_readparms.F |
887 |
EXF_READPARMS |
runoff_lat_inc(j) = inp_dLat |
|
./pkg/exf/exf_readparms.F |
888 |
EXF_READPARMS |
saltflx_lat_inc(j) = inp_dLat |
|
./pkg/exf/exf_readparms.F |
889 |
EXF_READPARMS |
atemp_lat_inc(j) = inp_dLat |
|
./pkg/exf/exf_readparms.F |
890 |
EXF_READPARMS |
aqh_lat_inc(j) = inp_dLat |
|
./pkg/exf/exf_readparms.F |
891 |
EXF_READPARMS |
hs_lat_inc(j) = inp_dLat |
|
./pkg/exf/exf_readparms.F |
892 |
EXF_READPARMS |
hl_lat_inc(j) = inp_dLat |
|
./pkg/exf/exf_readparms.F |
893 |
EXF_READPARMS |
evap_lat_inc(j) = inp_dLat |
|
./pkg/exf/exf_readparms.F |
894 |
EXF_READPARMS |
precip_lat_inc(j) = inp_dLat |
|
./pkg/exf/exf_readparms.F |
895 |
EXF_READPARMS |
snowprecip_lat_inc(j)= inp_dLat |
|
./pkg/exf/exf_readparms.F |
896 |
EXF_READPARMS |
uwind_lat_inc(j) = inp_dLat |
|
./pkg/exf/exf_readparms.F |
897 |
EXF_READPARMS |
vwind_lat_inc(j) = inp_dLat |
|
./pkg/exf/exf_readparms.F |
898 |
EXF_READPARMS |
wspeed_lat_inc(j) = inp_dLat |
|
./pkg/exf/exf_readparms.F |
899 |
EXF_READPARMS |
lwflux_lat_inc(j) = inp_dLat |
|
./pkg/exf/exf_readparms.F |
900 |
EXF_READPARMS |
swdown_lat_inc(j) = inp_dLat |
|
./pkg/exf/exf_readparms.F |
901 |
EXF_READPARMS |
lwdown_lat_inc(j) = inp_dLat |
|
./pkg/exf/exf_readparms.F |
902 |
EXF_READPARMS |
apressure_lat_inc(j) = inp_dLat |
|
./pkg/exf/exf_readparms.F |
903 |
EXF_READPARMS |
tidePot_lat_inc(j) = inp_dLat |
|
./pkg/exf/exf_readparms.F |
904 |
EXF_READPARMS |
areamask_lat_inc(j) = inp_dLat |
|
./pkg/exf/exf_readparms.F |
905 |
EXF_READPARMS |
climsst_lat_inc(j) = inp_dLat |
|
./pkg/exf/exf_readparms.F |
906 |
EXF_READPARMS |
climsss_lat_inc(j) = inp_dLat |
|
./pkg/exf/exf_readparms.F |
907 |
EXF_READPARMS |
climustr_lat_inc(j) = inp_dLat |
|
./pkg/exf/exf_readparms.F |
908 |
EXF_READPARMS |
climvstr_lat_inc(j) = inp_dLat |
|
./pkg/exf/exf_set_fld.F |
105 |
EXF_SET_FLD |
INTEGER bi, bj, i, j |
|
./pkg/exf/exf_set_fld.F |
120 |
EXF_SET_FLD |
j = ILNBLNK(fldFile) |
|
./pkg/exf/exf_set_fld.F |
122 |
EXF_SET_FLD |
& 'processing field "', fldName, '", file: ', fldFile(1:j) |
|
./pkg/exf/exf_set_fld.F |
138 |
EXF_SET_FLD |
j = ILNBLNK(fldFile) |
|
./pkg/exf/exf_set_fld.F |
141 |
EXF_SET_FLD |
& ' for file: ', fldFile(1:j) |
|
./pkg/exf/exf_set_fld.F |
175 |
EXF_SET_FLD |
j = ILNBLNK(locFile0) |
|
./pkg/exf/exf_set_fld.F |
182 |
EXF_SET_FLD |
& ' from file: "', locFile0(1:j), '"' |
|
./pkg/exf/exf_set_fld.F |
210 |
EXF_SET_FLD |
j = ILNBLNK(locFile0) |
|
./pkg/exf/exf_set_fld.F |
211 |
EXF_SET_FLD |
WRITE(out_file,'(2A)') locFile0(1:j), '_out' |
|
./pkg/exf/exf_set_fld.F |
234 |
EXF_SET_FLD |
j = ILNBLNK(locFile1) |
|
./pkg/exf/exf_set_fld.F |
241 |
EXF_SET_FLD |
& ' from file: "', locFile1(1:j), '"' |
|
./pkg/exf/exf_set_fld.F |
269 |
EXF_SET_FLD |
j = ILNBLNK(locFile1) |
|
./pkg/exf/exf_set_fld.F |
270 |
EXF_SET_FLD |
WRITE(out_file,'(2A)') locFile1(1:j), '_out' |
|
./pkg/exf/exf_set_fld.F |
284 |
EXF_SET_FLD |
DO j = 1,sNy |
|
./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 |
175 |
EXF_SET_OBCS_YZ |
INTEGER j, k |
|
./pkg/exf/exf_set_obcs.F |
213 |
EXF_SET_OBCS_YZ |
DO j = 1,sNy |
|
./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 |
382 |
EXF_SET_OBCS_Y |
INTEGER bi, bj, j |
|
./pkg/exf/exf_set_obcs.F |
417 |
EXF_SET_OBCS_Y |
DO j = 1,sNy |
|
./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_uv.F |
108 |
EXF_SET_UV |
INTEGER i, j, bi, bj |
|
./pkg/exf/exf_set_uv.F |
139 |
EXF_SET_UV |
j = ILNBLNK(vVecFile) |
|
./pkg/exf/exf_set_uv.F |
145 |
EXF_SET_UV |
& ' files: ', uVecFile(1:i), ' & ', vVecFile(1:j) |
|
./pkg/exf/exf_set_uv.F |
160 |
EXF_SET_UV |
j = ILNBLNK(uVecFile) |
|
./pkg/exf/exf_set_uv.F |
163 |
EXF_SET_UV |
& ' for file: ', uVecFile(1:j) |
|
./pkg/exf/exf_set_uv.F |
207 |
EXF_SET_UV |
j = ILNBLNK(uVecFile0) |
|
./pkg/exf/exf_set_uv.F |
209 |
EXF_SET_UV |
& 'loading rec=', count0, ' from file: "', uVecFile0(1:j), '"' |
|
./pkg/exf/exf_set_uv.F |
212 |
EXF_SET_UV |
j = ILNBLNK(vVecFile0) |
|
./pkg/exf/exf_set_uv.F |
214 |
EXF_SET_UV |
& 'loading rec=', count0, ' from file: "', vVecFile0(1:j), '"' |
|
./pkg/exf/exf_set_uv.F |
264 |
EXF_SET_UV |
j = ILNBLNK(uVecFile0) |
|
./pkg/exf/exf_set_uv.F |
265 |
EXF_SET_UV |
WRITE(out_uVecFile,'(2A)') uVecFile0(1:j), '_out' |
|
./pkg/exf/exf_set_uv.F |
269 |
EXF_SET_UV |
j = ILNBLNK(vVecFile0) |
|
./pkg/exf/exf_set_uv.F |
270 |
EXF_SET_UV |
WRITE(out_vVecFile,'(2A)') vVecFile0(1:j), '_out' |
|
./pkg/exf/exf_set_uv.F |
280 |
EXF_SET_UV |
DO j = 1,sNy |
|
./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 |
286 |
EXF_SET_UV |
DO j = 1,sNy |
|
./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 |
334 |
EXF_SET_UV |
DO j = 1,sNy |
|
./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 |
372 |
EXF_SET_UV |
j = ILNBLNK(uVecFile1) |
|
./pkg/exf/exf_set_uv.F |
374 |
EXF_SET_UV |
& 'loading rec=', count1, ' from file: "', uVecFile1(1:j), '"' |
|
./pkg/exf/exf_set_uv.F |
377 |
EXF_SET_UV |
j = ILNBLNK(vVecFile1) |
|
./pkg/exf/exf_set_uv.F |
379 |
EXF_SET_UV |
& 'loading rec=', count1, ' from file: "', vVecFile1(1:j), '"' |
|
./pkg/exf/exf_set_uv.F |
429 |
EXF_SET_UV |
j = ILNBLNK(uVecFile1) |
|
./pkg/exf/exf_set_uv.F |
430 |
EXF_SET_UV |
WRITE(out_uVecFile,'(2A)') uVecFile1(1:j), '_out' |
|
./pkg/exf/exf_set_uv.F |
432 |
EXF_SET_UV |
j = ILNBLNK(vVecFile1) |
|
./pkg/exf/exf_set_uv.F |
433 |
EXF_SET_UV |
WRITE(out_vVecFile,'(2A)') vVecFile1(1:j), '_out' |
|
./pkg/exf/exf_set_uv.F |
441 |
EXF_SET_UV |
DO j = 1,sNy |
|
./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 |
447 |
EXF_SET_UV |
DO j = 1,sNy |
|
./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 |
495 |
EXF_SET_UV |
DO j = 1,sNy |
|
./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 |
514 |
EXF_SET_UV |
DO j = 1,sNy |
|
./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 |
558 |
EXF_SET_UV |
DO j = 1,sNy |
|
./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 |
568 |
EXF_SET_UV |
DO j = 1,sNy |
|
./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 |
104 |
EXF_SWAPFFIELDS_3D |
INTEGER i, j, k |
|
./pkg/exf/exf_swapffields.F |
111 |
EXF_SWAPFFIELDS_3D |
DO j = 1,sNy |
|
./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 |
210 |
EXF_SWAPFFIELDS_YZ |
INTEGER j, k |
|
./pkg/exf/exf_swapffields.F |
217 |
EXF_SWAPFFIELDS_YZ |
DO j = 1,sNy |
|
./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 |
54 |
EXF_SWAPFFIELDS |
INTEGER i, j |
|
./pkg/exf/exf_swapffields.F |
60 |
EXF_SWAPFFIELDS |
DO j = 1,sNy |
|
./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 |
114 |
EXF_WIND |
DO j = 1,sNy |
|
./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 |
119 |
EXF_WIND |
wsLoc(i,j) = SQRT(wsSq) |
|
./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 |
123 |
EXF_WIND |
wsLoc(i,j) = 0. _d 0 |
|
./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 |
131 |
EXF_WIND |
DO j = 1,sNy |
|
./pkg/exf/exf_wind.F |
133 |
EXF_WIND |
wspeed(i,j,bi,bj) = wsLoc(i,j) |
|
./pkg/exf/exf_wind.F |
143 |
EXF_WIND |
DO j = 1,sNy |
|
./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 |
177 |
EXF_WIND |
DO j = 1,sNy |
|
./pkg/exf/exf_wind.F |
179 |
EXF_WIND |
ustar = wStress(i,j,bi,bj)*recip_sqrtRhoA |
|
./pkg/exf/exf_wind.F |
181 |
EXF_WIND |
wsLoc(i,j) = 0. _d 0 |
|
./pkg/exf/exf_wind.F |
185 |
EXF_WIND |
wsLoc(i,j) = SQRT(tmp1 + tmp2) |
|
./pkg/exf/exf_wind.F |
194 |
EXF_WIND |
wsLoc(i,j) = tmp4 + tmp1*tmp1 / tmp4 - tmp1 |
|
./pkg/exf/exf_wind.F |
201 |
EXF_WIND |
DO j = 1,sNy |
|
./pkg/exf/exf_wind.F |
203 |
EXF_WIND |
wspeed(i,j,bi,bj) = wsLoc(i,j) |
|
./pkg/exf/exf_wind.F |
218 |
EXF_WIND |
DO j = 1,sNy |
|
./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 |
230 |
EXF_WIND |
DO j = 1,sNy |
|
./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 |
246 |
EXF_WIND |
DO j = 1,sNy |
|
./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 |
258 |
EXF_WIND |
DO j = 1,sNy |
|
./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 |
58 |
EXF_WIND |
INTEGER i,j |
|
./pkg/exf/exf_wind.F |
95 |
EXF_WIND |
DO j = 1,sNy |
|
./pkg/exf/exf_wind.F |
97 |
EXF_WIND |
wsLoc(i,j) = 0. _d 0 |
|
./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 |
119 |
EXF_ZENITHANGLE |
DO j = 1,sNy |
|
./pkg/exf/exf_zenithangle.F |
121 |
EXF_ZENITHANGLE |
zen_albedo (i,j,bi,bj) = exf_albedo |
|
./pkg/exf/exf_zenithangle.F |
138 |
EXF_ZENITHANGLE |
DO j = 1,sNy |
|
./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 |
189 |
EXF_ZENITHANGLE |
DO j = 1,sNy |
|
./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 |
299 |
EXF_ZENITHANGLE |
DO j = 1,sNy |
|
./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 |
124 |
EXF_ZENITHANGLE_TABLE |
DO j = 1,sNy |
|
./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 |
36 |
EXF_ZENITHANGLE_TABLE |
INTEGER i,j |
|
./pkg/fizhi/AtoC.F |
40 |
ATOC |
integer i, j, L, bi, bj |
|
./pkg/fizhi/AtoC.F |
54 |
ATOC |
do j = jdim1,jdim2 |
|
./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 |
60 |
ATOC |
do j = jm1,jm2 |
|
./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 |
71 |
ATOC |
. ( tmpfld1(i-1,j) + tmpfld1(i,j) ) / |
|
./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 |
83 |
ATOC |
. ( tmpfld2(i,j-1) + tmpfld2(i,j) ) / |
|
./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 |
56 |
CTOA |
do j = jdim1,jdim2 |
|
./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 |
62 |
CTOA |
do j = jm1,jm2 |
|
./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 |
71 |
CTOA |
. ( tmpfld1(i,j) + tmpfld1(i+1,j) ) / |
|
./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 |
83 |
CTOA |
. ( tmpfld2(i,j) + tmpfld2(i,j+1) ) / |
|
./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/cah-dat.h |
20 |
NO PROCEDURE |
data ((cah(i,j),i=1,22),j= 6,10)/ |
|
./pkg/fizhi/cah-dat.h |
35 |
NO PROCEDURE |
data ((cah(i,j),i=1,22),j=11,15)/ |
|
./pkg/fizhi/cah-dat.h |
50 |
NO PROCEDURE |
data ((cah(i,j),i=1,22),j=16,19)/ |
|
./pkg/fizhi/cah-dat.h |
5 |
NO PROCEDURE |
data ((cah(i,j),i=1,22),j= 1, 5)/ |
|
./pkg/fizhi/cai-dat.h |
104 |
NO PROCEDURE |
data ((caib(11,i,j),j=1,11),i=1,9)/ |
|
./pkg/fizhi/cai-dat.h |
115 |
NO PROCEDURE |
data ((caif(i,j),j=1,11),i=1,9)/ |
|
./pkg/fizhi/cai-dat.h |
14 |
NO PROCEDURE |
data ((caib(2,i,j),j=1,11),i=1,9)/ |
|
./pkg/fizhi/cai-dat.h |
24 |
NO PROCEDURE |
data ((caib(3,i,j),j=1,11),i=1,9)/ |
|
./pkg/fizhi/cai-dat.h |
34 |
NO PROCEDURE |
data ((caib(4,i,j),j=1,11),i=1,9)/ |
|
./pkg/fizhi/cai-dat.h |
44 |
NO PROCEDURE |
data ((caib(5,i,j),j=1,11),i=1,9)/ |
|
./pkg/fizhi/cai-dat.h |
4 |
NO PROCEDURE |
data ((caib(1,i,j),j=1,11),i=1,9)/ |
|
./pkg/fizhi/cai-dat.h |
54 |
NO PROCEDURE |
data ((caib(6,i,j),j=1,11),i=1,9)/ |
|
./pkg/fizhi/cai-dat.h |
64 |
NO PROCEDURE |
data ((caib(7,i,j),j=1,11),i=1,9)/ |
|
./pkg/fizhi/cai-dat.h |
74 |
NO PROCEDURE |
data ((caib(8,i,j),j=1,11),i=1,9)/ |
|
./pkg/fizhi/cai-dat.h |
84 |
NO PROCEDURE |
data ((caib(9,i,j),j=1,11),i=1,9)/ |
|
./pkg/fizhi/cai-dat.h |
94 |
NO PROCEDURE |
data ((caib(10,i,j),j=1,11),i=1,9)/ |
|
./pkg/fizhi/do_fizhi.F |
131 |
DO_FIZHI |
INTEGER i,j,L |
|
./pkg/fizhi/do_fizhi.F |
169 |
DO_FIZHI |
do j = jm1,jm2 |
|
./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 |
182 |
DO_FIZHI |
do j=jm1,jm2 |
|
./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 |
192 |
DO_FIZHI |
do j = jm1,jm2 |
|
./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 |
204 |
DO_FIZHI |
do j = jm1,jm2 |
|
./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 |
269 |
DO_FIZHI |
do j = jm1,jm2 |
|
./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 |
287 |
DO_FIZHI |
do j = jm1,jm2 |
|
./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 |
298 |
DO_FIZHI |
do j = jm1,jm2 |
|
./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/fizhi_driver.F |
117 |
FIZHI_DRIVER |
INTEGER i,j |
|
./pkg/fizhi/fizhi_driver.F |
181 |
FIZHI_DRIVER |
do j=1,jm |
|
./pkg/fizhi/fizhi_driver.F |
183 |
FIZHI_DRIVER |
tg0(i,j) = tgz(i,j) |
|
./pkg/fizhi/fizhi_fillnegs.F |
120 |
TRACER_FILL |
do j=2,jm-1 |
|
./pkg/fizhi/fizhi_fillnegs.F |
121 |
TRACER_FILL |
phi(j) = phi(j-1) + dphi(j-1) |
|
./pkg/fizhi/fizhi_fillnegs.F |
127 |
TRACER_FILL |
do j=2,jm-1 |
|
./pkg/fizhi/fizhi_fillnegs.F |
129 |
TRACER_FILL |
dxu(i,j) = a*cos(phi(j))*dlam(i) |
|
./pkg/fizhi/fizhi_fillnegs.F |
133 |
TRACER_FILL |
do j=2,jm-2 |
|
./pkg/fizhi/fizhi_fillnegs.F |
135 |
TRACER_FILL |
dyv(i,j) = a*dphi(j) |
|
./pkg/fizhi/fizhi_fillnegs.F |
145 |
TRACER_FILL |
do j=2,jm-1 |
|
./pkg/fizhi/fizhi_fillnegs.F |
148 |
TRACER_FILL |
dxp(i,j) = ( dxu(i,j)+dxu(im1,j) )*0.5 |
|
./pkg/fizhi/fizhi_fillnegs.F |
153 |
TRACER_FILL |
do j=2,jm-2 |
|
./pkg/fizhi/fizhi_fillnegs.F |
155 |
TRACER_FILL |
dxv(i,j) = ( dxp(i,j)+dxp(i,j+1) )*0.5 |
|
./pkg/fizhi/fizhi_fillnegs.F |
161 |
TRACER_FILL |
do j=3,jm-2 |
|
./pkg/fizhi/fizhi_fillnegs.F |
163 |
TRACER_FILL |
dyp(i,j) = ( dyv(i,j)+dyv(i,j-1) )*0.5 |
|
./pkg/fizhi/fizhi_fillnegs.F |
173 |
TRACER_FILL |
do j=3,jm-2 |
|
./pkg/fizhi/fizhi_fillnegs.F |
175 |
TRACER_FILL |
d2p(i,j) = 0.5*( dxv(i,j)+dxv(i,j-1) )*dyp(i,j) |
|
./pkg/fizhi/fizhi_fillnegs.F |
190 |
TRACER_FILL |
do j=2,jm-1 |
|
./pkg/fizhi/fizhi_fillnegs.F |
196 |
TRACER_FILL |
if( pq(i,j,L).lt.0.0 ) then |
|
./pkg/fizhi/fizhi_fillnegs.F |
198 |
TRACER_FILL |
qval = pq(i ,j,L)*d2p(i ,j)*dp(i,j,L) |
|
./pkg/fizhi/fizhi_fillnegs.F |
199 |
TRACER_FILL |
array(1) = pq(ip1,j,L)*d2p(ip1,j)*dp(i,j,L) |
|
./pkg/fizhi/fizhi_fillnegs.F |
200 |
TRACER_FILL |
array(2) = pq(im1,j,L)*d2p(im1,j)*dp(i,j,L) |
|
./pkg/fizhi/fizhi_fillnegs.F |
202 |
TRACER_FILL |
if( j.eq.jm-1 ) then |
|
./pkg/fizhi/fizhi_fillnegs.F |
205 |
TRACER_FILL |
array(3) = pq(i,j+1,L)*d2p(i,j+1)*dp(i,j,L) |
|
./pkg/fizhi/fizhi_fillnegs.F |
207 |
TRACER_FILL |
if( j.eq.2 ) then |
|
./pkg/fizhi/fizhi_fillnegs.F |
210 |
TRACER_FILL |
array(4) = pq(i,j-1,L)*d2p(i,j-1)*dp(i,j,L) |
|
./pkg/fizhi/fizhi_fillnegs.F |
215 |
TRACER_FILL |
array(5) = pq(i,j,L-1)*d2p(i,j)*dp(i,j,L) |
|
./pkg/fizhi/fizhi_fillnegs.F |
220 |
TRACER_FILL |
array(6) = pq(i,j,L+1)*d2p(i,j)*dp(i,j,L) |
|
./pkg/fizhi/fizhi_fillnegs.F |
232 |
TRACER_FILL |
if( array(1).gt.0 ) pq(ip1,j,L) = pq(ip1,j,L) * fact |
|
./pkg/fizhi/fizhi_fillnegs.F |
233 |
TRACER_FILL |
if( array(2).gt.0 ) pq(im1,j,L) = pq(im1,j,L) * fact |
|
./pkg/fizhi/fizhi_fillnegs.F |
234 |
TRACER_FILL |
if( array(3).gt.0 ) pq(i,j+1,L) = pq(i,j+1,L) * fact |
|
./pkg/fizhi/fizhi_fillnegs.F |
235 |
TRACER_FILL |
if( array(4).gt.0 ) pq(i,j-1,L) = pq(i,j-1,L) * fact |
|
./pkg/fizhi/fizhi_fillnegs.F |
236 |
TRACER_FILL |
if( array(5).gt.0 ) pq(i,j,L-1) = pq(i,j,L-1) * fact |
|
./pkg/fizhi/fizhi_fillnegs.F |
237 |
TRACER_FILL |
if( array(6).gt.0 ) pq(i,j,L+1) = pq(i,j,L+1) * fact |
|
./pkg/fizhi/fizhi_fillnegs.F |
238 |
TRACER_FILL |
pq(i,j,L) = 0.0 |
|
./pkg/fizhi/fizhi_fillnegs.F |
240 |
TRACER_FILL |
pq(i,j,L) = 0.0 |
|
./pkg/fizhi/fizhi_fillnegs.F |
243 |
TRACER_FILL |
if( imax.eq.1 ) pq(ip1,j,L) = pq(ip1,j,L) + |
|
./pkg/fizhi/fizhi_fillnegs.F |
244 |
TRACER_FILL |
. pq(i,j,L)*d2p(i,j)/d2p(ip1,j) |
|
./pkg/fizhi/fizhi_fillnegs.F |
245 |
TRACER_FILL |
if( imax.eq.2 ) pq(im1,j,L) = pq(im1,j,L) + |
|
./pkg/fizhi/fizhi_fillnegs.F |
246 |
TRACER_FILL |
. pq(i,j,L)*d2p(i,j)/d2p(im1,j) |
|
./pkg/fizhi/fizhi_fillnegs.F |
247 |
TRACER_FILL |
if( imax.eq.3 ) pq(i,j+1,L) = pq(i,j+1,L) + |
|
./pkg/fizhi/fizhi_fillnegs.F |
248 |
TRACER_FILL |
. pq(i,j,L)*d2p(i,j)/d2p(i,j+1) |
|
./pkg/fizhi/fizhi_fillnegs.F |
249 |
TRACER_FILL |
if( imax.eq.4 ) pq(i,j-1,L) = pq(i,j-1,L) + |
|
./pkg/fizhi/fizhi_fillnegs.F |
250 |
TRACER_FILL |
. pq(i,j,L)*d2p(i,j)/d2p(i,j-1) |
|
./pkg/fizhi/fizhi_fillnegs.F |
251 |
TRACER_FILL |
if( imax.eq.5 ) pq(i,j,L-1) = pq(i,j,L-1) + |
|
./pkg/fizhi/fizhi_fillnegs.F |
252 |
TRACER_FILL |
. pq(i,j,L)*dp(i,j,L) /dp(i,j,L-1) |
|
./pkg/fizhi/fizhi_fillnegs.F |
253 |
TRACER_FILL |
if( imax.eq.6 ) pq(i,j,L+1) = pq(i,j,L+1) + |
|
./pkg/fizhi/fizhi_fillnegs.F |
254 |
TRACER_FILL |
. pq(i,j,L)*dp(i,j,L) /dp(i,j,L+1) |
|
./pkg/fizhi/fizhi_fillnegs.F |
255 |
TRACER_FILL |
pq(i,j,L) = 0.0 |
|
./pkg/fizhi/fizhi_fillnegs.F |
31 |
QCHECK |
integer i,j,L,LM1 |
|
./pkg/fizhi/fizhi_fillnegs.F |
38 |
QCHECK |
do j=jm1,jm2 |
|
./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 |
49 |
QCHECK |
do j=jm1,jm2 |
|
./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 |
89 |
TRACER_FILL |
integer i,j,l,im1,ip1,imax,m |
|
./pkg/fizhi/fizhi_gwdrag.F |
102 |
GWDRAG |
if( pz(i,j)-ple(i,j,Lm+2-nthini).gt.25. ) then |
|
./pkg/fizhi/fizhi_gwdrag.F |
103 |
GWDRAG |
nthin(i,j) = nthini |
|
./pkg/fizhi/fizhi_gwdrag.F |
109 |
GWDRAG |
if( ple(i,j,Lm+2-nbasei).lt.(0.667*pz(i,j)) ) then |
|
./pkg/fizhi/fizhi_gwdrag.F |
110 |
GWDRAG |
nbase(i,j) = nbasei |
|
./pkg/fizhi/fizhi_gwdrag.F |
115 |
GWDRAG |
if( (0.667*pz(i,j))-ple(i,j,Lm+2-nbase(i,j)) .gt. |
|
./pkg/fizhi/fizhi_gwdrag.F |
116 |
GWDRAG |
. ple(i,j,Lm+3-nbase(i,j))-(0.667*pz(i,j)) ) then |
|
./pkg/fizhi/fizhi_gwdrag.F |
117 |
GWDRAG |
nbase(i,j) = nbase(i,j)-1 |
|
./pkg/fizhi/fizhi_gwdrag.F |
126 |
GWDRAG |
do j=1,jm |
|
./pkg/fizhi/fizhi_gwdrag.F |
128 |
GWDRAG |
phis_std(i,j) = min( 400.0 _d 0, sqrt( max(0.0 _d 0, |
|
./pkg/fizhi/fizhi_gwdrag.F |
129 |
GWDRAG |
$ phis_var(i,j)) )/grav ) |
|
./pkg/fizhi/fizhi_gwdrag.F |
136 |
GWDRAG |
do j = 1,jm |
|
./pkg/fizhi/fizhi_gwdrag.F |
138 |
GWDRAG |
tv(i,j,L) = tz(i,j,L)*pkz(i,j,L)*(1.+.609*qz(i,j,L)) |
|
./pkg/fizhi/fizhi_gwdrag.F |
144 |
GWDRAG |
do j = 1,jm |
|
./pkg/fizhi/fizhi_gwdrag.F |
146 |
GWDRAG |
dragu(i,j,L) = 0. |
|
./pkg/fizhi/fizhi_gwdrag.F |
147 |
GWDRAG |
dragv(i,j,L) = 0. |
|
./pkg/fizhi/fizhi_gwdrag.F |
148 |
GWDRAG |
dragt(i,j,L) = 0. |
|
./pkg/fizhi/fizhi_gwdrag.F |
185 |
GWDRAG |
do j = 1,jm |
|
./pkg/fizhi/fizhi_gwdrag.F |
187 |
GWDRAG |
dragu(i,j,L) = sign( min(0.006 _d 0,abs(dragu(i,j,L))), dragu(i |
|
./pkg/fizhi/fizhi_gwdrag.F |
188 |
GWDRAG |
$ ,j,L) ) |
|
./pkg/fizhi/fizhi_gwdrag.F |
189 |
GWDRAG |
dragv(i,j,L) = sign( min(0.006 _d 0,abs(dragv(i,j,L))), dragv(i |
|
./pkg/fizhi/fizhi_gwdrag.F |
190 |
GWDRAG |
$ ,j,L) ) |
|
./pkg/fizhi/fizhi_gwdrag.F |
191 |
GWDRAG |
dragt(i,j,L) = -( uz(i,j,L)*dragu(i,j,L)+vz(i,j,L)*dragv(i,j,L) ) |
|
./pkg/fizhi/fizhi_gwdrag.F |
193 |
GWDRAG |
dudt(i,j,L) = dudt(i,j,L) + dragu(i,j,L) |
|
./pkg/fizhi/fizhi_gwdrag.F |
194 |
GWDRAG |
dvdt(i,j,L) = dvdt(i,j,L) + dragv(i,j,L) |
|
./pkg/fizhi/fizhi_gwdrag.F |
195 |
GWDRAG |
dtdt(i,j,L) = dtdt(i,j,L) + dragt(i,j,L)*pz(i,j)/pkz(i,j,L) |
|
./pkg/fizhi/fizhi_gwdrag.F |
206 |
GWDRAG |
do j=1,jm |
|
./pkg/fizhi/fizhi_gwdrag.F |
208 |
GWDRAG |
tmpdiag(i,j) = dragu(i,j,L)*86400 |
|
./pkg/fizhi/fizhi_gwdrag.F |
215 |
GWDRAG |
do j=1,jm |
|
./pkg/fizhi/fizhi_gwdrag.F |
217 |
GWDRAG |
tmpdiag(i,j) = dragv(i,j,L)*86400 |
|
./pkg/fizhi/fizhi_gwdrag.F |
224 |
GWDRAG |
do j=1,jm |
|
./pkg/fizhi/fizhi_gwdrag.F |
226 |
GWDRAG |
tmpdiag(i,j) = dragt(i,j,L)*86400 |
|
./pkg/fizhi/fizhi_gwdrag.F |
249 |
GWDRAG |
do j = 1,jm |
|
./pkg/fizhi/fizhi_gwdrag.F |
251 |
GWDRAG |
sumu(i,j) = 0.0 |
|
./pkg/fizhi/fizhi_gwdrag.F |
255 |
GWDRAG |
do j = 1,jm |
|
./pkg/fizhi/fizhi_gwdrag.F |
257 |
GWDRAG |
sumu(i,j) = sumu(i,j) + dragu(i,j,L)*dpres(i,j,L)/pz(i,j) |
|
./pkg/fizhi/fizhi_gwdrag.F |
261 |
GWDRAG |
do j=1,jm |
|
./pkg/fizhi/fizhi_gwdrag.F |
263 |
GWDRAG |
tmpdiag(i,j) = dragx(i,j) + sumu(i,j)*pz(i,j)/grav*100 |
|
./pkg/fizhi/fizhi_gwdrag.F |
272 |
GWDRAG |
do j = 1,jm |
|
./pkg/fizhi/fizhi_gwdrag.F |
274 |
GWDRAG |
sumu(i,j) = 0.0 |
|
./pkg/fizhi/fizhi_gwdrag.F |
278 |
GWDRAG |
do j = 1,jm |
|
./pkg/fizhi/fizhi_gwdrag.F |
280 |
GWDRAG |
sumu(i,j) = sumu(i,j) + dragv(i,j,L)*dpres(i,j,L)/pz(i,j) |
|
./pkg/fizhi/fizhi_gwdrag.F |
284 |
GWDRAG |
do j=1,jm |
|
./pkg/fizhi/fizhi_gwdrag.F |
286 |
GWDRAG |
tmpdiag(i,j) = dragy(i,j) + sumu(i,j)*pz(i,j)/grav*100 |
|
./pkg/fizhi/fizhi_gwdrag.F |
78 |
GWDRAG |
integer n,i,j,L |
|
./pkg/fizhi/fizhi_gwdrag.F |
98 |
GWDRAG |
do j=1,jm |
|
./pkg/fizhi/fizhi_init_fixed.F |
113 |
FIZHI_INIT_FIXED |
do j=jm1,jm2 |
|
./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 |
155 |
FIZHI_INIT_FIXED |
do j=jm1,jm2 |
|
./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 |
87 |
FIZHI_INIT_FIXED |
do j = jm1,jm2 |
|
./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 |
100 |
FIZHI_INIT_VARS |
do j = 1,sNy |
|
./pkg/fizhi/fizhi_init_vars.F |
103 |
FIZHI_INIT_VARS |
pedyn(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
107 |
FIZHI_INIT_VARS |
do j = 1,sNy |
|
./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 |
114 |
FIZHI_INIT_VARS |
do j = 1,sNy |
|
./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 |
127 |
FIZHI_INIT_VARS |
do j = 1,sNy |
|
./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 |
143 |
FIZHI_INIT_VARS |
do j = 1,sNy |
|
./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 |
167 |
FIZHI_INIT_VARS |
do j = 1,sNy |
|
./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 |
176 |
FIZHI_INIT_VARS |
do j = 1,sNy |
|
./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 |
185 |
FIZHI_INIT_VARS |
do j = 1,sNy |
|
./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 |
194 |
FIZHI_INIT_VARS |
do j = 1,sNy |
|
./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 |
203 |
FIZHI_INIT_VARS |
do j = 1,sNy |
|
./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 |
215 |
FIZHI_INIT_VARS |
do j = jm1,jm2 |
|
./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 |
261 |
FIZHI_INIT_VARS |
do j = 1,sNy |
|
./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 |
278 |
FIZHI_INIT_VARS |
do j = 1,sNy |
|
./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 |
60 |
FIZHI_INIT_VARS |
INTEGER i, j, L, bi, bj, Lbotij |
|
./pkg/fizhi/fizhi_init_veg.F |
133 |
FIZHI_INIT_VEG |
do j = 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 |
166 |
FIZHI_INIT_VEG |
do j=1,jm |
|
./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 |
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 |
184 |
FIZHI_INIT_VEG |
do j=1,jm |
|
./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 |
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 |
67 |
FIZHI_INIT_VEG |
INTEGER i,j,k,bi,bj |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
108 |
FIZHI_INIT_VEGSURFTILES |
do j = 1,sNy |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
110 |
FIZHI_INIT_VEGSURFTILES |
tempgrid(i,j) = globalarr(i+bislot,j+bjslot,2) |
|
./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 |
112 |
FIZHI_INIT_VEGSURFTILES |
. tempgrid(i,j) = globalarr(i+bislot,j+bjslot,1) - 0.5 |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
121 |
FIZHI_INIT_VEGSURFTILES |
do j = 1,sNy |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
123 |
FIZHI_INIT_VEGSURFTILES |
tempgrid(i,j) = globalarr(i+bislot,j+bjslot,3) |
|
./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 |
125 |
FIZHI_INIT_VEGSURFTILES |
. tempgrid(i,j) = 0.01 |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
134 |
FIZHI_INIT_VEGSURFTILES |
do j = 1,sNy |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
136 |
FIZHI_INIT_VEGSURFTILES |
tempgrid(i,j) = globalarr(i+bislot,j+bjslot,4) |
|
./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 |
138 |
FIZHI_INIT_VEGSURFTILES |
. tempgrid(i,j) = 0.7 |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
147 |
FIZHI_INIT_VEGSURFTILES |
do j = 1,sNy |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
149 |
FIZHI_INIT_VEGSURFTILES |
tempgrid(i,j) = globalarr(i+bislot,j+bjslot,5) |
|
./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 |
151 |
FIZHI_INIT_VEGSURFTILES |
. tempgrid(i,j) = 0.5 |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
160 |
FIZHI_INIT_VEGSURFTILES |
do j = 1,sNy |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
162 |
FIZHI_INIT_VEGSURFTILES |
tempgrid(i,j) = globalarr(i+bislot,j+bjslot,6) |
|
./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 |
164 |
FIZHI_INIT_VEGSURFTILES |
. tempgrid(i,j) = 0.3 |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
173 |
FIZHI_INIT_VEGSURFTILES |
do j = 1,sNy |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
175 |
FIZHI_INIT_VEGSURFTILES |
tempgrid(i,j) = globalarr(i+bislot,j+bjslot,7) |
|
./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 |
177 |
FIZHI_INIT_VEGSURFTILES |
. tempgrid(i,j) = 0. |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
186 |
FIZHI_INIT_VEGSURFTILES |
do j = 1,sNy |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
188 |
FIZHI_INIT_VEGSURFTILES |
tempgrid(i,j) = globalarr(i+bislot,j+bjslot,8) |
|
./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 |
190 |
FIZHI_INIT_VEGSURFTILES |
. tempgrid(i,j) = 0. |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
46 |
FIZHI_INIT_VEGSURFTILES |
integer i,j,n |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
97 |
FIZHI_INIT_VEGSURFTILES |
do j = 1,sNy |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
99 |
FIZHI_INIT_VEGSURFTILES |
tempgrid(i,j) = globalarr(i+bislot,j+bjslot,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
100 |
LWRIO |
cldtot(i,j,L)=min(1.0 _d 0,max(cldlw(i,j,L),fccave(i,j,L)/ |
|
./pkg/fizhi/fizhi_lwrad.F |
1022 |
IRRAD |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1024 |
IRRAD |
blayer(i,j,k)=ta(i,j,k)*(ta(i,j,k)*(ta(i,j,k) |
|
./pkg/fizhi/fizhi_lwrad.F |
1025 |
IRRAD |
* *(ta(i,j,k)*cb(5,ib)+cb(4,ib))+cb(3,ib)) |
|
./pkg/fizhi/fizhi_lwrad.F |
102 |
LWRIO |
cldmxo(i,j,L) = min( 1.0 _d 0, clwmo(i,j,L) ) |
|
./pkg/fizhi/fizhi_lwrad.F |
1033 |
IRRAD |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1035 |
IRRAD |
blayer(i,j,0) = 0.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
1036 |
IRRAD |
blayer(i,j,np+1)= ( ts(i,j)*(ts(i,j)*(ts(i,j) |
|
./pkg/fizhi/fizhi_lwrad.F |
1037 |
IRRAD |
* *(ts(i,j)*cb(5,ib)+cb(4,ib))+cb(3,ib)) |
|
./pkg/fizhi/fizhi_lwrad.F |
1038 |
IRRAD |
* +cb(2,ib))+cb(1,ib) )*emiss(i,j,ib) |
|
./pkg/fizhi/fizhi_lwrad.F |
103 |
LWRIO |
lwlz(i,j,L) = lwlz(i,j,L) + qliqave(i,j,L)/imstturb |
|
./pkg/fizhi/fizhi_lwrad.F |
1043 |
IRRAD |
dbs(i,j)=(ts(i,j)*(ts(i,j)*(ts(i,j)*4.*cb(5,ib) |
|
./pkg/fizhi/fizhi_lwrad.F |
1044 |
IRRAD |
* +3.*cb(4,ib))+2.*cb(3,ib))+cb(2,ib))*emiss(i,j,ib) |
|
./pkg/fizhi/fizhi_lwrad.F |
1050 |
IRRAD |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1052 |
IRRAD |
dlayer(i,j,k)=blayer(i,j,k-1)-blayer(i,j,k) |
|
./pkg/fizhi/fizhi_lwrad.F |
1075 |
IRRAD |
do j= 1, n |
|
./pkg/fizhi/fizhi_lwrad.F |
1077 |
IRRAD |
taucl(i,j,k,1)=cwp(i,j,k,1)*(aib(1,ib)+aib(2,ib)/ |
|
./pkg/fizhi/fizhi_lwrad.F |
1078 |
IRRAD |
* reff(i,j,k,1)**aib(3,ib)) |
|
./pkg/fizhi/fizhi_lwrad.F |
1079 |
IRRAD |
taucl(i,j,k,2)=cwp(i,j,k,2)*(awb(1,ib)+(awb(2,ib)+(awb(3,ib) |
|
./pkg/fizhi/fizhi_lwrad.F |
1080 |
IRRAD |
* +awb(4,ib)*reff(i,j,k,2))*reff(i,j,k,2))*reff(i,j,k,2)) |
|
./pkg/fizhi/fizhi_lwrad.F |
1092 |
IRRAD |
do j= 1, n |
|
./pkg/fizhi/fizhi_lwrad.F |
1095 |
IRRAD |
clr(i,j,k) = 1.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
1096 |
IRRAD |
taux=taucl(i,j,k,1)+taucl(i,j,k,2)+taucl(i,j,k,3) |
|
./pkg/fizhi/fizhi_lwrad.F |
1098 |
IRRAD |
if (taux.gt.0.02 .and. fcld(i,j,k).gt.0.01) then |
|
./pkg/fizhi/fizhi_lwrad.F |
109 |
LWRIO |
do j =1,jm |
|
./pkg/fizhi/fizhi_lwrad.F |
1100 |
IRRAD |
reff1=min(reff(i,j,k,1),130. _d 0) |
|
./pkg/fizhi/fizhi_lwrad.F |
1101 |
IRRAD |
reff2=min(reff(i,j,k,2),20.0 _d 0) |
|
./pkg/fizhi/fizhi_lwrad.F |
1103 |
IRRAD |
w1=taucl(i,j,k,1)*(aiw(1,ib)+(aiw(2,ib)+(aiw(3,ib) |
|
./pkg/fizhi/fizhi_lwrad.F |
1105 |
IRRAD |
w2=taucl(i,j,k,2)*(aww(1,ib)+(aww(2,ib)+(aww(3,ib) |
|
./pkg/fizhi/fizhi_lwrad.F |
1107 |
IRRAD |
w3=taucl(i,j,k,3)*0.54 |
|
./pkg/fizhi/fizhi_lwrad.F |
111 |
LWRIO |
cldtot(i,j,L) = min( 1.0 _d 0,cldlw(i,j,L) ) |
|
./pkg/fizhi/fizhi_lwrad.F |
1128 |
IRRAD |
clr(i,j,k)=1.0-(fcld(i,j,k)*(1.0-exp(-1.66*taux))) |
|
./pkg/fizhi/fizhi_lwrad.F |
112 |
LWRIO |
cldmxo(i,j,L) = min( 1.0 _d 0,clwmo(i,j,L) ) |
|
./pkg/fizhi/fizhi_lwrad.F |
1232 |
IRRAD |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1234 |
IRRAD |
flxu(i,j,k) = 0.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
1235 |
IRRAD |
flxd(i,j,k) = 0.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
1236 |
IRRAD |
flcu(i,j,k) = 0.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
1237 |
IRRAD |
flcd(i,j,k) = 0.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
1250 |
IRRAD |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1252 |
IRRAD |
fclr(i,j) = 1.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
1253 |
IRRAD |
clrlw(i,j) = 1.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
1254 |
IRRAD |
clrmd(i,j) = 1.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
1255 |
IRRAD |
clrhi(i,j) = 1.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
1256 |
IRRAD |
tranal(i,j)= 1.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
1264 |
IRRAD |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1266 |
IRRAD |
th2o(i,j,ik)=1.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
1276 |
IRRAD |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1278 |
IRRAD |
tcon(i,j,iq)=1.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
1291 |
IRRAD |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1293 |
IRRAD |
tco2(i,j,ik,isb)=1.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
1308 |
IRRAD |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1310 |
IRRAD |
tn2o(i,j,ik)=1.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
1320 |
IRRAD |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1322 |
IRRAD |
tch4(i,j,ik)=1.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
1332 |
IRRAD |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1334 |
IRRAD |
tcom(i,j,ik)=1.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
1343 |
IRRAD |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1345 |
IRRAD |
tf11(i,j)=1.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
1353 |
IRRAD |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1355 |
IRRAD |
tf12(i,j)=1.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
1363 |
IRRAD |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1365 |
IRRAD |
tf22(i,j)=1.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
1374 |
IRRAD |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1376 |
IRRAD |
th2o(i,j,ik)=1.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
1377 |
IRRAD |
tco2(i,j,ik,1)=1.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
1382 |
IRRAD |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1384 |
IRRAD |
tcon(i,j,iq)=1.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
1389 |
IRRAD |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1391 |
IRRAD |
tn2o(i,j,ik)=1.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
1405 |
IRRAD |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1407 |
IRRAD |
trant(i,j)=1.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
1530 |
IRRAD |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1532 |
IRRAD |
ff=0.5+(0.3739+(0.0076+0.1185*asyal(i,j,k2-1,ib)) |
|
./pkg/fizhi/fizhi_lwrad.F |
1533 |
IRRAD |
* *asyal(i,j,k2-1,ib))*asyal(i,j,k2-1,ib) |
|
./pkg/fizhi/fizhi_lwrad.F |
1534 |
IRRAD |
taux=taual(i,j,k2-1,ib)*(1.-ssaal(i,j,k2-1,ib)*ff) |
|
./pkg/fizhi/fizhi_lwrad.F |
1535 |
IRRAD |
tranal(i,j)=tranal(i,j)*exp(-1.66*taux) |
|
./pkg/fizhi/fizhi_lwrad.F |
1536 |
IRRAD |
trant (i,j)=trant(i,j) *tranal(i,j) |
|
./pkg/fizhi/fizhi_lwrad.F |
1545 |
IRRAD |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1548 |
IRRAD |
clrhi(i,j)=min(clr(i,j,k2-1),clrhi(i,j)) |
|
./pkg/fizhi/fizhi_lwrad.F |
1550 |
IRRAD |
clrmd(i,j)=min(clr(i,j,k2-1),clrmd(i,j)) |
|
./pkg/fizhi/fizhi_lwrad.F |
1552 |
IRRAD |
clrlw(i,j)=min(clr(i,j,k2-1),clrlw(i,j)) |
|
./pkg/fizhi/fizhi_lwrad.F |
1554 |
IRRAD |
fclr(i,j)=clrlw(i,j)*clrmd(i,j)*clrhi(i,j) |
|
./pkg/fizhi/fizhi_lwrad.F |
1568 |
IRRAD |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1573 |
IRRAD |
flcu(i,j,k1)=flcu(i,j,k1)-blayer(i,j,k1) |
|
./pkg/fizhi/fizhi_lwrad.F |
1574 |
IRRAD |
flcd(i,j,k2)=flcd(i,j,k2)+blayer(i,j,k1) |
|
./pkg/fizhi/fizhi_lwrad.F |
1578 |
IRRAD |
flxu(i,j,k1)=flxu(i,j,k1)-blayer(i,j,k1) |
|
./pkg/fizhi/fizhi_lwrad.F |
1579 |
IRRAD |
flxd(i,j,k2)=flxd(i,j,k2)+blayer(i,j,k1) |
|
./pkg/fizhi/fizhi_lwrad.F |
1589 |
IRRAD |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1591 |
IRRAD |
xx=trant(i,j)*dlayer(i,j,k2) |
|
./pkg/fizhi/fizhi_lwrad.F |
1592 |
IRRAD |
flcu(i,j,k1) =flcu(i,j,k1)+xx |
|
./pkg/fizhi/fizhi_lwrad.F |
1593 |
IRRAD |
flxu(i,j,k1) =flxu(i,j,k1)+xx*fclr(i,j) |
|
./pkg/fizhi/fizhi_lwrad.F |
1594 |
IRRAD |
xx=trant(i,j)*dlayer(i,j,k1) |
|
./pkg/fizhi/fizhi_lwrad.F |
1595 |
IRRAD |
flcd(i,j,k2) =flcd(i,j,k2)+xx |
|
./pkg/fizhi/fizhi_lwrad.F |
1596 |
IRRAD |
flxd(i,j,k2) =flxd(i,j,k2)+xx*fclr(i,j) |
|
./pkg/fizhi/fizhi_lwrad.F |
1606 |
IRRAD |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1608 |
IRRAD |
rflx(i,j,k1) = rflx(i,j,k1)+trant(i,j)*fclr(i,j) |
|
./pkg/fizhi/fizhi_lwrad.F |
1609 |
IRRAD |
* *dlayer(i,j,k2) |
|
./pkg/fizhi/fizhi_lwrad.F |
1610 |
IRRAD |
rflx(i,j,k2) = rflx(i,j,k2)+trant(i,j)*fclr(i,j) |
|
./pkg/fizhi/fizhi_lwrad.F |
1611 |
IRRAD |
* *dlayer(i,j,k1) |
|
./pkg/fizhi/fizhi_lwrad.F |
1612 |
IRRAD |
rflc(i,j,k1) = rflc(i,j,k1)+trant(i,j) |
|
./pkg/fizhi/fizhi_lwrad.F |
1613 |
IRRAD |
* *dlayer(i,j,k2) |
|
./pkg/fizhi/fizhi_lwrad.F |
1614 |
IRRAD |
rflc(i,j,k2) = rflc(i,j,k2)+trant(i,j) |
|
./pkg/fizhi/fizhi_lwrad.F |
1615 |
IRRAD |
* *dlayer(i,j,k1) |
|
./pkg/fizhi/fizhi_lwrad.F |
1628 |
IRRAD |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1630 |
IRRAD |
trantcr(i,j,k1) =trant(i,j) |
|
./pkg/fizhi/fizhi_lwrad.F |
1631 |
IRRAD |
transfc(i,j,k1) =trant(i,j)*fclr(i,j) |
|
./pkg/fizhi/fizhi_lwrad.F |
1640 |
IRRAD |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1642 |
IRRAD |
dfdts(i,j,k1) =dfdts(i,j,k1)-dbs(i,j)*transfc(i,j,k1) |
|
./pkg/fizhi/fizhi_lwrad.F |
1654 |
IRRAD |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1656 |
IRRAD |
flcu(i,j,np+1)=flcu(i,j,np+1)-blayer(i,j,np+1) |
|
./pkg/fizhi/fizhi_lwrad.F |
1657 |
IRRAD |
flxu(i,j,np+1)=flxu(i,j,np+1)-blayer(i,j,np+1) |
|
./pkg/fizhi/fizhi_lwrad.F |
1658 |
IRRAD |
st4(i,j)=st4(i,j)-blayer(i,j,np+1) |
|
./pkg/fizhi/fizhi_lwrad.F |
1659 |
IRRAD |
dfdts(i,j,np+1)=dfdts(i,j,np+1)-dbs(i,j) |
|
./pkg/fizhi/fizhi_lwrad.F |
1667 |
IRRAD |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1669 |
IRRAD |
flcu(i,j,k)=flcu(i,j,k)- |
|
./pkg/fizhi/fizhi_lwrad.F |
1670 |
IRRAD |
* flcd(i,j,np+1)*trantcr(i,j,k)*(1.-emiss(i,j,ib)) |
|
./pkg/fizhi/fizhi_lwrad.F |
1671 |
IRRAD |
flxu(i,j,k)=flxu(i,j,k)- |
|
./pkg/fizhi/fizhi_lwrad.F |
1672 |
IRRAD |
* flxd(i,j,np+1)*transfc(i,j,k)*(1.-emiss(i,j,ib)) |
|
./pkg/fizhi/fizhi_lwrad.F |
1682 |
IRRAD |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1684 |
IRRAD |
flc(i,j,k)=flc(i,j,k)+flcd(i,j,k)+flcu(i,j,k) |
|
./pkg/fizhi/fizhi_lwrad.F |
1685 |
IRRAD |
flx(i,j,k)=flx(i,j,k)+flxd(i,j,k)+flxu(i,j,k) |
|
./pkg/fizhi/fizhi_lwrad.F |
1695 |
IRRAD |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1697 |
IRRAD |
flc(i,j,k)=flc(i,j,k)+rflc(i,j,k) |
|
./pkg/fizhi/fizhi_lwrad.F |
1698 |
IRRAD |
flx(i,j,k)=flx(i,j,k)+rflx(i,j,k) |
|
./pkg/fizhi/fizhi_lwrad.F |
1731 |
COLUMN |
integer m,n,np,i,j,k |
|
./pkg/fizhi/fizhi_lwrad.F |
1742 |
COLUMN |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1744 |
COLUMN |
sabs(i,j,1)=0.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
1745 |
COLUMN |
spre(i,j,1)=0.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
1746 |
COLUMN |
stem(i,j,1)=0.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
1751 |
COLUMN |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1753 |
COLUMN |
sabs(i,j,k+1)=sabs(i,j,k)+sabs0(i,j,k) |
|
./pkg/fizhi/fizhi_lwrad.F |
1754 |
COLUMN |
spre(i,j,k+1)=spre(i,j,k)+pa(i,j,k)*sabs0(i,j,k) |
|
./pkg/fizhi/fizhi_lwrad.F |
1755 |
COLUMN |
stem(i,j,k+1)=stem(i,j,k)+dt(i,j,k)*sabs0(i,j,k) |
|
./pkg/fizhi/fizhi_lwrad.F |
1786 |
H2OEXPS |
integer ib,m,n,np,i,j,k,ik |
|
./pkg/fizhi/fizhi_lwrad.F |
1811 |
H2OEXPS |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1817 |
H2OEXPS |
xh = dh2o(i,j,k)*(pa(i,j,k)/500.)**pm(ib) |
|
./pkg/fizhi/fizhi_lwrad.F |
1818 |
H2OEXPS |
1 * ( 1.+(aw(ib)+bw(ib)* dt(i,j,k))*dt(i,j,k) ) |
|
./pkg/fizhi/fizhi_lwrad.F |
1823 |
H2OEXPS |
h2oexp(i,j,k,1) = exp(-xh*xkw(ib)) |
|
./pkg/fizhi/fizhi_lwrad.F |
1834 |
H2OEXPS |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1836 |
H2OEXPS |
xh = h2oexp(i,j,k,ik-1)*h2oexp(i,j,k,ik-1) |
|
./pkg/fizhi/fizhi_lwrad.F |
1837 |
H2OEXPS |
h2oexp(i,j,k,ik) = xh*xh*xh |
|
./pkg/fizhi/fizhi_lwrad.F |
1845 |
H2OEXPS |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1847 |
H2OEXPS |
xh = h2oexp(i,j,k,ik-1)*h2oexp(i,j,k,ik-1) |
|
./pkg/fizhi/fizhi_lwrad.F |
1849 |
H2OEXPS |
h2oexp(i,j,k,ik) = xh*xh |
|
./pkg/fizhi/fizhi_lwrad.F |
1857 |
H2OEXPS |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1859 |
H2OEXPS |
xh=h2oexp(i,j,k,ik-1)*h2oexp(i,j,k,ik-1)*h2oexp(i,j,k,ik-1) |
|
./pkg/fizhi/fizhi_lwrad.F |
1861 |
H2OEXPS |
h2oexp(i,j,k,ik) = xh*xh1 |
|
./pkg/fizhi/fizhi_lwrad.F |
1869 |
H2OEXPS |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1871 |
H2OEXPS |
xh = h2oexp(i,j,k,ik-1)*h2oexp(i,j,k,ik-1) |
|
./pkg/fizhi/fizhi_lwrad.F |
1874 |
H2OEXPS |
h2oexp(i,j,k,ik) = xh*xh |
|
./pkg/fizhi/fizhi_lwrad.F |
1902 |
CONEXPS |
integer ib,m,n,np,i,j,k,iq |
|
./pkg/fizhi/fizhi_lwrad.F |
1919 |
CONEXPS |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1921 |
CONEXPS |
conexp(i,j,k,1) = exp(-dcont(i,j,k)*xke(ib)) |
|
./pkg/fizhi/fizhi_lwrad.F |
1934 |
CONEXPS |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1936 |
CONEXPS |
conexp(i,j,k,iq) = conexp(i,j,k,iq-1) *conexp(i,j,k,iq-1) |
|
./pkg/fizhi/fizhi_lwrad.F |
1963 |
CO2EXPS |
integer m,n,np,i,j,k |
|
./pkg/fizhi/fizhi_lwrad.F |
1980 |
CO2EXPS |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1986 |
CO2EXPS |
xc = dco2(i,j,k)*(pa(i,j,k)/300.0)**0.5 |
|
./pkg/fizhi/fizhi_lwrad.F |
1987 |
CO2EXPS |
1 *(1.+(0.0182+1.07e-4*dt(i,j,k))*dt(i,j,k)) |
|
./pkg/fizhi/fizhi_lwrad.F |
1991 |
CO2EXPS |
co2exp(i,j,k,1,1)=exp(-xc*2.656e-5) |
|
./pkg/fizhi/fizhi_lwrad.F |
1993 |
CO2EXPS |
xc=co2exp(i,j,k,1,1)*co2exp(i,j,k,1,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
1995 |
CO2EXPS |
co2exp(i,j,k,2,1)=xc*xc |
|
./pkg/fizhi/fizhi_lwrad.F |
1997 |
CO2EXPS |
xc=co2exp(i,j,k,2,1)*co2exp(i,j,k,2,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
1999 |
CO2EXPS |
co2exp(i,j,k,3,1)=xc*xc |
|
./pkg/fizhi/fizhi_lwrad.F |
2001 |
CO2EXPS |
xc=co2exp(i,j,k,3,1)*co2exp(i,j,k,3,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2003 |
CO2EXPS |
co2exp(i,j,k,4,1)=xc*xc |
|
./pkg/fizhi/fizhi_lwrad.F |
2005 |
CO2EXPS |
xc=co2exp(i,j,k,4,1)*co2exp(i,j,k,4,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2007 |
CO2EXPS |
co2exp(i,j,k,5,1)=xc*xc |
|
./pkg/fizhi/fizhi_lwrad.F |
2009 |
CO2EXPS |
xc=co2exp(i,j,k,5,1)*co2exp(i,j,k,5,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2011 |
CO2EXPS |
co2exp(i,j,k,6,1)=xc*xc |
|
./pkg/fizhi/fizhi_lwrad.F |
2016 |
CO2EXPS |
xc = dco2(i,j,k)*(pa(i,j,k)/30.0)**0.85 |
|
./pkg/fizhi/fizhi_lwrad.F |
2017 |
CO2EXPS |
1 *(1.+(0.0042+2.00e-5*dt(i,j,k))*dt(i,j,k)) |
|
./pkg/fizhi/fizhi_lwrad.F |
2019 |
CO2EXPS |
co2exp(i,j,k,1,2)=exp(-xc*2.656e-3) |
|
./pkg/fizhi/fizhi_lwrad.F |
2021 |
CO2EXPS |
xc=co2exp(i,j,k,1,2)*co2exp(i,j,k,1,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2023 |
CO2EXPS |
co2exp(i,j,k,2,2)=xc*xc |
|
./pkg/fizhi/fizhi_lwrad.F |
2025 |
CO2EXPS |
xc=co2exp(i,j,k,2,2)*co2exp(i,j,k,2,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2027 |
CO2EXPS |
co2exp(i,j,k,3,2)=xc*xc |
|
./pkg/fizhi/fizhi_lwrad.F |
2029 |
CO2EXPS |
xc=co2exp(i,j,k,3,2)*co2exp(i,j,k,3,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2031 |
CO2EXPS |
co2exp(i,j,k,4,2)=xc*xc |
|
./pkg/fizhi/fizhi_lwrad.F |
2033 |
CO2EXPS |
xc=co2exp(i,j,k,4,2)*co2exp(i,j,k,4,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2035 |
CO2EXPS |
co2exp(i,j,k,5,2)=xc*xc |
|
./pkg/fizhi/fizhi_lwrad.F |
2037 |
CO2EXPS |
xc=co2exp(i,j,k,5,2)*co2exp(i,j,k,5,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2039 |
CO2EXPS |
co2exp(i,j,k,6,2)=xc*xc |
|
./pkg/fizhi/fizhi_lwrad.F |
2065 |
N2OEXPS |
integer ib,m,n,np,i,j,k |
|
./pkg/fizhi/fizhi_lwrad.F |
2082 |
N2OEXPS |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
2089 |
N2OEXPS |
xc=dn2o(i,j,k)*(1.+(1.9297e-3+4.3750e-6*dt(i,j,k))*dt(i,j,k)) |
|
./pkg/fizhi/fizhi_lwrad.F |
2090 |
N2OEXPS |
n2oexp(i,j,k,1)=exp(-xc*6.31582e-2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2092 |
N2OEXPS |
xc=n2oexp(i,j,k,1)*n2oexp(i,j,k,1)*n2oexp(i,j,k,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2095 |
N2OEXPS |
n2oexp(i,j,k,2)=xc*xc1*xc2 |
|
./pkg/fizhi/fizhi_lwrad.F |
2101 |
N2OEXPS |
xc=dn2o(i,j,k)*(pa(i,j,k)/500.0)**0.48 |
|
./pkg/fizhi/fizhi_lwrad.F |
2102 |
N2OEXPS |
* *(1.+(1.3804e-3+7.4838e-6*dt(i,j,k))*dt(i,j,k)) |
|
./pkg/fizhi/fizhi_lwrad.F |
2103 |
N2OEXPS |
n2oexp(i,j,k,1)=exp(-xc*5.35779e-2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2105 |
N2OEXPS |
xc=n2oexp(i,j,k,1)*n2oexp(i,j,k,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2107 |
N2OEXPS |
n2oexp(i,j,k,2)=xc*xc |
|
./pkg/fizhi/fizhi_lwrad.F |
2108 |
N2OEXPS |
xc=n2oexp(i,j,k,2)*n2oexp(i,j,k,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2110 |
N2OEXPS |
n2oexp(i,j,k,3)=xc*xc |
|
./pkg/fizhi/fizhi_lwrad.F |
2111 |
N2OEXPS |
xc=n2oexp(i,j,k,3)*n2oexp(i,j,k,3) |
|
./pkg/fizhi/fizhi_lwrad.F |
2113 |
N2OEXPS |
n2oexp(i,j,k,4)=xc*xc |
|
./pkg/fizhi/fizhi_lwrad.F |
2141 |
CH4EXPS |
integer ib,m,n,np,i,j,k |
|
./pkg/fizhi/fizhi_lwrad.F |
2158 |
CH4EXPS |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
2165 |
CH4EXPS |
xc=dch4(i,j,k)*(1.+(1.7007e-2+1.5826e-4*dt(i,j,k))*dt(i,j,k)) |
|
./pkg/fizhi/fizhi_lwrad.F |
2166 |
CH4EXPS |
ch4exp(i,j,k,1)=exp(-xc*5.80708e-3) |
|
./pkg/fizhi/fizhi_lwrad.F |
2172 |
CH4EXPS |
xc=dch4(i,j,k)*(pa(i,j,k)/500.0)**0.65 |
|
./pkg/fizhi/fizhi_lwrad.F |
2173 |
CH4EXPS |
* *(1.+(5.9590e-4-2.2931e-6*dt(i,j,k))*dt(i,j,k)) |
|
./pkg/fizhi/fizhi_lwrad.F |
2174 |
CH4EXPS |
ch4exp(i,j,k,1)=exp(-xc*6.29247e-2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2176 |
CH4EXPS |
xc=ch4exp(i,j,k,1)*ch4exp(i,j,k,1)*ch4exp(i,j,k,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2178 |
CH4EXPS |
ch4exp(i,j,k,2)=xc*xc |
|
./pkg/fizhi/fizhi_lwrad.F |
2180 |
CH4EXPS |
xc=ch4exp(i,j,k,2)*ch4exp(i,j,k,2)*ch4exp(i,j,k,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2182 |
CH4EXPS |
ch4exp(i,j,k,3)=xc*xc |
|
./pkg/fizhi/fizhi_lwrad.F |
2184 |
CH4EXPS |
xc=ch4exp(i,j,k,3)*ch4exp(i,j,k,3)*ch4exp(i,j,k,3) |
|
./pkg/fizhi/fizhi_lwrad.F |
2186 |
CH4EXPS |
ch4exp(i,j,k,4)=xc*xc |
|
./pkg/fizhi/fizhi_lwrad.F |
2213 |
COMEXPS |
integer ib,m,n,np,i,j,k |
|
./pkg/fizhi/fizhi_lwrad.F |
2230 |
COMEXPS |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
2237 |
COMEXPS |
xc=dcom(i,j,k)*(1.+(3.5775e-2+4.0447e-4*dt(i,j,k))*dt(i,j,k)) |
|
./pkg/fizhi/fizhi_lwrad.F |
2238 |
COMEXPS |
comexp(i,j,k,1)=exp(-xc*2.18947e-5) |
|
./pkg/fizhi/fizhi_lwrad.F |
2240 |
COMEXPS |
xc=comexp(i,j,k,1)*comexp(i,j,k,1)*comexp(i,j,k,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2245 |
COMEXPS |
comexp(i,j,k,2)=xc*xc1 |
|
./pkg/fizhi/fizhi_lwrad.F |
2251 |
COMEXPS |
xc=dcom(i,j,k)*(1.+(3.4268e-2+3.7401e-4*dt(i,j,k))*dt(i,j,k)) |
|
./pkg/fizhi/fizhi_lwrad.F |
2252 |
COMEXPS |
comexp(i,j,k,1)=exp(-xc*4.74570e-5) |
|
./pkg/fizhi/fizhi_lwrad.F |
2254 |
COMEXPS |
xc=comexp(i,j,k,1)*comexp(i,j,k,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2259 |
COMEXPS |
comexp(i,j,k,2)=xc1*xc2*xc |
|
./pkg/fizhi/fizhi_lwrad.F |
2290 |
CFCEXPS |
integer ib,m,n,np,i,j,k |
|
./pkg/fizhi/fizhi_lwrad.F |
2311 |
CFCEXPS |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
2317 |
CFCEXPS |
xf=dcfc(i,j,k)*(1.+(a1+b1*dt(i,j,k))*dt(i,j,k)) |
|
./pkg/fizhi/fizhi_lwrad.F |
2318 |
CFCEXPS |
cfcexp(i,j,k)=exp(-xf*fk1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2320 |
CFCEXPS |
xf=dcfc(i,j,k)*(1.+(a2+b2*dt(i,j,k))*dt(i,j,k)) |
|
./pkg/fizhi/fizhi_lwrad.F |
2321 |
CFCEXPS |
cfcexp(i,j,k)=exp(-xf*fk2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2352 |
B10EXPS |
integer m,n,np,i,j,k |
|
./pkg/fizhi/fizhi_lwrad.F |
2371 |
B10EXPS |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
2377 |
B10EXPS |
xx=dh2o(i,j,k)*(pa(i,j,k)/500.0) |
|
./pkg/fizhi/fizhi_lwrad.F |
2378 |
B10EXPS |
1 *(1.+(0.0149+6.20e-5*dt(i,j,k))*dt(i,j,k)) |
|
./pkg/fizhi/fizhi_lwrad.F |
2383 |
B10EXPS |
h2oexp(i,j,k,1)=exp(-xx*0.10624) |
|
./pkg/fizhi/fizhi_lwrad.F |
2385 |
B10EXPS |
xx=h2oexp(i,j,k,1)*h2oexp(i,j,k,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2387 |
B10EXPS |
h2oexp(i,j,k,2)=xx*xx |
|
./pkg/fizhi/fizhi_lwrad.F |
2389 |
B10EXPS |
xx=h2oexp(i,j,k,2)*h2oexp(i,j,k,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2391 |
B10EXPS |
h2oexp(i,j,k,3)=xx*xx |
|
./pkg/fizhi/fizhi_lwrad.F |
2393 |
B10EXPS |
xx=h2oexp(i,j,k,3)*h2oexp(i,j,k,3) |
|
./pkg/fizhi/fizhi_lwrad.F |
2395 |
B10EXPS |
h2oexp(i,j,k,4)=xx*xx |
|
./pkg/fizhi/fizhi_lwrad.F |
2397 |
B10EXPS |
xx=h2oexp(i,j,k,4)*h2oexp(i,j,k,4) |
|
./pkg/fizhi/fizhi_lwrad.F |
2399 |
B10EXPS |
h2oexp(i,j,k,5)=xx*xx |
|
./pkg/fizhi/fizhi_lwrad.F |
2401 |
B10EXPS |
xx=h2oexp(i,j,k,5)*h2oexp(i,j,k,5) |
|
./pkg/fizhi/fizhi_lwrad.F |
2403 |
B10EXPS |
h2oexp(i,j,k,6)=xx*xx |
|
./pkg/fizhi/fizhi_lwrad.F |
2408 |
B10EXPS |
xx=dco2(i,j,k)*(pa(i,j,k)/300.0)**0.5 |
|
./pkg/fizhi/fizhi_lwrad.F |
2409 |
B10EXPS |
1 *(1.+(0.0179+1.02e-4*dt(i,j,k))*dt(i,j,k)) |
|
./pkg/fizhi/fizhi_lwrad.F |
2414 |
B10EXPS |
co2exp(i,j,k,1,1)=exp(-xx*2.656e-5) |
|
./pkg/fizhi/fizhi_lwrad.F |
2416 |
B10EXPS |
xx=co2exp(i,j,k,1,1)*co2exp(i,j,k,1,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2418 |
B10EXPS |
co2exp(i,j,k,2,1)=xx*xx |
|
./pkg/fizhi/fizhi_lwrad.F |
2420 |
B10EXPS |
xx=co2exp(i,j,k,2,1)*co2exp(i,j,k,2,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2422 |
B10EXPS |
co2exp(i,j,k,3,1)=xx*xx |
|
./pkg/fizhi/fizhi_lwrad.F |
2424 |
B10EXPS |
xx=co2exp(i,j,k,3,1)*co2exp(i,j,k,3,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2426 |
B10EXPS |
co2exp(i,j,k,4,1)=xx*xx |
|
./pkg/fizhi/fizhi_lwrad.F |
2428 |
B10EXPS |
xx=co2exp(i,j,k,4,1)*co2exp(i,j,k,4,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2430 |
B10EXPS |
co2exp(i,j,k,5,1)=xx*xx |
|
./pkg/fizhi/fizhi_lwrad.F |
2432 |
B10EXPS |
xx=co2exp(i,j,k,5,1)*co2exp(i,j,k,5,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2434 |
B10EXPS |
co2exp(i,j,k,6,1)=xx*xx |
|
./pkg/fizhi/fizhi_lwrad.F |
2440 |
B10EXPS |
conexp(i,j,k,1)=exp(-dcont(i,j,k)*1.04995e+2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2444 |
B10EXPS |
xx=dn2o(i,j,k)*(1.+(1.4476e-3+3.6656e-6*dt(i,j,k))*dt(i,j,k)) |
|
./pkg/fizhi/fizhi_lwrad.F |
2448 |
B10EXPS |
n2oexp(i,j,k,1)=exp(-xx*0.25238) |
|
./pkg/fizhi/fizhi_lwrad.F |
2450 |
B10EXPS |
xx=n2oexp(i,j,k,1)*n2oexp(i,j,k,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2455 |
B10EXPS |
n2oexp(i,j,k,2)=xx*xx1*xx2*xx3 |
|
./pkg/fizhi/fizhi_lwrad.F |
2503 |
TABLUP |
integer k1,k2,m,n,np,nx,nh,nt,i,j |
|
./pkg/fizhi/fizhi_lwrad.F |
2522 |
TABLUP |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
2527 |
TABLUP |
x1=sabs(i,j,k2)-sabs(i,j,k1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2528 |
TABLUP |
x2=(spre(i,j,k2)-spre(i,j,k1))/x1 |
|
./pkg/fizhi/fizhi_lwrad.F |
2529 |
TABLUP |
x3=(stem(i,j,k2)-stem(i,j,k1))/x1 |
|
./pkg/fizhi/fizhi_lwrad.F |
2571 |
TABLUP |
tran(i,j)= (ax + (t1+t2*x3) * x3)*tran(i,j) |
|
./pkg/fizhi/fizhi_lwrad.F |
2611 |
H2OKDIS |
integer ib,m,n,np,k,i,j |
|
./pkg/fizhi/fizhi_lwrad.F |
2639 |
H2OKDIS |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
2641 |
H2OKDIS |
th2o(i,j,1) = th2o(i,j,1)*h2oexp(i,j,k,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2642 |
H2OKDIS |
th2o(i,j,2) = th2o(i,j,2)*h2oexp(i,j,k,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2643 |
H2OKDIS |
th2o(i,j,3) = th2o(i,j,3)*h2oexp(i,j,k,3) |
|
./pkg/fizhi/fizhi_lwrad.F |
2644 |
H2OKDIS |
th2o(i,j,4) = th2o(i,j,4)*h2oexp(i,j,k,4) |
|
./pkg/fizhi/fizhi_lwrad.F |
2645 |
H2OKDIS |
th2o(i,j,5) = th2o(i,j,5)*h2oexp(i,j,k,5) |
|
./pkg/fizhi/fizhi_lwrad.F |
2646 |
H2OKDIS |
th2o(i,j,6) = th2o(i,j,6)*h2oexp(i,j,k,6) |
|
./pkg/fizhi/fizhi_lwrad.F |
2652 |
H2OKDIS |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
2655 |
H2OKDIS |
trnth2o =(fkw(1,ib)*th2o(i,j,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2656 |
H2OKDIS |
* + fkw(2,ib)*th2o(i,j,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2657 |
H2OKDIS |
* + fkw(3,ib)*th2o(i,j,3) |
|
./pkg/fizhi/fizhi_lwrad.F |
2658 |
H2OKDIS |
* + fkw(4,ib)*th2o(i,j,4) |
|
./pkg/fizhi/fizhi_lwrad.F |
2659 |
H2OKDIS |
* + fkw(5,ib)*th2o(i,j,5) |
|
./pkg/fizhi/fizhi_lwrad.F |
2660 |
H2OKDIS |
* + fkw(6,ib)*th2o(i,j,6)) |
|
./pkg/fizhi/fizhi_lwrad.F |
2662 |
H2OKDIS |
tran(i,j)=tran(i,j)*trnth2o |
|
./pkg/fizhi/fizhi_lwrad.F |
2669 |
H2OKDIS |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
2672 |
H2OKDIS |
tcon(i,j,1)= tcon(i,j,1)*conexp(i,j,k,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2674 |
H2OKDIS |
trnth2o =(fkw(1,ib)*th2o(i,j,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2675 |
H2OKDIS |
* + fkw(2,ib)*th2o(i,j,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2676 |
H2OKDIS |
* + fkw(3,ib)*th2o(i,j,3) |
|
./pkg/fizhi/fizhi_lwrad.F |
2677 |
H2OKDIS |
* + fkw(4,ib)*th2o(i,j,4) |
|
./pkg/fizhi/fizhi_lwrad.F |
2678 |
H2OKDIS |
* + fkw(5,ib)*th2o(i,j,5) |
|
./pkg/fizhi/fizhi_lwrad.F |
2679 |
H2OKDIS |
* + fkw(6,ib)*th2o(i,j,6))*tcon(i,j,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2681 |
H2OKDIS |
tran(i,j)=tran(i,j)*trnth2o |
|
./pkg/fizhi/fizhi_lwrad.F |
2688 |
H2OKDIS |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
2691 |
H2OKDIS |
tcon(i,j,1)= tcon(i,j,1)*conexp(i,j,k,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2692 |
H2OKDIS |
tcon(i,j,2)= tcon(i,j,2)*conexp(i,j,k,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2693 |
H2OKDIS |
tcon(i,j,3)= tcon(i,j,3)*conexp(i,j,k,3) |
|
./pkg/fizhi/fizhi_lwrad.F |
2696 |
H2OKDIS |
trnth2o = ( gkw(1,1)*th2o(i,j,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2697 |
H2OKDIS |
* + gkw(2,1)*th2o(i,j,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2698 |
H2OKDIS |
* + gkw(3,1)*th2o(i,j,3) |
|
./pkg/fizhi/fizhi_lwrad.F |
2699 |
H2OKDIS |
* + gkw(4,1)*th2o(i,j,4) |
|
./pkg/fizhi/fizhi_lwrad.F |
2700 |
H2OKDIS |
* + gkw(5,1)*th2o(i,j,5) |
|
./pkg/fizhi/fizhi_lwrad.F |
2701 |
H2OKDIS |
* + gkw(6,1)*th2o(i,j,6) ) * tcon(i,j,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2702 |
H2OKDIS |
* + ( gkw(1,2)*th2o(i,j,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2703 |
H2OKDIS |
* + gkw(2,2)*th2o(i,j,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2704 |
H2OKDIS |
* + gkw(3,2)*th2o(i,j,3) |
|
./pkg/fizhi/fizhi_lwrad.F |
2705 |
H2OKDIS |
* + gkw(4,2)*th2o(i,j,4) |
|
./pkg/fizhi/fizhi_lwrad.F |
2706 |
H2OKDIS |
* + gkw(5,2)*th2o(i,j,5) |
|
./pkg/fizhi/fizhi_lwrad.F |
2707 |
H2OKDIS |
* + gkw(6,2)*th2o(i,j,6) ) * tcon(i,j,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2708 |
H2OKDIS |
* + ( gkw(1,3)*th2o(i,j,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2709 |
H2OKDIS |
* + gkw(2,3)*th2o(i,j,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2710 |
H2OKDIS |
* + gkw(3,3)*th2o(i,j,3) |
|
./pkg/fizhi/fizhi_lwrad.F |
2711 |
H2OKDIS |
* + gkw(4,3)*th2o(i,j,4) |
|
./pkg/fizhi/fizhi_lwrad.F |
2712 |
H2OKDIS |
* + gkw(5,3)*th2o(i,j,5) |
|
./pkg/fizhi/fizhi_lwrad.F |
2713 |
H2OKDIS |
* + gkw(6,3)*th2o(i,j,6) ) * tcon(i,j,3) |
|
./pkg/fizhi/fizhi_lwrad.F |
2715 |
H2OKDIS |
tran(i,j)=tran(i,j)*trnth2o |
|
./pkg/fizhi/fizhi_lwrad.F |
2745 |
CO2KDIS |
integer m,n,np,k,i,j |
|
./pkg/fizhi/fizhi_lwrad.F |
2762 |
CO2KDIS |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
2767 |
CO2KDIS |
tco2(i,j,1,1)=tco2(i,j,1,1)*co2exp(i,j,k,1,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2768 |
CO2KDIS |
xc= 0.1395 *tco2(i,j,1,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2770 |
CO2KDIS |
tco2(i,j,2,1)=tco2(i,j,2,1)*co2exp(i,j,k,2,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2771 |
CO2KDIS |
xc=xc+0.1407 *tco2(i,j,2,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2773 |
CO2KDIS |
tco2(i,j,3,1)=tco2(i,j,3,1)*co2exp(i,j,k,3,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2774 |
CO2KDIS |
xc=xc+0.1549 *tco2(i,j,3,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2776 |
CO2KDIS |
tco2(i,j,4,1)=tco2(i,j,4,1)*co2exp(i,j,k,4,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2777 |
CO2KDIS |
xc=xc+0.1357 *tco2(i,j,4,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2779 |
CO2KDIS |
tco2(i,j,5,1)=tco2(i,j,5,1)*co2exp(i,j,k,5,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2780 |
CO2KDIS |
xc=xc+0.0182 *tco2(i,j,5,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2782 |
CO2KDIS |
tco2(i,j,6,1)=tco2(i,j,6,1)*co2exp(i,j,k,6,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2783 |
CO2KDIS |
xc=xc+0.0220 *tco2(i,j,6,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2787 |
CO2KDIS |
tco2(i,j,1,2)=tco2(i,j,1,2)*co2exp(i,j,k,1,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2788 |
CO2KDIS |
xc=xc+0.0766 *tco2(i,j,1,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2790 |
CO2KDIS |
tco2(i,j,2,2)=tco2(i,j,2,2)*co2exp(i,j,k,2,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2791 |
CO2KDIS |
xc=xc+0.1372 *tco2(i,j,2,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2793 |
CO2KDIS |
tco2(i,j,3,2)=tco2(i,j,3,2)*co2exp(i,j,k,3,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2794 |
CO2KDIS |
xc=xc+0.1189 *tco2(i,j,3,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2796 |
CO2KDIS |
tco2(i,j,4,2)=tco2(i,j,4,2)*co2exp(i,j,k,4,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2797 |
CO2KDIS |
xc=xc+0.0335 *tco2(i,j,4,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2799 |
CO2KDIS |
tco2(i,j,5,2)=tco2(i,j,5,2)*co2exp(i,j,k,5,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2800 |
CO2KDIS |
xc=xc+0.0169 *tco2(i,j,5,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2802 |
CO2KDIS |
tco2(i,j,6,2)=tco2(i,j,6,2)*co2exp(i,j,k,6,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2803 |
CO2KDIS |
xc=xc+0.0059 *tco2(i,j,6,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2805 |
CO2KDIS |
tran(i,j)=tran(i,j)*xc |
|
./pkg/fizhi/fizhi_lwrad.F |
2834 |
N2OKDIS |
integer ib,m,n,np,k,i,j |
|
./pkg/fizhi/fizhi_lwrad.F |
2851 |
N2OKDIS |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
2858 |
N2OKDIS |
tn2o(i,j,1)=tn2o(i,j,1)*n2oexp(i,j,k,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2859 |
N2OKDIS |
xc= 0.940414*tn2o(i,j,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2861 |
N2OKDIS |
tn2o(i,j,2)=tn2o(i,j,2)*n2oexp(i,j,k,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2862 |
N2OKDIS |
xc=xc+0.059586*tn2o(i,j,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2868 |
N2OKDIS |
tn2o(i,j,1)=tn2o(i,j,1)*n2oexp(i,j,k,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2869 |
N2OKDIS |
xc= 0.561961*tn2o(i,j,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2871 |
N2OKDIS |
tn2o(i,j,2)=tn2o(i,j,2)*n2oexp(i,j,k,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2872 |
N2OKDIS |
xc=xc+0.138707*tn2o(i,j,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2874 |
N2OKDIS |
tn2o(i,j,3)=tn2o(i,j,3)*n2oexp(i,j,k,3) |
|
./pkg/fizhi/fizhi_lwrad.F |
2875 |
N2OKDIS |
xc=xc+0.240670*tn2o(i,j,3) |
|
./pkg/fizhi/fizhi_lwrad.F |
2877 |
N2OKDIS |
tn2o(i,j,4)=tn2o(i,j,4)*n2oexp(i,j,k,4) |
|
./pkg/fizhi/fizhi_lwrad.F |
2878 |
N2OKDIS |
xc=xc+0.058662*tn2o(i,j,4) |
|
./pkg/fizhi/fizhi_lwrad.F |
2882 |
N2OKDIS |
tran(i,j)=tran(i,j)*xc |
|
./pkg/fizhi/fizhi_lwrad.F |
288 |
LWRIO |
do j = 1,jm |
|
./pkg/fizhi/fizhi_lwrad.F |
290 |
LWRIO |
tmpdiag(i,j) = tz(i,j,L)*pkz(i,j,L) |
|
./pkg/fizhi/fizhi_lwrad.F |
2911 |
CH4KDIS |
integer ib,m,n,np,k,i,j |
|
./pkg/fizhi/fizhi_lwrad.F |
2928 |
CH4KDIS |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
2935 |
CH4KDIS |
tch4(i,j,1)=tch4(i,j,1)*ch4exp(i,j,k,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2936 |
CH4KDIS |
xc= tch4(i,j,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2942 |
CH4KDIS |
tch4(i,j,1)=tch4(i,j,1)*ch4exp(i,j,k,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2943 |
CH4KDIS |
xc= 0.610650*tch4(i,j,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2945 |
CH4KDIS |
tch4(i,j,2)=tch4(i,j,2)*ch4exp(i,j,k,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2946 |
CH4KDIS |
xc=xc+0.280212*tch4(i,j,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2948 |
CH4KDIS |
tch4(i,j,3)=tch4(i,j,3)*ch4exp(i,j,k,3) |
|
./pkg/fizhi/fizhi_lwrad.F |
2949 |
CH4KDIS |
xc=xc+0.107349*tch4(i,j,3) |
|
./pkg/fizhi/fizhi_lwrad.F |
2951 |
CH4KDIS |
tch4(i,j,4)=tch4(i,j,4)*ch4exp(i,j,k,4) |
|
./pkg/fizhi/fizhi_lwrad.F |
2952 |
CH4KDIS |
xc=xc+0.001789*tch4(i,j,4) |
|
./pkg/fizhi/fizhi_lwrad.F |
2956 |
CH4KDIS |
tran(i,j)=tran(i,j)*xc |
|
./pkg/fizhi/fizhi_lwrad.F |
297 |
LWRIO |
do j = 1,jm |
|
./pkg/fizhi/fizhi_lwrad.F |
2985 |
COMKDIS |
integer ib,m,n,np,k,i,j |
|
./pkg/fizhi/fizhi_lwrad.F |
299 |
LWRIO |
tmpdiag(i,j) = qz(i,j,L)*1000. |
|
./pkg/fizhi/fizhi_lwrad.F |
3002 |
COMKDIS |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
3009 |
COMKDIS |
tcom(i,j,1)=tcom(i,j,1)*comexp(i,j,k,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
3010 |
COMKDIS |
xc= 0.972025*tcom(i,j,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
3011 |
COMKDIS |
tcom(i,j,2)=tcom(i,j,2)*comexp(i,j,k,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
3012 |
COMKDIS |
xc=xc+0.027975*tcom(i,j,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
3018 |
COMKDIS |
tcom(i,j,1)=tcom(i,j,1)*comexp(i,j,k,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
3019 |
COMKDIS |
xc= 0.961324*tcom(i,j,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
3020 |
COMKDIS |
tcom(i,j,2)=tcom(i,j,2)*comexp(i,j,k,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
3021 |
COMKDIS |
xc=xc+0.038676*tcom(i,j,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
3025 |
COMKDIS |
tran(i,j)=tran(i,j)*xc |
|
./pkg/fizhi/fizhi_lwrad.F |
3053 |
CFCKDIS |
integer m,n,np,k,i,j |
|
./pkg/fizhi/fizhi_lwrad.F |
3065 |
CFCKDIS |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
3068 |
CFCKDIS |
tcfc(i,j)=tcfc(i,j)*cfcexp(i,j,k) |
|
./pkg/fizhi/fizhi_lwrad.F |
3069 |
CFCKDIS |
tran(i,j)=tran(i,j)*tcfc(i,j) |
|
./pkg/fizhi/fizhi_lwrad.F |
306 |
LWRIO |
do j = 1,jm |
|
./pkg/fizhi/fizhi_lwrad.F |
308 |
LWRIO |
tmpdiag(i,j) = oz(i,j,L) |
|
./pkg/fizhi/fizhi_lwrad.F |
3109 |
B10KDIS |
integer m,n,np,k,i,j |
|
./pkg/fizhi/fizhi_lwrad.F |
3127 |
B10KDIS |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
3129 |
B10KDIS |
tran(i,j)=1.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
3135 |
B10KDIS |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
3138 |
B10KDIS |
th2o(i,j,1)=th2o(i,j,1)*h2oexp(i,j,k,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
3139 |
B10KDIS |
xx= 0.3153*th2o(i,j,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
3141 |
B10KDIS |
th2o(i,j,2)=th2o(i,j,2)*h2oexp(i,j,k,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
3142 |
B10KDIS |
xx=xx+0.4604*th2o(i,j,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
3144 |
B10KDIS |
th2o(i,j,3)=th2o(i,j,3)*h2oexp(i,j,k,3) |
|
./pkg/fizhi/fizhi_lwrad.F |
3145 |
B10KDIS |
xx=xx+0.1326*th2o(i,j,3) |
|
./pkg/fizhi/fizhi_lwrad.F |
3147 |
B10KDIS |
th2o(i,j,4)=th2o(i,j,4)*h2oexp(i,j,k,4) |
|
./pkg/fizhi/fizhi_lwrad.F |
3148 |
B10KDIS |
xx=xx+0.0798*th2o(i,j,4) |
|
./pkg/fizhi/fizhi_lwrad.F |
3150 |
B10KDIS |
th2o(i,j,5)=th2o(i,j,5)*h2oexp(i,j,k,5) |
|
./pkg/fizhi/fizhi_lwrad.F |
3151 |
B10KDIS |
xx=xx+0.0119*th2o(i,j,5) |
|
./pkg/fizhi/fizhi_lwrad.F |
3153 |
B10KDIS |
tran(i,j)=tran(i,j)*xx |
|
./pkg/fizhi/fizhi_lwrad.F |
3160 |
B10KDIS |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
3163 |
B10KDIS |
tcon(i,j,1)=tcon(i,j,1)*conexp(i,j,k,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
3164 |
B10KDIS |
tran(i,j)=tran(i,j)*tcon(i,j,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
3171 |
B10KDIS |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
3174 |
B10KDIS |
tco2(i,j,1,1)=tco2(i,j,1,1)*co2exp(i,j,k,1,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
3175 |
B10KDIS |
xx= 0.2673*tco2(i,j,1,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
3177 |
B10KDIS |
tco2(i,j,2,1)=tco2(i,j,2,1)*co2exp(i,j,k,2,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
3178 |
B10KDIS |
xx=xx+ 0.2201*tco2(i,j,2,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
3180 |
B10KDIS |
tco2(i,j,3,1)=tco2(i,j,3,1)*co2exp(i,j,k,3,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
3181 |
B10KDIS |
xx=xx+ 0.2106*tco2(i,j,3,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
3183 |
B10KDIS |
tco2(i,j,4,1)=tco2(i,j,4,1)*co2exp(i,j,k,4,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
3184 |
B10KDIS |
xx=xx+ 0.2409*tco2(i,j,4,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
3186 |
B10KDIS |
tco2(i,j,5,1)=tco2(i,j,5,1)*co2exp(i,j,k,5,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
3187 |
B10KDIS |
xx=xx+ 0.0196*tco2(i,j,5,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
3189 |
B10KDIS |
tco2(i,j,6,1)=tco2(i,j,6,1)*co2exp(i,j,k,6,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
3190 |
B10KDIS |
xx=xx+ 0.0415*tco2(i,j,6,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
3192 |
B10KDIS |
tran(i,j)=tran(i,j)*xx |
|
./pkg/fizhi/fizhi_lwrad.F |
3199 |
B10KDIS |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
3202 |
B10KDIS |
tn2o(i,j,1)=tn2o(i,j,1)*n2oexp(i,j,k,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
3203 |
B10KDIS |
xx= 0.970831*tn2o(i,j,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
3205 |
B10KDIS |
tn2o(i,j,2)=tn2o(i,j,2)*n2oexp(i,j,k,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
3206 |
B10KDIS |
xx=xx+0.029169*tn2o(i,j,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
3208 |
B10KDIS |
tran(i,j)=tran(i,j)*(xx-1.0) |
|
./pkg/fizhi/fizhi_lwrad.F |
334 |
LWRIO |
do j = 1,jm |
|
./pkg/fizhi/fizhi_lwrad.F |
336 |
LWRIO |
fccave(i,j,L) = 0. |
|
./pkg/fizhi/fizhi_lwrad.F |
337 |
LWRIO |
qliqave(i,j,L) = 0. |
|
./pkg/fizhi/fizhi_lwrad.F |
39 |
LWRIO |
integer i,j,l,n,nn |
|
./pkg/fizhi/fizhi_lwrad.F |
563 |
IRRAD |
integer i,j,k,ip,iw,it,ib,ik,iq,isb,k1,k2 |
|
./pkg/fizhi/fizhi_lwrad.F |
872 |
IRRAD |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
874 |
IRRAD |
if (pl(i,j,1) .eq. 0.0) then |
|
./pkg/fizhi/fizhi_lwrad.F |
875 |
IRRAD |
pl(i,j,1)=1.0e-4 |
|
./pkg/fizhi/fizhi_lwrad.F |
883 |
IRRAD |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
885 |
IRRAD |
pa(i,j,k)=0.5*(pl(i,j,k)+pl(i,j,k+1)) |
|
./pkg/fizhi/fizhi_lwrad.F |
886 |
IRRAD |
dt(i,j,k)=ta(i,j,k)-250.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
910 |
IRRAD |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
913 |
IRRAD |
dp = pl(i,j,k+1)-pl(i,j,k) |
|
./pkg/fizhi/fizhi_lwrad.F |
914 |
IRRAD |
dh2o (i,j,k) = 1.02*wa(i,j,k)*dp+1.e-10 |
|
./pkg/fizhi/fizhi_lwrad.F |
915 |
IRRAD |
do3 (i,j,k) = 476.*oa(i,j,k)*dp+1.e-10 |
|
./pkg/fizhi/fizhi_lwrad.F |
916 |
IRRAD |
dco2 (i,j,k) = 789.*co2*dp+1.e-10 |
|
./pkg/fizhi/fizhi_lwrad.F |
917 |
IRRAD |
dch4 (i,j,k) = 789.*ch4(k)*dp+1.e-10 |
|
./pkg/fizhi/fizhi_lwrad.F |
918 |
IRRAD |
dn2o (i,j,k) = 789.*n2o(k)*dp+1.e-10 |
|
./pkg/fizhi/fizhi_lwrad.F |
919 |
IRRAD |
df11 (i,j,k) = 789.*cfc11*dp+1.e-10 |
|
./pkg/fizhi/fizhi_lwrad.F |
920 |
IRRAD |
df12 (i,j,k) = 789.*cfc12*dp+1.e-10 |
|
./pkg/fizhi/fizhi_lwrad.F |
921 |
IRRAD |
df22 (i,j,k) = 789.*cfc22*dp+1.e-10 |
|
./pkg/fizhi/fizhi_lwrad.F |
926 |
IRRAD |
xx=pa(i,j,k)*0.001618*wa(i,j,k)*wa(i,j,k)*dp |
|
./pkg/fizhi/fizhi_lwrad.F |
927 |
IRRAD |
dcont(i,j,k) = xx*exp(1800./ta(i,j,k)-6.081)+1.e-10 |
|
./pkg/fizhi/fizhi_lwrad.F |
947 |
IRRAD |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
949 |
IRRAD |
dp =pl(i,j,k+1)-pl(i,j,k) |
|
./pkg/fizhi/fizhi_lwrad.F |
950 |
IRRAD |
cwp(i,j,k,1)=1.02*10000.0*cwc(i,j,k,1)*dp |
|
./pkg/fizhi/fizhi_lwrad.F |
951 |
IRRAD |
cwp(i,j,k,2)=1.02*10000.0*cwc(i,j,k,2)*dp |
|
./pkg/fizhi/fizhi_lwrad.F |
952 |
IRRAD |
cwp(i,j,k,3)=1.02*10000.0*cwc(i,j,k,3)*dp |
|
./pkg/fizhi/fizhi_lwrad.F |
953 |
IRRAD |
taucl(i,j,k,3)=0.00307*cwp(i,j,k,3) |
|
./pkg/fizhi/fizhi_lwrad.F |
965 |
IRRAD |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
967 |
IRRAD |
clr(i,j,0) = 1.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
968 |
IRRAD |
clr(i,j,np+1) = 0.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
969 |
IRRAD |
st4(i,j) = 0.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
970 |
IRRAD |
transfc(i,j,np+1)=1.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
971 |
IRRAD |
trantcr(i,j,np+1)=1.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
978 |
IRRAD |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
980 |
IRRAD |
flx(i,j,k) = 0.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
981 |
IRRAD |
flc(i,j,k) = 0.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
982 |
IRRAD |
dfdts(i,j,k)= 0.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
983 |
IRRAD |
rflx(i,j,k) = 0.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
984 |
IRRAD |
rflc(i,j,k) = 0.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
98 |
LWRIO |
do j =1,jm |
|
./pkg/fizhi/fizhi_moist.F |
1007 |
MOISTIO |
do j = 1,jm |
|
./pkg/fizhi/fizhi_moist.F |
1009 |
MOISTIO |
rainlsp (i,j) = rainlsp (i,j) + lsp_new(i,j)*tminv |
|
./pkg/fizhi/fizhi_moist.F |
1010 |
MOISTIO |
rainconv(i,j) = rainconv(i,j) + conv_new(i,j)*tminv |
|
./pkg/fizhi/fizhi_moist.F |
1011 |
MOISTIO |
snowfall(i,j) = snowfall(i,j) + snow_new(i,j)*tminv |
|
./pkg/fizhi/fizhi_moist.F |
1021 |
MOISTIO |
do j = 1,jm |
|
./pkg/fizhi/fizhi_moist.F |
1023 |
MOISTIO |
cldhi (i,j) = 0. |
|
./pkg/fizhi/fizhi_moist.F |
1024 |
MOISTIO |
cldmid(i,j) = 0. |
|
./pkg/fizhi/fizhi_moist.F |
1025 |
MOISTIO |
cldlow(i,j) = 0. |
|
./pkg/fizhi/fizhi_moist.F |
1026 |
MOISTIO |
cldtmp(i,j) = 0. |
|
./pkg/fizhi/fizhi_moist.F |
1027 |
MOISTIO |
cldprs(i,j) = 0. |
|
./pkg/fizhi/fizhi_moist.F |
1028 |
MOISTIO |
tmpimjm(i,j) = 0. |
|
./pkg/fizhi/fizhi_moist.F |
1040 |
MOISTIO |
do j = 1,jm |
|
./pkg/fizhi/fizhi_moist.F |
1045 |
MOISTIO |
indx = (j-1)*im + i |
|
./pkg/fizhi/fizhi_moist.F |
1050 |
MOISTIO |
watnow = cldwater(i,j,L) |
|
./pkg/fizhi/fizhi_moist.F |
1052 |
MOISTIO |
cldras = min( max( cldras_lw(i,j,L)*cldras_mem,cpen(i,j,L)), |
|
./pkg/fizhi/fizhi_moist.F |
1057 |
MOISTIO |
cldlsp = min( max( cldlsp_lw(i,j,L)*cldlsp_mem,cldls(i,j,L)), |
|
./pkg/fizhi/fizhi_moist.F |
1065 |
MOISTIO |
lwlz(i,j,L) = ( nlwlz*lwlz(i,j,L) + watnow)/(nlwlz +1) |
|
./pkg/fizhi/fizhi_moist.F |
1066 |
MOISTIO |
cldtot_lw(i,j,L) = (nlwcld*cldtot_lw(i,j,L) + cldnow)/(nlwcld+1) |
|
./pkg/fizhi/fizhi_moist.F |
1067 |
MOISTIO |
cldlsp_lw(i,j,L) = (nlwcld*cldlsp_lw(i,j,L) + cldlsp)/(nlwcld+1) |
|
./pkg/fizhi/fizhi_moist.F |
1068 |
MOISTIO |
cldras_lw(i,j,L) = (nlwcld*cldras_lw(i,j,L) + cldras)/(nlwcld+1) |
|
./pkg/fizhi/fizhi_moist.F |
1073 |
MOISTIO |
watnow = cldwater(i,j,L) |
|
./pkg/fizhi/fizhi_moist.F |
1075 |
MOISTIO |
cldras = min( max(cldras_sw(i,j,L)*cldras_mem, cpen(i,j,L)), |
|
./pkg/fizhi/fizhi_moist.F |
1080 |
MOISTIO |
cldlsp = min( max(cldlsp_sw(i,j,L)*cldlsp_mem,cldls(i,j,L)), |
|
./pkg/fizhi/fizhi_moist.F |
1088 |
MOISTIO |
swlz(i,j,L) = ( nswlz*swlz(i,j,L) + watnow)/(nswlz +1) |
|
./pkg/fizhi/fizhi_moist.F |
1089 |
MOISTIO |
cldtot_sw(i,j,L) = (nswcld*cldtot_sw(i,j,L) + cldnow)/(nswcld+1) |
|
./pkg/fizhi/fizhi_moist.F |
1090 |
MOISTIO |
cldlsp_sw(i,j,L) = (nswcld*cldlsp_sw(i,j,L) + cldlsp)/(nswcld+1) |
|
./pkg/fizhi/fizhi_moist.F |
1091 |
MOISTIO |
cldras_sw(i,j,L) = (nswcld*cldras_sw(i,j,L) + cldras)/(nswcld+1) |
|
./pkg/fizhi/fizhi_moist.F |
1097 |
MOISTIO |
if( L.lt.midlevel ) cldhi (i,j) = max( cldnow,cldhi (i,j) ) |
|
./pkg/fizhi/fizhi_moist.F |
1099 |
MOISTIO |
. L.lt.lowlevel ) cldmid(i,j) = max( cldnow,cldmid(i,j) ) |
|
./pkg/fizhi/fizhi_moist.F |
1100 |
MOISTIO |
if( L.ge.lowlevel ) cldlow(i,j) = max( cldnow,cldlow(i,j) ) |
|
./pkg/fizhi/fizhi_moist.F |
1104 |
MOISTIO |
cldtmp(i,j) = cldtmp(i,j) + cldnow*pkzgather(i,L) |
|
./pkg/fizhi/fizhi_moist.F |
1105 |
MOISTIO |
. * ( tz(i,j,L) + dtmoist(i,j,L)*tmstp/pz(i,j) ) |
|
./pkg/fizhi/fizhi_moist.F |
1106 |
MOISTIO |
cldprs(i,j) = cldprs(i,j) + cldnow*plev |
|
./pkg/fizhi/fizhi_moist.F |
1107 |
MOISTIO |
tmpimjm(i,j) = tmpimjm(i,j) + cldnow |
|
./pkg/fizhi/fizhi_moist.F |
1115 |
MOISTIO |
do j = 1,jm |
|
./pkg/fizhi/fizhi_moist.F |
1117 |
MOISTIO |
totcld(i,j) = 1.0 - (1.-cldhi (i,j)) |
|
./pkg/fizhi/fizhi_moist.F |
1118 |
MOISTIO |
. * (1.-cldmid(i,j)) |
|
./pkg/fizhi/fizhi_moist.F |
1119 |
MOISTIO |
. * (1.-cldlow(i,j)) |
|
./pkg/fizhi/fizhi_moist.F |
1131 |
MOISTIO |
do j=1,jm |
|
./pkg/fizhi/fizhi_moist.F |
1133 |
MOISTIO |
if( cldtmp(i,j).gt.0. ) then |
|
./pkg/fizhi/fizhi_moist.F |
1134 |
MOISTIO |
tmpdiag(i,j) = cldtmp(i,j)*totcld(i,j)/tmpimjm(i,j) |
|
./pkg/fizhi/fizhi_moist.F |
1135 |
MOISTIO |
tmpdiag2(i,j) = totcld(i,j) |
|
./pkg/fizhi/fizhi_moist.F |
1137 |
MOISTIO |
tmpdiag(i,j) = 0. |
|
./pkg/fizhi/fizhi_moist.F |
1138 |
MOISTIO |
tmpdiag2(i,j) = 0. |
|
./pkg/fizhi/fizhi_moist.F |
1148 |
MOISTIO |
do j=1,jm |
|
./pkg/fizhi/fizhi_moist.F |
1150 |
MOISTIO |
if( cldprs(i,j).gt.0. ) then |
|
./pkg/fizhi/fizhi_moist.F |
1151 |
MOISTIO |
tmpdiag(i,j) = cldprs(i,j)*totcld(i,j)/tmpimjm(i,j) |
|
./pkg/fizhi/fizhi_moist.F |
1152 |
MOISTIO |
tmpdiag2(i,j) = totcld(i,j) |
|
./pkg/fizhi/fizhi_moist.F |
1154 |
MOISTIO |
tmpdiag(i,j) = 0. |
|
./pkg/fizhi/fizhi_moist.F |
1155 |
MOISTIO |
tmpdiag2(i,j) = 0. |
|
./pkg/fizhi/fizhi_moist.F |
139 |
MOISTIO |
integer i,j,iloop,indx,indgath,l,nn,num,numdeps,nt |
|
./pkg/fizhi/fizhi_moist.F |
215 |
MOISTIO |
do j = 1,jm |
|
./pkg/fizhi/fizhi_moist.F |
217 |
MOISTIO |
qqcolmin(i,j) = qqz(i,j,lm)*fracqq |
|
./pkg/fizhi/fizhi_moist.F |
218 |
MOISTIO |
qqcolmax(i,j) = qqz(i,j,lm) |
|
./pkg/fizhi/fizhi_moist.F |
219 |
MOISTIO |
levpbl(i,j) = lm+1 |
|
./pkg/fizhi/fizhi_moist.F |
224 |
MOISTIO |
DO j = 1,jm |
|
./pkg/fizhi/fizhi_moist.F |
226 |
MOISTIO |
IF((qqz(i,j,l).gt.qqcolmax(i,j)) |
|
./pkg/fizhi/fizhi_moist.F |
227 |
MOISTIO |
1 .and.(levpbl(i,j).eq.lm+1))then |
|
./pkg/fizhi/fizhi_moist.F |
228 |
MOISTIO |
qqcolmax(i,j) = qqz(i,j,l) |
|
./pkg/fizhi/fizhi_moist.F |
229 |
MOISTIO |
qqcolmin(i,j) = fracqq*qqcolmax(i,j) |
|
./pkg/fizhi/fizhi_moist.F |
231 |
MOISTIO |
if((qqz(i,j,l).lt.qqcolmin(i,j)) |
|
./pkg/fizhi/fizhi_moist.F |
232 |
MOISTIO |
1 .and.(levpbl(i,j).eq.lm+1))levpbl(i,j)=L+1 |
|
./pkg/fizhi/fizhi_moist.F |
237 |
MOISTIO |
do j = 1,jm |
|
./pkg/fizhi/fizhi_moist.F |
239 |
MOISTIO |
if(levpbl(i,j).gt.nsubmin) levpbl(i,j) = nsubmin |
|
./pkg/fizhi/fizhi_moist.F |
240 |
MOISTIO |
if(levpbl(i,j).lt.nsubmax) levpbl(i,j) = nsubmax |
|
./pkg/fizhi/fizhi_moist.F |
249 |
MOISTIO |
do j = 1,jm |
|
./pkg/fizhi/fizhi_moist.F |
251 |
MOISTIO |
if(levpbl(i,j).eq.L) then |
|
./pkg/fizhi/fizhi_moist.F |
253 |
MOISTIO |
pblindex(indx) = (j-1)*im + i |
|
./pkg/fizhi/fizhi_moist.F |
264 |
MOISTIO |
j = 1+INT((pblindex(indx)-1)/im) |
|
./pkg/fizhi/fizhi_moist.F |
266 |
MOISTIO |
levgather(indx) = levpbl(i,j) |
|
./pkg/fizhi/fizhi_moist.F |
267 |
MOISTIO |
pigather(indx) = pz(i,j) |
|
./pkg/fizhi/fizhi_moist.F |
268 |
MOISTIO |
pkegather(indx,lm+1) = pkht(i,j,lm+1) |
|
./pkg/fizhi/fizhi_moist.F |
269 |
MOISTIO |
plegather(indx,lm+1) = plze(i,j,lm+1) |
|
./pkg/fizhi/fizhi_moist.F |
281 |
MOISTIO |
j = 1+INT((pblindex(indx)-1)/im) |
|
./pkg/fizhi/fizhi_moist.F |
283 |
MOISTIO |
thgather(indx,L) = tz(i,j,L) |
|
./pkg/fizhi/fizhi_moist.F |
284 |
MOISTIO |
shgather(indx,L) = qz(i,j,L,1) |
|
./pkg/fizhi/fizhi_moist.F |
285 |
MOISTIO |
pkegather(indx,L) = pkht(i,j,L) |
|
./pkg/fizhi/fizhi_moist.F |
286 |
MOISTIO |
pkzgather(indx,L) = pkl(i,j,L) |
|
./pkg/fizhi/fizhi_moist.F |
287 |
MOISTIO |
plegather(indx,L) = plze(i,j,L) |
|
./pkg/fizhi/fizhi_moist.F |
288 |
MOISTIO |
plzgather(indx,L) = plz(i,j,L) |
|
./pkg/fizhi/fizhi_moist.F |
289 |
MOISTIO |
dpgather(indx,L) = dpres(i,j,L) |
|
./pkg/fizhi/fizhi_moist.F |
298 |
MOISTIO |
j = 1+INT((pblindex(indx)-1)/im) |
|
./pkg/fizhi/fizhi_moist.F |
300 |
MOISTIO |
ugather(indx,L,nt) = qz(i,j,L,nt+ptracer) |
|
./pkg/fizhi/fizhi_moist.F |
312 |
MOISTIO |
j = 1+INT((pblindex(indx)-1)/im) |
|
./pkg/fizhi/fizhi_moist.F |
314 |
MOISTIO |
ugather(indx,L,ntracerin-ptracer+1) = uz(i,j,L) |
|
./pkg/fizhi/fizhi_moist.F |
315 |
MOISTIO |
ugather(indx,L,ntracerin-ptracer+2) = vz(i,j,L) |
|
./pkg/fizhi/fizhi_moist.F |
331 |
MOISTIO |
do j=1,jm |
|
./pkg/fizhi/fizhi_moist.F |
333 |
MOISTIO |
dumoist(i,j,l) = 0. |
|
./pkg/fizhi/fizhi_moist.F |
334 |
MOISTIO |
dvmoist(i,j,l) = 0. |
|
./pkg/fizhi/fizhi_moist.F |
335 |
MOISTIO |
dtmoist(i,j,l) = 0. |
|
./pkg/fizhi/fizhi_moist.F |
337 |
MOISTIO |
dqmoist(i,j,l,nt) = 0. |
|
./pkg/fizhi/fizhi_moist.F |
823 |
MOISTIO |
do j = 1,jm |
|
./pkg/fizhi/fizhi_moist.F |
825 |
MOISTIO |
tmpimjm(i,j) = 1./pz(i,j) |
|
./pkg/fizhi/fizhi_moist.F |
829 |
MOISTIO |
do j = 1,jm |
|
./pkg/fizhi/fizhi_moist.F |
831 |
MOISTIO |
dumoist(i,j,L) = dumoist(i,j,L) * tmpimjm(i,j) |
|
./pkg/fizhi/fizhi_moist.F |
832 |
MOISTIO |
dvmoist(i,j,L) = dvmoist(i,j,L) * tmpimjm(i,j) |
|
./pkg/fizhi/fizhi_moist.F |
858 |
MOISTIO |
do j=1,jm |
|
./pkg/fizhi/fizhi_moist.F |
860 |
MOISTIO |
tmpdiag(i,j) = cldsr(i,j,L) |
|
./pkg/fizhi/fizhi_moist.F |
871 |
MOISTIO |
do j=1,jm |
|
./pkg/fizhi/fizhi_moist.F |
873 |
MOISTIO |
indgath = (j-1)*im + i |
|
./pkg/fizhi/fizhi_moist.F |
874 |
MOISTIO |
tmpdiag(i,j)=(dtmoist(i,j,L)*sday*pkzgather(indgath,L)/pz(i,j)) |
|
./pkg/fizhi/fizhi_moist.F |
885 |
MOISTIO |
do j=1,jm |
|
./pkg/fizhi/fizhi_moist.F |
887 |
MOISTIO |
tmpdiag(i,j)=(dqmoist(i,j,L,1)*sday*1000./pz(i,j)) |
|
./pkg/fizhi/fizhi_moist.F |
898 |
MOISTIO |
do j=1,jm |
|
./pkg/fizhi/fizhi_moist.F |
900 |
MOISTIO |
tmpdiag(i,j)=dumoist(i,j,L)*sday |
|
./pkg/fizhi/fizhi_moist.F |
911 |
MOISTIO |
do j=1,jm |
|
./pkg/fizhi/fizhi_moist.F |
913 |
MOISTIO |
tmpdiag(i,j)=dvmoist(i,j,L)*sday |
|
./pkg/fizhi/fizhi_moist.F |
924 |
MOISTIO |
do j=1,jm |
|
./pkg/fizhi/fizhi_moist.F |
926 |
MOISTIO |
indgath = (j-1)*im + i |
|
./pkg/fizhi/fizhi_moist.F |
927 |
MOISTIO |
tmpdiag(i,j)=tmpgather(indgath,L) |
|
./pkg/fizhi/fizhi_moist.F |
938 |
MOISTIO |
do j=1,jm |
|
./pkg/fizhi/fizhi_moist.F |
940 |
MOISTIO |
indgath = (j-1)*im + i |
|
./pkg/fizhi/fizhi_moist.F |
941 |
MOISTIO |
tmpdiag(i,j)=pkegather(indgath,L) |
|
./pkg/fizhi/fizhi_moist.F |
952 |
MOISTIO |
do j=1,jm |
|
./pkg/fizhi/fizhi_moist.F |
954 |
MOISTIO |
indgath = (j-1)*im + i |
|
./pkg/fizhi/fizhi_moist.F |
955 |
MOISTIO |
tmpdiag(i,j)=deltrnev(indgath,L) |
|
./pkg/fizhi/fizhi_moist.F |
966 |
MOISTIO |
do j=1,jm |
|
./pkg/fizhi/fizhi_moist.F |
968 |
MOISTIO |
indgath = (j-1)*im + i |
|
./pkg/fizhi/fizhi_moist.F |
969 |
MOISTIO |
tmpdiag(i,j)=delqrnev(indgath,L) |
|
./pkg/fizhi/fizhi_moist.F |
979 |
MOISTIO |
do j=1,jm |
|
./pkg/fizhi/fizhi_moist.F |
981 |
MOISTIO |
tmpdiag(i,j) = (lsp_new(I,j) + snow_new(I,j) + conv_new(i,j)) |
|
./pkg/fizhi/fizhi_moist.F |
991 |
MOISTIO |
do j=1,jm |
|
./pkg/fizhi/fizhi_moist.F |
993 |
MOISTIO |
indgath = (j-1)*im + i |
|
./pkg/fizhi/fizhi_moist.F |
994 |
MOISTIO |
tmpdiag(i,j) = raincgath(indgath)*sday*tminv |
|
./pkg/fizhi/fizhi_rayleigh.F |
103 |
RAYLEIGH |
do j=1,jm |
|
./pkg/fizhi/fizhi_rayleigh.F |
105 |
RAYLEIGH |
tmpdiag(i,j) = rfu(i,j,L)*86400 |
|
./pkg/fizhi/fizhi_rayleigh.F |
112 |
RAYLEIGH |
do j=1,jm |
|
./pkg/fizhi/fizhi_rayleigh.F |
114 |
RAYLEIGH |
tmpdiag(i,j) = rfv(i,j,L)*86400 |
|
./pkg/fizhi/fizhi_rayleigh.F |
121 |
RAYLEIGH |
do j=1,jm |
|
./pkg/fizhi/fizhi_rayleigh.F |
123 |
RAYLEIGH |
tmpdiag(i,j) = rft(i,j,L)*86400 |
|
./pkg/fizhi/fizhi_rayleigh.F |
44 |
RAYLEIGH |
integer i,j,L |
|
./pkg/fizhi/fizhi_rayleigh.F |
65 |
RAYLEIGH |
do j=1,jm |
|
./pkg/fizhi/fizhi_rayleigh.F |
67 |
RAYLEIGH |
dz(i,j,L) = cpog * (pekap(i,j,L+1)-pekap(i,j,L)) * t(i,j,L) * |
|
./pkg/fizhi/fizhi_rayleigh.F |
68 |
RAYLEIGH |
. (1.+virtcon*s(i,j,L)) |
|
./pkg/fizhi/fizhi_rayleigh.F |
73 |
RAYLEIGH |
do j=1,jm |
|
./pkg/fizhi/fizhi_rayleigh.F |
75 |
RAYLEIGH |
z(i,j,lm) = zsurf(i,j) + 0.5 * dz(i,j,lm) |
|
./pkg/fizhi/fizhi_rayleigh.F |
80 |
RAYLEIGH |
do j=1,jm |
|
./pkg/fizhi/fizhi_rayleigh.F |
82 |
RAYLEIGH |
z(i,j,L) = z(i,j,L+1) + 0.5 * (dz(i,j,L)+dz(i,j,L+1)) |
|
./pkg/fizhi/fizhi_rayleigh.F |
88 |
RAYLEIGH |
do j=1,jm |
|
./pkg/fizhi/fizhi_rayleigh.F |
90 |
RAYLEIGH |
rf(i,j,L) = dampcoef*(1+tanh((z(i,j,L)-50000.)/5000.))/86400. |
|
./pkg/fizhi/fizhi_rayleigh.F |
91 |
RAYLEIGH |
rfu(i,j,L) = - rf(i,j,L) * u(i,j,L) |
|
./pkg/fizhi/fizhi_rayleigh.F |
92 |
RAYLEIGH |
rfv(i,j,L) = - rf(i,j,L) * v(i,j,L) |
|
./pkg/fizhi/fizhi_rayleigh.F |
93 |
RAYLEIGH |
rft(i,j,L) = -(u(i,j,L)*rfu(i,j,L) + v(i,j,L)*rfv(i,j,L) )*cpinv |
|
./pkg/fizhi/fizhi_rayleigh.F |
94 |
RAYLEIGH |
. /pkap(i,j,L) |
|
./pkg/fizhi/fizhi_read_pickup.F |
45 |
FIZHI_READ_PICKUP |
integer j,bi,bj |
|
./pkg/fizhi/fizhi_read_pickup.F |
76 |
FIZHI_READ_PICKUP |
do j = 1-OLy,sNy+OLy |
|
./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_step_diag.F |
103 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./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 |
114 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./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 |
119 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = 0. |
|
./pkg/fizhi/fizhi_step_diag.F |
129 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./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 |
141 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./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 |
153 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./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 |
168 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./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 |
179 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./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 |
190 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./pkg/fizhi/fizhi_step_diag.F |
192 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = |
|
./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 |
206 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./pkg/fizhi/fizhi_step_diag.F |
208 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = |
|
./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 |
210 |
FIZHI_STEP_DIAG |
& pinv(i,j)*86400*1000 |
|
./pkg/fizhi/fizhi_step_diag.F |
219 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./pkg/fizhi/fizhi_step_diag.F |
221 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = |
|
./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 |
233 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./pkg/fizhi/fizhi_step_diag.F |
235 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = |
|
./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 |
247 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./pkg/fizhi/fizhi_step_diag.F |
249 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = |
|
./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 |
260 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./pkg/fizhi/fizhi_step_diag.F |
262 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = |
|
./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 |
273 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./pkg/fizhi/fizhi_step_diag.F |
275 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = uphy(i,j,L) |
|
./pkg/fizhi/fizhi_step_diag.F |
284 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./pkg/fizhi/fizhi_step_diag.F |
286 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = vphy(i,j,L) |
|
./pkg/fizhi/fizhi_step_diag.F |
295 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./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 |
306 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./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 |
317 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./pkg/fizhi/fizhi_step_diag.F |
319 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = sphy(i,j,L) * 1000. |
|
./pkg/fizhi/fizhi_step_diag.F |
332 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./pkg/fizhi/fizhi_step_diag.F |
334 |
FIZHI_STEP_DIAG |
qbar(i,j) = 0.0 |
|
./pkg/fizhi/fizhi_step_diag.F |
338 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./pkg/fizhi/fizhi_step_diag.F |
340 |
FIZHI_STEP_DIAG |
qbar(i,j) = qbar(i,j) + |
|
./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 |
345 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./pkg/fizhi/fizhi_step_diag.F |
347 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = qbar(i,j)*pinv(i,j)*pinv(i,j)*86400 |
|
./pkg/fizhi/fizhi_step_diag.F |
356 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./pkg/fizhi/fizhi_step_diag.F |
358 |
FIZHI_STEP_DIAG |
qbar(i,j) = 0.0 |
|
./pkg/fizhi/fizhi_step_diag.F |
362 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./pkg/fizhi/fizhi_step_diag.F |
364 |
FIZHI_STEP_DIAG |
qbar(i,j) = qbar(i,j) + |
|
./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 |
369 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./pkg/fizhi/fizhi_step_diag.F |
371 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = qbar(i,j)*pinv(i,j)*pinv(i,j)*86400 |
|
./pkg/fizhi/fizhi_step_diag.F |
380 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./pkg/fizhi/fizhi_step_diag.F |
382 |
FIZHI_STEP_DIAG |
qbar(i,j) = 0.0 |
|
./pkg/fizhi/fizhi_step_diag.F |
386 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./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 |
394 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./pkg/fizhi/fizhi_step_diag.F |
396 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = qbar(i,j)*pinv(i,j)*pinv(i,j)*86400 |
|
./pkg/fizhi/fizhi_step_diag.F |
405 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./pkg/fizhi/fizhi_step_diag.F |
407 |
FIZHI_STEP_DIAG |
qbar(i,j) = 0.0 |
|
./pkg/fizhi/fizhi_step_diag.F |
411 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./pkg/fizhi/fizhi_step_diag.F |
413 |
FIZHI_STEP_DIAG |
qbar(i,j) = qbar(i,j) + |
|
./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 |
418 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./pkg/fizhi/fizhi_step_diag.F |
41 |
FIZHI_STEP_DIAG |
INTEGER i,j,L |
|
./pkg/fizhi/fizhi_step_diag.F |
420 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = qbar(i,j) * |
|
./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 |
431 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./pkg/fizhi/fizhi_step_diag.F |
433 |
FIZHI_STEP_DIAG |
qbar(i,j) = 0.0 |
|
./pkg/fizhi/fizhi_step_diag.F |
437 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./pkg/fizhi/fizhi_step_diag.F |
439 |
FIZHI_STEP_DIAG |
qbar(i,j) = qbar(i,j) + |
|
./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 |
444 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./pkg/fizhi/fizhi_step_diag.F |
446 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = qbar(i,j)*10. _d 0 /gravity |
|
./pkg/fizhi/fizhi_step_diag.F |
52 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./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 |
70 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./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 |
81 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./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 |
92 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./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_swrad.F |
1012 |
CLDSCALE |
integer i,j,k,im,it,ia,kk |
|
./pkg/fizhi/fizhi_swrad.F |
1033 |
CLDSCALE |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
1035 |
CLDSCALE |
cc(i,j,1)=0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
1036 |
CLDSCALE |
cc(i,j,2)=0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
1037 |
CLDSCALE |
cc(i,j,3)=0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
1042 |
CLDSCALE |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
1044 |
CLDSCALE |
cc(i,j,1)=max(cc(i,j,1),fcld(i,j,k)) |
|
./pkg/fizhi/fizhi_swrad.F |
1050 |
CLDSCALE |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
1052 |
CLDSCALE |
cc(i,j,2)=max(cc(i,j,2),fcld(i,j,k)) |
|
./pkg/fizhi/fizhi_swrad.F |
1058 |
CLDSCALE |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
1060 |
CLDSCALE |
cc(i,j,3)=max(cc(i,j,3),fcld(i,j,k)) |
|
./pkg/fizhi/fizhi_swrad.F |
1079 |
CLDSCALE |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
1082 |
CLDSCALE |
tauclb(i,j,k) = 0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
1083 |
CLDSCALE |
tauclf(i,j,k) = 0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
1085 |
CLDSCALE |
taux=taucld(i,j,k,1)+taucld(i,j,k,2) |
|
./pkg/fizhi/fizhi_swrad.F |
1086 |
CLDSCALE |
if (taux.gt.0.05 .and. fcld(i,j,k).gt.0.01) then |
|
./pkg/fizhi/fizhi_swrad.F |
1090 |
CLDSCALE |
fa=fcld(i,j,k)/cc(i,j,kk) |
|
./pkg/fizhi/fizhi_swrad.F |
1096 |
CLDSCALE |
fm=cosz(i,j)/dm |
|
./pkg/fizhi/fizhi_swrad.F |
1132 |
CLDSCALE |
tauclb(i,j,k) = taux*xai |
|
./pkg/fizhi/fizhi_swrad.F |
1147 |
CLDSCALE |
tauclf(i,j,k) = taux*xai |
|
./pkg/fizhi/fizhi_swrad.F |
115 |
SWRIO |
do j=1,jm |
|
./pkg/fizhi/fizhi_swrad.F |
117 |
SWRIO |
tdry(i,j,L) = tz(i,j,L)*pkz(i,j,L) |
|
./pkg/fizhi/fizhi_swrad.F |
1253 |
SOLIR |
integer ib,ik,i,j,k |
|
./pkg/fizhi/fizhi_swrad.F |
1321 |
SOLIR |
do j= 1, n |
|
./pkg/fizhi/fizhi_swrad.F |
1323 |
SOLIR |
fdirir(i,j)=0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
1324 |
SOLIR |
fdifir(i,j)=0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
1325 |
SOLIR |
rr(i,j,np+1,1)=rsirbm(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1326 |
SOLIR |
rr(i,j,np+1,2)=rsirbm(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1327 |
SOLIR |
rs(i,j,np+1,1)=rsirdf(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1328 |
SOLIR |
rs(i,j,np+1,2)=rsirdf(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1329 |
SOLIR |
td(i,j,np+1,1)=0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
1330 |
SOLIR |
td(i,j,np+1,2)=0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
1331 |
SOLIR |
tt(i,j,np+1,1)=0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
1332 |
SOLIR |
tt(i,j,np+1,2)=0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
1333 |
SOLIR |
ts(i,j,np+1,1)=0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
1334 |
SOLIR |
ts(i,j,np+1,2)=0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
1347 |
SOLIR |
do j= 1, n |
|
./pkg/fizhi/fizhi_swrad.F |
1350 |
SOLIR |
ssaclt(i,j)=1.0 |
|
./pkg/fizhi/fizhi_swrad.F |
1351 |
SOLIR |
asyclt(i,j)=1.0 |
|
./pkg/fizhi/fizhi_swrad.F |
1353 |
SOLIR |
taux=taucld(i,j,k,1)+taucld(i,j,k,2) |
|
./pkg/fizhi/fizhi_swrad.F |
1354 |
SOLIR |
if (taux.gt.0.05 .and. fcld(i,j,k).gt.0.01) then |
|
./pkg/fizhi/fizhi_swrad.F |
1356 |
SOLIR |
reff1=min(reff(i,j,k,1),130. _d 0) |
|
./pkg/fizhi/fizhi_swrad.F |
1357 |
SOLIR |
reff2=min(reff(i,j,k,2),20.0 _d 0) |
|
./pkg/fizhi/fizhi_swrad.F |
1360 |
SOLIR |
* aia(ib,3)*reff1)*reff1))*taucld(i,j,k,1) |
|
./pkg/fizhi/fizhi_swrad.F |
1362 |
SOLIR |
* awa(ib,3)*reff2)*reff2))*taucld(i,j,k,2) |
|
./pkg/fizhi/fizhi_swrad.F |
1363 |
SOLIR |
ssaclt(i,j)=(w1+w2)/taux |
|
./pkg/fizhi/fizhi_swrad.F |
1367 |
SOLIR |
asyclt(i,j)=(g1+g2)/(w1+w2) |
|
./pkg/fizhi/fizhi_swrad.F |
1374 |
SOLIR |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
1376 |
SOLIR |
ssacl(i,j,k)=ssaclt(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1379 |
SOLIR |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
1381 |
SOLIR |
asycl(i,j,k)=asyclt(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1393 |
SOLIR |
do j= 1, n |
|
./pkg/fizhi/fizhi_swrad.F |
1396 |
SOLIR |
tauwv=xk(ik)*wh(i,j,k) |
|
./pkg/fizhi/fizhi_swrad.F |
1401 |
SOLIR |
tausto=tauwv+taual(i,j,k)+1.0e-8 |
|
./pkg/fizhi/fizhi_swrad.F |
1402 |
SOLIR |
ssatau=ssaal(ib)*taual(i,j,k) |
|
./pkg/fizhi/fizhi_swrad.F |
1403 |
SOLIR |
asysto=asyal(ib)*ssaal(ib)*taual(i,j,k) |
|
./pkg/fizhi/fizhi_swrad.F |
1422 |
SOLIR |
td1t(i,j)=expmn(-tauto*csm(i,j)) |
|
./pkg/fizhi/fizhi_swrad.F |
1423 |
SOLIR |
ts1t(i,j)=expmn(-1.66*tauto) |
|
./pkg/fizhi/fizhi_swrad.F |
1424 |
SOLIR |
tt1t(i,j)=0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
1425 |
SOLIR |
rr1t(i,j)=0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
1426 |
SOLIR |
rs1t(i,j)=0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
1432 |
SOLIR |
if (tauclb(i,j,k) .lt. 0.01) then |
|
./pkg/fizhi/fizhi_swrad.F |
1434 |
SOLIR |
rr2t(i,j)=rr1t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1435 |
SOLIR |
tt2t(i,j)=tt1t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1436 |
SOLIR |
td2t(i,j)=td1t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1437 |
SOLIR |
rs2t(i,j)=rs1t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1438 |
SOLIR |
ts2t(i,j)=ts1t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1442 |
SOLIR |
tauto=tausto+tauclb(i,j,k) |
|
./pkg/fizhi/fizhi_swrad.F |
1443 |
SOLIR |
ssato=(ssatau+ssacl(i,j,k)*tauclb(i,j,k))/tauto+1.0e-8 |
|
./pkg/fizhi/fizhi_swrad.F |
1445 |
SOLIR |
asyto=(asysto+asycl(i,j,k)*ssacl(i,j,k)*tauclb(i,j,k))/ |
|
./pkg/fizhi/fizhi_swrad.F |
1448 |
SOLIR |
call DELEDD(tauto,ssato,asyto,csm(i,j), |
|
./pkg/fizhi/fizhi_swrad.F |
1449 |
SOLIR |
* rr2t(i,j),tt2t(i,j),td2t(i,j)) |
|
./pkg/fizhi/fizhi_swrad.F |
1451 |
SOLIR |
tauto=tausto+tauclf(i,j,k) |
|
./pkg/fizhi/fizhi_swrad.F |
1452 |
SOLIR |
ssato=(ssatau+ssacl(i,j,k)*tauclf(i,j,k))/tauto+1.0e-8 |
|
./pkg/fizhi/fizhi_swrad.F |
1454 |
SOLIR |
asyto=(asysto+asycl(i,j,k)*ssacl(i,j,k)*tauclf(i,j,k))/ |
|
./pkg/fizhi/fizhi_swrad.F |
1457 |
SOLIR |
call SAGPOL (tauto,ssato,asyto,rs2t(i,j),ts2t(i,j)) |
|
./pkg/fizhi/fizhi_swrad.F |
1467 |
SOLIR |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
1469 |
SOLIR |
rr(i,j,k,1)=rr1t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1472 |
SOLIR |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
1474 |
SOLIR |
tt(i,j,k,1)=tt1t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1477 |
SOLIR |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
1479 |
SOLIR |
td(i,j,k,1)=td1t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1482 |
SOLIR |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
1484 |
SOLIR |
rs(i,j,k,1)=rs1t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1487 |
SOLIR |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
1489 |
SOLIR |
ts(i,j,k,1)=ts1t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1493 |
SOLIR |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
1495 |
SOLIR |
rr(i,j,k,2)=rr2t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1498 |
SOLIR |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
1500 |
SOLIR |
tt(i,j,k,2)=tt2t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1503 |
SOLIR |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
1505 |
SOLIR |
td(i,j,k,2)=td2t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1508 |
SOLIR |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
150 |
SWRIO |
do j = 1,jm |
|
./pkg/fizhi/fizhi_swrad.F |
1510 |
SOLIR |
rs(i,j,k,2)=rs2t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1513 |
SOLIR |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
1515 |
SOLIR |
ts(i,j,k,2)=ts2t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1524 |
SOLIR |
do j= 1, n |
|
./pkg/fizhi/fizhi_swrad.F |
1526 |
SOLIR |
fclr(i,j,k) = 0. |
|
./pkg/fizhi/fizhi_swrad.F |
1527 |
SOLIR |
fall(i,j,k) = 0. |
|
./pkg/fizhi/fizhi_swrad.F |
152 |
SWRIO |
zenith(I,j) = TEMP1(I,j) + TEMP2(I,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1531 |
SOLIR |
do j= 1, n |
|
./pkg/fizhi/fizhi_swrad.F |
1533 |
SOLIR |
fsdir(i,j) = 0. |
|
./pkg/fizhi/fizhi_swrad.F |
1534 |
SOLIR |
fsdif(i,j) = 0. |
|
./pkg/fizhi/fizhi_swrad.F |
153 |
SWRIO |
IF( zenith(I,j) .GT. 0.0 ) THEN |
|
./pkg/fizhi/fizhi_swrad.F |
1542 |
SOLIR |
do j= 1, n |
|
./pkg/fizhi/fizhi_swrad.F |
1544 |
SOLIR |
flx(i,j,k) = flx(i,j,k)+fall(i,j,k)*hk(ib,ik) |
|
./pkg/fizhi/fizhi_swrad.F |
1547 |
SOLIR |
do j= 1, n |
|
./pkg/fizhi/fizhi_swrad.F |
1549 |
SOLIR |
flc(i,j,k) = flc(i,j,k)+fclr(i,j,k)*hk(ib,ik) |
|
./pkg/fizhi/fizhi_swrad.F |
154 |
SWRIO |
zenith(I,j) = (2./3.)*( zenith(I,j)-TEMP2(I,j)*TEMP1(I,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1554 |
SOLIR |
do j= 1, n |
|
./pkg/fizhi/fizhi_swrad.F |
1556 |
SOLIR |
fdirir(i,j) = fdirir(i,j)+fsdir(i,j)*hk(ib,ik) |
|
./pkg/fizhi/fizhi_swrad.F |
1557 |
SOLIR |
fdifir(i,j) = fdifir(i,j)+fsdif(i,j)*hk(ib,ik) |
|
./pkg/fizhi/fizhi_swrad.F |
155 |
SWRIO |
. / zenith(I,j) ) |
|
./pkg/fizhi/fizhi_swrad.F |
166 |
SWRIO |
do j =1,jm |
|
./pkg/fizhi/fizhi_swrad.F |
1676 |
SOLUV |
integer i,j,k,ib |
|
./pkg/fizhi/fizhi_swrad.F |
168 |
SWRIO |
cldlow(i,j) = 0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
169 |
SWRIO |
cldmid(i,j) = 0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
170 |
SWRIO |
cldhi (i,j) = 0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
1719 |
SOLUV |
do j= 1, n |
|
./pkg/fizhi/fizhi_swrad.F |
1721 |
SOLUV |
rr(i,j,np+1,1)=rsuvbm(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1722 |
SOLUV |
rr(i,j,np+1,2)=rsuvbm(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1723 |
SOLUV |
rs(i,j,np+1,1)=rsuvdf(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1724 |
SOLUV |
rs(i,j,np+1,2)=rsuvdf(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1725 |
SOLUV |
td(i,j,np+1,1)=0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
1726 |
SOLUV |
td(i,j,np+1,2)=0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
1727 |
SOLUV |
tt(i,j,np+1,1)=0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
1728 |
SOLUV |
tt(i,j,np+1,2)=0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
1729 |
SOLUV |
ts(i,j,np+1,1)=0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
1730 |
SOLUV |
ts(i,j,np+1,2)=0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
1739 |
SOLUV |
do j= 1, n |
|
./pkg/fizhi/fizhi_swrad.F |
1742 |
SOLUV |
asyclt(i,j)=1.0 |
|
./pkg/fizhi/fizhi_swrad.F |
1744 |
SOLUV |
taux=taucld(i,j,k,1)+taucld(i,j,k,2) |
|
./pkg/fizhi/fizhi_swrad.F |
1745 |
SOLUV |
if (taux.gt.0.05 .and. fcld(i,j,k).gt.0.01) then |
|
./pkg/fizhi/fizhi_swrad.F |
1747 |
SOLUV |
reff1=min(reff(i,j,k,1),130. _d 0) |
|
./pkg/fizhi/fizhi_swrad.F |
1748 |
SOLUV |
reff2=min(reff(i,j,k,2),20.0 _d 0) |
|
./pkg/fizhi/fizhi_swrad.F |
1750 |
SOLUV |
g1=(aig(1)+(aig(2)+aig(3)*reff1)*reff1)*taucld(i,j,k,1) |
|
./pkg/fizhi/fizhi_swrad.F |
1751 |
SOLUV |
g2=(awg(1)+(awg(2)+awg(3)*reff2)*reff2)*taucld(i,j,k,2) |
|
./pkg/fizhi/fizhi_swrad.F |
1752 |
SOLUV |
asyclt(i,j)=(g1+g2)/taux |
|
./pkg/fizhi/fizhi_swrad.F |
1759 |
SOLUV |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
1761 |
SOLUV |
asycl(i,j,k)=asyclt(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1767 |
SOLUV |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
1769 |
SOLUV |
fdiruv(i,j)=0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
1770 |
SOLUV |
fdifuv(i,j)=0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
1780 |
SOLUV |
do j= 1, n |
|
./pkg/fizhi/fizhi_swrad.F |
1785 |
SOLUV |
taurs=ry(ib)*dp(i,j,k) |
|
./pkg/fizhi/fizhi_swrad.F |
1786 |
SOLUV |
tauoz=xk(ib)*oh(i,j,k) |
|
./pkg/fizhi/fizhi_swrad.F |
178 |
SWRIO |
do j =1,jm |
|
./pkg/fizhi/fizhi_swrad.F |
1791 |
SOLUV |
tausto=taurs+tauoz+taual(i,j,k)+1.0e-8 |
|
./pkg/fizhi/fizhi_swrad.F |
1792 |
SOLUV |
ssatau=ssaal(ib)*taual(i,j,k)+taurs |
|
./pkg/fizhi/fizhi_swrad.F |
1793 |
SOLUV |
asysto=asyal(ib)*ssaal(ib)*taual(i,j,k) |
|
./pkg/fizhi/fizhi_swrad.F |
1802 |
SOLUV |
call DELEDD(tauto,ssato,asyto,csm(i,j), |
|
./pkg/fizhi/fizhi_swrad.F |
1803 |
SOLUV |
* rr1t(i,j),tt1t(i,j),td1t(i,j)) |
|
./pkg/fizhi/fizhi_swrad.F |
1805 |
SOLUV |
call SAGPOL (tauto,ssato,asyto,rs1t(i,j),ts1t(i,j)) |
|
./pkg/fizhi/fizhi_swrad.F |
1809 |
SOLUV |
if (tauclb(i,j,k) .lt. 0.01) then |
|
./pkg/fizhi/fizhi_swrad.F |
180 |
SWRIO |
cldtot(i,j,L)=min(1.0 _d 0,max(cldsw(i,j,L),fccave(i,j,L)/ |
|
./pkg/fizhi/fizhi_swrad.F |
1811 |
SOLUV |
rr2t(i,j)=rr1t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1812 |
SOLUV |
tt2t(i,j)=tt1t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1813 |
SOLUV |
td2t(i,j)=td1t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1814 |
SOLUV |
rs2t(i,j)=rs1t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1815 |
SOLUV |
ts2t(i,j)=ts1t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1819 |
SOLUV |
tauto=tausto+tauclb(i,j,k) |
|
./pkg/fizhi/fizhi_swrad.F |
1820 |
SOLUV |
ssato=(ssatau+tauclb(i,j,k))/tauto+1.0e-8 |
|
./pkg/fizhi/fizhi_swrad.F |
1822 |
SOLUV |
asyto=(asysto+asycl(i,j,k)*tauclb(i,j,k))/(ssato*tauto) |
|
./pkg/fizhi/fizhi_swrad.F |
1824 |
SOLUV |
call DELEDD(tauto,ssato,asyto,csm(i,j), |
|
./pkg/fizhi/fizhi_swrad.F |
1825 |
SOLUV |
* rr2t(i,j),tt2t(i,j),td2t(i,j)) |
|
./pkg/fizhi/fizhi_swrad.F |
1827 |
SOLUV |
tauto=tausto+tauclf(i,j,k) |
|
./pkg/fizhi/fizhi_swrad.F |
1828 |
SOLUV |
ssato=(ssatau+tauclf(i,j,k))/tauto+1.0e-8 |
|
./pkg/fizhi/fizhi_swrad.F |
182 |
SWRIO |
cldmxo(i,j,L)=min(1.0 _d 0,cswmo(i,j,L)) |
|
./pkg/fizhi/fizhi_swrad.F |
1830 |
SOLUV |
asyto=(asysto+asycl(i,j,k)*tauclf(i,j,k))/(ssato*tauto) |
|
./pkg/fizhi/fizhi_swrad.F |
1832 |
SOLUV |
call SAGPOL (tauto,ssato,asyto,rs2t(i,j),ts2t(i,j)) |
|
./pkg/fizhi/fizhi_swrad.F |
1839 |
SOLUV |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
183 |
SWRIO |
swlz(i,j,L)=swlz(i,j,L)+qliqave(i,j,L)/imstturb |
|
./pkg/fizhi/fizhi_swrad.F |
1841 |
SOLUV |
rr(i,j,k,1)=rr1t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1844 |
SOLUV |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
1846 |
SOLUV |
tt(i,j,k,1)=tt1t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1849 |
SOLUV |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
1851 |
SOLUV |
td(i,j,k,1)=td1t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1854 |
SOLUV |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
1856 |
SOLUV |
rs(i,j,k,1)=rs1t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1859 |
SOLUV |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
1861 |
SOLUV |
ts(i,j,k,1)=ts1t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1865 |
SOLUV |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
1867 |
SOLUV |
rr(i,j,k,2)=rr2t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1870 |
SOLUV |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
1872 |
SOLUV |
tt(i,j,k,2)=tt2t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1875 |
SOLUV |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
1877 |
SOLUV |
td(i,j,k,2)=td2t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1880 |
SOLUV |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
1882 |
SOLUV |
rs(i,j,k,2)=rs2t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1885 |
SOLUV |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
1887 |
SOLUV |
ts(i,j,k,2)=ts2t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1896 |
SOLUV |
do j= 1, n |
|
./pkg/fizhi/fizhi_swrad.F |
1898 |
SOLUV |
fclr(i,j,k) = 0. |
|
./pkg/fizhi/fizhi_swrad.F |
1899 |
SOLUV |
fall(i,j,k) = 0. |
|
./pkg/fizhi/fizhi_swrad.F |
189 |
SWRIO |
do j =1,jm |
|
./pkg/fizhi/fizhi_swrad.F |
1903 |
SOLUV |
do j= 1, n |
|
./pkg/fizhi/fizhi_swrad.F |
1905 |
SOLUV |
fsdir(i,j) = 0. |
|
./pkg/fizhi/fizhi_swrad.F |
1906 |
SOLUV |
fsdif(i,j) = 0. |
|
./pkg/fizhi/fizhi_swrad.F |
1913 |
SOLUV |
do j= 1, n |
|
./pkg/fizhi/fizhi_swrad.F |
1915 |
SOLUV |
flx(i,j,k)=flx(i,j,k)+fall(i,j,k)*hk(ib) |
|
./pkg/fizhi/fizhi_swrad.F |
1918 |
SOLUV |
do j= 1, n |
|
./pkg/fizhi/fizhi_swrad.F |
191 |
SWRIO |
cldtot(i,j,L) = min( 1.0 _d 0,cldsw(i,j,L) ) |
|
./pkg/fizhi/fizhi_swrad.F |
1920 |
SOLUV |
flc(i,j,k)=flc(i,j,k)+fclr(i,j,k)*hk(ib) |
|
./pkg/fizhi/fizhi_swrad.F |
1926 |
SOLUV |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
1928 |
SOLUV |
fdirpar(i,j)=fsdir(i,j)*hk(ib) |
|
./pkg/fizhi/fizhi_swrad.F |
1929 |
SOLUV |
fdifpar(i,j)=fsdif(i,j)*hk(ib) |
|
./pkg/fizhi/fizhi_swrad.F |
192 |
SWRIO |
cldmxo(i,j,L) = min( 1.0 _d 0,cswmo(i,j,L) ) |
|
./pkg/fizhi/fizhi_swrad.F |
1933 |
SOLUV |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
1935 |
SOLUV |
fdiruv(i,j)=fdiruv(i,j)+fsdir(i,j)*hk(ib) |
|
./pkg/fizhi/fizhi_swrad.F |
1936 |
SOLUV |
fdifuv(i,j)=fdifuv(i,j)+fsdif(i,j)*hk(ib) |
|
./pkg/fizhi/fizhi_swrad.F |
202 |
SWRIO |
do j = 1,jm |
|
./pkg/fizhi/fizhi_swrad.F |
207 |
SWRIO |
cldhi (i,j) = max( cldtot(i,j,L),cldhi (i,j) ) |
|
./pkg/fizhi/fizhi_swrad.F |
210 |
SWRIO |
cldmid(i,j) = max( cldtot(i,j,L),cldmid(i,j) ) |
|
./pkg/fizhi/fizhi_swrad.F |
212 |
SWRIO |
cldlow(i,j) = max( cldtot(i,j,L),cldlow(i,j) ) |
|
./pkg/fizhi/fizhi_swrad.F |
2204 |
CLDFLX |
integer i,j,k,ih,im,is |
|
./pkg/fizhi/fizhi_swrad.F |
2219 |
CLDFLX |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
2221 |
CLDFLX |
fall(i,j,k)=0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
2226 |
CLDFLX |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
2228 |
CLDFLX |
fsdir(i,j)=0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
2229 |
CLDFLX |
fsdif(i,j)=0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
222 |
SWRIO |
do j = 1,jm |
|
./pkg/fizhi/fizhi_swrad.F |
2247 |
CLDFLX |
do j= 1, n |
|
./pkg/fizhi/fizhi_swrad.F |
2249 |
CLDFLX |
tda(i,j,1,ih,1)=td(i,j,1,ih) |
|
./pkg/fizhi/fizhi_swrad.F |
224 |
SWRIO |
totcld(i,j) = 1.0 - (1.-cldhi (i,j)) |
|
./pkg/fizhi/fizhi_swrad.F |
2250 |
CLDFLX |
tta(i,j,1,ih,1)=tt(i,j,1,ih) |
|
./pkg/fizhi/fizhi_swrad.F |
2251 |
CLDFLX |
rsa(i,j,1,ih,1)=rs(i,j,1,ih) |
|
./pkg/fizhi/fizhi_swrad.F |
2252 |
CLDFLX |
tda(i,j,1,ih,2)=td(i,j,1,ih) |
|
./pkg/fizhi/fizhi_swrad.F |
2253 |
CLDFLX |
tta(i,j,1,ih,2)=tt(i,j,1,ih) |
|
./pkg/fizhi/fizhi_swrad.F |
2254 |
CLDFLX |
rsa(i,j,1,ih,2)=rs(i,j,1,ih) |
|
./pkg/fizhi/fizhi_swrad.F |
2259 |
CLDFLX |
do j= 1, n |
|
./pkg/fizhi/fizhi_swrad.F |
225 |
SWRIO |
. * (1.-cldmid(i,j)) |
|
./pkg/fizhi/fizhi_swrad.F |
2261 |
CLDFLX |
denm = ts(i,j,k,ih)/( 1.-rsa(i,j,k-1,ih,1)*rs(i,j,k,ih)) |
|
./pkg/fizhi/fizhi_swrad.F |
2262 |
CLDFLX |
tda(i,j,k,ih,1)= tda(i,j,k-1,ih,1)*td(i,j,k,ih) |
|
./pkg/fizhi/fizhi_swrad.F |
2263 |
CLDFLX |
tta(i,j,k,ih,1)= tda(i,j,k-1,ih,1)*tt(i,j,k,ih) |
|
./pkg/fizhi/fizhi_swrad.F |
2264 |
CLDFLX |
* +(tda(i,j,k-1,ih,1)*rr(i,j,k,ih) |
|
./pkg/fizhi/fizhi_swrad.F |
2265 |
CLDFLX |
* *rsa(i,j,k-1,ih,1)+tta(i,j,k-1,ih,1))*denm |
|
./pkg/fizhi/fizhi_swrad.F |
2266 |
CLDFLX |
rsa(i,j,k,ih,1)= rs(i,j,k,ih)+ts(i,j,k,ih) |
|
./pkg/fizhi/fizhi_swrad.F |
2267 |
CLDFLX |
* *rsa(i,j,k-1,ih,1)*denm |
|
./pkg/fizhi/fizhi_swrad.F |
2268 |
CLDFLX |
tda(i,j,k,ih,2)= tda(i,j,k,ih,1) |
|
./pkg/fizhi/fizhi_swrad.F |
2269 |
CLDFLX |
tta(i,j,k,ih,2)= tta(i,j,k,ih,1) |
|
./pkg/fizhi/fizhi_swrad.F |
226 |
SWRIO |
. * (1.-cldlow(i,j)) |
|
./pkg/fizhi/fizhi_swrad.F |
2270 |
CLDFLX |
rsa(i,j,k,ih,2)= rsa(i,j,k,ih,1) |
|
./pkg/fizhi/fizhi_swrad.F |
2280 |
CLDFLX |
do j= 1, n |
|
./pkg/fizhi/fizhi_swrad.F |
2282 |
CLDFLX |
denm = ts(i,j,k,im)/( 1.-rsa(i,j,k-1,ih,im)*rs(i,j,k,im)) |
|
./pkg/fizhi/fizhi_swrad.F |
2283 |
CLDFLX |
tda(i,j,k,ih,im)= tda(i,j,k-1,ih,im)*td(i,j,k,im) |
|
./pkg/fizhi/fizhi_swrad.F |
2284 |
CLDFLX |
tta(i,j,k,ih,im)= tda(i,j,k-1,ih,im)*tt(i,j,k,im) |
|
./pkg/fizhi/fizhi_swrad.F |
2285 |
CLDFLX |
* +(tda(i,j,k-1,ih,im)*rr(i,j,k,im) |
|
./pkg/fizhi/fizhi_swrad.F |
2286 |
CLDFLX |
* *rsa(i,j,k-1,ih,im)+tta(i,j,k-1,ih,im))*denm |
|
./pkg/fizhi/fizhi_swrad.F |
2287 |
CLDFLX |
rsa(i,j,k,ih,im)= rs(i,j,k,im)+ts(i,j,k,im) |
|
./pkg/fizhi/fizhi_swrad.F |
2288 |
CLDFLX |
* *rsa(i,j,k-1,ih,im)*denm |
|
./pkg/fizhi/fizhi_swrad.F |
2305 |
CLDFLX |
do j= 1, n |
|
./pkg/fizhi/fizhi_swrad.F |
2307 |
CLDFLX |
rra(i,j,np+1,1,is)=rr(i,j,np+1,is) |
|
./pkg/fizhi/fizhi_swrad.F |
2308 |
CLDFLX |
rxa(i,j,np+1,1,is)=rs(i,j,np+1,is) |
|
./pkg/fizhi/fizhi_swrad.F |
2309 |
CLDFLX |
rra(i,j,np+1,2,is)=rr(i,j,np+1,is) |
|
./pkg/fizhi/fizhi_swrad.F |
2310 |
CLDFLX |
rxa(i,j,np+1,2,is)=rs(i,j,np+1,is) |
|
./pkg/fizhi/fizhi_swrad.F |
2315 |
CLDFLX |
do j= 1, n |
|
./pkg/fizhi/fizhi_swrad.F |
2317 |
CLDFLX |
denm=ts(i,j,k,is)/( 1.-rs(i,j,k,is)*rxa(i,j,k+1,1,is) ) |
|
./pkg/fizhi/fizhi_swrad.F |
2318 |
CLDFLX |
rra(i,j,k,1,is)=rr(i,j,k,is)+(td(i,j,k,is) |
|
./pkg/fizhi/fizhi_swrad.F |
2319 |
CLDFLX |
* *rra(i,j,k+1,1,is)+tt(i,j,k,is)*rxa(i,j,k+1,1,is))*denm |
|
./pkg/fizhi/fizhi_swrad.F |
2320 |
CLDFLX |
rxa(i,j,k,1,is)= rs(i,j,k,is)+ts(i,j,k,is) |
|
./pkg/fizhi/fizhi_swrad.F |
2321 |
CLDFLX |
* *rxa(i,j,k+1,1,is)*denm |
|
./pkg/fizhi/fizhi_swrad.F |
2322 |
CLDFLX |
rra(i,j,k,2,is)=rra(i,j,k,1,is) |
|
./pkg/fizhi/fizhi_swrad.F |
2323 |
CLDFLX |
rxa(i,j,k,2,is)=rxa(i,j,k,1,is) |
|
./pkg/fizhi/fizhi_swrad.F |
2333 |
CLDFLX |
do j= 1, n |
|
./pkg/fizhi/fizhi_swrad.F |
2335 |
CLDFLX |
denm=ts(i,j,k,im)/( 1.-rs(i,j,k,im)*rxa(i,j,k+1,im,is) ) |
|
./pkg/fizhi/fizhi_swrad.F |
2336 |
CLDFLX |
rra(i,j,k,im,is)= rr(i,j,k,im)+(td(i,j,k,im) |
|
./pkg/fizhi/fizhi_swrad.F |
2337 |
CLDFLX |
* *rra(i,j,k+1,im,is)+tt(i,j,k,im)*rxa(i,j,k+1,im,is))*denm |
|
./pkg/fizhi/fizhi_swrad.F |
2338 |
CLDFLX |
rxa(i,j,k,im,is)= rs(i,j,k,im)+ts(i,j,k,im) |
|
./pkg/fizhi/fizhi_swrad.F |
2339 |
CLDFLX |
* *rxa(i,j,k+1,im,is)*denm |
|
./pkg/fizhi/fizhi_swrad.F |
2354 |
CLDFLX |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
2356 |
CLDFLX |
ch(i,j)=1.0-cc(i,j,1) |
|
./pkg/fizhi/fizhi_swrad.F |
2364 |
CLDFLX |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
2366 |
CLDFLX |
ch(i,j)=cc(i,j,1) |
|
./pkg/fizhi/fizhi_swrad.F |
2378 |
CLDFLX |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
2380 |
CLDFLX |
cm(i,j)=ch(i,j)*(1.0-cc(i,j,2)) |
|
./pkg/fizhi/fizhi_swrad.F |
2388 |
CLDFLX |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
2390 |
CLDFLX |
cm(i,j)=ch(i,j)*cc(i,j,2) |
|
./pkg/fizhi/fizhi_swrad.F |
2402 |
CLDFLX |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
2404 |
CLDFLX |
ct(i,j)=cm(i,j)*(1.0-cc(i,j,3)) |
|
./pkg/fizhi/fizhi_swrad.F |
240 |
SWRIO |
do j=1,jm |
|
./pkg/fizhi/fizhi_swrad.F |
2412 |
CLDFLX |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
2414 |
CLDFLX |
ct(i,j)=cm(i,j)*cc(i,j,3) |
|
./pkg/fizhi/fizhi_swrad.F |
2423 |
CLDFLX |
do j= 1, n |
|
./pkg/fizhi/fizhi_swrad.F |
2425 |
CLDFLX |
denm = ts(i,j,k,is)/( 1.-rsa(i,j,k-1,ih,im)*rs(i,j,k,is) ) |
|
./pkg/fizhi/fizhi_swrad.F |
2426 |
CLDFLX |
tda(i,j,k,ih,im)= tda(i,j,k-1,ih,im)*td(i,j,k,is) |
|
./pkg/fizhi/fizhi_swrad.F |
2427 |
CLDFLX |
tta(i,j,k,ih,im)= tda(i,j,k-1,ih,im)*tt(i,j,k,is) |
|
./pkg/fizhi/fizhi_swrad.F |
2428 |
CLDFLX |
* +(tda(i,j,k-1,ih,im)*rr(i,j,k,is) |
|
./pkg/fizhi/fizhi_swrad.F |
2429 |
CLDFLX |
* *rsa(i,j,k-1,ih,im)+tta(i,j,k-1,ih,im))*denm |
|
./pkg/fizhi/fizhi_swrad.F |
242 |
SWRIO |
tmpdiag(i,j) = cswmo(i,j,L) |
|
./pkg/fizhi/fizhi_swrad.F |
2430 |
CLDFLX |
rsa(i,j,k,ih,im)= rs(i,j,k,is)+ts(i,j,k,is) |
|
./pkg/fizhi/fizhi_swrad.F |
2431 |
CLDFLX |
* *rsa(i,j,k-1,ih,im)*denm |
|
./pkg/fizhi/fizhi_swrad.F |
2439 |
CLDFLX |
do j= 1, n |
|
./pkg/fizhi/fizhi_swrad.F |
2441 |
CLDFLX |
denm =ts(i,j,k,ih)/(1.-rs(i,j,k,ih)*rxa(i,j,k+1,im,is)) |
|
./pkg/fizhi/fizhi_swrad.F |
2442 |
CLDFLX |
rra(i,j,k,im,is)= rr(i,j,k,ih)+(td(i,j,k,ih) |
|
./pkg/fizhi/fizhi_swrad.F |
2443 |
CLDFLX |
* *rra(i,j,k+1,im,is)+tt(i,j,k,ih)*rxa(i,j,k+1,im,is))*denm |
|
./pkg/fizhi/fizhi_swrad.F |
2444 |
CLDFLX |
rxa(i,j,k,im,is)= rs(i,j,k,ih)+ts(i,j,k,ih) |
|
./pkg/fizhi/fizhi_swrad.F |
2445 |
CLDFLX |
* *rxa(i,j,k+1,im,is)*denm |
|
./pkg/fizhi/fizhi_swrad.F |
2457 |
CLDFLX |
do j=1, n |
|
./pkg/fizhi/fizhi_swrad.F |
2459 |
CLDFLX |
denm= 1./(1.- rxa(i,j,k,im,is)*rsa(i,j,k-1,ih,im)) |
|
./pkg/fizhi/fizhi_swrad.F |
2460 |
CLDFLX |
fdndir(i,j)= tda(i,j,k-1,ih,im) |
|
./pkg/fizhi/fizhi_swrad.F |
2461 |
CLDFLX |
xx = tda(i,j,k-1,ih,im)*rra(i,j,k,im,is) |
|
./pkg/fizhi/fizhi_swrad.F |
2462 |
CLDFLX |
fdndif(i,j)= (xx*rsa(i,j,k-1,ih,im)+tta(i,j,k-1,ih,im))*denm |
|
./pkg/fizhi/fizhi_swrad.F |
2463 |
CLDFLX |
fupdif= (xx+tta(i,j,k-1,ih,im)*rxa(i,j,k,im,is))*denm |
|
./pkg/fizhi/fizhi_swrad.F |
2464 |
CLDFLX |
flxdn(i,j,k)=fdndir(i,j)+fdndif(i,j)-fupdif |
|
./pkg/fizhi/fizhi_swrad.F |
2469 |
CLDFLX |
do j=1, n |
|
./pkg/fizhi/fizhi_swrad.F |
2471 |
CLDFLX |
flxdn(i,j,1)=1.0-rra(i,j,1,im,is) |
|
./pkg/fizhi/fizhi_swrad.F |
2478 |
CLDFLX |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
2481 |
CLDFLX |
fclr(i,j,k)=flxdn(i,j,k) |
|
./pkg/fizhi/fizhi_swrad.F |
2483 |
CLDFLX |
fall(i,j,k)=fall(i,j,k)+flxdn(i,j,k)*ct(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
2488 |
CLDFLX |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
2490 |
CLDFLX |
fsdir(i,j)=fsdir(i,j)+fdndir(i,j)*ct(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
2491 |
CLDFLX |
fsdif(i,j)=fsdif(i,j)+fdndif(i,j)*ct(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
251 |
SWRIO |
do j=1,jm |
|
./pkg/fizhi/fizhi_swrad.F |
2522 |
FLXCO2 |
integer i,j,k,ic,iw |
|
./pkg/fizhi/fizhi_swrad.F |
2537 |
FLXCO2 |
do j= 1, n |
|
./pkg/fizhi/fizhi_swrad.F |
253 |
SWRIO |
tmpdiag(i,j) = cldtot(i,j,L) |
|
./pkg/fizhi/fizhi_swrad.F |
2540 |
FLXCO2 |
clog1=log10(swc(i,j,k)*csm(i,j)) |
|
./pkg/fizhi/fizhi_swrad.F |
2541 |
FLXCO2 |
wlog=log10(swh(i,j,k)*csm(i,j)) |
|
./pkg/fizhi/fizhi_swrad.F |
2554 |
FLXCO2 |
df(i,j,k)=df(i,j,k)+0.0343*(x1-y2) |
|
./pkg/fizhi/fizhi_swrad.F |
274 |
SWRIO |
do j=1,jm |
|
./pkg/fizhi/fizhi_swrad.F |
276 |
SWRIO |
tmpdiag(i,j) = swlz(i,j,L) * 1.0e6 |
|
./pkg/fizhi/fizhi_swrad.F |
309 |
SWRIO |
do j = 1,jm |
|
./pkg/fizhi/fizhi_swrad.F |
311 |
SWRIO |
tau(i,j,L) = tautype(i,j,L,1)+tautype(i,j,L,2)+tautype(i,j,L,3) |
|
./pkg/fizhi/fizhi_swrad.F |
319 |
SWRIO |
do j=1,jm |
|
./pkg/fizhi/fizhi_swrad.F |
321 |
SWRIO |
tmpdiag(i,j) = tau(i,j,L)*100/(plze(i,j,L+1)-plze(i,j,L)) |
|
./pkg/fizhi/fizhi_swrad.F |
331 |
SWRIO |
do j=1,jm |
|
./pkg/fizhi/fizhi_swrad.F |
333 |
SWRIO |
if( cldtot(i,j,L).ne.0.0 ) then |
|
./pkg/fizhi/fizhi_swrad.F |
334 |
SWRIO |
tmpdiag(i,j) = tau(i,j,L)*100/(plze(i,j,L+1)-plze(i,j,L)) |
|
./pkg/fizhi/fizhi_swrad.F |
335 |
SWRIO |
tmpdiag2(i,j) = 1. |
|
./pkg/fizhi/fizhi_swrad.F |
337 |
SWRIO |
tmpdiag(i,j) = 0. |
|
./pkg/fizhi/fizhi_swrad.F |
338 |
SWRIO |
tmpdiag2(i,j) = 0. |
|
./pkg/fizhi/fizhi_swrad.F |
351 |
SWRIO |
do j = 1,jm |
|
./pkg/fizhi/fizhi_swrad.F |
353 |
SWRIO |
taulow(i,j) = 0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
354 |
SWRIO |
if( cldlow(i,j).ne.0.0 ) then |
|
./pkg/fizhi/fizhi_swrad.F |
356 |
SWRIO |
taulow(i,j) = taulow(i,j) + tau(i,j,L) |
|
./pkg/fizhi/fizhi_swrad.F |
358 |
SWRIO |
tmpdiag2(i,j) = 1. |
|
./pkg/fizhi/fizhi_swrad.F |
360 |
SWRIO |
tmpdiag(i,j) = 0. |
|
./pkg/fizhi/fizhi_swrad.F |
370 |
SWRIO |
do j = 1,jm |
|
./pkg/fizhi/fizhi_swrad.F |
372 |
SWRIO |
taumid(i,j) = 0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
373 |
SWRIO |
if( cldmid(i,j).ne.0.0 ) then |
|
./pkg/fizhi/fizhi_swrad.F |
375 |
SWRIO |
taumid(i,j) = taumid(i,j) + tau(i,j,L) |
|
./pkg/fizhi/fizhi_swrad.F |
377 |
SWRIO |
tmpdiag2(i,j) = 1. |
|
./pkg/fizhi/fizhi_swrad.F |
379 |
SWRIO |
tmpdiag(i,j) = 0. |
|
./pkg/fizhi/fizhi_swrad.F |
389 |
SWRIO |
do j = 1,jm |
|
./pkg/fizhi/fizhi_swrad.F |
391 |
SWRIO |
tauhi(i,j) = 0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
392 |
SWRIO |
if( cldhi(i,j).ne.0.0 ) then |
|
./pkg/fizhi/fizhi_swrad.F |
394 |
SWRIO |
tauhi(i,j) = tauhi(i,j) + tau(i,j,L) |
|
./pkg/fizhi/fizhi_swrad.F |
396 |
SWRIO |
tmpdiag2(i,j) = 1. |
|
./pkg/fizhi/fizhi_swrad.F |
398 |
SWRIO |
tmpdiag(i,j) = 0. |
|
./pkg/fizhi/fizhi_swrad.F |
42 |
SWRIO |
integer i,j,L,nn,nsecf |
|
./pkg/fizhi/fizhi_swrad.F |
512 |
SWRIO |
do j=1,jm |
|
./pkg/fizhi/fizhi_swrad.F |
514 |
SWRIO |
if( albedo(i,j).ne.undef ) then |
|
./pkg/fizhi/fizhi_swrad.F |
515 |
SWRIO |
tmpdiag(i,j) = albedo(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
516 |
SWRIO |
tmpdiag2(i,j) = 1. |
|
./pkg/fizhi/fizhi_swrad.F |
518 |
SWRIO |
tmpdiag(i,j) = 0. |
|
./pkg/fizhi/fizhi_swrad.F |
519 |
SWRIO |
tmpdiag2(i,j) = 0. |
|
./pkg/fizhi/fizhi_swrad.F |
537 |
SWRIO |
do j = 1,jm |
|
./pkg/fizhi/fizhi_swrad.F |
539 |
SWRIO |
fccave(i,j,L) = 0. |
|
./pkg/fizhi/fizhi_swrad.F |
540 |
SWRIO |
qliqave(i,j,L) = 0. |
|
./pkg/fizhi/fizhi_swrad.F |
579 |
OPTHK |
integer im,jm,lm,i,j,L |
|
./pkg/fizhi/fizhi_swrad.F |
596 |
OPTHK |
do j=1,jm |
|
./pkg/fizhi/fizhi_swrad.F |
598 |
OPTHK |
alf = min( max(( tl(i,j,L)-233.15)/20.,0. _d 0), 1. _d 0) |
|
./pkg/fizhi/fizhi_swrad.F |
599 |
OPTHK |
dp = ple(i,j,L+1)-ple(i,j,L) |
|
./pkg/fizhi/fizhi_swrad.F |
600 |
OPTHK |
tau(i,j,L,1) = 0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
601 |
OPTHK |
tau(i,j,L,2) = 0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
602 |
OPTHK |
tau(i,j,L,3) = 0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
603 |
OPTHK |
if( cf(i,j,L).ne.0.0 ) then |
|
./pkg/fizhi/fizhi_swrad.F |
607 |
OPTHK |
fracls = ( cf(i,j,L)-cfm(i,j,L) )/cf(i,j,L) |
|
./pkg/fizhi/fizhi_swrad.F |
618 |
OPTHK |
tauice = max( 0.0002 _d 0, 0.002*min(500*lz(i,j,L)*1000, |
|
./pkg/fizhi/fizhi_swrad.F |
620 |
OPTHK |
tau(i,j,L,1) = fracls*(1-alf)*tauice*dp |
|
./pkg/fizhi/fizhi_swrad.F |
625 |
OPTHK |
if( lwi(i,j).le.10 ) then |
|
./pkg/fizhi/fizhi_swrad.F |
626 |
OPTHK |
tauh2o = max( 0.0020 _d 0, 0.200*min(200*lz(i,j,L)*1000, |
|
./pkg/fizhi/fizhi_swrad.F |
628 |
OPTHK |
tau(i,j,L,3) = fracls*alf*tauh2o*dp |
|
./pkg/fizhi/fizhi_swrad.F |
631 |
OPTHK |
if( lz(i,j,L).eq.0.0 ) then |
|
./pkg/fizhi/fizhi_swrad.F |
633 |
OPTHK |
tau(i,j,L,2) = fracls*alf*tauh2o*dp |
|
./pkg/fizhi/fizhi_swrad.F |
636 |
OPTHK |
tauh2o = max( 0.0020 _d 0, 0.120*min( 20*lz(i,j,L)*1000, |
|
./pkg/fizhi/fizhi_swrad.F |
638 |
OPTHK |
tau(i,j,L,3) = fracls*alf*tauh2o*dp |
|
./pkg/fizhi/fizhi_swrad.F |
644 |
OPTHK |
if( tl(i,j,L).gt.210.0 ) then |
|
./pkg/fizhi/fizhi_swrad.F |
646 |
OPTHK |
tau(i,j,L,3) = tau(i,j,L,3) + fraccu*tauras*dp |
|
./pkg/fizhi/fizhi_swrad.F |
649 |
OPTHK |
tau(i,j,L,1) = tau(i,j,L,1) + fraccu*tauras*dp |
|
./pkg/fizhi/fizhi_swrad.F |
787 |
SORAD |
integer i,j,k |
|
./pkg/fizhi/fizhi_swrad.F |
795 |
SORAD |
do j= 1, n |
|
./pkg/fizhi/fizhi_swrad.F |
798 |
SORAD |
swh(i,j,1)=0. |
|
./pkg/fizhi/fizhi_swrad.F |
799 |
SORAD |
so2(i,j,1)=0. |
|
./pkg/fizhi/fizhi_swrad.F |
804 |
SORAD |
csm(i,j)=35./sqrt(1224.*cosz(i,j)*cosz(i,j)+1.) |
|
./pkg/fizhi/fizhi_swrad.F |
811 |
SORAD |
do j= 1, n |
|
./pkg/fizhi/fizhi_swrad.F |
818 |
SORAD |
dp(i,j,k)=pl(i,j,k+1)-pl(i,j,k) |
|
./pkg/fizhi/fizhi_swrad.F |
819 |
SORAD |
scal(i,j,k)=dp(i,j,k)*(.5*(pl(i,j,k)+pl(i,j,k+1))/300.)**.8 |
|
./pkg/fizhi/fizhi_swrad.F |
823 |
SORAD |
wh(i,j,k)=1.02*wa(i,j,k)*scal(i,j,k)* |
|
./pkg/fizhi/fizhi_swrad.F |
824 |
SORAD |
* (1.+0.00135*(ta(i,j,k)-240.)) |
|
./pkg/fizhi/fizhi_swrad.F |
825 |
SORAD |
swh(i,j,k+1)=swh(i,j,k)+wh(i,j,k) |
|
./pkg/fizhi/fizhi_swrad.F |
829 |
SORAD |
oh(i,j,k)=1.02*oa(i,j,k)*dp(i,j,k)*466.7 |
|
./pkg/fizhi/fizhi_swrad.F |
848 |
SORAD |
do j=1, n |
|
./pkg/fizhi/fizhi_swrad.F |
850 |
SORAD |
flx(i,j,k)=0. |
|
./pkg/fizhi/fizhi_swrad.F |
851 |
SORAD |
flc(i,j,k)=0. |
|
./pkg/fizhi/fizhi_swrad.F |
852 |
SORAD |
df(i,j,k)=0. |
|
./pkg/fizhi/fizhi_swrad.F |
871 |
SORAD |
do j= 1, n |
|
./pkg/fizhi/fizhi_swrad.F |
873 |
SORAD |
so2(i,j,k+1)=so2(i,j,k)+165.22*scal(i,j,k) |
|
./pkg/fizhi/fizhi_swrad.F |
883 |
SORAD |
do j= 1, n |
|
./pkg/fizhi/fizhi_swrad.F |
885 |
SORAD |
x=so2(i,j,k)*csm(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
886 |
SORAD |
df(i,j,k)=df(i,j,k)+0.0287*(1.-expmn(-0.00027*sqrt(x))) |
|
./pkg/fizhi/fizhi_swrad.F |
894 |
SORAD |
do j= 1, n |
|
./pkg/fizhi/fizhi_swrad.F |
896 |
SORAD |
so2(i,j,k+1)=so2(i,j,k)+co2*789.*scal(i,j,k) |
|
./pkg/fizhi/fizhi_swrad.F |
909 |
SORAD |
do j= 1, n |
|
./pkg/fizhi/fizhi_swrad.F |
911 |
SORAD |
flc(i,j,k)=flc(i,j,k)-df(i,j,k) |
|
./pkg/fizhi/fizhi_swrad.F |
920 |
SORAD |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
922 |
SORAD |
sdf(i,j)=0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
923 |
SORAD |
sclr(i,j)=1.0 |
|
./pkg/fizhi/fizhi_swrad.F |
928 |
SORAD |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
934 |
SORAD |
if(fcld(i,j,k).gt.0.01) then |
|
./pkg/fizhi/fizhi_swrad.F |
935 |
SORAD |
sdf(i,j)=sdf(i,j)+df(i,j,k)*sclr(i,j)*fcld(i,j,k) |
|
./pkg/fizhi/fizhi_swrad.F |
936 |
SORAD |
sclr(i,j)=sclr(i,j)*(1.-fcld(i,j,k)) |
|
./pkg/fizhi/fizhi_swrad.F |
938 |
SORAD |
flx(i,j,k+1)=flx(i,j,k+1)-sdf(i,j)-df(i,j,k+1)*sclr(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
945 |
SORAD |
do j= 1, n |
|
./pkg/fizhi/fizhi_swrad.F |
947 |
SORAD |
x = (1.-rsirdf(i,j))*fdifir(i,j) + (1.-rsirbm(i,j))*fdirir(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
948 |
SORAD |
x = (-sdf(i,j)-df(i,j,np+1)*sclr(i,j))/x |
|
./pkg/fizhi/fizhi_swrad.F |
949 |
SORAD |
fdirir(i,j)=fdirir(i,j)*(1.+x) |
|
./pkg/fizhi/fizhi_swrad.F |
950 |
SORAD |
fdifir(i,j)=fdifir(i,j)*(1.+x) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
126 |
FIZHI_TENDENCY_APPLY_V |
INTEGER i, j |
|
./pkg/fizhi/fizhi_tendency_apply.F |
138 |
FIZHI_TENDENCY_APPLY_V |
DO j=jMin,jMax |
|
./pkg/fizhi/fizhi_tendency_apply.F |
140 |
FIZHI_TENDENCY_APPLY_V |
gV_arr(i,j) = gV_arr(i,j) |
|
./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 |
148 |
FIZHI_TENDENCY_APPLY_V |
DO j=jMin,jMax |
|
./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 |
160 |
FIZHI_TENDENCY_APPLY_V |
DO j=jMin,jMax |
|
./pkg/fizhi/fizhi_tendency_apply.F |
162 |
FIZHI_TENDENCY_APPLY_V |
tmpdiag(i,j) = -1. _d 0 * rayleighdrag * |
|
./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 |
208 |
FIZHI_TENDENCY_APPLY_T |
INTEGER i, j |
|
./pkg/fizhi/fizhi_tendency_apply.F |
223 |
FIZHI_TENDENCY_APPLY_T |
DO j=jMin,jMax |
|
./pkg/fizhi/fizhi_tendency_apply.F |
225 |
FIZHI_TENDENCY_APPLY_T |
gT_arr(i,j) = gT_arr(i,j) |
|
./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 |
241 |
FIZHI_TENDENCY_APPLY_T |
DO j=jMin,jMax |
|
./pkg/fizhi/fizhi_tendency_apply.F |
243 |
FIZHI_TENDENCY_APPLY_T |
tmpdiag(i,j) = |
|
./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 |
261 |
FIZHI_TENDENCY_APPLY_T |
DO j=jMin,jMax |
|
./pkg/fizhi/fizhi_tendency_apply.F |
263 |
FIZHI_TENDENCY_APPLY_T |
tmpdiag(i,j) = ( rayleighdrag * 0.5 |
|
./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 |
316 |
FIZHI_TENDENCY_APPLY_S |
INTEGER i, j |
|
./pkg/fizhi/fizhi_tendency_apply.F |
322 |
FIZHI_TENDENCY_APPLY_S |
DO j=jMin,jMax |
|
./pkg/fizhi/fizhi_tendency_apply.F |
324 |
FIZHI_TENDENCY_APPLY_S |
gS_arr(i,j) = gS_arr(i,j) |
|
./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 |
330 |
FIZHI_TENDENCY_APPLY_S |
DO j=jMin,jMax |
|
./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 |
43 |
FIZHI_TENDENCY_APPLY_U |
INTEGER i, j |
|
./pkg/fizhi/fizhi_tendency_apply.F |
55 |
FIZHI_TENDENCY_APPLY_U |
DO j=jMin,jMax |
|
./pkg/fizhi/fizhi_tendency_apply.F |
57 |
FIZHI_TENDENCY_APPLY_U |
gU_arr(i,j) = gU_arr(i,j) |
|
./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 |
65 |
FIZHI_TENDENCY_APPLY_U |
DO j=jMin,jMax |
|
./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 |
77 |
FIZHI_TENDENCY_APPLY_U |
DO j=jMin,jMax |
|
./pkg/fizhi/fizhi_tendency_apply.F |
79 |
FIZHI_TENDENCY_APPLY_U |
tmpdiag(i,j) = -1. _d 0 * rayleighdrag * |
|
./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_utils.F |
123 |
PASTE |
INTEGER OFFSET,Lena,i,j |
|
./pkg/fizhi/fizhi_utils.F |
141 |
PSTBMP |
INTEGER OFFSET,Lena,i,j |
|
./pkg/fizhi/fizhi_utils.F |
159 |
STRINT |
INTEGER OFFSET,Lena,i,j |
|
./pkg/fizhi/fizhi_utils.F |
395 |
STRIPIT |
integer i,j,Lena,offset |
|
./pkg/fizhi/fizhi_utils.F |
402 |
STRIPIT |
do 100 j=1,l |
|
./pkg/fizhi/fizhi_utils.F |
404 |
STRIPIT |
b(i,j) = a(i+offset-1,j) |
|
./pkg/fizhi/fizhi_utils.F |
407 |
STRIPIT |
do 200 j=1,l |
|
./pkg/fizhi/fizhi_utils.F |
409 |
STRIPIT |
b(i,j) = a(i+offset-1,j) |
|
./pkg/fizhi/fizhi_utils.F |
412 |
STRIPIT |
b(Lena+i,j) = a(Lena+offset-1,j) |
|
./pkg/fizhi/fizhi_utils.F |
422 |
STRIPITINT |
integer i,j,Lena,offset |
|
./pkg/fizhi/fizhi_utils.F |
429 |
STRIPITINT |
do 100 j=1,l |
|
./pkg/fizhi/fizhi_utils.F |
431 |
STRIPITINT |
b(i,j) = a(i+offset-1,j) |
|
./pkg/fizhi/fizhi_utils.F |
434 |
STRIPITINT |
do 200 j=1,l |
|
./pkg/fizhi/fizhi_utils.F |
436 |
STRIPITINT |
b(i,j) = a(i+offset-1,j) |
|
./pkg/fizhi/fizhi_utils.F |
439 |
STRIPITINT |
b(Lena+i,j) = a(Lena+offset-1,j) |
|
./pkg/fizhi/fizhi_utils.F |
449 |
PASTIT |
integer i,j |
|
./pkg/fizhi/fizhi_utils.F |
456 |
PASTIT |
do 100 j=1,L |
|
./pkg/fizhi/fizhi_utils.F |
458 |
PASTIT |
a(i+offset-1,j) = b(i,j) |
|
./pkg/fizhi/fizhi_utils.F |
468 |
PSTBITINT |
integer i,j |
|
./pkg/fizhi/fizhi_utils.F |
474 |
PSTBITINT |
do 100 j=1,L |
|
./pkg/fizhi/fizhi_utils.F |
476 |
PSTBITINT |
a(i+offset-1,j) = a(i+offset-1,j) + float(b(i,j)) |
|
./pkg/fizhi/fizhi_utils.F |
486 |
PSTBMPIT |
integer i,j |
|
./pkg/fizhi/fizhi_utils.F |
492 |
PSTBMPIT |
do 100 j=1,L |
|
./pkg/fizhi/fizhi_utils.F |
494 |
PSTBMPIT |
a(i+offset-1,j) = a(i+offset-1,j) + b(i,j) |
|
./pkg/fizhi/fizhi_utils.F |
65 |
STRIP |
INTEGER OFFSET,Lena,i,j |
|
./pkg/fizhi/fizhi_utils.F |
925 |
PKAPPA |
integer i,j,L |
|
./pkg/fizhi/fizhi_utils.F |
930 |
PKAPPA |
do j = 1,jm |
|
./pkg/fizhi/fizhi_utils.F |
932 |
PKAPPA |
pkz(i,j,L) = ( ple (i,j,l+1)*pkle(i,j,l+1) |
|
./pkg/fizhi/fizhi_utils.F |
933 |
PKAPPA |
. - ple (i,j,l)*pkle(i,j,l) ) |
|
./pkg/fizhi/fizhi_utils.F |
934 |
PKAPPA |
. / ( akap1* (ple (i,j,l+1)-ple (i,j,l)) ) |
|
./pkg/fizhi/fizhi_utils.F |
94 |
STRIPINT |
INTEGER OFFSET,Lena,i,j |
|
./pkg/fizhi/fizhi_wrapper.F |
102 |
FIZHI_WRAPPER |
do j = 1,sNy+1 |
|
./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 |
116 |
FIZHI_WRAPPER |
do j = 1,sNy |
|
./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 |
123 |
FIZHI_WRAPPER |
do j = 1,sNy |
|
./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 |
137 |
FIZHI_WRAPPER |
do j = 1,sNy |
|
./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 |
144 |
FIZHI_WRAPPER |
do j = 1,sNy |
|
./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 |
162 |
FIZHI_WRAPPER |
do j = 1,sNy |
|
./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 |
177 |
FIZHI_WRAPPER |
do j = 1,sNy |
|
./pkg/fizhi/fizhi_wrapper.F |
180 |
FIZHI_WRAPPER |
pedyn(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_wrapper.F |
184 |
FIZHI_WRAPPER |
do j = 1,sNy |
|
./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 |
191 |
FIZHI_WRAPPER |
do j = 1,sNy |
|
./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 |
211 |
FIZHI_WRAPPER |
do j = 1,sNy |
|
./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 |
236 |
FIZHI_WRAPPER |
do j = 1,sNy |
|
./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 |
243 |
FIZHI_WRAPPER |
do j = 1,sNy |
|
./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 |
287 |
FIZHI_WRAPPER |
do j = 1,sNy |
|
./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 |
296 |
FIZHI_WRAPPER |
do j = 1,sNy |
|
./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 |
305 |
FIZHI_WRAPPER |
do j = 1,sNy |
|
./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 |
314 |
FIZHI_WRAPPER |
do j = 1,sNy |
|
./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 |
53 |
FIZHI_WRAPPER |
INTEGER i, j, L, Lbotij, bi, bj |
|
./pkg/fizhi/fizhi_wrapper.F |
74 |
FIZHI_WRAPPER |
do j = 1,sNy |
|
./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 |
81 |
FIZHI_WRAPPER |
do j = 1,sNy |
|
./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 |
95 |
FIZHI_WRAPPER |
do j = 1,sNy |
|
./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 |
49 |
FIZHI_WRITE_PICKUP |
integer i,j,k,bi,bj |
|
./pkg/fizhi/fizhi_write_pickup.F |
55 |
FIZHI_WRITE_PICKUP |
do j = 1-OLy,sNy+OLy |
|
./pkg/fizhi/fizhi_write_pickup.F |
57 |
FIZHI_WRITE_PICKUP |
temp(i,j,k,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_write_pickup.F |
93 |
FIZHI_WRITE_PICKUP |
do j = 1,sNy |
|
./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 |
106 |
STEP_FIZHI_CORR |
do j = 1,sNy |
|
./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 |
121 |
STEP_FIZHI_CORR |
do j = 1,sNy |
|
./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 |
140 |
STEP_FIZHI_CORR |
do j = 1,sNy |
|
./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 |
149 |
STEP_FIZHI_CORR |
do j = 1,sNy |
|
./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 |
158 |
STEP_FIZHI_CORR |
do j = 1,sNy |
|
./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 |
167 |
STEP_FIZHI_CORR |
do j = 1,sNy |
|
./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 |
192 |
STEP_FIZHI_CORR |
do j = jdim1,jdim2 |
|
./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 |
220 |
STEP_FIZHI_CORR |
do j = 1,sNy |
|
./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 |
229 |
STEP_FIZHI_CORR |
do j = 1,sNy |
|
./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 |
238 |
STEP_FIZHI_CORR |
do j = 1,sNy |
|
./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 |
247 |
STEP_FIZHI_CORR |
do j = 1,sNy |
|
./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 |
285 |
STEP_FIZHI_CORR |
do j=jm1,jm2 |
|
./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 |
297 |
STEP_FIZHI_CORR |
do j=jm1,jm2 |
|
./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 |
309 |
STEP_FIZHI_CORR |
do j=jm1,jm2 |
|
./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 |
321 |
STEP_FIZHI_CORR |
do j=jm1,jm2 |
|
./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 |
344 |
STEP_FIZHI_CORR |
do j=jm1,jm2 |
|
./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 |
363 |
STEP_FIZHI_CORR |
do j = 1,sNy |
|
./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 |
377 |
STEP_FIZHI_CORR |
do j = 1,sNy |
|
./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 |
386 |
STEP_FIZHI_CORR |
do j = 1,sNy |
|
./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 |
394 |
STEP_FIZHI_CORR |
do j = 1,sNy |
|
./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 |
426 |
STEP_FIZHI_CORR |
do j=jm1,jm2 |
|
./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 |
441 |
STEP_FIZHI_CORR |
do j = 1,sNy |
|
./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 |
449 |
STEP_FIZHI_CORR |
do j = 1,sNy |
|
./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 |
473 |
STEP_FIZHI_CORR |
do j=jm1,jm2 |
|
./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 |
488 |
STEP_FIZHI_CORR |
do j = 1,sNy |
|
./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 |
496 |
STEP_FIZHI_CORR |
do j = 1,sNy |
|
./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 |
79 |
STEP_FIZHI_CORR |
do j = 1,sNy |
|
./pkg/fizhi/step_fizhi_corr.F |
82 |
STEP_FIZHI_CORR |
pedyn(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/step_fizhi_corr.F |
86 |
STEP_FIZHI_CORR |
do j = 1,sNy |
|
./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 |
93 |
STEP_FIZHI_CORR |
do j = 1,sNy |
|
./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 |
32 |
STEP_FIZHI_FG |
integer i,j,L |
|
./pkg/fizhi/step_fizhi_fg.F |
54 |
STEP_FIZHI_FG |
do j = jm1,jm2 |
|
./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 |
62 |
STEP_FIZHI_FG |
do j = jm1,jm2 |
|
./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 |
70 |
STEP_FIZHI_FG |
do j = jm1,jm2 |
|
./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 |
78 |
STEP_FIZHI_FG |
do j = jm1,jm2 |
|
./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 |
93 |
STEP_FIZHI_FG |
do j = jm1,jm2 |
|
./pkg/fizhi/step_fizhi_fg.F |
95 |
STEP_FIZHI_FG |
tempij(i,j) = sphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_physics.F |
25 |
STEP_PHYSICS |
integer i,j,L |
|
./pkg/fizhi/step_physics.F |
28 |
STEP_PHYSICS |
do j = jm1,jm2 |
|
./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/update_chemistry_exports.F |
35 |
UPDATE_CHEMISTRY_EXPORTS |
integer i, j, L, LL, bi, bj |
|
./pkg/fizhi/update_chemistry_exports.F |
54 |
UPDATE_CHEMISTRY_EXPORTS |
do j = 1,sNy |
|
./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 |
63 |
UPDATE_CHEMISTRY_EXPORTS |
do j = 1,sNy |
|
./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 |
72 |
UPDATE_CHEMISTRY_EXPORTS |
do j = 1,sNy |
|
./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 |
85 |
UPDATE_CHEMISTRY_EXPORTS |
do j = 1,nlatsoz |
|
./pkg/fizhi/update_chemistry_exports.F |
86 |
UPDATE_CHEMISTRY_EXPORTS |
oz1(j,L) = ozone(j,L,imns)*facm + ozone(j,L,ipls)*facp |
|
./pkg/fizhi/update_chemistry_exports.F |
91 |
UPDATE_CHEMISTRY_EXPORTS |
do j = 1,nlatsq |
|
./pkg/fizhi/update_chemistry_exports.F |
92 |
UPDATE_CHEMISTRY_EXPORTS |
strq1(j,L) = stratq(j,L,imns)*facm + stratq(j,L,ipls)*facp |
|
./pkg/fizhi/update_earth_exports.F |
1004 |
GETEMISS |
INTEGER i,j,k,n |
|
./pkg/fizhi/update_earth_exports.F |
1020 |
GETEMISS |
do j = 1,jm |
|
./pkg/fizhi/update_earth_exports.F |
1022 |
GETEMISS |
tmpij(i,j) = 0.0 |
|
./pkg/fizhi/update_earth_exports.F |
1027 |
GETEMISS |
do j = 1,jm |
|
./pkg/fizhi/update_earth_exports.F |
1029 |
GETEMISS |
emiss(i,j,k,bi,bj) = tmpij(i,j) |
|
./pkg/fizhi/update_earth_exports.F |
1049 |
EMISSIVITY |
INTEGER i,j |
|
./pkg/fizhi/update_earth_exports.F |
1103 |
EMISSIVITY |
DATA ((emis(i,j),i=1,12),j=1,11) / |
|
./pkg/fizhi/update_earth_exports.F |
1235 |
GET_LANDFRAC |
INTEGER i,j,k |
|
./pkg/fizhi/update_earth_exports.F |
1237 |
GET_LANDFRAC |
do j=1,jm |
|
./pkg/fizhi/update_earth_exports.F |
1239 |
GET_LANDFRAC |
frac(i,j) = 0.0 |
|
./pkg/fizhi/update_earth_exports.F |
1244 |
GET_LANDFRAC |
do j=1,jm |
|
./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 |
136 |
UPDATE_EARTH_EXPORTS |
do j = jm1,jm2 |
|
./pkg/fizhi/update_earth_exports.F |
138 |
UPDATE_EARTH_EXPORTS |
tmpij(i,j) = 0. |
|
./pkg/fizhi/update_earth_exports.F |
146 |
UPDATE_EARTH_EXPORTS |
do j = jm1,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 |
75 |
UPDATE_EARTH_EXPORTS |
do j = jm1,jm2 |
|
./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 |
85 |
UPDATE_EARTH_EXPORTS |
do j = jm1,jm2 |
|
./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 |
885 |
GETALB |
INTEGER i,j |
|
./pkg/fizhi/update_earth_exports.F |
88 |
UPDATE_EARTH_EXPORTS |
fraci(i,j) = 1. |
|
./pkg/fizhi/update_earth_exports.F |
90 |
UPDATE_EARTH_EXPORTS |
fraci(i,j) = 0. |
|
./pkg/fizhi/update_earth_exports.F |
910 |
GETALB |
tmpij(i,j) = albvr(i,j,bi,bj) |
|
./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 |
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 |
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 |
954 |
GETALB |
albnf(i,j,bi,bj) = tmpij(i,j) |
|
./pkg/fizhi/update_ocean_exports.F |
102 |
UPDATE_OCEAN_EXPORTS |
do j=jm1,jm2 |
|
./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 |
184 |
GETSICE |
integer i,j,n,nn,iyear,iyearbc,nd,ndby3,imbc,jmbc |
|
./pkg/fizhi/update_ocean_exports.F |
34 |
UPDATE_OCEAN_EXPORTS |
integer i, j, bi, bj, bislot, bjslot |
|
./pkg/fizhi/update_ocean_exports.F |
352 |
GETSICE |
do j = jm1,jm2 |
|
./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 |
355 |
GETSICE |
. + sicebc2(i+bislot,j+bjslot)*fac2 |
|
./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 |
367 |
GETSICE |
do j = jm1,jm2 |
|
./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 |
445 |
GETSST |
integer i,j,n,nn,iyear,iyearbc,nd,ndby3,imbc,jmbc |
|
./pkg/fizhi/update_ocean_exports.F |
614 |
GETSST |
do j = jm1,jm2 |
|
./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 |
617 |
GETSST |
. + sstbc2(i+bislot,j+bjslot)*fac2 |
|
./pkg/fizhi/update_ocean_exports.F |
652 |
BCDATA |
integer i,j |
|
./pkg/fizhi/update_ocean_exports.F |
663 |
BCDATA |
do j=1,jm |
|
./pkg/fizhi/update_ocean_exports.F |
665 |
BCDATA |
field1(i,j) = f1(i,j) |
|
./pkg/fizhi/update_ocean_exports.F |
666 |
BCDATA |
field2(i,j) = f2(i,j) |
|
./pkg/flt/exch2_send_put_vec.F |
119 |
EXCH2_SEND_PUT_VEC_RL |
DO j=1,nSy |
|
./pkg/flt/exch2_send_put_vec.F |
121 |
EXCH2_SEND_PUT_VEC_RL |
IF ( W2_myTileList(i,j).EQ.tgT ) THEN |
|
./pkg/flt/exch2_send_put_vec.F |
123 |
EXCH2_SEND_PUT_VEC_RL |
sBj = j |
|
./pkg/flt/flt_init_varia.F |
199 |
FLT_INIT_VARIA |
DO j=1,6 |
|
./pkg/flt/flt_init_varia.F |
201 |
FLT_INIT_VARIA |
ip=i+(j-1)*6 |
|
./pkg/flt/flt_init_varia.F |
205 |
FLT_INIT_VARIA |
jpart(ip,bi,bj) = 1+5*(j-1) |
|
./pkg/flt/flt_init_varia.F |
60 |
FLT_INIT_VARIA |
INTEGER iG,jG,i,j |
|
./pkg/flt/flt_mapping.F |
120 |
FLT_MAP_IJLOCAL2XY |
INTEGER i, j |
|
./pkg/flt/flt_mapping.F |
132 |
FLT_MAP_IJLOCAL2XY |
j = NINT(jy) |
|
./pkg/flt/flt_mapping.F |
134 |
FLT_MAP_IJLOCAL2XY |
ddy = 0.5 _d 0 + jy - DFLOAT(j) |
|
./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 |
142 |
FLT_MAP_IJLOCAL2XY |
j = NINT(jy) |
|
./pkg/flt/flt_mapping.F |
144 |
FLT_MAP_IJLOCAL2XY |
ddy = 0.5 _d 0 + jy - DFLOAT(j) |
|
./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 |
46 |
FLT_MAP_XY2IJLOCAL |
INTEGER i, j |
|
./pkg/flt/flt_mapping.F |
57 |
FLT_MAP_XY2IJLOCAL |
j = 1 |
|
./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 |
69 |
FLT_MAP_XY2IJLOCAL |
DO j=0,sNy+1 |
|
./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 |
74 |
FLT_MAP_XY2IJLOCAL |
jy = DFLOAT(j)+fm-0.5 _d 0 |
|
./pkg/frazil/frazil_calc_rhs.F |
42 |
FRAZIL_CALC_RHS |
INTEGER bi,bj,i,j,k,kTop |
|
./pkg/frazil/frazil_calc_rhs.F |
58 |
FRAZIL_CALC_RHS |
DO j=1-Oly,sNy+OLy |
|
./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 |
67 |
FRAZIL_CALC_RHS |
DO j=1-OLy,sNy+OLy |
|
./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 |
38 |
FRAZIL_INIT_VARIA |
DO j=1-Oly,sNy+OLy |
|
./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 |
53 |
FRAZIL_TENDENCY_APPLY_T |
INTEGER i, j |
|
./pkg/frazil/frazil_tendency_apply.F |
57 |
FRAZIL_TENDENCY_APPLY_T |
DO j=jMin,jMax |
|
./pkg/frazil/frazil_tendency_apply.F |
59 |
FRAZIL_TENDENCY_APPLY_T |
gT_arr(i,j) = gT_arr(i,j) |
|
./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 |
51 |
GCHEM_ADD_TENDENCY |
INTEGER i,j |
|
./pkg/gchem/gchem_add_tendency.F |
61 |
GCHEM_ADD_TENDENCY |
DO j=jMin,jMax |
|
./pkg/gchem/gchem_add_tendency.F |
63 |
GCHEM_ADD_TENDENCY |
gPtracer(i,j) = gPtracer(i,j) |
|
./pkg/gchem/gchem_add_tendency.F |
64 |
GCHEM_ADD_TENDENCY |
& + gchemTendency(i,j,k,bi,bj,jTr) |
|
./pkg/gchem/gchem_calc_tendency.F |
57 |
GCHEM_CALC_TENDENCY |
INTEGER i,j |
|
./pkg/gchem/gchem_calc_tendency.F |
66 |
GCHEM_CALC_TENDENCY |
DO j = 1-OLy, sNy+OLy |
|
./pkg/gchem/gchem_calc_tendency.F |
68 |
GCHEM_CALC_TENDENCY |
gchemTendency(i,j,k,bi,bj,jTr) = 0. _d 0 |
|
./pkg/gchem/gchem_init_vari.F |
41 |
GCHEM_INIT_VARI |
INTEGER i,j,k |
|
./pkg/gchem/gchem_init_vari.F |
53 |
GCHEM_INIT_VARI |
DO j = 1-OLy, sNy+OLy |
|
./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 |
47 |
GCHEM_SURFMEAN |
DO j=1,sNy |
|
./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 |
1011 |
GAD_ADVECTION |
DO j=1-OLy,sNy+OLy |
|
./pkg/generic_advdiff/gad_advection.F |
1013 |
GAD_ADVECTION |
tmpTrac = localT3d(i,j,k)*locVol3d(i,j,k) |
|
./pkg/generic_advdiff/gad_advection.F |
1014 |
GAD_ADVECTION |
& -deltaTLev(k)*( fVerT(i,j,kDown)-fVerT(i,j,kUp) ) |
|
./pkg/generic_advdiff/gad_advection.F |
1015 |
GAD_ADVECTION |
& *rkSign*maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
1016 |
GAD_ADVECTION |
localVol(i,j) = locVol3d(i,j,k) |
|
./pkg/generic_advdiff/gad_advection.F |
1017 |
GAD_ADVECTION |
& -deltaTLev(k)*( rTransKp(i,j) - rTrans(i,j) ) |
|
./pkg/generic_advdiff/gad_advection.F |
1018 |
GAD_ADVECTION |
& *rkSign*maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
1020 |
GAD_ADVECTION |
localTij(i,j) = tmpTrac/localVol(i,j) |
|
./pkg/generic_advdiff/gad_advection.F |
1028 |
GAD_ADVECTION |
gTracer(i,j,k) = |
|
./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 |
1037 |
GAD_ADVECTION |
DO j=1-OLy,sNy+OLy |
|
./pkg/generic_advdiff/gad_advection.F |
1039 |
GAD_ADVECTION |
localTij(i,j) = localT3d(i,j,k) |
|
./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 |
1043 |
GAD_ADVECTION |
& *( fVerT(i,j,kDown)-fVerT(i,j,kUp) |
|
./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 |
1046 |
GAD_ADVECTION |
gTracer(i,j,k) = |
|
./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 |
133 |
GAD_ADVECTION |
INTEGER i,j,k,kUp,kDown |
|
./pkg/generic_advdiff/gad_advection.F |
218 |
GAD_ADVECTION |
DO j=1-OLy,sNy+OLy |
|
./pkg/generic_advdiff/gad_advection.F |
229 |
GAD_ADVECTION |
rTrans(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_advection.F |
230 |
GAD_ADVECTION |
fVerT(i,j,1) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_advection.F |
231 |
GAD_ADVECTION |
fVerT(i,j,2) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_advection.F |
234 |
GAD_ADVECTION |
localVol(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_advection.F |
236 |
GAD_ADVECTION |
localTij(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_advection.F |
279 |
GAD_ADVECTION |
DO j=1-OLy,sNy+OLy |
|
./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 |
289 |
GAD_ADVECTION |
DO j=1-OLy,sNy+OLy |
|
./pkg/generic_advdiff/gad_advection.F |
291 |
GAD_ADVECTION |
uTrans(i,j) = uFld(i,j,k)*xA(i,j)*rhoFacC(k) |
|
./pkg/generic_advdiff/gad_advection.F |
292 |
GAD_ADVECTION |
vTrans(i,j) = vFld(i,j,k)*yA(i,j)*rhoFacC(k) |
|
./pkg/generic_advdiff/gad_advection.F |
297 |
GAD_ADVECTION |
DO j=1-OLy,sNy+OLy |
|
./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 |
363 |
GAD_ADVECTION |
DO j=1-OLy,sNy+OLy |
|
./pkg/generic_advdiff/gad_advection.F |
365 |
GAD_ADVECTION |
af(i,j) = 0. |
|
./pkg/generic_advdiff/gad_advection.F |
391 |
GAD_ADVECTION |
DO j=1-OLy,sNy+OLy |
|
./pkg/generic_advdiff/gad_advection.F |
393 |
GAD_ADVECTION |
af(i,j) = 0. |
|
./pkg/generic_advdiff/gad_advection.F |
481 |
GAD_ADVECTION |
DO j=1-OLy,0 |
|
./pkg/generic_advdiff/gad_advection.F |
484 |
GAD_ADVECTION |
tmpTrac = localTij(i,j)*localVol(i,j) |
|
./pkg/generic_advdiff/gad_advection.F |
485 |
GAD_ADVECTION |
& -deltaTLev(k)*( af(i+1,j) - af(i,j) ) |
|
./pkg/generic_advdiff/gad_advection.F |
486 |
GAD_ADVECTION |
& *maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
487 |
GAD_ADVECTION |
localVol(i,j) = localVol(i,j) |
|
./pkg/generic_advdiff/gad_advection.F |
488 |
GAD_ADVECTION |
& -deltaTLev(k)*( uTrans(i+1,j) - uTrans(i,j) ) |
|
./pkg/generic_advdiff/gad_advection.F |
489 |
GAD_ADVECTION |
& *maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
490 |
GAD_ADVECTION |
localTij(i,j) = tmpTrac/localVol(i,j) |
|
./pkg/generic_advdiff/gad_advection.F |
492 |
GAD_ADVECTION |
localTij(i,j) = localTij(i,j) |
|
./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 |
496 |
GAD_ADVECTION |
& *( af(i+1,j)-af(i,j) |
|
./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 |
504 |
GAD_ADVECTION |
DO j=sNy+1,sNy+OLy |
|
./pkg/generic_advdiff/gad_advection.F |
507 |
GAD_ADVECTION |
tmpTrac = localTij(i,j)*localVol(i,j) |
|
./pkg/generic_advdiff/gad_advection.F |
508 |
GAD_ADVECTION |
& -deltaTLev(k)*( af(i+1,j) - af(i,j) ) |
|
./pkg/generic_advdiff/gad_advection.F |
509 |
GAD_ADVECTION |
& *maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
510 |
GAD_ADVECTION |
localVol(i,j) = localVol(i,j) |
|
./pkg/generic_advdiff/gad_advection.F |
511 |
GAD_ADVECTION |
& -deltaTLev(k)*( uTrans(i+1,j) - uTrans(i,j) ) |
|
./pkg/generic_advdiff/gad_advection.F |
512 |
GAD_ADVECTION |
& *maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
513 |
GAD_ADVECTION |
localTij(i,j) = tmpTrac/localVol(i,j) |
|
./pkg/generic_advdiff/gad_advection.F |
515 |
GAD_ADVECTION |
localTij(i,j) = localTij(i,j) |
|
./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 |
519 |
GAD_ADVECTION |
& *( af(i+1,j)-af(i,j) |
|
./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 |
533 |
GAD_ADVECTION |
DO j=jMinUpd,jMaxUpd |
|
./pkg/generic_advdiff/gad_advection.F |
536 |
GAD_ADVECTION |
tmpTrac = localTij(i,j)*localVol(i,j) |
|
./pkg/generic_advdiff/gad_advection.F |
537 |
GAD_ADVECTION |
& -deltaTLev(k)*( af(i+1,j) - af(i,j) ) |
|
./pkg/generic_advdiff/gad_advection.F |
538 |
GAD_ADVECTION |
& *maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
539 |
GAD_ADVECTION |
localVol(i,j) = localVol(i,j) |
|
./pkg/generic_advdiff/gad_advection.F |
540 |
GAD_ADVECTION |
& -deltaTLev(k)*( uTrans(i+1,j) - uTrans(i,j) ) |
|
./pkg/generic_advdiff/gad_advection.F |
541 |
GAD_ADVECTION |
& *maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
542 |
GAD_ADVECTION |
localTij(i,j) = tmpTrac/localVol(i,j) |
|
./pkg/generic_advdiff/gad_advection.F |
544 |
GAD_ADVECTION |
localTij(i,j) = localTij(i,j) |
|
./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 |
548 |
GAD_ADVECTION |
& *( af(i+1,j)-af(i,j) |
|
./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 |
555 |
GAD_ADVECTION |
DO j=1-OLy,sNy+OLy |
|
./pkg/generic_advdiff/gad_advection.F |
557 |
GAD_ADVECTION |
afx(i,j) = af(i,j) |
|
./pkg/generic_advdiff/gad_advection.F |
572 |
GAD_ADVECTION |
DO j=1-OLy,sNy+OLy |
|
./pkg/generic_advdiff/gad_advection.F |
574 |
GAD_ADVECTION |
af(i,j) = 0. |
|
./pkg/generic_advdiff/gad_advection.F |
600 |
GAD_ADVECTION |
DO j=1-OLy,sNy+OLy |
|
./pkg/generic_advdiff/gad_advection.F |
602 |
GAD_ADVECTION |
af(i,j) = 0. |
|
./pkg/generic_advdiff/gad_advection.F |
690 |
GAD_ADVECTION |
DO j=jMinUpd,jMaxUpd |
|
./pkg/generic_advdiff/gad_advection.F |
693 |
GAD_ADVECTION |
tmpTrac = localTij(i,j)*localVol(i,j) |
|
./pkg/generic_advdiff/gad_advection.F |
694 |
GAD_ADVECTION |
& -deltaTLev(k)*( af(i,j+1) - af(i,j) ) |
|
./pkg/generic_advdiff/gad_advection.F |
695 |
GAD_ADVECTION |
& *maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
696 |
GAD_ADVECTION |
localVol(i,j) = localVol(i,j) |
|
./pkg/generic_advdiff/gad_advection.F |
697 |
GAD_ADVECTION |
& -deltaTLev(k)*( vTrans(i,j+1) - vTrans(i,j) ) |
|
./pkg/generic_advdiff/gad_advection.F |
698 |
GAD_ADVECTION |
& *maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
699 |
GAD_ADVECTION |
localTij(i,j) = tmpTrac/localVol(i,j) |
|
./pkg/generic_advdiff/gad_advection.F |
701 |
GAD_ADVECTION |
localTij(i,j) = localTij(i,j) |
|
./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 |
705 |
GAD_ADVECTION |
& *( af(i,j+1)-af(i,j) |
|
./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 |
713 |
GAD_ADVECTION |
DO j=jMinUpd,jMaxUpd |
|
./pkg/generic_advdiff/gad_advection.F |
716 |
GAD_ADVECTION |
tmpTrac = localTij(i,j)*localVol(i,j) |
|
./pkg/generic_advdiff/gad_advection.F |
717 |
GAD_ADVECTION |
& -deltaTLev(k)*( af(i,j+1) - af(i,j) ) |
|
./pkg/generic_advdiff/gad_advection.F |
718 |
GAD_ADVECTION |
& *maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
719 |
GAD_ADVECTION |
localVol(i,j) = localVol(i,j) |
|
./pkg/generic_advdiff/gad_advection.F |
720 |
GAD_ADVECTION |
& -deltaTLev(k)*( vTrans(i,j+1) - vTrans(i,j) ) |
|
./pkg/generic_advdiff/gad_advection.F |
721 |
GAD_ADVECTION |
& *maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
722 |
GAD_ADVECTION |
localTij(i,j) = tmpTrac/localVol(i,j) |
|
./pkg/generic_advdiff/gad_advection.F |
724 |
GAD_ADVECTION |
localTij(i,j) = localTij(i,j) |
|
./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 |
728 |
GAD_ADVECTION |
& *( af(i,j+1)-af(i,j) |
|
./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 |
742 |
GAD_ADVECTION |
DO j=1-OLy+1,sNy+OLy-1 |
|
./pkg/generic_advdiff/gad_advection.F |
745 |
GAD_ADVECTION |
tmpTrac = localTij(i,j)*localVol(i,j) |
|
./pkg/generic_advdiff/gad_advection.F |
746 |
GAD_ADVECTION |
& -deltaTLev(k)*( af(i,j+1) - af(i,j) ) |
|
./pkg/generic_advdiff/gad_advection.F |
747 |
GAD_ADVECTION |
& *maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
748 |
GAD_ADVECTION |
localVol(i,j) = localVol(i,j) |
|
./pkg/generic_advdiff/gad_advection.F |
749 |
GAD_ADVECTION |
& -deltaTLev(k)*( vTrans(i,j+1) - vTrans(i,j) ) |
|
./pkg/generic_advdiff/gad_advection.F |
750 |
GAD_ADVECTION |
& *maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
751 |
GAD_ADVECTION |
localTij(i,j) = tmpTrac/localVol(i,j) |
|
./pkg/generic_advdiff/gad_advection.F |
753 |
GAD_ADVECTION |
localTij(i,j) = localTij(i,j) |
|
./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 |
757 |
GAD_ADVECTION |
& *( af(i,j+1)-af(i,j) |
|
./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 |
764 |
GAD_ADVECTION |
DO j=1-OLy,sNy+OLy |
|
./pkg/generic_advdiff/gad_advection.F |
766 |
GAD_ADVECTION |
afy(i,j) = af(i,j) |
|
./pkg/generic_advdiff/gad_advection.F |
784 |
GAD_ADVECTION |
DO j=1-OLy,sNy+OLy |
|
./pkg/generic_advdiff/gad_advection.F |
786 |
GAD_ADVECTION |
gTracer(i,j,k) = |
|
./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 |
792 |
GAD_ADVECTION |
DO j=1-OLy,sNy+OLy |
|
./pkg/generic_advdiff/gad_advection.F |
795 |
GAD_ADVECTION |
locVol3d(i,j,k) = localVol(i,j) |
|
./pkg/generic_advdiff/gad_advection.F |
797 |
GAD_ADVECTION |
localT3d(i,j,k) = localTij(i,j) |
|
./pkg/generic_advdiff/gad_advection.F |
845 |
GAD_ADVECTION |
DO j=1-OLy,sNy+OLy |
|
./pkg/generic_advdiff/gad_advection.F |
847 |
GAD_ADVECTION |
rTran3d(i,j,k) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_advection.F |
852 |
GAD_ADVECTION |
DO j=1-OLy,sNy+OLy |
|
./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 |
874 |
GAD_ADVECTION |
DO j=1-OLy,sNy+OLy |
|
./pkg/generic_advdiff/gad_advection.F |
876 |
GAD_ADVECTION |
rTran3d(i,j,k) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_advection.F |
881 |
GAD_ADVECTION |
DO j=1-OLy,sNy+OLy |
|
./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 |
925 |
GAD_ADVECTION |
DO j=1-OLy,sNy+OLy |
|
./pkg/generic_advdiff/gad_advection.F |
927 |
GAD_ADVECTION |
rTransKp(i,j) = kp1Msk*rTrans(i,j) |
|
./pkg/generic_advdiff/gad_advection.F |
928 |
GAD_ADVECTION |
rTrans(i,j) = 0. |
|
./pkg/generic_advdiff/gad_advection.F |
929 |
GAD_ADVECTION |
fVerT(i,j,kUp) = 0. |
|
./pkg/generic_advdiff/gad_advection.F |
936 |
GAD_ADVECTION |
DO j=1-OLy,sNy+OLy |
|
./pkg/generic_advdiff/gad_advection.F |
938 |
GAD_ADVECTION |
rTransKp(i,j) = kp1Msk*rTrans(i,j) |
|
./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 |
942 |
GAD_ADVECTION |
fVerT(i,j,kUp) = 0. |
|
./pkg/generic_advdiff/gad_advection.F |
983 |
GAD_ADVECTION |
DO j = 1-OLy,sNy+OLy |
|
./pkg/generic_advdiff/gad_advection.F |
985 |
GAD_ADVECTION |
fVerT(i,j,kUp) = afr(i,j,k) |
|
./pkg/generic_advdiff/gad_biharm_r.F |
48 |
GAD_BIHARM_R |
INTEGER i, j, n |
|
./pkg/generic_advdiff/gad_biharm_r.F |
62 |
GAD_BIHARM_R |
DO j=1-OLy,sNy+OLy |
|
./pkg/generic_advdiff/gad_biharm_r.F |
64 |
GAD_BIHARM_R |
gradR(i,j,n) = 0. |
|
./pkg/generic_advdiff/gad_biharm_r.F |
69 |
GAD_BIHARM_R |
DO j=1-OLy,sNy+OLy |
|
./pkg/generic_advdiff/gad_biharm_r.F |
71 |
GAD_BIHARM_R |
gradR(i,j,n) = ( tracer(i,j,kl)-tracer(i,j,km) ) |
|
./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 |
83 |
GAD_BIHARM_R |
DO j=1-OLy,sNy+OLy |
|
./pkg/generic_advdiff/gad_biharm_r.F |
85 |
GAD_BIHARM_R |
del2T(i,j,n) = ( gradR(i,j,n+1)-gradR(i,j,n) ) |
|
./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 |
93 |
GAD_BIHARM_R |
DO j=1-OLy,sNy+OLy |
|
./pkg/generic_advdiff/gad_biharm_r.F |
95 |
GAD_BIHARM_R |
d4f(i,j) = d4f(i,j) |
|
./pkg/generic_advdiff/gad_biharm_r.F |
96 |
GAD_BIHARM_R |
& + diffKr4(k)*( del2T(i,j,2)-del2T(i,j,1) ) |
|
./pkg/generic_advdiff/gad_biharm_r.F |
97 |
GAD_BIHARM_R |
& *tmpFac*_rA(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_biharm_x.F |
47 |
GAD_BIHARM_X |
INTEGER i,j |
|
./pkg/generic_advdiff/gad_biharm_x.F |
51 |
GAD_BIHARM_X |
DO j=1-Oly,sNy+Oly |
|
./pkg/generic_advdiff/gad_biharm_x.F |
55 |
GAD_BIHARM_X |
dfx(i,j) = dfx(i,j) + diffK4*xA(i,j) |
|
./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 |
57 |
GAD_BIHARM_X |
& *(del2T(i,j)-del2T(i-1,j)) |
|
./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 |
47 |
GAD_BIHARM_Y |
INTEGER i,j |
|
./pkg/generic_advdiff/gad_biharm_y.F |
54 |
GAD_BIHARM_Y |
DO j=1-Oly+1,sNy+Oly |
|
./pkg/generic_advdiff/gad_biharm_y.F |
57 |
GAD_BIHARM_Y |
dfy(i,j) = dfy(i,j) + diffK4*yA(i,j) |
|
./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 |
59 |
GAD_BIHARM_Y |
& *(del2T(i,j)-del2T(i,j-1)) |
|
./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 |
49 |
GAD_C2_ADV_R |
INTEGER i,j,km1 |
|
./pkg/generic_advdiff/gad_c2_adv_r.F |
55 |
GAD_C2_ADV_R |
DO j=1-OLy,sNy+OLy |
|
./pkg/generic_advdiff/gad_c2_adv_r.F |
57 |
GAD_C2_ADV_R |
wT(i,j) = 0. |
|
./pkg/generic_advdiff/gad_c2_adv_r.F |
61 |
GAD_C2_ADV_R |
DO j=1-OLy,sNy+OLy |
|
./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_r.F |
64 |
GAD_C2_ADV_R |
& rTrans(i,j)* |
|
./pkg/generic_advdiff/gad_c2_adv_r.F |
65 |
GAD_C2_ADV_R |
& (tracer(i,j,k)+tracer(i,j,km1))*0.5 _d 0 |
|
./pkg/generic_advdiff/gad_c2_adv_x.F |
46 |
GAD_C2_ADV_X |
INTEGER i,j |
|
./pkg/generic_advdiff/gad_c2_adv_x.F |
49 |
GAD_C2_ADV_X |
DO j=1-Oly,sNy+Oly |
|
./pkg/generic_advdiff/gad_c2_adv_x.F |
50 |
GAD_C2_ADV_X |
uT(1-Olx,j)=0. |
|
./pkg/generic_advdiff/gad_c2_adv_x.F |
52 |
GAD_C2_ADV_X |
DO j=1-Oly,sNy+Oly |
|
./pkg/generic_advdiff/gad_c2_adv_x.F |
54 |
GAD_C2_ADV_X |
uT(i,j) = |
|
./pkg/generic_advdiff/gad_c2_adv_x.F |
55 |
GAD_C2_ADV_X |
& uTrans(i,j)*(Tracer(i,j)+Tracer(i-1,j))*0.5 _d 0 |
|
./pkg/generic_advdiff/gad_c2_adv_y.F |
46 |
GAD_C2_ADV_Y |
INTEGER i,j |
|
./pkg/generic_advdiff/gad_c2_adv_y.F |
52 |
GAD_C2_ADV_Y |
DO j=1-Oly+1,sNy+Oly |
|
./pkg/generic_advdiff/gad_c2_adv_y.F |
54 |
GAD_C2_ADV_Y |
vT(i,j) = |
|
./pkg/generic_advdiff/gad_c2_adv_y.F |
55 |
GAD_C2_ADV_Y |
& vTrans(i,j)*(Tracer(i,j)+Tracer(i,j-1))*0.5 _d 0 |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
55 |
GAD_C2_IMPL_R |
INTEGER i,j |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
63 |
GAD_C2_IMPL_R |
DO j=jMin,jMax |
|
./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 |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
66 |
GAD_C2_IMPL_R |
a3d(i,j,k) = a3d(i,j,k) |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
68 |
GAD_C2_IMPL_R |
& *recip_hFac(i,j,k)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
70 |
GAD_C2_IMPL_R |
b3d(i,j,k) = b3d(i,j,k) |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
72 |
GAD_C2_IMPL_R |
& *recip_hFac(i,j,k)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
74 |
GAD_C2_IMPL_R |
b3d(i,j,k-1) = b3d(i,j,k-1) |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
76 |
GAD_C2_IMPL_R |
& *recip_hFac(i,j,k-1)*recip_drF(k-1) |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
78 |
GAD_C2_IMPL_R |
c3d(i,j,k-1) = c3d(i,j,k-1) |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
80 |
GAD_C2_IMPL_R |
& *recip_hFac(i,j,k-1)*recip_drF(k-1) |
|
./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 |
56 |
GAD_C4_ADV_R |
INTEGER i,j,kp1,km1,km2 |
|
./pkg/generic_advdiff/gad_c4_adv_r.F |
68 |
GAD_C4_ADV_R |
DO j=1-OLy,sNy+OLy |
|
./pkg/generic_advdiff/gad_c4_adv_r.F |
70 |
GAD_C4_ADV_R |
wT(i,j) = 0. |
|
./pkg/generic_advdiff/gad_c4_adv_r.F |
74 |
GAD_C4_ADV_R |
DO j=1-OLy,sNy+OLy |
|
./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 |
78 |
GAD_C4_ADV_R |
Rj = (tracer(i,j, k )-tracer(i,j,km1)) |
|
./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_r.F |
84 |
GAD_C4_ADV_R |
& rTrans(i,j)*( (tracer(i,j,k)+tracer(i,j,km1))*0.5 _d 0 |
|
./pkg/generic_advdiff/gad_c4_adv_r.F |
86 |
GAD_C4_ADV_R |
& +ABS(rTrans(i,j))* |
|
./pkg/generic_advdiff/gad_c4_adv_x.F |
54 |
GAD_C4_ADV_X |
INTEGER i,j |
|
./pkg/generic_advdiff/gad_c4_adv_x.F |
58 |
GAD_C4_ADV_X |
DO j=1-Oly,sNy+Oly |
|
./pkg/generic_advdiff/gad_c4_adv_x.F |
59 |
GAD_C4_ADV_X |
uT(1-Olx,j)=0. |
|
./pkg/generic_advdiff/gad_c4_adv_x.F |
60 |
GAD_C4_ADV_X |
uT(2-Olx,j)=0. |
|
./pkg/generic_advdiff/gad_c4_adv_x.F |
61 |
GAD_C4_ADV_X |
uT(sNx+Olx,j)=0. |
|
./pkg/generic_advdiff/gad_c4_adv_x.F |
63 |
GAD_C4_ADV_X |
DO j=1-Oly,sNy+Oly |
|
./pkg/generic_advdiff/gad_c4_adv_x.F |
65 |
GAD_C4_ADV_X |
Rjp = (tracer(i+1,j)-tracer( i ,j))*maskLocW(i+1,j) |
|
./pkg/generic_advdiff/gad_c4_adv_x.F |
66 |
GAD_C4_ADV_X |
Rj = (tracer( i ,j)-tracer(i-1,j))*maskLocW( i ,j) |
|
./pkg/generic_advdiff/gad_c4_adv_x.F |
67 |
GAD_C4_ADV_X |
Rjm = (tracer(i-1,j)-tracer(i-2,j))*maskLocW(i-1,j) |
|
./pkg/generic_advdiff/gad_c4_adv_x.F |
70 |
GAD_C4_ADV_X |
uT(i,j) = |
|
./pkg/generic_advdiff/gad_c4_adv_x.F |
71 |
GAD_C4_ADV_X |
& uTrans(i,j)*( |
|
./pkg/generic_advdiff/gad_c4_adv_x.F |
72 |
GAD_C4_ADV_X |
& Tracer(i,j)+Tracer(i-1,j)-oneSixth*( Rjjp+Rjjm ) |
|
./pkg/generic_advdiff/gad_c4_adv_x.F |
74 |
GAD_C4_ADV_X |
& +ABS( uTrans(i,j) )*0.5 _d 0*oneSixth*( Rjjp-Rjjm ) |
|
./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 |
54 |
GAD_C4_ADV_Y |
INTEGER i,j |
|
./pkg/generic_advdiff/gad_c4_adv_y.F |
63 |
GAD_C4_ADV_Y |
DO j=1-Oly+2,sNy+Oly-1 |
|
./pkg/generic_advdiff/gad_c4_adv_y.F |
65 |
GAD_C4_ADV_Y |
Rjp = (tracer(i,j+1)-tracer(i, j ))*maskLocS(i,j+1) |
|
./pkg/generic_advdiff/gad_c4_adv_y.F |
66 |
GAD_C4_ADV_Y |
Rj = (tracer(i, j )-tracer(i,j-1))*maskLocS(i, j ) |
|
./pkg/generic_advdiff/gad_c4_adv_y.F |
67 |
GAD_C4_ADV_Y |
Rjm = (tracer(i,j-1)-tracer(i,j-2))*maskLocS(i,j-1) |
|
./pkg/generic_advdiff/gad_c4_adv_y.F |
70 |
GAD_C4_ADV_Y |
vT(i,j) = |
|
./pkg/generic_advdiff/gad_c4_adv_y.F |
71 |
GAD_C4_ADV_Y |
& vTrans(i,j)*( |
|
./pkg/generic_advdiff/gad_c4_adv_y.F |
72 |
GAD_C4_ADV_Y |
& Tracer(i,j)+Tracer(i,j-1)-oneSixth*( Rjjp+Rjjm ) |
|
./pkg/generic_advdiff/gad_c4_adv_y.F |
74 |
GAD_C4_ADV_Y |
& +ABS( vTrans(i,j) )*0.5 _d 0*oneSixth*( Rjjp-Rjjm ) |
|
./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 |
137 |
GAD_CALC_RHS |
INTEGER i,j |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
173 |
GAD_CALC_RHS |
DO j=1-OLy,sNy+OLy |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
175 |
GAD_CALC_RHS |
fZon(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
176 |
GAD_CALC_RHS |
fMer(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
177 |
GAD_CALC_RHS |
fVerT(i,j,kUp) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
178 |
GAD_CALC_RHS |
df(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
179 |
GAD_CALC_RHS |
df4(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
185 |
GAD_CALC_RHS |
DO j=1-OLy,sNy+OLy |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
187 |
GAD_CALC_RHS |
localT(i,j)=TracerN(i,j,k) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
188 |
GAD_CALC_RHS |
locABT(i,j)= TracAB(i,j,k) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
192 |
GAD_CALC_RHS |
DO j=1-OLy,sNy+OLy |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
194 |
GAD_CALC_RHS |
localT(i,j)=TracerN(i,j,k) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
195 |
GAD_CALC_RHS |
locABT(i,j)=TracerN(i,j,k) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
208 |
GAD_CALC_RHS |
DO j=1-OLy,sNy+OLy |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
210 |
GAD_CALC_RHS |
fZon(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
224 |
GAD_CALC_RHS |
DO j=1-OLy,sNy+OLy |
|
./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 |
279 |
GAD_CALC_RHS |
DO j=1-OLy,sNy+OLy |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
281 |
GAD_CALC_RHS |
fZon(i,j) = fZon(i,j) + af(i,j) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
302 |
GAD_CALC_RHS |
DO j=1-OLy,sNy+OLy |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
304 |
GAD_CALC_RHS |
df(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
325 |
GAD_CALC_RHS |
DO j=1-OLy,sNy+OLy |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
327 |
GAD_CALC_RHS |
fZon(i,j) = fZon(i,j) + df(i,j)*rhoFacC(k) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
348 |
GAD_CALC_RHS |
DO j=1-OLy,sNy+OLy |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
350 |
GAD_CALC_RHS |
fMer(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
364 |
GAD_CALC_RHS |
DO j=1-OLy,sNy+OLy |
|
./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 |
419 |
GAD_CALC_RHS |
DO j=1-OLy,sNy+OLy |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
421 |
GAD_CALC_RHS |
fMer(i,j) = fMer(i,j) + af(i,j) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
442 |
GAD_CALC_RHS |
DO j=1-OLy,sNy+OLy |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
444 |
GAD_CALC_RHS |
df(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
465 |
GAD_CALC_RHS |
DO j=1-OLy,sNy+OLy |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
467 |
GAD_CALC_RHS |
fMer(i,j) = fMer(i,j) + df(i,j)*rhoFacC(k) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
585 |
GAD_CALC_RHS |
DO j=1-OLy,sNy+OLy |
|
./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 |
610 |
GAD_CALC_RHS |
DO j=1-OLy,sNy+OLy |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
612 |
GAD_CALC_RHS |
df(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
634 |
GAD_CALC_RHS |
DO j=1-OLy,sNy+OLy |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
636 |
GAD_CALC_RHS |
fVerT(i,j,kUp) = fVerT(i,j,kUp) + df(i,j)*maskUp(i,j) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
659 |
GAD_CALC_RHS |
DO j=1-OLy,sNy+OLy |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
661 |
GAD_CALC_RHS |
df(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
687 |
GAD_CALC_RHS |
DO j=1-OLy,sNy+OLy |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
689 |
GAD_CALC_RHS |
fVerT(i,j,kUp) = fVerT(i,j,kUp) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
690 |
GAD_CALC_RHS |
& + df(i,j)*maskUp(i,j)*rhoFacF(k) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
719 |
GAD_CALC_RHS |
DO j=1-OLy,sNy+OLy-1 |
|
./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 |
725 |
GAD_CALC_RHS |
& *( MAX(0. _d 0,fZon(i+1,j)) + MAX(0. _d 0,-fZon(i,j)) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
726 |
GAD_CALC_RHS |
& +MAX(0. _d 0,fMer(i,j+1)) + MAX(0. _d 0,-fMer(i,j)) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
727 |
GAD_CALC_RHS |
& +MAX(0. _d 0,fVerT(i,j,kDown)*rkSign) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
728 |
GAD_CALC_RHS |
& +MAX(0. _d 0,-fVerT(i,j,kUp)*rkSign) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
730 |
GAD_CALC_RHS |
trac = localT(i,j) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
738 |
GAD_CALC_RHS |
IF (fZon(i+1,j).GT.0. _d 0) fZon(i+1,j)=fac*fZon(i+1,j) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
739 |
GAD_CALC_RHS |
IF (-fZon(i,j) .GT.0. _d 0) fZon(i,j) =fac*fZon(i,j) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
740 |
GAD_CALC_RHS |
IF (fMer(i,j+1).GT.0. _d 0) fMer(i,j+1)=fac*fMer(i,j+1) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
741 |
GAD_CALC_RHS |
IF (-fMer(i,j) .GT.0. _d 0) fMer(i,j) =fac*fMer(i,j) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
742 |
GAD_CALC_RHS |
IF (-fVerT(i,j,kUp)*rkSign .GT.0. _d 0) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
743 |
GAD_CALC_RHS |
& fVerT(i,j,kUp)=fac*fVerT(i,j,kUp) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
745 |
GAD_CALC_RHS |
IF (k.LT.Nr .AND. fVerT(i,j,kDown)*rkSign.GT.0. _d 0) THEN |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
749 |
GAD_CALC_RHS |
gTracer(i,j,k+1) = gTracer(i,j,k+1) |
|
./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 |
753 |
GAD_CALC_RHS |
& *( -fVerT(i,j,kDown)*rkSign ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
755 |
GAD_CALC_RHS |
fVerT(i,j,kDown)=fac*fVerT(i,j,kDown) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
757 |
GAD_CALC_RHS |
gTracer(i,j,k+1) = gTracer(i,j,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 |
761 |
GAD_CALC_RHS |
& *( fVerT(i,j,kDown)*rkSign ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
773 |
GAD_CALC_RHS |
DO j=1-OLy,sNy+OLy-1 |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
775 |
GAD_CALC_RHS |
gTracer(i,j,k) = gTracer(i,j,k) |
|
./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 |
780 |
GAD_CALC_RHS |
& +(fVerT(i,j,kDown)-fVerT(i,j,kUp))*rkSign |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
781 |
GAD_CALC_RHS |
& -localT(i,j)*( (uTrans(i+1,j)-uTrans(i,j))*advFac |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
782 |
GAD_CALC_RHS |
& +(vTrans(i,j+1)-vTrans(i,j))*advFac |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
783 |
GAD_CALC_RHS |
& +(rTransKp1(i,j)-rTrans(i,j))*rAdvFac |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
784 |
GAD_CALC_RHS |
& )*maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_del2.F |
44 |
GAD_DEL2 |
INTEGER i,j |
|
./pkg/generic_advdiff/gad_del2.F |
48 |
GAD_DEL2 |
DO j=1-Oly,sNy+Oly |
|
./pkg/generic_advdiff/gad_del2.F |
50 |
GAD_DEL2 |
del2(i,j)= 0. _d 0 |
|
./pkg/generic_advdiff/gad_del2.F |
56 |
GAD_DEL2 |
DO j=1-Oly,sNy+Oly-1 |
|
./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_del2.F |
60 |
GAD_DEL2 |
& *( ( dTdx(i+1,j)-dTdx(i,j) ) |
|
./pkg/generic_advdiff/gad_del2.F |
61 |
GAD_DEL2 |
& +( dTdy(i,j+1)-dTdy(i,j) ) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
117 |
GAD_DIAGNOSTICS_STATE |
DO j = 1-OLy,sNy+OLy |
|
./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 |
122 |
GAD_DIAGNOSTICS_STATE |
locVar(i,j,k) = ( |
|
./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 |
45 |
GAD_DIAGNOSTICS_STATE |
INTEGER i,j,k,bi,bj,n |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
72 |
GAD_DIAGNOSTICS_STATE |
DO j = 1-OLy,sNy+OLy |
|
./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 |
77 |
GAD_DIAGNOSTICS_STATE |
locVar(i,j,k) = ( |
|
./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_diff_r.F |
49 |
GAD_DIFF_R |
INTEGER i,j,km1 |
|
./pkg/generic_advdiff/gad_diff_r.F |
55 |
GAD_DIFF_R |
DO j=1-OLy,sNy+OLy |
|
./pkg/generic_advdiff/gad_diff_r.F |
57 |
GAD_DIFF_R |
dfr(i,j) = 0. |
|
./pkg/generic_advdiff/gad_diff_r.F |
61 |
GAD_DIFF_R |
DO j=1-OLy,sNy+OLy |
|
./pkg/generic_advdiff/gad_diff_r.F |
63 |
GAD_DIFF_R |
dfr(i,j) = -KappaR(i,j) |
|
./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_r.F |
66 |
GAD_DIFF_R |
& *(tracer(i,j,k)-tracer(i,j,km1))*rkSign |
|
./pkg/generic_advdiff/gad_diff_x.F |
48 |
GAD_DIFF_X |
INTEGER i,j |
|
./pkg/generic_advdiff/gad_diff_x.F |
51 |
GAD_DIFF_X |
DO j=1-Oly,sNy+Oly |
|
./pkg/generic_advdiff/gad_diff_x.F |
52 |
GAD_DIFF_X |
dfx(1-Olx,j)=0. |
|
./pkg/generic_advdiff/gad_diff_x.F |
54 |
GAD_DIFF_X |
dfx(i,j) = -diffKh*xA(i,j) |
|
./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 |
56 |
GAD_DIFF_X |
& *(tracer(i,j)-tracer(i-1,j)) |
|
./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 |
48 |
GAD_DIFF_Y |
INTEGER i,j |
|
./pkg/generic_advdiff/gad_diff_y.F |
54 |
GAD_DIFF_Y |
DO j=1-Oly+1,sNy+Oly |
|
./pkg/generic_advdiff/gad_diff_y.F |
56 |
GAD_DIFF_Y |
dfy(i,j) = -diffKh*yA(i,j) |
|
./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 |
58 |
GAD_DIFF_Y |
& *(tracer(i,j)-tracer(i,j-1)) |
|
./pkg/generic_advdiff/gad_diff_y.F |
60 |
GAD_DIFF_Y |
& *cosFacV(j,bi,bj) |
|
./pkg/generic_advdiff/gad_dst2u1_adv_r.F |
56 |
GAD_DST2U1_ADV_R |
INTEGER i,j,km1 |
|
./pkg/generic_advdiff/gad_dst2u1_adv_r.F |
66 |
GAD_DST2U1_ADV_R |
DO j=1-Oly,sNy+Oly |
|
./pkg/generic_advdiff/gad_dst2u1_adv_r.F |
68 |
GAD_DST2U1_ADV_R |
wT(i,j) = 0. |
|
./pkg/generic_advdiff/gad_dst2u1_adv_r.F |
72 |
GAD_DST2U1_ADV_R |
DO j=1-Oly,sNy+Oly |
|
./pkg/generic_advdiff/gad_dst2u1_adv_r.F |
75 |
GAD_DST2U1_ADV_R |
wLoc = wFld(i,j) |
|
./pkg/generic_advdiff/gad_dst2u1_adv_r.F |
88 |
GAD_DST2U1_ADV_R |
wAbs = ABS(rTrans(i,j))*rkSign |
|
./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_r.F |
91 |
GAD_DST2U1_ADV_R |
& ( rTrans(i,j)+wAbs )* 0.5 _d 0 * tracer(i,j,km1) |
|
./pkg/generic_advdiff/gad_dst2u1_adv_r.F |
92 |
GAD_DST2U1_ADV_R |
& + ( rTrans(i,j)-wAbs )* 0.5 _d 0 * tracer(i,j,k) |
|
./pkg/generic_advdiff/gad_dst2u1_adv_x.F |
56 |
GAD_DST2U1_ADV_X |
INTEGER i,j |
|
./pkg/generic_advdiff/gad_dst2u1_adv_x.F |
63 |
GAD_DST2U1_ADV_X |
DO j=1-Oly,sNy+Oly |
|
./pkg/generic_advdiff/gad_dst2u1_adv_x.F |
64 |
GAD_DST2U1_ADV_X |
uT(1-Olx,j)=0. |
|
./pkg/generic_advdiff/gad_dst2u1_adv_x.F |
66 |
GAD_DST2U1_ADV_X |
DO j=1-Oly,sNy+Oly |
|
./pkg/generic_advdiff/gad_dst2u1_adv_x.F |
69 |
GAD_DST2U1_ADV_X |
uCFL = uFld(i,j) |
|
./pkg/generic_advdiff/gad_dst2u1_adv_x.F |
70 |
GAD_DST2U1_ADV_X |
IF ( calcCFL ) uCFL = ABS( uFld(i,j)*deltaTloc |
|
./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_x.F |
81 |
GAD_DST2U1_ADV_X |
uAbs = ABS(uTrans(i,j)) |
|
./pkg/generic_advdiff/gad_dst2u1_adv_x.F |
83 |
GAD_DST2U1_ADV_X |
uT(i,j) = ( uTrans(i,j)+uAbs )* 0.5 _d 0 * tracer(i-1,j) |
|
./pkg/generic_advdiff/gad_dst2u1_adv_x.F |
84 |
GAD_DST2U1_ADV_X |
& + ( uTrans(i,j)-uAbs )* 0.5 _d 0 * tracer(i,j) |
|
./pkg/generic_advdiff/gad_dst2u1_adv_y.F |
55 |
GAD_DST2U1_ADV_Y |
INTEGER i,j |
|
./pkg/generic_advdiff/gad_dst2u1_adv_y.F |
65 |
GAD_DST2U1_ADV_Y |
DO j=1-Oly+1,sNy+Oly |
|
./pkg/generic_advdiff/gad_dst2u1_adv_y.F |
68 |
GAD_DST2U1_ADV_Y |
vCFL = vFld(i,j) |
|
./pkg/generic_advdiff/gad_dst2u1_adv_y.F |
69 |
GAD_DST2U1_ADV_Y |
IF ( calcCFL ) vCFL = ABS( vFld(i,j)*deltaTloc |
|
./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_adv_y.F |
80 |
GAD_DST2U1_ADV_Y |
vAbs = ABS(vTrans(i,j)) |
|
./pkg/generic_advdiff/gad_dst2u1_adv_y.F |
82 |
GAD_DST2U1_ADV_Y |
vT(i,j) = ( vTrans(i,j)+vAbs )* 0.5 _d 0 * tracer(i,j-1) |
|
./pkg/generic_advdiff/gad_dst2u1_adv_y.F |
83 |
GAD_DST2U1_ADV_Y |
& + ( vTrans(i,j)-vAbs )* 0.5 _d 0 * tracer(i,j) |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
101 |
GAD_DST2U1_IMPL_R |
c3d(i,j,k-1) = c3d(i,j,k-1) |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
103 |
GAD_DST2U1_IMPL_R |
& *recip_hFac(i,j,k-1)*recip_drF(k-1) |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
64 |
GAD_DST2U1_IMPL_R |
INTEGER i,j |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
80 |
GAD_DST2U1_IMPL_R |
DO j=jMin,jMax |
|
./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_dst2u1_impl_r.F |
89 |
GAD_DST2U1_IMPL_R |
a3d(i,j,k) = a3d(i,j,k) |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
91 |
GAD_DST2U1_IMPL_R |
& *recip_hFac(i,j,k)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
93 |
GAD_DST2U1_IMPL_R |
b3d(i,j,k) = b3d(i,j,k) |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
95 |
GAD_DST2U1_IMPL_R |
& *recip_hFac(i,j,k)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
97 |
GAD_DST2U1_IMPL_R |
b3d(i,j,k-1) = b3d(i,j,k-1) |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
99 |
GAD_DST2U1_IMPL_R |
& *recip_hFac(i,j,k-1)*recip_drF(k-1) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
108 |
GAD_DST3_ADV_R |
wT(i,j)= |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
109 |
GAD_DST3_ADV_R |
& 0.5*(rTrans(i,j)+ABS(rTrans(i,j))) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
110 |
GAD_DST3_ADV_R |
& *( tracer(i,j, k ) + psiM*Rj ) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
111 |
GAD_DST3_ADV_R |
& +0.5*(rTrans(i,j)-ABS(rTrans(i,j))) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
112 |
GAD_DST3_ADV_R |
& *( tracer(i,j,km1) - psiP*Rj ) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
114 |
GAD_DST3_ADV_R |
wT(i,j)= |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
115 |
GAD_DST3_ADV_R |
& 0.5*(rTrans(i,j)+ABS(rTrans(i,j))) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
116 |
GAD_DST3_ADV_R |
& *( tracer(i,j, k ) + (d0*Rj+d1*Rjp) ) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
117 |
GAD_DST3_ADV_R |
& +0.5*(rTrans(i,j)-ABS(rTrans(i,j))) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
118 |
GAD_DST3_ADV_R |
& *( tracer(i,j,km1) - (d0*Rj+d1*Rjm) ) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
59 |
GAD_DST3_ADV_R |
INTEGER i,j,kp1,km1,km2 |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
77 |
GAD_DST3_ADV_R |
DO j=1-OLy,sNy+OLy |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
79 |
GAD_DST3_ADV_R |
Rjp=(tracer(i,j,k)-tracer(i,j,kp1)) |
|
./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 |
81 |
GAD_DST3_ADV_R |
Rj =(tracer(i,j,km1)-tracer(i,j,k)) |
|
./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 |
83 |
GAD_DST3_ADV_R |
Rjm=(tracer(i,j,km2)-tracer(i,j,km1)) |
|
./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_r.F |
86 |
GAD_DST3_ADV_R |
wLoc = wFld(i,j) |
|
./pkg/generic_advdiff/gad_dst3_adv_x.F |
107 |
GAD_DST3_ADV_X |
uT(i,j)= |
|
./pkg/generic_advdiff/gad_dst3_adv_x.F |
108 |
GAD_DST3_ADV_X |
& 0.5*(uTrans(i,j)+ABS(uTrans(i,j))) |
|
./pkg/generic_advdiff/gad_dst3_adv_x.F |
109 |
GAD_DST3_ADV_X |
& *( Tracer(i-1,j) + psiP*Rj ) |
|
./pkg/generic_advdiff/gad_dst3_adv_x.F |
110 |
GAD_DST3_ADV_X |
& +0.5*(uTrans(i,j)-ABS(uTrans(i,j))) |
|
./pkg/generic_advdiff/gad_dst3_adv_x.F |
111 |
GAD_DST3_ADV_X |
& *( Tracer( i ,j) - psiM*Rj ) |
|
./pkg/generic_advdiff/gad_dst3_adv_x.F |
113 |
GAD_DST3_ADV_X |
uT(i,j)= |
|
./pkg/generic_advdiff/gad_dst3_adv_x.F |
114 |
GAD_DST3_ADV_X |
& 0.5*(uTrans(i,j)+ABS(uTrans(i,j))) |
|
./pkg/generic_advdiff/gad_dst3_adv_x.F |
115 |
GAD_DST3_ADV_X |
& *( Tracer(i-1,j) + (d0*Rj+d1*Rjm) ) |
|
./pkg/generic_advdiff/gad_dst3_adv_x.F |
116 |
GAD_DST3_ADV_X |
& +0.5*(uTrans(i,j)-ABS(uTrans(i,j))) |
|
./pkg/generic_advdiff/gad_dst3_adv_x.F |
117 |
GAD_DST3_ADV_X |
& *( Tracer( i ,j) - (d0*Rj+d1*Rjp) ) |
|
./pkg/generic_advdiff/gad_dst3_adv_x.F |
60 |
GAD_DST3_ADV_X |
INTEGER i,j |
|
./pkg/generic_advdiff/gad_dst3_adv_x.F |
74 |
GAD_DST3_ADV_X |
DO j=1-OLy,sNy+OLy |
|
./pkg/generic_advdiff/gad_dst3_adv_x.F |
75 |
GAD_DST3_ADV_X |
uT(1-OLx,j)=0. |
|
./pkg/generic_advdiff/gad_dst3_adv_x.F |
76 |
GAD_DST3_ADV_X |
uT(2-OLx,j)=0. |
|
./pkg/generic_advdiff/gad_dst3_adv_x.F |
77 |
GAD_DST3_ADV_X |
uT(sNx+OLx,j)=0. |
|
./pkg/generic_advdiff/gad_dst3_adv_x.F |
79 |
GAD_DST3_ADV_X |
DO j=1-OLy,sNy+OLy |
|
./pkg/generic_advdiff/gad_dst3_adv_x.F |
81 |
GAD_DST3_ADV_X |
Rjp=(tracer(i+1,j)-tracer( i ,j))*maskLocW(i+1,j) |
|
./pkg/generic_advdiff/gad_dst3_adv_x.F |
82 |
GAD_DST3_ADV_X |
Rj =(tracer( i ,j)-tracer(i-1,j))*maskLocW( i ,j) |
|
./pkg/generic_advdiff/gad_dst3_adv_x.F |
83 |
GAD_DST3_ADV_X |
Rjm=(tracer(i-1,j)-tracer(i-2,j))*maskLocW(i-1,j) |
|
./pkg/generic_advdiff/gad_dst3_adv_x.F |
85 |
GAD_DST3_ADV_X |
uCFL = uFld(i,j) |
|
./pkg/generic_advdiff/gad_dst3_adv_x.F |
86 |
GAD_DST3_ADV_X |
IF ( calcCFL ) uCFL = ABS( uFld(i,j)*deltaTloc |
|
./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 |
106 |
GAD_DST3_ADV_Y |
vT(i,j)= |
|
./pkg/generic_advdiff/gad_dst3_adv_y.F |
107 |
GAD_DST3_ADV_Y |
& 0.5*(vTrans(i,j)+ABS(vTrans(i,j))) |
|
./pkg/generic_advdiff/gad_dst3_adv_y.F |
108 |
GAD_DST3_ADV_Y |
& *( Tracer(i,j-1) + psiP*Rj ) |
|
./pkg/generic_advdiff/gad_dst3_adv_y.F |
109 |
GAD_DST3_ADV_Y |
& +0.5*(vTrans(i,j)-ABS(vTrans(i,j))) |
|
./pkg/generic_advdiff/gad_dst3_adv_y.F |
110 |
GAD_DST3_ADV_Y |
& *( Tracer(i, j ) - psiM*Rj ) |
|
./pkg/generic_advdiff/gad_dst3_adv_y.F |
112 |
GAD_DST3_ADV_Y |
vT(i,j)= |
|
./pkg/generic_advdiff/gad_dst3_adv_y.F |
113 |
GAD_DST3_ADV_Y |
& 0.5*(vTrans(i,j)+ABS(vTrans(i,j))) |
|
./pkg/generic_advdiff/gad_dst3_adv_y.F |
114 |
GAD_DST3_ADV_Y |
& *( Tracer(i,j-1) + (d0*Rj+d1*Rjm) ) |
|
./pkg/generic_advdiff/gad_dst3_adv_y.F |
115 |
GAD_DST3_ADV_Y |
& +0.5*(vTrans(i,j)-ABS(vTrans(i,j))) |
|
./pkg/generic_advdiff/gad_dst3_adv_y.F |
116 |
GAD_DST3_ADV_Y |
& *( Tracer(i, j ) - (d0*Rj+d1*Rjp) ) |
|
./pkg/generic_advdiff/gad_dst3_adv_y.F |
59 |
GAD_DST3_ADV_Y |
INTEGER i,j |
|
./pkg/generic_advdiff/gad_dst3_adv_y.F |
78 |
GAD_DST3_ADV_Y |
DO j=1-OLy+2,sNy+OLy-1 |
|
./pkg/generic_advdiff/gad_dst3_adv_y.F |
80 |
GAD_DST3_ADV_Y |
Rjp=(tracer(i,j+1)-tracer(i, j ))*maskLocS(i,j+1) |
|
./pkg/generic_advdiff/gad_dst3_adv_y.F |
81 |
GAD_DST3_ADV_Y |
Rj =(tracer(i, j )-tracer(i,j-1))*maskLocS(i, j ) |
|
./pkg/generic_advdiff/gad_dst3_adv_y.F |
82 |
GAD_DST3_ADV_Y |
Rjm=(tracer(i,j-1)-tracer(i,j-2))*maskLocS(i,j-1) |
|
./pkg/generic_advdiff/gad_dst3_adv_y.F |
84 |
GAD_DST3_ADV_Y |
vCFL = vFld(i,j) |
|
./pkg/generic_advdiff/gad_dst3_adv_y.F |
85 |
GAD_DST3_ADV_Y |
IF ( calcCFL ) vCFL = ABS( vFld(i,j)*deltaTloc |
|
./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 |
113 |
GAD_DST3FL_ADV_R |
wT(i,j)= |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
114 |
GAD_DST3FL_ADV_R |
& 0.5*(rTrans(i,j)+ABS(rTrans(i,j))) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
115 |
GAD_DST3FL_ADV_R |
& *( tracer(i,j, k ) + psiM*Rj ) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
116 |
GAD_DST3FL_ADV_R |
& +0.5*(rTrans(i,j)-ABS(rTrans(i,j))) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
117 |
GAD_DST3FL_ADV_R |
& *( tracer(i,j,km1) - psiP*Rj ) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
55 |
GAD_DST3FL_ADV_R |
INTEGER i,j,kp1,km1,km2 |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
66 |
GAD_DST3FL_ADV_R |
DO j=1-OLy,sNy+OLy |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
73 |
GAD_DST3FL_ADV_R |
Rjp=(tracer(i,j,k)-tracer(i,j,kp1)) |
|
./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 |
75 |
GAD_DST3FL_ADV_R |
Rj =(tracer(i,j,km1)-tracer(i,j,k)) |
|
./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 |
77 |
GAD_DST3FL_ADV_R |
Rjm=(tracer(i,j,km2)-tracer(i,j,km1)) |
|
./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_r.F |
80 |
GAD_DST3FL_ADV_R |
wLoc = wFld(i,j) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
36 |
GAD_DST3FL_ADV_X |
INTEGER i,j |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
45 |
GAD_DST3FL_ADV_X |
DO j=1-OLy,sNy+OLy |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
46 |
GAD_DST3FL_ADV_X |
uT(1-OLx,j)=0. _d 0 |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
47 |
GAD_DST3FL_ADV_X |
uT(2-OLx,j)=0. _d 0 |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
48 |
GAD_DST3FL_ADV_X |
uT(sNx+OLx,j)=0. _d 0 |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
50 |
GAD_DST3FL_ADV_X |
DO j=1-OLy,sNy+OLy |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
57 |
GAD_DST3FL_ADV_X |
Rjp=(tracer(i+1,j)-tracer( i ,j))*maskLocW(i+1,j) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
58 |
GAD_DST3FL_ADV_X |
Rj =(tracer( i ,j)-tracer(i-1,j))*maskLocW( i ,j) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
59 |
GAD_DST3FL_ADV_X |
Rjm=(tracer(i-1,j)-tracer(i-2,j))*maskLocW(i-1,j) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
61 |
GAD_DST3FL_ADV_X |
uCFL = uFld(i,j) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
62 |
GAD_DST3FL_ADV_X |
IF ( calcCFL ) uCFL = ABS( uFld(i,j)*deltaTloc |
|
./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 |
95 |
GAD_DST3FL_ADV_X |
uT(i,j)= |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
96 |
GAD_DST3FL_ADV_X |
& 0.5*(uTrans(i,j)+ABS(uTrans(i,j))) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
97 |
GAD_DST3FL_ADV_X |
& *( Tracer(i-1,j) + psiP*Rj ) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
98 |
GAD_DST3FL_ADV_X |
& +0.5*(uTrans(i,j)-ABS(uTrans(i,j))) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
99 |
GAD_DST3FL_ADV_X |
& *( Tracer( i ,j) - psiM*Rj ) |
|
./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 |
36 |
GAD_DST3FL_ADV_Y |
INTEGER i,j |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
46 |
GAD_DST3FL_ADV_Y |
DO j=1-OLy+2,sNy+OLy-1 |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
53 |
GAD_DST3FL_ADV_Y |
Rjp=(tracer(i,j+1)-tracer(i, j ))*maskLocS(i,j+1) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
54 |
GAD_DST3FL_ADV_Y |
Rj =(tracer(i, j )-tracer(i,j-1))*maskLocS(i, j ) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
55 |
GAD_DST3FL_ADV_Y |
Rjm=(tracer(i,j-1)-tracer(i,j-2))*maskLocS(i,j-1) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
57 |
GAD_DST3FL_ADV_Y |
vCFL = vFld(i,j) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
58 |
GAD_DST3FL_ADV_Y |
IF ( calcCFL ) vCFL = ABS( vFld(i,j)*deltaTloc |
|
./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 |
91 |
GAD_DST3FL_ADV_Y |
vT(i,j)= |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
92 |
GAD_DST3FL_ADV_Y |
& 0.5*(vTrans(i,j)+ABS(vTrans(i,j))) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
93 |
GAD_DST3FL_ADV_Y |
& *( Tracer(i,j-1) + psiP*Rj ) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
94 |
GAD_DST3FL_ADV_Y |
& +0.5*(vTrans(i,j)-ABS(vTrans(i,j))) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
95 |
GAD_DST3FL_ADV_Y |
& *( Tracer(i, j ) - psiM*Rj ) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
100 |
GAD_DST3FL_IMPL_R |
DO j=jMin,jMax |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
102 |
GAD_DST3FL_IMPL_R |
wCFL = deltaTcfl*ABS(rTrans(i,j)) |
|
./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 |
110 |
GAD_DST3FL_IMPL_R |
Rj =(tFld(i,j,k) -tFld(i,j,k-1)) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
111 |
GAD_DST3FL_IMPL_R |
IF ( rTrans(i,j).GT.0. _d 0 ) THEN |
|
./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 |
118 |
GAD_DST3FL_IMPL_R |
lowFac(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
119 |
GAD_DST3FL_IMPL_R |
highFac(i,j)= 0. _d 0 |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
127 |
GAD_DST3FL_IMPL_R |
lowFac(i,j) = cL1 |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
128 |
GAD_DST3FL_IMPL_R |
highFac(i,j)= cH3 |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
131 |
GAD_DST3FL_IMPL_R |
lowFac(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
132 |
GAD_DST3FL_IMPL_R |
highFac(i,j)= cM2 |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
135 |
GAD_DST3FL_IMPL_R |
lowFac(i,j) = 1. _d 0 |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
136 |
GAD_DST3FL_IMPL_R |
highFac(i,j)= 0. _d 0 |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
143 |
GAD_DST3FL_IMPL_R |
DO j=jMin,jMax |
|
./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 |
148 |
GAD_DST3FL_IMPL_R |
rUpwind= (0.5 _d 0 -lowFac(i,j))*ABS(rCenter)*2. _d 0 |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
149 |
GAD_DST3FL_IMPL_R |
rC4km = highFac(i,j)*(rCenter+ABS(rCenter))*mskM |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
150 |
GAD_DST3FL_IMPL_R |
rC4kp = highFac(i,j)*(rCenter-ABS(rCenter))*mskP |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
152 |
GAD_DST3FL_IMPL_R |
a5d(i,j,k) = a5d(i,j,k) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
155 |
GAD_DST3FL_IMPL_R |
& *recip_hFac(i,j,k)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
157 |
GAD_DST3FL_IMPL_R |
b5d(i,j,k) = b5d(i,j,k) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
160 |
GAD_DST3FL_IMPL_R |
& *recip_hFac(i,j,k)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
162 |
GAD_DST3FL_IMPL_R |
c5d(i,j,k) = c5d(i,j,k) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
165 |
GAD_DST3FL_IMPL_R |
& *recip_hFac(i,j,k)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
167 |
GAD_DST3FL_IMPL_R |
d5d(i,j,k) = d5d(i,j,k) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
170 |
GAD_DST3FL_IMPL_R |
& *recip_hFac(i,j,k)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
172 |
GAD_DST3FL_IMPL_R |
b5d(i,j,k-1) = b5d(i,j,k-1) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
175 |
GAD_DST3FL_IMPL_R |
& *recip_hFac(i,j,k-1)*recip_drF(k-1) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
177 |
GAD_DST3FL_IMPL_R |
c5d(i,j,k-1) = c5d(i,j,k-1) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
180 |
GAD_DST3FL_IMPL_R |
& *recip_hFac(i,j,k-1)*recip_drF(k-1) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
182 |
GAD_DST3FL_IMPL_R |
d5d(i,j,k-1) = d5d(i,j,k-1) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
185 |
GAD_DST3FL_IMPL_R |
& *recip_hFac(i,j,k-1)*recip_drF(k-1) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
187 |
GAD_DST3FL_IMPL_R |
e5d(i,j,k-1) = e5d(i,j,k-1) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
190 |
GAD_DST3FL_IMPL_R |
& *recip_hFac(i,j,k-1)*recip_drF(k-1) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
73 |
GAD_DST3FL_IMPL_R |
INTEGER i,j,kp1,km2 |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
100 |
GAD_FLUXLIMIT_ADV_R |
IF (rTrans(i,j).LT.0.) THEN |
|
./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 |
108 |
GAD_FLUXLIMIT_ADV_R |
& rTrans(i,j)* |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
109 |
GAD_FLUXLIMIT_ADV_R |
& (tracer(i,j,k)+tracer(i,j,kM1))*0.5 _d 0 |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
110 |
GAD_FLUXLIMIT_ADV_R |
& +ABS(rTrans(i,j))*((1.-Cr)+wCFL*Cr) |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
64 |
GAD_FLUXLIMIT_ADV_R |
INTEGER i,j,kp1,km1,km2 |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
76 |
GAD_FLUXLIMIT_ADV_R |
DO j=1-Oly,sNy+Oly |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
78 |
GAD_FLUXLIMIT_ADV_R |
wT(i,j) = 0. |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
82 |
GAD_FLUXLIMIT_ADV_R |
DO j=1-Oly,sNy+Oly |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
85 |
GAD_FLUXLIMIT_ADV_R |
wLoc = wFld(i,j) |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
87 |
GAD_FLUXLIMIT_ADV_R |
Rjp=(tracer(i,j,kp1)-tracer(i,j,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 |
89 |
GAD_FLUXLIMIT_ADV_R |
Rj= (tracer(i,j,k) -tracer(i,j,kM1)) |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
90 |
GAD_FLUXLIMIT_ADV_R |
Rjm=(tracer(i,j,km1)-tracer(i,j,kM2)) |
|
./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_r.F |
94 |
GAD_FLUXLIMIT_ADV_R |
IF (rTrans(i,j).LT.0.) THEN |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F |
61 |
GAD_FLUXLIMIT_ADV_X |
INTEGER i,j |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F |
68 |
GAD_FLUXLIMIT_ADV_X |
DO j=1-Oly,sNy+Oly |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F |
69 |
GAD_FLUXLIMIT_ADV_X |
uT(1-Olx,j)=0. |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F |
70 |
GAD_FLUXLIMIT_ADV_X |
uT(2-Olx,j)=0. |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F |
71 |
GAD_FLUXLIMIT_ADV_X |
uT(sNx+Olx,j)=0. |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F |
73 |
GAD_FLUXLIMIT_ADV_X |
DO j=1-Oly,sNy+Oly |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F |
76 |
GAD_FLUXLIMIT_ADV_X |
uCFL = uFld(i,j) |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F |
77 |
GAD_FLUXLIMIT_ADV_X |
IF ( calcCFL ) uCFL = ABS( uFld(i,j)*deltaTloc |
|
./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_x.F |
79 |
GAD_FLUXLIMIT_ADV_X |
Rjp=(tracer(i+1,j)-tracer( i ,j))*maskLocW(i+1,j) |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F |
80 |
GAD_FLUXLIMIT_ADV_X |
Rj =(tracer( i ,j)-tracer(i-1,j))*maskLocW( i ,j) |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F |
81 |
GAD_FLUXLIMIT_ADV_X |
Rjm=(tracer(i-1,j)-tracer(i-2,j))*maskLocW(i-1,j) |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F |
84 |
GAD_FLUXLIMIT_ADV_X |
IF (uTrans(i,j).GT.0) THEN |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F |
90 |
GAD_FLUXLIMIT_ADV_X |
IF (uTrans(i,j).GT.0) THEN |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F |
97 |
GAD_FLUXLIMIT_ADV_X |
uT(i,j) = |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F |
98 |
GAD_FLUXLIMIT_ADV_X |
& uTrans(i,j)*(Tracer(i,j)+Tracer(i-1,j))*0.5 _d 0 |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F |
99 |
GAD_FLUXLIMIT_ADV_X |
& -ABS(uTrans(i,j))*((1.-Cr)+uCFL*Cr) |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F |
61 |
GAD_FLUXLIMIT_ADV_Y |
INTEGER i,j |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F |
73 |
GAD_FLUXLIMIT_ADV_Y |
DO j=1-Oly+2,sNy+Oly-1 |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F |
76 |
GAD_FLUXLIMIT_ADV_Y |
vCFL = vFld(i,j) |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F |
77 |
GAD_FLUXLIMIT_ADV_Y |
IF ( calcCFL ) vCFL = ABS( vFld(i,j)*deltaTloc |
|
./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_adv_y.F |
79 |
GAD_FLUXLIMIT_ADV_Y |
Rjp=(tracer(i,j+1)-tracer(i, j ))*maskLocS(i,j+1) |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F |
80 |
GAD_FLUXLIMIT_ADV_Y |
Rj =(tracer(i, j )-tracer(i,j-1))*maskLocS(i, j ) |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F |
81 |
GAD_FLUXLIMIT_ADV_Y |
Rjm=(tracer(i,j-1)-tracer(i,j-2))*maskLocS(i,j-1) |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F |
84 |
GAD_FLUXLIMIT_ADV_Y |
IF (vTrans(i,j).GT.0) THEN |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F |
90 |
GAD_FLUXLIMIT_ADV_Y |
IF (vTrans(i,j).GT.0) THEN |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F |
97 |
GAD_FLUXLIMIT_ADV_Y |
vT(i,j) = |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F |
98 |
GAD_FLUXLIMIT_ADV_Y |
& vTrans(i,j)*(Tracer(i,j)+Tracer(i,j-1))*0.5 _d 0 |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F |
99 |
GAD_FLUXLIMIT_ADV_Y |
& -ABS(vTrans(i,j))*((1.-Cr)+vCFL*Cr) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
100 |
GAD_FLUXLIMIT_IMPL_R |
upwindFac(i,j) = 1. _d 0 |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
102 |
GAD_FLUXLIMIT_IMPL_R |
upwindFac(i,j) = MAX( -1. _d 0, upwindFac(i,j) ) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
104 |
GAD_FLUXLIMIT_IMPL_R |
upwindFac(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
110 |
GAD_FLUXLIMIT_IMPL_R |
DO j=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 |
113 |
GAD_FLUXLIMIT_IMPL_R |
rUpwind = ABS(rCenter)*upwindFac(i,j) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
114 |
GAD_FLUXLIMIT_IMPL_R |
a3d(i,j,k) = a3d(i,j,k) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
116 |
GAD_FLUXLIMIT_IMPL_R |
& *recip_hFac(i,j,k)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
118 |
GAD_FLUXLIMIT_IMPL_R |
b3d(i,j,k) = b3d(i,j,k) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
120 |
GAD_FLUXLIMIT_IMPL_R |
& *recip_hFac(i,j,k)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
122 |
GAD_FLUXLIMIT_IMPL_R |
b3d(i,j,k-1) = b3d(i,j,k-1) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
124 |
GAD_FLUXLIMIT_IMPL_R |
& *recip_hFac(i,j,k-1)*recip_drF(k-1) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
126 |
GAD_FLUXLIMIT_IMPL_R |
c3d(i,j,k-1) = c3d(i,j,k-1) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
128 |
GAD_FLUXLIMIT_IMPL_R |
& *recip_hFac(i,j,k-1)*recip_drF(k-1) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
67 |
GAD_FLUXLIMIT_IMPL_R |
INTEGER i,j,kp1,km1,km2 |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
86 |
GAD_FLUXLIMIT_IMPL_R |
DO j=jMin,jMax |
|
./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 |
91 |
GAD_FLUXLIMIT_IMPL_R |
Rj =(tFld(i,j,k) -tFld(i,j,km1)) |
|
./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_fluxlimit_impl_r.F |
95 |
GAD_FLUXLIMIT_IMPL_R |
IF (rTrans(i,j).LT.0. _d 0) THEN |
|
./pkg/generic_advdiff/gad_grad_x.F |
47 |
GAD_GRAD_X |
INTEGER i,j |
|
./pkg/generic_advdiff/gad_grad_x.F |
59 |
GAD_GRAD_X |
DO j=1-Oly,sNy+Oly |
|
./pkg/generic_advdiff/gad_grad_x.F |
60 |
GAD_GRAD_X |
dTdx(1-Olx,j)=0. |
|
./pkg/generic_advdiff/gad_grad_x.F |
62 |
GAD_GRAD_X |
dTdx(i,j) = xA(i,j) |
|
./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 |
64 |
GAD_GRAD_X |
& *(tracer(i,j)-tracer(i-1,j)) |
|
./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 |
47 |
GAD_GRAD_Y |
INTEGER i,j |
|
./pkg/generic_advdiff/gad_grad_y.F |
62 |
GAD_GRAD_Y |
DO j=1-Oly+1,sNy+Oly |
|
./pkg/generic_advdiff/gad_grad_y.F |
64 |
GAD_GRAD_Y |
dTdy(i,j) = yA(i,j) |
|
./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 |
66 |
GAD_GRAD_Y |
& *(tracer(i,j)-tracer(i,j-1)) |
|
./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 |
109 |
GAD_IMPLICIT_R |
DO j=1-OLy,sNy+OLy |
|
./pkg/generic_advdiff/gad_implicit_r.F |
111 |
GAD_IMPLICIT_R |
a5d(i,j,k) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_implicit_r.F |
112 |
GAD_IMPLICIT_R |
b5d(i,j,k) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_implicit_r.F |
113 |
GAD_IMPLICIT_R |
c5d(i,j,k) = 1. _d 0 |
|
./pkg/generic_advdiff/gad_implicit_r.F |
114 |
GAD_IMPLICIT_R |
d5d(i,j,k) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_implicit_r.F |
115 |
GAD_IMPLICIT_R |
e5d(i,j,k) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_implicit_r.F |
126 |
GAD_IMPLICIT_R |
DO j=jMin,jMax |
|
./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 |
129 |
GAD_IMPLICIT_R |
& *recip_hFac(i,j,k)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
131 |
GAD_IMPLICIT_R |
& *kappaRX(i,j, k )*recip_drC( k ) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
138 |
GAD_IMPLICIT_R |
DO j=jMin,jMax |
|
./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 |
141 |
GAD_IMPLICIT_R |
& *recip_hFac(i,j,k)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
143 |
GAD_IMPLICIT_R |
& *kappaRX(i,j,k+1)*recip_drC(k+1) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
150 |
GAD_IMPLICIT_R |
DO j=jMin,jMax |
|
./pkg/generic_advdiff/gad_implicit_r.F |
152 |
GAD_IMPLICIT_R |
c5d(i,j,k) = 1. _d 0 - ( b5d(i,j,k) + d5d(i,j,k) ) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
169 |
GAD_IMPLICIT_R |
DO j=1-OLy,sNy+OLy |
|
./pkg/generic_advdiff/gad_implicit_r.F |
171 |
GAD_IMPLICIT_R |
localTr(i,j,k) = gTracer(i,j,k) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
177 |
GAD_IMPLICIT_R |
DO j=1-OLy,sNy+OLy |
|
./pkg/generic_advdiff/gad_implicit_r.F |
179 |
GAD_IMPLICIT_R |
localTr(i,j,k) = tracer(i,j,k) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
190 |
GAD_IMPLICIT_R |
DO j=1-OLy,sNy+OLy |
|
./pkg/generic_advdiff/gad_implicit_r.F |
192 |
GAD_IMPLICIT_R |
rTrans(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_implicit_r.F |
196 |
GAD_IMPLICIT_R |
DO j=1-OLy,sNy+OLy |
|
./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 |
299 |
GAD_IMPLICIT_R |
DO j=1-OLy,sNy+OLy |
|
./pkg/generic_advdiff/gad_implicit_r.F |
301 |
GAD_IMPLICIT_R |
flx(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_implicit_r.F |
308 |
GAD_IMPLICIT_R |
DO j=jMin,jMax |
|
./pkg/generic_advdiff/gad_implicit_r.F |
310 |
GAD_IMPLICIT_R |
df(i,j) = |
|
./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 |
316 |
GAD_IMPLICIT_R |
& * kappaRX(i,j,k)*recip_drC(k)*rkSign |
|
./pkg/generic_advdiff/gad_implicit_r.F |
317 |
GAD_IMPLICIT_R |
& * (gTracer(i,j,k) - gTracer(i,j,k-1)) |
|
./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 |
323 |
GAD_IMPLICIT_R |
DO j=1-OLy,sNy+OLy |
|
./pkg/generic_advdiff/gad_implicit_r.F |
325 |
GAD_IMPLICIT_R |
df(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_implicit_r.F |
363 |
GAD_IMPLICIT_R |
DO j=jMin,jMax |
|
./pkg/generic_advdiff/gad_implicit_r.F |
365 |
GAD_IMPLICIT_R |
div(i,j) = gTracer(i,j,k)*( c5d(i,j,k) - 1. _d 0 ) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
366 |
GAD_IMPLICIT_R |
& + gTracer(i,j,km1)*b5d(i,j,k) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
367 |
GAD_IMPLICIT_R |
& + gTracer(i,j,kp1)*d5d(i,j,k) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
371 |
GAD_IMPLICIT_R |
DO j=jMin,jMax |
|
./pkg/generic_advdiff/gad_implicit_r.F |
373 |
GAD_IMPLICIT_R |
div(i,j) = div(i,j) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
374 |
GAD_IMPLICIT_R |
& + gTracer(i,j,km2)*a5d(i,j,k) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
375 |
GAD_IMPLICIT_R |
& + gTracer(i,j,kp2)*e5d(i,j,k) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
383 |
GAD_IMPLICIT_R |
DO j=jMin,jMax |
|
./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 |
390 |
GAD_IMPLICIT_R |
DO j=jMin,jMax |
|
./pkg/generic_advdiff/gad_implicit_r.F |
392 |
GAD_IMPLICIT_R |
div(i,j) = div(i,j)*( |
|
./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 |
399 |
GAD_IMPLICIT_R |
DO j=jMin,jMax |
|
./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 |
414 |
GAD_IMPLICIT_R |
DO j=jMin,jMax |
|
./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 |
420 |
GAD_IMPLICIT_R |
DO j=jMin,jMax |
|
./pkg/generic_advdiff/gad_implicit_r.F |
422 |
GAD_IMPLICIT_R |
flx(i,j) = flx(i,j) |
|
./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 |
429 |
GAD_IMPLICIT_R |
af(i,j) = flx(i,j) - df(i,j) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
80 |
GAD_IMPLICIT_R |
INTEGER i,j,k |
|
./pkg/generic_advdiff/gad_init_varia.F |
37 |
GAD_INIT_VARIA |
INTEGER i,j,k,bi,bj |
|
./pkg/generic_advdiff/gad_init_varia.F |
46 |
GAD_INIT_VARIA |
DO j=1-Oly,sNy+OLy |
|
./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 |
112 |
GAD_OS7MP_ADV_R |
IF (wTrans(i,j).NE.0. _d 0) THEN |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
202 |
GAD_OS7MP_ADV_R |
wT(i,j) = wTrans(i,j)*( Qi + Psi*DelIp ) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
204 |
GAD_OS7MP_ADV_R |
wT(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
34 |
GAD_OS7MP_ADV_R |
INTEGER i,j,kp3,kp2,kp1,km1,km2,km3,km4 |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
59 |
GAD_OS7MP_ADV_R |
DO j=1-Oly,sNy+Oly |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
62 |
GAD_OS7MP_ADV_R |
wLoc = wFld(i,j) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
65 |
GAD_OS7MP_ADV_R |
IF (wTrans(i,j).LT.0. _d 0) THEN |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
66 |
GAD_OS7MP_ADV_R |
Qippp = Q(i,j,kp2) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
67 |
GAD_OS7MP_ADV_R |
Qipp = Q(i,j,kp1) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
68 |
GAD_OS7MP_ADV_R |
Qip = Q(i,j,k) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
69 |
GAD_OS7MP_ADV_R |
Qi = Q(i,j,km1) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
70 |
GAD_OS7MP_ADV_R |
Qim = Q(i,j,km2) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
71 |
GAD_OS7MP_ADV_R |
Qimm = Q(i,j,km3) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
72 |
GAD_OS7MP_ADV_R |
Qimmm = Q(i,j,km4) |
|
./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 |
80 |
GAD_OS7MP_ADV_R |
ELSEIF (wTrans(i,j).GT.0. _d 0) THEN |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
81 |
GAD_OS7MP_ADV_R |
Qippp = Q(i,j,km3) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
82 |
GAD_OS7MP_ADV_R |
Qipp = Q(i,j,km2) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
83 |
GAD_OS7MP_ADV_R |
Qip = Q(i,j,km1) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
84 |
GAD_OS7MP_ADV_R |
Qi = Q(i,j,k) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
85 |
GAD_OS7MP_ADV_R |
Qim = Q(i,j,kp1) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
86 |
GAD_OS7MP_ADV_R |
Qimm = Q(i,j,kp2) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
87 |
GAD_OS7MP_ADV_R |
Qimmm = Q(i,j,kp3) |
|
./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 |
116 |
GAD_OS7MP_ADV_X |
IF (uTrans(i,j).NE.0. _d 0) THEN |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
206 |
GAD_OS7MP_ADV_X |
uT(i,j) = uTrans(i,j)*( Qi + Psi*DelIp ) |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
208 |
GAD_OS7MP_ADV_X |
uT(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
36 |
GAD_OS7MP_ADV_X |
INTEGER i,j |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
53 |
GAD_OS7MP_ADV_X |
DO j=1-Oly,sNy+Oly |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
54 |
GAD_OS7MP_ADV_X |
uT(1-Olx,j)=0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
55 |
GAD_OS7MP_ADV_X |
uT(2-Olx,j)=0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
56 |
GAD_OS7MP_ADV_X |
uT(3-Olx,j)=0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
57 |
GAD_OS7MP_ADV_X |
uT(4-Olx,j)=0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
58 |
GAD_OS7MP_ADV_X |
uT(sNx+Olx-2,j)=0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
59 |
GAD_OS7MP_ADV_X |
uT(sNx+Olx-1,j)=0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
60 |
GAD_OS7MP_ADV_X |
uT(sNx+Olx,j)=0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
62 |
GAD_OS7MP_ADV_X |
DO j=1-Oly,sNy+Oly |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
65 |
GAD_OS7MP_ADV_X |
uLoc = uFld(i,j) |
|
./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 |
69 |
GAD_OS7MP_ADV_X |
IF (uTrans(i,j).GT.0. _d 0) THEN |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
70 |
GAD_OS7MP_ADV_X |
Qippp = Q(i+2,j) |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
71 |
GAD_OS7MP_ADV_X |
Qipp = Q(i+1,j) |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
72 |
GAD_OS7MP_ADV_X |
Qip = Q(i,j) |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
73 |
GAD_OS7MP_ADV_X |
Qi = Q(i-1,j) |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
74 |
GAD_OS7MP_ADV_X |
Qim = Q(i-2,j) |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
75 |
GAD_OS7MP_ADV_X |
Qimm = Q(i-3,j) |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
76 |
GAD_OS7MP_ADV_X |
Qimmm = Q(i-4,j) |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
78 |
GAD_OS7MP_ADV_X |
MskIpp = maskLocW(i+2,j) |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
79 |
GAD_OS7MP_ADV_X |
MskIp = maskLocW(i+1,j) |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
80 |
GAD_OS7MP_ADV_X |
MskI = maskLocW(i,j) |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
81 |
GAD_OS7MP_ADV_X |
MskIm = maskLocW(i-1,j) |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
82 |
GAD_OS7MP_ADV_X |
MskImm = maskLocW(i-2,j) |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
83 |
GAD_OS7MP_ADV_X |
MskImmm = maskLocW(i-3,j) |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
84 |
GAD_OS7MP_ADV_X |
ELSEIF (uTrans(i,j).LT.0. _d 0) THEN |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
85 |
GAD_OS7MP_ADV_X |
Qippp = Q(i-3,j) |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
86 |
GAD_OS7MP_ADV_X |
Qipp = Q(i-2,j) |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
87 |
GAD_OS7MP_ADV_X |
Qip = Q(i-1,j) |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
88 |
GAD_OS7MP_ADV_X |
Qi = Q(i,j) |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
89 |
GAD_OS7MP_ADV_X |
Qim = Q(i+1,j) |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
90 |
GAD_OS7MP_ADV_X |
Qimm = Q(i+2,j) |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
91 |
GAD_OS7MP_ADV_X |
Qimmm = Q(i+3,j) |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
93 |
GAD_OS7MP_ADV_X |
MskIpp = maskLocW(i-2,j) |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
94 |
GAD_OS7MP_ADV_X |
MskIp = maskLocW(i-1,j) |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
95 |
GAD_OS7MP_ADV_X |
MskI = maskLocW(i,j) |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
96 |
GAD_OS7MP_ADV_X |
MskIm = maskLocW(i+1,j) |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
97 |
GAD_OS7MP_ADV_X |
MskImm = maskLocW(i+2,j) |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
98 |
GAD_OS7MP_ADV_X |
MskImmm = maskLocW(i+3,j) |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
116 |
GAD_OS7MP_ADV_Y |
IF (vTrans(i,j).NE.0. _d 0) THEN |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
206 |
GAD_OS7MP_ADV_Y |
vT(i,j) = vTrans(i,j)*( Qi + Psi*DelIp ) |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
208 |
GAD_OS7MP_ADV_Y |
vT(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
36 |
GAD_OS7MP_ADV_Y |
INTEGER i,j |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
62 |
GAD_OS7MP_ADV_Y |
DO j=1-Oly+4,sNy+Oly-3 |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
65 |
GAD_OS7MP_ADV_Y |
vLoc = vFld(i,j) |
|
./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 |
69 |
GAD_OS7MP_ADV_Y |
IF (vTrans(i,j).GT.0. _d 0) THEN |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
70 |
GAD_OS7MP_ADV_Y |
Qippp = Q(i,j+2) |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
71 |
GAD_OS7MP_ADV_Y |
Qipp = Q(i,j+1) |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
72 |
GAD_OS7MP_ADV_Y |
Qip = Q(i,j) |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
73 |
GAD_OS7MP_ADV_Y |
Qi = Q(i,j-1) |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
74 |
GAD_OS7MP_ADV_Y |
Qim = Q(i,j-2) |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
75 |
GAD_OS7MP_ADV_Y |
Qimm = Q(i,j-3) |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
76 |
GAD_OS7MP_ADV_Y |
Qimmm = Q(i,j-4) |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
78 |
GAD_OS7MP_ADV_Y |
MskIpp = maskLocS(i,j+2) |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
79 |
GAD_OS7MP_ADV_Y |
MskIp = maskLocS(i,j+1) |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
80 |
GAD_OS7MP_ADV_Y |
MskI = maskLocS(i,j) |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
81 |
GAD_OS7MP_ADV_Y |
MskIm = maskLocS(i,j-1) |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
82 |
GAD_OS7MP_ADV_Y |
MskImm = maskLocS(i,j-2) |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
83 |
GAD_OS7MP_ADV_Y |
MskImmm = maskLocS(i,j-3) |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
84 |
GAD_OS7MP_ADV_Y |
ELSEIF (vTrans(i,j).LT.0. _d 0) THEN |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
85 |
GAD_OS7MP_ADV_Y |
Qippp = Q(i,j-3) |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
86 |
GAD_OS7MP_ADV_Y |
Qipp = Q(i,j-2) |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
87 |
GAD_OS7MP_ADV_Y |
Qip = Q(i,j-1) |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
88 |
GAD_OS7MP_ADV_Y |
Qi = Q(i,j) |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
89 |
GAD_OS7MP_ADV_Y |
Qim = Q(i,j+1) |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
90 |
GAD_OS7MP_ADV_Y |
Qimm = Q(i,j+2) |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
91 |
GAD_OS7MP_ADV_Y |
Qimmm = Q(i,j+3) |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
93 |
GAD_OS7MP_ADV_Y |
MskIpp = maskLocS(i,j-2) |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
94 |
GAD_OS7MP_ADV_Y |
MskIp = maskLocS(i,j-1) |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
95 |
GAD_OS7MP_ADV_Y |
MskI = maskLocS(i,j) |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
96 |
GAD_OS7MP_ADV_Y |
MskIm = maskLocS(i,j+1) |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
97 |
GAD_OS7MP_ADV_Y |
MskImm = maskLocS(i,j+2) |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
98 |
GAD_OS7MP_ADV_Y |
MskImmm = maskLocS(i,j+3) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
111 |
GAD_SOM_ADV_R |
INTEGER i,j |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
154 |
GAD_SOM_ADV_R |
DO j=jMinAdvR,jMaxAdvR |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
156 |
GAD_SOM_ADV_R |
wLoc = rTrans(i,j)*deltaTloc |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
160 |
GAD_SOM_ADV_R |
fp_v (i,j,kUp) = MAX( zeroRL, wLoc ) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
161 |
GAD_SOM_ADV_R |
alp (i,j,kUp) = fp_v(i,j,kUp)/sm_v(i,j,k) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
162 |
GAD_SOM_ADV_R |
alpq = alp(i,j,kUp)*alp(i,j,kUp) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
163 |
GAD_SOM_ADV_R |
alp1 = 1. _d 0 - alp(i,j,kUp) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
166 |
GAD_SOM_ADV_R |
fp_o (i,j,kUp) = alp(i,j,kUp)* |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
167 |
GAD_SOM_ADV_R |
& ( sm_o(i,j, k ) + alp1*sm_z(i,j, k ) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
168 |
GAD_SOM_ADV_R |
& + alp1*(alp1-alp(i,j,kUp))*sm_zz(i,j, k ) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
170 |
GAD_SOM_ADV_R |
fp_z (i,j,kUp) = alpq* |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
171 |
GAD_SOM_ADV_R |
& ( sm_z(i,j, k ) + three*alp1*sm_zz(i,j, k ) ) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
172 |
GAD_SOM_ADV_R |
fp_zz(i,j,kUp) = alp(i,j,kUp)*alpq*sm_zz(i,j, k ) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
173 |
GAD_SOM_ADV_R |
fp_x (i,j,kUp) = alp(i,j,kUp)* |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
174 |
GAD_SOM_ADV_R |
& ( sm_x(i,j, k ) + alp1*sm_xz(i,j, k ) ) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
175 |
GAD_SOM_ADV_R |
fp_y (i,j,kUp) = alp(i,j,kUp)* |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
176 |
GAD_SOM_ADV_R |
& ( sm_y(i,j, k ) + alp1*sm_yz(i,j, k ) ) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
177 |
GAD_SOM_ADV_R |
fp_xz(i,j,kUp) = alpq *sm_xz(i,j, k ) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
178 |
GAD_SOM_ADV_R |
fp_yz(i,j,kUp) = alpq *sm_yz(i,j, k ) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
179 |
GAD_SOM_ADV_R |
fp_xx(i,j,kUp) = alp(i,j,kUp)*sm_xx(i,j, k ) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
180 |
GAD_SOM_ADV_R |
fp_yy(i,j,kUp) = alp(i,j,kUp)*sm_yy(i,j, k ) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
181 |
GAD_SOM_ADV_R |
fp_xy(i,j,kUp) = alp(i,j,kUp)*sm_xy(i,j, k ) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
187 |
GAD_SOM_ADV_R |
DO j=jMinAdvR,jMaxAdvR |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
189 |
GAD_SOM_ADV_R |
wLoc = rTrans(i,j)*deltaTloc |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
192 |
GAD_SOM_ADV_R |
fn_v (i,j,kUp) = MAX( zeroRL, -wLoc ) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
193 |
GAD_SOM_ADV_R |
aln (i,j,kUp) = fn_v(i,j,kUp)/sm_v(i,j,km1) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
194 |
GAD_SOM_ADV_R |
alnq = aln(i,j,kUp)*aln(i,j,kUp) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
195 |
GAD_SOM_ADV_R |
aln1 = 1. _d 0 - aln(i,j,kUp) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
198 |
GAD_SOM_ADV_R |
fn_o (i,j,kUp) = aln(i,j,kUp)*sm_o(i,j,km1) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
199 |
GAD_SOM_ADV_R |
fn_z (i,j,kUp) = zeroRL |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
200 |
GAD_SOM_ADV_R |
fn_zz(i,j,kUp) = zeroRL |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
201 |
GAD_SOM_ADV_R |
fn_x (i,j,kUp) = aln(i,j,kUp)*sm_x(i,j,km1) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
202 |
GAD_SOM_ADV_R |
fn_y (i,j,kUp) = aln(i,j,kUp)*sm_y(i,j,km1) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
203 |
GAD_SOM_ADV_R |
fn_xz(i,j,kUp) = zeroRL |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
204 |
GAD_SOM_ADV_R |
fn_yz(i,j,kUp) = zeroRL |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
205 |
GAD_SOM_ADV_R |
fn_xx(i,j,kUp) = aln(i,j,kUp)*sm_xx(i,j,km1) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
206 |
GAD_SOM_ADV_R |
fn_yy(i,j,kUp) = aln(i,j,kUp)*sm_yy(i,j,km1) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
207 |
GAD_SOM_ADV_R |
fn_xy(i,j,kUp) = aln(i,j,kUp)*sm_xy(i,j,km1) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
209 |
GAD_SOM_ADV_R |
wT(i,j) = ( fp_o(i,j,kUp) - fn_o(i,j,kUp) )*recip_dT |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
215 |
GAD_SOM_ADV_R |
DO j=jMinAdvR,jMaxAdvR |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
217 |
GAD_SOM_ADV_R |
wLoc = maskUp(i,j)*rTrans(i,j)*deltaTloc |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
219 |
GAD_SOM_ADV_R |
fn_v (i,j,kUp) = MAX( zeroRL, -wLoc ) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
220 |
GAD_SOM_ADV_R |
aln (i,j,kUp) = fn_v(i,j,kUp)/sm_v(i,j,km1) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
221 |
GAD_SOM_ADV_R |
alnq = aln(i,j,kUp)*aln(i,j,kUp) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
222 |
GAD_SOM_ADV_R |
aln1 = 1. _d 0 - aln(i,j,kUp) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
225 |
GAD_SOM_ADV_R |
fn_o (i,j,kUp) = aln(i,j,kUp)* |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
226 |
GAD_SOM_ADV_R |
& ( sm_o(i,j,km1) - aln1*sm_z(i,j,km1) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
227 |
GAD_SOM_ADV_R |
& + aln1*(aln1-aln(i,j,kUp))*sm_zz(i,j,km1) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
229 |
GAD_SOM_ADV_R |
fn_z (i,j,kUp) = alnq* |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
230 |
GAD_SOM_ADV_R |
& ( sm_z(i,j,km1) - three*aln1*sm_zz(i,j,km1) ) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
231 |
GAD_SOM_ADV_R |
fn_zz(i,j,kUp) = aln(i,j,kUp)*alnq*sm_zz(i,j,km1) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
232 |
GAD_SOM_ADV_R |
fn_x (i,j,kUp) = aln(i,j,kUp)* |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
233 |
GAD_SOM_ADV_R |
& ( sm_x(i,j,km1) - aln1*sm_xz(i,j,km1) ) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
234 |
GAD_SOM_ADV_R |
fn_y (i,j,kUp) = aln(i,j,kUp)* |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
235 |
GAD_SOM_ADV_R |
& ( sm_y(i,j,km1) - aln1*sm_yz(i,j,km1) ) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
236 |
GAD_SOM_ADV_R |
fn_xz(i,j,kUp) = alnq *sm_xz(i,j,km1) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
237 |
GAD_SOM_ADV_R |
fn_yz(i,j,kUp) = alnq *sm_yz(i,j,km1) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
238 |
GAD_SOM_ADV_R |
fn_xx(i,j,kUp) = aln(i,j,kUp)*sm_xx(i,j,km1) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
239 |
GAD_SOM_ADV_R |
fn_yy(i,j,kUp) = aln(i,j,kUp)*sm_yy(i,j,km1) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
240 |
GAD_SOM_ADV_R |
fn_xy(i,j,kUp) = aln(i,j,kUp)*sm_xy(i,j,km1) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
242 |
GAD_SOM_ADV_R |
wT(i,j) = ( fp_o(i,j,kUp) - fn_o(i,j,kUp) )*recip_dT |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
255 |
GAD_SOM_ADV_R |
DO j=jMinAdvR,jMaxAdvR |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
257 |
GAD_SOM_ADV_R |
wLoc = rTrans(i,j)*deltaTloc |
|
./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 |
260 |
GAD_SOM_ADV_R |
fn_v (i,j,kUp) = MAX( zeroRL, -wLoc ) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
261 |
GAD_SOM_ADV_R |
aln (i,j,kUp) = fn_v(i,j,kUp)/sm_v(i,j,km1) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
264 |
GAD_SOM_ADV_R |
fn_o (i,j,kUp) = aln(i,j,kUp)*sm_o(i,j,km1) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
265 |
GAD_SOM_ADV_R |
fn_x (i,j,kUp) = aln(i,j,kUp)*sm_x(i,j,km1) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
266 |
GAD_SOM_ADV_R |
fn_y (i,j,kUp) = aln(i,j,kUp)*sm_y(i,j,km1) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
267 |
GAD_SOM_ADV_R |
fn_xx(i,j,kUp) = aln(i,j,kUp)*sm_xx(i,j,km1) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
268 |
GAD_SOM_ADV_R |
fn_yy(i,j,kUp) = aln(i,j,kUp)*sm_yy(i,j,km1) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
269 |
GAD_SOM_ADV_R |
fn_xy(i,j,kUp) = aln(i,j,kUp)*sm_xy(i,j,km1) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
271 |
GAD_SOM_ADV_R |
wT(i,j) = ( fp_o(i,j,kUp) - fn_o(i,j,kUp) )*recip_dT |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
280 |
GAD_SOM_ADV_R |
DO j=jMinAdvR,jMaxAdvR |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
283 |
GAD_SOM_ADV_R |
IF ( maskIn(i,j).NE.zeroRS ) THEN |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
285 |
GAD_SOM_ADV_R |
alf1 = 1. _d 0 - aln(i,j,kDw) - alp(i,j,kUp) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
287 |
GAD_SOM_ADV_R |
alpmn = alp(i,j,kUp) - aln(i,j,kDw) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
288 |
GAD_SOM_ADV_R |
sm_v (i,j,k) = sm_v (i,j,k) - fn_v (i,j,kDw) - fp_v (i,j,kUp) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
289 |
GAD_SOM_ADV_R |
sm_o (i,j,k) = sm_o (i,j,k) - fn_o (i,j,kDw) - fp_o (i,j,kUp) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
290 |
GAD_SOM_ADV_R |
sm_z (i,j,k) = alf1q*( sm_z(i,j,k) - three*alpmn*sm_zz(i,j,k) ) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
291 |
GAD_SOM_ADV_R |
sm_zz(i,j,k) = alf1*alf1q*sm_zz(i,j,k) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
292 |
GAD_SOM_ADV_R |
sm_xz(i,j,k) = alf1q*sm_xz(i,j,k) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
293 |
GAD_SOM_ADV_R |
sm_yz(i,j,k) = alf1q*sm_yz(i,j,k) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
294 |
GAD_SOM_ADV_R |
sm_x (i,j,k) = sm_x (i,j,k) - fn_x (i,j,kDw) - fp_x (i,j,kUp) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
295 |
GAD_SOM_ADV_R |
sm_xx(i,j,k) = sm_xx(i,j,k) - fn_xx(i,j,kDw) - fp_xx(i,j,kUp) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
296 |
GAD_SOM_ADV_R |
sm_y (i,j,k) = sm_y (i,j,k) - fn_y (i,j,kDw) - fp_y (i,j,kUp) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
297 |
GAD_SOM_ADV_R |
sm_yy(i,j,k) = sm_yy(i,j,k) - fn_yy(i,j,kDw) - fp_yy(i,j,kUp) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
298 |
GAD_SOM_ADV_R |
sm_xy(i,j,k) = sm_xy(i,j,k) - fn_xy(i,j,kDw) - fp_xy(i,j,kUp) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
308 |
GAD_SOM_ADV_R |
DO j=jMinAdvR,jMaxAdvR |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
311 |
GAD_SOM_ADV_R |
IF ( maskIn(i,j).NE.zeroRS ) THEN |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
313 |
GAD_SOM_ADV_R |
sm_v (i,j,k) = sm_v (i,j,k) + fp_v (i,j,kDw) + fn_v (i,j,kUp) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
314 |
GAD_SOM_ADV_R |
alfp = fp_v(i,j,kDw)/sm_v(i,j,k) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
315 |
GAD_SOM_ADV_R |
alfn = fn_v(i,j,kUp)/sm_v(i,j,k) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
320 |
GAD_SOM_ADV_R |
locTp = alfp*sm_o(i,j,k) - alp1*fp_o(i,j,kDw) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
321 |
GAD_SOM_ADV_R |
locTn = alfn*sm_o(i,j,k) - aln1*fn_o(i,j,kUp) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
322 |
GAD_SOM_ADV_R |
sm_zz(i,j,k) = alf1*alf1*sm_zz(i,j,k) + alfp*alfp*fp_zz(i,j,kDw) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
323 |
GAD_SOM_ADV_R |
& + alfn*alfn*fn_zz(i,j,kUp) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
324 |
GAD_SOM_ADV_R |
& - 5. _d 0*(-alpmn*alf1*sm_z(i,j,k) + alfp*alp1*fp_z(i,j,kDw) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
325 |
GAD_SOM_ADV_R |
& - alfn*aln1*fn_z(i,j,kUp) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
326 |
GAD_SOM_ADV_R |
& + twoRL*alfp*alfn*sm_o(i,j,k) + (alp1-alfp)*locTp |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
329 |
GAD_SOM_ADV_R |
sm_xz(i,j,k) = alf1*sm_xz(i,j,k) + alfp*fp_xz(i,j,kDw) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
330 |
GAD_SOM_ADV_R |
& + alfn*fn_xz(i,j,kUp) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
331 |
GAD_SOM_ADV_R |
& + three*( alpmn*sm_x(i,j,k) - alp1*fp_x(i,j,kDw) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
332 |
GAD_SOM_ADV_R |
& + aln1*fn_x(i,j,kUp) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
334 |
GAD_SOM_ADV_R |
sm_yz(i,j,k) = alf1*sm_yz(i,j,k) + alfp*fp_yz(i,j,kDw) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
335 |
GAD_SOM_ADV_R |
& + alfn*fn_yz(i,j,kUp) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
336 |
GAD_SOM_ADV_R |
& + three*( alpmn*sm_y(i,j,k) - alp1*fp_y(i,j,kDw) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
337 |
GAD_SOM_ADV_R |
& + aln1*fn_y(i,j,kUp) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
339 |
GAD_SOM_ADV_R |
sm_z (i,j,k) = alf1*sm_z(i,j,k) + alfp*fp_z(i,j,kDw) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
340 |
GAD_SOM_ADV_R |
& + alfn*fn_z(i,j,kUp) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
342 |
GAD_SOM_ADV_R |
sm_o (i,j,k) = sm_o (i,j,k) + fp_o (i,j,kDw) + fn_o (i,j,kUp) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
343 |
GAD_SOM_ADV_R |
sm_x (i,j,k) = sm_x (i,j,k) + fp_x (i,j,kDw) + fn_x (i,j,kUp) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
344 |
GAD_SOM_ADV_R |
sm_xx(i,j,k) = sm_xx(i,j,k) + fp_xx(i,j,kDw) + fn_xx(i,j,kUp) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
345 |
GAD_SOM_ADV_R |
sm_y (i,j,k) = sm_y (i,j,k) + fp_y (i,j,kDw) + fn_y (i,j,kUp) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
346 |
GAD_SOM_ADV_R |
sm_yy(i,j,k) = sm_yy(i,j,k) + fp_yy(i,j,kDw) + fn_yy(i,j,kUp) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
347 |
GAD_SOM_ADV_R |
sm_xy(i,j,k) = sm_xy(i,j,k) + fp_xy(i,j,kDw) + fn_xy(i,j,kUp) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
155 |
GAD_SOM_ADV_X |
DO j=jMinUpd(ns),jMaxUpd(ns) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
160 |
GAD_SOM_ADV_X |
IF ( sm_o(i,j).GT.zeroRL ) slpmax = sm_o(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
162 |
GAD_SOM_ADV_X |
s1new = MIN( s1max, MAX(-s1max,sm_x(i,j)) ) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
164 |
GAD_SOM_ADV_X |
& MAX(ABS(s1new)-slpmax,sm_xx(i,j)) ) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
165 |
GAD_SOM_ADV_X |
sm_xy(i,j) = MIN( slpmax, MAX(-slpmax,sm_xy(i,j)) ) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
166 |
GAD_SOM_ADV_X |
sm_xz(i,j) = MIN( slpmax, MAX(-slpmax,sm_xz(i,j)) ) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
167 |
GAD_SOM_ADV_X |
sm_x (i,j) = s1new |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
168 |
GAD_SOM_ADV_X |
sm_xx(i,j) = s2new |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
175 |
GAD_SOM_ADV_X |
DO j=jMinUpd(ns),jMaxUpd(ns) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
177 |
GAD_SOM_ADV_X |
uLoc = uTrans(i,j)*deltaTloc |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
179 |
GAD_SOM_ADV_X |
fp_v (i,j) = MAX( zeroRL, uLoc ) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
180 |
GAD_SOM_ADV_X |
alp (i,j) = fp_v(i,j)/sm_v(i-1,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
181 |
GAD_SOM_ADV_X |
alpq = alp(i,j)*alp(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
182 |
GAD_SOM_ADV_X |
alp1 = 1. _d 0 - alp(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
185 |
GAD_SOM_ADV_X |
fp_o (i,j) = alp(i,j)*( sm_o(i-1,j) + alp1*sm_x(i-1,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
186 |
GAD_SOM_ADV_X |
& + alp1*(alp1-alp(i,j))*sm_xx(i-1,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
188 |
GAD_SOM_ADV_X |
fp_x (i,j) = alpq *( sm_x(i-1,j) + three*alp1*sm_xx(i-1,j) ) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
189 |
GAD_SOM_ADV_X |
fp_xx(i,j) = alp(i,j)*alpq*sm_xx(i-1,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
190 |
GAD_SOM_ADV_X |
fp_y (i,j) = alp(i,j)*( sm_y(i-1,j) + alp1*sm_xy(i-1,j) ) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
191 |
GAD_SOM_ADV_X |
fp_z (i,j) = alp(i,j)*( sm_z(i-1,j) + alp1*sm_xz(i-1,j) ) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
192 |
GAD_SOM_ADV_X |
fp_xy(i,j) = alpq *sm_xy(i-1,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
193 |
GAD_SOM_ADV_X |
fp_xz(i,j) = alpq *sm_xz(i-1,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
194 |
GAD_SOM_ADV_X |
fp_yy(i,j) = alp(i,j)*sm_yy(i-1,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
195 |
GAD_SOM_ADV_X |
fp_zz(i,j) = alp(i,j)*sm_zz(i-1,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
196 |
GAD_SOM_ADV_X |
fp_yz(i,j) = alp(i,j)*sm_yz(i-1,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
198 |
GAD_SOM_ADV_X |
fn_v (i,j) = MAX( zeroRL, -uLoc ) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
199 |
GAD_SOM_ADV_X |
aln (i,j) = fn_v(i,j)/sm_v( i ,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
200 |
GAD_SOM_ADV_X |
alnq = aln(i,j)*aln(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
201 |
GAD_SOM_ADV_X |
aln1 = 1. _d 0 - aln(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
204 |
GAD_SOM_ADV_X |
fn_o (i,j) = aln(i,j)*( sm_o( i ,j) - aln1*sm_x( i ,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
205 |
GAD_SOM_ADV_X |
& + aln1*(aln1-aln(i,j))*sm_xx( i ,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
207 |
GAD_SOM_ADV_X |
fn_x (i,j) = alnq *( sm_x( i ,j) - three*aln1*sm_xx( i ,j) ) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
208 |
GAD_SOM_ADV_X |
fn_xx(i,j) = aln(i,j)*alnq*sm_xx( i ,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
209 |
GAD_SOM_ADV_X |
fn_y (i,j) = aln(i,j)*( sm_y( i ,j) - aln1*sm_xy( i ,j) ) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
210 |
GAD_SOM_ADV_X |
fn_z (i,j) = aln(i,j)*( sm_z( i ,j) - aln1*sm_xz( i ,j) ) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
211 |
GAD_SOM_ADV_X |
fn_xy(i,j) = alnq *sm_xy( i ,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
212 |
GAD_SOM_ADV_X |
fn_xz(i,j) = alnq *sm_xz( i ,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
213 |
GAD_SOM_ADV_X |
fn_yy(i,j) = aln(i,j)*sm_yy( i ,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
214 |
GAD_SOM_ADV_X |
fn_zz(i,j) = aln(i,j)*sm_zz( i ,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
215 |
GAD_SOM_ADV_X |
fn_yz(i,j) = aln(i,j)*sm_yz( i ,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
217 |
GAD_SOM_ADV_X |
uT(i,j) = ( fp_o(i,j) - fn_o(i,j) )*recip_dT |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
230 |
GAD_SOM_ADV_X |
DO j=jMinUpd(ns),jMaxUpd(ns) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
233 |
GAD_SOM_ADV_X |
IF ( maskIn(i,j).NE.zeroRS ) THEN |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
235 |
GAD_SOM_ADV_X |
alf1 = 1. _d 0 - aln(i,j) - alp(i+1,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
237 |
GAD_SOM_ADV_X |
alpmn = alp(i+1,j) - aln(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
238 |
GAD_SOM_ADV_X |
sm_v (i,j) = sm_v (i,j) - fn_v (i,j) - fp_v (i+1,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
239 |
GAD_SOM_ADV_X |
sm_o (i,j) = sm_o (i,j) - fn_o (i,j) - fp_o (i+1,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
240 |
GAD_SOM_ADV_X |
sm_x (i,j) = alf1q*( sm_x(i,j) - three*alpmn*sm_xx(i,j) ) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
241 |
GAD_SOM_ADV_X |
sm_xx(i,j) = alf1*alf1q*sm_xx(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
242 |
GAD_SOM_ADV_X |
sm_xy(i,j) = alf1q*sm_xy(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
243 |
GAD_SOM_ADV_X |
sm_xz(i,j) = alf1q*sm_xz(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
244 |
GAD_SOM_ADV_X |
sm_y (i,j) = sm_y (i,j) - fn_y (i,j) - fp_y (i+1,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
245 |
GAD_SOM_ADV_X |
sm_yy(i,j) = sm_yy(i,j) - fn_yy(i,j) - fp_yy(i+1,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
246 |
GAD_SOM_ADV_X |
sm_z (i,j) = sm_z (i,j) - fn_z (i,j) - fp_z (i+1,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
247 |
GAD_SOM_ADV_X |
sm_zz(i,j) = sm_zz(i,j) - fn_zz(i,j) - fp_zz(i+1,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
248 |
GAD_SOM_ADV_X |
sm_yz(i,j) = sm_yz(i,j) - fn_yz(i,j) - fp_yz(i+1,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
258 |
GAD_SOM_ADV_X |
DO j=jMinUpd(ns),jMaxUpd(ns) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
261 |
GAD_SOM_ADV_X |
IF ( maskIn(i,j).NE.zeroRS ) THEN |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
263 |
GAD_SOM_ADV_X |
sm_v (i,j) = sm_v (i,j) + fp_v (i,j) + fn_v (i+1,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
264 |
GAD_SOM_ADV_X |
alfp = fp_v( i ,j)/sm_v(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
265 |
GAD_SOM_ADV_X |
alfn = fn_v(i+1,j)/sm_v(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
270 |
GAD_SOM_ADV_X |
locTp = alfp*sm_o(i,j) - alp1*fp_o(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
271 |
GAD_SOM_ADV_X |
locTn = alfn*sm_o(i,j) - aln1*fn_o(i+1,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
272 |
GAD_SOM_ADV_X |
sm_xx(i,j) = alf1*alf1*sm_xx(i,j) + alfp*alfp*fp_xx(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
273 |
GAD_SOM_ADV_X |
& + alfn*alfn*fn_xx(i+1,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
274 |
GAD_SOM_ADV_X |
& - 5. _d 0*(-alpmn*alf1*sm_x(i,j) + alfp*alp1*fp_x(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
275 |
GAD_SOM_ADV_X |
& - alfn*aln1*fn_x(i+1,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
276 |
GAD_SOM_ADV_X |
& + twoRL*alfp*alfn*sm_o(i,j) + (alp1-alfp)*locTp |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
279 |
GAD_SOM_ADV_X |
sm_xy(i,j) = alf1*sm_xy(i,j) + alfp*fp_xy(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
280 |
GAD_SOM_ADV_X |
& + alfn*fn_xy(i+1,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
281 |
GAD_SOM_ADV_X |
& + three*( alpmn*sm_y(i,j) - alp1*fp_y(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
282 |
GAD_SOM_ADV_X |
& + aln1*fn_y(i+1,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
284 |
GAD_SOM_ADV_X |
sm_xz(i,j) = alf1*sm_xz(i,j) + alfp*fp_xz(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
285 |
GAD_SOM_ADV_X |
& + alfn*fn_xz(i+1,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
286 |
GAD_SOM_ADV_X |
& + three*( alpmn*sm_z(i,j) - alp1*fp_z(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
287 |
GAD_SOM_ADV_X |
& + aln1*fn_z(i+1,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
289 |
GAD_SOM_ADV_X |
sm_x (i,j) = alf1*sm_x(i,j) + alfp*fp_x(i,j) + alfn*fn_x(i+1,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
291 |
GAD_SOM_ADV_X |
sm_o (i,j) = sm_o (i,j) + fp_o (i,j) + fn_o (i+1,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
292 |
GAD_SOM_ADV_X |
sm_y (i,j) = sm_y (i,j) + fp_y (i,j) + fn_y (i+1,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
293 |
GAD_SOM_ADV_X |
sm_yy(i,j) = sm_yy(i,j) + fp_yy(i,j) + fn_yy(i+1,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
294 |
GAD_SOM_ADV_X |
sm_z (i,j) = sm_z (i,j) + fp_z (i,j) + fn_z (i+1,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
295 |
GAD_SOM_ADV_X |
sm_zz(i,j) = sm_zz(i,j) + fp_zz(i,j) + fn_zz(i+1,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
296 |
GAD_SOM_ADV_X |
sm_yz(i,j) = sm_yz(i,j) + fp_yz(i,j) + fn_yz(i+1,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
89 |
GAD_SOM_ADV_X |
INTEGER i,j |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
155 |
GAD_SOM_ADV_Y |
DO j=jMinUpd(1)-1,jMaxUpd(1)+1 |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
160 |
GAD_SOM_ADV_Y |
IF ( sm_o(i,j).GT.0. ) slpmax = sm_o(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
162 |
GAD_SOM_ADV_Y |
s1new = MIN( s1max, MAX(-s1max,sm_y(i,j)) ) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
164 |
GAD_SOM_ADV_Y |
& MAX(ABS(s1new)-slpmax,sm_yy(i,j)) ) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
165 |
GAD_SOM_ADV_Y |
sm_xy(i,j) = MIN( slpmax, MAX(-slpmax,sm_xy(i,j)) ) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
166 |
GAD_SOM_ADV_Y |
sm_yz(i,j) = MIN( slpmax, MAX(-slpmax,sm_yz(i,j)) ) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
167 |
GAD_SOM_ADV_Y |
sm_y (i,j) = s1new |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
168 |
GAD_SOM_ADV_Y |
sm_yy(i,j) = s2new |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
175 |
GAD_SOM_ADV_Y |
DO j=jMinUpd(1),jMaxUpd(1)+1 |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
177 |
GAD_SOM_ADV_Y |
vLoc = vTrans(i,j)*deltaTloc |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
179 |
GAD_SOM_ADV_Y |
fp_v (i,j) = MAX( zeroRL, vLoc ) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
180 |
GAD_SOM_ADV_Y |
alp (i,j) = fp_v(i,j)/sm_v(i,j-1) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
181 |
GAD_SOM_ADV_Y |
alpq = alp(i,j)*alp(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
182 |
GAD_SOM_ADV_Y |
alp1 = 1. _d 0 - alp(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
185 |
GAD_SOM_ADV_Y |
fp_o (i,j) = alp(i,j)*( sm_o(i,j-1) + alp1*sm_y(i,j-1) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
186 |
GAD_SOM_ADV_Y |
& + alp1*(alp1-alp(i,j))*sm_yy(i,j-1) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
188 |
GAD_SOM_ADV_Y |
fp_y (i,j) = alpq *( sm_y(i,j-1) + three*alp1*sm_yy(i,j-1) ) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
189 |
GAD_SOM_ADV_Y |
fp_yy(i,j) = alp(i,j)*alpq*sm_yy(i,j-1) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
190 |
GAD_SOM_ADV_Y |
fp_x (i,j) = alp(i,j)*( sm_x(i,j-1) + alp1*sm_xy(i,j-1) ) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
191 |
GAD_SOM_ADV_Y |
fp_z (i,j) = alp(i,j)*( sm_z(i,j-1) + alp1*sm_yz(i,j-1) ) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
193 |
GAD_SOM_ADV_Y |
fp_xy(i,j) = alpq *sm_xy(i,j-1) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
194 |
GAD_SOM_ADV_Y |
fp_yz(i,j) = alpq *sm_yz(i,j-1) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
195 |
GAD_SOM_ADV_Y |
fp_xx(i,j) = alp(i,j)*sm_xx(i,j-1) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
196 |
GAD_SOM_ADV_Y |
fp_zz(i,j) = alp(i,j)*sm_zz(i,j-1) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
197 |
GAD_SOM_ADV_Y |
fp_xz(i,j) = alp(i,j)*sm_xz(i,j-1) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
199 |
GAD_SOM_ADV_Y |
fn_v (i,j) = MAX( zeroRL, -vLoc ) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
200 |
GAD_SOM_ADV_Y |
aln (i,j) = fn_v(i,j)/sm_v(i, j ) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
201 |
GAD_SOM_ADV_Y |
alnq = aln(i,j)*aln(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
202 |
GAD_SOM_ADV_Y |
aln1 = 1. _d 0 - aln(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
205 |
GAD_SOM_ADV_Y |
fn_o (i,j) = aln(i,j)*( sm_o(i, j ) - aln1*sm_y(i, j ) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
206 |
GAD_SOM_ADV_Y |
& + aln1*(aln1-aln(i,j))*sm_yy(i, j ) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
208 |
GAD_SOM_ADV_Y |
fn_y (i,j) = alnq *( sm_y(i, j ) - three*aln1*sm_yy(i, j ) ) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
209 |
GAD_SOM_ADV_Y |
fn_yy(i,j) = aln(i,j)*alnq*sm_yy(i, j ) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
210 |
GAD_SOM_ADV_Y |
fn_x (i,j) = aln(i,j)*( sm_x(i, j ) - aln1*sm_xy(i, j ) ) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
211 |
GAD_SOM_ADV_Y |
fn_z (i,j) = aln(i,j)*( sm_z(i, j ) - aln1*sm_yz(i, j ) ) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
212 |
GAD_SOM_ADV_Y |
fn_xy(i,j) = alnq *sm_xy(i, j ) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
213 |
GAD_SOM_ADV_Y |
fn_yz(i,j) = alnq *sm_yz(i, j ) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
214 |
GAD_SOM_ADV_Y |
fn_xx(i,j) = aln(i,j)*sm_xx(i, j ) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
215 |
GAD_SOM_ADV_Y |
fn_zz(i,j) = aln(i,j)*sm_zz(i, j ) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
216 |
GAD_SOM_ADV_Y |
fn_xz(i,j) = aln(i,j)*sm_xz(i, j ) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
218 |
GAD_SOM_ADV_Y |
vT(i,j) = ( fp_o(i,j) - fn_o(i,j) )*recip_dT |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
231 |
GAD_SOM_ADV_Y |
DO j=jMinUpd(1),jMaxUpd(1) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
234 |
GAD_SOM_ADV_Y |
IF ( maskIn(i,j).NE.zeroRS ) THEN |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
236 |
GAD_SOM_ADV_Y |
alf1 = 1. _d 0 - aln(i,j) - alp(i,j+1) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
238 |
GAD_SOM_ADV_Y |
alpmn = alp(i,j+1) - aln(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
239 |
GAD_SOM_ADV_Y |
sm_v (i,j) = sm_v (i,j) - fn_v (i,j) - fp_v (i,j+1) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
240 |
GAD_SOM_ADV_Y |
sm_o (i,j) = sm_o (i,j) - fn_o (i,j) - fp_o (i,j+1) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
241 |
GAD_SOM_ADV_Y |
sm_y (i,j) = alf1q*( sm_y(i,j) - three*alpmn*sm_yy(i,j) ) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
242 |
GAD_SOM_ADV_Y |
sm_yy(i,j) = alf1*alf1q*sm_yy(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
243 |
GAD_SOM_ADV_Y |
sm_xy(i,j) = alf1q*sm_xy(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
244 |
GAD_SOM_ADV_Y |
sm_yz(i,j) = alf1q*sm_yz(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
245 |
GAD_SOM_ADV_Y |
sm_x (i,j) = sm_x (i,j) - fn_x (i,j) - fp_x (i,j+1) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
246 |
GAD_SOM_ADV_Y |
sm_xx(i,j) = sm_xx(i,j) - fn_xx(i,j) - fp_xx(i,j+1) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
247 |
GAD_SOM_ADV_Y |
sm_z (i,j) = sm_z (i,j) - fn_z (i,j) - fp_z (i,j+1) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
248 |
GAD_SOM_ADV_Y |
sm_zz(i,j) = sm_zz(i,j) - fn_zz(i,j) - fp_zz(i,j+1) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
249 |
GAD_SOM_ADV_Y |
sm_xz(i,j) = sm_xz(i,j) - fn_xz(i,j) - fp_xz(i,j+1) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
259 |
GAD_SOM_ADV_Y |
DO j=jMinUpd(1),jMaxUpd(1) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
262 |
GAD_SOM_ADV_Y |
IF ( maskIn(i,j).NE.zeroRS ) THEN |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
264 |
GAD_SOM_ADV_Y |
sm_v (i,j) = sm_v (i,j) + fp_v (i,j) + fn_v (i,j+1) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
265 |
GAD_SOM_ADV_Y |
alfp = fp_v(i, j )/sm_v(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
266 |
GAD_SOM_ADV_Y |
alfn = fn_v(i,j+1)/sm_v(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
271 |
GAD_SOM_ADV_Y |
locTp = alfp*sm_o(i,j) - alp1*fp_o(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
272 |
GAD_SOM_ADV_Y |
locTn = alfn*sm_o(i,j) - aln1*fn_o(i,j+1) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
273 |
GAD_SOM_ADV_Y |
sm_yy(i,j) = alf1*alf1*sm_yy(i,j) + alfp*alfp*fp_yy(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
274 |
GAD_SOM_ADV_Y |
& + alfn*alfn*fn_yy(i,j+1) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
275 |
GAD_SOM_ADV_Y |
& - 5. _d 0*(-alpmn*alf1*sm_y(i,j) + alfp*alp1*fp_y(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
276 |
GAD_SOM_ADV_Y |
& - alfn*aln1*fn_y(i,j+1) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
277 |
GAD_SOM_ADV_Y |
& + twoRL*alfp*alfn*sm_o(i,j) + (alp1-alfp)*locTp |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
280 |
GAD_SOM_ADV_Y |
sm_xy(i,j) = alf1*sm_xy(i,j) + alfp*fp_xy(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
281 |
GAD_SOM_ADV_Y |
& + alfn*fn_xy(i,j+1) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
282 |
GAD_SOM_ADV_Y |
& + three*( alpmn*sm_x(i,j) - alp1*fp_x(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
283 |
GAD_SOM_ADV_Y |
& + aln1*fn_x(i,j+1) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
285 |
GAD_SOM_ADV_Y |
sm_yz(i,j) = alf1*sm_yz(i,j) + alfp*fp_yz(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
286 |
GAD_SOM_ADV_Y |
& + alfn*fn_yz(i,j+1) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
287 |
GAD_SOM_ADV_Y |
& + three*( alpmn*sm_z(i,j) - alp1*fp_z(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
288 |
GAD_SOM_ADV_Y |
& + aln1*fn_z(i,j+1) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
290 |
GAD_SOM_ADV_Y |
sm_y (i,j) = alf1*sm_y(i,j) + alfp*fp_y(i,j) + alfn*fn_y(i,j+1) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
292 |
GAD_SOM_ADV_Y |
sm_o (i,j) = sm_o (i,j) + fp_o (i,j) + fn_o (i,j+1) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
293 |
GAD_SOM_ADV_Y |
sm_x (i,j) = sm_x (i,j) + fp_x (i,j) + fn_x (i,j+1) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
294 |
GAD_SOM_ADV_Y |
sm_xx(i,j) = sm_xx(i,j) + fp_xx(i,j) + fn_xx(i,j+1) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
295 |
GAD_SOM_ADV_Y |
sm_z (i,j) = sm_z (i,j) + fp_z (i,j) + fn_z (i,j+1) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
296 |
GAD_SOM_ADV_Y |
sm_zz(i,j) = sm_zz(i,j) + fp_zz(i,j) + fn_zz(i,j+1) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
297 |
GAD_SOM_ADV_Y |
sm_xz(i,j) = sm_xz(i,j) + fp_xz(i,j) + fn_xz(i,j+1) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
89 |
GAD_SOM_ADV_Y |
INTEGER i,j |
|
./pkg/generic_advdiff/gad_som_advect.F |
175 |
GAD_SOM_ADVECT |
DO j=1-OLy,sNy+OLy |
|
./pkg/generic_advdiff/gad_som_advect.F |
177 |
GAD_SOM_ADVECT |
afx(i,j) = 0. |
|
./pkg/generic_advdiff/gad_som_advect.F |
178 |
GAD_SOM_ADVECT |
afy(i,j) = 0. |
|
./pkg/generic_advdiff/gad_som_advect.F |
191 |
GAD_SOM_ADVECT |
DO j=1,OLy |
|
./pkg/generic_advdiff/gad_som_advect.F |
193 |
GAD_SOM_ADVECT |
smCorners(i,j,k,n) = 0. |
|
./pkg/generic_advdiff/gad_som_advect.F |
244 |
GAD_SOM_ADVECT |
DO j=1-OLy,sNy+OLy |
|
./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 |
254 |
GAD_SOM_ADVECT |
DO j=1-OLy,sNy+OLy |
|
./pkg/generic_advdiff/gad_som_advect.F |
256 |
GAD_SOM_ADVECT |
uTrans(i,j) = uFld(i,j,k)*xA(i,j)*rhoFacC(k) |
|
./pkg/generic_advdiff/gad_som_advect.F |
257 |
GAD_SOM_ADVECT |
vTrans(i,j) = vFld(i,j,k)*yA(i,j)*rhoFacC(k) |
|
./pkg/generic_advdiff/gad_som_advect.F |
262 |
GAD_SOM_ADVECT |
DO j=1-OLy,sNy+OLy |
|
./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 |
269 |
GAD_SOM_ADVECT |
smVol(i,j,k) = 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 |
402 |
GAD_SOM_ADVECT |
DO j=1-OLy,sNy+OLy |
|
./pkg/generic_advdiff/gad_som_advect.F |
409 |
GAD_SOM_ADVECT |
gTracer(i,j,k) = |
|
./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 |
479 |
GAD_SOM_ADVECT |
DO j=1-OLy,sNy+OLy |
|
./pkg/generic_advdiff/gad_som_advect.F |
481 |
GAD_SOM_ADVECT |
alp (i,j,kDown) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
482 |
GAD_SOM_ADVECT |
aln (i,j,kDown) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
483 |
GAD_SOM_ADVECT |
fp_v (i,j,kDown) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
484 |
GAD_SOM_ADVECT |
fn_v (i,j,kDown) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
485 |
GAD_SOM_ADVECT |
fp_o (i,j,kDown) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
486 |
GAD_SOM_ADVECT |
fn_o (i,j,kDown) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
487 |
GAD_SOM_ADVECT |
fp_x (i,j,kDown) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
488 |
GAD_SOM_ADVECT |
fn_x (i,j,kDown) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
489 |
GAD_SOM_ADVECT |
fp_y (i,j,kDown) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
490 |
GAD_SOM_ADVECT |
fn_y (i,j,kDown) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
491 |
GAD_SOM_ADVECT |
fp_z (i,j,kDown) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
492 |
GAD_SOM_ADVECT |
fn_z (i,j,kDown) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
493 |
GAD_SOM_ADVECT |
fp_xx(i,j,kDown) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
494 |
GAD_SOM_ADVECT |
fn_xx(i,j,kDown) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
495 |
GAD_SOM_ADVECT |
fp_yy(i,j,kDown) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
496 |
GAD_SOM_ADVECT |
fn_yy(i,j,kDown) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
497 |
GAD_SOM_ADVECT |
fp_zz(i,j,kDown) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
498 |
GAD_SOM_ADVECT |
fn_zz(i,j,kDown) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
499 |
GAD_SOM_ADVECT |
fp_xy(i,j,kDown) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
500 |
GAD_SOM_ADVECT |
fn_xy(i,j,kDown) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
501 |
GAD_SOM_ADVECT |
fp_xz(i,j,kDown) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
502 |
GAD_SOM_ADVECT |
fn_xz(i,j,kDown) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
503 |
GAD_SOM_ADVECT |
fp_yz(i,j,kDown) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
504 |
GAD_SOM_ADVECT |
fn_yz(i,j,kDown) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
520 |
GAD_SOM_ADVECT |
DO j=1-OLy,sNy+OLy |
|
./pkg/generic_advdiff/gad_som_advect.F |
522 |
GAD_SOM_ADVECT |
rTrans(i,j) = 0. |
|
./pkg/generic_advdiff/gad_som_advect.F |
523 |
GAD_SOM_ADVECT |
maskUp(i,j) = 0. |
|
./pkg/generic_advdiff/gad_som_advect.F |
529 |
GAD_SOM_ADVECT |
DO j=1-OLy,sNy+OLy |
|
./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 |
534 |
GAD_SOM_ADVECT |
maskUp(i,j) = 1. |
|
./pkg/generic_advdiff/gad_som_advect.F |
541 |
GAD_SOM_ADVECT |
DO j=1-OLy,sNy+OLy |
|
./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 |
580 |
GAD_SOM_ADVECT |
DO j=1-OLy,sNy+OLy |
|
./pkg/generic_advdiff/gad_som_advect.F |
592 |
GAD_SOM_ADVECT |
gTracer(i,j,k) = |
|
./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 |
94 |
GAD_SOM_ADVECT |
INTEGER i,j,k,km1,kUp,kDown |
|
./pkg/generic_advdiff/gad_som_lim_r.F |
59 |
GAD_SOM_LIM_R |
INTEGER i,j,k |
|
./pkg/generic_advdiff/gad_som_lim_r.F |
65 |
GAD_SOM_LIM_R |
DO j=jMinAdvR,jMaxAdvR |
|
./pkg/generic_advdiff/gad_som_lim_r.F |
70 |
GAD_SOM_LIM_R |
IF ( sm_o(i,j,k).GT.0. ) slpmax = sm_o(i,j,k) |
|
./pkg/generic_advdiff/gad_som_lim_r.F |
72 |
GAD_SOM_LIM_R |
s1new = MIN( s1max, MAX(-s1max,sm_z(i,j,k)) ) |
|
./pkg/generic_advdiff/gad_som_lim_r.F |
74 |
GAD_SOM_LIM_R |
& MAX(ABS(s1new)-slpmax,sm_zz(i,j,k)) ) |
|
./pkg/generic_advdiff/gad_som_lim_r.F |
75 |
GAD_SOM_LIM_R |
sm_xz(i,j,k) = MIN( slpmax, MAX(-slpmax,sm_xz(i,j,k)) ) |
|
./pkg/generic_advdiff/gad_som_lim_r.F |
76 |
GAD_SOM_LIM_R |
sm_yz(i,j,k) = MIN( slpmax, MAX(-slpmax,sm_yz(i,j,k)) ) |
|
./pkg/generic_advdiff/gad_som_lim_r.F |
77 |
GAD_SOM_LIM_R |
sm_z (i,j,k) = s1new |
|
./pkg/generic_advdiff/gad_som_lim_r.F |
78 |
GAD_SOM_LIM_R |
sm_zz(i,j,k) = s2new |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
129 |
GAD_SOM_PREP_CS_CORNER |
DO j=1,OLy |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
131 |
GAD_SOM_PREP_CS_CORNER |
smCorners(i,j,1,-1) = smVol(i-OLx,j-OLy,k) |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
132 |
GAD_SOM_PREP_CS_CORNER |
smCorners(i,j,1, 0) = smTr0(i-OLx,j-OLy,k) |
|
./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 |
140 |
GAD_SOM_PREP_CS_CORNER |
DO j=1,OLy |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
142 |
GAD_SOM_PREP_CS_CORNER |
smCorners(i,j,2,-1) = smVol(sNx+i,j-OLy,k) |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
143 |
GAD_SOM_PREP_CS_CORNER |
smCorners(i,j,2, 0) = smTr0(sNx+i,j-OLy,k) |
|
./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 |
151 |
GAD_SOM_PREP_CS_CORNER |
DO j=1,OLy |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
153 |
GAD_SOM_PREP_CS_CORNER |
smCorners(i,j,3,-1) = smVol(sNx+i,sNy+j,k) |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
154 |
GAD_SOM_PREP_CS_CORNER |
smCorners(i,j,3, 0) = smTr0(sNx+i,sNy+j,k) |
|
./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 |
162 |
GAD_SOM_PREP_CS_CORNER |
DO j=1,OLy |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
164 |
GAD_SOM_PREP_CS_CORNER |
smCorners(i,j,4,-1) = smVol(i-OLx,sNy+j,k) |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
165 |
GAD_SOM_PREP_CS_CORNER |
smCorners(i,j,4, 0) = smTr0(i-OLx,sNy+j,k) |
|
./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 |
182 |
GAD_SOM_PREP_CS_CORNER |
DO j=1,OLy |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
184 |
GAD_SOM_PREP_CS_CORNER |
smVol(i-OLx,j-OLy,k ) = smCorners(i,j,1,-1) |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
185 |
GAD_SOM_PREP_CS_CORNER |
smTr0(i-OLx,j-OLy,k ) = smCorners(i,j,1, 0) |
|
./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 |
193 |
GAD_SOM_PREP_CS_CORNER |
DO j=1,OLy |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
195 |
GAD_SOM_PREP_CS_CORNER |
smVol(sNx+i,j-OLy,k ) = smCorners(i,j,2,-1) |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
196 |
GAD_SOM_PREP_CS_CORNER |
smTr0(sNx+i,j-OLy,k ) = smCorners(i,j,2, 0) |
|
./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 |
204 |
GAD_SOM_PREP_CS_CORNER |
DO j=1,OLy |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
206 |
GAD_SOM_PREP_CS_CORNER |
smVol(sNx+i,sNy+j,k ) = smCorners(i,j,3,-1) |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
207 |
GAD_SOM_PREP_CS_CORNER |
smTr0(sNx+i,sNy+j,k ) = smCorners(i,j,3, 0) |
|
./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 |
215 |
GAD_SOM_PREP_CS_CORNER |
DO j=1,OLy |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
217 |
GAD_SOM_PREP_CS_CORNER |
smVol(i-OLx,sNy+j,k ) = smCorners(i,j,4,-1) |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
218 |
GAD_SOM_PREP_CS_CORNER |
smTr0(i-OLx,sNy+j,k ) = smCorners(i,j,4, 0) |
|
./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 |
62 |
GAD_SOM_PREP_CS_CORNER |
INTEGER i,j, jPass, n |
|
./pkg/generic_advdiff/gad_u3_adv_r.F |
54 |
GAD_U3_ADV_R |
INTEGER i,j,kp1,km1,km2 |
|
./pkg/generic_advdiff/gad_u3_adv_r.F |
63 |
GAD_U3_ADV_R |
DO j=1-OLy,sNy+OLy |
|
./pkg/generic_advdiff/gad_u3_adv_r.F |
65 |
GAD_U3_ADV_R |
wT(i,j) = 0. |
|
./pkg/generic_advdiff/gad_u3_adv_r.F |
69 |
GAD_U3_ADV_R |
DO j=1-OLy,sNy+OLy |
|
./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 |
72 |
GAD_U3_ADV_R |
Rj = (tracer(i,j, k )-tracer(i,j,km1)) |
|
./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_r.F |
77 |
GAD_U3_ADV_R |
& rTrans(i,j)*( (tracer(i,j,k)+tracer(i,j,km1))*0.5 _d 0 |
|
./pkg/generic_advdiff/gad_u3_adv_r.F |
79 |
GAD_U3_ADV_R |
& +ABS(rTrans(i,j))* |
|
./pkg/generic_advdiff/gad_u3_adv_x.F |
53 |
GAD_U3_ADV_X |
INTEGER i,j |
|
./pkg/generic_advdiff/gad_u3_adv_x.F |
57 |
GAD_U3_ADV_X |
DO j=1-Oly,sNy+Oly |
|
./pkg/generic_advdiff/gad_u3_adv_x.F |
58 |
GAD_U3_ADV_X |
uT(1-Olx,j)=0. |
|
./pkg/generic_advdiff/gad_u3_adv_x.F |
59 |
GAD_U3_ADV_X |
uT(2-Olx,j)=0. |
|
./pkg/generic_advdiff/gad_u3_adv_x.F |
60 |
GAD_U3_ADV_X |
uT(sNx+Olx,j)=0. |
|
./pkg/generic_advdiff/gad_u3_adv_x.F |
62 |
GAD_U3_ADV_X |
DO j=1-Oly,sNy+Oly |
|
./pkg/generic_advdiff/gad_u3_adv_x.F |
64 |
GAD_U3_ADV_X |
Rjp = (tracer(i+1,j)-tracer( i ,j))*maskLocW(i+1,j) |
|
./pkg/generic_advdiff/gad_u3_adv_x.F |
65 |
GAD_U3_ADV_X |
Rj = (tracer( i ,j)-tracer(i-1,j))*maskLocW( i ,j) |
|
./pkg/generic_advdiff/gad_u3_adv_x.F |
66 |
GAD_U3_ADV_X |
Rjm = (tracer(i-1,j)-tracer(i-2,j))*maskLocW(i-1,j) |
|
./pkg/generic_advdiff/gad_u3_adv_x.F |
69 |
GAD_U3_ADV_X |
uT(i,j) = |
|
./pkg/generic_advdiff/gad_u3_adv_x.F |
70 |
GAD_U3_ADV_X |
& uTrans(i,j)*( |
|
./pkg/generic_advdiff/gad_u3_adv_x.F |
71 |
GAD_U3_ADV_X |
& Tracer(i,j)+Tracer(i-1,j)-oneSixth*( Rjjp+Rjjm ) |
|
./pkg/generic_advdiff/gad_u3_adv_x.F |
73 |
GAD_U3_ADV_X |
& +ABS( uTrans(i,j) )*0.5 _d 0*oneSixth*( Rjjp-Rjjm ) |
|
./pkg/generic_advdiff/gad_u3_adv_y.F |
53 |
GAD_U3_ADV_Y |
INTEGER i,j |
|
./pkg/generic_advdiff/gad_u3_adv_y.F |
62 |
GAD_U3_ADV_Y |
DO j=1-Oly+2,sNy+Oly-1 |
|
./pkg/generic_advdiff/gad_u3_adv_y.F |
64 |
GAD_U3_ADV_Y |
Rjp = (tracer(i,j+1)-tracer(i, j ))*maskLocS(i,j+1) |
|
./pkg/generic_advdiff/gad_u3_adv_y.F |
65 |
GAD_U3_ADV_Y |
Rj = (tracer(i, j )-tracer(i,j-1))*maskLocS(i, j ) |
|
./pkg/generic_advdiff/gad_u3_adv_y.F |
66 |
GAD_U3_ADV_Y |
Rjm = (tracer(i,j-1)-tracer(i,j-2))*maskLocS(i,j-1) |
|
./pkg/generic_advdiff/gad_u3_adv_y.F |
69 |
GAD_U3_ADV_Y |
vT(i,j) = |
|
./pkg/generic_advdiff/gad_u3_adv_y.F |
70 |
GAD_U3_ADV_Y |
& vTrans(i,j)*( |
|
./pkg/generic_advdiff/gad_u3_adv_y.F |
71 |
GAD_U3_ADV_Y |
& Tracer(i,j)+Tracer(i,j-1)-oneSixth*( Rjjp+Rjjm ) |
|
./pkg/generic_advdiff/gad_u3_adv_y.F |
73 |
GAD_U3_ADV_Y |
& +ABS( vTrans(i,j) )*0.5 _d 0*oneSixth*( Rjjp-Rjjm ) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
100 |
GAD_U3C4_IMPL_R |
DO j=jMin,jMax |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
102 |
GAD_U3C4_IMPL_R |
rCenter2D(i,j) = |
|
./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 |
107 |
GAD_U3C4_IMPL_R |
rUpwind2D(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
108 |
GAD_U3C4_IMPL_R |
rC4km2D (i,j) = oneSixth*rCenter*mskM |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
109 |
GAD_U3C4_IMPL_R |
rC4kp2D (i,j) = oneSixth*rCenter*mskP |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
111 |
GAD_U3C4_IMPL_R |
wCFL = deltaTcfl*ABS(rTrans(i,j)) |
|
./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 |
116 |
GAD_U3C4_IMPL_R |
rUpwind2D(i,j) = (2. _d 0*rHigh )*ABS(rCenter) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
117 |
GAD_U3C4_IMPL_R |
rC4km2D (i,j) = rHigh * (rCenter+ABS(rCenter))*mskM |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
118 |
GAD_U3C4_IMPL_R |
rC4kp2D (i,j) = rHigh * (rCenter-ABS(rCenter))*mskP |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
120 |
GAD_U3C4_IMPL_R |
rUpwind2D(i,j) = 2. _d 0*oneSixth*ABS(rCenter) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
121 |
GAD_U3C4_IMPL_R |
rC4km2D (i,j) = oneSixth*(rCenter+ABS(rCenter))*mskM |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
122 |
GAD_U3C4_IMPL_R |
rC4kp2D (i,j) = oneSixth*(rCenter-ABS(rCenter))*mskP |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
127 |
GAD_U3C4_IMPL_R |
DO j=jMin,jMax |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
130 |
GAD_U3C4_IMPL_R |
rC4km = rC4km2D (i,j) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
131 |
GAD_U3C4_IMPL_R |
rC4kp = rC4kp2D (i,j) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
132 |
GAD_U3C4_IMPL_R |
rCenter = rCenter2D(i,j) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
133 |
GAD_U3C4_IMPL_R |
rUpwind = rUpwind2D(i,j) |
|
./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 |
143 |
GAD_U3C4_IMPL_R |
wCFL = deltaTcfl*ABS(rTrans(i,j)) |
|
./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 |
157 |
GAD_U3C4_IMPL_R |
a5d(i,j,k) = a5d(i,j,k) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
160 |
GAD_U3C4_IMPL_R |
& *recip_hFac(i,j,k)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
162 |
GAD_U3C4_IMPL_R |
b5d(i,j,k) = b5d(i,j,k) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
165 |
GAD_U3C4_IMPL_R |
& *recip_hFac(i,j,k)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
167 |
GAD_U3C4_IMPL_R |
c5d(i,j,k) = c5d(i,j,k) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
170 |
GAD_U3C4_IMPL_R |
& *recip_hFac(i,j,k)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
172 |
GAD_U3C4_IMPL_R |
d5d(i,j,k) = d5d(i,j,k) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
175 |
GAD_U3C4_IMPL_R |
& *recip_hFac(i,j,k)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
177 |
GAD_U3C4_IMPL_R |
b5d(i,j,k-1) = b5d(i,j,k-1) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
180 |
GAD_U3C4_IMPL_R |
& *recip_hFac(i,j,k-1)*recip_drF(k-1) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
182 |
GAD_U3C4_IMPL_R |
c5d(i,j,k-1) = c5d(i,j,k-1) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
185 |
GAD_U3C4_IMPL_R |
& *recip_hFac(i,j,k-1)*recip_drF(k-1) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
187 |
GAD_U3C4_IMPL_R |
d5d(i,j,k-1) = d5d(i,j,k-1) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
190 |
GAD_U3C4_IMPL_R |
& *recip_hFac(i,j,k-1)*recip_drF(k-1) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
192 |
GAD_U3C4_IMPL_R |
e5d(i,j,k-1) = e5d(i,j,k-1) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
195 |
GAD_U3C4_IMPL_R |
& *recip_hFac(i,j,k-1)*recip_drF(k-1) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
72 |
GAD_U3C4_IMPL_R |
INTEGER i,j,kp1,km2 |
|
./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 |
62 |
SALT_FILL |
INTEGER bi,bj,i,j,L,LM1 |
|
./pkg/generic_advdiff/salt_fill.F |
88 |
SALT_FILL |
do j=1,sNy |
|
./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/generic_advdiff/salt_fill.F |
99 |
SALT_FILL |
do j=1,sNy |
|
./pkg/ggl90/ggl90_calc.F |
153 |
GGL90_CALC |
DO j=1-OLy,sNy+OLy |
|
./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 |
162 |
GGL90_CALC |
hFacI(i,j,k) = hFac |
|
./pkg/ggl90/ggl90_calc.F |
170 |
GGL90_CALC |
DO j=1-OLy,sNy+OLy |
|
./pkg/ggl90/ggl90_calc.F |
172 |
GGL90_CALC |
rMixingLength(i,j,k) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
173 |
GGL90_CALC |
mxLength_Dn(i,j,k) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
174 |
GGL90_CALC |
GGL90visctmp(i,j,k) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
175 |
GGL90_CALC |
KappaE(i,j,k) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
176 |
GGL90_CALC |
TKEPrandtlNumber(i,j,k) = 1. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
177 |
GGL90_CALC |
GGL90mixingLength(i,j,k) = GGL90mixingLengthMin |
|
./pkg/ggl90/ggl90_calc.F |
178 |
GGL90_CALC |
GGL90visctmp(i,j,k) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
180 |
GGL90_CALC |
a3d(i,j,k) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
181 |
GGL90_CALC |
b3d(i,j,k) = 1. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
182 |
GGL90_CALC |
c3d(i,j,k) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
184 |
GGL90_CALC |
Nsquare(i,j,k) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
185 |
GGL90_CALC |
SQRTTKE(i,j,k) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
189 |
GGL90_CALC |
DO j=1-OLy,sNy+OLy |
|
./pkg/ggl90/ggl90_calc.F |
191 |
GGL90_CALC |
KappaM(i,j) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
192 |
GGL90_CALC |
verticalShear(i,j) = 0. _d 0 |
|
./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 |
194 |
GGL90_CALC |
rMixingLength(i,j,1) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
195 |
GGL90_CALC |
mxLength_Dn(i,j,1) = GGL90mixingLengthMin |
|
./pkg/ggl90/ggl90_calc.F |
196 |
GGL90_CALC |
SQRTTKE(i,j,1) = SQRT( GGL90TKE(i,j,1,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
198 |
GGL90_CALC |
xA(i,j) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
199 |
GGL90_CALC |
yA(i,j) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
200 |
GGL90_CALC |
dfx(i,j) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
201 |
GGL90_CALC |
dfy(i,j) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
202 |
GGL90_CALC |
gTKE(i,j) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
213 |
GGL90_CALC |
DO j=jMin,jMax |
|
./pkg/ggl90/ggl90_calc.F |
215 |
GGL90_CALC |
SQRTTKE(i,j,k)=SQRT( GGL90TKE(i,j,k,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
218 |
GGL90_CALC |
Nsquare(i,j,k) = gravity*gravitySign*recip_rhoConst |
|
./pkg/ggl90/ggl90_calc.F |
219 |
GGL90_CALC |
& * sigmaR(i,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
223 |
GGL90_CALC |
GGL90mixingLength(i,j,k) = SQRTTWO * |
|
./pkg/ggl90/ggl90_calc.F |
224 |
GGL90_CALC |
& SQRTTKE(i,j,k)/SQRT( MAX(Nsquare(i,j,k),GGL90eps) ) |
|
./pkg/ggl90/ggl90_calc.F |
231 |
GGL90_CALC |
DO j=jMin,jMax |
|
./pkg/ggl90/ggl90_calc.F |
233 |
GGL90_CALC |
GGL90mixingLength(i,j,2)=drF(1) |
|
./pkg/ggl90/ggl90_calc.F |
243 |
GGL90_CALC |
DO j=jMin,jMax |
|
./pkg/ggl90/ggl90_calc.F |
245 |
GGL90_CALC |
MaxLength=totalDepth(i,j) |
|
./pkg/ggl90/ggl90_calc.F |
246 |
GGL90_CALC |
GGL90mixingLength(i,j,k) = MIN(GGL90mixingLength(i,j,k), |
|
./pkg/ggl90/ggl90_calc.F |
253 |
GGL90_CALC |
DO j=jMin,jMax |
|
./pkg/ggl90/ggl90_calc.F |
255 |
GGL90_CALC |
GGL90mixingLength(i,j,k) = MAX(GGL90mixingLength(i,j,k), |
|
./pkg/ggl90/ggl90_calc.F |
257 |
GGL90_CALC |
rMixingLength(i,j,k) = 1. _d 0 / GGL90mixingLength(i,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
265 |
GGL90_CALC |
DO j=jMin,jMax |
|
./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 |
269 |
GGL90_CALC |
GGL90mixingLength(i,j,k) = MIN(GGL90mixingLength(i,j,k), |
|
./pkg/ggl90/ggl90_calc.F |
276 |
GGL90_CALC |
DO j=jMin,jMax |
|
./pkg/ggl90/ggl90_calc.F |
278 |
GGL90_CALC |
GGL90mixingLength(i,j,k) = MAX(GGL90mixingLength(i,j,k), |
|
./pkg/ggl90/ggl90_calc.F |
280 |
GGL90_CALC |
rMixingLength(i,j,k) = 1. _d 0 / GGL90mixingLength(i,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
288 |
GGL90_CALC |
DO j=jMin,jMax |
|
./pkg/ggl90/ggl90_calc.F |
290 |
GGL90_CALC |
GGL90mixingLength(i,j,k) = MIN(GGL90mixingLength(i,j,k), |
|
./pkg/ggl90/ggl90_calc.F |
291 |
GGL90_CALC |
& GGL90mixingLength(i,j,k-1)+drF(k-1)) |
|
./pkg/ggl90/ggl90_calc.F |
295 |
GGL90_CALC |
DO j=jMin,jMax |
|
./pkg/ggl90/ggl90_calc.F |
297 |
GGL90_CALC |
GGL90mixingLength(i,j,Nr) = MIN(GGL90mixingLength(i,j,Nr), |
|
./pkg/ggl90/ggl90_calc.F |
302 |
GGL90_CALC |
DO j=jMin,jMax |
|
./pkg/ggl90/ggl90_calc.F |
304 |
GGL90_CALC |
GGL90mixingLength(i,j,k) = MIN(GGL90mixingLength(i,j,k), |
|
./pkg/ggl90/ggl90_calc.F |
305 |
GGL90_CALC |
& GGL90mixingLength(i,j,k+1)+drF(k)) |
|
./pkg/ggl90/ggl90_calc.F |
311 |
GGL90_CALC |
DO j=jMin,jMax |
|
./pkg/ggl90/ggl90_calc.F |
313 |
GGL90_CALC |
GGL90mixingLength(i,j,k) = MAX(GGL90mixingLength(i,j,k), |
|
./pkg/ggl90/ggl90_calc.F |
315 |
GGL90_CALC |
rMixingLength(i,j,k) = 1. _d 0 / GGL90mixingLength(i,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
323 |
GGL90_CALC |
DO j=jMin,jMax |
|
./pkg/ggl90/ggl90_calc.F |
325 |
GGL90_CALC |
mxLength_Dn(i,j,k) = MIN(GGL90mixingLength(i,j,k), |
|
./pkg/ggl90/ggl90_calc.F |
326 |
GGL90_CALC |
& mxLength_Dn(i,j,k-1)+drF(k-1)) |
|
./pkg/ggl90/ggl90_calc.F |
330 |
GGL90_CALC |
DO j=jMin,jMax |
|
./pkg/ggl90/ggl90_calc.F |
332 |
GGL90_CALC |
GGL90mixingLength(i,j,Nr) = MIN(GGL90mixingLength(i,j,Nr), |
|
./pkg/ggl90/ggl90_calc.F |
337 |
GGL90_CALC |
DO j=jMin,jMax |
|
./pkg/ggl90/ggl90_calc.F |
339 |
GGL90_CALC |
GGL90mixingLength(i,j,k) = MIN(GGL90mixingLength(i,j,k), |
|
./pkg/ggl90/ggl90_calc.F |
340 |
GGL90_CALC |
& GGL90mixingLength(i,j,k+1)+drF(k)) |
|
./pkg/ggl90/ggl90_calc.F |
346 |
GGL90_CALC |
DO j=jMin,jMax |
|
./pkg/ggl90/ggl90_calc.F |
348 |
GGL90_CALC |
GGL90mixingLength(i,j,k) = MIN(GGL90mixingLength(i,j,k), |
|
./pkg/ggl90/ggl90_calc.F |
349 |
GGL90_CALC |
& mxLength_Dn(i,j,k)) |
|
./pkg/ggl90/ggl90_calc.F |
350 |
GGL90_CALC |
tmpmlx = SQRT( GGL90mixingLength(i,j,k)*mxLength_Dn(i,j,k) ) |
|
./pkg/ggl90/ggl90_calc.F |
352 |
GGL90_CALC |
rMixingLength(i,j,k) = 1. _d 0 / tmpmlx |
|
./pkg/ggl90/ggl90_calc.F |
371 |
GGL90_CALC |
DO j=1-OLy,sNy+OLy |
|
./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 |
383 |
GGL90_CALC |
DO j=1-OLy,sNy+OLy |
|
./pkg/ggl90/ggl90_calc.F |
384 |
GGL90_CALC |
dfx(1-OLx,j)=0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
386 |
GGL90_CALC |
dfx(i,j) = -GGL90diffTKEh*xA(i,j) |
|
./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 |
398 |
GGL90_CALC |
DO j=1-OLy+1,sNy+OLy |
|
./pkg/ggl90/ggl90_calc.F |
400 |
GGL90_CALC |
dfy(i,j) = -GGL90diffTKEh*yA(i,j) |
|
./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 |
409 |
GGL90_CALC |
DO j=1-OLy,sNy+OLy-1 |
|
./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 |
412 |
GGL90_CALC |
& *recip_hFacI(i,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
413 |
GGL90_CALC |
& *((dfx(i+1,j)-dfx(i,j)) |
|
./pkg/ggl90/ggl90_calc.F |
414 |
GGL90_CALC |
& + (dfy(i,j+1)-dfy(i,j)) ) |
|
./pkg/ggl90/ggl90_calc.F |
422 |
GGL90_CALC |
DO j=jMin,jMax |
|
./pkg/ggl90/ggl90_calc.F |
424 |
GGL90_CALC |
KappaM(i,j) = GGL90ck*GGL90mixingLength(i,j,k)*SQRTTKE(i,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
425 |
GGL90_CALC |
GGL90visctmp(i,j,k) = MAX(KappaM(i,j),diffKrNrS(k)) |
|
./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 |
436 |
GGL90_CALC |
DO j=jMin,jMax |
|
./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 |
442 |
GGL90_CALC |
verticalShear(i,j) = ( |
|
./pkg/ggl90/ggl90_calc.F |
450 |
GGL90_CALC |
DO j=jMin,jMax |
|
./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 |
458 |
GGL90_CALC |
verticalShear(i,j) = tempU*tempU + tempV*tempV |
|
./pkg/ggl90/ggl90_calc.F |
466 |
GGL90_CALC |
DO j=jMin,jMax |
|
./pkg/ggl90/ggl90_calc.F |
469 |
GGL90_CALC |
verticalShear(i,j) = verticalShear(i,j) |
|
./pkg/ggl90/ggl90_calc.F |
470 |
GGL90_CALC |
& * recip_hFacI(i,j,k)*recip_hFacI(i,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
471 |
GGL90_CALC |
RiNumber = MAX(Nsquare(i,j,k),0. _d 0) |
|
./pkg/ggl90/ggl90_calc.F |
472 |
GGL90_CALC |
& /(verticalShear(i,j)+GGL90eps) |
|
./pkg/ggl90/ggl90_calc.F |
474 |
GGL90_CALC |
IDEMIX_RiNumber = MAX( KappaM(i,j)*Nsquare(i,j,k), 0. _d 0)/ |
|
./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 |
477 |
GGL90_CALC |
TKEPrandtlNumber(i,j,k) = MIN(10. _d 0,prTemp) |
|
./pkg/ggl90/ggl90_calc.F |
478 |
GGL90_CALC |
TKEPrandtlNumber(i,j,k) = MAX( 1. _d 0,TKEPrandtlNumber(i,j,k)) |
|
./pkg/ggl90/ggl90_calc.F |
485 |
GGL90_CALC |
DO j=jMin,jMax |
|
./pkg/ggl90/ggl90_calc.F |
487 |
GGL90_CALC |
RiNumber = MAX(Nsquare(i,j,k),0. _d 0) |
|
./pkg/ggl90/ggl90_calc.F |
488 |
GGL90_CALC |
& /(verticalShear(i,j)+GGL90eps) |
|
./pkg/ggl90/ggl90_calc.F |
491 |
GGL90_CALC |
TKEPrandtlNumber(i,j,k) = MIN(10. _d 0,prTemp) |
|
./pkg/ggl90/ggl90_calc.F |
496 |
GGL90_CALC |
DO j=jMin,jMax |
|
./pkg/ggl90/ggl90_calc.F |
499 |
GGL90_CALC |
KappaH = KappaM(i,j)/TKEPrandtlNumber(i,j,k) |
|
./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 |
504 |
GGL90_CALC |
& *SQRTTKE(i,j,k)*rMixingLength(i,j,k) |
|
./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 |
509 |
GGL90_CALC |
& + KappaM(i,j)*verticalShear(i,j) |
|
./pkg/ggl90/ggl90_calc.F |
510 |
GGL90_CALC |
& - KappaH*Nsquare(i,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
519 |
GGL90_CALC |
DO j=jMin,jMax |
|
./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 |
533 |
GGL90_CALC |
DO j=jMin,jMax |
|
./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 |
536 |
GGL90_CALC |
& + gTKE(i,j)*deltaTggl90 |
|
./pkg/ggl90/ggl90_calc.F |
551 |
GGL90_CALC |
DO j=jMin,jMax |
|
./pkg/ggl90/ggl90_calc.F |
553 |
GGL90_CALC |
a3d(i,j,1) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
558 |
GGL90_CALC |
DO j=jMin,jMax |
|
./pkg/ggl90/ggl90_calc.F |
563 |
GGL90_CALC |
a3d(i,j,k) = -deltaTggl90 |
|
./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 |
565 |
GGL90_CALC |
& *.5 _d 0*(KappaE(i,j, k )+KappaE(i,j,km1)) |
|
./pkg/ggl90/ggl90_calc.F |
566 |
GGL90_CALC |
& *recip_drC(k)*maskC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
571 |
GGL90_CALC |
DO j=jMin,jMax |
|
./pkg/ggl90/ggl90_calc.F |
573 |
GGL90_CALC |
c3d(i,j,1) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
577 |
GGL90_CALC |
DO j=jMin,jMax |
|
./pkg/ggl90/ggl90_calc.F |
579 |
GGL90_CALC |
kp1=MAX(1,MIN(klowC(i,j,bi,bj),k+1)) |
|
./pkg/ggl90/ggl90_calc.F |
583 |
GGL90_CALC |
c3d(i,j,k) = -deltaTggl90 |
|
./pkg/ggl90/ggl90_calc.F |
584 |
GGL90_CALC |
& *recip_drF( k ) * recip_hFacC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
585 |
GGL90_CALC |
& *.5 _d 0*(KappaE(i,j,k)+KappaE(i,j,kp1)) |
|
./pkg/ggl90/ggl90_calc.F |
586 |
GGL90_CALC |
& *recip_drC(k)*maskC(i,j,k-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
594 |
GGL90_CALC |
DO j=jMin,jMax |
|
./pkg/ggl90/ggl90_calc.F |
596 |
GGL90_CALC |
a3d(i,j,k) = a3d(i,j,k)*recip_hFacI(i,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
597 |
GGL90_CALC |
c3d(i,j,k) = c3d(i,j,k)*recip_hFacI(i,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
606 |
GGL90_CALC |
DO j=jMin,jMax |
|
./pkg/ggl90/ggl90_calc.F |
608 |
GGL90_CALC |
kBottom = MAX(kLowC(i,j,bi,bj),1) |
|
./pkg/ggl90/ggl90_calc.F |
609 |
GGL90_CALC |
c3d(i,j,kBottom) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
617 |
GGL90_CALC |
DO j=jMin,jMax |
|
./pkg/ggl90/ggl90_calc.F |
619 |
GGL90_CALC |
b3d(i,j,k) = 1. _d 0 - c3d(i,j,k) - a3d(i,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
620 |
GGL90_CALC |
& + implDissFac*deltaTggl90*GGL90ceps*SQRTTKE(i,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
621 |
GGL90_CALC |
& * rMixingLength(i,j,k) |
|
./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 |
630 |
GGL90_CALC |
DO j=jMin,jMax |
|
./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 |
644 |
GGL90_CALC |
a3d(i,j,kp1) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
650 |
GGL90_CALC |
DO j=jMin,jMax |
|
./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 |
654 |
GGL90_CALC |
& - GGL90TKEbottom*c3d(i,j,kBottom) |
|
./pkg/ggl90/ggl90_calc.F |
655 |
GGL90_CALC |
c3d(i,j,kBottom) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
669 |
GGL90_CALC |
DO j=jMin,jMax |
|
./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 |
682 |
GGL90_CALC |
DO j=1,sNy |
|
./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 |
707 |
GGL90_CALC |
tmpVisc = GGL90visctmp(i,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
709 |
GGL90_CALC |
tmpVisc = MIN(tmpVisc/TKEPrandtlNumber(i,j,k),GGL90diffMax) |
|
./pkg/ggl90/ggl90_calc.F |
710 |
GGL90_CALC |
GGL90diffKr(i,j,k,bi,bj)= MAX( tmpVisc , diffKrNrS(k) ) |
|
./pkg/ggl90/ggl90_calc.F |
716 |
GGL90_CALC |
DO j=1,sNy |
|
./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 |
736 |
GGL90_CALC |
& *( GGL90visctmp(i-1,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
737 |
GGL90_CALC |
& + GGL90visctmp(i,j,k) ) |
|
./pkg/ggl90/ggl90_calc.F |
740 |
GGL90_CALC |
GGL90viscArU(i,j,k,bi,bj) = MAX( tmpVisc, viscArNr(k) ) |
|
./pkg/ggl90/ggl90_calc.F |
746 |
GGL90_CALC |
DO j=1,sNy+1 |
|
./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 |
766 |
GGL90_CALC |
& *( GGL90visctmp(i,j-1,k) |
|
./pkg/ggl90/ggl90_calc.F |
767 |
GGL90_CALC |
& + GGL90visctmp(i,j,k) ) |
|
./pkg/ggl90/ggl90_calc.F |
770 |
GGL90_CALC |
GGL90viscArV(i,j,k,bi,bj) = MAX( tmpVisc, viscArNr(k) ) |
|
./pkg/ggl90/ggl90_calc.F |
78 |
GGL90_CALC |
INTEGER i, j, k, kp1, km1, kSurf, kBottom |
|
./pkg/ggl90/ggl90_calc.F |
791 |
GGL90_CALC |
DO j=jMin,jMax |
|
./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 |
797 |
GGL90_CALC |
& *KappaE(i,j,kp1) |
|
./pkg/ggl90/ggl90_calc.F |
804 |
GGL90_CALC |
DO j=jMin,jMax |
|
./pkg/ggl90/ggl90_calc.F |
807 |
GGL90_CALC |
surf_flx_tke(i,j) = |
|
./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_diff.F |
45 |
GGL90_CALC_DIFF |
INTEGER i,j,k |
|
./pkg/ggl90/ggl90_calc_diff.F |
51 |
GGL90_CALC_DIFF |
DO j=jMin,jMax |
|
./pkg/ggl90/ggl90_calc_diff.F |
53 |
GGL90_CALC_DIFF |
KappaRx(i,j,k) = KappaRx(i,j,k) |
|
./pkg/ggl90/ggl90_calc_diff.F |
54 |
GGL90_CALC_DIFF |
& +( GGL90diffKr(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc_diff.F |
62 |
GGL90_CALC_DIFF |
DO j=jMin,jMax |
|
./pkg/ggl90/ggl90_calc_diff.F |
64 |
GGL90_CALC_DIFF |
KappaRx(i,j,k) = KappaRx(i,j,k) |
|
./pkg/ggl90/ggl90_calc_diff.F |
65 |
GGL90_CALC_DIFF |
& +( GGL90diffKr(i,j,kArg,bi,bj) |
|
./pkg/ggl90/ggl90_calc_visc.F |
40 |
GGL90_CALC_VISC |
INTEGER i,j |
|
./pkg/ggl90/ggl90_calc_visc.F |
47 |
GGL90_CALC_VISC |
DO j=jMin,jMax |
|
./pkg/ggl90/ggl90_calc_visc.F |
49 |
GGL90_CALC_VISC |
KappaRU(i,j,k) = KappaRU(i,j,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 |
54 |
GGL90_CALC_VISC |
DO j=jMin,jMax |
|
./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_idemix.F |
101 |
GGL90_IDEMIX |
DO j=1-OLy,sNy+OLy |
|
./pkg/ggl90/ggl90_idemix.F |
103 |
GGL90_IDEMIX |
dfx(i,j) = 0. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
104 |
GGL90_IDEMIX |
dfy(i,j) = 0. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
105 |
GGL90_IDEMIX |
bN0(i,j) = 0. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
106 |
GGL90_IDEMIX |
gm_forc(i,j) = 0. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
113 |
GGL90_IDEMIX |
DO j=1-OLy,sNy+OLy |
|
./pkg/ggl90/ggl90_idemix.F |
115 |
GGL90_IDEMIX |
Nsquare(i,j,k) = gravity*gravitySign*recip_rhoConst |
|
./pkg/ggl90/ggl90_idemix.F |
116 |
GGL90_IDEMIX |
& * sigmaR(i,j,k) |
|
./pkg/ggl90/ggl90_idemix.F |
117 |
GGL90_IDEMIX |
fxb = max( 1. _d -6, abs( fCori(i,j,bi,bj) )) |
|
./pkg/ggl90/ggl90_idemix.F |
118 |
GGL90_IDEMIX |
Nsquare(i,j,k)= max( 100.*fxb*fxb, Nsquare(i,j,k) ) |
|
./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 |
127 |
GGL90_IDEMIX |
DO j=1-OLy,sNy+OLy |
|
./pkg/ggl90/ggl90_idemix.F |
129 |
GGL90_IDEMIX |
bN0(i,j)=bN0(i,j) |
|
./pkg/ggl90/ggl90_idemix.F |
130 |
GGL90_IDEMIX |
& +SQRT(Nsquare(i,j,k))*drC(k)*hFacI(i,j,k) |
|
./pkg/ggl90/ggl90_idemix.F |
139 |
GGL90_IDEMIX |
DO j=1-OLy,sNy+OLy |
|
./pkg/ggl90/ggl90_idemix.F |
141 |
GGL90_IDEMIX |
fxb = max( 1. _d -6, abs( fCori(i,j,bi,bj) )) |
|
./pkg/ggl90/ggl90_idemix.F |
142 |
GGL90_IDEMIX |
fxa = SQRT(Nsquare(i,j,k))/fxb |
|
./pkg/ggl90/ggl90_idemix.F |
143 |
GGL90_IDEMIX |
cstar = bN0(i,j)/(pi*IDEMIX_jstar) |
|
./pkg/ggl90/ggl90_idemix.F |
144 |
GGL90_IDEMIX |
c0(i,j,k)=max(0. _d 0, |
|
./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 |
151 |
GGL90_IDEMIX |
& (IDEMIX_jstar*pi/(GGL90eps+bN0(i,j)) )**2 |
|
./pkg/ggl90/ggl90_idemix.F |
162 |
GGL90_IDEMIX |
DO j=1-OLy,sNy+OLy |
|
./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 |
179 |
GGL90_IDEMIX |
DO j=1-OLy,sNy+OLy |
|
./pkg/ggl90/ggl90_idemix.F |
181 |
GGL90_IDEMIX |
gm_forc(i,j) = gm_forc(i,j) |
|
./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 |
188 |
GGL90_IDEMIX |
DO j=1-OLy,sNy+OLy |
|
./pkg/ggl90/ggl90_idemix.F |
190 |
GGL90_IDEMIX |
gm_forc(i,j) = gm_forc(i,j) |
|
./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 |
192 |
GGL90_IDEMIX |
& *drC(k)*hFacI(i,j,k) |
|
./pkg/ggl90/ggl90_idemix.F |
203 |
GGL90_IDEMIX |
DO j=1-OLy,sNy+OLy |
|
./pkg/ggl90/ggl90_idemix.F |
205 |
GGL90_IDEMIX |
forc(i,j,k) = forc(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 |
213 |
GGL90_IDEMIX |
DO j=1-OLy,sNy+OLy |
|
./pkg/ggl90/ggl90_idemix.F |
215 |
GGL90_IDEMIX |
forc(i,j,k) = forc(i,j,k) |
|
./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 |
225 |
GGL90_IDEMIX |
DO j=1-OLy,sNy+OLy |
|
./pkg/ggl90/ggl90_idemix.F |
227 |
GGL90_IDEMIX |
kBottom = MAX(kLowC(i,j,bi,bj),1) |
|
./pkg/ggl90/ggl90_idemix.F |
228 |
GGL90_IDEMIX |
forc(i,j,kbottom)=forc(i,j,kbottom) |
|
./pkg/ggl90/ggl90_idemix.F |
229 |
GGL90_IDEMIX |
& + gm_forc(i,j)*recip_drC(kbottom) |
|
./pkg/ggl90/ggl90_idemix.F |
230 |
GGL90_IDEMIX |
& *recip_hFacI(i,j,kbottom) |
|
./pkg/ggl90/ggl90_idemix.F |
240 |
GGL90_IDEMIX |
DO j=1-OLy,sNy+OLy |
|
./pkg/ggl90/ggl90_idemix.F |
241 |
GGL90_IDEMIX |
dfx(1-OLx,j)=0. _d 0 |
|
./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 |
258 |
GGL90_IDEMIX |
DO j=1-OLy+1,sNy+OLy |
|
./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 |
275 |
GGL90_IDEMIX |
DO j=jMin,jMax |
|
./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 |
279 |
GGL90_IDEMIX |
& *recip_hFacI(i,j,k) |
|
./pkg/ggl90/ggl90_idemix.F |
280 |
GGL90_IDEMIX |
& *((dfx(i+1,j)-dfx(i,j))+(dfy(i,j+1)-dfy(i,j)) ) ) |
|
./pkg/ggl90/ggl90_idemix.F |
281 |
GGL90_IDEMIX |
& *maskC(i,j,k,bi,bj) ! paranoia setting |
|
./pkg/ggl90/ggl90_idemix.F |
289 |
GGL90_IDEMIX |
DO j=jMin,jMax |
|
./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 |
292 |
GGL90_IDEMIX |
& + forc(i,j,k)*deltaTggl90 |
|
./pkg/ggl90/ggl90_idemix.F |
302 |
GGL90_IDEMIX |
DO j=jMin,jMax |
|
./pkg/ggl90/ggl90_idemix.F |
304 |
GGL90_IDEMIX |
delta(i,j,k) = deltaTggl90*IDEMIX_tau_v |
|
./pkg/ggl90/ggl90_idemix.F |
305 |
GGL90_IDEMIX |
& *recip_drF(k)*recip_hFacC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
306 |
GGL90_IDEMIX |
& *.5 _d 0*(c0(i,j,k)+c0(i,j,k+1)) |
|
./pkg/ggl90/ggl90_idemix.F |
310 |
GGL90_IDEMIX |
DO j=jMin,jMax |
|
./pkg/ggl90/ggl90_idemix.F |
312 |
GGL90_IDEMIX |
delta(i,j,1) = 0. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
313 |
GGL90_IDEMIX |
delta(i,j,Nr) = 0. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
314 |
GGL90_IDEMIX |
kBottom = MAX(kLowC(i,j,bi,bj),1) |
|
./pkg/ggl90/ggl90_idemix.F |
315 |
GGL90_IDEMIX |
delta(i,j,kBottom) = 0. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
320 |
GGL90_IDEMIX |
DO j=jMin,jMax |
|
./pkg/ggl90/ggl90_idemix.F |
322 |
GGL90_IDEMIX |
a3d(i,j,1) = 0. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
323 |
GGL90_IDEMIX |
a3d(i,j,2) = 0. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
328 |
GGL90_IDEMIX |
DO j=jMin,jMax |
|
./pkg/ggl90/ggl90_idemix.F |
331 |
GGL90_IDEMIX |
a3d(i,j,k) = -delta(i,j,k-1)*c0(i,j,km1) |
|
./pkg/ggl90/ggl90_idemix.F |
332 |
GGL90_IDEMIX |
& *recip_drC(k)*recip_hFacI(i,j,k) |
|
./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 |
340 |
GGL90_IDEMIX |
DO j=jMin,jMax |
|
./pkg/ggl90/ggl90_idemix.F |
343 |
GGL90_IDEMIX |
kp1=MAX(1,MIN(klowC(i,j,bi,bj),k+1)) |
|
./pkg/ggl90/ggl90_idemix.F |
344 |
GGL90_IDEMIX |
c3d(i,j,k) = -delta(i,j,k)*c0(i,j,kp1) |
|
./pkg/ggl90/ggl90_idemix.F |
345 |
GGL90_IDEMIX |
& *recip_drC(k)*recip_hFacI(i,j,k) |
|
./pkg/ggl90/ggl90_idemix.F |
346 |
GGL90_IDEMIX |
& *maskC(i,j,k-1,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
351 |
GGL90_IDEMIX |
DO j=jMin,jMax ! c3d at bottom is zero |
|
./pkg/ggl90/ggl90_idemix.F |
353 |
GGL90_IDEMIX |
c3d(i,j,1) = 0. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
354 |
GGL90_IDEMIX |
kBottom = MAX(kLowC(i,j,bi,bj),1) |
|
./pkg/ggl90/ggl90_idemix.F |
355 |
GGL90_IDEMIX |
c3d(i,j,kBottom) = 0. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
360 |
GGL90_IDEMIX |
DO j=jMin,jMax |
|
./pkg/ggl90/ggl90_idemix.F |
362 |
GGL90_IDEMIX |
b3d(i,j,1) = 1. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
367 |
GGL90_IDEMIX |
DO j=jMin,jMax |
|
./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 |
373 |
GGL90_IDEMIX |
b3d(i,j,k) = b3d(i,j,k) + delta(i,j,k)*c0(i,j,k) |
|
./pkg/ggl90/ggl90_idemix.F |
374 |
GGL90_IDEMIX |
& *recip_drC(k)*recip_hFacI(i,j,k) |
|
./pkg/ggl90/ggl90_idemix.F |
375 |
GGL90_IDEMIX |
& *maskC(i,j,km1,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
377 |
GGL90_IDEMIX |
b3d(i,j,k) = b3d(i,j,k) + delta(i,j,km1)*c0(i,j,k) |
|
./pkg/ggl90/ggl90_idemix.F |
378 |
GGL90_IDEMIX |
& *recip_drC(k)*recip_hFacI(i,j,k) |
|
./pkg/ggl90/ggl90_idemix.F |
379 |
GGL90_IDEMIX |
& *maskC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
385 |
GGL90_IDEMIX |
DO j=jMin,jMax |
|
./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 |
393 |
GGL90_IDEMIX |
& + delta(i,j,km1 )*c0(i,j,k) |
|
./pkg/ggl90/ggl90_idemix.F |
394 |
GGL90_IDEMIX |
& *recip_drC(k)*recip_hFacI(i,j,k) |
|
./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 |
401 |
GGL90_IDEMIX |
& + delta(i,j,k)*c0(i,j,k) |
|
./pkg/ggl90/ggl90_idemix.F |
402 |
GGL90_IDEMIX |
& *recip_drC(k)*recip_hFacI(i,j,k) |
|
./pkg/ggl90/ggl90_idemix.F |
403 |
GGL90_IDEMIX |
& *maskC(i,j,km1,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
409 |
GGL90_IDEMIX |
DO j=jMin,jMax |
|
./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 |
414 |
GGL90_IDEMIX |
& *recip_drC(k)*recip_hFacI(i,j,k) |
|
./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 |
419 |
GGL90_IDEMIX |
& *recip_drC(k)*recip_hFacI(i,j,k) |
|
./pkg/ggl90/ggl90_idemix.F |
420 |
GGL90_IDEMIX |
& *maskC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
440 |
GGL90_IDEMIX |
DO j=jMin,jMax |
|
./pkg/ggl90/ggl90_idemix.F |
442 |
GGL90_IDEMIX |
osborn_diff(i,j,k) = IDEMIX_mixing_efficiency |
|
./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 |
446 |
GGL90_IDEMIX |
osborn_diff(i,j,k) = min(IDEMIX_diff_max,osborn_diff(i,j,k)) |
|
./pkg/ggl90/ggl90_idemix.F |
60 |
GGL90_IDEMIX |
INTEGER i, j, k, kp1, km1, kBottom |
|
./pkg/ggl90/ggl90_idemix.F |
88 |
GGL90_IDEMIX |
DO j=1-OLy,sNy+OLy |
|
./pkg/ggl90/ggl90_idemix.F |
90 |
GGL90_IDEMIX |
Nsquare(i,j,k) = 0. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
91 |
GGL90_IDEMIX |
delta(i,j,k) = 0. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
92 |
GGL90_IDEMIX |
a3d(i,j,k) = 0. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
93 |
GGL90_IDEMIX |
b3d(i,j,k) = 1. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
94 |
GGL90_IDEMIX |
c3d(i,j,k) = 0. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
95 |
GGL90_IDEMIX |
osborn_diff(i,j,k) = 0. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
96 |
GGL90_IDEMIX |
c0(i,j,k) = 0. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
97 |
GGL90_IDEMIX |
forc(i,j,k) = 0. _d 0 |
|
./pkg/ggl90/ggl90_init_fixed.F |
33 |
GGL90_INIT_FIXED |
INTEGER i, j, bi, bj |
|
./pkg/ggl90/ggl90_init_fixed.F |
52 |
GGL90_INIT_FIXED |
DO j=1-OLy,sNy+OLy |
|
./pkg/ggl90/ggl90_init_fixed.F |
54 |
GGL90_INIT_FIXED |
mskCor(i,j,bi,bj) = 1. _d 0 |
|
./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 |
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/gmredi/gmredi_calc_diff.F |
49 |
GMREDI_CALC_DIFF |
INTEGER i,j,k |
|
./pkg/gmredi/gmredi_calc_diff.F |
55 |
GMREDI_CALC_DIFF |
DO j=jMin,jMax |
|
./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 |
74 |
GMREDI_CALC_DIFF |
DO j=jMin,jMax |
|
./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 |
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 |
102 |
GMREDI_CALC_EIGS |
DO j=1-OLy,sNy+OLy |
|
./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 |
108 |
GMREDI_CALC_EIGS |
DO j=1-Oly,sNy+Oly |
|
./pkg/gmredi/gmredi_calc_eigs.F |
111 |
GMREDI_CALC_EIGS |
vec(m,i,j,k) = zeroRL |
|
./pkg/gmredi/gmredi_calc_eigs.F |
123 |
GMREDI_CALC_EIGS |
DO j=1-OLy,sNy+OLy |
|
./pkg/gmredi/gmredi_calc_eigs.F |
125 |
GMREDI_CALC_EIGS |
IF (kLow(i,j) .GT. 0) THEN |
|
./pkg/gmredi/gmredi_calc_eigs.F |
127 |
GMREDI_CALC_EIGS |
a3d(i,j,k) = zeroRL |
|
./pkg/gmredi/gmredi_calc_eigs.F |
128 |
GMREDI_CALC_EIGS |
c3d(i,j,k) = fCori2(i,j)*recip_hFac(i,j,k) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
129 |
GMREDI_CALC_EIGS |
& *recip_drC(k+1)*recip_drF(k)/N2(i,j,k+1) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
130 |
GMREDI_CALC_EIGS |
b3d(i,j,k) = -c3d(i,j,k) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
132 |
GMREDI_CALC_EIGS |
ELSEIF (k.LT.kLow(i,j)) THEN |
|
./pkg/gmredi/gmredi_calc_eigs.F |
133 |
GMREDI_CALC_EIGS |
a3d(i,j,k) = fCori2(i,j)*recip_hFac(i,j,k) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
134 |
GMREDI_CALC_EIGS |
& *recip_drF(k)*recip_drC(k)/N2(i,j,k) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
135 |
GMREDI_CALC_EIGS |
c3d(i,j,k) = fCori2(i,j)*recip_hFac(i,j,k) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
136 |
GMREDI_CALC_EIGS |
& *recip_drF(k)*recip_drC(k+1)/N2(i,j,k+1) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
137 |
GMREDI_CALC_EIGS |
b3d(i,j,k) = -a3d(i,j,k)-c3d(i,j,k) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
139 |
GMREDI_CALC_EIGS |
ELSEIF (k.EQ.kLow(i,j)) THEN |
|
./pkg/gmredi/gmredi_calc_eigs.F |
140 |
GMREDI_CALC_EIGS |
a3d(i,j,k) = fCori2(i,j)*recip_hFac(i,j,k) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
141 |
GMREDI_CALC_EIGS |
& *recip_drF(k)*recip_drC(k)/N2(i,j,k) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
142 |
GMREDI_CALC_EIGS |
c3d(i,j,k) = zeroRL |
|
./pkg/gmredi/gmredi_calc_eigs.F |
143 |
GMREDI_CALC_EIGS |
b3d(i,j,k) = -a3d(i,j,k) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
146 |
GMREDI_CALC_EIGS |
a3d(i,j,k) = zeroRL |
|
./pkg/gmredi/gmredi_calc_eigs.F |
147 |
GMREDI_CALC_EIGS |
b3d(i,j,k) = zeroRL |
|
./pkg/gmredi/gmredi_calc_eigs.F |
148 |
GMREDI_CALC_EIGS |
c3d(i,j,k) = zeroRL |
|
./pkg/gmredi/gmredi_calc_eigs.F |
152 |
GMREDI_CALC_EIGS |
a3d(i,j,k) = zeroRL |
|
./pkg/gmredi/gmredi_calc_eigs.F |
153 |
GMREDI_CALC_EIGS |
b3d(i,j,k) = zeroRL |
|
./pkg/gmredi/gmredi_calc_eigs.F |
154 |
GMREDI_CALC_EIGS |
c3d(i,j,k) = zeroRL |
|
./pkg/gmredi/gmredi_calc_eigs.F |
160 |
GMREDI_CALC_EIGS |
DO j=1-Oly,sNy+Oly |
|
./pkg/gmredi/gmredi_calc_eigs.F |
162 |
GMREDI_CALC_EIGS |
IF (kLow(i,j).GT.0) THEN |
|
./pkg/gmredi/gmredi_calc_eigs.F |
170 |
GMREDI_CALC_EIGS |
array(k,k) = b3d(i,j,k) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
171 |
GMREDI_CALC_EIGS |
array(k,k+1) = c3d(i,j,k) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
173 |
GMREDI_CALC_EIGS |
array(k,k-1) = a3d(i,j,k) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
174 |
GMREDI_CALC_EIGS |
array(k,k) = b3d(i,j,k) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
175 |
GMREDI_CALC_EIGS |
array(k,k+1) = c3d(i,j,k) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
178 |
GMREDI_CALC_EIGS |
array(k,k-1) = a3d(i,j,k) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
179 |
GMREDI_CALC_EIGS |
array(k,k) = b3d(i,j,k) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
186 |
GMREDI_CALC_EIGS |
& '(',i,',',j,')', 'error code =',info |
|
./pkg/gmredi/gmredi_calc_eigs.F |
192 |
GMREDI_CALC_EIGS |
& '(',i,',',j,')', 'error code =',info |
|
./pkg/gmredi/gmredi_calc_eigs.F |
203 |
GMREDI_CALC_EIGS |
DO k=1,kLow(i,j) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
206 |
GMREDI_CALC_EIGS |
DO m=1,MIN(nmodes,klow(i,j)-1) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
207 |
GMREDI_CALC_EIGS |
DO k=1,kLow(i,j) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
215 |
GMREDI_CALC_EIGS |
vec(m,i,j,k) = -vecs(k,idx) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
219 |
GMREDI_CALC_EIGS |
vec(m,i,j,k) = vecs(k,idx) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
223 |
GMREDI_CALC_EIGS |
val(i,j) = eigval(1) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
225 |
GMREDI_CALC_EIGS |
val(i,j)=zeroRL |
|
./pkg/gmredi/gmredi_calc_eigs.F |
228 |
GMREDI_CALC_EIGS |
vec(m,i,j,k)=zeroRL |
|
./pkg/gmredi/gmredi_calc_eigs.F |
236 |
GMREDI_CALC_EIGS |
DO j=1-Oly,sNy+Oly |
|
./pkg/gmredi/gmredi_calc_eigs.F |
238 |
GMREDI_CALC_EIGS |
IF (kLow(i,j).GT.2 .AND. val(i,j).NE.zeroRL) THEN |
|
./pkg/gmredi/gmredi_calc_eigs.F |
239 |
GMREDI_CALC_EIGS |
Rmid(i,j) = 1.0/(SQRT(ABS(val(i,j)))+small) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
241 |
GMREDI_CALC_EIGS |
Rmid(i,j) = zeroRL |
|
./pkg/gmredi/gmredi_calc_eigs.F |
248 |
GMREDI_CALC_EIGS |
DO j=1-Oly,sNy+Oly |
|
./pkg/gmredi/gmredi_calc_eigs.F |
250 |
GMREDI_CALC_EIGS |
BuoyFreq(i,j,k) = mask(i,j,k)*SQRT(N2(i,j,k)) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
255 |
GMREDI_CALC_EIGS |
DO j=1-Oly,sNy+Oly |
|
./pkg/gmredi/gmredi_calc_eigs.F |
257 |
GMREDI_CALC_EIGS |
BuoyFreq(i,j,k) = zeroRL |
|
./pkg/gmredi/gmredi_calc_eigs.F |
267 |
GMREDI_CALC_EIGS |
DO j=1-Oly,sNy+Oly |
|
./pkg/gmredi/gmredi_calc_eigs.F |
269 |
GMREDI_CALC_EIGS |
intN(i,j,k) = op5*BuoyFreq(i,j,k)*drNr |
|
./pkg/gmredi/gmredi_calc_eigs.F |
273 |
GMREDI_CALC_EIGS |
DO j=1-Oly,sNy+Oly |
|
./pkg/gmredi/gmredi_calc_eigs.F |
275 |
GMREDI_CALC_EIGS |
intN(i,j,k) = intN(i,j,k+1) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
276 |
GMREDI_CALC_EIGS |
& + drC(k)*( op25*BuoyFreq(i,j,k+2) + op5*BuoyFreq(i,j,k) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
277 |
GMREDI_CALC_EIGS |
& + op25*BuoyFreq(i,j,k+1) ) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
285 |
GMREDI_CALC_EIGS |
DO j=1-Oly,sNy+Oly |
|
./pkg/gmredi/gmredi_calc_eigs.F |
287 |
GMREDI_CALC_EIGS |
intN0(i,j) = intN(i,j,1) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
288 |
GMREDI_CALC_EIGS |
& + drC(1)*op5*BuoyFreq(i,j,2) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
292 |
GMREDI_CALC_EIGS |
DO j=1-Oly,sNy+Oly |
|
./pkg/gmredi/gmredi_calc_eigs.F |
294 |
GMREDI_CALC_EIGS |
c1(i,j) = intN0(i,j)/pi |
|
./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 |
299 |
GMREDI_CALC_EIGS |
DO j=1-Oly,sNy+Oly |
|
./pkg/gmredi/gmredi_calc_eigs.F |
301 |
GMREDI_CALC_EIGS |
nEigs(i,j) = MIN(klow(i,j),nmodes) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
305 |
GMREDI_CALC_EIGS |
DO j=1-Oly,sNy+Oly |
|
./pkg/gmredi/gmredi_calc_eigs.F |
307 |
GMREDI_CALC_EIGS |
IF (mask(i,j,k).NE.0.0) THEN |
|
./pkg/gmredi/gmredi_calc_eigs.F |
308 |
GMREDI_CALC_EIGS |
DO m=1,nEigs(i,j) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
309 |
GMREDI_CALC_EIGS |
vec(m,i,j,k) = -COS(intN(i,j,k)/(m*c1(i,j))) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
318 |
GMREDI_CALC_EIGS |
DO j=1-Oly,sNy+Oly |
|
./pkg/gmredi/gmredi_calc_eigs.F |
320 |
GMREDI_CALC_EIGS |
DO m=1,nEigs(i,j) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
321 |
GMREDI_CALC_EIGS |
vecint(m,i,j) = zeroRL |
|
./pkg/gmredi/gmredi_calc_eigs.F |
326 |
GMREDI_CALC_EIGS |
DO j=1-Oly,sNy+Oly |
|
./pkg/gmredi/gmredi_calc_eigs.F |
328 |
GMREDI_CALC_EIGS |
DO m=1,nEigs(i,j) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
329 |
GMREDI_CALC_EIGS |
vecint(m,i,j) = vecint(m,i,j) + hfac(i,j,k)*vec(m,i,j,k)*drF(k) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
334 |
GMREDI_CALC_EIGS |
DO j=1-Oly,sNy+Oly |
|
./pkg/gmredi/gmredi_calc_eigs.F |
336 |
GMREDI_CALC_EIGS |
DO m=1,nEigs(i,j) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
337 |
GMREDI_CALC_EIGS |
vecint(m,i,j) = vecint(m,i,j)/(-rlow(i,j)+small) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
342 |
GMREDI_CALC_EIGS |
DO j=1-Oly,sNy+Oly |
|
./pkg/gmredi/gmredi_calc_eigs.F |
344 |
GMREDI_CALC_EIGS |
DO m=1,nEigs(i,j) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
345 |
GMREDI_CALC_EIGS |
vec(m,i,j,k) = vec(m,i,j,k) - vecint(m,i,j) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
353 |
GMREDI_CALC_EIGS |
DO j=1-Oly,sNy+Oly |
|
./pkg/gmredi/gmredi_calc_eigs.F |
356 |
GMREDI_CALC_EIGS |
vecint(m,i,j) = zeroRL |
|
./pkg/gmredi/gmredi_calc_eigs.F |
362 |
GMREDI_CALC_EIGS |
DO j=1-Oly,sNy+Oly |
|
./pkg/gmredi/gmredi_calc_eigs.F |
365 |
GMREDI_CALC_EIGS |
vecint(m,i,j) = vecint(m,i,j) + |
|
./pkg/gmredi/gmredi_calc_eigs.F |
366 |
GMREDI_CALC_EIGS |
& mask(i,j,k)*drF(k)*hfac(i,j,k) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
367 |
GMREDI_CALC_EIGS |
& *vec(m,i,j,k)*vec(m,i,j,k) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
373 |
GMREDI_CALC_EIGS |
DO j=1-Oly,sNy+Oly |
|
./pkg/gmredi/gmredi_calc_eigs.F |
376 |
GMREDI_CALC_EIGS |
vecint(m,i,j) = SQRT(vecint(m,i,j)) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
382 |
GMREDI_CALC_EIGS |
DO j=1-Oly,sNy+Oly |
|
./pkg/gmredi/gmredi_calc_eigs.F |
385 |
GMREDI_CALC_EIGS |
vec(m,i,j,k) = vec(m,i,j,k)/(vecint(m,i,j)+small) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
52 |
GMREDI_CALC_EIGS |
INTEGER i,j,k,kk,m |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
100 |
GMREDI_CALC_PSI_B |
SlopeX(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
101 |
GMREDI_CALC_PSI_B |
SlopeY(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
102 |
GMREDI_CALC_PSI_B |
dSigmaDrW(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
103 |
GMREDI_CALC_PSI_B |
dSigmaDrS(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
109 |
GMREDI_CALC_PSI_B |
DO j=1-OLy,sNy+OLy |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
111 |
GMREDI_CALC_PSI_B |
SlopeX(i,j)=op5*( sigmaX(i,j,km1)+sigmaX(i,j,k) ) |
|
./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 |
113 |
GMREDI_CALC_PSI_B |
dSigmaDrW(i,j)=op5*( sigmaR(i-1,j,k)+sigmaR(i,j,k) ) |
|
./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 |
117 |
GMREDI_CALC_PSI_B |
DO j=1-OLy+1,sNy+OLy |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
119 |
GMREDI_CALC_PSI_B |
SlopeY(i,j)=op5*( sigmaY(i,j,km1)+sigmaY(i,j,k) ) |
|
./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 |
121 |
GMREDI_CALC_PSI_B |
dSigmaDrS(i,j)=op5*( sigmaR(i,j-1,k)+sigmaR(i,j,k) ) |
|
./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 |
145 |
GMREDI_CALC_PSI_B |
DO j=1-OLy,sNy+OLy |
|
./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 |
168 |
GMREDI_CALC_PSI_B |
DO j=1-OLy+1,sNy+OLy |
|
./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 |
64 |
GMREDI_CALC_PSI_B |
INTEGER i,j,k, km1 |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
98 |
GMREDI_CALC_PSI_B |
DO j=1-OLy,sNy+OLy |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
100 |
GMREDI_CALC_PSI_BVP |
GM_c3d(i,j,k) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
110 |
GMREDI_CALC_PSI_BVP |
DO j=1-OLy,sNy+OLy |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
112 |
GMREDI_CALC_PSI_BVP |
sigmaX_W = op5*( sigmaX(i,j,km1)+sigmaX(i,j,k) ) |
|
./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 |
114 |
GMREDI_CALC_PSI_BVP |
dSigmaDrW = op5*( sigmaR(i-1,j,k)+sigmaR(i,j,k) ) |
|
./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 |
117 |
GMREDI_CALC_PSI_BVP |
wkb_cW(i,j) = wkb_cW(i,j) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
122 |
GMREDI_CALC_PSI_BVP |
GM_b3d(i,j,k) = MAX( -dSigmaDrW, GM_Small_Number ) |
|
./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 |
140 |
GMREDI_CALC_PSI_BVP |
DO j=1-OLy,sNy+OLy |
|
./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 |
143 |
GMREDI_CALC_PSI_BVP |
c2 = MAX( wkb_cW(i,j)*wkb_cW(i,j), GM_BVP_cHat2Min ) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
144 |
GMREDI_CALC_PSI_BVP |
GM_a3d(i,j,k) = -c2*recip_drC(k) |
|
./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 |
146 |
GMREDI_CALC_PSI_BVP |
GM_b3d(i,j,k) = GM_b3d(i,j,k) |
|
./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 |
150 |
GMREDI_CALC_PSI_BVP |
GM_c3d(i,j,k) = -c2*recip_drC(k) |
|
./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 |
153 |
GMREDI_CALC_PSI_BVP |
GM_b3d(i,j,k) = 1. _d 0 |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
176 |
GMREDI_CALC_PSI_BVP |
DO j=1-OLy,sNy+OLy |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
178 |
GMREDI_CALC_PSI_BVP |
GM_a3d(i,j,k) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
179 |
GMREDI_CALC_PSI_BVP |
GM_b3d(i,j,k) = 1. _d 0 |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
180 |
GMREDI_CALC_PSI_BVP |
GM_c3d(i,j,k) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
189 |
GMREDI_CALC_PSI_BVP |
DO j=1-OLy+1,sNy+OLy |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
191 |
GMREDI_CALC_PSI_BVP |
sigmaY_W = op5*( sigmaY(i,j,km1)+sigmaY(i,j,k) ) |
|
./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 |
193 |
GMREDI_CALC_PSI_BVP |
dSigmaDrS = op5*( sigmaR(i,j-1,k)+sigmaR(i,j,k) ) |
|
./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 |
196 |
GMREDI_CALC_PSI_BVP |
wkb_cS(i,j) = wkb_cS(i,j) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
201 |
GMREDI_CALC_PSI_BVP |
GM_b3d(i,j,k) = MAX( -dSigmaDrS, GM_Small_Number ) |
|
./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 |
212 |
GMREDI_CALC_PSI_BVP |
DO j=1-OLy+1,sNy+OLy |
|
./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 |
215 |
GMREDI_CALC_PSI_BVP |
c2 = MAX( wkb_cS(i,j)*wkb_cS(i,j), GM_BVP_cHat2Min ) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
216 |
GMREDI_CALC_PSI_BVP |
GM_a3d(i,j,k) = -c2*recip_drC(k) |
|
./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 |
218 |
GMREDI_CALC_PSI_BVP |
GM_b3d(i,j,k) = GM_b3d(i,j,k) |
|
./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 |
222 |
GMREDI_CALC_PSI_BVP |
GM_c3d(i,j,k) = -c2*recip_drC(k) |
|
./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 |
225 |
GMREDI_CALC_PSI_BVP |
GM_b3d(i,j,k) = 1. _d 0 |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
51 |
GMREDI_CALC_PSI_BVP |
INTEGER i,j,k, km1 |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
79 |
GMREDI_CALC_PSI_BVP |
DO j=1-OLy,sNy+OLy |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
81 |
GMREDI_CALC_PSI_BVP |
wkb_cW(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
82 |
GMREDI_CALC_PSI_BVP |
wkb_cS(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
87 |
GMREDI_CALC_PSI_BVP |
DO j=1-OLy,sNy+OLy |
|
./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_psi_bvp.F |
96 |
GMREDI_CALC_PSI_BVP |
DO j=1-OLy,sNy+OLy |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
98 |
GMREDI_CALC_PSI_BVP |
GM_a3d(i,j,k) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
99 |
GMREDI_CALC_PSI_BVP |
GM_b3d(i,j,k) = 1. _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 |
1007 |
GMREDI_CALC_TENSOR |
& )*SlopeY(i,j)*taperFct(i,j) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1016 |
GMREDI_CALC_TENSOR |
DO j=1,sNy+1 |
|
./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 |
1027 |
GMREDI_CALC_TENSOR |
tmp1k(i,j) = ( GM_isopycK*GM_isoFac1d(k) |
|
./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 |
1036 |
GMREDI_CALC_TENSOR |
& )*SlopeY(i,j)*taperFct(i,j) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1039 |
GMREDI_CALC_TENSOR |
DO j=1,sNy+1 |
|
./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 |
1057 |
GMREDI_CALC_TENSOR |
& * tmp1k(i,j) * dTdz |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1147 |
GMREDI_CALC_TENSOR_DUMMY |
INTEGER i, j, k |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1150 |
GMREDI_CALC_TENSOR_DUMMY |
DO j=1-OLy+1,sNy+OLy-1 |
|
./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 |
152 |
GMREDI_CALC_TENSOR |
DO j=1-OLy,sNy+OLy |
|
./pkg/gmredi/gmredi_calc_tensor.F |
154 |
GMREDI_CALC_TENSOR |
VisbeckK(i,j,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
166 |
GMREDI_CALC_TENSOR |
DO j=1-OLy,sNy+OLy |
|
./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 |
171 |
GMREDI_CALC_TENSOR |
ldd97_LrhoC(i,j) = LrhoSup |
|
./pkg/gmredi/gmredi_calc_tensor.F |
173 |
GMREDI_CALC_TENSOR |
ldd97_LrhoC(i,j) = MAX(LrhoInf,MIN(ldd97_LrhoC(i,j),LrhoSup)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
177 |
GMREDI_CALC_TENSOR |
DO j=1-OLy,sNy+OLy |
|
./pkg/gmredi/gmredi_calc_tensor.F |
178 |
GMREDI_CALC_TENSOR |
kLow_W(1-OLx,j) = 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
179 |
GMREDI_CALC_TENSOR |
ldd97_LrhoW(1-OLx,j) = LrhoSup |
|
./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 |
184 |
GMREDI_CALC_TENSOR |
ldd97_LrhoW(i,j) = Cspd/ABS(fCoriLoc) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
186 |
GMREDI_CALC_TENSOR |
ldd97_LrhoW(i,j) = LrhoSup |
|
./pkg/gmredi/gmredi_calc_tensor.F |
188 |
GMREDI_CALC_TENSOR |
ldd97_LrhoW(i,j) = MAX(LrhoInf,MIN(ldd97_LrhoW(i,j),LrhoSup)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
196 |
GMREDI_CALC_TENSOR |
DO j=1-OLy+1,sNy+OLy |
|
./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 |
201 |
GMREDI_CALC_TENSOR |
ldd97_LrhoS(i,j) = Cspd/ABS(fCoriLoc) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
203 |
GMREDI_CALC_TENSOR |
ldd97_LrhoS(i,j) = LrhoSup |
|
./pkg/gmredi/gmredi_calc_tensor.F |
205 |
GMREDI_CALC_TENSOR |
ldd97_LrhoS(i,j) = MAX(LrhoInf,MIN(ldd97_LrhoS(i,j),LrhoSup)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
210 |
GMREDI_CALC_TENSOR |
DO j=1-OLy,sNy+OLy |
|
./pkg/gmredi/gmredi_calc_tensor.F |
212 |
GMREDI_CALC_TENSOR |
ldd97_LrhoC(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
213 |
GMREDI_CALC_TENSOR |
ldd97_LrhoW(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
214 |
GMREDI_CALC_TENSOR |
ldd97_LrhoS(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
221 |
GMREDI_CALC_TENSOR |
DO j=1-OLy,sNy+OLy |
|
./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 |
231 |
GMREDI_CALC_TENSOR |
DO j=1-OLy,sNy+OLy |
|
./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 |
250 |
GMREDI_CALC_TENSOR |
DO j=1-OLy,sNy+OLy |
|
./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 |
253 |
GMREDI_CALC_TENSOR |
baseSlope(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
254 |
GMREDI_CALC_TENSOR |
recipLambda(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
255 |
GMREDI_CALC_TENSOR |
locMixLayer(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
260 |
GMREDI_CALC_TENSOR |
DO j=1-OLy,sNy+OLy |
|
./pkg/gmredi/gmredi_calc_tensor.F |
262 |
GMREDI_CALC_TENSOR |
locMixLayer(i,j) = KPPhbl(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
269 |
GMREDI_CALC_TENSOR |
DO j=1-OLy,sNy+OLy |
|
./pkg/gmredi/gmredi_calc_tensor.F |
271 |
GMREDI_CALC_TENSOR |
locMixLayer(i,j) = hMixLayer(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
298 |
GMREDI_CALC_TENSOR |
DO j=1-OLy,sNy+OLy |
|
./pkg/gmredi/gmredi_calc_tensor.F |
300 |
GMREDI_CALC_TENSOR |
SlopeX(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
301 |
GMREDI_CALC_TENSOR |
SlopeY(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
302 |
GMREDI_CALC_TENSOR |
dSigmaDx(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
303 |
GMREDI_CALC_TENSOR |
dSigmaDy(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
304 |
GMREDI_CALC_TENSOR |
dSigmaDr(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
305 |
GMREDI_CALC_TENSOR |
SlopeSqr(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
306 |
GMREDI_CALC_TENSOR |
taperFct(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
311 |
GMREDI_CALC_TENSOR |
DO j=1-OLy+1,sNy+OLy-1 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
314 |
GMREDI_CALC_TENSOR |
dSigmaDx(i,j)=op25*( sigmaX(i+1,j,k-1)+sigmaX(i,j,k-1) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
315 |
GMREDI_CALC_TENSOR |
& +sigmaX(i+1,j, k )+sigmaX(i,j, k ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
316 |
GMREDI_CALC_TENSOR |
& )*maskC(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
317 |
GMREDI_CALC_TENSOR |
dSigmaDy(i,j)=op25*( sigmaY(i,j+1,k-1)+sigmaY(i,j,k-1) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
318 |
GMREDI_CALC_TENSOR |
& +sigmaY(i,j+1, k )+sigmaY(i,j, k ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
319 |
GMREDI_CALC_TENSOR |
& )*maskC(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
329 |
GMREDI_CALC_TENSOR |
DO j=1-OLy,sNy+OLy |
|
./pkg/gmredi/gmredi_calc_tensor.F |
331 |
GMREDI_CALC_TENSOR |
dSigmaDr(i,j) = MIN( sigmaR(i,j,k), 0. _d 0 ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
343 |
GMREDI_CALC_TENSOR |
DO j=1-OLy+1,sNy+OLy-1 |
|
./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 |
363 |
GMREDI_CALC_TENSOR |
dSigmaR = ( dSigmaDr(i,j)*4. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
364 |
GMREDI_CALC_TENSOR |
& + dSigmaDr(i-1,j) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
365 |
GMREDI_CALC_TENSOR |
& + dSigmaDr(i+1,j) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
366 |
GMREDI_CALC_TENSOR |
& + dSigmaDr(i,j-1) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
367 |
GMREDI_CALC_TENSOR |
& + dSigmaDr(i,j+1) |
|
./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 |
374 |
GMREDI_CALC_TENSOR |
dSigmaH = dSigmaDx(i,j)*dSigmaDx(i,j) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
375 |
GMREDI_CALC_TENSOR |
& + dSigmaDy(i,j)*dSigmaDy(i,j) |
|
./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 |
405 |
GMREDI_CALC_TENSOR |
DO j=1-OLy,sNy+OLy |
|
./pkg/gmredi/gmredi_calc_tensor.F |
407 |
GMREDI_CALC_TENSOR |
dSigmaDr(i,j)=sigmaR(i,j,k) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
432 |
GMREDI_CALC_TENSOR |
DO j=1-OLy+1,sNy+OLy-1 |
|
./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 |
450 |
GMREDI_CALC_TENSOR |
DO j=1-OLy+1,sNy+OLy-1 |
|
./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 |
460 |
GMREDI_CALC_TENSOR |
DO j=1-OLy+1,sNy+OLy-1 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
465 |
GMREDI_CALC_TENSOR |
Ssq(i,j)=SlopeSqr(i,j)*taperFct(i,j) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
481 |
GMREDI_CALC_TENSOR |
IF ( Ssq(i,j).NE.0. .AND. dSigmaDr(i,j).NE.0. ) THEN |
|
./pkg/gmredi/gmredi_calc_tensor.F |
482 |
GMREDI_CALC_TENSOR |
N2loc = -gravity*recip_rhoConst*dSigmaDr(i,j) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
483 |
GMREDI_CALC_TENSOR |
SNloc = SQRT(Ssq(i,j)*N2loc ) |
|
./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 |
503 |
GMREDI_CALC_TENSOR |
DO j=1-OLy+1,sNy+OLy-1 |
|
./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 |
534 |
GMREDI_CALC_TENSOR |
DO j=1-OLy+1,sNy+OLy-1 |
|
./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 |
639 |
GMREDI_CALC_TENSOR |
DO j=1-OLy,sNy+OLy |
|
./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 |
649 |
GMREDI_CALC_TENSOR |
DO j=1-OLy,sNy+OLy |
|
./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 |
656 |
GMREDI_CALC_TENSOR |
DO j=1-OLy,sNy+OLy |
|
./pkg/gmredi/gmredi_calc_tensor.F |
658 |
GMREDI_CALC_TENSOR |
hTransLay(i,j) = 0. |
|
./pkg/gmredi/gmredi_calc_tensor.F |
659 |
GMREDI_CALC_TENSOR |
baseSlope(i,j) = 0. |
|
./pkg/gmredi/gmredi_calc_tensor.F |
660 |
GMREDI_CALC_TENSOR |
recipLambda(i,j)= 0. |
|
./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 |
676 |
GMREDI_CALC_TENSOR |
DO j=1-OLy+1,sNy+OLy-1 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
678 |
GMREDI_CALC_TENSOR |
dSigmaDx(i,j)=sigmaX(i,j,k) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
679 |
GMREDI_CALC_TENSOR |
& *_maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
680 |
GMREDI_CALC_TENSOR |
dSigmaDy(i,j)=op25*( sigmaY(i-1,j+1,k)+sigmaY(i,j+1,k) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
681 |
GMREDI_CALC_TENSOR |
& +sigmaY(i-1, j ,k)+sigmaY(i, j ,k) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
682 |
GMREDI_CALC_TENSOR |
& )*_maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
683 |
GMREDI_CALC_TENSOR |
dSigmaDr(i,j)=op25*( sigmaR(i-1,j, k )+sigmaR(i,j, k ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
684 |
GMREDI_CALC_TENSOR |
& +(sigmaR(i-1,j,kp1)+sigmaR(i,j,kp1))*maskp1 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
685 |
GMREDI_CALC_TENSOR |
& )*_maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
718 |
GMREDI_CALC_TENSOR |
DO j=1-OLy+1,sNy+OLy-1 |
|
./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 |
737 |
GMREDI_CALC_TENSOR |
& )*taperFct(i,j) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
745 |
GMREDI_CALC_TENSOR |
DO j=1-OLy+1,sNy+OLy-1 |
|
./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 |
75 |
GMREDI_CALC_TENSOR |
INTEGER i,j,k |
|
./pkg/gmredi/gmredi_calc_tensor.F |
760 |
GMREDI_CALC_TENSOR |
DO j=1-OLy+1,sNy+OLy-1 |
|
./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 |
789 |
GMREDI_CALC_TENSOR |
& )*SlopeX(i,j)*taperFct(i,j) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
798 |
GMREDI_CALC_TENSOR |
DO j=1,sNy |
|
./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 |
809 |
GMREDI_CALC_TENSOR |
tmp1k(i,j) = ( GM_isopycK*GM_isoFac1d(k) |
|
./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 |
818 |
GMREDI_CALC_TENSOR |
& )*SlopeX(i,j)*taperFct(i,j) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
821 |
GMREDI_CALC_TENSOR |
DO j=1,sNy |
|
./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 |
839 |
GMREDI_CALC_TENSOR |
& * tmp1k(i,j) * dTdz |
|
./pkg/gmredi/gmredi_calc_tensor.F |
854 |
GMREDI_CALC_TENSOR |
DO j=2-OLy,sNy+OLy |
|
./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 |
864 |
GMREDI_CALC_TENSOR |
DO j=2-OLy,sNy+OLy |
|
./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 |
871 |
GMREDI_CALC_TENSOR |
DO j=1-OLy,sNy+OLy |
|
./pkg/gmredi/gmredi_calc_tensor.F |
873 |
GMREDI_CALC_TENSOR |
hTransLay(i,j) = 0. |
|
./pkg/gmredi/gmredi_calc_tensor.F |
874 |
GMREDI_CALC_TENSOR |
baseSlope(i,j) = 0. |
|
./pkg/gmredi/gmredi_calc_tensor.F |
875 |
GMREDI_CALC_TENSOR |
recipLambda(i,j)= 0. |
|
./pkg/gmredi/gmredi_calc_tensor.F |
878 |
GMREDI_CALC_TENSOR |
DO j=2-OLy,sNy+OLy |
|
./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 |
893 |
GMREDI_CALC_TENSOR |
DO j=1-OLy+1,sNy+OLy-1 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
895 |
GMREDI_CALC_TENSOR |
dSigmaDx(i,j)=op25*( sigmaX(i, j ,k) +sigmaX(i+1, j ,k) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
896 |
GMREDI_CALC_TENSOR |
& +sigmaX(i,j-1,k) +sigmaX(i+1,j-1,k) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
897 |
GMREDI_CALC_TENSOR |
& )*_maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
898 |
GMREDI_CALC_TENSOR |
dSigmaDy(i,j)=sigmaY(i,j,k) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
899 |
GMREDI_CALC_TENSOR |
& *_maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
900 |
GMREDI_CALC_TENSOR |
dSigmaDr(i,j)=op25*( sigmaR(i,j-1, k )+sigmaR(i,j, k ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
901 |
GMREDI_CALC_TENSOR |
& +(sigmaR(i,j-1,kp1)+sigmaR(i,j,kp1))*maskp1 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
902 |
GMREDI_CALC_TENSOR |
& )*_maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
936 |
GMREDI_CALC_TENSOR |
DO j=1-OLy+1,sNy+OLy-1 |
|
./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 |
955 |
GMREDI_CALC_TENSOR |
& )*taperFct(i,j) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
963 |
GMREDI_CALC_TENSOR |
DO j=1-OLy+1,sNy+OLy-1 |
|
./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 |
978 |
GMREDI_CALC_TENSOR |
DO j=1-OLy+1,sNy+OLy-1 |
|
./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 |
43 |
GMREDI_CALC_URMS |
INTEGER i,j,k |
|
./pkg/gmredi/gmredi_calc_urms.F |
50 |
GMREDI_CALC_URMS |
DO j=1-Oly,sNy+Oly |
|
./pkg/gmredi/gmredi_calc_urms.F |
52 |
GMREDI_CALC_URMS |
bbc(i,j) = zeroRL |
|
./pkg/gmredi/gmredi_calc_urms.F |
58 |
GMREDI_CALC_URMS |
DO j=1-Oly,sNy+Oly |
|
./pkg/gmredi/gmredi_calc_urms.F |
60 |
GMREDI_CALC_URMS |
k = kLowC(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_calc_urms.F |
62 |
GMREDI_CALC_URMS |
const(i,j) = (urms(i,j,k)-urms(i,j,1)) |
|
./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 |
65 |
GMREDI_CALC_URMS |
const(i,j) = zeroRL |
|
./pkg/gmredi/gmredi_calc_urms.F |
71 |
GMREDI_CALC_URMS |
DO j=1-Oly,sNy+Oly |
|
./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 |
74 |
GMREDI_CALC_URMS |
urms(i,j,k) = urms(i,j,1) + |
|
./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 |
77 |
GMREDI_CALC_URMS |
urms(i,j,k)=zeroRL |
|
./pkg/gmredi/gmredi_calc_urms.F |
84 |
GMREDI_CALC_URMS |
DO j=1-Oly,sNy+Oly |
|
./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 |
39 |
GMREDI_DIAGNOSTICS_FILL |
INTEGER i,j,k |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
77 |
GMREDI_DIAGNOSTICS_FILL |
DO j = 1, sny |
|
./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 |
91 |
GMREDI_DIAGNOSTICS_FILL |
DO j = 1, sny |
|
./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 |
45 |
GMREDI_DIAGNOSTICS_IMPL |
INTEGER i,j,k |
|
./pkg/gmredi/gmredi_diagnostics_impl.F |
58 |
GMREDI_DIAGNOSTICS_IMPL |
DO j = 1, sNy |
|
./pkg/gmredi/gmredi_diagnostics_impl.F |
60 |
GMREDI_DIAGNOSTICS_IMPL |
tmpVar(i,j) = -recip_drC(k)*rkSign |
|
./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_init_fixed.F |
42 |
GMREDI_INIT_FIXED |
INTEGER i,j,k |
|
./pkg/gmredi/gmredi_init_fixed.F |
48 |
GMREDI_INIT_FIXED |
DO j=1-Oly,sNy+OLy |
|
./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 |
124 |
GMREDI_INIT_VARIA |
DO j=1-Oly,sNy+Oly |
|
./pkg/gmredi/gmredi_init_varia.F |
126 |
GMREDI_INIT_VARIA |
gradf(i,j,bi,bj) = beta |
|
./pkg/gmredi/gmredi_init_varia.F |
134 |
GMREDI_INIT_VARIA |
DO j=1-Oly,sNy+Oly |
|
./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 |
144 |
GMREDI_INIT_VARIA |
DO j=1-Oly+1,sNy+Oly-1 |
|
./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 |
46 |
GMREDI_INIT_VARIA |
DO j=1-Oly,sNy+OLy |
|
./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_k3d.F |
1005 |
GMREDI_K3D |
DO j=1-Oly,sNy+Oly-1 |
|
./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 |
1011 |
GMREDI_K3D |
denominator = uXiyInt(i,j) - vXixInt(i,j) |
|
./pkg/gmredi/gmredi_k3d.F |
1020 |
GMREDI_K3D |
Renorm(i,j) = ABS(numerator/denominator) |
|
./pkg/gmredi/gmredi_k3d.F |
1021 |
GMREDI_K3D |
Renorm(i,j) = MAX(Renorm(i,j),GM_K3D_minRenorm) |
|
./pkg/gmredi/gmredi_k3d.F |
1022 |
GMREDI_K3D |
Renorm(i,j) = MIN(Renorm(i,j),GM_K3D_maxRenorm) |
|
./pkg/gmredi/gmredi_k3d.F |
1028 |
GMREDI_K3D |
DO j=1-Oly+1,sNy+Oly-1 |
|
./pkg/gmredi/gmredi_k3d.F |
1030 |
GMREDI_K3D |
RenormU(i,j) = op5*(Renorm(i-1,j)+Renorm(i,j)) |
|
./pkg/gmredi/gmredi_k3d.F |
1031 |
GMREDI_K3D |
RenormV(i,j) = op5*(Renorm(i,j-1)+Renorm(i,j)) |
|
./pkg/gmredi/gmredi_k3d.F |
1037 |
GMREDI_K3D |
DO j=1-Oly+1,sNy+Oly |
|
./pkg/gmredi/gmredi_k3d.F |
1039 |
GMREDI_K3D |
ustar(i,j,k) = -RenormU(i,j)*Xix(i,j,k)/coriU(i,j) |
|
./pkg/gmredi/gmredi_k3d.F |
1046 |
GMREDI_K3D |
DO j=1-Oly+1,sNy+Oly |
|
./pkg/gmredi/gmredi_k3d.F |
1048 |
GMREDI_K3D |
vstar(i,j,k) = -RenormV(i,j)*Xiy(i,j,k)/coriV(i,j) |
|
./pkg/gmredi/gmredi_k3d.F |
1058 |
GMREDI_K3D |
DO j=1-Oly,sNy+Oly |
|
./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 |
1064 |
GMREDI_K3D |
DO j=1-Oly,sNy+Oly |
|
./pkg/gmredi/gmredi_k3d.F |
1066 |
GMREDI_K3D |
psistar(i,j,k) = psistar(i,j,k+1) |
|
./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 |
1076 |
GMREDI_K3D |
DO j=1-Oly+1,sNy+1 |
|
./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 |
1083 |
GMREDI_K3D |
DO j=1-Oly+1,sNy+1 |
|
./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 |
1141 |
GMREDI_K3D |
DO j=1-Oly,sNy+Oly |
|
./pkg/gmredi/gmredi_k3d.F |
1143 |
GMREDI_K3D |
K3D(i,j,k,bi,bj) = GM_K3D_constK |
|
./pkg/gmredi/gmredi_k3d.F |
221 |
GMREDI_K3D |
DO j=1-Oly,sNy+Oly |
|
./pkg/gmredi/gmredi_k3d.F |
223 |
GMREDI_K3D |
kLow_C(i,j) = kLowC(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
226 |
GMREDI_K3D |
DO j=1-Oly,sNy+Oly |
|
./pkg/gmredi/gmredi_k3d.F |
228 |
GMREDI_K3D |
kLow_U(i,j) = MIN( kLow_C(i,j), kLow_C(i-1,j) ) |
|
./pkg/gmredi/gmredi_k3d.F |
231 |
GMREDI_K3D |
DO j=1-Oly+1,sNy+Oly |
|
./pkg/gmredi/gmredi_k3d.F |
233 |
GMREDI_K3D |
kLow_V(i,j) = MIN( kLow_C(i,j), kLow_C(i,j-1) ) |
|
./pkg/gmredi/gmredi_k3d.F |
240 |
GMREDI_K3D |
DO j=1-Oly,sNy+Oly |
|
./pkg/gmredi/gmredi_k3d.F |
241 |
GMREDI_K3D |
kLow_U(i,j) = 0 |
|
./pkg/gmredi/gmredi_k3d.F |
243 |
GMREDI_K3D |
j=1-Oly |
|
./pkg/gmredi/gmredi_k3d.F |
245 |
GMREDI_K3D |
kLow_V(i,j) = 0 |
|
./pkg/gmredi/gmredi_k3d.F |
250 |
GMREDI_K3D |
DO j=1-Oly+1,sNy+Oly |
|
./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 |
261 |
GMREDI_K3D |
DO j=1-Oly,sNy+Oly |
|
./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 |
266 |
GMREDI_K3D |
coriU(i,j) = SIGN( MAX( ABS(fCoriU(i,j)),GM_K3D_minCori ), |
|
./pkg/gmredi/gmredi_k3d.F |
267 |
GMREDI_K3D |
& fCoriU(i,j) ) |
|
./pkg/gmredi/gmredi_k3d.F |
270 |
GMREDI_K3D |
DO j=1-Oly+1,sNy+Oly |
|
./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 |
275 |
GMREDI_K3D |
coriV(i,j) = SIGN( MAX( ABS(fCoriV(i,j)),GM_K3D_minCori ), |
|
./pkg/gmredi/gmredi_k3d.F |
276 |
GMREDI_K3D |
& fCoriV(i,j) ) |
|
./pkg/gmredi/gmredi_k3d.F |
281 |
GMREDI_K3D |
DO j=1-Oly,sNy+Oly |
|
./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 |
286 |
GMREDI_K3D |
j=1-Oly |
|
./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 |
294 |
GMREDI_K3D |
DO j=1-Oly,sNy+Oly |
|
./pkg/gmredi/gmredi_k3d.F |
296 |
GMREDI_K3D |
eady(i,j) = zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
297 |
GMREDI_K3D |
BVint(i,j) = zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
298 |
GMREDI_K3D |
Ubaro(i,j) = zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
299 |
GMREDI_K3D |
deltaH(i,j) = zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
303 |
GMREDI_K3D |
DO j=1-Oly,sNy+Oly |
|
./pkg/gmredi/gmredi_k3d.F |
305 |
GMREDI_K3D |
slopeC(i,j,k)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
311 |
GMREDI_K3D |
DO j=1-Oly,sNy+Oly |
|
./pkg/gmredi/gmredi_k3d.F |
313 |
GMREDI_K3D |
Rurms(i,j)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
314 |
GMREDI_K3D |
RRhines(i,j)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
315 |
GMREDI_K3D |
Rmix(i,j)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
320 |
GMREDI_K3D |
DO j=1-Oly,sNy+Oly |
|
./pkg/gmredi/gmredi_k3d.F |
322 |
GMREDI_K3D |
N2loc(i,j,k)=GM_K3D_minN2 |
|
./pkg/gmredi/gmredi_k3d.F |
323 |
GMREDI_K3D |
N2W(i,j,k) = GM_K3D_minN2 |
|
./pkg/gmredi/gmredi_k3d.F |
324 |
GMREDI_K3D |
N2S(i,j,k) = GM_K3D_minN2 |
|
./pkg/gmredi/gmredi_k3d.F |
325 |
GMREDI_K3D |
M4loc(i,j,k)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
326 |
GMREDI_K3D |
M4onN2(i,j,k)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
327 |
GMREDI_K3D |
urms(i,j,k)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
328 |
GMREDI_K3D |
SlopeX(i,j,k)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
329 |
GMREDI_K3D |
SlopeY(i,j,k)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
330 |
GMREDI_K3D |
dSigmaDx(i,j,k)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
331 |
GMREDI_K3D |
dSigmaDy(i,j,k)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
332 |
GMREDI_K3D |
gradqx(i,j,k)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
333 |
GMREDI_K3D |
gradqy(i,j,k)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
343 |
GMREDI_K3D |
DO j = 1-oly,sny+oly |
|
./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 |
353 |
GMREDI_K3D |
DO j = 1-oly,sny+oly |
|
./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 |
369 |
GMREDI_K3D |
j=sNy+Oly |
|
./pkg/gmredi/gmredi_k3d.F |
370 |
GMREDI_K3D |
tmpU(i,j)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
371 |
GMREDI_K3D |
tmpV(i,j)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
373 |
GMREDI_K3D |
DO j = 1-Oly,sNy+Oly-1 |
|
./pkg/gmredi/gmredi_k3d.F |
375 |
GMREDI_K3D |
tmpU(i,j)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
376 |
GMREDI_K3D |
tmpV(i,j)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
378 |
GMREDI_K3D |
tmpU(i,j) = 0.5 _d 0 |
|
./pkg/gmredi/gmredi_k3d.F |
379 |
GMREDI_K3D |
& *( uFldX(i+1,j,k) + uFldX(i,j,k) ) |
|
./pkg/gmredi/gmredi_k3d.F |
380 |
GMREDI_K3D |
tmpV(i,j) = 0.5 _d 0 |
|
./pkg/gmredi/gmredi_k3d.F |
381 |
GMREDI_K3D |
& *( vFldY(i,j+1,k) + vFldY(i,j,k) ) |
|
./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 |
388 |
GMREDI_K3D |
DO j = 1-oly,sny+oly |
|
./pkg/gmredi/gmredi_k3d.F |
390 |
GMREDI_K3D |
ubar(i,j,k) = |
|
./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 |
401 |
GMREDI_K3D |
DO j=1-Oly,sNy+Oly |
|
./pkg/gmredi/gmredi_k3d.F |
403 |
GMREDI_K3D |
Ubaro(i,j) = Ubaro(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 |
408 |
GMREDI_K3D |
DO j=1-Oly,sNy+Oly |
|
./pkg/gmredi/gmredi_k3d.F |
410 |
GMREDI_K3D |
IF (kLow_C(i,j).GT.0) THEN |
|
./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 |
421 |
GMREDI_K3D |
DO j=1-Oly,sNy+Oly |
|
./pkg/gmredi/gmredi_k3d.F |
423 |
GMREDI_K3D |
N2(i,j,k) = -gravity*recip_rhoConst*sigmaR(i,j,k) |
|
./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 |
425 |
GMREDI_K3D |
N(i,j,k) = SQRT(N2(i,j,k)) |
|
./pkg/gmredi/gmredi_k3d.F |
430 |
GMREDI_K3D |
DO j=1-Oly,sNy+Oly |
|
./pkg/gmredi/gmredi_k3d.F |
432 |
GMREDI_K3D |
N2(i,j,1) = zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
433 |
GMREDI_K3D |
N(i,j,1) = zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
445 |
GMREDI_K3D |
DO j=1-Oly,sNy+Oly |
|
./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 |
448 |
GMREDI_K3D |
& *op5*(N(i,j,k)+mskp1*N(i,j,kp1)) |
|
./pkg/gmredi/gmredi_k3d.F |
463 |
GMREDI_K3D |
DO j=1-Oly+1,sNy+Oly |
|
./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 |
473 |
GMREDI_K3D |
DO j=1-Oly,sNy+Oly-1 |
|
./pkg/gmredi/gmredi_k3d.F |
475 |
GMREDI_K3D |
dSigmaDx(i,j,k) = op5*(sigmaX(i,j,k)+sigmaX(i+1,j,k)) |
|
./pkg/gmredi/gmredi_k3d.F |
476 |
GMREDI_K3D |
dSigmaDy(i,j,k) = op5*(sigmaY(i,j,k)+sigmaY(i,j+1,k)) |
|
./pkg/gmredi/gmredi_k3d.F |
490 |
GMREDI_K3D |
DO j=1-Oly,sNy+Oly-1 |
|
./pkg/gmredi/gmredi_k3d.F |
492 |
GMREDI_K3D |
M4loc(i,j,k) = g_reciprho_sq*( dSigmaDx(i,j,k)**2 |
|
./pkg/gmredi/gmredi_k3d.F |
493 |
GMREDI_K3D |
& +dSigmaDy(i,j,k)**2 ) |
|
./pkg/gmredi/gmredi_k3d.F |
494 |
GMREDI_K3D |
N2loc(i,j,k) = op5*(N2(i,j,k)+mskp1*N2(i,j,kp1)) |
|
./pkg/gmredi/gmredi_k3d.F |
506 |
GMREDI_K3D |
DO j=1-Oly,sNy+Oly-1 |
|
./pkg/gmredi/gmredi_k3d.F |
508 |
GMREDI_K3D |
IF ( (kLow_C(i,j).GE.k) .AND. |
|
./pkg/gmredi/gmredi_k3d.F |
509 |
GMREDI_K3D |
& (-hMixLayer(i,j,bi,bj).LE.-rC(k)) ) THEN |
|
./pkg/gmredi/gmredi_k3d.F |
511 |
GMREDI_K3D |
slopeC(i,j,k) = SQRT(M4loc(i,j,k))/N2loc(i,j,k) |
|
./pkg/gmredi/gmredi_k3d.F |
513 |
GMREDI_K3D |
IF (slopeC(i,j,k).LE.GM_maxSlope) THEN |
|
./pkg/gmredi/gmredi_k3d.F |
514 |
GMREDI_K3D |
M4onN2(i,j,k) = M4loc(i,j,k)/N2loc(i,j,k) |
|
./pkg/gmredi/gmredi_k3d.F |
516 |
GMREDI_K3D |
slopeC(i,j,k) = GM_maxslope |
|
./pkg/gmredi/gmredi_k3d.F |
517 |
GMREDI_K3D |
M4onN2(i,j,k) = SQRT(M4loc(i,j,k))*GM_maxslope |
|
./pkg/gmredi/gmredi_k3d.F |
519 |
GMREDI_K3D |
eady(i,j) = eady(i,j) |
|
./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 |
521 |
GMREDI_K3D |
deltaH(i,j) = deltaH(i,j) + drF(k) |
|
./pkg/gmredi/gmredi_k3d.F |
527 |
GMREDI_K3D |
DO j=1-Oly,sNy+Oly |
|
./pkg/gmredi/gmredi_k3d.F |
52 |
GMREDI_K3D |
INTEGER i,j,k,kk,m,kp1 |
|
./pkg/gmredi/gmredi_k3d.F |
534 |
GMREDI_K3D |
IF (deltaH(i,j).EQ.zeroRL) THEN |
|
./pkg/gmredi/gmredi_k3d.F |
535 |
GMREDI_K3D |
eady(i,j) = small |
|
./pkg/gmredi/gmredi_k3d.F |
540 |
GMREDI_K3D |
eady(i,j) = SQRT(eady(i,j)/deltaH(i,j)) |
|
./pkg/gmredi/gmredi_k3d.F |
550 |
GMREDI_K3D |
DO j=1-Oly+1,sNy+Oly |
|
./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 |
554 |
GMREDI_K3D |
urms(i,j,1) = GM_K3D_Lambda*eady(i,j)*Rurms(i,j) |
|
./pkg/gmredi/gmredi_k3d.F |
556 |
GMREDI_K3D |
k=kLow_C(i,j) |
|
./pkg/gmredi/gmredi_k3d.F |
557 |
GMREDI_K3D |
IF (k.GT.0) urms(i,j,k) = 0.0 |
|
./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 |
564 |
GMREDI_K3D |
Rmix(i,j) = MAX(Rmix(i,j),GM_K3D_Rmin) |
|
./pkg/gmredi/gmredi_k3d.F |
568 |
GMREDI_K3D |
cDopp(i,j) = Ubaro(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 |
571 |
GMREDI_K3D |
IF (ABS(cDopp(i,j)).GT.GM_K3D_maxC) THEN |
|
./pkg/gmredi/gmredi_k3d.F |
572 |
GMREDI_K3D |
cDopp(i,j) = MAX(GM_K3D_maxC, cDopp(i,j)) |
|
./pkg/gmredi/gmredi_k3d.F |
585 |
GMREDI_K3D |
DO j=1-Oly,sNy+Oly |
|
./pkg/gmredi/gmredi_k3d.F |
587 |
GMREDI_K3D |
IF (k.LE.kLow_C(i,j)) THEN |
|
./pkg/gmredi/gmredi_k3d.F |
588 |
GMREDI_K3D |
IF (deltaH(i,j).EQ.zeroRL) THEN |
|
./pkg/gmredi/gmredi_k3d.F |
589 |
GMREDI_K3D |
K3D(i,j,k,bi,bj) = GM_K3D_smallK |
|
./pkg/gmredi/gmredi_k3d.F |
591 |
GMREDI_K3D |
IF (urms(i,j,k).EQ.0.0) THEN |
|
./pkg/gmredi/gmredi_k3d.F |
592 |
GMREDI_K3D |
K3D(i,j,k,bi,bj) = GM_K3D_smallK |
|
./pkg/gmredi/gmredi_k3d.F |
594 |
GMREDI_K3D |
umc(i,j,k) =ubar(i,j,k) - cDopp(i,j) |
|
./pkg/gmredi/gmredi_k3d.F |
595 |
GMREDI_K3D |
supp(i,j,k)=1./(1.+GM_K3D_b1*umc(i,j,k)**2/urms(i,j,1)**2) |
|
./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 |
598 |
GMREDI_K3D |
& *2.*Rmix(i,j)*supp(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 |
618 |
GMREDI_K3D |
DO j=1-Oly,sNy+Oly |
|
./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 |
623 |
GMREDI_K3D |
surfk(i,j) = 0 |
|
./pkg/gmredi/gmredi_k3d.F |
627 |
GMREDI_K3D |
DO j=1-Oly,sNy+Oly |
|
./pkg/gmredi/gmredi_k3d.F |
629 |
GMREDI_K3D |
IF (rF(k).GT.surfkz(i,j) .AND. surfkz(i,j).GE.rF(k+1)) |
|
./pkg/gmredi/gmredi_k3d.F |
630 |
GMREDI_K3D |
& surfk(i,j) = k |
|
./pkg/gmredi/gmredi_k3d.F |
636 |
GMREDI_K3D |
DO j=1-Oly,sNy+Oly-1 |
|
./pkg/gmredi/gmredi_k3d.F |
638 |
GMREDI_K3D |
SlopeX(i,j,1) = zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
639 |
GMREDI_K3D |
SlopeY(i,j,1) = zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
643 |
GMREDI_K3D |
DO j=1-Oly+1,sNy+Oly |
|
./pkg/gmredi/gmredi_k3d.F |
645 |
GMREDI_K3D |
IF(surfk(i,j).GE.kLowC(i,j,bi,bj)) THEN |
|
./pkg/gmredi/gmredi_k3d.F |
648 |
GMREDI_K3D |
SlopeX(i,j,k) = zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
649 |
GMREDI_K3D |
SlopeY(i,j,k) = zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
653 |
GMREDI_K3D |
sigz = MIN( op5*(sigmaR(i,j,k)+sigmaR(i-1,j,k)), maxDRhoDz ) |
|
./pkg/gmredi/gmredi_k3d.F |
654 |
GMREDI_K3D |
sigx = op5*( sigmaX(i,j,k)+sigmaX(i,j,k-1) ) |
|
./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 |
661 |
GMREDI_K3D |
sigz = MIN( op5*(sigmaR(i,j,k)+sigmaR(i,j-1,k)), maxDRhoDz ) |
|
./pkg/gmredi/gmredi_k3d.F |
662 |
GMREDI_K3D |
sigy = op5*( sigmaY(i,j,k) + sigmaY(i,j,k-1) ) |
|
./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 |
676 |
GMREDI_K3D |
DO j=1-Oly,sNy+Oly |
|
./pkg/gmredi/gmredi_k3d.F |
679 |
GMREDI_K3D |
tfluxX(i,j,k) = -fCoriU(i,j)*SlopeX(i,j,k) |
|
./pkg/gmredi/gmredi_k3d.F |
680 |
GMREDI_K3D |
& *recip_drF(k)*recip_hFacW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
682 |
GMREDI_K3D |
tfluxY(i,j,k) = -fCoriV(i,j)*SlopeY(i,j,k) |
|
./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 |
694 |
GMREDI_K3D |
DO j=1-Oly,sNy+Oly |
|
./pkg/gmredi/gmredi_k3d.F |
697 |
GMREDI_K3D |
tfluxX(i,j,k)=-fCoriU(i,j)*(SlopeX(i,j,k)-SlopeX(i,j,k+1)) |
|
./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 |
701 |
GMREDI_K3D |
tfluxY(i,j,k)=-fCoriV(i,j)*(SlopeY(i,j,k)-SlopeY(i,j,k+1)) |
|
./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 |
716 |
GMREDI_K3D |
DO j=1-Oly,sNy+Oly |
|
./pkg/gmredi/gmredi_k3d.F |
718 |
GMREDI_K3D |
IF(k.LE.surfk(i,j)) THEN |
|
./pkg/gmredi/gmredi_k3d.F |
728 |
GMREDI_K3D |
IF(kLow_U(i,j).LT.surfk(i,j)) THEN |
|
./pkg/gmredi/gmredi_k3d.F |
729 |
GMREDI_K3D |
kk=kLow_U(i,j) |
|
./pkg/gmredi/gmredi_k3d.F |
730 |
GMREDI_K3D |
hsurf = -rLowW(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
732 |
GMREDI_K3D |
kk=surfk(i,j) |
|
./pkg/gmredi/gmredi_k3d.F |
733 |
GMREDI_K3D |
hsurf = -surfkz(i,j) |
|
./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 |
738 |
GMREDI_K3D |
& *SlopeX(i,j,kk)/hsurf |
|
./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 |
741 |
GMREDI_K3D |
& *( SlopeX(i,j,kk)-SlopeX(i,j,kk+1) )/hsurf |
|
./pkg/gmredi/gmredi_k3d.F |
744 |
GMREDI_K3D |
tfluxX(i,j,k) = zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
747 |
GMREDI_K3D |
IF(kLow_V(i,j).LT.surfk(i,j)) THEN |
|
./pkg/gmredi/gmredi_k3d.F |
748 |
GMREDI_K3D |
kk=kLow_V(i,j) |
|
./pkg/gmredi/gmredi_k3d.F |
749 |
GMREDI_K3D |
hsurf = -rLowS(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
751 |
GMREDI_K3D |
kk=surfk(i,j) |
|
./pkg/gmredi/gmredi_k3d.F |
752 |
GMREDI_K3D |
hsurf = -surfkz(i,j) |
|
./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 |
757 |
GMREDI_K3D |
& *SlopeY(i,j,kk)/hsurf |
|
./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 |
760 |
GMREDI_K3D |
& *( SlopeY(i,j,kk)-SlopeY(i,j,kk+1) )/hsurf |
|
./pkg/gmredi/gmredi_k3d.F |
763 |
GMREDI_K3D |
tfluxY(i,j,k) = zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
769 |
GMREDI_K3D |
KPV(i,j,k) = GM_K3D_constK |
|
./pkg/gmredi/gmredi_k3d.F |
781 |
GMREDI_K3D |
DO j=1-Oly+1,sNy+Oly |
|
./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 |
792 |
GMREDI_K3D |
DO j=1-Oly+1,sNy+Oly |
|
./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 |
807 |
GMREDI_K3D |
DO j=1-Oly+1,sNy+Oly |
|
./pkg/gmredi/gmredi_k3d.F |
809 |
GMREDI_K3D |
N2W(i,j,k) = maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
810 |
GMREDI_K3D |
& *( N2(i,j,k)+N2(i-1,j,k) ) |
|
./pkg/gmredi/gmredi_k3d.F |
811 |
GMREDI_K3D |
N2S(i,j,k) = maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
812 |
GMREDI_K3D |
& *( N2(i,j,k)+N2(i,j-1,k) ) |
|
./pkg/gmredi/gmredi_k3d.F |
823 |
GMREDI_K3D |
DO j=1-Oly,sNy+Oly |
|
./pkg/gmredi/gmredi_k3d.F |
825 |
GMREDI_K3D |
KPV(i,j,k) = GM_K3D_constK |
|
./pkg/gmredi/gmredi_k3d.F |
836 |
GMREDI_K3D |
DO j=1-Oly,sNy+Oly |
|
./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 |
861 |
GMREDI_K3D |
DO j=1-Oly,sNy+Oly |
|
./pkg/gmredi/gmredi_k3d.F |
864 |
GMREDI_K3D |
XimX(m,i,j) = zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
869 |
GMREDI_K3D |
DO j=1-Oly,sNy+Oly |
|
./pkg/gmredi/gmredi_k3d.F |
872 |
GMREDI_K3D |
Kdqdx(i,j,k) = KPV(i,j,k)*gradqx(i,j,k) |
|
./pkg/gmredi/gmredi_k3d.F |
873 |
GMREDI_K3D |
XimX(m,i,j) = XimX(m,i,j) |
|
./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 |
883 |
GMREDI_K3D |
DO j=1-Oly,sNy+Oly |
|
./pkg/gmredi/gmredi_k3d.F |
885 |
GMREDI_K3D |
Xix(i,j,k) = zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
890 |
GMREDI_K3D |
DO j=1-Oly,sNy+Oly |
|
./pkg/gmredi/gmredi_k3d.F |
893 |
GMREDI_K3D |
Xix(i,j,k) = Xix(i,j,k) |
|
./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 |
912 |
GMREDI_K3D |
DO j=1-Oly,sNy+Oly |
|
./pkg/gmredi/gmredi_k3d.F |
915 |
GMREDI_K3D |
XimY(m,i,j) = zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
920 |
GMREDI_K3D |
DO j=1-Oly,sNy+Oly |
|
./pkg/gmredi/gmredi_k3d.F |
923 |
GMREDI_K3D |
Kdqdy(i,j,k) = KPV(i,j,k)*gradqy(i,j,k) |
|
./pkg/gmredi/gmredi_k3d.F |
924 |
GMREDI_K3D |
XimY(m,i,j) = XimY(m,i,j) |
|
./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 |
934 |
GMREDI_K3D |
DO j=1-Oly,sNy+Oly |
|
./pkg/gmredi/gmredi_k3d.F |
936 |
GMREDI_K3D |
Xiy(i,j,k) = zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
941 |
GMREDI_K3D |
DO j=1-Oly,sNy+Oly |
|
./pkg/gmredi/gmredi_k3d.F |
944 |
GMREDI_K3D |
Xiy(i,j,k) = Xiy(i,j,k) |
|
./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 |
955 |
GMREDI_K3D |
DO j=1-Oly,sNy+Oly |
|
./pkg/gmredi/gmredi_k3d.F |
957 |
GMREDI_K3D |
uInt(i,j)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
958 |
GMREDI_K3D |
vInt(i,j)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
959 |
GMREDI_K3D |
KdqdyInt(i,j)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
960 |
GMREDI_K3D |
KdqdxInt(i,j)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
961 |
GMREDI_K3D |
uKdqdyInt(i,j)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
962 |
GMREDI_K3D |
vKdqdxInt(i,j)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
963 |
GMREDI_K3D |
uXiyInt(i,j)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
964 |
GMREDI_K3D |
vXixInt(i,j)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
965 |
GMREDI_K3D |
Renorm(i,j)=oneRL |
|
./pkg/gmredi/gmredi_k3d.F |
966 |
GMREDI_K3D |
RenormU(i,j)=oneRL |
|
./pkg/gmredi/gmredi_k3d.F |
967 |
GMREDI_K3D |
RenormV(i,j)=oneRL |
|
./pkg/gmredi/gmredi_k3d.F |
971 |
GMREDI_K3D |
DO j=1-Oly,sNy+Oly-1 |
|
./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 |
974 |
GMREDI_K3D |
centreY = op5*(Kdqdy(i,j,k) +Kdqdy(i,j+1,k) ) |
|
./pkg/gmredi/gmredi_k3d.F |
976 |
GMREDI_K3D |
uInt(i,j) = uInt(i,j) |
|
./pkg/gmredi/gmredi_k3d.F |
977 |
GMREDI_K3D |
& + centreX*hfacC(i,j,k,bi,bj)*drF(k) |
|
./pkg/gmredi/gmredi_k3d.F |
978 |
GMREDI_K3D |
KdqdyInt(i,j) = KdqdyInt(i,j) |
|
./pkg/gmredi/gmredi_k3d.F |
979 |
GMREDI_K3D |
& + centreY*hfacC(i,j,k,bi,bj)*drF(k) |
|
./pkg/gmredi/gmredi_k3d.F |
980 |
GMREDI_K3D |
uKdqdyInt(i,j) = uKdqdyInt(i,j) |
|
./pkg/gmredi/gmredi_k3d.F |
981 |
GMREDI_K3D |
& + centreX*centreY*hfacC(i,j,k,bi,bj)*drF(k) |
|
./pkg/gmredi/gmredi_k3d.F |
983 |
GMREDI_K3D |
centreY = op5*(Xiy(i,j,k) + Xiy(i,j+1,k)) |
|
./pkg/gmredi/gmredi_k3d.F |
984 |
GMREDI_K3D |
uXiyInt(i,j) = uXiyInt(i,j) |
|
./pkg/gmredi/gmredi_k3d.F |
985 |
GMREDI_K3D |
& + centreX*centreY*hfacC(i,j,k,bi,bj)*drF(k) |
|
./pkg/gmredi/gmredi_k3d.F |
987 |
GMREDI_K3D |
centreX = op5*(Kdqdx(i,j,k) +Kdqdx(i+1,j,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 |
990 |
GMREDI_K3D |
vInt(i,j) = vInt(i,j) |
|
./pkg/gmredi/gmredi_k3d.F |
991 |
GMREDI_K3D |
& + centreY*hfacC(i,j,k,bi,bj)*drF(k) |
|
./pkg/gmredi/gmredi_k3d.F |
992 |
GMREDI_K3D |
KdqdxInt(i,j) = KdqdxInt(i,j) |
|
./pkg/gmredi/gmredi_k3d.F |
993 |
GMREDI_K3D |
& + CentreX*hfacC(i,j,k,bi,bj)*drF(k) |
|
./pkg/gmredi/gmredi_k3d.F |
994 |
GMREDI_K3D |
vKdqdxInt(i,j) = vKdqdxInt(i,j) |
|
./pkg/gmredi/gmredi_k3d.F |
995 |
GMREDI_K3D |
& + centreY*centreX*hfacC(i,j,k,bi,bj)*drF(k) |
|
./pkg/gmredi/gmredi_k3d.F |
997 |
GMREDI_K3D |
centreX = op5*(Xix(i,j,k) + Xix(i+1,j,k)) |
|
./pkg/gmredi/gmredi_k3d.F |
998 |
GMREDI_K3D |
vXixInt(i,j) = vXixInt(i,j) |
|
./pkg/gmredi/gmredi_k3d.F |
999 |
GMREDI_K3D |
& + centreY*centreX*hfacC(i,j,k,bi,bj)*drF(k) |
|
./pkg/gmredi/gmredi_read_pickup.F |
146 |
GMREDI_READ_PICKUP |
DO j=1-OLy,sNy+OLy |
|
./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 |
164 |
GMREDI_READ_PICKUP |
DO j=1-OLy,sNy+OLy |
|
./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 |
183 |
GMREDI_READ_PICKUP |
DO j=1-OLy,sNy+OLy |
|
./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 |
220 |
GMREDI_READ_PICKUP |
DO j=1,nMissing |
|
./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 |
104 |
GMREDI_RESIDUAL_FLOW |
DO j=1-OLy,sNy+OLy |
|
./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 |
112 |
GMREDI_RESIDUAL_FLOW |
DO j=1-OLy,sNy+OLy |
|
./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 |
48 |
GMREDI_RESIDUAL_FLOW |
INTEGER i, j, k |
|
./pkg/gmredi/gmredi_residual_flow.F |
65 |
GMREDI_RESIDUAL_FLOW |
DO j=1-OLy,sNy+OLy |
|
./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 |
69 |
GMREDI_RESIDUAL_FLOW |
uFld(i,j,k) = uFld(i,j,k) |
|
./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 |
73 |
GMREDI_RESIDUAL_FLOW |
DO j=1-OLy,sNy+OLy |
|
./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 |
77 |
GMREDI_RESIDUAL_FLOW |
vFld(i,j,k) = vFld(i,j,k) |
|
./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 |
81 |
GMREDI_RESIDUAL_FLOW |
DO j=1-OLy,sNy+OLy-1 |
|
./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 |
100 |
GMREDI_RTRANSPORT |
DO j=jMin,jMax |
|
./pkg/gmredi/gmredi_rtransport.F |
102 |
GMREDI_RTRANSPORT |
dTdx(i,j) = op5*( |
|
./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 |
105 |
GMREDI_RTRANSPORT |
& (Tracer(i+1,j,k)-Tracer(i,j,k)) |
|
./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 |
108 |
GMREDI_RTRANSPORT |
& (Tracer(i,j,k)-Tracer(i-1,j,k)) ) |
|
./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 |
111 |
GMREDI_RTRANSPORT |
& (Tracer(i+1,j,k-1)-Tracer(i,j,k-1)) |
|
./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 |
114 |
GMREDI_RTRANSPORT |
& (Tracer(i,j,k-1)-Tracer(i-1,j,k-1)) ) |
|
./pkg/gmredi/gmredi_rtransport.F |
117 |
GMREDI_RTRANSPORT |
dTdy(i,j) = op5*( |
|
./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 |
120 |
GMREDI_RTRANSPORT |
& (Tracer(i,j,k)-Tracer(i,j-1,k)) |
|
./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 |
123 |
GMREDI_RTRANSPORT |
& (Tracer(i,j+1,k)-Tracer(i,j,k)) ) |
|
./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 |
126 |
GMREDI_RTRANSPORT |
& (Tracer(i,j,k-1)-Tracer(i,j-1,k-1)) |
|
./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 |
129 |
GMREDI_RTRANSPORT |
& (Tracer(i,j+1,k-1)-Tracer(i,j,k-1)) ) |
|
./pkg/gmredi/gmredi_rtransport.F |
144 |
GMREDI_RTRANSPORT |
DO j=jMin,jMax |
|
./pkg/gmredi/gmredi_rtransport.F |
146 |
GMREDI_RTRANSPORT |
df(i,j) = df(i,j) |
|
./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 |
154 |
GMREDI_RTRANSPORT |
DO j=jMin,jMax |
|
./pkg/gmredi/gmredi_rtransport.F |
156 |
GMREDI_RTRANSPORT |
df(i,j) = df(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 |
169 |
GMREDI_RTRANSPORT |
DO j=jMin,jMax |
|
./pkg/gmredi/gmredi_rtransport.F |
171 |
GMREDI_RTRANSPORT |
rTrans(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 |
182 |
GMREDI_RTRANSPORT |
DO j=jMin,jMax |
|
./pkg/gmredi/gmredi_rtransport.F |
184 |
GMREDI_RTRANSPORT |
df(i,j) = df(i,j) |
|
./pkg/gmredi/gmredi_rtransport.F |
185 |
GMREDI_RTRANSPORT |
& +rTrans(i,j)*op5 |
|
./pkg/gmredi/gmredi_rtransport.F |
186 |
GMREDI_RTRANSPORT |
& *(Tracer(i,j,k)+Tracer(i,j,k-1)) |
|
./pkg/gmredi/gmredi_rtransport.F |
187 |
GMREDI_RTRANSPORT |
& *maskInC(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
67 |
GMREDI_RTRANSPORT |
INTEGER i, j |
|
./pkg/gmredi/gmredi_slope_limit.F |
117 |
GMREDI_SLOPE_LIMIT |
INTEGER i,j |
|
./pkg/gmredi/gmredi_slope_limit.F |
144 |
GMREDI_SLOPE_LIMIT |
DO j=1-OLy+1,sNy+OLy-1 |
|
./pkg/gmredi/gmredi_slope_limit.F |
146 |
GMREDI_SLOPE_LIMIT |
dSigmMod(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
147 |
GMREDI_SLOPE_LIMIT |
tmpFld(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
164 |
GMREDI_SLOPE_LIMIT |
DO j=1-OLy+1,sNy+OLy-1 |
|
./pkg/gmredi/gmredi_slope_limit.F |
166 |
GMREDI_SLOPE_LIMIT |
tmpFld(i,j) = dSigmaDx(i,j)*dSigmaDx(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
167 |
GMREDI_SLOPE_LIMIT |
& + dSigmaDy(i,j)*dSigmaDy(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
168 |
GMREDI_SLOPE_LIMIT |
IF ( tmpFld(i,j) .EQ. 0. ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
169 |
GMREDI_SLOPE_LIMIT |
dSigmMod(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
171 |
GMREDI_SLOPE_LIMIT |
dSigmMod(i,j) = SQRT( tmpFld(i,j) ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
181 |
GMREDI_SLOPE_LIMIT |
DO j=1-OLy+1,sNy+OLy-1 |
|
./pkg/gmredi/gmredi_slope_limit.F |
183 |
GMREDI_SLOPE_LIMIT |
IF (dSigmMod(i,j) .NE. 0.) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
184 |
GMREDI_SLOPE_LIMIT |
tmpFld(i,j) = -dSigmMod(i,j)*GM_rMaxSlope |
|
./pkg/gmredi/gmredi_slope_limit.F |
185 |
GMREDI_SLOPE_LIMIT |
IF ( dSigmaDr(i,j) .GE. tmpFld(i,j) ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
186 |
GMREDI_SLOPE_LIMIT |
& dSigmaDr(i,j) = tmpFld(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
197 |
GMREDI_SLOPE_LIMIT |
DO j=1-OLy+1,sNy+OLy-1 |
|
./pkg/gmredi/gmredi_slope_limit.F |
199 |
GMREDI_SLOPE_LIMIT |
IF (dSigmMod(i,j) .EQ. 0.) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
200 |
GMREDI_SLOPE_LIMIT |
SlopeX(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
201 |
GMREDI_SLOPE_LIMIT |
SlopeY(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
203 |
GMREDI_SLOPE_LIMIT |
dRdSigmaLtd(i,j) = 1. _d 0/( dSigmaDr(i,j) ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
204 |
GMREDI_SLOPE_LIMIT |
SlopeX(i,j)=-dSigmaDx(i,j)*dRdSigmaLtd(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
205 |
GMREDI_SLOPE_LIMIT |
SlopeY(i,j)=-dSigmaDy(i,j)*dRdSigmaLtd(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
215 |
GMREDI_SLOPE_LIMIT |
DO j=1-OLy+1,sNy+OLy-1 |
|
./pkg/gmredi/gmredi_slope_limit.F |
217 |
GMREDI_SLOPE_LIMIT |
SlopeSqr(i,j)=SlopeX(i,j)*SlopeX(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
218 |
GMREDI_SLOPE_LIMIT |
& +SlopeY(i,j)*SlopeY(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
219 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j)=1. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
236 |
GMREDI_SLOPE_LIMIT |
DO j=1-OLy+1,sNy+OLy-1 |
|
./pkg/gmredi/gmredi_slope_limit.F |
238 |
GMREDI_SLOPE_LIMIT |
IF ( k.GT.kLow(i,j) ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
240 |
GMREDI_SLOPE_LIMIT |
SlopeX (i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
241 |
GMREDI_SLOPE_LIMIT |
SlopeY (i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
242 |
GMREDI_SLOPE_LIMIT |
SlopeMod(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
243 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
246 |
GMREDI_SLOPE_LIMIT |
IF ( dSigmaDr(i,j).GE. -GM_Small_Number ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
247 |
GMREDI_SLOPE_LIMIT |
& dSigmaDr(i,j) = -GM_Small_Number |
|
./pkg/gmredi/gmredi_slope_limit.F |
248 |
GMREDI_SLOPE_LIMIT |
tmpFld(i,j) = dSigmaDx(i,j)*dSigmaDx(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
249 |
GMREDI_SLOPE_LIMIT |
& + dSigmaDy(i,j)*dSigmaDy(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
250 |
GMREDI_SLOPE_LIMIT |
IF ( tmpFld(i,j).GT.0. ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
251 |
GMREDI_SLOPE_LIMIT |
locVar(i,j) = SQRT( tmpFld(i,j) ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
252 |
GMREDI_SLOPE_LIMIT |
SlopeX (i,j) = dSigmaDx(i,j)/locVar(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
253 |
GMREDI_SLOPE_LIMIT |
SlopeY (i,j) = dSigmaDy(i,j)/locVar(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
254 |
GMREDI_SLOPE_LIMIT |
SlopeMod(i,j) = -locVar(i,j)/dSigmaDr(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
255 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
257 |
GMREDI_SLOPE_LIMIT |
SlopeX (i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
258 |
GMREDI_SLOPE_LIMIT |
SlopeY (i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
259 |
GMREDI_SLOPE_LIMIT |
SlopeMod(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
260 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
272 |
GMREDI_SLOPE_LIMIT |
DO j=1-OLy+1,sNy+OLy-1 |
|
./pkg/gmredi/gmredi_slope_limit.F |
274 |
GMREDI_SLOPE_LIMIT |
IF ( hTransLay(i,j).LE.0. _d 0 ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
276 |
GMREDI_SLOPE_LIMIT |
tmpFld(i,j) = Lrho(i,j)*SlopeMod(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
280 |
GMREDI_SLOPE_LIMIT |
& MIN( MAX( tmpFld(i,j), minTransLay ), |
|
./pkg/gmredi/gmredi_slope_limit.F |
281 |
GMREDI_SLOPE_LIMIT |
& MAX( GM_facTrL2ML*hMixLay(i,j), GM_maxTransLay ) ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
282 |
GMREDI_SLOPE_LIMIT |
IF ( k.GE.kLow(i,j) ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
284 |
GMREDI_SLOPE_LIMIT |
recipLambda(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
285 |
GMREDI_SLOPE_LIMIT |
baseSlope(i,j) = SlopeMod(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
289 |
GMREDI_SLOPE_LIMIT |
ELSEIF ( dTransLay+hMixLay(i,j)+depthZ(k) .GE. 0. ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
291 |
GMREDI_SLOPE_LIMIT |
hTransLay(i,j) = -depthZ(k+1) |
|
./pkg/gmredi/gmredi_slope_limit.F |
293 |
GMREDI_SLOPE_LIMIT |
IF ( baseSlope(i,j).GT.0. ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
294 |
GMREDI_SLOPE_LIMIT |
recipLambda(i,j) = recipLambda(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
295 |
GMREDI_SLOPE_LIMIT |
& / MIN( baseSlope(i,j), GM_maxSlope ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
297 |
GMREDI_SLOPE_LIMIT |
recipLambda(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
300 |
GMREDI_SLOPE_LIMIT |
IF ( hMixLay(i,j)+depthZ(k+1).LT.0. ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
301 |
GMREDI_SLOPE_LIMIT |
rLambMin = 1. _d 0 /( hMixLay(i,j)+depthZ(k+1) ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
302 |
GMREDI_SLOPE_LIMIT |
recipLambda(i,j) = MAX( recipLambda(i,j), rLambMin ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
306 |
GMREDI_SLOPE_LIMIT |
recipLambda(i,j) = ( MIN( SlopeMod(i,j), GM_maxSlope ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
307 |
GMREDI_SLOPE_LIMIT |
& - MIN( baseSlope(i,j), GM_maxSlope ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
309 |
GMREDI_SLOPE_LIMIT |
baseSlope(i,j) = SlopeMod(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
317 |
GMREDI_SLOPE_LIMIT |
DO j=1-OLy+1,sNy+OLy-1 |
|
./pkg/gmredi/gmredi_slope_limit.F |
319 |
GMREDI_SLOPE_LIMIT |
IF ( hTransLay(i,j).GT.0. _d 0 ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
322 |
GMREDI_SLOPE_LIMIT |
DoverLamb = (hTransLay(i,j)-hMixLay(i,j))*recipLambda(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
323 |
GMREDI_SLOPE_LIMIT |
IF ( -depthZ(k).LE.hMixLay(i,j) ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
326 |
GMREDI_SLOPE_LIMIT |
& ( -depthZ(k)/(hTransLay(i,j)+hMixLay(i,j)) |
|
./pkg/gmredi/gmredi_slope_limit.F |
331 |
GMREDI_SLOPE_LIMIT |
& ( -depthZ(k)/(hTransLay(i,j)+hMixLay(i,j)) |
|
./pkg/gmredi/gmredi_slope_limit.F |
338 |
GMREDI_SLOPE_LIMIT |
& ( -depthZ(k)/(hTransLay(i,j)+hMixLay(i,j)) |
|
./pkg/gmredi/gmredi_slope_limit.F |
341 |
GMREDI_SLOPE_LIMIT |
& - ( (depthZ(k)+hMixLay(i,j))*(depthZ(k)+hMixLay(i,j)) |
|
./pkg/gmredi/gmredi_slope_limit.F |
342 |
GMREDI_SLOPE_LIMIT |
& /( hTransLay(i,j)*hTransLay(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
343 |
GMREDI_SLOPE_LIMIT |
& - hMixLay(i,j)*hMixLay(i,j) ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
344 |
GMREDI_SLOPE_LIMIT |
& *( 1. _d 0 + hTransLay(i,j)*recipLambda(i,j) ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
348 |
GMREDI_SLOPE_LIMIT |
& ( -depthZ(k)/(hTransLay(i,j)+hMixLay(i,j)) |
|
./pkg/gmredi/gmredi_slope_limit.F |
352 |
GMREDI_SLOPE_LIMIT |
& - ( (depthZ(k)+hMixLay(i,j))*(depthZ(k)+hMixLay(i,j)) |
|
./pkg/gmredi/gmredi_slope_limit.F |
353 |
GMREDI_SLOPE_LIMIT |
& /( hTransLay(i,j)*hTransLay(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
354 |
GMREDI_SLOPE_LIMIT |
& - hMixLay(i,j)*hMixLay(i,j) ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
355 |
GMREDI_SLOPE_LIMIT |
& *( 1. _d 0 + hTransLay(i,j)*recipLambda(i,j)*2. _d 0 ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
361 |
GMREDI_SLOPE_LIMIT |
Smod = MIN( baseSlope(i,j), GM_maxSlope ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
362 |
GMREDI_SLOPE_LIMIT |
SlopeX(i,j) = SlopeX(i,j)*Smod*taperFctLoc |
|
./pkg/gmredi/gmredi_slope_limit.F |
363 |
GMREDI_SLOPE_LIMIT |
SlopeY(i,j) = SlopeY(i,j)*Smod*taperFctLoc |
|
./pkg/gmredi/gmredi_slope_limit.F |
366 |
GMREDI_SLOPE_LIMIT |
SlopeSqr(i,j) = MIN( baseSlope(i,j), GM_bigSlope ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
373 |
GMREDI_SLOPE_LIMIT |
Smod = MIN( SlopeMod(i,j), GM_maxSlope ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
374 |
GMREDI_SLOPE_LIMIT |
SlopeX(i,j) = SlopeX(i,j)*Smod |
|
./pkg/gmredi/gmredi_slope_limit.F |
375 |
GMREDI_SLOPE_LIMIT |
SlopeY(i,j) = SlopeY(i,j)*Smod |
|
./pkg/gmredi/gmredi_slope_limit.F |
378 |
GMREDI_SLOPE_LIMIT |
SlopeSqr(i,j) = MIN( SlopeMod(i,j), GM_bigSlope ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
402 |
GMREDI_SLOPE_LIMIT |
DO j=1-OLy+1,sNy+OLy-1 |
|
./pkg/gmredi/gmredi_slope_limit.F |
404 |
GMREDI_SLOPE_LIMIT |
dRdSigmaLtd(i,j)= |
|
./pkg/gmredi/gmredi_slope_limit.F |
405 |
GMREDI_SLOPE_LIMIT |
& dSigmaDx(i,j)*dSigmaDx(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
406 |
GMREDI_SLOPE_LIMIT |
& + dSigmaDy(i,j)*dSigmaDy(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
407 |
GMREDI_SLOPE_LIMIT |
& + dSigmaDr(i,j)*dSigmaDr(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
408 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
410 |
GMREDI_SLOPE_LIMIT |
IF (dRdSigmaLtd(i,j).NE.0.) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
411 |
GMREDI_SLOPE_LIMIT |
dRdSigmaLtd(i,j)=1. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
412 |
GMREDI_SLOPE_LIMIT |
& / ( dRdSigmaLtd(i,j) ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
413 |
GMREDI_SLOPE_LIMIT |
SlopeSqr(i,j)=(dSigmaDx(i,j)*dSigmaDx(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
414 |
GMREDI_SLOPE_LIMIT |
& +dSigmaDy(i,j)*dSigmaDy(i,j))*dRdSigmaLtd(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
415 |
GMREDI_SLOPE_LIMIT |
SlopeX(i,j)=-dSigmaDx(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
416 |
GMREDI_SLOPE_LIMIT |
& *dRdSigmaLtd(i,j)*dSigmaDr(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
417 |
GMREDI_SLOPE_LIMIT |
SlopeY(i,j)=-dSigmaDy(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
418 |
GMREDI_SLOPE_LIMIT |
& *dRdSigmaLtd(i,j)*dSigmaDr(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
423 |
GMREDI_SLOPE_LIMIT |
IF ( SlopeSqr(i,j) .GT. maxSlopeSqr .AND. |
|
./pkg/gmredi/gmredi_slope_limit.F |
424 |
GMREDI_SLOPE_LIMIT |
& SlopeSqr(i,j) .LT. GM_slopeSqCutoff ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
425 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = maxSlopeSqr/SlopeSqr(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
426 |
GMREDI_SLOPE_LIMIT |
ELSE IF ( SlopeSqr(i,j) .GT. GM_slopeSqCutoff ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
427 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
452 |
GMREDI_SLOPE_LIMIT |
DO j=1-OLy+1,sNy+OLy-1 |
|
./pkg/gmredi/gmredi_slope_limit.F |
454 |
GMREDI_SLOPE_LIMIT |
IF ( dSigmaDr(i,j) .NE. 0. ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
455 |
GMREDI_SLOPE_LIMIT |
IF (dSigmaDr(i,j).GE.(-GM_Small_Number)) |
|
./pkg/gmredi/gmredi_slope_limit.F |
456 |
GMREDI_SLOPE_LIMIT |
& dSigmaDr(i,j) = -GM_Small_Number |
|
./pkg/gmredi/gmredi_slope_limit.F |
467 |
GMREDI_SLOPE_LIMIT |
DO j=1-OLy+1,sNy+OLy-1 |
|
./pkg/gmredi/gmredi_slope_limit.F |
469 |
GMREDI_SLOPE_LIMIT |
IF ( dSigmaDr(i,j) .EQ. 0. ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
470 |
GMREDI_SLOPE_LIMIT |
IF ( dSigmaDx(i,j) .NE. 0. ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
471 |
GMREDI_SLOPE_LIMIT |
SlopeX(i,j) = SIGN( GM_bigSlope, dSigmaDx(i,j) ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
473 |
GMREDI_SLOPE_LIMIT |
SlopeX(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
475 |
GMREDI_SLOPE_LIMIT |
IF ( dSigmaDy(i,j) .NE. 0. ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
476 |
GMREDI_SLOPE_LIMIT |
SlopeY(i,j) = SIGN( GM_bigSlope, dSigmaDy(i,j) ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
478 |
GMREDI_SLOPE_LIMIT |
SlopeY(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
481 |
GMREDI_SLOPE_LIMIT |
dRdSigmaLtd(i,j) = 1. _d 0 / dSigmaDr(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
482 |
GMREDI_SLOPE_LIMIT |
SlopeX(i,j)=-dSigmaDx(i,j)*dRdSigmaLtd(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
483 |
GMREDI_SLOPE_LIMIT |
SlopeY(i,j)=-dSigmaDy(i,j)*dRdSigmaLtd(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
495 |
GMREDI_SLOPE_LIMIT |
DO j=1-OLy+1,sNy+OLy-1 |
|
./pkg/gmredi/gmredi_slope_limit.F |
497 |
GMREDI_SLOPE_LIMIT |
SlopeSqr(i,j) = SlopeX(i,j)*SlopeX(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
498 |
GMREDI_SLOPE_LIMIT |
& +SlopeY(i,j)*SlopeY(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
499 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
500 |
GMREDI_SLOPE_LIMIT |
IF ( SlopeSqr(i,j) .GT. GM_slopeSqCutoff ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
501 |
GMREDI_SLOPE_LIMIT |
slopeSqr(i,j) = GM_slopeSqCutoff |
|
./pkg/gmredi/gmredi_slope_limit.F |
502 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
513 |
GMREDI_SLOPE_LIMIT |
DO j=1-OLy+1,sNy+OLy-1 |
|
./pkg/gmredi/gmredi_slope_limit.F |
516 |
GMREDI_SLOPE_LIMIT |
IF ( SlopeSqr(i,j) .EQ. 0. ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
517 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
518 |
GMREDI_SLOPE_LIMIT |
ELSE IF ( SlopeSqr(i,j) .GT. maxSlopeSqr .AND. |
|
./pkg/gmredi/gmredi_slope_limit.F |
519 |
GMREDI_SLOPE_LIMIT |
& SlopeSqr(i,j) .LT. GM_slopeSqCutoff ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
520 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = SQRT(maxSlopeSqr / SlopeSqr(i,j)) |
|
./pkg/gmredi/gmredi_slope_limit.F |
521 |
GMREDI_SLOPE_LIMIT |
slopeSqr(i,j) = MIN( slopeSqr(i,j),GM_bigSlope*GM_bigSlope ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
531 |
GMREDI_SLOPE_LIMIT |
DO j=1-OLy+1,sNy+OLy-1 |
|
./pkg/gmredi/gmredi_slope_limit.F |
534 |
GMREDI_SLOPE_LIMIT |
IF ( SlopeSqr(i,j) .EQ. 0. ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
535 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
536 |
GMREDI_SLOPE_LIMIT |
ELSE IF ( SlopeSqr(i,j) .GT. maxSlopeSqr .AND. |
|
./pkg/gmredi/gmredi_slope_limit.F |
537 |
GMREDI_SLOPE_LIMIT |
& SlopeSqr(i,j) .LT. GM_slopeSqCutoff ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
538 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = maxSlopeSqr/SlopeSqr(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
547 |
GMREDI_SLOPE_LIMIT |
DO j=1-OLy+1,sNy+OLy-1 |
|
./pkg/gmredi/gmredi_slope_limit.F |
550 |
GMREDI_SLOPE_LIMIT |
IF ( SlopeSqr(i,j) .EQ. 0. ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
551 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
552 |
GMREDI_SLOPE_LIMIT |
ELSE IF ( SlopeSqr(i,j) .LT. GM_slopeSqCutoff ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
553 |
GMREDI_SLOPE_LIMIT |
Smod=SQRT(SlopeSqr(i,j)) |
|
./pkg/gmredi/gmredi_slope_limit.F |
554 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j)=op5*( 1. _d 0 + tanh( (GM_Scrit-Smod)/GM_Sd )) |
|
./pkg/gmredi/gmredi_slope_limit.F |
562 |
GMREDI_SLOPE_LIMIT |
DO j=1-OLy+1,sNy+OLy-1 |
|
./pkg/gmredi/gmredi_slope_limit.F |
565 |
GMREDI_SLOPE_LIMIT |
IF (SlopeSqr(i,j) .EQ. 0.) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
566 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
567 |
GMREDI_SLOPE_LIMIT |
ELSEIF ( SlopeSqr(i,j) .LT. GM_slopeSqCutoff ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
568 |
GMREDI_SLOPE_LIMIT |
Smod=SQRT(SlopeSqr(i,j)) |
|
./pkg/gmredi/gmredi_slope_limit.F |
570 |
GMREDI_SLOPE_LIMIT |
Rnondim= -depthZ(k)/(Lrho(i,j)*Smod) |
|
./pkg/gmredi/gmredi_slope_limit.F |
576 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j)=f1*f2 |
|
./pkg/gmredi/gmredi_slope_limit.F |
598 |
GMREDI_SLOPE_LIMIT |
DO j=1-OLy,sNy+OLy |
|
./pkg/gmredi/gmredi_slope_limit.F |
600 |
GMREDI_SLOPE_LIMIT |
slopeSqTmp=SlopeX(i,j)*SlopeX(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
601 |
GMREDI_SLOPE_LIMIT |
& +SlopeY(i,j)*SlopeY(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
605 |
GMREDI_SLOPE_LIMIT |
SlopeX(i,j)=SlopeX(i,j)*slopeMax/slopeTmp |
|
./pkg/gmredi/gmredi_slope_limit.F |
606 |
GMREDI_SLOPE_LIMIT |
SlopeY(i,j)=SlopeY(i,j)*slopeMax/slopeTmp |
|
./pkg/gmredi/gmredi_slope_limit.F |
608 |
GMREDI_SLOPE_LIMIT |
SlopeSqr(i,j) = SlopeX(i,j)*SlopeX(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
609 |
GMREDI_SLOPE_LIMIT |
& +SlopeY(i,j)*SlopeY(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
610 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_psi.F |
105 |
GMREDI_SLOPE_PSI |
DO j=1-OLy,sNy+OLy |
|
./pkg/gmredi/gmredi_slope_psi.F |
107 |
GMREDI_SLOPE_PSI |
dSigmaDrLtd(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_psi.F |
113 |
GMREDI_SLOPE_PSI |
DO j=1-OLy,sNy+OLy |
|
./pkg/gmredi/gmredi_slope_psi.F |
115 |
GMREDI_SLOPE_PSI |
dSigmaDrLtd(i,j) = -(GM_Small_Number+ |
|
./pkg/gmredi/gmredi_slope_psi.F |
116 |
GMREDI_SLOPE_PSI |
& ABS(SlopeX(i,j))*GM_rMaxSlope) |
|
./pkg/gmredi/gmredi_slope_psi.F |
123 |
GMREDI_SLOPE_PSI |
DO j=1-OLy,sNy+OLy |
|
./pkg/gmredi/gmredi_slope_psi.F |
125 |
GMREDI_SLOPE_PSI |
IF (dSigmaDrW(i,j).GE.dSigmaDrLtd(i,j)) |
|
./pkg/gmredi/gmredi_slope_psi.F |
126 |
GMREDI_SLOPE_PSI |
& dSigmaDrW(i,j) = dSigmaDrLtd(i,j) |
|
./pkg/gmredi/gmredi_slope_psi.F |
132 |
GMREDI_SLOPE_PSI |
DO j=1-OLy,sNy+OLy |
|
./pkg/gmredi/gmredi_slope_psi.F |
134 |
GMREDI_SLOPE_PSI |
SlopeX(i,j) = -SlopeX(i,j)/dSigmaDrW(i,j) |
|
./pkg/gmredi/gmredi_slope_psi.F |
135 |
GMREDI_SLOPE_PSI |
taperX(i,j) = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_psi.F |
142 |
GMREDI_SLOPE_PSI |
DO j=1-OLy+1,sNy+OLy |
|
./pkg/gmredi/gmredi_slope_psi.F |
144 |
GMREDI_SLOPE_PSI |
dSigmaDrLtd(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_psi.F |
148 |
GMREDI_SLOPE_PSI |
DO j=1-OLy+1,sNy+OLy |
|
./pkg/gmredi/gmredi_slope_psi.F |
150 |
GMREDI_SLOPE_PSI |
dSigmaDrLtd(i,j) = -(GM_Small_Number+ |
|
./pkg/gmredi/gmredi_slope_psi.F |
151 |
GMREDI_SLOPE_PSI |
& ABS(SlopeY(i,j))*GM_rMaxSlope) |
|
./pkg/gmredi/gmredi_slope_psi.F |
158 |
GMREDI_SLOPE_PSI |
DO j=1-OLy+1,sNy+OLy |
|
./pkg/gmredi/gmredi_slope_psi.F |
160 |
GMREDI_SLOPE_PSI |
IF (dSigmaDrS(i,j).GE.dSigmaDrLtd(i,j)) |
|
./pkg/gmredi/gmredi_slope_psi.F |
161 |
GMREDI_SLOPE_PSI |
& dSigmaDrS(i,j) = dSigmaDrLtd(i,j) |
|
./pkg/gmredi/gmredi_slope_psi.F |
167 |
GMREDI_SLOPE_PSI |
DO j=1-OLy+1,sNy+OLy |
|
./pkg/gmredi/gmredi_slope_psi.F |
169 |
GMREDI_SLOPE_PSI |
SlopeY(i,j) = -SlopeY(i,j)/dSigmaDrS(i,j) |
|
./pkg/gmredi/gmredi_slope_psi.F |
170 |
GMREDI_SLOPE_PSI |
taperY(i,j) = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_psi.F |
195 |
GMREDI_SLOPE_PSI |
DO j=1-OLy,sNy+OLy |
|
./pkg/gmredi/gmredi_slope_psi.F |
197 |
GMREDI_SLOPE_PSI |
IF (dSigmaDrW(i,j).GE.-GM_Small_Number) |
|
./pkg/gmredi/gmredi_slope_psi.F |
198 |
GMREDI_SLOPE_PSI |
& dSigmaDrW(i,j) = -GM_Small_Number |
|
./pkg/gmredi/gmredi_slope_psi.F |
204 |
GMREDI_SLOPE_PSI |
DO j=1-OLy,sNy+OLy |
|
./pkg/gmredi/gmredi_slope_psi.F |
206 |
GMREDI_SLOPE_PSI |
SlopeX(i,j) = -SlopeX(i,j)/dSigmaDrW(i,j) |
|
./pkg/gmredi/gmredi_slope_psi.F |
207 |
GMREDI_SLOPE_PSI |
taperX(i,j) = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_psi.F |
214 |
GMREDI_SLOPE_PSI |
DO j=1-OLy,sNy+OLy |
|
./pkg/gmredi/gmredi_slope_psi.F |
216 |
GMREDI_SLOPE_PSI |
IF ( ABS(SlopeX(i,j)) .GE. slopeCutoff ) THEN |
|
./pkg/gmredi/gmredi_slope_psi.F |
217 |
GMREDI_SLOPE_PSI |
SlopeX(i,j) = SIGN(slopeCutoff,SlopeX(i,j)) |
|
./pkg/gmredi/gmredi_slope_psi.F |
218 |
GMREDI_SLOPE_PSI |
taperX(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_psi.F |
229 |
GMREDI_SLOPE_PSI |
DO j=1-OLy+1,sNy+OLy |
|
./pkg/gmredi/gmredi_slope_psi.F |
231 |
GMREDI_SLOPE_PSI |
IF (dSigmaDrS(i,j).GE.-GM_Small_Number) |
|
./pkg/gmredi/gmredi_slope_psi.F |
232 |
GMREDI_SLOPE_PSI |
& dSigmaDrS(i,j) = -GM_Small_Number |
|
./pkg/gmredi/gmredi_slope_psi.F |
238 |
GMREDI_SLOPE_PSI |
DO j=1-OLy+1,sNy+OLy |
|
./pkg/gmredi/gmredi_slope_psi.F |
240 |
GMREDI_SLOPE_PSI |
SlopeY(i,j) = -SlopeY(i,j)/dSigmaDrS(i,j) |
|
./pkg/gmredi/gmredi_slope_psi.F |
241 |
GMREDI_SLOPE_PSI |
taperY(i,j) = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_psi.F |
248 |
GMREDI_SLOPE_PSI |
DO j=1-OLy+1,sNy+OLy |
|
./pkg/gmredi/gmredi_slope_psi.F |
250 |
GMREDI_SLOPE_PSI |
IF ( ABS(SlopeY(i,j)) .GE. slopeCutoff ) THEN |
|
./pkg/gmredi/gmredi_slope_psi.F |
251 |
GMREDI_SLOPE_PSI |
SlopeY(i,j) = SIGN(slopeCutoff,SlopeY(i,j)) |
|
./pkg/gmredi/gmredi_slope_psi.F |
252 |
GMREDI_SLOPE_PSI |
taperY(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_psi.F |
268 |
GMREDI_SLOPE_PSI |
DO j=1-OLy,sNy+OLy |
|
./pkg/gmredi/gmredi_slope_psi.F |
270 |
GMREDI_SLOPE_PSI |
Smod = ABS(SlopeX(i,j)) |
|
./pkg/gmredi/gmredi_slope_psi.F |
273 |
GMREDI_SLOPE_PSI |
& taperX(i,j)=GM_maxSlope/(Smod+GM_Small_Number) |
|
./pkg/gmredi/gmredi_slope_psi.F |
276 |
GMREDI_SLOPE_PSI |
DO j=1-OLy+1,sNy+OLy |
|
./pkg/gmredi/gmredi_slope_psi.F |
278 |
GMREDI_SLOPE_PSI |
Smod = ABS(SlopeY(i,j)) |
|
./pkg/gmredi/gmredi_slope_psi.F |
281 |
GMREDI_SLOPE_PSI |
& taperY(i,j)=GM_maxSlope/(Smod+GM_Small_Number) |
|
./pkg/gmredi/gmredi_slope_psi.F |
289 |
GMREDI_SLOPE_PSI |
DO j=1-OLy,sNy+OLy |
|
./pkg/gmredi/gmredi_slope_psi.F |
291 |
GMREDI_SLOPE_PSI |
IF ( ABS(SlopeX(i,j)) .GT. GM_maxSlope .AND. |
|
./pkg/gmredi/gmredi_slope_psi.F |
292 |
GMREDI_SLOPE_PSI |
& ABS(SlopeX(i,j)) .LT. slopeCutoff ) |
|
./pkg/gmredi/gmredi_slope_psi.F |
293 |
GMREDI_SLOPE_PSI |
& taperX(i,j)=maxSlopeSqr/ |
|
./pkg/gmredi/gmredi_slope_psi.F |
294 |
GMREDI_SLOPE_PSI |
& ( SlopeX(i,j)*SlopeX(i,j) + GM_Small_Number ) |
|
./pkg/gmredi/gmredi_slope_psi.F |
297 |
GMREDI_SLOPE_PSI |
DO j=1-OLy+1,sNy+OLy |
|
./pkg/gmredi/gmredi_slope_psi.F |
299 |
GMREDI_SLOPE_PSI |
IF ( ABS(SlopeY(i,j)) .GT. GM_maxSlope .AND. |
|
./pkg/gmredi/gmredi_slope_psi.F |
300 |
GMREDI_SLOPE_PSI |
& ABS(SlopeY(i,j)) .LT. slopeCutoff ) |
|
./pkg/gmredi/gmredi_slope_psi.F |
301 |
GMREDI_SLOPE_PSI |
& taperY(i,j)=maxSlopeSqr/ |
|
./pkg/gmredi/gmredi_slope_psi.F |
302 |
GMREDI_SLOPE_PSI |
& ( SlopeY(i,j)*SlopeY(i,j) + GM_Small_Number ) |
|
./pkg/gmredi/gmredi_slope_psi.F |
309 |
GMREDI_SLOPE_PSI |
DO j=1-OLy,sNy+OLy |
|
./pkg/gmredi/gmredi_slope_psi.F |
311 |
GMREDI_SLOPE_PSI |
Smod = ABS(SlopeX(i,j)) |
|
./pkg/gmredi/gmredi_slope_psi.F |
312 |
GMREDI_SLOPE_PSI |
taperX(i,j)=op5*( 1. _d 0 + TANH( (GM_Scrit-Smod)/GM_Sd )) |
|
./pkg/gmredi/gmredi_slope_psi.F |
315 |
GMREDI_SLOPE_PSI |
DO j=1-OLy+1,sNy+OLy |
|
./pkg/gmredi/gmredi_slope_psi.F |
317 |
GMREDI_SLOPE_PSI |
Smod = ABS(SlopeY(i,j)) |
|
./pkg/gmredi/gmredi_slope_psi.F |
318 |
GMREDI_SLOPE_PSI |
taperY(i,j)=op5*( 1. _d 0 + TANH( (GM_Scrit-Smod)/GM_Sd )) |
|
./pkg/gmredi/gmredi_slope_psi.F |
326 |
GMREDI_SLOPE_PSI |
DO j=1-OLy,sNy+OLy |
|
./pkg/gmredi/gmredi_slope_psi.F |
328 |
GMREDI_SLOPE_PSI |
Smod = ABS(SlopeX(i,j)) |
|
./pkg/gmredi/gmredi_slope_psi.F |
332 |
GMREDI_SLOPE_PSI |
Rnondim = -depthZ/(LrhoW(i,j)*Smod) |
|
./pkg/gmredi/gmredi_slope_psi.F |
341 |
GMREDI_SLOPE_PSI |
taperX(i,j)=f1*f2 |
|
./pkg/gmredi/gmredi_slope_psi.F |
346 |
GMREDI_SLOPE_PSI |
DO j=1-OLy+1,sNy+OLy |
|
./pkg/gmredi/gmredi_slope_psi.F |
348 |
GMREDI_SLOPE_PSI |
Smod = ABS(SlopeY(i,j)) |
|
./pkg/gmredi/gmredi_slope_psi.F |
352 |
GMREDI_SLOPE_PSI |
Rnondim = -depthZ/(LrhoS(i,j)*Smod) |
|
./pkg/gmredi/gmredi_slope_psi.F |
361 |
GMREDI_SLOPE_PSI |
taperY(i,j)=f1*f2 |
|
./pkg/gmredi/gmredi_slope_psi.F |
382 |
GMREDI_SLOPE_PSI |
DO j=1-OLy,sNy+OLy |
|
./pkg/gmredi/gmredi_slope_psi.F |
384 |
GMREDI_SLOPE_PSI |
slopeTmpSpec=ABS(SlopeX(i,j)) |
|
./pkg/gmredi/gmredi_slope_psi.F |
386 |
GMREDI_SLOPE_PSI |
SlopeX(i,j)=5.*SlopeX(i,j)*slopeMaxSpec/slopeTmpSpec |
|
./pkg/gmredi/gmredi_slope_psi.F |
388 |
GMREDI_SLOPE_PSI |
SlopeX(i,j)=5.*SlopeX(i,j) |
|
./pkg/gmredi/gmredi_slope_psi.F |
390 |
GMREDI_SLOPE_PSI |
taperX(i,j)=1. |
|
./pkg/gmredi/gmredi_slope_psi.F |
393 |
GMREDI_SLOPE_PSI |
DO j=1-OLy+1,sNy+OLy |
|
./pkg/gmredi/gmredi_slope_psi.F |
395 |
GMREDI_SLOPE_PSI |
slopeTmpSpec=ABS(SlopeY(i,j)) |
|
./pkg/gmredi/gmredi_slope_psi.F |
397 |
GMREDI_SLOPE_PSI |
SlopeY(i,j)=5.*SlopeY(i,j)*slopeMaxSpec/slopeTmpSpec |
|
./pkg/gmredi/gmredi_slope_psi.F |
399 |
GMREDI_SLOPE_PSI |
SlopeY(i,j)=5.*SlopeY(i,j) |
|
./pkg/gmredi/gmredi_slope_psi.F |
401 |
GMREDI_SLOPE_PSI |
taperY(i,j)=1. |
|
./pkg/gmredi/gmredi_slope_psi.F |
67 |
GMREDI_SLOPE_PSI |
INTEGER i,j |
|
./pkg/gmredi/gmredi_write_pickup.F |
102 |
GMREDI_WRITE_PICKUP |
DO j=1-Oly,sNy+Oly |
|
./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 |
122 |
GMREDI_WRITE_PICKUP |
DO j=1-Oly,sNy+Oly |
|
./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 |
83 |
GMREDI_WRITE_PICKUP |
DO j=1-Oly,sNy+Oly |
|
./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_xtransport.F |
126 |
GMREDI_XTRANSPORT |
DO j=jMin,jMax |
|
./pkg/gmredi/gmredi_xtransport.F |
128 |
GMREDI_XTRANSPORT |
df(i,j) = df(i,j) |
|
./pkg/gmredi/gmredi_xtransport.F |
129 |
GMREDI_XTRANSPORT |
& -xA(i,j) |
|
./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 |
144 |
GMREDI_XTRANSPORT |
& *(Tracer(i,j,k)-Tracer(i-1,j,k)) |
|
./pkg/gmredi/gmredi_xtransport.F |
154 |
GMREDI_XTRANSPORT |
DO j=jMin,jMax |
|
./pkg/gmredi/gmredi_xtransport.F |
156 |
GMREDI_XTRANSPORT |
dTdz(i,j) = op5*( |
|
./pkg/gmredi/gmredi_xtransport.F |
158 |
GMREDI_XTRANSPORT |
& ( maskC(i-1,j,k,bi,bj)* |
|
./pkg/gmredi/gmredi_xtransport.F |
159 |
GMREDI_XTRANSPORT |
& (Tracer(i-1,j,km1)-Tracer(i-1,j,k)) |
|
./pkg/gmredi/gmredi_xtransport.F |
160 |
GMREDI_XTRANSPORT |
& +maskC( i ,j,k,bi,bj)* |
|
./pkg/gmredi/gmredi_xtransport.F |
161 |
GMREDI_XTRANSPORT |
& (Tracer( i ,j,km1)-Tracer( i ,j,k)) |
|
./pkg/gmredi/gmredi_xtransport.F |
164 |
GMREDI_XTRANSPORT |
& ( maskC(i-1,j,kp1,bi,bj)* |
|
./pkg/gmredi/gmredi_xtransport.F |
165 |
GMREDI_XTRANSPORT |
& (Tracer(i-1,j,k)-Tracer(i-1,j,kp1)) |
|
./pkg/gmredi/gmredi_xtransport.F |
166 |
GMREDI_XTRANSPORT |
& +maskC( i ,j,kp1,bi,bj)* |
|
./pkg/gmredi/gmredi_xtransport.F |
167 |
GMREDI_XTRANSPORT |
& (Tracer( i ,j,k)-Tracer( i ,j,kp1)) |
|
./pkg/gmredi/gmredi_xtransport.F |
177 |
GMREDI_XTRANSPORT |
DO j=jMin,jMax |
|
./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 |
191 |
GMREDI_XTRANSPORT |
DO j=jMin,jMax |
|
./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 |
202 |
GMREDI_XTRANSPORT |
DO j=jMin,jMax |
|
./pkg/gmredi/gmredi_xtransport.F |
204 |
GMREDI_XTRANSPORT |
df(i,j) = df(i,j) |
|
./pkg/gmredi/gmredi_xtransport.F |
205 |
GMREDI_XTRANSPORT |
& +uTrans(i,j)*op5*(Tracer(i,j,k)+Tracer(i-1,j,k)) |
|
./pkg/gmredi/gmredi_xtransport.F |
219 |
GMREDI_XTRANSPORT |
DO j=jMin,jMax |
|
./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 |
224 |
GMREDI_XTRANSPORT |
& *op5*(Tracer(i,j,k)+Tracer(i-1,j,k)) |
|
./pkg/gmredi/gmredi_xtransport.F |
72 |
GMREDI_XTRANSPORT |
INTEGER i, j |
|
./pkg/gmredi/gmredi_ytransport.F |
125 |
GMREDI_YTRANSPORT |
DO j=jMin,jMax |
|
./pkg/gmredi/gmredi_ytransport.F |
127 |
GMREDI_YTRANSPORT |
df(i,j) = df(i,j) |
|
./pkg/gmredi/gmredi_ytransport.F |
128 |
GMREDI_YTRANSPORT |
& -yA(i,j) |
|
./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 |
143 |
GMREDI_YTRANSPORT |
& *(Tracer(i,j,k)-Tracer(i,j-1,k)) |
|
./pkg/gmredi/gmredi_ytransport.F |
153 |
GMREDI_YTRANSPORT |
DO j=jMin,jMax |
|
./pkg/gmredi/gmredi_ytransport.F |
155 |
GMREDI_YTRANSPORT |
dTdz(i,j) = op5*( |
|
./pkg/gmredi/gmredi_ytransport.F |
157 |
GMREDI_YTRANSPORT |
& ( maskC(i,j-1,k,bi,bj)* |
|
./pkg/gmredi/gmredi_ytransport.F |
158 |
GMREDI_YTRANSPORT |
& (Tracer(i,j-1,km1)-Tracer(i,j-1,k)) |
|
./pkg/gmredi/gmredi_ytransport.F |
159 |
GMREDI_YTRANSPORT |
& +maskC(i, j ,k,bi,bj)* |
|
./pkg/gmredi/gmredi_ytransport.F |
160 |
GMREDI_YTRANSPORT |
& (Tracer(i, j ,km1)-Tracer(i, j ,k)) |
|
./pkg/gmredi/gmredi_ytransport.F |
163 |
GMREDI_YTRANSPORT |
& ( maskC(i,j-1,kp1,bi,bj)* |
|
./pkg/gmredi/gmredi_ytransport.F |
164 |
GMREDI_YTRANSPORT |
& (Tracer(i,j-1,k)-Tracer(i,j-1,kp1)) |
|
./pkg/gmredi/gmredi_ytransport.F |
165 |
GMREDI_YTRANSPORT |
& +maskC(i, j ,kp1,bi,bj)* |
|
./pkg/gmredi/gmredi_ytransport.F |
166 |
GMREDI_YTRANSPORT |
& (Tracer(i, j ,k)-Tracer(i, j ,kp1)) |
|
./pkg/gmredi/gmredi_ytransport.F |
175 |
GMREDI_YTRANSPORT |
DO j=jMin,jMax |
|
./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 |
190 |
GMREDI_YTRANSPORT |
DO j=jMin,jMax |
|
./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 |
201 |
GMREDI_YTRANSPORT |
DO j=jMin,jMax |
|
./pkg/gmredi/gmredi_ytransport.F |
203 |
GMREDI_YTRANSPORT |
df(i,j) = df(i,j) |
|
./pkg/gmredi/gmredi_ytransport.F |
204 |
GMREDI_YTRANSPORT |
& +vTrans(i,j)*op5*(Tracer(i,j,k)+Tracer(i,j-1,k)) |
|
./pkg/gmredi/gmredi_ytransport.F |
217 |
GMREDI_YTRANSPORT |
DO j=jMin,jMax |
|
./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 |
222 |
GMREDI_YTRANSPORT |
& *op5*(Tracer(i,j,k)+Tracer(i,j-1,k)) |
|
./pkg/gmredi/gmredi_ytransport.F |
71 |
GMREDI_YTRANSPORT |
INTEGER i, j |
|
./pkg/gmredi/submeso_calc_psi.F |
103 |
SUBMESO_CALC_PSI |
DO j=1-OLy,sNy+OLy |
|
./pkg/gmredi/submeso_calc_psi.F |
105 |
SUBMESO_CALC_PSI |
dzLoc = MAX( 0. _d 0, MIN( drF(k), mixLayerU(i,j)+rF(k) ) ) |
|
./pkg/gmredi/submeso_calc_psi.F |
106 |
SUBMESO_CALC_PSI |
dBuoyX_Hu(i,j) = dBuoyX_Hu(i,j) + sigmaX(i,j,k)*dzLoc |
|
./pkg/gmredi/submeso_calc_psi.F |
109 |
SUBMESO_CALC_PSI |
DO j=1-OLy+1,sNy+OLy |
|
./pkg/gmredi/submeso_calc_psi.F |
111 |
SUBMESO_CALC_PSI |
dzLoc = MAX( 0. _d 0, MIN( drF(k), mixLayerV(i,j)+rF(k) ) ) |
|
./pkg/gmredi/submeso_calc_psi.F |
112 |
SUBMESO_CALC_PSI |
dBuoyY_Hv(i,j) = dBuoyY_Hv(i,j) + sigmaY(i,j,k)*dzLoc |
|
./pkg/gmredi/submeso_calc_psi.F |
117 |
SUBMESO_CALC_PSI |
DO j=1-OLy,sNy+OLy |
|
./pkg/gmredi/submeso_calc_psi.F |
120 |
SUBMESO_CALC_PSI |
IF ( locMixLayer(i,j)+rC(k-1).GE.0. ) dzLoc = drC(k) |
|
./pkg/gmredi/submeso_calc_psi.F |
121 |
SUBMESO_CALC_PSI |
NHmixLay(i,j) = NHmixLay(i,j) |
|
./pkg/gmredi/submeso_calc_psi.F |
122 |
SUBMESO_CALC_PSI |
& + dzLoc*MAX( -sigmaR(i,j,k), 0. _d 0 ) |
|
./pkg/gmredi/submeso_calc_psi.F |
126 |
SUBMESO_CALC_PSI |
DO j=1-OLy,sNy+OLy |
|
./pkg/gmredi/submeso_calc_psi.F |
128 |
SUBMESO_CALC_PSI |
dBuoyX_Hu(i,j)= -dBuoyX_Hu(i,j)*gravity*recip_rhoConst |
|
./pkg/gmredi/submeso_calc_psi.F |
129 |
SUBMESO_CALC_PSI |
dBuoyY_Hv(i,j)= -dBuoyY_Hv(i,j)*gravity*recip_rhoConst |
|
./pkg/gmredi/submeso_calc_psi.F |
130 |
SUBMESO_CALC_PSI |
NHmixLay(i,j) = SQRT( NHmixLay(i,j)*gravity*recip_rhoConst |
|
./pkg/gmredi/submeso_calc_psi.F |
131 |
SUBMESO_CALC_PSI |
& *locMixLayer(i,j) ) |
|
./pkg/gmredi/submeso_calc_psi.F |
134 |
SUBMESO_CALC_PSI |
DO j=2-OLy,sNy+OLy-1 |
|
./pkg/gmredi/submeso_calc_psi.F |
136 |
SUBMESO_CALC_PSI |
MsquareH(i,j)= SQRT( op25*( |
|
./pkg/gmredi/submeso_calc_psi.F |
137 |
SUBMESO_CALC_PSI |
& (dBuoyX_Hu(i,j) + dBuoyX_Hu(i+1,j))**2 |
|
./pkg/gmredi/submeso_calc_psi.F |
138 |
SUBMESO_CALC_PSI |
& + (dBuoyY_Hv(i,j) + dBuoyY_Hv(i,j+1))**2 |
|
./pkg/gmredi/submeso_calc_psi.F |
143 |
SUBMESO_CALC_PSI |
DO j=2-OLy,sNy+OLy-1 |
|
./pkg/gmredi/submeso_calc_psi.F |
145 |
SUBMESO_CALC_PSI |
lengthScaleF(i,j)= MAX( |
|
./pkg/gmredi/submeso_calc_psi.F |
146 |
SUBMESO_CALC_PSI |
& MsquareH(i,j)/(fcorLoc(i,j)*fcorLoc(i,j)) , |
|
./pkg/gmredi/submeso_calc_psi.F |
147 |
SUBMESO_CALC_PSI |
& NHmixLay(i,j)/fcorLoc(i,j) , |
|
./pkg/gmredi/submeso_calc_psi.F |
153 |
SUBMESO_CALC_PSI |
DO j=2-OLy,sNy+OLy-1 |
|
./pkg/gmredi/submeso_calc_psi.F |
155 |
SUBMESO_CALC_PSI |
PsiLoc(i,j) = -subMeso_Ceff*dBuoyX_Hu(i,j) |
|
./pkg/gmredi/submeso_calc_psi.F |
156 |
SUBMESO_CALC_PSI |
& *mixLayerU(i,j) |
|
./pkg/gmredi/submeso_calc_psi.F |
157 |
SUBMESO_CALC_PSI |
& *MIN( dxC(i,j,bi,bj), subMeso_Lmax ) |
|
./pkg/gmredi/submeso_calc_psi.F |
158 |
SUBMESO_CALC_PSI |
& *2. _d 0/(lengthScaleF(i-1,j)+lengthScaleF(i,j)) |
|
./pkg/gmredi/submeso_calc_psi.F |
159 |
SUBMESO_CALC_PSI |
& *2. _d 0/(fcorLoc(i-1,j)+fcorLoc(i,j)) |
|
./pkg/gmredi/submeso_calc_psi.F |
164 |
SUBMESO_CALC_PSI |
DO j=2-OLy,sNy+OLy-1 |
|
./pkg/gmredi/submeso_calc_psi.F |
166 |
SUBMESO_CALC_PSI |
IF ( mixLayerU(i,j).GT.0. _d 0 ) THEN |
|
./pkg/gmredi/submeso_calc_psi.F |
167 |
SUBMESO_CALC_PSI |
z2H = 2. _d 0*rF(k)/mixLayerU(i,j) |
|
./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 |
175 |
SUBMESO_CALC_PSI |
& + mu_z*PsiLoc(i,j) |
|
./pkg/gmredi/submeso_calc_psi.F |
196 |
SUBMESO_CALC_PSI |
DO j=3-OLy,sNy+OLy-1 |
|
./pkg/gmredi/submeso_calc_psi.F |
198 |
SUBMESO_CALC_PSI |
PsiLoc(i,j) = -subMeso_Ceff*dBuoyY_Hv(i,j) |
|
./pkg/gmredi/submeso_calc_psi.F |
199 |
SUBMESO_CALC_PSI |
& *mixLayerV(i,j) |
|
./pkg/gmredi/submeso_calc_psi.F |
200 |
SUBMESO_CALC_PSI |
& *MIN( dyC(i,j,bi,bj), subMeso_Lmax ) |
|
./pkg/gmredi/submeso_calc_psi.F |
201 |
SUBMESO_CALC_PSI |
& *2. _d 0/(lengthScaleF(i,j-1)+lengthScaleF(i,j)) |
|
./pkg/gmredi/submeso_calc_psi.F |
202 |
SUBMESO_CALC_PSI |
& *2. _d 0/(fcorLoc(i,j-1)+fcorLoc(i,j)) |
|
./pkg/gmredi/submeso_calc_psi.F |
207 |
SUBMESO_CALC_PSI |
DO j=3-OLy,sNy+OLy-1 |
|
./pkg/gmredi/submeso_calc_psi.F |
209 |
SUBMESO_CALC_PSI |
IF ( mixLayerV(i,j).GT.0. _d 0 ) THEN |
|
./pkg/gmredi/submeso_calc_psi.F |
210 |
SUBMESO_CALC_PSI |
z2H = 2. _d 0*rF(k)/mixLayerV(i,j) |
|
./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 |
218 |
SUBMESO_CALC_PSI |
& + mu_z*PsiLoc(i,j) |
|
./pkg/gmredi/submeso_calc_psi.F |
50 |
SUBMESO_CALC_PSI |
INTEGER i,j,k |
|
./pkg/gmredi/submeso_calc_psi.F |
79 |
SUBMESO_CALC_PSI |
DO j=1-OLy,sNy+OLy |
|
./pkg/gmredi/submeso_calc_psi.F |
81 |
SUBMESO_CALC_PSI |
mixLayerU(i,j) = op5*( locMixLayer(i-1,j)+locMixLayer(i,j) ) |
|
./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 |
85 |
SUBMESO_CALC_PSI |
DO j=1-OLy+1,sNy+OLy |
|
./pkg/gmredi/submeso_calc_psi.F |
87 |
SUBMESO_CALC_PSI |
mixLayerV(i,j)=op5*( locMixLayer(i,j-1)+locMixLayer(i,j) ) |
|
./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 |
93 |
SUBMESO_CALC_PSI |
DO j=1-OLy,sNy+OLy |
|
./pkg/gmredi/submeso_calc_psi.F |
95 |
SUBMESO_CALC_PSI |
dBuoyX_Hu(i,j)= 0. |
|
./pkg/gmredi/submeso_calc_psi.F |
96 |
SUBMESO_CALC_PSI |
dBuoyY_Hv(i,j)= 0. |
|
./pkg/gmredi/submeso_calc_psi.F |
97 |
SUBMESO_CALC_PSI |
NHmixLay(i,j) = 0. |
|
./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 |
136 |
GRDCHK_GET_OBCS_MASK |
do j = jmin,jmax |
|
./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 |
159 |
GRDCHK_GET_OBCS_MASK |
do j = jmin,jmax |
|
./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 |
42 |
GRDCHK_GET_OBCS_MASK |
integer i,j,k |
|
./pkg/grdchk/grdchk_get_position.F |
141 |
GRDCHK_GET_POSITION |
do j = jwrk, ncvarymax(grdchkvarindex) |
|
./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 |
171 |
GRDCHK_GET_POSITION |
& .and. j.eq. OB_Jn(I,bi,bj) ) then |
|
./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 |
186 |
GRDCHK_GET_POSITION |
if ( grdchk_maskyz(j,k,bi,bj,iobcs) .gt. 0. |
|
./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 |
198 |
GRDCHK_GET_POSITION |
wetlocal = grdchk_maskyz(j,k,bi,bj,iobcs) |
|
./pkg/grdchk/grdchk_get_position.F |
204 |
GRDCHK_GET_POSITION |
& j .EQ. jtilepos .AND. |
|
./pkg/grdchk/grdchk_get_position.F |
60 |
GRDCHK_GET_POSITION |
integer i,j,k |
|
./pkg/grdchk/grdchk_getadxx.F |
82 |
GRDCHK_GETADXX |
integer i,j,k |
|
./pkg/grdchk/grdchk_init.F |
44 |
GRDCHK_INIT |
integer i,j,k |
|
./model/src/adams_bashforth2.F |
59 |
ADAMS_BASHFORTH2 |
INTEGER i, j, k |
|
./model/src/adams_bashforth2.F |
75 |
ADAMS_BASHFORTH2 |
DO j=1-OLy,sNy+OLy |
|
./model/src/adams_bashforth2.F |
77 |
ADAMS_BASHFORTH2 |
AB_gTr(i,j) = abFac*( gTracer(i,j,k) - gTrNm1(i,j,k) ) |
|
./model/src/adams_bashforth2.F |
78 |
ADAMS_BASHFORTH2 |
gTrNm1(i,j,k) = gTracer(i,j,k) + AB_gTr(i,j) |
|
./model/src/adams_bashforth2.F |
85 |
ADAMS_BASHFORTH2 |
DO j=1-OLy,sNy+OLy |
|
./model/src/adams_bashforth2.F |
87 |
ADAMS_BASHFORTH2 |
AB_gTr(i,j) = abFac*( gTracer(i,j,k) - gTrNm1(i,j,k) ) |
|
./model/src/adams_bashforth2.F |
88 |
ADAMS_BASHFORTH2 |
gTrNm1(i,j,k) = gTracer(i,j,k) |
|
./model/src/adams_bashforth2.F |
89 |
ADAMS_BASHFORTH2 |
gTracer(i,j,k) = gTracer(i,j,k) + AB_gTr(i,j) |
|
./pkg/grdchk/grdchk_loc.F |
189 |
GRDCHK_LOC |
do j = jwrk, ncvarymax(grdchkvarindex) |
|
./pkg/grdchk/grdchk_loc.F |
193 |
GRDCHK_LOC |
if ( maskC(i,j,k,bi,bj) .gt. 0.) then |
|
./pkg/grdchk/grdchk_loc.F |
196 |
GRDCHK_LOC |
jtmp = j |
|
./pkg/grdchk/grdchk_loc.F |
199 |
GRDCHK_LOC |
if ( _maskS(i,j,k,bi,bj) .gt. 0.) then |
|
./pkg/grdchk/grdchk_loc.F |
202 |
GRDCHK_LOC |
jtmp = j |
|
./pkg/grdchk/grdchk_loc.F |
205 |
GRDCHK_LOC |
if ( _maskW(i,j,k,bi,bj) .gt. 0.) then |
|
./pkg/grdchk/grdchk_loc.F |
208 |
GRDCHK_LOC |
jtmp = j |
|
./pkg/grdchk/grdchk_loc.F |
212 |
GRDCHK_LOC |
if ( maskSHI(i,j,k,bi,bj) .gt. 0.) then |
|
./pkg/grdchk/grdchk_loc.F |
215 |
GRDCHK_LOC |
jtmp = j |
|
./pkg/grdchk/grdchk_loc.F |
222 |
GRDCHK_LOC |
& .and. j.eq. OB_Jn(I,bi,bj) ) then |
|
./pkg/grdchk/grdchk_loc.F |
231 |
GRDCHK_LOC |
& .and. j.eq. OB_Js(I,bi,bj) ) then |
|
./pkg/grdchk/grdchk_loc.F |
239 |
GRDCHK_LOC |
if ( grdchk_maskyz(j,k,bi,bj,iobcs) .gt. 0. |
|
./pkg/grdchk/grdchk_loc.F |
243 |
GRDCHK_LOC |
jtmp = j |
|
./pkg/grdchk/grdchk_loc.F |
248 |
GRDCHK_LOC |
if ( grdchk_maskyz(j,k,bi,bj,iobcs) .gt. 0. |
|
./pkg/grdchk/grdchk_loc.F |
252 |
GRDCHK_LOC |
jtmp = j |
|
./pkg/grdchk/grdchk_loc.F |
75 |
GRDCHK_LOC |
integer i,j,k |
|
./pkg/grdchk/grdchk_main.F |
101 |
GRDCHK_MAIN |
INTEGER i, j, k |
|
./pkg/grdchk/grdchk_main.F |
180 |
GRDCHK_MAIN |
DO j = jMin, jMax |
|
./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/grdchk/grdchk_main.F |
289 |
GRDCHK_MAIN |
DO j=1,sNy |
|
./pkg/grdchk/grdchk_main.F |
291 |
GRDCHK_MAIN |
g_objf_state_final(i,j,1,1,k) = 0. |
|
./pkg/grdchk/grdchk_setxx.F |
65 |
GRDCHK_SETXX |
integer i,j,k |
|
./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 |
114 |
DYN2PHYS |
weights(i,j,Lphy) = 1. |
|
./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 |
118 |
DYN2PHYS |
weights(i,j,Lphy) = |
|
./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 |
121 |
DYN2PHYS |
weights(i,j,Lphy) = 1. |
|
./pkg/gridalt/dyn2phys.F |
123 |
DYN2PHYS |
qphy(i,j,Lphy,bi,bj) = qd * weights(i,j,Lphy) |
|
./pkg/gridalt/dyn2phys.F |
59 |
DYN2PHYS |
integer i,j,L,Lout1,Lout2,Lphy |
|
./pkg/gridalt/dyn2phys.F |
77 |
DYN2PHYS |
do j = jdim1,jdim2 |
|
./pkg/gridalt/dyn2phys.F |
79 |
DYN2PHYS |
pphy(i,j,Lphy) = |
|
./pkg/gridalt/dyn2phys.F |
80 |
DYN2PHYS |
. (pephy(i,j,Lphy,bi,bj)+pephy(i,j,Lphy+1,bi,bj))/2. |
|
./pkg/gridalt/dyn2phys.F |
88 |
DYN2PHYS |
do j = jdim1,jdim2 |
|
./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) |
|
./model/src/adams_bashforth3.F |
107 |
ADAMS_BASHFORTH3 |
DO j=1-OLy,sNy+OLy |
|
./model/src/adams_bashforth3.F |
109 |
ADAMS_BASHFORTH3 |
AB_gTr(i,j) = ab0*gTracer(i,j,k) |
|
./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 |
119 |
ADAMS_BASHFORTH3 |
DO j=1-OLy,sNy+OLy |
|
./model/src/adams_bashforth3.F |
121 |
ADAMS_BASHFORTH3 |
AB_gTr(i,j) = ab0*gTracer(i,j,k) |
|
./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 |
125 |
ADAMS_BASHFORTH3 |
gTracer(i,j,k) = gTracer(i,j,k) + AB_gTr(i,j) |
|
./model/src/adams_bashforth3.F |
79 |
ADAMS_BASHFORTH3 |
INTEGER i,j, k, m1,m2 |
|
./pkg/gridalt/gridalt_update.F |
31 |
GRIDALT_UPDATE |
integer i,j,L |
|
./pkg/gridalt/gridalt_update.F |
53 |
GRIDALT_UPDATE |
do j = j1,j2 |
|
./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 |
74 |
GRIDALT_UPDATE |
do j = j1,j2 |
|
./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 |
121 |
MAKE_PHYS_GRID |
do j = j1,j2 |
|
./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 |
56 |
MAKE_PHYS_GRID |
integer i,j,L,Lbotij,Lnew |
|
./pkg/gridalt/make_phys_grid.F |
96 |
MAKE_PHYS_GRID |
do j = j1,j2 |
|
./pkg/gridalt/make_phys_grid.F |
98 |
MAKE_PHYS_GRID |
nlperdyn(i,j,L,bi,bj) = 0 |
|
./pkg/gridalt/phys2dyn.F |
51 |
PHYS2DYN |
integer i,j,L,Lout1,Lout1p1,Lout2,Lphy |
|
./pkg/gridalt/phys2dyn.F |
72 |
PHYS2DYN |
do j = jdim1,jdim2 |
|
./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 |
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 |
97 |
ICEFRONT_INIT_FIXED |
K_icefront(i,j,bi,bj) = 0 |
|
./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 |
110 |
ADD_WALLS2MASKS |
DO j=1-OLy,sNy+OLy |
|
./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 |
46 |
ADD_WALLS2MASKS |
INTEGER i, j, k |
|
./model/src/add_walls2masks.F |
56 |
ADD_WALLS2MASKS |
DO j=1-OLy,sNy+OLy |
|
./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 |
83 |
ADD_WALLS2MASKS |
DO j=1-OLy,sNy+OLy |
|
./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 |
101 |
ICEFRONT_TENDENCY_APPLY_S |
DO j=1,sNy |
|
./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 |
104 |
ICEFRONT_TENDENCY_APPLY_S |
gS_arr(i,j) = gS_arr(i,j) |
|
./pkg/icefront/icefront_tendency_apply.F |
105 |
ICEFRONT_TENDENCY_APPLY_S |
& + ICEFRONT_TendS(i,j,k,bi,bj) |
|
./pkg/icefront/icefront_tendency_apply.F |
46 |
ICEFRONT_TENDENCY_APPLY_T |
INTEGER i, j |
|
./pkg/icefront/icefront_tendency_apply.F |
49 |
ICEFRONT_TENDENCY_APPLY_T |
DO j=1,sNy |
|
./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 |
52 |
ICEFRONT_TENDENCY_APPLY_T |
gT_arr(i,j) = gT_arr(i,j) |
|
./pkg/icefront/icefront_tendency_apply.F |
53 |
ICEFRONT_TENDENCY_APPLY_T |
& + ICEFRONT_TendT(i,j,k,bi,bj) |
|
./pkg/icefront/icefront_tendency_apply.F |
98 |
ICEFRONT_TENDENCY_APPLY_S |
INTEGER i, j |
|
./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 |
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/kl10/kl10_calc_diff.F |
47 |
KL10_CALC_DIFF |
INTEGER i,j,k |
|
./pkg/kl10/kl10_calc_diff.F |
53 |
KL10_CALC_DIFF |
DO j=jMin,jMax |
|
./pkg/kl10/kl10_calc_diff.F |
55 |
KL10_CALC_DIFF |
KappaRx(i,j,k) = KappaRx(i,j,k) |
|
./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 |
68 |
KL10_CALC_DIFF |
DO j=jMin,jMax |
|
./pkg/kl10/kl10_calc_diff.F |
70 |
KL10_CALC_DIFF |
KappaRx(i,j,k) = KappaRx(i,j,k) |
|
./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_visc.F |
40 |
KL10_CALC_VISC |
INTEGER i,j |
|
./pkg/kl10/kl10_calc_visc.F |
42 |
KL10_CALC_VISC |
DO j=jMin,jMax |
|
./pkg/kl10/kl10_calc_visc.F |
44 |
KL10_CALC_VISC |
KappaRU(i,j,k) = max ( KappaRU(i,j,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 |
50 |
KL10_CALC_VISC |
DO j=jMin,jMax |
|
./pkg/kl10/kl10_calc_visc.F |
52 |
KL10_CALC_VISC |
KappaRV(i,j,k) = max ( KappaRV(i,j,k), |
|
./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)) ) |
|
./model/src/apply_forcing.F |
131 |
APPLY_FORCING_U |
DO j=0,sNy+1 |
|
./model/src/apply_forcing.F |
133 |
APPLY_FORCING_U |
gU_arr(i,j) = gU_arr(i,j) |
|
./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 |
145 |
APPLY_FORCING_U |
DO j=0,sNy+1 |
|
./model/src/apply_forcing.F |
147 |
APPLY_FORCING_U |
gU_arr(i,j) = gU_arr(i,j) |
|
./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 |
153 |
APPLY_FORCING_U |
DO j=0,sNy+1 |
|
./model/src/apply_forcing.F |
155 |
APPLY_FORCING_U |
IF ( kSurfW(i,j,bi,bj).EQ.k ) THEN |
|
./model/src/apply_forcing.F |
156 |
APPLY_FORCING_U |
gU_arr(i,j) = gU_arr(i,j) |
|
./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 |
251 |
APPLY_FORCING_V |
INTEGER i, j |
|
./model/src/apply_forcing.F |
262 |
APPLY_FORCING_V |
DO j=1-OLy,sNy+OLy |
|
./model/src/apply_forcing.F |
264 |
APPLY_FORCING_V |
locVar(i,j) = gV(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
273 |
APPLY_FORCING_V |
DO j=1-OLy,sNy+OLy |
|
./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 |
281 |
APPLY_FORCING_V |
DO j=1-OLy,sNy+OLy |
|
./model/src/apply_forcing.F |
283 |
APPLY_FORCING_V |
gV_arr(i,j) = gV_arr(i,j) + tmpVar(i,j) |
|
./model/src/apply_forcing.F |
321 |
APPLY_FORCING_V |
DO j=1,sNy+1 |
|
./model/src/apply_forcing.F |
323 |
APPLY_FORCING_V |
gV_arr(i,j) = gV_arr(i,j) |
|
./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 |
333 |
APPLY_FORCING_V |
DO j=1,sNy+1 |
|
./model/src/apply_forcing.F |
337 |
APPLY_FORCING_V |
gV_arr(i,j) = gV_arr(i,j) |
|
./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 |
343 |
APPLY_FORCING_V |
DO j=1,sNy+1 |
|
./model/src/apply_forcing.F |
345 |
APPLY_FORCING_V |
IF ( kSurfS(i,j,bi,bj).EQ.k ) THEN |
|
./model/src/apply_forcing.F |
346 |
APPLY_FORCING_V |
gV_arr(i,j) = gV_arr(i,j) |
|
./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 |
441 |
APPLY_FORCING_T |
INTEGER i, j |
|
./model/src/apply_forcing.F |
459 |
APPLY_FORCING_T |
DO j=1-OLy,sNy+OLy |
|
./model/src/apply_forcing.F |
461 |
APPLY_FORCING_T |
gT(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/apply_forcing.F |
467 |
APPLY_FORCING_T |
DO j=1-OLy,sNy+OLy |
|
./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 |
517 |
APPLY_FORCING_T |
DO j=0,sNy+1 |
|
./model/src/apply_forcing.F |
519 |
APPLY_FORCING_T |
gT_arr(i,j) = gT_arr(i,j) |
|
./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 |
528 |
APPLY_FORCING_T |
DO j=0,sNy+1 |
|
./model/src/apply_forcing.F |
530 |
APPLY_FORCING_T |
gT_arr(i,j) = gT_arr(i,j) |
|
./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 |
553 |
APPLY_FORCING_T |
DO j=0,sNy+1 |
|
./model/src/apply_forcing.F |
555 |
APPLY_FORCING_T |
gT_arr(i,j) = gT_arr(i,j) |
|
./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 |
579 |
APPLY_FORCING_T |
DO j=0,sNy+1 |
|
./model/src/apply_forcing.F |
581 |
APPLY_FORCING_T |
tmpVar(i,j) = 0. |
|
./model/src/apply_forcing.F |
587 |
APPLY_FORCING_T |
DO j=0,sNy+1 |
|
./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 |
599 |
APPLY_FORCING_T |
DO j=0,sNy+1 |
|
./model/src/apply_forcing.F |
601 |
APPLY_FORCING_T |
tmpVar(i,j) = tmpVar(i,j) |
|
./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 |
609 |
APPLY_FORCING_T |
DO j=0,sNy+1 |
|
./model/src/apply_forcing.F |
611 |
APPLY_FORCING_T |
gT_arr(i,j) = gT_arr(i,j) |
|
./model/src/apply_forcing.F |
612 |
APPLY_FORCING_T |
& + tmpVar(i,j)*tmpFac |
|
./model/src/apply_forcing.F |
613 |
APPLY_FORCING_T |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
61 |
APPLY_FORCING_U |
INTEGER i, j |
|
./model/src/apply_forcing.F |
628 |
APPLY_FORCING_T |
DO j=0,sNy+1 |
|
./model/src/apply_forcing.F |
630 |
APPLY_FORCING_T |
gT_arr(i,j) = gT_arr(i,j) |
|
./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 |
636 |
APPLY_FORCING_T |
DO j=0,sNy+1 |
|
./model/src/apply_forcing.F |
638 |
APPLY_FORCING_T |
IF ( kSurfC(i,j,bi,bj).EQ.k ) THEN |
|
./model/src/apply_forcing.F |
639 |
APPLY_FORCING_T |
gT_arr(i,j) = gT_arr(i,j) |
|
./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 |
648 |
APPLY_FORCING_T |
DO j=0,sNy+1 |
|
./model/src/apply_forcing.F |
650 |
APPLY_FORCING_T |
IF (k .EQ. kSurfC(i,j,bi,bj)) THEN |
|
./model/src/apply_forcing.F |
651 |
APPLY_FORCING_T |
gT_arr(i,j) = gT_arr(i,j) |
|
./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 |
660 |
APPLY_FORCING_T |
DO j=0,sNy+1 |
|
./model/src/apply_forcing.F |
662 |
APPLY_FORCING_T |
IF ( k.EQ.kLowC(i,j,bi,bj) ) THEN |
|
./model/src/apply_forcing.F |
663 |
APPLY_FORCING_T |
gT_arr(i,j)=gT_arr(i,j) |
|
./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 |
687 |
APPLY_FORCING_T |
DO j=0,sNy+1 |
|
./model/src/apply_forcing.F |
689 |
APPLY_FORCING_T |
gT_arr(i,j) = gT_arr(i,j) |
|
./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 |
72 |
APPLY_FORCING_U |
DO j=1-OLy,sNy+OLy |
|
./model/src/apply_forcing.F |
74 |
APPLY_FORCING_U |
locVar(i,j) = gU(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
817 |
APPLY_FORCING_S |
INTEGER i, j |
|
./model/src/apply_forcing.F |
825 |
APPLY_FORCING_S |
DO j=1-OLy,sNy+OLy |
|
./model/src/apply_forcing.F |
827 |
APPLY_FORCING_S |
gS(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/apply_forcing.F |
833 |
APPLY_FORCING_S |
DO j=1-OLy,sNy+OLy |
|
./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 |
83 |
APPLY_FORCING_U |
DO j=1-OLy,sNy+OLy |
|
./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 |
86 |
APPLY_FORCING_U |
gU(i,j,k,bi,bj) = locVar(i,j) |
|
./model/src/apply_forcing.F |
882 |
APPLY_FORCING_S |
DO j=0,sNy+1 |
|
./model/src/apply_forcing.F |
884 |
APPLY_FORCING_S |
gS_arr(i,j) = gS_arr(i,j) |
|
./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 |
893 |
APPLY_FORCING_S |
DO j=0,sNy+1 |
|
./model/src/apply_forcing.F |
895 |
APPLY_FORCING_S |
gS_arr(i,j) = gS_arr(i,j) |
|
./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 |
909 |
APPLY_FORCING_S |
DO j=0,sNy+1 |
|
./model/src/apply_forcing.F |
911 |
APPLY_FORCING_S |
gS_arr(i,j) = gS_arr(i,j) |
|
./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 |
917 |
APPLY_FORCING_S |
DO j=0,sNy+1 |
|
./model/src/apply_forcing.F |
919 |
APPLY_FORCING_S |
IF ( kSurfC(i,j,bi,bj).EQ.k ) THEN |
|
./model/src/apply_forcing.F |
91 |
APPLY_FORCING_U |
DO j=1-OLy,sNy+OLy |
|
./model/src/apply_forcing.F |
920 |
APPLY_FORCING_S |
gS_arr(i,j) = gS_arr(i,j) |
|
./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 |
929 |
APPLY_FORCING_S |
DO j=0,sNy+1 |
|
./model/src/apply_forcing.F |
931 |
APPLY_FORCING_S |
IF (k .EQ. kSurfC(i,j,bi,bj)) THEN |
|
./model/src/apply_forcing.F |
932 |
APPLY_FORCING_S |
gS_arr(i,j) = gS_arr(i,j) |
|
./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 |
93 |
APPLY_FORCING_U |
gU_arr(i,j) = gU_arr(i,j) + tmpVar(i,j) |
|
./pkg/kl10/kl10_init_varia.F |
31 |
KL10_INIT_VARIA |
INTEGER i, j, k, bi, bj |
|
./pkg/kl10/kl10_init_varia.F |
40 |
KL10_INIT_VARIA |
DO j = 1-OLy, sNy+OLy |
|
./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) |
|
./model/src/calc_3d_diffusivity.F |
105 |
CALC_3D_DIFFUSIVITY |
KappaRTr(i,j,k) = |
|
./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 |
117 |
CALC_3D_DIFFUSIVITY |
DO j = 1-OLy,sNy+OLy |
|
./model/src/calc_3d_diffusivity.F |
119 |
CALC_3D_DIFFUSIVITY |
KappaRTr(i,j,k) = KappaRTr(i,j,k) |
|
./model/src/calc_3d_diffusivity.F |
121 |
CALC_3D_DIFFUSIVITY |
& + diffKr(i,j,k,bi,bj) |
|
./model/src/calc_3d_diffusivity.F |
130 |
CALC_3D_DIFFUSIVITY |
DO j = 1-OLy, sNy+OLy |
|
./model/src/calc_3d_diffusivity.F |
132 |
CALC_3D_DIFFUSIVITY |
KappaRTr(i,j,k) = KappaRTr(i,j,k) |
|
./model/src/calc_3d_diffusivity.F |
134 |
CALC_3D_DIFFUSIVITY |
& + diffKr(i,j,k,bi,bj) |
|
./model/src/calc_3d_diffusivity.F |
146 |
CALC_3D_DIFFUSIVITY |
DO j = 1-OLy, sNy+OLy |
|
./model/src/calc_3d_diffusivity.F |
148 |
CALC_3D_DIFFUSIVITY |
KappaRTr(i,j,k) = KappaRTr(i,j,k) |
|
./model/src/calc_3d_diffusivity.F |
150 |
CALC_3D_DIFFUSIVITY |
& + diffKr(i,j,k,bi,bj) |
|
./model/src/calc_3d_diffusivity.F |
250 |
CALC_3D_DIFFUSIVITY |
DO j = 2-OLy, sNy+OLy |
|
./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 |
254 |
CALC_3D_DIFFUSIVITY |
KappaRTr(i,j,k) = KappaRTr(i,j,k) |
|
./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 |
275 |
CALC_3D_DIFFUSIVITY |
DO j = 2-OLy, sNy+OLy |
|
./model/src/calc_3d_diffusivity.F |
277 |
CALC_3D_DIFFUSIVITY |
tmpFac(i,j) = 0. _d 0 |
|
./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 |
286 |
CALC_3D_DIFFUSIVITY |
DO j = 2-OLy, sNy+OLy |
|
./model/src/calc_3d_diffusivity.F |
288 |
CALC_3D_DIFFUSIVITY |
tmpFac(i,j) = tmpFac(i,j)*tmpFac(i,j) |
|
./model/src/calc_3d_diffusivity.F |
292 |
CALC_3D_DIFFUSIVITY |
DO j = 2-OLy, sNy+OLy |
|
./model/src/calc_3d_diffusivity.F |
294 |
CALC_3D_DIFFUSIVITY |
tmpFac(i,j) = tmpFac(i,j)*tmpFac(i,j)*tmpFac(i,j) |
|
./model/src/calc_3d_diffusivity.F |
298 |
CALC_3D_DIFFUSIVITY |
DO j = 2-OLy, sNy+OLy |
|
./model/src/calc_3d_diffusivity.F |
300 |
CALC_3D_DIFFUSIVITY |
tmpFac(i,j) = tmpFac(i,j)*tmpFac(i,j) |
|
./model/src/calc_3d_diffusivity.F |
301 |
CALC_3D_DIFFUSIVITY |
& * tmpFac(i,j)*tmpFac(i,j) |
|
./model/src/calc_3d_diffusivity.F |
307 |
CALC_3D_DIFFUSIVITY |
DO j = 2-OLy, sNy+OLy |
|
./model/src/calc_3d_diffusivity.F |
309 |
CALC_3D_DIFFUSIVITY |
tmpFac(i,j) = MIN( tmpFac(i,j), pCellMix_maxFac ) |
|
./model/src/calc_3d_diffusivity.F |
310 |
CALC_3D_DIFFUSIVITY |
KappaRTr(i,j,k) = MAX( KappaRTr(i,j,k), |
|
./model/src/calc_3d_diffusivity.F |
311 |
CALC_3D_DIFFUSIVITY |
& pCellMix_diffKr(k)*tmpFac(i,j) ) |
|
./model/src/calc_3d_diffusivity.F |
322 |
CALC_3D_DIFFUSIVITY |
DO j = 2-OLy, sNy+OLy |
|
./model/src/calc_3d_diffusivity.F |
324 |
CALC_3D_DIFFUSIVITY |
tmpFac(i,j) = 0. _d 0 |
|
./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 |
333 |
CALC_3D_DIFFUSIVITY |
DO j = 2-OLy, sNy+OLy |
|
./model/src/calc_3d_diffusivity.F |
335 |
CALC_3D_DIFFUSIVITY |
tmpFac(i,j) = tmpFac(i,j)*tmpFac(i,j) |
|
./model/src/calc_3d_diffusivity.F |
339 |
CALC_3D_DIFFUSIVITY |
DO j = 2-OLy, sNy+OLy |
|
./model/src/calc_3d_diffusivity.F |
341 |
CALC_3D_DIFFUSIVITY |
tmpFac(i,j) = tmpFac(i,j)*tmpFac(i,j)*tmpFac(i,j) |
|
./model/src/calc_3d_diffusivity.F |
345 |
CALC_3D_DIFFUSIVITY |
DO j = 2-OLy, sNy+OLy |
|
./model/src/calc_3d_diffusivity.F |
347 |
CALC_3D_DIFFUSIVITY |
tmpFac(i,j) = tmpFac(i,j)*tmpFac(i,j) |
|
./model/src/calc_3d_diffusivity.F |
348 |
CALC_3D_DIFFUSIVITY |
& * tmpFac(i,j)*tmpFac(i,j) |
|
./model/src/calc_3d_diffusivity.F |
354 |
CALC_3D_DIFFUSIVITY |
DO j = 2-OLy, sNy+OLy |
|
./model/src/calc_3d_diffusivity.F |
356 |
CALC_3D_DIFFUSIVITY |
tmpFac(i,j) = MIN( tmpFac(i,j), pCellMix_maxFac ) |
|
./model/src/calc_3d_diffusivity.F |
357 |
CALC_3D_DIFFUSIVITY |
KappaRTr(i,j,k) = MAX( KappaRTr(i,j,k), |
|
./model/src/calc_3d_diffusivity.F |
358 |
CALC_3D_DIFFUSIVITY |
& pCellMix_diffKr(k)*tmpFac(i,j) ) |
|
./model/src/calc_3d_diffusivity.F |
67 |
CALC_3D_DIFFUSIVITY |
INTEGER i,j,k |
|
./model/src/calc_3d_diffusivity.F |
91 |
CALC_3D_DIFFUSIVITY |
DO j = 1-OLy,sNy+OLy |
|
./model/src/calc_3d_diffusivity.F |
95 |
CALC_3D_DIFFUSIVITY |
KappaRTr(i,j,k) = |
|
./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 |
214 |
KPP_CALC |
integer i, j, k, kp1, km1, im1, ip1, jm1, jp1 |
|
./pkg/kpp/kpp_calc.F |
281 |
KPP_CALC |
DO j = 1-OLy, sNy+OLy |
|
./pkg/kpp/kpp_calc.F |
283 |
KPP_CALC |
ghat(i,j,k) = dbloc(i,j,k) |
|
./pkg/kpp/kpp_calc.F |
331 |
KPP_CALC |
DO j = 1-OLy, sNy+OLy |
|
./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 |
343 |
KPP_CALC |
dbloc(i,j,k) = p0 |
|
./pkg/kpp/kpp_calc.F |
344 |
KPP_CALC |
ghat(i,j,k) = p0 |
|
./pkg/kpp/kpp_calc.F |
345 |
KPP_CALC |
Ritop(i,j,k) = p0 |
|
./pkg/kpp/kpp_calc.F |
351 |
KPP_CALC |
Ritop(i,j,k) = (zgrid(1)-zgrid(k)) * Ritop(i,j,k) |
|
./pkg/kpp/kpp_calc.F |
413 |
KPP_CALC |
DO j=jMin,jMax |
|
./pkg/kpp/kpp_calc.F |
416 |
KPP_CALC |
temp1(i,j,1) = saltPlumeFlux(i,j,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
417 |
KPP_CALC |
temp2(i,j,1) = 0. _d 0 |
|
./pkg/kpp/kpp_calc.F |
419 |
KPP_CALC |
temp1(i,j,k) = 0. _d 0 |
|
./pkg/kpp/kpp_calc.F |
420 |
KPP_CALC |
temp2(i,j,k) = 0. _d 0 |
|
./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 |
455 |
KPP_CALC |
DO j = 1-OLy, sNy+OLy |
|
./pkg/kpp/kpp_calc.F |
457 |
KPP_CALC |
shsq(i,j,k) = p0 |
|
./pkg/kpp/kpp_calc.F |
465 |
KPP_CALC |
DO j = jmin, jmax |
|
./pkg/kpp/kpp_calc.F |
466 |
KPP_CALC |
jm1 = j - 1 |
|
./pkg/kpp/kpp_calc.F |
467 |
KPP_CALC |
jp1 = j + 1 |
|
./pkg/kpp/kpp_calc.F |
471 |
KPP_CALC |
shsq(i,j,k) = p5 * ( |
|
./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 |
481 |
KPP_CALC |
shsq(i,j,k) = p5 * shsq(i,j,k) + p125 * ( |
|
./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 |
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 |
541 |
KPP_CALC |
DO j = 1-OLy, sNy+OLy |
|
./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 |
570 |
KPP_CALC |
DO j = jmin, jmax |
|
./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 |
627 |
KPP_CALC |
DO j=1-OLy,sNy+OLy |
|
./pkg/kpp/kpp_calc.F |
629 |
KPP_CALC |
worka(i,j) = KPPhbl(i,j,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
636 |
KPP_CALC |
DO j=1-OLy,sNy+OLy |
|
./pkg/kpp/kpp_calc.F |
638 |
KPP_CALC |
KPPfrac(i,j,bi,bj) = worka(i,j) |
|
./pkg/kpp/kpp_calc.F |
647 |
KPP_CALC |
DO j=1-OLy,sNy+OLy |
|
./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 |
664 |
KPP_CALC |
DO j=1-OLy,sNy+OLy |
|
./pkg/kpp/kpp_calc.F |
666 |
KPP_CALC |
KPPplumefrac(i,j,bi,bj) = 1. _d 0 - worka(i,j) |
|
./pkg/kpp/kpp_calc.F |
670 |
KPP_CALC |
DO j=1-OLy,sNy+OLy |
|
./pkg/kpp/kpp_calc.F |
672 |
KPP_CALC |
KPPplumefrac(i,j,bi,bj) = 0. _d 0 |
|
./pkg/kpp/kpp_calc.F |
722 |
KPP_CALC_DUMMY |
integer i, j, k |
|
./pkg/kpp/kpp_calc.F |
724 |
KPP_CALC_DUMMY |
DO j=1-OLy,sNy+OLy |
|
./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_diff_ptr.F |
52 |
KPP_CALC_DIFF_PTR |
INTEGER i,j,k |
|
./pkg/kpp/kpp_calc_diff_ptr.F |
58 |
KPP_CALC_DIFF_PTR |
DO j=jMin,jMax |
|
./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 |
66 |
KPP_CALC_DIFF_PTR |
KappaRx(i,j,k) = KappaRx(i,j,k) |
|
./pkg/kpp/kpp_calc_diff_ptr.F |
75 |
KPP_CALC_DIFF_PTR |
DO j=jMin,jMax |
|
./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 |
80 |
KPP_CALC_DIFF_PTR |
KappaRx(i,j,k) = KPPdiffKzS(i,j,kArg,bi,bj) |
|
./pkg/kpp/kpp_calc_diff_ptr.F |
83 |
KPP_CALC_DIFF_PTR |
KappaRx(i,j,k) = KappaRx(i,j,k) |
|
./pkg/kpp/kpp_calc_diff_s.F |
45 |
KPP_CALC_DIFF_S |
INTEGER i,j,k |
|
./pkg/kpp/kpp_calc_diff_s.F |
51 |
KPP_CALC_DIFF_S |
DO j=jMin,jMax |
|
./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 |
60 |
KPP_CALC_DIFF_S |
DO j=jMin,jMax |
|
./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_t.F |
45 |
KPP_CALC_DIFF_T |
INTEGER i,j,k |
|
./pkg/kpp/kpp_calc_diff_t.F |
51 |
KPP_CALC_DIFF_T |
DO j=jMin,jMax |
|
./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 |
60 |
KPP_CALC_DIFF_T |
DO j=jMin,jMax |
|
./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_visc.F |
36 |
KPP_CALC_VISC |
INTEGER i,j |
|
./pkg/kpp/kpp_calc_visc.F |
38 |
KPP_CALC_VISC |
DO j=jMin,jMax |
|
./pkg/kpp/kpp_calc_visc.F |
40 |
KPP_CALC_VISC |
KappaRU(i,j,k) = max ( KappaRU(i,j,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 |
46 |
KPP_CALC_VISC |
DO j=jMin,jMax |
|
./pkg/kpp/kpp_calc_visc.F |
48 |
KPP_CALC_VISC |
KappaRV(i,j,k) = max ( KappaRV(i,j,k), |
|
./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_forcing_surf.F |
128 |
KPP_FORCING_SURF |
INTEGER i, j, k, im1, ip1, jm1, jp1 |
|
./pkg/kpp/kpp_forcing_surf.F |
165 |
KPP_FORCING_SURF |
DO j = 1-OLy, sNy+OLy |
|
./pkg/kpp/kpp_forcing_surf.F |
167 |
KPP_FORCING_SURF |
ustar(i,j) = p0 |
|
./pkg/kpp/kpp_forcing_surf.F |
179 |
KPP_FORCING_SURF |
DO j = jmin, jmax |
|
./pkg/kpp/kpp_forcing_surf.F |
180 |
KPP_FORCING_SURF |
jp1 = j + 1 |
|
./pkg/kpp/kpp_forcing_surf.F |
183 |
KPP_FORCING_SURF |
work3(i,j) = |
|
./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 |
193 |
KPP_FORCING_SURF |
DO j = jmin, jmax |
|
./pkg/kpp/kpp_forcing_surf.F |
194 |
KPP_FORCING_SURF |
jp1 = j + 1 |
|
./pkg/kpp/kpp_forcing_surf.F |
198 |
KPP_FORCING_SURF |
if ( work3(i,j) .lt. (phepsi*phepsi*drF(1)*drF(1)) ) then |
|
./pkg/kpp/kpp_forcing_surf.F |
199 |
KPP_FORCING_SURF |
ustar(i,j) = SQRT( phepsi * p5 * drF(1) ) |
|
./pkg/kpp/kpp_forcing_surf.F |
201 |
KPP_FORCING_SURF |
tempVar2 = SQRT( work3(i,j) ) * p5 |
|
./pkg/kpp/kpp_forcing_surf.F |
202 |
KPP_FORCING_SURF |
ustar(i,j) = SQRT( tempVar2 ) |
|
./pkg/kpp/kpp_forcing_surf.F |
208 |
KPP_FORCING_SURF |
DO j = jmin, jmax |
|
./pkg/kpp/kpp_forcing_surf.F |
209 |
KPP_FORCING_SURF |
jp1 = j + 1 |
|
./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 |
228 |
KPP_FORCING_SURF |
DO j = jmin, jmax |
|
./pkg/kpp/kpp_forcing_surf.F |
233 |
KPP_FORCING_SURF |
& ( SSBETA(I,J,k) * SPforcS(i,j,k) + |
|
./pkg/kpp/kpp_forcing_surf.F |
234 |
KPP_FORCING_SURF |
& TTALPHA(I,J,k)* SPforcT(i,j,k) / HeatCapacity_Cp ) |
|
./pkg/kpp/kpp_forcing_surf.F |
241 |
KPP_FORCING_SURF |
DO j = jmin, jmax |
|
./pkg/kpp/kpp_forcing_surf.F |
247 |
KPP_FORCING_SURF |
& * SPforcS(i,j,1) |
|
./pkg/kpp/kpp_forcing_surf.F |
280 |
KPP_FORCING_SURF |
DO j = 1-OLy, sNy+OLy |
|
./pkg/kpp/kpp_forcing_surf.F |
282 |
KPP_FORCING_SURF |
dVsq(i,j,k) = p0 |
|
./pkg/kpp/kpp_forcing_surf.F |
297 |
KPP_FORCING_SURF |
DO j = jmin, jmax |
|
./pkg/kpp/kpp_forcing_surf.F |
298 |
KPP_FORCING_SURF |
jp1 = j + 1 |
|
./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 |
308 |
KPP_FORCING_SURF |
& dbloc(i,j,k) / drC(k+1) .GT. dB_dz ) |
|
./pkg/kpp/kpp_forcing_surf.F |
309 |
KPP_FORCING_SURF |
& work1(i,j) = k |
|
./pkg/kpp/kpp_forcing_surf.F |
313 |
KPP_FORCING_SURF |
k = work1(i,j) |
|
./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 |
315 |
KPP_FORCING_SURF |
zRef(i,j) = p0 |
|
./pkg/kpp/kpp_forcing_surf.F |
317 |
KPP_FORCING_SURF |
dBdz2 = dbloc(i,j,1) / drC(2) |
|
./pkg/kpp/kpp_forcing_surf.F |
318 |
KPP_FORCING_SURF |
zRef(i,j) = drF(1) * dB_dz / dBdz2 |
|
./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 |
320 |
KPP_FORCING_SURF |
dBdz1 = dbloc(i,j,k-1) / drC(k ) |
|
./pkg/kpp/kpp_forcing_surf.F |
321 |
KPP_FORCING_SURF |
dBdz2 = dbloc(i,j,k ) / drC(k+1) |
|
./pkg/kpp/kpp_forcing_surf.F |
322 |
KPP_FORCING_SURF |
zRef(i,j) = rF(k) + drF(k) * (dB_dz - dBdz1) / |
|
./pkg/kpp/kpp_forcing_surf.F |
325 |
KPP_FORCING_SURF |
zRef(i,j) = rF(k+1) |
|
./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 |
343 |
KPP_FORCING_SURF |
z0(i,j) = rF(2) * |
|
./pkg/kpp/kpp_forcing_surf.F |
347 |
KPP_FORCING_SURF |
& MAX ( ustar(i,j), phepsi ) ) |
|
./pkg/kpp/kpp_forcing_surf.F |
348 |
KPP_FORCING_SURF |
z0(i,j) = MAX ( z0(i,j), phepsi ) |
|
./pkg/kpp/kpp_forcing_surf.F |
351 |
KPP_FORCING_SURF |
zRef(i,j) = MAX ( epsilon * zRef(i,j), z0(i,j) ) |
|
./pkg/kpp/kpp_forcing_surf.F |
352 |
KPP_FORCING_SURF |
zRef(i,j) = MIN ( zRef(i,j), drF(1) ) |
|
./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 |
357 |
KPP_FORCING_SURF |
IF ( zRef(i,j) .LT. drF(1) ) THEN |
|
./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 |
368 |
KPP_FORCING_SURF |
tempVar2 = ustar(i,j) * |
|
./pkg/kpp/kpp_forcing_surf.F |
369 |
KPP_FORCING_SURF |
& ( LOG ( zRef(i,j) / rF(2) ) + |
|
./pkg/kpp/kpp_forcing_surf.F |
370 |
KPP_FORCING_SURF |
& z0(i,j) / zRef(i,j) - z0(i,j) / rF(2) ) / |
|
./pkg/kpp/kpp_forcing_surf.F |
372 |
KPP_FORCING_SURF |
uRef(i,j) = uRef(i,j) + ustarX * tempVar2 |
|
./pkg/kpp/kpp_forcing_surf.F |
373 |
KPP_FORCING_SURF |
vRef(i,j) = vRef(i,j) + ustarY * tempVar2 |
|
./pkg/kpp/kpp_forcing_surf.F |
380 |
KPP_FORCING_SURF |
DO j = jmin, jmax |
|
./pkg/kpp/kpp_forcing_surf.F |
381 |
KPP_FORCING_SURF |
jm1 = j - 1 |
|
./pkg/kpp/kpp_forcing_surf.F |
382 |
KPP_FORCING_SURF |
jp1 = j + 1 |
|
./pkg/kpp/kpp_forcing_surf.F |
386 |
KPP_FORCING_SURF |
dVsq(i,j,k) = p5 * ( |
|
./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 |
396 |
KPP_FORCING_SURF |
dVsq(i,j,k) = p5 * dVsq(i,j,k) + p125 * ( |
|
./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 |
421 |
KPP_FORCING_SURF |
DO j = jmin, jmax |
|
./pkg/kpp/kpp_forcing_surf.F |
422 |
KPP_FORCING_SURF |
jm1 = j - 1 |
|
./pkg/kpp/kpp_forcing_surf.F |
423 |
KPP_FORCING_SURF |
jp1 = j + 1 |
|
./pkg/kpp/kpp_forcing_surf.F |
427 |
KPP_FORCING_SURF |
dVsq(i,j,k) = p5 * ( |
|
./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 |
437 |
KPP_FORCING_SURF |
dVsq(i,j,k) = p5 * dVsq(i,j,k) + p125 * ( |
|
./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 |
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_init_fixed.F |
140 |
KPP_INIT_FIXED |
DO j = 0, nnj + 1 |
|
./pkg/kpp/kpp_init_fixed.F |
141 |
KPP_INIT_FIXED |
usta = deltau*j + umin |
|
./pkg/kpp/kpp_init_fixed.F |
144 |
KPP_INIT_FIXED |
wmt(i,j) = vonk*usta/(1. + conc1*zeta) |
|
./pkg/kpp/kpp_init_fixed.F |
145 |
KPP_INIT_FIXED |
wst(i,j) = wmt(i,j) |
|
./pkg/kpp/kpp_init_fixed.F |
148 |
KPP_INIT_FIXED |
wmt(i,j) = vonk*usta*(1. - conc2*zeta)**p25 |
|
./pkg/kpp/kpp_init_fixed.F |
150 |
KPP_INIT_FIXED |
wmt(i,j) = vonk*(conam*usta**3 - concm*zehat)**p33 |
|
./pkg/kpp/kpp_init_fixed.F |
153 |
KPP_INIT_FIXED |
wst(i,j) = vonk*usta*SQRT(1. _d 0 - conc3*zeta) |
|
./pkg/kpp/kpp_init_fixed.F |
155 |
KPP_INIT_FIXED |
wst(i,j) = vonk*(conas*usta**3 - concs*zehat)**p33 |
|
./pkg/kpp/kpp_init_fixed.F |
39 |
KPP_INIT_FIXED |
INTEGER i, j, k |
|
./model/src/calc_adv_flow.F |
100 |
CALC_ADV_FLOW |
rTransKp(i,j) = rTrans(i,j) |
|
./model/src/calc_adv_flow.F |
108 |
CALC_ADV_FLOW |
DO j=1-OLy,sNy+OLy |
|
./model/src/calc_adv_flow.F |
110 |
CALC_ADV_FLOW |
uTrans(i,j) = uFld(i,j,k)*xA(i,j)*rhoFacC(k) |
|
./model/src/calc_adv_flow.F |
111 |
CALC_ADV_FLOW |
vTrans(i,j) = vFld(i,j,k)*yA(i,j)*rhoFacC(k) |
|
./model/src/calc_adv_flow.F |
118 |
CALC_ADV_FLOW |
DO j=1-OLy,sNy+OLy |
|
./model/src/calc_adv_flow.F |
120 |
CALC_ADV_FLOW |
maskUp(i,j) = 0. _d 0 |
|
./model/src/calc_adv_flow.F |
121 |
CALC_ADV_FLOW |
rTrans(i,j) = 0. _d 0 |
|
./model/src/calc_adv_flow.F |
127 |
CALC_ADV_FLOW |
DO j=1-OLy,sNy+OLy |
|
./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 |
69 |
CALC_ADV_FLOW |
INTEGER i,j |
|
./model/src/calc_adv_flow.F |
73 |
CALC_ADV_FLOW |
DO j=1-OLy,sNy+OLy |
|
./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 |
84 |
CALC_ADV_FLOW |
DO j=1-OLy,sNy+OLy |
|
./model/src/calc_adv_flow.F |
86 |
CALC_ADV_FLOW |
rTransKp(i,j) = 0. _d 0 |
|
./model/src/calc_adv_flow.F |
90 |
CALC_ADV_FLOW |
DO j=1-OLy,sNy+OLy |
|
./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 |
43 |
KPP_INIT_VARIA |
DO j = 1-OLy, sNy+OLy |
|
./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 |
64 |
KPP_INIT_VARIA |
DO j = 1-OLy, sNy+OLy |
|
./pkg/kpp/kpp_init_varia.F |
66 |
KPP_INIT_VARIA |
KPPhbl(i,j,bi,bj) = 0. |
|
./pkg/kpp/kpp_init_varia.F |
70 |
KPP_INIT_VARIA |
DO j = 1-OLy, sNy+OLy |
|
./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 |
237 |
KPP_OUTPUT |
DO j=1,sNy |
|
./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 |
388 |
KPP_OUTPUT |
DO j=1,sNy |
|
./pkg/kpp/kpp_output.F |
390 |
KPP_OUTPUT |
tmpLoc(i,j,1) = 0. _d 0 |
|
./pkg/kpp/kpp_output.F |
394 |
KPP_OUTPUT |
DO j=1,sNy |
|
./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 |
89 |
KPP_OUTPUT |
INTEGER i, j, k |
|
./pkg/kpp/kpp_routines.F |
1237 |
SMOOTH_HORIZ |
integer i, j, im1, ip1, jm1, jp1 |
|
./pkg/kpp/kpp_routines.F |
1247 |
SMOOTH_HORIZ |
DO j = jmin, jmax |
|
./pkg/kpp/kpp_routines.F |
1248 |
SMOOTH_HORIZ |
jm1 = j-1 |
|
./pkg/kpp/kpp_routines.F |
1249 |
SMOOTH_HORIZ |
jp1 = j+1 |
|
./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 |
1264 |
SMOOTH_HORIZ |
fld_tmp(i,j) = ( |
|
./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 |
1276 |
SMOOTH_HORIZ |
fld_tmp(i,j) = fld(i,j) |
|
./pkg/kpp/kpp_routines.F |
1282 |
SMOOTH_HORIZ |
DO j = jmin, jmax |
|
./pkg/kpp/kpp_routines.F |
1284 |
SMOOTH_HORIZ |
fld(i,j) = fld_tmp(i,j) |
|
./pkg/kpp/kpp_transport_ptr.F |
103 |
KPP_TRANSPORT_PTR |
DO j=jMin,jMax |
|
./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 |
75 |
KPP_TRANSPORT_PTR |
INTEGER i, j |
|
./pkg/kpp/kpp_transport_ptr.F |
88 |
KPP_TRANSPORT_PTR |
DO j=jMin,jMax |
|
./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 |
110 |
KPP_TRANSPORT_S |
DO j=jMin,jMax |
|
./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 |
94 |
KPP_TRANSPORT_S |
DO j=jMin,jMax |
|
./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 |
61 |
KPP_TRANSPORT_T |
INTEGER i, j |
|
./pkg/kpp/kpp_transport_t.F |
77 |
KPP_TRANSPORT_T |
DO j=jMin,jMax |
|
./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 |
92 |
KPP_TRANSPORT_T |
DO j=jMin,jMax |
|
./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 |
113 |
CALC_DIV_GHAT |
DO j=1,sNy |
|
./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 |
117 |
CALC_DIV_GHAT |
& ) * xA(i,j) / deltaTMom |
|
./model/src/calc_div_ghat.F |
121 |
CALC_DIV_GHAT |
DO j=1,sNy |
|
./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 |
124 |
CALC_DIV_GHAT |
& pf(i+1,j)-pf(i,j) |
|
./model/src/calc_div_ghat.F |
130 |
CALC_DIV_GHAT |
DO j=1,sNy |
|
./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 |
140 |
CALC_DIV_GHAT |
DO j=1,sNy+1 |
|
./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 |
148 |
CALC_DIV_GHAT |
DO j=1,sNy+1 |
|
./model/src/calc_div_ghat.F |
150 |
CALC_DIV_GHAT |
pf(i,j) = implicDiv2Dflow |
|
./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 |
156 |
CALC_DIV_GHAT |
DO j=1,sNy+1 |
|
./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 |
160 |
CALC_DIV_GHAT |
& ) * yA(i,j) / deltaTMom |
|
./model/src/calc_div_ghat.F |
164 |
CALC_DIV_GHAT |
DO j=1,sNy |
|
./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 |
167 |
CALC_DIV_GHAT |
& pf(i,j+1)-pf(i,j) |
|
./model/src/calc_div_ghat.F |
173 |
CALC_DIV_GHAT |
DO j=1,sNy |
|
./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 |
176 |
CALC_DIV_GHAT |
& + ( pf(i,j+1)-pf(i,j) ) |
|
./model/src/calc_div_ghat.F |
184 |
CALC_DIV_GHAT |
DO j=1,sNy |
|
./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 |
192 |
CALC_DIV_GHAT |
DO j=1,sNy |
|
./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 |
58 |
CALC_DIV_GHAT |
INTEGER i,j |
|
./model/src/calc_div_ghat.F |
65 |
CALC_DIV_GHAT |
DO j=1,sNy+1 |
|
./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 |
81 |
CALC_DIV_GHAT |
DO j=1,sNy |
|
./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 |
89 |
CALC_DIV_GHAT |
DO j=1,sNy |
|
./model/src/calc_div_ghat.F |
91 |
CALC_DIV_GHAT |
pf(i,j) = implicDiv2Dflow |
|
./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 |
55 |
LAND_ALBEDO |
INTEGER i,j |
|
./pkg/land/land_albedo.F |
61 |
LAND_ALBEDO |
DO j=1,sNy |
|
./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_albedo.F |
86 |
LAND_ALBEDO |
alb_land(i,j) = albSnow |
|
./pkg/land/land_albedo.F |
87 |
LAND_ALBEDO |
& +(alb_land(i,j)-albSnow)*exp(-hSnow/hAlbSnow) |
|
./pkg/land/land_impl_temp.F |
129 |
LAND_IMPL_TEMP |
DO j=1,sNy |
|
./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 |
137 |
LAND_IMPL_TEMP |
bLoc = -sFlx(i,j,2) |
|
./pkg/land/land_impl_temp.F |
138 |
LAND_IMPL_TEMP |
fLoc = sFlx(i,j,1)+bLoc*tSurf |
|
./pkg/land/land_impl_temp.F |
139 |
LAND_IMPL_TEMP |
alpha = land_hSnow(i,j,bi,bj)/diffKsnow |
|
./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 |
150 |
LAND_IMPL_TEMP |
dBug = bi.eq.lprt .AND. i.EQ.iprt .AND. j.EQ.jprt |
|
./pkg/land/land_impl_temp.F |
154 |
LAND_IMPL_TEMP |
& 'LAND_IMPL_TEMP: 0 , sFlx=', 0,(sFlx(i,j,k),k=0,2) |
|
./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 |
284 |
LAND_IMPL_TEMP |
& 1, sFlx(i,j,0), fLoc, fLoc-bLoc*tSurf |
|
./pkg/land/land_impl_temp.F |
287 |
LAND_IMPL_TEMP |
fLoc = sFlx(i,j,0) |
|
./pkg/land/land_impl_temp.F |
288 |
LAND_IMPL_TEMP |
dTsurf(i,j) = 1000. |
|
./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 |
342 |
LAND_IMPL_TEMP |
IF ( dTsurf(i,j) .LE. 999. ) |
|
./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 |
352 |
LAND_IMPL_TEMP |
& tSurf, tg, dTsurf(i,j) |
|
./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 |
87 |
LAND_IMPL_TEMP |
INTEGER i,j,k |
|
./pkg/land/land_ini_vars.F |
134 |
LAND_INI_VARS |
DO j=1,sNy |
|
./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 |
152 |
LAND_INI_VARS |
DO j=1,sNy |
|
./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 |
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 |
45 |
CALC_EDDY_STRESS |
INTEGER i,j,k |
|
./model/src/calc_eddy_stress.F |
55 |
CALC_EDDY_STRESS |
DO j=1-OLy,sNy+OLy-1 |
|
./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 |
74 |
CALC_EDDY_STRESS |
DO j=1-OLy+1,sNy+OLy |
|
./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 |
|
./pkg/land/land_stepfwd.F |
103 |
LAND_STEPFWD |
DO j=1,sNy |
|
./pkg/land/land_stepfwd.F |
105 |
LAND_STEPFWD |
flxkup(i,j) = flxkdw(i,j) |
|
./pkg/land/land_stepfwd.F |
110 |
LAND_STEPFWD |
DO j=1,sNy |
|
./pkg/land/land_stepfwd.F |
112 |
LAND_STEPFWD |
IF ( land_frc(i,j,bi,bj).GT.0. ) THEN |
|
./pkg/land/land_stepfwd.F |
114 |
LAND_STEPFWD |
flxkdw(i,j) = land_grdLambda* |
|
./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 |
121 |
LAND_STEPFWD |
& + land_deltaT * (flxkup(i,j)-flxkdw(i,j))/land_dzF(k) |
|
./pkg/land/land_stepfwd.F |
135 |
LAND_STEPFWD |
DO j=1,sNy |
|
./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 |
150 |
LAND_STEPFWD |
DO j=1,sNy |
|
./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 |
163 |
LAND_STEPFWD |
dBug = bi.eq.lprt .AND. i.EQ.iprt .AND. j.EQ.jprt |
|
./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 |
177 |
LAND_STEPFWD |
DO j=1,sNy |
|
./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 |
184 |
LAND_STEPFWD |
dBug = bi.eq.lprt .AND. i.EQ.iprt .AND. j.EQ.jprt |
|
./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 |
200 |
LAND_STEPFWD |
flxEngU(i,j) = enWfx + land_Lfreez*snowPrec |
|
./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 |
230 |
LAND_STEPFWD |
flxEngU(i,j) = enWfx - land_Lfreez*mSnow/land_deltaT |
|
./pkg/land/land_stepfwd.F |
232 |
LAND_STEPFWD |
flxEngU(i,j) = 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 |
244 |
LAND_STEPFWD |
flxkup(i,j) = mPmE/land_rhoLiqW |
|
./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 |
258 |
LAND_STEPFWD |
DO j=1,sNy |
|
./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 |
261 |
LAND_STEPFWD |
flxEngU(i,j) = 0. _d 0 |
|
./pkg/land/land_stepfwd.F |
281 |
LAND_STEPFWD |
DO j=1,sNy |
|
./pkg/land/land_stepfwd.F |
283 |
LAND_STEPFWD |
IF ( land_frc(i,j,bi,bj).GT.0. ) THEN |
|
./pkg/land/land_stepfwd.F |
285 |
LAND_STEPFWD |
dBug = bi.eq.lprt .AND. i.EQ.iprt .AND. j.EQ.jprt |
|
./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 |
294 |
LAND_STEPFWD |
IF ( flxkup(i,j) .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 |
297 |
LAND_STEPFWD |
& + land_deltaT * flxkup(i,j) / fieldCapac |
|
./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 |
300 |
LAND_STEPFWD |
& + land_deltaT * flxEngU(i,j) / land_dzF(k) |
|
./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 |
304 |
LAND_STEPFWD |
& + flxkup(i,j)*land_rhoLiqW |
|
./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 |
306 |
LAND_STEPFWD |
& + flxEngU(i,j) |
|
./pkg/land/land_stepfwd.F |
309 |
LAND_STEPFWD |
flxkup(i,j) = 0. _d 0 |
|
./pkg/land/land_stepfwd.F |
310 |
LAND_STEPFWD |
flxEngU(i,j) = 0. _d 0 |
|
./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 |
320 |
LAND_STEPFWD |
flxkdw(i,j) = 0. _d 0 |
|
./pkg/land/land_stepfwd.F |
323 |
LAND_STEPFWD |
flxkdw(i,j) = fieldCapac* |
|
./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 |
328 |
LAND_STEPFWD |
IF ( flxkdw(i,j).GE.0. ) THEN |
|
./pkg/land/land_stepfwd.F |
329 |
LAND_STEPFWD |
flxEngL = flxkdw(i,j)*land_rhoLiqW*land_CpWater |
|
./pkg/land/land_stepfwd.F |
330 |
LAND_STEPFWD |
& *land_groundT(i,j,k,bi,bj) |
|
./pkg/land/land_stepfwd.F |
332 |
LAND_STEPFWD |
flxEngL = flxkdw(i,j)*land_rhoLiqW*land_CpWater |
|
./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 |
339 |
LAND_STEPFWD |
& + land_deltaT * (flxkup(i,j)-flxkdw(i,j)) / fieldCapac |
|
./pkg/land/land_stepfwd.F |
343 |
LAND_STEPFWD |
& ,5,land_groundW(i,j,k,bi,bj)-1., |
|
./pkg/land/land_stepfwd.F |
344 |
LAND_STEPFWD |
& flxkup(i,j),flxkdw(i,j),groundWnp1-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 |
356 |
LAND_STEPFWD |
flxkup(i,j) = flxkdw(i,j) |
|
./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 |
364 |
LAND_STEPFWD |
& + ( flxEngU(i,j) - flxEngL - grdWexcess*enthalpGrdW |
|
./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 |
370 |
LAND_STEPFWD |
flxEngU(i,j) = flxEngL |
|
./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 |
398 |
LAND_STEPFWD |
DO j=1,sNy |
|
./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 |
422 |
LAND_STEPFWD |
DO j=1,sNy |
|
./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 |
432 |
LAND_STEPFWD |
DO j=1,sNy |
|
./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 |
81 |
LAND_STEPFWD |
INTEGER i,j,k,kp1 |
|
./pkg/land/land_stepfwd.F |
97 |
LAND_STEPFWD |
DO j=1,sNy |
|
./pkg/land/land_stepfwd.F |
99 |
LAND_STEPFWD |
flxkup(i,j) = land_HeatFlx(i,j,bi,bj) |
|
./model/src/calc_grad_phi_fv.F |
101 |
CALC_GRAD_PHI_FV |
DO j=1-OLy,sNy+OLy |
|
./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 |
62 |
CALC_GRAD_PHI_FV |
INTEGER i,j |
|
./model/src/calc_grad_phi_fv.F |
69 |
CALC_GRAD_PHI_FV |
DO j=1-OLy,sNy+OLy |
|
./model/src/calc_grad_phi_fv.F |
71 |
CALC_GRAD_PHI_FV |
dPhiHydX(i,j) = 0. _d 0 |
|
./model/src/calc_grad_phi_fv.F |
72 |
CALC_GRAD_PHI_FV |
dPhiHydY(i,j) = 0. _d 0 |
|
./model/src/calc_grad_phi_fv.F |
75 |
CALC_GRAD_PHI_FV |
DO j=jMin,jMax |
|
./model/src/calc_grad_phi_fv.F |
77 |
CALC_GRAD_PHI_FV |
dpk_dip = pKappaF( i ,j) - pKappaU(i-1,j) |
|
./model/src/calc_grad_phi_fv.F |
78 |
CALC_GRAD_PHI_FV |
dpk_dim = pKappaF(i-1,j) - pKappaU( i ,j) |
|
./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 |
80 |
CALC_GRAD_PHI_FV |
& + ( dpk_dip*( phiHydU(i,j) - phiHydF(i-1,j) ) |
|
./model/src/calc_grad_phi_fv.F |
81 |
CALC_GRAD_PHI_FV |
& + dpk_dim*( phiHydF(i,j) - phiHydU(i-1,j) ) |
|
./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 |
87 |
CALC_GRAD_PHI_FV |
DO j=jMin+1,jMax |
|
./model/src/calc_grad_phi_fv.F |
89 |
CALC_GRAD_PHI_FV |
dpk_djp = pKappaF(i, j ) - pKappaU(i,j-1) |
|
./model/src/calc_grad_phi_fv.F |
90 |
CALC_GRAD_PHI_FV |
dpk_djm = pKappaF(i,j-1) - pKappaU(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 |
92 |
CALC_GRAD_PHI_FV |
& + ( dpk_djp*( phiHydU(i,j) - phiHydF(i,j-1) ) |
|
./model/src/calc_grad_phi_fv.F |
93 |
CALC_GRAD_PHI_FV |
& + dpk_djm*( phiHydF(i,j) - phiHydU(i,j-1) ) |
|
./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 |
173 |
LAYERS_CALC |
DO j=1-OLy,sNy+OLy |
|
./pkg/layers/layers_calc.F |
175 |
LAYERS_CALC |
prho(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_calc.F |
196 |
LAYERS_CALC |
DO j = 1-OLy,sNy+OLy |
|
./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 |
443 |
LAYERS_CALC |
DO j=1-OLy,sNy+OLy |
|
./pkg/layers/layers_calc.F |
445 |
LAYERS_CALC |
layers_surfflux(i,j,1,iTracer,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_calc.F |
449 |
LAYERS_CALC |
DO j=1-OLy,sNy+OLy |
|
./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 |
80 |
LAYERS_CALC |
INTEGER i, j, k |
|
./pkg/layers/layers_fluxcalc.F |
108 |
LAYERS_FLUXCALC |
INTEGER i,j,k,kk,kg,kci,kp1,kloc |
|
./pkg/layers/layers_fluxcalc.F |
131 |
LAYERS_FLUXCALC |
DO j = 1,sNy+1 |
|
./pkg/layers/layers_fluxcalc.F |
136 |
LAYERS_FLUXCALC |
kgu(i,j) = Nlayers |
|
./pkg/layers/layers_fluxcalc.F |
137 |
LAYERS_FLUXCALC |
kgv(i,j) = Nlayers |
|
./pkg/layers/layers_fluxcalc.F |
143 |
LAYERS_FLUXCALC |
DO j = 1-OLy,sNy+OLy |
|
./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 |
174 |
LAYERS_FLUXCALC |
DO j = 1,sNy+1 |
|
./pkg/layers/layers_fluxcalc.F |
179 |
LAYERS_FLUXCALC |
IF (maskW(i,j,kp1,bi,bj).EQ.zeroRS) kp1=k |
|
./pkg/layers/layers_fluxcalc.F |
180 |
LAYERS_FLUXCALC |
TatU(i,j) = MapFact(kk) * |
|
./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 |
197 |
LAYERS_FLUXCALC |
DO j = 1,sNy+1 |
|
./pkg/layers/layers_fluxcalc.F |
199 |
LAYERS_FLUXCALC |
IF ( kgu(i,j) .LE. 0 ) THEN |
|
./pkg/layers/layers_fluxcalc.F |
202 |
LAYERS_FLUXCALC |
& 'layers_bounds for TatU(',i,',',j,',)=',TatU(i,j) |
|
./pkg/layers/layers_fluxcalc.F |
212 |
LAYERS_FLUXCALC |
DO j = 1,sNy+1 |
|
./pkg/layers/layers_fluxcalc.F |
215 |
LAYERS_FLUXCALC |
kloc = kgu(i,j) |
|
./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 |
255 |
LAYERS_FLUXCALC |
DO j = 1,sNy+1 |
|
./pkg/layers/layers_fluxcalc.F |
259 |
LAYERS_FLUXCALC |
IF (maskS(i,j,kp1,bi,bj).EQ.zeroRS) kp1=k |
|
./pkg/layers/layers_fluxcalc.F |
260 |
LAYERS_FLUXCALC |
TatV(i,j) = MapFact(kk) * |
|
./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 |
277 |
LAYERS_FLUXCALC |
DO j = 1,sNy+1 |
|
./pkg/layers/layers_fluxcalc.F |
279 |
LAYERS_FLUXCALC |
IF ( kgv(i,j) .LE. 0 ) THEN |
|
./pkg/layers/layers_fluxcalc.F |
282 |
LAYERS_FLUXCALC |
& 'layers_bounds for TatV(',i,',',j,',)=',TatV(i,j) |
|
./pkg/layers/layers_fluxcalc.F |
292 |
LAYERS_FLUXCALC |
DO j = 1,sNy+1 |
|
./pkg/layers/layers_fluxcalc.F |
295 |
LAYERS_FLUXCALC |
kloc = kgv(i,j) |
|
./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 |
348 |
LAYERS_FLUXCALC |
DO j = 1,sNy+1 |
|
./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 |
454 |
LAYERS_DIAPYCNAL |
INTEGER i,j,k,kk,kg,kci,kloc |
|
./pkg/layers/layers_fluxcalc.F |
480 |
LAYERS_DIAPYCNAL |
DO j = 1,sNy+1 |
|
./pkg/layers/layers_fluxcalc.F |
485 |
LAYERS_DIAPYCNAL |
kgc(i,j) = Nlayers |
|
./pkg/layers/layers_fluxcalc.F |
486 |
LAYERS_DIAPYCNAL |
kgcw(i,j) = Nlayers-1 |
|
./pkg/layers/layers_fluxcalc.F |
493 |
LAYERS_DIAPYCNAL |
DO j = 1-OLy,sNy+OLy |
|
./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 |
513 |
LAYERS_DIAPYCNAL |
DO j = 1-OLy,sNy+OLy |
|
./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 |
525 |
LAYERS_DIAPYCNAL |
DO j = 1,sNy+1 |
|
./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 |
538 |
LAYERS_DIAPYCNAL |
DO j = 1,sNy+1 |
|
./pkg/layers/layers_fluxcalc.F |
540 |
LAYERS_DIAPYCNAL |
TatC(i,j) = tracer(i,j,k,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
570 |
LAYERS_DIAPYCNAL |
DO j = 1,sNy+1 |
|
./pkg/layers/layers_fluxcalc.F |
572 |
LAYERS_DIAPYCNAL |
IF ( kgc(i,j) .LE. 0 ) THEN |
|
./pkg/layers/layers_fluxcalc.F |
575 |
LAYERS_DIAPYCNAL |
& 'layers_bounds for TatC(',i,',',j,',)=',TatC(i,j) |
|
./pkg/layers/layers_fluxcalc.F |
594 |
LAYERS_DIAPYCNAL |
DO j = 1,sNy+1 |
|
./pkg/layers/layers_fluxcalc.F |
596 |
LAYERS_DIAPYCNAL |
IF ( kgcw(i,j) .LE. 0 ) THEN |
|
./pkg/layers/layers_fluxcalc.F |
599 |
LAYERS_DIAPYCNAL |
& 'layers_bounds for TatC(',i,',',j,',)=',TatC(i,j) |
|
./pkg/layers/layers_fluxcalc.F |
610 |
LAYERS_DIAPYCNAL |
DO j = 1,sNy+1 |
|
./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 |
617 |
LAYERS_DIAPYCNAL |
kloc = kgcw(i,j) |
|
./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 |
693 |
LAYERS_DIAPYCNAL |
DO j = 1,sNy+1 |
|
./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_fluxcalc.F |
747 |
LAYERS_LOCATE |
INTEGER i,j |
|
./pkg/layers/layers_fluxcalc.F |
755 |
LAYERS_LOCATE |
DO j = 1,sNy+1 |
|
./pkg/layers/layers_fluxcalc.F |
757 |
LAYERS_LOCATE |
kl(i,j)=1 |
|
./pkg/layers/layers_fluxcalc.F |
758 |
LAYERS_LOCATE |
ku(i,j)=n+1 |
|
./pkg/layers/layers_fluxcalc.F |
762 |
LAYERS_LOCATE |
DO j = 1,sNy+1 |
|
./pkg/layers/layers_fluxcalc.F |
764 |
LAYERS_LOCATE |
IF (ku(i,j)-kl(i,j).GT.1) THEN |
|
./pkg/layers/layers_fluxcalc.F |
765 |
LAYERS_LOCATE |
km=(ku(i,j)+kl(i,j))/2 |
|
./pkg/layers/layers_fluxcalc.F |
767 |
LAYERS_LOCATE |
IF ( ((xx(n).GE.xx(1)).AND.(x(i,j).GE.xx(km))).OR. |
|
./pkg/layers/layers_fluxcalc.F |
768 |
LAYERS_LOCATE |
& ((xx(n).GE.xx(1)).AND.(x(i,j).GE.xx(km))) ) THEN |
|
./pkg/layers/layers_fluxcalc.F |
769 |
LAYERS_LOCATE |
kl(i,j)=km |
|
./pkg/layers/layers_fluxcalc.F |
771 |
LAYERS_LOCATE |
ku(i,j)=km |
|
./pkg/layers/layers_fluxcalc.F |
777 |
LAYERS_LOCATE |
DO j = 1,sNy+1 |
|
./pkg/layers/layers_fluxcalc.F |
779 |
LAYERS_LOCATE |
IF ( x(i,j).LT.xx(2) ) THEN |
|
./pkg/layers/layers_fluxcalc.F |
780 |
LAYERS_LOCATE |
k(i,j)=1 |
|
./pkg/layers/layers_fluxcalc.F |
781 |
LAYERS_LOCATE |
ELSE IF ( x(i,j).GE.xx(n) ) THEN |
|
./pkg/layers/layers_fluxcalc.F |
782 |
LAYERS_LOCATE |
k(i,j)=n |
|
./pkg/layers/layers_fluxcalc.F |
784 |
LAYERS_LOCATE |
k(i,j)=kl(i,j) |
|
./pkg/layers/layers_fluxcalc.F |
790 |
LAYERS_LOCATE |
DO j = 1,sNy+1 |
|
./pkg/layers/layers_fluxcalc.F |
792 |
LAYERS_LOCATE |
IF (x(i,j) .GE. xx(n)) THEN |
|
./pkg/layers/layers_fluxcalc.F |
794 |
LAYERS_LOCATE |
k(i,j) = n |
|
./pkg/layers/layers_fluxcalc.F |
795 |
LAYERS_LOCATE |
ELSE IF (x(i,j) .LT. xx(2)) THEN |
|
./pkg/layers/layers_fluxcalc.F |
797 |
LAYERS_LOCATE |
k(i,j) = 1 |
|
./pkg/layers/layers_fluxcalc.F |
798 |
LAYERS_LOCATE |
ELSE IF ( (x(i,j) .GE. xx(k(i,j))) |
|
./pkg/layers/layers_fluxcalc.F |
799 |
LAYERS_LOCATE |
& .AND. (x(i,j) .LT. xx(k(i,j)+1)) ) THEN |
|
./pkg/layers/layers_fluxcalc.F |
801 |
LAYERS_LOCATE |
ELSE IF (x(i,j) .GE. xx(k(i,j))) THEN |
|
./pkg/layers/layers_fluxcalc.F |
803 |
LAYERS_LOCATE |
DO WHILE (x(i,j) .GE. xx(k(i,j)+1)) |
|
./pkg/layers/layers_fluxcalc.F |
804 |
LAYERS_LOCATE |
k(i,j) = k(i,j) + 1 |
|
./pkg/layers/layers_fluxcalc.F |
807 |
LAYERS_LOCATE |
ELSE IF (x(i,j) .LT. xx(k(i,j)+1)) THEN |
|
./pkg/layers/layers_fluxcalc.F |
809 |
LAYERS_LOCATE |
DO WHILE (x(i,j) .LT. xx(k(i,j))) |
|
./pkg/layers/layers_fluxcalc.F |
810 |
LAYERS_LOCATE |
k(i,j) = k(i,j) - 1 |
|
./pkg/layers/layers_fluxcalc.F |
815 |
LAYERS_LOCATE |
k(i,j) = -1 |
|
./pkg/layers/layers_init_varia.F |
30 |
LAYERS_INIT_VARIA |
INTEGER i,j,kg |
|
./pkg/layers/layers_init_varia.F |
40 |
LAYERS_INIT_VARIA |
DO j=1-OLy,sNy+OLy |
|
./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 |
48 |
LAYERS_INIT_VARIA |
DO j=1-OLy,sNy+OLy |
|
./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 |
66 |
LAYERS_INIT_VARIA |
DO j=1-OLy,sNy+OLy |
|
./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 |
76 |
LAYERS_INIT_VARIA |
DO j=1-OLy,sNy+OLy |
|
./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 |
82 |
LAYERS_INIT_VARIA |
DO j=1-OLy,sNy+OLy |
|
./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_save.F |
324 |
LAYERS_CUMULATE |
INTEGER i, j |
|
./pkg/layers/layers_save.F |
329 |
LAYERS_CUMULATE |
DO j = 1,jRun |
|
./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 |
101 |
CALC_GRAD_PHI_HYD |
varLoc(i,j) = factPI*alphRho(i,j) |
|
./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 |
105 |
CALC_GRAD_PHI_HYD |
varLoc(i,j) = phiHydC(i,j) |
|
./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 |
113 |
CALC_GRAD_PHI_HYD |
DO j=jMin,jMax |
|
./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 |
122 |
CALC_GRAD_PHI_HYD |
varLoc(i,j) = phiHydC(i,j) |
|
./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 |
135 |
CALC_GRAD_PHI_HYD |
DO j=jMin,jMax |
|
./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 |
143 |
CALC_GRAD_PHI_HYD |
DO j=1-OLy,sNy+OLy |
|
./model/src/calc_grad_phi_hyd.F |
145 |
CALC_GRAD_PHI_HYD |
dPhiHydX(i,j) = 0. _d 0 |
|
./model/src/calc_grad_phi_hyd.F |
146 |
CALC_GRAD_PHI_HYD |
dPhiHydY(i,j) = 0. _d 0 |
|
./model/src/calc_grad_phi_hyd.F |
149 |
CALC_GRAD_PHI_HYD |
DO j=jMin,jMax |
|
./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 |
152 |
CALC_GRAD_PHI_HYD |
& *( varLoc(i,j)-varLoc(i-1,j) )*recip_rhoFacC(k) |
|
./model/src/calc_grad_phi_hyd.F |
155 |
CALC_GRAD_PHI_HYD |
DO j=jMin+1,jMax |
|
./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 |
158 |
CALC_GRAD_PHI_HYD |
& *( varLoc(i,j)-varLoc(i,j-1) )*recip_rhoFacC(k) |
|
./model/src/calc_grad_phi_hyd.F |
168 |
CALC_GRAD_PHI_HYD |
DO j=jMin,jMax |
|
./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 |
174 |
CALC_GRAD_PHI_HYD |
DO j=jMin,jMax |
|
./model/src/calc_grad_phi_hyd.F |
176 |
CALC_GRAD_PHI_HYD |
dPhiHydX(i,j) = dPhiHydX(i,j) |
|
./model/src/calc_grad_phi_hyd.F |
177 |
CALC_GRAD_PHI_HYD |
& +factorZ*(alphRho(i-1,j)+alphRho(i,j)) |
|
./model/src/calc_grad_phi_hyd.F |
178 |
CALC_GRAD_PHI_HYD |
& *(varLoc(i,j)-varLoc(i-1,j)) |
|
./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 |
182 |
CALC_GRAD_PHI_HYD |
DO j=jMin+1,jMax |
|
./model/src/calc_grad_phi_hyd.F |
184 |
CALC_GRAD_PHI_HYD |
dPhiHydY(i,j) = dPhiHydY(i,j) |
|
./model/src/calc_grad_phi_hyd.F |
185 |
CALC_GRAD_PHI_HYD |
& +factorZ*(alphRho(i,j-1)+alphRho(i,j)) |
|
./model/src/calc_grad_phi_hyd.F |
186 |
CALC_GRAD_PHI_HYD |
& *(varLoc(i,j)-varLoc(i,j-1)) |
|
./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 |
193 |
CALC_GRAD_PHI_HYD |
DO j=jMin,jMax |
|
./model/src/calc_grad_phi_hyd.F |
195 |
CALC_GRAD_PHI_HYD |
dPhiHydX(i,j) = dPhiHydX(i,j) |
|
./model/src/calc_grad_phi_hyd.F |
196 |
CALC_GRAD_PHI_HYD |
& +factorP*(alphRho(i-1,j)+alphRho(i,j)) |
|
./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 |
201 |
CALC_GRAD_PHI_HYD |
DO j=jMin+1,jMax |
|
./model/src/calc_grad_phi_hyd.F |
203 |
CALC_GRAD_PHI_HYD |
dPhiHydY(i,j) = dPhiHydY(i,j) |
|
./model/src/calc_grad_phi_hyd.F |
204 |
CALC_GRAD_PHI_HYD |
& +factorP*(alphRho(i,j-1)+alphRho(i,j)) |
|
./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 |
223 |
CALC_GRAD_PHI_HYD |
DO j=jMin,jMax |
|
./model/src/calc_grad_phi_hyd.F |
225 |
CALC_GRAD_PHI_HYD |
dPhiHydX(i,j) = dPhiHydX(i,j) |
|
./model/src/calc_grad_phi_hyd.F |
226 |
CALC_GRAD_PHI_HYD |
& +factorP*(alphRho(i-1,j)+alphRho(i,j)) |
|
./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 |
236 |
CALC_GRAD_PHI_HYD |
DO j=jMin+1,jMax |
|
./model/src/calc_grad_phi_hyd.F |
238 |
CALC_GRAD_PHI_HYD |
dPhiHydY(i,j) = dPhiHydY(i,j) |
|
./model/src/calc_grad_phi_hyd.F |
239 |
CALC_GRAD_PHI_HYD |
& +factorP*(alphRho(i,j-1)+alphRho(i,j)) |
|
./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 |
255 |
CALC_GRAD_PHI_HYD |
DO j=1-OLy,sNy+OLy |
|
./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 |
60 |
CALC_GRAD_PHI_HYD |
INTEGER i,j |
|
./model/src/calc_grad_phi_hyd.F |
76 |
CALC_GRAD_PHI_HYD |
DO j=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 |
83 |
CALC_GRAD_PHI_HYD |
DO j=jMin,jMax |
|
./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 |
95 |
CALC_GRAD_PHI_HYD |
DO j=jMin,jMax |
|
./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 |
102 |
LAYERS_CALC_RHS |
DO j=1-OLy,sNy+OLy-1 |
|
./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 |
52 |
LAYERS_CALC_RHS |
INTEGER i,j,k,kdown,iTracer |
|
./pkg/layers/layers_thermodynamics.F |
72 |
LAYERS_CALC_RHS |
DO j=1-OLy,sNy+OLy |
|
./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 |
62 |
LAYERS_WSURF_TR |
DO j=1,sNy |
|
./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 |
52 |
LONGSTEP_AVERAGE_3D |
DO j = 1-OLy,sNy+OLy |
|
./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 |
52 |
LONGSTEP_AVERAGE_3D_FAC |
DO j = 1-OLy,sNy+OLy |
|
./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 |
45 |
CALC_GRAD_PHI_SURF |
INTEGER i,j |
|
./model/src/calc_grad_phi_surf.F |
49 |
CALC_GRAD_PHI_SURF |
DO j=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 |
58 |
CALC_GRAD_PHI_SURF |
DO j=jMin,jMax |
|
./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) ) |
|
./pkg/longstep/longstep_fill_3d.F |
44 |
LONGSTEP_FILL_3D |
INTEGER i,j,k,bi,bj |
|
./pkg/longstep/longstep_fill_3d.F |
51 |
LONGSTEP_FILL_3D |
DO j = 1-OLy,sNy+OLy |
|
./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 |
52 |
LONGSTEP_FILL_3D_FAC |
DO j = 1-OLy,sNy+OLy |
|
./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 |
52 |
LONGSTEP_FILL_3D_RS |
DO j = 1-OLy,sNy+OLy |
|
./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 |
116 |
LONGSTEP_FORCING_SURF |
DO j = jMin, jMax |
|
./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 |
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 |
140 |
LONGSTEP_FORCING_SURF |
DO j = jMin, jMax |
|
./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 |
49 |
LONGSTEP_FORCING_SURF |
INTEGER i, j |
|
./pkg/longstep/longstep_forcing_surf.F |
61 |
LONGSTEP_FORCING_SURF |
DO j = jMin, jMax |
|
./pkg/longstep/longstep_forcing_surf.F |
63 |
LONGSTEP_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = |
|
./pkg/longstep/longstep_forcing_surf.F |
83 |
LONGSTEP_FORCING_SURF |
DO j = jMin, jMax |
|
./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 |
49 |
LONGSTEP_RESET_3D |
DO j = 1-OLy,sNy+OLy |
|
./pkg/longstep/longstep_reset_3d.F |
51 |
LONGSTEP_RESET_3D |
lsFld(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/longstep/longstep_thermodynamics.F |
130 |
LONGSTEP_THERMODYNAMICS |
DO j=1-OLy,sNy+OLy |
|
./pkg/longstep/longstep_thermodynamics.F |
133 |
LONGSTEP_THERMODYNAMICS |
kappaRk(i,j,k) = 0. _d 0 |
|
./pkg/longstep/longstep_thermodynamics.F |
144 |
LONGSTEP_THERMODYNAMICS |
DO j=1-OLy,sNy+OLy |
|
./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 |
155 |
LONGSTEP_THERMODYNAMICS |
DO j=1-OLy,sNy+OLy |
|
./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 |
168 |
LONGSTEP_THERMODYNAMICS |
DO j=1-OLy,sNy+OLy |
|
./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 |
182 |
LONGSTEP_THERMODYNAMICS |
DO j=1-OLy,sNy+OLy |
|
./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 |
205 |
LONGSTEP_THERMODYNAMICS |
DO j=1-OLy,sNy+OLy |
|
./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 |
91 |
LONGSTEP_THERMODYNAMICS |
INTEGER i, j, k |
|
./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 |
112 |
CALC_GRID_ANGLES |
DO j = 1-OLy,sNy+OLy |
|
./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 |
41 |
CALC_GRID_ANGLES |
INTEGER i, j |
|
./model/src/calc_grid_angles.F |
54 |
CALC_GRID_ANGLES |
DO j = 1-OLy,sNy+OLy-1 |
|
./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 |
57 |
CALC_GRID_ANGLES |
uPseudo(i,j) = |
|
./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 |
61 |
CALC_GRID_ANGLES |
uPseudo(i,j) = 0. |
|
./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 |
66 |
CALC_GRID_ANGLES |
DO j = 1-OLy,sNy+OLy |
|
./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 |
69 |
CALC_GRID_ANGLES |
vPseudo(i,j) = |
|
./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 |
73 |
CALC_GRID_ANGLES |
vPseudo(i,j) = 0. |
|
./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 |
79 |
CALC_GRID_ANGLES |
DO j = 1-OLy,sNy+OLy-1 |
|
./model/src/calc_grid_angles.F |
81 |
CALC_GRID_ANGLES |
uC = 0.5*(uPseudo(i,j) + uPseudo(i+1,j)) |
|
./model/src/calc_grid_angles.F |
82 |
CALC_GRID_ANGLES |
vC = 0.5*(vPseudo(i,j) + vPseudo(i,j+1)) |
|
./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 |
94 |
CALC_GRID_ANGLES |
DO j = 1-OLy,sNy+OLy-1 |
|
./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 |
39 |
MATRIX_INIT_VARIA |
DO j=1-Oly, sNy+Oly |
|
./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 |
101 |
MATRIX_STORE_TENDENCY_IMP |
INTEGER i,j,k |
|
./pkg/matrix/matrix_store_tendency.F |
106 |
MATRIX_STORE_TENDENCY_IMP |
DO j=1-OLy, sNy+OLy |
|
./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 |
47 |
MATRIX_STORE_TENDENCY_EXP |
INTEGER i,j,k |
|
./pkg/matrix/matrix_store_tendency.F |
51 |
MATRIX_STORE_TENDENCY_EXP |
DO j=1-OLy, sNy+OLy |
|
./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_write_tendency.F |
106 |
MATRIX_WRITE_TENDENCY |
DO j=1-OLy, sNy+OLy |
|
./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 |
143 |
MATRIX_WRITE_TENDENCY |
DO j=1-OLy, sNy+OLy |
|
./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 |
47 |
MATRIX_WRITE_TENDENCY |
DO j=1-OLy, sNy+OLy |
|
./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 |
84 |
MATRIX_WRITE_TENDENCY |
DO j=1-OLy, sNy+OLy |
|
./pkg/matrix/matrix_write_tendency.F |
86 |
MATRIX_WRITE_TENDENCY |
MATRIX(i,j,k,bi,bj,iTracer,1) = 0. _d 0 |
|
./model/src/calc_gw.F |
119 |
CALC_GW |
INTEGER i,j,k, km1, kp1 |
|
./model/src/calc_gw.F |
152 |
CALC_GW |
DO j=1-OLy,sNy+OLy |
|
./model/src/calc_gw.F |
154 |
CALC_GW |
gW(i,j,k,bi,bj) = 0. |
|
./model/src/calc_gw.F |
159 |
CALC_GW |
DO j=1-OLy,sNy+OLy |
|
./model/src/calc_gw.F |
161 |
CALC_GW |
gwDiss(i,j) = 0. |
|
./model/src/calc_gw.F |
166 |
CALC_GW |
DO j=1-OLy,sNy+OLy |
|
./model/src/calc_gw.F |
168 |
CALC_GW |
del2w(i,j) = 0. _d 0 |
|
./model/src/calc_gw.F |
174 |
CALC_GW |
DO j=1-OLy,sNy+OLy |
|
./model/src/calc_gw.F |
176 |
CALC_GW |
flxAdvUp(i,j) = 0. |
|
./model/src/calc_gw.F |
192 |
CALC_GW |
DO j=1-OLy,sNy+OLy |
|
./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 |
196 |
CALC_GW |
recip_rThickC(i,j) = 0. |
|
./model/src/calc_gw.F |
199 |
CALC_GW |
recip_rThickC(i,j) = 1. _d 0 / |
|
./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 |
207 |
CALC_GW |
DO j=1-OLy,sNy+OLy |
|
./model/src/calc_gw.F |
209 |
CALC_GW |
rThickC_C(i,j) = MAX( zeroRS, |
|
./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 |
215 |
CALC_GW |
DO j=1-OLy,sNy+OLy |
|
./model/src/calc_gw.F |
217 |
CALC_GW |
rThickC_W(i,j) = MAX( zeroRS, |
|
./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 |
226 |
CALC_GW |
DO j=1-OLy+1,sNy+OLy |
|
./model/src/calc_gw.F |
228 |
CALC_GW |
rThickC_S(i,j) = MAX( zeroRS, |
|
./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 |
241 |
CALC_GW |
DO j=1-OLy,sNy+OLy |
|
./model/src/calc_gw.F |
244 |
CALC_GW |
IF ( maskC(i,j,k,bi,bj).EQ.0. ) THEN |
|
./model/src/calc_gw.F |
245 |
CALC_GW |
recip_rThickC(i,j) = 0. |
|
./model/src/calc_gw.F |
247 |
CALC_GW |
recip_rThickC(i,j) = 1. _d 0 / |
|
./model/src/calc_gw.F |
249 |
CALC_GW |
& + drF( k )*MIN( _hFacC(i,j, k ,bi,bj), halfRS ) |
|
./model/src/calc_gw.F |
254 |
CALC_GW |
rThickC_C(i,j) = |
|
./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 |
258 |
CALC_GW |
rThickC_C(i,j) = |
|
./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 |
262 |
CALC_GW |
rThickC_W(i,j) = |
|
./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 |
265 |
CALC_GW |
rThickC_S(i,j) = |
|
./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 |
281 |
CALC_GW |
DO j=1-OLy,sNy+OLy |
|
./model/src/calc_gw.F |
283 |
CALC_GW |
recip_rThickC(i,j) = recip_drC(k) |
|
./model/src/calc_gw.F |
294 |
CALC_GW |
DO j=1-OLy,sNy+OLy |
|
./model/src/calc_gw.F |
296 |
CALC_GW |
wFld(i,j) = wVel(i,j,k,bi,bj) |
|
./model/src/calc_gw.F |
310 |
CALC_GW |
DO j=1-OLy,sNy+OLy |
|
./model/src/calc_gw.F |
311 |
CALC_GW |
flx_EW(1-OLx,j)=0. |
|
./model/src/calc_gw.F |
313 |
CALC_GW |
flx_EW(i,j) = |
|
./model/src/calc_gw.F |
314 |
CALC_GW |
& ( wFld(i,j) - wFld(i-1,j) ) |
|
./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 |
334 |
CALC_GW |
DO j=1-OLy+1,sNy+OLy |
|
./model/src/calc_gw.F |
336 |
CALC_GW |
flx_NS(i,j) = |
|
./model/src/calc_gw.F |
337 |
CALC_GW |
& ( wFld(i,j) - wFld(i,j-1) ) |
|
./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 |
352 |
CALC_GW |
DO j=1-OLy,sNy+OLy-1 |
|
./model/src/calc_gw.F |
354 |
CALC_GW |
del2w(i,j) = ( ( flx_EW(i+1,j)-flx_EW(i,j) ) |
|
./model/src/calc_gw.F |
355 |
CALC_GW |
& +( flx_NS(i,j+1)-flx_NS(i,j) ) |
|
./model/src/calc_gw.F |
356 |
CALC_GW |
& )*recip_rA(i,j,bi,bj)*recip_rThickC(i,j) |
|
./model/src/calc_gw.F |
365 |
CALC_GW |
DO j=jMin,jMax |
|
./model/src/calc_gw.F |
367 |
CALC_GW |
flx_EW(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 |
373 |
CALC_GW |
& *(del2w(i,j)-del2w(i-1,j)) |
|
./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 |
383 |
CALC_GW |
DO j=jMin,jMax+1 |
|
./model/src/calc_gw.F |
385 |
CALC_GW |
flx_NS(i,j)= |
|
./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 |
393 |
CALC_GW |
& *(del2w(i,j)-del2w(i,j-1)) |
|
./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 |
405 |
CALC_GW |
DO j=jMin,jMax |
|
./model/src/calc_gw.F |
408 |
CALC_GW |
viscLoc = ( kappaRU(i,j,k) +kappaRU(i+1,j,k) |
|
./model/src/calc_gw.F |
409 |
CALC_GW |
& +kappaRU(i,j,k+1)+kappaRU(i+1,j,k+1) |
|
./model/src/calc_gw.F |
410 |
CALC_GW |
& +kappaRV(i,j,k) +kappaRV(i,j+1,k) |
|
./model/src/calc_gw.F |
411 |
CALC_GW |
& +kappaRV(i,j,k+1)+kappaRV(i,j+1,k+1) |
|
./model/src/calc_gw.F |
413 |
CALC_GW |
flx_Dn(i,j) = |
|
./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 |
422 |
CALC_GW |
DO j=jMin,jMax |
|
./model/src/calc_gw.F |
428 |
CALC_GW |
viscLoc = ( kappaRU(i,j,k) + kappaRU(i+1,j,k) |
|
./model/src/calc_gw.F |
429 |
CALC_GW |
& +kappaRV(i,j,k) + kappaRV(i,j+1,k) |
|
./model/src/calc_gw.F |
431 |
CALC_GW |
flxDisUp(i,j) = |
|
./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 |
443 |
CALC_GW |
DO j=jMin,jMax |
|
./model/src/calc_gw.F |
445 |
CALC_GW |
gwDiss(i,j) = |
|
./model/src/calc_gw.F |
446 |
CALC_GW |
& -( ( flx_EW(i+1,j)-flx_EW(i,j) ) |
|
./model/src/calc_gw.F |
447 |
CALC_GW |
& + ( flx_NS(i,j+1)-flx_NS(i,j) ) |
|
./model/src/calc_gw.F |
448 |
CALC_GW |
& + ( flx_Dn(i,j)-flxDisUp(i,j) )*rkSign |
|
./model/src/calc_gw.F |
450 |
CALC_GW |
& )*recip_rA(i,j,bi,bj)*recip_rThickC(i,j) |
|
./model/src/calc_gw.F |
453 |
CALC_GW |
flxDisUp(i,j)=flx_Dn(i,j) |
|
./model/src/calc_gw.F |
467 |
CALC_GW |
DO j=jMin,jMax |
|
./model/src/calc_gw.F |
469 |
CALC_GW |
gwDiss(i,j) = gwDiss(i,j) + gwAdd(i,j) |
|
./model/src/calc_gw.F |
482 |
CALC_GW |
DO j = jMin,jMax |
|
./model/src/calc_gw.F |
484 |
CALC_GW |
gwDiss(i,j) = gwDiss(i,j) + gwAdd(i,j) |
|
./model/src/calc_gw.F |
496 |
CALC_GW |
DO j=jMin,jMax |
|
./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 |
505 |
CALC_GW |
flx_EW(i,j) = uTrans*(wFld(i,j)+wFld(i-1,j))*halfRL |
|
./model/src/calc_gw.F |
511 |
CALC_GW |
DO j=jMin,jMax+1 |
|
./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 |
520 |
CALC_GW |
flx_NS(i,j) = vTrans*(wFld(i,j)+wFld(i,j-1))*halfRL |
|
./model/src/calc_gw.F |
528 |
CALC_GW |
DO j=jMin,jMax |
|
./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 |
540 |
CALC_GW |
flx_Dn(i,j) = rTrans*tmp_WbarZ |
|
./model/src/calc_gw.F |
546 |
CALC_GW |
DO j=jMin,jMax |
|
./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 |
551 |
CALC_GW |
flxAdvUp(i,j) = rTrans*tmp_WbarZ |
|
./model/src/calc_gw.F |
560 |
CALC_GW |
DO j=jMin,jMax |
|
./model/src/calc_gw.F |
564 |
CALC_GW |
gW(i,j,k,bi,bj) = |
|
./model/src/calc_gw.F |
565 |
CALC_GW |
& -( ( flx_EW(i+1,j)-flx_EW(i,j) ) |
|
./model/src/calc_gw.F |
566 |
CALC_GW |
& + ( flx_NS(i,j+1)-flx_NS(i,j) ) |
|
./model/src/calc_gw.F |
567 |
CALC_GW |
& + ( flx_Dn(i,j)-flxAdvUp(i,j) )*rkSign*wUnit2rVel(k) |
|
./model/src/calc_gw.F |
568 |
CALC_GW |
& )*recip_rA(i,j,bi,bj)*recip_rThickC(i,j) |
|
./model/src/calc_gw.F |
574 |
CALC_GW |
DO j=jMin,jMax |
|
./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 |
588 |
CALC_GW |
DO j=jMin,jMax |
|
./model/src/calc_gw.F |
591 |
CALC_GW |
flxAdvUp(i,j)=flx_Dn(i,j) |
|
./model/src/calc_gw.F |
614 |
CALC_GW |
DO j=jMin,jMax |
|
./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 |
626 |
CALC_GW |
DO j=jMin,jMax |
|
./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 |
652 |
CALC_GW |
DO j=jMin,jMax |
|
./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 |
683 |
CALC_GW |
DO j=jMin,jMax |
|
./model/src/calc_gw.F |
685 |
CALC_GW |
gW(i,j,k,bi,bj) = gW(i,j,k,bi,bj)+gwDiss(i,j) |
|
./pkg/mdsio/mdsio_facef_read.F |
102 |
MDS_FACEF_READ_RS |
j = j+1 |
|
./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 |
126 |
MDS_FACEF_READ_RS |
DO j=1,sNy+1 |
|
./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 |
136 |
MDS_FACEF_READ_RS |
DO j=1,sNy+1 |
|
./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 |
56 |
MDS_FACEF_READ_RS |
INTEGER i,j, dUnit, iLen |
|
./pkg/mdsio/mdsio_facef_read.F |
83 |
MDS_FACEF_READ_RS |
j = 0 |
|
./pkg/mdsio/mdsio_facef_read.F |
91 |
MDS_FACEF_READ_RS |
j = j+1 |
|
./pkg/mdsio/mdsio_facef_read.F |
93 |
MDS_FACEF_READ_RS |
array(i,j,bi,bj) = ioBuf4(i+tBx) |
|
./pkg/mdsio/mdsio_gl.F |
1054 |
MDSREADFIELD_2D_GL |
do j=1,sNy |
|
./pkg/mdsio/mdsio_gl.F |
1058 |
MDSREADFIELD_2D_GL |
irec=1 + INT(iG/sNx) + nSx*nPx*(jG+j-1) + nSx*nPx*Ny*(k-1) |
|
./pkg/mdsio/mdsio_gl.F |
1063 |
MDSREADFIELD_2D_GL |
irec=j + sNy*(k-1) + sNy*nLocz*(irecord-1) |
|
./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 |
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 |
1385 |
MDSWRITEFIELD_2D_GL |
global(II,JJ) = arr_gl(i,bi,ip,j,bj,jp,k) |
|
./pkg/mdsio/mdsio_gl.F |
1481 |
MDSWRITEFIELD_2D_GL |
do j=1,sNy |
|
./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 |
1487 |
MDSWRITEFIELD_2D_GL |
irec=j + sNy*(k-1) + sNy*nLocz*(irecord-1) |
|
./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 |
267 |
MDSREADFIELD_3D_GL |
do j=1,sNy |
|
./pkg/mdsio/mdsio_gl.F |
271 |
MDSREADFIELD_3D_GL |
irec=1 + INT(iG/sNx) + nSx*nPx*(jG+j-1) + nSx*nPx*Ny*(k-1) |
|
./pkg/mdsio/mdsio_gl.F |
276 |
MDSREADFIELD_3D_GL |
irec=j + sNy*(k-1) + sNy*Nr*(irecord-1) |
|
./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 |
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 |
596 |
MDSWRITEFIELD_3D_GL |
global(II,JJ) = arr_gl(i,bi,ip,j,bj,jp,k) |
|
./pkg/mdsio/mdsio_gl.F |
692 |
MDSWRITEFIELD_3D_GL |
do j=1,sNy |
|
./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 |
698 |
MDSWRITEFIELD_3D_GL |
irec=j + sNy*(k-1) + sNy*Nr*(irecord-1) |
|
./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 |
860 |
MDSREADFIELD_2D_GL |
integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL |
|
./pkg/mdsio/mdsio_pass_r4torl.F |
101 |
MDS_PASS_R4TORL |
DO j=1-oLj,sNy+oLj |
|
./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 |
110 |
MDS_PASS_R4TORL |
DO j=1-oLj,sNy+oLj |
|
./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 |
72 |
MDS_PASS_R4TORL |
DO j=1-oLj,sNy+oLj |
|
./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 |
85 |
MDS_PASS_R4TORL |
DO j=1-oLj,sNy+oLj |
|
./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_r4tors.F |
101 |
MDS_PASS_R4TORS |
DO j=1-oLj,sNy+oLj |
|
./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 |
110 |
MDS_PASS_R4TORS |
DO j=1-oLj,sNy+oLj |
|
./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 |
72 |
MDS_PASS_R4TORS |
DO j=1-oLj,sNy+oLj |
|
./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 |
85 |
MDS_PASS_R4TORS |
DO j=1-oLj,sNy+oLj |
|
./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_r8torl.F |
101 |
MDS_PASS_R8TORL |
DO j=1-oLj,sNy+oLj |
|
./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 |
110 |
MDS_PASS_R8TORL |
DO j=1-oLj,sNy+oLj |
|
./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 |
72 |
MDS_PASS_R8TORL |
DO j=1-oLj,sNy+oLj |
|
./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 |
85 |
MDS_PASS_R8TORL |
DO j=1-oLj,sNy+oLj |
|
./pkg/mdsio/mdsio_pass_r8torl.F |
87 |
MDS_PASS_R8TORL |
buffer(i,j,k,bi,bj) = arrFld(i,j,kLev,bi,bj) |
|
./model/src/calc_ivdc.F |
44 |
CALC_IVDC |
INTEGER i,j |
|
./model/src/calc_ivdc.F |
48 |
CALC_IVDC |
DO j=jMin,jmax |
|
./model/src/calc_ivdc.F |
50 |
CALC_IVDC |
IF ( -sigmaR(i,j,k)*gravitySign.GT.0. ) THEN |
|
./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 |
|
./pkg/mdsio/mdsio_pass_r8tors.F |
101 |
MDS_PASS_R8TORS |
DO j=1-oLj,sNy+oLj |
|
./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 |
110 |
MDS_PASS_R8TORS |
DO j=1-oLj,sNy+oLj |
|
./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 |
72 |
MDS_PASS_R8TORS |
DO j=1-oLj,sNy+oLj |
|
./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 |
85 |
MDS_PASS_R8TORS |
DO j=1-oLj,sNy+oLj |
|
./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_read_field.F |
111 |
MDS_READ_FIELD |
INTEGER i1,i2,i,j,k,nNz |
|
./pkg/mdsio/mdsio_read_field.F |
431 |
MDS_READ_FIELD |
DO j=1,tNy |
|
./pkg/mdsio/mdsio_read_field.F |
432 |
MDS_READ_FIELD |
irec = 1 + ( tBx + (j-1)*iGjLoc )/sNx |
|
./pkg/mdsio/mdsio_read_field.F |
433 |
MDS_READ_FIELD |
& + ( tBy + (j-1)*jGjLoc )*global_nTx |
|
./pkg/mdsio/mdsio_read_field.F |
435 |
MDS_READ_FIELD |
i1 = bBij + 1 + (j-1)*sNx + (k-kLo)*sNx*sNy |
|
./pkg/mdsio/mdsio_read_field.F |
436 |
MDS_READ_FIELD |
i2 = bBij + j*sNx + (k-kLo)*sNx*sNy |
|
./pkg/mdsio/mdsio_read_meta.F |
108 |
MDS_READ_META |
DO j=1,nDims |
|
./pkg/mdsio/mdsio_read_meta.F |
110 |
MDS_READ_META |
dimList(i,j) = 0 |
|
./pkg/mdsio/mdsio_read_meta.F |
242 |
MDS_READ_META |
DO j=1,nDimFil |
|
./pkg/mdsio/mdsio_read_meta.F |
250 |
MDS_READ_META |
& (dimList(i,j),i=1,3) |
|
./pkg/mdsio/mdsio_read_meta.F |
255 |
MDS_READ_META |
& (dimList(i,j),i=1,3) |
|
./pkg/mdsio/mdsio_read_meta.F |
260 |
MDS_READ_META |
& (dimList(i,j),i=1,3) |
|
./pkg/mdsio/mdsio_read_meta.F |
370 |
MDS_READ_META |
DO j=1,nFldFil,20 |
|
./pkg/mdsio/mdsio_read_meta.F |
372 |
MDS_READ_META |
& (fldList(i),i=j,MIN(nFldFil,j+19)) |
|
./pkg/mdsio/mdsio_read_meta.F |
383 |
MDS_READ_META |
& nFldFil, ' , j=', j |
|
./pkg/mdsio/mdsio_read_meta.F |
396 |
MDS_READ_META |
& nDimFil, ' , j=', j, ' , ii=', ii |
|
./pkg/mdsio/mdsio_read_meta.F |
88 |
MDS_READ_META |
INTEGER i,j,ii |
|
./pkg/mdsio/mdsio_read_tape.F |
270 |
MDS_READ_TAPE |
DO j=1,nSize |
|
./pkg/mdsio/mdsio_read_tape.F |
271 |
MDS_READ_TAPE |
fldR4(j) = local_r4(j) |
|
./pkg/mdsio/mdsio_read_tape.F |
274 |
MDS_READ_TAPE |
DO j=1,nSize |
|
./pkg/mdsio/mdsio_read_tape.F |
275 |
MDS_READ_TAPE |
fldR4(j) = local_r8(j) |
|
./pkg/mdsio/mdsio_read_tape.F |
280 |
MDS_READ_TAPE |
DO j=1,nSize |
|
./pkg/mdsio/mdsio_read_tape.F |
281 |
MDS_READ_TAPE |
fldR8(j) = local_r4(j) |
|
./pkg/mdsio/mdsio_read_tape.F |
284 |
MDS_READ_TAPE |
DO j=1,nSize |
|
./pkg/mdsio/mdsio_read_tape.F |
285 |
MDS_READ_TAPE |
fldR8(j) = local_r8(j) |
|
./pkg/mdsio/mdsio_read_tape.F |
71 |
MDS_READ_TAPE |
INTEGER j |
|
./pkg/mdsio/mdsio_read_whalos.F |
191 |
MDS_READ_WHALOS |
j=(jWh-1)*lengthBuff+i |
|
./pkg/mdsio/mdsio_read_whalos.F |
194 |
MDS_READ_WHALOS |
fld2d_procbuff_r4(i)=fld3d_procbuff_r4(j) |
|
./pkg/mdsio/mdsio_read_whalos.F |
196 |
MDS_READ_WHALOS |
fld2d_procbuff_r8(i)=fld3d_procbuff_r8(j) |
|
./pkg/mdsio/mdsio_read_whalos.F |
201 |
MDS_READ_WHALOS |
fld2d_globuff_r4(i)=fld3d_globuff_r4(j) |
|
./pkg/mdsio/mdsio_read_whalos.F |
203 |
MDS_READ_WHALOS |
fld2d_globuff_r8(i)=fld3d_globuff_r8(j) |
|
./pkg/mdsio/mdsio_read_whalos.F |
90 |
MDS_READ_WHALOS |
integer i,j,k,bi,bj,ii |
|
./model/src/calc_oce_mxlayer.F |
100 |
CALC_OCE_MXLAYER |
DO j=1-Oly,sNy+Oly |
|
./model/src/calc_oce_mxlayer.F |
102 |
CALC_OCE_MXLAYER |
rhoKm1(i,j) = rhoSurf(i,j) |
|
./model/src/calc_oce_mxlayer.F |
103 |
CALC_OCE_MXLAYER |
rhoMxL(i,j) = rhoSurf(i,j) |
|
./model/src/calc_oce_mxlayer.F |
104 |
CALC_OCE_MXLAYER |
& + MAX( rhoMxL(i,j)*hMixCriteria, dRhoSmall ) |
|
./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 |
116 |
CALC_OCE_MXLAYER |
DO j=1-Oly,sNy+Oly |
|
./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 |
119 |
CALC_OCE_MXLAYER |
& rhoLoc(i,j).GE.rhoMxL(i,j) ) THEN |
|
./model/src/calc_oce_mxlayer.F |
120 |
CALC_OCE_MXLAYER |
IF ( rhoLoc(i,j).GT.rhoKm1(i,j) ) THEN |
|
./model/src/calc_oce_mxlayer.F |
121 |
CALC_OCE_MXLAYER |
tmpFac = ( rhoMxL(i,j) - rhoKm1(i,j) ) |
|
./model/src/calc_oce_mxlayer.F |
122 |
CALC_OCE_MXLAYER |
& / ( rhoLoc(i,j) - rhoKm1(i,j) ) |
|
./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 |
127 |
CALC_OCE_MXLAYER |
rhoMxL(i,j) = rhoBigNb |
|
./model/src/calc_oce_mxlayer.F |
129 |
CALC_OCE_MXLAYER |
rhoKm1(i,j) = rhoLoc(i,j) |
|
./model/src/calc_oce_mxlayer.F |
143 |
CALC_OCE_MXLAYER |
DO j=1-Oly,sNy+Oly |
|
./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 |
147 |
CALC_OCE_MXLAYER |
rhoMxL(i,j) = 1. |
|
./model/src/calc_oce_mxlayer.F |
149 |
CALC_OCE_MXLAYER |
hMixLayer(i,j,bi,bj) = rF(1) |
|
./model/src/calc_oce_mxlayer.F |
150 |
CALC_OCE_MXLAYER |
rhoMxL(i,j) = -1. |
|
./model/src/calc_oce_mxlayer.F |
162 |
CALC_OCE_MXLAYER |
DO j=1-Oly,sNy+Oly |
|
./model/src/calc_oce_mxlayer.F |
164 |
CALC_OCE_MXLAYER |
IF ( k.LT.klowC(i,j,bi,bj) |
|
./model/src/calc_oce_mxlayer.F |
165 |
CALC_OCE_MXLAYER |
& .AND. rhoMxL(i,j).GE.0. ) THEN |
|
./model/src/calc_oce_mxlayer.F |
166 |
CALC_OCE_MXLAYER |
sigmAv = ( rhoLoc(i,j)-rhoSurf(i,j)+dRhoSmall ) |
|
./model/src/calc_oce_mxlayer.F |
168 |
CALC_OCE_MXLAYER |
IF ( -sigmaR(i,j,k+1).GT.sigmAv*hMixCriteria ) THEN |
|
./model/src/calc_oce_mxlayer.F |
171 |
CALC_OCE_MXLAYER |
tmpFac = hMixCriteria*sigmaR(i,j,k)/sigmaR(i,j,k+1) |
|
./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 |
180 |
CALC_OCE_MXLAYER |
rhoMxL(i,j) = -1. |
|
./model/src/calc_oce_mxlayer.F |
193 |
CALC_OCE_MXLAYER |
DO j=1-Oly+1,sNy+Oly-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 |
209 |
CALC_OCE_MXLAYER |
DO j=1-Oly+1,sNy+Oly-1 |
|
./model/src/calc_oce_mxlayer.F |
211 |
CALC_OCE_MXLAYER |
hMixLayer(i,j,bi,bj) = rhoLoc(i,j) |
|
./model/src/calc_oce_mxlayer.F |
56 |
CALC_OCE_MXLAYER |
INTEGER i,j,k |
|
./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_write_field.F |
128 |
MDS_WRITE_FIELD |
INTEGER i1,i2,i,j,k,nNz |
|
./pkg/mdsio/mdsio_write_field.F |
478 |
MDS_WRITE_FIELD |
DO j=1,tNy |
|
./pkg/mdsio/mdsio_write_field.F |
479 |
MDS_WRITE_FIELD |
irec = 1 + ( tBx + (j-1)*iGjLoc )/tNx |
|
./pkg/mdsio/mdsio_write_field.F |
480 |
MDS_WRITE_FIELD |
& + ( tBy + (j-1)*jGjLoc )*global_nTx |
|
./pkg/mdsio/mdsio_write_field.F |
482 |
MDS_WRITE_FIELD |
i1 = bBij + 1 + (j-1)*sNx + (k-kLo)*sNx*sNy |
|
./pkg/mdsio/mdsio_write_field.F |
483 |
MDS_WRITE_FIELD |
i2 = bBij + j*sNx + (k-kLo)*sNx*sNy |
|
./model/src/calc_phi_hyd.F |
140 |
CALC_PHI_HYD |
DO j=1-OLy,sNy+OLy |
|
./model/src/calc_phi_hyd.F |
142 |
CALC_PHI_HYD |
phiHydF(i,j) = 0. |
|
./model/src/calc_phi_hyd.F |
172 |
CALC_PHI_HYD |
DO j=jMin,jMax |
|
./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 |
186 |
CALC_PHI_HYD |
DO j=jMin,jMax |
|
./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 |
192 |
CALC_PHI_HYD |
DO j=jMin,jMax |
|
./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 |
210 |
CALC_PHI_HYD |
DO j=jMin,jMax |
|
./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 |
213 |
CALC_PHI_HYD |
& *gravity*alphaRho(i,j)*recip_rhoConst |
|
./model/src/calc_phi_hyd.F |
229 |
CALC_PHI_HYD |
DO j=jMin,jMax |
|
./model/src/calc_phi_hyd.F |
231 |
CALC_PHI_HYD |
phiHydC(i,j) = phiHydF(i,j) |
|
./model/src/calc_phi_hyd.F |
233 |
CALC_PHI_HYD |
& *alphaRho(i,j)*recip_rhoConst |
|
./model/src/calc_phi_hyd.F |
234 |
CALC_PHI_HYD |
phiHydF(i,j) = phiHydF(i,j) |
|
./model/src/calc_phi_hyd.F |
236 |
CALC_PHI_HYD |
& *alphaRho(i,j)*recip_rhoConst |
|
./model/src/calc_phi_hyd.F |
240 |
CALC_PHI_HYD |
DO j=jMin,jMax |
|
./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 |
247 |
CALC_PHI_HYD |
phiHydC(i,j) = ddRloc*gravFacC(k)*gravity |
|
./model/src/calc_phi_hyd.F |
248 |
CALC_PHI_HYD |
& *alphaRho(i,j)*recip_rhoConst |
|
./model/src/calc_phi_hyd.F |
250 |
CALC_PHI_HYD |
phiHydC(i,j) = phiHydF(i,j) |
|
./model/src/calc_phi_hyd.F |
252 |
CALC_PHI_HYD |
& *alphaRho(i,j)*recip_rhoConst |
|
./model/src/calc_phi_hyd.F |
254 |
CALC_PHI_HYD |
phiHydF(i,j) = phiHydC(i,j) |
|
./model/src/calc_phi_hyd.F |
256 |
CALC_PHI_HYD |
& *alphaRho(i,j)*recip_rhoConst |
|
./model/src/calc_phi_hyd.F |
275 |
CALC_PHI_HYD |
DO j=jMin,jMax |
|
./model/src/calc_phi_hyd.F |
277 |
CALC_PHI_HYD |
phiHydC(i,j) = phiHydF(i,j) |
|
./model/src/calc_phi_hyd.F |
278 |
CALC_PHI_HYD |
& + dRlocM*gravity*alphaRho(i,j)*recip_rhoConst |
|
./model/src/calc_phi_hyd.F |
279 |
CALC_PHI_HYD |
phiHydF(i,j) = phiHydC(i,j) |
|
./model/src/calc_phi_hyd.F |
280 |
CALC_PHI_HYD |
& + dRlocP*gravity*alphaRho(i,j)*recip_rhoConst |
|
./model/src/calc_phi_hyd.F |
286 |
CALC_PHI_HYD |
DO j=jMin,jMax |
|
./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 |
293 |
CALC_PHI_HYD |
phiHydC(i,j) =( MAX(zeroRL,ddRloc)*rec_dRm*dRlocM |
|
./model/src/calc_phi_hyd.F |
295 |
CALC_PHI_HYD |
& )*gravity*alphaRho(i,j)*recip_rhoConst |
|
./model/src/calc_phi_hyd.F |
297 |
CALC_PHI_HYD |
phiHydC(i,j) = phiHydF(i,j) |
|
./model/src/calc_phi_hyd.F |
298 |
CALC_PHI_HYD |
& + dRlocM*gravity*alphaRho(i,j)*recip_rhoConst |
|
./model/src/calc_phi_hyd.F |
300 |
CALC_PHI_HYD |
phiHydF(i,j) = phiHydC(i,j) |
|
./model/src/calc_phi_hyd.F |
301 |
CALC_PHI_HYD |
& + dRlocP*gravity*alphaRho(i,j)*recip_rhoConst |
|
./model/src/calc_phi_hyd.F |
338 |
CALC_PHI_HYD |
DO j=jMin,jMax |
|
./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 |
346 |
CALC_PHI_HYD |
DO j=jMin,jMax |
|
./model/src/calc_phi_hyd.F |
348 |
CALC_PHI_HYD |
locAlpha=alphaRho(i,j)+rhoConst |
|
./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 |
366 |
CALC_PHI_HYD |
DO j=jMin,jMax |
|
./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 |
378 |
CALC_PHI_HYD |
phiHydC(i,j) = ddRloc*alphaRho(i,j) |
|
./model/src/calc_phi_hyd.F |
385 |
CALC_PHI_HYD |
phiHydC(i,j) = phiHydF(i,j) + halfRL*drF(k)*alphaRho(i,j) |
|
./model/src/calc_phi_hyd.F |
389 |
CALC_PHI_HYD |
phiHydF(i,j) = phiHydC(i,j) + halfRL*drF(k)*alphaRho(i,j) |
|
./model/src/calc_phi_hyd.F |
407 |
CALC_PHI_HYD |
DO j=jMin,jMax |
|
./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 |
417 |
CALC_PHI_HYD |
phiHydC(i,j) =( MAX(zeroRL,ddRloc)*rec_dRm*dRlocM |
|
./model/src/calc_phi_hyd.F |
419 |
CALC_PHI_HYD |
& )*alphaRho(i,j) |
|
./model/src/calc_phi_hyd.F |
421 |
CALC_PHI_HYD |
phiHydC(i,j) = phiHydF(i,j) + dRlocM*alphaRho(i,j) |
|
./model/src/calc_phi_hyd.F |
423 |
CALC_PHI_HYD |
phiHydF(i,j) = phiHydC(i,j) + dRlocP*alphaRho(i,j) |
|
./model/src/calc_phi_hyd.F |
445 |
CALC_PHI_HYD |
DO j=jMin,jMax |
|
./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 |
453 |
CALC_PHI_HYD |
DO j=jMin,jMax |
|
./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 |
474 |
CALC_PHI_HYD |
DO j=jMin,jMax |
|
./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 |
480 |
CALC_PHI_HYD |
pKappaF(i,j) = ( |
|
./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 |
488 |
CALC_PHI_HYD |
pKappaU(i,j) = ( |
|
./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 |
492 |
CALC_PHI_HYD |
phiHydC(i,j) = phiHydF(i,j) |
|
./model/src/calc_phi_hyd.F |
493 |
CALC_PHI_HYD |
& + atm_Cp*( pKappaF(i,j) - pKappaC )*alphaRho(i,j) |
|
./model/src/calc_phi_hyd.F |
494 |
CALC_PHI_HYD |
phiHydU(i,j) = phiHydF(i,j) |
|
./model/src/calc_phi_hyd.F |
495 |
CALC_PHI_HYD |
& + atm_Cp*( pKappaF(i,j) - pKappaU(i,j) )*alphaRho(i,j) |
|
./model/src/calc_phi_hyd.F |
526 |
CALC_PHI_HYD |
DO j=jMin,jMax |
|
./model/src/calc_phi_hyd.F |
528 |
CALC_PHI_HYD |
phiHydC(i,j) = phiHydF(i,j) +ddPIm*alphaRho(i,j) |
|
./model/src/calc_phi_hyd.F |
529 |
CALC_PHI_HYD |
phiHydF(i,j) = phiHydC(i,j) +ddPIp*alphaRho(i,j) |
|
./model/src/calc_phi_hyd.F |
549 |
CALC_PHI_HYD |
DO j=jMin,jMax |
|
./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 |
556 |
CALC_PHI_HYD |
phiHydC(i,j) = ddRloc*recip_drF(k)*2. _d 0 |
|
./model/src/calc_phi_hyd.F |
557 |
CALC_PHI_HYD |
& *ddPIm*alphaRho(i,j) |
|
./model/src/calc_phi_hyd.F |
559 |
CALC_PHI_HYD |
phiHydC(i,j) = phiHydF(i,j) +ddPIm*alphaRho(i,j) |
|
./model/src/calc_phi_hyd.F |
561 |
CALC_PHI_HYD |
phiHydF(i,j) = phiHydC(i,j) +ddPIp*alphaRho(i,j) |
|
./model/src/calc_phi_hyd.F |
593 |
CALC_PHI_HYD |
DO j=jMin,jMax |
|
./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 |
600 |
CALC_PHI_HYD |
phiHydC(i,j) =( MAX(zeroRL,ddRloc)*rec_dRm*ddPIm |
|
./model/src/calc_phi_hyd.F |
602 |
CALC_PHI_HYD |
& )*alphaRho(i,j) |
|
./model/src/calc_phi_hyd.F |
604 |
CALC_PHI_HYD |
phiHydC(i,j) = phiHydF(i,j) +ddPIm*alphaRho(i,j) |
|
./model/src/calc_phi_hyd.F |
606 |
CALC_PHI_HYD |
phiHydF(i,j) = phiHydC(i,j) +ddPIp*alphaRho(i,j) |
|
./model/src/calc_phi_hyd.F |
646 |
CALC_PHI_HYD |
DO j=jMin,jMax |
|
./model/src/calc_phi_hyd.F |
648 |
CALC_PHI_HYD |
phiHydF(i,j) = phiHydU(i,j) |
|
./model/src/calc_phi_hyd.F |
86 |
CALC_PHI_HYD |
INTEGER i,j |
|
./pkg/mdsio/mdsio_write_meta.F |
115 |
MDS_WRITE_META |
DO j=1,nDims |
|
./pkg/mdsio/mdsio_write_meta.F |
116 |
MDS_WRITE_META |
ii = MAX(dimList(1,j),ii) |
|
./pkg/mdsio/mdsio_write_meta.F |
121 |
MDS_WRITE_META |
DO j=1,nDims |
|
./pkg/mdsio/mdsio_write_meta.F |
122 |
MDS_WRITE_META |
IF (j.LT.nDims) THEN |
|
./pkg/mdsio/mdsio_write_meta.F |
123 |
MDS_WRITE_META |
WRITE(mUnit,'(1X,3(I5,","))') (dimList(i,j),i=1,3) |
|
./pkg/mdsio/mdsio_write_meta.F |
125 |
MDS_WRITE_META |
WRITE(mUnit,'(1X,2(I5,","),I5)') (dimList(i,j),i=1,3) |
|
./pkg/mdsio/mdsio_write_meta.F |
130 |
MDS_WRITE_META |
DO j=1,nDims |
|
./pkg/mdsio/mdsio_write_meta.F |
131 |
MDS_WRITE_META |
IF (j.LT.nDims) THEN |
|
./pkg/mdsio/mdsio_write_meta.F |
132 |
MDS_WRITE_META |
WRITE(mUnit,'(1X,3(I10,","))') (dimList(i,j),i=1,3) |
|
./pkg/mdsio/mdsio_write_meta.F |
134 |
MDS_WRITE_META |
WRITE(mUnit,'(1X,2(I10,","),I10)') (dimList(i,j),i=1,3) |
|
./pkg/mdsio/mdsio_write_meta.F |
77 |
MDS_WRITE_META |
INTEGER i,j,ii,iL |
|
./pkg/mdsio/mdsio_write_tape.F |
102 |
MDS_WRITE_TAPE |
DO j=1,nSize |
|
./pkg/mdsio/mdsio_write_tape.F |
103 |
MDS_WRITE_TAPE |
local_r8(j) = fldR4(j) |
|
./pkg/mdsio/mdsio_write_tape.F |
108 |
MDS_WRITE_TAPE |
DO j=1,nSize |
|
./pkg/mdsio/mdsio_write_tape.F |
109 |
MDS_WRITE_TAPE |
local_r4(j) = fldR8(j) |
|
./pkg/mdsio/mdsio_write_tape.F |
112 |
MDS_WRITE_TAPE |
DO j=1,nSize |
|
./pkg/mdsio/mdsio_write_tape.F |
113 |
MDS_WRITE_TAPE |
local_r8(j) = fldR8(j) |
|
./pkg/mdsio/mdsio_write_tape.F |
77 |
MDS_WRITE_TAPE |
INTEGER j |
|
./pkg/mdsio/mdsio_write_tape.F |
98 |
MDS_WRITE_TAPE |
DO j=1,nSize |
|
./pkg/mdsio/mdsio_write_tape.F |
99 |
MDS_WRITE_TAPE |
local_r4(j) = fldR4(j) |
|
./pkg/mdsio/mdsio_write_whalos.F |
180 |
MDS_WRITE_WHALOS |
j=(jWh-1)*lengthBuff+i |
|
./pkg/mdsio/mdsio_write_whalos.F |
183 |
MDS_WRITE_WHALOS |
fld3d_procbuff_r4(j)=fld2d_procbuff_r4(i) |
|
./pkg/mdsio/mdsio_write_whalos.F |
185 |
MDS_WRITE_WHALOS |
fld3d_procbuff_r8(j)=fld2d_procbuff_r8(i) |
|
./pkg/mdsio/mdsio_write_whalos.F |
190 |
MDS_WRITE_WHALOS |
fld3d_globuff_r4(j)=fld2d_globuff_r4(i) |
|
./pkg/mdsio/mdsio_write_whalos.F |
192 |
MDS_WRITE_WHALOS |
fld3d_globuff_r8(j)=fld2d_globuff_r8(i) |
|
./pkg/mdsio/mdsio_write_whalos.F |
92 |
MDS_WRITE_WHALOS |
integer i,j,k,bi,bj,ii |
|
./pkg/mdsio/mdsio_writelocal.F |
115 |
MDS_WRITELOCAL |
INTEGER i1,i2,i,j,k |
|
./pkg/mdsio/mdsio_writelocal.F |
331 |
MDS_WRITELOCAL |
DO j=1,sNy |
|
./pkg/mdsio/mdsio_writelocal.F |
333 |
MDS_WRITELOCAL |
irec = 1 + ( tBx + (j-1)*iGjLoc )/tNx |
|
./pkg/mdsio/mdsio_writelocal.F |
334 |
MDS_WRITELOCAL |
& + ( tBy + (j-1)*jGjLoc )*global_nTx |
|
./pkg/mdsio/mdsio_writelocal.F |
336 |
MDS_WRITELOCAL |
i1 = bBij + 1 + (j-1)*sNx + (k-1)*sNx*sNy |
|
./pkg/mdsio/mdsio_writelocal.F |
337 |
MDS_WRITELOCAL |
i2 = bBij + j*sNx + (k-1)*sNx*sNy |
|
./model/src/calc_r_star.F |
103 |
CALC_R_STAR |
DO j=0,sNy+1 |
|
./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 |
116 |
CALC_R_STAR |
DO j=1,sNy |
|
./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 |
130 |
CALC_R_STAR |
DO j=1,sNy+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 |
146 |
CALC_R_STAR |
DO j=1,sNy |
|
./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 |
158 |
CALC_R_STAR |
DO j=1,sNy+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 |
186 |
CALC_R_STAR |
DO j=1,sNy+1 |
|
./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 |
206 |
CALC_R_STAR |
DO j=1,sNy+1 |
|
./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 |
210 |
CALC_R_STAR |
& ' fail at i,j=',i,j,' ; rStarFacC,H,eta =', |
|
./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 |
218 |
CALC_R_STAR |
& ' fail at i,j=',i,j,' ; rStarFacW,H,eta =', |
|
./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 |
225 |
CALC_R_STAR |
& ' fail at i,j=',i,j,' ; rStarFacS,H,eta =', |
|
./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 |
276 |
CALC_R_STAR |
DO j=1,OLy |
|
./model/src/calc_r_star.F |
279 |
CALC_R_STAR |
jj = sNy+j |
|
./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 |
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 |
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 |
301 |
CALC_R_STAR |
DO j=1-OLy,sNy+OLy |
|
./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 |
319 |
CALC_R_STAR |
DO j=1-OLy,sNy+OLy |
|
./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 |
326 |
CALC_R_STAR |
DO j=1-OLy,sNy+OLy |
|
./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 |
83 |
CALC_R_STAR |
DO j=1-OLy,sNy+OLy |
|
./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 |
94 |
CALC_R_STAR |
DO j=1-OLy,sNy+OLy |
|
./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_cwrapper.F |
155 |
MNC_CW_DUMP |
integer i,j, ntot |
|
./pkg/mnc/mnc_cwrapper.F |
172 |
MNC_CW_DUMP |
DO j = 1,MNC_MAX_ID |
|
./pkg/mnc/mnc_cwrapper.F |
173 |
MNC_CW_DUMP |
IF (mnc_cw_gname(j)(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_cwrapper.F |
180 |
MNC_CW_DUMP |
& j, ntot, ' : ', mnc_cw_gname(j)(1:20), mnc_cw_ndim(j), |
|
./pkg/mnc/mnc_cwrapper.F |
181 |
MNC_CW_DUMP |
& ' : ', (mnc_cw_dims(i,j), i=1,5), |
|
./pkg/mnc/mnc_cwrapper.F |
182 |
MNC_CW_DUMP |
& ' | ', (mnc_cw_is(i,j), i=1,5), |
|
./pkg/mnc/mnc_cwrapper.F |
183 |
MNC_CW_DUMP |
& ' | ', (mnc_cw_ie(i,j), i=1,5), |
|
./pkg/mnc/mnc_cwrapper.F |
184 |
MNC_CW_DUMP |
& ' | ', (mnc_cw_dn(i,j)(1:7), i=1,5) |
|
./pkg/mnc/mnc_cwrapper.F |
197 |
MNC_CW_DUMP |
DO j = 1,MNC_MAX_ID |
|
./pkg/mnc/mnc_cwrapper.F |
198 |
MNC_CW_DUMP |
IF (mnc_cw_vname(j)(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_cwrapper.F |
204 |
MNC_CW_DUMP |
& j, ntot, ' | ', |
|
./pkg/mnc/mnc_cwrapper.F |
205 |
MNC_CW_DUMP |
& mnc_cw_vname(j)(1:20), ' | ', mnc_cw_vgind(j) |
|
./pkg/mnc/mnc_cwrapper.F |
209 |
MNC_CW_DUMP |
DO i = 1,mnc_cw_vnat(1,j) |
|
./pkg/mnc/mnc_cwrapper.F |
213 |
MNC_CW_DUMP |
& ' : ', mnc_cw_vtnm(i,j)(1:25), ' : ', |
|
./pkg/mnc/mnc_cwrapper.F |
214 |
MNC_CW_DUMP |
& mnc_cw_vtat(i,j)(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_cwrapper.F |
218 |
MNC_CW_DUMP |
DO i = 1,mnc_cw_vnat(2,j) |
|
./pkg/mnc/mnc_cwrapper.F |
222 |
MNC_CW_DUMP |
& ' : ', mnc_cw_vinm(i,j)(1:25), ' : ', |
|
./pkg/mnc/mnc_cwrapper.F |
223 |
MNC_CW_DUMP |
& mnc_cw_viat(i,j) |
|
./pkg/mnc/mnc_cwrapper.F |
227 |
MNC_CW_DUMP |
DO i = 1,mnc_cw_vnat(3,j) |
|
./pkg/mnc/mnc_cwrapper.F |
231 |
MNC_CW_DUMP |
& ' : ', mnc_cw_vdnm(i,j)(1:25), ' : ', |
|
./pkg/mnc/mnc_cwrapper.F |
232 |
MNC_CW_DUMP |
& mnc_cw_vdat(i,j) |
|
./pkg/mnc/mnc_dim.F |
112 |
MNC_DIM_INIT_ALL_CV |
j = mnc_f_alld(indf,i+1) |
|
./pkg/mnc/mnc_dim.F |
113 |
MNC_DIM_INIT_ALL_CV |
ntmp = ILNBLNK(mnc_d_names(j)) |
|
./pkg/mnc/mnc_dim.F |
115 |
MNC_DIM_INIT_ALL_CV |
& .AND. (dname(dnf:dnl) .EQ. mnc_d_names(j)(1:ntmp))) THEN |
|
./pkg/mnc/mnc_dim.F |
116 |
MNC_DIM_INIT_ALL_CV |
IF (mnc_d_size(j) .NE. dlen) THEN |
|
./pkg/mnc/mnc_dim.F |
117 |
MNC_DIM_INIT_ALL_CV |
IF ((mnc_d_size(j) .GT. 0) .OR. (dlen .GT. 0)) THEN |
|
./pkg/mnc/mnc_dim.F |
194 |
MNC_DIM_UNLIM_SIZE |
integer i,j, nf, indf, fid, unlimid, err |
|
./pkg/mnc/mnc_dim.F |
215 |
MNC_DIM_UNLIM_SIZE |
j = mnc_f_alld(indf,i+1) |
|
./pkg/mnc/mnc_dim.F |
216 |
MNC_DIM_UNLIM_SIZE |
IF (mnc_d_size(j) .EQ. -1) THEN |
|
./pkg/mnc/mnc_dim.F |
217 |
MNC_DIM_UNLIM_SIZE |
unlimid = mnc_d_ids(j) |
|
./pkg/mnc/mnc_dim.F |
88 |
MNC_DIM_INIT_ALL_CV |
integer i,j, indf,indd, n,nf, dnf,dnl |
|
./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 |
111 |
CALC_SURF_DR |
& j.GE.1.AND.j.LE.sNy ) THEN |
|
./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 |
145 |
CALC_SURF_DR |
DO j=1,sNy |
|
./model/src/calc_surf_dr.F |
147 |
CALC_SURF_DR |
ks = kSurfW(i,j,bi,bj) |
|
./model/src/calc_surf_dr.F |
151 |
CALC_SURF_DR |
hhm = rSurftmp(i-1,j) |
|
./model/src/calc_surf_dr.F |
152 |
CALC_SURF_DR |
hhp = rSurftmp(i,j) |
|
./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 |
166 |
CALC_SURF_DR |
DO j=1,sNy+1 |
|
./model/src/calc_surf_dr.F |
168 |
CALC_SURF_DR |
ks = kSurfS(i,j,bi,bj) |
|
./model/src/calc_surf_dr.F |
172 |
CALC_SURF_DR |
hhm = rSurftmp(i,j-1) |
|
./model/src/calc_surf_dr.F |
173 |
CALC_SURF_DR |
hhp = rSurftmp(i,j) |
|
./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 |
51 |
CALC_SURF_DR |
INTEGER i,j,bi,bj |
|
./model/src/calc_surf_dr.F |
70 |
CALC_SURF_DR |
DO j=1-OLy,sNy+OLy |
|
./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 |
81 |
CALC_SURF_DR |
DO j=0,sNy+1 |
|
./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 |
|
./pkg/mnc/mnc_dump.F |
43 |
MNC_DUMP_ALL |
integer i,j |
|
./pkg/mnc/mnc_dump.F |
69 |
MNC_DUMP_ALL |
write(*,*) i,': ',(mnc_f_info(i,j), j=1,n_items) |
|
./pkg/mnc/mnc_dump.F |
73 |
MNC_DUMP_ALL |
write(*,*) i,': ',(mnc_fd_ind(i,j), j=1,n_items) |
|
./pkg/mnc/mnc_dump.F |
77 |
MNC_DUMP_ALL |
write(*,*) i,': ',(mnc_fv_ids(i,j), j=1,n_items) |
|
./pkg/mnc/mnc_dump.F |
81 |
MNC_DUMP_ALL |
write(*,*) i,': ',(mnc_f_alld(i,j), j=1,n_items) |
|
./pkg/mnc/mnc_file.F |
339 |
MNC_FILE_CLOSE |
integer i,j,k,n, err, fid, indf, nf |
|
./pkg/mnc/mnc_file.F |
365 |
MNC_FILE_CLOSE |
j = 2 + 3*(i - 1) |
|
./pkg/mnc/mnc_file.F |
366 |
MNC_FILE_CLOSE |
k = mnc_fv_ids(indf,j) |
|
./pkg/mnc/mnc_file.F |
377 |
MNC_FILE_CLOSE |
j = mnc_f_alld(indf,i+1) |
|
./pkg/mnc/mnc_file.F |
378 |
MNC_FILE_CLOSE |
mnc_d_ids(j) = 0 |
|
./pkg/mnc/mnc_file.F |
379 |
MNC_FILE_CLOSE |
mnc_d_size(j) = 0 |
|
./pkg/mnc/mnc_file.F |
380 |
MNC_FILE_CLOSE |
mnc_d_names(j)(1:MNC_MAX_CHAR) = mnc_blank_name(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_file.F |
387 |
MNC_FILE_CLOSE |
j = 4 + 3*(i - 1) |
|
./pkg/mnc/mnc_file.F |
388 |
MNC_FILE_CLOSE |
k = mnc_f_info(indf,j) |
|
./pkg/mnc/mnc_file.F |
658 |
MNC_FILE_TRY_READ |
integer i,j,k, fid, err, ndim,nvar,ngat,unlimid |
|
./pkg/mnc/mnc_file.F |
704 |
MNC_FILE_TRY_READ |
j = mnc_f_alld(indf,i+1) |
|
./pkg/mnc/mnc_file.F |
705 |
MNC_FILE_TRY_READ |
n1 = IFNBLNK(mnc_d_names(j)) |
|
./pkg/mnc/mnc_file.F |
706 |
MNC_FILE_TRY_READ |
n2 = ILNBLNK(mnc_d_names(j)) |
|
./pkg/mnc/mnc_file.F |
708 |
MNC_FILE_TRY_READ |
& .AND. (mnc_d_names(j)(ns:ne) .EQ. name(ns:ne))) THEN |
|
./pkg/mnc/mnc_file.F |
709 |
MNC_FILE_TRY_READ |
mnc_d_ids(j) = id |
|
./pkg/mnc/mnc_file.F |
742 |
MNC_FILE_TRY_READ |
j = 4 + 3*(i-1) |
|
./pkg/mnc/mnc_file.F |
743 |
MNC_FILE_TRY_READ |
k = mnc_f_info(indf,j) |
|
./pkg/mnc/mnc_file.F |
745 |
MNC_FILE_TRY_READ |
mnc_fv_ids(indf,iv+2) = j |
|
./pkg/mnc/mnc_grid.F |
107 |
MNC_GRID_INIT_ALL |
j = 3 + 3*(ngrid + 1) |
|
./pkg/mnc/mnc_grid.F |
108 |
MNC_GRID_INIT_ALL |
IF ((i .GE. MNC_MAX_INFO) .OR. (j .GE. MNC_MAX_INFO)) THEN |
|
./pkg/mnc/mnc_grid.F |
178 |
MNC_GRID_INIT_ALL |
j = ds_last + i |
|
./pkg/mnc/mnc_grid.F |
203 |
MNC_GRID_INIT_ALL |
mnc_fd_ind(indf,j) = indd |
|
./pkg/mnc/mnc_grid.F |
241 |
MNC_GRID_GET_DIMIND |
integer i,j,k,l, n,n1, ngrid, ds,de |
|
./pkg/mnc/mnc_grid.F |
251 |
MNC_GRID_GET_DIMIND |
j = 4 + 3*(i - 1) |
|
./pkg/mnc/mnc_grid.F |
252 |
MNC_GRID_GET_DIMIND |
ds = mnc_f_info(indf,j+1) |
|
./pkg/mnc/mnc_grid.F |
253 |
MNC_GRID_GET_DIMIND |
de = mnc_f_info(indf,j+2) |
|
./pkg/mnc/mnc_grid.F |
72 |
MNC_GRID_INIT_ALL |
integer i,j,k,ii,jj,kk, n,nf, indf,indg,indd, fid, ngrid |
|
./pkg/mnc/mnc_init.F |
30 |
MNC_INIT |
integer i,j, g |
|
./pkg/mnc/mnc_init.F |
45 |
MNC_INIT |
DO j = 1,MNC_MAX_INFO |
|
./pkg/mnc/mnc_init.F |
46 |
MNC_INIT |
mnc_f_info(i,j) = 0 |
|
./pkg/mnc/mnc_init.F |
47 |
MNC_INIT |
mnc_fv_ids(i,j) = 0 |
|
./pkg/mnc/mnc_init.F |
48 |
MNC_INIT |
mnc_fd_ind(i,j) = 0 |
|
./pkg/mnc/mnc_init.F |
49 |
MNC_INIT |
mnc_f_alld(i,j) = 0 |
|
./pkg/mnc/mnc_readparms.F |
229 |
MNC_SET_OUTDIR |
integer i,j,k, ntot, npathd, idate |
|
./pkg/mnc/mnc_readparms.F |
256 |
MNC_SET_OUTDIR |
DO j = 1,ncenc |
|
./pkg/mnc/mnc_readparms.F |
257 |
MNC_SET_OUTDIR |
IF (pathd(i:i) .EQ. cenc(j:j)) THEN |
|
./pkg/mnc/mnc_readparms.F |
259 |
MNC_SET_OUTDIR |
ienc(ntot) = j |
|
./pkg/mnc/mnc_readparms.F |
276 |
MNC_SET_OUTDIR |
j = ienc(i) |
|
./pkg/mnc/mnc_readparms.F |
277 |
MNC_SET_OUTDIR |
mnc_out_path(i:i) = cenc(j:j) |
|
./pkg/mnc/mnc_utils.F |
211 |
MNC_GET_FVINDS |
integer i,j,k, n, lenv |
|
./pkg/mnc/mnc_utils.F |
230 |
MNC_GET_FVINDS |
j = mnc_fv_ids(indf,k) |
|
./pkg/mnc/mnc_utils.F |
231 |
MNC_GET_FVINDS |
n = ILNBLNK(mnc_v_names(j)) |
|
./pkg/mnc/mnc_utils.F |
233 |
MNC_GET_FVINDS |
IF ( mnc_v_names(j)(1:n).EQ.vname(1:n) ) THEN |
|
./pkg/mnc/mnc_var.F |
145 |
MNC_VAR_INIT_ANY |
INTEGER i,j,k, n, nf, indf,indv, fid, nd, ngrid, is,ie, err |
|
./pkg/mnc/mnc_var.F |
186 |
MNC_VAR_INIT_ANY |
j = 4 + (i-1)*3 |
|
./pkg/mnc/mnc_var.F |
187 |
MNC_VAR_INIT_ANY |
k = mnc_f_info(indf,j) |
|
./pkg/mnc/mnc_var.F |
191 |
MNC_VAR_INIT_ANY |
ind_g_finfo = j |
|
./pkg/mnc/mnc_var.F |
192 |
MNC_VAR_INIT_ANY |
is = mnc_f_info(indf,(j+1)) |
|
./pkg/mnc/mnc_var.F |
193 |
MNC_VAR_INIT_ANY |
ie = mnc_f_info(indf,(j+2)) |
|
./pkg/mnc/mnc_var.F |
211 |
MNC_VAR_INIT_ANY |
j = 2 + 3*(i-1) |
|
./pkg/mnc/mnc_var.F |
212 |
MNC_VAR_INIT_ANY |
IF (mnc_v_names(mnc_fv_ids(indf,j)) .EQ. vname) THEN |
|
./pkg/mnc/mnc_var.F |
213 |
MNC_VAR_INIT_ANY |
k = mnc_f_info(indf,mnc_fv_ids(indf,j+2)) |
|
./pkg/mnc/mnc_var.F |
680 |
MNC_VAR_WRITE_ANY |
INTEGER i,j,k, n, indf,ind_fv_ids, fid,vid,did, ig, err, ds,de |
|
./pkg/mnc/mnc_var.F |
712 |
MNC_VAR_WRITE_ANY |
j = mnc_d_size( mnc_fd_ind(indf,de) ) |
|
./pkg/mnc/mnc_var.F |
713 |
MNC_VAR_WRITE_ANY |
IF (j .LT. 1) THEN |
|
./model/src/calc_viscosity.F |
114 |
CALC_VISCOSITY |
DO j = 1-OLy, sNy+OLy |
|
./model/src/calc_viscosity.F |
116 |
CALC_VISCOSITY |
kappaRU(i,j,k) = kappaRU(i,j,ki) |
|
./model/src/calc_viscosity.F |
117 |
CALC_VISCOSITY |
kappaRV(i,j,k) = kappaRV(i,j,ki) |
|
./model/src/calc_viscosity.F |
132 |
CALC_VISCOSITY |
DO j = 2-OLy, sNy+OLy |
|
./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 |
137 |
CALC_VISCOSITY |
kappaRU(i,j,k) = kappaRU(i,j,k) |
|
./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 |
142 |
CALC_VISCOSITY |
DO j = 2-OLy, sNy+OLy |
|
./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 |
147 |
CALC_VISCOSITY |
kappaRV(i,j,k) = kappaRV(i,j,k) |
|
./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 |
168 |
CALC_VISCOSITY |
DO j = 2-OLy, sNy+OLy |
|
./model/src/calc_viscosity.F |
170 |
CALC_VISCOSITY |
tmpFac(i,j) = 0. _d 0 |
|
./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 |
179 |
CALC_VISCOSITY |
DO j = 2-OLy, sNy+OLy |
|
./model/src/calc_viscosity.F |
181 |
CALC_VISCOSITY |
tmpFac(i,j) = tmpFac(i,j)*tmpFac(i,j) |
|
./model/src/calc_viscosity.F |
185 |
CALC_VISCOSITY |
DO j = 2-OLy, sNy+OLy |
|
./model/src/calc_viscosity.F |
187 |
CALC_VISCOSITY |
tmpFac(i,j) = tmpFac(i,j)*tmpFac(i,j)*tmpFac(i,j) |
|
./model/src/calc_viscosity.F |
191 |
CALC_VISCOSITY |
DO j = 2-OLy, sNy+OLy |
|
./model/src/calc_viscosity.F |
193 |
CALC_VISCOSITY |
tmpFac(i,j) = tmpFac(i,j)*tmpFac(i,j) |
|
./model/src/calc_viscosity.F |
194 |
CALC_VISCOSITY |
& *tmpFac(i,j)*tmpFac(i,j) |
|
./model/src/calc_viscosity.F |
200 |
CALC_VISCOSITY |
DO j = 2-OLy, sNy+OLy |
|
./model/src/calc_viscosity.F |
202 |
CALC_VISCOSITY |
tmpFac(i,j) = MIN( tmpFac(i,j), pCellMix_maxFac ) |
|
./model/src/calc_viscosity.F |
203 |
CALC_VISCOSITY |
kappaRU(i,j,k) = MAX( kappaRU(i,j,k), |
|
./model/src/calc_viscosity.F |
204 |
CALC_VISCOSITY |
& pCellMix_viscAr(k)*tmpFac(i,j) ) |
|
./model/src/calc_viscosity.F |
211 |
CALC_VISCOSITY |
DO j = 2-OLy, sNy+OLy |
|
./model/src/calc_viscosity.F |
213 |
CALC_VISCOSITY |
tmpFac(i,j) = 0. _d 0 |
|
./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 |
222 |
CALC_VISCOSITY |
DO j = 2-OLy, sNy+OLy |
|
./model/src/calc_viscosity.F |
224 |
CALC_VISCOSITY |
tmpFac(i,j) = tmpFac(i,j)*tmpFac(i,j) |
|
./model/src/calc_viscosity.F |
228 |
CALC_VISCOSITY |
DO j = 2-OLy, sNy+OLy |
|
./model/src/calc_viscosity.F |
230 |
CALC_VISCOSITY |
tmpFac(i,j) = tmpFac(i,j)*tmpFac(i,j)*tmpFac(i,j) |
|
./model/src/calc_viscosity.F |
234 |
CALC_VISCOSITY |
DO j = 2-OLy, sNy+OLy |
|
./model/src/calc_viscosity.F |
236 |
CALC_VISCOSITY |
tmpFac(i,j) = tmpFac(i,j)*tmpFac(i,j) |
|
./model/src/calc_viscosity.F |
237 |
CALC_VISCOSITY |
& *tmpFac(i,j)*tmpFac(i,j) |
|
./model/src/calc_viscosity.F |
243 |
CALC_VISCOSITY |
DO j = 2-OLy, sNy+OLy |
|
./model/src/calc_viscosity.F |
245 |
CALC_VISCOSITY |
tmpFac(i,j) = MIN( tmpFac(i,j), pCellMix_maxFac ) |
|
./model/src/calc_viscosity.F |
246 |
CALC_VISCOSITY |
kappaRV(i,j,k) = MAX( kappaRV(i,j,k), |
|
./model/src/calc_viscosity.F |
247 |
CALC_VISCOSITY |
& pCellMix_viscAr(k)*tmpFac(i,j) ) |
|
./model/src/calc_viscosity.F |
258 |
CALC_VISCOSITY |
DO j = 2-OLy, sNy+OLy |
|
./model/src/calc_viscosity.F |
260 |
CALC_VISCOSITY |
tmpFac(i,j) = 0. _d 0 |
|
./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 |
270 |
CALC_VISCOSITY |
DO j = 2-OLy, sNy+OLy |
|
./model/src/calc_viscosity.F |
272 |
CALC_VISCOSITY |
tmpFac(i,j) = tmpFac(i,j)*tmpFac(i,j) |
|
./model/src/calc_viscosity.F |
276 |
CALC_VISCOSITY |
DO j = 2-OLy, sNy+OLy |
|
./model/src/calc_viscosity.F |
278 |
CALC_VISCOSITY |
tmpFac(i,j) = tmpFac(i,j)*tmpFac(i,j)*tmpFac(i,j) |
|
./model/src/calc_viscosity.F |
282 |
CALC_VISCOSITY |
DO j = 2-OLy, sNy+OLy |
|
./model/src/calc_viscosity.F |
284 |
CALC_VISCOSITY |
tmpFac(i,j) = tmpFac(i,j)*tmpFac(i,j) |
|
./model/src/calc_viscosity.F |
285 |
CALC_VISCOSITY |
& *tmpFac(i,j)*tmpFac(i,j) |
|
./model/src/calc_viscosity.F |
291 |
CALC_VISCOSITY |
DO j = 2-OLy, sNy+OLy |
|
./model/src/calc_viscosity.F |
293 |
CALC_VISCOSITY |
tmpFac(i,j) = MIN( tmpFac(i,j), pCellMix_maxFac ) |
|
./model/src/calc_viscosity.F |
294 |
CALC_VISCOSITY |
kappaRU(i,j,k) = MAX( kappaRU(i,j,k), |
|
./model/src/calc_viscosity.F |
295 |
CALC_VISCOSITY |
& pCellMix_viscAr(k)*tmpFac(i,j) ) |
|
./model/src/calc_viscosity.F |
302 |
CALC_VISCOSITY |
DO j = 2-OLy, sNy+OLy |
|
./model/src/calc_viscosity.F |
304 |
CALC_VISCOSITY |
tmpFac(i,j) = 0. _d 0 |
|
./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 |
314 |
CALC_VISCOSITY |
DO j = 2-OLy, sNy+OLy |
|
./model/src/calc_viscosity.F |
316 |
CALC_VISCOSITY |
tmpFac(i,j) = tmpFac(i,j)*tmpFac(i,j) |
|
./model/src/calc_viscosity.F |
320 |
CALC_VISCOSITY |
DO j = 2-OLy, sNy+OLy |
|
./model/src/calc_viscosity.F |
322 |
CALC_VISCOSITY |
tmpFac(i,j) = tmpFac(i,j)*tmpFac(i,j)*tmpFac(i,j) |
|
./model/src/calc_viscosity.F |
326 |
CALC_VISCOSITY |
DO j = 2-OLy, sNy+OLy |
|
./model/src/calc_viscosity.F |
328 |
CALC_VISCOSITY |
tmpFac(i,j) = tmpFac(i,j)*tmpFac(i,j) |
|
./model/src/calc_viscosity.F |
329 |
CALC_VISCOSITY |
& *tmpFac(i,j)*tmpFac(i,j) |
|
./model/src/calc_viscosity.F |
335 |
CALC_VISCOSITY |
DO j = 2-OLy, sNy+OLy |
|
./model/src/calc_viscosity.F |
337 |
CALC_VISCOSITY |
tmpFac(i,j) = MIN( tmpFac(i,j), pCellMix_maxFac ) |
|
./model/src/calc_viscosity.F |
338 |
CALC_VISCOSITY |
kappaRV(i,j,k) = MAX( kappaRV(i,j,k), |
|
./model/src/calc_viscosity.F |
339 |
CALC_VISCOSITY |
& pCellMix_viscAr(k)*tmpFac(i,j) ) |
|
./model/src/calc_viscosity.F |
47 |
CALC_VISCOSITY |
INTEGER i,j,k |
|
./model/src/calc_viscosity.F |
59 |
CALC_VISCOSITY |
DO j = 1-OLy, sNy+OLy |
|
./model/src/calc_viscosity.F |
61 |
CALC_VISCOSITY |
kappaRU(i,j,k) = viscArNr(ki) |
|
./model/src/calc_viscosity.F |
62 |
CALC_VISCOSITY |
kappaRV(i,j,k) = viscArNr(ki) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
100 |
MOM_CALC_3D_STRAIN |
DO j=1-OLy,sNy+OLy |
|
./pkg/mom_common/mom_calc_3d_strain.F |
102 |
MOM_CALC_3D_STRAIN |
str33(i,j,k) = recip_drF(k)*rkSign |
|
./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 |
108 |
MOM_CALC_3D_STRAIN |
DO j=2-OLy,sNy+OLy |
|
./pkg/mom_common/mom_calc_3d_strain.F |
110 |
MOM_CALC_3D_STRAIN |
str12(i,j,k) = halfRL*( |
|
./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 |
121 |
MOM_CALC_3D_STRAIN |
DO j=1-OLy,sNy+OLy |
|
./pkg/mom_common/mom_calc_3d_strain.F |
123 |
MOM_CALC_3D_STRAIN |
str13(i,j,k) = 0. _d 0 |
|
./pkg/mom_common/mom_calc_3d_strain.F |
124 |
MOM_CALC_3D_STRAIN |
str23(i,j,k) = 0. _d 0 |
|
./pkg/mom_common/mom_calc_3d_strain.F |
129 |
MOM_CALC_3D_STRAIN |
DO j=1-OLy,sNy+OLy |
|
./pkg/mom_common/mom_calc_3d_strain.F |
131 |
MOM_CALC_3D_STRAIN |
str13(i,j,k) = halfRL*( |
|
./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 |
139 |
MOM_CALC_3D_STRAIN |
DO j=2-OLy,sNy+OLy |
|
./pkg/mom_common/mom_calc_3d_strain.F |
141 |
MOM_CALC_3D_STRAIN |
str23(i,j,k) = halfRL*( |
|
./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 |
151 |
MOM_CALC_3D_STRAIN |
DO j=1-OLy,sNy+OLy |
|
./pkg/mom_common/mom_calc_3d_strain.F |
153 |
MOM_CALC_3D_STRAIN |
str13(i,j,k) = halfRL*( |
|
./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 |
162 |
MOM_CALC_3D_STRAIN |
DO j=2-OLy,sNy+OLy |
|
./pkg/mom_common/mom_calc_3d_strain.F |
164 |
MOM_CALC_3D_STRAIN |
str23(i,j,k) = halfRL*( |
|
./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 |
175 |
MOM_CALC_3D_STRAIN |
DO j=2-OLy,sNy+OLy |
|
./pkg/mom_common/mom_calc_3d_strain.F |
177 |
MOM_CALC_3D_STRAIN |
str12(i,j,k) = str12(i,j,k) |
|
./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 |
182 |
MOM_CALC_3D_STRAIN |
DO j=1-OLy,sNy+OLy |
|
./pkg/mom_common/mom_calc_3d_strain.F |
184 |
MOM_CALC_3D_STRAIN |
str13(i,j,k) = str13(i,j,k) |
|
./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 |
188 |
MOM_CALC_3D_STRAIN |
DO j=2-OLy,sNy+OLy |
|
./pkg/mom_common/mom_calc_3d_strain.F |
190 |
MOM_CALC_3D_STRAIN |
str23(i,j,k) = str23(i,j,k) |
|
./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 |
203 |
MOM_CALC_3D_STRAIN |
DO j=1-OLy,sNy+OLy |
|
./pkg/mom_common/mom_calc_3d_strain.F |
205 |
MOM_CALC_3D_STRAIN |
str13(i,j,k) = 0. _d 0 |
|
./pkg/mom_common/mom_calc_3d_strain.F |
206 |
MOM_CALC_3D_STRAIN |
str23(i,j,k) = 0. _d 0 |
|
./pkg/mom_common/mom_calc_3d_strain.F |
213 |
MOM_CALC_3D_STRAIN |
DO j=1-OLy,sNy+OLy |
|
./pkg/mom_common/mom_calc_3d_strain.F |
215 |
MOM_CALC_3D_STRAIN |
str13(i,j,k) = |
|
./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 |
223 |
MOM_CALC_3D_STRAIN |
DO j=2-OLy,sNy+OLy |
|
./pkg/mom_common/mom_calc_3d_strain.F |
225 |
MOM_CALC_3D_STRAIN |
str23(i,j,k) = |
|
./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 |
51 |
MOM_CALC_3D_STRAIN |
INTEGER i, j, k |
|
./pkg/mom_common/mom_calc_3d_strain.F |
65 |
MOM_CALC_3D_STRAIN |
DO j=1-OLy,sNy+OLy |
|
./pkg/mom_common/mom_calc_3d_strain.F |
66 |
MOM_CALC_3D_STRAIN |
str11(i,j,k) = 0. _d 0 |
|
./pkg/mom_common/mom_calc_3d_strain.F |
68 |
MOM_CALC_3D_STRAIN |
j = sNy+OLy |
|
./pkg/mom_common/mom_calc_3d_strain.F |
70 |
MOM_CALC_3D_STRAIN |
str22(i,j,k) = 0. _d 0 |
|
./pkg/mom_common/mom_calc_3d_strain.F |
73 |
MOM_CALC_3D_STRAIN |
DO j=1-OLy,sNy+OLy |
|
./pkg/mom_common/mom_calc_3d_strain.F |
74 |
MOM_CALC_3D_STRAIN |
str12(i,j,k) = 0. _d 0 |
|
./pkg/mom_common/mom_calc_3d_strain.F |
75 |
MOM_CALC_3D_STRAIN |
str13(i,j,k) = 0. _d 0 |
|
./pkg/mom_common/mom_calc_3d_strain.F |
77 |
MOM_CALC_3D_STRAIN |
j = 1-OLy |
|
./pkg/mom_common/mom_calc_3d_strain.F |
79 |
MOM_CALC_3D_STRAIN |
str12(i,j,k) = 0. _d 0 |
|
./pkg/mom_common/mom_calc_3d_strain.F |
80 |
MOM_CALC_3D_STRAIN |
str23(i,j,k) = 0. _d 0 |
|
./pkg/mom_common/mom_calc_3d_strain.F |
84 |
MOM_CALC_3D_STRAIN |
DO j=1-OLy,sNy+OLy |
|
./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 |
92 |
MOM_CALC_3D_STRAIN |
DO j=1-OLy,sNy+OLy-1 |
|
./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 |
30 |
MOM_CALC_ABSVORT3 |
INTEGER i,j |
|
./pkg/mom_common/mom_calc_absvort3.F |
44 |
MOM_CALC_ABSVORT3 |
DO j=1-Oly,sNy+Oly |
|
./pkg/mom_common/mom_calc_absvort3.F |
47 |
MOM_CALC_ABSVORT3 |
& fCoriG(i,j,bi,bj)*useCoriolisFac |
|
./pkg/mom_common/mom_calc_absvort3.F |
48 |
MOM_CALC_ABSVORT3 |
& +vort3(i,j)*nonLinFac |
|
./pkg/mom_common/mom_calc_hdiv.F |
31 |
MOM_CALC_HDIV |
INTEGER i,j |
|
./pkg/mom_common/mom_calc_hdiv.F |
34 |
MOM_CALC_HDIV |
DO j=1-OLy,sNy+OLy-1 |
|
./pkg/mom_common/mom_calc_hdiv.F |
38 |
MOM_CALC_HDIV |
hDiv(i,j)=( |
|
./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 |
51 |
MOM_CALC_HDIV |
DO j=1-OLy,sNy+OLy-1 |
|
./pkg/mom_common/mom_calc_hdiv.F |
55 |
MOM_CALC_HDIV |
hDiv(i,j)= |
|
./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_hfacz.F |
100 |
MOM_CALC_HFACZ |
DO j=1-OLy,sNy+OLy |
|
./pkg/mom_common/mom_calc_hfacz.F |
102 |
MOM_CALC_HFACZ |
hFacZ(i,j) =0. |
|
./pkg/mom_common/mom_calc_hfacz.F |
103 |
MOM_CALC_HFACZ |
r_hFacZ(i,j) =0. |
|
./pkg/mom_common/mom_calc_hfacz.F |
104 |
MOM_CALC_HFACZ |
hFacZOpenI(i,j)=0. |
|
./pkg/mom_common/mom_calc_hfacz.F |
105 |
MOM_CALC_HFACZ |
hFacZOpenJ(i,j)=0. |
|
./pkg/mom_common/mom_calc_hfacz.F |
113 |
MOM_CALC_HFACZ |
DO j=2-OLy,sNy+OLy |
|
./pkg/mom_common/mom_calc_hfacz.F |
115 |
MOM_CALC_HFACZ |
hFacZOpenJ(i,j)= |
|
./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 |
123 |
MOM_CALC_HFACZ |
hFacZOpenI(i,j)= |
|
./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 |
137 |
MOM_CALC_HFACZ |
DO j=2-OLy,sNy+OLy |
|
./pkg/mom_common/mom_calc_hfacz.F |
139 |
MOM_CALC_HFACZ |
hFacZ(i,j) = |
|
./pkg/mom_common/mom_calc_hfacz.F |
141 |
MOM_CALC_HFACZ |
& SMOOTHMIN_RS(hFacZOpenI(i,j),hFacZOpenJ(i,j)) |
|
./pkg/mom_common/mom_calc_hfacz.F |
143 |
MOM_CALC_HFACZ |
& MIN(hFacZOpenI(i,j),hFacZOpenJ(i,j)) |
|
./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 |
152 |
MOM_CALC_HFACZ |
DO j=2-OLy,sNy+OLy |
|
./pkg/mom_common/mom_calc_hfacz.F |
154 |
MOM_CALC_HFACZ |
IF (hFacZ(i,j).EQ.0.) THEN |
|
./pkg/mom_common/mom_calc_hfacz.F |
155 |
MOM_CALC_HFACZ |
r_hFacZ(i,j) = 0. _d 0 |
|
./pkg/mom_common/mom_calc_hfacz.F |
157 |
MOM_CALC_HFACZ |
r_hFacZ(i,j) = 1. _d 0/hFacZ(i,j) |
|
./pkg/mom_common/mom_calc_hfacz.F |
180 |
MOM_CALC_HFACZ |
DO j=2-OLy,sNy+OLy |
|
./pkg/mom_common/mom_calc_hfacz.F |
181 |
MOM_CALC_HFACZ |
hFacZ(1-OLx,j)=0. |
|
./pkg/mom_common/mom_calc_hfacz.F |
187 |
MOM_CALC_HFACZ |
DO j=2-OLy,sNy+OLy |
|
./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 |
200 |
MOM_CALC_HFACZ |
hFacZ(i,j) = 0.25 _d 0 * hFacZOpen |
|
./pkg/mom_common/mom_calc_hfacz.F |
204 |
MOM_CALC_HFACZ |
DO j=2-OLy,sNy+OLy |
|
./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 |
219 |
MOM_CALC_HFACZ |
hFacZ(i,j) = 0.5 _d 0 * hFacZOpen |
|
./pkg/mom_common/mom_calc_hfacz.F |
223 |
MOM_CALC_HFACZ |
DO j=2-OLy,sNy+OLy |
|
./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 |
229 |
MOM_CALC_HFACZ |
hFacZ(i,j)=hFacZOpen |
|
./pkg/mom_common/mom_calc_hfacz.F |
259 |
MOM_CALC_HFACZ |
j=1 |
|
./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 |
264 |
MOM_CALC_HFACZ |
hFacZ(i,j)=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 |
277 |
MOM_CALC_HFACZ |
hFacZ(i,j) = hFacZOpen / 3. _d 0 |
|
./pkg/mom_common/mom_calc_hfacz.F |
283 |
MOM_CALC_HFACZ |
j=1 |
|
./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 |
289 |
MOM_CALC_HFACZ |
hFacZ(i,j)=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< |