| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/ecco_cost_init_varia.F |
247 |
ECCO_COST_INIT_VARIA |
do i = imin,imax |
|
./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 |
262 |
ECCO_COST_INIT_VARIA |
do i = imin,imax |
|
./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 |
334 |
ECCO_COST_INIT_VARIA |
do i = imin,imax |
|
./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 |
1000 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./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 |
1031 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./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 |
1069 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./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 |
1101 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./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 |
1136 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./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 |
1169 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./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 |
1204 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./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 |
1236 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./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 |
1268 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./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 |
128 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./pkg/ecco/ecco_cost_weights.F |
129 |
ECCO_COST_WEIGHTS |
whflux (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1300 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./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 |
1332 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./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 |
1364 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./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 |
1396 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./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 |
1429 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./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 |
1461 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./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 |
1494 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./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 |
1518 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./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 |
1541 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./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 |
1565 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./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 |
1589 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./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 |
1613 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./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 |
1635 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./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 |
1676 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./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 |
1709 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./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 |
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 |
188 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./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 |
1973 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./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 |
248 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./pkg/ecco/ecco_cost_weights.F |
254 |
ECCO_COST_WEIGHTS |
frame(i,j) = 1. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
269 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./pkg/ecco/ecco_cost_weights.F |
272 |
ECCO_COST_WEIGHTS |
cosphi(i,j,bi,bj) = frame(i,j) |
|
./pkg/ecco/ecco_cost_weights.F |
387 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./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 |
405 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./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 |
430 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./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 |
448 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./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 |
476 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./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 |
495 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./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 |
523 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./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 |
542 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./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 |
573 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./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 |
645 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./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 |
664 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./pkg/ecco/ecco_cost_weights.F |
665 |
ECCO_COST_WEIGHTS |
wp(i,j,bi,bj) = frame(i,j) |
|
./pkg/ecco/ecco_cost_weights.F |
685 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./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 |
724 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./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 |
761 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./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 |
790 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./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 |
801 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./pkg/ecco/ecco_cost_weights.F |
802 |
ECCO_COST_WEIGHTS |
wsshv4tmp(i,j,bi,bj)=0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
812 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./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 |
840 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./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 |
861 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./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 |
891 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./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 |
928 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./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 |
962 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./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_phys.F |
100 |
ECCO_PHYS |
& hFacC(i,j,k,bi,bj)*drF(k)*rA(i,j,bi,bj) |
|
./pkg/ecco/ecco_phys.F |
131 |
ECCO_PHYS |
do i = imin,imax |
|
./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 |
149 |
ECCO_PHYS |
do i = 1,sNx |
|
./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 |
180 |
ECCO_PHYS |
do i = 1-OLx,sNx+OLx |
|
./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 |
192 |
ECCO_PHYS |
do i = 1,sNx |
|
./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 |
245 |
ECCO_PHYS |
do i = 1,sNx |
|
./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 |
95 |
ECCO_PHYS |
do i = 1,sNx |
|
./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 |
1018 |
ECCO_MULT |
do i = imin,imax |
|
./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 |
1080 |
ECCO_MULTFIELD |
do i = imin,imax |
|
./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 |
1236 |
ECCO_READWEI |
DO i = imin,imax |
|
./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 |
157 |
ECCO_DIFFMSK |
do i = imin,imax |
|
./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 |
253 |
ECCO_DIFFANOMMSK |
do i = imin,imax |
|
./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 |
346 |
ECCO_OBSMSK |
do i = imin,imax |
|
./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 |
431 |
ECCO_CP |
do i = imin,imax |
|
./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 |
504 |
ECCO_CPRSRL |
do i = imin,imax |
|
./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 |
590 |
ECCO_ADDCOST |
do i = imin,imax |
|
./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 |
673 |
ECCO_ADD |
do i = imin,imax |
|
./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 |
745 |
ECCO_SUBTRACT |
do i = imin,imax |
|
./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 |
76 |
ECCO_ZERO |
do i = imin,imax |
|
./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 |
822 |
ECCO_ADDMASK |
do i = imin,imax |
|
./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 |
889 |
ECCO_DIV |
do i = imin,imax |
|
./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 |
951 |
ECCO_DIVFIELD |
do i = imin,imax |
|
./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 |
104 |
EXCH2_CHECK_DEPTHS |
i = 0 |
|
./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 |
63 |
EXCH2_CHECK_DEPTHS |
i = sNx+1 |
|
./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 |
69 |
EXCH2_CHECK_DEPTHS |
DO i=1,sNx |
|
./pkg/exch2/exch2_check_depths.F |
70 |
EXCH2_CHECK_DEPTHS |
tmpFld(i,0) = rHigh(i, 1 ,bi,bj) - rLow(i, 1 ,bi,bj) |
|
./pkg/exch2/exch2_check_depths.F |
71 |
EXCH2_CHECK_DEPTHS |
tmpFld(i,j) = rHigh(i,sNy,bi,bj) - rLow(i,sNy,bi,bj) |
|
./pkg/exch2/exch2_check_depths.F |
78 |
EXCH2_CHECK_DEPTHS |
DO i=exch2_iLo(n,tId),exch2_iHi(n,tId) |
|
./pkg/exch2/exch2_check_depths.F |
79 |
EXCH2_CHECK_DEPTHS |
tmpFld(i,j) = 0. |
|
./pkg/exch2/exch2_check_depths.F |
87 |
EXCH2_CHECK_DEPTHS |
DO i=1,sNx |
|
./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 |
93 |
EXCH2_CHECK_DEPTHS |
DO i=1,sNx |
|
./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 |
98 |
EXCH2_CHECK_DEPTHS |
i = sNx+1 |
|
./pkg/exch2/exch2_get_uv_bounds.F |
67 |
EXCH2_GET_UV_BOUNDS |
INTEGER i, e2_pij(4) |
|
./pkg/exch2/exch2_get_uv_bounds.F |
82 |
EXCH2_GET_UV_BOUNDS |
DO i=1,4 |
|
./pkg/exch2/exch2_get_uv_bounds.F |
83 |
EXCH2_GET_UV_BOUNDS |
e2_pij(i) = exch2_pij(i,soNb,soTile) |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
219 |
W2_CUMULSUM_Z_TILE_RL |
DO i=1,nFacets |
|
./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 |
69 |
W2_CUMULSUM_Z_TILE_RL |
INTEGER i, j |
|
./pkg/exch2/w2_e2setup.F |
108 |
W2_E2SETUP |
DO i=1,nBlankTiles |
|
./pkg/exch2/w2_e2setup.F |
109 |
W2_E2SETUP |
IF ( blankList(i).LT.1 .OR. blankList(i).GT.exch2_nTiles ) THEN |
|
./pkg/exch2/w2_e2setup.F |
111 |
W2_E2SETUP |
& 'W2_E2SETUP: Invalid blankTile number (i=', i, |
|
./pkg/exch2/w2_e2setup.F |
112 |
W2_E2SETUP |
& ' )=', blankList(i) |
|
./pkg/exch2/w2_e2setup.F |
113 |
W2_E2SETUP |
WRITE(msgBuf,'(A,I7,A,I4,A)') 'W2_E2SETUP:', blankList(i), |
|
./pkg/exch2/w2_e2setup.F |
114 |
W2_E2SETUP |
& ' = Invalid blankTile number (i=', i, ')' |
|
./pkg/exch2/w2_e2setup.F |
43 |
W2_E2SETUP |
INTEGER i, j, k |
|
./pkg/exch2/w2_e2setup.F |
54 |
W2_E2SETUP |
DO i=1,4 |
|
./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 |
65 |
W2_E2SETUP |
DO i=1,W2_maxNbTiles |
|
./pkg/exch2/w2_e2setup.F |
66 |
W2_E2SETUP |
IF (blankList(i).NE.0 ) THEN |
|
./pkg/exch2/w2_e2setup.F |
69 |
W2_E2SETUP |
IF ( blankList(i).EQ.blankList(j) ) THEN |
|
./pkg/exch2/w2_e2setup.F |
72 |
W2_E2SETUP |
& '** WARNING ** W2_E2SETUP: #', blankList(i), |
|
./pkg/exch2/w2_e2setup.F |
73 |
W2_E2SETUP |
& ' appears several times in blankList (',j,i,')' |
|
./pkg/exch2/w2_e2setup.F |
81 |
W2_E2SETUP |
blankList(nBlankTiles) = blankList(i) |
|
./pkg/exch2/w2_print_e2setup.F |
128 |
W2_PRINT_E2SETUP |
DO i=1,4 |
|
./pkg/exch2/w2_print_e2setup.F |
129 |
W2_PRINT_E2SETUP |
IF ( ip(i).NE.0 ) THEN |
|
./pkg/exch2/w2_print_e2setup.F |
130 |
W2_PRINT_E2SETUP |
j = exch2_myFace(ip(i)) |
|
./pkg/exch2/w2_print_e2setup.F |
131 |
W2_PRINT_E2SETUP |
it = exch2_neighbourId (np(i),ip(i)) |
|
./pkg/exch2/w2_print_e2setup.F |
132 |
W2_PRINT_E2SETUP |
nt = exch2_opposingSend(np(i),ip(i)) |
|
./pkg/exch2/w2_print_e2setup.F |
140 |
W2_PRINT_E2SETUP |
& ' ', edge(i), '.Edge Facet', j, ' <-- ', |
|
./pkg/exch2/w2_print_e2setup.F |
142 |
W2_PRINT_E2SETUP |
& ' : pij=', (exch2_pij(k,np(i),ip(i)),k=1,4), |
|
./pkg/exch2/w2_print_e2setup.F |
143 |
W2_PRINT_E2SETUP |
& ' ; oi,oj=',exch2_oi(np(i),ip(i)),exch2_oj(np(i),ip(i)) |
|
./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 |
71 |
W2_PRINT_E2SETUP |
DO i=1,4 |
|
./pkg/exch2/w2_print_e2setup.F |
72 |
W2_PRINT_E2SETUP |
IF ( ip(i).NE.0 ) THEN |
|
./pkg/exch2/w2_print_e2setup.F |
73 |
W2_PRINT_E2SETUP |
j = exch2_myFace(ip(i)) |
|
./pkg/exch2/w2_print_e2setup.F |
74 |
W2_PRINT_E2SETUP |
it = exch2_neighbourId (np(i),ip(i)) |
|
./pkg/exch2/w2_print_e2setup.F |
75 |
W2_PRINT_E2SETUP |
nt = exch2_opposingSend(np(i),ip(i)) |
|
./pkg/exch2/w2_print_e2setup.F |
83 |
W2_PRINT_E2SETUP |
& ' ', edge(i), '.Edge Facet', j, ' <-- ', |
|
./pkg/exch2/w2_print_e2setup.F |
85 |
W2_PRINT_E2SETUP |
& ' : pij=', (exch2_pij(k,np(i),ip(i)),k=1,4), |
|
./pkg/exch2/w2_print_e2setup.F |
86 |
W2_PRINT_E2SETUP |
& ' ; oi,oj=',exch2_oi(np(i),ip(i)),exch2_oj(np(i),ip(i)) |
|
./pkg/exch2/w2_print_e2setup.F |
92 |
W2_PRINT_E2SETUP |
DO i=1,4 |
|
./pkg/exch2/w2_print_e2setup.F |
93 |
W2_PRINT_E2SETUP |
ip(i) = 0 |
|
./pkg/exch2/w2_print_e2setup.F |
94 |
W2_PRINT_E2SETUP |
np(i) = 0 |
|
./pkg/exch2/w2_readparms.F |
154 |
W2_READPARMS |
DO i=1,4 |
|
./pkg/exch2/w2_readparms.F |
155 |
W2_READPARMS |
facet_link(i,j) = facetEdgeLink(i,j) |
|
./pkg/exch2/w2_readparms.F |
163 |
W2_READPARMS |
DO i=1,4 |
|
./pkg/exch2/w2_readparms.F |
164 |
W2_READPARMS |
IF ( facetEdgeLink(i,j).NE.0. ) errFlag = .TRUE. |
|
./pkg/exch2/w2_readparms.F |
37 |
W2_READPARMS |
INTEGER i, j, iUnit, stdUnit, errCnt |
|
./pkg/exch2/w2_readparms.F |
74 |
W2_READPARMS |
DO i=1,W2_maxNbTiles |
|
./pkg/exch2/w2_readparms.F |
75 |
W2_READPARMS |
blankList(i) = 0 |
|
./pkg/exch2/w2_readparms.F |
82 |
W2_READPARMS |
DO i=1,4 |
|
./pkg/exch2/w2_readparms.F |
83 |
W2_READPARMS |
facetEdgeLink(i,j) = 0. |
|
./pkg/exch2/w2_readparms.F |
93 |
W2_READPARMS |
DO i=1,4 |
|
./pkg/exch2/w2_readparms.F |
94 |
W2_READPARMS |
facet_link(i,j) = 0. |
|
./pkg/exch2/w2_set_cs6_facets.F |
143 |
W2_SET_CS6_FACETS |
DO i=1,4 |
|
./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 |
40 |
W2_SET_CS6_FACETS |
INTEGER i, j, ii, jj, lo, ll |
|
./pkg/exch2/w2_set_f2f_index.F |
103 |
W2_SET_F2F_INDEX |
DO i=1,4 |
|
./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 |
135 |
W2_SET_F2F_INDEX |
IF ( i.EQ.1 .AND. ii.EQ.2 ) THEN |
|
./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 |
139 |
W2_SET_F2F_INDEX |
ELSEIF ( i.EQ.2 .AND. ii.EQ.1 ) THEN |
|
./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 |
143 |
W2_SET_F2F_INDEX |
ELSEIF ( i.EQ.3 .AND. ii.EQ.4 ) THEN |
|
./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 |
147 |
W2_SET_F2F_INDEX |
ELSEIF ( i.EQ.4 .AND. ii.EQ.3 ) THEN |
|
./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 |
152 |
W2_SET_F2F_INDEX |
ELSEIF ( i.EQ.1 .AND. ii.EQ.4 ) THEN |
|
./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 |
161 |
W2_SET_F2F_INDEX |
ELSEIF ( i.EQ.2 .AND. ii.EQ.3 ) THEN |
|
./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 |
170 |
W2_SET_F2F_INDEX |
ELSEIF ( i.EQ.3 .AND. ii.EQ.2 ) THEN |
|
./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 |
179 |
W2_SET_F2F_INDEX |
ELSEIF ( i.EQ.4 .AND. ii.EQ.1 ) THEN |
|
./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 |
220 |
W2_SET_F2F_INDEX |
DO i=1,4 |
|
./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 |
53 |
W2_SET_F2F_INDEX |
DO i=1,4 |
|
./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 |
59 |
W2_SET_F2F_INDEX |
& '** WARNING ** ', edge(i), '.Edge of facet #', |
|
./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 |
65 |
W2_SET_F2F_INDEX |
WRITE(msgBuf,'(2A,I3,A,F6.2,A)') edge(i), '.Edge of facet #', |
|
./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 |
101 |
W2_SET_GEN_FACETS |
WRITE(msgBuf,'(A,I2,A,I3,A,I6,A)') 'dimension', i, |
|
./pkg/exch2/w2_set_gen_facets.F |
116 |
W2_SET_GEN_FACETS |
DO i=1,4 |
|
./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 |
99 |
W2_SET_GEN_FACETS |
i=1+MOD(jj-1,2) |
|
./pkg/exch2/w2_set_map_cumsum.F |
109 |
W2_SET_MAP_CUMSUM |
DO i=1,4 |
|
./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 |
116 |
W2_SET_MAP_CUMSUM |
IF ( i.EQ.W2_NORTH .AND. ii.EQ.W2_SOUTH ) THEN |
|
./pkg/exch2/w2_set_map_cumsum.F |
129 |
W2_SET_MAP_CUMSUM |
IF ( i.EQ.W2_EAST .AND. ii.EQ.W2_WEST ) THEN |
|
./pkg/exch2/w2_set_map_cumsum.F |
145 |
W2_SET_MAP_CUMSUM |
IF ( i.EQ.W2_SOUTH .AND. ii.EQ.W2_NORTH ) THEN |
|
./pkg/exch2/w2_set_map_cumsum.F |
158 |
W2_SET_MAP_CUMSUM |
IF ( i.EQ.W2_WEST .AND. ii.EQ.W2_EAST ) THEN |
|
./pkg/exch2/w2_set_map_cumsum.F |
176 |
W2_SET_MAP_CUMSUM |
IF ( ( i.EQ.W2_NORTH .AND. ii.EQ.W2_WEST ) .OR. |
|
./pkg/exch2/w2_set_map_cumsum.F |
177 |
W2_SET_MAP_CUMSUM |
& ( i.EQ.W2_WEST .AND. ii.EQ.W2_NORTH ) ) THEN |
|
./pkg/exch2/w2_set_map_cumsum.F |
191 |
W2_SET_MAP_CUMSUM |
IF ( ( i.EQ.W2_EAST .AND. ii.EQ.W2_SOUTH ) .OR. |
|
./pkg/exch2/w2_set_map_cumsum.F |
192 |
W2_SET_MAP_CUMSUM |
& ( i.EQ.W2_SOUTH .AND. ii.EQ.W2_EAST ) ) THEN |
|
./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 |
237 |
W2_SET_MAP_CUMSUM |
& i=1,nFacets) |
|
./pkg/exch2/w2_set_map_cumsum.F |
269 |
W2_SET_MAP_CUMSUM |
DO i=1,W2_maxNbTiles |
|
./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 |
322 |
W2_SET_MAP_CUMSUM |
DO i=1,nFacets |
|
./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 |
326 |
W2_SET_MAP_CUMSUM |
& + W2_cumSum_facet(2,i,j)*facetXYSum(2,k,i) |
|
./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 |
62 |
W2_SET_MAP_CUMSUM |
DO i=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 |
69 |
W2_SET_MAP_CUMSUM |
DO i=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 |
|
./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_tile2tiles.F |
120 |
W2_SET_TILE2TILES |
ii = 1 + MOD(i,2) |
|
./pkg/exch2/w2_set_tile2tiles.F |
122 |
W2_SET_TILE2TILES |
IF ( i.LE.2 ) THEN |
|
./pkg/exch2/w2_set_tile2tiles.F |
132 |
W2_SET_TILE2TILES |
tile_edge2edge(ns,is) = 10*i + ii |
|
./pkg/exch2/w2_set_tile2tiles.F |
148 |
W2_SET_TILE2TILES |
jt = INT(facet_link(i,js)) |
|
./pkg/exch2/w2_set_tile2tiles.F |
149 |
W2_SET_TILE2TILES |
ii = MOD( NINT(facet_link(i,js)*10.), 10 ) |
|
./pkg/exch2/w2_set_tile2tiles.F |
185 |
W2_SET_TILE2TILES |
tile_edge2edge(ns,is) = 10*i + ii |
|
./pkg/exch2/w2_set_tile2tiles.F |
187 |
W2_SET_TILE2TILES |
exch2_pij(k,ns,is) = facet_pij(k,i,js) |
|
./pkg/exch2/w2_set_tile2tiles.F |
189 |
W2_SET_TILE2TILES |
exch2_oi(ns,is) = facet_oi(i,js) |
|
./pkg/exch2/w2_set_tile2tiles.F |
190 |
W2_SET_TILE2TILES |
exch2_oj(ns,is) = facet_oj(i,js) |
|
./pkg/exch2/w2_set_tile2tiles.F |
200 |
W2_SET_TILE2TILES |
isbd1 = facet_pij(1,i,js)*itbd1 |
|
./pkg/exch2/w2_set_tile2tiles.F |
201 |
W2_SET_TILE2TILES |
& + facet_pij(2,i,js)*jtbd1 + facet_oi(i,js) |
|
./pkg/exch2/w2_set_tile2tiles.F |
202 |
W2_SET_TILE2TILES |
isbd2 = facet_pij(1,i,js)*itbd2 |
|
./pkg/exch2/w2_set_tile2tiles.F |
203 |
W2_SET_TILE2TILES |
& + facet_pij(2,i,js)*jtbd2 + facet_oi(i,js) |
|
./pkg/exch2/w2_set_tile2tiles.F |
204 |
W2_SET_TILE2TILES |
jsbd1 = facet_pij(3,i,js)*itbd1 |
|
./pkg/exch2/w2_set_tile2tiles.F |
205 |
W2_SET_TILE2TILES |
& + facet_pij(4,i,js)*jtbd1 + facet_oj(i,js) |
|
./pkg/exch2/w2_set_tile2tiles.F |
206 |
W2_SET_TILE2TILES |
jsbd2 = facet_pij(3,i,js)*itbd2 |
|
./pkg/exch2/w2_set_tile2tiles.F |
207 |
W2_SET_TILE2TILES |
& + facet_pij(4,i,js)*jtbd2 + facet_oj(i,js) |
|
./pkg/exch2/w2_set_tile2tiles.F |
272 |
W2_SET_TILE2TILES |
i = tile_edge2edge(ns,is)/10 |
|
./pkg/exch2/w2_set_tile2tiles.F |
275 |
W2_SET_TILE2TILES |
exch2_neighbourDir(ns,is) = i |
|
./pkg/exch2/w2_set_tile2tiles.F |
281 |
W2_SET_TILE2TILES |
IF ( exch2_neighbourId(nt,it).EQ.is .AND. ii.EQ.i ) THEN |
|
./pkg/exch2/w2_set_tile2tiles.F |
43 |
W2_SET_TILE2TILES |
INTEGER i, k, ii, nn |
|
./pkg/exch2/w2_set_tile2tiles.F |
82 |
W2_SET_TILE2TILES |
DO i=1,4 |
|
./pkg/exch2/w2_set_tile2tiles.F |
87 |
W2_SET_TILE2TILES |
IF ( i.EQ.1 ) THEN |
|
./pkg/exch2/w2_set_tile2tiles.F |
93 |
W2_SET_TILE2TILES |
ELSEIF ( i.EQ.2 ) THEN |
|
./pkg/exch2/w2_set_tile2tiles.F |
99 |
W2_SET_TILE2TILES |
ELSEIF ( i.EQ.3 ) 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 |
263 |
EXF_BULKFORMULAE |
DO i = 1,sNx |
|
./pkg/exf/exf_bulkformulae.F |
274 |
EXF_BULKFORMULAE |
ikey_1 = i |
|
./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 |
358 |
EXF_BULKFORMULAE |
DO i = 1,sNx |
|
./pkg/exf/exf_bulkformulae.F |
359 |
EXF_BULKFORMULAE |
IF ( atemp(i,j,bi,bj) .NE. 0. _d 0 ) THEN |
|
./pkg/exf/exf_bulkformulae.F |
363 |
EXF_BULKFORMULAE |
ikey_2 = i |
|
./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 |
475 |
EXF_BULKFORMULAE |
DO i = 1,sNx |
|
./pkg/exf/exf_bulkformulae.F |
476 |
EXF_BULKFORMULAE |
IF ( atemp(i,j,bi,bj) .NE. 0. _d 0 ) THEN |
|
./pkg/exf/exf_bulkformulae.F |
479 |
EXF_BULKFORMULAE |
ikey_1 = i |
|
./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 |
50 |
EXF_CHECK_RANGE |
DO i = 1, sNx |
|
./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 |
63 |
EXF_FILTER_RL |
DO i = 1,sNx |
|
./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 |
71 |
EXF_FILTER_RL |
DO i = 1,sNx |
|
./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 |
79 |
EXF_FILTER_RL |
DO i = 1,sNx |
|
./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 |
172 |
EXF_GETCLIM |
DO i=1-OLx,sNx+OLx |
|
./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 |
90 |
EXF_GETCLIM |
DO i = 1,sNx |
|
./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 |
100 |
EXF_GETFFIELDS |
DO i=1-OLx,sNx+OLx |
|
./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 |
149 |
EXF_GETFFIELDS |
DO i = 1,sNx |
|
./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 |
164 |
EXF_GETFFIELDS |
DO i=1-OLx,sNx+OLx |
|
./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 |
216 |
EXF_GETFFIELDS |
DO i = 1,sNx |
|
./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 |
326 |
EXF_GETFFIELDS |
DO i = 1,sNx |
|
./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 |
481 |
EXF_GETFFIELDS |
DO i = 1-OLx,sNx+OLx |
|
./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 |
625 |
EXF_GETFFIELDS |
DO i = 1,sNx |
|
./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 |
641 |
EXF_GETFFIELDS |
DO i = 1,sNx |
|
./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 |
685 |
EXF_GETFFIELDS |
DO i = 1,sNx |
|
./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 |
761 |
EXF_GETFFIELDS |
DO i = 1,sNx |
|
./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_getforcing.F |
145 |
EXF_GETFORCING |
INTEGER i,j,k |
|
./pkg/exf/exf_getforcing.F |
209 |
EXF_GETFORCING |
DO i = 1,sNx |
|
./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 |
227 |
EXF_GETFORCING |
DO i = 1,sNx |
|
./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 |
283 |
EXF_GETFORCING |
DO i = 1-oLx,sNx+oLx |
|
./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 |
110 |
EXF_GETSURFACEFLUXES |
DO i = 1,sNx |
|
./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 |
215 |
EXF_GETSURFACEFLUXES |
do i = 1-olx,snx+olx |
|
./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 |
92 |
EXF_GETSURFACEFLUXES |
do i = 1-olx,snx+olx |
|
./pkg/exf/exf_getsurfacefluxes.F |
93 |
EXF_GETSURFACEFLUXES |
tmpUE(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_getsurfacefluxes.F |
94 |
EXF_GETSURFACEFLUXES |
tmpVN(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_getsurfacefluxes.F |
95 |
EXF_GETSURFACEFLUXES |
tmpUX(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_getsurfacefluxes.F |
96 |
EXF_GETSURFACEFLUXES |
tmpVY(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_init_fld.F |
141 |
EXF_INIT_FLD |
DO i = 1,sNx |
|
./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 |
92 |
EXF_INIT_FLD |
DO i = 1-OLx, sNx+OLx |
|
./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 |
135 |
EXF_INIT_VARIA |
DO i=1-OLx,sNx+OLx |
|
./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 |
458 |
EXF_INIT_VARIA |
DO i=1-oLx,sNx+oLx |
|
./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 |
48 |
EXF_INIT_VARIA |
DO i=1-OLx,sNx+OLx |
|
./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 |
94 |
EXF_INIT_VARIA |
DO i=1-OLx,sNx+OLx |
|
./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 |
137 |
EXF_INTERP |
DO i=-1,nxIn+2 |
|
./pkg/exf/exf_interp.F |
138 |
EXF_INTERP |
x_in(i) = lon_0 + (i-1)*lon_inc |
|
./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 |
233 |
EXF_INTERP |
DO i=-1,nxd2 |
|
./pkg/exf/exf_interp.F |
234 |
EXF_INTERP |
arrayin(i,j) = symSign*arrayin(i+nxd2,k) |
|
./pkg/exf/exf_interp.F |
236 |
EXF_INTERP |
DO i=1,nxd2+2 |
|
./pkg/exf/exf_interp.F |
237 |
EXF_INTERP |
arrayin(i+nxd2,j) = symSign*arrayin(i,k) |
|
./pkg/exf/exf_interp.F |
240 |
EXF_INTERP |
i = l + 2*( (l+1)/2 ) |
|
./pkg/exf/exf_interp.F |
241 |
EXF_INTERP |
prtPole(i) = prtPole(i) + 0.2 |
|
./pkg/exf/exf_interp.F |
245 |
EXF_INTERP |
DO i=-1,nxIn+2 |
|
./pkg/exf/exf_interp.F |
246 |
EXF_INTERP |
arrayin(i,j) = arrayin(i,k) |
|
./pkg/exf/exf_interp.F |
267 |
EXF_INTERP |
DO i=1,nxIn |
|
./pkg/exf/exf_interp.F |
268 |
EXF_INTERP |
poleValue = poleValue + arrayin(i,j) |
|
./pkg/exf/exf_interp.F |
271 |
EXF_INTERP |
DO i=-1,nxIn+2 |
|
./pkg/exf/exf_interp.F |
272 |
EXF_INTERP |
arrayin(i,j) = poleValue |
|
./pkg/exf/exf_interp.F |
279 |
EXF_INTERP |
DO i=-1,nxIn+2 |
|
./pkg/exf/exf_interp.F |
280 |
EXF_INTERP |
arrayin(i,j) = 0. |
|
./pkg/exf/exf_interp.F |
298 |
EXF_INTERP |
i = l*(nyIn-1) +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 |
301 |
EXF_INTERP |
DO i=-1,nxIn+2 |
|
./pkg/exf/exf_interp.F |
302 |
EXF_INTERP |
arrayin(i,j) = arrayin(i,j) * edgeFac |
|
./pkg/exf/exf_interp.F |
303 |
EXF_INTERP |
& + arrayin(i,k) * poleFac |
|
./pkg/exf/exf_interp.F |
344 |
EXF_INTERP |
DO i=1-OLx,sNx+OLx |
|
./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 |
354 |
EXF_INTERP |
DO i=1,sNx |
|
./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 |
390 |
EXF_INTERP |
DO i=1,sNx |
|
./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 |
401 |
EXF_INTERP |
DO i=1,sNx |
|
./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 |
417 |
EXF_INTERP |
DO i=1,sNx |
|
./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 |
444 |
EXF_INTERP |
DO i=1,sNx |
|
./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 |
142 |
EXF_INTERP_READ |
READ(ioUnit,rec=irecord) (buffer_r4(i),i=1,nx_in*ny_in) |
|
./pkg/exf/exf_interp_read.F |
151 |
EXF_INTERP_READ |
READ(ioUnit,rec=irecord) (buffer_r8(i),i=1,nx_in*ny_in) |
|
./pkg/exf/exf_interp_read.F |
190 |
EXF_INTERP_READ |
DO i=1,nx_in |
|
./pkg/exf/exf_interp_read.F |
191 |
EXF_INTERP_READ |
arrayin(i,j)=glPtr4(i,j) |
|
./pkg/exf/exf_interp_read.F |
196 |
EXF_INTERP_READ |
DO i=1,nx_in |
|
./pkg/exf/exf_interp_read.F |
197 |
EXF_INTERP_READ |
arrayin(i,j)=glPtr8(i,j) |
|
./pkg/exf/exf_interp_read.F |
204 |
EXF_INTERP_READ |
DO i=1,nx_in |
|
./pkg/exf/exf_interp_read.F |
205 |
EXF_INTERP_READ |
arrayin(i,j)=buffer_r4(i,j) |
|
./pkg/exf/exf_interp_read.F |
210 |
EXF_INTERP_READ |
DO i=1,nx_in |
|
./pkg/exf/exf_interp_read.F |
211 |
EXF_INTERP_READ |
arrayin(i,j)=buffer_r8(i,j) |
|
./pkg/exf/exf_interp_read.F |
220 |
EXF_INTERP_READ |
DO i=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 |
227 |
EXF_INTERP_READ |
DO i=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 |
155 |
EXF_INTERP_UV |
DO i=-1,nxIn+2 |
|
./pkg/exf/exf_interp_uv.F |
156 |
EXF_INTERP_UV |
x_in(i) = lon_0 + (i-1)*lon_inc |
|
./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 |
248 |
EXF_INTERP_UV |
DO i=-1,nxd2 |
|
./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 |
252 |
EXF_INTERP_UV |
DO i=1,nxd2+2 |
|
./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 |
257 |
EXF_INTERP_UV |
i = l + 2*( (l+1)/2 ) |
|
./pkg/exf/exf_interp_uv.F |
258 |
EXF_INTERP_UV |
prtPole(i) = prtPole(i) + 0.2 |
|
./pkg/exf/exf_interp_uv.F |
262 |
EXF_INTERP_UV |
DO i=-1,nxIn+2 |
|
./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 |
283 |
EXF_INTERP_UV |
DO i=-1,nxIn+1 |
|
./pkg/exf/exf_interp_uv.F |
284 |
EXF_INTERP_UV |
csLon(i+1) = csLon(i)*csdLon - snLon(i)*sndLon |
|
./pkg/exf/exf_interp_uv.F |
285 |
EXF_INTERP_UV |
snLon(i+1) = csLon(i)*sndLon + snLon(i)*csdLon |
|
./pkg/exf/exf_interp_uv.F |
296 |
EXF_INTERP_UV |
DO i=1,nxIn |
|
./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 |
305 |
EXF_INTERP_UV |
DO i=-1,nxIn+2 |
|
./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 |
320 |
EXF_INTERP_UV |
i = l*(nyIn-1) +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 |
323 |
EXF_INTERP_UV |
DO i=-1,nxIn+2 |
|
./pkg/exf/exf_interp_uv.F |
324 |
EXF_INTERP_UV |
arrUin(i,j) = arrUin(i,j) * edgeFac |
|
./pkg/exf/exf_interp_uv.F |
325 |
EXF_INTERP_UV |
& + arrUin(i,k) * poleFac |
|
./pkg/exf/exf_interp_uv.F |
326 |
EXF_INTERP_UV |
arrVin(i,j) = arrVin(i,j) * edgeFac |
|
./pkg/exf/exf_interp_uv.F |
327 |
EXF_INTERP_UV |
& + arrVin(i,k) * poleFac |
|
./pkg/exf/exf_interp_uv.F |
370 |
EXF_INTERP_UV |
DO i=1-OLx,sNx+OLx |
|
./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 |
380 |
EXF_INTERP_UV |
DO i=1,sNx |
|
./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 |
416 |
EXF_INTERP_UV |
DO i=1,sNx |
|
./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 |
427 |
EXF_INTERP_UV |
DO i=1,sNx |
|
./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 |
443 |
EXF_INTERP_UV |
DO i=1,sNx |
|
./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 |
470 |
EXF_INTERP_UV |
DO i=1,sNx |
|
./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 |
140 |
EXF_INTERPOLATE |
DO i=1,sNx |
|
./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 |
16 |
NO PROCEDURE |
_RL FUNCTION LAGRAN(i,x,a,sp) |
|
./pkg/exf/exf_interpolate.F |
175 |
EXF_INTERPOLATE |
DO i=1,sNx |
|
./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_interpolate.F |
30 |
NO PROCEDURE |
INTEGER i |
|
./pkg/exf/exf_interpolate.F |
46 |
NO PROCEDURE |
IF ( k .NE. i) THEN |
|
./pkg/exf/exf_interpolate.F |
47 |
NO PROCEDURE |
denom = denom*(a(i) - a(k)) |
|
./pkg/exf/exf_mapfields.F |
110 |
EXF_MAPFIELDS |
DO i = imin,imax |
|
./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 |
116 |
EXF_MAPFIELDS |
DO i = imin,imax |
|
./pkg/exf/exf_mapfields.F |
117 |
EXF_MAPFIELDS |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) - |
|
./pkg/exf/exf_mapfields.F |
126 |
EXF_MAPFIELDS |
DO i = imin,imax |
|
./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 |
133 |
EXF_MAPFIELDS |
DO i = imin,imax |
|
./pkg/exf/exf_mapfields.F |
134 |
EXF_MAPFIELDS |
EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj) - rhoConstFresh* |
|
./pkg/exf/exf_mapfields.F |
156 |
EXF_MAPFIELDS |
DO i = 1, sNx |
|
./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 |
170 |
EXF_MAPFIELDS |
DO i = 1, sNx |
|
./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 |
187 |
EXF_MAPFIELDS |
DO i = 1, sNx |
|
./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 |
197 |
EXF_MAPFIELDS |
DO i = 1, sNx |
|
./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 |
212 |
EXF_MAPFIELDS |
DO i = 1, sNx |
|
./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 |
226 |
EXF_MAPFIELDS |
DO i = imin,imax |
|
./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 |
237 |
EXF_MAPFIELDS |
DO i = imin,imax |
|
./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 |
245 |
EXF_MAPFIELDS |
DO i = imin+1,imax |
|
./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 |
251 |
EXF_MAPFIELDS |
DO i = imin+1,imax |
|
./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 |
264 |
EXF_MAPFIELDS |
DO i = imin,imax |
|
./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 |
275 |
EXF_MAPFIELDS |
DO i = imin,imax |
|
./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 |
283 |
EXF_MAPFIELDS |
DO i = imin,imax |
|
./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 |
289 |
EXF_MAPFIELDS |
DO i = imin,imax |
|
./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 |
301 |
EXF_MAPFIELDS |
DO i = imin,imax |
|
./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 |
309 |
EXF_MAPFIELDS |
DO i = imin,imax |
|
./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 |
317 |
EXF_MAPFIELDS |
DO i = imin,imax |
|
./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 |
325 |
EXF_MAPFIELDS |
DO i = imin,imax |
|
./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 |
333 |
EXF_MAPFIELDS |
DO i = imin,imax |
|
./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 |
341 |
EXF_MAPFIELDS |
DO i = imin,imax |
|
./pkg/exf/exf_mapfields.F |
349 |
EXF_MAPFIELDS |
DO i = imin,imax |
|
./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 |
148 |
EXF_RADIATION |
DO i = 1,sNx |
|
./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 |
164 |
EXF_RADIATION |
DO i = 1,sNx |
|
./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 |
172 |
EXF_RADIATION |
DO i = 1,sNx |
|
./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 |
74 |
EXF_RADIATION |
DO i = 1,sNx |
|
./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 |
97 |
EXF_RADIATION |
DO i = 1,sNx |
|
./pkg/exf/exf_radiation.F |
98 |
EXF_RADIATION |
lwflux(i,j,bi,bj) = |
|
./pkg/exf/exf_set_fld.F |
105 |
EXF_SET_FLD |
INTEGER bi, bj, i, j |
|
./pkg/exf/exf_set_fld.F |
285 |
EXF_SET_FLD |
DO i = 1,sNx |
|
./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 |
106 |
EXF_SET_OBCS_XZ |
DO i = 1,sNx |
|
./pkg/exf/exf_set_obcs.F |
107 |
EXF_SET_OBCS_XZ |
obcs_fld_xz(i,k,bi,bj) = |
|
./pkg/exf/exf_set_obcs.F |
108 |
EXF_SET_OBCS_XZ |
& fac * obcs_xz_0(i,k,bi,bj) + |
|
./pkg/exf/exf_set_obcs.F |
109 |
EXF_SET_OBCS_XZ |
& (exf_one - fac) * obcs_xz_1(i,k,bi,bj) |
|
./pkg/exf/exf_set_obcs.F |
281 |
EXF_SET_OBCS_X |
INTEGER bi, bj, i |
|
./pkg/exf/exf_set_obcs.F |
316 |
EXF_SET_OBCS_X |
DO i = 1,sNx |
|
./pkg/exf/exf_set_obcs.F |
317 |
EXF_SET_OBCS_X |
obcs_fld_x(i,bi,bj) = |
|
./pkg/exf/exf_set_obcs.F |
318 |
EXF_SET_OBCS_X |
& fac * obcs_x_0(i,bi,bj) + |
|
./pkg/exf/exf_set_obcs.F |
319 |
EXF_SET_OBCS_X |
& (exf_one - fac) * obcs_x_1(i,bi,bj) |
|
./pkg/exf/exf_set_obcs.F |
68 |
EXF_SET_OBCS_XZ |
INTEGER i, k |
|
./pkg/exf/exf_set_uv.F |
108 |
EXF_SET_UV |
INTEGER i, j, bi, bj |
|
./pkg/exf/exf_set_uv.F |
138 |
EXF_SET_UV |
i = ILNBLNK(uVecFile) |
|
./pkg/exf/exf_set_uv.F |
145 |
EXF_SET_UV |
& ' files: ', uVecFile(1:i), ' & ', vVecFile(1:j) |
|
./pkg/exf/exf_set_uv.F |
281 |
EXF_SET_UV |
DO i = 1,sNx |
|
./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 |
287 |
EXF_SET_UV |
DO i = 1,sNx |
|
./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 |
335 |
EXF_SET_UV |
DO i = 1,sNx |
|
./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 |
442 |
EXF_SET_UV |
DO i = 1,sNx |
|
./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 |
448 |
EXF_SET_UV |
DO i = 1,sNx |
|
./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 |
496 |
EXF_SET_UV |
DO i = 1,sNx |
|
./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 |
515 |
EXF_SET_UV |
DO i = 1,sNx |
|
./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 |
559 |
EXF_SET_UV |
DO i = 1,sNx |
|
./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 |
569 |
EXF_SET_UV |
DO i = 1,sNx |
|
./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_summary.F |
938 |
EXF_PRINT_INTERP |
INTEGER i |
|
./pkg/exf/exf_summary.F |
969 |
EXF_PRINT_INTERP |
DO i=1,var_nlat-1 |
|
./pkg/exf/exf_summary.F |
970 |
EXF_PRINT_INTERP |
var_min = MIN( var_lat_inc(i), var_min ) |
|
./pkg/exf/exf_summary.F |
971 |
EXF_PRINT_INTERP |
var_max = MAX( var_lat_inc(i), var_max ) |
|
./pkg/exf/exf_swapffields.F |
104 |
EXF_SWAPFFIELDS_3D |
INTEGER i, j, k |
|
./pkg/exf/exf_swapffields.F |
112 |
EXF_SWAPFFIELDS_3D |
DO i = 1,sNx |
|
./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 |
158 |
EXF_SWAPFFIELDS_XZ |
INTEGER i, k |
|
./pkg/exf/exf_swapffields.F |
165 |
EXF_SWAPFFIELDS_XZ |
DO i = 1,sNx |
|
./pkg/exf/exf_swapffields.F |
166 |
EXF_SWAPFFIELDS_XZ |
ffld0(i,k,bi,bj) = ffld1(i,k,bi,bj) |
|
./pkg/exf/exf_swapffields.F |
167 |
EXF_SWAPFFIELDS_XZ |
ffld1(i,k,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_swapffields.F |
54 |
EXF_SWAPFFIELDS |
INTEGER i, j |
|
./pkg/exf/exf_swapffields.F |
61 |
EXF_SWAPFFIELDS |
DO i = 1,sNx |
|
./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 |
115 |
EXF_WIND |
DO i = 1,sNx |
|
./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 |
132 |
EXF_WIND |
DO i = 1,sNx |
|
./pkg/exf/exf_wind.F |
133 |
EXF_WIND |
wspeed(i,j,bi,bj) = wsLoc(i,j) |
|
./pkg/exf/exf_wind.F |
144 |
EXF_WIND |
DO i = 1,sNx |
|
./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 |
178 |
EXF_WIND |
DO i = 1,sNx |
|
./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 |
202 |
EXF_WIND |
DO i = 1,sNx |
|
./pkg/exf/exf_wind.F |
203 |
EXF_WIND |
wspeed(i,j,bi,bj) = wsLoc(i,j) |
|
./pkg/exf/exf_wind.F |
219 |
EXF_WIND |
DO i = 1,sNx |
|
./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 |
231 |
EXF_WIND |
DO i = 1,sNx |
|
./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 |
247 |
EXF_WIND |
DO i = 1,sNx |
|
./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 |
259 |
EXF_WIND |
DO i = 1,sNx |
|
./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 |
96 |
EXF_WIND |
DO i = 1,sNx |
|
./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 |
120 |
EXF_ZENITHANGLE |
DO i = 1,sNx |
|
./pkg/exf/exf_zenithangle.F |
121 |
EXF_ZENITHANGLE |
zen_albedo (i,j,bi,bj) = exf_albedo |
|
./pkg/exf/exf_zenithangle.F |
139 |
EXF_ZENITHANGLE |
DO i = 1,sNx |
|
./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 |
190 |
EXF_ZENITHANGLE |
DO i = 1,sNx |
|
./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 |
300 |
EXF_ZENITHANGLE |
DO i = 1,sNx |
|
./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 |
125 |
EXF_ZENITHANGLE_TABLE |
DO i = 1,sNx |
|
./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 |
55 |
ATOC |
do i = idim1,idim2 |
|
./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 |
61 |
ATOC |
do i = im1,im2 |
|
./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 |
57 |
CTOA |
do i = idim1,idim2 |
|
./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 |
63 |
CTOA |
do i = im1,im2 |
|
./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 |
170 |
DO_FIZHI |
do i = im1,im2 |
|
./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 |
183 |
DO_FIZHI |
do i=im1,im2 |
|
./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 |
193 |
DO_FIZHI |
do i = im1,im2 |
|
./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 |
205 |
DO_FIZHI |
do i = im1,im2 |
|
./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 |
270 |
DO_FIZHI |
do i = im1,im2 |
|
./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 |
288 |
DO_FIZHI |
do i = im1,im2 |
|
./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 |
299 |
DO_FIZHI |
do i = im1,im2 |
|
./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_clockstuff.F |
1129 |
TIME2FREQ2 |
integer i,nsecf,iday,idaynext,nsec |
|
./pkg/fizhi/fizhi_clockstuff.F |
347 |
GET_TIME |
integer nsecf,i,nsegm,nsegd,iday,iday2,nday |
|
./pkg/fizhi/fizhi_clockstuff.F |
464 |
INTERP_TIME |
integer i,nsecf |
|
./pkg/fizhi/fizhi_clockstuff.F |
630 |
TIC_TIME |
integer i,nsecf,iday,iday0,nsec,nsec0,ntime |
|
./pkg/fizhi/fizhi_clockstuff.F |
701 |
TIC_TIME |
integer i,nsecf,iday,iday0,nsec,nsec0,ntime |
|
./pkg/fizhi/fizhi_clockstuff.F |
900 |
ASTRO |
integer i,nsecf,k,km,kp |
|
./pkg/fizhi/fizhi_driver.F |
117 |
FIZHI_DRIVER |
INTEGER i,j |
|
./pkg/fizhi/fizhi_driver.F |
182 |
FIZHI_DRIVER |
do i=1,im |
|
./pkg/fizhi/fizhi_driver.F |
183 |
FIZHI_DRIVER |
tg0(i,j) = tgz(i,j) |
|
./pkg/fizhi/fizhi_fillnegs.F |
113 |
TRACER_FILL |
do i=2,im |
|
./pkg/fizhi/fizhi_fillnegs.F |
114 |
TRACER_FILL |
lam(i) = lam(i-1) + dlam(i-1) |
|
./pkg/fizhi/fizhi_fillnegs.F |
128 |
TRACER_FILL |
do i=1,im |
|
./pkg/fizhi/fizhi_fillnegs.F |
129 |
TRACER_FILL |
dxu(i,j) = a*cos(phi(j))*dlam(i) |
|
./pkg/fizhi/fizhi_fillnegs.F |
134 |
TRACER_FILL |
do i=1,im |
|
./pkg/fizhi/fizhi_fillnegs.F |
135 |
TRACER_FILL |
dyv(i,j) = a*dphi(j) |
|
./pkg/fizhi/fizhi_fillnegs.F |
138 |
TRACER_FILL |
do i=1,im |
|
./pkg/fizhi/fizhi_fillnegs.F |
139 |
TRACER_FILL |
dyv(i,1) = a*(dphi(1) +0.5*dphi(2) ) |
|
./pkg/fizhi/fizhi_fillnegs.F |
140 |
TRACER_FILL |
dyv(i,jm-1) = a*(dphi(jm-1)+0.5*dphi(jm-2)) |
|
./pkg/fizhi/fizhi_fillnegs.F |
147 |
TRACER_FILL |
do i=1,im |
|
./pkg/fizhi/fizhi_fillnegs.F |
148 |
TRACER_FILL |
dxp(i,j) = ( dxu(i,j)+dxu(im1,j) )*0.5 |
|
./pkg/fizhi/fizhi_fillnegs.F |
149 |
TRACER_FILL |
im1 = i |
|
./pkg/fizhi/fizhi_fillnegs.F |
154 |
TRACER_FILL |
do i=1,im |
|
./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 |
162 |
TRACER_FILL |
do i=1,im |
|
./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 |
166 |
TRACER_FILL |
do i=1,im |
|
./pkg/fizhi/fizhi_fillnegs.F |
167 |
TRACER_FILL |
dyp(i,2) = dyv(i,1) |
|
./pkg/fizhi/fizhi_fillnegs.F |
168 |
TRACER_FILL |
dyp(i,jm-1) = dyv(i,jm-1) |
|
./pkg/fizhi/fizhi_fillnegs.F |
174 |
TRACER_FILL |
do i=1,im |
|
./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 |
178 |
TRACER_FILL |
do i=1,im |
|
./pkg/fizhi/fizhi_fillnegs.F |
179 |
TRACER_FILL |
d2p(i,2) = dxv(i,2) *dyp(i,2) |
|
./pkg/fizhi/fizhi_fillnegs.F |
180 |
TRACER_FILL |
d2p(i,jm-1) = dxv(i,jm-2)*dyp(i,jm-1) |
|
./pkg/fizhi/fizhi_fillnegs.F |
193 |
TRACER_FILL |
i = im |
|
./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 |
205 |
TRACER_FILL |
array(3) = pq(i,j+1,L)*d2p(i,j+1)*dp(i,j,L) |
|
./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 |
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 |
244 |
TRACER_FILL |
. pq(i,j,L)*d2p(i,j)/d2p(ip1,j) |
|
./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 |
260 |
TRACER_FILL |
im1 = i |
|
./pkg/fizhi/fizhi_fillnegs.F |
261 |
TRACER_FILL |
i = ip1 |
|
./pkg/fizhi/fizhi_fillnegs.F |
289 |
MAXVAL1 |
integer im, i, imax |
|
./pkg/fizhi/fizhi_fillnegs.F |
293 |
MAXVAL1 |
do i=1,im |
|
./pkg/fizhi/fizhi_fillnegs.F |
294 |
MAXVAL1 |
if( q(i).gt.qmax ) then |
|
./pkg/fizhi/fizhi_fillnegs.F |
295 |
MAXVAL1 |
qmax = q(i) |
|
./pkg/fizhi/fizhi_fillnegs.F |
296 |
MAXVAL1 |
imax = i |
|
./pkg/fizhi/fizhi_fillnegs.F |
31 |
QCHECK |
integer i,j,L,LM1 |
|
./pkg/fizhi/fizhi_fillnegs.F |
39 |
QCHECK |
do i=im1,im2 |
|
./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 |
50 |
QCHECK |
do i=im1,im2 |
|
./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 |
127 |
GWDRAG |
do i=1,im |
|
./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 |
137 |
GWDRAG |
do i = 1,im |
|
./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 |
145 |
GWDRAG |
do i = 1,im |
|
./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 |
186 |
GWDRAG |
do i = 1,im |
|
./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 |
189 |
GWDRAG |
dragv(i,j,L) = sign( min(0.006 _d 0,abs(dragv(i,j,L))), dragv(i |
|
./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 |
207 |
GWDRAG |
do i=1,im |
|
./pkg/fizhi/fizhi_gwdrag.F |
208 |
GWDRAG |
tmpdiag(i,j) = dragu(i,j,L)*86400 |
|
./pkg/fizhi/fizhi_gwdrag.F |
216 |
GWDRAG |
do i=1,im |
|
./pkg/fizhi/fizhi_gwdrag.F |
217 |
GWDRAG |
tmpdiag(i,j) = dragv(i,j,L)*86400 |
|
./pkg/fizhi/fizhi_gwdrag.F |
225 |
GWDRAG |
do i=1,im |
|
./pkg/fizhi/fizhi_gwdrag.F |
226 |
GWDRAG |
tmpdiag(i,j) = dragt(i,j,L)*86400 |
|
./pkg/fizhi/fizhi_gwdrag.F |
250 |
GWDRAG |
do i = 1,im |
|
./pkg/fizhi/fizhi_gwdrag.F |
251 |
GWDRAG |
sumu(i,j) = 0.0 |
|
./pkg/fizhi/fizhi_gwdrag.F |
256 |
GWDRAG |
do i = 1,im |
|
./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 |
262 |
GWDRAG |
do i=1,im |
|
./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 |
273 |
GWDRAG |
do i = 1,im |
|
./pkg/fizhi/fizhi_gwdrag.F |
274 |
GWDRAG |
sumu(i,j) = 0.0 |
|
./pkg/fizhi/fizhi_gwdrag.F |
279 |
GWDRAG |
do i = 1,im |
|
./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 |
285 |
GWDRAG |
do i=1,im |
|
./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 |
367 |
GWDD |
integer i,L |
|
./pkg/fizhi/fizhi_gwdrag.F |
384 |
GWDD |
do i = 1,irun |
|
./pkg/fizhi/fizhi_gwdrag.F |
385 |
GWDD |
ro(i,L) = pl(i,Lm+1-L)/(rgas*t(i,Lm+1-L)) |
|
./pkg/fizhi/fizhi_gwdrag.F |
392 |
GWDD |
do i = 1,irun |
|
./pkg/fizhi/fizhi_gwdrag.F |
393 |
GWDD |
roiave = ( 1./ro(i,L-1) + 1./ro(i,L) )*0.5 |
|
./pkg/fizhi/fizhi_gwdrag.F |
394 |
GWDD |
dz(i,L) = agrav*roiave*( pl(i,Lm+2-L)-pl(i,Lm+1-L) ) |
|
./pkg/fizhi/fizhi_gwdrag.F |
405 |
GWDD |
do i = 1,irun |
|
./pkg/fizhi/fizhi_gwdrag.F |
406 |
GWDD |
robar(i) = 0.0 |
|
./pkg/fizhi/fizhi_gwdrag.F |
407 |
GWDD |
ubar(i) = 0.0 |
|
./pkg/fizhi/fizhi_gwdrag.F |
408 |
GWDD |
vbar(i) = 0.0 |
|
./pkg/fizhi/fizhi_gwdrag.F |
411 |
GWDD |
do i = 1,irun |
|
./pkg/fizhi/fizhi_gwdrag.F |
412 |
GWDD |
do L = 1,nbase(i)-1 |
|
./pkg/fizhi/fizhi_gwdrag.F |
413 |
GWDD |
robar(i) = robar(i) + ro(i,L) * (ple(i,Lm+2-L)-ple(i,Lm+1-L)) |
|
./pkg/fizhi/fizhi_gwdrag.F |
414 |
GWDD |
ubar(i) = ubar(i) + u(i,Lm+1-L) * (ple(i,Lm+2-L)-ple(i,Lm+1-L)) |
|
./pkg/fizhi/fizhi_gwdrag.F |
415 |
GWDD |
vbar(i) = vbar(i) + v(i,Lm+1-L) * (ple(i,Lm+2-L)-ple(i,Lm+1-L)) |
|
./pkg/fizhi/fizhi_gwdrag.F |
419 |
GWDD |
do i = 1,irun |
|
./pkg/fizhi/fizhi_gwdrag.F |
420 |
GWDD |
robar(i) = robar(i)/(ps(i)-ple(i,Lm+1-(nbase(i)-1))) * 100.0 |
|
./pkg/fizhi/fizhi_gwdrag.F |
421 |
GWDD |
ubar(i) = ubar(i)/(ps(i)-ple(i,Lm+1-(nbase(i)-1))) |
|
./pkg/fizhi/fizhi_gwdrag.F |
422 |
GWDD |
vbar(i) = vbar(i)/(ps(i)-ple(i,Lm+1-(nbase(i)-1))) |
|
./pkg/fizhi/fizhi_gwdrag.F |
424 |
GWDD |
speed(i) = sqrt( ubar(i)*ubar(i) + vbar(i)*vbar(i) ) |
|
./pkg/fizhi/fizhi_gwdrag.F |
425 |
GWDD |
ang(i) = atan2(vbar(i),ubar(i)) |
|
./pkg/fizhi/fizhi_gwdrag.F |
430 |
GWDD |
do i = 1,irun |
|
./pkg/fizhi/fizhi_gwdrag.F |
431 |
GWDD |
do l = 2,nbase(i) |
|
./pkg/fizhi/fizhi_gwdrag.F |
432 |
GWDD |
vai1 = (t(i,Lm+1-L)-t(i,Lm+2-L))/dz(i,L)+gocp |
|
./pkg/fizhi/fizhi_gwdrag.F |
436 |
GWDD |
vai2 = 2.0*grav/( t(i,Lm+1-L)+t(i,Lm+2-L) ) |
|
./pkg/fizhi/fizhi_gwdrag.F |
438 |
GWDD |
bv(i,L) = sqrt(vsqua) |
|
./pkg/fizhi/fizhi_gwdrag.F |
444 |
GWDD |
do i = 1,irun |
|
./pkg/fizhi/fizhi_gwdrag.F |
445 |
GWDD |
nbar(i) = 0.0 |
|
./pkg/fizhi/fizhi_gwdrag.F |
447 |
GWDD |
do i = 1,irun |
|
./pkg/fizhi/fizhi_gwdrag.F |
448 |
GWDD |
do l = 2,nbase(i) |
|
./pkg/fizhi/fizhi_gwdrag.F |
449 |
GWDD |
nbar(i) = nbar(i) + bv(i,L)*(pl(i,Lm+2-L)-pl(i,Lm+1-L)) |
|
./pkg/fizhi/fizhi_gwdrag.F |
453 |
GWDD |
do i = 1,irun |
|
./pkg/fizhi/fizhi_gwdrag.F |
454 |
GWDD |
nbar(i) = nbar(i)/(pl(i,Lm)-pl(i,Lm+1-nbase(i))) |
|
./pkg/fizhi/fizhi_gwdrag.F |
455 |
GWDD |
frsf = nbar(i)*std(i)/speed(i) |
|
./pkg/fizhi/fizhi_gwdrag.F |
457 |
GWDD |
if( speed(i).eq.0.0 .or. nbar(i).eq.0.0 ) then |
|
./pkg/fizhi/fizhi_gwdrag.F |
458 |
GWDD |
tensio(i,1) = 0.0 |
|
./pkg/fizhi/fizhi_gwdrag.F |
461 |
GWDD |
tensio(i,1) = gstar*(robar(i)*speed(i)*speed(i)*speed(i)) |
|
./pkg/fizhi/fizhi_gwdrag.F |
462 |
GWDD |
. / (nbar(i)*lstar) |
|
./pkg/fizhi/fizhi_gwdrag.F |
465 |
GWDD |
xtens(i,1) = tensio(i,1) * cos(ang(i)) |
|
./pkg/fizhi/fizhi_gwdrag.F |
466 |
GWDD |
ytens(i,1) = tensio(i,1) * sin(ang(i)) |
|
./pkg/fizhi/fizhi_gwdrag.F |
467 |
GWDD |
dragsf(i) = tensio(i,1) |
|
./pkg/fizhi/fizhi_gwdrag.F |
468 |
GWDD |
xdrag(i) = xtens(i,1) |
|
./pkg/fizhi/fizhi_gwdrag.F |
469 |
GWDD |
ydrag(i) = ytens(i,1) |
|
./pkg/fizhi/fizhi_gwdrag.F |
474 |
GWDD |
do i = 1,irun |
|
./pkg/fizhi/fizhi_gwdrag.F |
475 |
GWDD |
if( nthin(i).gt.1 ) then |
|
./pkg/fizhi/fizhi_gwdrag.F |
476 |
GWDD |
do l = 1,nthin(i) |
|
./pkg/fizhi/fizhi_gwdrag.F |
477 |
GWDD |
tensio(i,L) = tensio(i,1) |
|
./pkg/fizhi/fizhi_gwdrag.F |
478 |
GWDD |
xtens(i,L) = xtens(i,1) |
|
./pkg/fizhi/fizhi_gwdrag.F |
479 |
GWDD |
ytens(i,L) = ytens(i,1) |
|
./pkg/fizhi/fizhi_gwdrag.F |
488 |
GWDD |
do i = 1,irun |
|
./pkg/fizhi/fizhi_gwdrag.F |
489 |
GWDD |
do l = nthin(i)+1,nbase(i) |
|
./pkg/fizhi/fizhi_gwdrag.F |
491 |
GWDD |
velco = 0.5*( (u(i,Lm+1-L)*ubar(i) + v(i,Lm+1-L)*vbar(i)) |
|
./pkg/fizhi/fizhi_gwdrag.F |
492 |
GWDD |
. + (u(i,Lm+2-L)*ubar(i) + v(i,Lm+2-L)*vbar(i)) ) |
|
./pkg/fizhi/fizhi_gwdrag.F |
493 |
GWDD |
. / speed(i) |
|
./pkg/fizhi/fizhi_gwdrag.F |
496 |
GWDD |
roave = 0.5*(ro(i,L-1)+ro(i,L)) * 100.0 |
|
./pkg/fizhi/fizhi_gwdrag.F |
499 |
GWDD |
tensio(i,L) = tensio(i,L-1) |
|
./pkg/fizhi/fizhi_gwdrag.F |
505 |
GWDD |
fro2 = bv(i,L)/(akwnmb*roave*velco*velco*velco)*tensio(i,L-1) |
|
./pkg/fizhi/fizhi_gwdrag.F |
506 |
GWDD |
deluu = u(i,Lm+1-L)-u(i,Lm+2-L) |
|
./pkg/fizhi/fizhi_gwdrag.F |
507 |
GWDD |
delvv = v(i,Lm+1-L)-v(i,Lm+2-L) |
|
./pkg/fizhi/fizhi_gwdrag.F |
513 |
GWDD |
delz = dz(i,L) |
|
./pkg/fizhi/fizhi_gwdrag.F |
514 |
GWDD |
vsqua = bv(i,L)*bv(i,L) |
|
./pkg/fizhi/fizhi_gwdrag.F |
521 |
GWDD |
tensio(i,L) = tensio(i,L-1) |
|
./pkg/fizhi/fizhi_gwdrag.F |
533 |
GWDD |
tensio(i,L) = crif2/fro2*tensio(i,L-1) |
|
./pkg/fizhi/fizhi_gwdrag.F |
535 |
GWDD |
tensio(i,L) = tensio(i,L-1) |
|
./pkg/fizhi/fizhi_gwdrag.F |
539 |
GWDD |
xtens(i,L) = tensio(i,L)*cos(ang(i)) |
|
./pkg/fizhi/fizhi_gwdrag.F |
540 |
GWDD |
ytens(i,L) = tensio(i,L)*sin(ang(i)) |
|
./pkg/fizhi/fizhi_gwdrag.F |
549 |
GWDD |
do i = 1,irun |
|
./pkg/fizhi/fizhi_gwdrag.F |
550 |
GWDD |
icrilv(i) = 0 |
|
./pkg/fizhi/fizhi_gwdrag.F |
553 |
GWDD |
do i = 1,irun |
|
./pkg/fizhi/fizhi_gwdrag.F |
554 |
GWDD |
do l = nbase(i)+1,Lm+1 |
|
./pkg/fizhi/fizhi_gwdrag.F |
556 |
GWDD |
tensio(i,L) = 0.0 |
|
./pkg/fizhi/fizhi_gwdrag.F |
560 |
GWDD |
if( icrilv(i).eq.1 ) goto 130 |
|
./pkg/fizhi/fizhi_gwdrag.F |
565 |
GWDD |
tensio(i,L) = tensio(i,L-1) |
|
./pkg/fizhi/fizhi_gwdrag.F |
569 |
GWDD |
roave = 0.5*(ro(i,L-1)+ro(i,L)) * 100.0 |
|
./pkg/fizhi/fizhi_gwdrag.F |
570 |
GWDD |
vai1 = (t(i,Lm+1-L)-t(i,Lm+2-L))/dz(i,L)+gocp |
|
./pkg/fizhi/fizhi_gwdrag.F |
573 |
GWDD |
icrilv(i) = 1 |
|
./pkg/fizhi/fizhi_gwdrag.F |
574 |
GWDD |
tensio(i,L) = 0.0 |
|
./pkg/fizhi/fizhi_gwdrag.F |
578 |
GWDD |
vai2 = 2.0*grav/(t(i,Lm+1-L)+t(i,Lm+2-L)) |
|
./pkg/fizhi/fizhi_gwdrag.F |
582 |
GWDD |
velco = 0.5*( (u(i,Lm+1-L)*ubar(i) + v(i,Lm+1-L)*vbar(i)) |
|
./pkg/fizhi/fizhi_gwdrag.F |
583 |
GWDD |
. + (u(i,Lm+2-L)*ubar(i) + v(i,Lm+2-L)*vbar(i)) ) |
|
./pkg/fizhi/fizhi_gwdrag.F |
584 |
GWDD |
. / speed(i) |
|
./pkg/fizhi/fizhi_gwdrag.F |
587 |
GWDD |
icrilv(i) = 1 |
|
./pkg/fizhi/fizhi_gwdrag.F |
588 |
GWDD |
tensio(i,L) = 0.0 |
|
./pkg/fizhi/fizhi_gwdrag.F |
594 |
GWDD |
fro2 = vaisd/(akwnmb*roave*velco*velco*velco)*tensio(i,L-1) |
|
./pkg/fizhi/fizhi_gwdrag.F |
595 |
GWDD |
deluu = u(i,Lm+1-L)-u(i,Lm+2-L) |
|
./pkg/fizhi/fizhi_gwdrag.F |
596 |
GWDD |
delvv = v(i,Lm+1-L)-v(i,Lm+2-L) |
|
./pkg/fizhi/fizhi_gwdrag.F |
602 |
GWDD |
delz = dz(i,L) |
|
./pkg/fizhi/fizhi_gwdrag.F |
609 |
GWDD |
tensio(i,L) = 0.0 |
|
./pkg/fizhi/fizhi_gwdrag.F |
610 |
GWDD |
icrilv(i) = 1 |
|
./pkg/fizhi/fizhi_gwdrag.F |
621 |
GWDD |
tensio(i,L) = crif2/fro2*tensio(i,L-1) |
|
./pkg/fizhi/fizhi_gwdrag.F |
623 |
GWDD |
tensio(i,L) = tensio(i,L-1) |
|
./pkg/fizhi/fizhi_gwdrag.F |
627 |
GWDD |
xtens(i,L) = tensio(i,L)*cos(ang(i)) |
|
./pkg/fizhi/fizhi_gwdrag.F |
628 |
GWDD |
ytens(i,L) = tensio(i,L)*sin(ang(i)) |
|
./pkg/fizhi/fizhi_gwdrag.F |
636 |
GWDD |
do i = 1,irun |
|
./pkg/fizhi/fizhi_gwdrag.F |
637 |
GWDD |
do l = nthin(i)+1,Lm |
|
./pkg/fizhi/fizhi_gwdrag.F |
638 |
GWDD |
coef = -grav*ps(i)/dpres(i,Lm+1-L) |
|
./pkg/fizhi/fizhi_gwdrag.F |
639 |
GWDD |
dudt(i,Lm+1-L) = coef*(xtens(i,L+1)-xtens(i,L)) |
|
./pkg/fizhi/fizhi_gwdrag.F |
640 |
GWDD |
dvdt(i,Lm+1-L) = coef*(ytens(i,L+1)-ytens(i,L)) |
|
./pkg/fizhi/fizhi_gwdrag.F |
646 |
GWDD |
do i = 1,irun |
|
./pkg/fizhi/fizhi_gwdrag.F |
647 |
GWDD |
coef = grav*ps(i)/(ple(i,Lm+1-nthin(i))-ple(i,Lm+1)) |
|
./pkg/fizhi/fizhi_gwdrag.F |
648 |
GWDD |
dudt(i,Lm) = coef*(xtens(i,nthin(i)+1)-xtens(i,1)) |
|
./pkg/fizhi/fizhi_gwdrag.F |
649 |
GWDD |
dvdt(i,Lm) = coef*(ytens(i,nthin(i)+1)-ytens(i,1)) |
|
./pkg/fizhi/fizhi_gwdrag.F |
654 |
GWDD |
do i = 1,irun |
|
./pkg/fizhi/fizhi_gwdrag.F |
655 |
GWDD |
if( nthin(i).gt.1 ) then |
|
./pkg/fizhi/fizhi_gwdrag.F |
656 |
GWDD |
do l = 2,nthin(i) |
|
./pkg/fizhi/fizhi_gwdrag.F |
657 |
GWDD |
dudt(i,Lm+1-L) = dudt(i,Lm) |
|
./pkg/fizhi/fizhi_gwdrag.F |
658 |
GWDD |
dvdt(i,Lm+1-L) = dvdt(i,Lm) |
|
./pkg/fizhi/fizhi_gwdrag.F |
666 |
GWDD |
do i = 1,irun |
|
./pkg/fizhi/fizhi_gwdrag.F |
667 |
GWDD |
dudt(i,L) = - dudt(i,L)/ps(i)*0.01 |
|
./pkg/fizhi/fizhi_gwdrag.F |
668 |
GWDD |
dvdt(i,L) = - dvdt(i,L)/ps(i)*0.01 |
|
./pkg/fizhi/fizhi_gwdrag.F |
78 |
GWDRAG |
integer n,i,j,L |
|
./pkg/fizhi/fizhi_gwdrag.F |
99 |
GWDRAG |
do i=1,im |
|
./pkg/fizhi/fizhi_init_fixed.F |
114 |
FIZHI_INIT_FIXED |
do i=im1,im2 |
|
./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 |
156 |
FIZHI_INIT_FIXED |
do i=im1,im2 |
|
./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 |
88 |
FIZHI_INIT_FIXED |
do i = im1,im2 |
|
./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 |
101 |
FIZHI_INIT_VARS |
do i = 1,sNx |
|
./pkg/fizhi/fizhi_init_vars.F |
103 |
FIZHI_INIT_VARS |
pedyn(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
108 |
FIZHI_INIT_VARS |
do i = 1,sNx |
|
./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 |
115 |
FIZHI_INIT_VARS |
do i = 1,sNx |
|
./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 |
128 |
FIZHI_INIT_VARS |
do i = 1,sNx |
|
./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 |
144 |
FIZHI_INIT_VARS |
do i = 1,sNx |
|
./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 |
168 |
FIZHI_INIT_VARS |
do i = 1,sNx |
|
./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 |
177 |
FIZHI_INIT_VARS |
do i = 1,sNx |
|
./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 |
186 |
FIZHI_INIT_VARS |
do i = 1,sNx |
|
./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 |
195 |
FIZHI_INIT_VARS |
do i = 1,sNx |
|
./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 |
204 |
FIZHI_INIT_VARS |
do i = 1,sNx |
|
./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 |
216 |
FIZHI_INIT_VARS |
do i = im1,im2 |
|
./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 |
228 |
FIZHI_INIT_VARS |
do i = 1,nchp |
|
./pkg/fizhi/fizhi_init_vars.F |
229 |
FIZHI_INIT_VARS |
ctmt(i,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
230 |
FIZHI_INIT_VARS |
xxmt(i,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
231 |
FIZHI_INIT_VARS |
yymt(i,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
232 |
FIZHI_INIT_VARS |
zetamt(i,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
235 |
FIZHI_INIT_VARS |
do i = 1,nchp |
|
./pkg/fizhi/fizhi_init_vars.F |
236 |
FIZHI_INIT_VARS |
tke(i,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
237 |
FIZHI_INIT_VARS |
xlmt(i,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
238 |
FIZHI_INIT_VARS |
khmt(i,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
262 |
FIZHI_INIT_VARS |
do i = 1,sNx |
|
./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 |
279 |
FIZHI_INIT_VARS |
do i = 1,sNx |
|
./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 |
134 |
FIZHI_INIT_VEG |
do i = 1,im |
|
./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 |
159 |
FIZHI_INIT_VEG |
do i=1,nchp |
|
./pkg/fizhi/fizhi_init_veg.F |
160 |
FIZHI_INIT_VEG |
igrd(i,bi,bj) = 1 |
|
./pkg/fizhi/fizhi_init_veg.F |
167 |
FIZHI_INIT_VEG |
do i=1,im |
|
./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 |
185 |
FIZHI_INIT_VEG |
do i=1,im |
|
./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 |
109 |
FIZHI_INIT_VEGSURFTILES |
do i = 1,sNx |
|
./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 |
122 |
FIZHI_INIT_VEGSURFTILES |
do i = 1,sNx |
|
./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 |
135 |
FIZHI_INIT_VEGSURFTILES |
do i = 1,sNx |
|
./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 |
148 |
FIZHI_INIT_VEGSURFTILES |
do i = 1,sNx |
|
./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 |
161 |
FIZHI_INIT_VEGSURFTILES |
do i = 1,sNx |
|
./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 |
174 |
FIZHI_INIT_VEGSURFTILES |
do i = 1,sNx |
|
./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 |
187 |
FIZHI_INIT_VEGSURFTILES |
do i = 1,sNx |
|
./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 |
98 |
FIZHI_INIT_VEGSURFTILES |
do i = 1,sNx |
|
./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 |
1023 |
IRRAD |
do i=1,m |
|
./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 |
1034 |
IRRAD |
do i=1,m |
|
./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 |
1051 |
IRRAD |
do i=1,m |
|
./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 |
1076 |
IRRAD |
do i= 1, m |
|
./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 |
1093 |
IRRAD |
do i= 1, m |
|
./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 |
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 |
110 |
LWRIO |
do i =1,im |
|
./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 |
1233 |
IRRAD |
do i=1,m |
|
./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 |
1251 |
IRRAD |
do i=1,m |
|
./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 |
1265 |
IRRAD |
do i=1,m |
|
./pkg/fizhi/fizhi_lwrad.F |
1266 |
IRRAD |
th2o(i,j,ik)=1.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
1277 |
IRRAD |
do i=1,m |
|
./pkg/fizhi/fizhi_lwrad.F |
1278 |
IRRAD |
tcon(i,j,iq)=1.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
1292 |
IRRAD |
do i=1,m |
|
./pkg/fizhi/fizhi_lwrad.F |
1293 |
IRRAD |
tco2(i,j,ik,isb)=1.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
1309 |
IRRAD |
do i=1,m |
|
./pkg/fizhi/fizhi_lwrad.F |
1310 |
IRRAD |
tn2o(i,j,ik)=1.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
1321 |
IRRAD |
do i=1,m |
|
./pkg/fizhi/fizhi_lwrad.F |
1322 |
IRRAD |
tch4(i,j,ik)=1.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
1333 |
IRRAD |
do i=1,m |
|
./pkg/fizhi/fizhi_lwrad.F |
1334 |
IRRAD |
tcom(i,j,ik)=1.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
1344 |
IRRAD |
do i=1,m |
|
./pkg/fizhi/fizhi_lwrad.F |
1345 |
IRRAD |
tf11(i,j)=1.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
1354 |
IRRAD |
do i=1,m |
|
./pkg/fizhi/fizhi_lwrad.F |
1355 |
IRRAD |
tf12(i,j)=1.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
1364 |
IRRAD |
do i=1,m |
|
./pkg/fizhi/fizhi_lwrad.F |
1365 |
IRRAD |
tf22(i,j)=1.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
1375 |
IRRAD |
do i=1,m |
|
./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 |
1383 |
IRRAD |
do i=1,m |
|
./pkg/fizhi/fizhi_lwrad.F |
1384 |
IRRAD |
tcon(i,j,iq)=1.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
1390 |
IRRAD |
do i=1,m |
|
./pkg/fizhi/fizhi_lwrad.F |
1391 |
IRRAD |
tn2o(i,j,ik)=1.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
1406 |
IRRAD |
do i=1,m |
|
./pkg/fizhi/fizhi_lwrad.F |
1407 |
IRRAD |
trant(i,j)=1.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
1531 |
IRRAD |
do i=1,m |
|
./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 |
1546 |
IRRAD |
do i=1,m |
|
./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 |
155 |
LWRIO |
CLRO(I,L) = min( 1.0 _d 0,clro(i,L) ) |
|
./pkg/fizhi/fizhi_lwrad.F |
1569 |
IRRAD |
do i=1,m |
|
./pkg/fizhi/fizhi_lwrad.F |
156 |
LWRIO |
CLMO(I,L) = min( 1.0 _d 0,clmo(i,L) ) |
|
./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 |
1590 |
IRRAD |
do i=1,m |
|
./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 |
1607 |
IRRAD |
do i=1,m |
|
./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 |
1629 |
IRRAD |
do i=1,m |
|
./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 |
1641 |
IRRAD |
do i=1,m |
|
./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 |
1655 |
IRRAD |
do i=1,m |
|
./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 |
1668 |
IRRAD |
do i=1,m |
|
./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 |
1683 |
IRRAD |
do i=1,m |
|
./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 |
1696 |
IRRAD |
do i=1,m |
|
./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 |
170 |
LWRIO |
TZL(I,lm) = ( 2*tzl(i,lm)+tsurf(i) )/3.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
1731 |
COLUMN |
integer m,n,np,i,j,k |
|
./pkg/fizhi/fizhi_lwrad.F |
1743 |
COLUMN |
do i=1,m |
|
./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 |
1752 |
COLUMN |
do i=1,m |
|
./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 |
179 |
LWRIO |
do i = 1,istrip |
|
./pkg/fizhi/fizhi_lwrad.F |
180 |
LWRIO |
tauc(i,L,n) = tauc(i,L,n)*0.75 |
|
./pkg/fizhi/fizhi_lwrad.F |
1812 |
H2OEXPS |
do i=1,m |
|
./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 |
1835 |
H2OEXPS |
do i=1,m |
|
./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 |
1846 |
H2OEXPS |
do i=1,m |
|
./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 |
1858 |
H2OEXPS |
do i=1,m |
|
./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 |
1870 |
H2OEXPS |
do i=1,m |
|
./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 |
190 |
LWRIO |
do i = 1,istrip |
|
./pkg/fizhi/fizhi_lwrad.F |
191 |
LWRIO |
taual(i,L,n) = 0. |
|
./pkg/fizhi/fizhi_lwrad.F |
1920 |
CONEXPS |
do i=1,m |
|
./pkg/fizhi/fizhi_lwrad.F |
1921 |
CONEXPS |
conexp(i,j,k,1) = exp(-dcont(i,j,k)*xke(ib)) |
|
./pkg/fizhi/fizhi_lwrad.F |
192 |
LWRIO |
ssaal(i,L,n) = 0. |
|
./pkg/fizhi/fizhi_lwrad.F |
1935 |
CONEXPS |
do i=1,m |
|
./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 |
193 |
LWRIO |
asyal(i,L,n) = 0. |
|
./pkg/fizhi/fizhi_lwrad.F |
1963 |
CO2EXPS |
integer m,n,np,i,j,k |
|
./pkg/fizhi/fizhi_lwrad.F |
1981 |
CO2EXPS |
do i=1,m |
|
./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 |
202 |
LWRIO |
do i = 1,istrip |
|
./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 |
203 |
LWRIO |
cwc(i,L,n) = 0. |
|
./pkg/fizhi/fizhi_lwrad.F |
204 |
LWRIO |
reff(i,L,n) = 0. |
|
./pkg/fizhi/fizhi_lwrad.F |
2065 |
N2OEXPS |
integer ib,m,n,np,i,j,k |
|
./pkg/fizhi/fizhi_lwrad.F |
2083 |
N2OEXPS |
do i=1,m |
|
./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 |
2159 |
CH4EXPS |
do i=1,m |
|
./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 |
2231 |
COMEXPS |
do i=1,m |
|
./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 |
224 |
LWRIO |
do i = 1,istrip |
|
./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 |
225 |
LWRIO |
dtrad(i,L) = ( flx(i,L)- flx(i,L+1))*adelpl(i,L) |
|
./pkg/fizhi/fizhi_lwrad.F |
226 |
LWRIO |
tmpstrip(i,L) = flx(i,L) |
|
./pkg/fizhi/fizhi_lwrad.F |
227 |
LWRIO |
dtdtg(i,L) = ( dfdts(i,L)- dfdts(i,L+1))*adelpl(i,L) |
|
./pkg/fizhi/fizhi_lwrad.F |
228 |
LWRIO |
dtradc(i,L) = (flxclr(i,L)-flxclr(i,L+1))*adelpl(i,L) |
|
./pkg/fizhi/fizhi_lwrad.F |
2290 |
CFCEXPS |
integer ib,m,n,np,i,j,k |
|
./pkg/fizhi/fizhi_lwrad.F |
2312 |
CFCEXPS |
do i=1,m |
|
./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 |
2372 |
B10EXPS |
do i=1,m |
|
./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 |
237 |
LWRIO |
flx (i,1) = -flx (i,1) |
|
./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 |
238 |
LWRIO |
flxclr(i,1) = -flxclr(i,1) |
|
./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 |
239 |
LWRIO |
flx (i,lm+1) = -flx (i,lm+1) |
|
./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 |
240 |
LWRIO |
flxclr(i,lm+1) = -flxclr(i,lm+1) |
|
./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 |
241 |
LWRIO |
sgmt4(i) = - sgmt4(i) |
|
./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 |
242 |
LWRIO |
dsgmt4(i) = - dfdts(i,lm+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 |
2523 |
TABLUP |
do i=1,m |
|
./pkg/fizhi/fizhi_lwrad.F |
2525 |
TABLUP |
nn=mod(i,nt)+1 |
|
./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 |
2640 |
H2OKDIS |
do i=1,m |
|
./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 |
264 |
LWRIO |
DTRAD (I,L) = ple(i,lm+1) * DTRAD (I,L)/pk(I,L) |
|
./pkg/fizhi/fizhi_lwrad.F |
2653 |
H2OKDIS |
do i=1,m |
|
./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 |
265 |
LWRIO |
DTRADC(I,L) = ple(i,lm+1) * DTRADC(I,L)/pk(I,L) |
|
./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 |
266 |
LWRIO |
dtdtg(I,L) = ple(i,lm+1) * dtdtg (I,L)/pk(I,L) |
|
./pkg/fizhi/fizhi_lwrad.F |
2670 |
H2OKDIS |
do i=1,m |
|
./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 |
2689 |
H2OKDIS |
do i=1,m |
|
./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 |
2763 |
CO2KDIS |
do i=1,m |
|
./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 |
2852 |
N2OKDIS |
do i=1,m |
|
./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 |
289 |
LWRIO |
do i = 1,im |
|
./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 |
2929 |
CH4KDIS |
do i=1,m |
|
./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 |
2985 |
COMKDIS |
integer ib,m,n,np,k,i,j |
|
./pkg/fizhi/fizhi_lwrad.F |
298 |
LWRIO |
do i = 1,im |
|
./pkg/fizhi/fizhi_lwrad.F |
299 |
LWRIO |
tmpdiag(i,j) = qz(i,j,L)*1000. |
|
./pkg/fizhi/fizhi_lwrad.F |
3003 |
COMKDIS |
do i=1,m |
|
./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 |
3066 |
CFCKDIS |
do i=1,m |
|
./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 |
307 |
LWRIO |
do i = 1,im |
|
./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 |
3128 |
B10KDIS |
do i=1,m |
|
./pkg/fizhi/fizhi_lwrad.F |
3129 |
B10KDIS |
tran(i,j)=1.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
3136 |
B10KDIS |
do i=1,m |
|
./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 |
3161 |
B10KDIS |
do i=1,m |
|
./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 |
3172 |
B10KDIS |
do i=1,m |
|
./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 |
3200 |
B10KDIS |
do i=1,m |
|
./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 |
335 |
LWRIO |
do i = 1,im |
|
./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 |
873 |
IRRAD |
do i=1,m |
|
./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 |
884 |
IRRAD |
do i=1,m |
|
./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 |
911 |
IRRAD |
do i=1,m |
|
./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 |
948 |
IRRAD |
do i=1,m |
|
./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 |
966 |
IRRAD |
do i=1,m |
|
./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 |
979 |
IRRAD |
do i=1,m |
|
./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 |
99 |
LWRIO |
do i =1,im |
|
./pkg/fizhi/fizhi_mnc_init.F |
106 |
FIZHI_MNC_INIT |
DO i = 1,CW_MAX_LOC |
|
./pkg/fizhi/fizhi_mnc_init.F |
107 |
FIZHI_MNC_INIT |
dn(i)(1:MNC_MAX_CHAR)=mnc_blank_name(1:MNC_MAX_CHAR) |
|
./pkg/fizhi/fizhi_mnc_init.F |
108 |
FIZHI_MNC_INIT |
dim(i) = 0 |
|
./pkg/fizhi/fizhi_mnc_init.F |
109 |
FIZHI_MNC_INIT |
ib(i) = 0 |
|
./pkg/fizhi/fizhi_mnc_init.F |
110 |
FIZHI_MNC_INIT |
ie(i) = 0 |
|
./pkg/fizhi/fizhi_mnc_init.F |
38 |
FIZHI_MNC_INIT |
integer i, ihorz,ihsub,ivert,itime,ihalo, is,ih, n,ntot |
|
./pkg/fizhi/fizhi_moist.F |
1008 |
MOISTIO |
do i = 1,im |
|
./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 |
1022 |
MOISTIO |
do i = 1,im |
|
./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 |
1041 |
MOISTIO |
do i = 1,im |
|
./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 |
1116 |
MOISTIO |
do i = 1,im |
|
./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 |
1132 |
MOISTIO |
do i=1,im |
|
./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 |
1149 |
MOISTIO |
do i=1,im |
|
./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 |
1231 |
RAS |
integer i,L,nc,ib,nt |
|
./pkg/fizhi/fizhi_moist.F |
1237 |
RAS |
rains(i,l) = 0. |
|
./pkg/fizhi/fizhi_moist.F |
1292 |
RAS |
do i = 1,lenc |
|
./pkg/fizhi/fizhi_moist.F |
1293 |
RAS |
cloudn(i) = 0.0 |
|
./pkg/fizhi/fizhi_moist.F |
1308 |
RAS |
do i = 1,lenc |
|
./pkg/fizhi/fizhi_moist.F |
1312 |
RAS |
tx1(i) = cmb2pa * (prs(i,ib+1) - prs(i,ib))/(grav*dt) |
|
./pkg/fizhi/fizhi_moist.F |
1316 |
RAS |
tx1(i) = rhfrac(i)*rknob * cmass(i,ib) / tx1(i) |
|
./pkg/fizhi/fizhi_moist.F |
1317 |
RAS |
if(cmass(i,K).gt.0.) clf(i,ib) = clf(i,ib) + tx1(i) |
|
./pkg/fizhi/fizhi_moist.F |
1318 |
RAS |
if( clf(i,ib).gt.1.) clf(i,ib) = 1. |
|
./pkg/fizhi/fizhi_moist.F |
1324 |
RAS |
do i=1,lenc |
|
./pkg/fizhi/fizhi_moist.F |
1325 |
RAS |
cmass(i,L) = rhfrac(i)*cmass(i,L) * dt |
|
./pkg/fizhi/fizhi_moist.F |
1330 |
RAS |
do i=1,lenc |
|
./pkg/fizhi/fizhi_moist.F |
1331 |
RAS |
cldmas(i,L) = cldmas(i,L) + cmass(i,L) |
|
./pkg/fizhi/fizhi_moist.F |
1335 |
RAS |
do i=1,lenc |
|
./pkg/fizhi/fizhi_moist.F |
1336 |
RAS |
detrain(i,ib) = detrain(i,ib) + cmass(i,ib) |
|
./pkg/fizhi/fizhi_moist.F |
1342 |
RAS |
POI(I,L) = POI(I,L) + TCU(I,L) * DT * rhfrac(i) |
|
./pkg/fizhi/fizhi_moist.F |
1343 |
RAS |
QOI(I,L) = QOI(I,L) + QCU(I,L) * DT * rhfrac(i) |
|
./pkg/fizhi/fizhi_moist.F |
1349 |
RAS |
UOI(I,L+nltop-1,NT)=UOI(I,L+nltop-1,NT)+UCU(I,L,NT)*DT*rhfrac(i) |
|
./pkg/fizhi/fizhi_moist.F |
1354 |
RAS |
rains(I,ib) = rains(I,ib) + PCU(I)*dt * rhfrac(i) |
|
./pkg/fizhi/fizhi_moist.F |
1357 |
RAS |
do i = 1,lenc |
|
./pkg/fizhi/fizhi_moist.F |
1360 |
RAS |
if(tcu(i,L).ne.0.)ifound = ifound + 1 |
|
./pkg/fizhi/fizhi_moist.F |
1365 |
RAS |
temp = TCU(I,L) * DT * rhfrac(i) |
|
./pkg/fizhi/fizhi_moist.F |
1378 |
RAS |
do i=1,lenc |
|
./pkg/fizhi/fizhi_moist.F |
1379 |
RAS |
tx1(i) = 100*(prs(i,L+1)-prs(i,L))/grav |
|
./pkg/fizhi/fizhi_moist.F |
1380 |
RAS |
cln(i,L) = min(1600*rains(i,L)/tx1(i),rasmax ) |
|
./pkg/fizhi/fizhi_moist.F |
1395 |
RNDCLOUD |
integer i,mcheck,iseed,indx |
|
./pkg/fizhi/fizhi_moist.F |
139 |
MOISTIO |
integer i,j,iloop,indx,indgath,l,nn,num,numdeps,nt |
|
./pkg/fizhi/fizhi_moist.F |
1403 |
RNDCLOUD |
do i = 1,nrnd |
|
./pkg/fizhi/fizhi_moist.F |
1404 |
RNDCLOUD |
rnd(i) = 0 |
|
./pkg/fizhi/fizhi_moist.F |
1427 |
RNDCLOUD |
do i = 1,irm |
|
./pkg/fizhi/fizhi_moist.F |
1428 |
RNDCLOUD |
random(i) = random_numbx(iseed) |
|
./pkg/fizhi/fizhi_moist.F |
1661 |
CLOUD |
integer nt,km1,ic1,i,L,len1,len2,isav,len11,ii |
|
./pkg/fizhi/fizhi_moist.F |
1787 |
CLOUD |
. .AND. rhfrac(i).ne.0.0 ) THEN |
|
./pkg/fizhi/fizhi_moist.F |
1798 |
CLOUD |
. .AND. rhfrac(i).ne.0.0 ) THEN |
|
./pkg/fizhi/fizhi_moist.F |
216 |
MOISTIO |
do i = 1,im |
|
./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 |
225 |
MOISTIO |
DO i = 1,im |
|
./pkg/fizhi/fizhi_moist.F |
226 |
MOISTIO |
IF((qqz(i,j,l).gt.qqcolmax(i,j)) |
|
./pkg/fizhi/fizhi_moist.F |
2279 |
RNCL |
integer i |
|
./pkg/fizhi/fizhi_moist.F |
227 |
MOISTIO |
1 .and.(levpbl(i,j).eq.lm+1))then |
|
./pkg/fizhi/fizhi_moist.F |
2282 |
RNCL |
rno(i) = 1.0 |
|
./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 |
2330 |
ACRITN |
integer i,L |
|
./pkg/fizhi/fizhi_moist.F |
2345 |
ACRITN |
do i=1,lng |
|
./pkg/fizhi/fizhi_moist.F |
2346 |
ACRITN |
if( pl(i).ge.p(L) .and. |
|
./pkg/fizhi/fizhi_moist.F |
2347 |
ACRITN |
. pl(i).le.p(L+1)) then |
|
./pkg/fizhi/fizhi_moist.F |
2348 |
ACRITN |
temp = ( pl(i)-p(L) )/( p(L+1)-p(L) ) |
|
./pkg/fizhi/fizhi_moist.F |
2349 |
ACRITN |
acr(i) = a(L+1)*temp + a(L)*(1-temp) |
|
./pkg/fizhi/fizhi_moist.F |
2354 |
ACRITN |
do i=1,lng |
|
./pkg/fizhi/fizhi_moist.F |
2355 |
ACRITN |
if( pl(i).lt.p(1) ) acr(i) = a(1) |
|
./pkg/fizhi/fizhi_moist.F |
2356 |
ACRITN |
if( pl(i).gt.p(lma) ) acr(i) = a(lma) |
|
./pkg/fizhi/fizhi_moist.F |
2359 |
ACRITN |
do i=1,lng |
|
./pkg/fizhi/fizhi_moist.F |
2360 |
ACRITN |
acr(i) = acr(i) * (plb(i)-pl(i)) |
|
./pkg/fizhi/fizhi_moist.F |
238 |
MOISTIO |
do i = 1,im |
|
./pkg/fizhi/fizhi_moist.F |
239 |
MOISTIO |
if(levpbl(i,j).gt.nsubmin) levpbl(i,j) = nsubmin |
|
./pkg/fizhi/fizhi_moist.F |
2407 |
RNEVP |
integer i,L,n,nlaym1,irnlay,irnlm1 |
|
./pkg/fizhi/fizhi_moist.F |
240 |
MOISTIO |
if(levpbl(i,j).lt.nsubmax) levpbl(i,j) = nsubmax |
|
./pkg/fizhi/fizhi_moist.F |
2434 |
RNEVP |
water(i) = 0. |
|
./pkg/fizhi/fizhi_moist.F |
2435 |
RNEVP |
crystal(i) = 0. |
|
./pkg/fizhi/fizhi_moist.F |
2439 |
RNEVP |
do i = 1,irun |
|
./pkg/fizhi/fizhi_moist.F |
2440 |
RNEVP |
EVP9(i,L) = 0. |
|
./pkg/fizhi/fizhi_moist.F |
2441 |
RNEVP |
TEMP1(i,L) = 0. |
|
./pkg/fizhi/fizhi_moist.F |
2442 |
RNEVP |
TEMP2(i,L) = 0. |
|
./pkg/fizhi/fizhi_moist.F |
2443 |
RNEVP |
TEMP3(i,L) = 0. |
|
./pkg/fizhi/fizhi_moist.F |
2444 |
RNEVP |
CLSBTH(i,L) = 0. |
|
./pkg/fizhi/fizhi_moist.F |
2445 |
RNEVP |
cldlz(i,L) = 0. |
|
./pkg/fizhi/fizhi_moist.F |
2480 |
RNEVP |
call QSAT ( temp1(i,3),pl(i,L),temp1(i,2),temp1(i,6),.true. ) |
|
./pkg/fizhi/fizhi_moist.F |
2492 |
RNEVP |
cldlz(i,L) = rain(i,L)*temp3(i,L) |
|
./pkg/fizhi/fizhi_moist.F |
2493 |
RNEVP |
if( tl(i,L).gt.tice-20.) then |
|
./pkg/fizhi/fizhi_moist.F |
2494 |
RNEVP |
water(i) = water(i) + rain(i,L) |
|
./pkg/fizhi/fizhi_moist.F |
2496 |
RNEVP |
crystal(i) = crystal(i) + rain(i,L) |
|
./pkg/fizhi/fizhi_moist.F |
2507 |
RNEVP |
iceevap(i) = 0. |
|
./pkg/fizhi/fizhi_moist.F |
2508 |
RNEVP |
watevap(i) = 0. |
|
./pkg/fizhi/fizhi_moist.F |
250 |
MOISTIO |
do i = 1,im |
|
./pkg/fizhi/fizhi_moist.F |
2510 |
RNEVP |
if( (evp9(i,L).gt.0.) .and. (crystal(i).gt.0.) ) then |
|
./pkg/fizhi/fizhi_moist.F |
2512 |
RNEVP |
IF(iceevap(i).GE.crystal(i)) iceevap(i) = crystal(i) |
|
./pkg/fizhi/fizhi_moist.F |
2514 |
RNEVP |
crystal(i) = crystal(i) - iceevap(i) |
|
./pkg/fizhi/fizhi_moist.F |
2518 |
RNEVP |
if( (evp9(i,L).gt.0.) .and. (water(i).gt.0.) ) then |
|
./pkg/fizhi/fizhi_moist.F |
2519 |
RNEVP |
exparg = ZM1P04*tmscl*((water(i)*RPHF*TEMP2(I,L))**ZP578) |
|
./pkg/fizhi/fizhi_moist.F |
251 |
MOISTIO |
if(levpbl(i,j).eq.L) then |
|
./pkg/fizhi/fizhi_moist.F |
2522 |
RNEVP |
IF(watevap(I).GE.water(i)) watevap(I) = water(i) |
|
./pkg/fizhi/fizhi_moist.F |
2524 |
RNEVP |
water(i) = water(i) - watevap(i) |
|
./pkg/fizhi/fizhi_moist.F |
2527 |
RNEVP |
QL(I,L) = QL(I,L)+(iceevap(i)+watevap(i))*TEMP3(I,L) |
|
./pkg/fizhi/fizhi_moist.F |
2528 |
RNEVP |
TL(I,L) = TL(I,L)-(iceevap(i)+watevap(i))*TEMP3(I,L)*ELOCP |
|
./pkg/fizhi/fizhi_moist.F |
2534 |
RNEVP |
do i = 1,irun |
|
./pkg/fizhi/fizhi_moist.F |
2535 |
RNEVP |
rcon(i) = water(i) + crystal(i) |
|
./pkg/fizhi/fizhi_moist.F |
253 |
MOISTIO |
pblindex(indx) = (j-1)*im + i |
|
./pkg/fizhi/fizhi_moist.F |
2544 |
RNEVP |
rainmax(i) = rhcrit(i,L)*evp9(i,L) + |
|
./pkg/fizhi/fizhi_moist.F |
2545 |
RNEVP |
. ql(i,L)*(rhcrit(i,L)-1.)/temp3(i,L) |
|
./pkg/fizhi/fizhi_moist.F |
2547 |
RNEVP |
if (rainmax(i).LE.0.0) then |
|
./pkg/fizhi/fizhi_moist.F |
2548 |
RNEVP |
call QSAT( tl(i,L),pl(i,L),rh,dum,.false.) |
|
./pkg/fizhi/fizhi_moist.F |
2549 |
RNEVP |
rh = ql(i,L)/rh |
|
./pkg/fizhi/fizhi_moist.F |
2551 |
RNEVP |
if( rhcrit(i,L).eq.1.0 ) then |
|
./pkg/fizhi/fizhi_moist.F |
2554 |
RNEVP |
fact = min( 1.0 _d 0, alpha + (1.0-alpha)*( rh-rhcrit(i,L)) / |
|
./pkg/fizhi/fizhi_moist.F |
2555 |
RNEVP |
1 (1.0-rhcrit(i,L)) ) |
|
./pkg/fizhi/fizhi_moist.F |
2559 |
RNEVP |
if( pl(i,L).ge.10.0 ) CLSBTH(I,L) = fact |
|
./pkg/fizhi/fizhi_moist.F |
2564 |
RNEVP |
cldlz(i,L) = cldlz(i,L) - rainmax(i)*temp3(i,L) |
|
./pkg/fizhi/fizhi_moist.F |
2627 |
SRCLOUDS |
integer i,L |
|
./pkg/fizhi/fizhi_moist.F |
2646 |
SRCLOUDS |
do i = 1,irun |
|
./pkg/fizhi/fizhi_moist.F |
2647 |
SRCLOUDS |
temp = th(i,L)*plk(i,L) |
|
./pkg/fizhi/fizhi_moist.F |
2648 |
SRCLOUDS |
call QSAT ( temp,pl(i,L),qs(i,L),dum,.false. ) |
|
./pkg/fizhi/fizhi_moist.F |
2653 |
SRCLOUDS |
do i = 1,irun |
|
./pkg/fizhi/fizhi_moist.F |
2654 |
SRCLOUDS |
rh = q(i,L)/qs(i,L) |
|
./pkg/fizhi/fizhi_moist.F |
2656 |
SRCLOUDS |
rhcrit = rhc(i,L) - offset |
|
./pkg/fizhi/fizhi_moist.F |
2659 |
SRCLOUDS |
if(cloud(i,L).eq. 0.0 .and. ratio.gt.0.0 ) then |
|
./pkg/fizhi/fizhi_moist.F |
265 |
MOISTIO |
i = 1+MOD((pblindex(indx)-1),im) |
|
./pkg/fizhi/fizhi_moist.F |
2660 |
SRCLOUDS |
cloud(i,L) = min( ratio,1.0 _d 0) |
|
./pkg/fizhi/fizhi_moist.F |
266 |
MOISTIO |
levgather(indx) = levpbl(i,j) |
|
./pkg/fizhi/fizhi_moist.F |
2678 |
CTEI |
integer i,L |
|
./pkg/fizhi/fizhi_moist.F |
267 |
MOISTIO |
pigather(indx) = pz(i,j) |
|
./pkg/fizhi/fizhi_moist.F |
2688 |
CTEI |
do i=1,im |
|
./pkg/fizhi/fizhi_moist.F |
2689 |
CTEI |
dq = q(i,L)+cldwat(i,L)-q(i,L-1)-cldwat(i,L-1) |
|
./pkg/fizhi/fizhi_moist.F |
268 |
MOISTIO |
pkegather(indx,lm+1) = pkht(i,j,lm+1) |
|
./pkg/fizhi/fizhi_moist.F |
2691 |
CTEI |
k = 1.0 + cpoel*plke(i,L)*( th(i,L)-th(i,L-1) ) / dq |
|
./pkg/fizhi/fizhi_moist.F |
2693 |
CTEI |
t = th(i,L)*plk(i,L) |
|
./pkg/fizhi/fizhi_moist.F |
2694 |
CTEI |
p = pl(i,L) |
|
./pkg/fizhi/fizhi_moist.F |
269 |
MOISTIO |
plegather(indx,lm+1) = plze(i,j,lm+1) |
|
./pkg/fizhi/fizhi_moist.F |
2708 |
CTEI |
cldfrc(i,L) = cldfrc(i,L)*f |
|
./pkg/fizhi/fizhi_moist.F |
2709 |
CTEI |
cldwat(i,L) = cldwat(i,L)*f |
|
./pkg/fizhi/fizhi_moist.F |
2719 |
BACK2GRD |
integer i,irun,indeces(irun) |
|
./pkg/fizhi/fizhi_moist.F |
2722 |
BACK2GRD |
do i = 1,irun |
|
./pkg/fizhi/fizhi_moist.F |
2723 |
BACK2GRD |
temp(indeces(i)) = gathered(i) |
|
./pkg/fizhi/fizhi_moist.F |
2725 |
BACK2GRD |
do i = 1,irun |
|
./pkg/fizhi/fizhi_moist.F |
2726 |
BACK2GRD |
scattered(i) = temp(i) |
|
./pkg/fizhi/fizhi_moist.F |
282 |
MOISTIO |
i = 1+MOD((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 |
299 |
MOISTIO |
i = 1+MOD((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 |
313 |
MOISTIO |
i = 1+MOD((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 |
332 |
MOISTIO |
do i=1,im |
|
./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 |
388 |
MOISTIO |
do i = 1,istrip |
|
./pkg/fizhi/fizhi_moist.F |
389 |
MOISTIO |
if(pbl(i).eq.L) nindeces(L) = nindeces(L) + 1 |
|
./pkg/fizhi/fizhi_moist.F |
417 |
MOISTIO |
TMP1(I,2) = TMP1(I,2) + (PLE(I,L+1)-PLE(I,L))*TH (I,L)/sp(i) |
|
./pkg/fizhi/fizhi_moist.F |
418 |
MOISTIO |
TMP1(I,3) = TMP1(I,3) + (PLE(I,L+1)-PLE(I,L))*SHL(I,L)/sp(i) |
|
./pkg/fizhi/fizhi_moist.F |
431 |
MOISTIO |
do i = num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
432 |
MOISTIO |
saveu(i,L,nt) = ul(i,L,nt) |
|
./pkg/fizhi/fizhi_moist.F |
440 |
MOISTIO |
TMP1(I,2) = TMP1(I,2)+(PLE(I,L+1)-PLE(I,L))*UL(I,L,NT)/sp(i) |
|
./pkg/fizhi/fizhi_moist.F |
445 |
MOISTIO |
usubcl(i,nt) = ul(i,nsubcl,nt) |
|
./pkg/fizhi/fizhi_moist.F |
473 |
MOISTIO |
do i=num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
475 |
MOISTIO |
tmp2(i,1) = TH(i,NSUBCL) * PLKE(i,NSUBCL)/P0KAPPA |
|
./pkg/fizhi/fizhi_moist.F |
477 |
MOISTIO |
tmp2(i,2) = tmp4(i,nsubcl) |
|
./pkg/fizhi/fizhi_moist.F |
480 |
MOISTIO |
do i=num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
481 |
MOISTIO |
call QSAT (tmp2(i,1),tmp2(i,2),tmp2(i,3),dum,.false.) |
|
./pkg/fizhi/fizhi_moist.F |
482 |
MOISTIO |
rh = SHL(I,NSUBCL) / tmp2(i,3) |
|
./pkg/fizhi/fizhi_moist.F |
484 |
MOISTIO |
rhfrac(i) = 0. |
|
./pkg/fizhi/fizhi_moist.F |
486 |
MOISTIO |
rhfrac(i) = 1. |
|
./pkg/fizhi/fizhi_moist.F |
488 |
MOISTIO |
rhfrac(i) = (rh-0.85)*10. |
|
./pkg/fizhi/fizhi_moist.F |
502 |
MOISTIO |
do i=num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
504 |
MOISTIO |
rhcrit(i,L) = 1. |
|
./pkg/fizhi/fizhi_moist.F |
507 |
MOISTIO |
pcheck = pl(i,L) |
|
./pkg/fizhi/fizhi_moist.F |
509 |
MOISTIO |
rhcrit(i,L) = rhmin |
|
./pkg/fizhi/fizhi_moist.F |
511 |
MOISTIO |
ppbl = pl(i,nsubcl) |
|
./pkg/fizhi/fizhi_moist.F |
512 |
MOISTIO |
rhcrit(i,L) = rhmin + (1.-rhmin)/(19.) * |
|
./pkg/fizhi/fizhi_moist.F |
523 |
MOISTIO |
do i = num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
524 |
MOISTIO |
saveth(i,L) = th (i,L) |
|
./pkg/fizhi/fizhi_moist.F |
525 |
MOISTIO |
saveq (i,L) = shl(i,L) |
|
./pkg/fizhi/fizhi_moist.F |
526 |
MOISTIO |
PCPEN (i,L) = 0. |
|
./pkg/fizhi/fizhi_moist.F |
527 |
MOISTIO |
CLFRAC(i,L) = 0. |
|
./pkg/fizhi/fizhi_moist.F |
542 |
MOISTIO |
dum = dp(i,L)/(ple(i,lm+1)-ple(i,nsubcl)) |
|
./pkg/fizhi/fizhi_moist.F |
543 |
MOISTIO |
cldmas(i,L) = cldmas(i,L-1) - dum*cldmas(i,nsubcl-1) |
|
./pkg/fizhi/fizhi_moist.F |
551 |
MOISTIO |
CVTH(I,L) = (TH (I,L) - saveth(i,l)) |
|
./pkg/fizhi/fizhi_moist.F |
552 |
MOISTIO |
CVQ (I,L) = (SHL(I,L) - saveq (i,l)) |
|
./pkg/fizhi/fizhi_moist.F |
557 |
MOISTIO |
CVTH(I,L) = cvth(i,nsubcl) |
|
./pkg/fizhi/fizhi_moist.F |
558 |
MOISTIO |
CVQ (I,L) = cvq (i,nsubcl) |
|
./pkg/fizhi/fizhi_moist.F |
564 |
MOISTIO |
TH (I,L) = saveth(i,l) + cvth(i,l) |
|
./pkg/fizhi/fizhi_moist.F |
565 |
MOISTIO |
SHL(I,L) = saveq (i,l) + cvq (i,l) |
|
./pkg/fizhi/fizhi_moist.F |
580 |
MOISTIO |
CVU(I,L,nt) = ( UL(I,L,nt)-saveu(i,l,nt) )*sp(i)*tminv |
|
./pkg/fizhi/fizhi_moist.F |
585 |
MOISTIO |
if( usubcl(i,nt).ne.0.0 ) then |
|
./pkg/fizhi/fizhi_moist.F |
586 |
MOISTIO |
cvu(i,L,nt) = ( ul(i,nsubcl,nt)-usubcl(i,nt) ) * |
|
./pkg/fizhi/fizhi_moist.F |
587 |
MOISTIO |
. ( saveu(i,L,nt)/usubcl(i,nt) )*sp(i)*tminv |
|
./pkg/fizhi/fizhi_moist.F |
589 |
MOISTIO |
cvu(i,L,nt) = 0.0 |
|
./pkg/fizhi/fizhi_moist.F |
597 |
MOISTIO |
do i=num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
600 |
MOISTIO |
if( cvq(i,L).ne.0.0 ) lras = .true. |
|
./pkg/fizhi/fizhi_moist.F |
602 |
MOISTIO |
psubcld (i) = 0.0 |
|
./pkg/fizhi/fizhi_moist.F |
603 |
MOISTIO |
psubcld_cnt(i) = 0.0 |
|
./pkg/fizhi/fizhi_moist.F |
605 |
MOISTIO |
psubcld (i) = sp(i)+ptop-ple(i,nsubcl) |
|
./pkg/fizhi/fizhi_moist.F |
606 |
MOISTIO |
psubcld_cnt(i) = 1.0 |
|
./pkg/fizhi/fizhi_moist.F |
665 |
MOISTIO |
TMP1(I,L) = sp(i) * (SHL(I,L)-saveq(I,L)) * tminv |
|
./pkg/fizhi/fizhi_moist.F |
670 |
MOISTIO |
TMP1(I,L) = sp(i) * ((TL(I,L)/PLK(I,L))-saveth(i,l)) * tminv |
|
./pkg/fizhi/fizhi_moist.F |
677 |
MOISTIO |
TMP1(I,L) = ((TL(I,L)/PLK(I,L))-saveth(i,l))*plk(i,l)*sday*tminv |
|
./pkg/fizhi/fizhi_moist.F |
695 |
MOISTIO |
do i=1,istrip |
|
./pkg/fizhi/fizhi_moist.F |
696 |
MOISTIO |
srcld(i,L) = -clsbth(i,L) |
|
./pkg/fizhi/fizhi_moist.F |
704 |
MOISTIO |
do i=1,istrip |
|
./pkg/fizhi/fizhi_moist.F |
705 |
MOISTIO |
srcld(i,L) = srcld(i,L)+clsbth(i,L) |
|
./pkg/fizhi/fizhi_moist.F |
720 |
MOISTIO |
do i = 1,istrip |
|
./pkg/fizhi/fizhi_moist.F |
722 |
MOISTIO |
tmp1(i,1) = 0.0 |
|
./pkg/fizhi/fizhi_moist.F |
723 |
MOISTIO |
tmp1(i,2) = 0.0 |
|
./pkg/fizhi/fizhi_moist.F |
724 |
MOISTIO |
tmp1(i,3) = 0.0 |
|
./pkg/fizhi/fizhi_moist.F |
727 |
MOISTIO |
do i = 1,istrip |
|
./pkg/fizhi/fizhi_moist.F |
728 |
MOISTIO |
prep(i) = PRECIP(I) + PCNET(I) |
|
./pkg/fizhi/fizhi_moist.F |
729 |
MOISTIO |
tmp1(i,1) = PRECIP(I) |
|
./pkg/fizhi/fizhi_moist.F |
730 |
MOISTIO |
tmp1(i,2) = pcnet(i) |
|
./pkg/fizhi/fizhi_moist.F |
741 |
MOISTIO |
do i = 1,istrip |
|
./pkg/fizhi/fizhi_moist.F |
744 |
MOISTIO |
if (saveth(i,l)*plk(i,l).le. tice ) then |
|
./pkg/fizhi/fizhi_moist.F |
749 |
MOISTIO |
tmp1(i,3) = prep(i) |
|
./pkg/fizhi/fizhi_moist.F |
750 |
MOISTIO |
tmp1(i,1)=0.0 |
|
./pkg/fizhi/fizhi_moist.F |
751 |
MOISTIO |
tmp1(i,2)=0.0 |
|
./pkg/fizhi/fizhi_moist.F |
824 |
MOISTIO |
do i = 1,im |
|
./pkg/fizhi/fizhi_moist.F |
825 |
MOISTIO |
tmpimjm(i,j) = 1./pz(i,j) |
|
./pkg/fizhi/fizhi_moist.F |
830 |
MOISTIO |
do i = 1,im |
|
./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 |
859 |
MOISTIO |
do i=1,im |
|
./pkg/fizhi/fizhi_moist.F |
860 |
MOISTIO |
tmpdiag(i,j) = cldsr(i,j,L) |
|
./pkg/fizhi/fizhi_moist.F |
872 |
MOISTIO |
do i=1,im |
|
./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 |
886 |
MOISTIO |
do i=1,im |
|
./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 |
899 |
MOISTIO |
do i=1,im |
|
./pkg/fizhi/fizhi_moist.F |
900 |
MOISTIO |
tmpdiag(i,j)=dumoist(i,j,L)*sday |
|
./pkg/fizhi/fizhi_moist.F |
912 |
MOISTIO |
do i=1,im |
|
./pkg/fizhi/fizhi_moist.F |
913 |
MOISTIO |
tmpdiag(i,j)=dvmoist(i,j,L)*sday |
|
./pkg/fizhi/fizhi_moist.F |
925 |
MOISTIO |
do i=1,im |
|
./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 |
939 |
MOISTIO |
do i=1,im |
|
./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 |
953 |
MOISTIO |
do i=1,im |
|
./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 |
967 |
MOISTIO |
do i=1,im |
|
./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 |
980 |
MOISTIO |
do i=1,im |
|
./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 |
992 |
MOISTIO |
do i=1,im |
|
./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 |
104 |
RAYLEIGH |
do i=1,im |
|
./pkg/fizhi/fizhi_rayleigh.F |
105 |
RAYLEIGH |
tmpdiag(i,j) = rfu(i,j,L)*86400 |
|
./pkg/fizhi/fizhi_rayleigh.F |
113 |
RAYLEIGH |
do i=1,im |
|
./pkg/fizhi/fizhi_rayleigh.F |
114 |
RAYLEIGH |
tmpdiag(i,j) = rfv(i,j,L)*86400 |
|
./pkg/fizhi/fizhi_rayleigh.F |
122 |
RAYLEIGH |
do i=1,im |
|
./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 |
66 |
RAYLEIGH |
do i=1,im |
|
./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 |
74 |
RAYLEIGH |
do i=1,im |
|
./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 |
81 |
RAYLEIGH |
do i=1,im |
|
./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 |
89 |
RAYLEIGH |
do i=1,im |
|
./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 |
42 |
FIZHI_READ_PICKUP |
INTEGER i, prec |
|
./pkg/fizhi/fizhi_read_pickup.F |
47 |
FIZHI_READ_PICKUP |
DO i = 1,MAX_LEN_FNAM |
|
./pkg/fizhi/fizhi_read_pickup.F |
48 |
FIZHI_READ_PICKUP |
fn(i:i) = ' ' |
|
./pkg/fizhi/fizhi_read_pickup.F |
77 |
FIZHI_READ_PICKUP |
do i = 1-OLx,sNx+OLx |
|
./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_readwrite_vegtiles.F |
320 |
FIZHI_READ_VEGTILES |
integer i,k,n |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
326 |
FIZHI_READ_VEGTILES |
DO i = 1,80 |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
327 |
FIZHI_READ_VEGTILES |
bnam(i:i) = ' ' |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
48 |
FIZHI_WRITE_VEGTILES |
integer i,k,n |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
56 |
FIZHI_WRITE_VEGTILES |
DO i = 1,80 |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
57 |
FIZHI_WRITE_VEGTILES |
bnam(i:i) = ' ' |
|
./pkg/fizhi/fizhi_step_diag.F |
104 |
FIZHI_STEP_DIAG |
do i=im1,im2 |
|
./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 |
115 |
FIZHI_STEP_DIAG |
do i=im1,im2 |
|
./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 |
130 |
FIZHI_STEP_DIAG |
do i=im1,im2 |
|
./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 |
142 |
FIZHI_STEP_DIAG |
do i=im1,im2 |
|
./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 |
154 |
FIZHI_STEP_DIAG |
do i=im1,im2 |
|
./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 |
169 |
FIZHI_STEP_DIAG |
do i=im1,im2 |
|
./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 |
180 |
FIZHI_STEP_DIAG |
do i=im1,im2 |
|
./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 |
191 |
FIZHI_STEP_DIAG |
do i=im1,im2 |
|
./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 |
207 |
FIZHI_STEP_DIAG |
do i=im1,im2 |
|
./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 |
220 |
FIZHI_STEP_DIAG |
do i=im1,im2 |
|
./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 |
234 |
FIZHI_STEP_DIAG |
do i=im1,im2 |
|
./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 |
248 |
FIZHI_STEP_DIAG |
do i=im1,im2 |
|
./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 |
261 |
FIZHI_STEP_DIAG |
do i=im1,im2 |
|
./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 |
274 |
FIZHI_STEP_DIAG |
do i=im1,im2 |
|
./pkg/fizhi/fizhi_step_diag.F |
275 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = uphy(i,j,L) |
|
./pkg/fizhi/fizhi_step_diag.F |
285 |
FIZHI_STEP_DIAG |
do i=im1,im2 |
|
./pkg/fizhi/fizhi_step_diag.F |
286 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = vphy(i,j,L) |
|
./pkg/fizhi/fizhi_step_diag.F |
296 |
FIZHI_STEP_DIAG |
do i=im1,im2 |
|
./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 |
307 |
FIZHI_STEP_DIAG |
do i=im1,im2 |
|
./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 |
318 |
FIZHI_STEP_DIAG |
do i=im1,im2 |
|
./pkg/fizhi/fizhi_step_diag.F |
319 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = sphy(i,j,L) * 1000. |
|
./pkg/fizhi/fizhi_step_diag.F |
333 |
FIZHI_STEP_DIAG |
do i=im1,im2 |
|
./pkg/fizhi/fizhi_step_diag.F |
334 |
FIZHI_STEP_DIAG |
qbar(i,j) = 0.0 |
|
./pkg/fizhi/fizhi_step_diag.F |
339 |
FIZHI_STEP_DIAG |
do i=im1,im2 |
|
./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 |
346 |
FIZHI_STEP_DIAG |
do i=im1,im2 |
|
./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 |
357 |
FIZHI_STEP_DIAG |
do i=im1,im2 |
|
./pkg/fizhi/fizhi_step_diag.F |
358 |
FIZHI_STEP_DIAG |
qbar(i,j) = 0.0 |
|
./pkg/fizhi/fizhi_step_diag.F |
363 |
FIZHI_STEP_DIAG |
do i=im1,im2 |
|
./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 |
370 |
FIZHI_STEP_DIAG |
do i=im1,im2 |
|
./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 |
381 |
FIZHI_STEP_DIAG |
do i=im1,im2 |
|
./pkg/fizhi/fizhi_step_diag.F |
382 |
FIZHI_STEP_DIAG |
qbar(i,j) = 0.0 |
|
./pkg/fizhi/fizhi_step_diag.F |
387 |
FIZHI_STEP_DIAG |
do i=im1,im2 |
|
./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 |
395 |
FIZHI_STEP_DIAG |
do i=im1,im2 |
|
./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 |
406 |
FIZHI_STEP_DIAG |
do i=im1,im2 |
|
./pkg/fizhi/fizhi_step_diag.F |
407 |
FIZHI_STEP_DIAG |
qbar(i,j) = 0.0 |
|
./pkg/fizhi/fizhi_step_diag.F |
412 |
FIZHI_STEP_DIAG |
do i=im1,im2 |
|
./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 |
419 |
FIZHI_STEP_DIAG |
do i=im1,im2 |
|
./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 |
432 |
FIZHI_STEP_DIAG |
do i=im1,im2 |
|
./pkg/fizhi/fizhi_step_diag.F |
433 |
FIZHI_STEP_DIAG |
qbar(i,j) = 0.0 |
|
./pkg/fizhi/fizhi_step_diag.F |
438 |
FIZHI_STEP_DIAG |
do i=im1,im2 |
|
./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 |
445 |
FIZHI_STEP_DIAG |
do i=im1,im2 |
|
./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 |
53 |
FIZHI_STEP_DIAG |
do i=im1,im2 |
|
./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 |
71 |
FIZHI_STEP_DIAG |
do i=im1,im2 |
|
./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 |
82 |
FIZHI_STEP_DIAG |
do i=im1,im2 |
|
./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 |
93 |
FIZHI_STEP_DIAG |
do i=im1,im2 |
|
./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 |
1034 |
CLDSCALE |
do i=1,m |
|
./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 |
1043 |
CLDSCALE |
do i=1,m |
|
./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 |
1051 |
CLDSCALE |
do i=1,m |
|
./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 |
1059 |
CLDSCALE |
do i=1,m |
|
./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 |
1080 |
CLDSCALE |
do i=1,m |
|
./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 |
116 |
SWRIO |
do i=1,im |
|
./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 |
1322 |
SOLIR |
do i= 1, m |
|
./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 |
1348 |
SOLIR |
do i= 1, m |
|
./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 |
1375 |
SOLIR |
do i=1,m |
|
./pkg/fizhi/fizhi_swrad.F |
1376 |
SOLIR |
ssacl(i,j,k)=ssaclt(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1380 |
SOLIR |
do i=1,m |
|
./pkg/fizhi/fizhi_swrad.F |
1381 |
SOLIR |
asycl(i,j,k)=asyclt(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1394 |
SOLIR |
do i= 1, m |
|
./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 |
1468 |
SOLIR |
do i=1,m |
|
./pkg/fizhi/fizhi_swrad.F |
1469 |
SOLIR |
rr(i,j,k,1)=rr1t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1473 |
SOLIR |
do i=1,m |
|
./pkg/fizhi/fizhi_swrad.F |
1474 |
SOLIR |
tt(i,j,k,1)=tt1t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1478 |
SOLIR |
do i=1,m |
|
./pkg/fizhi/fizhi_swrad.F |
1479 |
SOLIR |
td(i,j,k,1)=td1t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1483 |
SOLIR |
do i=1,m |
|
./pkg/fizhi/fizhi_swrad.F |
1484 |
SOLIR |
rs(i,j,k,1)=rs1t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1488 |
SOLIR |
do i=1,m |
|
./pkg/fizhi/fizhi_swrad.F |
1489 |
SOLIR |
ts(i,j,k,1)=ts1t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1494 |
SOLIR |
do i=1,m |
|
./pkg/fizhi/fizhi_swrad.F |
1495 |
SOLIR |
rr(i,j,k,2)=rr2t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1499 |
SOLIR |
do i=1,m |
|
./pkg/fizhi/fizhi_swrad.F |
1500 |
SOLIR |
tt(i,j,k,2)=tt2t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1504 |
SOLIR |
do i=1,m |
|
./pkg/fizhi/fizhi_swrad.F |
1505 |
SOLIR |
td(i,j,k,2)=td2t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1509 |
SOLIR |
do i=1,m |
|
./pkg/fizhi/fizhi_swrad.F |
1510 |
SOLIR |
rs(i,j,k,2)=rs2t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1514 |
SOLIR |
do i=1,m |
|
./pkg/fizhi/fizhi_swrad.F |
1515 |
SOLIR |
ts(i,j,k,2)=ts2t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
151 |
SWRIO |
do i = 1,im |
|
./pkg/fizhi/fizhi_swrad.F |
1525 |
SOLIR |
do i= 1, m |
|
./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 |
1532 |
SOLIR |
do i= 1, m |
|
./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 |
1543 |
SOLIR |
do i= 1, m |
|
./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 |
1548 |
SOLIR |
do i= 1, m |
|
./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 |
1555 |
SOLIR |
do i= 1, m |
|
./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 |
1676 |
SOLUV |
integer i,j,k,ib |
|
./pkg/fizhi/fizhi_swrad.F |
167 |
SWRIO |
do i =1,im |
|
./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 |
1720 |
SOLUV |
do i= 1, m |
|
./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 |
1740 |
SOLUV |
do i= 1, m |
|
./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 |
1760 |
SOLUV |
do i=1,m |
|
./pkg/fizhi/fizhi_swrad.F |
1761 |
SOLUV |
asycl(i,j,k)=asyclt(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1768 |
SOLUV |
do i=1,m |
|
./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 |
1781 |
SOLUV |
do i= 1, m |
|
./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 |
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 |
179 |
SWRIO |
do i =1,im |
|
./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 |
183 |
SWRIO |
swlz(i,j,L)=swlz(i,j,L)+qliqave(i,j,L)/imstturb |
|
./pkg/fizhi/fizhi_swrad.F |
1840 |
SOLUV |
do i=1,m |
|
./pkg/fizhi/fizhi_swrad.F |
1841 |
SOLUV |
rr(i,j,k,1)=rr1t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1845 |
SOLUV |
do i=1,m |
|
./pkg/fizhi/fizhi_swrad.F |
1846 |
SOLUV |
tt(i,j,k,1)=tt1t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1850 |
SOLUV |
do i=1,m |
|
./pkg/fizhi/fizhi_swrad.F |
1851 |
SOLUV |
td(i,j,k,1)=td1t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1855 |
SOLUV |
do i=1,m |
|
./pkg/fizhi/fizhi_swrad.F |
1856 |
SOLUV |
rs(i,j,k,1)=rs1t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1860 |
SOLUV |
do i=1,m |
|
./pkg/fizhi/fizhi_swrad.F |
1861 |
SOLUV |
ts(i,j,k,1)=ts1t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1866 |
SOLUV |
do i=1,m |
|
./pkg/fizhi/fizhi_swrad.F |
1867 |
SOLUV |
rr(i,j,k,2)=rr2t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1871 |
SOLUV |
do i=1,m |
|
./pkg/fizhi/fizhi_swrad.F |
1872 |
SOLUV |
tt(i,j,k,2)=tt2t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1876 |
SOLUV |
do i=1,m |
|
./pkg/fizhi/fizhi_swrad.F |
1877 |
SOLUV |
td(i,j,k,2)=td2t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1881 |
SOLUV |
do i=1,m |
|
./pkg/fizhi/fizhi_swrad.F |
1882 |
SOLUV |
rs(i,j,k,2)=rs2t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1886 |
SOLUV |
do i=1,m |
|
./pkg/fizhi/fizhi_swrad.F |
1887 |
SOLUV |
ts(i,j,k,2)=ts2t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1897 |
SOLUV |
do i= 1, m |
|
./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 |
1904 |
SOLUV |
do i= 1, m |
|
./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 |
190 |
SWRIO |
do i =1,im |
|
./pkg/fizhi/fizhi_swrad.F |
1914 |
SOLUV |
do i= 1, m |
|
./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 |
1919 |
SOLUV |
do i= 1, m |
|
./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 |
1927 |
SOLUV |
do i=1,m |
|
./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 |
1934 |
SOLUV |
do i=1,m |
|
./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 |
203 |
SWRIO |
do i = 1,im |
|
./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 |
2220 |
CLDFLX |
do i=1,m |
|
./pkg/fizhi/fizhi_swrad.F |
2221 |
CLDFLX |
fall(i,j,k)=0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
2227 |
CLDFLX |
do i=1,m |
|
./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 |
223 |
SWRIO |
do i = 1,im |
|
./pkg/fizhi/fizhi_swrad.F |
2248 |
CLDFLX |
do i= 1, m |
|
./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 |
225 |
SWRIO |
. * (1.-cldmid(i,j)) |
|
./pkg/fizhi/fizhi_swrad.F |
2260 |
CLDFLX |
do i= 1, m |
|
./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 |
2281 |
CLDFLX |
do i= 1, m |
|
./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 |
2306 |
CLDFLX |
do i= 1, m |
|
./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 |
2316 |
CLDFLX |
do i= 1, m |
|
./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 |
2334 |
CLDFLX |
do i= 1, m |
|
./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 |
2355 |
CLDFLX |
do i=1,m |
|
./pkg/fizhi/fizhi_swrad.F |
2356 |
CLDFLX |
ch(i,j)=1.0-cc(i,j,1) |
|
./pkg/fizhi/fizhi_swrad.F |
2365 |
CLDFLX |
do i=1,m |
|
./pkg/fizhi/fizhi_swrad.F |
2366 |
CLDFLX |
ch(i,j)=cc(i,j,1) |
|
./pkg/fizhi/fizhi_swrad.F |
2379 |
CLDFLX |
do i=1,m |
|
./pkg/fizhi/fizhi_swrad.F |
2380 |
CLDFLX |
cm(i,j)=ch(i,j)*(1.0-cc(i,j,2)) |
|
./pkg/fizhi/fizhi_swrad.F |
2389 |
CLDFLX |
do i=1,m |
|
./pkg/fizhi/fizhi_swrad.F |
2390 |
CLDFLX |
cm(i,j)=ch(i,j)*cc(i,j,2) |
|
./pkg/fizhi/fizhi_swrad.F |
2403 |
CLDFLX |
do i=1,m |
|
./pkg/fizhi/fizhi_swrad.F |
2404 |
CLDFLX |
ct(i,j)=cm(i,j)*(1.0-cc(i,j,3)) |
|
./pkg/fizhi/fizhi_swrad.F |
2413 |
CLDFLX |
do i=1,m |
|
./pkg/fizhi/fizhi_swrad.F |
2414 |
CLDFLX |
ct(i,j)=cm(i,j)*cc(i,j,3) |
|
./pkg/fizhi/fizhi_swrad.F |
241 |
SWRIO |
do i=1,im |
|
./pkg/fizhi/fizhi_swrad.F |
2424 |
CLDFLX |
do i= 1, m |
|
./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 |
2440 |
CLDFLX |
do i= 1, m |
|
./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 |
2458 |
CLDFLX |
do i=1, m |
|
./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 |
2470 |
CLDFLX |
do i=1, m |
|
./pkg/fizhi/fizhi_swrad.F |
2471 |
CLDFLX |
flxdn(i,j,1)=1.0-rra(i,j,1,im,is) |
|
./pkg/fizhi/fizhi_swrad.F |
2479 |
CLDFLX |
do i=1,m |
|
./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 |
2489 |
CLDFLX |
do i=1,m |
|
./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 |
2522 |
FLXCO2 |
integer i,j,k,ic,iw |
|
./pkg/fizhi/fizhi_swrad.F |
252 |
SWRIO |
do i=1,im |
|
./pkg/fizhi/fizhi_swrad.F |
2538 |
FLXCO2 |
do i= 1, m |
|
./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 |
275 |
SWRIO |
do i=1,im |
|
./pkg/fizhi/fizhi_swrad.F |
276 |
SWRIO |
tmpdiag(i,j) = swlz(i,j,L) * 1.0e6 |
|
./pkg/fizhi/fizhi_swrad.F |
310 |
SWRIO |
do i = 1,im |
|
./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 |
320 |
SWRIO |
do i=1,im |
|
./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 |
332 |
SWRIO |
do i=1,im |
|
./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 |
352 |
SWRIO |
do i = 1,im |
|
./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 |
371 |
SWRIO |
do i = 1,im |
|
./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 |
390 |
SWRIO |
do i = 1,im |
|
./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 |
437 |
SWRIO |
do i= 1,istrip |
|
./pkg/fizhi/fizhi_swrad.F |
438 |
SWRIO |
alf = min( max((tzl(i,l)-253.15)/20.,0. _d 0) ,1. _d 0) |
|
./pkg/fizhi/fizhi_swrad.F |
439 |
SWRIO |
taua(i,L) = 0. |
|
./pkg/fizhi/fizhi_swrad.F |
442 |
SWRIO |
tauc(i,L,1) = taul(i,L)/(1.+alf/(1-alf) * (reffi/reffw*0.80) ) |
|
./pkg/fizhi/fizhi_swrad.F |
443 |
SWRIO |
tauc(i,L,2) = taul(i,L)/(1.+(1-alf)/alf * (reffw/reffi*1.25) ) |
|
./pkg/fizhi/fizhi_swrad.F |
447 |
SWRIO |
tauc(i,L,1) = taul(i,L) |
|
./pkg/fizhi/fizhi_swrad.F |
448 |
SWRIO |
tauc(i,L,2) = 0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
452 |
SWRIO |
tauc(i,L,1) = 0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
453 |
SWRIO |
tauc(i,L,2) = taul(i,L) |
|
./pkg/fizhi/fizhi_swrad.F |
456 |
SWRIO |
reff(i,L,1) = reffi |
|
./pkg/fizhi/fizhi_swrad.F |
457 |
SWRIO |
reff(i,L,2) = reffw |
|
./pkg/fizhi/fizhi_swrad.F |
472 |
SWRIO |
do i=1,istrip |
|
./pkg/fizhi/fizhi_swrad.F |
473 |
SWRIO |
alf = grav*(ple(i,Lm+1)-ptop)/(cp*dpstrip(i,L)*100) |
|
./pkg/fizhi/fizhi_swrad.F |
474 |
SWRIO |
dtsw (i,L) = alf*( flux (i,L)-flux (i,L+1) )/pk(i,L) |
|
./pkg/fizhi/fizhi_swrad.F |
475 |
SWRIO |
dtswc(i,L) = alf*( fluxclr(i,L)-fluxclr(i,L+1) )/pk(i,L) |
|
./pkg/fizhi/fizhi_swrad.F |
493 |
SWRIO |
do i=1,istrip |
|
./pkg/fizhi/fizhi_swrad.F |
494 |
SWRIO |
if( cosz(i).gt.0.0 ) then |
|
./pkg/fizhi/fizhi_swrad.F |
495 |
SWRIO |
tstrip(i) = 1.0 - flux(i,lm+1)/ |
|
./pkg/fizhi/fizhi_swrad.F |
496 |
SWRIO |
. ( fdirir(i)+fdifir(i)+dirpar(i)+difpar(i) + fdiruv(i)+fdifuv(i) ) |
|
./pkg/fizhi/fizhi_swrad.F |
497 |
SWRIO |
if( tstrip(i).lt.0.0 ) tstrip(i) = undef |
|
./pkg/fizhi/fizhi_swrad.F |
499 |
SWRIO |
tstrip(i) = undef |
|
./pkg/fizhi/fizhi_swrad.F |
513 |
SWRIO |
do i=1,im |
|
./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 |
538 |
SWRIO |
do i = 1,im |
|
./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 |
597 |
OPTHK |
do i=1,im |
|
./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 |
796 |
SORAD |
do i= 1, m |
|
./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 |
812 |
SORAD |
do i= 1, m |
|
./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 |
849 |
SORAD |
do i=1, m |
|
./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 |
872 |
SORAD |
do i= 1, m |
|
./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 |
884 |
SORAD |
do i= 1, m |
|
./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 |
895 |
SORAD |
do i= 1, m |
|
./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 |
910 |
SORAD |
do i= 1, m |
|
./pkg/fizhi/fizhi_swrad.F |
911 |
SORAD |
flc(i,j,k)=flc(i,j,k)-df(i,j,k) |
|
./pkg/fizhi/fizhi_swrad.F |
921 |
SORAD |
do i=1,m |
|
./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 |
929 |
SORAD |
do i=1,m |
|
./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 |
946 |
SORAD |
do i= 1, m |
|
./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 |
139 |
FIZHI_TENDENCY_APPLY_V |
DO i=iMin,iMax |
|
./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 |
149 |
FIZHI_TENDENCY_APPLY_V |
DO i=iMin,iMax |
|
./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 |
161 |
FIZHI_TENDENCY_APPLY_V |
DO i=iMin,iMax |
|
./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 |
224 |
FIZHI_TENDENCY_APPLY_T |
DO i=iMin,iMax |
|
./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 |
242 |
FIZHI_TENDENCY_APPLY_T |
DO i=iMin,iMax |
|
./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 |
262 |
FIZHI_TENDENCY_APPLY_T |
DO i=iMin,iMax |
|
./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 |
323 |
FIZHI_TENDENCY_APPLY_S |
DO i=iMin,iMax |
|
./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 |
331 |
FIZHI_TENDENCY_APPLY_S |
DO i=iMin,iMax |
|
./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 |
56 |
FIZHI_TENDENCY_APPLY_U |
DO i=iMin,iMax |
|
./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 |
66 |
FIZHI_TENDENCY_APPLY_U |
DO i=iMin,iMax |
|
./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 |
78 |
FIZHI_TENDENCY_APPLY_U |
DO i=iMin,iMax |
|
./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_turb.F |
1036 |
TURBIO |
do i=1,istrip |
|
./pkg/fizhi/fizhi_turb.F |
1037 |
TURBIO |
if( stq2m(i).ne.undef ) then |
|
./pkg/fizhi/fizhi_turb.F |
1038 |
TURBIO |
tmpstrip(i) = stq2m(i) * 1000 |
|
./pkg/fizhi/fizhi_turb.F |
1040 |
TURBIO |
tmpstrip(i) = undef |
|
./pkg/fizhi/fizhi_turb.F |
1059 |
TURBIO |
do i=1,istrip |
|
./pkg/fizhi/fizhi_turb.F |
1060 |
TURBIO |
if( stq10m(i).ne.undef ) then |
|
./pkg/fizhi/fizhi_turb.F |
1061 |
TURBIO |
tmpstrip(i) = stq10m(i) * 1000 |
|
./pkg/fizhi/fizhi_turb.F |
1063 |
TURBIO |
tmpstrip(i) = undef |
|
./pkg/fizhi/fizhi_turb.F |
1116 |
TURBIO |
do i =1,nchptot |
|
./pkg/fizhi/fizhi_turb.F |
1117 |
TURBIO |
if( (icethk(i).gt.0.).and.(tground(i).gt.tice) ) tground(i)=tice |
|
./pkg/fizhi/fizhi_turb.F |
1123 |
TURBIO |
do i =1,nchptot |
|
./pkg/fizhi/fizhi_turb.F |
1124 |
TURBIO |
tcanopy(i) = tground(i) |
|
./pkg/fizhi/fizhi_turb.F |
1125 |
TURBIO |
ecanopy(i) = qground(i) |
|
./pkg/fizhi/fizhi_turb.F |
1131 |
TURBIO |
do i = 1,ijall |
|
./pkg/fizhi/fizhi_turb.F |
1132 |
TURBIO |
duturb(i,1,L) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
1133 |
TURBIO |
dvturb(i,1,L) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
1134 |
TURBIO |
dtturb(i,1,L) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
1135 |
TURBIO |
qqgrid(i,1,L) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
1136 |
TURBIO |
qliqtmp(i,1,L) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
1137 |
TURBIO |
fcctmp(i,1,L) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
1140 |
TURBIO |
do i = 1,ijall |
|
./pkg/fizhi/fizhi_turb.F |
1141 |
TURBIO |
dqturb(i,1,L,nt) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
1175 |
TURBIO |
do i = 1,ijall |
|
./pkg/fizhi/fizhi_turb.F |
1176 |
TURBIO |
fccavesw(i,1,L) = fccavesw(i,1,L) + fcctmp(i,1,L) |
|
./pkg/fizhi/fizhi_turb.F |
1177 |
TURBIO |
fccavelw(i,1,L) = fccavelw(i,1,L) + fcctmp(i,1,L) |
|
./pkg/fizhi/fizhi_turb.F |
1178 |
TURBIO |
qliqavelw(i,1,L) = qliqavelw(i,1,L) + qliqtmp(i,1,L) |
|
./pkg/fizhi/fizhi_turb.F |
1179 |
TURBIO |
qliqavesw(i,1,L) = qliqavesw(i,1,L) + qliqtmp(i,1,L) |
|
./pkg/fizhi/fizhi_turb.F |
1189 |
TURBIO |
do i = 1,ijall |
|
./pkg/fizhi/fizhi_turb.F |
1190 |
TURBIO |
tgz(i,1) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
1203 |
TURBIO |
do i = 1,ijall |
|
./pkg/fizhi/fizhi_turb.F |
1204 |
TURBIO |
tmpdiag(i,1) = tz(i,1,nlay) * pkht(i,1,nlay) |
|
./pkg/fizhi/fizhi_turb.F |
1225 |
TURBIO |
do i = 1,ijall |
|
./pkg/fizhi/fizhi_turb.F |
1226 |
TURBIO |
tmpdiag(i,1) = dtturb(i,1,l) * pkz(i,1,l)*atimstp*secday |
|
./pkg/fizhi/fizhi_turb.F |
1234 |
TURBIO |
do i =1,ijall |
|
./pkg/fizhi/fizhi_turb.F |
1235 |
TURBIO |
thtgz(i) = pz(i,1) * atimstp |
|
./pkg/fizhi/fizhi_turb.F |
1238 |
TURBIO |
do i =1,ijall |
|
./pkg/fizhi/fizhi_turb.F |
1239 |
TURBIO |
duturb(i,1,l) = duturb(i,1,l)*atimstp |
|
./pkg/fizhi/fizhi_turb.F |
1240 |
TURBIO |
dvturb(i,1,l) = dvturb(i,1,l)*atimstp |
|
./pkg/fizhi/fizhi_turb.F |
1241 |
TURBIO |
dtturb(i,1,l) = dtturb(i,1,l)*thtgz(i) |
|
./pkg/fizhi/fizhi_turb.F |
1244 |
TURBIO |
do i =1,ijall |
|
./pkg/fizhi/fizhi_turb.F |
1245 |
TURBIO |
dqturb(i,1,l,nt) = dqturb(i,1,l,nt)*thtgz(i) |
|
./pkg/fizhi/fizhi_turb.F |
1255 |
TURBIO |
do i =1,ijall |
|
./pkg/fizhi/fizhi_turb.F |
1256 |
TURBIO |
rainlsp(i,1) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
1257 |
TURBIO |
rainconv(i,1) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
1258 |
TURBIO |
snowfall(i,1) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
1443 |
TRBFLX |
integer i,iter,init,n,LL,L,Lp,Lp1,lmin,lminq,lminq1,ibit |
|
./pkg/fizhi/fizhi_turb.F |
1493 |
TRBFLX |
scu(i) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
1496 |
TRBFLX |
sct(i) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
1499 |
TRBFLX |
pbldpth(i) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
1502 |
TRBFLX |
sustar(i) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
1505 |
TRBFLX |
sz0(i) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
1511 |
TRBFLX |
stu2m(i) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
1514 |
TRBFLX |
stv2m(i) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
1517 |
TRBFLX |
stt2m(i) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
1520 |
TRBFLX |
stq2m(i) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
1523 |
TRBFLX |
stu10m(i) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
1526 |
TRBFLX |
stv10m(i) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
1529 |
TRBFLX |
stt10m(i) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
1532 |
TRBFLX |
stq10m(i) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
1718 |
TRBFLX |
call QSAT ( tl(i,nlev),pl(i,nlev),shsat(i,nlev),dum,.false. ) |
|
./pkg/fizhi/fizhi_turb.F |
1745 |
TRBFLX |
1 ( TH(I,NLEV) + CLH * SHL(I,NLEV) * (1./plk(i,nlev)) ) |
|
./pkg/fizhi/fizhi_turb.F |
1747 |
TRBFLX |
1 * (1./plk(i,nlev)) * CLH - VRT1CON * TH(I,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
1820 |
TRBFLX |
call QSAT ( tl(i,LL),pl(i,LL),shsat(i,LL),dum,.false. ) |
|
./pkg/fizhi/fizhi_turb.F |
1871 |
TRBFLX |
1 BB(I,L)*plk(i,L) * FCC(I,L) * BETAL(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2065 |
TRBFLX |
do i = 1,irun |
|
./pkg/fizhi/fizhi_turb.F |
2069 |
TRBFLX |
if(pl(i,L).le.150.) then |
|
./pkg/fizhi/fizhi_turb.F |
2070 |
TRBFLX |
qxlm(i,L) = min(qxlm(i,L),5. _d 0) |
|
./pkg/fizhi/fizhi_turb.F |
2122 |
TRBFLX |
do i = 1,irun |
|
./pkg/fizhi/fizhi_turb.F |
2127 |
TRBFLX |
if(pl(i,L).le.150.) then |
|
./pkg/fizhi/fizhi_turb.F |
2128 |
TRBFLX |
kh(i,L) = min(kh(i,L),5. _d 0) |
|
./pkg/fizhi/fizhi_turb.F |
2129 |
TRBFLX |
km(i,L) = min(km(i,L),5. _d 0) |
|
./pkg/fizhi/fizhi_turb.F |
2146 |
TRBFLX |
do i = 1,irun |
|
./pkg/fizhi/fizhi_turb.F |
2147 |
TRBFLX |
hsturb(i) = -1.* dths(i) |
|
./pkg/fizhi/fizhi_turb.F |
2148 |
TRBFLX |
dhsdtc(i) = -1.* delths(i) |
|
./pkg/fizhi/fizhi_turb.F |
2151 |
TRBFLX |
do i = 1,irun |
|
./pkg/fizhi/fizhi_turb.F |
2152 |
TRBFLX |
dthdthg(i,L) = delth(i,L) |
|
./pkg/fizhi/fizhi_turb.F |
2156 |
TRBFLX |
do i = 1,irun |
|
./pkg/fizhi/fizhi_turb.F |
2157 |
TRBFLX |
transth(i,L) = temp(i,L) |
|
./pkg/fizhi/fizhi_turb.F |
2173 |
TRBFLX |
do i = 1,irun |
|
./pkg/fizhi/fizhi_turb.F |
2174 |
TRBFLX |
eturb(i) = -1.* dthl(i) |
|
./pkg/fizhi/fizhi_turb.F |
2175 |
TRBFLX |
dedqa(i) = -1.* delthl(i) |
|
./pkg/fizhi/fizhi_turb.F |
2178 |
TRBFLX |
do i = 1,irun |
|
./pkg/fizhi/fizhi_turb.F |
2179 |
TRBFLX |
dshdshg(i,L) = delsh(i,L) |
|
./pkg/fizhi/fizhi_turb.F |
2183 |
TRBFLX |
do i = 1,irun |
|
./pkg/fizhi/fizhi_turb.F |
2184 |
TRBFLX |
transsh(i,L) = rhokdz(i,L) |
|
./pkg/fizhi/fizhi_turb.F |
2190 |
TRBFLX |
do i = 1,irun |
|
./pkg/fizhi/fizhi_turb.F |
2191 |
TRBFLX |
rhokdz(i,nlev) = 0.0 |
|
./pkg/fizhi/fizhi_turb.F |
2227 |
TRBFLX |
do i = 1,irun |
|
./pkg/fizhi/fizhi_turb.F |
2228 |
TRBFLX |
qqcolmin(i) = qq(i,nlev)*0.1 |
|
./pkg/fizhi/fizhi_turb.F |
2229 |
TRBFLX |
qqcolmax(i) = qq(i,nlev) |
|
./pkg/fizhi/fizhi_turb.F |
2230 |
TRBFLX |
levpbl(i) = nlev |
|
./pkg/fizhi/fizhi_turb.F |
2234 |
TRBFLX |
IF ( (qq(i,l).gt.qqcolmax(I)).and.(levpbl(i).eq.nlev))then |
|
./pkg/fizhi/fizhi_turb.F |
2235 |
TRBFLX |
qqcolmax(i) = qq(i,l) |
|
./pkg/fizhi/fizhi_turb.F |
2236 |
TRBFLX |
qqcolmin(i) = 0.1*qqcolmax(I) |
|
./pkg/fizhi/fizhi_turb.F |
2238 |
TRBFLX |
if((qq(i,l).lt.qqcolmin(i)).and.(levpbl(i).eq.nlev)) |
|
./pkg/fizhi/fizhi_turb.F |
2239 |
TRBFLX |
1 levpbl(i)=l |
|
./pkg/fizhi/fizhi_turb.F |
2242 |
TRBFLX |
do i = 1,irun |
|
./pkg/fizhi/fizhi_turb.F |
2243 |
TRBFLX |
lp = levpbl(i) |
|
./pkg/fizhi/fizhi_turb.F |
2246 |
TRBFLX |
1 ( (ple(i,lp+2)-ple(i,lp+1))*(qq(i,lp+1)-qqcolmin(i)) |
|
./pkg/fizhi/fizhi_turb.F |
2247 |
TRBFLX |
2 / (qq(i,lp+1)-qq(i,lp)) ) ) * aitr |
|
./pkg/fizhi/fizhi_turb.F |
2250 |
TRBFLX |
1 ( (ple(i,2)-ple(i,1))*(qq(i,1)-qqcolmin(i)) |
|
./pkg/fizhi/fizhi_turb.F |
2251 |
TRBFLX |
2 / qq(i,1) ) ) * aitr |
|
./pkg/fizhi/fizhi_turb.F |
2254 |
TRBFLX |
do i=1,irun |
|
./pkg/fizhi/fizhi_turb.F |
2255 |
TRBFLX |
sustar(i) = sustar(i) + aitr*ustar(i) |
|
./pkg/fizhi/fizhi_turb.F |
2257 |
TRBFLX |
do i=1,irun |
|
./pkg/fizhi/fizhi_turb.F |
2258 |
TRBFLX |
sz0(i) = sz0(i) + aitr*z0(i) |
|
./pkg/fizhi/fizhi_turb.F |
2417 |
SFCFLX |
integer i,iter |
|
./pkg/fizhi/fizhi_turb.F |
2451 |
SFCFLX |
do i = 1,irun |
|
./pkg/fizhi/fizhi_turb.F |
2452 |
SFCFLX |
vh0(i) = h0byz0 * vz0(i) |
|
./pkg/fizhi/fizhi_turb.F |
2453 |
SFCFLX |
if(vz0(i).ge.z0vegm)vh0(i) = h0veg |
|
./pkg/fizhi/fizhi_turb.F |
2495 |
SFCFLX |
vh0(i) = h0byz0 * vz0(i) |
|
./pkg/fizhi/fizhi_turb.F |
250 |
TURBIO |
integer istnp1,istnlay,itrtrb,i,L,nn,nt |
|
./pkg/fizhi/fizhi_turb.F |
2539 |
SFCFLX |
vh0(i) = h0byz0 * vz0(i) |
|
./pkg/fizhi/fizhi_turb.F |
2572 |
SFCFLX |
vh0(i) = h0byz0 * vz0(i) |
|
./pkg/fizhi/fizhi_turb.F |
2641 |
SFCFLX |
vh0(i) = h0byz0 * vz0(i) |
|
./pkg/fizhi/fizhi_turb.F |
2694 |
SFCFLX |
do i = 1,irun |
|
./pkg/fizhi/fizhi_turb.F |
2695 |
SFCFLX |
vtemp(i) = 2. * vahs(i) * vzeta(i) |
|
./pkg/fizhi/fizhi_turb.F |
2696 |
SFCFLX |
vzh(i) = vz0(i) * 0.5 |
|
./pkg/fizhi/fizhi_turb.F |
2697 |
SFCFLX |
if(vz0(i).ge.2.)vzh(i) = 0.9 |
|
./pkg/fizhi/fizhi_turb.F |
2700 |
SFCFLX |
do i = 1,irun |
|
./pkg/fizhi/fizhi_turb.F |
2701 |
SFCFLX |
stu2m(i) = (psimdiag(i)/vpsim(i) * vus(i)) |
|
./pkg/fizhi/fizhi_turb.F |
2702 |
SFCFLX |
stv2m(i) = (psimdiag(i)/vpsim(i) * vvs(i)) |
|
./pkg/fizhi/fizhi_turb.F |
2703 |
SFCFLX |
stt2m(i) = ( (vth2(i) + ((psihdiag(i)+vpsig(i))/vpsihg(i))* |
|
./pkg/fizhi/fizhi_turb.F |
2704 |
SFCFLX |
1 (vth1(i)-vth2(i))) ) * vpke(i) |
|
./pkg/fizhi/fizhi_turb.F |
2705 |
SFCFLX |
stq2m(i) = (vsh2(i) + ((psihdiag(i)+vpsig(i))/vpsihg(i))* |
|
./pkg/fizhi/fizhi_turb.F |
2706 |
SFCFLX |
1 (vsh1(i)-vsh2(i))) |
|
./pkg/fizhi/fizhi_turb.F |
2707 |
SFCFLX |
if(vz0(i).ge.2.)then |
|
./pkg/fizhi/fizhi_turb.F |
2708 |
SFCFLX |
stu2m(i) = UNDEF |
|
./pkg/fizhi/fizhi_turb.F |
2709 |
SFCFLX |
stv2m(i) = UNDEF |
|
./pkg/fizhi/fizhi_turb.F |
2710 |
SFCFLX |
stt2m(i) = UNDEF |
|
./pkg/fizhi/fizhi_turb.F |
2711 |
SFCFLX |
stq2m(i) = UNDEF |
|
./pkg/fizhi/fizhi_turb.F |
2714 |
SFCFLX |
do i = 1,irun |
|
./pkg/fizhi/fizhi_turb.F |
2715 |
SFCFLX |
vtemp(i) = 10. * vahs(i) * vzeta(i) |
|
./pkg/fizhi/fizhi_turb.F |
2716 |
SFCFLX |
vzh(i) = vz0(i) * 0.1 |
|
./pkg/fizhi/fizhi_turb.F |
2719 |
SFCFLX |
do i = 1,irun |
|
./pkg/fizhi/fizhi_turb.F |
2720 |
SFCFLX |
stu10m(i) = (psimdiag(i)/vpsim(i) * vus(i)) |
|
./pkg/fizhi/fizhi_turb.F |
2721 |
SFCFLX |
stv10m(i) = (psimdiag(i)/vpsim(i) * vvs(i)) |
|
./pkg/fizhi/fizhi_turb.F |
2722 |
SFCFLX |
stt10m(i) = ( (vth2(i) + ((psihdiag(i)+vpsig(i))/vpsihg(i))* |
|
./pkg/fizhi/fizhi_turb.F |
2723 |
SFCFLX |
1 (vth1(i)-vth2(i))) ) * vpke(i) |
|
./pkg/fizhi/fizhi_turb.F |
2724 |
SFCFLX |
stq10m(i) = (vsh2(i) + ((psihdiag(i)+vpsig(i))/vpsihg(i))* |
|
./pkg/fizhi/fizhi_turb.F |
2725 |
SFCFLX |
1 (vsh1(i)-vsh2(i))) |
|
./pkg/fizhi/fizhi_turb.F |
2947 |
PHI |
integer ibit1,ibit2,i |
|
./pkg/fizhi/fizhi_turb.F |
2984 |
PHI |
if( z(i).ge.0.15 ) then |
|
./pkg/fizhi/fizhi_turb.F |
2996 |
PHI |
if( z(i).ge.0.15 ) then |
|
./pkg/fizhi/fizhi_turb.F |
3084 |
PSI |
integer i |
|
./pkg/fizhi/fizhi_turb.F |
328 |
TURBIO |
do i = 1,ijall |
|
./pkg/fizhi/fizhi_turb.F |
329 |
TURBIO |
tmpdiag(i,1) = st4(i,1) + dst4(i,1)*(tgz(i,1)-tempref(i,1)) |
|
./pkg/fizhi/fizhi_turb.F |
330 |
TURBIO |
1 - dst4(i,1)* tgz(i,1) |
|
./pkg/fizhi/fizhi_turb.F |
333 |
TURBIO |
do i = 1,ijall |
|
./pkg/fizhi/fizhi_turb.F |
334 |
TURBIO |
tmpdiag(i,1) = dst4(i,1) |
|
./pkg/fizhi/fizhi_turb.F |
337 |
TURBIO |
do i = 1,ijall |
|
./pkg/fizhi/fizhi_turb.F |
338 |
TURBIO |
tmpdiag(i,1) = fdifpar(i,1) * radswt(i,1) |
|
./pkg/fizhi/fizhi_turb.F |
3407 |
TRBLEN |
integer i,L,LL |
|
./pkg/fizhi/fizhi_turb.F |
341 |
TURBIO |
do i = 1,ijall |
|
./pkg/fizhi/fizhi_turb.F |
342 |
TURBIO |
tmpdiag(i,1) = fdirpar(i,1) * radswt(i,1) |
|
./pkg/fizhi/fizhi_turb.F |
345 |
TURBIO |
do i = 1,ijall |
|
./pkg/fizhi/fizhi_turb.F |
346 |
TURBIO |
tmpdiag(i,1) = radswg(i,1) * radswt(i,1) |
|
./pkg/fizhi/fizhi_turb.F |
349 |
TURBIO |
do i = 1,ijall |
|
./pkg/fizhi/fizhi_turb.F |
350 |
TURBIO |
tmpdiag(i,1) = radlwg(i,1) + dst4(i,1)*(tgz(i,1)-tempref(i,1)) |
|
./pkg/fizhi/fizhi_turb.F |
369 |
TURBIO |
do i = 1,nchptot |
|
./pkg/fizhi/fizhi_turb.F |
370 |
TURBIO |
water(i) = 0 |
|
./pkg/fizhi/fizhi_turb.F |
371 |
TURBIO |
if((ityp(i).eq.100).and.(icethk(i).eq.0. ))water(i) = 1 |
|
./pkg/fizhi/fizhi_turb.F |
3759 |
TRBL20 |
integer i |
|
./pkg/fizhi/fizhi_turb.F |
376 |
TURBIO |
do i =1,nchptot |
|
./pkg/fizhi/fizhi_turb.F |
377 |
TURBIO |
if (icethk(i).gt.0.) then |
|
./pkg/fizhi/fizhi_turb.F |
378 |
TURBIO |
z0(i) = 1.e-4 |
|
./pkg/fizhi/fizhi_turb.F |
379 |
TURBIO |
else if (ityp(i).eq.100) then |
|
./pkg/fizhi/fizhi_turb.F |
380 |
TURBIO |
z0(i) = 3.e-4 |
|
./pkg/fizhi/fizhi_turb.F |
382 |
TURBIO |
z0(i) = zoch(i) |
|
./pkg/fizhi/fizhi_turb.F |
3857 |
TRBL25 |
integer i |
|
./pkg/fizhi/fizhi_turb.F |
389 |
TURBIO |
do i = 1,nchplnd |
|
./pkg/fizhi/fizhi_turb.F |
390 |
TURBIO |
tground(i) = tcanopy(i) |
|
./pkg/fizhi/fizhi_turb.F |
396 |
TURBIO |
utility(I) = pmsc(i) + ptop |
|
./pkg/fizhi/fizhi_turb.F |
397 |
TURBIO |
call QSAT ( tground(i),utility(i),shg(i),dqsdt(i),.true. ) |
|
./pkg/fizhi/fizhi_turb.F |
4012 |
VTRI0 |
integer i,L,Lm1 |
|
./pkg/fizhi/fizhi_turb.F |
403 |
TURBIO |
do i = 1,nchplnd |
|
./pkg/fizhi/fizhi_turb.F |
4044 |
VTRI1 |
integer i,L |
|
./pkg/fizhi/fizhi_turb.F |
404 |
TURBIO |
qground(i) = ecanopy(i) |
|
./pkg/fizhi/fizhi_turb.F |
4064 |
VTRI2 |
integer i,L |
|
./pkg/fizhi/fizhi_turb.F |
406 |
TURBIO |
do i = nchplnd+1,nchptot |
|
./pkg/fizhi/fizhi_turb.F |
407 |
TURBIO |
qground(i) = shg(i) |
|
./pkg/fizhi/fizhi_turb.F |
411 |
TURBIO |
do i = nchplnd+1,nchptot |
|
./pkg/fizhi/fizhi_turb.F |
412 |
TURBIO |
swetshal(i) = 1. |
|
./pkg/fizhi/fizhi_turb.F |
4158 |
LINADJ |
integer i |
|
./pkg/fizhi/fizhi_turb.F |
418 |
TURBIO |
do i =1,nchptot |
|
./pkg/fizhi/fizhi_turb.F |
419 |
TURBIO |
qice(i) = 0.0 |
|
./pkg/fizhi/fizhi_turb.F |
420 |
TURBIO |
dqice(i) = 0.0 |
|
./pkg/fizhi/fizhi_turb.F |
421 |
TURBIO |
if( icethk(i).gt.0.0 ) then |
|
./pkg/fizhi/fizhi_turb.F |
4220 |
LINADJ |
if(vpsig(i).gt.0.)VPSIGB2(I) = |
|
./pkg/fizhi/fizhi_turb.F |
4221 |
LINADJ |
1 0.5 * ( vpsig(i)*vpsig(i) + b2uhs ) / vpsig(i) |
|
./pkg/fizhi/fizhi_turb.F |
422 |
TURBIO |
qice(i) = const*(tice-tground(i)) |
|
./pkg/fizhi/fizhi_turb.F |
423 |
TURBIO |
dqice(i) = -const |
|
./pkg/fizhi/fizhi_turb.F |
428 |
TURBIO |
do i =1,ijall |
|
./pkg/fizhi/fizhi_turb.F |
429 |
TURBIO |
tmpdiag(i,1) = 0.0 |
|
./pkg/fizhi/fizhi_turb.F |
4434 |
ZCSUB |
integer i,k |
|
./pkg/fizhi/fizhi_turb.F |
4542 |
SEAICE |
integer i |
|
./pkg/fizhi/fizhi_turb.F |
4551 |
SEAICE |
do i =1,nocean |
|
./pkg/fizhi/fizhi_turb.F |
4552 |
SEAICE |
if( seaic(i).gt.0.0 ) then |
|
./pkg/fizhi/fizhi_turb.F |
4553 |
SEAICE |
deltg = ( swnet(i)-lwnet(i)-latent*eturb(i)-hsturb(i)+qice(i) ) |
|
./pkg/fizhi/fizhi_turb.F |
4554 |
SEAICE |
& / ( codt+dst4(i)+latent*dedtc(i)+dhsdtc(i)-dqice(i) ) |
|
./pkg/fizhi/fizhi_turb.F |
4555 |
SEAICE |
qa(i) = qa(i) + (faceps*qa(i)/(tc(i)*tc(i)))*deltg |
|
./pkg/fizhi/fizhi_turb.F |
4556 |
SEAICE |
tc(i) = tc(i) + deltg |
|
./pkg/fizhi/fizhi_turb.F |
514 |
TURBIO |
do i = 1,istrip |
|
./pkg/fizhi/fizhi_turb.F |
515 |
TURBIO |
if( types(i).lt.100 ) nland = nland + 1 |
|
./pkg/fizhi/fizhi_turb.F |
516 |
TURBIO |
if( types(i).eq.100 ) nocean = nocean + 1 |
|
./pkg/fizhi/fizhi_turb.F |
517 |
TURBIO |
if( types(i).eq.100 .and. icest(i).gt.0.0 ) nice = nice + 1 |
|
./pkg/fizhi/fizhi_turb.F |
522 |
TURBIO |
do i =1,istrip |
|
./pkg/fizhi/fizhi_turb.F |
523 |
TURBIO |
u(i,nlay+1) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
524 |
TURBIO |
v(i,nlay+1) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
529 |
TURBIO |
do i =1,istrip |
|
./pkg/fizhi/fizhi_turb.F |
530 |
TURBIO |
th(i,nlay+1) = th(i,nlay+1) / pke(i,nlay+1) |
|
./pkg/fizhi/fizhi_turb.F |
531 |
TURBIO |
sh(i,nlay+1) = qa(i) |
|
./pkg/fizhi/fizhi_turb.F |
535 |
TURBIO |
do i=1,istrip |
|
./pkg/fizhi/fizhi_turb.F |
536 |
TURBIO |
tmpstrip(i) = sh(i,nlay+1)*1000 |
|
./pkg/fizhi/fizhi_turb.F |
553 |
TURBIO |
do i =1,istrip |
|
./pkg/fizhi/fizhi_turb.F |
554 |
TURBIO |
thv(i,L) = 1. + virtcon * sh(i,L) |
|
./pkg/fizhi/fizhi_turb.F |
555 |
TURBIO |
thv(i,L) = th(i,L) * thv(i,L) |
|
./pkg/fizhi/fizhi_turb.F |
558 |
TURBIO |
do i =1,istrip |
|
./pkg/fizhi/fizhi_turb.F |
559 |
TURBIO |
sh(i,nlay+1) = qa(i) |
|
./pkg/fizhi/fizhi_turb.F |
564 |
TURBIO |
do i =1,istrip |
|
./pkg/fizhi/fizhi_turb.F |
565 |
TURBIO |
qliq(i,L) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
566 |
TURBIO |
turbfcc(i,L) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
572 |
TURBIO |
do i = 1,istrip |
|
./pkg/fizhi/fizhi_turb.F |
573 |
TURBIO |
eturb(i) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
574 |
TURBIO |
scu(i) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
575 |
TURBIO |
dedqa(i) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
576 |
TURBIO |
dedtc(i) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
577 |
TURBIO |
hsturb(i) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
578 |
TURBIO |
dhsdqa(i) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
579 |
TURBIO |
dhsdtc(i) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
585 |
TURBIO |
do i=1,istrip |
|
./pkg/fizhi/fizhi_turb.F |
586 |
TURBIO |
stdiag(i) = ( thv(i,nlay+1)-thv(i,nlay) ) / pke(i,nlay+1) |
|
./pkg/fizhi/fizhi_turb.F |
615 |
TURBIO |
do i = 1,istrip |
|
./pkg/fizhi/fizhi_turb.F |
616 |
TURBIO |
evpot(i) = transsh(i,nlay) * (shgstr(i) - sh(i,nlay)) |
|
./pkg/fizhi/fizhi_turb.F |
623 |
TURBIO |
do i = 1,istrip |
|
./pkg/fizhi/fizhi_turb.F |
624 |
TURBIO |
savetc(i) = tc(i) |
|
./pkg/fizhi/fizhi_turb.F |
625 |
TURBIO |
saveqa(i) = qa(i) |
|
./pkg/fizhi/fizhi_turb.F |
627 |
TURBIO |
do i = 1,istrip |
|
./pkg/fizhi/fizhi_turb.F |
628 |
TURBIO |
cosz(i) = max(cosz(i),0.0001 _d 0) |
|
./pkg/fizhi/fizhi_turb.F |
629 |
TURBIO |
cd(i) = scu(i)*scu(i) |
|
./pkg/fizhi/fizhi_turb.F |
630 |
TURBIO |
tmpnlay(i) = th(i,nlay)*pk(i,nlay) |
|
./pkg/fizhi/fizhi_turb.F |
631 |
TURBIO |
hlwdwn(i) = alwrad(i)+blwrad(i)*tc(i)-lwstrip(i) |
|
./pkg/fizhi/fizhi_turb.F |
632 |
TURBIO |
psurf(i) = pe(i,nlay+1) |
|
./pkg/fizhi/fizhi_turb.F |
633 |
TURBIO |
wspeed(i) = sqrt(u(i,nlay)*u(i,nlay) + v(i,nlay)*v(i,nlay)) |
|
./pkg/fizhi/fizhi_turb.F |
634 |
TURBIO |
if(wspeed(i) .lt. 1.e-20) wspeed(i) = 1.e-20 |
|
./pkg/fizhi/fizhi_turb.F |
641 |
TURBIO |
do i = 1,istrip |
|
./pkg/fizhi/fizhi_turb.F |
642 |
TURBIO |
eturb(i) = eturb(i) * pke(i,nlay+1) |
|
./pkg/fizhi/fizhi_turb.F |
643 |
TURBIO |
dedqa(i) = dedqa(i) * pke(i,nlay+1) |
|
./pkg/fizhi/fizhi_turb.F |
644 |
TURBIO |
hsturb(i) = hsturb(i) * pke(i,nlay+1) |
|
./pkg/fizhi/fizhi_turb.F |
647 |
TURBIO |
do i = 1,istrip |
|
./pkg/fizhi/fizhi_turb.F |
648 |
TURBIO |
strdg1(i) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
649 |
TURBIO |
strdg2(i) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
650 |
TURBIO |
strdg3(i) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
651 |
TURBIO |
strdg4(i) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
652 |
TURBIO |
strdg5(i) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
653 |
TURBIO |
strdg6(i) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
654 |
TURBIO |
strdg7(i) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
655 |
TURBIO |
strdg8(i) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
656 |
TURBIO |
strdg9(i) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
657 |
TURBIO |
bomb(i) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
658 |
TURBIO |
runoff(i) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
659 |
TURBIO |
eint(i) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
660 |
TURBIO |
esoi(i) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
661 |
TURBIO |
eveg(i) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
662 |
TURBIO |
esno(i) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
663 |
TURBIO |
smelt(i) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
664 |
TURBIO |
hlatn(i) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
665 |
TURBIO |
hlwup(i) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
666 |
TURBIO |
gdrain(i) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
667 |
TURBIO |
runsrf(i) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
668 |
TURBIO |
fwsoil(i) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
675 |
TURBIO |
do i = 1,istrip |
|
./pkg/fizhi/fizhi_turb.F |
676 |
TURBIO |
tmpstrip(i) = newsnow(i)*86400 |
|
./pkg/fizhi/fizhi_turb.F |
682 |
TURBIO |
do i = 1,istrip |
|
./pkg/fizhi/fizhi_turb.F |
683 |
TURBIO |
tmpstrip(i) = raincon(i)*86400 |
|
./pkg/fizhi/fizhi_turb.F |
689 |
TURBIO |
do i = 1,istrip |
|
./pkg/fizhi/fizhi_turb.F |
690 |
TURBIO |
tmpstrip(i) = rainls(i)*86400 |
|
./pkg/fizhi/fizhi_turb.F |
851 |
TURBIO |
do i =1,istrip |
|
./pkg/fizhi/fizhi_turb.F |
852 |
TURBIO |
th(i,nlay+1) = tc(i) / pke(i,nlay+1) |
|
./pkg/fizhi/fizhi_turb.F |
855 |
TURBIO |
do i =1,istrip |
|
./pkg/fizhi/fizhi_turb.F |
856 |
TURBIO |
th(i,L) = th(i,L) + dthdthg(i,L)*(tc(i)-savetc(i))/pke(i,nlay+1) |
|
./pkg/fizhi/fizhi_turb.F |
860 |
TURBIO |
do i =1,istrip |
|
./pkg/fizhi/fizhi_turb.F |
861 |
TURBIO |
sh(i,nlay+1) = qa(i) |
|
./pkg/fizhi/fizhi_turb.F |
864 |
TURBIO |
do i =1,istrip |
|
./pkg/fizhi/fizhi_turb.F |
865 |
TURBIO |
sh(i,L) = sh(i,L) + dshdshg(i,L)*(qa(i)-saveqa(i)) |
|
./pkg/fizhi/fizhi_turb.F |
870 |
TURBIO |
do i =1,istrip |
|
./pkg/fizhi/fizhi_turb.F |
871 |
TURBIO |
sttflux(i,L) = transth(i,L) * (th(i,L+1)-th(i,L)) |
|
./pkg/fizhi/fizhi_turb.F |
872 |
TURBIO |
stqflux(i,L) = transsh(i,L) * (sh(i,L+1)-sh(i,L)) |
|
./pkg/fizhi/fizhi_turb.F |
881 |
TURBIO |
do i =1,istrip |
|
./pkg/fizhi/fizhi_turb.F |
882 |
TURBIO |
tends(i) = ( u(i,l)-tmpstrip(i) ) |
|
./pkg/fizhi/fizhi_turb.F |
888 |
TURBIO |
do i =1,istrip |
|
./pkg/fizhi/fizhi_turb.F |
889 |
TURBIO |
tends(i) = ( v(i,l)-tmpstrip(i) ) |
|
./pkg/fizhi/fizhi_turb.F |
895 |
TURBIO |
do i =1,istrip |
|
./pkg/fizhi/fizhi_turb.F |
896 |
TURBIO |
tends(i) = ( th(i,l)-tmpstrip(i) ) |
|
./pkg/fizhi/fizhi_turb.F |
903 |
TURBIO |
do i =1,istrip |
|
./pkg/fizhi/fizhi_turb.F |
904 |
TURBIO |
tends(i) = ( sh(i,l)-tmpstrip(i) ) |
|
./pkg/fizhi/fizhi_turb.F |
929 |
TURBIO |
do i=1,istrip |
|
./pkg/fizhi/fizhi_turb.F |
930 |
TURBIO |
tmpstrip(i) = stqflux(i,nlay) * 86400 |
|
./pkg/fizhi/fizhi_turb.F |
936 |
TURBIO |
do i=1,istrip |
|
./pkg/fizhi/fizhi_turb.F |
937 |
TURBIO |
tmpstrip(i) = stqflux(i,nlay) * alhl |
|
./pkg/fizhi/fizhi_turb.F |
943 |
TURBIO |
do i=1,istrip |
|
./pkg/fizhi/fizhi_turb.F |
944 |
TURBIO |
tmpstrip(i) = sttflux(i,nlay) * cp |
|
./pkg/fizhi/fizhi_turb.F |
959 |
TURBIO |
do i=1,istrip |
|
./pkg/fizhi/fizhi_turb.F |
960 |
TURBIO |
sttflux(i,l) = sttflux(i,l) * cp |
|
./pkg/fizhi/fizhi_turb.F |
968 |
TURBIO |
do i=1,istrip |
|
./pkg/fizhi/fizhi_turb.F |
969 |
TURBIO |
stqflux(i,l) = stqflux(i,l) * alhl |
|
./pkg/fizhi/fizhi_utils.F |
10 |
NO PROCEDURE |
do i=1,im |
|
./pkg/fizhi/fizhi_utils.F |
11 |
NO PROCEDURE |
if( q(i).lt.minval ) minval = q(i) |
|
./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 |
377 |
VQSAT |
integer i,n |
|
./pkg/fizhi/fizhi_utils.F |
385 |
VQSAT |
do i=1,n |
|
./pkg/fizhi/fizhi_utils.F |
386 |
VQSAT |
call QSAT ( tt(i),p(i),q(i),dqdt(i),ldqdt ) |
|
./pkg/fizhi/fizhi_utils.F |
395 |
STRIPIT |
integer i,j,Lena,offset |
|
./pkg/fizhi/fizhi_utils.F |
403 |
STRIPIT |
do 100 i=1,Lena |
|
./pkg/fizhi/fizhi_utils.F |
404 |
STRIPIT |
b(i,j) = a(i+offset-1,j) |
|
./pkg/fizhi/fizhi_utils.F |
408 |
STRIPIT |
do 300 i=1,Lena |
|
./pkg/fizhi/fizhi_utils.F |
409 |
STRIPIT |
b(i,j) = a(i+offset-1,j) |
|
./pkg/fizhi/fizhi_utils.F |
411 |
STRIPIT |
do 400 i=1,ib-Lena |
|
./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 |
430 |
STRIPITINT |
do 100 i=1,Lena |
|
./pkg/fizhi/fizhi_utils.F |
431 |
STRIPITINT |
b(i,j) = a(i+offset-1,j) |
|
./pkg/fizhi/fizhi_utils.F |
435 |
STRIPITINT |
do 300 i=1,Lena |
|
./pkg/fizhi/fizhi_utils.F |
436 |
STRIPITINT |
b(i,j) = a(i+offset-1,j) |
|
./pkg/fizhi/fizhi_utils.F |
438 |
STRIPITINT |
do 400 i=1,ib-Lena |
|
./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 |
457 |
PASTIT |
do 100 i=1,Lena |
|
./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 |
475 |
PSTBITINT |
do 100 i=1,Lena |
|
./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 |
493 |
PSTBMPIT |
do 100 i=1,Lena |
|
./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 |
522 |
STRIP2TILE |
integer i,k,Lena,offset |
|
./pkg/fizhi/fizhi_utils.F |
530 |
STRIP2TILE |
do 100 i=1,Lena |
|
./pkg/fizhi/fizhi_utils.F |
531 |
STRIP2TILE |
b(i,k) = a(indx(i+offset-1),k) |
|
./pkg/fizhi/fizhi_utils.F |
535 |
STRIP2TILE |
do 300 i=1,Lena |
|
./pkg/fizhi/fizhi_utils.F |
536 |
STRIP2TILE |
b(i,k) = a(indx(i+offset-1),k) |
|
./pkg/fizhi/fizhi_utils.F |
538 |
STRIP2TILE |
do 400 i=1,ib-Lena |
|
./pkg/fizhi/fizhi_utils.F |
539 |
STRIP2TILE |
b(Lena+i,k) = a(indx(Lena+offset-1),k) |
|
./pkg/fizhi/fizhi_utils.F |
577 |
PASTE2GRD_OLD |
integer i,L,offset,Lena |
|
./pkg/fizhi/fizhi_utils.F |
584 |
PASTE2GRD_OLD |
do i=1,Lena |
|
./pkg/fizhi/fizhi_utils.F |
585 |
PASTE2GRD_OLD |
a(indx(i+offset-1),L) = a(indx(i+offset-1),L) + b(i,L)*chfr(i) |
|
./pkg/fizhi/fizhi_utils.F |
624 |
PASTE2GRD |
integer i,L,offset,Lena |
|
./pkg/fizhi/fizhi_utils.F |
634 |
PASTE2GRD |
do i= 1,Lena |
|
./pkg/fizhi/fizhi_utils.F |
635 |
PASTE2GRD |
if( a(indx(i+offset-1),L).eq.undef .or. b(i,L).eq.undef ) then |
|
./pkg/fizhi/fizhi_utils.F |
636 |
PASTE2GRD |
a(indx(i+offset-1),L) = undef |
|
./pkg/fizhi/fizhi_utils.F |
638 |
PASTE2GRD |
a(indx(i+offset-1),L)=a(indx(i+offset-1),L) + b(i,L)*chfr(i) |
|
./pkg/fizhi/fizhi_utils.F |
644 |
PASTE2GRD |
do i= 1,Lena |
|
./pkg/fizhi/fizhi_utils.F |
645 |
PASTE2GRD |
a(indx(i+offset-1),L)=a(indx(i+offset-1),L) + b(i,L)*chfr(i) |
|
./pkg/fizhi/fizhi_utils.F |
65 |
STRIP |
INTEGER OFFSET,Lena,i,j |
|
./pkg/fizhi/fizhi_utils.F |
660 |
GRD2MSC |
integer i |
|
./pkg/fizhi/fizhi_utils.F |
687 |
MSC2GRD |
integer i |
|
./pkg/fizhi/fizhi_utils.F |
733 |
CHPPRM |
integer k1,k2,nymd1,nhms1,nymd2,nhms2,i |
|
./pkg/fizhi/fizhi_utils.F |
7 |
NO PROCEDURE |
integer im, i |
|
./pkg/fizhi/fizhi_utils.F |
868 |
CHPPRM |
do i=1,nchp |
|
./pkg/fizhi/fizhi_utils.F |
870 |
CHPPRM |
zoch(i) = vgz0(k2,ityp(i))*facp + vgz0(k1,ityp(i))*facm |
|
./pkg/fizhi/fizhi_utils.F |
871 |
CHPPRM |
rdcs(i) = vgrd(k2,ityp(i))*facp + vgrd(k1,ityp(i))*facm |
|
./pkg/fizhi/fizhi_utils.F |
873 |
CHPPRM |
rootl = vgrt(k2,ityp(i))*facp + vgrt(k1,ityp(i))*facm |
|
./pkg/fizhi/fizhi_utils.F |
875 |
CHPPRM |
vroot = rootl * vgroca(ityp (i)) |
|
./pkg/fizhi/fizhi_utils.F |
880 |
CHPPRM |
rsl1(i) = vgrdrs (ityp (i)) / (rootl * vgrotd (ityp (i))) |
|
./pkg/fizhi/fizhi_utils.F |
881 |
CHPPRM |
rsl2(i) = alphaf / vgrotd (ityp (i)) |
|
./pkg/fizhi/fizhi_utils.F |
883 |
CHPPRM |
scat = agrn(i) *(vgtr11(ityp(i)) + vgrf11(ityp(i))) |
|
./pkg/fizhi/fizhi_utils.F |
884 |
CHPPRM |
& + (1. - agrn(i))*(vgtr12(ityp(i)) + vgrf12(ityp(i))) |
|
./pkg/fizhi/fizhi_utils.F |
885 |
CHPPRM |
sqsc(i) = sqrt (1. - scat) |
|
./pkg/fizhi/fizhi_utils.F |
887 |
CHPPRM |
d = vgdd(k2,ityp(i))*facp + vgdd(k1,ityp(i))*facm |
|
./pkg/fizhi/fizhi_utils.F |
888 |
CHPPRM |
ufac(i) = log( (vgz2(ityp(i)) - d) / zoch(i) ) |
|
./pkg/fizhi/fizhi_utils.F |
889 |
CHPPRM |
* / log( pblzet / zoch(i) ) |
|
./pkg/fizhi/fizhi_utils.F |
891 |
CHPPRM |
z2ch(i) = vgz2(ityp (i)) |
|
./pkg/fizhi/fizhi_utils.F |
893 |
CHPPRM |
cdsc(i) = pblzet/zoch(i)+1. |
|
./pkg/fizhi/fizhi_utils.F |
894 |
CHPPRM |
cdrc(i) = vkrm/log(cdsc(i)) |
|
./pkg/fizhi/fizhi_utils.F |
895 |
CHPPRM |
cdrc(i) = cdrc(i)*cdrc(i) |
|
./pkg/fizhi/fizhi_utils.F |
896 |
CHPPRM |
cdsc(i) = sqrt(cdsc(i)) |
|
./pkg/fizhi/fizhi_utils.F |
897 |
CHPPRM |
cdsc(i) = cdrc(i)*cdsc(i) |
|
./pkg/fizhi/fizhi_utils.F |
925 |
PKAPPA |
integer i,j,L |
|
./pkg/fizhi/fizhi_utils.F |
931 |
PKAPPA |
do i = 1,im |
|
./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 |
103 |
FIZHI_WRAPPER |
do i = 1,sNx |
|
./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 |
117 |
FIZHI_WRAPPER |
do i = 1,sNx |
|
./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 |
124 |
FIZHI_WRAPPER |
do i = 1,sNx |
|
./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 |
138 |
FIZHI_WRAPPER |
do i = 1,sNx |
|
./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 |
145 |
FIZHI_WRAPPER |
do i = 1,sNx |
|
./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 |
163 |
FIZHI_WRAPPER |
do i = 1,sNx |
|
./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 |
178 |
FIZHI_WRAPPER |
do i = 1,sNx |
|
./pkg/fizhi/fizhi_wrapper.F |
180 |
FIZHI_WRAPPER |
pedyn(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_wrapper.F |
185 |
FIZHI_WRAPPER |
do i = 1,sNx |
|
./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 |
192 |
FIZHI_WRAPPER |
do i = 1,sNx |
|
./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 |
212 |
FIZHI_WRAPPER |
do i = 1,sNx |
|
./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 |
237 |
FIZHI_WRAPPER |
do i = 1,sNx |
|
./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 |
244 |
FIZHI_WRAPPER |
do i = 1,sNx |
|
./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 |
288 |
FIZHI_WRAPPER |
do i = 1,sNx |
|
./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 |
297 |
FIZHI_WRAPPER |
do i = 1,sNx |
|
./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 |
306 |
FIZHI_WRAPPER |
do i = 1,sNx |
|
./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 |
315 |
FIZHI_WRAPPER |
do i = 1,sNx |
|
./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 |
75 |
FIZHI_WRAPPER |
do i = 1,sNx |
|
./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 |
82 |
FIZHI_WRAPPER |
do i = 1,sNx+1 |
|
./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 |
96 |
FIZHI_WRAPPER |
do i = 1,sNx |
|
./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 |
56 |
FIZHI_WRITE_PICKUP |
do i = 1-OLx,sNx+OLx |
|
./pkg/fizhi/fizhi_write_pickup.F |
57 |
FIZHI_WRITE_PICKUP |
temp(i,j,k,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_write_pickup.F |
94 |
FIZHI_WRITE_PICKUP |
do i = 1,sNx |
|
./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/slprs.F |
32 |
SLPRS |
integer i,L |
|
./pkg/fizhi/slprs.F |
43 |
SLPRS |
do i=1,im*jm |
|
./pkg/fizhi/slprs.F |
44 |
SLPRS |
tm(i) = 0.0 |
|
./pkg/fizhi/slprs.F |
45 |
SLPRS |
Ltop(i) = lm |
|
./pkg/fizhi/slprs.F |
49 |
SLPRS |
do i=1,im*jm |
|
./pkg/fizhi/slprs.F |
50 |
SLPRS |
if ( ple(i,L+1).ge.(ple(i,lm+1)-100.) ) then |
|
./pkg/fizhi/slprs.F |
51 |
SLPRS |
Ltop(i) = L |
|
./pkg/fizhi/slprs.F |
52 |
SLPRS |
tm(i) = tm(i) + thz(i,L)*(ple(i,L+1)-ple(i,L)) |
|
./pkg/fizhi/slprs.F |
57 |
SLPRS |
do i=1,im*jm |
|
./pkg/fizhi/slprs.F |
58 |
SLPRS |
tm(i) = tm(i)/(ple(i,lm+1)-ple(i,Ltop(i))) |
|
./pkg/fizhi/slprs.F |
65 |
SLPRS |
do i=1,im*jm |
|
./pkg/fizhi/slprs.F |
66 |
SLPRS |
if( lwmask(i).ne.0.0 ) then |
|
./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 |
107 |
STEP_FIZHI_CORR |
do i = 1,sNx |
|
./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 |
122 |
STEP_FIZHI_CORR |
do i = 1,sNx |
|
./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 |
141 |
STEP_FIZHI_CORR |
do i = 1,sNx |
|
./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 |
150 |
STEP_FIZHI_CORR |
do i = 1,sNx |
|
./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 |
159 |
STEP_FIZHI_CORR |
do i = 1,sNx |
|
./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 |
168 |
STEP_FIZHI_CORR |
do i = 1,sNx |
|
./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 |
193 |
STEP_FIZHI_CORR |
do i = idim1,idim2 |
|
./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 |
221 |
STEP_FIZHI_CORR |
do i = 1,sNx |
|
./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 |
230 |
STEP_FIZHI_CORR |
do i = 1,sNx |
|
./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 |
239 |
STEP_FIZHI_CORR |
do i = 1,sNx |
|
./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 |
248 |
STEP_FIZHI_CORR |
do i = 1,sNx |
|
./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 |
286 |
STEP_FIZHI_CORR |
do i=im1,im2 |
|
./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 |
298 |
STEP_FIZHI_CORR |
do i=im1,im2 |
|
./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 |
310 |
STEP_FIZHI_CORR |
do i=im1,im2 |
|
./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 |
322 |
STEP_FIZHI_CORR |
do i=im1,im2 |
|
./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 |
345 |
STEP_FIZHI_CORR |
do i=im1,im2 |
|
./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 |
364 |
STEP_FIZHI_CORR |
do i = 1,sNx |
|
./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 |
378 |
STEP_FIZHI_CORR |
do i = 1,sNx |
|
./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 |
387 |
STEP_FIZHI_CORR |
do i = 1,sNx |
|
./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 |
395 |
STEP_FIZHI_CORR |
do i = 1,sNx |
|
./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 |
427 |
STEP_FIZHI_CORR |
do i=im1,im2 |
|
./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 |
442 |
STEP_FIZHI_CORR |
do i = 1,sNx |
|
./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 |
450 |
STEP_FIZHI_CORR |
do i = 1,sNx |
|
./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 |
474 |
STEP_FIZHI_CORR |
do i=im1,im2 |
|
./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 |
489 |
STEP_FIZHI_CORR |
do i = 1,sNx |
|
./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 |
497 |
STEP_FIZHI_CORR |
do i = 1,sNx |
|
./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 |
80 |
STEP_FIZHI_CORR |
do i = 1,sNx |
|
./pkg/fizhi/step_fizhi_corr.F |
82 |
STEP_FIZHI_CORR |
pedyn(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/step_fizhi_corr.F |
87 |
STEP_FIZHI_CORR |
do i = 1,sNx |
|
./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 |
94 |
STEP_FIZHI_CORR |
do i = 1,sNx |
|
./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 |
55 |
STEP_FIZHI_FG |
do i = im1,im2 |
|
./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 |
63 |
STEP_FIZHI_FG |
do i = im1,im2 |
|
./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 |
71 |
STEP_FIZHI_FG |
do i = im1,im2 |
|
./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 |
79 |
STEP_FIZHI_FG |
do i = im1,im2 |
|
./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 |
94 |
STEP_FIZHI_FG |
do i = im1,im2 |
|
./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 |
29 |
STEP_PHYSICS |
do i = im1,im2 |
|
./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 |
177 |
INTERP_QZ |
integer i,k,L1,L2,LM,LP |
|
./pkg/fizhi/update_chemistry_exports.F |
191 |
INTERP_QZ |
DO 34 i = 1,irun |
|
./pkg/fizhi/update_chemistry_exports.F |
194 |
INTERP_QZ |
IF( watlats(jlat).gt.xlat(i) ) THEN |
|
./pkg/fizhi/update_chemistry_exports.F |
198 |
INTERP_QZ |
slope(i) = 0 |
|
./pkg/fizhi/update_chemistry_exports.F |
202 |
INTERP_QZ |
slope(i) = ( xlat(i) -watlats(jlat-1) ) |
|
./pkg/fizhi/update_chemistry_exports.F |
210 |
INTERP_QZ |
slope(i) = 1 |
|
./pkg/fizhi/update_chemistry_exports.F |
212 |
INTERP_QZ |
QPR1(i) = stratq(jlatm,k) |
|
./pkg/fizhi/update_chemistry_exports.F |
213 |
INTERP_QZ |
QPR2(i) = stratq(jlatp,k) |
|
./pkg/fizhi/update_chemistry_exports.F |
216 |
INTERP_QZ |
do i = 1,irun |
|
./pkg/fizhi/update_chemistry_exports.F |
217 |
INTERP_QZ |
h2o_time_lat(i,k) = qpr1(i) + slope(i)*(qpr2(i)-qpr1(i)) |
|
./pkg/fizhi/update_chemistry_exports.F |
228 |
INTERP_QZ |
DO 44 i= 1, irun |
|
./pkg/fizhi/update_chemistry_exports.F |
230 |
INTERP_QZ |
IF( watlevs(L1).GT.pres(i,L2) ) THEN |
|
./pkg/fizhi/update_chemistry_exports.F |
244 |
INTERP_QZ |
PR1(i) = watlevs (LM) |
|
./pkg/fizhi/update_chemistry_exports.F |
245 |
INTERP_QZ |
PR2(i) = watlevs (LP) |
|
./pkg/fizhi/update_chemistry_exports.F |
246 |
INTERP_QZ |
QPR1(i) = h2o_time_lat(i,LM) |
|
./pkg/fizhi/update_chemistry_exports.F |
247 |
INTERP_QZ |
QPR2(i) = h2o_time_lat(i,LP) |
|
./pkg/fizhi/update_chemistry_exports.F |
250 |
INTERP_QZ |
do i= 1, irun |
|
./pkg/fizhi/update_chemistry_exports.F |
251 |
INTERP_QZ |
slope(i) =(QPR1(i)-QPR2(i)) / (PR1(i)-PR2(i)) |
|
./pkg/fizhi/update_chemistry_exports.F |
252 |
INTERP_QZ |
qz_clim(i,L2) = QPR2(i) + (pres(i,L2)-PR2(i))*SLOPE(i) |
|
./pkg/fizhi/update_chemistry_exports.F |
263 |
INTERP_QZ |
do i= 1, irun |
|
./pkg/fizhi/update_chemistry_exports.F |
264 |
INTERP_QZ |
if( pres(i,k).ge.pqu .and. pres(i,k).le. pql) then |
|
./pkg/fizhi/update_chemistry_exports.F |
265 |
INTERP_QZ |
qz_out(i,k) = qz_clim(i,k)+(qz_in(i,k)- |
|
./pkg/fizhi/update_chemistry_exports.F |
266 |
INTERP_QZ |
1 qz_clim(i,k))*(pres(i,k)-pqu)/dpq |
|
./pkg/fizhi/update_chemistry_exports.F |
267 |
INTERP_QZ |
else if( pres(i,k) .gt. pql ) then |
|
./pkg/fizhi/update_chemistry_exports.F |
268 |
INTERP_QZ |
qz_out(i,k) = qz_in (i,k) |
|
./pkg/fizhi/update_chemistry_exports.F |
270 |
INTERP_QZ |
qz_out(i,k) = qz_clim(i,k) |
|
./pkg/fizhi/update_chemistry_exports.F |
311 |
INTERP_OZ |
integer i,k,L1,L2,LM,LP |
|
./pkg/fizhi/update_chemistry_exports.F |
325 |
INTERP_OZ |
IF( ozlats(jlat).gt.xlat(i) ) THEN |
|
./pkg/fizhi/update_chemistry_exports.F |
329 |
INTERP_OZ |
slope(i) = zero |
|
./pkg/fizhi/update_chemistry_exports.F |
333 |
INTERP_OZ |
slope(i) = ( XLAT(I) -ozlats(jlat-1) ) |
|
./pkg/fizhi/update_chemistry_exports.F |
341 |
INTERP_OZ |
slope(i) = one |
|
./pkg/fizhi/update_chemistry_exports.F |
348 |
INTERP_OZ |
o3int1(i,k) = qpr1(i) + slope(i)*( qpr2(i)-qpr1(i) ) |
|
./pkg/fizhi/update_chemistry_exports.F |
35 |
UPDATE_CHEMISTRY_EXPORTS |
integer i, j, L, LL, bi, bj |
|
./pkg/fizhi/update_chemistry_exports.F |
386 |
INTERP_OZ |
if( ozrad(i,l2).lt.o3min ) then |
|
./pkg/fizhi/update_chemistry_exports.F |
387 |
INTERP_OZ |
ozrad(i,l2) = o3min |
|
./pkg/fizhi/update_chemistry_exports.F |
55 |
UPDATE_CHEMISTRY_EXPORTS |
do i = 1,sNx |
|
./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 |
64 |
UPDATE_CHEMISTRY_EXPORTS |
do i = 1,sNx |
|
./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 |
73 |
UPDATE_CHEMISTRY_EXPORTS |
do i = 1,sNx |
|
./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_earth_exports.F |
1004 |
GETEMISS |
INTEGER i,j,k,n |
|
./pkg/fizhi/update_earth_exports.F |
1006 |
GETEMISS |
do i = 1,10 |
|
./pkg/fizhi/update_earth_exports.F |
1008 |
GETEMISS |
emisstile(n,i) = 1. |
|
./pkg/fizhi/update_earth_exports.F |
1021 |
GETEMISS |
do i = 1,im |
|
./pkg/fizhi/update_earth_exports.F |
1022 |
GETEMISS |
tmpij(i,j) = 0.0 |
|
./pkg/fizhi/update_earth_exports.F |
1028 |
GETEMISS |
do i = 1,im |
|
./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 |
1142 |
EMISSIVITY |
do i=1,numpts |
|
./pkg/fizhi/update_earth_exports.F |
1146 |
EMISSIVITY |
if(ityp(i).le.10)then |
|
./pkg/fizhi/update_earth_exports.F |
1147 |
EMISSIVITY |
newemis(i, 1) = (emis( 1,ityp(i))+emis(2,ityp(i)))/2. |
|
./pkg/fizhi/update_earth_exports.F |
1148 |
EMISSIVITY |
newemis(i, 2) = (emis( 2,ityp(i))+emis(3,ityp(i)))/2. |
|
./pkg/fizhi/update_earth_exports.F |
1149 |
EMISSIVITY |
newemis(i, 3) = (emis( 4,ityp(i))+emis(5,ityp(i)))/2. |
|
./pkg/fizhi/update_earth_exports.F |
1150 |
EMISSIVITY |
newemis(i, 4) = emis( 6,ityp(i)) |
|
./pkg/fizhi/update_earth_exports.F |
1151 |
EMISSIVITY |
newemis(i, 5) = emis( 7,ityp(i)) |
|
./pkg/fizhi/update_earth_exports.F |
1152 |
EMISSIVITY |
newemis(i, 6) = emis( 8,ityp(i)) |
|
./pkg/fizhi/update_earth_exports.F |
1153 |
EMISSIVITY |
newemis(i, 7) = emis( 9,ityp(i)) |
|
./pkg/fizhi/update_earth_exports.F |
1154 |
EMISSIVITY |
newemis(i, 8) = (emis(10,ityp(i))+emis(11,ityp(i)))/2. |
|
./pkg/fizhi/update_earth_exports.F |
1155 |
EMISSIVITY |
newemis(i, 9) = emis(12,ityp(i)) |
|
./pkg/fizhi/update_earth_exports.F |
1156 |
EMISSIVITY |
newemis(i,10) = emis( 4,ityp(i)) |
|
./pkg/fizhi/update_earth_exports.F |
1160 |
EMISSIVITY |
if(snowdepth (i).gt.0.) then |
|
./pkg/fizhi/update_earth_exports.F |
1161 |
EMISSIVITY |
fac = snowdepth(i) / (snowdepth(i) + snwmid(ityp(i))) |
|
./pkg/fizhi/update_earth_exports.F |
1162 |
EMISSIVITY |
newemis(i, 1) = newemis(i, 1) + (((emis( 1,9)+emis( 2,9))/2.) |
|
./pkg/fizhi/update_earth_exports.F |
1163 |
EMISSIVITY |
& - newemis(i, 1)) * fac |
|
./pkg/fizhi/update_earth_exports.F |
1164 |
EMISSIVITY |
newemis(i, 2) = newemis(i, 2) + (((emis( 2,9)+emis( 3,9))/2.) |
|
./pkg/fizhi/update_earth_exports.F |
1165 |
EMISSIVITY |
& - newemis(i, 2)) * fac |
|
./pkg/fizhi/update_earth_exports.F |
1166 |
EMISSIVITY |
newemis(i, 3) = newemis(i, 3) + (((emis( 4,9)+emis( 5,9))/2.) |
|
./pkg/fizhi/update_earth_exports.F |
1167 |
EMISSIVITY |
& - newemis(i, 3)) * fac |
|
./pkg/fizhi/update_earth_exports.F |
1168 |
EMISSIVITY |
newemis(i, 4) = newemis(i, 4) + (emis( 6,9) |
|
./pkg/fizhi/update_earth_exports.F |
1169 |
EMISSIVITY |
& - newemis(i, 4)) * fac |
|
./pkg/fizhi/update_earth_exports.F |
1170 |
EMISSIVITY |
newemis(i, 5) = newemis(i, 5) + (emis( 7,9) |
|
./pkg/fizhi/update_earth_exports.F |
1171 |
EMISSIVITY |
& - newemis(i, 5)) * fac |
|
./pkg/fizhi/update_earth_exports.F |
1172 |
EMISSIVITY |
newemis(i, 6) = newemis(i, 6) + (emis( 8,9) |
|
./pkg/fizhi/update_earth_exports.F |
1173 |
EMISSIVITY |
& - newemis(i, 6)) * fac |
|
./pkg/fizhi/update_earth_exports.F |
1174 |
EMISSIVITY |
newemis(i, 7) = newemis(i, 7) + (emis( 9,9) |
|
./pkg/fizhi/update_earth_exports.F |
1175 |
EMISSIVITY |
& - newemis(i, 7)) * fac |
|
./pkg/fizhi/update_earth_exports.F |
1176 |
EMISSIVITY |
newemis(i, 8) = newemis(i, 8) + (((emis(10,9)+emis(11,9))/2.) |
|
./pkg/fizhi/update_earth_exports.F |
1177 |
EMISSIVITY |
& - newemis(i, 8)) * fac |
|
./pkg/fizhi/update_earth_exports.F |
1178 |
EMISSIVITY |
newemis(i, 9) = newemis(i, 9) + (emis(12,9) |
|
./pkg/fizhi/update_earth_exports.F |
1179 |
EMISSIVITY |
& - newemis(i, 9)) * fac |
|
./pkg/fizhi/update_earth_exports.F |
1180 |
EMISSIVITY |
newemis(i,10) = newemis(i,10) + (emis( 4,9) |
|
./pkg/fizhi/update_earth_exports.F |
1181 |
EMISSIVITY |
& - newemis(i,10)) * fac |
|
./pkg/fizhi/update_earth_exports.F |
1187 |
EMISSIVITY |
if(fraci(i).eq.0.)then |
|
./pkg/fizhi/update_earth_exports.F |
1188 |
EMISSIVITY |
newemis(i, 1) = (emis( 1,11)+emis(2,11))/2. |
|
./pkg/fizhi/update_earth_exports.F |
1189 |
EMISSIVITY |
newemis(i, 2) = (emis( 2,11)+emis(3,11))/2. |
|
./pkg/fizhi/update_earth_exports.F |
1190 |
EMISSIVITY |
newemis(i, 3) = (emis( 4,11)+emis(5,11))/2. |
|
./pkg/fizhi/update_earth_exports.F |
1191 |
EMISSIVITY |
newemis(i, 4) = emis( 6,11) |
|
./pkg/fizhi/update_earth_exports.F |
1192 |
EMISSIVITY |
newemis(i, 5) = emis( 7,11) |
|
./pkg/fizhi/update_earth_exports.F |
1193 |
EMISSIVITY |
newemis(i, 6) = emis( 8,11) |
|
./pkg/fizhi/update_earth_exports.F |
1194 |
EMISSIVITY |
newemis(i, 7) = emis( 9,11) |
|
./pkg/fizhi/update_earth_exports.F |
1195 |
EMISSIVITY |
newemis(i, 8) = (emis(10,11)+emis(11,11))/2. |
|
./pkg/fizhi/update_earth_exports.F |
1196 |
EMISSIVITY |
newemis(i, 9) = emis(12,11) |
|
./pkg/fizhi/update_earth_exports.F |
1197 |
EMISSIVITY |
newemis(i,10) = emis( 4,11) |
|
./pkg/fizhi/update_earth_exports.F |
1202 |
EMISSIVITY |
newemis(i, 1) = (emis( 1,9)+emis(2,9))/2. |
|
./pkg/fizhi/update_earth_exports.F |
1203 |
EMISSIVITY |
newemis(i, 2) = (emis( 2,9)+emis(3,9))/2. |
|
./pkg/fizhi/update_earth_exports.F |
1204 |
EMISSIVITY |
newemis(i, 3) = (emis( 4,9)+emis(5,9))/2. |
|
./pkg/fizhi/update_earth_exports.F |
1205 |
EMISSIVITY |
newemis(i, 4) = emis( 6,9) |
|
./pkg/fizhi/update_earth_exports.F |
1206 |
EMISSIVITY |
newemis(i, 5) = emis( 7,9) |
|
./pkg/fizhi/update_earth_exports.F |
1207 |
EMISSIVITY |
newemis(i, 6) = emis( 8,9) |
|
./pkg/fizhi/update_earth_exports.F |
1208 |
EMISSIVITY |
newemis(i, 7) = emis( 9,9) |
|
./pkg/fizhi/update_earth_exports.F |
1209 |
EMISSIVITY |
newemis(i, 8) = (emis(10,9)+emis(11,9))/2. |
|
./pkg/fizhi/update_earth_exports.F |
1210 |
EMISSIVITY |
newemis(i, 9) = emis(12,9) |
|
./pkg/fizhi/update_earth_exports.F |
1211 |
EMISSIVITY |
newemis(i,10) = emis( 4,9) |
|
./pkg/fizhi/update_earth_exports.F |
1235 |
GET_LANDFRAC |
INTEGER i,j,k |
|
./pkg/fizhi/update_earth_exports.F |
1238 |
GET_LANDFRAC |
do i=1,im |
|
./pkg/fizhi/update_earth_exports.F |
1239 |
GET_LANDFRAC |
frac(i,j) = 0.0 |
|
./pkg/fizhi/update_earth_exports.F |
1245 |
GET_LANDFRAC |
do i=1,im |
|
./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 |
137 |
UPDATE_EARTH_EXPORTS |
do i = im1,im2 |
|
./pkg/fizhi/update_earth_exports.F |
138 |
UPDATE_EARTH_EXPORTS |
tmpij(i,j) = 0. |
|
./pkg/fizhi/update_earth_exports.F |
141 |
UPDATE_EARTH_EXPORTS |
do i = 1,nchptot(bi,bj) |
|
./pkg/fizhi/update_earth_exports.F |
142 |
UPDATE_EARTH_EXPORTS |
tmpchp(i) = tcanopy(i,bi,bj) |
|
./pkg/fizhi/update_earth_exports.F |
147 |
UPDATE_EARTH_EXPORTS |
do i = im1,im2 |
|
./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 |
721 |
GETLGR |
INTEGER i,midmon,midm,midp,id,k1,k2,kk1,kk2 |
|
./pkg/fizhi/update_earth_exports.F |
76 |
UPDATE_EARTH_EXPORTS |
do i = im1,im2 |
|
./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 |
86 |
UPDATE_EARTH_EXPORTS |
do i = im1,im2 |
|
./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 |
103 |
UPDATE_OCEAN_EXPORTS |
do i=im1,im2 |
|
./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 |
353 |
GETSICE |
do i = im1,im2 |
|
./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 |
368 |
GETSICE |
do i = im1,im2 |
|
./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 |
615 |
GETSST |
do i = im1,im2 |
|
./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 |
664 |
BCDATA |
do i=1,im |
|
./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/fizhi/update_ocean_exports.F |
710 |
BCHEADER |
integer i |
|
./pkg/fizhi/update_ocean_exports.F |
731 |
BCHEADER |
. (nymdbc_32(i), nhmsbc_32(i), i=1,ndatebc_32) |
|
./pkg/fizhi/update_ocean_exports.F |
740 |
BCHEADER |
do i=1,ndatebc |
|
./pkg/fizhi/update_ocean_exports.F |
742 |
BCHEADER |
call MDS_BYTESWAPI4( 1, nymdbc_32(i)) |
|
./pkg/fizhi/update_ocean_exports.F |
743 |
BCHEADER |
call MDS_BYTESWAPI4( 1, nhmsbc_32(i)) |
|
./pkg/fizhi/update_ocean_exports.F |
745 |
BCHEADER |
nymdbc(i) = nymdbc_32(i) |
|
./pkg/fizhi/update_ocean_exports.F |
746 |
BCHEADER |
nhmsbc(i) = nhmsbc_32(i) |
|
./pkg/flt/exch2_send_put_vec.F |
120 |
EXCH2_SEND_PUT_VEC_RL |
DO i=1,nSx |
|
./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 |
122 |
EXCH2_SEND_PUT_VEC_RL |
sBi = i |
|
./pkg/flt/flt_init_varia.F |
200 |
FLT_INIT_VARIA |
DO i=1,6 |
|
./pkg/flt/flt_init_varia.F |
201 |
FLT_INIT_VARIA |
ip=i+(j-1)*6 |
|
./pkg/flt/flt_init_varia.F |
204 |
FLT_INIT_VARIA |
ipart(ip,bi,bj) = 1+5*(i-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 |
131 |
FLT_MAP_IJLOCAL2XY |
i = NINT(ix) |
|
./pkg/flt/flt_mapping.F |
133 |
FLT_MAP_IJLOCAL2XY |
ddx = 0.5 _d 0 + ix - DFLOAT(i) |
|
./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 |
141 |
FLT_MAP_IJLOCAL2XY |
i = NINT(ix) |
|
./pkg/flt/flt_mapping.F |
143 |
FLT_MAP_IJLOCAL2XY |
ddx = 0.5 _d 0 + ix - DFLOAT(i) |
|
./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 |
58 |
FLT_MAP_XY2IJLOCAL |
DO i=0,sNx+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 |
63 |
FLT_MAP_XY2IJLOCAL |
ix = DFLOAT(i)+fm-0.5 _d 0 |
|
./pkg/flt/flt_mapping.F |
68 |
FLT_MAP_XY2IJLOCAL |
i = 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/frazil/frazil_calc_rhs.F |
42 |
FRAZIL_CALC_RHS |
INTEGER bi,bj,i,j,k,kTop |
|
./pkg/frazil/frazil_calc_rhs.F |
59 |
FRAZIL_CALC_RHS |
DO i=1-Olx,sNx+Olx |
|
./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 |
68 |
FRAZIL_CALC_RHS |
DO i=1-OLx,sNx+OLx |
|
./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 |
39 |
FRAZIL_INIT_VARIA |
DO i=1-Olx,sNx+Olx |
|
./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 |
58 |
FRAZIL_TENDENCY_APPLY_T |
DO i=iMin,iMax |
|
./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 |
62 |
GCHEM_ADD_TENDENCY |
DO i=iMin,iMax |
|
./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 |
67 |
GCHEM_CALC_TENDENCY |
DO i = 1-OLx, sNx+OLx |
|
./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 |
54 |
GCHEM_INIT_VARI |
DO i = 1-OLx, sNx+OLx |
|
./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 |
48 |
GCHEM_SURFMEAN |
DO i=1,sNx |
|
./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 |
1012 |
GAD_ADVECTION |
DO i=1-OLx,sNx+OLx |
|
./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 |
1038 |
GAD_ADVECTION |
DO i=1-OLx,sNx+OLx |
|
./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 |
219 |
GAD_ADVECTION |
DO i=1-OLx,sNx+OLx |
|
./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 |
280 |
GAD_ADVECTION |
DO i=1-OLx,sNx+OLx |
|
./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 |
290 |
GAD_ADVECTION |
DO i=1-OLx,sNx+OLx |
|
./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 |
298 |
GAD_ADVECTION |
DO i=1-OLx,sNx+OLx |
|
./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 |
364 |
GAD_ADVECTION |
DO i=1-OLx,sNx+OLx |
|
./pkg/generic_advdiff/gad_advection.F |
365 |
GAD_ADVECTION |
af(i,j) = 0. |
|
./pkg/generic_advdiff/gad_advection.F |
392 |
GAD_ADVECTION |
DO i=1-OLx,sNx+OLx |
|
./pkg/generic_advdiff/gad_advection.F |
393 |
GAD_ADVECTION |
af(i,j) = 0. |
|
./pkg/generic_advdiff/gad_advection.F |
482 |
GAD_ADVECTION |
DO i=iMinUpd,iMaxUpd |
|
./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 |
505 |
GAD_ADVECTION |
DO i=iMinUpd,iMaxUpd |
|
./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 |
534 |
GAD_ADVECTION |
DO i=1-OLx+1,sNx+OLx-1 |
|
./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 |
556 |
GAD_ADVECTION |
DO i=1-OLx,sNx+OLx |
|
./pkg/generic_advdiff/gad_advection.F |
557 |
GAD_ADVECTION |
afx(i,j) = af(i,j) |
|
./pkg/generic_advdiff/gad_advection.F |
573 |
GAD_ADVECTION |
DO i=1-OLx,sNx+OLx |
|
./pkg/generic_advdiff/gad_advection.F |
574 |
GAD_ADVECTION |
af(i,j) = 0. |
|
./pkg/generic_advdiff/gad_advection.F |
601 |
GAD_ADVECTION |
DO i=1-OLx,sNx+OLx |
|
./pkg/generic_advdiff/gad_advection.F |
602 |
GAD_ADVECTION |
af(i,j) = 0. |
|
./pkg/generic_advdiff/gad_advection.F |
691 |
GAD_ADVECTION |
DO i=1-OLx,0 |
|
./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 |
714 |
GAD_ADVECTION |
DO i=sNx+1,sNx+OLx |
|
./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 |
743 |
GAD_ADVECTION |
DO i=iMinUpd,iMaxUpd |
|
./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 |
765 |
GAD_ADVECTION |
DO i=1-OLx,sNx+OLx |
|
./pkg/generic_advdiff/gad_advection.F |
766 |
GAD_ADVECTION |
afy(i,j) = af(i,j) |
|
./pkg/generic_advdiff/gad_advection.F |
785 |
GAD_ADVECTION |
DO i=1-OLx,sNx+OLx |
|
./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 |
793 |
GAD_ADVECTION |
DO i=1-OLx,sNx+OLx |
|
./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 |
846 |
GAD_ADVECTION |
DO i=1-OLx,sNx+OLx |
|
./pkg/generic_advdiff/gad_advection.F |
847 |
GAD_ADVECTION |
rTran3d(i,j,k) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_advection.F |
853 |
GAD_ADVECTION |
DO i=1-OLx,sNx+OLx |
|
./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 |
875 |
GAD_ADVECTION |
DO i=1-OLx,sNx+OLx |
|
./pkg/generic_advdiff/gad_advection.F |
876 |
GAD_ADVECTION |
rTran3d(i,j,k) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_advection.F |
882 |
GAD_ADVECTION |
DO i=1-OLx,sNx+OLx |
|
./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 |
926 |
GAD_ADVECTION |
DO i=1-OLx,sNx+OLx |
|
./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 |
937 |
GAD_ADVECTION |
DO i=1-OLx,sNx+OLx |
|
./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 |
984 |
GAD_ADVECTION |
DO i = 1-OLx,sNx+OLx |
|
./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 |
63 |
GAD_BIHARM_R |
DO i=1-OLx,sNx+OLx |
|
./pkg/generic_advdiff/gad_biharm_r.F |
64 |
GAD_BIHARM_R |
gradR(i,j,n) = 0. |
|
./pkg/generic_advdiff/gad_biharm_r.F |
70 |
GAD_BIHARM_R |
DO i=1-OLx,sNx+OLx |
|
./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 |
84 |
GAD_BIHARM_R |
DO i=1-OLx,sNx+OLx |
|
./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 |
94 |
GAD_BIHARM_R |
DO i=1-OLx,sNx+OLx |
|
./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 |
53 |
GAD_BIHARM_X |
DO i=1-Olx+1,sNx+Olx |
|
./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_y.F |
47 |
GAD_BIHARM_Y |
INTEGER i,j |
|
./pkg/generic_advdiff/gad_biharm_y.F |
55 |
GAD_BIHARM_Y |
DO i=1-Olx,sNx+Olx |
|
./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_c2_adv_r.F |
49 |
GAD_C2_ADV_R |
INTEGER i,j,km1 |
|
./pkg/generic_advdiff/gad_c2_adv_r.F |
56 |
GAD_C2_ADV_R |
DO i=1-OLx,sNx+OLx |
|
./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 |
62 |
GAD_C2_ADV_R |
DO i=1-OLx,sNx+OLx |
|
./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 |
53 |
GAD_C2_ADV_X |
DO i=1-Olx+1,sNx+Olx |
|
./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 |
49 |
GAD_C2_ADV_Y |
DO i=1-Olx,sNx+Olx |
|
./pkg/generic_advdiff/gad_c2_adv_y.F |
50 |
GAD_C2_ADV_Y |
vT(i,1-Oly)=0. |
|
./pkg/generic_advdiff/gad_c2_adv_y.F |
53 |
GAD_C2_ADV_Y |
DO i=1-Olx,sNx+Olx |
|
./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 |
64 |
GAD_C2_IMPL_R |
DO i=iMin,iMax |
|
./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 |
69 |
GAD_C4_ADV_R |
DO i=1-OLx,sNx+OLx |
|
./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 |
75 |
GAD_C4_ADV_R |
DO i=1-OLx,sNx+OLx |
|
./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 |
64 |
GAD_C4_ADV_X |
DO i=1-Olx+2,sNx+Olx-1 |
|
./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 |
58 |
GAD_C4_ADV_Y |
DO i=1-Olx,sNx+Olx |
|
./pkg/generic_advdiff/gad_c4_adv_y.F |
59 |
GAD_C4_ADV_Y |
vT(i,1-Oly)=0. |
|
./pkg/generic_advdiff/gad_c4_adv_y.F |
60 |
GAD_C4_ADV_Y |
vT(i,2-Oly)=0. |
|
./pkg/generic_advdiff/gad_c4_adv_y.F |
61 |
GAD_C4_ADV_Y |
vT(i,sNy+Oly)=0. |
|
./pkg/generic_advdiff/gad_c4_adv_y.F |
64 |
GAD_C4_ADV_Y |
DO i=1-Olx,sNx+Olx |
|
./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 |
174 |
GAD_CALC_RHS |
DO i=1-OLx,sNx+OLx |
|
./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 |
186 |
GAD_CALC_RHS |
DO i=1-OLx,sNx+OLx |
|
./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 |
193 |
GAD_CALC_RHS |
DO i=1-OLx,sNx+OLx |
|
./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 |
209 |
GAD_CALC_RHS |
DO i=1-OLx,sNx+OLx |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
210 |
GAD_CALC_RHS |
fZon(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
225 |
GAD_CALC_RHS |
DO i=1-OLx,sNx+OLx |
|
./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 |
280 |
GAD_CALC_RHS |
DO i=1-OLx,sNx+OLx |
|
./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 |
303 |
GAD_CALC_RHS |
DO i=1-OLx,sNx+OLx |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
304 |
GAD_CALC_RHS |
df(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
326 |
GAD_CALC_RHS |
DO i=1-OLx,sNx+OLx |
|
./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 |
349 |
GAD_CALC_RHS |
DO i=1-OLx,sNx+OLx |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
350 |
GAD_CALC_RHS |
fMer(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
365 |
GAD_CALC_RHS |
DO i=1-OLx,sNx+OLx |
|
./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 |
420 |
GAD_CALC_RHS |
DO i=1-OLx,sNx+OLx |
|
./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 |
443 |
GAD_CALC_RHS |
DO i=1-OLx,sNx+OLx |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
444 |
GAD_CALC_RHS |
df(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
466 |
GAD_CALC_RHS |
DO i=1-OLx,sNx+OLx |
|
./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 |
586 |
GAD_CALC_RHS |
DO i=1-OLx,sNx+OLx |
|
./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 |
611 |
GAD_CALC_RHS |
DO i=1-OLx,sNx+OLx |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
612 |
GAD_CALC_RHS |
df(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
635 |
GAD_CALC_RHS |
DO i=1-OLx,sNx+OLx |
|
./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 |
660 |
GAD_CALC_RHS |
DO i=1-OLx,sNx+OLx |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
661 |
GAD_CALC_RHS |
df(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
688 |
GAD_CALC_RHS |
DO i=1-OLx,sNx+OLx |
|
./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 |
720 |
GAD_CALC_RHS |
DO i=1-OLx,sNx+OLx-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 |
774 |
GAD_CALC_RHS |
DO i=1-OLx,sNx+OLx-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 |
49 |
GAD_DEL2 |
DO i=1-Olx,sNx+Olx |
|
./pkg/generic_advdiff/gad_del2.F |
50 |
GAD_DEL2 |
del2(i,j)= 0. _d 0 |
|
./pkg/generic_advdiff/gad_del2.F |
57 |
GAD_DEL2 |
DO i=1-Olx,sNx+Olx-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 |
118 |
GAD_DIAGNOSTICS_STATE |
DO i = 1-OLx,sNx+OLx |
|
./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 |
73 |
GAD_DIAGNOSTICS_STATE |
DO i = 1-OLx,sNx+OLx |
|
./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 |
56 |
GAD_DIFF_R |
DO i=1-OLx,sNx+OLx |
|
./pkg/generic_advdiff/gad_diff_r.F |
57 |
GAD_DIFF_R |
dfr(i,j) = 0. |
|
./pkg/generic_advdiff/gad_diff_r.F |
62 |
GAD_DIFF_R |
DO i=1-OLx,sNx+OLx |
|
./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 |
53 |
GAD_DIFF_X |
DO i=1-Olx+1,sNx+Olx |
|
./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)) |
|
./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 |
51 |
GAD_DIFF_Y |
DO i=1-Olx,sNx+Olx |
|
./pkg/generic_advdiff/gad_diff_y.F |
52 |
GAD_DIFF_Y |
dfy(i,1-Oly)=0. |
|
./pkg/generic_advdiff/gad_diff_y.F |
55 |
GAD_DIFF_Y |
DO i=1-Olx,sNx+Olx |
|
./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_dst2u1_adv_r.F |
56 |
GAD_DST2U1_ADV_R |
INTEGER i,j,km1 |
|
./pkg/generic_advdiff/gad_dst2u1_adv_r.F |
67 |
GAD_DST2U1_ADV_R |
DO i=1-Olx,sNx+Olx |
|
./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 |
73 |
GAD_DST2U1_ADV_R |
DO i=1-Olx,sNx+Olx |
|
./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 |
67 |
GAD_DST2U1_ADV_X |
DO i=1-Olx+1,sNx+Olx |
|
./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 |
62 |
GAD_DST2U1_ADV_Y |
DO i=1-Olx,sNx+Olx |
|
./pkg/generic_advdiff/gad_dst2u1_adv_y.F |
63 |
GAD_DST2U1_ADV_Y |
vT(i,1-Oly)=0. |
|
./pkg/generic_advdiff/gad_dst2u1_adv_y.F |
66 |
GAD_DST2U1_ADV_Y |
DO i=1-Olx,sNx+Olx |
|
./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 |
81 |
GAD_DST2U1_IMPL_R |
DO i=iMin,iMax |
|
./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 |
78 |
GAD_DST3_ADV_R |
DO i=1-OLx,sNx+OLx |
|
./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 |
80 |
GAD_DST3_ADV_X |
DO i=1-OLx+2,sNx+OLx-1 |
|
./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 |
73 |
GAD_DST3_ADV_Y |
DO i=1-OLx,sNx+OLx |
|
./pkg/generic_advdiff/gad_dst3_adv_y.F |
74 |
GAD_DST3_ADV_Y |
vT(i,1-OLy)=0. |
|
./pkg/generic_advdiff/gad_dst3_adv_y.F |
75 |
GAD_DST3_ADV_Y |
vT(i,2-OLy)=0. |
|
./pkg/generic_advdiff/gad_dst3_adv_y.F |
76 |
GAD_DST3_ADV_Y |
vT(i,sNy+OLy)=0. |
|
./pkg/generic_advdiff/gad_dst3_adv_y.F |
79 |
GAD_DST3_ADV_Y |
DO i=1-OLx,sNx+OLx |
|
./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 |
67 |
GAD_DST3FL_ADV_R |
DO i=1-OLx,sNx+OLx |
|
./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 |
51 |
GAD_DST3FL_ADV_X |
DO i=1-OLx+2,sNx+OLx-1 |
|
./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 |
41 |
GAD_DST3FL_ADV_Y |
DO i=1-OLx,sNx+OLx |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
42 |
GAD_DST3FL_ADV_Y |
vT(i,1-OLy)=0. _d 0 |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
43 |
GAD_DST3FL_ADV_Y |
vT(i,2-OLy)=0. _d 0 |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
44 |
GAD_DST3FL_ADV_Y |
vT(i,sNy+OLy)=0. _d 0 |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
47 |
GAD_DST3FL_ADV_Y |
DO i=1-OLx,sNx+OLx |
|
./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 |
101 |
GAD_DST3FL_IMPL_R |
DO i=iMin,iMax |
|
./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 |
144 |
GAD_DST3FL_IMPL_R |
DO i=iMin,iMax |
|
./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 |
77 |
GAD_FLUXLIMIT_ADV_R |
DO i=1-Olx,sNx+Olx |
|
./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 |
83 |
GAD_FLUXLIMIT_ADV_R |
DO i=1-Olx,sNx+Olx |
|
./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 |
74 |
GAD_FLUXLIMIT_ADV_X |
DO i=1-Olx+2,sNx+Olx-1 |
|
./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 |
68 |
GAD_FLUXLIMIT_ADV_Y |
DO i=1-Olx,sNx+Olx |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F |
69 |
GAD_FLUXLIMIT_ADV_Y |
vT(i,1-Oly)=0. |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F |
70 |
GAD_FLUXLIMIT_ADV_Y |
vT(i,2-Oly)=0. |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F |
71 |
GAD_FLUXLIMIT_ADV_Y |
vT(i,sNy+Oly)=0. |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F |
74 |
GAD_FLUXLIMIT_ADV_Y |
DO i=1-Olx,sNx+Olx |
|
./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 |
111 |
GAD_FLUXLIMIT_IMPL_R |
DO i=iMin,iMax |
|
./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 |
87 |
GAD_FLUXLIMIT_IMPL_R |
DO i=iMin,iMax |
|
./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 |
61 |
GAD_GRAD_X |
DO i=1-Olx+1,sNx+Olx |
|
./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 |
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 |
59 |
GAD_GRAD_Y |
DO i=1-Olx,sNx+Olx |
|
./pkg/generic_advdiff/gad_grad_y.F |
63 |
GAD_GRAD_Y |
DO i=1-Olx,sNx+Olx |
|
./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 |
73 |
GAD_GRAD_Y |
& *maskInS(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
110 |
GAD_IMPLICIT_R |
DO i=1-OLx,sNx+OLx |
|
./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 |
127 |
GAD_IMPLICIT_R |
DO i=iMin,iMax |
|
./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 |
139 |
GAD_IMPLICIT_R |
DO i=iMin,iMax |
|
./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 |
151 |
GAD_IMPLICIT_R |
DO i=iMin,iMax |
|
./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 |
170 |
GAD_IMPLICIT_R |
DO i=1-OLx,sNx+OLx |
|
./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 |
178 |
GAD_IMPLICIT_R |
DO i=1-OLx,sNx+OLx |
|
./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 |
191 |
GAD_IMPLICIT_R |
DO i=1-OLx,sNx+OLx |
|
./pkg/generic_advdiff/gad_implicit_r.F |
192 |
GAD_IMPLICIT_R |
rTrans(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_implicit_r.F |
197 |
GAD_IMPLICIT_R |
DO i=1-OLx,sNx+OLx |
|
./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 |
300 |
GAD_IMPLICIT_R |
DO i=1-OLx,sNx+OLx |
|
./pkg/generic_advdiff/gad_implicit_r.F |
301 |
GAD_IMPLICIT_R |
flx(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_implicit_r.F |
309 |
GAD_IMPLICIT_R |
DO i=iMin,iMax |
|
./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 |
324 |
GAD_IMPLICIT_R |
DO i=1-OLx,sNx+OLx |
|
./pkg/generic_advdiff/gad_implicit_r.F |
325 |
GAD_IMPLICIT_R |
df(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_implicit_r.F |
364 |
GAD_IMPLICIT_R |
DO i=iMin,iMax |
|
./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 |
372 |
GAD_IMPLICIT_R |
DO i=iMin,iMax |
|
./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 |
384 |
GAD_IMPLICIT_R |
DO i=iMin,iMax |
|
./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 |
391 |
GAD_IMPLICIT_R |
DO i=iMin,iMax |
|
./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 |
400 |
GAD_IMPLICIT_R |
DO i=iMin,iMax |
|
./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 |
415 |
GAD_IMPLICIT_R |
DO i=iMin,iMax |
|
./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 |
421 |
GAD_IMPLICIT_R |
DO i=iMin,iMax |
|
./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 |
47 |
GAD_INIT_VARIA |
DO i=1-Olx,sNx+Olx |
|
./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 |
60 |
GAD_OS7MP_ADV_R |
DO i=1-Olx,sNx+Olx |
|
./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 |
63 |
GAD_OS7MP_ADV_X |
DO i=1-Olx+4,sNx+Olx-3 |
|
./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 |
53 |
GAD_OS7MP_ADV_Y |
DO i=1-Olx,sNx+Olx |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
54 |
GAD_OS7MP_ADV_Y |
vT(i,1-Oly)=0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
55 |
GAD_OS7MP_ADV_Y |
vT(i,2-Oly)=0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
56 |
GAD_OS7MP_ADV_Y |
vT(i,3-Oly)=0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
57 |
GAD_OS7MP_ADV_Y |
vT(i,4-Oly)=0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
58 |
GAD_OS7MP_ADV_Y |
vT(i,sNy+Oly-2)=0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
59 |
GAD_OS7MP_ADV_Y |
vT(i,sNy+Oly-1)=0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
60 |
GAD_OS7MP_ADV_Y |
vT(i,sNy+Oly)=0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
63 |
GAD_OS7MP_ADV_Y |
DO i=1-Olx,sNx+Olx |
|
./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 |
155 |
GAD_SOM_ADV_R |
DO i=iMinAdvR,iMaxAdvR |
|
./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 |
188 |
GAD_SOM_ADV_R |
DO i=iMinAdvR,iMaxAdvR |
|
./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 |
216 |
GAD_SOM_ADV_R |
DO i=iMinAdvR,iMaxAdvR |
|
./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 |
256 |
GAD_SOM_ADV_R |
DO i=iMinAdvR,iMaxAdvR |
|
./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 |
281 |
GAD_SOM_ADV_R |
DO i=iMinAdvR,iMaxAdvR |
|
./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 |
309 |
GAD_SOM_ADV_R |
DO i=iMinAdvR,iMaxAdvR |
|
./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 |
156 |
GAD_SOM_ADV_X |
DO i=iMinUpd(1)-1,iMaxUpd(1)+1 |
|
./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 |
176 |
GAD_SOM_ADV_X |
DO i=iMinUpd(1),iMaxUpd(1)+1 |
|
./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 |
231 |
GAD_SOM_ADV_X |
DO i=iMinUpd(1),iMaxUpd(1) |
|
./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 |
259 |
GAD_SOM_ADV_X |
DO i=iMinUpd(1),iMaxUpd(1) |
|
./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 |
156 |
GAD_SOM_ADV_Y |
DO i=iMinUpd(ns),iMaxUpd(ns) |
|
./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 |
176 |
GAD_SOM_ADV_Y |
DO i=iMinUpd(ns),iMaxUpd(ns) |
|
./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 |
232 |
GAD_SOM_ADV_Y |
DO i=iMinUpd(ns),iMaxUpd(ns) |
|
./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 |
260 |
GAD_SOM_ADV_Y |
DO i=iMinUpd(ns),iMaxUpd(ns) |
|
./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 |
176 |
GAD_SOM_ADVECT |
DO i=1-OLx,sNx+OLx |
|
./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 |
192 |
GAD_SOM_ADVECT |
DO i=1,OLx |
|
./pkg/generic_advdiff/gad_som_advect.F |
193 |
GAD_SOM_ADVECT |
smCorners(i,j,k,n) = 0. |
|
./pkg/generic_advdiff/gad_som_advect.F |
245 |
GAD_SOM_ADVECT |
DO i=1-OLx,sNx+OLx |
|
./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 |
255 |
GAD_SOM_ADVECT |
DO i=1-OLx,sNx+OLx |
|
./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 |
263 |
GAD_SOM_ADVECT |
DO i=1-OLx,sNx+OLx |
|
./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 |
403 |
GAD_SOM_ADVECT |
DO i=1-OLx,sNx+OLx |
|
./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 |
480 |
GAD_SOM_ADVECT |
DO i=1-OLx,sNx+OLx |
|
./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 |
521 |
GAD_SOM_ADVECT |
DO i=1-OLx,sNx+OLx |
|
./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 |
530 |
GAD_SOM_ADVECT |
DO i=1-OLx,sNx+OLx |
|
./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 |
542 |
GAD_SOM_ADVECT |
DO i=1-OLx,sNx+OLx |
|
./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 |
581 |
GAD_SOM_ADVECT |
DO i=1-OLx,sNx+OLx |
|
./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 |
66 |
GAD_SOM_LIM_R |
DO i=iMinAdvR,iMaxAdvR |
|
./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 |
130 |
GAD_SOM_PREP_CS_CORNER |
DO i=1,OLx |
|
./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 |
141 |
GAD_SOM_PREP_CS_CORNER |
DO i=1,OLx |
|
./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 |
152 |
GAD_SOM_PREP_CS_CORNER |
DO i=1,OLx |
|
./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 |
163 |
GAD_SOM_PREP_CS_CORNER |
DO i=1,OLx |
|
./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 |
183 |
GAD_SOM_PREP_CS_CORNER |
DO i=1,OLx |
|
./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 |
194 |
GAD_SOM_PREP_CS_CORNER |
DO i=1,OLx |
|
./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 |
205 |
GAD_SOM_PREP_CS_CORNER |
DO i=1,OLx |
|
./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 |
216 |
GAD_SOM_PREP_CS_CORNER |
DO i=1,OLx |
|
./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 |
64 |
GAD_U3_ADV_R |
DO i=1-OLx,sNx+OLx |
|
./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 |
70 |
GAD_U3_ADV_R |
DO i=1-OLx,sNx+OLx |
|
./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 |
63 |
GAD_U3_ADV_X |
DO i=1-Olx+2,sNx+Olx-1 |
|
./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 |
57 |
GAD_U3_ADV_Y |
DO i=1-Olx,sNx+Olx |
|
./pkg/generic_advdiff/gad_u3_adv_y.F |
58 |
GAD_U3_ADV_Y |
vT(i,1-Oly)=0. |
|
./pkg/generic_advdiff/gad_u3_adv_y.F |
59 |
GAD_U3_ADV_Y |
vT(i,2-Oly)=0. |
|
./pkg/generic_advdiff/gad_u3_adv_y.F |
60 |
GAD_U3_ADV_Y |
vT(i,sNy+Oly)=0. |
|
./pkg/generic_advdiff/gad_u3_adv_y.F |
63 |
GAD_U3_ADV_Y |
DO i=1-Olx,sNx+Olx |
|
./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 |
101 |
GAD_U3C4_IMPL_R |
DO i=iMin,iMax |
|
./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 |
128 |
GAD_U3C4_IMPL_R |
DO i=iMin,iMax |
|
./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 |
100 |
SALT_FILL |
do i=1,sNx |
|
./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 |
89 |
SALT_FILL |
do i=1,sNx |
|
./pkg/generic_advdiff/salt_fill.F |
90 |
SALT_FILL |
if( salt(i,j,L,bi,bj).lt.0.0 _d 0) then |
|
./pkg/generic_advdiff/salt_fill.F |
91 |
SALT_FILL |
salt(i,j,LM1,bi,bj) = salt(i,j,LM1,bi,bj) + |
|
./pkg/generic_advdiff/salt_fill.F |
92 |
SALT_FILL |
. salt(i,j,L,bi,bj)*dpratio |
|
./pkg/generic_advdiff/salt_fill.F |
93 |
SALT_FILL |
salt(i,j,L,bi,bj) = 0.0 _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
154 |
GGL90_CALC |
DO i=1-OLx,sNx+OLx |
|
./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 |
171 |
GGL90_CALC |
DO i=1-OLx,sNx+OLx |
|
./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 |
190 |
GGL90_CALC |
DO i=1-OLx,sNx+OLx |
|
./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 |
214 |
GGL90_CALC |
DO i=iMin,iMax |
|
./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 |
232 |
GGL90_CALC |
DO i=iMin,iMax |
|
./pkg/ggl90/ggl90_calc.F |
233 |
GGL90_CALC |
GGL90mixingLength(i,j,2)=drF(1) |
|
./pkg/ggl90/ggl90_calc.F |
244 |
GGL90_CALC |
DO i=iMin,iMax |
|
./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 |
254 |
GGL90_CALC |
DO i=iMin,iMax |
|
./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 |
266 |
GGL90_CALC |
DO i=iMin,iMax |
|
./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 |
277 |
GGL90_CALC |
DO i=iMin,iMax |
|
./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 |
289 |
GGL90_CALC |
DO i=iMin,iMax |
|
./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 |
296 |
GGL90_CALC |
DO i=iMin,iMax |
|
./pkg/ggl90/ggl90_calc.F |
297 |
GGL90_CALC |
GGL90mixingLength(i,j,Nr) = MIN(GGL90mixingLength(i,j,Nr), |
|
./pkg/ggl90/ggl90_calc.F |
303 |
GGL90_CALC |
DO i=iMin,iMax |
|
./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 |
312 |
GGL90_CALC |
DO i=iMin,iMax |
|
./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 |
324 |
GGL90_CALC |
DO i=iMin,iMax |
|
./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 |
331 |
GGL90_CALC |
DO i=iMin,iMax |
|
./pkg/ggl90/ggl90_calc.F |
332 |
GGL90_CALC |
GGL90mixingLength(i,j,Nr) = MIN(GGL90mixingLength(i,j,Nr), |
|
./pkg/ggl90/ggl90_calc.F |
338 |
GGL90_CALC |
DO i=iMin,iMax |
|
./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 |
347 |
GGL90_CALC |
DO i=iMin,iMax |
|
./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 |
372 |
GGL90_CALC |
DO i=1-OLx,sNx+OLx |
|
./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 |
385 |
GGL90_CALC |
DO i=1-OLx+1,sNx+OLx |
|
./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 |
395 |
GGL90_CALC |
DO i=1-OLx,sNx+OLx |
|
./pkg/ggl90/ggl90_calc.F |
396 |
GGL90_CALC |
dfy(i,1-OLy)=0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
399 |
GGL90_CALC |
DO i=1-OLx,sNx+OLx |
|
./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 |
410 |
GGL90_CALC |
DO i=1-OLx,sNx+OLx-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 |
423 |
GGL90_CALC |
DO i=iMin,iMax |
|
./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 |
437 |
GGL90_CALC |
DO i=iMin,iMax |
|
./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 |
451 |
GGL90_CALC |
DO i=iMin,iMax |
|
./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 |
467 |
GGL90_CALC |
DO i=iMin,iMax |
|
./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 |
486 |
GGL90_CALC |
DO i=iMin,iMax |
|
./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 |
497 |
GGL90_CALC |
DO i=iMin,iMax |
|
./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 |
520 |
GGL90_CALC |
DO i=iMin,iMax |
|
./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 |
534 |
GGL90_CALC |
DO i=iMin,iMax |
|
./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 |
552 |
GGL90_CALC |
DO i=iMin,iMax |
|
./pkg/ggl90/ggl90_calc.F |
553 |
GGL90_CALC |
a3d(i,j,1) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
559 |
GGL90_CALC |
DO i=iMin,iMax |
|
./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 |
572 |
GGL90_CALC |
DO i=iMin,iMax |
|
./pkg/ggl90/ggl90_calc.F |
573 |
GGL90_CALC |
c3d(i,j,1) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
578 |
GGL90_CALC |
DO i=iMin,iMax |
|
./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 |
595 |
GGL90_CALC |
DO i=iMin,iMax |
|
./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 |
607 |
GGL90_CALC |
DO i=iMin,iMax |
|
./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 |
618 |
GGL90_CALC |
DO i=iMin,iMax |
|
./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 |
631 |
GGL90_CALC |
DO i=iMin,iMax |
|
./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 |
651 |
GGL90_CALC |
DO i=iMin,iMax |
|
./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 |
670 |
GGL90_CALC |
DO i=iMin,iMax |
|
./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 |
683 |
GGL90_CALC |
DO i=1,sNx |
|
./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 |
717 |
GGL90_CALC |
DO i=1,sNx+1 |
|
./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 |
747 |
GGL90_CALC |
DO i=1,sNx |
|
./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 |
792 |
GGL90_CALC |
DO i=iMin,iMax |
|
./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 |
805 |
GGL90_CALC |
DO i=iMin,iMax |
|
./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 |
52 |
GGL90_CALC_DIFF |
DO i=iMin,iMax |
|
./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 |
63 |
GGL90_CALC_DIFF |
DO i=iMin,iMax |
|
./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 |
48 |
GGL90_CALC_VISC |
DO i=iMin,iMax |
|
./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 |
55 |
GGL90_CALC_VISC |
DO i=iMin,iMax |
|
./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 |
102 |
GGL90_IDEMIX |
DO i=1-OLx,sNx+OLx |
|
./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 |
114 |
GGL90_IDEMIX |
DO i=1-OLx,sNx+OLx |
|
./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 |
128 |
GGL90_IDEMIX |
DO i=1-OLx,sNx+OLx |
|
./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 |
140 |
GGL90_IDEMIX |
DO i=1-OLx,sNx+OLx |
|
./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 |
163 |
GGL90_IDEMIX |
DO i=1-OLx,sNx+OLx |
|
./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 |
180 |
GGL90_IDEMIX |
DO i=1-OLx,sNx+OLx |
|
./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 |
189 |
GGL90_IDEMIX |
DO i=1-OLx,sNx+OLx |
|
./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 |
204 |
GGL90_IDEMIX |
DO i=1-OLx,sNx+OLx |
|
./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 |
214 |
GGL90_IDEMIX |
DO i=1-OLx,sNx+OLx |
|
./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 |
226 |
GGL90_IDEMIX |
DO i=1-OLx,sNx+OLx |
|
./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 |
242 |
GGL90_IDEMIX |
DO i=1-OLx+1,sNx+OLx |
|
./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 |
255 |
GGL90_IDEMIX |
DO i=1-OLx,sNx+OLx |
|
./pkg/ggl90/ggl90_idemix.F |
256 |
GGL90_IDEMIX |
dfy(i,1-OLy)=0. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
259 |
GGL90_IDEMIX |
DO i=1-OLx,sNx+OLx |
|
./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 |
276 |
GGL90_IDEMIX |
DO i=iMin,iMax |
|
./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 |
290 |
GGL90_IDEMIX |
DO i=iMin,iMax |
|
./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 |
303 |
GGL90_IDEMIX |
DO i=iMin,iMax |
|
./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 |
311 |
GGL90_IDEMIX |
DO i=iMin,iMax |
|
./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 |
321 |
GGL90_IDEMIX |
DO i=iMin,iMax |
|
./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 |
329 |
GGL90_IDEMIX |
DO i=iMin,iMax |
|
./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 |
341 |
GGL90_IDEMIX |
DO i=iMin,iMax |
|
./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 |
352 |
GGL90_IDEMIX |
DO i=iMin,iMax |
|
./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 |
361 |
GGL90_IDEMIX |
DO i=iMin,iMax |
|
./pkg/ggl90/ggl90_idemix.F |
362 |
GGL90_IDEMIX |
b3d(i,j,1) = 1. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
368 |
GGL90_IDEMIX |
DO i=iMin,iMax |
|
./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 |
386 |
GGL90_IDEMIX |
DO i=iMin,iMax |
|
./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 |
410 |
GGL90_IDEMIX |
DO i=iMin,iMax |
|
./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 |
441 |
GGL90_IDEMIX |
DO i=iMin,iMax |
|
./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 |
89 |
GGL90_IDEMIX |
DO i=1-OLx,sNx+OLx |
|
./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 |
53 |
GGL90_INIT_FIXED |
DO i=1-OLx,sNx+OLx |
|
./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 |
56 |
GMREDI_CALC_DIFF |
DO i=iMin,iMax |
|
./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 |
75 |
GMREDI_CALC_DIFF |
DO i=iMin,iMax |
|
./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 |
101 |
GMREDI_CALC_EIGS |
DO i=1-OLx,sNx+OLx |
|
./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 |
109 |
GMREDI_CALC_EIGS |
DO i=1-Olx,sNx+Olx |
|
./pkg/gmredi/gmredi_calc_eigs.F |
111 |
GMREDI_CALC_EIGS |
vec(m,i,j,k) = zeroRL |
|
./pkg/gmredi/gmredi_calc_eigs.F |
124 |
GMREDI_CALC_EIGS |
DO i=1-OLx,sNx+OLx |
|
./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 |
161 |
GMREDI_CALC_EIGS |
DO i=1-Olx,sNx+Olx |
|
./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 |
237 |
GMREDI_CALC_EIGS |
DO i=1-Olx,sNx+Olx |
|
./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 |
249 |
GMREDI_CALC_EIGS |
DO i=1-Olx,sNx+Olx |
|
./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 |
256 |
GMREDI_CALC_EIGS |
DO i=1-Olx,sNx+Olx |
|
./pkg/gmredi/gmredi_calc_eigs.F |
257 |
GMREDI_CALC_EIGS |
BuoyFreq(i,j,k) = zeroRL |
|
./pkg/gmredi/gmredi_calc_eigs.F |
268 |
GMREDI_CALC_EIGS |
DO i=1-Olx,sNx+Olx |
|
./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 |
274 |
GMREDI_CALC_EIGS |
DO i=1-Olx,sNx+Olx |
|
./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 |
286 |
GMREDI_CALC_EIGS |
DO i=1-Olx,sNx+Olx |
|
./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 |
293 |
GMREDI_CALC_EIGS |
DO i=1-Olx,sNx+Olx |
|
./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 |
300 |
GMREDI_CALC_EIGS |
DO i=1-Olx,sNx+Olx |
|
./pkg/gmredi/gmredi_calc_eigs.F |
301 |
GMREDI_CALC_EIGS |
nEigs(i,j) = MIN(klow(i,j),nmodes) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
306 |
GMREDI_CALC_EIGS |
DO i=1-Olx,sNx+Olx |
|
./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 |
319 |
GMREDI_CALC_EIGS |
DO i=1-Olx,sNx+Olx |
|
./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 |
327 |
GMREDI_CALC_EIGS |
DO i=1-Olx,sNx+Olx |
|
./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 |
335 |
GMREDI_CALC_EIGS |
DO i=1-Olx,sNx+Olx |
|
./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 |
343 |
GMREDI_CALC_EIGS |
DO i=1-Olx,sNx+Olx |
|
./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 |
354 |
GMREDI_CALC_EIGS |
DO i=1-Olx,sNx+Olx |
|
./pkg/gmredi/gmredi_calc_eigs.F |
356 |
GMREDI_CALC_EIGS |
vecint(m,i,j) = zeroRL |
|
./pkg/gmredi/gmredi_calc_eigs.F |
363 |
GMREDI_CALC_EIGS |
DO i=1-Olx,sNx+Olx |
|
./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 |
374 |
GMREDI_CALC_EIGS |
DO i=1-Olx,sNx+Olx |
|
./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 |
383 |
GMREDI_CALC_EIGS |
DO i=1-Olx,sNx+Olx |
|
./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 |
110 |
GMREDI_CALC_PSI_B |
DO i=1-OLx+1,sNx+OLx |
|
./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 |
118 |
GMREDI_CALC_PSI_B |
DO i=1-OLx,sNx+OLx |
|
./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 |
146 |
GMREDI_CALC_PSI_B |
DO i=1-OLx+1,sNx+OLx |
|
./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 |
169 |
GMREDI_CALC_PSI_B |
DO i=1-OLx,sNx+OLx |
|
./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 |
99 |
GMREDI_CALC_PSI_B |
DO i=1-OLx,sNx+OLx |
|
./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 |
111 |
GMREDI_CALC_PSI_BVP |
DO i=1-OLx+1,sNx+OLx |
|
./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 |
141 |
GMREDI_CALC_PSI_BVP |
DO i=1-OLx+1,sNx+OLx |
|
./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 |
177 |
GMREDI_CALC_PSI_BVP |
DO i=1-OLx,sNx+OLx |
|
./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 |
190 |
GMREDI_CALC_PSI_BVP |
DO i=1-OLx,sNx+OLx |
|
./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 |
213 |
GMREDI_CALC_PSI_BVP |
DO i=1-OLx,sNx+OLx |
|
./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 |
80 |
GMREDI_CALC_PSI_BVP |
DO i=1-OLx,sNx+OLx |
|
./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 |
88 |
GMREDI_CALC_PSI_BVP |
DO i=1-OLx,sNx+OLx |
|
./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 |
97 |
GMREDI_CALC_PSI_BVP |
DO i=1-OLx,sNx+OLx |
|
./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 |
1017 |
GMREDI_CALC_TENSOR |
DO i=1,sNx |
|
./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 |
1040 |
GMREDI_CALC_TENSOR |
DO i=1,sNx |
|
./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 |
1151 |
GMREDI_CALC_TENSOR_DUMMY |
DO i=1-OLx+1,sNx+OLx-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 |
153 |
GMREDI_CALC_TENSOR |
DO i=1-OLx,sNx+OLx |
|
./pkg/gmredi/gmredi_calc_tensor.F |
154 |
GMREDI_CALC_TENSOR |
VisbeckK(i,j,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
167 |
GMREDI_CALC_TENSOR |
DO i=1-OLx,sNx+OLx |
|
./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 |
180 |
GMREDI_CALC_TENSOR |
DO i=1-OLx+1,sNx+OLx |
|
./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 |
192 |
GMREDI_CALC_TENSOR |
DO i=1-OLx+1,sNx+OLx |
|
./pkg/gmredi/gmredi_calc_tensor.F |
193 |
GMREDI_CALC_TENSOR |
kLow_S(i,1-OLy) = 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
194 |
GMREDI_CALC_TENSOR |
ldd97_LrhoS(i,1-OLy) = LrhoSup |
|
./pkg/gmredi/gmredi_calc_tensor.F |
197 |
GMREDI_CALC_TENSOR |
DO i=1-OLx,sNx+OLx |
|
./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 |
211 |
GMREDI_CALC_TENSOR |
DO i=1-OLx,sNx+OLx |
|
./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 |
222 |
GMREDI_CALC_TENSOR |
DO i=1-OLx,sNx+OLx |
|
./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 |
232 |
GMREDI_CALC_TENSOR |
DO i=1-OLx,sNx+OLx |
|
./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 |
251 |
GMREDI_CALC_TENSOR |
DO i=1-OLx,sNx+OLx |
|
./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 |
261 |
GMREDI_CALC_TENSOR |
DO i=1-OLx,sNx+OLx |
|
./pkg/gmredi/gmredi_calc_tensor.F |
262 |
GMREDI_CALC_TENSOR |
locMixLayer(i,j) = KPPhbl(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
270 |
GMREDI_CALC_TENSOR |
DO i=1-OLx,sNx+OLx |
|
./pkg/gmredi/gmredi_calc_tensor.F |
271 |
GMREDI_CALC_TENSOR |
locMixLayer(i,j) = hMixLayer(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
299 |
GMREDI_CALC_TENSOR |
DO i=1-OLx,sNx+OLx |
|
./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 |
312 |
GMREDI_CALC_TENSOR |
DO i=1-OLx+1,sNx+OLx-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 |
330 |
GMREDI_CALC_TENSOR |
DO i=1-OLx,sNx+OLx |
|
./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 |
344 |
GMREDI_CALC_TENSOR |
DO i=1-OLx+1,sNx+OLx-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 |
406 |
GMREDI_CALC_TENSOR |
DO i=1-OLx,sNx+OLx |
|
./pkg/gmredi/gmredi_calc_tensor.F |
407 |
GMREDI_CALC_TENSOR |
dSigmaDr(i,j)=sigmaR(i,j,k) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
433 |
GMREDI_CALC_TENSOR |
DO i=1-OLx+1,sNx+OLx-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 |
451 |
GMREDI_CALC_TENSOR |
DO i=1-OLx+1,sNx+OLx-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 |
461 |
GMREDI_CALC_TENSOR |
DO i=1-OLx+1,sNx+OLx-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 |
504 |
GMREDI_CALC_TENSOR |
DO i=1-OLx+1,sNx+OLx-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 |
535 |
GMREDI_CALC_TENSOR |
DO i=1-OLx+1,sNx+OLx-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 |
640 |
GMREDI_CALC_TENSOR |
DO i=2-OLx,sNx+OLx |
|
./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 |
650 |
GMREDI_CALC_TENSOR |
DO i=2-OLx,sNx+OLx |
|
./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 |
657 |
GMREDI_CALC_TENSOR |
DO i=1-OLx,sNx+OLx |
|
./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 |
662 |
GMREDI_CALC_TENSOR |
DO i=2-OLx,sNx+OLx |
|
./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 |
677 |
GMREDI_CALC_TENSOR |
DO i=1-OLx+1,sNx+OLx-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 |
719 |
GMREDI_CALC_TENSOR |
DO i=1-OLx+1,sNx+OLx-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 |
746 |
GMREDI_CALC_TENSOR |
DO i=1-OLx+1,sNx+OLx-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 |
761 |
GMREDI_CALC_TENSOR |
DO i=1-OLx+1,sNx+OLx-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 |
799 |
GMREDI_CALC_TENSOR |
DO i=1,sNx+1 |
|
./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 |
822 |
GMREDI_CALC_TENSOR |
DO i=1,sNx+1 |
|
./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 |
855 |
GMREDI_CALC_TENSOR |
DO i=1-OLx,sNx+OLx |
|
./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 |
865 |
GMREDI_CALC_TENSOR |
DO i=1-OLx,sNx+OLx |
|
./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 |
872 |
GMREDI_CALC_TENSOR |
DO i=1-OLx,sNx+OLx |
|
./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 |
879 |
GMREDI_CALC_TENSOR |
DO i=1-OLx,sNx+OLx |
|
./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 |
894 |
GMREDI_CALC_TENSOR |
DO i=1-OLx+1,sNx+OLx-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 |
937 |
GMREDI_CALC_TENSOR |
DO i=1-OLx+1,sNx+OLx-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 |
964 |
GMREDI_CALC_TENSOR |
DO i=1-OLx+1,sNx+OLx-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 |
979 |
GMREDI_CALC_TENSOR |
DO i=1-OLx+1,sNx+OLx-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 |
51 |
GMREDI_CALC_URMS |
DO i=1-Olx,sNx+Olx |
|
./pkg/gmredi/gmredi_calc_urms.F |
52 |
GMREDI_CALC_URMS |
bbc(i,j) = zeroRL |
|
./pkg/gmredi/gmredi_calc_urms.F |
59 |
GMREDI_CALC_URMS |
DO i=1-Olx,sNx+Olx |
|
./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 |
72 |
GMREDI_CALC_URMS |
DO i=1-Olx,sNx+Olx |
|
./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 |
85 |
GMREDI_CALC_URMS |
DO i=1-Olx,sNx+Olx |
|
./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 |
78 |
GMREDI_DIAGNOSTICS_FILL |
DO i = 1, snx |
|
./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 |
92 |
GMREDI_DIAGNOSTICS_FILL |
DO i = 1, snx |
|
./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 |
59 |
GMREDI_DIAGNOSTICS_IMPL |
DO i = 1, sNx |
|
./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 |
49 |
GMREDI_INIT_FIXED |
DO i=1-Olx,sNx+Olx |
|
./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 |
125 |
GMREDI_INIT_VARIA |
DO i=1-Olx,sNx+Olx |
|
./pkg/gmredi/gmredi_init_varia.F |
126 |
GMREDI_INIT_VARIA |
gradf(i,j,bi,bj) = beta |
|
./pkg/gmredi/gmredi_init_varia.F |
135 |
GMREDI_INIT_VARIA |
DO i=1-Olx,sNx+Olx |
|
./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 |
145 |
GMREDI_INIT_VARIA |
DO i=1-Olx+1,sNx+Olx-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 |
47 |
GMREDI_INIT_VARIA |
DO i=1-Olx,sNx+Olx |
|
./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 |
1006 |
GMREDI_K3D |
DO i=1-Olx,sNx+Olx-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 |
1029 |
GMREDI_K3D |
DO i=1-Olx+1,sNx+Olx-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 |
1038 |
GMREDI_K3D |
DO i=1-Olx+1,sNx+Olx |
|
./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 |
1047 |
GMREDI_K3D |
DO i=1-Olx+1,sNx+Olx |
|
./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 |
1059 |
GMREDI_K3D |
DO i=1-Olx,sNx+Olx |
|
./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 |
1065 |
GMREDI_K3D |
DO i=1-Olx,sNx+Olx |
|
./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 |
1077 |
GMREDI_K3D |
DO i=1-Olx+1,sNx+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 |
1084 |
GMREDI_K3D |
DO i=1-Olx+1,sNx+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 |
1142 |
GMREDI_K3D |
DO i=1-Olx,sNx+Olx |
|
./pkg/gmredi/gmredi_k3d.F |
1143 |
GMREDI_K3D |
K3D(i,j,k,bi,bj) = GM_K3D_constK |
|
./pkg/gmredi/gmredi_k3d.F |
222 |
GMREDI_K3D |
DO i=1-Olx,sNx+Olx |
|
./pkg/gmredi/gmredi_k3d.F |
223 |
GMREDI_K3D |
kLow_C(i,j) = kLowC(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
227 |
GMREDI_K3D |
DO i=1-Olx+1,sNx+Olx |
|
./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 |
232 |
GMREDI_K3D |
DO i=1-Olx,sNx+Olx |
|
./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 |
239 |
GMREDI_K3D |
i=1-Olx |
|
./pkg/gmredi/gmredi_k3d.F |
241 |
GMREDI_K3D |
kLow_U(i,j) = 0 |
|
./pkg/gmredi/gmredi_k3d.F |
244 |
GMREDI_K3D |
DO i=1-Olx,sNx+Olx |
|
./pkg/gmredi/gmredi_k3d.F |
245 |
GMREDI_K3D |
kLow_V(i,j) = 0 |
|
./pkg/gmredi/gmredi_k3d.F |
251 |
GMREDI_K3D |
DO i=1-Olx+1,sNx+Olx |
|
./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 |
262 |
GMREDI_K3D |
DO i=1-Olx+1,sNx+Olx |
|
./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 |
271 |
GMREDI_K3D |
DO i=1-Olx,sNx+Olx |
|
./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 |
280 |
GMREDI_K3D |
i=1-Olx |
|
./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 |
287 |
GMREDI_K3D |
DO i=1-Olx,sNx+Olx |
|
./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 |
295 |
GMREDI_K3D |
DO i=1-Olx,sNx+Olx |
|
./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 |
304 |
GMREDI_K3D |
DO i=1-Olx,sNx+Olx |
|
./pkg/gmredi/gmredi_k3d.F |
305 |
GMREDI_K3D |
slopeC(i,j,k)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
312 |
GMREDI_K3D |
DO i=1-Olx,sNx+Olx |
|
./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 |
321 |
GMREDI_K3D |
DO i=1-Olx,sNx+Olx |
|
./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 |
342 |
GMREDI_K3D |
DO i = 1-olx,snx+olx |
|
./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 |
352 |
GMREDI_K3D |
DO i = 1-olx,snx+olx |
|
./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 |
368 |
GMREDI_K3D |
DO i = 1-Olx,sNx+Olx |
|
./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 |
374 |
GMREDI_K3D |
i=sNx+Olx |
|
./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 |
377 |
GMREDI_K3D |
DO i = 1-Olx,sNx+Olx-1 |
|
./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 |
389 |
GMREDI_K3D |
DO i = 1-olx,snx+olx |
|
./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 |
402 |
GMREDI_K3D |
DO i=1-Olx,sNx+Olx |
|
./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 |
409 |
GMREDI_K3D |
DO i=1-Olx,sNx+Olx |
|
./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 |
422 |
GMREDI_K3D |
DO i=1-Olx,sNx+Olx |
|
./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 |
431 |
GMREDI_K3D |
DO i=1-Olx,sNx+Olx |
|
./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 |
446 |
GMREDI_K3D |
DO i=1-Olx,sNx+Olx |
|
./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 |
464 |
GMREDI_K3D |
DO i=1-Olx+1,sNx+Olx |
|
./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 |
474 |
GMREDI_K3D |
DO i=1-Olx,sNx+Olx-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 |
491 |
GMREDI_K3D |
DO i=1-Olx,sNx+Olx-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 |
507 |
GMREDI_K3D |
DO i=1-Olx,sNx+Olx-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 |
528 |
GMREDI_K3D |
DO i=1-Olx,sNx+Olx |
|
./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 |
551 |
GMREDI_K3D |
DO i=1-Olx+1,sNx+Olx-1 |
|
./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 |
586 |
GMREDI_K3D |
DO i=1-Olx,sNx+Olx |
|
./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 |
619 |
GMREDI_K3D |
DO i=1-Olx,sNx+Olx |
|
./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 |
628 |
GMREDI_K3D |
DO i=1-Olx,sNx+Olx |
|
./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 |
637 |
GMREDI_K3D |
DO i=1-Olx,sNx+Olx-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 |
644 |
GMREDI_K3D |
DO i=1-Olx+1,sNx+Olx |
|
./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 |
677 |
GMREDI_K3D |
DO i=1-Olx,sNx+Olx |
|
./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 |
695 |
GMREDI_K3D |
DO i=1-Olx,sNx+Olx |
|
./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 |
717 |
GMREDI_K3D |
DO i=1-Olx,sNx+Olx |
|
./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 |
782 |
GMREDI_K3D |
DO i=1-Olx+1,sNx+Olx |
|
./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 |
793 |
GMREDI_K3D |
DO i=1-Olx+1,sNx+Olx |
|
./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 |
808 |
GMREDI_K3D |
DO i=1-Olx+1,sNx+Olx |
|
./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 |
824 |
GMREDI_K3D |
DO i=1-Olx,sNx+Olx |
|
./pkg/gmredi/gmredi_k3d.F |
825 |
GMREDI_K3D |
KPV(i,j,k) = GM_K3D_constK |
|
./pkg/gmredi/gmredi_k3d.F |
837 |
GMREDI_K3D |
DO i=1-Olx,sNx+Olx |
|
./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 |
862 |
GMREDI_K3D |
DO i=1-Olx,sNx+Olx |
|
./pkg/gmredi/gmredi_k3d.F |
864 |
GMREDI_K3D |
XimX(m,i,j) = zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
870 |
GMREDI_K3D |
DO i=1-Olx,sNx+Olx |
|
./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 |
884 |
GMREDI_K3D |
DO i=1-Olx,sNx+Olx |
|
./pkg/gmredi/gmredi_k3d.F |
885 |
GMREDI_K3D |
Xix(i,j,k) = zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
891 |
GMREDI_K3D |
DO i=1-Olx,sNx+Olx |
|
./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 |
913 |
GMREDI_K3D |
DO i=1-Olx,sNx+Olx |
|
./pkg/gmredi/gmredi_k3d.F |
915 |
GMREDI_K3D |
XimY(m,i,j) = zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
921 |
GMREDI_K3D |
DO i=1-Olx,sNx+Olx |
|
./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 |
935 |
GMREDI_K3D |
DO i=1-Olx,sNx+Olx |
|
./pkg/gmredi/gmredi_k3d.F |
936 |
GMREDI_K3D |
Xiy(i,j,k) = zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
942 |
GMREDI_K3D |
DO i=1-Olx,sNx+Olx |
|
./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 |
956 |
GMREDI_K3D |
DO i=1-Olx,sNx+Olx |
|
./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 |
972 |
GMREDI_K3D |
DO i=1-Olx,sNx+Olx-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 |
147 |
GMREDI_READ_PICKUP |
DO i=1-OLx,sNx+OLx |
|
./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 |
165 |
GMREDI_READ_PICKUP |
DO i=1-OLx,sNx+OLx |
|
./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 |
184 |
GMREDI_READ_PICKUP |
DO i=1-OLx,sNx+OLx |
|
./pkg/gmredi/gmredi_read_pickup.F |
185 |
GMREDI_READ_PICKUP |
modesS(n,i,j,k,bi,bj) = vec(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_read_pickup.F |
46 |
GMREDI_READ_PICKUP |
INTEGER i,j,k,n,nm,ioUnit,bi,bj |
|
./pkg/gmredi/gmredi_residual_flow.F |
105 |
GMREDI_RESIDUAL_FLOW |
DO i=1-OLx,sNx+OLx |
|
./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 |
113 |
GMREDI_RESIDUAL_FLOW |
DO i=1-OLx,sNx+OLx |
|
./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 |
66 |
GMREDI_RESIDUAL_FLOW |
DO i=1-OLx,sNx+OLx |
|
./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 |
74 |
GMREDI_RESIDUAL_FLOW |
DO i=1-OLx,sNx+OLx |
|
./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 |
82 |
GMREDI_RESIDUAL_FLOW |
DO i=1-OLx,sNx+OLx-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 |
101 |
GMREDI_RTRANSPORT |
DO i=iMin,iMax |
|
./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 |
145 |
GMREDI_RTRANSPORT |
DO i=iMin,iMax |
|
./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 |
155 |
GMREDI_RTRANSPORT |
DO i=iMin,iMax |
|
./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 |
170 |
GMREDI_RTRANSPORT |
DO i=iMin,iMax |
|
./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 |
183 |
GMREDI_RTRANSPORT |
DO i=iMin,iMax |
|
./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 |
145 |
GMREDI_SLOPE_LIMIT |
DO i=1-OLx+1,sNx+OLx-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 |
165 |
GMREDI_SLOPE_LIMIT |
DO i=1-OLx+1,sNx+OLx-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 |
182 |
GMREDI_SLOPE_LIMIT |
DO i=1-OLx+1,sNx+OLx-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 |
198 |
GMREDI_SLOPE_LIMIT |
DO i=1-OLx+1,sNx+OLx-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 |
216 |
GMREDI_SLOPE_LIMIT |
DO i=1-OLx+1,sNx+OLx-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 |
237 |
GMREDI_SLOPE_LIMIT |
DO i=1-OLx+1,sNx+OLx-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 |
273 |
GMREDI_SLOPE_LIMIT |
DO i=1-OLx+1,sNx+OLx-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 |
318 |
GMREDI_SLOPE_LIMIT |
DO i=1-OLx+1,sNx+OLx-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 |
403 |
GMREDI_SLOPE_LIMIT |
DO i=1-OLx+1,sNx+OLx-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 |
453 |
GMREDI_SLOPE_LIMIT |
DO i=1-OLx+1,sNx+OLx-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 |
468 |
GMREDI_SLOPE_LIMIT |
DO i=1-OLx+1,sNx+OLx-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 |
496 |
GMREDI_SLOPE_LIMIT |
DO i=1-OLx+1,sNx+OLx-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 |
514 |
GMREDI_SLOPE_LIMIT |
DO i=1-OLx+1,sNx+OLx-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 |
532 |
GMREDI_SLOPE_LIMIT |
DO i=1-OLx+1,sNx+OLx-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 |
548 |
GMREDI_SLOPE_LIMIT |
DO i=1-OLx+1,sNx+OLx-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 |
563 |
GMREDI_SLOPE_LIMIT |
DO i=1-OLx+1,sNx+OLx-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 |
599 |
GMREDI_SLOPE_LIMIT |
DO i=1-OLx+1,sNx+OLx |
|
./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 |
106 |
GMREDI_SLOPE_PSI |
DO i=1-OLx+1,sNx+OLx |
|
./pkg/gmredi/gmredi_slope_psi.F |
107 |
GMREDI_SLOPE_PSI |
dSigmaDrLtd(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_psi.F |
114 |
GMREDI_SLOPE_PSI |
DO i=1-OLx+1,sNx+OLx |
|
./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 |
124 |
GMREDI_SLOPE_PSI |
DO i=1-OLx+1,sNx+OLx |
|
./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 |
133 |
GMREDI_SLOPE_PSI |
DO i=1-OLx+1,sNx+OLx |
|
./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 |
143 |
GMREDI_SLOPE_PSI |
DO i=1-OLx,sNx+OLx |
|
./pkg/gmredi/gmredi_slope_psi.F |
144 |
GMREDI_SLOPE_PSI |
dSigmaDrLtd(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_psi.F |
149 |
GMREDI_SLOPE_PSI |
DO i=1-OLx,sNx+OLx |
|
./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 |
159 |
GMREDI_SLOPE_PSI |
DO i=1-OLx,sNx+OLx |
|
./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 |
168 |
GMREDI_SLOPE_PSI |
DO i=1-OLx,sNx+OLx |
|
./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 |
196 |
GMREDI_SLOPE_PSI |
DO i=1-OLx+1,sNx+OLx |
|
./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 |
205 |
GMREDI_SLOPE_PSI |
DO i=1-OLx+1,sNx+OLx |
|
./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 |
215 |
GMREDI_SLOPE_PSI |
DO i=1-OLx+1,sNx+OLx |
|
./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 |
230 |
GMREDI_SLOPE_PSI |
DO i=1-OLx,sNx+OLx |
|
./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 |
239 |
GMREDI_SLOPE_PSI |
DO i=1-OLx,sNx+OLx |
|
./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 |
249 |
GMREDI_SLOPE_PSI |
DO i=1-OLx,sNx+OLx |
|
./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 |
269 |
GMREDI_SLOPE_PSI |
DO i=1-OLx+1,sNx+OLx |
|
./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 |
277 |
GMREDI_SLOPE_PSI |
DO i=1-OLx,sNx+OLx |
|
./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 |
290 |
GMREDI_SLOPE_PSI |
DO i=1-OLx+1,sNx+OLx |
|
./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 |
298 |
GMREDI_SLOPE_PSI |
DO i=1-OLx,sNx+OLx |
|
./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 |
310 |
GMREDI_SLOPE_PSI |
DO i=1-OLx+1,sNx+OLx |
|
./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 |
316 |
GMREDI_SLOPE_PSI |
DO i=1-OLx,sNx+OLx |
|
./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 |
327 |
GMREDI_SLOPE_PSI |
DO i=1-OLx+1,sNx+OLx |
|
./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 |
347 |
GMREDI_SLOPE_PSI |
DO i=1-OLx,sNx+OLx |
|
./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 |
383 |
GMREDI_SLOPE_PSI |
DO i=1-OLx+1,sNx+OLx |
|
./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 |
394 |
GMREDI_SLOPE_PSI |
DO i=1-OLx,sNx+OLx |
|
./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 |
103 |
GMREDI_WRITE_PICKUP |
DO i=1-Olx,sNx+Olx |
|
./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 |
123 |
GMREDI_WRITE_PICKUP |
DO i=1-Olx,sNx+Olx |
|
./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 |
84 |
GMREDI_WRITE_PICKUP |
DO i=1-Olx,sNx+Olx |
|
./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 |
127 |
GMREDI_XTRANSPORT |
DO i=iMin,iMax |
|
./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 |
155 |
GMREDI_XTRANSPORT |
DO i=iMin,iMax |
|
./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 |
178 |
GMREDI_XTRANSPORT |
DO i=iMin,iMax |
|
./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 |
192 |
GMREDI_XTRANSPORT |
DO i=iMin,iMax |
|
./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 |
203 |
GMREDI_XTRANSPORT |
DO i=iMin,iMax |
|
./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 |
220 |
GMREDI_XTRANSPORT |
DO i=iMin,iMax |
|
./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 |
126 |
GMREDI_YTRANSPORT |
DO i=iMin,iMax |
|
./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 |
154 |
GMREDI_YTRANSPORT |
DO i=iMin,iMax |
|
./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 |
176 |
GMREDI_YTRANSPORT |
DO i=iMin,iMax |
|
./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 |
191 |
GMREDI_YTRANSPORT |
DO i=iMin,iMax |
|
./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 |
202 |
GMREDI_YTRANSPORT |
DO i=iMin,iMax |
|
./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 |
218 |
GMREDI_YTRANSPORT |
DO i=iMin,iMax |
|
./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 |
104 |
SUBMESO_CALC_PSI |
DO i=1-OLx+1,sNx+OLx |
|
./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 |
110 |
SUBMESO_CALC_PSI |
DO i=1-OLx,sNx+OLx |
|
./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 |
118 |
SUBMESO_CALC_PSI |
DO i=1-OLx,sNx+OLx |
|
./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 |
127 |
SUBMESO_CALC_PSI |
DO i=1-OLx,sNx+OLx |
|
./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 |
135 |
SUBMESO_CALC_PSI |
DO i=2-OLx,sNx+OLx-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 |
144 |
SUBMESO_CALC_PSI |
DO i=2-OLx,sNx+OLx-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 |
154 |
SUBMESO_CALC_PSI |
DO i=3-OLx,sNx+OLx-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 |
165 |
SUBMESO_CALC_PSI |
DO i=3-OLx,sNx+OLx-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 |
197 |
SUBMESO_CALC_PSI |
DO i=2-OLx,sNx+OLx-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 |
208 |
SUBMESO_CALC_PSI |
DO i=2-OLx,sNx+OLx-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 |
80 |
SUBMESO_CALC_PSI |
DO i=1-OLx+1,sNx+OLx |
|
./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 |
86 |
SUBMESO_CALC_PSI |
DO i=1-OLx,sNx+OLx |
|
./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 |
94 |
SUBMESO_CALC_PSI |
DO i=1-OLx,sNx+OLx |
|
./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 |
113 |
GRDCHK_GET_OBCS_MASK |
do i = imin,imax |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
114 |
GRDCHK_GET_OBCS_MASK |
grdchk_maskxz(i,k,bi,bj,iobcs) = |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
115 |
GRDCHK_GET_OBCS_MASK |
& tmpfldxz(i,k,bi,bj) |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
42 |
GRDCHK_GET_OBCS_MASK |
integer i,j,k |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
90 |
GRDCHK_GET_OBCS_MASK |
do i = imin,imax |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
91 |
GRDCHK_GET_OBCS_MASK |
grdchk_maskxz(i,k,bi,bj,iobcs) = |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
92 |
GRDCHK_GET_OBCS_MASK |
& tmpfldxz(i,k,bi,bj) |
|
./pkg/grdchk/grdchk_get_position.F |
142 |
GRDCHK_GET_POSITION |
do i = iwrk, ncvarxmax(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 |
170 |
GRDCHK_GET_POSITION |
if (grdchk_maskxz(i,k,bi,bj,iobcs) .gt. 0. |
|
./pkg/grdchk/grdchk_get_position.F |
174 |
GRDCHK_GET_POSITION |
wetlocal = grdchk_maskxz(i,k,bi,bj,iobcs) |
|
./pkg/grdchk/grdchk_get_position.F |
178 |
GRDCHK_GET_POSITION |
if (grdchk_maskxz(i,k,bi,bj,iobcs) .gt. 0. |
|
./pkg/grdchk/grdchk_get_position.F |
182 |
GRDCHK_GET_POSITION |
wetlocal = grdchk_maskxz(i,k,bi,bj,iobcs) |
|
./pkg/grdchk/grdchk_get_position.F |
187 |
GRDCHK_GET_POSITION |
& .and. i.eq. OB_Iw(J,bi,bj) ) then |
|
./pkg/grdchk/grdchk_get_position.F |
195 |
GRDCHK_GET_POSITION |
& .and. i.eq. OB_Ie(J,bi,bj) ) then |
|
./pkg/grdchk/grdchk_get_position.F |
203 |
GRDCHK_GET_POSITION |
if ( i .EQ. itilepos .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 |
76 |
ADAMS_BASHFORTH2 |
DO i=1-OLx,sNx+OLx |
|
./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 |
86 |
ADAMS_BASHFORTH2 |
DO i=1-OLx,sNx+OLx |
|
./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 |
190 |
GRDCHK_LOC |
do i = iwrk, ncvarxmax(grdchkvarindex) |
|
./pkg/grdchk/grdchk_loc.F |
193 |
GRDCHK_LOC |
if ( maskC(i,j,k,bi,bj) .gt. 0.) then |
|
./pkg/grdchk/grdchk_loc.F |
195 |
GRDCHK_LOC |
itmp = i |
|
./pkg/grdchk/grdchk_loc.F |
199 |
GRDCHK_LOC |
if ( _maskS(i,j,k,bi,bj) .gt. 0.) then |
|
./pkg/grdchk/grdchk_loc.F |
201 |
GRDCHK_LOC |
itmp = i |
|
./pkg/grdchk/grdchk_loc.F |
205 |
GRDCHK_LOC |
if ( _maskW(i,j,k,bi,bj) .gt. 0.) then |
|
./pkg/grdchk/grdchk_loc.F |
207 |
GRDCHK_LOC |
itmp = i |
|
./pkg/grdchk/grdchk_loc.F |
212 |
GRDCHK_LOC |
if ( maskSHI(i,j,k,bi,bj) .gt. 0.) then |
|
./pkg/grdchk/grdchk_loc.F |
214 |
GRDCHK_LOC |
itmp = i |
|
./pkg/grdchk/grdchk_loc.F |
221 |
GRDCHK_LOC |
if ( grdchk_maskxz(i,k,bi,bj,iobcs) .gt. 0. |
|
./pkg/grdchk/grdchk_loc.F |
224 |
GRDCHK_LOC |
itmp = i |
|
./pkg/grdchk/grdchk_loc.F |
230 |
GRDCHK_LOC |
if ( grdchk_maskxz(i,k,bi,bj,iobcs) .gt. 0. |
|
./pkg/grdchk/grdchk_loc.F |
233 |
GRDCHK_LOC |
itmp = i |
|
./pkg/grdchk/grdchk_loc.F |
240 |
GRDCHK_LOC |
& .and. i.eq. OB_Iw(J,bi,bj) ) then |
|
./pkg/grdchk/grdchk_loc.F |
249 |
GRDCHK_LOC |
& .and. i.eq. OB_Ie(J,bi,bj) ) then |
|
./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 |
181 |
GRDCHK_MAIN |
DO i = iMin, iMax |
|
./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 |
290 |
GRDCHK_MAIN |
DO i=1,sNx |
|
./pkg/grdchk/grdchk_main.F |
291 |
GRDCHK_MAIN |
g_objf_state_final(i,j,1,1,k) = 0. |
|
./pkg/grdchk/grdchk_print.F |
129 |
GRDCHK_PRINT |
do i = 1, numchecks |
|
./pkg/grdchk/grdchk_print.F |
130 |
GRDCHK_PRINT |
xxmemo_ref = xxmemref (i) |
|
./pkg/grdchk/grdchk_print.F |
131 |
GRDCHK_PRINT |
xxmemo_pert = xxmempert (i) |
|
./pkg/grdchk/grdchk_print.F |
132 |
GRDCHK_PRINT |
adxxmemo = adxxmem (i) |
|
./pkg/grdchk/grdchk_print.F |
133 |
GRDCHK_PRINT |
ftlxxmemo = ftlxxmem (i) |
|
./pkg/grdchk/grdchk_print.F |
134 |
GRDCHK_PRINT |
fcref = fcrmem (i) |
|
./pkg/grdchk/grdchk_print.F |
135 |
GRDCHK_PRINT |
fcpertplus = fcppmem (i) |
|
./pkg/grdchk/grdchk_print.F |
136 |
GRDCHK_PRINT |
fcpertminus = fcpmmem (i) |
|
./pkg/grdchk/grdchk_print.F |
137 |
GRDCHK_PRINT |
gfd = gfdmem (i) |
|
./pkg/grdchk/grdchk_print.F |
138 |
GRDCHK_PRINT |
ratio_ad = ratioadmem (i) |
|
./pkg/grdchk/grdchk_print.F |
139 |
GRDCHK_PRINT |
ratio_ftl = ratioftlmem (i) |
|
./pkg/grdchk/grdchk_print.F |
140 |
GRDCHK_PRINT |
itile = bimem (i) |
|
./pkg/grdchk/grdchk_print.F |
141 |
GRDCHK_PRINT |
jtile = bjmem (i) |
|
./pkg/grdchk/grdchk_print.F |
142 |
GRDCHK_PRINT |
itilepos = ilocmem (i) |
|
./pkg/grdchk/grdchk_print.F |
143 |
GRDCHK_PRINT |
jtilepos = jlocmem (i) |
|
./pkg/grdchk/grdchk_print.F |
144 |
GRDCHK_PRINT |
layer = klocmem (i) |
|
./pkg/grdchk/grdchk_print.F |
145 |
GRDCHK_PRINT |
icomp = icompmem(i) |
|
./pkg/grdchk/grdchk_print.F |
146 |
GRDCHK_PRINT |
ierr = ierrmem (i) |
|
./pkg/grdchk/grdchk_print.F |
154 |
GRDCHK_PRINT |
& i, itilepos, jtilepos, layer, itile, jtile, |
|
./pkg/grdchk/grdchk_print.F |
161 |
GRDCHK_PRINT |
& i, fcref, fcpertplus, fcpertminus |
|
./pkg/grdchk/grdchk_print.F |
168 |
GRDCHK_PRINT |
& i, gfd, ftlxxmemo, ratio_ftl |
|
./pkg/grdchk/grdchk_print.F |
173 |
GRDCHK_PRINT |
& i, gfd, adxxmemo, ratio_ad |
|
./pkg/grdchk/grdchk_print.F |
54 |
GRDCHK_PRINT |
integer i |
|
./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 |
78 |
DYN2PHYS |
do i = idim1,idim2 |
|
./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 |
89 |
DYN2PHYS |
do i = idim1,idim2 |
|
./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 |
108 |
ADAMS_BASHFORTH3 |
DO i=1-OLx,sNx+OLx |
|
./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 |
120 |
ADAMS_BASHFORTH3 |
DO i=1-OLx,sNx+OLx |
|
./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 |
54 |
GRIDALT_UPDATE |
do i = i1,i2 |
|
./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 |
75 |
GRIDALT_UPDATE |
do i = i1,i2 |
|
./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 |
122 |
MAKE_PHYS_GRID |
do i = i1,i2 |
|
./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 |
97 |
MAKE_PHYS_GRID |
do i = i1,i2+1 |
|
./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 |
73 |
PHYS2DYN |
do i = idim1,idim2 |
|
./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 |
111 |
ADD_WALLS2MASKS |
DO i=1-OLx,sNx+OLx |
|
./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 |
57 |
ADD_WALLS2MASKS |
DO i=1-OLx,sNx+OLx |
|
./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 |
84 |
ADD_WALLS2MASKS |
DO i=1-OLx,sNx+OLx |
|
./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 |
102 |
ICEFRONT_TENDENCY_APPLY_S |
DO i=1,sNx |
|
./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 |
50 |
ICEFRONT_TENDENCY_APPLY_T |
DO i=1,sNx |
|
./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 |
54 |
KL10_CALC_DIFF |
DO i=iMin,iMax |
|
./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 |
69 |
KL10_CALC_DIFF |
DO i=iMin,iMax |
|
./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 |
43 |
KL10_CALC_VISC |
DO i=iMin,iMax |
|
./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 |
51 |
KL10_CALC_VISC |
DO i=iMin,iMax |
|
./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 |
132 |
APPLY_FORCING_U |
DO i=1,sNx+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 |
146 |
APPLY_FORCING_U |
DO i=1,sNx+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 |
154 |
APPLY_FORCING_U |
DO i=1,sNx+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 |
263 |
APPLY_FORCING_V |
DO i=1-OLx,sNx+OLx |
|
./model/src/apply_forcing.F |
264 |
APPLY_FORCING_V |
locVar(i,j) = gV(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
274 |
APPLY_FORCING_V |
DO i=1-OLx,sNx+OLx |
|
./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 |
282 |
APPLY_FORCING_V |
DO i=1-OLx,sNx+OLx |
|
./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 |
322 |
APPLY_FORCING_V |
DO i=0,sNx+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 |
336 |
APPLY_FORCING_V |
DO i=0,sNx+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 |
344 |
APPLY_FORCING_V |
DO i=0,sNx+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 |
460 |
APPLY_FORCING_T |
DO i=1-OLx,sNx+OLx |
|
./model/src/apply_forcing.F |
461 |
APPLY_FORCING_T |
gT(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/apply_forcing.F |
468 |
APPLY_FORCING_T |
DO i=1-OLx,sNx+OLx |
|
./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 |
518 |
APPLY_FORCING_T |
DO i=0,sNx+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 |
529 |
APPLY_FORCING_T |
DO i=0,sNx+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 |
554 |
APPLY_FORCING_T |
DO i=0,sNx+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 |
580 |
APPLY_FORCING_T |
DO i=0,sNx+1 |
|
./model/src/apply_forcing.F |
581 |
APPLY_FORCING_T |
tmpVar(i,j) = 0. |
|
./model/src/apply_forcing.F |
588 |
APPLY_FORCING_T |
DO i=0,sNx+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 |
600 |
APPLY_FORCING_T |
DO i=0,sNx+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 |
610 |
APPLY_FORCING_T |
DO i=0,sNx+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 |
629 |
APPLY_FORCING_T |
DO i=0,sNx+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 |
637 |
APPLY_FORCING_T |
DO i=0,sNx+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 |
649 |
APPLY_FORCING_T |
DO i=0,sNx+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 |
661 |
APPLY_FORCING_T |
DO i=0,sNx+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 |
688 |
APPLY_FORCING_T |
DO i=0,sNx+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 |
73 |
APPLY_FORCING_U |
DO i=1-OLx,sNx+OLx |
|
./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 |
826 |
APPLY_FORCING_S |
DO i=1-OLx,sNx+OLx |
|
./model/src/apply_forcing.F |
827 |
APPLY_FORCING_S |
gS(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/apply_forcing.F |
834 |
APPLY_FORCING_S |
DO i=1-OLx,sNx+OLx |
|
./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 |
84 |
APPLY_FORCING_U |
DO i=1-OLx,sNx+OLx |
|
./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 |
883 |
APPLY_FORCING_S |
DO i=0,sNx+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 |
894 |
APPLY_FORCING_S |
DO i=0,sNx+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 |
910 |
APPLY_FORCING_S |
DO i=0,sNx+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 |
918 |
APPLY_FORCING_S |
DO i=0,sNx+1 |
|
./model/src/apply_forcing.F |
919 |
APPLY_FORCING_S |
IF ( kSurfC(i,j,bi,bj).EQ.k ) THEN |
|
./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 |
92 |
APPLY_FORCING_U |
DO i=1-OLx,sNx+OLx |
|
./model/src/apply_forcing.F |
930 |
APPLY_FORCING_S |
DO i=0,sNx+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 |
41 |
KL10_INIT_VARIA |
DO i = 1-OLx, sNx+OLx |
|
./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 |
118 |
CALC_3D_DIFFUSIVITY |
DO i = 1-OLx,sNx+OLx |
|
./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 |
131 |
CALC_3D_DIFFUSIVITY |
DO i = 1-OLx, sNx+OLx |
|
./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 |
147 |
CALC_3D_DIFFUSIVITY |
DO i = 1-OLx, sNx+OLx |
|
./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 |
251 |
CALC_3D_DIFFUSIVITY |
DO i = 2-OLx, sNx+OLx |
|
./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 |
276 |
CALC_3D_DIFFUSIVITY |
DO i = 2-OLx, sNx+OLx |
|
./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 |
287 |
CALC_3D_DIFFUSIVITY |
DO i = 2-OLx, sNx+OLx |
|
./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 |
293 |
CALC_3D_DIFFUSIVITY |
DO i = 2-OLx, sNx+OLx |
|
./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 |
299 |
CALC_3D_DIFFUSIVITY |
DO i = 2-OLx, sNx+OLx |
|
./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 |
308 |
CALC_3D_DIFFUSIVITY |
DO i = 2-OLx, sNx+OLx |
|
./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 |
323 |
CALC_3D_DIFFUSIVITY |
DO i = 2-OLx, sNx+OLx |
|
./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 |
334 |
CALC_3D_DIFFUSIVITY |
DO i = 2-OLx, sNx+OLx |
|
./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 |
340 |
CALC_3D_DIFFUSIVITY |
DO i = 2-OLx, sNx+OLx |
|
./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 |
346 |
CALC_3D_DIFFUSIVITY |
DO i = 2-OLx, sNx+OLx |
|
./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 |
355 |
CALC_3D_DIFFUSIVITY |
DO i = 2-OLx, sNx+OLx |
|
./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 |
92 |
CALC_3D_DIFFUSIVITY |
DO i = 1-OLx,sNx+OLx |
|
./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 |
282 |
KPP_CALC |
DO i = 1-OLx, sNx+OLx |
|
./pkg/kpp/kpp_calc.F |
283 |
KPP_CALC |
ghat(i,j,k) = dbloc(i,j,k) |
|
./pkg/kpp/kpp_calc.F |
332 |
KPP_CALC |
DO i = 1-OLx, sNx+OLx |
|
./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 |
414 |
KPP_CALC |
DO i=iMin,iMax |
|
./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 |
456 |
KPP_CALC |
DO i = 1-OLx, sNx+OLx |
|
./pkg/kpp/kpp_calc.F |
457 |
KPP_CALC |
shsq(i,j,k) = p0 |
|
./pkg/kpp/kpp_calc.F |
468 |
KPP_CALC |
DO i = imin, imax |
|
./pkg/kpp/kpp_calc.F |
469 |
KPP_CALC |
im1 = i - 1 |
|
./pkg/kpp/kpp_calc.F |
470 |
KPP_CALC |
ip1 = i + 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 |
476 |
KPP_CALC |
& (vVel(i, j, k,bi,bj)-vVel(i, j, kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
477 |
KPP_CALC |
& (vVel(i, j, k,bi,bj)-vVel(i, j, kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
478 |
KPP_CALC |
& (vVel(i, jp1,k,bi,bj)-vVel(i, jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
479 |
KPP_CALC |
& (vVel(i, jp1,k,bi,bj)-vVel(i, jp1,kp1,bi,bj)) ) |
|
./pkg/kpp/kpp_calc.F |
481 |
KPP_CALC |
shsq(i,j,k) = p5 * shsq(i,j,k) + p125 * ( |
|
./pkg/kpp/kpp_calc.F |
482 |
KPP_CALC |
& (uVel(i, jm1,k,bi,bj)-uVel(i, jm1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
483 |
KPP_CALC |
& (uVel(i, jm1,k,bi,bj)-uVel(i, jm1,kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
486 |
KPP_CALC |
& (uVel(i, jp1,k,bi,bj)-uVel(i, jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
487 |
KPP_CALC |
& (uVel(i, jp1,k,bi,bj)-uVel(i, jp1,kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
542 |
KPP_CALC |
DO i = 1-OLx, sNx+OLx |
|
./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 |
571 |
KPP_CALC |
DO i = imin, imax |
|
./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 |
628 |
KPP_CALC |
DO i=1-OLx,sNx+OLx |
|
./pkg/kpp/kpp_calc.F |
629 |
KPP_CALC |
worka(i,j) = KPPhbl(i,j,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
637 |
KPP_CALC |
DO i=1-OLx,sNx+OLx |
|
./pkg/kpp/kpp_calc.F |
638 |
KPP_CALC |
KPPfrac(i,j,bi,bj) = worka(i,j) |
|
./pkg/kpp/kpp_calc.F |
648 |
KPP_CALC |
DO i=1-OLx,sNx+OLx |
|
./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 |
665 |
KPP_CALC |
DO i=1-OLx,sNx+OLx |
|
./pkg/kpp/kpp_calc.F |
666 |
KPP_CALC |
KPPplumefrac(i,j,bi,bj) = 1. _d 0 - worka(i,j) |
|
./pkg/kpp/kpp_calc.F |
671 |
KPP_CALC |
DO i=1-OLx,sNx+OLx |
|
./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 |
725 |
KPP_CALC_DUMMY |
DO i=1-OLx,sNx+OLx |
|
./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 |
59 |
KPP_CALC_DIFF_PTR |
DO i=iMin,iMax |
|
./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 |
76 |
KPP_CALC_DIFF_PTR |
DO i=iMin,iMax |
|
./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 |
52 |
KPP_CALC_DIFF_S |
DO i=iMin,iMax |
|
./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 |
61 |
KPP_CALC_DIFF_S |
DO i=iMin,iMax |
|
./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 |
52 |
KPP_CALC_DIFF_T |
DO i=iMin,iMax |
|
./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 |
61 |
KPP_CALC_DIFF_T |
DO i=iMin,iMax |
|
./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 |
39 |
KPP_CALC_VISC |
DO i=iMin,iMax |
|
./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 |
47 |
KPP_CALC_VISC |
DO i=iMin,iMax |
|
./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 |
166 |
KPP_FORCING_SURF |
DO i = 1-OLx, sNx+OLx |
|
./pkg/kpp/kpp_forcing_surf.F |
167 |
KPP_FORCING_SURF |
ustar(i,j) = p0 |
|
./pkg/kpp/kpp_forcing_surf.F |
181 |
KPP_FORCING_SURF |
DO i = imin, imax |
|
./pkg/kpp/kpp_forcing_surf.F |
182 |
KPP_FORCING_SURF |
ip1 = i+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 |
195 |
KPP_FORCING_SURF |
DO i = imin, imax |
|
./pkg/kpp/kpp_forcing_surf.F |
196 |
KPP_FORCING_SURF |
ip1 = i+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 |
210 |
KPP_FORCING_SURF |
DO i = imin, imax |
|
./pkg/kpp/kpp_forcing_surf.F |
211 |
KPP_FORCING_SURF |
ip1 = i+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 |
229 |
KPP_FORCING_SURF |
DO i = imin, imax |
|
./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 |
242 |
KPP_FORCING_SURF |
DO i = imin, imax |
|
./pkg/kpp/kpp_forcing_surf.F |
247 |
KPP_FORCING_SURF |
& * SPforcS(i,j,1) |
|
./pkg/kpp/kpp_forcing_surf.F |
281 |
KPP_FORCING_SURF |
DO i = 1-OLx, sNx+OLx |
|
./pkg/kpp/kpp_forcing_surf.F |
282 |
KPP_FORCING_SURF |
dVsq(i,j,k) = p0 |
|
./pkg/kpp/kpp_forcing_surf.F |
299 |
KPP_FORCING_SURF |
DO i = imin, imax |
|
./pkg/kpp/kpp_forcing_surf.F |
300 |
KPP_FORCING_SURF |
ip1 = i + 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 |
334 |
KPP_FORCING_SURF |
& (vVel(i, j, 1,bi,bj)-vVel(i, j, 2,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
335 |
KPP_FORCING_SURF |
& (vVel(i, j, 1,bi,bj)-vVel(i, j, 2,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
336 |
KPP_FORCING_SURF |
& (vVel(i, jp1,1,bi,bj)-vVel(i, jp1,2,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
337 |
KPP_FORCING_SURF |
& (vVel(i, jp1,1,bi,bj)-vVel(i, jp1,2,bi,bj)) ) |
|
./pkg/kpp/kpp_forcing_surf.F |
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 |
360 |
KPP_FORCING_SURF |
ustarY = ( surfForcV(i,j, bi,bj) + |
|
./pkg/kpp/kpp_forcing_surf.F |
361 |
KPP_FORCING_SURF |
& surfForcV(i,jp1,bi,bj) ) * p5 *recip_drF(1) |
|
./pkg/kpp/kpp_forcing_surf.F |
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 |
383 |
KPP_FORCING_SURF |
DO i = imin, imax |
|
./pkg/kpp/kpp_forcing_surf.F |
384 |
KPP_FORCING_SURF |
im1 = i - 1 |
|
./pkg/kpp/kpp_forcing_surf.F |
385 |
KPP_FORCING_SURF |
ip1 = i + 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 |
424 |
KPP_FORCING_SURF |
DO i = imin, imax |
|
./pkg/kpp/kpp_forcing_surf.F |
425 |
KPP_FORCING_SURF |
im1 = i - 1 |
|
./pkg/kpp/kpp_forcing_surf.F |
426 |
KPP_FORCING_SURF |
ip1 = i + 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 |
432 |
KPP_FORCING_SURF |
& (vVel(i, j, 1,bi,bj)-vVel(i, j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
433 |
KPP_FORCING_SURF |
& (vVel(i, j, 1,bi,bj)-vVel(i, j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
434 |
KPP_FORCING_SURF |
& (vVel(i, jp1,1,bi,bj)-vVel(i, jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
435 |
KPP_FORCING_SURF |
& (vVel(i, jp1,1,bi,bj)-vVel(i, jp1,k,bi,bj)) ) |
|
./pkg/kpp/kpp_forcing_surf.F |
437 |
KPP_FORCING_SURF |
dVsq(i,j,k) = p5 * dVsq(i,j,k) + p125 * ( |
|
./pkg/kpp/kpp_forcing_surf.F |
438 |
KPP_FORCING_SURF |
& (uVel(i, jm1,1,bi,bj)-uVel(i, jm1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
439 |
KPP_FORCING_SURF |
& (uVel(i, jm1,1,bi,bj)-uVel(i, jm1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
442 |
KPP_FORCING_SURF |
& (uVel(i, jp1,1,bi,bj)-uVel(i, jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
443 |
KPP_FORCING_SURF |
& (uVel(i, jp1,1,bi,bj)-uVel(i, jp1,k,bi,bj)) + |
|
./pkg/kpp/kpp_init_fixed.F |
138 |
KPP_INIT_FIXED |
DO i = 0, nni + 1 |
|
./pkg/kpp/kpp_init_fixed.F |
139 |
KPP_INIT_FIXED |
zehat = deltaz*i + zmin |
|
./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 |
109 |
CALC_ADV_FLOW |
DO i=1-OLx,sNx+OLx |
|
./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 |
119 |
CALC_ADV_FLOW |
DO i=1-OLx,sNx+OLx |
|
./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 |
128 |
CALC_ADV_FLOW |
DO i=1-OLx,sNx+OLx |
|
./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 |
74 |
CALC_ADV_FLOW |
DO i=1-OLx,sNx+OLx |
|
./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 |
85 |
CALC_ADV_FLOW |
DO i=1-OLx,sNx+OLx |
|
./model/src/calc_adv_flow.F |
86 |
CALC_ADV_FLOW |
rTransKp(i,j) = 0. _d 0 |
|
./model/src/calc_adv_flow.F |
91 |
CALC_ADV_FLOW |
DO i=1-OLx,sNx+OLx |
|
./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 |
44 |
KPP_INIT_VARIA |
DO i = 1-OLx, sNx+OLx |
|
./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 |
65 |
KPP_INIT_VARIA |
DO i = 1-OLx, sNx+OLx |
|
./pkg/kpp/kpp_init_varia.F |
66 |
KPP_INIT_VARIA |
KPPhbl(i,j,bi,bj) = 0. |
|
./pkg/kpp/kpp_init_varia.F |
71 |
KPP_INIT_VARIA |
DO i = 1-OLx, sNx+OLx |
|
./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 |
238 |
KPP_OUTPUT |
DO i=1,sNx |
|
./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 |
389 |
KPP_OUTPUT |
DO i=1,sNx |
|
./pkg/kpp/kpp_output.F |
390 |
KPP_OUTPUT |
tmpLoc(i,j,1) = 0. _d 0 |
|
./pkg/kpp/kpp_output.F |
395 |
KPP_OUTPUT |
DO i=1,sNx |
|
./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 |
1017 |
RI_IWMIX |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
1018 |
RI_IWMIX |
diffus(i,ki,1) = 0. |
|
./pkg/kpp/kpp_routines.F |
1019 |
RI_IWMIX |
diffus(i,ki,2) = 0. |
|
./pkg/kpp/kpp_routines.F |
1020 |
RI_IWMIX |
diffus(i,ki,3) = 0. |
|
./pkg/kpp/kpp_routines.F |
1026 |
RI_IWMIX |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
1027 |
RI_IWMIX |
if (kmtj(i) .LE. 1 ) then |
|
./pkg/kpp/kpp_routines.F |
1028 |
RI_IWMIX |
diffus(i,ki,1) = 0. |
|
./pkg/kpp/kpp_routines.F |
1029 |
RI_IWMIX |
diffus(i,ki,2) = 0. |
|
./pkg/kpp/kpp_routines.F |
1030 |
RI_IWMIX |
elseif (ki .GE. kmtj(i)) then |
|
./pkg/kpp/kpp_routines.F |
1031 |
RI_IWMIX |
diffus(i,ki,1) = diffus(i,ki-1,1) |
|
./pkg/kpp/kpp_routines.F |
1032 |
RI_IWMIX |
diffus(i,ki,2) = diffus(i,ki-1,2) |
|
./pkg/kpp/kpp_routines.F |
1034 |
RI_IWMIX |
diffus(i,ki,1) = dblocSm(i,ki) * (zgrid(ki)-zgrid(ki+1)) |
|
./pkg/kpp/kpp_routines.F |
1035 |
RI_IWMIX |
& / max( Shsq(i,ki), phepsi ) |
|
./pkg/kpp/kpp_routines.F |
1036 |
RI_IWMIX |
diffus(i,ki,2) = dbloc(i,ki) / (zgrid(ki)-zgrid(ki+1)) |
|
./pkg/kpp/kpp_routines.F |
1064 |
RI_IWMIX |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
1068 |
RI_IWMIX |
Rig = max ( diffus(i,ki,2) , BVSQcon ) |
|
./pkg/kpp/kpp_routines.F |
1075 |
RI_IWMIX |
Rig = max ( diffus(i,ki,1), c0 ) |
|
./pkg/kpp/kpp_routines.F |
1086 |
RI_IWMIX |
diffus(i,ki,1) = viscArNr(1) |
|
./pkg/kpp/kpp_routines.F |
1087 |
RI_IWMIX |
diffus(i,ki,2) = diffusKzS(i,kp1) |
|
./pkg/kpp/kpp_routines.F |
1088 |
RI_IWMIX |
diffus(i,ki,3) = diffusKzT(i,kp1) |
|
./pkg/kpp/kpp_routines.F |
1092 |
RI_IWMIX |
diffus(i,ki,1) = viscArNr(1) |
|
./pkg/kpp/kpp_routines.F |
1093 |
RI_IWMIX |
diffus(i,ki,2) = diffusKzS(i,kp1) |
|
./pkg/kpp/kpp_routines.F |
1094 |
RI_IWMIX |
diffus(i,ki,3) = diffusKzT(i,kp1) |
|
./pkg/kpp/kpp_routines.F |
1099 |
RI_IWMIX |
diffus(i,ki,1) = viscArNr(1) + fcon*difmcon + fRi*difm0 |
|
./pkg/kpp/kpp_routines.F |
1100 |
RI_IWMIX |
diffus(i,ki,2) = diffusKzS(i,kp1)+fcon*difscon+fRi*difs0 |
|
./pkg/kpp/kpp_routines.F |
1101 |
RI_IWMIX |
diffus(i,ki,3) = diffusKzT(i,kp1)+fcon*diftcon+fRi*dift0 |
|
./pkg/kpp/kpp_routines.F |
1110 |
RI_IWMIX |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
1111 |
RI_IWMIX |
diffus(i,0,1) = c0 |
|
./pkg/kpp/kpp_routines.F |
1112 |
RI_IWMIX |
diffus(i,0,2) = c0 |
|
./pkg/kpp/kpp_routines.F |
1113 |
RI_IWMIX |
diffus(i,0,3) = c0 |
|
./pkg/kpp/kpp_routines.F |
1152 |
Z121 |
integer i, k, km1, kp1 |
|
./pkg/kpp/kpp_routines.F |
1161 |
Z121 |
i = 0 |
|
./pkg/kpp/kpp_routines.F |
1167 |
Z121 |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
1173 |
Z121 |
v(i,Nrp1) = v(i,Nr) |
|
./pkg/kpp/kpp_routines.F |
1176 |
Z121 |
KRi_range(k) = p5 + SIGN(p5,v(i,k)) |
|
./pkg/kpp/kpp_routines.F |
1178 |
Z121 |
& ( p5 + SIGN(p5,(Riinfty-v(i,k))) ) |
|
./pkg/kpp/kpp_routines.F |
1181 |
Z121 |
zwork = KRi_range(1) * v(i,1) |
|
./pkg/kpp/kpp_routines.F |
1182 |
Z121 |
v(i,1) = p2 * v(i,1) + |
|
./pkg/kpp/kpp_routines.F |
1183 |
Z121 |
& KRi_range(1) * KRi_range(2) * v(i,2) |
|
./pkg/kpp/kpp_routines.F |
1185 |
Z121 |
v(i,1) = v(i,1) / zflag |
|
./pkg/kpp/kpp_routines.F |
1193 |
Z121 |
zflag = v(i,k) |
|
./pkg/kpp/kpp_routines.F |
1194 |
Z121 |
v(i,k) = p2 * v(i,k) + |
|
./pkg/kpp/kpp_routines.F |
1195 |
Z121 |
& KRi_range(k) * KRi_range(kp1) * v(i,kp1) + |
|
./pkg/kpp/kpp_routines.F |
1199 |
Z121 |
v(i,k) = v(i,k) / zflag |
|
./pkg/kpp/kpp_routines.F |
1237 |
SMOOTH_HORIZ |
integer i, j, im1, ip1, jm1, jp1 |
|
./pkg/kpp/kpp_routines.F |
1250 |
SMOOTH_HORIZ |
DO i = imin, imax |
|
./pkg/kpp/kpp_routines.F |
1251 |
SMOOTH_HORIZ |
im1 = i-1 |
|
./pkg/kpp/kpp_routines.F |
1252 |
SMOOTH_HORIZ |
ip1 = i+1 |
|
./pkg/kpp/kpp_routines.F |
1254 |
SMOOTH_HORIZ |
& p25 * maskC(i ,j ,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1257 |
SMOOTH_HORIZ |
& maskC(i ,jm1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1258 |
SMOOTH_HORIZ |
& maskC(i ,jp1,k,bi,bj) ) + |
|
./pkg/kpp/kpp_routines.F |
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 |
1268 |
SMOOTH_HORIZ |
& fld(i ,jm1)*maskC(i ,jm1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1269 |
SMOOTH_HORIZ |
& fld(i ,jp1)*maskC(i ,jp1,k,bi,bj))+ |
|
./pkg/kpp/kpp_routines.F |
1276 |
SMOOTH_HORIZ |
fld_tmp(i,j) = fld(i,j) |
|
./pkg/kpp/kpp_routines.F |
1283 |
SMOOTH_HORIZ |
DO i = imin, imax |
|
./pkg/kpp/kpp_routines.F |
1284 |
SMOOTH_HORIZ |
fld(i,j) = fld_tmp(i,j) |
|
./pkg/kpp/kpp_routines.F |
1354 |
BLMIX |
integer i, kn, ki, kl |
|
./pkg/kpp/kpp_routines.F |
1371 |
BLMIX |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
1372 |
BLMIX |
sigma(i) = stable(i) * 1.0 + (1. - stable(i)) * epsilon |
|
./pkg/kpp/kpp_routines.F |
1386 |
BLMIX |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
1387 |
BLMIX |
wm(i) = sign(eins,wm(i))*max(phepsi,abs(wm(i))) |
|
./pkg/kpp/kpp_routines.F |
1388 |
BLMIX |
ws(i) = sign(eins,ws(i))*max(phepsi,abs(ws(i))) |
|
./pkg/kpp/kpp_routines.F |
1395 |
BLMIX |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
1397 |
BLMIX |
kn = int(caseA(i)+phepsi) *(kbl(i) -1) + |
|
./pkg/kpp/kpp_routines.F |
1398 |
BLMIX |
$ (1 - int(caseA(i)+phepsi)) * kbl(i) |
|
./pkg/kpp/kpp_routines.F |
1404 |
BLMIX |
delhat = 0.5*hwide(kn) - zgrid(kn) - hbl(i) |
|
./pkg/kpp/kpp_routines.F |
1406 |
BLMIX |
dvdzup = (diffus(i,kn-1,1) - diffus(i,kn ,1)) / hwide(kn) |
|
./pkg/kpp/kpp_routines.F |
1407 |
BLMIX |
dvdzdn = (diffus(i,kn ,1) - diffus(i,kn+1,1)) / hwide(kn+1) |
|
./pkg/kpp/kpp_routines.F |
1411 |
BLMIX |
dvdzup = (diffus(i,kn-1,2) - diffus(i,kn ,2)) / hwide(kn) |
|
./pkg/kpp/kpp_routines.F |
1412 |
BLMIX |
dvdzdn = (diffus(i,kn ,2) - diffus(i,kn+1,2)) / hwide(kn+1) |
|
./pkg/kpp/kpp_routines.F |
1416 |
BLMIX |
dvdzup = (diffus(i,kn-1,3) - diffus(i,kn ,3)) / hwide(kn) |
|
./pkg/kpp/kpp_routines.F |
1417 |
BLMIX |
dvdzdn = (diffus(i,kn ,3) - diffus(i,kn+1,3)) / hwide(kn+1) |
|
./pkg/kpp/kpp_routines.F |
1421 |
BLMIX |
visch = diffus(i,kn,1) + viscp * delhat |
|
./pkg/kpp/kpp_routines.F |
1422 |
BLMIX |
difsh = diffus(i,kn,2) + difsp * delhat |
|
./pkg/kpp/kpp_routines.F |
1423 |
BLMIX |
difth = diffus(i,kn,3) + diftp * delhat |
|
./pkg/kpp/kpp_routines.F |
1425 |
BLMIX |
f1 = stable(i) * conc1 * bfsfc(i) / |
|
./pkg/kpp/kpp_routines.F |
1426 |
BLMIX |
& max(ustar(i)**4,phepsi) |
|
./pkg/kpp/kpp_routines.F |
1427 |
BLMIX |
gat1m(i) = visch / hbl(i) / wm(i) |
|
./pkg/kpp/kpp_routines.F |
1428 |
BLMIX |
dat1m(i) = -viscp / wm(i) + f1 * visch |
|
./pkg/kpp/kpp_routines.F |
1430 |
BLMIX |
gat1s(i) = difsh / hbl(i) / ws(i) |
|
./pkg/kpp/kpp_routines.F |
1431 |
BLMIX |
dat1s(i) = -difsp / ws(i) + f1 * difsh |
|
./pkg/kpp/kpp_routines.F |
1433 |
BLMIX |
gat1t(i) = difth / hbl(i) / ws(i) |
|
./pkg/kpp/kpp_routines.F |
1434 |
BLMIX |
dat1t(i) = -diftp / ws(i) + f1 * difth |
|
./pkg/kpp/kpp_routines.F |
1445 |
BLMIX |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
1446 |
BLMIX |
dat1m(i) = min(dat1m(i),p0) |
|
./pkg/kpp/kpp_routines.F |
1447 |
BLMIX |
dat1s(i) = min(dat1s(i),p0) |
|
./pkg/kpp/kpp_routines.F |
1448 |
BLMIX |
dat1t(i) = min(dat1t(i),p0) |
|
./pkg/kpp/kpp_routines.F |
1466 |
BLMIX |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
1467 |
BLMIX |
sig = (-zgrid(ki) + 0.5 * hwide(ki)) / hbl(i) |
|
./pkg/kpp/kpp_routines.F |
1468 |
BLMIX |
sigma(i) = stable(i)*sig + (1.-stable(i))*min(sig,epsilon) |
|
./pkg/kpp/kpp_routines.F |
1489 |
BLMIX |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
1490 |
BLMIX |
sig = (-zgrid(ki) + 0.5 * hwide(ki)) / hbl(i) |
|
./pkg/kpp/kpp_routines.F |
1495 |
BLMIX |
Gm = a1 + a2 * gat1m(i) + a3 * dat1m(i) |
|
./pkg/kpp/kpp_routines.F |
1496 |
BLMIX |
Gs = a1 + a2 * gat1s(i) + a3 * dat1s(i) |
|
./pkg/kpp/kpp_routines.F |
1497 |
BLMIX |
Gt = a1 + a2 * gat1t(i) + a3 * dat1t(i) |
|
./pkg/kpp/kpp_routines.F |
1503 |
BLMIX |
blmc(i,ki,1) = hbl(i) * wm(i) * sig * (1. + sig * Gm) |
|
./pkg/kpp/kpp_routines.F |
1504 |
BLMIX |
blmc(i,ki,2) = hbl(i) * ws(i) * sig * (1. + sig * Gs) |
|
./pkg/kpp/kpp_routines.F |
1505 |
BLMIX |
blmc(i,ki,3) = hbl(i) * ws(i) * sig * (1. + sig * Gt) |
|
./pkg/kpp/kpp_routines.F |
1511 |
BLMIX |
tempVar = ws(i) * hbl(i) |
|
./pkg/kpp/kpp_routines.F |
1512 |
BLMIX |
ghat(i,ki) = (1.-stable(i)) * cg / max(phepsi,tempVar) |
|
./pkg/kpp/kpp_routines.F |
1521 |
BLMIX |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
1522 |
BLMIX |
kl = kbl(i) |
|
./pkg/kpp/kpp_routines.F |
1523 |
BLMIX |
sig = -zgrid(kl-1) / hbl(i) |
|
./pkg/kpp/kpp_routines.F |
1524 |
BLMIX |
sigma(i) = stable(i) * sig |
|
./pkg/kpp/kpp_routines.F |
1525 |
BLMIX |
& + (1. - stable(i)) * min(sig,epsilon) |
|
./pkg/kpp/kpp_routines.F |
1543 |
BLMIX |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
1544 |
BLMIX |
kl = kbl(i) |
|
./pkg/kpp/kpp_routines.F |
1545 |
BLMIX |
sig = -zgrid(kl-1) / hbl(i) |
|
./pkg/kpp/kpp_routines.F |
1549 |
BLMIX |
Gm = a1 + a2 * gat1m(i) + a3 * dat1m(i) |
|
./pkg/kpp/kpp_routines.F |
1550 |
BLMIX |
Gs = a1 + a2 * gat1s(i) + a3 * dat1s(i) |
|
./pkg/kpp/kpp_routines.F |
1551 |
BLMIX |
Gt = a1 + a2 * gat1t(i) + a3 * dat1t(i) |
|
./pkg/kpp/kpp_routines.F |
1552 |
BLMIX |
dkm1(i,1) = hbl(i) * wm(i) * sig * (1. + sig * Gm) |
|
./pkg/kpp/kpp_routines.F |
1553 |
BLMIX |
dkm1(i,2) = hbl(i) * ws(i) * sig * (1. + sig * Gs) |
|
./pkg/kpp/kpp_routines.F |
1554 |
BLMIX |
dkm1(i,3) = hbl(i) * ws(i) * sig * (1. + sig * Gt) |
|
./pkg/kpp/kpp_routines.F |
155 |
KPPMIX |
integer i, k, md |
|
./pkg/kpp/kpp_routines.F |
1604 |
ENHANCE |
integer ki, i, md |
|
./pkg/kpp/kpp_routines.F |
1607 |
ENHANCE |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
1608 |
ENHANCE |
ki = kbl(i)-1 |
|
./pkg/kpp/kpp_routines.F |
1610 |
ENHANCE |
delta = (hbl(i) + zgrid(ki)) / (zgrid(ki) - zgrid(ki+1)) |
|
./pkg/kpp/kpp_routines.F |
1612 |
ENHANCE |
dkmp5 = casea(i) * diffus(i,ki,md) + |
|
./pkg/kpp/kpp_routines.F |
1613 |
ENHANCE |
1 (1.- casea(i)) * blmc (i,ki,md) |
|
./pkg/kpp/kpp_routines.F |
1614 |
ENHANCE |
dstar = (1.- delta)**2 * dkm1(i,md) |
|
./pkg/kpp/kpp_routines.F |
1616 |
ENHANCE |
blmc(i,ki,md) = (1.- delta)*diffus(i,ki,md) |
|
./pkg/kpp/kpp_routines.F |
1619 |
ENHANCE |
ghat(i,ki) = (1.- casea(i)) * ghat(i,ki) |
|
./pkg/kpp/kpp_routines.F |
195 |
KPPMIX |
do i = 1,imt |
|
./pkg/kpp/kpp_routines.F |
196 |
KPPMIX |
if(k.ge.kmtj(i)) diffus(i,k,md) = 0.0 |
|
./pkg/kpp/kpp_routines.F |
267 |
KPPMIX |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
268 |
KPPMIX |
if (k .lt. kbl(i)) then |
|
./pkg/kpp/kpp_routines.F |
272 |
KPPMIX |
blmc(i,k,1) = max ( blmc(i,k,1)*msk(i), |
|
./pkg/kpp/kpp_routines.F |
273 |
KPPMIX |
& diffus(i,k,1) ) |
|
./pkg/kpp/kpp_routines.F |
274 |
KPPMIX |
blmc(i,k,2) = max ( blmc(i,k,2)*msk(i), |
|
./pkg/kpp/kpp_routines.F |
275 |
KPPMIX |
& diffus(i,k,2) ) |
|
./pkg/kpp/kpp_routines.F |
276 |
KPPMIX |
blmc(i,k,3) = max ( blmc(i,k,3)*msk(i), |
|
./pkg/kpp/kpp_routines.F |
277 |
KPPMIX |
& diffus(i,k,3) ) |
|
./pkg/kpp/kpp_routines.F |
279 |
KPPMIX |
diffus(i,k,1) = max ( blmc(i,k,1), viscArNr(1) ) |
|
./pkg/kpp/kpp_routines.F |
280 |
KPPMIX |
diffus(i,k,2) = max ( blmc(i,k,2), diffusKzS(i,Nr) ) |
|
./pkg/kpp/kpp_routines.F |
281 |
KPPMIX |
diffus(i,k,3) = max ( blmc(i,k,3), diffusKzT(i,Nr) ) |
|
./pkg/kpp/kpp_routines.F |
283 |
KPPMIX |
ghat(i,k) = 0. _d 0 |
|
./pkg/kpp/kpp_routines.F |
404 |
BLDEPTH |
integer i, kl |
|
./pkg/kpp/kpp_routines.F |
435 |
BLDEPTH |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
436 |
BLDEPTH |
Rib(i,1) = 0. _d 0 |
|
./pkg/kpp/kpp_routines.F |
437 |
BLDEPTH |
if (kmtj(i).LT.1) kmtj(i) = 1 |
|
./pkg/kpp/kpp_routines.F |
438 |
BLDEPTH |
kbl(i) = kmtj(i) |
|
./pkg/kpp/kpp_routines.F |
439 |
BLDEPTH |
kl = kbl(i) |
|
./pkg/kpp/kpp_routines.F |
440 |
BLDEPTH |
hbl(i) = -zgrid(kl) |
|
./pkg/kpp/kpp_routines.F |
445 |
BLDEPTH |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
446 |
BLDEPTH |
KPPBFSFC(i,kl) = 0. _d 0 |
|
./pkg/kpp/kpp_routines.F |
447 |
BLDEPTH |
KPPRi(i,kl) = 0. _d 0 |
|
./pkg/kpp/kpp_routines.F |
460 |
BLDEPTH |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
461 |
BLDEPTH |
worka(i) = zgrid(kl) |
|
./pkg/kpp/kpp_routines.F |
474 |
BLDEPTH |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
478 |
BLDEPTH |
casea(i) = -zgrid(kl) |
|
./pkg/kpp/kpp_routines.F |
482 |
BLDEPTH |
bfsfc(i) = bo(i) + bosol(i)*(1. - worka(i)) |
|
./pkg/kpp/kpp_routines.F |
489 |
BLDEPTH |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
490 |
BLDEPTH |
worka(i) = zgrid(kl) |
|
./pkg/kpp/kpp_routines.F |
500 |
BLDEPTH |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
501 |
BLDEPTH |
bfsfc(i) = bfsfc(i) + boplume(i,1)*(worka(i)) |
|
./pkg/kpp/kpp_routines.F |
509 |
BLDEPTH |
DO i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
510 |
BLDEPTH |
km =max(1,kbl(i)-1) |
|
./pkg/kpp/kpp_routines.F |
511 |
BLDEPTH |
km1=max(1,kbl(i)) |
|
./pkg/kpp/kpp_routines.F |
512 |
BLDEPTH |
temp = (boplume(i,km)+boplume(i,km1))*p5 |
|
./pkg/kpp/kpp_routines.F |
513 |
BLDEPTH |
bfsfc(i) = bfsfc(i) + temp |
|
./pkg/kpp/kpp_routines.F |
520 |
BLDEPTH |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
521 |
BLDEPTH |
KPPBFSFC(i,kl) = bfsfc(i) |
|
./pkg/kpp/kpp_routines.F |
525 |
BLDEPTH |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
526 |
BLDEPTH |
stable(i) = p5 + sign(p5,bfsfc(i)) |
|
./pkg/kpp/kpp_routines.F |
527 |
BLDEPTH |
sigma(i) = stable(i) + (1. - stable(i)) * epsilon |
|
./pkg/kpp/kpp_routines.F |
541 |
BLDEPTH |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
548 |
BLDEPTH |
1 ( dbloc(i,kl-1) / (zgrid(kl-1)-zgrid(kl ))+ |
|
./pkg/kpp/kpp_routines.F |
549 |
BLDEPTH |
2 dbloc(i,kl ) / (zgrid(kl )-zgrid(kl+1))) |
|
./pkg/kpp/kpp_routines.F |
554 |
BLDEPTH |
vtsq = -zgrid(kl) * ws(i) * sqrt(abs(bvsq)) * Vtc |
|
./pkg/kpp/kpp_routines.F |
569 |
BLDEPTH |
tempVar1 = dvsq(i,kl) + vtsq |
|
./pkg/kpp/kpp_routines.F |
571 |
BLDEPTH |
Rib(i,kl) = Ritop(i,kl) / tempVar2 |
|
./pkg/kpp/kpp_routines.F |
573 |
BLDEPTH |
KPPRi(i,kl) = Rib(i,kl) |
|
./pkg/kpp/kpp_routines.F |
597 |
BLDEPTH |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
598 |
BLDEPTH |
if (kbl(i).eq.kmtj(i) .and. Rib(i,kl).gt.Ricr) kbl(i) = kl |
|
./pkg/kpp/kpp_routines.F |
608 |
BLDEPTH |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
609 |
BLDEPTH |
kl = kbl(i) |
|
./pkg/kpp/kpp_routines.F |
611 |
BLDEPTH |
if (kl.gt.1 .and. kl.lt.kmtj(i)) then |
|
./pkg/kpp/kpp_routines.F |
612 |
BLDEPTH |
tempVar1 = (Rib(i,kl)-Rib(i,kl-1)) |
|
./pkg/kpp/kpp_routines.F |
613 |
BLDEPTH |
hbl(i) = -zgrid(kl-1) + (zgrid(kl-1)-zgrid(kl)) * |
|
./pkg/kpp/kpp_routines.F |
614 |
BLDEPTH |
1 (Ricr - Rib(i,kl-1)) / tempVar1 |
|
./pkg/kpp/kpp_routines.F |
628 |
BLDEPTH |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
629 |
BLDEPTH |
worka(i) = hbl(i) |
|
./pkg/kpp/kpp_routines.F |
646 |
BLDEPTH |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
647 |
BLDEPTH |
bfsfc(i) = bo(i) + bosol(i) * (1. - worka(i)) |
|
./pkg/kpp/kpp_routines.F |
653 |
BLDEPTH |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
654 |
BLDEPTH |
worka(i) = hbl(i) |
|
./pkg/kpp/kpp_routines.F |
663 |
BLDEPTH |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
664 |
BLDEPTH |
bfsfc(i) = bfsfc(i) + boplume(i,1) * (worka(i)) |
|
./pkg/kpp/kpp_routines.F |
670 |
BLDEPTH |
DO i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
671 |
BLDEPTH |
km =max(1,kbl(i)-1) |
|
./pkg/kpp/kpp_routines.F |
672 |
BLDEPTH |
km1=max(1,kbl(i)) |
|
./pkg/kpp/kpp_routines.F |
673 |
BLDEPTH |
temp = (boplume(i,km)+boplume(i,km1))/2.0 |
|
./pkg/kpp/kpp_routines.F |
674 |
BLDEPTH |
bfsfc(i) = bfsfc(i) + temp |
|
./pkg/kpp/kpp_routines.F |
686 |
BLDEPTH |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
687 |
BLDEPTH |
stable(i) = p5 + sign( p5, bfsfc(i) ) |
|
./pkg/kpp/kpp_routines.F |
688 |
BLDEPTH |
bfsfc(i) = sign(eins,bfsfc(i))*max(phepsi,abs(bfsfc(i))) |
|
./pkg/kpp/kpp_routines.F |
706 |
BLDEPTH |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
707 |
BLDEPTH |
if (bfsfc(i) .gt. 0.0) then |
|
./pkg/kpp/kpp_routines.F |
708 |
BLDEPTH |
hekman = cekman * ustar(i) / max(abs(Coriol(i)),phepsi) |
|
./pkg/kpp/kpp_routines.F |
709 |
BLDEPTH |
hmonob = cmonob * ustar(i)*ustar(i)*ustar(i) |
|
./pkg/kpp/kpp_routines.F |
710 |
BLDEPTH |
& / vonk / bfsfc(i) |
|
./pkg/kpp/kpp_routines.F |
711 |
BLDEPTH |
hlimit = stable(i) * min(hekman,hmonob) |
|
./pkg/kpp/kpp_routines.F |
712 |
BLDEPTH |
& + (stable(i)-1.) * zgrid(Nr) |
|
./pkg/kpp/kpp_routines.F |
713 |
BLDEPTH |
hbl(i) = min(hbl(i),hlimit) |
|
./pkg/kpp/kpp_routines.F |
724 |
BLDEPTH |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
725 |
BLDEPTH |
hbl(i) = max(hbl(i),minKPPhbl) |
|
./pkg/kpp/kpp_routines.F |
726 |
BLDEPTH |
kbl(i) = kmtj(i) |
|
./pkg/kpp/kpp_routines.F |
740 |
BLDEPTH |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
741 |
BLDEPTH |
if ( kbl(i).eq.kmtj(i) .and. (-zgrid(kl)).gt.hbl(i) ) then |
|
./pkg/kpp/kpp_routines.F |
742 |
BLDEPTH |
kbl(i) = kl |
|
./pkg/kpp/kpp_routines.F |
751 |
BLDEPTH |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
752 |
BLDEPTH |
worka(i) = hbl(i) |
|
./pkg/kpp/kpp_routines.F |
769 |
BLDEPTH |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
770 |
BLDEPTH |
bfsfc(i) = bo(i) + bosol(i) * (1. - worka(i)) |
|
./pkg/kpp/kpp_routines.F |
776 |
BLDEPTH |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
777 |
BLDEPTH |
worka(i) = hbl(i) |
|
./pkg/kpp/kpp_routines.F |
786 |
BLDEPTH |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
787 |
BLDEPTH |
bfsfc(i) = bfsfc(i) + boplume(i,1) * (worka(i)) |
|
./pkg/kpp/kpp_routines.F |
793 |
BLDEPTH |
DO i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
794 |
BLDEPTH |
km =max(1,kbl(i)-1) |
|
./pkg/kpp/kpp_routines.F |
795 |
BLDEPTH |
km1=max(1,kbl(i)-0) |
|
./pkg/kpp/kpp_routines.F |
796 |
BLDEPTH |
temp = (boplume(i,km)+boplume(i,km1))/2.0 |
|
./pkg/kpp/kpp_routines.F |
797 |
BLDEPTH |
bfsfc(i) = bfsfc(i) + temp |
|
./pkg/kpp/kpp_routines.F |
809 |
BLDEPTH |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
810 |
BLDEPTH |
stable(i) = p5 + sign( p5, bfsfc(i) ) |
|
./pkg/kpp/kpp_routines.F |
811 |
BLDEPTH |
bfsfc(i) = sign(eins,bfsfc(i))*max(phepsi,abs(bfsfc(i))) |
|
./pkg/kpp/kpp_routines.F |
818 |
BLDEPTH |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
819 |
BLDEPTH |
kl = kbl(i) |
|
./pkg/kpp/kpp_routines.F |
820 |
BLDEPTH |
casea(i) = p5 + |
|
./pkg/kpp/kpp_routines.F |
821 |
BLDEPTH |
1 sign(p5, -zgrid(kl) - p5*hwide(kl) - hbl(i)) |
|
./pkg/kpp/kpp_routines.F |
874 |
WSCALE |
integer iz, izp1, ju, i, jup1 |
|
./pkg/kpp/kpp_routines.F |
883 |
WSCALE |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
884 |
WSCALE |
zehat = vonk*sigma(i)*hbl(i)*bfsfc(i) |
|
./pkg/kpp/kpp_routines.F |
904 |
WSCALE |
udiff = ustar(i) - umin |
|
./pkg/kpp/kpp_routines.F |
916 |
WSCALE |
wm(i) = (1.-ufrac) * wbm + ufrac * wam |
|
./pkg/kpp/kpp_routines.F |
920 |
WSCALE |
ws(i) = (1.-ufrac) * wbs + ufrac * was |
|
./pkg/kpp/kpp_routines.F |
924 |
WSCALE |
u3 = ustar(i) * ustar(i) * ustar(i) |
|
./pkg/kpp/kpp_routines.F |
926 |
WSCALE |
wm(i) = vonk * ustar(i) * u3 / tempVar |
|
./pkg/kpp/kpp_routines.F |
927 |
WSCALE |
ws(i) = wm(i) |
|
./pkg/kpp/kpp_routines.F |
996 |
RI_IWMIX |
integer i, ki, kp1 |
|
./pkg/kpp/kpp_transport_ptr.F |
104 |
KPP_TRANSPORT_PTR |
DO i=iMin,iMax |
|
./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 |
89 |
KPP_TRANSPORT_PTR |
DO i=iMin,iMax |
|
./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 |
111 |
KPP_TRANSPORT_S |
DO i=iMin,iMax |
|
./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 |
95 |
KPP_TRANSPORT_S |
DO i=iMin,iMax |
|
./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 |
78 |
KPP_TRANSPORT_T |
DO i=iMin,iMax |
|
./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 |
93 |
KPP_TRANSPORT_T |
DO i=iMin,iMax |
|
./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 |
114 |
CALC_DIV_GHAT |
DO i=1,sNx+1 |
|
./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 |
122 |
CALC_DIV_GHAT |
DO i=1,sNx |
|
./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 |
131 |
CALC_DIV_GHAT |
DO i=1,sNx |
|
./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 |
141 |
CALC_DIV_GHAT |
DO i=1,sNx |
|
./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 |
149 |
CALC_DIV_GHAT |
DO i=1,sNx |
|
./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 |
157 |
CALC_DIV_GHAT |
DO i=1,sNx |
|
./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 |
165 |
CALC_DIV_GHAT |
DO i=1,sNx |
|
./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 |
174 |
CALC_DIV_GHAT |
DO i=1,sNx |
|
./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 |
185 |
CALC_DIV_GHAT |
DO i=1,sNx |
|
./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 |
193 |
CALC_DIV_GHAT |
DO i=1,sNx |
|
./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 |
66 |
CALC_DIV_GHAT |
DO i=1,sNx+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 |
82 |
CALC_DIV_GHAT |
DO i=1,sNx+1 |
|
./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 |
90 |
CALC_DIV_GHAT |
DO i=1,sNx+1 |
|
./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 |
62 |
LAND_ALBEDO |
DO i=1,sNx |
|
./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 |
130 |
LAND_IMPL_TEMP |
DO i=1,sNx |
|
./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 |
135 |
LAND_INI_VARS |
DO i=1,sNx |
|
./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 |
153 |
LAND_INI_VARS |
DO i=1,sNx |
|
./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 |
56 |
CALC_EDDY_STRESS |
DO i=1-OLx+1,sNx+OLx |
|
./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 |
75 |
CALC_EDDY_STRESS |
DO i=1-OLx,sNx+OLx-1 |
|
./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_mnc_init.F |
123 |
LAND_MNC_INIT |
DO i = 1,CW_MAX_LOC |
|
./pkg/land/land_mnc_init.F |
124 |
LAND_MNC_INIT |
dn(i)(1:MNC_MAX_CHAR)=mnc_blank_name(1:MNC_MAX_CHAR) |
|
./pkg/land/land_mnc_init.F |
125 |
LAND_MNC_INIT |
dim(i) = 0 |
|
./pkg/land/land_mnc_init.F |
126 |
LAND_MNC_INIT |
ib(i) = 0 |
|
./pkg/land/land_mnc_init.F |
127 |
LAND_MNC_INIT |
ie(i) = 0 |
|
./pkg/land/land_mnc_init.F |
57 |
LAND_MNC_INIT |
integer i, ihorz,ihsub,ivert,itime,ihalo, is,ih, n,ntot |
|
./pkg/land/land_stepfwd.F |
104 |
LAND_STEPFWD |
DO i=1,sNx |
|
./pkg/land/land_stepfwd.F |
105 |
LAND_STEPFWD |
flxkup(i,j) = flxkdw(i,j) |
|
./pkg/land/land_stepfwd.F |
111 |
LAND_STEPFWD |
DO i=1,sNx |
|
./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 |
136 |
LAND_STEPFWD |
DO i=1,sNx |
|
./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 |
151 |
LAND_STEPFWD |
DO i=1,sNx |
|
./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 |
178 |
LAND_STEPFWD |
DO i=1,sNx |
|
./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 |
259 |
LAND_STEPFWD |
DO i=1,sNx |
|
./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 |
282 |
LAND_STEPFWD |
DO i=1,sNx |
|
./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 |
399 |
LAND_STEPFWD |
DO i=1,sNx |
|
./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 |
423 |
LAND_STEPFWD |
DO i=1,sNx |
|
./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 |
433 |
LAND_STEPFWD |
DO i=1,sNx |
|
./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 |
98 |
LAND_STEPFWD |
DO i=1,sNx |
|
./pkg/land/land_stepfwd.F |
99 |
LAND_STEPFWD |
flxkup(i,j) = land_HeatFlx(i,j,bi,bj) |
|
./model/src/calc_grad_phi_fv.F |
102 |
CALC_GRAD_PHI_FV |
DO i=1-OLx,sNx+OLx |
|
./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 |
70 |
CALC_GRAD_PHI_FV |
DO i=1-OLx,sNx+OLx |
|
./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 |
76 |
CALC_GRAD_PHI_FV |
DO i=iMin+1,iMax |
|
./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 |
88 |
CALC_GRAD_PHI_FV |
DO i=iMin,iMax |
|
./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 |
174 |
LAYERS_CALC |
DO i=1-OLx,sNx+OLx |
|
./pkg/layers/layers_calc.F |
175 |
LAYERS_CALC |
prho(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_calc.F |
197 |
LAYERS_CALC |
DO i = 1-OLx,sNx+OLx |
|
./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 |
444 |
LAYERS_CALC |
DO i=1-OLx,sNx+OLx |
|
./pkg/layers/layers_calc.F |
445 |
LAYERS_CALC |
layers_surfflux(i,j,1,iTracer,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_calc.F |
450 |
LAYERS_CALC |
DO i=1-OLx,sNx+OLx |
|
./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 |
132 |
LAYERS_FLUXCALC |
DO i = 1,sNx+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 |
144 |
LAYERS_FLUXCALC |
DO i = 1-OLx,sNx+OLx |
|
./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 |
175 |
LAYERS_FLUXCALC |
DO i = 1,sNx+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 |
198 |
LAYERS_FLUXCALC |
DO i = 1,sNx+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 |
213 |
LAYERS_FLUXCALC |
DO i = 1,sNx+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 |
256 |
LAYERS_FLUXCALC |
DO i = 1,sNx+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 |
278 |
LAYERS_FLUXCALC |
DO i = 1,sNx+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 |
293 |
LAYERS_FLUXCALC |
DO i = 1,sNx+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 |
349 |
LAYERS_FLUXCALC |
DO i = 1,sNx+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 |
481 |
LAYERS_DIAPYCNAL |
DO i = 1,sNx+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 |
494 |
LAYERS_DIAPYCNAL |
DO i = 1-OLx,sNx+OLx |
|
./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 |
514 |
LAYERS_DIAPYCNAL |
DO i = 1-OLx,sNx+OLx |
|
./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 |
526 |
LAYERS_DIAPYCNAL |
DO i = 1,sNx+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 |
539 |
LAYERS_DIAPYCNAL |
DO i = 1,sNx+1 |
|
./pkg/layers/layers_fluxcalc.F |
540 |
LAYERS_DIAPYCNAL |
TatC(i,j) = tracer(i,j,k,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
571 |
LAYERS_DIAPYCNAL |
DO i = 1,sNx+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 |
595 |
LAYERS_DIAPYCNAL |
DO i = 1,sNx+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 |
611 |
LAYERS_DIAPYCNAL |
DO i = 1,sNx+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 |
694 |
LAYERS_DIAPYCNAL |
DO i = 1,sNx+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 |
756 |
LAYERS_LOCATE |
DO i = 1,sNx+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 |
763 |
LAYERS_LOCATE |
DO i = 1,sNx+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 |
778 |
LAYERS_LOCATE |
DO i = 1,sNx+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 |
791 |
LAYERS_LOCATE |
DO i = 1,sNx+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 |
41 |
LAYERS_INIT_VARIA |
DO i=1-OLx,sNx+OLx |
|
./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 |
49 |
LAYERS_INIT_VARIA |
DO i=1-OLx,sNx+OLx |
|
./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 |
67 |
LAYERS_INIT_VARIA |
DO i=1-OLx,sNx+OLx |
|
./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 |
77 |
LAYERS_INIT_VARIA |
DO i=1-OLx,sNx+OLx |
|
./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 |
83 |
LAYERS_INIT_VARIA |
DO i=1-OLx,sNx+OLx |
|
./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 |
330 |
LAYERS_CUMULATE |
DO i = 1,iRun |
|
./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 |
114 |
CALC_GRAD_PHI_HYD |
DO i=iMin,iMax |
|
./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 |
136 |
CALC_GRAD_PHI_HYD |
DO i=iMin,iMax |
|
./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 |
144 |
CALC_GRAD_PHI_HYD |
DO i=1-OLx,sNx+OLx |
|
./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 |
150 |
CALC_GRAD_PHI_HYD |
DO i=iMin+1,iMax |
|
./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 |
156 |
CALC_GRAD_PHI_HYD |
DO i=iMin,iMax |
|
./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 |
169 |
CALC_GRAD_PHI_HYD |
DO i=iMin,iMax |
|
./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 |
175 |
CALC_GRAD_PHI_HYD |
DO i=iMin+1,iMax |
|
./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 |
183 |
CALC_GRAD_PHI_HYD |
DO i=iMin,iMax |
|
./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 |
194 |
CALC_GRAD_PHI_HYD |
DO i=iMin+1,iMax |
|
./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 |
202 |
CALC_GRAD_PHI_HYD |
DO i=iMin,iMax |
|
./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 |
224 |
CALC_GRAD_PHI_HYD |
DO i=iMin+1,iMax |
|
./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 |
237 |
CALC_GRAD_PHI_HYD |
DO i=iMin,iMax |
|
./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 |
256 |
CALC_GRAD_PHI_HYD |
DO i=1-OLx,sNx+OLx |
|
./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 |
77 |
CALC_GRAD_PHI_HYD |
DO i=iMin,iMax |
|
./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 |
84 |
CALC_GRAD_PHI_HYD |
DO i=iMin,iMax |
|
./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 |
96 |
CALC_GRAD_PHI_HYD |
DO i=iMin,iMax |
|
./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 |
103 |
LAYERS_CALC_RHS |
DO i=1-OLx,sNx+OLx-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 |
73 |
LAYERS_CALC_RHS |
DO i=1-OLx,sNx+OLx |
|
./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 |
63 |
LAYERS_WSURF_TR |
DO i=1,sNx |
|
./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 |
53 |
LONGSTEP_AVERAGE_3D |
DO i = 1-OLx,sNx+OLx |
|
./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 |
53 |
LONGSTEP_AVERAGE_3D_FAC |
DO i = 1-OLx,sNx+OLx |
|
./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 |
50 |
CALC_GRAD_PHI_SURF |
DO i=iMin,iMax |
|
./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 |
59 |
CALC_GRAD_PHI_SURF |
DO i=iMin,iMax |
|
./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 |
52 |
LONGSTEP_FILL_3D |
DO i = 1-OLx,sNx+OLx |
|
./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 |
53 |
LONGSTEP_FILL_3D_FAC |
DO i = 1-OLx,sNx+OLx |
|
./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 |
53 |
LONGSTEP_FILL_3D_RS |
DO i = 1-OLx,sNx+OLx |
|
./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 |
117 |
LONGSTEP_FORCING_SURF |
DO i = iMin, iMax |
|
./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 |
141 |
LONGSTEP_FORCING_SURF |
DO i = iMin, iMax |
|
./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 |
62 |
LONGSTEP_FORCING_SURF |
DO i = iMin, iMax |
|
./pkg/longstep/longstep_forcing_surf.F |
63 |
LONGSTEP_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = |
|
./pkg/longstep/longstep_forcing_surf.F |
84 |
LONGSTEP_FORCING_SURF |
DO i = iMin, iMax |
|
./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 |
50 |
LONGSTEP_RESET_3D |
DO i = 1-OLx,sNx+OLx |
|
./pkg/longstep/longstep_reset_3d.F |
51 |
LONGSTEP_RESET_3D |
lsFld(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/longstep/longstep_thermodynamics.F |
131 |
LONGSTEP_THERMODYNAMICS |
DO i=1-OLx,sNx+OLx |
|
./pkg/longstep/longstep_thermodynamics.F |
133 |
LONGSTEP_THERMODYNAMICS |
kappaRk(i,j,k) = 0. _d 0 |
|
./pkg/longstep/longstep_thermodynamics.F |
145 |
LONGSTEP_THERMODYNAMICS |
DO i=1-OLx,sNx+OLx |
|
./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 |
156 |
LONGSTEP_THERMODYNAMICS |
DO i=1-OLx,sNx+OLx |
|
./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 |
169 |
LONGSTEP_THERMODYNAMICS |
DO i=1-OLx,sNx+OLx |
|
./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 |
183 |
LONGSTEP_THERMODYNAMICS |
DO i=1-OLx,sNx+OLx |
|
./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 |
206 |
LONGSTEP_THERMODYNAMICS |
DO i=1-OLx,sNx+OLx |
|
./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 |
113 |
CALC_GRID_ANGLES |
DO i = 1-OLx,sNx+OLx-1 |
|
./model/src/calc_grid_angles.F |
117 |
CALC_GRID_ANGLES |
tmpVal = _rAs(i,j,bi,bj) * COS( deg2rad* |
|
./model/src/calc_grid_angles.F |
118 |
CALC_GRID_ANGLES |
& ( yG(i,j,bi,bj) + yG(i+1,j,bi,bj) )*halfRL ) |
|
./model/src/calc_grid_angles.F |
120 |
CALC_GRID_ANGLES |
v2zonDir(i,j,bi,bj) = -rSphere |
|
./model/src/calc_grid_angles.F |
121 |
CALC_GRID_ANGLES |
& *( SIN( yG(i+1,j,bi,bj)*deg2rad ) |
|
./model/src/calc_grid_angles.F |
122 |
CALC_GRID_ANGLES |
& - SIN( yG(i,j,bi,bj)*deg2rad ) |
|
./model/src/calc_grid_angles.F |
123 |
CALC_GRID_ANGLES |
& )* _dyC(i,j,bi,bj)/tmpVal |
|
./model/src/calc_grid_angles.F |
126 |
CALC_GRID_ANGLES |
v2zonDir(i,j,bi,bj) = 0. |
|
./model/src/calc_grid_angles.F |
41 |
CALC_GRID_ANGLES |
INTEGER i, j |
|
./model/src/calc_grid_angles.F |
55 |
CALC_GRID_ANGLES |
DO i = 1-OLx,sNx+OLx |
|
./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 |
67 |
CALC_GRID_ANGLES |
DO i = 1-OLx,sNx+OLx-1 |
|
./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 |
80 |
CALC_GRID_ANGLES |
DO i = 1-OLx,sNx+OLx-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 |
95 |
CALC_GRID_ANGLES |
DO i = 1-OLx,sNx+OLx |
|
./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 |
40 |
MATRIX_INIT_VARIA |
DO i=1-Olx, sNx+Olx |
|
./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 |
107 |
MATRIX_STORE_TENDENCY_IMP |
DO i=1-OLx, sNx+OLx |
|
./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 |
52 |
MATRIX_STORE_TENDENCY_EXP |
DO i=1-OLx, sNx+OLx |
|
./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 |
107 |
MATRIX_WRITE_TENDENCY |
DO i=1-OLx, sNx+OLx |
|
./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 |
144 |
MATRIX_WRITE_TENDENCY |
DO i=1-OLx, sNx+OLx |
|
./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 |
48 |
MATRIX_WRITE_TENDENCY |
DO i=1-OLx, sNx+OLx |
|
./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 |
85 |
MATRIX_WRITE_TENDENCY |
DO i=1-OLx, sNx+OLx |
|
./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 |
153 |
CALC_GW |
DO i=1-OLx,sNx+OLx |
|
./model/src/calc_gw.F |
154 |
CALC_GW |
gW(i,j,k,bi,bj) = 0. |
|
./model/src/calc_gw.F |
160 |
CALC_GW |
DO i=1-OLx,sNx+OLx |
|
./model/src/calc_gw.F |
161 |
CALC_GW |
gwDiss(i,j) = 0. |
|
./model/src/calc_gw.F |
167 |
CALC_GW |
DO i=1-OLx,sNx+OLx |
|
./model/src/calc_gw.F |
168 |
CALC_GW |
del2w(i,j) = 0. _d 0 |
|
./model/src/calc_gw.F |
175 |
CALC_GW |
DO i=1-OLx,sNx+OLx |
|
./model/src/calc_gw.F |
176 |
CALC_GW |
flxAdvUp(i,j) = 0. |
|
./model/src/calc_gw.F |
193 |
CALC_GW |
DO i=1-OLx,sNx+OLx |
|
./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 |
208 |
CALC_GW |
DO i=1-OLx,sNx+OLx |
|
./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 |
216 |
CALC_GW |
DO i=1-OLx+1,sNx+OLx |
|
./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 |
227 |
CALC_GW |
DO i=1-OLx,sNx+OLx |
|
./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 |
242 |
CALC_GW |
DO i=1-OLx,sNx+OLx |
|
./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 |
282 |
CALC_GW |
DO i=1-OLx,sNx+OLx |
|
./model/src/calc_gw.F |
283 |
CALC_GW |
recip_rThickC(i,j) = recip_drC(k) |
|
./model/src/calc_gw.F |
295 |
CALC_GW |
DO i=1-OLx,sNx+OLx |
|
./model/src/calc_gw.F |
296 |
CALC_GW |
wFld(i,j) = wVel(i,j,k,bi,bj) |
|
./model/src/calc_gw.F |
312 |
CALC_GW |
DO i=1-OLx+1,sNx+OLx |
|
./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 |
320 |
CALC_GW |
& *maskInW(i,j,bi,bj) |
|
./model/src/calc_gw.F |
331 |
CALC_GW |
DO i=1-OLx,sNx+OLx |
|
./model/src/calc_gw.F |
332 |
CALC_GW |
flx_NS(i,1-OLy)=0. |
|
./model/src/calc_gw.F |
335 |
CALC_GW |
DO i=1-OLx,sNx+OLx |
|
./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 |
345 |
CALC_GW |
& *maskInS(i,j,bi,bj) |
|
./model/src/calc_gw.F |
353 |
CALC_GW |
DO i=1-OLx,sNx+OLx-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 |
366 |
CALC_GW |
DO i=iMin,iMax+1 |
|
./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 |
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 |
384 |
CALC_GW |
DO i=iMin,iMax |
|
./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 |
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 |
406 |
CALC_GW |
DO i=iMin,iMax |
|
./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 |
423 |
CALC_GW |
DO i=iMin,iMax |
|
./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 |
444 |
CALC_GW |
DO i=iMin,iMax |
|
./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 |
468 |
CALC_GW |
DO i=iMin,iMax |
|
./model/src/calc_gw.F |
469 |
CALC_GW |
gwDiss(i,j) = gwDiss(i,j) + gwAdd(i,j) |
|
./model/src/calc_gw.F |
483 |
CALC_GW |
DO i = iMin,iMax |
|
./model/src/calc_gw.F |
484 |
CALC_GW |
gwDiss(i,j) = gwDiss(i,j) + gwAdd(i,j) |
|
./model/src/calc_gw.F |
497 |
CALC_GW |
DO i=iMin,iMax+1 |
|
./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 |
512 |
CALC_GW |
DO i=iMin,iMax |
|
./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 |
529 |
CALC_GW |
DO i=iMin,iMax |
|
./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 |
547 |
CALC_GW |
DO i=iMin,iMax |
|
./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 |
561 |
CALC_GW |
DO i=iMin,iMax |
|
./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 |
575 |
CALC_GW |
DO i=iMin,iMax |
|
./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 |
589 |
CALC_GW |
DO i=iMin,iMax |
|
./model/src/calc_gw.F |
591 |
CALC_GW |
flxAdvUp(i,j)=flx_Dn(i,j) |
|
./model/src/calc_gw.F |
615 |
CALC_GW |
DO i=iMin,iMax |
|
./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 |
627 |
CALC_GW |
DO i=iMin,iMax |
|
./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 |
653 |
CALC_GW |
DO i=iMin,iMax |
|
./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 |
684 |
CALC_GW |
DO i=iMin,iMax |
|
./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_check4file.F |
119 |
MDS_CHECK4FILE |
i = MAX(ILNBLNK(fileName),1) |
|
./pkg/mdsio/mdsio_check4file.F |
128 |
MDS_CHECK4FILE |
& filePfx(1:ip), ' , ', fileSfx(1:is), ' , ', fileName(1:i) |
|
./pkg/mdsio/mdsio_check4file.F |
55 |
MDS_CHECK4FILE |
INTEGER lp, ip, is, iL, i, ioUnit |
|
./pkg/mdsio/mdsio_check4file.F |
67 |
MDS_CHECK4FILE |
i = LEN(fileName) |
|
./pkg/mdsio/mdsio_check4file.F |
68 |
MDS_CHECK4FILE |
IF ( i .LT. lp+ip+is+8 ) THEN |
|
./pkg/mdsio/mdsio_check4file.F |
70 |
MDS_CHECK4FILE |
& 'MDS_CHECK4FILE: file name length=', i, |
|
./pkg/mdsio/mdsio_facef_read.F |
103 |
MDS_FACEF_READ_RS |
DO i=1,sNx+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 |
127 |
MDS_FACEF_READ_RS |
DO i=1,sNx+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 |
137 |
MDS_FACEF_READ_RS |
DO i=1,sNx+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 |
87 |
MDS_FACEF_READ_RS |
READ(dUnit,rec=jj+jBase) (ioBuf4(i),i=1,dNx+1) |
|
./pkg/mdsio/mdsio_facef_read.F |
92 |
MDS_FACEF_READ_RS |
DO i=1,sNx+1 |
|
./pkg/mdsio/mdsio_facef_read.F |
93 |
MDS_FACEF_READ_RS |
array(i,j,bi,bj) = ioBuf4(i+tBx) |
|
./pkg/mdsio/mdsio_facef_read.F |
98 |
MDS_FACEF_READ_RS |
READ(dUnit,rec=jj+jBase) (ioBuf8(i),i=1,dNx+1) |
|
./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 |
1482 |
MDSWRITEFIELD_2D_GL |
do i=1,sNx |
|
./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 |
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 |
693 |
MDSWRITEFIELD_3D_GL |
do i=1,sNx |
|
./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 |
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 |
102 |
MDS_PASS_R4TORL |
DO i=1-oLi,sNx+oLi |
|
./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 |
111 |
MDS_PASS_R4TORL |
DO i=1-oLi,sNx+oLi |
|
./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 |
73 |
MDS_PASS_R4TORL |
DO i=1-oLi,sNx+oLi |
|
./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 |
86 |
MDS_PASS_R4TORL |
DO i=1-oLi,sNx+oLi |
|
./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 |
102 |
MDS_PASS_R4TORS |
DO i=1-oLi,sNx+oLi |
|
./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 |
111 |
MDS_PASS_R4TORS |
DO i=1-oLi,sNx+oLi |
|
./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 |
73 |
MDS_PASS_R4TORS |
DO i=1-oLi,sNx+oLi |
|
./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 |
86 |
MDS_PASS_R4TORS |
DO i=1-oLi,sNx+oLi |
|
./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 |
102 |
MDS_PASS_R8TORL |
DO i=1-oLi,sNx+oLi |
|
./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 |
111 |
MDS_PASS_R8TORL |
DO i=1-oLi,sNx+oLi |
|
./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 |
73 |
MDS_PASS_R8TORL |
DO i=1-oLi,sNx+oLi |
|
./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 |
86 |
MDS_PASS_R8TORL |
DO i=1-oLi,sNx+oLi |
|
./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 |
49 |
CALC_IVDC |
DO i=iMin,imax |
|
./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 |
102 |
MDS_PASS_R8TORS |
DO i=1-oLi,sNx+oLi |
|
./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 |
111 |
MDS_PASS_R8TORS |
DO i=1-oLi,sNx+oLi |
|
./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 |
73 |
MDS_PASS_R8TORS |
DO i=1-oLi,sNx+oLi |
|
./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 |
86 |
MDS_PASS_R8TORS |
DO i=1-oLi,sNx+oLi |
|
./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 |
297 |
MDS_READ_FIELD |
READ(dUnit,rec=irec) ( xy_buffer_r4(i),i=1,xSize*ySize ) |
|
./pkg/mdsio/mdsio_read_field.F |
302 |
MDS_READ_FIELD |
READ(dUnit,rec=irec) ( xy_buffer_r8(i),i=1,xSize*ySize ) |
|
./pkg/mdsio/mdsio_read_field.F |
438 |
MDS_READ_FIELD |
READ(dUnit,rec=irec) (shared3dBuf_r4(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_read_field.F |
440 |
MDS_READ_FIELD |
READ(dUnit,rec=irec) (shared3dBuf_r8(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_read_field.F |
490 |
MDS_READ_FIELD |
READ(dUnit,rec=irec) (shared3dBuf_r4(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_read_field.F |
492 |
MDS_READ_FIELD |
READ(dUnit,rec=irec) (shared3dBuf_r8(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_read_meta.F |
109 |
MDS_READ_META |
DO i=1,3 |
|
./pkg/mdsio/mdsio_read_meta.F |
110 |
MDS_READ_META |
dimList(i,j) = 0 |
|
./pkg/mdsio/mdsio_read_meta.F |
113 |
MDS_READ_META |
DO i=1,nFlds |
|
./pkg/mdsio/mdsio_read_meta.F |
114 |
MDS_READ_META |
fldList(i)= ' ' |
|
./pkg/mdsio/mdsio_read_meta.F |
116 |
MDS_READ_META |
DO i=1,nTimRec |
|
./pkg/mdsio/mdsio_read_meta.F |
117 |
MDS_READ_META |
timList(i) = 0. |
|
./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 |
331 |
MDS_READ_META |
& (timList(i),i=1,nTimFil) |
|
./pkg/mdsio/mdsio_read_meta.F |
372 |
MDS_READ_META |
& (fldList(i),i=j,MIN(nFldFil,j+19)) |
|
./pkg/mdsio/mdsio_read_meta.F |
88 |
MDS_READ_META |
INTEGER i,j,ii |
|
./pkg/mdsio/mdsio_read_whalos.F |
190 |
MDS_READ_WHALOS |
DO i=1,lengthBuff |
|
./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 |
101 |
CALC_OCE_MXLAYER |
DO i=1-Olx,sNx+Olx |
|
./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 |
117 |
CALC_OCE_MXLAYER |
DO i=1-Olx,sNx+Olx |
|
./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 |
144 |
CALC_OCE_MXLAYER |
DO i=1-Olx,sNx+Olx |
|
./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 |
163 |
CALC_OCE_MXLAYER |
DO i=1-Olx,sNx+Olx |
|
./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 |
194 |
CALC_OCE_MXLAYER |
DO i=1-Olx+1,sNx+Olx-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 |
210 |
CALC_OCE_MXLAYER |
DO i=1-Olx+1,sNx+Olx-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_write_field.F |
128 |
MDS_WRITE_FIELD |
INTEGER i1,i2,i,j,k,nNz |
|
./pkg/mdsio/mdsio_write_field.F |
350 |
MDS_WRITE_FIELD |
WRITE(dUnit,rec=irec) ( xy_buffer_r4(i),i=1,xSize*ySize ) |
|
./pkg/mdsio/mdsio_write_field.F |
355 |
MDS_WRITE_FIELD |
WRITE(dUnit,rec=irec) ( xy_buffer_r8(i),i=1,xSize*ySize ) |
|
./pkg/mdsio/mdsio_write_field.F |
485 |
MDS_WRITE_FIELD |
WRITE(dUnit,rec=irec) (shared3dBuf_r4(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_write_field.F |
487 |
MDS_WRITE_FIELD |
WRITE(dUnit,rec=irec) (shared3dBuf_r8(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_write_field.F |
515 |
MDS_WRITE_FIELD |
WRITE(dUnit,rec=irec) (shared3dBuf_r4(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_write_field.F |
517 |
MDS_WRITE_FIELD |
WRITE(dUnit,rec=irec) (shared3dBuf_r8(i),i=i1,i2) |
|
./model/src/calc_phi_hyd.F |
141 |
CALC_PHI_HYD |
DO i=1-OLx,sNx+OLx |
|
./model/src/calc_phi_hyd.F |
142 |
CALC_PHI_HYD |
phiHydF(i,j) = 0. |
|
./model/src/calc_phi_hyd.F |
173 |
CALC_PHI_HYD |
DO i=iMin,iMax |
|
./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 |
187 |
CALC_PHI_HYD |
DO i=iMin,iMax |
|
./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 |
193 |
CALC_PHI_HYD |
DO i=iMin,iMax |
|
./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 |
211 |
CALC_PHI_HYD |
DO i=iMin,iMax |
|
./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 |
230 |
CALC_PHI_HYD |
DO i=iMin,iMax |
|
./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 |
241 |
CALC_PHI_HYD |
DO i=iMin,iMax |
|
./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 |
276 |
CALC_PHI_HYD |
DO i=iMin,iMax |
|
./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 |
287 |
CALC_PHI_HYD |
DO i=iMin,iMax |
|
./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 |
339 |
CALC_PHI_HYD |
DO i=iMin,iMax |
|
./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 |
347 |
CALC_PHI_HYD |
DO i=iMin,iMax |
|
./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 |
367 |
CALC_PHI_HYD |
DO i=iMin,iMax |
|
./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 |
408 |
CALC_PHI_HYD |
DO i=iMin,iMax |
|
./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 |
446 |
CALC_PHI_HYD |
DO i=iMin,iMax |
|
./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 |
454 |
CALC_PHI_HYD |
DO i=iMin,iMax |
|
./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 |
475 |
CALC_PHI_HYD |
DO i=iMin,iMax |
|
./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 |
527 |
CALC_PHI_HYD |
DO i=iMin,iMax |
|
./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 |
550 |
CALC_PHI_HYD |
DO i=iMin,iMax |
|
./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 |
594 |
CALC_PHI_HYD |
DO i=iMin,iMax |
|
./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 |
647 |
CALC_PHI_HYD |
DO i=iMin,iMax |
|
./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 |
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 |
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 |
177 |
MDS_WRITE_META |
WRITE(msgBuf,'(1P20E20.12)') (timList(i),i=1,ii) |
|
./pkg/mdsio/mdsio_write_meta.F |
192 |
MDS_WRITE_META |
& (" '",fldList(i),"'",i=1,nFlds) |
|
./pkg/mdsio/mdsio_write_meta.F |
77 |
MDS_WRITE_META |
INTEGER i,j,ii,iL |
|
./pkg/mdsio/mdsio_write_whalos.F |
179 |
MDS_WRITE_WHALOS |
DO i=1,lengthBuff |
|
./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 |
339 |
MDS_WRITELOCAL |
WRITE(dUnit,rec=irec) (shared3dBuf_r4(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_writelocal.F |
341 |
MDS_WRITELOCAL |
WRITE(dUnit,rec=irec) (shared3dBuf_r8(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_writelocal.F |
369 |
MDS_WRITELOCAL |
WRITE(dUnit,rec=irec) (shared3dBuf_r4(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_writelocal.F |
371 |
MDS_WRITELOCAL |
WRITE(dUnit,rec=irec) (shared3dBuf_r8(i),i=i1,i2) |
|
./model/src/calc_r_star.F |
104 |
CALC_R_STAR |
DO i=0,sNx+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 |
117 |
CALC_R_STAR |
DO i=1,sNx+1 |
|
./model/src/calc_r_star.F |
118 |
CALC_R_STAR |
IF ( kSurfW(i,j,bi,bj).LE.Nr ) THEN |
|
./model/src/calc_r_star.F |
119 |
CALC_R_STAR |
tmpfldW = rSurfW(i,j,bi,bj) - rLowW(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
120 |
CALC_R_STAR |
rStarFacW(i,j,bi,bj) = |
|
./model/src/calc_r_star.F |
121 |
CALC_R_STAR |
& ( 0.5 _d 0 *( etaFld(i-1,j,bi,bj)*rA(i-1,j,bi,bj) |
|
./model/src/calc_r_star.F |
122 |
CALC_R_STAR |
& +etaFld(i,j,bi,bj)*rA(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
123 |
CALC_R_STAR |
& )*recip_rAw(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
126 |
CALC_R_STAR |
rStarFacW(i,j,bi,bj) = 1. |
|
./model/src/calc_r_star.F |
131 |
CALC_R_STAR |
DO i=1,sNx |
|
./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 |
147 |
CALC_R_STAR |
DO i=1,sNx+1 |
|
./model/src/calc_r_star.F |
148 |
CALC_R_STAR |
IF ( kSurfW(i,j,bi,bj).LE.Nr ) THEN |
|
./model/src/calc_r_star.F |
149 |
CALC_R_STAR |
tmpfldW = rSurfW(i,j,bi,bj) - rLowW(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
150 |
CALC_R_STAR |
rStarFacW(i,j,bi,bj) = |
|
./model/src/calc_r_star.F |
151 |
CALC_R_STAR |
& ( 0.5 _d 0 *( etaFld(i-1,j,bi,bj) + etaFld(i,j,bi,bj) ) |
|
./model/src/calc_r_star.F |
154 |
CALC_R_STAR |
rStarFacW(i,j,bi,bj) = 1. |
|
./model/src/calc_r_star.F |
159 |
CALC_R_STAR |
DO i=1,sNx |
|
./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 |
187 |
CALC_R_STAR |
DO i=1,sNx+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 |
207 |
CALC_R_STAR |
DO i=1,sNx+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 |
277 |
CALC_R_STAR |
DO i=1,OLx |
|
./model/src/calc_r_star.F |
278 |
CALC_R_STAR |
ii = sNx+i |
|
./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 |
283 |
CALC_R_STAR |
IF (kSurfC(1-i,jj, bi,bj).GT.Nr) rStarFacC(1-i,jj, bi,bj)= 1. |
|
./model/src/calc_r_star.F |
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 |
288 |
CALC_R_STAR |
IF (kSurfW(1-i,jj, bi,bj).GT.Nr) rStarFacW(1-i,jj, bi,bj)= 1. |
|
./model/src/calc_r_star.F |
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 |
293 |
CALC_R_STAR |
IF (kSurfS(1-i,jj, bi,bj).GT.Nr) rStarFacS(1-i,jj, bi,bj)= 1. |
|
./model/src/calc_r_star.F |
302 |
CALC_R_STAR |
DO i=1-OLx,sNx+OLx |
|
./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 |
320 |
CALC_R_STAR |
DO i=1-OLx,sNx+OLx |
|
./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 |
327 |
CALC_R_STAR |
DO i=1-OLx,sNx+OLx |
|
./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 |
84 |
CALC_R_STAR |
DO i=1-OLx,sNx+OLx |
|
./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 |
95 |
CALC_R_STAR |
DO i=1-OLx,sNx+OLx |
|
./model/src/calc_r_star.F |
96 |
CALC_R_STAR |
rStarExpC(i,j,bi,bj) = rStarFacC(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
97 |
CALC_R_STAR |
rStarExpW(i,j,bi,bj) = rStarFacW(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
98 |
CALC_R_STAR |
rStarExpS(i,j,bi,bj) = rStarFacS(i,j,bi,bj) |
|
./pkg/mnc/mnc_cw_citer.F |
29 |
MNC_CW_CITER_SETG |
integer i |
|
./pkg/mnc/mnc_cw_citer.F |
38 |
MNC_CW_CITER_SETG |
DO i = 1,MNC_MAX_ID |
|
./pkg/mnc/mnc_cw_citer.F |
39 |
MNC_CW_CITER_SETG |
IF ( mnc_cw_fgci(i) .eq. igroup ) THEN |
|
./pkg/mnc/mnc_cw_citer.F |
40 |
MNC_CW_CITER_SETG |
mnc_cw_fgud(i) = 0 |
|
./pkg/mnc/mnc_cw_cvars.F |
100 |
MNC_CW_WRITE_CVAR |
rtmp(i) = xC(i,1,bi,bj) |
|
./pkg/mnc/mnc_cw_cvars.F |
126 |
MNC_CW_WRITE_CVAR |
DO i = cv_start(1),cv_count(1) |
|
./pkg/mnc/mnc_cw_cvars.F |
127 |
MNC_CW_WRITE_CVAR |
rtmp(i) = xtmin + i |
|
./pkg/mnc/mnc_cw_cvars.F |
131 |
MNC_CW_WRITE_CVAR |
DO i = cv_start(1),cv_count(1) |
|
./pkg/mnc/mnc_cw_cvars.F |
132 |
MNC_CW_WRITE_CVAR |
rtmp(i) = xtmin + i |
|
./pkg/mnc/mnc_cw_cvars.F |
135 |
MNC_CW_WRITE_CVAR |
DO i = cv_start(1),cv_count(1) |
|
./pkg/mnc/mnc_cw_cvars.F |
136 |
MNC_CW_WRITE_CVAR |
rtmp(i) = xG(i,1,bi,bj) |
|
./pkg/mnc/mnc_cw_cvars.F |
162 |
MNC_CW_WRITE_CVAR |
DO i = cv_start(1),cv_count(1) |
|
./pkg/mnc/mnc_cw_cvars.F |
163 |
MNC_CW_WRITE_CVAR |
rtmp(i) = xtmin + i |
|
./pkg/mnc/mnc_cw_cvars.F |
167 |
MNC_CW_WRITE_CVAR |
DO i = cv_start(1),cv_count(1) |
|
./pkg/mnc/mnc_cw_cvars.F |
168 |
MNC_CW_WRITE_CVAR |
rtmp(i) = xtmin - OLx + i |
|
./pkg/mnc/mnc_cw_cvars.F |
171 |
MNC_CW_WRITE_CVAR |
DO i = cv_start(1),cv_count(1) |
|
./pkg/mnc/mnc_cw_cvars.F |
172 |
MNC_CW_WRITE_CVAR |
rtmp(i) = xC(i,1,bi,bj) |
|
./pkg/mnc/mnc_cw_cvars.F |
200 |
MNC_CW_WRITE_CVAR |
DO i = cv_start(1),cv_count(1) |
|
./pkg/mnc/mnc_cw_cvars.F |
201 |
MNC_CW_WRITE_CVAR |
rtmp(i) = ytmin + i |
|
./pkg/mnc/mnc_cw_cvars.F |
205 |
MNC_CW_WRITE_CVAR |
DO i = cv_start(1),cv_count(1) |
|
./pkg/mnc/mnc_cw_cvars.F |
206 |
MNC_CW_WRITE_CVAR |
rtmp(i) = ytmin + i |
|
./pkg/mnc/mnc_cw_cvars.F |
209 |
MNC_CW_WRITE_CVAR |
DO i = cv_start(1),cv_count(1) |
|
./pkg/mnc/mnc_cw_cvars.F |
210 |
MNC_CW_WRITE_CVAR |
rtmp(i) = yC(1,i,bi,bj) |
|
./pkg/mnc/mnc_cw_cvars.F |
236 |
MNC_CW_WRITE_CVAR |
DO i = cv_start(1),cv_count(1) |
|
./pkg/mnc/mnc_cw_cvars.F |
237 |
MNC_CW_WRITE_CVAR |
rtmp(i) = ytmin + i |
|
./pkg/mnc/mnc_cw_cvars.F |
241 |
MNC_CW_WRITE_CVAR |
DO i = cv_start(1),cv_count(1) |
|
./pkg/mnc/mnc_cw_cvars.F |
242 |
MNC_CW_WRITE_CVAR |
rtmp(i) = ytmin + i |
|
./pkg/mnc/mnc_cw_cvars.F |
245 |
MNC_CW_WRITE_CVAR |
DO i = cv_start(1),cv_count(1) |
|
./pkg/mnc/mnc_cw_cvars.F |
246 |
MNC_CW_WRITE_CVAR |
rtmp(i) = yG(1,i,bi,bj) |
|
./pkg/mnc/mnc_cw_cvars.F |
272 |
MNC_CW_WRITE_CVAR |
DO i = cv_start(1),cv_count(1) |
|
./pkg/mnc/mnc_cw_cvars.F |
273 |
MNC_CW_WRITE_CVAR |
rtmp(i) = ytmin + i |
|
./pkg/mnc/mnc_cw_cvars.F |
277 |
MNC_CW_WRITE_CVAR |
DO i = cv_start(1),cv_count(1) |
|
./pkg/mnc/mnc_cw_cvars.F |
278 |
MNC_CW_WRITE_CVAR |
rtmp(i) = ytmin - OLy + i |
|
./pkg/mnc/mnc_cw_cvars.F |
281 |
MNC_CW_WRITE_CVAR |
DO i = cv_start(1),cv_count(1) |
|
./pkg/mnc/mnc_cw_cvars.F |
282 |
MNC_CW_WRITE_CVAR |
rtmp(i) = yC(1,i-OLy,bi,bj) |
|
./pkg/mnc/mnc_cw_cvars.F |
308 |
MNC_CW_WRITE_CVAR |
DO i = cv_start(1),cv_count(1) |
|
./pkg/mnc/mnc_cw_cvars.F |
309 |
MNC_CW_WRITE_CVAR |
rtmp(i) = rC(i) |
|
./pkg/mnc/mnc_cw_cvars.F |
327 |
MNC_CW_WRITE_CVAR |
DO i = cv_start(1),cv_count(1) |
|
./pkg/mnc/mnc_cw_cvars.F |
328 |
MNC_CW_WRITE_CVAR |
rtmp(i) = rF(i) |
|
./pkg/mnc/mnc_cw_cvars.F |
346 |
MNC_CW_WRITE_CVAR |
DO i = cv_start(1),cv_count(1) |
|
./pkg/mnc/mnc_cw_cvars.F |
347 |
MNC_CW_WRITE_CVAR |
rtmp(i) = rF(i + 1) |
|
./pkg/mnc/mnc_cw_cvars.F |
366 |
MNC_CW_WRITE_CVAR |
DO i = cv_start(1),cv_count(1) |
|
./pkg/mnc/mnc_cw_cvars.F |
367 |
MNC_CW_WRITE_CVAR |
rtmp(i) = rF(i) |
|
./pkg/mnc/mnc_cw_cvars.F |
386 |
MNC_CW_WRITE_CVAR |
DO i = cv_start(1),cv_count(1) |
|
./pkg/mnc/mnc_cw_cvars.F |
387 |
MNC_CW_WRITE_CVAR |
rtmp(i) = rF(i + 1) |
|
./pkg/mnc/mnc_cw_cvars.F |
418 |
MNC_CW_WRITE_CVAR |
i = ILNBLNK( fname ) |
|
./pkg/mnc/mnc_cw_cvars.F |
420 |
MNC_CW_WRITE_CVAR |
& cvname(nnf:nnl), ''' in file ''', fname(1:i), '''' |
|
./pkg/mnc/mnc_cw_cvars.F |
428 |
MNC_CW_WRITE_CVAR |
& cvname(nnf:nnl), ''' in file ''', fname(1:i), '''' |
|
./pkg/mnc/mnc_cw_cvars.F |
436 |
MNC_CW_WRITE_CVAR |
& cvname(nnf:nnl), ''' in file ''', fname(1:i), '''' |
|
./pkg/mnc/mnc_cw_cvars.F |
444 |
MNC_CW_WRITE_CVAR |
& cvname(nnf:nnl), ''' in file ''', fname(1:i), '''' |
|
./pkg/mnc/mnc_cw_cvars.F |
457 |
MNC_CW_WRITE_CVAR |
& cvname(nnf:nnl), ''' in file ''', fname(1:i), '''' |
|
./pkg/mnc/mnc_cw_cvars.F |
46 |
MNC_CW_WRITE_CVAR |
integer i, vid, nnf, nnl, doit, err |
|
./pkg/mnc/mnc_cw_cvars.F |
56 |
MNC_CW_WRITE_CVAR |
DO i=1,MAX_LEN_NAME |
|
./pkg/mnc/mnc_cw_cvars.F |
57 |
MNC_CW_WRITE_CVAR |
units(i:i) = ' ' |
|
./pkg/mnc/mnc_cw_cvars.F |
58 |
MNC_CW_WRITE_CVAR |
long_name(i:i) = ' ' |
|
./pkg/mnc/mnc_cw_cvars.F |
59 |
MNC_CW_WRITE_CVAR |
positive(i:i) = ' ' |
|
./pkg/mnc/mnc_cw_cvars.F |
90 |
MNC_CW_WRITE_CVAR |
DO i = cv_start(1),cv_count(1) |
|
./pkg/mnc/mnc_cw_cvars.F |
91 |
MNC_CW_WRITE_CVAR |
rtmp(i) = xtmin + i |
|
./pkg/mnc/mnc_cw_cvars.F |
95 |
MNC_CW_WRITE_CVAR |
DO i = cv_start(1),cv_count(1) |
|
./pkg/mnc/mnc_cw_cvars.F |
96 |
MNC_CW_WRITE_CVAR |
rtmp(i) = xtmin + i |
|
./pkg/mnc/mnc_cw_cvars.F |
99 |
MNC_CW_WRITE_CVAR |
DO i = cv_start(1),cv_count(1) |
|
./pkg/mnc/mnc_cw_init.F |
119 |
MNC_CW_INIT |
DO i = 1,CW_MAX_LOC |
|
./pkg/mnc/mnc_cw_init.F |
120 |
MNC_CW_INIT |
dn(i)(1:MNC_MAX_CHAR)=mnc_blank_name(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_cw_init.F |
121 |
MNC_CW_INIT |
dim(i) = 0 |
|
./pkg/mnc/mnc_cw_init.F |
122 |
MNC_CW_INIT |
ib(i) = 0 |
|
./pkg/mnc/mnc_cw_init.F |
123 |
MNC_CW_INIT |
ie(i) = 0 |
|
./pkg/mnc/mnc_cw_init.F |
236 |
MNC_CW_INIT |
& ' : ', (dim(i), i=1,5), |
|
./pkg/mnc/mnc_cw_init.F |
237 |
MNC_CW_INIT |
& ' | ', (ib(i), i=1,5), |
|
./pkg/mnc/mnc_cw_init.F |
238 |
MNC_CW_INIT |
& ' | ', (ie(i), i=1,5), |
|
./pkg/mnc/mnc_cw_init.F |
239 |
MNC_CW_INIT |
& ' | ', (dn(i)(1:4), i=1,5) |
|
./pkg/mnc/mnc_cw_init.F |
53 |
MNC_CW_INIT |
integer i, ihorz,ihsub,ivert,itime,ihalo, is,ih, n,ntot |
|
./pkg/mnc/mnc_cwrapper.F |
155 |
MNC_CW_DUMP |
integer i,j, ntot |
|
./pkg/mnc/mnc_cwrapper.F |
162 |
MNC_CW_DUMP |
DO i = 1,NBLNK |
|
./pkg/mnc/mnc_cwrapper.F |
163 |
MNC_CW_DUMP |
blnk(i:i) = ' ' |
|
./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 |
209 |
MNC_CW_DUMP |
DO i = 1,mnc_cw_vnat(1,j) |
|
./pkg/mnc/mnc_cwrapper.F |
212 |
MNC_CW_DUMP |
& 'MNC: ',' text_at:',i, |
|
./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 |
221 |
MNC_CW_DUMP |
& 'MNC: ',' int__at:',i, |
|
./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 |
230 |
MNC_CW_DUMP |
& 'MNC: ',' dbl__at:',i, |
|
./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_cwrapper.F |
321 |
MNC_CW_ADD_VNAME |
integer i, nvf,nvl, ngf,ngl, indv,indg |
|
./pkg/mnc/mnc_cwrapper.F |
355 |
MNC_CW_ADD_VNAME |
DO i = 1,3 |
|
./pkg/mnc/mnc_cwrapper.F |
356 |
MNC_CW_ADD_VNAME |
mnc_cw_vnat(i,indv) = 0 |
|
./pkg/mnc/mnc_cwrapper.F |
391 |
MNC_CW_DEL_VNAME |
integer i, indv |
|
./pkg/mnc/mnc_cwrapper.F |
401 |
MNC_CW_DEL_VNAME |
DO i = 1,3 |
|
./pkg/mnc/mnc_cwrapper.F |
402 |
MNC_CW_DEL_VNAME |
mnc_cw_vnat(i,indv) = 0 |
|
./pkg/mnc/mnc_cwrapper.F |
52 |
MNC_CW_ADD_GNAME |
integer i, nnf,nnl, indg |
|
./pkg/mnc/mnc_cwrapper.F |
76 |
MNC_CW_ADD_GNAME |
DO i = 1,ndim |
|
./pkg/mnc/mnc_cwrapper.F |
77 |
MNC_CW_ADD_GNAME |
mnc_cw_dn(i,indg)(1:MNC_MAX_CHAR)=mnc_blank_name(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_cwrapper.F |
78 |
MNC_CW_ADD_GNAME |
nnf = IFNBLNK(dnames(i)) |
|
./pkg/mnc/mnc_cwrapper.F |
79 |
MNC_CW_ADD_GNAME |
nnl = ILNBLNK(dnames(i)) |
|
./pkg/mnc/mnc_cwrapper.F |
80 |
MNC_CW_ADD_GNAME |
mnc_cw_dn(i,indg)(1:(nnl-nnf+1)) = dnames(i)(nnf:nnl) |
|
./pkg/mnc/mnc_cwrapper.F |
81 |
MNC_CW_ADD_GNAME |
mnc_cw_dims(i,indg) = dlens(i) |
|
./pkg/mnc/mnc_cwrapper.F |
82 |
MNC_CW_ADD_GNAME |
mnc_cw_is(i,indg) = inds_beg(i) |
|
./pkg/mnc/mnc_cwrapper.F |
83 |
MNC_CW_ADD_GNAME |
mnc_cw_ie(i,indg) = inds_end(i) |
|
./pkg/mnc/mnc_dim.F |
111 |
MNC_DIM_INIT_ALL_CV |
DO i = 1,n |
|
./pkg/mnc/mnc_dim.F |
112 |
MNC_DIM_INIT_ALL_CV |
j = mnc_f_alld(indf,i+1) |
|
./pkg/mnc/mnc_dim.F |
194 |
MNC_DIM_UNLIM_SIZE |
integer i,j, nf, indf, fid, unlimid, err |
|
./pkg/mnc/mnc_dim.F |
214 |
MNC_DIM_UNLIM_SIZE |
DO i = 1,mnc_f_alld(indf,1) |
|
./pkg/mnc/mnc_dim.F |
215 |
MNC_DIM_UNLIM_SIZE |
j = mnc_f_alld(indf,i+1) |
|
./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 |
110 |
CALC_SURF_DR |
IF ( i.GE.1.AND.i.LE.sNx .AND. |
|
./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 |
146 |
CALC_SURF_DR |
DO i=1,sNx+1 |
|
./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 |
167 |
CALC_SURF_DR |
DO i=1,sNx |
|
./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 |
71 |
CALC_SURF_DR |
DO i=1-OLx,sNx+OLx |
|
./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 |
82 |
CALC_SURF_DR |
DO i=0,sNx+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 |
46 |
MNC_DUMP_ALL |
DO i = 1,n_id |
|
./pkg/mnc/mnc_dump.F |
47 |
MNC_DUMP_ALL |
write(*,'(i3,a,a40)') i,':', mnc_f_names(i)(1:40) |
|
./pkg/mnc/mnc_dump.F |
50 |
MNC_DUMP_ALL |
DO i = 1,n_id |
|
./pkg/mnc/mnc_dump.F |
51 |
MNC_DUMP_ALL |
write(*,'(i3,a,a40)') i,':', mnc_g_names(i)(1:40) |
|
./pkg/mnc/mnc_dump.F |
54 |
MNC_DUMP_ALL |
DO i = 1,n_id |
|
./pkg/mnc/mnc_dump.F |
55 |
MNC_DUMP_ALL |
write(*,'(i3,a,a40)') i,':', mnc_v_names(i)(1:40) |
|
./pkg/mnc/mnc_dump.F |
58 |
MNC_DUMP_ALL |
DO i = 1,n_id |
|
./pkg/mnc/mnc_dump.F |
59 |
MNC_DUMP_ALL |
write(*,'(i3,a,a40)') i,':', mnc_d_names(i)(1:40) |
|
./pkg/mnc/mnc_dump.F |
63 |
MNC_DUMP_ALL |
DO i = 1,n_id |
|
./pkg/mnc/mnc_dump.F |
64 |
MNC_DUMP_ALL |
write(*,*) i,': ',mnc_d_ids(i), mnc_d_size(i) |
|
./pkg/mnc/mnc_dump.F |
68 |
MNC_DUMP_ALL |
DO i = 1,n_id |
|
./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 |
72 |
MNC_DUMP_ALL |
DO i = 1,n_id |
|
./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 |
76 |
MNC_DUMP_ALL |
DO i = 1,n_id |
|
./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 |
80 |
MNC_DUMP_ALL |
DO i = 1,n_id |
|
./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 |
364 |
MNC_FILE_CLOSE |
DO i = 1,n |
|
./pkg/mnc/mnc_file.F |
365 |
MNC_FILE_CLOSE |
j = 2 + 3*(i - 1) |
|
./pkg/mnc/mnc_file.F |
369 |
MNC_FILE_CLOSE |
DO i = 1,MNC_MAX_INFO |
|
./pkg/mnc/mnc_file.F |
370 |
MNC_FILE_CLOSE |
mnc_fv_ids(indf,i) = 0 |
|
./pkg/mnc/mnc_file.F |
376 |
MNC_FILE_CLOSE |
DO i = 1,n |
|
./pkg/mnc/mnc_file.F |
377 |
MNC_FILE_CLOSE |
j = mnc_f_alld(indf,i+1) |
|
./pkg/mnc/mnc_file.F |
381 |
MNC_FILE_CLOSE |
mnc_f_alld(indf,i+1) = 0 |
|
./pkg/mnc/mnc_file.F |
386 |
MNC_FILE_CLOSE |
DO i = 1,n |
|
./pkg/mnc/mnc_file.F |
387 |
MNC_FILE_CLOSE |
j = 4 + 3*(i - 1) |
|
./pkg/mnc/mnc_file.F |
391 |
MNC_FILE_CLOSE |
DO i = 1,MNC_MAX_INFO |
|
./pkg/mnc/mnc_file.F |
392 |
MNC_FILE_CLOSE |
mnc_fd_ind(indf,i) = 0 |
|
./pkg/mnc/mnc_file.F |
393 |
MNC_FILE_CLOSE |
mnc_f_info(indf,i) = 0 |
|
./pkg/mnc/mnc_file.F |
397 |
MNC_FILE_CLOSE |
DO i = 1,MNC_MAX_PATH |
|
./pkg/mnc/mnc_file.F |
398 |
MNC_FILE_CLOSE |
mnc_f_names(indf)(i:i) = ' ' |
|
./pkg/mnc/mnc_file.F |
428 |
MNC_FILE_CLOSE_ALL_MATCHING |
integer i,n |
|
./pkg/mnc/mnc_file.F |
434 |
MNC_FILE_CLOSE_ALL_MATCHING |
DO i = 1,MNC_MAX_FID |
|
./pkg/mnc/mnc_file.F |
437 |
MNC_FILE_CLOSE_ALL_MATCHING |
IF (fname(1:n) .EQ. mnc_f_names(i)(1:n)) THEN |
|
./pkg/mnc/mnc_file.F |
438 |
MNC_FILE_CLOSE_ALL_MATCHING |
CALL MNC_FILE_CLOSE(mnc_f_names(i), myThid) |
|
./pkg/mnc/mnc_file.F |
468 |
MNC_FILE_CLOSE_ALL |
integer i |
|
./pkg/mnc/mnc_file.F |
471 |
MNC_FILE_CLOSE_ALL |
DO i = 1,MNC_MAX_PATH |
|
./pkg/mnc/mnc_file.F |
472 |
MNC_FILE_CLOSE_ALL |
bpath(i:i) = ' ' |
|
./pkg/mnc/mnc_file.F |
475 |
MNC_FILE_CLOSE_ALL |
DO i = 1,MNC_MAX_FID |
|
./pkg/mnc/mnc_file.F |
478 |
MNC_FILE_CLOSE_ALL |
IF (mnc_f_names(i)(1:MNC_MAX_PATH) |
|
./pkg/mnc/mnc_file.F |
480 |
MNC_FILE_CLOSE_ALL |
CALL MNC_FILE_CLOSE(mnc_f_names(i), myThid) |
|
./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 |
703 |
MNC_FILE_TRY_READ |
DO i = 1,mnc_f_alld(indf,1) |
|
./pkg/mnc/mnc_file.F |
704 |
MNC_FILE_TRY_READ |
j = mnc_f_alld(indf,i+1) |
|
./pkg/mnc/mnc_file.F |
727 |
MNC_FILE_TRY_READ |
DO i = 1,ndv |
|
./pkg/mnc/mnc_file.F |
728 |
MNC_FILE_TRY_READ |
did = idlist(i) |
|
./pkg/mnc/mnc_file.F |
729 |
MNC_FILE_TRY_READ |
dnames(i)(1:MNC_MAX_CHAR) = mnc_d_names(did)(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_file.F |
741 |
MNC_FILE_TRY_READ |
DO i = 1,mnc_f_info(indf,3) |
|
./pkg/mnc/mnc_file.F |
742 |
MNC_FILE_TRY_READ |
j = 4 + 3*(i-1) |
|
./pkg/mnc/mnc_grid.F |
106 |
MNC_GRID_INIT_ALL |
i = ds_last + ndim |
|
./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 |
176 |
MNC_GRID_INIT_ALL |
DO i = 1,ndim |
|
./pkg/mnc/mnc_grid.F |
178 |
MNC_GRID_INIT_ALL |
j = ds_last + i |
|
./pkg/mnc/mnc_grid.F |
179 |
MNC_GRID_INIT_ALL |
n = ILNBLNK(dnames(i)) |
|
./pkg/mnc/mnc_grid.F |
189 |
MNC_GRID_INIT_ALL |
& .AND. (dnames(i)(1:n) .EQ. mnc_d_names(jj)(1:kk))) THEN |
|
./pkg/mnc/mnc_grid.F |
197 |
MNC_GRID_INIT_ALL |
& dnames(i)(1:n), ''' does not exist for file ''', |
|
./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 |
250 |
MNC_GRID_GET_DIMIND |
DO i = 1,ngrid |
|
./pkg/mnc/mnc_grid.F |
251 |
MNC_GRID_GET_DIMIND |
j = 4 + 3*(i - 1) |
|
./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_grid.F |
82 |
MNC_GRID_INIT_ALL |
DO i =1,MNC_MAX_PATH |
|
./pkg/mnc/mnc_grid.F |
83 |
MNC_GRID_INIT_ALL |
file_name(i:i) = ' ' |
|
./pkg/mnc/mnc_init.F |
102 |
MNC_INIT |
DO i = 1,2 |
|
./pkg/mnc/mnc_init.F |
103 |
MNC_INIT |
mnc_def_imv(i) = UNSET_I |
|
./pkg/mnc/mnc_init.F |
104 |
MNC_INIT |
mnc_def_rmv(i) = UNSET_FLOAT4 |
|
./pkg/mnc/mnc_init.F |
105 |
MNC_INIT |
mnc_def_dmv(i) = UNSET_FLOAT8 |
|
./pkg/mnc/mnc_init.F |
30 |
MNC_INIT |
integer i,j, g |
|
./pkg/mnc/mnc_init.F |
35 |
MNC_INIT |
DO i = 1,MNC_MAX_CHAR |
|
./pkg/mnc/mnc_init.F |
36 |
MNC_INIT |
blank(i:i) = ' ' |
|
./pkg/mnc/mnc_init.F |
38 |
MNC_INIT |
DO i = 1,MNC_MAX_PATH |
|
./pkg/mnc/mnc_init.F |
39 |
MNC_INIT |
bpath(i:i) = ' ' |
|
./pkg/mnc/mnc_init.F |
43 |
MNC_INIT |
DO i = 1,MNC_MAX_FID |
|
./pkg/mnc/mnc_init.F |
44 |
MNC_INIT |
mnc_f_names(i)(1:MNC_MAX_PATH) = bpath(1:MNC_MAX_PATH) |
|
./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_init.F |
52 |
MNC_INIT |
DO i = 1,MNC_MAX_ID |
|
./pkg/mnc/mnc_init.F |
53 |
MNC_INIT |
mnc_d_size(i) = 0 |
|
./pkg/mnc/mnc_init.F |
54 |
MNC_INIT |
mnc_d_ids(i) = 0 |
|
./pkg/mnc/mnc_init.F |
55 |
MNC_INIT |
mnc_g_names(i)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_init.F |
56 |
MNC_INIT |
mnc_v_names(i)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_init.F |
57 |
MNC_INIT |
mnc_d_names(i)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_init.F |
72 |
MNC_INIT |
DO i = 1,MNC_CW_MAX_I |
|
./pkg/mnc/mnc_init.F |
73 |
MNC_INIT |
mnc_cw_dn(i,g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_init.F |
74 |
MNC_INIT |
mnc_cw_vtnm(i,g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_init.F |
75 |
MNC_INIT |
mnc_cw_vinm(i,g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_init.F |
76 |
MNC_INIT |
mnc_cw_vdnm(i,g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_init.F |
77 |
MNC_INIT |
mnc_cw_vtat(i,g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_init.F |
78 |
MNC_INIT |
mnc_cw_dims(i,g) = 0 |
|
./pkg/mnc/mnc_init.F |
79 |
MNC_INIT |
mnc_cw_is(i,g) = 0 |
|
./pkg/mnc/mnc_init.F |
80 |
MNC_INIT |
mnc_cw_ie(i,g) = 0 |
|
./pkg/mnc/mnc_init.F |
81 |
MNC_INIT |
mnc_cw_viat(i,g) = 0 |
|
./pkg/mnc/mnc_init.F |
82 |
MNC_INIT |
mnc_cw_vdat(i,g) = 0.0D0 |
|
./pkg/mnc/mnc_init.F |
84 |
MNC_INIT |
DO i = 1,3 |
|
./pkg/mnc/mnc_init.F |
85 |
MNC_INIT |
mnc_cw_vnat(i,g) = 0 |
|
./pkg/mnc/mnc_init.F |
87 |
MNC_INIT |
DO i = 1,2 |
|
./pkg/mnc/mnc_init.F |
88 |
MNC_INIT |
mnc_cw_vbij(i,g) = 0 |
|
./pkg/mnc/mnc_init.F |
89 |
MNC_INIT |
mnc_cw_vmvi(i,g) = 0 |
|
./pkg/mnc/mnc_init.F |
90 |
MNC_INIT |
mnc_cw_vmvr(i,g) = 0.0 |
|
./pkg/mnc/mnc_init.F |
91 |
MNC_INIT |
mnc_cw_vmvd(i,g) = 0.0D0 |
|
./pkg/mnc/mnc_init.F |
96 |
MNC_INIT |
DO i = 1,MNC_MAX_INFO |
|
./pkg/mnc/mnc_init.F |
97 |
MNC_INIT |
mnc_cw_cit(1,i) = 0 |
|
./pkg/mnc/mnc_init.F |
98 |
MNC_INIT |
mnc_cw_cit(2,i) = 0 |
|
./pkg/mnc/mnc_init.F |
99 |
MNC_INIT |
mnc_cw_cit(3,i) = -1 |
|
./pkg/mnc/mnc_readparms.F |
120 |
MNC_READPARMS |
DO i=1,MAX_LEN_MBUF |
|
./pkg/mnc/mnc_readparms.F |
121 |
MNC_READPARMS |
data_file(i:i) = ' ' |
|
./pkg/mnc/mnc_readparms.F |
173 |
MNC_READPARMS |
DO i = 1,MNC_MAX_CHAR |
|
./pkg/mnc/mnc_readparms.F |
174 |
MNC_READPARMS |
mnc_out_path(i:i) = ' ' |
|
./pkg/mnc/mnc_readparms.F |
229 |
MNC_SET_OUTDIR |
integer i,j,k, ntot, npathd, idate |
|
./pkg/mnc/mnc_readparms.F |
248 |
MNC_SET_OUTDIR |
DO i = 1,MNC_MAX_PATH |
|
./pkg/mnc/mnc_readparms.F |
249 |
MNC_SET_OUTDIR |
pathd(i:i) = ' ' |
|
./pkg/mnc/mnc_readparms.F |
255 |
MNC_SET_OUTDIR |
DO i = 1,k |
|
./pkg/mnc/mnc_readparms.F |
257 |
MNC_SET_OUTDIR |
IF (pathd(i:i) .EQ. cenc(j:j)) THEN |
|
./pkg/mnc/mnc_readparms.F |
268 |
MNC_SET_OUTDIR |
DO i = 1,MNC_MAX_PATH |
|
./pkg/mnc/mnc_readparms.F |
269 |
MNC_SET_OUTDIR |
mnc_out_path(i:i) = ' ' |
|
./pkg/mnc/mnc_readparms.F |
275 |
MNC_SET_OUTDIR |
DO i = 1,ntot |
|
./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_readparms.F |
40 |
MNC_READPARMS |
INTEGER i, nl, ku |
|
./pkg/mnc/mnc_readparms.F |
88 |
MNC_READPARMS |
DO i = 1,MAX_LEN_FNAM |
|
./pkg/mnc/mnc_readparms.F |
89 |
MNC_READPARMS |
mnc_outdir_str(i:i) = ' ' |
|
./pkg/mnc/mnc_readparms.F |
90 |
MNC_READPARMS |
mnc_indir_str(i:i) = ' ' |
|
./pkg/mnc/mnc_utils.F |
112 |
MNC_GET_IND |
DO i=1,NT |
|
./pkg/mnc/mnc_utils.F |
113 |
MNC_GET_IND |
nf = ILNBLNK( name_list(i) ) |
|
./pkg/mnc/mnc_utils.F |
115 |
MNC_GET_IND |
IF ( name_list(i)(1:n) .EQ. aname(1:n) ) THEN |
|
./pkg/mnc/mnc_utils.F |
116 |
MNC_GET_IND |
ind = i |
|
./pkg/mnc/mnc_utils.F |
152 |
MNC_GET_NEXT_EMPTY_IND |
integer n, i, ind |
|
./pkg/mnc/mnc_utils.F |
160 |
MNC_GET_NEXT_EMPTY_IND |
DO i=1,NT |
|
./pkg/mnc/mnc_utils.F |
161 |
MNC_GET_NEXT_EMPTY_IND |
n = ILNBLNK( name_list(i) ) |
|
./pkg/mnc/mnc_utils.F |
163 |
MNC_GET_NEXT_EMPTY_IND |
ind = i |
|
./pkg/mnc/mnc_utils.F |
211 |
MNC_GET_FVINDS |
integer i,j,k, n, lenv |
|
./pkg/mnc/mnc_utils.F |
228 |
MNC_GET_FVINDS |
DO i = 1,mnc_fv_ids(indf,1) |
|
./pkg/mnc/mnc_utils.F |
229 |
MNC_GET_FVINDS |
k = 2 + 3*(i - 1) |
|
./pkg/mnc/mnc_utils.F |
348 |
MNC_PSNCM |
INTEGER i, lens, nmin |
|
./pkg/mnc/mnc_utils.F |
352 |
MNC_PSNCM |
DO i = 1,lens |
|
./pkg/mnc/mnc_utils.F |
353 |
MNC_PSNCM |
ostring(i:i) = ' ' |
|
./pkg/mnc/mnc_utils.F |
356 |
MNC_PSNCM |
DO i = 1,25 |
|
./pkg/mnc/mnc_utils.F |
357 |
MNC_PSNCM |
IF (tmp(i:i) .NE. '0') THEN |
|
./pkg/mnc/mnc_utils.F |
358 |
MNC_PSNCM |
nmin = 26 - i |
|
./pkg/mnc/mnc_utils.F |
40 |
MNC_HANDLE_ERR |
integer i,lenm |
|
./pkg/mnc/mnc_utils.F |
46 |
MNC_HANDLE_ERR |
DO i = 1,MAX_LEN_MBUF |
|
./pkg/mnc/mnc_utils.F |
47 |
MNC_HANDLE_ERR |
msgbuf(i:i) = ' ' |
|
./pkg/mnc/mnc_utils.F |
95 |
MNC_GET_IND |
integer n, i, nf, ind, lenm |
|
./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 |
185 |
MNC_VAR_INIT_ANY |
DO i = 1,ngrid |
|
./pkg/mnc/mnc_var.F |
186 |
MNC_VAR_INIT_ANY |
j = 4 + (i-1)*3 |
|
./pkg/mnc/mnc_var.F |
210 |
MNC_VAR_INIT_ANY |
DO i = 1,nvar |
|
./pkg/mnc/mnc_var.F |
211 |
MNC_VAR_INIT_ANY |
j = 2 + 3*(i-1) |
|
./pkg/mnc/mnc_var.F |
253 |
MNC_VAR_INIT_ANY |
i = 2 + nv*3 |
|
./pkg/mnc/mnc_var.F |
254 |
MNC_VAR_INIT_ANY |
mnc_fv_ids(indf,i) = indv |
|
./pkg/mnc/mnc_var.F |
255 |
MNC_VAR_INIT_ANY |
mnc_fv_ids(indf,i+1) = vid |
|
./pkg/mnc/mnc_var.F |
256 |
MNC_VAR_INIT_ANY |
mnc_fv_ids(indf,i+2) = ind_g_finfo |
|
./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 |
705 |
MNC_VAR_WRITE_ANY |
DO i = ds,de |
|
./pkg/mnc/mnc_var.F |
708 |
MNC_VAR_WRITE_ANY |
vcount(k) = mnc_d_size( mnc_fd_ind(indf,i) ) |
|
./model/src/calc_viscosity.F |
115 |
CALC_VISCOSITY |
DO i = 1-OLx, sNx+OLx |
|
./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 |
133 |
CALC_VISCOSITY |
DO i = 2-OLx, sNx+OLx |
|
./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 |
143 |
CALC_VISCOSITY |
DO i = 2-OLx, sNx+OLx |
|
./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 |
169 |
CALC_VISCOSITY |
DO i = 2-OLx, sNx+OLx |
|
./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 |
180 |
CALC_VISCOSITY |
DO i = 2-OLx, sNx+OLx |
|
./model/src/calc_viscosity.F |
181 |
CALC_VISCOSITY |
tmpFac(i,j) = tmpFac(i,j)*tmpFac(i,j) |
|
./model/src/calc_viscosity.F |
186 |
CALC_VISCOSITY |
DO i = 2-OLx, sNx+OLx |
|
./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 |
192 |
CALC_VISCOSITY |
DO i = 2-OLx, sNx+OLx |
|
./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 |
201 |
CALC_VISCOSITY |
DO i = 2-OLx, sNx+OLx |
|
./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 |
212 |
CALC_VISCOSITY |
DO i = 2-OLx, sNx+OLx |
|
./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 |
223 |
CALC_VISCOSITY |
DO i = 2-OLx, sNx+OLx |
|
./model/src/calc_viscosity.F |
224 |
CALC_VISCOSITY |
tmpFac(i,j) = tmpFac(i,j)*tmpFac(i,j) |
|
./model/src/calc_viscosity.F |
229 |
CALC_VISCOSITY |
DO i = 2-OLx, sNx+OLx |
|
./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 |
235 |
CALC_VISCOSITY |
DO i = 2-OLx, sNx+OLx |
|
./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 |
244 |
CALC_VISCOSITY |
DO i = 2-OLx, sNx+OLx |
|
./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 |
259 |
CALC_VISCOSITY |
DO i = 2-OLx, sNx+OLx |
|
./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 |
271 |
CALC_VISCOSITY |
DO i = 2-OLx, sNx+OLx |
|
./model/src/calc_viscosity.F |
272 |
CALC_VISCOSITY |
tmpFac(i,j) = tmpFac(i,j)*tmpFac(i,j) |
|
./model/src/calc_viscosity.F |
277 |
CALC_VISCOSITY |
DO i = 2-OLx, sNx+OLx |
|
./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 |
283 |
CALC_VISCOSITY |
DO i = 2-OLx, sNx+OLx |
|
./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 |
292 |
CALC_VISCOSITY |
DO i = 2-OLx, sNx+OLx |
|
./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 |
303 |
CALC_VISCOSITY |
DO i = 2-OLx, sNx+OLx |
|
./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 |
315 |
CALC_VISCOSITY |
DO i = 2-OLx, sNx+OLx |
|
./model/src/calc_viscosity.F |
316 |
CALC_VISCOSITY |
tmpFac(i,j) = tmpFac(i,j)*tmpFac(i,j) |
|
./model/src/calc_viscosity.F |
321 |
CALC_VISCOSITY |
DO i = 2-OLx, sNx+OLx |
|
./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 |
327 |
CALC_VISCOSITY |
DO i = 2-OLx, sNx+OLx |
|
./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 |
336 |
CALC_VISCOSITY |
DO i = 2-OLx, sNx+OLx |
|
./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 |
60 |
CALC_VISCOSITY |
DO i = 1-OLx, sNx+OLx |
|
./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 |
101 |
MOM_CALC_3D_STRAIN |
DO i=1-OLx,sNx+OLx |
|
./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 |
109 |
MOM_CALC_3D_STRAIN |
DO i=2-OLx,sNx+OLx |
|
./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 |
122 |
MOM_CALC_3D_STRAIN |
DO i=1-OLx,sNx+OLx |
|
./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 |
130 |
MOM_CALC_3D_STRAIN |
DO i=2-OLx,sNx+OLx |
|
./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 |
140 |
MOM_CALC_3D_STRAIN |
DO i=1-OLx,sNx+OLx |
|
./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 |
152 |
MOM_CALC_3D_STRAIN |
DO i=2-OLx,sNx+OLx |
|
./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 |
163 |
MOM_CALC_3D_STRAIN |
DO i=1-OLx,sNx+OLx |
|
./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 |
176 |
MOM_CALC_3D_STRAIN |
DO i=2-OLx,sNx+OLx |
|
./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 |
183 |
MOM_CALC_3D_STRAIN |
DO i=2-OLx,sNx+OLx |
|
./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 |
189 |
MOM_CALC_3D_STRAIN |
DO i=1-OLx,sNx+OLx |
|
./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 |
204 |
MOM_CALC_3D_STRAIN |
DO i=1-OLx,sNx+OLx |
|
./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 |
214 |
MOM_CALC_3D_STRAIN |
DO i=2-OLx,sNx+OLx |
|
./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 |
224 |
MOM_CALC_3D_STRAIN |
DO i=1-OLx,sNx+OLx |
|
./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 |
64 |
MOM_CALC_3D_STRAIN |
i = sNx+OLx |
|
./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 |
69 |
MOM_CALC_3D_STRAIN |
DO i=1-OLx,sNx+OLx |
|
./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 |
72 |
MOM_CALC_3D_STRAIN |
i = 1-OLx |
|
./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 |
78 |
MOM_CALC_3D_STRAIN |
DO i=1-OLx,sNx+OLx |
|
./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 |
85 |
MOM_CALC_3D_STRAIN |
DO i=1-OLx,sNx+OLx-1 |
|
./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 |
93 |
MOM_CALC_3D_STRAIN |
DO i=1-OLx,sNx+OLx |
|
./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 |
45 |
MOM_CALC_ABSVORT3 |
DO i=1-Olx,sNx+Olx |
|
./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 |
35 |
MOM_CALC_HDIV |
DO i=1-OLx,sNx+OLx-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 |
52 |
MOM_CALC_HDIV |
DO i=1-OLx,sNx+OLx-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 |
101 |
MOM_CALC_HFACZ |
DO i=1-OLx,sNx+OLx |
|
./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 |
114 |
MOM_CALC_HFACZ |
DO i=2-OLx,sNx+OLx |
|
./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 |
138 |
MOM_CALC_HFACZ |
DO i=2-OLx,sNx+OLx |
|
./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 |
153 |
MOM_CALC_HFACZ |
DO i=2-OLx,sNx+OLx |
|
./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 |
177 |
MOM_CALC_HFACZ |
DO i=1-OLx,sNx+OLx |
|
./pkg/mom_common/mom_calc_hfacz.F |
178 |
MOM_CALC_HFACZ |
hFacZ(i,1-OLy)=0. |
|
./pkg/mom_common/mom_calc_hfacz.F |
188 |
MOM_CALC_HFACZ |
DO i=2-OLx,sNx+OLx |
|
./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 |
205 |
MOM_CALC_HFACZ |
DO i=2-OLx,sNx+OLx |
|
./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 |
224 |
MOM_CALC_HFACZ |
DO i=2-OLx,sNx+OLx |
|
./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 |
258 |
MOM_CALC_HFACZ |
i=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 |
282 |
MOM_CALC_HFACZ |
i=sNx+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,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
299 |
MOM_CALC_HFACZ |
& +_hFacW(i, j ,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hfacz.F |
300 |
MOM_CALC_HFACZ |
& + _hFacS(i-1,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
303 |
MOM_CALC_HFACZ |
& ( _hFacW(i, j ,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
304 |
MOM_CALC_HFACZ |
& +_hFacS(i-1,j,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hfacz.F |
305 |
MOM_CALC_HFACZ |
& + _hFacW(i,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
307 |
MOM_CALC_HFACZ |
hFacZ(i,j) = hFacZOpen / 3. _d 0 |
|
./pkg/mom_common/mom_calc_hfacz.F |
312 |
MOM_CALC_HFACZ |
i=1 |
|
./pkg/mom_common/mom_calc_hfacz.F |
316 |
MOM_CALC_HFACZ |
hFacZOpen=MIN(_hFacW(i,j,k,bi,bj), |
|
./pkg/mom_common/mom_calc_hfacz.F |
317 |
MOM_CALC_HFACZ |
& _hFacW(i,j-1,k,bi,bj)) |
|
./pkg/mom_common/mom_calc_hfacz.F |
318 |
MOM_CALC_HFACZ |
hFacZOpen=MIN(_hFacS(i,j,k,bi,bj),hFacZOpen) |
|
./pkg/mom_common/mom_calc_hfacz.F |
319 |
MOM_CALC_HFACZ |
hFacZ(i,j)=hFacZOpen |
|
./pkg/mom_common/mom_calc_hfacz.F |
323 |
MOM_CALC_HFACZ |
& ( _hFacS( i ,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
324 |
MOM_CALC_HFACZ |
& +_hFacW(i, j ,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hfacz.F |
325 |
MOM_CALC_HFACZ |
& + _hFacW(i,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
328 |
MOM_CALC_HFACZ |
& ( _hFacW(i, j ,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
329 |
MOM_CALC_HFACZ |
& +_hFacW(i,j-1,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hfacz.F |
330 |
MOM_CALC_HFACZ |
& + _hFacS( i ,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
333 |
MOM_CALC_HFACZ |
& ( _hFacW(i,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
334 |
MOM_CALC_HFACZ |
& +_hFacS( i ,j,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hfacz.F |
335 |
MOM_CALC_HFACZ |
& + _hFacW(i, j ,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
337 |
MOM_CALC_HFACZ |
hFacZ(i,j) = hFacZOpen / 3. _d 0 |
|
./pkg/mom_common/mom_calc_hfacz.F |
342 |
MOM_CALC_HFACZ |
i=sNx+1 |
|
./pkg/mom_common/mom_calc_hfacz.F |
345 |
MOM_CALC_HFACZ |
hFacZOpen=MIN(_hFacW(i,j,k,bi,bj), |
|
./pkg/mom_common/mom_calc_hfacz.F |
346 |
MOM_CALC_HFACZ |
& _hFacW(i,j-1,k,bi,bj)) |
|
./pkg/mom_common/mom_calc_hfacz.F |
347 |
MOM_CALC_HFACZ |
hFacZOpen=MIN(_hFacS(i-1,j,k,bi,bj),hFacZOpen) |
|
./pkg/mom_common/mom_calc_hfacz.F |
348 |
MOM_CALC_HFACZ |
hFacZ(i,j)=hFacZOpen |
|
./pkg/mom_common/mom_calc_hfacz.F |
352 |
MOM_CALC_HFACZ |
& ( _hFacW(i,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
353 |
MOM_CALC_HFACZ |
& +_hFacW(i, j ,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hfacz.F |
354 |
MOM_CALC_HFACZ |
& + _hFacS(i-1,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
357 |
MOM_CALC_HFACZ |
& ( _hFacW(i, j ,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
358 |
MOM_CALC_HFACZ |
& +_hFacS(i-1,j,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hfacz.F |
359 |
MOM_CALC_HFACZ |
& + _hFacW(i,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
361 |
MOM_CALC_HFACZ |
hFacZ(i,j) = hFacZOpen / 3. _d 0 |
|
./pkg/mom_common/mom_calc_hfacz.F |
371 |
MOM_CALC_HFACZ |
DO i=1-OLx,sNx+OLx |
|
./pkg/mom_common/mom_calc_hfacz.F |
372 |
MOM_CALC_HFACZ |
IF (hFacZ(i,j).EQ.0.) THEN |
|
./pkg/mom_common/mom_calc_hfacz.F |
373 |
MOM_CALC_HFACZ |
r_hFacZ(i,j) = 0. |
|
./pkg/mom_common/mom_calc_hfacz.F |
375 |
MOM_CALC_HFACZ |
r_hFacZ(i,j) = 1. _d 0/hFacZ(i,j) |
|
./pkg/mom_common/mom_calc_hfacz.F |
61 |
MOM_CALC_HFACZ |
INTEGER i,j |
|
./pkg/mom_common/mom_calc_ke.F |
100 |
MOM_CALC_KE |
& )*recip_rA(i,j,bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
108 |
MOM_CALC_KE |
DO i=1-OLx,sNx+OLx-1 |
|
./pkg/mom_common/mom_calc_ke.F |
109 |
MOM_CALC_KE |
KE(i,j) = 0.25*( |
|
./pkg/mom_common/mom_calc_ke.F |
110 |
MOM_CALC_KE |
& ( uFld( i , j )*uFld( i , j )*_hFacW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
111 |
MOM_CALC_KE |
& +uFld(i+1, j )*uFld(i+1, j )*_hFacW(i+1,j,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_ke.F |
112 |
MOM_CALC_KE |
& + ( vFld( i , j )*vFld( i , j )*_hFacS(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
113 |
MOM_CALC_KE |
& +vFld( i ,j+1)*vFld( i ,j+1)*_hFacS(i,j+1,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_ke.F |
114 |
MOM_CALC_KE |
& )*_recip_hFacC(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
121 |
MOM_CALC_KE |
DO i=1-OLx,sNx+OLx-1 |
|
./pkg/mom_common/mom_calc_ke.F |
122 |
MOM_CALC_KE |
KE(i,j) = 0.25*( |
|
./pkg/mom_common/mom_calc_ke.F |
124 |
MOM_CALC_KE |
& uFld(i, j )*uFld(i, j ) |
|
./pkg/mom_common/mom_calc_ke.F |
125 |
MOM_CALC_KE |
& *_hFacW(i ,j, k,bi,bj)*rAw(i ,j, bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
126 |
MOM_CALC_KE |
& +uFld(i+1,j)*uFld(i+1,j) |
|
./pkg/mom_common/mom_calc_ke.F |
127 |
MOM_CALC_KE |
& *_hFacW(i+1,j,k,bi,bj)*rAw(i+1,j,bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
130 |
MOM_CALC_KE |
& vFld(i, j )*vFld(i, j ) |
|
./pkg/mom_common/mom_calc_ke.F |
131 |
MOM_CALC_KE |
& *_hFacS(i, j, k,bi,bj)*rAs(i ,j, bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
132 |
MOM_CALC_KE |
& +vFld(i,j+1)*vFld(i,j+1) |
|
./pkg/mom_common/mom_calc_ke.F |
133 |
MOM_CALC_KE |
& *_hFacS(i,j+1,k,bi,bj)*rAs(i,j+1,bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
134 |
MOM_CALC_KE |
& ) )*_recip_hFacC(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
135 |
MOM_CALC_KE |
& * recip_rA(i,j,bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
47 |
MOM_CALC_KE |
INTEGER i,j |
|
./pkg/mom_common/mom_calc_ke.F |
58 |
MOM_CALC_KE |
DO i=1-OLx,sNx+OLx |
|
./pkg/mom_common/mom_calc_ke.F |
59 |
MOM_CALC_KE |
KE(i,j) = 0. |
|
./pkg/mom_common/mom_calc_ke.F |
66 |
MOM_CALC_KE |
DO i=1-OLx,sNx+OLx-1 |
|
./pkg/mom_common/mom_calc_ke.F |
67 |
MOM_CALC_KE |
KE(i,j) = 0.125*( |
|
./pkg/mom_common/mom_calc_ke.F |
68 |
MOM_CALC_KE |
& ( uFld(i,j)+uFld(i+1, j ) )**2 |
|
./pkg/mom_common/mom_calc_ke.F |
69 |
MOM_CALC_KE |
& +( vFld(i,j)+vFld( i ,j+1) )**2 ) |
|
./pkg/mom_common/mom_calc_ke.F |
81 |
MOM_CALC_KE |
DO i=1-OLx,sNx+OLx-1 |
|
./pkg/mom_common/mom_calc_ke.F |
82 |
MOM_CALC_KE |
KE(i,j) = 0.25*( |
|
./pkg/mom_common/mom_calc_ke.F |
83 |
MOM_CALC_KE |
& ( uFld( i , j )*uFld( i , j ) |
|
./pkg/mom_common/mom_calc_ke.F |
84 |
MOM_CALC_KE |
& +uFld(i+1, j )*uFld(i+1, j ) ) |
|
./pkg/mom_common/mom_calc_ke.F |
85 |
MOM_CALC_KE |
& + ( vFld( i , j )*vFld( i , j ) |
|
./pkg/mom_common/mom_calc_ke.F |
86 |
MOM_CALC_KE |
& +vFld( i ,j+1)*vFld( i ,j+1) ) |
|
./pkg/mom_common/mom_calc_ke.F |
94 |
MOM_CALC_KE |
DO i=1-OLx,sNx+OLx-1 |
|
./pkg/mom_common/mom_calc_ke.F |
95 |
MOM_CALC_KE |
KE(i,j) = 0.25*( |
|
./pkg/mom_common/mom_calc_ke.F |
96 |
MOM_CALC_KE |
& ( uFld(i, j )*uFld(i, j )*rAw(i ,j, bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
97 |
MOM_CALC_KE |
& +uFld(i+1,j)*uFld(i+1,j)*rAw(i+1,j,bi,bj) ) |
|
./pkg/mom_common/mom_calc_ke.F |
98 |
MOM_CALC_KE |
& + ( vFld(i, j )*vFld(i, j )*rAs(i ,j, bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
99 |
MOM_CALC_KE |
& +vFld(i,j+1)*vFld(i,j+1)*rAs(i,j+1,bi,bj) ) |
|
./pkg/mom_common/mom_calc_relvort3.F |
138 |
MOM_CALC_RELVORT3 |
& *maskS(i-1,j,k,bi,bj)*maskS(i-2,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
139 |
MOM_CALC_RELVORT3 |
& *maskW(i-1,j,k,bi,bj)*maskS(i,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
195 |
MOM_CALC_RELVORT3 |
& *maskS(i+1,j,k,bi,bj)*maskS(i-0,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
196 |
MOM_CALC_RELVORT3 |
& *maskW(i+1,j,k,bi,bj)*maskS(i-1,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
252 |
MOM_CALC_RELVORT3 |
& *maskS(i-1,j,k,bi,bj)*maskS(i-2,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
253 |
MOM_CALC_RELVORT3 |
& *maskS(i,j+1,k,bi,bj)*maskW(i-1,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
302 |
MOM_CALC_RELVORT3 |
& *maskS(i+1,j,k,bi,bj)*maskS(i-0,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
303 |
MOM_CALC_RELVORT3 |
& *maskS(i-1,j+1,k,bi,bj)*maskW(i+1,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
37 |
MOM_CALC_RELVORT3 |
INTEGER i,j |
|
./pkg/mom_common/mom_calc_smag_3d.F |
102 |
MOM_CALC_SMAG_3D |
DO i=1-OLx,sNx+OLx |
|
./pkg/mom_common/mom_calc_smag_3d.F |
103 |
MOM_CALC_SMAG_3D |
S66(i,j,n) = 0. _d 0 |
|
./pkg/mom_common/mom_calc_smag_3d.F |
104 |
MOM_CALC_SMAG_3D |
S12(i,j,n) = 0. _d 0 |
|
./pkg/mom_common/mom_calc_smag_3d.F |
109 |
MOM_CALC_SMAG_3D |
DO i=1-OLx,sNx+OLx |
|
./pkg/mom_common/mom_calc_smag_3d.F |
110 |
MOM_CALC_SMAG_3D |
S13(i,j,n) = str13(i,j,kl)**2 |
|
./pkg/mom_common/mom_calc_smag_3d.F |
111 |
MOM_CALC_SMAG_3D |
S23(i,j,n) = str23(i,j,kl)**2 |
|
./pkg/mom_common/mom_calc_smag_3d.F |
128 |
MOM_CALC_SMAG_3D |
DO i=1-OLx,sNx+OLx-1 |
|
./pkg/mom_common/mom_calc_smag_3d.F |
129 |
MOM_CALC_SMAG_3D |
viscAh3d_00(i,j,kl) = |
|
./pkg/mom_common/mom_calc_smag_3d.F |
130 |
MOM_CALC_SMAG_3D |
& smag3D_hLsC(i,j,bi,bj)*tmpFac*SQRT( |
|
./pkg/mom_common/mom_calc_smag_3d.F |
131 |
MOM_CALC_SMAG_3D |
& S66( i , j , n ) |
|
./pkg/mom_common/mom_calc_smag_3d.F |
132 |
MOM_CALC_SMAG_3D |
& + 0.5*( S12( i ,j+1, n )+S12(i+1,j+1, n ) |
|
./pkg/mom_common/mom_calc_smag_3d.F |
133 |
MOM_CALC_SMAG_3D |
& +S12( i , j , n )+S12(i+1, j , n ) ) |
|
./pkg/mom_common/mom_calc_smag_3d.F |
134 |
MOM_CALC_SMAG_3D |
& + 0.5*( S13( i , j , n )+S13(i+1, j , n ) |
|
./pkg/mom_common/mom_calc_smag_3d.F |
135 |
MOM_CALC_SMAG_3D |
& +S13( i , j ,n+1)+S13(i+1, j ,n+1) ) |
|
./pkg/mom_common/mom_calc_smag_3d.F |
136 |
MOM_CALC_SMAG_3D |
& + 0.5*( S23( i , j , n )+S23( i ,j+1, n ) |
|
./pkg/mom_common/mom_calc_smag_3d.F |
137 |
MOM_CALC_SMAG_3D |
& +S23( i , j ,n+1)+S23( i ,j+1,n+1) ) |
|
./pkg/mom_common/mom_calc_smag_3d.F |
145 |
MOM_CALC_SMAG_3D |
DO i=2-OLx,sNx+OLx |
|
./pkg/mom_common/mom_calc_smag_3d.F |
146 |
MOM_CALC_SMAG_3D |
viscAh3d_12(i,j,kl) = |
|
./pkg/mom_common/mom_calc_smag_3d.F |
147 |
MOM_CALC_SMAG_3D |
& smag3D_hLsZ(i,j,bi,bj)*tmpFac*SQRT( |
|
./pkg/mom_common/mom_calc_smag_3d.F |
148 |
MOM_CALC_SMAG_3D |
& 0.25*( S66(i-1, j , n )+S66( i , j , n ) |
|
./pkg/mom_common/mom_calc_smag_3d.F |
149 |
MOM_CALC_SMAG_3D |
& +S66(i-1,j-1, n )+S66( i ,j-1, n ) ) |
|
./pkg/mom_common/mom_calc_smag_3d.F |
150 |
MOM_CALC_SMAG_3D |
& + 2.0 * S12( i , j , n ) |
|
./pkg/mom_common/mom_calc_smag_3d.F |
151 |
MOM_CALC_SMAG_3D |
& + 0.5 *( S13( i ,j-1, n )+S13( i , j , n ) |
|
./pkg/mom_common/mom_calc_smag_3d.F |
152 |
MOM_CALC_SMAG_3D |
& +S13( i ,j-1,n+1)+S13( i , j ,n+1) ) |
|
./pkg/mom_common/mom_calc_smag_3d.F |
153 |
MOM_CALC_SMAG_3D |
& + 0.5 *( S23(i-1, j , n )+S23( i , j , n ) |
|
./pkg/mom_common/mom_calc_smag_3d.F |
154 |
MOM_CALC_SMAG_3D |
& +S23(i-1, j ,n+1)+S23( i , j ,n+1) ) |
|
./pkg/mom_common/mom_calc_smag_3d.F |
165 |
MOM_CALC_SMAG_3D |
DO i=1-OLx,sNx+OLx |
|
./pkg/mom_common/mom_calc_smag_3d.F |
166 |
MOM_CALC_SMAG_3D |
viscAh3d_13(i,j,k) = 0. _d 0 |
|
./pkg/mom_common/mom_calc_smag_3d.F |
167 |
MOM_CALC_SMAG_3D |
viscAh3d_23(i,j,k) = 0. _d 0 |
|
./pkg/mom_common/mom_calc_smag_3d.F |
180 |
MOM_CALC_SMAG_3D |
DO i=2-OLx,sNx+OLx |
|
./pkg/mom_common/mom_calc_smag_3d.F |
181 |
MOM_CALC_SMAG_3D |
viscAh3d_13(i,j,kl) = |
|
./pkg/mom_common/mom_calc_smag_3d.F |
182 |
MOM_CALC_SMAG_3D |
& smag3D_hLsW(i,j,bi,bj)*tmpFac*SQRT( |
|
./pkg/mom_common/mom_calc_smag_3d.F |
183 |
MOM_CALC_SMAG_3D |
& 0.25*( S66(i-1, j ,n-1)+S66( i , j ,n-1) |
|
./pkg/mom_common/mom_calc_smag_3d.F |
184 |
MOM_CALC_SMAG_3D |
& +S66(i-1, j , n )+S66( i , j , n ) ) |
|
./pkg/mom_common/mom_calc_smag_3d.F |
185 |
MOM_CALC_SMAG_3D |
& + 0.5 *( S12( i , j ,n-1)+S12( i ,j+1,n-1) |
|
./pkg/mom_common/mom_calc_smag_3d.F |
186 |
MOM_CALC_SMAG_3D |
& +S12( i , j , n )+S12( i ,j+1, n ) ) |
|
./pkg/mom_common/mom_calc_smag_3d.F |
187 |
MOM_CALC_SMAG_3D |
& + 2.0 * S13( i , j , n ) |
|
./pkg/mom_common/mom_calc_smag_3d.F |
188 |
MOM_CALC_SMAG_3D |
& + 0.5 *( S23(i-1,j+1, n )+S23( i ,j+1, n ) |
|
./pkg/mom_common/mom_calc_smag_3d.F |
189 |
MOM_CALC_SMAG_3D |
& +S23(i-1, j , n )+S23( i , j , n ) ) |
|
./pkg/mom_common/mom_calc_smag_3d.F |
197 |
MOM_CALC_SMAG_3D |
DO i=1-OLx,sNx+OLx-1 |
|
./pkg/mom_common/mom_calc_smag_3d.F |
198 |
MOM_CALC_SMAG_3D |
viscAh3d_23(i,j,kl) = |
|
./pkg/mom_common/mom_calc_smag_3d.F |
199 |
MOM_CALC_SMAG_3D |
& smag3D_hLsS(i,j,bi,bj)*tmpFac*SQRT( |
|
./pkg/mom_common/mom_calc_smag_3d.F |
200 |
MOM_CALC_SMAG_3D |
& 0.25*( S66( i ,j-1,n-1)+S66( i , j ,n-1) |
|
./pkg/mom_common/mom_calc_smag_3d.F |
201 |
MOM_CALC_SMAG_3D |
& +S66( i ,j-1, n )+S66( i , j , n ) ) |
|
./pkg/mom_common/mom_calc_smag_3d.F |
202 |
MOM_CALC_SMAG_3D |
& + 0.5 *( S12( i , j ,n-1)+S12(i+1, j ,n-1) |
|
./pkg/mom_common/mom_calc_smag_3d.F |
203 |
MOM_CALC_SMAG_3D |
& +S12( i , j , n )+S12(i+1, j , n ) ) |
|
./pkg/mom_common/mom_calc_smag_3d.F |
204 |
MOM_CALC_SMAG_3D |
& + 0.5 *( S13( i , j , n )+S13(i+1, j , n ) |
|
./pkg/mom_common/mom_calc_smag_3d.F |
205 |
MOM_CALC_SMAG_3D |
& +S13( i ,j-1, n )+S13(i+1,j-1, n ) ) |
|
./pkg/mom_common/mom_calc_smag_3d.F |
206 |
MOM_CALC_SMAG_3D |
& + 2.0 * S23( i , j , n ) |
|
./pkg/mom_common/mom_calc_smag_3d.F |
77 |
MOM_CALC_SMAG_3D |
INTEGER i, j |
|
./pkg/mom_common/mom_calc_smag_3d.F |
93 |
MOM_CALC_SMAG_3D |
DO i=1-OLx,sNx+OLx |
|
./pkg/mom_common/mom_calc_smag_3d.F |
94 |
MOM_CALC_SMAG_3D |
S66(i,j,n) = str11(i,j,kl)**2 |
|
./pkg/mom_common/mom_calc_smag_3d.F |
95 |
MOM_CALC_SMAG_3D |
& + str22(i,j,kl)**2 |
|
./pkg/mom_common/mom_calc_smag_3d.F |
96 |
MOM_CALC_SMAG_3D |
& + str33(i,j,kl)**2 |
|
./pkg/mom_common/mom_calc_smag_3d.F |
97 |
MOM_CALC_SMAG_3D |
S12(i,j,n) = str12(i,j,kl)**2 |
|
./pkg/mom_common/mom_calc_strain.F |
50 |
MOM_CALC_STRAIN |
INTEGER i,j |
|
./pkg/mom_common/mom_calc_strain.F |
54 |
MOM_CALC_STRAIN |
DO i=2-OLx,sNx+OLx |
|
./pkg/mom_common/mom_calc_strain.F |
57 |
MOM_CALC_STRAIN |
strain(i,j)= |
|
./pkg/mom_common/mom_calc_strain.F |
58 |
MOM_CALC_STRAIN |
& ( dyC( i , j ,bi,bj)*vFld( i , j ) |
|
./pkg/mom_common/mom_calc_strain.F |
59 |
MOM_CALC_STRAIN |
& -dyC(i-1, j ,bi,bj)*vFld(i-1, j ) |
|
./pkg/mom_common/mom_calc_strain.F |
60 |
MOM_CALC_STRAIN |
& +dxC( i , j ,bi,bj)*uFld( i , j ) |
|
./pkg/mom_common/mom_calc_strain.F |
61 |
MOM_CALC_STRAIN |
& -dxC( i ,j-1,bi,bj)*uFld( i ,j-1) |
|
./pkg/mom_common/mom_calc_strain.F |
62 |
MOM_CALC_STRAIN |
& )*recip_rAz(i,j,bi,bj)*recip_deepFacC(k) |
|
./pkg/mom_common/mom_calc_tension.F |
46 |
MOM_CALC_TENSION |
INTEGER i,j |
|
./pkg/mom_common/mom_calc_tension.F |
50 |
MOM_CALC_TENSION |
DO i=1-OLx,sNx+OLx-1 |
|
./pkg/mom_common/mom_calc_tension.F |
54 |
MOM_CALC_TENSION |
tension(i,j)= |
|
./pkg/mom_common/mom_calc_tension.F |
55 |
MOM_CALC_TENSION |
& ( dyG(i+1, j ,bi,bj)*uFld(i+1, j ) |
|
./pkg/mom_common/mom_calc_tension.F |
56 |
MOM_CALC_TENSION |
& -dyG( i , j ,bi,bj)*uFld( i , j ) |
|
./pkg/mom_common/mom_calc_tension.F |
57 |
MOM_CALC_TENSION |
& -dxG( i ,j+1,bi,bj)*vFld( i ,j+1) |
|
./pkg/mom_common/mom_calc_tension.F |
58 |
MOM_CALC_TENSION |
& +dxG( i , j ,bi,bj)*vFld( i , j ) |
|
./pkg/mom_common/mom_calc_tension.F |
59 |
MOM_CALC_TENSION |
& )*recip_rA(i,j,bi,bj)*recip_deepFacC(k) |
|
./pkg/mom_common/mom_calc_tension.F |
61 |
MOM_CALC_TENSION |
& *maskInC(i,j,bi,bj) |
|
./pkg/mom_common/mom_calc_visc.F |
106 |
MOM_CALC_VISC |
INTEGER i,j |
|
./pkg/mom_common/mom_calc_visc.F |
223 |
MOM_CALC_VISC |
DO i=1-OLx,sNx+OLx |
|
./pkg/mom_common/mom_calc_visc.F |
230 |
MOM_CALC_VISC |
visca4_zsmg(i,j) = 0. _d 0 |
|
./pkg/mom_common/mom_calc_visc.F |
231 |
MOM_CALC_VISC |
viscah_zsmg(i,j) = 0. _d 0 |
|
./pkg/mom_common/mom_calc_visc.F |
233 |
MOM_CALC_VISC |
viscAh_Dlth(i,j) = 0. _d 0 |
|
./pkg/mom_common/mom_calc_visc.F |
234 |
MOM_CALC_VISC |
viscA4_Dlth(i,j) = 0. _d 0 |
|
./pkg/mom_common/mom_calc_visc.F |
235 |
MOM_CALC_VISC |
viscAh_DlthD(i,j)= 0. _d 0 |
|
./pkg/mom_common/mom_calc_visc.F |
236 |
MOM_CALC_VISC |
viscA4_DlthD(i,j)= 0. _d 0 |
|
./pkg/mom_common/mom_calc_visc.F |
238 |
MOM_CALC_VISC |
viscAh_DSmg(i,j) = 0. _d 0 |
|
./pkg/mom_common/mom_calc_visc.F |
239 |
MOM_CALC_VISC |
viscA4_DSmg(i,j) = 0. _d 0 |
|
./pkg/mom_common/mom_calc_visc.F |
241 |
MOM_CALC_VISC |
viscAh_ZLth(i,j) = 0. _d 0 |
|
./pkg/mom_common/mom_calc_visc.F |
242 |
MOM_CALC_VISC |
viscA4_ZLth(i,j) = 0. _d 0 |
|
./pkg/mom_common/mom_calc_visc.F |
243 |
MOM_CALC_VISC |
viscAh_ZLthD(i,j)= 0. _d 0 |
|
./pkg/mom_common/mom_calc_visc.F |
244 |
MOM_CALC_VISC |
viscA4_ZLthD(i,j)= 0. _d 0 |
|
./pkg/mom_common/mom_calc_visc.F |
250 |
MOM_CALC_VISC |
DO i=1-OLx,sNx+OLx |
|
./pkg/mom_common/mom_calc_visc.F |
251 |
MOM_CALC_VISC |
divDx(i,j) = 0. |
|
./pkg/mom_common/mom_calc_visc.F |
252 |
MOM_CALC_VISC |
divDy(i,j) = 0. |
|
./pkg/mom_common/mom_calc_visc.F |
253 |
MOM_CALC_VISC |
vrtDx(i,j) = 0. |
|
./pkg/mom_common/mom_calc_visc.F |
254 |
MOM_CALC_VISC |
vrtDy(i,j) = 0. |
|
./pkg/mom_common/mom_calc_visc.F |
267 |
MOM_CALC_VISC |
DO i=2-OLx,sNx+OLx-1 |
|
./pkg/mom_common/mom_calc_visc.F |
268 |
MOM_CALC_VISC |
divDx(i,j) = (hDiv(i,j)-hDiv(i-1,j)) |
|
./pkg/mom_common/mom_calc_visc.F |
269 |
MOM_CALC_VISC |
& *recip_dxC(i,j,bi,bj)*recip_deepFacC(k) |
|
./pkg/mom_common/mom_calc_visc.F |
280 |
MOM_CALC_VISC |
DO i=2-OLx,sNx+OLx-1 |
|
./pkg/mom_common/mom_calc_visc.F |
281 |
MOM_CALC_VISC |
divDy(i,j) = (hDiv(i,j)-hDiv(i,j-1)) |
|
./pkg/mom_common/mom_calc_visc.F |
282 |
MOM_CALC_VISC |
& *recip_dyC(i,j,bi,bj)*recip_deepFacC(k) |
|
./pkg/mom_common/mom_calc_visc.F |
289 |
MOM_CALC_VISC |
DO i=2-OLx,sNx+OLx-1 |
|
./pkg/mom_common/mom_calc_visc.F |
290 |
MOM_CALC_VISC |
vrtDx(i,j) = (vort3(i+1,j)-vort3(i,j)) |
|
./pkg/mom_common/mom_calc_visc.F |
291 |
MOM_CALC_VISC |
& *recip_dxG(i,j,bi,bj)*recip_deepFacC(k) |
|
./pkg/mom_common/mom_calc_visc.F |
292 |
MOM_CALC_VISC |
& *maskS(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_visc.F |
294 |
MOM_CALC_VISC |
& *maskInS(i,j,bi,bj) |
|
./pkg/mom_common/mom_calc_visc.F |
300 |
MOM_CALC_VISC |
DO i=2-OLx,sNx+OLx |
|
./pkg/mom_common/mom_calc_visc.F |
301 |
MOM_CALC_VISC |
vrtDy(i,j) = (vort3(i,j+1)-vort3(i,j)) |
|
./pkg/mom_common/mom_calc_visc.F |
302 |
MOM_CALC_VISC |
& *recip_dyG(i,j,bi,bj)*recip_deepFacC(k) |
|
./pkg/mom_common/mom_calc_visc.F |
303 |
MOM_CALC_VISC |
& *maskW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_visc.F |
305 |
MOM_CALC_VISC |
& *maskInW(i,j,bi,bj) |
|
./pkg/mom_common/mom_calc_visc.F |
314 |
MOM_CALC_VISC |
DO i=2-OLx,sNx+OLx-1 |
|
./pkg/mom_common/mom_calc_visc.F |
319 |
MOM_CALC_VISC |
lockey_2 = i+olx + (sNx+2*olx)*(j+oly-1) |
|
./pkg/mom_common/mom_calc_visc.F |
329 |
MOM_CALC_VISC |
L2 = L2_D(i,j,bi,bj)*deepFac2C(k) |
|
./pkg/mom_common/mom_calc_visc.F |
331 |
MOM_CALC_VISC |
L3 = L3_D(i,j,bi,bj)*deepFac3 |
|
./pkg/mom_common/mom_calc_visc.F |
332 |
MOM_CALC_VISC |
L4rdt = L4rdt_D(i,j,bi,bj)*deepFac4 |
|
./pkg/mom_common/mom_calc_visc.F |
337 |
MOM_CALC_VISC |
IF ( viscAhRe_max.GT.0. .AND. KE(i,j).GT.0. ) THEN |
|
./pkg/mom_common/mom_calc_visc.F |
338 |
MOM_CALC_VISC |
Uscl=SQRT(KE(i,j)*L2)*viscAhRe_max |
|
./pkg/mom_common/mom_calc_visc.F |
342 |
MOM_CALC_VISC |
IF ( viscA4Re_max.GT.0. .AND. KE(i,j).GT.0. ) THEN |
|
./pkg/mom_common/mom_calc_visc.F |
343 |
MOM_CALC_VISC |
U4scl=SQRT(KE(i,j))*L3*viscA4Re_max |
|
./pkg/mom_common/mom_calc_visc.F |
352 |
MOM_CALC_VISC |
grdVrt=0.25 _d 0*( (vrtDx(i,j+1)*vrtDx(i,j+1) |
|
./pkg/mom_common/mom_calc_visc.F |
353 |
MOM_CALC_VISC |
& + vrtDx(i,j)*vrtDx(i,j) ) |
|
./pkg/mom_common/mom_calc_visc.F |
354 |
MOM_CALC_VISC |
& + (vrtDy(i+1,j)*vrtDy(i+1,j) |
|
./pkg/mom_common/mom_calc_visc.F |
355 |
MOM_CALC_VISC |
& + vrtDy(i,j)*vrtDy(i,j) ) ) |
|
./pkg/mom_common/mom_calc_visc.F |
359 |
MOM_CALC_VISC |
grdDiv=0.25 _d 0*( (divDx(i+1,j)*divDx(i+1,j) |
|
./pkg/mom_common/mom_calc_visc.F |
360 |
MOM_CALC_VISC |
& + divDx(i,j)*divDx(i,j) ) |
|
./pkg/mom_common/mom_calc_visc.F |
361 |
MOM_CALC_VISC |
& + (divDy(i,j+1)*divDy(i,j+1) |
|
./pkg/mom_common/mom_calc_visc.F |
362 |
MOM_CALC_VISC |
& + divDy(i,j)*divDy(i,j) ) ) |
|
./pkg/mom_common/mom_calc_visc.F |
364 |
MOM_CALC_VISC |
viscAh_DLth(i,j)= |
|
./pkg/mom_common/mom_calc_visc.F |
366 |
MOM_CALC_VISC |
viscA4_DLth(i,j)= |
|
./pkg/mom_common/mom_calc_visc.F |
368 |
MOM_CALC_VISC |
viscAh_DLthd(i,j)= |
|
./pkg/mom_common/mom_calc_visc.F |
370 |
MOM_CALC_VISC |
viscA4_DLthd(i,j)= |
|
./pkg/mom_common/mom_calc_visc.F |
374 |
MOM_CALC_VISC |
grdVrt=MAX( ABS(vrtDx(i,j+1)), ABS(vrtDx(i,j)) ) |
|
./pkg/mom_common/mom_calc_visc.F |
375 |
MOM_CALC_VISC |
grdVrt=MAX( grdVrt, ABS(vrtDy(i+1,j)) ) |
|
./pkg/mom_common/mom_calc_visc.F |
376 |
MOM_CALC_VISC |
grdVrt=MAX( grdVrt, ABS(vrtDy(i,j)) ) |
|
./pkg/mom_common/mom_calc_visc.F |
379 |
MOM_CALC_VISC |
grdDiv=MAX( ABS(divDx(i+1,j)), ABS(divDx(i,j)) ) |
|
./pkg/mom_common/mom_calc_visc.F |
380 |
MOM_CALC_VISC |
grdDiv=MAX( grdDiv, ABS(divDy(i,j+1)) ) |
|
./pkg/mom_common/mom_calc_visc.F |
381 |
MOM_CALC_VISC |
grdDiv=MAX( grdDiv, ABS(divDy(i,j)) ) |
|
./pkg/mom_common/mom_calc_visc.F |
383 |
MOM_CALC_VISC |
viscAh_Dlth(i,j)=(leith2fac*grdVrt+(leithD2fac*grdDiv))*L3 |
|
./pkg/mom_common/mom_calc_visc.F |
384 |
MOM_CALC_VISC |
viscA4_Dlth(i,j)=(leith4fac*grdVrt+(leithD4fac*grdDiv))*L5 |
|
./pkg/mom_common/mom_calc_visc.F |
385 |
MOM_CALC_VISC |
viscAh_DlthD(i,j)=((leithD2fac*grdDiv))*L3 |
|
./pkg/mom_common/mom_calc_visc.F |
386 |
MOM_CALC_VISC |
viscA4_DlthD(i,j)=((leithD4fac*grdDiv))*L5 |
|
./pkg/mom_common/mom_calc_visc.F |
388 |
MOM_CALC_VISC |
viscAh_Dlth(i,j)=0. _d 0 |
|
./pkg/mom_common/mom_calc_visc.F |
389 |
MOM_CALC_VISC |
viscA4_Dlth(i,j)=0. _d 0 |
|
./pkg/mom_common/mom_calc_visc.F |
390 |
MOM_CALC_VISC |
viscAh_DlthD(i,j)=0. _d 0 |
|
./pkg/mom_common/mom_calc_visc.F |
391 |
MOM_CALC_VISC |
viscA4_DlthD(i,j)=0. _d 0 |
|
./pkg/mom_common/mom_calc_visc.F |
395 |
MOM_CALC_VISC |
viscAh_DSmg(i,j)=L2 |
|
./pkg/mom_common/mom_calc_visc.F |
396 |
MOM_CALC_VISC |
& *SQRT(tension(i,j)**2 |
|
./pkg/mom_common/mom_calc_visc.F |
397 |
MOM_CALC_VISC |
& +0.25 _d 0*(strain(i+1, j )**2+strain( i ,j+1)**2 |
|
./pkg/mom_common/mom_calc_visc.F |
398 |
MOM_CALC_VISC |
& +strain(i , j )**2+strain(i+1,j+1)**2)) |
|
./pkg/mom_common/mom_calc_visc.F |
399 |
MOM_CALC_VISC |
viscA4_DSmg(i,j)=smag4fac*L2*viscAh_DSmg(i,j) |
|
./pkg/mom_common/mom_calc_visc.F |
400 |
MOM_CALC_VISC |
viscAh_DSmg(i,j)=smag2fac*viscAh_DSmg(i,j) |
|
./pkg/mom_common/mom_calc_visc.F |
402 |
MOM_CALC_VISC |
viscAh_DSmg(i,j)=0. _d 0 |
|
./pkg/mom_common/mom_calc_visc.F |
403 |
MOM_CALC_VISC |
viscA4_DSmg(i,j)=0. _d 0 |
|
./pkg/mom_common/mom_calc_visc.F |
409 |
MOM_CALC_VISC |
& +viscAh_DLth(i,j)+viscAh_DSmg(i,j) |
|
./pkg/mom_common/mom_calc_visc.F |
411 |
MOM_CALC_VISC |
& +viscAhDfld(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_visc.F |
416 |
MOM_CALC_VISC |
viscAh_DMin(i,j)=MAX(viscAhGridMin*L2rdt,Uscl) |
|
./pkg/mom_common/mom_calc_visc.F |
417 |
MOM_CALC_VISC |
viscAh_D(i,j)=MAX(viscAh_DMin(i,j),Alin) |
|
./pkg/mom_common/mom_calc_visc.F |
418 |
MOM_CALC_VISC |
viscAh_DMax(i,j)=MIN(viscAhGridMax*L2rdt,viscAhMax) |
|
./pkg/mom_common/mom_calc_visc.F |
419 |
MOM_CALC_VISC |
viscAh_D(i,j)=MIN(viscAh_DMax(i,j),viscAh_D(i,j)) |
|
./pkg/mom_common/mom_calc_visc.F |
423 |
MOM_CALC_VISC |
& +viscA4_DLth(i,j)+viscA4_DSmg(i,j) |
|
./pkg/mom_common/mom_calc_visc.F |
425 |
MOM_CALC_VISC |
& +viscA4Dfld(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_visc.F |
430 |
MOM_CALC_VISC |
viscA4_DMin(i,j)=MAX(viscA4GridMin*L4rdt,U4scl) |
|
./pkg/mom_common/mom_calc_visc.F |
431 |
MOM_CALC_VISC |
viscA4_D(i,j)=MAX(viscA4_DMin(i,j),Alin) |
|
./pkg/mom_common/mom_calc_visc.F |
432 |
MOM_CALC_VISC |
viscA4_DMax(i,j)=MIN(viscA4GridMax*L4rdt,viscA4Max) |
|
./pkg/mom_common/mom_calc_visc.F |
433 |
MOM_CALC_VISC |
viscA4_D(i,j)=MIN(viscA4_DMax(i,j),viscA4_D(i,j)) |
|
./pkg/mom_common/mom_calc_visc.F |
437 |
MOM_CALC_VISC |
L2 = L2_Z(i,j,bi,bj)*deepFac2C(k) |
|
./pkg/mom_common/mom_calc_visc.F |
439 |
MOM_CALC_VISC |
L3 = L3_Z(i,j,bi,bj)*deepFac3 |
|
./pkg/mom_common/mom_calc_visc.F |
440 |
MOM_CALC_VISC |
L4rdt = L4rdt_Z(i,j,bi,bj)*deepFac4 |
|
./pkg/mom_common/mom_calc_visc.F |
446 |
MOM_CALC_VISC |
keZpt=0.25 _d 0*( (KE(i,j)+KE(i-1,j-1)) |
|
./pkg/mom_common/mom_calc_visc.F |
447 |
MOM_CALC_VISC |
& +(KE(i-1,j)+KE(i,j-1)) ) |
|
./pkg/mom_common/mom_calc_visc.F |
464 |
MOM_CALC_VISC |
grdVrt=0.25 _d 0*( (vrtDx(i-1,j)*vrtDx(i-1,j) |
|
./pkg/mom_common/mom_calc_visc.F |
465 |
MOM_CALC_VISC |
& + vrtDx(i,j)*vrtDx(i,j) ) |
|
./pkg/mom_common/mom_calc_visc.F |
466 |
MOM_CALC_VISC |
& + (vrtDy(i,j-1)*vrtDy(i,j-1) |
|
./pkg/mom_common/mom_calc_visc.F |
467 |
MOM_CALC_VISC |
& + vrtDy(i,j)*vrtDy(i,j) ) ) |
|
./pkg/mom_common/mom_calc_visc.F |
470 |
MOM_CALC_VISC |
grdDiv=0.25 _d 0*( (divDx(i,j-1)*divDx(i,j-1) |
|
./pkg/mom_common/mom_calc_visc.F |
471 |
MOM_CALC_VISC |
& + divDx(i,j)*divDx(i,j) ) |
|
./pkg/mom_common/mom_calc_visc.F |
472 |
MOM_CALC_VISC |
& + (divDy(i-1,j)*divDy(i-1,j) |
|
./pkg/mom_common/mom_calc_visc.F |
473 |
MOM_CALC_VISC |
& + divDy(i,j)*divDy(i,j) ) ) |
|
./pkg/mom_common/mom_calc_visc.F |
475 |
MOM_CALC_VISC |
viscAh_ZLth(i,j)= |
|
./pkg/mom_common/mom_calc_visc.F |
477 |
MOM_CALC_VISC |
viscA4_ZLth(i,j)= |
|
./pkg/mom_common/mom_calc_visc.F |
479 |
MOM_CALC_VISC |
viscAh_ZLthD(i,j)= |
|
./pkg/mom_common/mom_calc_visc.F |
481 |
MOM_CALC_VISC |
viscA4_ZLthD(i,j)= |
|
./pkg/mom_common/mom_calc_visc.F |
486 |
MOM_CALC_VISC |
grdVrt=MAX( ABS(vrtDx(i-1,j)), ABS(vrtDx(i,j)) ) |
|
./pkg/mom_common/mom_calc_visc.F |
487 |
MOM_CALC_VISC |
grdVrt=MAX( grdVrt, ABS(vrtDy(i,j-1)) ) |
|
./pkg/mom_common/mom_calc_visc.F |
488 |
MOM_CALC_VISC |
grdVrt=MAX( grdVrt, ABS(vrtDy(i,j)) ) |
|
./pkg/mom_common/mom_calc_visc.F |
490 |
MOM_CALC_VISC |
grdDiv=MAX( ABS(divDx(i,j)), ABS(divDx(i,j-1)) ) |
|
./pkg/mom_common/mom_calc_visc.F |
491 |
MOM_CALC_VISC |
grdDiv=MAX( grdDiv, ABS(divDy(i,j)) ) |
|
./pkg/mom_common/mom_calc_visc.F |
492 |
MOM_CALC_VISC |
grdDiv=MAX( grdDiv, ABS(divDy(i-1,j)) ) |
|
./pkg/mom_common/mom_calc_visc.F |
494 |
MOM_CALC_VISC |
viscAh_ZLth(i,j)=(leith2fac*grdVrt+(leithD2fac*grdDiv))*L3 |
|
./pkg/mom_common/mom_calc_visc.F |
495 |
MOM_CALC_VISC |
viscA4_ZLth(i,j)=(leith4fac*grdVrt+(leithD4fac*grdDiv))*L5 |
|
./pkg/mom_common/mom_calc_visc.F |
496 |
MOM_CALC_VISC |
viscAh_ZLthD(i,j)=(leithD2fac*grdDiv)*L3 |
|
./pkg/mom_common/mom_calc_visc.F |
497 |
MOM_CALC_VISC |
viscA4_ZLthD(i,j)=(leithD4fac*grdDiv)*L5 |
|
./pkg/mom_common/mom_calc_visc.F |
499 |
MOM_CALC_VISC |
viscAh_ZLth(i,j)=0. _d 0 |
|
./pkg/mom_common/mom_calc_visc.F |
500 |
MOM_CALC_VISC |
viscA4_ZLth(i,j)=0. _d 0 |
|
./pkg/mom_common/mom_calc_visc.F |
501 |
MOM_CALC_VISC |
viscAh_ZLthD(i,j)=0. _d 0 |
|
./pkg/mom_common/mom_calc_visc.F |
502 |
MOM_CALC_VISC |
viscA4_ZLthD(i,j)=0. _d 0 |
|
./pkg/mom_common/mom_calc_visc.F |
506 |
MOM_CALC_VISC |
viscAh_ZSmg(i,j)=L2 |
|
./pkg/mom_common/mom_calc_visc.F |
507 |
MOM_CALC_VISC |
& *SQRT(strain(i,j)**2 |
|
./pkg/mom_common/mom_calc_visc.F |
508 |
MOM_CALC_VISC |
& +0.25 _d 0*(tension( i , j )**2+tension( i ,j-1)**2 |
|
./pkg/mom_common/mom_calc_visc.F |
509 |
MOM_CALC_VISC |
& +tension(i-1, j )**2+tension(i-1,j-1)**2)) |
|
./pkg/mom_common/mom_calc_visc.F |
510 |
MOM_CALC_VISC |
viscA4_ZSmg(i,j)=smag4fac*L2*viscAh_ZSmg(i,j) |
|
./pkg/mom_common/mom_calc_visc.F |
511 |
MOM_CALC_VISC |
viscAh_ZSmg(i,j)=smag2fac*viscAh_ZSmg(i,j) |
|
./pkg/mom_common/mom_calc_visc.F |
517 |
MOM_CALC_VISC |
& +viscAh_ZLth(i,j)+viscAh_ZSmg(i,j) |
|
./pkg/mom_common/mom_calc_visc.F |
519 |
MOM_CALC_VISC |
& +viscAhZfld(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_visc.F |
521 |
MOM_CALC_VISC |
viscAh_ZMin(i,j)=MAX(viscAhGridMin*L2rdt,Uscl) |
|
./pkg/mom_common/mom_calc_visc.F |
522 |
MOM_CALC_VISC |
viscAh_Z(i,j)=MAX(viscAh_ZMin(i,j),Alin) |
|
./pkg/mom_common/mom_calc_visc.F |
523 |
MOM_CALC_VISC |
viscAh_ZMax(i,j)=MIN(viscAhGridMax*L2rdt,viscAhMax) |
|
./pkg/mom_common/mom_calc_visc.F |
524 |
MOM_CALC_VISC |
viscAh_Z(i,j)=MIN(viscAh_ZMax(i,j),viscAh_Z(i,j)) |
|
./pkg/mom_common/mom_calc_visc.F |
528 |
MOM_CALC_VISC |
& +viscA4_ZLth(i,j)+viscA4_ZSmg(i,j) |
|
./pkg/mom_common/mom_calc_visc.F |
530 |
MOM_CALC_VISC |
& +viscA4Zfld(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_visc.F |
532 |
MOM_CALC_VISC |
viscA4_ZMin(i,j)=MAX(viscA4GridMin*L4rdt,U4scl) |
|
./pkg/mom_common/mom_calc_visc.F |
533 |
MOM_CALC_VISC |
viscA4_Z(i,j)=MAX(viscA4_ZMin(i,j),Alin) |
|
./pkg/mom_common/mom_calc_visc.F |
534 |
MOM_CALC_VISC |
viscA4_ZMax(i,j)=MIN(viscA4GridMax*L4rdt,viscA4Max) |
|
./pkg/mom_common/mom_calc_visc.F |
535 |
MOM_CALC_VISC |
viscA4_Z(i,j)=MIN(viscA4_ZMax(i,j),viscA4_Z(i,j)) |
|
./pkg/mom_common/mom_calc_visc.F |
546 |
MOM_CALC_VISC |
DO i=1-OLx,sNx+OLx |
|
./pkg/mom_common/mom_calc_visc.F |
547 |
MOM_CALC_VISC |
viscAh_W(i,j,k+1,bi,bj) = halfRL*viscAh_D(i,j) |
|
./pkg/mom_common/mom_calc_visc.F |
548 |
MOM_CALC_VISC |
viscA4_W(i,j,k+1,bi,bj) = halfRL*viscA4_D(i,j) |
|
./pkg/mom_common/mom_calc_visc.F |
558 |
MOM_CALC_VISC |
DO i=1-OLx,sNx+OLx |
|
./pkg/mom_common/mom_calc_visc.F |
559 |
MOM_CALC_VISC |
viscAh_W(i,j,k,bi,bj) = shiftAh + viscAh_D(i,j) |
|
./pkg/mom_common/mom_calc_visc.F |
560 |
MOM_CALC_VISC |
viscA4_W(i,j,k,bi,bj) = shiftA4 + viscA4_D(i,j) |
|
./pkg/mom_common/mom_calc_visc.F |
566 |
MOM_CALC_VISC |
DO i=1-OLx,sNx+OLx |
|
./pkg/mom_common/mom_calc_visc.F |
567 |
MOM_CALC_VISC |
viscAh_W(i,j,k,bi,bj) = shiftAh + viscAh_W(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_visc.F |
568 |
MOM_CALC_VISC |
& + halfRL*viscAh_D(i,j) |
|
./pkg/mom_common/mom_calc_visc.F |
569 |
MOM_CALC_VISC |
viscA4_W(i,j,k,bi,bj) = shiftA4 + viscA4_W(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_visc.F |
570 |
MOM_CALC_VISC |
& + halfRL*viscA4_D(i,j) |
|
./model/src/calc_wsurf_tr.F |
50 |
CALC_WSURF_TR |
INTEGER i,j,bi,bj,ks |
|
./model/src/calc_wsurf_tr.F |
69 |
CALC_WSURF_TR |
DO i=1,sNx |
|
./model/src/calc_wsurf_tr.F |
70 |
CALC_WSURF_TR |
ks = ksurfC(i,j,bi,bj) |
|
./model/src/calc_wsurf_tr.F |
73 |
CALC_WSURF_TR |
& + rA(i,j,bi,bj)*wVelFld(i,j,ks,bi,bj) |
|
./model/src/calc_wsurf_tr.F |
74 |
CALC_WSURF_TR |
& *thetaFld(i,j,ks,bi,bj) |
|
./model/src/calc_wsurf_tr.F |
76 |
CALC_WSURF_TR |
& + rA(i,j,bi,bj)*wVelFld(i,j,ks,bi,bj) |
|
./model/src/calc_wsurf_tr.F |
77 |
CALC_WSURF_TR |
& *saltFld(i,j,ks,bi,bj) |
|
./pkg/mom_common/mom_hdissip.F |
41 |
MOM_HDISSIP |
INTEGER i, j |
|
./pkg/mom_common/mom_hdissip.F |
46 |
MOM_HDISSIP |
DO i=2-OLx,sNx+OLx-1 |
|
./pkg/mom_common/mom_hdissip.F |
48 |
MOM_HDISSIP |
uDissip(i,j) = |
|
./pkg/mom_common/mom_hdissip.F |
49 |
MOM_HDISSIP |
& recip_dyG(i,j,bi,bj)*recip_dyG(i,j,bi,bj) |
|
./pkg/mom_common/mom_hdissip.F |
50 |
MOM_HDISSIP |
& *recip_dxC(i,j,bi,bj) |
|
./pkg/mom_common/mom_hdissip.F |
52 |
MOM_HDISSIP |
& dyF( i , j ,bi,bj)*dyF( i , j ,bi,bj) |
|
./pkg/mom_common/mom_hdissip.F |
53 |
MOM_HDISSIP |
& *viscAh_t( i , j )*tension( i , j ) |
|
./pkg/mom_common/mom_hdissip.F |
54 |
MOM_HDISSIP |
& -dyF(i-1, j ,bi,bj)*dyF(i-1, j ,bi,bj) |
|
./pkg/mom_common/mom_hdissip.F |
55 |
MOM_HDISSIP |
& *viscAh_t(i-1, j )*tension(i-1, j ) |
|
./pkg/mom_common/mom_hdissip.F |
57 |
MOM_HDISSIP |
& +recip_dxC(i,j,bi,bj)*recip_dxC(i,j,bi,bj) |
|
./pkg/mom_common/mom_hdissip.F |
58 |
MOM_HDISSIP |
& *recip_dyG(i,j,bi,bj) |
|
./pkg/mom_common/mom_hdissip.F |
60 |
MOM_HDISSIP |
& dxV( i ,j+1,bi,bj)*dxV( i ,j+1,bi,bj) |
|
./pkg/mom_common/mom_hdissip.F |
61 |
MOM_HDISSIP |
& *viscAh_s(i,j+1)*strain( i ,j+1) |
|
./pkg/mom_common/mom_hdissip.F |
62 |
MOM_HDISSIP |
& -dxV( i , j ,bi,bj)*dxV( i , j ,bi,bj) |
|
./pkg/mom_common/mom_hdissip.F |
63 |
MOM_HDISSIP |
& *viscAh_s(i, j )*strain( i , j ) |
|
./pkg/mom_common/mom_hdissip.F |
66 |
MOM_HDISSIP |
vDissip(i,j) = |
|
./pkg/mom_common/mom_hdissip.F |
67 |
MOM_HDISSIP |
& recip_dyC(i,j,bi,bj)*recip_dyC(i,j,bi,bj) |
|
./pkg/mom_common/mom_hdissip.F |
68 |
MOM_HDISSIP |
& *recip_dxG(i,j,bi,bj) |
|
./pkg/mom_common/mom_hdissip.F |
70 |
MOM_HDISSIP |
& dyU(i+1, j ,bi,bj)*dyU(i+1, j ,bi,bj) |
|
./pkg/mom_common/mom_hdissip.F |
71 |
MOM_HDISSIP |
& *viscAh_s(i+1,j)*strain(i+1,j) |
|
./pkg/mom_common/mom_hdissip.F |
72 |
MOM_HDISSIP |
& -dyU( i , j ,bi,bj)*dyU( i , j ,bi,bj) |
|
./pkg/mom_common/mom_hdissip.F |
73 |
MOM_HDISSIP |
& *viscAh_s( i ,j)*strain( i ,j) |
|
./pkg/mom_common/mom_hdissip.F |
75 |
MOM_HDISSIP |
& -recip_dxG(i,j,bi,bj)*recip_dxG(i,j,bi,bj) |
|
./pkg/mom_common/mom_hdissip.F |
76 |
MOM_HDISSIP |
& *recip_dyC(i,j,bi,bj) |
|
./pkg/mom_common/mom_hdissip.F |
78 |
MOM_HDISSIP |
& dxF( i , j ,bi,bj)*dxF( i , j ,bi,bj) |
|
./pkg/mom_common/mom_hdissip.F |
79 |
MOM_HDISSIP |
& *viscAh_t(i, j )*tension(i, j ) |
|
./pkg/mom_common/mom_hdissip.F |
80 |
MOM_HDISSIP |
& -dxF( i ,j-1,bi,bj)*dxF( i ,j-1,bi,bj) |
|
./pkg/mom_common/mom_hdissip.F |
81 |
MOM_HDISSIP |
& *viscAh_t(i,j-1)*tension(i,j-1) |
|
./pkg/mom_common/mom_init_fixed.F |
103 |
MOM_INIT_FIXED |
DO i=1-OLx,sNx+OLx |
|
./pkg/mom_common/mom_init_fixed.F |
104 |
MOM_INIT_FIXED |
L2_Z(i,j,bi,bj) = rAz(i,j,bi,bj) |
|
./pkg/mom_common/mom_init_fixed.F |
109 |
MOM_INIT_FIXED |
DO i=1-OLx,sNx+OLx |
|
./pkg/mom_common/mom_init_fixed.F |
110 |
MOM_INIT_FIXED |
IF ( recip_dxV(i,j,bi,bj).NE.0. .OR. |
|
./pkg/mom_common/mom_init_fixed.F |
111 |
MOM_INIT_FIXED |
& recip_dyU(i,j,bi,bj).NE.0. ) THEN |
|
./pkg/mom_common/mom_init_fixed.F |
112 |
MOM_INIT_FIXED |
L2_Z(i,j,bi,bj) = 2. _d 0 |
|
./pkg/mom_common/mom_init_fixed.F |
113 |
MOM_INIT_FIXED |
& /((recip_dxV(i,j,bi,bj)**2+recip_dyU(i,j,bi,bj)**2)) |
|
./pkg/mom_common/mom_init_fixed.F |
119 |
MOM_INIT_FIXED |
DO i=1-OLx,sNx+OLx |
|
./pkg/mom_common/mom_init_fixed.F |
120 |
MOM_INIT_FIXED |
L3_Z(i,j,bi,bj) = L2_Z(i,j,bi,bj)**1.5 |
|
./pkg/mom_common/mom_init_fixed.F |
121 |
MOM_INIT_FIXED |
L4rdt_Z(i,j,bi,bj) = 0.03125 _d 0*recip_dt |
|
./pkg/mom_common/mom_init_fixed.F |
122 |
MOM_INIT_FIXED |
& *L2_Z(i,j,bi,bj)**2 |
|
./pkg/mom_common/mom_init_fixed.F |
128 |
MOM_INIT_FIXED |
DO i=1-OLx,sNx+OLx |
|
./pkg/mom_common/mom_init_fixed.F |
129 |
MOM_INIT_FIXED |
smag3D_hLsC(i,j,bi,bj) = rA (i,j,bi,bj)**twoThird |
|
./pkg/mom_common/mom_init_fixed.F |
130 |
MOM_INIT_FIXED |
smag3D_hLsW(i,j,bi,bj) = rAw(i,j,bi,bj)**twoThird |
|
./pkg/mom_common/mom_init_fixed.F |
131 |
MOM_INIT_FIXED |
smag3D_hLsS(i,j,bi,bj) = rAs(i,j,bi,bj)**twoThird |
|
./pkg/mom_common/mom_init_fixed.F |
132 |
MOM_INIT_FIXED |
smag3D_hLsZ(i,j,bi,bj) = rAz(i,j,bi,bj)**twoThird |
|
./pkg/mom_common/mom_init_fixed.F |
33 |
MOM_INIT_FIXED |
INTEGER i,j,k,bi,bj |
|
./pkg/mom_common/mom_init_fixed.F |
48 |
MOM_INIT_FIXED |
DO i=1-OLx,sNx+OLx |
|
./pkg/mom_common/mom_init_fixed.F |
49 |
MOM_INIT_FIXED |
viscAhDfld(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mom_common/mom_init_fixed.F |
50 |
MOM_INIT_FIXED |
viscAhZfld(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mom_common/mom_init_fixed.F |
58 |
MOM_INIT_FIXED |
DO i=1-OLx,sNx+OLx |
|
./pkg/mom_common/mom_init_fixed.F |
59 |
MOM_INIT_FIXED |
viscA4Dfld(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mom_common/mom_init_fixed.F |
60 |
MOM_INIT_FIXED |
viscA4Zfld(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mom_common/mom_init_fixed.F |
69 |
MOM_INIT_FIXED |
DO i=1-OLx,sNx+OLx |
|
./pkg/mom_common/mom_init_fixed.F |
70 |
MOM_INIT_FIXED |
viscAh_W(i,j,k,bi,bj) = viscAhW |
|
./pkg/mom_common/mom_init_fixed.F |
71 |
MOM_INIT_FIXED |
viscA4_W(i,j,k,bi,bj) = viscA4W |
|
./pkg/mom_common/mom_init_fixed.F |
79 |
MOM_INIT_FIXED |
DO i=1-OLx,sNx+OLx |
|
./pkg/mom_common/mom_init_fixed.F |
80 |
MOM_INIT_FIXED |
L2_D(i,j,bi,bj) = rA(i,j,bi,bj) |
|
./pkg/mom_common/mom_init_fixed.F |
85 |
MOM_INIT_FIXED |
DO i=1-OLx,sNx+OLx |
|
./pkg/mom_common/mom_init_fixed.F |
86 |
MOM_INIT_FIXED |
IF ( recip_dxF(i,j,bi,bj).NE.0. .OR. |
|
./pkg/mom_common/mom_init_fixed.F |
87 |
MOM_INIT_FIXED |
& recip_dyF(i,j,bi,bj).NE.0. ) THEN |
|
./pkg/mom_common/mom_init_fixed.F |
88 |
MOM_INIT_FIXED |
L2_D(i,j,bi,bj) = 2. _d 0 |
|
./pkg/mom_common/mom_init_fixed.F |
89 |
MOM_INIT_FIXED |
& /((recip_dxF(i,j,bi,bj)**2+recip_dyF(i,j,bi,bj)**2)) |
|
./pkg/mom_common/mom_init_fixed.F |
95 |
MOM_INIT_FIXED |
DO i=1-OLx,sNx+OLx |
|
./pkg/mom_common/mom_init_fixed.F |
96 |
MOM_INIT_FIXED |
L3_D(i,j,bi,bj) = L2_D(i,j,bi,bj)**1.5 |
|
./pkg/mom_common/mom_init_fixed.F |
97 |
MOM_INIT_FIXED |
L4rdt_D(i,j,bi,bj) = 0.03125 _d 0*recip_dt |
|
./pkg/mom_common/mom_init_fixed.F |
98 |
MOM_INIT_FIXED |
& *L2_D(i,j,bi,bj)**2 |
|
./pkg/mom_common/mom_quasihydrostatic.F |
100 |
MOM_QUASIHYDROSTATIC |
effectiveBuoy(i,j)=effectiveBuoy(i,j) |
|
./pkg/mom_common/mom_quasihydrostatic.F |
102 |
MOM_QUASIHYDROSTATIC |
& ( (uFld( i ,j,k,bi,bj)*uFld( i ,j,k,bi,bj) |
|
./pkg/mom_common/mom_quasihydrostatic.F |
103 |
MOM_QUASIHYDROSTATIC |
& +uFld(i+1,j,k,bi,bj)*uFld(i+1,j,k,bi,bj)) |
|
./pkg/mom_common/mom_quasihydrostatic.F |
104 |
MOM_QUASIHYDROSTATIC |
& + (vFld(i, j ,k,bi,bj)*vFld(i, j ,k,bi,bj) |
|
./pkg/mom_common/mom_quasihydrostatic.F |
105 |
MOM_QUASIHYDROSTATIC |
& +vFld(i,j+1,k,bi,bj)*vFld(i,j+1,k,bi,bj)) |
|
./pkg/mom_common/mom_quasihydrostatic.F |
53 |
MOM_QUASIHYDROSTATIC |
INTEGER i,j |
|
./pkg/mom_common/mom_quasihydrostatic.F |
84 |
MOM_QUASIHYDROSTATIC |
DO i=iMin,iMax |
|
./pkg/mom_common/mom_quasihydrostatic.F |
85 |
MOM_QUASIHYDROSTATIC |
effectiveBuoy(i,j)=effectiveBuoy(i,j) |
|
./pkg/mom_common/mom_quasihydrostatic.F |
87 |
MOM_QUASIHYDROSTATIC |
& fCoriCos(i,j,bi,bj)* |
|
./pkg/mom_common/mom_quasihydrostatic.F |
88 |
MOM_QUASIHYDROSTATIC |
& ( angleCosC(i,j,bi,bj)*0.5 _d 0 * |
|
./pkg/mom_common/mom_quasihydrostatic.F |
89 |
MOM_QUASIHYDROSTATIC |
& (uFld(i,j,k,bi,bj)+uFld(i+1,j,k,bi,bj)) |
|
./pkg/mom_common/mom_quasihydrostatic.F |
90 |
MOM_QUASIHYDROSTATIC |
& -angleSinC(i,j,bi,bj)*0.5 _d 0 * |
|
./pkg/mom_common/mom_quasihydrostatic.F |
91 |
MOM_QUASIHYDROSTATIC |
& (vFld(i,j,k,bi,bj)+vFld(i,j+1,k,bi,bj)) |
|
./pkg/mom_common/mom_quasihydrostatic.F |
99 |
MOM_QUASIHYDROSTATIC |
DO i=iMin,iMax |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
102 |
MOM_U_BOTDRAG_IMPL |
DO i=1-OLx+1,sNx+OLx-1 |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
103 |
MOM_U_BOTDRAG_IMPL |
cDrag(i,j,k) = cDrag(i,j,k) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
104 |
MOM_U_BOTDRAG_IMPL |
& + recDrF_bot(i,j) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
107 |
MOM_U_BOTDRAG_IMPL |
& + halfRL*( bottomDragFld(i-1,j,bi,bj) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
108 |
MOM_U_BOTDRAG_IMPL |
& + bottomDragFld(i,j,bi,bj) )*dragFac |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
118 |
MOM_U_BOTDRAG_IMPL |
DO i=1-OLx+1,sNx+OLx-1 |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
119 |
MOM_U_BOTDRAG_IMPL |
cDrag(i,j,k) = cDrag(i,j,k) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
120 |
MOM_U_BOTDRAG_IMPL |
& + recDrF_bot(i,j) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
121 |
MOM_U_BOTDRAG_IMPL |
& *( kappaRU(i,j,kLowF)*recDrC*viscFac |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
122 |
MOM_U_BOTDRAG_IMPL |
& *_recip_hFacW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
129 |
MOM_U_BOTDRAG_IMPL |
DO i=1-OLx+1,sNx+OLx-1 |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
130 |
MOM_U_BOTDRAG_IMPL |
cDrag(i,j,k) = cDrag(i,j,k) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
131 |
MOM_U_BOTDRAG_IMPL |
& + recDrF_bot(i,j) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
132 |
MOM_U_BOTDRAG_IMPL |
& *( kappaRU(i,j,kLowF)*recDrC*viscFac |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
141 |
MOM_U_BOTDRAG_IMPL |
DO i=1-OLx,sNx+OLx-1 |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
142 |
MOM_U_BOTDRAG_IMPL |
KE(i,j) = 0.25*( |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
143 |
MOM_U_BOTDRAG_IMPL |
& ( uFld( i , j ,k)*uFld( i , j ,k)*_hFacW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
144 |
MOM_U_BOTDRAG_IMPL |
& +uFld(i+1, j ,k)*uFld(i+1, j ,k)*_hFacW(i+1,j,k,bi,bj) ) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
145 |
MOM_U_BOTDRAG_IMPL |
& + ( vFld( i , j ,k)*vFld( i , j ,k)*_hFacS(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
146 |
MOM_U_BOTDRAG_IMPL |
& +vFld( i ,j+1,k)*vFld( i ,j+1,k)*_hFacS(i,j+1,k,bi,bj) ) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
147 |
MOM_U_BOTDRAG_IMPL |
& )*_recip_hFacC(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
152 |
MOM_U_BOTDRAG_IMPL |
DO i=1-OLx+1,sNx+OLx-1 |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
153 |
MOM_U_BOTDRAG_IMPL |
IF ( (KE(i,j)+KE(i-1,j)) .GT. 0. ) THEN |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
154 |
MOM_U_BOTDRAG_IMPL |
cDrag(i,j,k) = cDrag(i,j,k) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
155 |
MOM_U_BOTDRAG_IMPL |
& + recDrF_bot(i,j) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
156 |
MOM_U_BOTDRAG_IMPL |
& *bottomDragQuadratic*SQRT(KE(i,j)+KE(i-1,j))*dragFac |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
164 |
MOM_U_BOTDRAG_IMPL |
DO i=1-OLx+1,sNx+OLx-1 |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
165 |
MOM_U_BOTDRAG_IMPL |
uSq = uFld(i,j,k)*uFld(i,j,k) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
166 |
MOM_U_BOTDRAG_IMPL |
& + ( (vFld(i-1, j ,k)*vFld(i-1, j ,k)*hFacS(i-1, j ,k,bi,bj) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
167 |
MOM_U_BOTDRAG_IMPL |
& +vFld( i , j ,k)*vFld( i , j ,k)*hFacS( i , j ,k,bi,bj)) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
168 |
MOM_U_BOTDRAG_IMPL |
& + (vFld(i-1,j+1,k)*vFld(i-1,j+1,k)*hFacS(i-1,j+1,k,bi,bj) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
169 |
MOM_U_BOTDRAG_IMPL |
& +vFld( i ,j+1,k)*vFld( i ,j+1,k)*hFacS( i ,j+1,k,bi,bj)) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
170 |
MOM_U_BOTDRAG_IMPL |
& )*recip_hFacW(i,j,k,bi,bj)*0.25 _d 0 |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
172 |
MOM_U_BOTDRAG_IMPL |
cDrag(i,j,k) = cDrag(i,j,k) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
173 |
MOM_U_BOTDRAG_IMPL |
& + recDrF_bot(i,j) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
182 |
MOM_U_BOTDRAG_IMPL |
DO i=1-OLx+1,sNx+OLx-1 |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
183 |
MOM_U_BOTDRAG_IMPL |
uSq = ( hFacS(i-1, j ,k,bi,bj) + hFacS( i , j ,k,bi,bj) ) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
184 |
MOM_U_BOTDRAG_IMPL |
& + ( hFacS(i-1,j+1,k,bi,bj) + hFacS( i ,j+1,k,bi,bj) ) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
186 |
MOM_U_BOTDRAG_IMPL |
uSq = uFld(i,j,k)*uFld(i,j,k) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
187 |
MOM_U_BOTDRAG_IMPL |
& +( (vFld(i-1, j ,k)*vFld(i-1, j ,k)*hFacS(i-1, j ,k,bi,bj) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
188 |
MOM_U_BOTDRAG_IMPL |
& +vFld( i , j ,k)*vFld( i , j ,k)*hFacS( i , j ,k,bi,bj)) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
189 |
MOM_U_BOTDRAG_IMPL |
& + (vFld(i-1,j+1,k)*vFld(i-1,j+1,k)*hFacS(i-1,j+1,k,bi,bj) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
190 |
MOM_U_BOTDRAG_IMPL |
& +vFld( i ,j+1,k)*vFld( i ,j+1,k)*hFacS( i ,j+1,k,bi,bj)) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
193 |
MOM_U_BOTDRAG_IMPL |
uSq = uFld(i,j,k)*uFld(i,j,k) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
196 |
MOM_U_BOTDRAG_IMPL |
cDrag(i,j,k) = cDrag(i,j,k) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
197 |
MOM_U_BOTDRAG_IMPL |
& + recDrF_bot(i,j) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
55 |
MOM_U_BOTDRAG_IMPL |
INTEGER i,j,k |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
86 |
MOM_U_BOTDRAG_IMPL |
DO i=1-OLx,sNx+OLx |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
87 |
MOM_U_BOTDRAG_IMPL |
recDrF_bot(i,j) = _recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
93 |
MOM_U_BOTDRAG_IMPL |
DO i=1-OLx,sNx+OLx |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
94 |
MOM_U_BOTDRAG_IMPL |
recDrF_bot(i,j) = _recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
95 |
MOM_U_BOTDRAG_IMPL |
& * ( 1. _d 0 -_maskW(i,j,kDown,bi,bj) ) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
100 |
MOM_U_BOTTOMDRAG |
& - recDrF_bot(i,j) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
103 |
MOM_U_BOTTOMDRAG |
& + halfRL*( bottomDragFld(i-1,j,bi,bj) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
104 |
MOM_U_BOTTOMDRAG |
& + bottomDragFld(i,j,bi,bj) )*dragFac |
|
./pkg/mom_common/mom_u_bottomdrag.F |
106 |
MOM_U_BOTTOMDRAG |
& )*uFld(i,j) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
114 |
MOM_U_BOTTOMDRAG |
DO i=1-OLx+1,sNx+OLx-1 |
|
./pkg/mom_common/mom_u_bottomdrag.F |
115 |
MOM_U_BOTTOMDRAG |
uDragTerms(i,j) = uDragTerms(i,j) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
116 |
MOM_U_BOTTOMDRAG |
& - recDrF_bot(i,j) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
117 |
MOM_U_BOTTOMDRAG |
& *( kappaRU(i,j,kLowF)*recDrC*viscFac |
|
./pkg/mom_common/mom_u_bottomdrag.F |
118 |
MOM_U_BOTTOMDRAG |
& *_recip_hFacW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
119 |
MOM_U_BOTTOMDRAG |
& )*uFld(i,j) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
125 |
MOM_U_BOTTOMDRAG |
DO i=1-OLx+1,sNx+OLx-1 |
|
./pkg/mom_common/mom_u_bottomdrag.F |
126 |
MOM_U_BOTTOMDRAG |
uDragTerms(i,j) = uDragTerms(i,j) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
127 |
MOM_U_BOTTOMDRAG |
& - recDrF_bot(i,j) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
128 |
MOM_U_BOTTOMDRAG |
& *( kappaRU(i,j,kLowF)*recDrC*viscFac |
|
./pkg/mom_common/mom_u_bottomdrag.F |
129 |
MOM_U_BOTTOMDRAG |
& )*uFld(i,j) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
138 |
MOM_U_BOTTOMDRAG |
DO i=1-OLx+1,sNx+OLx-1 |
|
./pkg/mom_common/mom_u_bottomdrag.F |
139 |
MOM_U_BOTTOMDRAG |
IF ( (KE(i,j)+KE(i-1,j)) .GT. 0. ) THEN |
|
./pkg/mom_common/mom_u_bottomdrag.F |
140 |
MOM_U_BOTTOMDRAG |
uDragTerms(i,j) = uDragTerms(i,j) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
141 |
MOM_U_BOTTOMDRAG |
& - recDrF_bot(i,j) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
142 |
MOM_U_BOTTOMDRAG |
& *bottomDragQuadratic*SQRT(KE(i,j)+KE(i-1,j))*dragFac |
|
./pkg/mom_common/mom_u_bottomdrag.F |
143 |
MOM_U_BOTTOMDRAG |
& *uFld(i,j) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
150 |
MOM_U_BOTTOMDRAG |
DO i=1-OLx+1,sNx+OLx-1 |
|
./pkg/mom_common/mom_u_bottomdrag.F |
151 |
MOM_U_BOTTOMDRAG |
uSq = uFld(i,j)*uFld(i,j) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
152 |
MOM_U_BOTTOMDRAG |
& + ( (vFld(i-1, j )*vFld(i-1, j )*hFacS(i-1, j ,k,bi,bj) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
153 |
MOM_U_BOTTOMDRAG |
& +vFld( i , j )*vFld( i , j )*hFacS( i , j ,k,bi,bj)) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
154 |
MOM_U_BOTTOMDRAG |
& + (vFld(i-1,j+1)*vFld(i-1,j+1)*hFacS(i-1,j+1,k,bi,bj) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
155 |
MOM_U_BOTTOMDRAG |
& +vFld( i ,j+1)*vFld( i ,j+1)*hFacS( i ,j+1,k,bi,bj)) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
156 |
MOM_U_BOTTOMDRAG |
& )*recip_hFacW(i,j,k,bi,bj)*0.25 _d 0 |
|
./pkg/mom_common/mom_u_bottomdrag.F |
158 |
MOM_U_BOTTOMDRAG |
uDragTerms(i,j) = uDragTerms(i,j) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
159 |
MOM_U_BOTTOMDRAG |
& - recDrF_bot(i,j) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
161 |
MOM_U_BOTTOMDRAG |
& *uFld(i,j) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
168 |
MOM_U_BOTTOMDRAG |
DO i=1-OLx+1,sNx+OLx-1 |
|
./pkg/mom_common/mom_u_bottomdrag.F |
169 |
MOM_U_BOTTOMDRAG |
uSq = ( hFacS(i-1, j ,k,bi,bj) + hFacS( i , j ,k,bi,bj) ) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
170 |
MOM_U_BOTTOMDRAG |
& + ( hFacS(i-1,j+1,k,bi,bj) + hFacS( i ,j+1,k,bi,bj) ) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
172 |
MOM_U_BOTTOMDRAG |
uSq = uFld(i,j)*uFld(i,j) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
173 |
MOM_U_BOTTOMDRAG |
& +( (vFld(i-1, j )*vFld(i-1, j )*hFacS(i-1, j ,k,bi,bj) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
174 |
MOM_U_BOTTOMDRAG |
& +vFld( i , j )*vFld( i , j )*hFacS( i , j ,k,bi,bj)) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
175 |
MOM_U_BOTTOMDRAG |
& + (vFld(i-1,j+1)*vFld(i-1,j+1)*hFacS(i-1,j+1,k,bi,bj) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
176 |
MOM_U_BOTTOMDRAG |
& +vFld( i ,j+1)*vFld( i ,j+1)*hFacS( i ,j+1,k,bi,bj)) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
179 |
MOM_U_BOTTOMDRAG |
uSq = uFld(i,j)*uFld(i,j) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
182 |
MOM_U_BOTTOMDRAG |
uDragTerms(i,j) = uDragTerms(i,j) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
183 |
MOM_U_BOTTOMDRAG |
& - recDrF_bot(i,j) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
185 |
MOM_U_BOTTOMDRAG |
& *uFld(i,j) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
56 |
MOM_U_BOTTOMDRAG |
INTEGER i,j,kDown,kLowF,kBottom |
|
./pkg/mom_common/mom_u_bottomdrag.F |
82 |
MOM_U_BOTTOMDRAG |
DO i=1-OLx,sNx+OLx |
|
./pkg/mom_common/mom_u_bottomdrag.F |
83 |
MOM_U_BOTTOMDRAG |
recDrF_bot(i,j) = _recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
89 |
MOM_U_BOTTOMDRAG |
DO i=1-OLx,sNx+OLx |
|
./pkg/mom_common/mom_u_bottomdrag.F |
90 |
MOM_U_BOTTOMDRAG |
recDrF_bot(i,j) = _recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
91 |
MOM_U_BOTTOMDRAG |
& * ( 1. _d 0 -_maskW(i,j,kDown,bi,bj) ) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
98 |
MOM_U_BOTTOMDRAG |
DO i=1-OLx+1,sNx+OLx-1 |
|
./pkg/mom_common/mom_u_bottomdrag.F |
99 |
MOM_U_BOTTOMDRAG |
uDragTerms(i,j) = |
|
./pkg/mom_common/mom_u_coriolis_nh.F |
44 |
MOM_U_CORIOLIS_NH |
INTEGER i,j,kp1 |
|
./pkg/mom_common/mom_u_coriolis_nh.F |
55 |
MOM_U_CORIOLIS_NH |
DO i=2-Olx,sNx+Olx |
|
./pkg/mom_common/mom_u_coriolis_nh.F |
56 |
MOM_U_CORIOLIS_NH |
uCoriolisTerm(i,j) = |
|
./pkg/mom_common/mom_u_coriolis_nh.F |
57 |
MOM_U_CORIOLIS_NH |
& 0.5*( fCoriCos( i ,j,bi,bj)*angleCosC( i ,j,bi,bj) |
|
./pkg/mom_common/mom_u_coriolis_nh.F |
58 |
MOM_U_CORIOLIS_NH |
& *0.5*( wFld( i ,j, k ,bi,bj)*rVel2wUnit( k ) |
|
./pkg/mom_common/mom_u_coriolis_nh.F |
59 |
MOM_U_CORIOLIS_NH |
& +wFld( i ,j,kp1,bi,bj)*rVel2wUnit(kp1)*wMsk ) |
|
./pkg/mom_common/mom_u_coriolis_nh.F |
60 |
MOM_U_CORIOLIS_NH |
& + fCoriCos(i-1,j,bi,bj)*angleCosC(i-1,j,bi,bj) |
|
./pkg/mom_common/mom_u_coriolis_nh.F |
61 |
MOM_U_CORIOLIS_NH |
& *0.5*( wFld(i-1,j, k ,bi,bj)*rVel2wUnit( k ) |
|
./pkg/mom_common/mom_u_coriolis_nh.F |
62 |
MOM_U_CORIOLIS_NH |
& +wFld(i-1,j,kp1,bi,bj)*rVel2wUnit(kp1)*wMsk ) |
|
./pkg/mom_common/mom_u_implicit_r.F |
107 |
MOM_U_IMPLICIT_R |
DO i=iMin,iMax |
|
./pkg/mom_common/mom_u_implicit_r.F |
108 |
MOM_U_IMPLICIT_R |
IF (maskW(i,j,k+1,bi,bj).EQ.oneRS) |
|
./pkg/mom_common/mom_u_implicit_r.F |
109 |
MOM_U_IMPLICIT_R |
& d5d(i,j,k) = -deltaTMom |
|
./pkg/mom_common/mom_u_implicit_r.F |
110 |
MOM_U_IMPLICIT_R |
& *_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
112 |
MOM_U_IMPLICIT_R |
& *kappaRU(i,j,k+1)*recip_drC(k+1) |
|
./pkg/mom_common/mom_u_implicit_r.F |
120 |
MOM_U_IMPLICIT_R |
DO i=iMin,iMax |
|
./pkg/mom_common/mom_u_implicit_r.F |
121 |
MOM_U_IMPLICIT_R |
c5d(i,j,k) = 1. _d 0 - ( b5d(i,j,k) + d5d(i,j,k) ) |
|
./pkg/mom_common/mom_u_implicit_r.F |
147 |
MOM_U_IMPLICIT_R |
DO i=iMin,iMax |
|
./pkg/mom_common/mom_u_implicit_r.F |
148 |
MOM_U_IMPLICIT_R |
rTrans(i,j) = 0.5 _d 0 * ( |
|
./pkg/mom_common/mom_u_implicit_r.F |
149 |
MOM_U_IMPLICIT_R |
& wVel( i ,j,k,bi,bj)*rA( i ,j,bi,bj) |
|
./pkg/mom_common/mom_u_implicit_r.F |
150 |
MOM_U_IMPLICIT_R |
& *maskC( i ,j,k-1,bi,bj) |
|
./pkg/mom_common/mom_u_implicit_r.F |
151 |
MOM_U_IMPLICIT_R |
& + wVel(i-1,j,k,bi,bj)*rA(i-1,j,bi,bj) |
|
./pkg/mom_common/mom_u_implicit_r.F |
152 |
MOM_U_IMPLICIT_R |
& *maskC(i-1,j,k-1,bi,bj) |
|
./pkg/mom_common/mom_u_implicit_r.F |
165 |
MOM_U_IMPLICIT_R |
DO i=iMin,iMax |
|
./pkg/mom_common/mom_u_implicit_r.F |
166 |
MOM_U_IMPLICIT_R |
rCenter = 0.5 _d 0 *deltaTMom*rTrans(i,j) |
|
./pkg/mom_common/mom_u_implicit_r.F |
167 |
MOM_U_IMPLICIT_R |
& *recip_rAw(i,j,bi,bj)*rkSign |
|
./pkg/mom_common/mom_u_implicit_r.F |
169 |
MOM_U_IMPLICIT_R |
b5d(i,j,k) = b5d(i,j,k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
171 |
MOM_U_IMPLICIT_R |
& *_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
173 |
MOM_U_IMPLICIT_R |
c5d(i,j,k) = c5d(i,j,k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
175 |
MOM_U_IMPLICIT_R |
& *_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
177 |
MOM_U_IMPLICIT_R |
c5d(i,j,k-1) = c5d(i,j,k-1) |
|
./pkg/mom_common/mom_u_implicit_r.F |
179 |
MOM_U_IMPLICIT_R |
& *_recip_hFacW(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/mom_common/mom_u_implicit_r.F |
181 |
MOM_U_IMPLICIT_R |
d5d(i,j,k-1) = d5d(i,j,k-1) |
|
./pkg/mom_common/mom_u_implicit_r.F |
183 |
MOM_U_IMPLICIT_R |
& *_recip_hFacW(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/mom_common/mom_u_implicit_r.F |
190 |
MOM_U_IMPLICIT_R |
DO i=iMin,iMax |
|
./pkg/mom_common/mom_u_implicit_r.F |
191 |
MOM_U_IMPLICIT_R |
rCenter = 0.5 _d 0 *deltaTMom*rTrans(i,j) |
|
./pkg/mom_common/mom_u_implicit_r.F |
192 |
MOM_U_IMPLICIT_R |
& *recip_rAw(i,j,bi,bj)*rkSign |
|
./pkg/mom_common/mom_u_implicit_r.F |
193 |
MOM_U_IMPLICIT_R |
b5d(i,j,k) = b5d(i,j,k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
194 |
MOM_U_IMPLICIT_R |
& - rCenter*_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
196 |
MOM_U_IMPLICIT_R |
c5d(i,j,k) = c5d(i,j,k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
197 |
MOM_U_IMPLICIT_R |
& - rCenter*_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
199 |
MOM_U_IMPLICIT_R |
c5d(i,j,k-1) = c5d(i,j,k-1) |
|
./pkg/mom_common/mom_u_implicit_r.F |
200 |
MOM_U_IMPLICIT_R |
& + rCenter*_recip_hFacW(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/mom_common/mom_u_implicit_r.F |
202 |
MOM_U_IMPLICIT_R |
d5d(i,j,k-1) = d5d(i,j,k-1) |
|
./pkg/mom_common/mom_u_implicit_r.F |
203 |
MOM_U_IMPLICIT_R |
& + rCenter*_recip_hFacW(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/mom_common/mom_u_implicit_r.F |
220 |
MOM_U_IMPLICIT_R |
DO i=iMin,iMax |
|
./pkg/mom_common/mom_u_implicit_r.F |
221 |
MOM_U_IMPLICIT_R |
IF ( c5d(i,j,k).NE.zeroRL ) THEN |
|
./pkg/mom_common/mom_u_implicit_r.F |
222 |
MOM_U_IMPLICIT_R |
c5d(i,j,k) = 1. _d 0 / c5d(i,j,k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
224 |
MOM_U_IMPLICIT_R |
c5d(i,j,k) = 0. _d 0 |
|
./pkg/mom_common/mom_u_implicit_r.F |
230 |
MOM_U_IMPLICIT_R |
DO i=iMin,iMax |
|
./pkg/mom_common/mom_u_implicit_r.F |
231 |
MOM_U_IMPLICIT_R |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)*c5d(i,j,k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
257 |
MOM_U_IMPLICIT_R |
DO i=iMin,iMax |
|
./pkg/mom_common/mom_u_implicit_r.F |
258 |
MOM_U_IMPLICIT_R |
dU_psFacX(i,j,k,bi,bj) = maskW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_u_implicit_r.F |
266 |
MOM_U_IMPLICIT_R |
DO i=iMin,iMax |
|
./pkg/mom_common/mom_u_implicit_r.F |
267 |
MOM_U_IMPLICIT_R |
dU_psFacX(i,j,k,bi,bj) = dU_psFacX(i,j,k,bi,bj)*c5d(i,j,k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
291 |
MOM_U_IMPLICIT_R |
DO i=1-OLx,sNx+OLx |
|
./pkg/mom_common/mom_u_implicit_r.F |
292 |
MOM_U_IMPLICIT_R |
vf(i,j) = 0. _d 0 |
|
./pkg/mom_common/mom_u_implicit_r.F |
297 |
MOM_U_IMPLICIT_R |
DO i=iMin,iMax |
|
./pkg/mom_common/mom_u_implicit_r.F |
298 |
MOM_U_IMPLICIT_R |
vf(i,j) = -rAw(i,j,bi,bj)*deepFac2F(k)*rhoFacF(k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
299 |
MOM_U_IMPLICIT_R |
& * kappaRU(i,j,k)*recip_drC(k)*rkSign |
|
./pkg/mom_common/mom_u_implicit_r.F |
300 |
MOM_U_IMPLICIT_R |
& * (gU(i,j,k,bi,bj) - gU(i,j,k-1,bi,bj)) |
|
./pkg/mom_common/mom_u_implicit_r.F |
301 |
MOM_U_IMPLICIT_R |
& *_maskW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_u_implicit_r.F |
302 |
MOM_U_IMPLICIT_R |
& *_maskW(i,j,k-1,bi,bj) |
|
./pkg/mom_common/mom_u_implicit_r.F |
52 |
MOM_U_IMPLICIT_R |
INTEGER i,j,k |
|
./pkg/mom_common/mom_u_implicit_r.F |
76 |
MOM_U_IMPLICIT_R |
DO i=1-OLx,sNx+OLx |
|
./pkg/mom_common/mom_u_implicit_r.F |
78 |
MOM_U_IMPLICIT_R |
b5d(i,j,k) = 0. _d 0 |
|
./pkg/mom_common/mom_u_implicit_r.F |
79 |
MOM_U_IMPLICIT_R |
c5d(i,j,k) = 1. _d 0 |
|
./pkg/mom_common/mom_u_implicit_r.F |
80 |
MOM_U_IMPLICIT_R |
d5d(i,j,k) = 0. _d 0 |
|
./pkg/mom_common/mom_u_implicit_r.F |
94 |
MOM_U_IMPLICIT_R |
DO i=iMin,iMax |
|
./pkg/mom_common/mom_u_implicit_r.F |
95 |
MOM_U_IMPLICIT_R |
IF (maskW(i,j,k-1,bi,bj).EQ.oneRS) |
|
./pkg/mom_common/mom_u_implicit_r.F |
96 |
MOM_U_IMPLICIT_R |
& b5d(i,j,k) = -deltaTMom |
|
./pkg/mom_common/mom_u_implicit_r.F |
97 |
MOM_U_IMPLICIT_R |
& *_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
99 |
MOM_U_IMPLICIT_R |
& *kappaRU(i,j, k )*recip_drC( k ) |
|
./pkg/mom_common/mom_u_metric_nh.F |
46 |
MOM_U_METRIC_NH |
INTEGER i,j,kp1 |
|
./pkg/mom_common/mom_u_metric_nh.F |
55 |
MOM_U_METRIC_NH |
DO i=1-Olx+1,sNx+Olx |
|
./pkg/mom_common/mom_u_metric_nh.F |
56 |
MOM_U_METRIC_NH |
uMetricTerms(i,j) = uFld(i,j)*recip_rSphere*recip_deepFacC(k) |
|
./pkg/mom_common/mom_u_metric_nh.F |
57 |
MOM_U_METRIC_NH |
& *0.25*( (wFld(i-1,j,kp1,bi,bj)+wFld(i,j,kp1,bi,bj)) |
|
./pkg/mom_common/mom_u_metric_nh.F |
59 |
MOM_U_METRIC_NH |
& + (wFld(i-1,j, k ,bi,bj)+wFld(i,j, k ,bi,bj)) |
|
./pkg/mom_common/mom_u_rviscflux.F |
47 |
MOM_U_RVISCFLUX |
INTEGER i,j |
|
./pkg/mom_common/mom_u_rviscflux.F |
53 |
MOM_U_RVISCFLUX |
DO i=1-Olx,sNx+Olx |
|
./pkg/mom_common/mom_u_rviscflux.F |
54 |
MOM_U_RVISCFLUX |
rViscFluxU(i,j) = 0. _d 0 |
|
./pkg/mom_common/mom_u_rviscflux.F |
59 |
MOM_U_RVISCFLUX |
DO i=1-Olx,sNx+Olx-1 |
|
./pkg/mom_common/mom_u_rviscflux.F |
60 |
MOM_U_RVISCFLUX |
rViscFluxU(i,j) = |
|
./pkg/mom_common/mom_u_rviscflux.F |
61 |
MOM_U_RVISCFLUX |
& -KappaRU(i,j,k) |
|
./pkg/mom_common/mom_u_rviscflux.F |
62 |
MOM_U_RVISCFLUX |
& *rAw(i,j,bi,bj)*deepFac2F(k)*rhoFacF(k) |
|
./pkg/mom_common/mom_u_rviscflux.F |
63 |
MOM_U_RVISCFLUX |
& *( uFld(i,j,k,bi,bj)-uFld(i,j,k-1,bi,bj) |
|
./pkg/mom_common/mom_u_rviscflux.F |
65 |
MOM_U_RVISCFLUX |
& *_maskW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_u_rviscflux.F |
66 |
MOM_U_RVISCFLUX |
& *_maskW(i,j,k-1,bi,bj) |
|
./model/src/cg2d.F |
120 |
CG2D |
DO i=1,sNx |
|
./model/src/cg2d.F |
121 |
CG2D |
cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj)*cg2dNorm |
|
./model/src/cg2d.F |
122 |
CG2D |
rhsMax = MAX(ABS(cg2d_b(i,j,bi,bj)),rhsMax) |
|
./model/src/cg2d.F |
136 |
CG2D |
DO i=1,sNx |
|
./model/src/cg2d.F |
137 |
CG2D |
cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj)*rhsNorm |
|
./model/src/cg2d.F |
138 |
CG2D |
cg2d_x(i,j,bi,bj) = cg2d_x(i,j,bi,bj)*rhsNorm |
|
./model/src/cg2d.F |
154 |
CG2D |
DO i=1,sNx |
|
./model/src/cg2d.F |
155 |
CG2D |
cg2d_min(i,j,bi,bj) = cg2d_x(i,j,bi,bj) |
|
./model/src/cg2d.F |
160 |
CG2D |
DO i=0,sNx+1 |
|
./model/src/cg2d.F |
161 |
CG2D |
cg2d_s(i,j,bi,bj) = 0. |
|
./model/src/cg2d.F |
170 |
CG2D |
DO i=1,sNx |
|
./model/src/cg2d.F |
171 |
CG2D |
cg2d_r(i,j,bi,bj) = cg2d_b(i,j,bi,bj) - |
|
./model/src/cg2d.F |
172 |
CG2D |
& (aW2d(i ,j ,bi,bj)*cg2d_x(i-1,j ,bi,bj) |
|
./model/src/cg2d.F |
173 |
CG2D |
& +aW2d(i+1,j ,bi,bj)*cg2d_x(i+1,j ,bi,bj) |
|
./model/src/cg2d.F |
174 |
CG2D |
& +aS2d(i ,j ,bi,bj)*cg2d_x(i ,j-1,bi,bj) |
|
./model/src/cg2d.F |
175 |
CG2D |
& +aS2d(i ,j+1,bi,bj)*cg2d_x(i ,j+1,bi,bj) |
|
./model/src/cg2d.F |
176 |
CG2D |
& +aC2d(i ,j ,bi,bj)*cg2d_x(i ,j ,bi,bj) |
|
./model/src/cg2d.F |
179 |
CG2D |
localBuf(i,j,bi,bj) = cg2d_r(i,j,bi,bj)*cg2d_r(i,j,bi,bj) |
|
./model/src/cg2d.F |
182 |
CG2D |
& + cg2d_r(i,j,bi,bj)*cg2d_r(i,j,bi,bj) |
|
./model/src/cg2d.F |
183 |
CG2D |
sumRHStile(bi,bj) = sumRHStile(bi,bj) + cg2d_b(i,j,bi,bj) |
|
./model/src/cg2d.F |
227 |
CG2D |
DO i=1,sNx |
|
./model/src/cg2d.F |
228 |
CG2D |
cg2d_q(i,j,bi,bj) = |
|
./model/src/cg2d.F |
229 |
CG2D |
& pC(i ,j ,bi,bj)*cg2d_r(i ,j ,bi,bj) |
|
./model/src/cg2d.F |
230 |
CG2D |
& +pW(i ,j ,bi,bj)*cg2d_r(i-1,j ,bi,bj) |
|
./model/src/cg2d.F |
231 |
CG2D |
& +pW(i+1,j ,bi,bj)*cg2d_r(i+1,j ,bi,bj) |
|
./model/src/cg2d.F |
232 |
CG2D |
& +pS(i ,j ,bi,bj)*cg2d_r(i ,j-1,bi,bj) |
|
./model/src/cg2d.F |
233 |
CG2D |
& +pS(i ,j+1,bi,bj)*cg2d_r(i ,j+1,bi,bj) |
|
./model/src/cg2d.F |
238 |
CG2D |
localBuf(i,j,bi,bj) = |
|
./model/src/cg2d.F |
239 |
CG2D |
& cg2d_q(i,j,bi,bj)*cg2d_r(i,j,bi,bj) |
|
./model/src/cg2d.F |
242 |
CG2D |
& +cg2d_q(i,j,bi,bj)*cg2d_r(i,j,bi,bj) |
|
./model/src/cg2d.F |
264 |
CG2D |
DO i=1,sNx |
|
./model/src/cg2d.F |
265 |
CG2D |
cg2d_s(i,j,bi,bj) = cg2d_q(i,j,bi,bj) |
|
./model/src/cg2d.F |
266 |
CG2D |
& + cgBeta*cg2d_s(i,j,bi,bj) |
|
./model/src/cg2d.F |
284 |
CG2D |
DO i=1,sNx |
|
./model/src/cg2d.F |
285 |
CG2D |
cg2d_q(i,j,bi,bj) = |
|
./model/src/cg2d.F |
286 |
CG2D |
& aW2d(i ,j ,bi,bj)*cg2d_s(i-1,j ,bi,bj) |
|
./model/src/cg2d.F |
287 |
CG2D |
& +aW2d(i+1,j ,bi,bj)*cg2d_s(i+1,j ,bi,bj) |
|
./model/src/cg2d.F |
288 |
CG2D |
& +aS2d(i ,j ,bi,bj)*cg2d_s(i ,j-1,bi,bj) |
|
./model/src/cg2d.F |
289 |
CG2D |
& +aS2d(i ,j+1,bi,bj)*cg2d_s(i ,j+1,bi,bj) |
|
./model/src/cg2d.F |
290 |
CG2D |
& +aC2d(i ,j ,bi,bj)*cg2d_s(i ,j ,bi,bj) |
|
./model/src/cg2d.F |
292 |
CG2D |
localBuf(i,j,bi,bj) = cg2d_s(i,j,bi,bj)*cg2d_q(i,j,bi,bj) |
|
./model/src/cg2d.F |
295 |
CG2D |
& + cg2d_s(i,j,bi,bj)*cg2d_q(i,j,bi,bj) |
|
./model/src/cg2d.F |
318 |
CG2D |
DO i=1,sNx |
|
./model/src/cg2d.F |
319 |
CG2D |
cg2d_x(i,j,bi,bj)=cg2d_x(i,j,bi,bj)+alpha*cg2d_s(i,j,bi,bj) |
|
./model/src/cg2d.F |
320 |
CG2D |
cg2d_r(i,j,bi,bj)=cg2d_r(i,j,bi,bj)-alpha*cg2d_q(i,j,bi,bj) |
|
./model/src/cg2d.F |
322 |
CG2D |
localBuf(i,j,bi,bj) = cg2d_r(i,j,bi,bj)*cg2d_r(i,j,bi,bj) |
|
./model/src/cg2d.F |
325 |
CG2D |
& + cg2d_r(i,j,bi,bj)*cg2d_r(i,j,bi,bj) |
|
./model/src/cg2d.F |
354 |
CG2D |
DO i=1,sNx |
|
./model/src/cg2d.F |
355 |
CG2D |
cg2d_min(i,j,bi,bj) = cg2d_x(i,j,bi,bj) |
|
./model/src/cg2d.F |
372 |
CG2D |
DO i=1,sNx |
|
./model/src/cg2d.F |
373 |
CG2D |
cg2d_x(i,j,bi,bj) = cg2d_min(i,j,bi,bj) |
|
./model/src/cg2d.F |
385 |
CG2D |
DO i=1,sNx |
|
./model/src/cg2d.F |
386 |
CG2D |
cg2d_x(i,j,bi,bj) = cg2d_x(i,j,bi,bj)/rhsNorm |
|
./model/src/cg2d.F |
91 |
CG2D |
INTEGER i, j, it2d |
|
./pkg/mom_common/mom_u_sidedrag.F |
108 |
MOM_U_SIDEDRAG |
DO i=2-OLx,sNx+OLx-1 |
|
./pkg/mom_common/mom_u_sidedrag.F |
110 |
MOM_U_SIDEDRAG |
hFacZClosedS = h0FacW(i,j,k,bi,bj) - hFacZ(i,j) |
|
./pkg/mom_common/mom_u_sidedrag.F |
111 |
MOM_U_SIDEDRAG |
hFacZClosedN = h0FacW(i,j,k,bi,bj) - hFacZ(i,j+1) |
|
./pkg/mom_common/mom_u_sidedrag.F |
113 |
MOM_U_SIDEDRAG |
hFacZClosedS = _hFacW(i,j,k,bi,bj) - hFacZ(i,j) |
|
./pkg/mom_common/mom_u_sidedrag.F |
114 |
MOM_U_SIDEDRAG |
hFacZClosedN = _hFacW(i,j,k,bi,bj) - hFacZ(i,j+1) |
|
./pkg/mom_common/mom_u_sidedrag.F |
116 |
MOM_U_SIDEDRAG |
uDragTerms(i,j) = |
|
./pkg/mom_common/mom_u_sidedrag.F |
117 |
MOM_U_SIDEDRAG |
& -_recip_hFacW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
118 |
MOM_U_SIDEDRAG |
& *recip_drF(k)*recip_rAw(i,j,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
119 |
MOM_U_SIDEDRAG |
& *( hFacZClosedS*_dxV(i, j ,bi,bj)*_recip_dyU(i, j ,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
121 |
MOM_U_SIDEDRAG |
& *( viscAh_Z(i,j )*uFld(i,j)*cosFacU(j,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
123 |
MOM_U_SIDEDRAG |
& -viscA4_Z(i,j )*del2u(i,j)*sqcosFacU(j,bi,bj) ) |
|
./pkg/mom_common/mom_u_sidedrag.F |
125 |
MOM_U_SIDEDRAG |
& -viscA4_Z(i,j )*del2u(i,j)*cosFacU(j,bi,bj) ) |
|
./pkg/mom_common/mom_u_sidedrag.F |
128 |
MOM_U_SIDEDRAG |
& *( viscAh_Z(i,j )*uFld(i,j) |
|
./pkg/mom_common/mom_u_sidedrag.F |
129 |
MOM_U_SIDEDRAG |
& -viscA4_Z(i,j )*del2u(i,j) ) |
|
./pkg/mom_common/mom_u_sidedrag.F |
131 |
MOM_U_SIDEDRAG |
& +hFacZClosedN*_dxV(i,j+1,bi,bj)*_recip_dyU(i,j+1,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
133 |
MOM_U_SIDEDRAG |
& *( viscAh_Z(i,j+1)*uFld(i,j)*cosFacU(j,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
135 |
MOM_U_SIDEDRAG |
& -viscA4_Z(i,j+1)*del2u(i,j)*sqcosFacU(j,bi,bj) ) |
|
./pkg/mom_common/mom_u_sidedrag.F |
137 |
MOM_U_SIDEDRAG |
& -viscA4_Z(i,j+1)*del2u(i,j)*cosFacU(j,bi,bj) ) |
|
./pkg/mom_common/mom_u_sidedrag.F |
140 |
MOM_U_SIDEDRAG |
& *( viscAh_Z(i,j+1)*uFld(i,j) |
|
./pkg/mom_common/mom_u_sidedrag.F |
141 |
MOM_U_SIDEDRAG |
& -viscA4_Z(i,j+1)*del2u(i,j) ) |
|
./pkg/mom_common/mom_u_sidedrag.F |
56 |
MOM_U_SIDEDRAG |
INTEGER i,j |
|
./pkg/mom_common/mom_u_sidedrag.F |
66 |
MOM_U_SIDEDRAG |
DO i=2-OLx,sNx+OLx-1 |
|
./pkg/mom_common/mom_u_sidedrag.F |
68 |
MOM_U_SIDEDRAG |
hFacZClosedS = h0FacW(i,j,k,bi,bj) - hFacZ(i,j) |
|
./pkg/mom_common/mom_u_sidedrag.F |
69 |
MOM_U_SIDEDRAG |
hFacZClosedN = h0FacW(i,j,k,bi,bj) - hFacZ(i,j+1) |
|
./pkg/mom_common/mom_u_sidedrag.F |
71 |
MOM_U_SIDEDRAG |
hFacZClosedS = _hFacW(i,j,k,bi,bj) - hFacZ(i,j) |
|
./pkg/mom_common/mom_u_sidedrag.F |
72 |
MOM_U_SIDEDRAG |
hFacZClosedN = _hFacW(i,j,k,bi,bj) - hFacZ(i,j+1) |
|
./pkg/mom_common/mom_u_sidedrag.F |
74 |
MOM_U_SIDEDRAG |
Ahtmp=MIN(viscAh+viscAhGrid*rAw(i,j,bi,bj)/deltaTmom, |
|
./pkg/mom_common/mom_u_sidedrag.F |
76 |
MOM_U_SIDEDRAG |
A4tmp=MIN(viscA4+viscA4Grid*(rAw(i,j,bi,bj)**2)/deltaTmom, |
|
./pkg/mom_common/mom_u_sidedrag.F |
78 |
MOM_U_SIDEDRAG |
A4tmp=MIN(A4tmp,viscA4GridMax*(rAw(i,j,bi,bj)**2)/deltaTmom) |
|
./pkg/mom_common/mom_u_sidedrag.F |
79 |
MOM_U_SIDEDRAG |
A4tmp=MAX(A4tmp,viscA4GridMin*(rAw(i,j,bi,bj)**2)/deltaTmom) |
|
./pkg/mom_common/mom_u_sidedrag.F |
80 |
MOM_U_SIDEDRAG |
uDragTerms(i,j) = |
|
./pkg/mom_common/mom_u_sidedrag.F |
81 |
MOM_U_SIDEDRAG |
& -_recip_hFacW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
82 |
MOM_U_SIDEDRAG |
& *recip_drF(k)*recip_rAw(i,j,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
83 |
MOM_U_SIDEDRAG |
& *( hFacZClosedS*_dxV(i, j ,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
84 |
MOM_U_SIDEDRAG |
& *_recip_dyU(i, j ,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
85 |
MOM_U_SIDEDRAG |
& +hFacZClosedN*_dxV(i,j+1,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
86 |
MOM_U_SIDEDRAG |
& *_recip_dyU(i,j+1,bi,bj) ) |
|
./pkg/mom_common/mom_u_sidedrag.F |
89 |
MOM_U_SIDEDRAG |
& viscAh*uFld(i,j)*cosFacU(j,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
91 |
MOM_U_SIDEDRAG |
& -viscA4*del2u(i,j)*sqcosFacU(j,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
93 |
MOM_U_SIDEDRAG |
& -viscA4*del2u(i,j)*cosFacU(j,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
96 |
MOM_U_SIDEDRAG |
& Ahtmp*uFld(i,j) |
|
./pkg/mom_common/mom_u_sidedrag.F |
97 |
MOM_U_SIDEDRAG |
& -A4tmp*del2u(i,j) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
100 |
MOM_UV_SMAG_3D |
& -viscAh3d_12( i , j , k )*str12( i , j ,k) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
101 |
MOM_UV_SMAG_3D |
& *dyU( i , j ,bi,bj) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
103 |
MOM_UV_SMAG_3D |
& +( viscAh3d_00( i , j , k )*str22( i , j ,k) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
104 |
MOM_UV_SMAG_3D |
& *dxF( i , j ,bi,bj) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
105 |
MOM_UV_SMAG_3D |
& -viscAh3d_00( i ,j-1, k )*str22( i ,j-1,k) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
106 |
MOM_UV_SMAG_3D |
& *dxF( i ,j-1,bi,bj) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
109 |
MOM_UV_SMAG_3D |
& *( viscAh3d_23( i , j ,k+1)*str23( i , j ,k+1) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
111 |
MOM_UV_SMAG_3D |
& -viscAh3d_23( i , j , k )*str23( i , j , k ) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
113 |
MOM_UV_SMAG_3D |
& )*rkSign*recip_hFacS(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
54 |
MOM_UV_SMAG_3D |
INTEGER i,j |
|
./pkg/mom_common/mom_uv_smag_3d.F |
74 |
MOM_UV_SMAG_3D |
DO i= iMin,iMax |
|
./pkg/mom_common/mom_uv_smag_3d.F |
75 |
MOM_UV_SMAG_3D |
uDissip(i,j) = recip_rAw(i,j,bi,bj)*( |
|
./pkg/mom_common/mom_uv_smag_3d.F |
76 |
MOM_UV_SMAG_3D |
& ( viscAh3d_00( i , j , k )*str11( i , j , k ) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
77 |
MOM_UV_SMAG_3D |
& *dyF( i , j ,bi,bj) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
78 |
MOM_UV_SMAG_3D |
& -viscAh3d_00(i-1, j , k )*str11(i-1, j , k ) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
79 |
MOM_UV_SMAG_3D |
& *dyF(i-1, j ,bi,bj) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
81 |
MOM_UV_SMAG_3D |
& +( viscAh3d_12( i ,j+1, k )*str12( i ,j+1, k ) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
82 |
MOM_UV_SMAG_3D |
& *dxV( i ,j+1,bi,bj) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
83 |
MOM_UV_SMAG_3D |
& -viscAh3d_12( i , j , k )*str12( i , j , k ) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
84 |
MOM_UV_SMAG_3D |
& *dxV( i , j ,bi,bj) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
87 |
MOM_UV_SMAG_3D |
& *( viscAh3d_13( i , j ,k+1)*str13( i , j ,k+1) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
89 |
MOM_UV_SMAG_3D |
& -viscAh3d_13( i , j , k )*str13( i , j , k ) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
91 |
MOM_UV_SMAG_3D |
& )*rkSign*recip_hFacW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
96 |
MOM_UV_SMAG_3D |
DO i= iMin,iMax |
|
./pkg/mom_common/mom_uv_smag_3d.F |
97 |
MOM_UV_SMAG_3D |
vDissip(i,j) = recip_rAs(i,j,bi,bj)*( |
|
./pkg/mom_common/mom_uv_smag_3d.F |
98 |
MOM_UV_SMAG_3D |
& ( viscAh3d_12(i+1, j , k )*str12(i+1, j ,k) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
99 |
MOM_UV_SMAG_3D |
& *dyU(i+1, j ,bi,bj) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
102 |
MOM_V_BOTDRAG_IMPL |
DO i=1-OLx,sNx+OLx-1 |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
103 |
MOM_V_BOTDRAG_IMPL |
cDrag(i,j,k) = cDrag(i,j,k) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
104 |
MOM_V_BOTDRAG_IMPL |
& + recDrF_bot(i,j) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
107 |
MOM_V_BOTDRAG_IMPL |
& + halfRL*( bottomDragFld(i,j-1,bi,bj) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
108 |
MOM_V_BOTDRAG_IMPL |
& + bottomDragFld(i,j,bi,bj) )*dragFac |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
118 |
MOM_V_BOTDRAG_IMPL |
DO i=1-OLx,sNx+OLx-1 |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
119 |
MOM_V_BOTDRAG_IMPL |
cDrag(i,j,k) = cDrag(i,j,k) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
120 |
MOM_V_BOTDRAG_IMPL |
& + recDrF_bot(i,j) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
121 |
MOM_V_BOTDRAG_IMPL |
& *( kappaRV(i,j,kLowF)*recDrC*viscFac |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
122 |
MOM_V_BOTDRAG_IMPL |
& *_recip_hFacS(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
129 |
MOM_V_BOTDRAG_IMPL |
DO i=1-OLx,sNx+OLx-1 |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
130 |
MOM_V_BOTDRAG_IMPL |
cDrag(i,j,k) = cDrag(i,j,k) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
131 |
MOM_V_BOTDRAG_IMPL |
& + recDrF_bot(i,j) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
132 |
MOM_V_BOTDRAG_IMPL |
& *( kappaRV(i,j,kLowF)*recDrC*viscFac |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
141 |
MOM_V_BOTDRAG_IMPL |
DO i=1-OLx,sNx+OLx-1 |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
142 |
MOM_V_BOTDRAG_IMPL |
KE(i,j) = 0.25*( |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
143 |
MOM_V_BOTDRAG_IMPL |
& ( uFld( i , j ,k)*uFld( i , j ,k)*_hFacW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
144 |
MOM_V_BOTDRAG_IMPL |
& +uFld(i+1, j ,k)*uFld(i+1, j ,k)*_hFacW(i+1,j,k,bi,bj) ) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
145 |
MOM_V_BOTDRAG_IMPL |
& + ( vFld( i , j ,k)*vFld( i , j ,k)*_hFacS(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
146 |
MOM_V_BOTDRAG_IMPL |
& +vFld( i ,j+1,k)*vFld( i ,j+1,k)*_hFacS(i,j+1,k,bi,bj) ) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
147 |
MOM_V_BOTDRAG_IMPL |
& )*_recip_hFacC(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
152 |
MOM_V_BOTDRAG_IMPL |
DO i=1-OLx,sNx+OLx-1 |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
153 |
MOM_V_BOTDRAG_IMPL |
IF ( (KE(i,j)+KE(i,j-1)) .GT. 0. ) THEN |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
154 |
MOM_V_BOTDRAG_IMPL |
cDrag(i,j,k) = cDrag(i,j,k) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
155 |
MOM_V_BOTDRAG_IMPL |
& + recDrF_bot(i,j) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
156 |
MOM_V_BOTDRAG_IMPL |
& *bottomDragQuadratic*SQRT(KE(i,j)+KE(i,j-1))*dragFac |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
164 |
MOM_V_BOTDRAG_IMPL |
DO i=1-OLx,sNx+OLx-1 |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
165 |
MOM_V_BOTDRAG_IMPL |
vSq = vFld(i,j,k)*vFld(i,j,k) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
166 |
MOM_V_BOTDRAG_IMPL |
& + ( (uFld( i ,j-1,k)*uFld( i ,j-1,k)*hFacW( i ,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
167 |
MOM_V_BOTDRAG_IMPL |
& +uFld( i , j ,k)*uFld( i , j ,k)*hFacW( i , j ,k,bi,bj)) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
168 |
MOM_V_BOTDRAG_IMPL |
& + (uFld(i+1,j-1,k)*uFld(i+1,j-1,k)*hFacW(i+1,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
169 |
MOM_V_BOTDRAG_IMPL |
& +uFld(i+1, j ,k)*uFld(i+1, j ,k)*hFacW(i+1, j ,k,bi,bj)) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
170 |
MOM_V_BOTDRAG_IMPL |
& )*recip_hFacS(i,j,k,bi,bj)*0.25 _d 0 |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
172 |
MOM_V_BOTDRAG_IMPL |
cDrag(i,j,k) = cDrag(i,j,k) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
173 |
MOM_V_BOTDRAG_IMPL |
& + recDrF_bot(i,j) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
182 |
MOM_V_BOTDRAG_IMPL |
DO i=1-OLx,sNx+OLx-1 |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
183 |
MOM_V_BOTDRAG_IMPL |
vSq = ( hFacW( i ,j-1,k,bi,bj) + hFacW( i , j ,k,bi,bj) ) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
184 |
MOM_V_BOTDRAG_IMPL |
& + ( hFacW(i+1,j-1,k,bi,bj) + hFacW(i+1, j ,k,bi,bj) ) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
186 |
MOM_V_BOTDRAG_IMPL |
vSq = vFld(i,j,k)*vFld(i,j,k) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
187 |
MOM_V_BOTDRAG_IMPL |
& +( (uFld( i ,j-1,k)*uFld( i ,j-1,k)*hFacW( i ,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
188 |
MOM_V_BOTDRAG_IMPL |
& +uFld( i , j ,k)*uFld( i , j ,k)*hFacW( i , j ,k,bi,bj)) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
189 |
MOM_V_BOTDRAG_IMPL |
& + (uFld(i+1,j-1,k)*uFld(i+1,j-1,k)*hFacW(i+1,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
190 |
MOM_V_BOTDRAG_IMPL |
& +uFld(i+1, j ,k)*uFld(i+1, j ,k)*hFacW(i+1, j ,k,bi,bj)) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
193 |
MOM_V_BOTDRAG_IMPL |
vSq = vFld(i,j,k)*vFld(i,j,k) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
196 |
MOM_V_BOTDRAG_IMPL |
cDrag(i,j,k) = cDrag(i,j,k) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
197 |
MOM_V_BOTDRAG_IMPL |
& + recDrF_bot(i,j) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
55 |
MOM_V_BOTDRAG_IMPL |
INTEGER i,j,k |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
86 |
MOM_V_BOTDRAG_IMPL |
DO i=1-OLx,sNx+OLx |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
87 |
MOM_V_BOTDRAG_IMPL |
recDrF_bot(i,j) = _recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
93 |
MOM_V_BOTDRAG_IMPL |
DO i=1-OLx,sNx+OLx |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
94 |
MOM_V_BOTDRAG_IMPL |
recDrF_bot(i,j) = _recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
95 |
MOM_V_BOTDRAG_IMPL |
& * ( 1. _d 0 -_maskS(i,j,kDown,bi,bj) ) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
100 |
MOM_V_BOTTOMDRAG |
& - recDrF_bot(i,j) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
103 |
MOM_V_BOTTOMDRAG |
& + halfRL*( bottomDragFld(i,j-1,bi,bj) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
104 |
MOM_V_BOTTOMDRAG |
& + bottomDragFld(i,j,bi,bj) )*dragFac |
|
./pkg/mom_common/mom_v_bottomdrag.F |
106 |
MOM_V_BOTTOMDRAG |
& )*vFld(i,j) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
114 |
MOM_V_BOTTOMDRAG |
DO i=1-OLx,sNx+OLx-1 |
|
./pkg/mom_common/mom_v_bottomdrag.F |
115 |
MOM_V_BOTTOMDRAG |
vDragTerms(i,j) = vDragTerms(i,j) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
116 |
MOM_V_BOTTOMDRAG |
& - recDrF_bot(i,j) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
117 |
MOM_V_BOTTOMDRAG |
& *( kappaRV(i,j,kLowF)*recDrC*viscFac |
|
./pkg/mom_common/mom_v_bottomdrag.F |
118 |
MOM_V_BOTTOMDRAG |
& *_recip_hFacS(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
119 |
MOM_V_BOTTOMDRAG |
& )*vFld(i,j) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
125 |
MOM_V_BOTTOMDRAG |
DO i=1-OLx,sNx+OLx-1 |
|
./pkg/mom_common/mom_v_bottomdrag.F |
126 |
MOM_V_BOTTOMDRAG |
vDragTerms(i,j) = vDragTerms(i,j) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
127 |
MOM_V_BOTTOMDRAG |
& - recDrF_bot(i,j) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
128 |
MOM_V_BOTTOMDRAG |
& *( kappaRV(i,j,kLowF)*recDrC*viscFac |
|
./pkg/mom_common/mom_v_bottomdrag.F |
129 |
MOM_V_BOTTOMDRAG |
& )*vFld(i,j) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
138 |
MOM_V_BOTTOMDRAG |
DO i=1-OLx,sNx+OLx-1 |
|
./pkg/mom_common/mom_v_bottomdrag.F |
139 |
MOM_V_BOTTOMDRAG |
IF ( (KE(i,j)+KE(i,j-1)) .GT. 0. ) THEN |
|
./pkg/mom_common/mom_v_bottomdrag.F |
140 |
MOM_V_BOTTOMDRAG |
vDragTerms(i,j) = vDragTerms(i,j) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
141 |
MOM_V_BOTTOMDRAG |
& - recDrF_bot(i,j) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
142 |
MOM_V_BOTTOMDRAG |
& *bottomDragQuadratic*SQRT(KE(i,j)+KE(i,j-1))*dragFac |
|
./pkg/mom_common/mom_v_bottomdrag.F |
143 |
MOM_V_BOTTOMDRAG |
& *vFld(i,j) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
150 |
MOM_V_BOTTOMDRAG |
DO i=1-OLx,sNx+OLx-1 |
|
./pkg/mom_common/mom_v_bottomdrag.F |
151 |
MOM_V_BOTTOMDRAG |
vSq = vFld(i,j)*vFld(i,j) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
152 |
MOM_V_BOTTOMDRAG |
& + ( (uFld( i ,j-1)*uFld( i ,j-1)*hFacW( i ,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
153 |
MOM_V_BOTTOMDRAG |
& +uFld( i , j )*uFld( i , j )*hFacW( i , j ,k,bi,bj)) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
154 |
MOM_V_BOTTOMDRAG |
& + (uFld(i+1,j-1)*uFld(i+1,j-1)*hFacW(i+1,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
155 |
MOM_V_BOTTOMDRAG |
& +uFld(i+1, j )*uFld(i+1, j )*hFacW(i+1, j ,k,bi,bj)) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
156 |
MOM_V_BOTTOMDRAG |
& )*recip_hFacS(i,j,k,bi,bj)*0.25 _d 0 |
|
./pkg/mom_common/mom_v_bottomdrag.F |
158 |
MOM_V_BOTTOMDRAG |
vDragTerms(i,j) = vDragTerms(i,j) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
159 |
MOM_V_BOTTOMDRAG |
& - recDrF_bot(i,j) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
161 |
MOM_V_BOTTOMDRAG |
& *vFld(i,j) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
168 |
MOM_V_BOTTOMDRAG |
DO i=1-OLx,sNx+OLx-1 |
|
./pkg/mom_common/mom_v_bottomdrag.F |
169 |
MOM_V_BOTTOMDRAG |
vSq = ( hFacW( i ,j-1,k,bi,bj) + hFacW( i , j ,k,bi,bj) ) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
170 |
MOM_V_BOTTOMDRAG |
& + ( hFacW(i+1,j-1,k,bi,bj) + hFacW(i+1, j ,k,bi,bj) ) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
172 |
MOM_V_BOTTOMDRAG |
vSq = vFld(i,j)*vFld(i,j) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
173 |
MOM_V_BOTTOMDRAG |
& +( (uFld( i ,j-1)*uFld( i ,j-1)*hFacW( i ,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
174 |
MOM_V_BOTTOMDRAG |
& +uFld( i , j )*uFld( i , j )*hFacW( i , j ,k,bi,bj)) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
175 |
MOM_V_BOTTOMDRAG |
& + (uFld(i+1,j-1)*uFld(i+1,j-1)*hFacW(i+1,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
176 |
MOM_V_BOTTOMDRAG |
& +uFld(i+1, j )*uFld(i+1, j )*hFacW(i+1, j ,k,bi,bj)) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
179 |
MOM_V_BOTTOMDRAG |
vSq = vFld(i,j)*vFld(i,j) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
182 |
MOM_V_BOTTOMDRAG |
vDragTerms(i,j) = vDragTerms(i,j) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
183 |
MOM_V_BOTTOMDRAG |
& - recDrF_bot(i,j) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
185 |
MOM_V_BOTTOMDRAG |
& *vFld(i,j) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
56 |
MOM_V_BOTTOMDRAG |
INTEGER i,j,kDown,kLowF,kBottom |
|
./pkg/mom_common/mom_v_bottomdrag.F |
82 |
MOM_V_BOTTOMDRAG |
DO i=1-OLx,sNx+OLx |
|
./pkg/mom_common/mom_v_bottomdrag.F |
83 |
MOM_V_BOTTOMDRAG |
recDrF_bot(i,j) = _recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
89 |
MOM_V_BOTTOMDRAG |
DO i=1-OLx,sNx+OLx |
|
./pkg/mom_common/mom_v_bottomdrag.F |
90 |
MOM_V_BOTTOMDRAG |
recDrF_bot(i,j) = _recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
91 |
MOM_V_BOTTOMDRAG |
& * ( 1. _d 0 -_maskS(i,j,kDown,bi,bj) ) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
98 |
MOM_V_BOTTOMDRAG |
DO i=1-OLx,sNx+OLx-1 |
|
./pkg/mom_common/mom_v_bottomdrag.F |
99 |
MOM_V_BOTTOMDRAG |
vDragTerms(i,j) = |
|
./pkg/mom_common/mom_v_coriolis_nh.F |
44 |
MOM_V_CORIOLIS_NH |
INTEGER i,j,kp1 |
|
./pkg/mom_common/mom_v_coriolis_nh.F |
55 |
MOM_V_CORIOLIS_NH |
DO i=1-Olx,sNx+Olx |
|
./pkg/mom_common/mom_v_coriolis_nh.F |
56 |
MOM_V_CORIOLIS_NH |
vCoriolisTerm(i,j) = |
|
./pkg/mom_common/mom_v_coriolis_nh.F |
57 |
MOM_V_CORIOLIS_NH |
& -0.5*( fCoriCos( i ,j,bi,bj)*angleSinC(i, j ,bi,bj) |
|
./pkg/mom_common/mom_v_coriolis_nh.F |
58 |
MOM_V_CORIOLIS_NH |
& *0.5*( wFld( i ,j, k ,bi,bj)*rVel2wUnit( k ) |
|
./pkg/mom_common/mom_v_coriolis_nh.F |
59 |
MOM_V_CORIOLIS_NH |
& +wFld( i ,j,kp1,bi,bj)*rVel2wUnit(kp1)*wMsk ) |
|
./pkg/mom_common/mom_v_coriolis_nh.F |
60 |
MOM_V_CORIOLIS_NH |
& + fCoriCos(i,j-1,bi,bj)*angleSinC(i,j-1,bi,bj) |
|
./pkg/mom_common/mom_v_coriolis_nh.F |
61 |
MOM_V_CORIOLIS_NH |
& *0.5*( wFld(i,j-1, k ,bi,bj)*rVel2wUnit( k ) |
|
./pkg/mom_common/mom_v_coriolis_nh.F |
62 |
MOM_V_CORIOLIS_NH |
& +wFld(i,j-1,kp1,bi,bj)*rVel2wUnit(kp1)*wMsk ) |
|
./pkg/mom_common/mom_v_implicit_r.F |
107 |
MOM_V_IMPLICIT_R |
DO i=iMin,iMax |
|
./pkg/mom_common/mom_v_implicit_r.F |
108 |
MOM_V_IMPLICIT_R |
IF (maskS(i,j,k+1,bi,bj).EQ.oneRS) |
|
./pkg/mom_common/mom_v_implicit_r.F |
109 |
MOM_V_IMPLICIT_R |
& d5d(i,j,k) = -deltaTMom |
|
./pkg/mom_common/mom_v_implicit_r.F |
110 |
MOM_V_IMPLICIT_R |
& *_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
112 |
MOM_V_IMPLICIT_R |
& *kappaRV(i,j,k+1)*recip_drC(k+1) |
|
./pkg/mom_common/mom_v_implicit_r.F |
120 |
MOM_V_IMPLICIT_R |
DO i=iMin,iMax |
|
./pkg/mom_common/mom_v_implicit_r.F |
121 |
MOM_V_IMPLICIT_R |
c5d(i,j,k) = 1. _d 0 - ( b5d(i,j,k) + d5d(i,j,k) ) |
|
./pkg/mom_common/mom_v_implicit_r.F |
147 |
MOM_V_IMPLICIT_R |
DO i=iMin,iMax |
|
./pkg/mom_common/mom_v_implicit_r.F |
148 |
MOM_V_IMPLICIT_R |
rTrans(i,j) = 0.5 _d 0 * ( |
|
./pkg/mom_common/mom_v_implicit_r.F |
149 |
MOM_V_IMPLICIT_R |
& wVel(i, j ,k,bi,bj)*rA(i, j ,bi,bj) |
|
./pkg/mom_common/mom_v_implicit_r.F |
150 |
MOM_V_IMPLICIT_R |
& *maskC(i, j ,k-1,bi,bj) |
|
./pkg/mom_common/mom_v_implicit_r.F |
151 |
MOM_V_IMPLICIT_R |
& + wVel(i,j-1,k,bi,bj)*rA(i,j-1,bi,bj) |
|
./pkg/mom_common/mom_v_implicit_r.F |
152 |
MOM_V_IMPLICIT_R |
& *maskC(i,j-1,k-1,bi,bj) |
|
./pkg/mom_common/mom_v_implicit_r.F |
165 |
MOM_V_IMPLICIT_R |
DO i=iMin,iMax |
|
./pkg/mom_common/mom_v_implicit_r.F |
166 |
MOM_V_IMPLICIT_R |
rCenter = 0.5 _d 0 *deltaTMom*rTrans(i,j) |
|
./pkg/mom_common/mom_v_implicit_r.F |
167 |
MOM_V_IMPLICIT_R |
& *recip_rAs(i,j,bi,bj)*rkSign |
|
./pkg/mom_common/mom_v_implicit_r.F |
169 |
MOM_V_IMPLICIT_R |
b5d(i,j,k) = b5d(i,j,k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
171 |
MOM_V_IMPLICIT_R |
& *_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
173 |
MOM_V_IMPLICIT_R |
c5d(i,j,k) = c5d(i,j,k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
175 |
MOM_V_IMPLICIT_R |
& *_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
177 |
MOM_V_IMPLICIT_R |
c5d(i,j,k-1) = c5d(i,j,k-1) |
|
./pkg/mom_common/mom_v_implicit_r.F |
179 |
MOM_V_IMPLICIT_R |
& *_recip_hFacS(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/mom_common/mom_v_implicit_r.F |
181 |
MOM_V_IMPLICIT_R |
d5d(i,j,k-1) = d5d(i,j,k-1) |
|
./pkg/mom_common/mom_v_implicit_r.F |
183 |
MOM_V_IMPLICIT_R |
& *_recip_hFacS(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/mom_common/mom_v_implicit_r.F |
190 |
MOM_V_IMPLICIT_R |
DO i=iMin,iMax |
|
./pkg/mom_common/mom_v_implicit_r.F |
191 |
MOM_V_IMPLICIT_R |
rCenter = 0.5 _d 0 *deltaTMom*rTrans(i,j) |
|
./pkg/mom_common/mom_v_implicit_r.F |
192 |
MOM_V_IMPLICIT_R |
& *recip_rAs(i,j,bi,bj)*rkSign |
|
./pkg/mom_common/mom_v_implicit_r.F |
193 |
MOM_V_IMPLICIT_R |
b5d(i,j,k) = b5d(i,j,k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
194 |
MOM_V_IMPLICIT_R |
& - rCenter*_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
196 |
MOM_V_IMPLICIT_R |
c5d(i,j,k) = c5d(i,j,k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
197 |
MOM_V_IMPLICIT_R |
& - rCenter*_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
199 |
MOM_V_IMPLICIT_R |
c5d(i,j,k-1) = c5d(i,j,k-1) |
|
./pkg/mom_common/mom_v_implicit_r.F |
200 |
MOM_V_IMPLICIT_R |
& + rCenter*_recip_hFacS(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/mom_common/mom_v_implicit_r.F |
202 |
MOM_V_IMPLICIT_R |
d5d(i,j,k-1) = d5d(i,j,k-1) |
|
./pkg/mom_common/mom_v_implicit_r.F |
203 |
MOM_V_IMPLICIT_R |
& + rCenter*_recip_hFacS(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/mom_common/mom_v_implicit_r.F |
220 |
MOM_V_IMPLICIT_R |
DO i=iMin,iMax |
|
./pkg/mom_common/mom_v_implicit_r.F |
221 |
MOM_V_IMPLICIT_R |
IF ( c5d(i,j,k).NE.zeroRL ) THEN |
|
./pkg/mom_common/mom_v_implicit_r.F |
222 |
MOM_V_IMPLICIT_R |
c5d(i,j,k) = 1. _d 0 / c5d(i,j,k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
224 |
MOM_V_IMPLICIT_R |
c5d(i,j,k) = 0. _d 0 |
|
./pkg/mom_common/mom_v_implicit_r.F |
230 |
MOM_V_IMPLICIT_R |
DO i=iMin,iMax |
|
./pkg/mom_common/mom_v_implicit_r.F |
231 |
MOM_V_IMPLICIT_R |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)*c5d(i,j,k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
257 |
MOM_V_IMPLICIT_R |
DO i=iMin,iMax |
|
./pkg/mom_common/mom_v_implicit_r.F |
258 |
MOM_V_IMPLICIT_R |
dV_psFacY(i,j,k,bi,bj) = maskS(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_v_implicit_r.F |
266 |
MOM_V_IMPLICIT_R |
DO i=iMin,iMax |
|
./pkg/mom_common/mom_v_implicit_r.F |
267 |
MOM_V_IMPLICIT_R |
dV_psFacY(i,j,k,bi,bj) = dV_psFacY(i,j,k,bi,bj)*c5d(i,j,k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
291 |
MOM_V_IMPLICIT_R |
DO i=1-OLx,sNx+OLx |
|
./pkg/mom_common/mom_v_implicit_r.F |
292 |
MOM_V_IMPLICIT_R |
vf(i,j) = 0. _d 0 |
|
./pkg/mom_common/mom_v_implicit_r.F |
297 |
MOM_V_IMPLICIT_R |
DO i=iMin,iMax |
|
./pkg/mom_common/mom_v_implicit_r.F |
298 |
MOM_V_IMPLICIT_R |
vf(i,j) = -rAs(i,j,bi,bj)*deepFac2F(k)*rhoFacF(k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
299 |
MOM_V_IMPLICIT_R |
& * kappaRV(i,j,k)*recip_drC(k)*rkSign |
|
./pkg/mom_common/mom_v_implicit_r.F |
300 |
MOM_V_IMPLICIT_R |
& * (gV(i,j,k,bi,bj) - gV(i,j,k-1,bi,bj)) |
|
./pkg/mom_common/mom_v_implicit_r.F |
301 |
MOM_V_IMPLICIT_R |
& *_maskS(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_v_implicit_r.F |
302 |
MOM_V_IMPLICIT_R |
& *_maskS(i,j,k-1,bi,bj) |
|
./pkg/mom_common/mom_v_implicit_r.F |
52 |
MOM_V_IMPLICIT_R |
INTEGER i,j,k |
|
./pkg/mom_common/mom_v_implicit_r.F |
76 |
MOM_V_IMPLICIT_R |
DO i=1-OLx,sNx+OLx |
|
./pkg/mom_common/mom_v_implicit_r.F |
78 |
MOM_V_IMPLICIT_R |
b5d(i,j,k) = 0. _d 0 |
|
./pkg/mom_common/mom_v_implicit_r.F |
79 |
MOM_V_IMPLICIT_R |
c5d(i,j,k) = 1. _d 0 |
|
./pkg/mom_common/mom_v_implicit_r.F |
80 |
MOM_V_IMPLICIT_R |
d5d(i,j,k) = 0. _d 0 |
|
./pkg/mom_common/mom_v_implicit_r.F |
94 |
MOM_V_IMPLICIT_R |
DO i=iMin,iMax |
|
./pkg/mom_common/mom_v_implicit_r.F |
95 |
MOM_V_IMPLICIT_R |
IF (maskS(i,j,k-1,bi,bj).EQ.oneRS) |
|
./pkg/mom_common/mom_v_implicit_r.F |
96 |
MOM_V_IMPLICIT_R |
& b5d(i,j,k) = -deltaTMom |
|
./pkg/mom_common/mom_v_implicit_r.F |
97 |
MOM_V_IMPLICIT_R |
& *_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
99 |
MOM_V_IMPLICIT_R |
& *kappaRV(i,j, k )*recip_drC( k ) |
|
./pkg/mom_common/mom_v_metric_nh.F |
46 |
MOM_V_METRIC_NH |
INTEGER i,j,kp1 |
|
./pkg/mom_common/mom_v_metric_nh.F |
55 |
MOM_V_METRIC_NH |
DO i=1-Olx,sNx+Olx |
|
./pkg/mom_common/mom_v_metric_nh.F |
56 |
MOM_V_METRIC_NH |
vMetricTerms(i,j) = vFld(i,j)*recip_rSphere*recip_deepFacC(k) |
|
./pkg/mom_common/mom_v_metric_nh.F |
57 |
MOM_V_METRIC_NH |
& *0.25*( (wFld(i,j-1,kp1,bi,bj)+wFld(i,j,kp1,bi,bj)) |
|
./pkg/mom_common/mom_v_metric_nh.F |
59 |
MOM_V_METRIC_NH |
& + (wFld(i,j-1, k ,bi,bj)+wFld(i,j, k ,bi,bj)) |
|
./pkg/mom_common/mom_v_rviscflux.F |
47 |
MOM_V_RVISCFLUX |
INTEGER i,j |
|
./pkg/mom_common/mom_v_rviscflux.F |
53 |
MOM_V_RVISCFLUX |
DO i=1-Olx,sNx+Olx |
|
./pkg/mom_common/mom_v_rviscflux.F |
54 |
MOM_V_RVISCFLUX |
rViscFluxV(i,j) = 0. _d 0 |
|
./pkg/mom_common/mom_v_rviscflux.F |
59 |
MOM_V_RVISCFLUX |
DO i=1-Olx,sNx+Olx-1 |
|
./pkg/mom_common/mom_v_rviscflux.F |
60 |
MOM_V_RVISCFLUX |
rViscFluxV(i,j) = |
|
./pkg/mom_common/mom_v_rviscflux.F |
61 |
MOM_V_RVISCFLUX |
& -KappaRV(i,j,k) |
|
./pkg/mom_common/mom_v_rviscflux.F |
62 |
MOM_V_RVISCFLUX |
& *rAs(i,j,bi,bj)*deepFac2F(k)*rhoFacF(k) |
|
./pkg/mom_common/mom_v_rviscflux.F |
63 |
MOM_V_RVISCFLUX |
& *( vFld(i,j,k,bi,bj)-vFld(i,j,k-1,bi,bj) |
|
./pkg/mom_common/mom_v_rviscflux.F |
65 |
MOM_V_RVISCFLUX |
& *_maskS(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_v_rviscflux.F |
66 |
MOM_V_RVISCFLUX |
& *_maskS(i,j,k-1,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
105 |
MOM_V_SIDEDRAG |
DO i=2-OLx,sNx+OLx-1 |
|
./pkg/mom_common/mom_v_sidedrag.F |
107 |
MOM_V_SIDEDRAG |
hFacZClosedW = h0FacS(i,j,k,bi,bj) - hFacZ(i,j) |
|
./pkg/mom_common/mom_v_sidedrag.F |
108 |
MOM_V_SIDEDRAG |
hFacZClosedE = h0FacS(i,j,k,bi,bj) - hFacZ(i+1,j) |
|
./pkg/mom_common/mom_v_sidedrag.F |
110 |
MOM_V_SIDEDRAG |
hFacZClosedW = _hFacS(i,j,k,bi,bj) - hFacZ(i,j) |
|
./pkg/mom_common/mom_v_sidedrag.F |
111 |
MOM_V_SIDEDRAG |
hFacZClosedE = _hFacS(i,j,k,bi,bj) - hFacZ(i+1,j) |
|
./pkg/mom_common/mom_v_sidedrag.F |
113 |
MOM_V_SIDEDRAG |
vDragTerms(i,j) = |
|
./pkg/mom_common/mom_v_sidedrag.F |
114 |
MOM_V_SIDEDRAG |
& -_recip_hFacS(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
115 |
MOM_V_SIDEDRAG |
& *recip_drF(k)*recip_rAs(i,j,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
116 |
MOM_V_SIDEDRAG |
& *( hFacZClosedW*_dyU( i ,j,bi,bj)*_recip_dxV( i ,j,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
117 |
MOM_V_SIDEDRAG |
& *( viscAh_Z(i ,j)*vFld(i,j)*cosFacV(j,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
119 |
MOM_V_SIDEDRAG |
& -viscA4_Z(i ,j)*del2v(i,j)*sqcosFacV(j,bi,bj) ) |
|
./pkg/mom_common/mom_v_sidedrag.F |
121 |
MOM_V_SIDEDRAG |
& -viscA4_Z(i ,j)*del2v(i,j)*cosFacV(j,bi,bj) ) |
|
./pkg/mom_common/mom_v_sidedrag.F |
123 |
MOM_V_SIDEDRAG |
& +hFacZClosedE*_dyU(i+1,j,bi,bj)*_recip_dxV(i+1,j,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
124 |
MOM_V_SIDEDRAG |
& *( viscAh_Z(i+1,j)*vFld(i,j)*cosFacV(j,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
126 |
MOM_V_SIDEDRAG |
& -viscA4_Z(i+1,j)*del2v(i,j)*sqcosFacV(j,bi,bj) ) |
|
./pkg/mom_common/mom_v_sidedrag.F |
128 |
MOM_V_SIDEDRAG |
& -viscA4_Z(i+1,j)*del2v(i,j)*cosFacV(j,bi,bj) ) |
|
./pkg/mom_common/mom_v_sidedrag.F |
56 |
MOM_V_SIDEDRAG |
INTEGER i, j |
|
./pkg/mom_common/mom_v_sidedrag.F |
66 |
MOM_V_SIDEDRAG |
DO i=2-OLx,sNx+OLx-1 |
|
./pkg/mom_common/mom_v_sidedrag.F |
68 |
MOM_V_SIDEDRAG |
hFacZClosedW = h0FacS(i,j,k,bi,bj) - hFacZ(i,j) |
|
./pkg/mom_common/mom_v_sidedrag.F |
69 |
MOM_V_SIDEDRAG |
hFacZClosedE = h0FacS(i,j,k,bi,bj) - hFacZ(i+1,j) |
|
./pkg/mom_common/mom_v_sidedrag.F |
71 |
MOM_V_SIDEDRAG |
hFacZClosedW = _hFacS(i,j,k,bi,bj) - hFacZ(i,j) |
|
./pkg/mom_common/mom_v_sidedrag.F |
72 |
MOM_V_SIDEDRAG |
hFacZClosedE = _hFacS(i,j,k,bi,bj) - hFacZ(i+1,j) |
|
./pkg/mom_common/mom_v_sidedrag.F |
74 |
MOM_V_SIDEDRAG |
Ahtmp=MIN(viscAh+viscAhGrid*rAs(i,j,bi,bj)/deltaTmom, |
|
./pkg/mom_common/mom_v_sidedrag.F |
76 |
MOM_V_SIDEDRAG |
A4tmp=MIN(viscA4+viscA4Grid*(rAs(i,j,bi,bj)**2)/deltaTmom, |
|
./pkg/mom_common/mom_v_sidedrag.F |
79 |
MOM_V_SIDEDRAG |
A4tmp=MIN(A4tmp,viscA4GridMax*(rAs(i,j,bi,bj)**2)/deltaTmom) |
|
./pkg/mom_common/mom_v_sidedrag.F |
81 |
MOM_V_SIDEDRAG |
A4tmp=MAX(A4tmp,viscA4GridMin*(rAs(i,j,bi,bj)**2)/deltaTmom) |
|
./pkg/mom_common/mom_v_sidedrag.F |
82 |
MOM_V_SIDEDRAG |
vDragTerms(i,j) = |
|
./pkg/mom_common/mom_v_sidedrag.F |
83 |
MOM_V_SIDEDRAG |
& -_recip_hFacS(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
84 |
MOM_V_SIDEDRAG |
& *recip_drF(k)*recip_rAs(i,j,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
85 |
MOM_V_SIDEDRAG |
& *( hFacZClosedW*_dyU( i ,j,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
86 |
MOM_V_SIDEDRAG |
& *_recip_dxV( i ,j,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
87 |
MOM_V_SIDEDRAG |
& +hFacZClosedE*_dyU(i+1,j,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
88 |
MOM_V_SIDEDRAG |
& *_recip_dxV(i+1,j,bi,bj) ) |
|
./pkg/mom_common/mom_v_sidedrag.F |
90 |
MOM_V_SIDEDRAG |
& Ahtmp*vFld(i,j)*cosFacV(j,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
92 |
MOM_V_SIDEDRAG |
& -viscA4*del2v(i,j)*sqcosFacV(j,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
94 |
MOM_V_SIDEDRAG |
& -A4tmp*del2v(i,j)*cosFacV(j,bi,bj) |
|
./pkg/mom_common/mom_w_coriolis_nh.F |
47 |
MOM_W_CORIOLIS_NH |
INTEGER i,j |
|
./pkg/mom_common/mom_w_coriolis_nh.F |
54 |
MOM_W_CORIOLIS_NH |
DO i=1-Olx,sNx+Olx-1 |
|
./pkg/mom_common/mom_w_coriolis_nh.F |
55 |
MOM_W_CORIOLIS_NH |
wCoriolisTerm(i,j) = |
|
./pkg/mom_common/mom_w_coriolis_nh.F |
56 |
MOM_W_CORIOLIS_NH |
& -gravitySign*fCoriCos(i,j,bi,bj)* |
|
./pkg/mom_common/mom_w_coriolis_nh.F |
57 |
MOM_W_CORIOLIS_NH |
& ( angleCosC(i,j,bi,bj)*( |
|
./pkg/mom_common/mom_w_coriolis_nh.F |
58 |
MOM_W_CORIOLIS_NH |
& (uFld(i,j,k-1,bi,bj)+uFld(i+1,j,k-1,bi,bj)) |
|
./pkg/mom_common/mom_w_coriolis_nh.F |
59 |
MOM_W_CORIOLIS_NH |
& + (uFld(i,j, k ,bi,bj)+uFld(i+1,j, k ,bi,bj)) |
|
./pkg/mom_common/mom_w_coriolis_nh.F |
61 |
MOM_W_CORIOLIS_NH |
& -angleSinC(i,j,bi,bj)*( |
|
./pkg/mom_common/mom_w_coriolis_nh.F |
62 |
MOM_W_CORIOLIS_NH |
& (vFld(i,j,k-1,bi,bj)+vFld(i,j+1,k-1,bi,bj)) |
|
./pkg/mom_common/mom_w_coriolis_nh.F |
63 |
MOM_W_CORIOLIS_NH |
& + (vFld(i,j, k ,bi,bj)+vFld(i,j+1, k ,bi,bj)) |
|
./pkg/mom_common/mom_w_coriolis_nh.F |
70 |
MOM_W_CORIOLIS_NH |
DO i=1-Olx,sNx+Olx-1 |
|
./pkg/mom_common/mom_w_coriolis_nh.F |
71 |
MOM_W_CORIOLIS_NH |
wCoriolisTerm(i,j) = 0. _d 0 |
|
./model/src/cg2d_ex0.F |
115 |
CG2D_EX0 |
DO i=1,sNx |
|
./model/src/cg2d_ex0.F |
116 |
CG2D_EX0 |
cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj)*cg2dNorm |
|
./model/src/cg2d_ex0.F |
117 |
CG2D_EX0 |
rhsMaxLoc = MAX(ABS(cg2d_b(i,j,bi,bj)),rhsMaxLoc) |
|
./model/src/cg2d_ex0.F |
124 |
CG2D_EX0 |
DO i=1,sNx |
|
./model/src/cg2d_ex0.F |
125 |
CG2D_EX0 |
cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj)*rhsNorm(bi,bj) |
|
./model/src/cg2d_ex0.F |
126 |
CG2D_EX0 |
cg2d_x(i,j,bi,bj) = cg2d_x(i,j,bi,bj)*rhsNorm(bi,bj) |
|
./model/src/cg2d_ex0.F |
146 |
CG2D_EX0 |
DO i=1,sNx |
|
./model/src/cg2d_ex0.F |
147 |
CG2D_EX0 |
cg2d_min(i,j,bi,bj) = cg2d_x(i,j,bi,bj) |
|
./model/src/cg2d_ex0.F |
152 |
CG2D_EX0 |
DO i=0,sNx+1 |
|
./model/src/cg2d_ex0.F |
153 |
CG2D_EX0 |
cg2d_s(i,j,bi,bj) = 0. |
|
./model/src/cg2d_ex0.F |
162 |
CG2D_EX0 |
DO i=1,sNx |
|
./model/src/cg2d_ex0.F |
163 |
CG2D_EX0 |
cg2d_r(i,j,bi,bj) = cg2d_b(i,j,bi,bj) - |
|
./model/src/cg2d_ex0.F |
164 |
CG2D_EX0 |
& (aW2d(i ,j ,bi,bj)*cg2d_x(i-1,j ,bi,bj) |
|
./model/src/cg2d_ex0.F |
165 |
CG2D_EX0 |
& +aW2d(i+1,j ,bi,bj)*cg2d_x(i+1,j ,bi,bj) |
|
./model/src/cg2d_ex0.F |
166 |
CG2D_EX0 |
& +aS2d(i ,j ,bi,bj)*cg2d_x(i ,j-1,bi,bj) |
|
./model/src/cg2d_ex0.F |
167 |
CG2D_EX0 |
& +aS2d(i ,j+1,bi,bj)*cg2d_x(i ,j+1,bi,bj) |
|
./model/src/cg2d_ex0.F |
168 |
CG2D_EX0 |
& +aC2d(i ,j ,bi,bj)*cg2d_x(i ,j ,bi,bj) |
|
./model/src/cg2d_ex0.F |
171 |
CG2D_EX0 |
& + cg2d_r(i,j,bi,bj)*cg2d_r(i,j,bi,bj) |
|
./model/src/cg2d_ex0.F |
172 |
CG2D_EX0 |
sumRHStile(bi,bj) = sumRHStile(bi,bj) + cg2d_b(i,j,bi,bj) |
|
./model/src/cg2d_ex0.F |
215 |
CG2D_EX0 |
DO i=1,sNx |
|
./model/src/cg2d_ex0.F |
216 |
CG2D_EX0 |
cg2d_q(i,j,bi,bj) = |
|
./model/src/cg2d_ex0.F |
217 |
CG2D_EX0 |
& pC(i ,j ,bi,bj)*cg2d_r(i ,j ,bi,bj) |
|
./model/src/cg2d_ex0.F |
218 |
CG2D_EX0 |
& +pW(i ,j ,bi,bj)*cg2d_r(i-1,j ,bi,bj) |
|
./model/src/cg2d_ex0.F |
219 |
CG2D_EX0 |
& +pW(i+1,j ,bi,bj)*cg2d_r(i+1,j ,bi,bj) |
|
./model/src/cg2d_ex0.F |
220 |
CG2D_EX0 |
& +pS(i ,j ,bi,bj)*cg2d_r(i ,j-1,bi,bj) |
|
./model/src/cg2d_ex0.F |
221 |
CG2D_EX0 |
& +pS(i ,j+1,bi,bj)*cg2d_r(i ,j+1,bi,bj) |
|
./model/src/cg2d_ex0.F |
223 |
CG2D_EX0 |
& +cg2d_q(i,j,bi,bj)*cg2d_r(i,j,bi,bj) |
|
./model/src/cg2d_ex0.F |
231 |
CG2D_EX0 |
DO i=1,sNx |
|
./model/src/cg2d_ex0.F |
232 |
CG2D_EX0 |
cg2d_s(i,j,bi,bj) = cg2d_q(i,j,bi,bj) |
|
./model/src/cg2d_ex0.F |
233 |
CG2D_EX0 |
& + cgBeta*cg2d_s(i,j,bi,bj) |
|
./model/src/cg2d_ex0.F |
250 |
CG2D_EX0 |
DO i=1,sNx |
|
./model/src/cg2d_ex0.F |
251 |
CG2D_EX0 |
cg2d_q(i,j,bi,bj) = |
|
./model/src/cg2d_ex0.F |
252 |
CG2D_EX0 |
& aW2d(i ,j ,bi,bj)*cg2d_s(i-1,j ,bi,bj) |
|
./model/src/cg2d_ex0.F |
253 |
CG2D_EX0 |
& +aW2d(i+1,j ,bi,bj)*cg2d_s(i+1,j ,bi,bj) |
|
./model/src/cg2d_ex0.F |
254 |
CG2D_EX0 |
& +aS2d(i ,j ,bi,bj)*cg2d_s(i ,j-1,bi,bj) |
|
./model/src/cg2d_ex0.F |
255 |
CG2D_EX0 |
& +aS2d(i ,j+1,bi,bj)*cg2d_s(i ,j+1,bi,bj) |
|
./model/src/cg2d_ex0.F |
256 |
CG2D_EX0 |
& +aC2d(i ,j ,bi,bj)*cg2d_s(i ,j ,bi,bj) |
|
./model/src/cg2d_ex0.F |
258 |
CG2D_EX0 |
& + cg2d_s(i,j,bi,bj)*cg2d_q(i,j,bi,bj) |
|
./model/src/cg2d_ex0.F |
267 |
CG2D_EX0 |
DO i=1,sNx |
|
./model/src/cg2d_ex0.F |
268 |
CG2D_EX0 |
cg2d_x(i,j,bi,bj)=cg2d_x(i,j,bi,bj)+alpha*cg2d_s(i,j,bi,bj) |
|
./model/src/cg2d_ex0.F |
269 |
CG2D_EX0 |
cg2d_r(i,j,bi,bj)=cg2d_r(i,j,bi,bj)-alpha*cg2d_q(i,j,bi,bj) |
|
./model/src/cg2d_ex0.F |
271 |
CG2D_EX0 |
& + cg2d_r(i,j,bi,bj)*cg2d_r(i,j,bi,bj) |
|
./model/src/cg2d_ex0.F |
290 |
CG2D_EX0 |
DO i=1,sNx |
|
./model/src/cg2d_ex0.F |
291 |
CG2D_EX0 |
cg2d_min(i,j,bi,bj) = cg2d_x(i,j,bi,bj) |
|
./model/src/cg2d_ex0.F |
320 |
CG2D_EX0 |
DO i=1,sNx |
|
./model/src/cg2d_ex0.F |
321 |
CG2D_EX0 |
cg2d_x(i,j,bi,bj) = cg2d_min(i,j,bi,bj) |
|
./model/src/cg2d_ex0.F |
334 |
CG2D_EX0 |
DO i=1,sNx |
|
./model/src/cg2d_ex0.F |
335 |
CG2D_EX0 |
cg2d_x(i,j,bi,bj) = cg2d_x(i,j,bi,bj)/rhsNorm(bi,bj) |
|
./model/src/cg2d_ex0.F |
83 |
CG2D_EX0 |
INTEGER i, j, it2d |
|
./pkg/mom_common/mom_w_metric_nh.F |
47 |
MOM_W_METRIC_NH |
INTEGER i,j |
|
./pkg/mom_common/mom_w_metric_nh.F |
52 |
MOM_W_METRIC_NH |
DO i=1-Olx,sNx+Olx-1 |
|
./pkg/mom_common/mom_w_metric_nh.F |
53 |
MOM_W_METRIC_NH |
wMetricTerms(i,j) = -gravitySign*wUnit2rVel(k) |
|
./pkg/mom_common/mom_w_metric_nh.F |
55 |
MOM_W_METRIC_NH |
& ( (uFld( i ,j,k-1,bi,bj)*uFld( i ,j,k-1,bi,bj) |
|
./pkg/mom_common/mom_w_metric_nh.F |
56 |
MOM_W_METRIC_NH |
& +uFld(i+1,j,k-1,bi,bj)*uFld(i+1,j,k-1,bi,bj)) |
|
./pkg/mom_common/mom_w_metric_nh.F |
57 |
MOM_W_METRIC_NH |
& + (vFld(i, j ,k-1,bi,bj)*vFld(i, j ,k-1,bi,bj) |
|
./pkg/mom_common/mom_w_metric_nh.F |
58 |
MOM_W_METRIC_NH |
& +vFld(i,j+1,k-1,bi,bj)*vFld(i,j+1,k-1,bi,bj)) |
|
./pkg/mom_common/mom_w_metric_nh.F |
60 |
MOM_W_METRIC_NH |
& + ( (uFld( i ,j, k ,bi,bj)*uFld( i ,j, k ,bi,bj) |
|
./pkg/mom_common/mom_w_metric_nh.F |
61 |
MOM_W_METRIC_NH |
& +uFld(i+1,j, k ,bi,bj)*uFld(i+1,j, k ,bi,bj)) |
|
./pkg/mom_common/mom_w_metric_nh.F |
62 |
MOM_W_METRIC_NH |
& + (vFld(i, j , k ,bi,bj)*vFld(i, j , k ,bi,bj) |
|
./pkg/mom_common/mom_w_metric_nh.F |
63 |
MOM_W_METRIC_NH |
& +vFld(i,j+1, k ,bi,bj)*vFld(i,j+1, k ,bi,bj)) |
|
./pkg/mom_common/mom_w_metric_nh.F |
69 |
MOM_W_METRIC_NH |
DO i=1-Olx,sNx+Olx-1 |
|
./pkg/mom_common/mom_w_metric_nh.F |
70 |
MOM_W_METRIC_NH |
wMetricTerms(i,j) = 0. _d 0 |
|
./pkg/mom_common/mom_w_sidedrag.F |
102 |
MOM_W_SIDEDRAG |
& +heightStepS*_dxG(i,j,bi,bj)*_recip_dyC(i,j,bi,bj) |
|
./pkg/mom_common/mom_w_sidedrag.F |
103 |
MOM_W_SIDEDRAG |
& *( viscAh_W(i,j,k,bi,bj)*wFld(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_w_sidedrag.F |
107 |
MOM_W_SIDEDRAG |
& -viscA4_W(i,j,k,bi,bj)*del2w(i,j) |
|
./pkg/mom_common/mom_w_sidedrag.F |
116 |
MOM_W_SIDEDRAG |
& +heightStepN*_dxG(i,j+1,bi,bj)*_recip_dyC(i,j+1,bi,bj) |
|
./pkg/mom_common/mom_w_sidedrag.F |
117 |
MOM_W_SIDEDRAG |
& *( viscAh_W(i,j,k,bi,bj)*wFld(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_w_sidedrag.F |
121 |
MOM_W_SIDEDRAG |
& -viscA4_W(i,j,k,bi,bj)*del2w(i,j) |
|
./pkg/mom_common/mom_w_sidedrag.F |
130 |
MOM_W_SIDEDRAG |
& )*recip_rThickC(i,j)*recip_rA(i,j,bi,bj) |
|
./pkg/mom_common/mom_w_sidedrag.F |
62 |
MOM_W_SIDEDRAG |
INTEGER i,j |
|
./pkg/mom_common/mom_w_sidedrag.F |
71 |
MOM_W_SIDEDRAG |
DO i=2-Olx,sNx+Olx-1 |
|
./pkg/mom_common/mom_w_sidedrag.F |
74 |
MOM_W_SIDEDRAG |
heightStepW = MAX( 0. _d 0, rThickC(i,j) - rThickC(i-1,j) ) |
|
./pkg/mom_common/mom_w_sidedrag.F |
75 |
MOM_W_SIDEDRAG |
heightStepE = MAX( 0. _d 0, rThickC(i,j) - rThickC(i+1,j) ) |
|
./pkg/mom_common/mom_w_sidedrag.F |
76 |
MOM_W_SIDEDRAG |
heightStepS = MAX( 0. _d 0, rThickC(i,j) - rThickC(i,j-1) ) |
|
./pkg/mom_common/mom_w_sidedrag.F |
77 |
MOM_W_SIDEDRAG |
heightStepN = MAX( 0. _d 0, rThickC(i,j) - rThickC(i,j+1) ) |
|
./pkg/mom_common/mom_w_sidedrag.F |
80 |
MOM_W_SIDEDRAG |
gwSideDrag(i,j) = |
|
./pkg/mom_common/mom_w_sidedrag.F |
82 |
MOM_W_SIDEDRAG |
& *( heightStepW*_dyG( i ,j,bi,bj)*_recip_dxC( i ,j,bi,bj) |
|
./pkg/mom_common/mom_w_sidedrag.F |
83 |
MOM_W_SIDEDRAG |
& *( viscAh_W(i,j,k,bi,bj)*wFld(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_w_sidedrag.F |
85 |
MOM_W_SIDEDRAG |
& -viscA4_W(i,j,k,bi,bj)*del2w(i,j) |
|
./pkg/mom_common/mom_w_sidedrag.F |
92 |
MOM_W_SIDEDRAG |
& +heightStepE*_dyG(i+1,j,bi,bj)*_recip_dxC(i+1,j,bi,bj) |
|
./pkg/mom_common/mom_w_sidedrag.F |
93 |
MOM_W_SIDEDRAG |
& *( viscAh_W(i,j,k,bi,bj)*wFld(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_w_sidedrag.F |
95 |
MOM_W_SIDEDRAG |
& -viscA4_W(i,j,k,bi,bj)*del2w(i,j) |
|
./pkg/mom_common/mom_w_smag_3d.F |
56 |
MOM_W_SMAG_3D |
INTEGER i,j |
|
./pkg/mom_common/mom_w_smag_3d.F |
73 |
MOM_W_SMAG_3D |
DO i= iMin,iMax |
|
./pkg/mom_common/mom_w_smag_3d.F |
75 |
MOM_W_SMAG_3D |
wDissip(i,j) = |
|
./pkg/mom_common/mom_w_smag_3d.F |
76 |
MOM_W_SMAG_3D |
& recip_rA(i,j,bi,bj)*( |
|
./pkg/mom_common/mom_w_smag_3d.F |
77 |
MOM_W_SMAG_3D |
& ( viscAh3d_13(i+1, j , k )*str13(i+1, j ,k) |
|
./pkg/mom_common/mom_w_smag_3d.F |
79 |
MOM_W_SMAG_3D |
& *dyG(i+1, j ,bi,bj) |
|
./pkg/mom_common/mom_w_smag_3d.F |
80 |
MOM_W_SMAG_3D |
& -viscAh3d_13( i , j , k )*str13( i , j ,k) |
|
./pkg/mom_common/mom_w_smag_3d.F |
82 |
MOM_W_SMAG_3D |
& *dyG( i , j ,bi,bj) |
|
./pkg/mom_common/mom_w_smag_3d.F |
84 |
MOM_W_SMAG_3D |
& +( viscAh3d_23( i ,j+1, k )*str23( i ,j+1,k) |
|
./pkg/mom_common/mom_w_smag_3d.F |
86 |
MOM_W_SMAG_3D |
& *dxG( i ,j+1,bi,bj) |
|
./pkg/mom_common/mom_w_smag_3d.F |
87 |
MOM_W_SMAG_3D |
& -viscAh3d_23( i , j , k )*str23( i , j ,k) |
|
./pkg/mom_common/mom_w_smag_3d.F |
89 |
MOM_W_SMAG_3D |
& *dxG( i , j ,bi,bj) |
|
./pkg/mom_common/mom_w_smag_3d.F |
91 |
MOM_W_SMAG_3D |
& + recip_rThickC(i,j) |
|
./pkg/mom_common/mom_w_smag_3d.F |
92 |
MOM_W_SMAG_3D |
& *( viscAh3d_00( i , j , k )*str33( i , j , k ) |
|
./pkg/mom_common/mom_w_smag_3d.F |
93 |
MOM_W_SMAG_3D |
& -viscAh3d_00( i , j ,km1)*str33( i , j ,km1)*maskM1 |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
100 |
MOM_CALC_RTRANS |
& 0.5 _d 0*( wVel(i-1,j,k,bi,bj)*rA(i-1,j,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
101 |
MOM_CALC_RTRANS |
& +wVel( i ,j,k,bi,bj)*rA( i ,j,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
103 |
MOM_CALC_RTRANS |
rTransV(i,j) = |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
104 |
MOM_CALC_RTRANS |
& 0.5 _d 0*( wVel(i,j-1,k,bi,bj)*rA(i,j-1,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
105 |
MOM_CALC_RTRANS |
& +wVel(i, j ,k,bi,bj)*rA(i, j ,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
120 |
MOM_CALC_RTRANS |
DO i=1-OLx,sNx+OLx |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
121 |
MOM_CALC_RTRANS |
dWtransC(i,j,bi,bj) = rStarDhCDt(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
122 |
MOM_CALC_RTRANS |
& *(Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj)) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
123 |
MOM_CALC_RTRANS |
& *rA(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
127 |
MOM_CALC_RTRANS |
DO i=1-OLx+1,sNx+OLx |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
128 |
MOM_CALC_RTRANS |
dWtransU(i,j,bi,bj) = |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
129 |
MOM_CALC_RTRANS |
& 0.5 _d 0*(dWtransC(i-1,j,bi,bj)+dWtransC(i,j,bi,bj)) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
130 |
MOM_CALC_RTRANS |
dWtransV(i,j,bi,bj) = |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
131 |
MOM_CALC_RTRANS |
& 0.5 _d 0*(dWtransC(i,j-1,bi,bj)+dWtransC(i,j,bi,bj)) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
138 |
MOM_CALC_RTRANS |
DO i=1-OLx,sNx+OLx |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
139 |
MOM_CALC_RTRANS |
dWtransC(i,j,bi,bj) = dWtransC(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
140 |
MOM_CALC_RTRANS |
& - rStarDhCDt(i,j,bi,bj)*drF(k-1)*h0FacC(i,j,k-1,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
141 |
MOM_CALC_RTRANS |
& *rA(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
145 |
MOM_CALC_RTRANS |
DO i=1-OLx+1,sNx+OLx |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
146 |
MOM_CALC_RTRANS |
dWtransU(i,j,bi,bj) = dWtransU(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
147 |
MOM_CALC_RTRANS |
& - rStarDhWDt(i,j,bi,bj)*drF(k-1)*h0FacW(i,j,k-1,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
148 |
MOM_CALC_RTRANS |
& *rAw(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
149 |
MOM_CALC_RTRANS |
dWtransV(i,j,bi,bj) = dWtransV(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
150 |
MOM_CALC_RTRANS |
& - rStarDhSDt(i,j,bi,bj)*drF(k-1)*h0FacS(i,j,k-1,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
151 |
MOM_CALC_RTRANS |
& *rAs(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
156 |
MOM_CALC_RTRANS |
DO i=1-OLx+1,sNx+OLx |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
157 |
MOM_CALC_RTRANS |
rTransU(i,j) = rTransU(i,j)-dWtransU(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
158 |
MOM_CALC_RTRANS |
& + (dWtransC(i-1,j,bi,bj)+dWtransC(i,j,bi,bj))*0.5 _d 0 |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
159 |
MOM_CALC_RTRANS |
rTransV(i,j) = rTransV(i,j)-dWtransV(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
160 |
MOM_CALC_RTRANS |
& + (dWtransC(i,j-1,bi,bj)+dWtransC(i,j,bi,bj))*0.5 _d 0 |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
67 |
MOM_CALC_RTRANS |
INTEGER i,j |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
76 |
MOM_CALC_RTRANS |
DO i=1-OLx+1,sNx+OLx |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
77 |
MOM_CALC_RTRANS |
rTransU(i,j) = mass2rUnit* |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
78 |
MOM_CALC_RTRANS |
& 0.5 _d 0*( PmEpR( i ,j,bi,bj)*rA( i ,j,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
79 |
MOM_CALC_RTRANS |
& +PmEpR(i-1,j,bi,bj)*rA(i-1,j,bi,bj) ) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
80 |
MOM_CALC_RTRANS |
rTransV(i,j) = mass2rUnit* |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
81 |
MOM_CALC_RTRANS |
& 0.5 _d 0*( PmEpR(i, j ,bi,bj)*rA(i, j ,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
82 |
MOM_CALC_RTRANS |
& +PmEpR(i,j-1,bi,bj)*rA(i,j-1,bi,bj) ) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
90 |
MOM_CALC_RTRANS |
DO i=1-OLx+1,sNx+OLx |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
91 |
MOM_CALC_RTRANS |
rTransU(i,j) = 0. |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
92 |
MOM_CALC_RTRANS |
rTransV(i,j) = 0. |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
98 |
MOM_CALC_RTRANS |
DO i=1-OLx+1,sNx+OLx |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
99 |
MOM_CALC_RTRANS |
rTransU(i,j) = |
|
./pkg/mom_fluxform/mom_fluxform.F |
112 |
MOM_FLUXFORM |
INTEGER i,j |
|
./pkg/mom_fluxform/mom_fluxform.F |
199 |
MOM_FLUXFORM |
DO i=1-OLx,sNx+OLx |
|
./pkg/mom_fluxform/mom_fluxform.F |
200 |
MOM_FLUXFORM |
vF(i,j) = 0. |
|
./pkg/mom_fluxform/mom_fluxform.F |
201 |
MOM_FLUXFORM |
v4F(i,j) = 0. |
|
./pkg/mom_fluxform/mom_fluxform.F |
202 |
MOM_FLUXFORM |
cF(i,j) = 0. |
|
./pkg/mom_fluxform/mom_fluxform.F |
203 |
MOM_FLUXFORM |
mT(i,j) = 0. |
|
./pkg/mom_fluxform/mom_fluxform.F |
204 |
MOM_FLUXFORM |
fZon(i,j) = 0. |
|
./pkg/mom_fluxform/mom_fluxform.F |
205 |
MOM_FLUXFORM |
fMer(i,j) = 0. |
|
./pkg/mom_fluxform/mom_fluxform.F |
206 |
MOM_FLUXFORM |
fVrUp(i,j)= 0. |
|
./pkg/mom_fluxform/mom_fluxform.F |
207 |
MOM_FLUXFORM |
fVrDw(i,j)= 0. |
|
./pkg/mom_fluxform/mom_fluxform.F |
208 |
MOM_FLUXFORM |
rTransU(i,j)= 0. |
|
./pkg/mom_fluxform/mom_fluxform.F |
209 |
MOM_FLUXFORM |
rTransV(i,j)= 0. |
|
./pkg/mom_fluxform/mom_fluxform.F |
211 |
MOM_FLUXFORM |
hDiv(i,j) = 0. |
|
./pkg/mom_fluxform/mom_fluxform.F |
212 |
MOM_FLUXFORM |
vort3(i,j) = 0. |
|
./pkg/mom_fluxform/mom_fluxform.F |
213 |
MOM_FLUXFORM |
strain(i,j) = 0. |
|
./pkg/mom_fluxform/mom_fluxform.F |
214 |
MOM_FLUXFORM |
tension(i,j)= 0. |
|
./pkg/mom_fluxform/mom_fluxform.F |
215 |
MOM_FLUXFORM |
guDiss(i,j) = 0. |
|
./pkg/mom_fluxform/mom_fluxform.F |
216 |
MOM_FLUXFORM |
gvDiss(i,j) = 0. |
|
./pkg/mom_fluxform/mom_fluxform.F |
270 |
MOM_FLUXFORM |
DO i=1-OLx,sNx+OLx |
|
./pkg/mom_fluxform/mom_fluxform.F |
271 |
MOM_FLUXFORM |
xA(i,j) = _dyG(i,j,bi,bj)*deepFacC(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
272 |
MOM_FLUXFORM |
& *drF(k)*_hFacW(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
273 |
MOM_FLUXFORM |
yA(i,j) = _dxG(i,j,bi,bj)*deepFacC(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
274 |
MOM_FLUXFORM |
& *drF(k)*_hFacS(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
275 |
MOM_FLUXFORM |
h0FacZ(i,j) = hFacZ(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
282 |
MOM_FLUXFORM |
DO i=2-OLx,sNx+OLx |
|
./pkg/mom_fluxform/mom_fluxform.F |
283 |
MOM_FLUXFORM |
h0FacZ(i,j) = MIN( |
|
./pkg/mom_fluxform/mom_fluxform.F |
284 |
MOM_FLUXFORM |
& MIN( h0FacW(i,j,k,bi,bj), h0FacW(i,j-1,k,bi,bj) ), |
|
./pkg/mom_fluxform/mom_fluxform.F |
285 |
MOM_FLUXFORM |
& MIN( h0FacS(i,j,k,bi,bj), h0FacS(i-1,j,k,bi,bj) ) ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
293 |
MOM_FLUXFORM |
DO i=1-OLx,sNx+OLx |
|
./pkg/mom_fluxform/mom_fluxform.F |
294 |
MOM_FLUXFORM |
uFld(i,j) = uVel(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
295 |
MOM_FLUXFORM |
vFld(i,j) = vVel(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
302 |
MOM_FLUXFORM |
DO i=1-OLx,sNx+OLx |
|
./pkg/mom_fluxform/mom_fluxform.F |
303 |
MOM_FLUXFORM |
uTrans(i,j) = uFld(i,j)*xA(i,j)*rhoFacC(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
304 |
MOM_FLUXFORM |
vTrans(i,j) = vFld(i,j)*yA(i,j)*rhoFacC(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
315 |
MOM_FLUXFORM |
DO i=1-OLx,sNx+OLx |
|
./pkg/mom_fluxform/mom_fluxform.F |
316 |
MOM_FLUXFORM |
IF ( hFacZ(i,j).EQ.0. ) THEN |
|
./pkg/mom_fluxform/mom_fluxform.F |
317 |
MOM_FLUXFORM |
vort3(i,j) = sideMaskFac*vort3(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
318 |
MOM_FLUXFORM |
strain(i,j) = sideMaskFac*strain(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
390 |
MOM_FLUXFORM |
DO i=1-OLx,sNx+OLx |
|
./pkg/mom_fluxform/mom_fluxform.F |
391 |
MOM_FLUXFORM |
viscAh_D(i,j) = viscAhD |
|
./pkg/mom_fluxform/mom_fluxform.F |
392 |
MOM_FLUXFORM |
viscAh_Z(i,j) = viscAhZ |
|
./pkg/mom_fluxform/mom_fluxform.F |
393 |
MOM_FLUXFORM |
viscA4_D(i,j) = viscA4D |
|
./pkg/mom_fluxform/mom_fluxform.F |
394 |
MOM_FLUXFORM |
viscA4_Z(i,j) = viscA4Z |
|
./pkg/mom_fluxform/mom_fluxform.F |
438 |
MOM_FLUXFORM |
DO i=iMin,iMax |
|
./pkg/mom_fluxform/mom_fluxform.F |
439 |
MOM_FLUXFORM |
gU(i,j,k,bi,bj) = |
|
./pkg/mom_fluxform/mom_fluxform.F |
441 |
MOM_FLUXFORM |
& -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k)/ |
|
./pkg/mom_fluxform/mom_fluxform.F |
442 |
MOM_FLUXFORM |
& ( 0.5 _d 0*(rA(i,j,bi,bj)+rA(i-1,j,bi,bj)) ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
444 |
MOM_FLUXFORM |
& -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
445 |
MOM_FLUXFORM |
& *recip_rAw(i,j,bi,bj)*recip_deepFac2C(k)*recip_rhoFacC(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
447 |
MOM_FLUXFORM |
& *( ( fZon(i,j ) - fZon(i-1,j) )*uDudxFac |
|
./pkg/mom_fluxform/mom_fluxform.F |
448 |
MOM_FLUXFORM |
& +( fMer(i,j+1) - fMer(i, j) )*vDudyFac |
|
./pkg/mom_fluxform/mom_fluxform.F |
449 |
MOM_FLUXFORM |
& +( fVerUkp(i,j) - fVerUkm(i,j) )*rkSign*rVelDudrFac |
|
./pkg/mom_fluxform/mom_fluxform.F |
467 |
MOM_FLUXFORM |
DO i=iMin,iMax |
|
./pkg/mom_fluxform/mom_fluxform.F |
468 |
MOM_FLUXFORM |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
469 |
MOM_FLUXFORM |
& - (rStarExpW(i,j,bi,bj) - 1. _d 0)/deltaTFreeSurf |
|
./pkg/mom_fluxform/mom_fluxform.F |
470 |
MOM_FLUXFORM |
& *uVel(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
476 |
MOM_FLUXFORM |
DO i=iMin,iMax |
|
./pkg/mom_fluxform/mom_fluxform.F |
477 |
MOM_FLUXFORM |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
478 |
MOM_FLUXFORM |
& - rStarDhWDt(i,j,bi,bj)*uVel(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
488 |
MOM_FLUXFORM |
DO i=iMin,iMax |
|
./pkg/mom_fluxform/mom_fluxform.F |
489 |
MOM_FLUXFORM |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
490 |
MOM_FLUXFORM |
& + uVel(i,j,k,bi,bj)*mass2rUnit*0.5 _d 0 |
|
./pkg/mom_fluxform/mom_fluxform.F |
491 |
MOM_FLUXFORM |
& *( addMass(i-1,j,k,bi,bj) + addMass(i,j,k,bi,bj) ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
492 |
MOM_FLUXFORM |
& *_recip_hFacW(i,j,k,bi,bj)*recip_drF(k)*recip_rhoFacC(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
493 |
MOM_FLUXFORM |
& * recip_rAw(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
502 |
MOM_FLUXFORM |
DO i=1-OLx,sNx+OLx |
|
./pkg/mom_fluxform/mom_fluxform.F |
503 |
MOM_FLUXFORM |
gU(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mom_fluxform/mom_fluxform.F |
535 |
MOM_FLUXFORM |
DO i=iMin,iMax |
|
./pkg/mom_fluxform/mom_fluxform.F |
536 |
MOM_FLUXFORM |
guDiss(i,j) = |
|
./pkg/mom_fluxform/mom_fluxform.F |
538 |
MOM_FLUXFORM |
& -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k)/ |
|
./pkg/mom_fluxform/mom_fluxform.F |
539 |
MOM_FLUXFORM |
& ( 0.5 _d 0*(rA(i,j,bi,bj)+rA(i-1,j,bi,bj)) ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
541 |
MOM_FLUXFORM |
& -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
542 |
MOM_FLUXFORM |
& *recip_rAw(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
544 |
MOM_FLUXFORM |
& *( ( fZon(i,j ) - fZon(i-1,j) )*AhDudxFac |
|
./pkg/mom_fluxform/mom_fluxform.F |
545 |
MOM_FLUXFORM |
& +( fMer(i,j+1) - fMer(i, j) )*AhDudyFac |
|
./pkg/mom_fluxform/mom_fluxform.F |
546 |
MOM_FLUXFORM |
& +( fVrDw(i,j) - fVrUp(i,j) )*rkSign*ArDudrFac |
|
./pkg/mom_fluxform/mom_fluxform.F |
571 |
MOM_FLUXFORM |
DO i=iMin,iMax |
|
./pkg/mom_fluxform/mom_fluxform.F |
572 |
MOM_FLUXFORM |
gUdiss(i,j) = gUdiss(i,j) + vF(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
583 |
MOM_FLUXFORM |
DO i=iMin,iMax |
|
./pkg/mom_fluxform/mom_fluxform.F |
584 |
MOM_FLUXFORM |
gUdiss(i,j) = gUdiss(i,j) + vF(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
596 |
MOM_FLUXFORM |
DO i=iMin,iMax |
|
./pkg/mom_fluxform/mom_fluxform.F |
597 |
MOM_FLUXFORM |
gUdiss(i,j) = gUdiss(i,j) + vF(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
617 |
MOM_FLUXFORM |
DO i=iMin,iMax |
|
./pkg/mom_fluxform/mom_fluxform.F |
618 |
MOM_FLUXFORM |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+mtNHFacU*mT(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
626 |
MOM_FLUXFORM |
DO i=iMin,iMax |
|
./pkg/mom_fluxform/mom_fluxform.F |
627 |
MOM_FLUXFORM |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+mtFacU*mT(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
635 |
MOM_FLUXFORM |
DO i=iMin,iMax |
|
./pkg/mom_fluxform/mom_fluxform.F |
636 |
MOM_FLUXFORM |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+mtFacU*mT(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
671 |
MOM_FLUXFORM |
DO i=iMin,iMax |
|
./pkg/mom_fluxform/mom_fluxform.F |
672 |
MOM_FLUXFORM |
gV(i,j,k,bi,bj) = |
|
./pkg/mom_fluxform/mom_fluxform.F |
674 |
MOM_FLUXFORM |
& -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k)/ |
|
./pkg/mom_fluxform/mom_fluxform.F |
675 |
MOM_FLUXFORM |
& ( 0.5 _d 0*(_rA(i,j,bi,bj)+_rA(i,j-1,bi,bj)) ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
677 |
MOM_FLUXFORM |
& -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
678 |
MOM_FLUXFORM |
& *recip_rAs(i,j,bi,bj)*recip_deepFac2C(k)*recip_rhoFacC(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
680 |
MOM_FLUXFORM |
& *( ( fZon(i+1,j) - fZon(i,j ) )*uDvdxFac |
|
./pkg/mom_fluxform/mom_fluxform.F |
681 |
MOM_FLUXFORM |
& +( fMer(i, j) - fMer(i,j-1) )*vDvdyFac |
|
./pkg/mom_fluxform/mom_fluxform.F |
682 |
MOM_FLUXFORM |
& +( fVerVkp(i,j) - fVerVkm(i,j) )*rkSign*rVelDvdrFac |
|
./pkg/mom_fluxform/mom_fluxform.F |
700 |
MOM_FLUXFORM |
DO i=iMin,iMax |
|
./pkg/mom_fluxform/mom_fluxform.F |
701 |
MOM_FLUXFORM |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
702 |
MOM_FLUXFORM |
& - (rStarExpS(i,j,bi,bj) - 1. _d 0)/deltaTFreeSurf |
|
./pkg/mom_fluxform/mom_fluxform.F |
703 |
MOM_FLUXFORM |
& *vVel(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
709 |
MOM_FLUXFORM |
DO i=iMin,iMax |
|
./pkg/mom_fluxform/mom_fluxform.F |
710 |
MOM_FLUXFORM |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
711 |
MOM_FLUXFORM |
& - rStarDhSDt(i,j,bi,bj)*vVel(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
721 |
MOM_FLUXFORM |
DO i=iMin,iMax |
|
./pkg/mom_fluxform/mom_fluxform.F |
722 |
MOM_FLUXFORM |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
723 |
MOM_FLUXFORM |
& + vVel(i,j,k,bi,bj)*mass2rUnit*0.5 _d 0 |
|
./pkg/mom_fluxform/mom_fluxform.F |
724 |
MOM_FLUXFORM |
& *( addMass(i,j-1,k,bi,bj) + addMass(i,j,k,bi,bj) ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
725 |
MOM_FLUXFORM |
& *_recip_hFacS(i,j,k,bi,bj)*recip_drF(k)*recip_rhoFacC(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
726 |
MOM_FLUXFORM |
& * recip_rAs(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
735 |
MOM_FLUXFORM |
DO i=1-OLx,sNx+OLx |
|
./pkg/mom_fluxform/mom_fluxform.F |
736 |
MOM_FLUXFORM |
gV(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mom_fluxform/mom_fluxform.F |
767 |
MOM_FLUXFORM |
DO i=iMin,iMax |
|
./pkg/mom_fluxform/mom_fluxform.F |
768 |
MOM_FLUXFORM |
gvDiss(i,j) = |
|
./pkg/mom_fluxform/mom_fluxform.F |
770 |
MOM_FLUXFORM |
& -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k)/ |
|
./pkg/mom_fluxform/mom_fluxform.F |
771 |
MOM_FLUXFORM |
& ( 0.5 _d 0*(_rA(i,j,bi,bj)+_rA(i,j-1,bi,bj)) ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
773 |
MOM_FLUXFORM |
& -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
774 |
MOM_FLUXFORM |
& *recip_rAs(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
776 |
MOM_FLUXFORM |
& *( ( fZon(i+1,j) - fZon(i,j ) )*AhDvdxFac |
|
./pkg/mom_fluxform/mom_fluxform.F |
777 |
MOM_FLUXFORM |
& +( fMer(i, j) - fMer(i,j-1) )*AhDvdyFac |
|
./pkg/mom_fluxform/mom_fluxform.F |
778 |
MOM_FLUXFORM |
& +( fVrDw(i,j) - fVrUp(i,j) )*rkSign*ArDvdrFac |
|
./pkg/mom_fluxform/mom_fluxform.F |
803 |
MOM_FLUXFORM |
DO i=iMin,iMax |
|
./pkg/mom_fluxform/mom_fluxform.F |
804 |
MOM_FLUXFORM |
gvDiss(i,j) = gvDiss(i,j) + vF(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
815 |
MOM_FLUXFORM |
DO i=iMin,iMax |
|
./pkg/mom_fluxform/mom_fluxform.F |
816 |
MOM_FLUXFORM |
gvDiss(i,j) = gvDiss(i,j) + vF(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
828 |
MOM_FLUXFORM |
DO i=iMin,iMax |
|
./pkg/mom_fluxform/mom_fluxform.F |
829 |
MOM_FLUXFORM |
gvDiss(i,j) = gvDiss(i,j) + vF(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
849 |
MOM_FLUXFORM |
DO i=iMin,iMax |
|
./pkg/mom_fluxform/mom_fluxform.F |
850 |
MOM_FLUXFORM |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+mtNHFacV*mT(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
858 |
MOM_FLUXFORM |
DO i=iMin,iMax |
|
./pkg/mom_fluxform/mom_fluxform.F |
859 |
MOM_FLUXFORM |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+mtFacV*mT(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
867 |
MOM_FLUXFORM |
DO i=iMin,iMax |
|
./pkg/mom_fluxform/mom_fluxform.F |
868 |
MOM_FLUXFORM |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+mtFacV*mT(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
879 |
MOM_FLUXFORM |
DO i=iMin,iMax |
|
./pkg/mom_fluxform/mom_fluxform.F |
880 |
MOM_FLUXFORM |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+fuFac*cf(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
889 |
MOM_FLUXFORM |
DO i=iMin,iMax |
|
./pkg/mom_fluxform/mom_fluxform.F |
890 |
MOM_FLUXFORM |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+fvFac*cf(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
903 |
MOM_FLUXFORM |
DO i=iMin,iMax |
|
./pkg/mom_fluxform/mom_fluxform.F |
904 |
MOM_FLUXFORM |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+fuFac*cf(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
911 |
MOM_FLUXFORM |
DO i=iMin,iMax |
|
./pkg/mom_fluxform/mom_fluxform.F |
912 |
MOM_FLUXFORM |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+fvFac*cf(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
920 |
MOM_FLUXFORM |
DO i=iMin,iMax |
|
./pkg/mom_fluxform/mom_fluxform.F |
921 |
MOM_FLUXFORM |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)*_maskW(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
922 |
MOM_FLUXFORM |
guDiss(i,j) = guDiss(i,j) *_maskW(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
923 |
MOM_FLUXFORM |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)*_maskS(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
924 |
MOM_FLUXFORM |
gvDiss(i,j) = gvDiss(i,j) *_maskS(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_u_adv_uu.F |
46 |
MOM_U_ADV_UU |
INTEGER i,j |
|
./pkg/mom_fluxform/mom_u_adv_uu.F |
50 |
MOM_U_ADV_UU |
DO i=1-Olx,sNx+Olx-1 |
|
./pkg/mom_fluxform/mom_u_adv_uu.F |
51 |
MOM_U_ADV_UU |
AdvectFluxUU(i,j) = |
|
./pkg/mom_fluxform/mom_u_adv_uu.F |
52 |
MOM_U_ADV_UU |
& 0.25*( uTrans(i,j) + uTrans(i+1,j) ) |
|
./pkg/mom_fluxform/mom_u_adv_uu.F |
54 |
MOM_U_ADV_UU |
& *( uFld(i,j)*_maskW(i+1,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_u_adv_uu.F |
55 |
MOM_U_ADV_UU |
& + uFld(i+1,j)*_maskW(i,j,k,bi,bj) ) |
|
./pkg/mom_fluxform/mom_u_adv_uu.F |
57 |
MOM_U_ADV_UU |
& *( uFld(i,j) + uFld(i+1,j) ) |
|
./pkg/mom_fluxform/mom_u_adv_vu.F |
46 |
MOM_U_ADV_VU |
INTEGER i,j |
|
./pkg/mom_fluxform/mom_u_adv_vu.F |
50 |
MOM_U_ADV_VU |
DO i=1-Olx+1,sNx+Olx |
|
./pkg/mom_fluxform/mom_u_adv_vu.F |
51 |
MOM_U_ADV_VU |
AdvectFluxVU(i,j) = |
|
./pkg/mom_fluxform/mom_u_adv_vu.F |
52 |
MOM_U_ADV_VU |
& 0.25*( vTrans(i,j) + vTrans(i-1,j) ) |
|
./pkg/mom_fluxform/mom_u_adv_vu.F |
54 |
MOM_U_ADV_VU |
& *( uFld(i,j)*_maskW(i,j-1,k,bi,bj) |
|
./pkg/mom_fluxform/mom_u_adv_vu.F |
55 |
MOM_U_ADV_VU |
& + uFld(i,j-1)*_maskW(i,j,k,bi,bj) ) |
|
./pkg/mom_fluxform/mom_u_adv_vu.F |
57 |
MOM_U_ADV_VU |
& *( uFld(i,j) + uFld(i,j-1) ) |
|
./pkg/mom_fluxform/mom_u_adv_vu.F |
60 |
MOM_U_ADV_VU |
& *_maskW(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_u_adv_vu.F |
61 |
MOM_U_ADV_VU |
& *_maskW(i,j-1,k,bi,bj) |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
100 |
MOM_U_ADV_WU |
& (maskC( i ,j,k,bi,bj)-maskC( i ,j,k-1,bi,bj)) |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
101 |
MOM_U_ADV_WU |
& +wFld(i-1,j,k,bi,bj)*rA(i-1,j,bi,bj)* |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
102 |
MOM_U_ADV_WU |
& (maskC(i-1,j,k,bi,bj)-maskC(i-1,j,k-1,bi,bj)) |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
104 |
MOM_U_ADV_WU |
& *uFld(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
48 |
MOM_U_ADV_WU |
INTEGER i,j |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
54 |
MOM_U_ADV_WU |
DO i=1-Olx+1,sNx+Olx |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
55 |
MOM_U_ADV_WU |
advectiveFluxWU(i,j) = rTrans(i,j)*uFld(i,j,k-1,bi,bj) |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
63 |
MOM_U_ADV_WU |
DO i=1-Olx,sNx+Olx |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
64 |
MOM_U_ADV_WU |
advectiveFluxWU(i,j) = 0. |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
72 |
MOM_U_ADV_WU |
DO i=1-Olx+1,sNx+Olx |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
73 |
MOM_U_ADV_WU |
advectiveFluxWU(i,j) = rTrans(i,j)*uFld(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
81 |
MOM_U_ADV_WU |
DO i=1-Olx+1,sNx+Olx |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
82 |
MOM_U_ADV_WU |
advectiveFluxWU(i,j) = rTrans(i,j)* |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
84 |
MOM_U_ADV_WU |
& 0.5 _d 0*( uFld(i,j,k,bi,bj)*_maskW(i,j,k-1,bi,bj) |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
85 |
MOM_U_ADV_WU |
& +uFld(i,j,k-1,bi,bj)*_maskW(i,j,k,bi,bj) ) |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
87 |
MOM_U_ADV_WU |
& 0.5 _d 0*( uFld(i,j,k,bi,bj)+uFld(i,j,k-1,bi,bj) ) |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
96 |
MOM_U_ADV_WU |
DO i=1-Olx+1,sNx+Olx |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
97 |
MOM_U_ADV_WU |
advectiveFluxWU(i,j) = advectiveFluxWU(i,j) |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
99 |
MOM_U_ADV_WU |
& wFld(i, j ,k,bi,bj)*rA(i, j ,bi,bj)* |
|
./model/src/cg2d_nsa.F |
101 |
CG2D_NSA |
INTEGER i, j, it2d |
|
./model/src/cg2d_nsa.F |
150 |
CG2D_NSA |
DO i=1,sNx |
|
./model/src/cg2d_nsa.F |
151 |
CG2D_NSA |
cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj)*cg2dNorm |
|
./model/src/cg2d_nsa.F |
152 |
CG2D_NSA |
rhsMax = MAX(ABS(cg2d_b(i,j,bi,bj)),rhsMax) |
|
./model/src/cg2d_nsa.F |
167 |
CG2D_NSA |
DO i=1,sNx |
|
./model/src/cg2d_nsa.F |
168 |
CG2D_NSA |
cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj)*rhsNorm |
|
./model/src/cg2d_nsa.F |
169 |
CG2D_NSA |
cg2d_x(i,j,bi,bj) = cg2d_x(i,j,bi,bj)*rhsNorm |
|
./model/src/cg2d_nsa.F |
191 |
CG2D_NSA |
DO i=0,sNx+1 |
|
./model/src/cg2d_nsa.F |
192 |
CG2D_NSA |
cg2d_s(i,j,bi,bj) = 0. |
|
./model/src/cg2d_nsa.F |
196 |
CG2D_NSA |
DO i=1,sNx |
|
./model/src/cg2d_nsa.F |
197 |
CG2D_NSA |
cg2d_r(i,j,bi,bj) = cg2d_b(i,j,bi,bj) - |
|
./model/src/cg2d_nsa.F |
198 |
CG2D_NSA |
& (aW2d(i ,j ,bi,bj)*cg2d_x(i-1,j ,bi,bj) |
|
./model/src/cg2d_nsa.F |
199 |
CG2D_NSA |
& +aW2d(i+1,j ,bi,bj)*cg2d_x(i+1,j ,bi,bj) |
|
./model/src/cg2d_nsa.F |
200 |
CG2D_NSA |
& +aS2d(i ,j ,bi,bj)*cg2d_x(i ,j-1,bi,bj) |
|
./model/src/cg2d_nsa.F |
201 |
CG2D_NSA |
& +aS2d(i ,j+1,bi,bj)*cg2d_x(i ,j+1,bi,bj) |
|
./model/src/cg2d_nsa.F |
202 |
CG2D_NSA |
& +aC2d(i ,j ,bi,bj)*cg2d_x(i ,j ,bi,bj) |
|
./model/src/cg2d_nsa.F |
205 |
CG2D_NSA |
& + cg2d_r(i,j,bi,bj)*cg2d_r(i,j,bi,bj) |
|
./model/src/cg2d_nsa.F |
206 |
CG2D_NSA |
sumRHStile(bi,bj) = sumRHStile(bi,bj) + cg2d_b(i,j,bi,bj) |
|
./model/src/cg2d_nsa.F |
260 |
CG2D_NSA |
DO i=1,sNx |
|
./model/src/cg2d_nsa.F |
261 |
CG2D_NSA |
cg2d_z(i,j,bi,bj) = |
|
./model/src/cg2d_nsa.F |
262 |
CG2D_NSA |
& pC(i ,j ,bi,bj)*cg2d_r(i ,j ,bi,bj) |
|
./model/src/cg2d_nsa.F |
263 |
CG2D_NSA |
& +pW(i ,j ,bi,bj)*cg2d_r(i-1,j ,bi,bj) |
|
./model/src/cg2d_nsa.F |
264 |
CG2D_NSA |
& +pW(i+1,j ,bi,bj)*cg2d_r(i+1,j ,bi,bj) |
|
./model/src/cg2d_nsa.F |
265 |
CG2D_NSA |
& +pS(i ,j ,bi,bj)*cg2d_r(i ,j-1,bi,bj) |
|
./model/src/cg2d_nsa.F |
266 |
CG2D_NSA |
& +pS(i ,j+1,bi,bj)*cg2d_r(i ,j+1,bi,bj) |
|
./model/src/cg2d_nsa.F |
268 |
CG2D_NSA |
& +cg2d_z(i,j,bi,bj)*cg2d_r(i,j,bi,bj) |
|
./model/src/cg2d_nsa.F |
289 |
CG2D_NSA |
DO i=1,sNx |
|
./model/src/cg2d_nsa.F |
290 |
CG2D_NSA |
cg2d_s(i,j,bi,bj) = cg2d_z(i,j,bi,bj) |
|
./model/src/cg2d_nsa.F |
291 |
CG2D_NSA |
& + cgBeta*cg2d_s(i,j,bi,bj) |
|
./model/src/cg2d_nsa.F |
313 |
CG2D_NSA |
DO i=1,sNx |
|
./model/src/cg2d_nsa.F |
314 |
CG2D_NSA |
cg2d_q(i,j,bi,bj) = |
|
./model/src/cg2d_nsa.F |
315 |
CG2D_NSA |
& aW2d(i ,j ,bi,bj)*cg2d_s(i-1,j ,bi,bj) |
|
./model/src/cg2d_nsa.F |
316 |
CG2D_NSA |
& +aW2d(i+1,j ,bi,bj)*cg2d_s(i+1,j ,bi,bj) |
|
./model/src/cg2d_nsa.F |
317 |
CG2D_NSA |
& +aS2d(i ,j ,bi,bj)*cg2d_s(i ,j-1,bi,bj) |
|
./model/src/cg2d_nsa.F |
318 |
CG2D_NSA |
& +aS2d(i ,j+1,bi,bj)*cg2d_s(i ,j+1,bi,bj) |
|
./model/src/cg2d_nsa.F |
319 |
CG2D_NSA |
& +aC2d(i ,j ,bi,bj)*cg2d_s(i ,j ,bi,bj) |
|
./model/src/cg2d_nsa.F |
321 |
CG2D_NSA |
& + cg2d_s(i,j,bi,bj)*cg2d_q(i,j,bi,bj) |
|
./model/src/cg2d_nsa.F |
340 |
CG2D_NSA |
DO i=1,sNx |
|
./model/src/cg2d_nsa.F |
341 |
CG2D_NSA |
cg2d_x(i,j,bi,bj)=cg2d_x(i,j,bi,bj)+alpha*cg2d_s(i,j,bi,bj) |
|
./model/src/cg2d_nsa.F |
342 |
CG2D_NSA |
cg2d_r(i,j,bi,bj)=cg2d_r(i,j,bi,bj)-alpha*cg2d_q(i,j,bi,bj) |
|
./model/src/cg2d_nsa.F |
344 |
CG2D_NSA |
& + cg2d_r(i,j,bi,bj)*cg2d_r(i,j,bi,bj) |
|
./model/src/cg2d_nsa.F |
374 |
CG2D_NSA |
DO i=1,sNx |
|
./model/src/cg2d_nsa.F |
375 |
CG2D_NSA |
cg2d_x(i,j,bi,bj) = cg2d_x(i,j,bi,bj)/rhsNorm |
|
./pkg/mom_fluxform/mom_u_coriolis.F |
44 |
MOM_U_CORIOLIS |
INTEGER i,j |
|
./pkg/mom_fluxform/mom_u_coriolis.F |
52 |
MOM_U_CORIOLIS |
DO i=1-Olx+1,sNx+Olx |
|
./pkg/mom_fluxform/mom_u_coriolis.F |
53 |
MOM_U_CORIOLIS |
uCoriolisTerm(i,j) = |
|
./pkg/mom_fluxform/mom_u_coriolis.F |
54 |
MOM_U_CORIOLIS |
& 0.5*( _fCori( i ,j,bi,bj) |
|
./pkg/mom_fluxform/mom_u_coriolis.F |
55 |
MOM_U_CORIOLIS |
& *0.5*( vFld( i ,j)+vFld( i ,j+1) ) |
|
./pkg/mom_fluxform/mom_u_coriolis.F |
56 |
MOM_U_CORIOLIS |
& + _fCori(i-1,j,bi,bj) |
|
./pkg/mom_fluxform/mom_u_coriolis.F |
57 |
MOM_U_CORIOLIS |
& *0.5*( vFld(i-1,j)+vFld(i-1,j+1) ) ) |
|
./pkg/mom_fluxform/mom_u_coriolis.F |
63 |
MOM_U_CORIOLIS |
DO i=1-Olx+1,sNx+Olx |
|
./pkg/mom_fluxform/mom_u_coriolis.F |
64 |
MOM_U_CORIOLIS |
uCoriolisTerm(i,j) = |
|
./pkg/mom_fluxform/mom_u_coriolis.F |
65 |
MOM_U_CORIOLIS |
& 0.5*( _fCori( i ,j,bi,bj) + |
|
./pkg/mom_fluxform/mom_u_coriolis.F |
66 |
MOM_U_CORIOLIS |
& _fCori(i-1,j,bi,bj) ) |
|
./pkg/mom_fluxform/mom_u_coriolis.F |
68 |
MOM_U_CORIOLIS |
& vFld( i ,j)+vFld( i ,j+1) |
|
./pkg/mom_fluxform/mom_u_coriolis.F |
69 |
MOM_U_CORIOLIS |
& +vFld(i-1,j)+vFld(i-1,j+1) |
|
./pkg/mom_fluxform/mom_u_coriolis.F |
80 |
MOM_U_CORIOLIS |
DO i=1-Olx+1,sNx+Olx |
|
./pkg/mom_fluxform/mom_u_coriolis.F |
81 |
MOM_U_CORIOLIS |
uCoriolisTerm(i,j) = uCoriolisTerm(i,j) |
|
./pkg/mom_fluxform/mom_u_coriolis.F |
83 |
MOM_U_CORIOLIS |
& maskS( i , j ,k,bi,bj)+maskS( i ,j+1,k,bi,bj) |
|
./pkg/mom_fluxform/mom_u_coriolis.F |
84 |
MOM_U_CORIOLIS |
& +maskS(i-1, j ,k,bi,bj)+maskS(i-1,j+1,k,bi,bj) ) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
103 |
MOM_U_DEL2U |
DO i=1-OLx+1,sNx+OLx-1 |
|
./pkg/mom_fluxform/mom_u_del2u.F |
105 |
MOM_U_DEL2U |
hFacZClosedS = h0FacW(i,j,k,bi,bj) - h0FacZ(i,j) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
106 |
MOM_U_DEL2U |
hFacZClosedN = h0FacW(i,j,k,bi,bj) - h0FacZ(i,j+1) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
108 |
MOM_U_DEL2U |
hFacZClosedS = _hFacW(i,j,k,bi,bj) - h0FacZ(i,j) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
109 |
MOM_U_DEL2U |
hFacZClosedN = _hFacW(i,j,k,bi,bj) - h0FacZ(i,j+1) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
111 |
MOM_U_DEL2U |
del2u(i,j) = del2u(i,j) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
112 |
MOM_U_DEL2U |
& -_recip_hFacW(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
113 |
MOM_U_DEL2U |
& *recip_rAw(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
114 |
MOM_U_DEL2U |
& *( hFacZClosedS*dxV(i, j ,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
115 |
MOM_U_DEL2U |
& *_recip_dyU(i, j ,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
116 |
MOM_U_DEL2U |
& +hFacZClosedN*dxV(i,j+1,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
117 |
MOM_U_DEL2U |
& *_recip_dyU(i,j+1,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
118 |
MOM_U_DEL2U |
& )*uFld(i,j)*sideDragFactor |
|
./pkg/mom_fluxform/mom_u_del2u.F |
119 |
MOM_U_DEL2U |
& *_maskW(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
54 |
MOM_U_DEL2U |
DO i=1-OLx,sNx+OLx-1 |
|
./pkg/mom_fluxform/mom_u_del2u.F |
55 |
MOM_U_DEL2U |
fZon(i,j) = drF(k)*_hFacC(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
56 |
MOM_U_DEL2U |
& *_dyF(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
57 |
MOM_U_DEL2U |
& *_recip_dxF(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
58 |
MOM_U_DEL2U |
& *(uFld(i+1,j)-uFld(i,j)) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
63 |
MOM_U_DEL2U |
& *maskInC(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
72 |
MOM_U_DEL2U |
DO i=1-OLx+1,sNx+OLx-1 |
|
./pkg/mom_fluxform/mom_u_del2u.F |
73 |
MOM_U_DEL2U |
fMer(i,j) = drF(k)*hFacZ(i,j) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
74 |
MOM_U_DEL2U |
& *_dxV(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
75 |
MOM_U_DEL2U |
& *_recip_dyU(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
76 |
MOM_U_DEL2U |
& *(uFld(i,j)-uFld(i,j-1)) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
87 |
MOM_U_DEL2U |
DO i=1-OLx+1,sNx+OLx-1 |
|
./pkg/mom_fluxform/mom_u_del2u.F |
88 |
MOM_U_DEL2U |
del2u(i,j) = |
|
./pkg/mom_fluxform/mom_u_del2u.F |
89 |
MOM_U_DEL2U |
& recip_drF(k)*_recip_hFacW(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
90 |
MOM_U_DEL2U |
& *recip_rAw(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
91 |
MOM_U_DEL2U |
& *( fZon(i,j ) - fZon(i-1,j) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
92 |
MOM_U_DEL2U |
& +fMer(i,j+1) - fMer(i ,j) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
93 |
MOM_U_DEL2U |
& )*_maskW(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
95 |
MOM_U_DEL2U |
& *maskInW(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_u_metric_cylinder.F |
46 |
MOM_U_METRIC_CYLINDER |
INTEGER i,j |
|
./pkg/mom_fluxform/mom_u_metric_cylinder.F |
51 |
MOM_U_METRIC_CYLINDER |
DO i=1-OLx+1,sNx+OLx |
|
./pkg/mom_fluxform/mom_u_metric_cylinder.F |
52 |
MOM_U_METRIC_CYLINDER |
radius = (yG(i,j,bi,bj)+yG(i,j+1,bi,bj))*0.5 _d 0 |
|
./pkg/mom_fluxform/mom_u_metric_cylinder.F |
56 |
MOM_U_METRIC_CYLINDER |
uMetricTerms(i,j) = |
|
./pkg/mom_fluxform/mom_u_metric_cylinder.F |
57 |
MOM_U_METRIC_CYLINDER |
& uFld(i,j) |
|
./pkg/mom_fluxform/mom_u_metric_cylinder.F |
58 |
MOM_U_METRIC_CYLINDER |
& *0.25*(vFld(i,j) + vFld(i-1,j) + |
|
./pkg/mom_fluxform/mom_u_metric_cylinder.F |
59 |
MOM_U_METRIC_CYLINDER |
& vFld(i,j+1)+vFld(i-1,j+1))/radius |
|
./pkg/mom_fluxform/mom_u_metric_cylinder.F |
61 |
MOM_U_METRIC_CYLINDER |
uMetricTerms(i,j) = 0. |
|
./pkg/mom_fluxform/mom_u_metric_sphere.F |
46 |
MOM_U_METRIC_SPHERE |
INTEGER i,j |
|
./pkg/mom_fluxform/mom_u_metric_sphere.F |
50 |
MOM_U_METRIC_SPHERE |
DO i=1-Olx+1,sNx+Olx |
|
./pkg/mom_fluxform/mom_u_metric_sphere.F |
51 |
MOM_U_METRIC_SPHERE |
uMetricTerms(i,j) = |
|
./pkg/mom_fluxform/mom_u_metric_sphere.F |
52 |
MOM_U_METRIC_SPHERE |
& uFld(i,j)*recip_rSphere*recip_deepFacC(k) |
|
./pkg/mom_fluxform/mom_u_metric_sphere.F |
53 |
MOM_U_METRIC_SPHERE |
& *0.25*( vFld(i,j )+vFld(i-1,j ) |
|
./pkg/mom_fluxform/mom_u_metric_sphere.F |
54 |
MOM_U_METRIC_SPHERE |
& +vFld(i,j+1)+vFld(i-1,j+1) |
|
./pkg/mom_fluxform/mom_u_metric_sphere.F |
55 |
MOM_U_METRIC_SPHERE |
& )*_tanPhiAtU(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_u_xviscflux.F |
55 |
MOM_U_XVISCFLUX |
DO i=1-Olx,sNx+Olx-1 |
|
./pkg/mom_fluxform/mom_u_xviscflux.F |
56 |
MOM_U_XVISCFLUX |
xViscFluxU(i,j) = |
|
./pkg/mom_fluxform/mom_u_xviscflux.F |
57 |
MOM_U_XVISCFLUX |
& _dyF(i,j,bi,bj)*drF(k)*_hFacC(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_u_xviscflux.F |
59 |
MOM_U_XVISCFLUX |
& -viscAh_D(i,j)*( uFld(i+1,j)-uFld(i,j) ) |
|
./pkg/mom_fluxform/mom_u_xviscflux.F |
61 |
MOM_U_XVISCFLUX |
& +viscA4_D(i,j)*(del2u(i+1,j)-del2u(i,j)) |
|
./pkg/mom_fluxform/mom_u_xviscflux.F |
67 |
MOM_U_XVISCFLUX |
& )*_recip_dxF(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_u_yviscflux.F |
56 |
MOM_U_YVISCFLUX |
DO i=1-Olx,sNx+Olx |
|
./pkg/mom_fluxform/mom_u_yviscflux.F |
57 |
MOM_U_YVISCFLUX |
yViscFluxU(i,j) = |
|
./pkg/mom_fluxform/mom_u_yviscflux.F |
58 |
MOM_U_YVISCFLUX |
& _dxV(i,j,bi,bj)*drF(k)*hFacZ(i,j) |
|
./pkg/mom_fluxform/mom_u_yviscflux.F |
60 |
MOM_U_YVISCFLUX |
& -viscAh_Z(i,j)*( uFld(i,j)-uFld(i,j-1) ) |
|
./pkg/mom_fluxform/mom_u_yviscflux.F |
64 |
MOM_U_YVISCFLUX |
& +viscA4_Z(i,j)*(del2u(i,j)-del2u(i,j-1)) |
|
./pkg/mom_fluxform/mom_u_yviscflux.F |
72 |
MOM_U_YVISCFLUX |
& )*_recip_dyU(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
100 |
MOM_UV_BOUNDARY |
& * drF(k)*hFacS(i,j,k,bi,bj)*rhoFacC(k) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
104 |
MOM_UV_BOUNDARY |
DO i=1-OLx,sNx+OLx-1 |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
105 |
MOM_UV_BOUNDARY |
aBndU(i,j) = uTrans(i+1,j)-uTrans(i,j) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
106 |
MOM_UV_BOUNDARY |
aBndV(i,j) = vTrans(i,j+1)-vTrans(i,j) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
107 |
MOM_UV_BOUNDARY |
aBndW(i,j) = ABS(aBndU(i,j)+aBndV(i,j)) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
108 |
MOM_UV_BOUNDARY |
aBndU(i,j) = ABS(aBndU(i,j)) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
109 |
MOM_UV_BOUNDARY |
aBndV(i,j) = ABS(aBndV(i,j)) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
114 |
MOM_UV_BOUNDARY |
DO i=1-OLx,sNx+OLx-1 |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
115 |
MOM_UV_BOUNDARY |
tmpVar = aBndU(i,j)+aBndV(i,j)+aBndW(i,j) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
118 |
MOM_UV_BOUNDARY |
aBndU(i,j) = aBndU(i,j)*tmpVar |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
119 |
MOM_UV_BOUNDARY |
aBndV(i,j) = aBndV(i,j)*tmpVar |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
120 |
MOM_UV_BOUNDARY |
aBndW(i,j) = aBndW(i,j)*tmpVar |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
128 |
MOM_UV_BOUNDARY |
DO i=1-OLx+1,sNx+OLx-1 |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
129 |
MOM_UV_BOUNDARY |
IF (maskW(i,j,k,bi,bj).EQ.0.) THEN |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
133 |
MOM_UV_BOUNDARY |
uBnd(i,j) = ( |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
134 |
MOM_UV_BOUNDARY |
& (aBndU(i-1,j)+aBndU(i,j)) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
135 |
MOM_UV_BOUNDARY |
& *(uFld(i-1,j,k,bi,bj)+uFld(i+1,j,k,bi,bj)) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
136 |
MOM_UV_BOUNDARY |
& +(aBndV(i-1,j)+aBndV(i,j)) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
137 |
MOM_UV_BOUNDARY |
& *(uFld(i,j-1,k,bi,bj)+uFld(i,j+1,k,bi,bj)) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
138 |
MOM_UV_BOUNDARY |
& +(aBndW(i-1,j)+aBndW(i,j)) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
139 |
MOM_UV_BOUNDARY |
& *(uFld(i,j,km1,bi,bj)*maskM1 |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
140 |
MOM_UV_BOUNDARY |
& +uFld(i,j,kp1,bi,bj)*maskP1) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
143 |
MOM_UV_BOUNDARY |
IF (maskS(i,j,k,bi,bj).EQ.0.) THEN |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
147 |
MOM_UV_BOUNDARY |
vBnd(i,j) = ( |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
148 |
MOM_UV_BOUNDARY |
& (aBndU(i,j-1)+aBndU(i,j)) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
149 |
MOM_UV_BOUNDARY |
& *(vFld(i-1,j,k,bi,bj)+vFld(i+1,j,k,bi,bj)) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
150 |
MOM_UV_BOUNDARY |
& +(aBndV(i,j-1)+aBndV(i,j)) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
151 |
MOM_UV_BOUNDARY |
& *(vFld(i,j-1,k,bi,bj)+vFld(i,j+1,k,bi,bj)) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
152 |
MOM_UV_BOUNDARY |
& +(aBndW(i,j-1)+aBndW(i,j)) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
153 |
MOM_UV_BOUNDARY |
& *(vFld(i,j,km1,bi,bj)*maskM1 |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
154 |
MOM_UV_BOUNDARY |
& +vFld(i,j,kp1,bi,bj)*maskP1) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
54 |
MOM_UV_BOUNDARY |
INTEGER i,j |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
69 |
MOM_UV_BOUNDARY |
DO i=1-OLx,sNx+OLx |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
70 |
MOM_UV_BOUNDARY |
uBnd(i,j) = uFld(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
71 |
MOM_UV_BOUNDARY |
vBnd(i,j) = vFld(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
85 |
MOM_UV_BOUNDARY |
DO i=1-OLx,sNx+OLx |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
86 |
MOM_UV_BOUNDARY |
aBndU(i,j) = 0. |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
87 |
MOM_UV_BOUNDARY |
aBndV(i,j) = 0. |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
88 |
MOM_UV_BOUNDARY |
aBndW(i,j) = 0. |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
94 |
MOM_UV_BOUNDARY |
DO i=1-OLx,sNx+OLx |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
95 |
MOM_UV_BOUNDARY |
uTrans(i,j) = uFld(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
96 |
MOM_UV_BOUNDARY |
& * dyG(i,j,bi,bj)*deepFacC(k) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
97 |
MOM_UV_BOUNDARY |
& * drF(k)*hFacW(i,j,k,bi,bj)*rhoFacC(k) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
98 |
MOM_UV_BOUNDARY |
vTrans(i,j) = vFld(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
99 |
MOM_UV_BOUNDARY |
& * dxG(i,j,bi,bj)*deepFacC(k) |
|
./pkg/mom_fluxform/mom_v_adv_uv.F |
45 |
MOM_V_ADV_UV |
INTEGER i,j |
|
./pkg/mom_fluxform/mom_v_adv_uv.F |
49 |
MOM_V_ADV_UV |
DO i=1-Olx+1,sNx+Olx |
|
./pkg/mom_fluxform/mom_v_adv_uv.F |
50 |
MOM_V_ADV_UV |
AdvectFluxUV(i,j) = |
|
./pkg/mom_fluxform/mom_v_adv_uv.F |
51 |
MOM_V_ADV_UV |
& 0.25*( uTrans(i,j) + uTrans(i,j-1) ) |
|
./pkg/mom_fluxform/mom_v_adv_uv.F |
53 |
MOM_V_ADV_UV |
& *( vFld(i,j)*_maskS(i-1,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_v_adv_uv.F |
54 |
MOM_V_ADV_UV |
& + vFld(i-1,j)*_maskS(i,j,k,bi,bj) ) |
|
./pkg/mom_fluxform/mom_v_adv_uv.F |
56 |
MOM_V_ADV_UV |
& *( vFld(i,j) + vFld(i-1,j) ) |
|
./pkg/mom_fluxform/mom_v_adv_uv.F |
59 |
MOM_V_ADV_UV |
& *_maskS(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_v_adv_uv.F |
60 |
MOM_V_ADV_UV |
& *_maskS(i-1,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_v_adv_vv.F |
46 |
MOM_V_ADV_VV |
INTEGER i,j |
|
./pkg/mom_fluxform/mom_v_adv_vv.F |
50 |
MOM_V_ADV_VV |
DO i=1-Olx,sNx+Olx-1 |
|
./pkg/mom_fluxform/mom_v_adv_vv.F |
51 |
MOM_V_ADV_VV |
AdvectFluxVV(i,j) = |
|
./pkg/mom_fluxform/mom_v_adv_vv.F |
52 |
MOM_V_ADV_VV |
& 0.25*( vTrans(i,j) + vTrans(i,j+1) ) |
|
./pkg/mom_fluxform/mom_v_adv_vv.F |
54 |
MOM_V_ADV_VV |
& *( vFld(i,j)*_maskS(i,j+1,k,bi,bj) |
|
./pkg/mom_fluxform/mom_v_adv_vv.F |
55 |
MOM_V_ADV_VV |
& + vFld(i,j+1)*_maskS(i,j,k,bi,bj) ) |
|
./pkg/mom_fluxform/mom_v_adv_vv.F |
57 |
MOM_V_ADV_VV |
& *( vFld(i,j) + vFld(i,j+1) ) |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
100 |
MOM_V_ADV_WV |
& wFld(i, j ,k,bi,bj)*rA(i, j ,bi,bj)* |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
101 |
MOM_V_ADV_WV |
& (maskC(i, j ,k,bi,bj)-maskC(i, j ,k-1,bi,bj)) |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
102 |
MOM_V_ADV_WV |
& +wFld(i,j-1,k,bi,bj)*rA(i,j-1,bi,bj)* |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
103 |
MOM_V_ADV_WV |
& (maskC(i,j-1,k,bi,bj)-maskC(i,j-1,k-1,bi,bj)) |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
105 |
MOM_V_ADV_WV |
& *vFld(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
49 |
MOM_V_ADV_WV |
INTEGER i,j |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
55 |
MOM_V_ADV_WV |
DO i=1-Olx+1,sNx+Olx |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
56 |
MOM_V_ADV_WV |
advectiveFluxWV(i,j) = rTrans(i,j)*vFld(i,j,k-1,bi,bj) |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
64 |
MOM_V_ADV_WV |
DO i=1-Olx,sNx+Olx |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
65 |
MOM_V_ADV_WV |
advectiveFluxWV(i,j) = 0. |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
73 |
MOM_V_ADV_WV |
DO i=1-Olx+1,sNx+Olx |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
74 |
MOM_V_ADV_WV |
advectiveFluxWV(i,j) = rTrans(i,j)*vFld(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
82 |
MOM_V_ADV_WV |
DO i=1-Olx+1,sNx+Olx |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
83 |
MOM_V_ADV_WV |
advectiveFluxWV(i,j) = rTrans(i,j)* |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
85 |
MOM_V_ADV_WV |
& 0.5 _d 0*( vFld(i,j,k,bi,bj)*_maskS(i,j,k-1,bi,bj) |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
86 |
MOM_V_ADV_WV |
& +vFld(i,j,k-1,bi,bj)*_maskS(i,j,k,bi,bj) ) |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
88 |
MOM_V_ADV_WV |
& 0.5 _d 0*( vFld(i,j,k,bi,bj)+vFld(i,j,k-1,bi,bj) ) |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
97 |
MOM_V_ADV_WV |
DO i=1-Olx+1,sNx+Olx |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
98 |
MOM_V_ADV_WV |
advectiveFluxWV(i,j) = advectiveFluxWV(i,j) |
|
./model/src/cg2d_sr.F |
125 |
CG2D_SR |
DO i=1,sNx |
|
./model/src/cg2d_sr.F |
126 |
CG2D_SR |
cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj)*cg2dNorm |
|
./model/src/cg2d_sr.F |
127 |
CG2D_SR |
rhsMax = MAX(ABS(cg2d_b(i,j,bi,bj)),rhsMax) |
|
./model/src/cg2d_sr.F |
141 |
CG2D_SR |
DO i=1,sNx |
|
./model/src/cg2d_sr.F |
142 |
CG2D_SR |
cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj)*rhsNorm |
|
./model/src/cg2d_sr.F |
143 |
CG2D_SR |
cg2d_x(i,j,bi,bj) = cg2d_x(i,j,bi,bj)*rhsNorm |
|
./model/src/cg2d_sr.F |
159 |
CG2D_SR |
DO i=1,sNx |
|
./model/src/cg2d_sr.F |
160 |
CG2D_SR |
cg2d_min(i,j,bi,bj) = cg2d_x(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
165 |
CG2D_SR |
DO i=0,sNx+1 |
|
./model/src/cg2d_sr.F |
166 |
CG2D_SR |
cg2d_s(i,j,bi,bj) = 0. |
|
./model/src/cg2d_sr.F |
175 |
CG2D_SR |
DO i=1,sNx |
|
./model/src/cg2d_sr.F |
176 |
CG2D_SR |
cg2d_r(i,j,bi,bj) = cg2d_b(i,j,bi,bj) - |
|
./model/src/cg2d_sr.F |
177 |
CG2D_SR |
& (aW2d(i ,j ,bi,bj)*cg2d_x(i-1,j ,bi,bj) |
|
./model/src/cg2d_sr.F |
178 |
CG2D_SR |
& +aW2d(i+1,j ,bi,bj)*cg2d_x(i+1,j ,bi,bj) |
|
./model/src/cg2d_sr.F |
179 |
CG2D_SR |
& +aS2d(i ,j ,bi,bj)*cg2d_x(i ,j-1,bi,bj) |
|
./model/src/cg2d_sr.F |
180 |
CG2D_SR |
& +aS2d(i ,j+1,bi,bj)*cg2d_x(i ,j+1,bi,bj) |
|
./model/src/cg2d_sr.F |
181 |
CG2D_SR |
& +aC2d(i ,j ,bi,bj)*cg2d_x(i ,j ,bi,bj) |
|
./model/src/cg2d_sr.F |
184 |
CG2D_SR |
& + cg2d_r(i,j,bi,bj)*cg2d_r(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
185 |
CG2D_SR |
sumRHStile(bi,bj) = sumRHStile(bi,bj) + cg2d_b(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
225 |
CG2D_SR |
DO i=1,sNx |
|
./model/src/cg2d_sr.F |
226 |
CG2D_SR |
cg2d_y(i,j,bi,bj) = |
|
./model/src/cg2d_sr.F |
227 |
CG2D_SR |
& pC(i ,j ,bi,bj)*cg2d_r(i ,j ,bi,bj) |
|
./model/src/cg2d_sr.F |
228 |
CG2D_SR |
& +pW(i ,j ,bi,bj)*cg2d_r(i-1,j ,bi,bj) |
|
./model/src/cg2d_sr.F |
229 |
CG2D_SR |
& +pW(i+1,j ,bi,bj)*cg2d_r(i+1,j ,bi,bj) |
|
./model/src/cg2d_sr.F |
230 |
CG2D_SR |
& +pS(i ,j ,bi,bj)*cg2d_r(i ,j-1,bi,bj) |
|
./model/src/cg2d_sr.F |
231 |
CG2D_SR |
& +pS(i ,j+1,bi,bj)*cg2d_r(i ,j+1,bi,bj) |
|
./model/src/cg2d_sr.F |
232 |
CG2D_SR |
cg2d_s(i,j,bi,bj) = cg2d_y(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
234 |
CG2D_SR |
& +cg2d_y(i,j,bi,bj)*cg2d_r(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
254 |
CG2D_SR |
DO i=1,sNx |
|
./model/src/cg2d_sr.F |
255 |
CG2D_SR |
cg2d_q(i,j,bi,bj) = |
|
./model/src/cg2d_sr.F |
256 |
CG2D_SR |
& aW2d(i ,j ,bi,bj)*cg2d_s(i-1,j ,bi,bj) |
|
./model/src/cg2d_sr.F |
257 |
CG2D_SR |
& +aW2d(i+1,j ,bi,bj)*cg2d_s(i+1,j ,bi,bj) |
|
./model/src/cg2d_sr.F |
258 |
CG2D_SR |
& +aS2d(i ,j ,bi,bj)*cg2d_s(i ,j-1,bi,bj) |
|
./model/src/cg2d_sr.F |
259 |
CG2D_SR |
& +aS2d(i ,j+1,bi,bj)*cg2d_s(i ,j+1,bi,bj) |
|
./model/src/cg2d_sr.F |
260 |
CG2D_SR |
& +aC2d(i ,j ,bi,bj)*cg2d_s(i ,j ,bi,bj) |
|
./model/src/cg2d_sr.F |
262 |
CG2D_SR |
& + cg2d_s(i,j,bi,bj)*cg2d_q(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
277 |
CG2D_SR |
DO i=1,sNx |
|
./model/src/cg2d_sr.F |
278 |
CG2D_SR |
cg2d_x(i,j,bi,bj)=cg2d_x(i,j,bi,bj)+sigma*cg2d_s(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
279 |
CG2D_SR |
cg2d_r(i,j,bi,bj)=cg2d_r(i,j,bi,bj)-sigma*cg2d_q(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
301 |
CG2D_SR |
DO i=1,sNx |
|
./model/src/cg2d_sr.F |
302 |
CG2D_SR |
cg2d_y(i,j,bi,bj) = |
|
./model/src/cg2d_sr.F |
303 |
CG2D_SR |
& pC(i ,j ,bi,bj)*cg2d_r(i ,j ,bi,bj) |
|
./model/src/cg2d_sr.F |
304 |
CG2D_SR |
& +pW(i ,j ,bi,bj)*cg2d_r(i-1,j ,bi,bj) |
|
./model/src/cg2d_sr.F |
305 |
CG2D_SR |
& +pW(i+1,j ,bi,bj)*cg2d_r(i+1,j ,bi,bj) |
|
./model/src/cg2d_sr.F |
306 |
CG2D_SR |
& +pS(i ,j ,bi,bj)*cg2d_r(i ,j-1,bi,bj) |
|
./model/src/cg2d_sr.F |
307 |
CG2D_SR |
& +pS(i ,j+1,bi,bj)*cg2d_r(i ,j+1,bi,bj) |
|
./model/src/cg2d_sr.F |
328 |
CG2D_SR |
DO i=1,sNx |
|
./model/src/cg2d_sr.F |
329 |
CG2D_SR |
cg2d_v(i,j,bi,bj) = |
|
./model/src/cg2d_sr.F |
330 |
CG2D_SR |
& aW2d(i ,j ,bi,bj)*cg2d_y(i-1,j ,bi,bj) |
|
./model/src/cg2d_sr.F |
331 |
CG2D_SR |
& +aW2d(i+1,j ,bi,bj)*cg2d_y(i+1,j ,bi,bj) |
|
./model/src/cg2d_sr.F |
332 |
CG2D_SR |
& +aS2d(i ,j ,bi,bj)*cg2d_y(i ,j-1,bi,bj) |
|
./model/src/cg2d_sr.F |
333 |
CG2D_SR |
& +aS2d(i ,j+1,bi,bj)*cg2d_y(i ,j+1,bi,bj) |
|
./model/src/cg2d_sr.F |
334 |
CG2D_SR |
& +aC2d(i ,j ,bi,bj)*cg2d_y(i ,j ,bi,bj) |
|
./model/src/cg2d_sr.F |
336 |
CG2D_SR |
& +cg2d_y(i,j,bi,bj)*cg2d_r(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
338 |
CG2D_SR |
& +cg2d_y(i,j,bi,bj)*cg2d_v(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
340 |
CG2D_SR |
& + cg2d_r(i,j,bi,bj)*cg2d_r(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
374 |
CG2D_SR |
DO i=1,sNx |
|
./model/src/cg2d_sr.F |
375 |
CG2D_SR |
cg2d_min(i,j,bi,bj) = cg2d_x(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
391 |
CG2D_SR |
DO i=1,sNx |
|
./model/src/cg2d_sr.F |
392 |
CG2D_SR |
cg2d_s(i,j,bi,bj) = cg2d_y(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
393 |
CG2D_SR |
& + cgBeta*cg2d_s(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
394 |
CG2D_SR |
cg2d_x(i,j,bi,bj) = cg2d_x(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
395 |
CG2D_SR |
& + sigma*cg2d_s(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
396 |
CG2D_SR |
cg2d_q(i,j,bi,bj) = cg2d_v(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
397 |
CG2D_SR |
& + cgBeta*cg2d_q(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
398 |
CG2D_SR |
cg2d_r(i,j,bi,bj) = cg2d_r(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
399 |
CG2D_SR |
& - sigma*cg2d_q(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
413 |
CG2D_SR |
DO i=1,sNx |
|
./model/src/cg2d_sr.F |
415 |
CG2D_SR |
& + cg2d_r(i,j,bi,bj)*cg2d_r(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
428 |
CG2D_SR |
DO i=1,sNx |
|
./model/src/cg2d_sr.F |
429 |
CG2D_SR |
cg2d_x(i,j,bi,bj) = cg2d_min(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
441 |
CG2D_SR |
DO i=1,sNx |
|
./model/src/cg2d_sr.F |
442 |
CG2D_SR |
cg2d_x(i,j,bi,bj) = cg2d_x(i,j,bi,bj)/rhsNorm |
|
./model/src/cg2d_sr.F |
97 |
CG2D_SR |
INTEGER i, j, it2d |
|
./pkg/mom_fluxform/mom_v_coriolis.F |
44 |
MOM_V_CORIOLIS |
INTEGER i,j |
|
./pkg/mom_fluxform/mom_v_coriolis.F |
52 |
MOM_V_CORIOLIS |
DO i=1-Olx,sNx+Olx-1 |
|
./pkg/mom_fluxform/mom_v_coriolis.F |
53 |
MOM_V_CORIOLIS |
vCoriolisTerm(i,j) = |
|
./pkg/mom_fluxform/mom_v_coriolis.F |
54 |
MOM_V_CORIOLIS |
& -0.5*( _fCori(i, j ,bi,bj) |
|
./pkg/mom_fluxform/mom_v_coriolis.F |
55 |
MOM_V_CORIOLIS |
& *0.5*( uFld( i , j )+uFld(i+1, j ) ) |
|
./pkg/mom_fluxform/mom_v_coriolis.F |
56 |
MOM_V_CORIOLIS |
& + _fCori(i,j-1,bi,bj) |
|
./pkg/mom_fluxform/mom_v_coriolis.F |
57 |
MOM_V_CORIOLIS |
& *0.5*( uFld( i ,j-1)+uFld(i+1,j-1) ) ) |
|
./pkg/mom_fluxform/mom_v_coriolis.F |
63 |
MOM_V_CORIOLIS |
DO i=1-Olx,sNx+Olx-1 |
|
./pkg/mom_fluxform/mom_v_coriolis.F |
64 |
MOM_V_CORIOLIS |
vCoriolisTerm(i,j) = |
|
./pkg/mom_fluxform/mom_v_coriolis.F |
65 |
MOM_V_CORIOLIS |
& -0.5*(_fCori(i, j ,bi,bj)+_fCori(i,j-1,bi,bj)) |
|
./pkg/mom_fluxform/mom_v_coriolis.F |
66 |
MOM_V_CORIOLIS |
& *0.25*( uFld(i, j )+uFld(i+1, j ) |
|
./pkg/mom_fluxform/mom_v_coriolis.F |
67 |
MOM_V_CORIOLIS |
& +uFld(i,j-1)+uFld(i+1,j-1) |
|
./pkg/mom_fluxform/mom_v_coriolis.F |
78 |
MOM_V_CORIOLIS |
DO i=1-Olx,sNx+Olx-1 |
|
./pkg/mom_fluxform/mom_v_coriolis.F |
79 |
MOM_V_CORIOLIS |
vCoriolisTerm(i,j) = vCoriolisTerm(i,j) |
|
./pkg/mom_fluxform/mom_v_coriolis.F |
81 |
MOM_V_CORIOLIS |
& maskW( i , j ,k,bi,bj)+maskW(i+1, j ,k,bi,bj) |
|
./pkg/mom_fluxform/mom_v_coriolis.F |
82 |
MOM_V_CORIOLIS |
& +maskW( i ,j-1,k,bi,bj)+maskW(i+1,j-1,k,bi,bj) ) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
102 |
MOM_V_DEL2V |
DO i=1-OLx+1,sNx+OLx-1 |
|
./pkg/mom_fluxform/mom_v_del2v.F |
104 |
MOM_V_DEL2V |
hFacZClosedW = h0FacS(i,j,k,bi,bj) - h0FacZ(i,j) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
105 |
MOM_V_DEL2V |
hFacZClosedE = h0FacS(i,j,k,bi,bj) - h0FacZ(i+1,j) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
107 |
MOM_V_DEL2V |
hFacZClosedW = _hFacS(i,j,k,bi,bj) - h0FacZ(i,j) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
108 |
MOM_V_DEL2V |
hFacZClosedE = _hFacS(i,j,k,bi,bj) - h0FacZ(i+1,j) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
110 |
MOM_V_DEL2V |
del2v(i,j) = del2v(i,j) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
111 |
MOM_V_DEL2V |
& -_recip_hFacS(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
112 |
MOM_V_DEL2V |
& *recip_rAs(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
113 |
MOM_V_DEL2V |
& *( hFacZClosedW*dyU( i ,j,bi,bj) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
114 |
MOM_V_DEL2V |
& *_recip_dxV( i ,j,bi,bj) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
115 |
MOM_V_DEL2V |
& +hFacZClosedE*dyU(i+1,j,bi,bj) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
116 |
MOM_V_DEL2V |
& *_recip_dxV(i+1,j,bi,bj) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
117 |
MOM_V_DEL2V |
& )*vFld(i,j)*sideDragFactor |
|
./pkg/mom_fluxform/mom_v_del2v.F |
118 |
MOM_V_DEL2V |
& *_maskS(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
53 |
MOM_V_DEL2V |
DO i=1-OLx+1,sNx+OLx |
|
./pkg/mom_fluxform/mom_v_del2v.F |
54 |
MOM_V_DEL2V |
fZon(i,j) = drF(k)*hFacZ(i,j) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
55 |
MOM_V_DEL2V |
& *_dyU(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
56 |
MOM_V_DEL2V |
& *_recip_dxV(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
57 |
MOM_V_DEL2V |
& *(vFld(i,j)-vFld(i-1,j)) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
68 |
MOM_V_DEL2V |
DO i=1-OLx+1,sNx+OLx-1 |
|
./pkg/mom_fluxform/mom_v_del2v.F |
69 |
MOM_V_DEL2V |
fMer(i,j) = drF(k)*_hFacC(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
70 |
MOM_V_DEL2V |
& *_dxF(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
71 |
MOM_V_DEL2V |
& *_recip_dyF(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
72 |
MOM_V_DEL2V |
& *(vFld(i,j+1)-vFld(i,j)) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
77 |
MOM_V_DEL2V |
& *maskInC(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
86 |
MOM_V_DEL2V |
DO i=1-OLx+1,sNx+OLx-1 |
|
./pkg/mom_fluxform/mom_v_del2v.F |
87 |
MOM_V_DEL2V |
del2v(i,j) = |
|
./pkg/mom_fluxform/mom_v_del2v.F |
88 |
MOM_V_DEL2V |
& recip_drF(k)*_recip_hFacS(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
89 |
MOM_V_DEL2V |
& *recip_rAs(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
90 |
MOM_V_DEL2V |
& *( fZon(i+1,j) - fZon(i, j ) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
91 |
MOM_V_DEL2V |
& +fMer( i ,j) - fMer(i,j-1) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
92 |
MOM_V_DEL2V |
& )*_maskS(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
94 |
MOM_V_DEL2V |
& *maskInS(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_v_metric_cylinder.F |
46 |
MOM_V_METRIC_CYLINDER |
INTEGER i,j |
|
./pkg/mom_fluxform/mom_v_metric_cylinder.F |
51 |
MOM_V_METRIC_CYLINDER |
DO i=1-OLx,sNx+OLx-1 |
|
./pkg/mom_fluxform/mom_v_metric_cylinder.F |
52 |
MOM_V_METRIC_CYLINDER |
radius = (yG(i,j,bi,bj)+yG(i+1,j,bi,bj))*0.5 _d 0 |
|
./pkg/mom_fluxform/mom_v_metric_cylinder.F |
56 |
MOM_V_METRIC_CYLINDER |
vMetricTerms(i,j) = |
|
./pkg/mom_fluxform/mom_v_metric_cylinder.F |
57 |
MOM_V_METRIC_CYLINDER |
& -0.25*(uFld(i,j) + uFld(i+1,j) + |
|
./pkg/mom_fluxform/mom_v_metric_cylinder.F |
58 |
MOM_V_METRIC_CYLINDER |
& uFld(i,j-1)+uFld(i+1,j-1)) |
|
./pkg/mom_fluxform/mom_v_metric_cylinder.F |
59 |
MOM_V_METRIC_CYLINDER |
& *0.25*(uFld(i,j) + uFld(i+1,j) + |
|
./pkg/mom_fluxform/mom_v_metric_cylinder.F |
60 |
MOM_V_METRIC_CYLINDER |
& uFld(i,j-1)+uFld(i+1,j-1))/radius |
|
./pkg/mom_fluxform/mom_v_metric_cylinder.F |
62 |
MOM_V_METRIC_CYLINDER |
vMetricTerms(i,j) = 0. |
|
./pkg/mom_fluxform/mom_v_metric_sphere.F |
44 |
MOM_V_METRIC_SPHERE |
INTEGER i,j |
|
./pkg/mom_fluxform/mom_v_metric_sphere.F |
48 |
MOM_V_METRIC_SPHERE |
DO i=1-Olx,sNx+Olx-1 |
|
./pkg/mom_fluxform/mom_v_metric_sphere.F |
49 |
MOM_V_METRIC_SPHERE |
vMetricTerms(i,j) = -recip_rSphere*recip_deepFacC(k) |
|
./pkg/mom_fluxform/mom_v_metric_sphere.F |
50 |
MOM_V_METRIC_SPHERE |
& *0.25*( uFld(i,j )+uFld(i+1,j ) |
|
./pkg/mom_fluxform/mom_v_metric_sphere.F |
51 |
MOM_V_METRIC_SPHERE |
& +uFld(i,j-1)+uFld(i+1,j-1) |
|
./pkg/mom_fluxform/mom_v_metric_sphere.F |
53 |
MOM_V_METRIC_SPHERE |
& *0.25*( uFld(i,j )+uFld(i+1,j ) |
|
./pkg/mom_fluxform/mom_v_metric_sphere.F |
54 |
MOM_V_METRIC_SPHERE |
& +uFld(i,j-1)+uFld(i+1,j-1) |
|
./pkg/mom_fluxform/mom_v_metric_sphere.F |
56 |
MOM_V_METRIC_SPHERE |
& *_tanPhiAtV(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_v_xviscflux.F |
56 |
MOM_V_XVISCFLUX |
DO i=1-Olx+1,sNx+Olx |
|
./pkg/mom_fluxform/mom_v_xviscflux.F |
57 |
MOM_V_XVISCFLUX |
xViscFluxV(i,j) = |
|
./pkg/mom_fluxform/mom_v_xviscflux.F |
58 |
MOM_V_XVISCFLUX |
& _dyU(i,j,bi,bj)*drF(k)*hFacZ(i,j) |
|
./pkg/mom_fluxform/mom_v_xviscflux.F |
60 |
MOM_V_XVISCFLUX |
& -viscAh_Z(i,j)*( vFld(i,j)-vFld(i-1,j) ) |
|
./pkg/mom_fluxform/mom_v_xviscflux.F |
62 |
MOM_V_XVISCFLUX |
& +viscA4_Z(i,j)*(del2v(i,j)-del2v(i-1,j)) |
|
./pkg/mom_fluxform/mom_v_xviscflux.F |
68 |
MOM_V_XVISCFLUX |
& )*_recip_dxV(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_v_yviscflux.F |
55 |
MOM_V_YVISCFLUX |
DO i=1-Olx,sNx+Olx-1 |
|
./pkg/mom_fluxform/mom_v_yviscflux.F |
56 |
MOM_V_YVISCFLUX |
yViscFluxV(i,j) = |
|
./pkg/mom_fluxform/mom_v_yviscflux.F |
57 |
MOM_V_YVISCFLUX |
& _dxF(i,j,bi,bj)*drF(k)*_hFacC(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_v_yviscflux.F |
59 |
MOM_V_YVISCFLUX |
& -viscAh_D(i,j)*( vFld(i,j+1)-vFld(i,j) ) |
|
./pkg/mom_fluxform/mom_v_yviscflux.F |
63 |
MOM_V_YVISCFLUX |
& +viscA4_D(i,j)*(del2v(i,j+1)-del2v(i,j)) |
|
./pkg/mom_fluxform/mom_v_yviscflux.F |
71 |
MOM_V_YVISCFLUX |
& )*_recip_dyF(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vecinv.F |
122 |
MOM_VECINV |
INTEGER i,j |
|
./pkg/mom_vecinv/mom_vecinv.F |
179 |
MOM_VECINV |
DO i = 1,9 |
|
./pkg/mom_vecinv/mom_vecinv.F |
180 |
MOM_VECINV |
offsets(i) = 0 |
|
./pkg/mom_vecinv/mom_vecinv.F |
189 |
MOM_VECINV |
DO i=1-OLx,sNx+OLx |
|
./pkg/mom_vecinv/mom_vecinv.F |
190 |
MOM_VECINV |
vF(i,j) = 0. |
|
./pkg/mom_vecinv/mom_vecinv.F |
191 |
MOM_VECINV |
vrF(i,j) = 0. |
|
./pkg/mom_vecinv/mom_vecinv.F |
192 |
MOM_VECINV |
uCf(i,j) = 0. |
|
./pkg/mom_vecinv/mom_vecinv.F |
193 |
MOM_VECINV |
vCf(i,j) = 0. |
|
./pkg/mom_vecinv/mom_vecinv.F |
194 |
MOM_VECINV |
del2u(i,j) = 0. |
|
./pkg/mom_vecinv/mom_vecinv.F |
195 |
MOM_VECINV |
del2v(i,j) = 0. |
|
./pkg/mom_vecinv/mom_vecinv.F |
196 |
MOM_VECINV |
dStar(i,j) = 0. |
|
./pkg/mom_vecinv/mom_vecinv.F |
197 |
MOM_VECINV |
zStar(i,j) = 0. |
|
./pkg/mom_vecinv/mom_vecinv.F |
198 |
MOM_VECINV |
guDiss(i,j)= 0. |
|
./pkg/mom_vecinv/mom_vecinv.F |
199 |
MOM_VECINV |
gvDiss(i,j)= 0. |
|
./pkg/mom_vecinv/mom_vecinv.F |
200 |
MOM_VECINV |
vort3(i,j) = 0. |
|
./pkg/mom_vecinv/mom_vecinv.F |
201 |
MOM_VECINV |
omega3(i,j)= 0. |
|
./pkg/mom_vecinv/mom_vecinv.F |
202 |
MOM_VECINV |
KE(i,j) = 0. |
|
./pkg/mom_vecinv/mom_vecinv.F |
204 |
MOM_VECINV |
hDiv(i,j) = 0. |
|
./pkg/mom_vecinv/mom_vecinv.F |
209 |
MOM_VECINV |
strain(i,j) = 0. _d 0 |
|
./pkg/mom_vecinv/mom_vecinv.F |
210 |
MOM_VECINV |
strainBC(i,j)= 0. _d 0 |
|
./pkg/mom_vecinv/mom_vecinv.F |
211 |
MOM_VECINV |
tension(i,j) = 0. _d 0 |
|
./pkg/mom_vecinv/mom_vecinv.F |
213 |
MOM_VECINV |
hFacZ(i,j) = 0. _d 0 |
|
./pkg/mom_vecinv/mom_vecinv.F |
246 |
MOM_VECINV |
DO i=1-OLx,sNx+OLx |
|
./pkg/mom_vecinv/mom_vecinv.F |
247 |
MOM_VECINV |
uFld(i,j) = uVel(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vecinv.F |
248 |
MOM_VECINV |
vFld(i,j) = vVel(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vecinv.F |
286 |
MOM_VECINV |
DO i=1-OLx,sNx+OLx |
|
./pkg/mom_vecinv/mom_vecinv.F |
287 |
MOM_VECINV |
vort3BC(i,j) = vort3(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
288 |
MOM_VECINV |
IF ( hFacZ(i,j).EQ.zeroRS ) THEN |
|
./pkg/mom_vecinv/mom_vecinv.F |
289 |
MOM_VECINV |
vort3BC(i,j) = sideMaskFac*vort3BC(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
290 |
MOM_VECINV |
vort3(i,j) = 0. |
|
./pkg/mom_vecinv/mom_vecinv.F |
307 |
MOM_VECINV |
DO i=1-OLx,sNx+OLx |
|
./pkg/mom_vecinv/mom_vecinv.F |
308 |
MOM_VECINV |
h0FacZ(i,j) = hFacZ(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
314 |
MOM_VECINV |
DO i=2-OLx,sNx+OLx |
|
./pkg/mom_vecinv/mom_vecinv.F |
315 |
MOM_VECINV |
h0FacZ(i,j) = MIN( |
|
./pkg/mom_vecinv/mom_vecinv.F |
316 |
MOM_VECINV |
& MIN( h0FacW(i,j,k,bi,bj), h0FacW(i,j-1,k,bi,bj) ), |
|
./pkg/mom_vecinv/mom_vecinv.F |
317 |
MOM_VECINV |
& MIN( h0FacS(i,j,k,bi,bj), h0FacS(i-1,j,k,bi,bj) ) ) |
|
./pkg/mom_vecinv/mom_vecinv.F |
337 |
MOM_VECINV |
DO i=1-OLx,sNx+OLx |
|
./pkg/mom_vecinv/mom_vecinv.F |
338 |
MOM_VECINV |
strainBC(i,j) = strain(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
339 |
MOM_VECINV |
IF ( hFacZ(i,j).EQ.zeroRS ) THEN |
|
./pkg/mom_vecinv/mom_vecinv.F |
340 |
MOM_VECINV |
strainBC(i,j) = sideMaskFac*strainBC(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
341 |
MOM_VECINV |
strain(i,j) = 0. |
|
./pkg/mom_vecinv/mom_vecinv.F |
360 |
MOM_VECINV |
DO i=1-OLx,sNx+OLx |
|
./pkg/mom_vecinv/mom_vecinv.F |
361 |
MOM_VECINV |
viscAh_D(i,j) = viscAhD |
|
./pkg/mom_vecinv/mom_vecinv.F |
362 |
MOM_VECINV |
viscAh_Z(i,j) = viscAhZ |
|
./pkg/mom_vecinv/mom_vecinv.F |
363 |
MOM_VECINV |
viscA4_D(i,j) = viscA4D |
|
./pkg/mom_vecinv/mom_vecinv.F |
364 |
MOM_VECINV |
viscA4_Z(i,j) = viscA4Z |
|
./pkg/mom_vecinv/mom_vecinv.F |
451 |
MOM_VECINV |
DO i=iMin,iMax |
|
./pkg/mom_vecinv/mom_vecinv.F |
452 |
MOM_VECINV |
fVerUkp(i,j) = ArDudrFac*vrF(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
464 |
MOM_VECINV |
DO i=iMin,iMax |
|
./pkg/mom_vecinv/mom_vecinv.F |
465 |
MOM_VECINV |
guDiss(i,j) = guDiss(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
466 |
MOM_VECINV |
& -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_vecinv/mom_vecinv.F |
467 |
MOM_VECINV |
& *recip_rAw(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vecinv.F |
468 |
MOM_VECINV |
& *( fVerUkp(i,j) - fVerUkm(i,j) )*rkSign |
|
./pkg/mom_vecinv/mom_vecinv.F |
484 |
MOM_VECINV |
DO i=iMin,iMax |
|
./pkg/mom_vecinv/mom_vecinv.F |
485 |
MOM_VECINV |
guDiss(i,j) = guDiss(i,j)+vF(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
497 |
MOM_VECINV |
DO i=iMin,iMax |
|
./pkg/mom_vecinv/mom_vecinv.F |
498 |
MOM_VECINV |
guDiss(i,j) = guDiss(i,j)+vF(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
509 |
MOM_VECINV |
DO i=iMin,iMax |
|
./pkg/mom_vecinv/mom_vecinv.F |
510 |
MOM_VECINV |
guDiss(i,j) = guDiss(i,j) + vF(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
524 |
MOM_VECINV |
DO i=iMin,iMax |
|
./pkg/mom_vecinv/mom_vecinv.F |
525 |
MOM_VECINV |
fVerVkp(i,j) = ArDvdrFac*vrF(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
535 |
MOM_VECINV |
DO i=iMin,iMax |
|
./pkg/mom_vecinv/mom_vecinv.F |
536 |
MOM_VECINV |
gvDiss(i,j) = gvDiss(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
537 |
MOM_VECINV |
& -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_vecinv/mom_vecinv.F |
538 |
MOM_VECINV |
& *recip_rAs(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vecinv.F |
539 |
MOM_VECINV |
& *( fVerVkp(i,j) - fVerVkm(i,j) )*rkSign |
|
./pkg/mom_vecinv/mom_vecinv.F |
555 |
MOM_VECINV |
DO i=iMin,iMax |
|
./pkg/mom_vecinv/mom_vecinv.F |
556 |
MOM_VECINV |
gvDiss(i,j) = gvDiss(i,j)+vF(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
568 |
MOM_VECINV |
DO i=iMin,iMax |
|
./pkg/mom_vecinv/mom_vecinv.F |
569 |
MOM_VECINV |
gvDiss(i,j) = gvDiss(i,j)+vF(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
580 |
MOM_VECINV |
DO i=iMin,iMax |
|
./pkg/mom_vecinv/mom_vecinv.F |
581 |
MOM_VECINV |
gvDiss(i,j) = gvDiss(i,j) + vF(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
624 |
MOM_VECINV |
DO i=iMin,iMax |
|
./pkg/mom_vecinv/mom_vecinv.F |
625 |
MOM_VECINV |
gU(i,j,k,bi,bj) = uCf(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
626 |
MOM_VECINV |
gV(i,j,k,bi,bj) = vCf(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
651 |
MOM_VECINV |
DO i=iMin,iMax |
|
./pkg/mom_vecinv/mom_vecinv.F |
652 |
MOM_VECINV |
gU(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mom_vecinv/mom_vecinv.F |
653 |
MOM_VECINV |
gV(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mom_vecinv/mom_vecinv.F |
688 |
MOM_VECINV |
DO i=iMin,iMax |
|
./pkg/mom_vecinv/mom_vecinv.F |
689 |
MOM_VECINV |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+uCf(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
713 |
MOM_VECINV |
DO i=iMin,iMax |
|
./pkg/mom_vecinv/mom_vecinv.F |
714 |
MOM_VECINV |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+vCf(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
759 |
MOM_VECINV |
DO i=iMin,iMax |
|
./pkg/mom_vecinv/mom_vecinv.F |
760 |
MOM_VECINV |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+uCf(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
765 |
MOM_VECINV |
DO i=iMin,iMax |
|
./pkg/mom_vecinv/mom_vecinv.F |
766 |
MOM_VECINV |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+vCf(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
780 |
MOM_VECINV |
DO i=iMin,iMax |
|
./pkg/mom_vecinv/mom_vecinv.F |
781 |
MOM_VECINV |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+uCf(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
786 |
MOM_VECINV |
DO i=iMin,iMax |
|
./pkg/mom_vecinv/mom_vecinv.F |
787 |
MOM_VECINV |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+vCf(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
812 |
MOM_VECINV |
DO i=iMin,iMax |
|
./pkg/mom_vecinv/mom_vecinv.F |
813 |
MOM_VECINV |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+uCf(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
820 |
MOM_VECINV |
DO i=iMin,iMax |
|
./pkg/mom_vecinv/mom_vecinv.F |
821 |
MOM_VECINV |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+vCf(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
831 |
MOM_VECINV |
DO i=iMin,iMax |
|
./pkg/mom_vecinv/mom_vecinv.F |
832 |
MOM_VECINV |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+uCf(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
837 |
MOM_VECINV |
DO i=iMin,iMax |
|
./pkg/mom_vecinv/mom_vecinv.F |
838 |
MOM_VECINV |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+vCf(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
845 |
MOM_VECINV |
DO i=iMin,iMax |
|
./pkg/mom_vecinv/mom_vecinv.F |
846 |
MOM_VECINV |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)*_maskW(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vecinv.F |
847 |
MOM_VECINV |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)*_maskS(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
100 |
MOM_VI_CORIOLIS |
& )*uBarXY*recip_dyC(i,j,bi,bj)*_maskS(I,J,K,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
44 |
MOM_VI_CORIOLIS |
& (vFld( i , j )*dxG( i , j ,bi,bj)*_hFacS( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
45 |
MOM_VI_CORIOLIS |
& +vFld(i-1, j )*dxG(i-1, j ,bi,bj)*_hFacS(i-1, j ,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
46 |
MOM_VI_CORIOLIS |
& +(vFld( i ,j+1)*dxG( i ,j+1,bi,bj)*_hFacS( i ,j+1,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
47 |
MOM_VI_CORIOLIS |
& +vFld(i-1,j+1)*dxG(i-1,j+1,bi,bj)*_hFacS(i-1,j+1,k,bi,bj))) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
48 |
MOM_VI_CORIOLIS |
& / MAX( epsil,(_hFacS(i, j ,k,bi,bj)+_hFacS(i-1, j ,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
49 |
MOM_VI_CORIOLIS |
& +(_hFacS(i,j+1,k,bi,bj)+_hFacS(i-1,j+1,k,bi,bj)) ) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
50 |
MOM_VI_CORIOLIS |
uCoriolisTerm(i,j)= |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
51 |
MOM_VI_CORIOLIS |
& +0.5*( fCoriG(i,j,bi,bj)+fCoriG(i,j+1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
52 |
MOM_VI_CORIOLIS |
& )*vBarXY*recip_dxC(i,j,bi,bj)*_maskW(I,J,K,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
60 |
MOM_VI_CORIOLIS |
& (vFld( i , j )*dxG( i , j ,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
61 |
MOM_VI_CORIOLIS |
& +vFld(i-1, j )*dxG(i-1, j ,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
62 |
MOM_VI_CORIOLIS |
& +(vFld( i ,j+1)*dxG( i ,j+1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
63 |
MOM_VI_CORIOLIS |
& +vFld(i-1,j+1)*dxG(i-1,j+1,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
65 |
MOM_VI_CORIOLIS |
uCoriolisTerm(i,j)= |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
66 |
MOM_VI_CORIOLIS |
& +0.5*( fCoriG(i,j,bi,bj)+fCoriG(i,j+1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
67 |
MOM_VI_CORIOLIS |
& )*vBarXY*recip_dxC(i,j,bi,bj)*_maskW(I,J,K,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
77 |
MOM_VI_CORIOLIS |
& (uFld( i , j )*dyG( i , j ,bi,bj)*_hFacW( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
78 |
MOM_VI_CORIOLIS |
& +uFld( i ,j-1)*dyG( i ,j-1,bi,bj)*_hFacW( i ,j-1,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
79 |
MOM_VI_CORIOLIS |
& +(uFld(i+1, j )*dyG(i+1, j ,bi,bj)*_hFacW(i+1, j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
80 |
MOM_VI_CORIOLIS |
& +uFld(i+1,j-1)*dyG(i+1,j-1,bi,bj)*_hFacW(i+1,j-1,k,bi,bj))) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
81 |
MOM_VI_CORIOLIS |
& / MAX( epsil,(_hFacW( i ,j,k,bi,bj)+_hFacW( i ,j-1,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
82 |
MOM_VI_CORIOLIS |
& +(_hFacW(i+1,j,k,bi,bj)+_hFacW(i+1,j-1,k,bi,bj)) ) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
83 |
MOM_VI_CORIOLIS |
vCoriolisTerm(i,j)= |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
84 |
MOM_VI_CORIOLIS |
& -0.5*( fCoriG(i,j,bi,bj)+fCoriG(i+1,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
85 |
MOM_VI_CORIOLIS |
& )*uBarXY*recip_dyC(i,j,bi,bj)*_maskS(I,J,K,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
93 |
MOM_VI_CORIOLIS |
& (uFld( i , j )*dyG( i , j ,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
94 |
MOM_VI_CORIOLIS |
& +uFld( i ,j-1)*dyG( i ,j-1,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
95 |
MOM_VI_CORIOLIS |
& +(uFld(i+1, j )*dyG(i+1, j ,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
96 |
MOM_VI_CORIOLIS |
& +uFld(i+1,j-1)*dyG(i+1,j-1,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
98 |
MOM_VI_CORIOLIS |
vCoriolisTerm(i,j)= |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
99 |
MOM_VI_CORIOLIS |
& -0.5*( fCoriG(i,j,bi,bj)+fCoriG(i+1,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
116 |
MOM_VI_DEL2UV |
DO i=2-OLx,sNx+OLx-1 |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
117 |
MOM_VI_DEL2UV |
del2v(i,j) = |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
118 |
MOM_VI_DEL2UV |
& ( ( hDiv(i,j) - hDiv(i,j-1) )*recip_dyC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
119 |
MOM_VI_DEL2UV |
& +_recip_hFacS(i,j,k,bi,bj)* |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
120 |
MOM_VI_DEL2UV |
& ( hFacZ(i+1,j)*vort3(i+1,j) - hFacZ(i,j)*vort3(i,j) ) |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
121 |
MOM_VI_DEL2UV |
& *recip_dxG(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
122 |
MOM_VI_DEL2UV |
& )*maskS(i,j,k,bi,bj)*recip_deepFacC(k) |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
124 |
MOM_VI_DEL2UV |
& *maskInS(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
31 |
MOM_VI_DEL2UV |
INTEGER i,j |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
91 |
MOM_VI_DEL2UV |
DO i=2-OLx,sNx+OLx-1 |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
92 |
MOM_VI_DEL2UV |
del2u(i,j) = |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
93 |
MOM_VI_DEL2UV |
& ( ( hDiv(i,j) - hDiv(i-1,j) )*recip_dxC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
94 |
MOM_VI_DEL2UV |
& -_recip_hFacW(i,j,k,bi,bj)* |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
95 |
MOM_VI_DEL2UV |
& ( hFacZ(i,j+1)*vort3(i,j+1) - hFacZ(i,j)*vort3(i,j) ) |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
96 |
MOM_VI_DEL2UV |
& *recip_dyG(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
97 |
MOM_VI_DEL2UV |
& )*maskW(i,j,k,bi,bj)*recip_deepFacC(k) |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
99 |
MOM_VI_DEL2UV |
& *maskInW(i,j,bi,bj) |
|
./model/src/cg3d.F |
127 |
CG3D |
DO i=1,sNx |
|
./model/src/cg3d.F |
128 |
CG3D |
surfTerm(i,j) = 0. |
|
./model/src/cg3d.F |
142 |
CG3D |
DO i=1,sNx |
|
./model/src/cg3d.F |
143 |
CG3D |
cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj)*cg3dNorm |
|
./model/src/cg3d.F |
144 |
CG3D |
& * maskC(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
145 |
CG3D |
rhsMax = MAX(ABS(cg3d_b(i,j,k,bi,bj)),rhsMax) |
|
./model/src/cg3d.F |
158 |
CG3D |
DO i=1,sNx |
|
./model/src/cg3d.F |
159 |
CG3D |
cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj)*rhsNorm |
|
./model/src/cg3d.F |
160 |
CG3D |
cg3d_x(i,j,k,bi,bj) = cg3d_x(i,j,k,bi,bj)*rhsNorm |
|
./model/src/cg3d.F |
178 |
CG3D |
DO i=1,sNx |
|
./model/src/cg3d.F |
179 |
CG3D |
surfTerm(i,j) = 0. |
|
./model/src/cg3d.F |
184 |
CG3D |
DO i=1,sNx |
|
./model/src/cg3d.F |
185 |
CG3D |
surfTerm(i,j) = surfTerm(i,j) |
|
./model/src/cg3d.F |
186 |
CG3D |
& +cg3d_x(i,j,k,bi,bj)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
191 |
CG3D |
DO i=1,sNx |
|
./model/src/cg3d.F |
192 |
CG3D |
ks = kSurfC(i,j,bi,bj) |
|
./model/src/cg3d.F |
193 |
CG3D |
surfTerm(i,j) = surfTerm(i,j)*cg3dNorm |
|
./model/src/cg3d.F |
194 |
CG3D |
& *recip_Rcol(i,j,bi,bj)*recip_Rcol(i,j,bi,bj) |
|
./model/src/cg3d.F |
195 |
CG3D |
& *rA(i,j,bi,bj)*deepFac2F(ks) |
|
./model/src/cg3d.F |
196 |
CG3D |
& *recip_Bo(i,j,bi,bj)/deltaTMom/deltaTfreesurf |
|
./model/src/cg3d.F |
212 |
CG3D |
DO i=1,sNx |
|
./model/src/cg3d.F |
213 |
CG3D |
cg3d_r(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
215 |
CG3D |
& +aW3d( i, j, k, bi,bj)*cg3d_x(i-1,j, k, bi,bj) |
|
./model/src/cg3d.F |
216 |
CG3D |
& +aW3d(i+1,j, k, bi,bj)*cg3d_x(i+1,j, k, bi,bj) |
|
./model/src/cg3d.F |
217 |
CG3D |
& +aS3d( i, j, k, bi,bj)*cg3d_x( i,j-1,k, bi,bj) |
|
./model/src/cg3d.F |
218 |
CG3D |
& +aS3d( i,j+1,k, bi,bj)*cg3d_x( i,j+1,k, bi,bj) |
|
./model/src/cg3d.F |
219 |
CG3D |
& +aV3d( i, j, k, bi,bj)*cg3d_x( i, j,km1,bi,bj)*maskM1 |
|
./model/src/cg3d.F |
220 |
CG3D |
& +aV3d( i, j,kp1,bi,bj)*cg3d_x( i, j,kp1,bi,bj)*maskP1 |
|
./model/src/cg3d.F |
221 |
CG3D |
& +aC3d( i, j, k, bi,bj)*cg3d_x( i, j, k, bi,bj) |
|
./model/src/cg3d.F |
223 |
CG3D |
& -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
227 |
CG3D |
& +cg3d_r(i,j,k,bi,bj)*cg3d_r(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
228 |
CG3D |
sumRHStile(bi,bj) = sumRHStile(bi,bj)+cg3d_b(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
232 |
CG3D |
DO i=0,sNx+1 |
|
./model/src/cg3d.F |
233 |
CG3D |
cg3d_s(i,j,k,bi,bj) = 0. |
|
./model/src/cg3d.F |
278 |
CG3D |
DO i=0,sNx+1 |
|
./model/src/cg3d.F |
279 |
CG3D |
cg3d_q(i,j,k,bi,bj) = zMC(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
280 |
CG3D |
& *cg3d_r(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
289 |
CG3D |
DO i=0,sNx+1 |
|
./model/src/cg3d.F |
290 |
CG3D |
cg3d_q(i,j,k,bi,bj) = zMC(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
291 |
CG3D |
& *( cg3d_r(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
292 |
CG3D |
& -zML(i,j,k,bi,bj)*cg3d_q(i,j,k-1,bi,bj) |
|
./model/src/cg3d.F |
302 |
CG3D |
DO i=1,sNx |
|
./model/src/cg3d.F |
304 |
CG3D |
& +cg3d_q(i,j,k,bi,bj)*cg3d_r(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
313 |
CG3D |
DO i=0,sNx+1 |
|
./model/src/cg3d.F |
314 |
CG3D |
cg3d_q(i,j,k,bi,bj) = cg3d_q(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
315 |
CG3D |
& -zMU(i,j,k,bi,bj)*cg3d_q(i,j,k+1,bi,bj) |
|
./model/src/cg3d.F |
322 |
CG3D |
DO i=1,sNx |
|
./model/src/cg3d.F |
324 |
CG3D |
& +cg3d_q(i,j,k,bi,bj)*cg3d_r(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
343 |
CG3D |
DO i=0,sNx+1 |
|
./model/src/cg3d.F |
344 |
CG3D |
cg3d_s(i,j,k,bi,bj) = cg3d_q(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
345 |
CG3D |
& + cgBeta*cg3d_s(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
360 |
CG3D |
DO i=1,sNx |
|
./model/src/cg3d.F |
361 |
CG3D |
surfTerm(i,j) = 0. |
|
./model/src/cg3d.F |
366 |
CG3D |
DO i=1,sNx |
|
./model/src/cg3d.F |
367 |
CG3D |
surfTerm(i,j) = surfTerm(i,j) |
|
./model/src/cg3d.F |
368 |
CG3D |
& +cg3d_s(i,j,k,bi,bj)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
373 |
CG3D |
DO i=1,sNx |
|
./model/src/cg3d.F |
374 |
CG3D |
ks = kSurfC(i,j,bi,bj) |
|
./model/src/cg3d.F |
375 |
CG3D |
surfTerm(i,j) = surfTerm(i,j)*cg3dNorm |
|
./model/src/cg3d.F |
376 |
CG3D |
& *recip_Rcol(i,j,bi,bj)*recip_Rcol(i,j,bi,bj) |
|
./model/src/cg3d.F |
377 |
CG3D |
& *rA(i,j,bi,bj)*deepFac2F(ks) |
|
./model/src/cg3d.F |
378 |
CG3D |
& *recip_Bo(i,j,bi,bj)/deltaTMom/deltaTfreesurf |
|
./model/src/cg3d.F |
389 |
CG3D |
DO i=1,sNx |
|
./model/src/cg3d.F |
390 |
CG3D |
cg3d_q(i,j,k,bi,bj) = |
|
./model/src/cg3d.F |
391 |
CG3D |
& aW3d( i, j, k, bi,bj)*cg3d_s(i-1,j, k, bi,bj) |
|
./model/src/cg3d.F |
392 |
CG3D |
& +aW3d(i+1,j, k, bi,bj)*cg3d_s(i+1,j, k, bi,bj) |
|
./model/src/cg3d.F |
393 |
CG3D |
& +aS3d( i, j, k, bi,bj)*cg3d_s( i,j-1,k, bi,bj) |
|
./model/src/cg3d.F |
394 |
CG3D |
& +aS3d( i,j+1,k, bi,bj)*cg3d_s( i,j+1,k, bi,bj) |
|
./model/src/cg3d.F |
395 |
CG3D |
& +aV3d( i, j,k+1,bi,bj)*cg3d_s( i, j,k+1,bi,bj) |
|
./model/src/cg3d.F |
396 |
CG3D |
& +aC3d( i, j, k, bi,bj)*cg3d_s( i, j, k, bi,bj) |
|
./model/src/cg3d.F |
398 |
CG3D |
& -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
401 |
CG3D |
& +cg3d_s(i,j,k,bi,bj)*cg3d_q(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
410 |
CG3D |
DO i=1,sNx |
|
./model/src/cg3d.F |
411 |
CG3D |
cg3d_q(i,j,k,bi,bj) = |
|
./model/src/cg3d.F |
412 |
CG3D |
& aW3d( i, j, k, bi,bj)*cg3d_s(i-1,j, k, bi,bj) |
|
./model/src/cg3d.F |
413 |
CG3D |
& +aW3d(i+1,j, k, bi,bj)*cg3d_s(i+1,j, k, bi,bj) |
|
./model/src/cg3d.F |
414 |
CG3D |
& +aS3d( i, j, k, bi,bj)*cg3d_s( i,j-1,k, bi,bj) |
|
./model/src/cg3d.F |
415 |
CG3D |
& +aS3d( i,j+1,k, bi,bj)*cg3d_s( i,j+1,k, bi,bj) |
|
./model/src/cg3d.F |
416 |
CG3D |
& +aC3d( i, j, k, bi,bj)*cg3d_s( i, j, k, bi,bj) |
|
./model/src/cg3d.F |
418 |
CG3D |
& -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
421 |
CG3D |
& +cg3d_s(i,j,k,bi,bj)*cg3d_q(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
430 |
CG3D |
DO i=1,sNx |
|
./model/src/cg3d.F |
431 |
CG3D |
cg3d_q(i,j,k,bi,bj) = |
|
./model/src/cg3d.F |
432 |
CG3D |
& aW3d( i, j, k, bi,bj)*cg3d_s(i-1,j, k, bi,bj) |
|
./model/src/cg3d.F |
433 |
CG3D |
& +aW3d(i+1,j, k, bi,bj)*cg3d_s(i+1,j, k, bi,bj) |
|
./model/src/cg3d.F |
434 |
CG3D |
& +aS3d( i, j, k, bi,bj)*cg3d_s( i,j-1,k, bi,bj) |
|
./model/src/cg3d.F |
435 |
CG3D |
& +aS3d( i,j+1,k, bi,bj)*cg3d_s( i,j+1,k, bi,bj) |
|
./model/src/cg3d.F |
436 |
CG3D |
& +aV3d( i, j, k, bi,bj)*cg3d_s( i, j,k-1,bi,bj) |
|
./model/src/cg3d.F |
437 |
CG3D |
& +aV3d( i, j,k+1,bi,bj)*cg3d_s( i, j,k+1,bi,bj) |
|
./model/src/cg3d.F |
438 |
CG3D |
& +aC3d( i, j, k, bi,bj)*cg3d_s( i, j, k, bi,bj) |
|
./model/src/cg3d.F |
440 |
CG3D |
& -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
443 |
CG3D |
& +cg3d_s(i,j,k,bi,bj)*cg3d_q(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
453 |
CG3D |
DO i=1,sNx |
|
./model/src/cg3d.F |
454 |
CG3D |
cg3d_q(i,j,k,bi,bj) = |
|
./model/src/cg3d.F |
455 |
CG3D |
& aW3d( i, j, k, bi,bj)*cg3d_s(i-1,j, k, bi,bj) |
|
./model/src/cg3d.F |
456 |
CG3D |
& +aW3d(i+1,j, k, bi,bj)*cg3d_s(i+1,j, k, bi,bj) |
|
./model/src/cg3d.F |
457 |
CG3D |
& +aS3d( i, j, k, bi,bj)*cg3d_s( i,j-1,k, bi,bj) |
|
./model/src/cg3d.F |
458 |
CG3D |
& +aS3d( i,j+1,k, bi,bj)*cg3d_s( i,j+1,k, bi,bj) |
|
./model/src/cg3d.F |
459 |
CG3D |
& +aV3d( i, j, k, bi,bj)*cg3d_s( i, j,k-1,bi,bj) |
|
./model/src/cg3d.F |
460 |
CG3D |
& +aC3d( i, j, k, bi,bj)*cg3d_s( i, j, k, bi,bj) |
|
./model/src/cg3d.F |
462 |
CG3D |
& -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
465 |
CG3D |
& +cg3d_s(i,j,k,bi,bj)*cg3d_q(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
488 |
CG3D |
DO i=1,sNx |
|
./model/src/cg3d.F |
489 |
CG3D |
cg3d_x(i,j,k,bi,bj)=cg3d_x(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
490 |
CG3D |
& +alpha*cg3d_s(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
491 |
CG3D |
cg3d_r(i,j,k,bi,bj)=cg3d_r(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
492 |
CG3D |
& -alpha*cg3d_q(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
494 |
CG3D |
& +cg3d_r(i,j,k,bi,bj)*cg3d_r(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
527 |
CG3D |
DO i=1,sNx |
|
./model/src/cg3d.F |
528 |
CG3D |
cg3d_x(i,j,k,bi,bj) = cg3d_x(i,j,k,bi,bj)/rhsNorm |
|
./model/src/cg3d.F |
96 |
CG3D |
INTEGER i, j, k, it3d |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
100 |
MOM_VI_HDISSIP |
& cosFacV(j,bi,bj)*( Zpj-Zij )*recip_DXG(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
101 |
MOM_VI_HDISSIP |
& + viscAhD* ( Dij-Dim )*recip_DYC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
106 |
MOM_VI_HDISSIP |
uDissip(i,j) = uD2 |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
107 |
MOM_VI_HDISSIP |
vDissip(i,j) = vD2 |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
114 |
MOM_VI_HDISSIP |
DO i=2-OLx,sNx+OLx-1 |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
115 |
MOM_VI_HDISSIP |
uDissip(i,j) = 0. |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
116 |
MOM_VI_HDISSIP |
vDissip(i,j) = 0. |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
129 |
MOM_VI_HDISSIP |
DO i=2-OLx,sNx+OLx-1 |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
132 |
MOM_VI_HDISSIP |
Dim=dyF( i ,j-1,bi,bj)*dStar( i ,j-1) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
133 |
MOM_VI_HDISSIP |
Dij=dyF( i , j ,bi,bj)*dStar( i , j ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
134 |
MOM_VI_HDISSIP |
Dmj=dyF(i-1, j ,bi,bj)*dStar(i-1, j ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
136 |
MOM_VI_HDISSIP |
Zip1=dxV( i ,j+1,bi,bj)*hFacZ( i ,j+1)*zStar( i ,j+1) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
137 |
MOM_VI_HDISSIP |
Zij1=dxV( i , j ,bi,bj)*hFacZ( i , j )*zStar( i , j ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
138 |
MOM_VI_HDISSIP |
Zpj1=dxV(i+1, j ,bi,bj)*hFacZ(i+1, j )*zStar(i+1, j ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
140 |
MOM_VI_HDISSIP |
Dim=dStar( i ,j-1) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
141 |
MOM_VI_HDISSIP |
Dij=dStar( i , j ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
142 |
MOM_VI_HDISSIP |
Dmj=dStar(i-1, j ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
144 |
MOM_VI_HDISSIP |
Zip1=hFacZ( i ,j+1)*zStar( i ,j+1) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
145 |
MOM_VI_HDISSIP |
Zij1=hFacZ( i , j )*zStar( i , j ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
146 |
MOM_VI_HDISSIP |
Zpj1=hFacZ(i+1, j )*zStar(i+1, j ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
148 |
MOM_VI_HDISSIP |
Dij=Dij*viscA4_D(i,j) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
149 |
MOM_VI_HDISSIP |
Dim=Dim*viscA4_D(i,j-1) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
150 |
MOM_VI_HDISSIP |
Dmj=Dmj*viscA4_D(i-1,j) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
151 |
MOM_VI_HDISSIP |
Zij=Zij1*viscA4_Z(i,j) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
152 |
MOM_VI_HDISSIP |
Zip=Zip1*viscA4_Z(i,j+1) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
153 |
MOM_VI_HDISSIP |
Zpj=Zpj1*viscA4_Z(i+1,j) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
156 |
MOM_VI_HDISSIP |
uD4 = recip_rAw(i,j,bi,bj)*( |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
158 |
MOM_VI_HDISSIP |
& -_recip_hFacW(i,j,k,bi,bj)*( Zip-Zij ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
163 |
MOM_VI_HDISSIP |
vD4 = recip_rAs(i,j,bi,bj)*( |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
164 |
MOM_VI_HDISSIP |
& _recip_hFacS(i,j,k,bi,bj)*( (Zpj-Zij)*cosFacV(j,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
172 |
MOM_VI_HDISSIP |
& cosFacU(j,bi,bj)*( Dij-Dmj )*recip_DXC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
173 |
MOM_VI_HDISSIP |
& -_recip_hFacW(i,j,k,bi,bj)*( Zip-Zij )*recip_DYG(i,j,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
178 |
MOM_VI_HDISSIP |
& _recip_hFacS(i,j,k,bi,bj)*( Zpj-Zij )*recip_DXG(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
180 |
MOM_VI_HDISSIP |
& +( Dij-Dim )*recip_DYC(i,j,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
186 |
MOM_VI_HDISSIP |
uDissip(i,j) = uDissip(i,j) - uD4 |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
187 |
MOM_VI_HDISSIP |
vDissip(i,j) = vDissip(i,j) - vD4 |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
193 |
MOM_VI_HDISSIP |
DO i=2-OLx,sNx+OLx-1 |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
196 |
MOM_VI_HDISSIP |
Dim=dyF( i ,j-1,bi,bj)*dStar( i ,j-1) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
197 |
MOM_VI_HDISSIP |
Dij=dyF( i , j ,bi,bj)*dStar( i , j ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
198 |
MOM_VI_HDISSIP |
Dmj=dyF(i-1, j ,bi,bj)*dStar(i-1, j ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
200 |
MOM_VI_HDISSIP |
Zip1=dxV( i ,j+1,bi,bj)*hFacZ( i ,j+1)*zStar( i ,j+1) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
201 |
MOM_VI_HDISSIP |
Zij1=dxV( i , j ,bi,bj)*hFacZ( i , j )*zStar( i , j ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
202 |
MOM_VI_HDISSIP |
Zpj1=dxV(i+1, j ,bi,bj)*hFacZ(i+1, j )*zStar(i+1, j ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
204 |
MOM_VI_HDISSIP |
Dim=dStar( i ,j-1) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
205 |
MOM_VI_HDISSIP |
Dij=dStar( i , j ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
206 |
MOM_VI_HDISSIP |
Dmj=dStar(i-1, j ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
208 |
MOM_VI_HDISSIP |
Zip1=hFacZ( i ,j+1)*zStar( i ,j+1) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
209 |
MOM_VI_HDISSIP |
Zij1=hFacZ( i , j )*zStar( i , j ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
210 |
MOM_VI_HDISSIP |
Zpj1=hFacZ(i+1, j )*zStar(i+1, j ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
217 |
MOM_VI_HDISSIP |
uD4 = recip_rAw(i,j,bi,bj)*( |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
219 |
MOM_VI_HDISSIP |
& -_recip_hFacW(i,j,k,bi,bj)*viscA4Z*( Zip-Zij ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
224 |
MOM_VI_HDISSIP |
vD4 = recip_rAs(i,j,bi,bj)*( |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
225 |
MOM_VI_HDISSIP |
& _recip_hFacS(i,j,k,bi,bj)*viscA4Z*( Zpj-Zij )*cosFacV(j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
233 |
MOM_VI_HDISSIP |
& cosFacU(j,bi,bj)*( Dij-Dmj )*recip_DXC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
234 |
MOM_VI_HDISSIP |
& - viscA4Z*_recip_hFacW(i,j,k,bi,bj)* |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
235 |
MOM_VI_HDISSIP |
& ( Zip-Zij )*recip_DYG(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
239 |
MOM_VI_HDISSIP |
vD4 = viscA4Z*_recip_hFacS(i,j,k,bi,bj)* |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
240 |
MOM_VI_HDISSIP |
& cosFacV(j,bi,bj)*( Zpj-Zij )*recip_DXG(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
241 |
MOM_VI_HDISSIP |
& + viscA4D* ( Dij-Dim )*recip_DYC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
247 |
MOM_VI_HDISSIP |
uDissip(i,j) = uDissip(i,j) - uD4 |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
248 |
MOM_VI_HDISSIP |
vDissip(i,j) = vDissip(i,j) - vD4 |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
257 |
MOM_VI_HDISSIP |
DO i=1-OLx,sNx+OLx-1 |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
258 |
MOM_VI_HDISSIP |
uDissip(i,j) = uDissip(i,j)*maskW(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
260 |
MOM_VI_HDISSIP |
vDissip(i,j) = vDissip(i,j)*maskS(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
42 |
MOM_VI_HDISSIP |
INTEGER i, j |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
53 |
MOM_VI_HDISSIP |
DO i=2-OLx,sNx+OLx-1 |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
55 |
MOM_VI_HDISSIP |
Dij=hDiv( i , j )*viscAh_D(i,j) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
56 |
MOM_VI_HDISSIP |
Dim=hDiv( i ,j-1)*viscAh_D(i,j-1) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
57 |
MOM_VI_HDISSIP |
Dmj=hDiv(i-1, j )*viscAh_D(i-1,j) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
58 |
MOM_VI_HDISSIP |
Zij=hFacZ( i , j )*vort3( i , j )*viscAh_Z(i,j) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
59 |
MOM_VI_HDISSIP |
Zip=hFacZ( i ,j+1)*vort3( i ,j+1)*viscAh_Z(i,j+1) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
60 |
MOM_VI_HDISSIP |
Zpj=hFacZ(i+1, j )*vort3(i+1, j )*viscAh_Z(i+1,j) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
63 |
MOM_VI_HDISSIP |
& cosFacU(j,bi,bj)*( Dij-Dmj )*recip_DXC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
64 |
MOM_VI_HDISSIP |
& -_recip_hFacW(i,j,k,bi,bj)*( Zip-Zij )*recip_DYG(i,j,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
69 |
MOM_VI_HDISSIP |
& _recip_hFacS(i,j,k,bi,bj)*( Zpj-Zij )*recip_DXG(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
71 |
MOM_VI_HDISSIP |
& +( Dij-Dim )*recip_DYC(i,j,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
76 |
MOM_VI_HDISSIP |
uDissip(i,j) = uD2 |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
77 |
MOM_VI_HDISSIP |
vDissip(i,j) = vD2 |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
83 |
MOM_VI_HDISSIP |
DO i=2-OLx,sNx+OLx-1 |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
85 |
MOM_VI_HDISSIP |
Dim=hDiv( i ,j-1) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
86 |
MOM_VI_HDISSIP |
Dij=hDiv( i , j ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
87 |
MOM_VI_HDISSIP |
Dmj=hDiv(i-1, j ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
88 |
MOM_VI_HDISSIP |
Zip=hFacZ( i ,j+1)*vort3( i ,j+1) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
89 |
MOM_VI_HDISSIP |
Zij=hFacZ( i , j )*vort3( i , j ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
90 |
MOM_VI_HDISSIP |
Zpj=hFacZ(i+1, j )*vort3(i+1, j ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
93 |
MOM_VI_HDISSIP |
& cosFacU(j,bi,bj)*( Dij-Dmj )*recip_DXC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
94 |
MOM_VI_HDISSIP |
& - viscAhZ*_recip_hFacW(i,j,k,bi,bj)* |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
95 |
MOM_VI_HDISSIP |
& ( Zip-Zij )*recip_DYG(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
99 |
MOM_VI_HDISSIP |
vD2 = viscAhZ*_recip_hFacS(i,j,k,bi,bj)* |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
101 |
MOM_VI_U_CORIOLIS |
vort3u=omega3(i,j) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
103 |
MOM_VI_U_CORIOLIS |
vort3u=omega3(i,j+1) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
106 |
MOM_VI_U_CORIOLIS |
vort3u=0.5*(omega3(i,j)+omega3(i,j+1)) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
108 |
MOM_VI_U_CORIOLIS |
uCoriolisTerm(i,j)= +vort3u*vBarXY*recip_dxC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
109 |
MOM_VI_U_CORIOLIS |
& * _maskW(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
117 |
MOM_VI_U_CORIOLIS |
DO i=2-Olx,sNx+Olx |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
119 |
MOM_VI_U_CORIOLIS |
& vFld( i , j )*dxG( i , j ,bi,bj)*_hFacS( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
120 |
MOM_VI_U_CORIOLIS |
& +vFld(i-1, j )*dxG(i-1, j ,bi,bj)*_hFacS(i-1, j ,k,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
122 |
MOM_VI_U_CORIOLIS |
& vFld( i ,j+1)*dxG( i ,j+1,bi,bj)*_hFacS( i ,j+1,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
123 |
MOM_VI_U_CORIOLIS |
& +vFld(i-1,j+1)*dxG(i-1,j+1,bi,bj)*_hFacS(i-1,j+1,k,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
126 |
MOM_VI_U_CORIOLIS |
vort3u=vBarXm*r_hFacZ(i, j )*omega3(i, j ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
128 |
MOM_VI_U_CORIOLIS |
vort3u=vBarXp*r_hFacZ(i,j+1)*omega3(i,j+1) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
131 |
MOM_VI_U_CORIOLIS |
vort3u = ( vBarXm*r_hFacZ(i, j )*omega3(i, j ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
132 |
MOM_VI_U_CORIOLIS |
& +vBarXp*r_hFacZ(i,j+1)*omega3(i,j+1) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
135 |
MOM_VI_U_CORIOLIS |
uCoriolisTerm(i,j)= +vort3u*recip_dxC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
136 |
MOM_VI_U_CORIOLIS |
& * _maskW(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
148 |
MOM_VI_U_CORIOLIS |
DO i=2-Olx,sNx+Olx-1 |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
149 |
MOM_VI_U_CORIOLIS |
vort3mj= ( r_hFacZ(i, j )*omega3(i, j ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
150 |
MOM_VI_U_CORIOLIS |
& +(r_hFacZ(i,j+1)*omega3(i,j+1) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
151 |
MOM_VI_U_CORIOLIS |
& +r_hFacZ(i-1,j)*omega3(i-1,j) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
154 |
MOM_VI_U_CORIOLIS |
& *vFld(i-1, j )*dxG(i-1, j ,bi,bj)*_hFacS(i-1, j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
155 |
MOM_VI_U_CORIOLIS |
vort3ij= ( r_hFacZ(i, j )*omega3(i, j ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
156 |
MOM_VI_U_CORIOLIS |
& +(r_hFacZ(i,j+1)*omega3(i,j+1) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
157 |
MOM_VI_U_CORIOLIS |
& +r_hFacZ(i+1,j)*omega3(i+1,j) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
160 |
MOM_VI_U_CORIOLIS |
& *vFld( i , j )*dxG( i , j ,bi,bj)*_hFacS( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
161 |
MOM_VI_U_CORIOLIS |
vort3mp= ( r_hFacZ(i,j+1)*omega3(i,j+1) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
162 |
MOM_VI_U_CORIOLIS |
& +(r_hFacZ(i, j )*omega3(i, j ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
163 |
MOM_VI_U_CORIOLIS |
& +r_hFacZ(i-1,j+1)*omega3(i-1,j+1) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
166 |
MOM_VI_U_CORIOLIS |
& *vFld(i-1,j+1)*dxG(i-1,j+1,bi,bj)*_hFacS(i-1,j+1,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
167 |
MOM_VI_U_CORIOLIS |
vort3ip= ( r_hFacZ(i,j+1)*omega3(i,j+1) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
168 |
MOM_VI_U_CORIOLIS |
& +(r_hFacZ(i, j )*omega3(i, j ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
169 |
MOM_VI_U_CORIOLIS |
& +r_hFacZ(i+1,j+1)*omega3(i+1,j+1) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
172 |
MOM_VI_U_CORIOLIS |
& *vFld( i ,j+1)*dxG( i ,j+1,bi,bj)*_hFacS( i ,j+1,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
174 |
MOM_VI_U_CORIOLIS |
uCoriolisTerm(i,j)= +( (vort3mj+vort3ij)+(vort3mp+vort3ip) ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
175 |
MOM_VI_U_CORIOLIS |
& *0.25 _d 0 *recip_dxC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
176 |
MOM_VI_U_CORIOLIS |
& * _maskW(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
191 |
MOM_VI_U_CORIOLIS |
DO i=2-Olx,sNx+Olx-1 |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
192 |
MOM_VI_U_CORIOLIS |
uCoriolisTerm(i,j) = uCoriolisTerm(i,j) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
193 |
MOM_VI_U_CORIOLIS |
& * 4. _d 0 * _hFacW(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
195 |
MOM_VI_U_CORIOLIS |
& (_hFacS(i, j ,k,bi,bj)+_hFacS(i-1, j ,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
196 |
MOM_VI_U_CORIOLIS |
& +(_hFacS(i,j+1,k,bi,bj)+_hFacS(i-1,j+1,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
49 |
MOM_VI_U_CORIOLIS |
INTEGER i, j |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
66 |
MOM_VI_U_CORIOLIS |
DO i=2-Olx,sNx+Olx |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
68 |
MOM_VI_U_CORIOLIS |
& (vFld( i , j )*dxG( i , j ,bi,bj)*_hFacS( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
69 |
MOM_VI_U_CORIOLIS |
& +vFld(i-1, j )*dxG(i-1, j ,bi,bj)*_hFacS(i-1, j ,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
70 |
MOM_VI_U_CORIOLIS |
& +(vFld( i ,j+1)*dxG( i ,j+1,bi,bj)*_hFacS( i ,j+1,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
71 |
MOM_VI_U_CORIOLIS |
& +vFld(i-1,j+1)*dxG(i-1,j+1,bi,bj)*_hFacS(i-1,j+1,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
75 |
MOM_VI_U_CORIOLIS |
vort3u=omega3(i,j)*r_hFacZ(i,j) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
77 |
MOM_VI_U_CORIOLIS |
vort3u=omega3(i,j+1)*r_hFacZ(i,j+1) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
80 |
MOM_VI_U_CORIOLIS |
vort3u=0.5*(omega3(i,j)*r_hFacZ(i,j) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
81 |
MOM_VI_U_CORIOLIS |
& +omega3(i,j+1)*r_hFacZ(i,j+1)) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
83 |
MOM_VI_U_CORIOLIS |
uCoriolisTerm(i,j)= +vort3u*vBarXY*recip_dxC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
84 |
MOM_VI_U_CORIOLIS |
& * _maskW(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
92 |
MOM_VI_U_CORIOLIS |
DO i=2-Olx,sNx+Olx |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
94 |
MOM_VI_U_CORIOLIS |
& (vFld( i , j )*dxG( i , j ,bi,bj)*hFacZ(i, j ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
95 |
MOM_VI_U_CORIOLIS |
& +vFld(i-1, j )*dxG(i-1, j ,bi,bj)*hFacZ(i, j )) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
96 |
MOM_VI_U_CORIOLIS |
& +(vFld( i ,j+1)*dxG( i ,j+1,bi,bj)*hFacZ(i,j+1) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
97 |
MOM_VI_U_CORIOLIS |
& +vFld(i-1,j+1)*dxG(i-1,j+1,bi,bj)*hFacZ(i,j+1)) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
98 |
MOM_VI_U_CORIOLIS |
& )/MAX( epsil, hFacZ(i,j)+hFacZ(i,j+1) ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
100 |
MOM_VI_U_CORIOLIS_C4 |
vort3r(i,j-1) = ( vort3r(i,j-1) + vort3r(i+1,j) )*0.5 _d 0 |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
103 |
MOM_VI_U_CORIOLIS_C4 |
i = sNx+1 |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
105 |
MOM_VI_U_CORIOLIS_C4 |
vort3r(i,j-1) = ( vort3r(i,j-1) + vort3r(i-1,j) )*0.5 _d 0 |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
108 |
MOM_VI_U_CORIOLIS_C4 |
i = 1 |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
110 |
MOM_VI_U_CORIOLIS_C4 |
vort3r(i,j+1) = ( vort3r(i,j+1) + vort3r(i+1,j) )*0.5 _d 0 |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
113 |
MOM_VI_U_CORIOLIS_C4 |
i = sNx+1 |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
115 |
MOM_VI_U_CORIOLIS_C4 |
vort3r(i,j+1) = ( vort3r(i,j+1) + vort3r(i-1,j) )*0.5 _d 0 |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
129 |
MOM_VI_U_CORIOLIS_C4 |
DO i=1,sNx+1 |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
132 |
MOM_VI_U_CORIOLIS_C4 |
& (vFld( i , j )*dxG( i , j ,bi,bj)*_hFacS( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
133 |
MOM_VI_U_CORIOLIS_C4 |
& +vFld(i-1, j )*dxG(i-1, j ,bi,bj)*_hFacS(i-1, j ,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
134 |
MOM_VI_U_CORIOLIS_C4 |
& +(vFld( i ,j+1)*dxG( i ,j+1,bi,bj)*_hFacS( i ,j+1,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
135 |
MOM_VI_U_CORIOLIS_C4 |
& +vFld(i-1,j+1)*dxG(i-1,j+1,bi,bj)*_hFacS(i-1,j+1,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
139 |
MOM_VI_U_CORIOLIS_C4 |
vort3u=vort3r(i,j) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
141 |
MOM_VI_U_CORIOLIS_C4 |
vort3u=vort3r(i,j+1) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
145 |
MOM_VI_U_CORIOLIS_C4 |
Rjp = ( vort3r(i,j+2) - vort3r(i,j+1) )*maskInW(i,j+1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
146 |
MOM_VI_U_CORIOLIS_C4 |
Rjm = ( vort3r(i, j ) - vort3r(i,j-1) )*maskInW(i,j-1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
148 |
MOM_VI_U_CORIOLIS_C4 |
Rjp = vort3r(i,j+2) - vort3r(i,j+1) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
149 |
MOM_VI_U_CORIOLIS_C4 |
Rjm = vort3r(i, j ) - vort3r(i,j-1) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
151 |
MOM_VI_U_CORIOLIS_C4 |
vort3u=0.5*( (vort3r(i,j) + vort3r(i,j+1)) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
155 |
MOM_VI_U_CORIOLIS_C4 |
vort3u=0.5*( vort3r(i,j) + vort3r(i,j+1) ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
158 |
MOM_VI_U_CORIOLIS_C4 |
uCoriolisTerm(i,j) = vort3u*vBarXY*recip_dxC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
159 |
MOM_VI_U_CORIOLIS_C4 |
& * _maskW(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
170 |
MOM_VI_U_CORIOLIS_C4 |
DO i=1,sNx+1 |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
173 |
MOM_VI_U_CORIOLIS_C4 |
& vFld( i , j )*dxG( i , j ,bi,bj)*_hFacS( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
174 |
MOM_VI_U_CORIOLIS_C4 |
& +vFld(i-1, j )*dxG(i-1, j ,bi,bj)*_hFacS(i-1, j ,k,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
176 |
MOM_VI_U_CORIOLIS_C4 |
& vFld( i ,j+1)*dxG( i ,j+1,bi,bj)*_hFacS( i ,j+1,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
177 |
MOM_VI_U_CORIOLIS_C4 |
& +vFld(i-1,j+1)*dxG(i-1,j+1,bi,bj)*_hFacS(i-1,j+1,k,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
180 |
MOM_VI_U_CORIOLIS_C4 |
vort3u=vBarXm*vort3r(i, j ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
182 |
MOM_VI_U_CORIOLIS_C4 |
vort3u=vBarXp*vort3r(i,j+1) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
186 |
MOM_VI_U_CORIOLIS_C4 |
Rjp = ( vort3r(i,j+2) - vort3r(i,j+1) )*maskInW(i,j+1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
187 |
MOM_VI_U_CORIOLIS_C4 |
Rjm = ( vort3r(i, j ) - vort3r(i,j-1) )*maskInW(i,j-1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
189 |
MOM_VI_U_CORIOLIS_C4 |
Rjp = vort3r(i,j+2) - vort3r(i,j+1) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
190 |
MOM_VI_U_CORIOLIS_C4 |
Rjm = vort3r(i, j ) - vort3r(i,j-1) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
192 |
MOM_VI_U_CORIOLIS_C4 |
Rj = vort3r(i,j+1) - vort3r(i, j ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
193 |
MOM_VI_U_CORIOLIS_C4 |
Rjp = vort3r(i,j+1) -oneSixth*( Rjp-Rj ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
194 |
MOM_VI_U_CORIOLIS_C4 |
Rjm = vort3r(i, j ) -oneSixth*( Rj-Rjm ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
199 |
MOM_VI_U_CORIOLIS_C4 |
vort3u=0.5*( vBarXm*vort3r(i, j ) + vBarXp*vort3r(i,j+1) ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
202 |
MOM_VI_U_CORIOLIS_C4 |
uCoriolisTerm(i,j) = vort3u*recip_dxC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
203 |
MOM_VI_U_CORIOLIS_C4 |
& * _maskW(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
51 |
MOM_VI_U_CORIOLIS_C4 |
INTEGER i,j |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
71 |
MOM_VI_U_CORIOLIS_C4 |
DO i=1-Olx,sNx+Olx |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
72 |
MOM_VI_U_CORIOLIS_C4 |
vort3r(i,j) = r_hFacZ(i,j)*omega3(i,j) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
98 |
MOM_VI_U_CORIOLIS_C4 |
i = 1 |
|
./pkg/mom_vecinv/mom_vi_u_grad_ke.F |
29 |
MOM_VI_U_GRAD_KE |
INTEGER i,j |
|
./pkg/mom_vecinv/mom_vi_u_grad_ke.F |
32 |
MOM_VI_U_GRAD_KE |
DO i=2-OLx,sNx+OLx |
|
./pkg/mom_vecinv/mom_vi_u_grad_ke.F |
33 |
MOM_VI_U_GRAD_KE |
dKEdx(i,j)=-_recip_dxC(i,j,bi,bj)*(KE(i,j)-KE(i-1,j)) |
|
./pkg/mom_vecinv/mom_vi_u_grad_ke.F |
34 |
MOM_VI_U_GRAD_KE |
& *_maskW(i,j,k,bi,bj)*recip_deepFacC(k) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
126 |
MOM_VI_U_VERTSHEAR |
& )*_recip_hFacW(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
131 |
MOM_VI_U_VERTSHEAR |
& *_recip_hFacW(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
69 |
MOM_VI_U_VERTSHEAR |
& wFld(I,J,K,bi,bj)*rA(i,j,bi,bj)*maskC(I,J,Km1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
70 |
MOM_VI_U_VERTSHEAR |
& +wFld(I-1,J,K,bi,bj)*rA(i-1,j,bi,bj)*maskC(I-1,J,Km1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
72 |
MOM_VI_U_VERTSHEAR |
& *recip_rAw(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
76 |
MOM_VI_U_VERTSHEAR |
& wFld(I,J,Kp1,bi,bj)*rA(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
77 |
MOM_VI_U_VERTSHEAR |
& +wFld(I-1,J,Kp1,bi,bj)*rA(i-1,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
79 |
MOM_VI_U_VERTSHEAR |
& *recip_rAw(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
101 |
MOM_VI_V_CORIOLIS |
vort3v=omega3(i,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
103 |
MOM_VI_V_CORIOLIS |
vort3v=omega3(i+1,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
106 |
MOM_VI_V_CORIOLIS |
vort3v=0.5*(omega3(i,j)+omega3(i+1,j)) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
108 |
MOM_VI_V_CORIOLIS |
vCoriolisTerm(i,j)= -vort3v*uBarXY*recip_dyC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
109 |
MOM_VI_V_CORIOLIS |
& * _maskS(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
117 |
MOM_VI_V_CORIOLIS |
DO i=1-Olx,sNx+Olx-1 |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
119 |
MOM_VI_V_CORIOLIS |
& uFld( i , j )*dyG( i , j ,bi,bj)*_hFacW( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
120 |
MOM_VI_V_CORIOLIS |
& +uFld( i ,j-1)*dyG( i ,j-1,bi,bj)*_hFacW( i ,j-1,k,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
122 |
MOM_VI_V_CORIOLIS |
& uFld(i+1, j )*dyG(i+1, j ,bi,bj)*_hFacW(i+1, j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
123 |
MOM_VI_V_CORIOLIS |
& +uFld(i+1,j-1)*dyG(i+1,j-1,bi,bj)*_hFacW(i+1,j-1,k,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
126 |
MOM_VI_V_CORIOLIS |
vort3v=uBarYm*r_hFacZ( i ,j)*omega3( i ,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
128 |
MOM_VI_V_CORIOLIS |
vort3v=uBarYp*r_hFacZ(i+1,j)*omega3(i+1,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
131 |
MOM_VI_V_CORIOLIS |
vort3v = ( uBarYm*r_hFacZ( i ,j)*omega3( i ,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
132 |
MOM_VI_V_CORIOLIS |
& +uBarYp*r_hFacZ(i+1,j)*omega3(i+1,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
135 |
MOM_VI_V_CORIOLIS |
vCoriolisTerm(i,j)= -vort3v*recip_dyC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
136 |
MOM_VI_V_CORIOLIS |
& * _maskS(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
148 |
MOM_VI_V_CORIOLIS |
DO i=1-Olx,sNx+Olx-1 |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
149 |
MOM_VI_V_CORIOLIS |
vort3im= ( r_hFacZ(i, j )*omega3(i, j ) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
150 |
MOM_VI_V_CORIOLIS |
& +(r_hFacZ(i+1,j)*omega3(i+1,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
151 |
MOM_VI_V_CORIOLIS |
& +r_hFacZ(i,j-1)*omega3(i,j-1) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
154 |
MOM_VI_V_CORIOLIS |
& *uFld( i ,j-1)*dyG( i ,j-1,bi,bj)*_hFacW( i ,j-1,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
155 |
MOM_VI_V_CORIOLIS |
vort3ij= ( r_hFacZ(i, j )*omega3(i, j ) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
156 |
MOM_VI_V_CORIOLIS |
& +(r_hFacZ(i+1,j)*omega3(i+1,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
157 |
MOM_VI_V_CORIOLIS |
& +r_hFacZ(i,j+1)*omega3(i,j+1) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
160 |
MOM_VI_V_CORIOLIS |
& *uFld( i , j )*dyG( i , j ,bi,bj)*_hFacW( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
161 |
MOM_VI_V_CORIOLIS |
vort3pm= ( r_hFacZ(i+1,j)*omega3(i+1,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
162 |
MOM_VI_V_CORIOLIS |
& +(r_hFacZ(i, j )*omega3(i, j ) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
163 |
MOM_VI_V_CORIOLIS |
& +r_hFacZ(i+1,j-1)*omega3(i+1,j-1) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
166 |
MOM_VI_V_CORIOLIS |
& *uFld(i+1,j-1)*dyG(i+1,j-1,bi,bj)*_hFacW(i+1,j-1,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
167 |
MOM_VI_V_CORIOLIS |
vort3pj= ( r_hFacZ(i+1,j)*omega3(i+1,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
168 |
MOM_VI_V_CORIOLIS |
& +(r_hFacZ(i, j )*omega3(i, j ) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
169 |
MOM_VI_V_CORIOLIS |
& +r_hFacZ(i+1,j+1)*omega3(i+1,j+1) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
172 |
MOM_VI_V_CORIOLIS |
& *uFld(i+1, j )*dyG(i+1, j ,bi,bj)*_hFacW(i+1, j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
174 |
MOM_VI_V_CORIOLIS |
vCoriolisTerm(i,j)= -( (vort3im+vort3ij)+(vort3pm+vort3pj) ) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
175 |
MOM_VI_V_CORIOLIS |
& *0.25 _d 0 *recip_dyC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
176 |
MOM_VI_V_CORIOLIS |
& * _maskS(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
191 |
MOM_VI_V_CORIOLIS |
DO i=1-Olx,sNx+Olx-1 |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
192 |
MOM_VI_V_CORIOLIS |
vCoriolisTerm(i,j) = vCoriolisTerm(i,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
193 |
MOM_VI_V_CORIOLIS |
& * 4. _d 0 * _hFacS(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
195 |
MOM_VI_V_CORIOLIS |
& (_hFacW( i ,j,k,bi,bj)+_hFacW( i ,j-1,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
196 |
MOM_VI_V_CORIOLIS |
& +(_hFacW(i+1,j,k,bi,bj)+_hFacW(i+1,j-1,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
49 |
MOM_VI_V_CORIOLIS |
INTEGER i, j |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
66 |
MOM_VI_V_CORIOLIS |
DO i=1-Olx,sNx+Olx-1 |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
68 |
MOM_VI_V_CORIOLIS |
& (uFld( i , j )*dyG( i , j ,bi,bj)*_hFacW( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
69 |
MOM_VI_V_CORIOLIS |
& +uFld( i ,j-1)*dyG( i ,j-1,bi,bj)*_hFacW( i ,j-1,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
70 |
MOM_VI_V_CORIOLIS |
& +(uFld(i+1, j )*dyG(i+1, j ,bi,bj)*_hFacW(i+1, j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
71 |
MOM_VI_V_CORIOLIS |
& +uFld(i+1,j-1)*dyG(i+1,j-1,bi,bj)*_hFacW(i+1,j-1,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
75 |
MOM_VI_V_CORIOLIS |
vort3v=omega3(i,j)*r_hFacZ(i,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
77 |
MOM_VI_V_CORIOLIS |
vort3v=omega3(i+1,j)*r_hFacZ(i+1,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
80 |
MOM_VI_V_CORIOLIS |
vort3v=0.5*(omega3(i,j)*r_hFacZ(i,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
81 |
MOM_VI_V_CORIOLIS |
& +omega3(i+1,j)*r_hFacZ(i+1,j)) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
83 |
MOM_VI_V_CORIOLIS |
vCoriolisTerm(i,j)= -vort3v*uBarXY*recip_dyC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
84 |
MOM_VI_V_CORIOLIS |
& * _maskS(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
92 |
MOM_VI_V_CORIOLIS |
DO i=1-Olx,sNx+Olx-1 |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
94 |
MOM_VI_V_CORIOLIS |
& (uFld( i , j )*dyG( i , j ,bi,bj)*hFacZ( i ,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
95 |
MOM_VI_V_CORIOLIS |
& +uFld( i ,j-1)*dyG( i ,j-1,bi,bj)*hFacZ( i ,j)) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
96 |
MOM_VI_V_CORIOLIS |
& +(uFld(i+1, j )*dyG(i+1, j ,bi,bj)*hFacZ(i+1,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
97 |
MOM_VI_V_CORIOLIS |
& +uFld(i+1,j-1)*dyG(i+1,j-1,bi,bj)*hFacZ(i+1,j)) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
98 |
MOM_VI_V_CORIOLIS |
& )/MAX( epsil, hFacZ(i,j)+hFacZ(i+1,j) ) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
100 |
MOM_VI_V_CORIOLIS_C4 |
vort3r(i-1,j) = ( vort3r(i-1,j) + vort3r(i,j+1) )*0.5 _d 0 |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
103 |
MOM_VI_V_CORIOLIS_C4 |
i = sNx+1 |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
105 |
MOM_VI_V_CORIOLIS_C4 |
vort3r(i+1,j) = ( vort3r(i+1,j) + vort3r(i,j+1) )*0.5 _d 0 |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
108 |
MOM_VI_V_CORIOLIS_C4 |
i = 1 |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
110 |
MOM_VI_V_CORIOLIS_C4 |
vort3r(i-1,j) = ( vort3r(i-1,j) + vort3r(i,j-1) )*0.5 _d 0 |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
113 |
MOM_VI_V_CORIOLIS_C4 |
i = sNx+1 |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
115 |
MOM_VI_V_CORIOLIS_C4 |
vort3r(i+1,j) = ( vort3r(i+1,j) + vort3r(i,j-1) )*0.5 _d 0 |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
129 |
MOM_VI_V_CORIOLIS_C4 |
DO i=1,sNx |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
132 |
MOM_VI_V_CORIOLIS_C4 |
& (uFld( i , j )*dyG( i , j ,bi,bj)*_hFacW( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
133 |
MOM_VI_V_CORIOLIS_C4 |
& +uFld( i ,j-1)*dyG( i ,j-1,bi,bj)*_hFacW( i ,j-1,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
134 |
MOM_VI_V_CORIOLIS_C4 |
& +(uFld(i+1, j )*dyG(i+1, j ,bi,bj)*_hFacW(i+1, j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
135 |
MOM_VI_V_CORIOLIS_C4 |
& +uFld(i+1,j-1)*dyG(i+1,j-1,bi,bj)*_hFacW(i+1,j-1,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
139 |
MOM_VI_V_CORIOLIS_C4 |
vort3v=vort3r(i,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
141 |
MOM_VI_V_CORIOLIS_C4 |
vort3v=vort3r(i+1,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
145 |
MOM_VI_V_CORIOLIS_C4 |
Rjp = ( vort3r(i+2,j) - vort3r(i+1,j) )*maskInS(i+1,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
146 |
MOM_VI_V_CORIOLIS_C4 |
Rjm = ( vort3r( i ,j) - vort3r(i-1,j) )*maskInS(i-1,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
148 |
MOM_VI_V_CORIOLIS_C4 |
Rjp = vort3r(i+2,j) - vort3r(i+1,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
149 |
MOM_VI_V_CORIOLIS_C4 |
Rjm = vort3r( i ,j) - vort3r(i-1,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
151 |
MOM_VI_V_CORIOLIS_C4 |
vort3v=0.5*( (vort3r(i,j) + vort3r(i+1,j)) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
155 |
MOM_VI_V_CORIOLIS_C4 |
vort3v=0.5*( vort3r(i,j) + vort3r(i+1,j) ) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
158 |
MOM_VI_V_CORIOLIS_C4 |
vCoriolisTerm(i,j) = -vort3v*uBarXY*recip_dyC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
159 |
MOM_VI_V_CORIOLIS_C4 |
& * _maskS(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
170 |
MOM_VI_V_CORIOLIS_C4 |
DO i=1,sNx |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
173 |
MOM_VI_V_CORIOLIS_C4 |
& uFld( i , j )*dyG( i , j ,bi,bj)*_hFacW( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
174 |
MOM_VI_V_CORIOLIS_C4 |
& +uFld( i ,j-1)*dyG( i ,j-1,bi,bj)*_hFacW( i ,j-1,k,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
176 |
MOM_VI_V_CORIOLIS_C4 |
& uFld(i+1, j )*dyG(i+1, j ,bi,bj)*_hFacW(i+1, j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
177 |
MOM_VI_V_CORIOLIS_C4 |
& +uFld(i+1,j-1)*dyG(i+1,j-1,bi,bj)*_hFacW(i+1,j-1,k,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
180 |
MOM_VI_V_CORIOLIS_C4 |
vort3v=uBarYm*vort3r( i ,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
182 |
MOM_VI_V_CORIOLIS_C4 |
vort3v=uBarYp*vort3r(i+1,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
186 |
MOM_VI_V_CORIOLIS_C4 |
Rjp = ( vort3r(i+2,j) - vort3r(i+1,j) )*maskInS(i+1,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
187 |
MOM_VI_V_CORIOLIS_C4 |
Rjm = ( vort3r( i ,j) - vort3r(i-1,j) )*maskInS(i-1,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
189 |
MOM_VI_V_CORIOLIS_C4 |
Rjp = vort3r(i+2,j) - vort3r(i+1,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
190 |
MOM_VI_V_CORIOLIS_C4 |
Rjm = vort3r( i ,j) - vort3r(i-1,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
192 |
MOM_VI_V_CORIOLIS_C4 |
Rj = vort3r(i+1,j) - vort3r( i ,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
193 |
MOM_VI_V_CORIOLIS_C4 |
Rjp = vort3r(i+1,j) -oneSixth*( Rjp-Rj ) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
194 |
MOM_VI_V_CORIOLIS_C4 |
Rjm = vort3r( i ,j) -oneSixth*( Rj-Rjm ) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
199 |
MOM_VI_V_CORIOLIS_C4 |
vort3v=0.5*( uBarYm*vort3r( i ,j) + uBarYp*vort3r(i+1,j) ) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
202 |
MOM_VI_V_CORIOLIS_C4 |
vCoriolisTerm(i,j) = -vort3v*recip_dyC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
203 |
MOM_VI_V_CORIOLIS_C4 |
& * _maskS(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
51 |
MOM_VI_V_CORIOLIS_C4 |
INTEGER i,j |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
71 |
MOM_VI_V_CORIOLIS_C4 |
DO i=1-Olx,sNx+Olx |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
72 |
MOM_VI_V_CORIOLIS_C4 |
vort3r(i,j) = r_hFacZ(i,j)*omega3(i,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
98 |
MOM_VI_V_CORIOLIS_C4 |
i = 1 |
|
./pkg/mom_vecinv/mom_vi_v_grad_ke.F |
29 |
MOM_VI_V_GRAD_KE |
INTEGER i,j |
|
./pkg/mom_vecinv/mom_vi_v_grad_ke.F |
32 |
MOM_VI_V_GRAD_KE |
DO i=1-OLx,sNx+OLx |
|
./pkg/mom_vecinv/mom_vi_v_grad_ke.F |
33 |
MOM_VI_V_GRAD_KE |
dKEdy(i,j)=-_recip_dyC(i,j,bi,bj)*(KE(i,j)-KE(i,j-1)) |
|
./pkg/mom_vecinv/mom_vi_v_grad_ke.F |
34 |
MOM_VI_V_GRAD_KE |
& *_maskS(i,j,k,bi,bj)*recip_deepFacC(k) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
126 |
MOM_VI_V_VERTSHEAR |
& )*_recip_hFacS(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
131 |
MOM_VI_V_VERTSHEAR |
& *_recip_hFacS(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
69 |
MOM_VI_V_VERTSHEAR |
& wFld(I,J,K,bi,bj)*rA(i,j,bi,bj)*maskC(i,j,Km1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
70 |
MOM_VI_V_VERTSHEAR |
& +wFld(I,J-1,K,bi,bj)*rA(i,j-1,bi,bj)*maskC(i,j-1,Km1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
72 |
MOM_VI_V_VERTSHEAR |
& *recip_rAs(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
76 |
MOM_VI_V_VERTSHEAR |
& wFld(I,J,Kp1,bi,bj)*rA(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
77 |
MOM_VI_V_VERTSHEAR |
& +wFld(I,J-1,Kp1,bi,bj)*rA(i,j-1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
79 |
MOM_VI_V_VERTSHEAR |
& *recip_rAs(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
83 |
MOM_VI_V_VERTSHEAR |
& wFld(I,J,K,bi,bj)*maskC(i,j,Km1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
84 |
MOM_VI_V_VERTSHEAR |
& +wFld(I,J-1,K,bi,bj)*maskC(i,j-1,Km1,bi,bj) |
|
./model/src/cg3d_ex0.F |
119 |
CG3D_EX0 |
DO i=1,sNx |
|
./model/src/cg3d_ex0.F |
120 |
CG3D_EX0 |
surfTerm(i,j) = 0. |
|
./model/src/cg3d_ex0.F |
135 |
CG3D_EX0 |
DO i=1,sNx |
|
./model/src/cg3d_ex0.F |
136 |
CG3D_EX0 |
cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj)*cg3dNorm |
|
./model/src/cg3d_ex0.F |
137 |
CG3D_EX0 |
& * maskC(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
138 |
CG3D_EX0 |
rhsMaxLoc = MAX(ABS(cg3d_b(i,j,k,bi,bj)),rhsMaxLoc) |
|
./model/src/cg3d_ex0.F |
146 |
CG3D_EX0 |
DO i=1,sNx |
|
./model/src/cg3d_ex0.F |
147 |
CG3D_EX0 |
cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj)*rhsNorm(bi,bj) |
|
./model/src/cg3d_ex0.F |
148 |
CG3D_EX0 |
cg3d_x(i,j,k,bi,bj) = cg3d_x(i,j,k,bi,bj)*rhsNorm(bi,bj) |
|
./model/src/cg3d_ex0.F |
171 |
CG3D_EX0 |
DO i=1,sNx |
|
./model/src/cg3d_ex0.F |
172 |
CG3D_EX0 |
surfTerm(i,j) = 0. |
|
./model/src/cg3d_ex0.F |
177 |
CG3D_EX0 |
DO i=1,sNx |
|
./model/src/cg3d_ex0.F |
178 |
CG3D_EX0 |
surfTerm(i,j) = surfTerm(i,j) |
|
./model/src/cg3d_ex0.F |
179 |
CG3D_EX0 |
& +cg3d_x(i,j,k,bi,bj)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
184 |
CG3D_EX0 |
DO i=1,sNx |
|
./model/src/cg3d_ex0.F |
185 |
CG3D_EX0 |
ks = kSurfC(i,j,bi,bj) |
|
./model/src/cg3d_ex0.F |
186 |
CG3D_EX0 |
surfTerm(i,j) = surfTerm(i,j)*cg3dNorm |
|
./model/src/cg3d_ex0.F |
187 |
CG3D_EX0 |
& *recip_Rcol(i,j,bi,bj)*recip_Rcol(i,j,bi,bj) |
|
./model/src/cg3d_ex0.F |
188 |
CG3D_EX0 |
& *rA(i,j,bi,bj)*deepFac2F(ks) |
|
./model/src/cg3d_ex0.F |
189 |
CG3D_EX0 |
& *recip_Bo(i,j,bi,bj)/deltaTMom/deltaTfreesurf |
|
./model/src/cg3d_ex0.F |
205 |
CG3D_EX0 |
DO i=1,sNx |
|
./model/src/cg3d_ex0.F |
206 |
CG3D_EX0 |
cg3d_r(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
208 |
CG3D_EX0 |
& +aW3d( i, j, k, bi,bj)*cg3d_x(i-1,j, k, bi,bj) |
|
./model/src/cg3d_ex0.F |
209 |
CG3D_EX0 |
& +aW3d(i+1,j, k, bi,bj)*cg3d_x(i+1,j, k, bi,bj) |
|
./model/src/cg3d_ex0.F |
210 |
CG3D_EX0 |
& +aS3d( i, j, k, bi,bj)*cg3d_x( i,j-1,k, bi,bj) |
|
./model/src/cg3d_ex0.F |
211 |
CG3D_EX0 |
& +aS3d( i,j+1,k, bi,bj)*cg3d_x( i,j+1,k, bi,bj) |
|
./model/src/cg3d_ex0.F |
212 |
CG3D_EX0 |
& +aV3d( i, j, k, bi,bj)*cg3d_x( i, j,km1,bi,bj)*maskM1 |
|
./model/src/cg3d_ex0.F |
213 |
CG3D_EX0 |
& +aV3d( i, j,kp1,bi,bj)*cg3d_x( i, j,kp1,bi,bj)*maskP1 |
|
./model/src/cg3d_ex0.F |
214 |
CG3D_EX0 |
& +aC3d( i, j, k, bi,bj)*cg3d_x( i, j, k, bi,bj) |
|
./model/src/cg3d_ex0.F |
216 |
CG3D_EX0 |
& -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
220 |
CG3D_EX0 |
& +cg3d_r(i,j,k,bi,bj)*cg3d_r(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
221 |
CG3D_EX0 |
sumRHStile(bi,bj) = sumRHStile(bi,bj)+cg3d_b(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
225 |
CG3D_EX0 |
DO i=0,sNx+1 |
|
./model/src/cg3d_ex0.F |
226 |
CG3D_EX0 |
cg3d_s(i,j,k,bi,bj) = 0. |
|
./model/src/cg3d_ex0.F |
275 |
CG3D_EX0 |
DO i=0,sNx+1 |
|
./model/src/cg3d_ex0.F |
276 |
CG3D_EX0 |
cg3d_q(i,j,k,bi,bj) = zMC(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
277 |
CG3D_EX0 |
& *cg3d_r(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
286 |
CG3D_EX0 |
DO i=0,sNx+1 |
|
./model/src/cg3d_ex0.F |
287 |
CG3D_EX0 |
cg3d_q(i,j,k,bi,bj) = zMC(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
288 |
CG3D_EX0 |
& *( cg3d_r(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
289 |
CG3D_EX0 |
& -zML(i,j,k,bi,bj)*cg3d_q(i,j,k-1,bi,bj) |
|
./model/src/cg3d_ex0.F |
299 |
CG3D_EX0 |
DO i=1,sNx |
|
./model/src/cg3d_ex0.F |
301 |
CG3D_EX0 |
& +cg3d_q(i,j,k,bi,bj)*cg3d_r(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
310 |
CG3D_EX0 |
DO i=0,sNx+1 |
|
./model/src/cg3d_ex0.F |
311 |
CG3D_EX0 |
cg3d_q(i,j,k,bi,bj) = cg3d_q(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
312 |
CG3D_EX0 |
& -zMU(i,j,k,bi,bj)*cg3d_q(i,j,k+1,bi,bj) |
|
./model/src/cg3d_ex0.F |
319 |
CG3D_EX0 |
DO i=1,sNx |
|
./model/src/cg3d_ex0.F |
321 |
CG3D_EX0 |
& +cg3d_q(i,j,k,bi,bj)*cg3d_r(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
331 |
CG3D_EX0 |
DO i=0,sNx+1 |
|
./model/src/cg3d_ex0.F |
332 |
CG3D_EX0 |
cg3d_s(i,j,k,bi,bj) = cg3d_q(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
333 |
CG3D_EX0 |
& + cgBeta*cg3d_s(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
344 |
CG3D_EX0 |
DO i=1,sNx |
|
./model/src/cg3d_ex0.F |
345 |
CG3D_EX0 |
surfTerm(i,j) = 0. |
|
./model/src/cg3d_ex0.F |
350 |
CG3D_EX0 |
DO i=1,sNx |
|
./model/src/cg3d_ex0.F |
351 |
CG3D_EX0 |
surfTerm(i,j) = surfTerm(i,j) |
|
./model/src/cg3d_ex0.F |
352 |
CG3D_EX0 |
& +cg3d_s(i,j,k,bi,bj)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
357 |
CG3D_EX0 |
DO i=1,sNx |
|
./model/src/cg3d_ex0.F |
358 |
CG3D_EX0 |
ks = kSurfC(i,j,bi,bj) |
|
./model/src/cg3d_ex0.F |
359 |
CG3D_EX0 |
surfTerm(i,j) = surfTerm(i,j)*cg3dNorm |
|
./model/src/cg3d_ex0.F |
360 |
CG3D_EX0 |
& *recip_Rcol(i,j,bi,bj)*recip_Rcol(i,j,bi,bj) |
|
./model/src/cg3d_ex0.F |
361 |
CG3D_EX0 |
& *rA(i,j,bi,bj)*deepFac2F(ks) |
|
./model/src/cg3d_ex0.F |
362 |
CG3D_EX0 |
& *recip_Bo(i,j,bi,bj)/deltaTMom/deltaTfreesurf |
|
./model/src/cg3d_ex0.F |
373 |
CG3D_EX0 |
DO i=1,sNx |
|
./model/src/cg3d_ex0.F |
374 |
CG3D_EX0 |
cg3d_q(i,j,k,bi,bj) = |
|
./model/src/cg3d_ex0.F |
375 |
CG3D_EX0 |
& aW3d( i, j, k, bi,bj)*cg3d_s(i-1,j, k, bi,bj) |
|
./model/src/cg3d_ex0.F |
376 |
CG3D_EX0 |
& +aW3d(i+1,j, k, bi,bj)*cg3d_s(i+1,j, k, bi,bj) |
|
./model/src/cg3d_ex0.F |
377 |
CG3D_EX0 |
& +aS3d( i, j, k, bi,bj)*cg3d_s( i,j-1,k, bi,bj) |
|
./model/src/cg3d_ex0.F |
378 |
CG3D_EX0 |
& +aS3d( i,j+1,k, bi,bj)*cg3d_s( i,j+1,k, bi,bj) |
|
./model/src/cg3d_ex0.F |
379 |
CG3D_EX0 |
& +aV3d( i, j,k+1,bi,bj)*cg3d_s( i, j,k+1,bi,bj) |
|
./model/src/cg3d_ex0.F |
380 |
CG3D_EX0 |
& +aC3d( i, j, k, bi,bj)*cg3d_s( i, j, k, bi,bj) |
|
./model/src/cg3d_ex0.F |
382 |
CG3D_EX0 |
& -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
385 |
CG3D_EX0 |
& +cg3d_s(i,j,k,bi,bj)*cg3d_q(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
394 |
CG3D_EX0 |
DO i=1,sNx |
|
./model/src/cg3d_ex0.F |
395 |
CG3D_EX0 |
cg3d_q(i,j,k,bi,bj) = |
|
./model/src/cg3d_ex0.F |
396 |
CG3D_EX0 |
& aW3d( i, j, k, bi,bj)*cg3d_s(i-1,j, k, bi,bj) |
|
./model/src/cg3d_ex0.F |
397 |
CG3D_EX0 |
& +aW3d(i+1,j, k, bi,bj)*cg3d_s(i+1,j, k, bi,bj) |
|
./model/src/cg3d_ex0.F |
398 |
CG3D_EX0 |
& +aS3d( i, j, k, bi,bj)*cg3d_s( i,j-1,k, bi,bj) |
|
./model/src/cg3d_ex0.F |
399 |
CG3D_EX0 |
& +aS3d( i,j+1,k, bi,bj)*cg3d_s( i,j+1,k, bi,bj) |
|
./model/src/cg3d_ex0.F |
400 |
CG3D_EX0 |
& +aC3d( i, j, k, bi,bj)*cg3d_s( i, j, k, bi,bj) |
|
./model/src/cg3d_ex0.F |
402 |
CG3D_EX0 |
& -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
405 |
CG3D_EX0 |
& +cg3d_s(i,j,k,bi,bj)*cg3d_q(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
414 |
CG3D_EX0 |
DO i=1,sNx |
|
./model/src/cg3d_ex0.F |
415 |
CG3D_EX0 |
cg3d_q(i,j,k,bi,bj) = |
|
./model/src/cg3d_ex0.F |
416 |
CG3D_EX0 |
& aW3d( i, j, k, bi,bj)*cg3d_s(i-1,j, k, bi,bj) |
|
./model/src/cg3d_ex0.F |
417 |
CG3D_EX0 |
& +aW3d(i+1,j, k, bi,bj)*cg3d_s(i+1,j, k, bi,bj) |
|
./model/src/cg3d_ex0.F |
418 |
CG3D_EX0 |
& +aS3d( i, j, k, bi,bj)*cg3d_s( i,j-1,k, bi,bj) |
|
./model/src/cg3d_ex0.F |
419 |
CG3D_EX0 |
& +aS3d( i,j+1,k, bi,bj)*cg3d_s( i,j+1,k, bi,bj) |
|
./model/src/cg3d_ex0.F |
420 |
CG3D_EX0 |
& +aV3d( i, j, k, bi,bj)*cg3d_s( i, j,k-1,bi,bj) |
|
./model/src/cg3d_ex0.F |
421 |
CG3D_EX0 |
& +aV3d( i, j,k+1,bi,bj)*cg3d_s( i, j,k+1,bi,bj) |
|
./model/src/cg3d_ex0.F |
422 |
CG3D_EX0 |
& +aC3d( i, j, k, bi,bj)*cg3d_s( i, j, k, bi,bj) |
|
./model/src/cg3d_ex0.F |
424 |
CG3D_EX0 |
& -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
427 |
CG3D_EX0 |
& +cg3d_s(i,j,k,bi,bj)*cg3d_q(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
437 |
CG3D_EX0 |
DO i=1,sNx |
|
./model/src/cg3d_ex0.F |
438 |
CG3D_EX0 |
cg3d_q(i,j,k,bi,bj) = |
|
./model/src/cg3d_ex0.F |
439 |
CG3D_EX0 |
& aW3d( i, j, k, bi,bj)*cg3d_s(i-1,j, k, bi,bj) |
|
./model/src/cg3d_ex0.F |
440 |
CG3D_EX0 |
& +aW3d(i+1,j, k, bi,bj)*cg3d_s(i+1,j, k, bi,bj) |
|
./model/src/cg3d_ex0.F |
441 |
CG3D_EX0 |
& +aS3d( i, j, k, bi,bj)*cg3d_s( i,j-1,k, bi,bj) |
|
./model/src/cg3d_ex0.F |
442 |
CG3D_EX0 |
& +aS3d( i,j+1,k, bi,bj)*cg3d_s( i,j+1,k, bi,bj) |
|
./model/src/cg3d_ex0.F |
443 |
CG3D_EX0 |
& +aV3d( i, j, k, bi,bj)*cg3d_s( i, j,k-1,bi,bj) |
|
./model/src/cg3d_ex0.F |
444 |
CG3D_EX0 |
& +aC3d( i, j, k, bi,bj)*cg3d_s( i, j, k, bi,bj) |
|
./model/src/cg3d_ex0.F |
446 |
CG3D_EX0 |
& -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
449 |
CG3D_EX0 |
& +cg3d_s(i,j,k,bi,bj)*cg3d_q(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
463 |
CG3D_EX0 |
DO i=1,sNx |
|
./model/src/cg3d_ex0.F |
464 |
CG3D_EX0 |
cg3d_x(i,j,k,bi,bj)=cg3d_x(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
465 |
CG3D_EX0 |
& +alpha*cg3d_s(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
466 |
CG3D_EX0 |
cg3d_r(i,j,k,bi,bj)=cg3d_r(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
467 |
CG3D_EX0 |
& -alpha*cg3d_q(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
469 |
CG3D_EX0 |
& +cg3d_r(i,j,k,bi,bj)*cg3d_r(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
511 |
CG3D_EX0 |
DO i=1,sNx |
|
./model/src/cg3d_ex0.F |
512 |
CG3D_EX0 |
cg3d_x(i,j,k,bi,bj) = cg3d_x(i,j,k,bi,bj)/rhsNorm(bi,bj) |
|
./model/src/cg3d_ex0.F |
88 |
CG3D_EX0 |
INTEGER i, j, k, it3d |
|
./pkg/monitor/mon_calc_advcfl.F |
105 |
MON_CALC_ADVCFL_TILE |
DO i=1,sNx |
|
./pkg/monitor/mon_calc_advcfl.F |
106 |
MON_CALC_ADVCFL_TILE |
rTransKp1 = rTrans(i,j) |
|
./pkg/monitor/mon_calc_advcfl.F |
107 |
MON_CALC_ADVCFL_TILE |
rTrans(i,j) = wFld(i,j,k) |
|
./pkg/monitor/mon_calc_advcfl.F |
111 |
MON_CALC_ADVCFL_TILE |
& *recip_drF(k)*recip_hFacC(i,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_advcfl.F |
113 |
MON_CALC_ADVCFL_TILE |
& + MAX( rTrans(i,j), zeroRL ) |
|
./pkg/monitor/mon_calc_advcfl.F |
54 |
MON_CALC_ADVCFL_TILE |
INTEGER i,j,k |
|
./pkg/monitor/mon_calc_advcfl.F |
67 |
MON_CALC_ADVCFL_TILE |
DO i=1-OLx,sNx+OLx |
|
./pkg/monitor/mon_calc_advcfl.F |
68 |
MON_CALC_ADVCFL_TILE |
rTrans(i,j) = 0. |
|
./pkg/monitor/mon_calc_advcfl.F |
77 |
MON_CALC_ADVCFL_TILE |
DO i=1,sNx+1 |
|
./pkg/monitor/mon_calc_advcfl.F |
78 |
MON_CALC_ADVCFL_TILE |
uTrans(i,j) = uFld(i,j,k)*dyG(i,j,bi,bj)*deepFacC(k) |
|
./pkg/monitor/mon_calc_advcfl.F |
79 |
MON_CALC_ADVCFL_TILE |
& *hFacW(i,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_advcfl.F |
80 |
MON_CALC_ADVCFL_TILE |
vTrans(i,j) = vFld(i,j,k)*dxG(i,j,bi,bj)*deepFacC(k) |
|
./pkg/monitor/mon_calc_advcfl.F |
81 |
MON_CALC_ADVCFL_TILE |
& *hFacS(i,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_advcfl.F |
85 |
MON_CALC_ADVCFL_TILE |
DO i=1,sNx |
|
./pkg/monitor/mon_calc_advcfl.F |
87 |
MON_CALC_ADVCFL_TILE |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/monitor/mon_calc_advcfl.F |
88 |
MON_CALC_ADVCFL_TILE |
& *recip_hFacC(i,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_advcfl.F |
90 |
MON_CALC_ADVCFL_TILE |
& + MAX( uTrans(i+1,j), zeroRL ) |
|
./pkg/monitor/mon_calc_advcfl.F |
91 |
MON_CALC_ADVCFL_TILE |
& - MIN( uTrans( i ,j), zeroRL ) |
|
./pkg/monitor/mon_calc_advcfl.F |
95 |
MON_CALC_ADVCFL_TILE |
& + MAX( vTrans(i,j+1), zeroRL ) |
|
./pkg/monitor/mon_calc_advcfl.F |
96 |
MON_CALC_ADVCFL_TILE |
& - MIN( vTrans(i, j ), zeroRL ) |
|
./pkg/monitor/mon_calc_stats_rl.F |
103 |
MON_CALC_STATS_RL |
tmpVol = arrArea(i,j,bi,bj)*arrDr(k)*tmpMask |
|
./pkg/monitor/mon_calc_stats_rl.F |
140 |
MON_CALC_STATS_RL |
DO i=1,sNx |
|
./pkg/monitor/mon_calc_stats_rl.F |
141 |
MON_CALC_STATS_RL |
tmpVal=arr(i,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_stats_rl.F |
142 |
MON_CALC_STATS_RL |
tmpMask = arrMask(i,j,bi,bj)*arrhFac(i,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_stats_rl.F |
144 |
MON_CALC_STATS_RL |
tmpVol = arrArea(i,j,bi,bj)*arrDr(k)*tmpMask |
|
./pkg/monitor/mon_calc_stats_rl.F |
36 |
MON_CALC_STATS_RL |
INTEGER bi,bj,i,j,k |
|
./pkg/monitor/mon_calc_stats_rl.F |
70 |
MON_CALC_STATS_RL |
DO i=1,sNx |
|
./pkg/monitor/mon_calc_stats_rl.F |
71 |
MON_CALC_STATS_RL |
tmpVal = arr(i,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_stats_rl.F |
72 |
MON_CALC_STATS_RL |
tmpMask = arrMask(i,j,bi,bj)*arrhFac(i,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_stats_rl.F |
90 |
MON_CALC_STATS_RL |
ddx = arrhFac(i+1,j,k,bi,bj)*arrhFac(i-1,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_stats_rl.F |
92 |
MON_CALC_STATS_RL |
ddx = (arr(i+1,j,k,bi,bj)-tmpVal) |
|
./pkg/monitor/mon_calc_stats_rl.F |
93 |
MON_CALC_STATS_RL |
& + (arr(i-1,j,k,bi,bj)-tmpVal) |
|
./pkg/monitor/mon_calc_stats_rl.F |
95 |
MON_CALC_STATS_RL |
ddy = arrhFac(i,j+1,k,bi,bj)*arrhFac(i,j-1,k,bi,bj) |
|
./pkg/monitor/mon_calc_stats_rl.F |
97 |
MON_CALC_STATS_RL |
ddy = (arr(i,j+1,k,bi,bj)-tmpVal) |
|
./pkg/monitor/mon_calc_stats_rl.F |
98 |
MON_CALC_STATS_RL |
& + (arr(i,j-1,k,bi,bj)-tmpVal) |
|
./pkg/monitor/mon_calc_stats_rs.F |
103 |
MON_CALC_STATS_RS |
tmpVol = arrArea(i,j,bi,bj)*arrDr(k)*tmpMask |
|
./pkg/monitor/mon_calc_stats_rs.F |
140 |
MON_CALC_STATS_RS |
DO i=1,sNx |
|
./pkg/monitor/mon_calc_stats_rs.F |
141 |
MON_CALC_STATS_RS |
tmpVal=arr(i,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_stats_rs.F |
142 |
MON_CALC_STATS_RS |
tmpMask = arrMask(i,j,bi,bj)*arrhFac(i,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_stats_rs.F |
144 |
MON_CALC_STATS_RS |
tmpVol = arrArea(i,j,bi,bj)*arrDr(k)*tmpMask |
|
./pkg/monitor/mon_calc_stats_rs.F |
36 |
MON_CALC_STATS_RS |
INTEGER bi,bj,i,j,k |
|
./pkg/monitor/mon_calc_stats_rs.F |
70 |
MON_CALC_STATS_RS |
DO i=1,sNx |
|
./pkg/monitor/mon_calc_stats_rs.F |
71 |
MON_CALC_STATS_RS |
tmpVal = arr(i,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_stats_rs.F |
72 |
MON_CALC_STATS_RS |
tmpMask = arrMask(i,j,bi,bj)*arrhFac(i,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_stats_rs.F |
90 |
MON_CALC_STATS_RS |
ddx = arrhFac(i+1,j,k,bi,bj)*arrhFac(i-1,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_stats_rs.F |
92 |
MON_CALC_STATS_RS |
ddx = (arr(i+1,j,k,bi,bj)-tmpVal) |
|
./pkg/monitor/mon_calc_stats_rs.F |
93 |
MON_CALC_STATS_RS |
& + (arr(i-1,j,k,bi,bj)-tmpVal) |
|
./pkg/monitor/mon_calc_stats_rs.F |
95 |
MON_CALC_STATS_RS |
ddy = arrhFac(i,j+1,k,bi,bj)*arrhFac(i,j-1,k,bi,bj) |
|
./pkg/monitor/mon_calc_stats_rs.F |
97 |
MON_CALC_STATS_RS |
ddy = (arr(i,j+1,k,bi,bj)-tmpVal) |
|
./pkg/monitor/mon_calc_stats_rs.F |
98 |
MON_CALC_STATS_RS |
& + (arr(i,j-1,k,bi,bj)-tmpVal) |
|
./pkg/monitor/mon_ke.F |
100 |
MON_KE |
& *dyG(i+1,j,bi,bj)*dxC(i+1,j,bi,bj)*_hFacW(i+1,j,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
101 |
MON_KE |
& +vVel(i, j ,k,bi,bj)*vVel(i, j ,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
102 |
MON_KE |
& *dxG(i, j ,bi,bj)*dyC(i, j ,bi,bj)*_hFacS(i, j ,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
103 |
MON_KE |
& +vVel(i,j+1,k,bi,bj)*vVel(i,j+1,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
104 |
MON_KE |
& *dxG(i,j+1,bi,bj)*dyC(i,j+1,bi,bj)*_hFacS(i,j+1,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
105 |
MON_KE |
& )*maskInC(i,j,bi,bj) |
|
./pkg/monitor/mon_ke.F |
108 |
MON_KE |
tmpVal= tmpVal*_recip_hFacC(i,j,k,bi,bj)*recip_rA(i,j,bi,bj) |
|
./pkg/monitor/mon_ke.F |
113 |
MON_KE |
& ( wVel(i,j, k, bi,bj)*wVel(i,j, k, bi,bj)*msk_1 |
|
./pkg/monitor/mon_ke.F |
115 |
MON_KE |
& +wVel(i,j,kp1,bi,bj)*wVel(i,j,kp1,bi,bj)*mskp1 |
|
./pkg/monitor/mon_ke.F |
117 |
MON_KE |
& )*maskC(i,j,k,bi,bj)*maskInC(i,j,bi,bj) |
|
./pkg/monitor/mon_ke.F |
119 |
MON_KE |
& + tmpWke*rA(i,j,bi,bj)*drF(k)*_hFacC(i,j,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
136 |
MON_KE |
DO i=1,sNx |
|
./pkg/monitor/mon_ke.F |
137 |
MON_KE |
tmpVal = 0.5 _d 0*Bo_surf(i,j,bi,bj) |
|
./pkg/monitor/mon_ke.F |
138 |
MON_KE |
& *etaN(i,j,bi,bj)*etaN(i,j,bi,bj) |
|
./pkg/monitor/mon_ke.F |
142 |
MON_KE |
& + phi0surf(i,j,bi,bj)*etaN(i,j,bi,bj) |
|
./pkg/monitor/mon_ke.F |
144 |
MON_KE |
& + tmpVal*rA(i,j,bi,bj)*deepFac2F(1) |
|
./pkg/monitor/mon_ke.F |
145 |
MON_KE |
& *maskInC(i,j,bi,bj) |
|
./pkg/monitor/mon_ke.F |
185 |
MON_KE |
DO i=1,sNx |
|
./pkg/monitor/mon_ke.F |
186 |
MON_KE |
tmpFld(i,j) = 0. _d 0 |
|
./pkg/monitor/mon_ke.F |
193 |
MON_KE |
DO i=1,sNx |
|
./pkg/monitor/mon_ke.F |
195 |
MON_KE |
tmpVal = abFac1*guNm(i,j,k,bi,bj,m1) |
|
./pkg/monitor/mon_ke.F |
196 |
MON_KE |
& + abFac2*guNm(i,j,k,bi,bj,m2) |
|
./pkg/monitor/mon_ke.F |
198 |
MON_KE |
tmpVal = abFac1*guNm1(i,j,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
200 |
MON_KE |
tmpVal = tmpVal*deltaTMom + uVel(i,j,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
201 |
MON_KE |
tmpFld(i,j) = tmpFld(i,j) |
|
./pkg/monitor/mon_ke.F |
202 |
MON_KE |
& + R_drK*tmpVal*_hFacW(i,j,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
208 |
MON_KE |
DO i=1,sNx |
|
./pkg/monitor/mon_ke.F |
210 |
MON_KE |
& ( yG(i,j,bi,bj) + yG(i,j+1,bi,bj) )*halfRL ) |
|
./pkg/monitor/mon_ke.F |
211 |
MON_KE |
tmpFld(i,j) = tmpFld(i,j)*u2zonDir(i,j,bi,bj) |
|
./pkg/monitor/mon_ke.F |
212 |
MON_KE |
& *cosLat*rAw(i,j,bi,bj) |
|
./pkg/monitor/mon_ke.F |
213 |
MON_KE |
& *maskInW(i,j,bi,bj) |
|
./pkg/monitor/mon_ke.F |
218 |
MON_KE |
DO i=1,sNx |
|
./pkg/monitor/mon_ke.F |
219 |
MON_KE |
tileAMu(bi,bj) = tileAMu(bi,bj) + tmpFld(i,j) |
|
./pkg/monitor/mon_ke.F |
224 |
MON_KE |
DO i=1,sNx |
|
./pkg/monitor/mon_ke.F |
225 |
MON_KE |
tmpFld(i,j) = 0. _d 0 |
|
./pkg/monitor/mon_ke.F |
232 |
MON_KE |
DO i=1,sNx |
|
./pkg/monitor/mon_ke.F |
234 |
MON_KE |
tmpVal = abFac1*gvNm(i,j,k,bi,bj,m1) |
|
./pkg/monitor/mon_ke.F |
235 |
MON_KE |
& + abFac2*gvNm(i,j,k,bi,bj,m2) |
|
./pkg/monitor/mon_ke.F |
237 |
MON_KE |
tmpVal = abFac1*gvNm1(i,j,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
239 |
MON_KE |
tmpVal = tmpVal*deltaTMom + vVel(i,j,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
240 |
MON_KE |
tmpFld(i,j) = tmpFld(i,j) |
|
./pkg/monitor/mon_ke.F |
241 |
MON_KE |
& + R_drK*tmpVal*_hFacS(i,j,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
247 |
MON_KE |
DO i=1,sNx |
|
./pkg/monitor/mon_ke.F |
249 |
MON_KE |
& ( yG(i,j,bi,bj) + yG(i+1,j,bi,bj) )*halfRL ) |
|
./pkg/monitor/mon_ke.F |
250 |
MON_KE |
tmpFld(i,j) = tmpFld(i,j)*v2zonDir(i,j,bi,bj) |
|
./pkg/monitor/mon_ke.F |
251 |
MON_KE |
& *cosLat*rAs(i,j,bi,bj) |
|
./pkg/monitor/mon_ke.F |
252 |
MON_KE |
& *maskInS(i,j,bi,bj) |
|
./pkg/monitor/mon_ke.F |
256 |
MON_KE |
DO i=1,sNx |
|
./pkg/monitor/mon_ke.F |
257 |
MON_KE |
tileAMu(bi,bj) = tileAMu(bi,bj) + tmpFld(i,j) |
|
./pkg/monitor/mon_ke.F |
263 |
MON_KE |
DO i=1,sNx |
|
./pkg/monitor/mon_ke.F |
265 |
MON_KE |
tmpFld(i,j) = etaHnm1(i,j,bi,bj) |
|
./pkg/monitor/mon_ke.F |
267 |
MON_KE |
tmpFld(i,j) = 0. |
|
./pkg/monitor/mon_ke.F |
273 |
MON_KE |
DO i=1,sNx |
|
./pkg/monitor/mon_ke.F |
274 |
MON_KE |
tmpFld(i,j) = etaN(i,j,bi,bj) |
|
./pkg/monitor/mon_ke.F |
281 |
MON_KE |
DO i=1-OLx,sNx+OLx |
|
./pkg/monitor/mon_ke.F |
282 |
MON_KE |
cosLat = COS( deg2rad*yG(i,j,bi,bj) ) |
|
./pkg/monitor/mon_ke.F |
283 |
MON_KE |
cos2LatG(i,j) = cosLat*cosLat |
|
./pkg/monitor/mon_ke.F |
287 |
MON_KE |
DO i=1,sNx |
|
./pkg/monitor/mon_ke.F |
288 |
MON_KE |
tmpFld(i,j) = tmpFld(i,j) |
|
./pkg/monitor/mon_ke.F |
290 |
MON_KE |
& *( ( cos2LatG(i,j) + cos2LatG(i+1,j+1) ) |
|
./pkg/monitor/mon_ke.F |
291 |
MON_KE |
& + ( cos2LatG(i+1,j) + cos2LatG(i,j+1) ) |
|
./pkg/monitor/mon_ke.F |
296 |
MON_KE |
DO i=1,sNx |
|
./pkg/monitor/mon_ke.F |
297 |
MON_KE |
ks = kSurfC(i,j,bi,bj) |
|
./pkg/monitor/mon_ke.F |
298 |
MON_KE |
tmpFld(i,j) = tmpFld(i,j) |
|
./pkg/monitor/mon_ke.F |
299 |
MON_KE |
& *maskInC(i,j,bi,bj)*deepFac2F(ks) |
|
./pkg/monitor/mon_ke.F |
300 |
MON_KE |
& *rA(i,j,bi,bj)*deepFac2F(ks)*rhoFacF(ks) |
|
./pkg/monitor/mon_ke.F |
305 |
MON_KE |
DO i=1,sNx |
|
./pkg/monitor/mon_ke.F |
306 |
MON_KE |
tileAMs(bi,bj) = tileAMs(bi,bj) + tmpFld(i,j) |
|
./pkg/monitor/mon_ke.F |
34 |
MON_KE |
INTEGER i,j,k |
|
./pkg/monitor/mon_ke.F |
79 |
MON_KE |
DO i=1,sNx |
|
./pkg/monitor/mon_ke.F |
81 |
MON_KE |
& + rA(i,j,bi,bj)*deepFac2C(k) |
|
./pkg/monitor/mon_ke.F |
82 |
MON_KE |
& *rhoFacC(k)*drF(k)*_hFacC(i,j,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
83 |
MON_KE |
& *maskInC(i,j,bi,bj) |
|
./pkg/monitor/mon_ke.F |
97 |
MON_KE |
& uVel( i ,j,k,bi,bj)*uVel( i ,j,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
98 |
MON_KE |
& *dyG( i ,j,bi,bj)*dxC( i ,j,bi,bj)*_hFacW( i ,j,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
99 |
MON_KE |
& +uVel(i+1,j,k,bi,bj)*uVel(i+1,j,k,bi,bj) |
|
./pkg/monitor/mon_out.F |
124 |
MON_OUT_ALL |
INTEGER i, I0,I1, IL |
|
./pkg/monitor/mon_out.F |
138 |
MON_OUT_ALL |
DO i = 1,100 |
|
./pkg/monitor/mon_out.F |
139 |
MON_OUT_ALL |
mon_vname(i:i) = ' ' |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
101 |
MON_STATS_LATBND_RL |
DO i=1,sNx |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
102 |
MON_STATS_LATBND_RL |
n = NLATBND(nSepBnd, ySepBnd, arrY(i,j,bi,bj) ) |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
103 |
MON_STATS_LATBND_RL |
tmpVal=arr(i,j,k,bi,bj) |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
104 |
MON_STATS_LATBND_RL |
IF (arrMask(i,j,km,bi,bj).NE.0. .AND. noPnts(n)) THEN |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
109 |
MON_STATS_LATBND_RL |
IF (arrMask(i,j,km,bi,bj).NE.0.) THEN |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
112 |
MON_STATS_LATBND_RL |
tmpVol = arrArea(i,j,bi,bj)*arrhFac(i,j,km,bi,bj)*arrDr(k) |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
113 |
MON_STATS_LATBND_RL |
& *arrMask(i,j,km,bi,bj) |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
51 |
MON_STATS_LATBND_RL |
INTEGER bi,bj,i,j,k,n |
|
./pkg/monitor/mon_surfcor.F |
107 |
MON_SURFCOR |
DO i=1,sNx |
|
./pkg/monitor/mon_surfcor.F |
108 |
MON_SURFCOR |
ks = ksurfC(i,j,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
110 |
MON_SURFCOR |
tmpVal = salt(i,j,ks,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
111 |
MON_SURFCOR |
& + salt(i,j,Nr,bi,bj)*drF(Nr)*recip_drF(ks) |
|
./pkg/monitor/mon_surfcor.F |
112 |
MON_SURFCOR |
& *hFacC(i,j,Nr,bi,bj)*_recip_hFacC(i,j,ks,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
114 |
MON_SURFCOR |
& + rA(i,j,bi,bj)*maskInC(i,j,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
115 |
MON_SURFCOR |
& *wVel(i,j,ks,bi,bj)*tmpVal |
|
./pkg/monitor/mon_surfcor.F |
130 |
MON_SURFCOR |
DO i=1,sNx |
|
./pkg/monitor/mon_surfcor.F |
132 |
MON_SURFCOR |
& - ddPI*rA(i,j,bi,bj)*wVel(i,j,k,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
133 |
MON_SURFCOR |
& *(theta(i,j,k,bi,bj)+theta(i,j,k-1,bi,bj))*0.5 _d 0 |
|
./pkg/monitor/mon_surfcor.F |
134 |
MON_SURFCOR |
& *maskC(i,j,k-1,bi,bj)*maskC(i,j,k,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
135 |
MON_SURFCOR |
& *maskInC(i,j,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
153 |
MON_SURFCOR |
DO i=1,sNx |
|
./pkg/monitor/mon_surfcor.F |
154 |
MON_SURFCOR |
tmpVol = rA(i,j,bi,bj)*h0FacC(i,j,k,bi,bj)*drF(k) |
|
./pkg/monitor/mon_surfcor.F |
155 |
MON_SURFCOR |
& *maskInC(i,j,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
156 |
MON_SURFCOR |
tmpVal = rStarDhCDt(i,j,bi,bj)*theta(i,j,k,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
159 |
MON_SURFCOR |
& +tmpVol*rStarDhCDt(i,j,bi,bj)*salt(i,j,k,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
54 |
MON_SURFCOR |
INTEGER i,j,k,ks,bi,bj |
|
./pkg/monitor/mon_surfcor.F |
84 |
MON_SURFCOR |
DO i=1,sNx |
|
./pkg/monitor/mon_surfcor.F |
85 |
MON_SURFCOR |
ks = ksurfC(i,j,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
88 |
MON_SURFCOR |
& + rA(i,j,bi,bj)*maskInC(i,j,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
89 |
MON_SURFCOR |
tmpVal = rA(i,j,bi,bj)*maskInC(i,j,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
90 |
MON_SURFCOR |
& *wVel(i,j,ks,bi,bj)*theta(i,j,ks,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
93 |
MON_SURFCOR |
& + rA(i,j,bi,bj)*maskInC(i,j,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
94 |
MON_SURFCOR |
& *wVel(i,j,ks,bi,bj)*salt(i,j,ks,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
111 |
MON_VORT3 |
hFacZ(i,j) = 1. + 0.125 _d 0* |
|
./pkg/monitor/mon_vort3.F |
112 |
MON_VORT3 |
& ( ( etaFld(i-1,j-1)*rA(i-1,j-1,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
113 |
MON_VORT3 |
& +etaFld( i ,j-1)*rA( i ,j-1,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
114 |
MON_VORT3 |
& )*recip_rAw(i,j-1,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
115 |
MON_VORT3 |
& + ( etaFld(i-1, j )*rA(i-1, j ,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
116 |
MON_VORT3 |
& +etaFld( i , j )*rA( i , j ,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
117 |
MON_VORT3 |
& )*recip_rAw(i, j ,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
118 |
MON_VORT3 |
& + ( etaFld(i-1,j-1)*rA(i-1,j-1,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
119 |
MON_VORT3 |
& +etaFld(i-1, j )*rA(i-1, j ,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
120 |
MON_VORT3 |
& )*recip_rAs(i-1,j,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
121 |
MON_VORT3 |
& + ( etaFld( i ,j-1)*rA( i ,j-1,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
122 |
MON_VORT3 |
& + etaFld( i , j )*rA( i , j ,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
123 |
MON_VORT3 |
& )*recip_rAs( i ,j,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
128 |
MON_VORT3 |
hFacZ(i,j) = |
|
./pkg/monitor/mon_vort3.F |
129 |
MON_VORT3 |
& 0.25 _d 0*( _hFacW(i,j-1,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
130 |
MON_VORT3 |
& + _hFacW(i, j ,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
131 |
MON_VORT3 |
& + _hFacS(i-1,j,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
132 |
MON_VORT3 |
& + _hFacS( i ,j,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
135 |
MON_VORT3 |
vort3(i,j) = recip_rAz(i,j,bi,bj)*( |
|
./pkg/monitor/mon_vort3.F |
136 |
MON_VORT3 |
& vVel( i ,j,k,bi,bj)*dyC( i ,j,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
137 |
MON_VORT3 |
& -vVel(i-1,j,k,bi,bj)*dyC(i-1,j,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
138 |
MON_VORT3 |
& -uVel(i, j ,k,bi,bj)*dxC(i, j ,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
139 |
MON_VORT3 |
& +uVel(i,j-1,k,bi,bj)*dxC(i,j-1,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
150 |
MON_VORT3 |
DO i=1,iMax |
|
./pkg/monitor/mon_vort3.F |
151 |
MON_VORT3 |
hFacZ(i,jMax)=0. |
|
./pkg/monitor/mon_vort3.F |
152 |
MON_VORT3 |
vort3(i,jMax)=0. |
|
./pkg/monitor/mon_vort3.F |
184 |
MON_VORT3 |
i=1 |
|
./pkg/monitor/mon_vort3.F |
186 |
MON_VORT3 |
vort3(i,j)= |
|
./pkg/monitor/mon_vort3.F |
187 |
MON_VORT3 |
& +recip_rAz(i,j,bi,bj)/AZcorner*( |
|
./pkg/monitor/mon_vort3.F |
188 |
MON_VORT3 |
& vVel(i,j,k,bi,bj)*dyC(i,j,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
189 |
MON_VORT3 |
& -uVel(i,j,k,bi,bj)*dxC(i,j,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
190 |
MON_VORT3 |
& +uVel(i,j-1,k,bi,bj)*dxC(i,j-1,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
192 |
MON_VORT3 |
hFacZ(i,j) = ( _hFacW(i,j-1,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
193 |
MON_VORT3 |
& + _hFacW(i, j ,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
194 |
MON_VORT3 |
& + _hFacS( i ,j,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
199 |
MON_VORT3 |
i=iMax |
|
./pkg/monitor/mon_vort3.F |
201 |
MON_VORT3 |
vort3(i,j)= |
|
./pkg/monitor/mon_vort3.F |
202 |
MON_VORT3 |
& +recip_rAz(i,j,bi,bj)/AZcorner*( |
|
./pkg/monitor/mon_vort3.F |
203 |
MON_VORT3 |
& -vVel(i-1,j,k,bi,bj)*dyC(i-1,j,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
204 |
MON_VORT3 |
& -uVel(i,j,k,bi,bj)*dxC(i,j,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
205 |
MON_VORT3 |
& +uVel(i,j-1,k,bi,bj)*dxC(i,j-1,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
207 |
MON_VORT3 |
hFacZ(i,j) = ( _hFacW(i,j-1,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
208 |
MON_VORT3 |
& + _hFacW(i, j ,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
209 |
MON_VORT3 |
& + _hFacS(i-1,j,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
214 |
MON_VORT3 |
i=1 |
|
./pkg/monitor/mon_vort3.F |
216 |
MON_VORT3 |
vort3(i,j)= |
|
./pkg/monitor/mon_vort3.F |
217 |
MON_VORT3 |
& +recip_rAz(i,j,bi,bj)/AZcorner*( |
|
./pkg/monitor/mon_vort3.F |
218 |
MON_VORT3 |
& vVel(i,j,k,bi,bj)*dyC(i,j,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
219 |
MON_VORT3 |
& -uVel(i,j,k,bi,bj)*dxC(i,j,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
220 |
MON_VORT3 |
& +uVel(i,j-1,k,bi,bj)*dxC(i,j-1,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
222 |
MON_VORT3 |
hFacZ(i,j) = ( _hFacW(i,j-1,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
223 |
MON_VORT3 |
& + _hFacW(i, j ,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
224 |
MON_VORT3 |
& + _hFacS( i ,j,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
229 |
MON_VORT3 |
i=iMax |
|
./pkg/monitor/mon_vort3.F |
231 |
MON_VORT3 |
vort3(i,j)= |
|
./pkg/monitor/mon_vort3.F |
232 |
MON_VORT3 |
& +recip_rAz(i,j,bi,bj)/AZcorner*( |
|
./pkg/monitor/mon_vort3.F |
233 |
MON_VORT3 |
& -vVel(i-1,j,k,bi,bj)*dyC(i-1,j,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
234 |
MON_VORT3 |
& -uVel(i,j,k,bi,bj)*dxC(i,j,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
235 |
MON_VORT3 |
& +uVel(i,j-1,k,bi,bj)*dxC(i,j-1,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
237 |
MON_VORT3 |
hFacZ(i,j) = ( _hFacW(i,j-1,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
238 |
MON_VORT3 |
& + _hFacW(i, j ,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
239 |
MON_VORT3 |
& + _hFacS(i-1,j,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
249 |
MON_VORT3 |
DO i=1,sNx |
|
./pkg/monitor/mon_vort3.F |
250 |
MON_VORT3 |
vort3(i,j) = 0. |
|
./pkg/monitor/mon_vort3.F |
252 |
MON_VORT3 |
& + uVel(i,j-1,k,bi,bj)*dxC(i,j-1,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
253 |
MON_VORT3 |
hFacZ(i,j) = 0. |
|
./pkg/monitor/mon_vort3.F |
255 |
MON_VORT3 |
hFacZ(1,j) = hFacZ(1,j) + _hFacW(i,j-1,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
258 |
MON_VORT3 |
hFacZ(1,j) = hFacZ(1,j) + etaFld(i,j-1) |
|
./pkg/monitor/mon_vort3.F |
267 |
MON_VORT3 |
DO i=1,sNx |
|
./pkg/monitor/mon_vort3.F |
268 |
MON_VORT3 |
vort3(i,j) = 0. |
|
./pkg/monitor/mon_vort3.F |
270 |
MON_VORT3 |
& - uVel(i,j,k,bi,bj)*dxC(i,j,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
271 |
MON_VORT3 |
hFacZ(i,j) = 0. |
|
./pkg/monitor/mon_vort3.F |
273 |
MON_VORT3 |
hFacZ(1,j) = hFacZ(1,j) + _hFacW(i,j,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
276 |
MON_VORT3 |
hFacZ(1,j) = hFacZ(1,j) + etaFld(i,j) |
|
./pkg/monitor/mon_vort3.F |
288 |
MON_VORT3 |
DO i=1,iMax |
|
./pkg/monitor/mon_vort3.F |
289 |
MON_VORT3 |
IF (hFacZ(i,j).GT.0. _d 0) THEN |
|
./pkg/monitor/mon_vort3.F |
290 |
MON_VORT3 |
tmpVal = vort3(i,j) |
|
./pkg/monitor/mon_vort3.F |
291 |
MON_VORT3 |
tmpAre = rAz(i,j,bi,bj)*drF(k) |
|
./pkg/monitor/mon_vort3.F |
292 |
MON_VORT3 |
tmpVol = rAz(i,j,bi,bj)*drF(k)*hFacZ(i,j) |
|
./pkg/monitor/mon_vort3.F |
298 |
MON_VORT3 |
tmpVal = tmpVal + fCoriG(i,j,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
302 |
MON_VORT3 |
tmpVal = tmpVal / hFacZ(i,j) |
|
./pkg/monitor/mon_vort3.F |
35 |
MON_VORT3 |
INTEGER bi,bj,i,j,k |
|
./pkg/monitor/mon_vort3.F |
84 |
MON_VORT3 |
DO i=1-Olx,sNx+Olx |
|
./pkg/monitor/mon_vort3.F |
85 |
MON_VORT3 |
etaFld(i,j) = etaH(i,j,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
86 |
MON_VORT3 |
& + tmpFac*(etaN(i,j,bi,bj)-etaH(i,j,bi,bj)) |
|
./pkg/monitor/mon_vort3.F |
95 |
MON_VORT3 |
DO i=1,sNx |
|
./pkg/my82/my82_calc.F |
171 |
MY82_CALC |
& diffKr(i,j,k,bi,bj) ) |
|
./pkg/my82/my82_calc_diff.F |
45 |
MY82_CALC_DIFF |
INTEGER i,j,k |
|
./pkg/my82/my82_calc_diff.F |
52 |
MY82_CALC_DIFF |
DO i=iMin,iMax |
|
./pkg/my82/my82_calc_diff.F |
53 |
MY82_CALC_DIFF |
KappaRx(i,j,k) = KappaRx(i,j,k) |
|
./pkg/my82/my82_calc_diff.F |
54 |
MY82_CALC_DIFF |
& +( MYdiffKr(i,j,k,bi,bj) |
|
./pkg/my82/my82_calc_diff.F |
56 |
MY82_CALC_DIFF |
& - diffKr(i,j,k,bi,bj) ) |
|
./pkg/my82/my82_calc_diff.F |
67 |
MY82_CALC_DIFF |
DO i=iMin,iMax |
|
./pkg/my82/my82_calc_diff.F |
68 |
MY82_CALC_DIFF |
KappaRx(i,j,k) = KappaRx(i,j,k) |
|
./pkg/my82/my82_calc_diff.F |
69 |
MY82_CALC_DIFF |
& +( MYdiffKr(i,j,kArg,bi,bj) |
|
./pkg/my82/my82_calc_diff.F |
71 |
MY82_CALC_DIFF |
& - diffKr(i,j,kArg,bi,bj) ) |
|
./model/src/config_summary.F |
264 |
CONFIG_SUMMARY |
& k,eosRefT(k),eosRefS(k),eosSig0(k), (eosC(i,k),i=1,9) |
|
./model/src/config_summary.F |
67 |
CONFIG_SUMMARY |
INTEGER i, k |
|
./model/src/config_summary.F |
712 |
CONFIG_SUMMARY |
i = ILNBLNK(pickupSuff) |
|
./model/src/config_summary.F |
713 |
CONFIG_SUMMARY |
IF ( i.GT.0 ) THEN |
|
./model/src/config_summary.F |
970 |
CONFIG_SUMMARY |
i = ILNBLNK(the_run_name) |
|
./model/src/config_summary.F |
971 |
CONFIG_SUMMARY |
IF ( i.GT.0 ) THEN |
|
./model/src/config_summary.F |
972 |
CONFIG_SUMMARY |
CALL WRITE_0D_C( the_run_name, i, INDEX_NONE, |
|
./pkg/my82/my82_calc_visc.F |
37 |
MY82_CALC_VISC |
INTEGER i,j |
|
./pkg/my82/my82_calc_visc.F |
40 |
MY82_CALC_VISC |
DO i=iMin,iMax |
|
./pkg/my82/my82_calc_visc.F |
41 |
MY82_CALC_VISC |
KappaRU(i,j,k) = max ( KappaRU(i,j,k), |
|
./pkg/my82/my82_calc_visc.F |
42 |
MY82_CALC_VISC |
& KappaRU(i,j,k) - viscArNr(k) + _maskW(i,j,k,bi,bj) * |
|
./pkg/my82/my82_calc_visc.F |
43 |
MY82_CALC_VISC |
& 0.5 _d 0*(MYviscAr(i,j,k,bi,bj)+MYviscAr(i-1,j,k,bi,bj)) ) |
|
./pkg/my82/my82_calc_visc.F |
48 |
MY82_CALC_VISC |
DO i=iMin,iMax |
|
./pkg/my82/my82_calc_visc.F |
49 |
MY82_CALC_VISC |
KappaRV(i,j,k) = max ( KappaRV(i,j,k), |
|
./pkg/my82/my82_calc_visc.F |
50 |
MY82_CALC_VISC |
& KappaRV(i,j,k) - viscArNr(k) + _maskS(i,j,k,bi,bj) * |
|
./pkg/my82/my82_calc_visc.F |
51 |
MY82_CALC_VISC |
& 0.5 _d 0*(MYviscAr(i,j,k,bi,bj)+MYviscAr(i,j-1,k,bi,bj)) ) |
|
./pkg/my82/my82_init_varia.F |
31 |
MY82_INIT_VARIA |
INTEGER i, j, k, bi, bj |
|
./pkg/my82/my82_init_varia.F |
52 |
MY82_INIT_VARIA |
DO i = 1-OLx, sNx+OLx |
|
./pkg/my82/my82_init_varia.F |
53 |
MY82_INIT_VARIA |
MYhbl (i,j ,bi,bj) = 0. _d 0 |
|
./pkg/my82/my82_init_varia.F |
54 |
MY82_INIT_VARIA |
MYviscAr (i,j,k,bi,bj) = viscArNr(k) |
|
./pkg/my82/my82_init_varia.F |
55 |
MY82_INIT_VARIA |
MYdiffKr (i,j,k,bi,bj) = diffKrNrS(k) |
|
./model/src/convective_adjustment.F |
62 |
CONVECTIVE_ADJUSTMENT |
INTEGER i, j, K, kTop, kBottom, kDir, deltaK |
|
./model/src/convective_adjustment.F |
93 |
CONVECTIVE_ADJUSTMENT |
DO i=1-OLx,sNx+OLx |
|
./model/src/convective_adjustment.F |
94 |
CONVECTIVE_ADJUSTMENT |
ConvectCount(i,j,K) = 0. |
|
./pkg/mypackage/mypackage_init_varia.F |
33 |
MYPACKAGE_INIT_VARIA |
INTEGER i,j,k,bi,bj |
|
./pkg/mypackage/mypackage_init_varia.F |
42 |
MYPACKAGE_INIT_VARIA |
DO i=1-Olx,sNx+Olx |
|
./pkg/mypackage/mypackage_init_varia.F |
44 |
MYPACKAGE_INIT_VARIA |
myPa_StatScal1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mypackage/mypackage_init_varia.F |
45 |
MYPACKAGE_INIT_VARIA |
myPa_StatScal2(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mypackage/mypackage_init_varia.F |
46 |
MYPACKAGE_INIT_VARIA |
myPa_StatVelU (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mypackage/mypackage_init_varia.F |
47 |
MYPACKAGE_INIT_VARIA |
myPa_StatVelV (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mypackage/mypackage_init_varia.F |
50 |
MYPACKAGE_INIT_VARIA |
myPa_TendScal1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mypackage/mypackage_init_varia.F |
51 |
MYPACKAGE_INIT_VARIA |
myPa_TendScal2(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mypackage/mypackage_init_varia.F |
52 |
MYPACKAGE_INIT_VARIA |
myPa_TendVelU (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mypackage/mypackage_init_varia.F |
53 |
MYPACKAGE_INIT_VARIA |
myPa_TendVelV (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mypackage/mypackage_init_varia.F |
62 |
MYPACKAGE_INIT_VARIA |
DO i=1-Olx,sNx+Olx |
|
./pkg/mypackage/mypackage_init_varia.F |
63 |
MYPACKAGE_INIT_VARIA |
myPa_Surf1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/mypackage/mypackage_init_varia.F |
64 |
MYPACKAGE_INIT_VARIA |
myPa_Surf2(i,j,bi,bj) = 0. _d 0 |
|
./pkg/mypackage/mypackage_tendency_apply.F |
122 |
MYPACKAGE_TENDENCY_APPLY_V |
INTEGER i, j |
|
./pkg/mypackage/mypackage_tendency_apply.F |
126 |
MYPACKAGE_TENDENCY_APPLY_V |
DO i=iMin,iMax |
|
./pkg/mypackage/mypackage_tendency_apply.F |
127 |
MYPACKAGE_TENDENCY_APPLY_V |
gV_arr(i,j) = gV_arr(i,j) |
|
./pkg/mypackage/mypackage_tendency_apply.F |
128 |
MYPACKAGE_TENDENCY_APPLY_V |
& + maskS(i,j,k,bi,bj) * myPa_TendVelV(i,j,k,bi,bj) |
|
./pkg/mypackage/mypackage_tendency_apply.F |
134 |
MYPACKAGE_TENDENCY_APPLY_V |
DO i=iMin,iMax |
|
./pkg/mypackage/mypackage_tendency_apply.F |
135 |
MYPACKAGE_TENDENCY_APPLY_V |
gV_arr(i,j) = gV_arr(i,j) |
|
./pkg/mypackage/mypackage_tendency_apply.F |
136 |
MYPACKAGE_TENDENCY_APPLY_V |
& + maskS(i,j,k,bi,bj)*( myPa_TendVelV(i,j-1,k,bi,bj) |
|
./pkg/mypackage/mypackage_tendency_apply.F |
137 |
MYPACKAGE_TENDENCY_APPLY_V |
& +myPa_TendVelV(i, j ,k,bi,bj) |
|
./pkg/mypackage/mypackage_tendency_apply.F |
189 |
MYPACKAGE_TENDENCY_APPLY_T |
INTEGER i, j |
|
./pkg/mypackage/mypackage_tendency_apply.F |
193 |
MYPACKAGE_TENDENCY_APPLY_T |
DO i=iMin,iMax |
|
./pkg/mypackage/mypackage_tendency_apply.F |
194 |
MYPACKAGE_TENDENCY_APPLY_T |
gT_arr(i,j) = gT_arr(i,j) |
|
./pkg/mypackage/mypackage_tendency_apply.F |
195 |
MYPACKAGE_TENDENCY_APPLY_T |
& + maskC(i,j,k,bi,bj) * myPa_TendScal1(i,j,k,bi,bj) |
|
./pkg/mypackage/mypackage_tendency_apply.F |
246 |
MYPACKAGE_TENDENCY_APPLY_S |
INTEGER i, j |
|
./pkg/mypackage/mypackage_tendency_apply.F |
250 |
MYPACKAGE_TENDENCY_APPLY_S |
DO i=iMin,iMax |
|
./pkg/mypackage/mypackage_tendency_apply.F |
251 |
MYPACKAGE_TENDENCY_APPLY_S |
gS_arr(i,j) = gS_arr(i,j) |
|
./pkg/mypackage/mypackage_tendency_apply.F |
252 |
MYPACKAGE_TENDENCY_APPLY_S |
& + maskC(i,j,k,bi,bj) * myPa_TendScal2(i,j,k,bi,bj) |
|
./pkg/mypackage/mypackage_tendency_apply.F |
54 |
MYPACKAGE_TENDENCY_APPLY_U |
INTEGER i, j |
|
./pkg/mypackage/mypackage_tendency_apply.F |
58 |
MYPACKAGE_TENDENCY_APPLY_U |
DO i=iMin,iMax |
|
./pkg/mypackage/mypackage_tendency_apply.F |
59 |
MYPACKAGE_TENDENCY_APPLY_U |
gU_arr(i,j) = gU_arr(i,j) |
|
./pkg/mypackage/mypackage_tendency_apply.F |
60 |
MYPACKAGE_TENDENCY_APPLY_U |
& + maskW(i,j,k,bi,bj) * myPa_TendVelU(i,j,k,bi,bj) |
|
./pkg/mypackage/mypackage_tendency_apply.F |
66 |
MYPACKAGE_TENDENCY_APPLY_U |
DO i=iMin,iMax |
|
./pkg/mypackage/mypackage_tendency_apply.F |
67 |
MYPACKAGE_TENDENCY_APPLY_U |
gU_arr(i,j) = gU_arr(i,j) |
|
./pkg/mypackage/mypackage_tendency_apply.F |
68 |
MYPACKAGE_TENDENCY_APPLY_U |
& + maskW(i,j,k,bi,bj)*( myPa_TendVelU(i-1,j,k,bi,bj) |
|
./pkg/mypackage/mypackage_tendency_apply.F |
69 |
MYPACKAGE_TENDENCY_APPLY_U |
& +myPa_TendVelU( i ,j,k,bi,bj) |
|
./model/src/convective_adjustment_ini.F |
66 |
CONVECTIVE_ADJUSTMENT_INI |
INTEGER i, j, K, kTop, kBottom, kDir, deltaK |
|
./model/src/convective_adjustment_ini.F |
93 |
CONVECTIVE_ADJUSTMENT_INI |
DO i=1-OLx,sNx+OLx |
|
./model/src/convective_adjustment_ini.F |
94 |
CONVECTIVE_ADJUSTMENT_INI |
ConvectCount(i,j,k) = 0. |
|
./model/src/convective_weights.F |
54 |
CONVECTIVE_WEIGHTS |
INTEGER i,j |
|
./model/src/convective_weights.F |
59 |
CONVECTIVE_WEIGHTS |
DO i=1-OLx,sNx+OLx |
|
./model/src/convective_weights.F |
60 |
CONVECTIVE_WEIGHTS |
IF ( _hFacC(i,j,k-1,bi,bj)* _hFacC(i,j,k,bi,bj) .GT. 0. .AND. |
|
./model/src/convective_weights.F |
61 |
CONVECTIVE_WEIGHTS |
& (rhok(i,j)-rhokm1(i,j))*rkSign*gravitySign .LT. 0. |
|
./model/src/convective_weights.F |
65 |
CONVECTIVE_WEIGHTS |
d1 = _hFacC(i,j,k-1,bi,bj)*drF(k-1) |
|
./model/src/convective_weights.F |
66 |
CONVECTIVE_WEIGHTS |
d2 = _hFacC(i,j, k ,bi,bj)*drF( k ) |
|
./model/src/convective_weights.F |
68 |
CONVECTIVE_WEIGHTS |
weightA(i,j) = d2/dS |
|
./model/src/convective_weights.F |
69 |
CONVECTIVE_WEIGHTS |
weightB(i,j) = d1/dS |
|
./model/src/convective_weights.F |
70 |
CONVECTIVE_WEIGHTS |
convectCount(i,j,k) = 1. |
|
./model/src/convective_weights.F |
73 |
CONVECTIVE_WEIGHTS |
weightA(i,j) = 0. |
|
./model/src/convective_weights.F |
74 |
CONVECTIVE_WEIGHTS |
weightB(i,j) = 0. |
|
./model/src/convective_weights.F |
75 |
CONVECTIVE_WEIGHTS |
convectCount(i,j,k) = 0. |
|
./pkg/obcs/obcs_add_tides.F |
101 |
OBCS_ADD_TIDES |
DO i=1-OLx,sNx+OLx |
|
./pkg/obcs/obcs_add_tides.F |
102 |
OBCS_ADD_TIDES |
jB = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_add_tides.F |
105 |
OBCS_ADD_TIDES |
OBNv(i,k,bi,bj) = OBNv(i,k,bi,bj) + |
|
./pkg/obcs/obcs_add_tides.F |
106 |
OBCS_ADD_TIDES |
& maskS(i,jB,k,bi,bj) * OBNam(i,td,bi,bj) * |
|
./pkg/obcs/obcs_add_tides.F |
107 |
OBCS_ADD_TIDES |
& COS( 2.D0 * PI * (myTime-OBNph(i,td,bi,bj)) / |
|
./pkg/obcs/obcs_add_tides.F |
119 |
OBCS_ADD_TIDES |
DO i=1-OLx,sNx+OLx |
|
./pkg/obcs/obcs_add_tides.F |
120 |
OBCS_ADD_TIDES |
jB = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_add_tides.F |
123 |
OBCS_ADD_TIDES |
OBSv(i,k,bi,bj) = OBSv(i,k,bi,bj) + |
|
./pkg/obcs/obcs_add_tides.F |
124 |
OBCS_ADD_TIDES |
& maskS(i,1+jB,k,bi,bj)* OBSam(i,td,bi,bj) * |
|
./pkg/obcs/obcs_add_tides.F |
125 |
OBCS_ADD_TIDES |
& COS( 2.D0 * PI * (myTime-OBSph(i,td,bi,bj)) / |
|
./pkg/obcs/obcs_add_tides.F |
51 |
OBCS_ADD_TIDES |
INTEGER i, j, k, iB, jB |
|
./pkg/obcs/obcs_apply_eta.F |
45 |
OBCS_APPLY_ETA |
INTEGER i, j |
|
./pkg/obcs/obcs_apply_eta.F |
53 |
OBCS_APPLY_ETA |
DO i=1-OLx,sNx+OLx |
|
./pkg/obcs/obcs_apply_eta.F |
54 |
OBCS_APPLY_ETA |
Jobc = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_apply_eta.F |
56 |
OBCS_APPLY_ETA |
IF ( kSurfS(i,Jobc,bi,bj).LE.Nr ) |
|
./pkg/obcs/obcs_apply_eta.F |
57 |
OBCS_APPLY_ETA |
& etaFld(i,Jobc,bi,bj) = OBNeta(i,bi,bj) |
|
./pkg/obcs/obcs_apply_eta.F |
63 |
OBCS_APPLY_ETA |
DO i=1-OLx,sNx+OLx |
|
./pkg/obcs/obcs_apply_eta.F |
64 |
OBCS_APPLY_ETA |
Jobc = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_apply_eta.F |
66 |
OBCS_APPLY_ETA |
IF ( kSurfS(i,Jobc+1,bi,bj).LE.Nr ) |
|
./pkg/obcs/obcs_apply_eta.F |
67 |
OBCS_APPLY_ETA |
& etaFld(i,Jobc,bi,bj) = OBSeta(i,bi,bj) |
|
./pkg/obcs/obcs_apply_ptracer.F |
54 |
OBCS_APPLY_PTRACER |
INTEGER i, j |
|
./pkg/obcs/obcs_apply_ptracer.F |
71 |
OBCS_APPLY_PTRACER |
DO i=1-OLx,sNx+OLx |
|
./pkg/obcs/obcs_apply_ptracer.F |
72 |
OBCS_APPLY_PTRACER |
Jobc = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_apply_ptracer.F |
76 |
OBCS_APPLY_PTRACER |
pFld(i,Jobc,kl) = OBNptr(i,k,bi,bj,iTracer) |
|
./pkg/obcs/obcs_apply_ptracer.F |
86 |
OBCS_APPLY_PTRACER |
DO i=1-OLx,sNx+OLx |
|
./pkg/obcs/obcs_apply_ptracer.F |
87 |
OBCS_APPLY_PTRACER |
Jobc = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_apply_ptracer.F |
91 |
OBCS_APPLY_PTRACER |
pFld(i,Jobc,kl) = OBSptr(i,k,bi,bj,iTracer) |
|
./pkg/obcs/obcs_apply_r_star.F |
105 |
OBCS_APPLY_R_STAR |
i = OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_apply_r_star.F |
106 |
OBCS_APPLY_R_STAR |
IF (kSurfW(i,j,bi,bj).LE.Nr) THEN |
|
./pkg/obcs/obcs_apply_r_star.F |
108 |
OBCS_APPLY_R_STAR |
rStarFldW(i,j,bi,bj) = 1. _d 0 |
|
./pkg/obcs/obcs_apply_r_star.F |
109 |
OBCS_APPLY_R_STAR |
& + OBEeta( j,bi,bj) / (rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj)) |
|
./pkg/obcs/obcs_apply_r_star.F |
111 |
OBCS_APPLY_R_STAR |
rStarFldW(i,j,bi,bj) = 1. _d 0 |
|
./pkg/obcs/obcs_apply_r_star.F |
112 |
OBCS_APPLY_R_STAR |
& + etaFld(i,j,bi,bj) / (rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj)) |
|
./pkg/obcs/obcs_apply_r_star.F |
122 |
OBCS_APPLY_R_STAR |
i = OB_Iw(j,bi,bj)+1 |
|
./pkg/obcs/obcs_apply_r_star.F |
123 |
OBCS_APPLY_R_STAR |
IF (kSurfW(i,j,bi,bj).LE.Nr) THEN |
|
./pkg/obcs/obcs_apply_r_star.F |
125 |
OBCS_APPLY_R_STAR |
rStarFldW(i,j,bi,bj) = 1. _d 0 |
|
./pkg/obcs/obcs_apply_r_star.F |
126 |
OBCS_APPLY_R_STAR |
& + OBWeta( j,bi,bj) / (rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj)) |
|
./pkg/obcs/obcs_apply_r_star.F |
128 |
OBCS_APPLY_R_STAR |
rStarFldW(i,j,bi,bj) = 1. _d 0 |
|
./pkg/obcs/obcs_apply_r_star.F |
129 |
OBCS_APPLY_R_STAR |
& + etaFld(i-1,j,bi,bj)/(rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj)) |
|
./pkg/obcs/obcs_apply_r_star.F |
54 |
OBCS_APPLY_R_STAR |
INTEGER i,j |
|
./pkg/obcs/obcs_apply_r_star.F |
67 |
OBCS_APPLY_R_STAR |
DO i=1-OLx,sNx+OLx |
|
./pkg/obcs/obcs_apply_r_star.F |
68 |
OBCS_APPLY_R_STAR |
IF ( OB_Jn(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_r_star.F |
69 |
OBCS_APPLY_R_STAR |
j = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_apply_r_star.F |
70 |
OBCS_APPLY_R_STAR |
IF (kSurfS(i,j,bi,bj).LE.Nr) THEN |
|
./pkg/obcs/obcs_apply_r_star.F |
72 |
OBCS_APPLY_R_STAR |
rStarFldS(i,j,bi,bj) = 1. _d 0 |
|
./pkg/obcs/obcs_apply_r_star.F |
73 |
OBCS_APPLY_R_STAR |
& + OBNeta( j,bi,bj) / (rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj)) |
|
./pkg/obcs/obcs_apply_r_star.F |
75 |
OBCS_APPLY_R_STAR |
rStarFldS(i,j,bi,bj) = 1. _d 0 |
|
./pkg/obcs/obcs_apply_r_star.F |
76 |
OBCS_APPLY_R_STAR |
& + etaFld(i,j,bi,bj) / (rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj)) |
|
./pkg/obcs/obcs_apply_r_star.F |
84 |
OBCS_APPLY_R_STAR |
DO i=1-OLx,sNx+OLx |
|
./pkg/obcs/obcs_apply_r_star.F |
85 |
OBCS_APPLY_R_STAR |
IF ( OB_Js(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_r_star.F |
86 |
OBCS_APPLY_R_STAR |
j = OB_Js(i,bi,bj)+1 |
|
./pkg/obcs/obcs_apply_r_star.F |
87 |
OBCS_APPLY_R_STAR |
IF (kSurfS(i,j,bi,bj).LE.Nr) THEN |
|
./pkg/obcs/obcs_apply_r_star.F |
89 |
OBCS_APPLY_R_STAR |
rStarFldS(i,j,bi,bj) = 1. _d 0 |
|
./pkg/obcs/obcs_apply_r_star.F |
90 |
OBCS_APPLY_R_STAR |
& + OBSeta( j,bi,bj) / (rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj)) |
|
./pkg/obcs/obcs_apply_r_star.F |
92 |
OBCS_APPLY_R_STAR |
rStarFldS(i,j,bi,bj) = 1. _d 0 |
|
./pkg/obcs/obcs_apply_r_star.F |
93 |
OBCS_APPLY_R_STAR |
& + etaFld(i,j-1,bi,bj)/(rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
133 |
OBCS_APPLY_SEAICE |
DO i=1-OLx,sNx+OLx |
|
./pkg/obcs/obcs_apply_seaice.F |
136 |
OBCS_APPLY_SEAICE |
IF ( _maskS(i,Jobc-1,k,bi,bj) .NE. 0. ) THEN |
|
./pkg/obcs/obcs_apply_seaice.F |
139 |
OBCS_APPLY_SEAICE |
& (HEFF(i,Jobc-1,bi,bj)+HEFF(i,Jobc-2,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
140 |
OBCS_APPLY_SEAICE |
HEFF(i,Jobc-1,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
141 |
OBCS_APPLY_SEAICE |
HEFF(i,Jobc-2,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
145 |
OBCS_APPLY_SEAICE |
& (AREA(i,Jobc-1,bi,bj)+AREA(i,Jobc-2,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
146 |
OBCS_APPLY_SEAICE |
AREA(i,Jobc-1,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
147 |
OBCS_APPLY_SEAICE |
AREA(i,Jobc-2,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
151 |
OBCS_APPLY_SEAICE |
& (HSNOW(i,Jobc-1,bi,bj)+HSNOW(i,Jobc-2,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
152 |
OBCS_APPLY_SEAICE |
HSNOW(i,Jobc-1,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
153 |
OBCS_APPLY_SEAICE |
HSNOW(i,Jobc-2,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
158 |
OBCS_APPLY_SEAICE |
& (HSALT(i,Jobc-1,bi,bj)+HSALT(i,Jobc-2,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
159 |
OBCS_APPLY_SEAICE |
HSALT(i,Jobc-1,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
160 |
OBCS_APPLY_SEAICE |
HSALT(i,Jobc-2,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
172 |
OBCS_APPLY_SEAICE |
DO i=1-OLx,sNx+OLx |
|
./pkg/obcs/obcs_apply_seaice.F |
175 |
OBCS_APPLY_SEAICE |
IF ( _maskS(i,Jobc+2,k,bi,bj) .NE. 0. ) THEN |
|
./pkg/obcs/obcs_apply_seaice.F |
178 |
OBCS_APPLY_SEAICE |
& (HEFF(i,Jobc+1,bi,bj)+HEFF(i,Jobc+2,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
179 |
OBCS_APPLY_SEAICE |
HEFF(i,Jobc+1,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
180 |
OBCS_APPLY_SEAICE |
HEFF(i,Jobc+2,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
184 |
OBCS_APPLY_SEAICE |
& (AREA(i,Jobc+1,bi,bj)+AREA(i,Jobc+2,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
185 |
OBCS_APPLY_SEAICE |
AREA(i,Jobc+1,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
186 |
OBCS_APPLY_SEAICE |
AREA(i,Jobc+2,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
190 |
OBCS_APPLY_SEAICE |
& (HSNOW(i,Jobc+1,bi,bj)+HSNOW(i,Jobc+2,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
191 |
OBCS_APPLY_SEAICE |
HSNOW(i,Jobc+1,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
192 |
OBCS_APPLY_SEAICE |
HSNOW(i,Jobc+2,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
197 |
OBCS_APPLY_SEAICE |
& (HSALT(i,Jobc+1,bi,bj)+HSALT(i,Jobc+2,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
198 |
OBCS_APPLY_SEAICE |
HSALT(i,Jobc+1,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
199 |
OBCS_APPLY_SEAICE |
HSALT(i,Jobc+2,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
47 |
OBCS_APPLY_SEAICE |
INTEGER i, j |
|
./pkg/obcs/obcs_apply_seaice.F |
60 |
OBCS_APPLY_SEAICE |
DO i=1-OLx,sNx+OLx |
|
./pkg/obcs/obcs_apply_seaice.F |
63 |
OBCS_APPLY_SEAICE |
HEFF (i,Jobc,bi,bj) = OBNh (i,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
64 |
OBCS_APPLY_SEAICE |
AREA (i,Jobc,bi,bj) = OBNa (i,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
65 |
OBCS_APPLY_SEAICE |
HSNOW(i,Jobc,bi,bj) = OBNsn(i,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
67 |
OBCS_APPLY_SEAICE |
HSALT(i,Jobc,bi,bj) = OBNsl(i,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
77 |
OBCS_APPLY_SEAICE |
DO i=1-OLx,sNx+OLx |
|
./pkg/obcs/obcs_apply_seaice.F |
80 |
OBCS_APPLY_SEAICE |
HEFF (i,Jobc,bi,bj) = OBSh (i,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
81 |
OBCS_APPLY_SEAICE |
AREA (i,Jobc,bi,bj) = OBSa (i,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
82 |
OBCS_APPLY_SEAICE |
HSNOW(i,Jobc,bi,bj) = OBSsn(i,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
84 |
OBCS_APPLY_SEAICE |
HSALT(i,Jobc,bi,bj) = OBSsl(i,bi,bj) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
100 |
OBCS_APPLY_SURF_DR |
& + etaFld(i,j-1,bi,bj)*recip_drF(ks) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
102 |
OBCS_APPLY_SURF_DR |
hFac_FldS(i,j,bi,bj) = MAX( hFacInfMOM, hFactmp ) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
113 |
OBCS_APPLY_SURF_DR |
i = OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
114 |
OBCS_APPLY_SURF_DR |
ks = kSurfW(i,j,bi,bj) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
117 |
OBCS_APPLY_SURF_DR |
hFactmp = h0FacW(i,j,ks,bi,bj) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
120 |
OBCS_APPLY_SURF_DR |
hFactmp = h0FacW(i,j,ks,bi,bj) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
121 |
OBCS_APPLY_SURF_DR |
& + etaFld(i,j,bi,bj)*recip_drF(ks) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
123 |
OBCS_APPLY_SURF_DR |
hFac_FldW(i,j,bi,bj) = MAX( hFacInfMOM, hFactmp ) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
132 |
OBCS_APPLY_SURF_DR |
i = OB_Iw(j,bi,bj)+1 |
|
./pkg/obcs/obcs_apply_surf_dr.F |
133 |
OBCS_APPLY_SURF_DR |
ks = kSurfW(i,j,bi,bj) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
136 |
OBCS_APPLY_SURF_DR |
hFactmp = h0FacW(i,j,ks,bi,bj) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
139 |
OBCS_APPLY_SURF_DR |
hFactmp = h0FacW(i,j,ks,bi,bj) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
140 |
OBCS_APPLY_SURF_DR |
& + etaFld(i-1,j,bi,bj)*recip_drF(ks) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
142 |
OBCS_APPLY_SURF_DR |
hFac_FldW(i,j,bi,bj) = MAX( hFacInfMOM, hFactmp ) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
55 |
OBCS_APPLY_SURF_DR |
INTEGER i,j,ks |
|
./pkg/obcs/obcs_apply_surf_dr.F |
71 |
OBCS_APPLY_SURF_DR |
DO i=1-OLx,sNx+OLx |
|
./pkg/obcs/obcs_apply_surf_dr.F |
72 |
OBCS_APPLY_SURF_DR |
IF ( OB_Jn(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_surf_dr.F |
73 |
OBCS_APPLY_SURF_DR |
j = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
74 |
OBCS_APPLY_SURF_DR |
ks = kSurfS(i,j,bi,bj) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
77 |
OBCS_APPLY_SURF_DR |
hFactmp = h0FacS(i,j,ks,bi,bj) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
78 |
OBCS_APPLY_SURF_DR |
& + OBNeta(i,bi,bj)*recip_drF(ks) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
80 |
OBCS_APPLY_SURF_DR |
hFactmp = h0FacS(i,j,ks,bi,bj) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
81 |
OBCS_APPLY_SURF_DR |
& + etaFld(i,j,bi,bj)*recip_drF(ks) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
83 |
OBCS_APPLY_SURF_DR |
hFac_FldS(i,j,bi,bj) = MAX( hFacInfMOM, hFactmp ) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
90 |
OBCS_APPLY_SURF_DR |
DO i=1-OLx,sNx+OLx |
|
./pkg/obcs/obcs_apply_surf_dr.F |
91 |
OBCS_APPLY_SURF_DR |
IF ( OB_Js(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_surf_dr.F |
92 |
OBCS_APPLY_SURF_DR |
j = OB_Js(i,bi,bj)+1 |
|
./pkg/obcs/obcs_apply_surf_dr.F |
93 |
OBCS_APPLY_SURF_DR |
ks = kSurfS(i,j,bi,bj) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
96 |
OBCS_APPLY_SURF_DR |
hFactmp = h0FacS(i,j,ks,bi,bj) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
97 |
OBCS_APPLY_SURF_DR |
& + OBSeta(i,bi,bj)*recip_drF(ks) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
99 |
OBCS_APPLY_SURF_DR |
hFactmp = h0FacS(i,j,ks,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
101 |
OBCS_APPLY_TS |
tFld(i,Jobc,k,bi,bj) = OBNt(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
102 |
OBCS_APPLY_TS |
sFld(i,Jobc,k,bi,bj) = OBNs(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
116 |
OBCS_APPLY_TS |
DO i=1-OLx,sNx+OLx |
|
./pkg/obcs/obcs_apply_ts.F |
117 |
OBCS_APPLY_TS |
Jobc = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
120 |
OBCS_APPLY_TS |
tFld(i,Jobc,k,bi,bj) = tFld(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
121 |
OBCS_APPLY_TS |
& + dTtracerLev(k)*OBSt(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
122 |
OBCS_APPLY_TS |
sFld(i,Jobc,k,bi,bj) = sFld(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
123 |
OBCS_APPLY_TS |
& + dTtracerLev(k)*OBSs(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
131 |
OBCS_APPLY_TS |
DO i=1-OLx,sNx+OLx |
|
./pkg/obcs/obcs_apply_ts.F |
132 |
OBCS_APPLY_TS |
Jobc = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
135 |
OBCS_APPLY_TS |
tFld(i,Jobc,k,bi,bj) = OBSt(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
136 |
OBCS_APPLY_TS |
sFld(i,Jobc,k,bi,bj) = OBSs(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
50 |
OBCS_APPLY_TS |
INTEGER i, j |
|
./pkg/obcs/obcs_apply_ts.F |
81 |
OBCS_APPLY_TS |
DO i=1-OLx,sNx+OLx |
|
./pkg/obcs/obcs_apply_ts.F |
83 |
OBCS_APPLY_TS |
Jobc = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
86 |
OBCS_APPLY_TS |
tFld(i,Jobc,k,bi,bj) = tFld(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
87 |
OBCS_APPLY_TS |
& + dTtracerLev(k)*OBNt(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
88 |
OBCS_APPLY_TS |
sFld(i,Jobc,k,bi,bj) = sFld(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
89 |
OBCS_APPLY_TS |
& + dTtracerLev(k)*OBNs(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
97 |
OBCS_APPLY_TS |
DO i=1-OLx,sNx+OLx |
|
./pkg/obcs/obcs_apply_ts.F |
98 |
OBCS_APPLY_TS |
Jobc = OB_Jn(i,bi,bj) |
|
./model/src/convectively_mixtracer.F |
42 |
CONVECTIVELY_MIXTRACER |
INTEGER i,j |
|
./model/src/convectively_mixtracer.F |
47 |
CONVECTIVELY_MIXTRACER |
DO i=1-OLx,sNx+OLx |
|
./model/src/convectively_mixtracer.F |
49 |
CONVECTIVELY_MIXTRACER |
delTrac=Tracer(i,j,k,bi,bj)-Tracer(i,j,k-1,bi,bj) |
|
./model/src/convectively_mixtracer.F |
50 |
CONVECTIVELY_MIXTRACER |
Tracer(i,j,k-1,bi,bj)=Tracer(i,j,k-1,bi,bj) |
|
./model/src/convectively_mixtracer.F |
51 |
CONVECTIVELY_MIXTRACER |
& +weightA(i,j)*delTrac |
|
./model/src/convectively_mixtracer.F |
52 |
CONVECTIVELY_MIXTRACER |
Tracer(i,j,k,bi,bj)=Tracer(i,j,k,bi,bj) |
|
./model/src/convectively_mixtracer.F |
53 |
CONVECTIVELY_MIXTRACER |
& -weightB(i,j)*delTrac |
|
./pkg/obcs/obcs_apply_uv.F |
100 |
OBCS_APPLY_UV |
DO i=1-OLx,sNx+OLx |
|
./pkg/obcs/obcs_apply_uv.F |
101 |
OBCS_APPLY_UV |
Jobc = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
104 |
OBCS_APPLY_UV |
uFld(i,Jobc,k,bi,bj) = OBSu(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
105 |
OBCS_APPLY_UV |
& *_maskW(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
147 |
OBCS_APPLY_UV |
DO i=1-OLx,sNx+OLx |
|
./pkg/obcs/obcs_apply_uv.F |
148 |
OBCS_APPLY_UV |
Jobc = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
151 |
OBCS_APPLY_UV |
vFld(i,Jobc,k,bi,bj) = OBNv(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
152 |
OBCS_APPLY_UV |
& *_maskS(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
153 |
OBCS_APPLY_UV |
vFld(i,Jobc+1,k,bi,bj) = OBNv(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
154 |
OBCS_APPLY_UV |
& *_maskS(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
164 |
OBCS_APPLY_UV |
DO i=1-OLx,sNx+OLx |
|
./pkg/obcs/obcs_apply_uv.F |
165 |
OBCS_APPLY_UV |
Jobc = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
168 |
OBCS_APPLY_UV |
vFld(i,Jobc+1,k,bi,bj) = OBSv(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
169 |
OBCS_APPLY_UV |
& *_maskS(i,Jobc+1,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
170 |
OBCS_APPLY_UV |
vFld(i,Jobc,k,bi,bj) = OBSv(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
171 |
OBCS_APPLY_UV |
& *_maskS(i,Jobc+1,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
51 |
OBCS_APPLY_UV |
INTEGER i, j |
|
./pkg/obcs/obcs_apply_uv.F |
86 |
OBCS_APPLY_UV |
DO i=1-OLx,sNx+OLx |
|
./pkg/obcs/obcs_apply_uv.F |
87 |
OBCS_APPLY_UV |
Jobc = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
90 |
OBCS_APPLY_UV |
uFld(i,Jobc,k,bi,bj) = OBNu(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
91 |
OBCS_APPLY_UV |
& *_maskW(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
136 |
OBCS_APPLY_UVICE |
DO i=1-OLx,sNx+OLx |
|
./pkg/obcs/obcs_apply_uvice.F |
137 |
OBCS_APPLY_UVICE |
Jobc = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
139 |
OBCS_APPLY_UVICE |
vFld(i,Jobc,bi,bj) = OBNvice(i,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
140 |
OBCS_APPLY_UVICE |
& *seaiceMaskV(i,Jobc,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
142 |
OBCS_APPLY_UVICE |
& vFld(i,Jobc+1,bi,bj) = OBNvice(i,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
143 |
OBCS_APPLY_UVICE |
& *seaiceMaskV(i,Jobc,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
153 |
OBCS_APPLY_UVICE |
DO i=1-OLx,sNx+OLx |
|
./pkg/obcs/obcs_apply_uvice.F |
154 |
OBCS_APPLY_UVICE |
Jobc = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
156 |
OBCS_APPLY_UVICE |
vFld(i,Jobc+1,bi,bj) = OBSvice(i,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
157 |
OBCS_APPLY_UVICE |
& *seaiceMaskV(i,Jobc+1,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
159 |
OBCS_APPLY_UVICE |
& vFld(i,Jobc,bi,bj) = OBSvice(i,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
160 |
OBCS_APPLY_UVICE |
& *seaiceMaskV(i,Jobc+1,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
54 |
OBCS_APPLY_UVICE |
INTEGER i, j |
|
./pkg/obcs/obcs_apply_uvice.F |
80 |
OBCS_APPLY_UVICE |
DO i=1-OLx,sNx+OLx |
|
./pkg/obcs/obcs_apply_uvice.F |
81 |
OBCS_APPLY_UVICE |
Jobc = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
83 |
OBCS_APPLY_UVICE |
uFld(i,Jobc,bi,bj) = OBNuice(i,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
84 |
OBCS_APPLY_UVICE |
& *seaiceMaskU(i,Jobc,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
93 |
OBCS_APPLY_UVICE |
DO i=1-OLx,sNx+OLx |
|
./pkg/obcs/obcs_apply_uvice.F |
94 |
OBCS_APPLY_UVICE |
Jobc = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
96 |
OBCS_APPLY_UVICE |
uFld(i,Jobc,bi,bj) = OBSuice(i,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
97 |
OBCS_APPLY_UVICE |
& *seaiceMaskU(i,Jobc,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
49 |
OBCS_APPLY_W |
INTEGER i, j |
|
./pkg/obcs/obcs_apply_w.F |
67 |
OBCS_APPLY_W |
DO i=1-OLx,sNx+OLx |
|
./pkg/obcs/obcs_apply_w.F |
68 |
OBCS_APPLY_W |
Jobc = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
72 |
OBCS_APPLY_W |
obc_mask = maskC(i,Jobc,km1,bi,bj)*maskC(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
73 |
OBCS_APPLY_W |
wFld(i,Jobc,k,bi,bj) = OBNw(i,k,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_w.F |
76 |
OBCS_APPLY_W |
obc_mask = maskC(i,Jobc,km1,bi,bj)*maskC(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
77 |
OBCS_APPLY_W |
wFld(i,Jobc,k,bi,bj) = OBNw(i,k,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_w.F |
86 |
OBCS_APPLY_W |
DO i=1-OLx,sNx+OLx |
|
./pkg/obcs/obcs_apply_w.F |
87 |
OBCS_APPLY_W |
Jobc = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
91 |
OBCS_APPLY_W |
obc_mask = maskC(i,Jobc,km1,bi,bj)*maskC(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
92 |
OBCS_APPLY_W |
wFld(i,Jobc,k,bi,bj) = OBSw(i,k,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_w.F |
95 |
OBCS_APPLY_W |
obc_mask = maskC(i,Jobc,km1,bi,bj)*maskC(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
96 |
OBCS_APPLY_W |
wFld(i,Jobc,k,bi,bj) = OBSw(i,k,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_balance_flow.F |
194 |
OBCS_BALANCE_FLOW |
DO i=1,sNx |
|
./pkg/obcs/obcs_balance_flow.F |
195 |
OBCS_BALANCE_FLOW |
jB = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
199 |
OBCS_BALANCE_FLOW |
tmpA = drF(k)*hFacS(i,jB,k,bi,bj)*dxG(i,jB,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
200 |
OBCS_BALANCE_FLOW |
& *maskInS(i,jB,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
202 |
OBCS_BALANCE_FLOW |
tileFlow(bi,bj) = tileFlow(bi,bj) + tmpA*OBNv(i,k,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
243 |
OBCS_BALANCE_FLOW |
DO i=1,sNx |
|
./pkg/obcs/obcs_balance_flow.F |
244 |
OBCS_BALANCE_FLOW |
jB = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
248 |
OBCS_BALANCE_FLOW |
tmpA = drF(k)*hFacS(i,1+jB,k,bi,bj)*dxG(i,1+jB,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
249 |
OBCS_BALANCE_FLOW |
& *maskInS(i,1+jB,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
251 |
OBCS_BALANCE_FLOW |
tileFlow(bi,bj) = tileFlow(bi,bj) + tmpA*OBSv(i,k,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
364 |
OBCS_BALANCE_FLOW |
DO i=1-OLx,sNx+OLx |
|
./pkg/obcs/obcs_balance_flow.F |
365 |
OBCS_BALANCE_FLOW |
jB = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
367 |
OBCS_BALANCE_FLOW |
OBNv(i,k,bi,bj) = OBNv(i,k,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
368 |
OBCS_BALANCE_FLOW |
& + flowN*maskS(i,jB,k,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
384 |
OBCS_BALANCE_FLOW |
DO i=1-OLx,sNx+OLx |
|
./pkg/obcs/obcs_balance_flow.F |
385 |
OBCS_BALANCE_FLOW |
jB = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
387 |
OBCS_BALANCE_FLOW |
OBSv(i,k,bi,bj) = OBSv(i,k,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
388 |
OBCS_BALANCE_FLOW |
& + flowS*maskS(i,1+jB,k,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
48 |
OBCS_BALANCE_FLOW |
INTEGER i, j, k, iB, jB |
|
./pkg/obcs/obcs_calc.F |
201 |
OBCS_CALC |
DO i=1-OLx,sNx+OLx |
|
./pkg/obcs/obcs_calc.F |
202 |
OBCS_CALC |
IF ( OB_Jn(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_calc.F |
203 |
OBCS_CALC |
OBNv(i,k,bi,bj)=0. |
|
./pkg/obcs/obcs_calc.F |
204 |
OBCS_CALC |
OBNu(i,k,bi,bj)=0. |
|
./pkg/obcs/obcs_calc.F |
205 |
OBCS_CALC |
OBNt(i,k,bi,bj)=tRef(k) |
|
./pkg/obcs/obcs_calc.F |
206 |
OBCS_CALC |
OBNs(i,k,bi,bj)=sRef(k) |
|
./pkg/obcs/obcs_calc.F |
208 |
OBCS_CALC |
OBNw(i,k,bi,bj)=0. |
|
./pkg/obcs/obcs_calc.F |
211 |
OBCS_CALC |
OBNeta(i,bi,bj)=0. |
|
./pkg/obcs/obcs_calc.F |
235 |
OBCS_CALC |
DO i=1-OLx,sNx+OLx |
|
./pkg/obcs/obcs_calc.F |
236 |
OBCS_CALC |
IF ( OB_Js(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_calc.F |
237 |
OBCS_CALC |
OBSu(i,k,bi,bj)=0. |
|
./pkg/obcs/obcs_calc.F |
238 |
OBCS_CALC |
OBSv(i,k,bi,bj)=0. |
|
./pkg/obcs/obcs_calc.F |
239 |
OBCS_CALC |
OBSt(i,k,bi,bj)=tRef(k) |
|
./pkg/obcs/obcs_calc.F |
240 |
OBCS_CALC |
OBSs(i,k,bi,bj)=sRef(k) |
|
./pkg/obcs/obcs_calc.F |
242 |
OBCS_CALC |
OBSw(i,k,bi,bj)=0. |
|
./pkg/obcs/obcs_calc.F |
245 |
OBCS_CALC |
OBSeta(i,bi,bj)=0. |
|
./pkg/obcs/obcs_calc.F |
348 |
OBCS_CALC |
DO i=1-OLx,sNx+OLx |
|
./pkg/obcs/obcs_calc.F |
349 |
OBCS_CALC |
IF ( OB_Jn(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_calc.F |
350 |
OBCS_CALC |
J_obc = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
351 |
OBCS_CALC |
OBNptr(i,k,bi,bj,iTracer) = |
|
./pkg/obcs/obcs_calc.F |
352 |
OBCS_CALC |
& pTracer(i,J_obc-1,k,bi,bj,iTracer) |
|
./pkg/obcs/obcs_calc.F |
353 |
OBCS_CALC |
& *_maskS(i,J_obc,k,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
380 |
OBCS_CALC |
DO i=1-OLx,sNx+OLx |
|
./pkg/obcs/obcs_calc.F |
381 |
OBCS_CALC |
IF ( OB_Js(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_calc.F |
382 |
OBCS_CALC |
J_obc = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
383 |
OBCS_CALC |
OBSptr(i,k,bi,bj,iTracer) = |
|
./pkg/obcs/obcs_calc.F |
384 |
OBCS_CALC |
& pTracer(i,J_obc+1,k,bi,bj,iTracer) |
|
./pkg/obcs/obcs_calc.F |
385 |
OBCS_CALC |
& *_maskS(i,J_obc+1,k,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
61 |
OBCS_CALC |
INTEGER i, j, k |
|
./pkg/obcs/obcs_calc_stevens.F |
1042 |
OBCS_STEVENS_SAVE_TRACERS |
INTEGER bi,bj,i,j,k,Iobc,Jobc |
|
./pkg/obcs/obcs_calc_stevens.F |
1050 |
OBCS_STEVENS_SAVE_TRACERS |
DO i=1-OLx,sNx+OLx |
|
./pkg/obcs/obcs_calc_stevens.F |
1051 |
OBCS_STEVENS_SAVE_TRACERS |
Jobc = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
1054 |
OBCS_STEVENS_SAVE_TRACERS |
OBNtStevens(i,k,bi,bj) = theta(i,Jobc-1,k,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
1055 |
OBCS_STEVENS_SAVE_TRACERS |
& *maskC(i,Jobc+1,k,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
1056 |
OBCS_STEVENS_SAVE_TRACERS |
OBNsStevens(i,k,bi,bj) = salt(i,Jobc-1,k,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
1057 |
OBCS_STEVENS_SAVE_TRACERS |
& *maskC(i,Jobc+1,k,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
1066 |
OBCS_STEVENS_SAVE_TRACERS |
DO i=1-OLx,sNx+OLx |
|
./pkg/obcs/obcs_calc_stevens.F |
1067 |
OBCS_STEVENS_SAVE_TRACERS |
Jobc = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
1070 |
OBCS_STEVENS_SAVE_TRACERS |
OBStStevens(i,k,bi,bj) = theta(i,Jobc+1,k,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
1071 |
OBCS_STEVENS_SAVE_TRACERS |
& *maskC(i,Jobc+1,k,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
1072 |
OBCS_STEVENS_SAVE_TRACERS |
OBSsStevens(i,k,bi,bj) = salt(i,Jobc+1,k,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
1073 |
OBCS_STEVENS_SAVE_TRACERS |
& *maskC(i,Jobc+1,k,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
720 |
OBCS_STEVENS_CALC_TRACER_EAST |
INTEGER i,j,k |
|
./pkg/obcs/obcs_calc_stevens.F |
801 |
OBCS_STEVENS_CALC_TRACER_WEST |
INTEGER i,j,k |
|
./pkg/obcs/obcs_calc_stevens.F |
883 |
OBCS_STEVENS_CALC_TRACER_NORTH |
INTEGER i,j,k |
|
./pkg/obcs/obcs_calc_stevens.F |
965 |
OBCS_STEVENS_CALC_TRACER_SOUTH |
INTEGER i,j,k |
|
./pkg/obcs/obcs_check.F |
463 |
OBCS_CHECK |
i = OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_check.F |
464 |
OBCS_CHECK |
IF ( i.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_check.F |
465 |
OBCS_CHECK |
IF ( maskInC(i,j,bi,bj).NE.0. ) THEN |
|
./pkg/obcs/obcs_check.F |
469 |
OBCS_CHECK |
& ') expects Mask=0 @ i,j=', i, ',', j |
|
./pkg/obcs/obcs_check.F |
474 |
OBCS_CHECK |
DO i=1,sNx+1 |
|
./pkg/obcs/obcs_check.F |
475 |
OBCS_CHECK |
IF ( maskInC(i-1,j,bi,bj).GT.maskInC(i,j,bi,bj) |
|
./pkg/obcs/obcs_check.F |
476 |
OBCS_CHECK |
& .AND.kSurfW(i,j,bi,bj).LE.Nr |
|
./pkg/obcs/obcs_check.F |
477 |
OBCS_CHECK |
& .AND. i.NE.OB_Ie(j,bi,bj) ) THEN |
|
./pkg/obcs/obcs_check.F |
481 |
OBCS_CHECK |
& ') expects OBE=', i, ' @ j=', j |
|
./pkg/obcs/obcs_check.F |
487 |
OBCS_CHECK |
i = OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_check.F |
488 |
OBCS_CHECK |
IF ( i.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_check.F |
489 |
OBCS_CHECK |
IF ( maskInC(i,j,bi,bj).NE.0. ) THEN |
|
./pkg/obcs/obcs_check.F |
493 |
OBCS_CHECK |
& ') expects Mask=0 @ i,j=', i, ',', j |
|
./pkg/obcs/obcs_check.F |
498 |
OBCS_CHECK |
DO i=1,sNx+1 |
|
./pkg/obcs/obcs_check.F |
499 |
OBCS_CHECK |
IF ( maskInC(i-1,j,bi,bj).LT.maskInC(i,j,bi,bj) |
|
./pkg/obcs/obcs_check.F |
500 |
OBCS_CHECK |
& .AND.kSurfW(i,j,bi,bj).LE.Nr |
|
./pkg/obcs/obcs_check.F |
501 |
OBCS_CHECK |
& .AND. i.NE.OB_Iw(j,bi,bj)+1 ) THEN |
|
./pkg/obcs/obcs_check.F |
505 |
OBCS_CHECK |
& ') expects OBW=', i-1, ' @ j=', j |
|
./pkg/obcs/obcs_check.F |
512 |
OBCS_CHECK |
DO i=1,sNx |
|
./pkg/obcs/obcs_check.F |
514 |
OBCS_CHECK |
j = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_check.F |
516 |
OBCS_CHECK |
IF ( maskInC(i,j,bi,bj).NE.0. ) THEN |
|
./pkg/obcs/obcs_check.F |
51 |
OBCS_CHECK |
INTEGER i, j |
|
./pkg/obcs/obcs_check.F |
520 |
OBCS_CHECK |
& ') expects Mask=0 @ i,j=', i, ',', j |
|
./pkg/obcs/obcs_check.F |
526 |
OBCS_CHECK |
IF ( maskInC(i,j-1,bi,bj).GT.maskInC(i,j,bi,bj) |
|
./pkg/obcs/obcs_check.F |
527 |
OBCS_CHECK |
& .AND.kSurfS(i,j,bi,bj).LE.Nr |
|
./pkg/obcs/obcs_check.F |
528 |
OBCS_CHECK |
& .AND. j.NE.OB_Jn(i,bi,bj) ) THEN |
|
./pkg/obcs/obcs_check.F |
532 |
OBCS_CHECK |
& ') expects OBN=', j, ' @ i=', i |
|
./pkg/obcs/obcs_check.F |
538 |
OBCS_CHECK |
j = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_check.F |
540 |
OBCS_CHECK |
IF ( maskInC(i,j,bi,bj).NE.0. ) THEN |
|
./pkg/obcs/obcs_check.F |
544 |
OBCS_CHECK |
& ') expects Mask=0 @ i,j=', i, ',', j |
|
./pkg/obcs/obcs_check.F |
550 |
OBCS_CHECK |
IF ( maskInC(i,j-1,bi,bj).LT.maskInC(i,j,bi,bj) |
|
./pkg/obcs/obcs_check.F |
551 |
OBCS_CHECK |
& .AND.kSurfS(i,j,bi,bj).LE.Nr |
|
./pkg/obcs/obcs_check.F |
552 |
OBCS_CHECK |
& .AND. j.NE.OB_Js(i,bi,bj)+1 ) THEN |
|
./pkg/obcs/obcs_check.F |
556 |
OBCS_CHECK |
& ') expects OBS=', j-1, ' @ i=', i |
|
./pkg/obcs/obcs_check_depths.F |
100 |
OBCS_CHECK_DEPTHS |
& '(i,j,bi,bj)=', i, j, bi, bj |
|
./pkg/obcs/obcs_check_depths.F |
32 |
OBCS_CHECK_DEPTHS |
INTEGER bi, bj, i, j, ichanged |
|
./pkg/obcs/obcs_check_depths.F |
43 |
OBCS_CHECK_DEPTHS |
DO i=1,sNx |
|
./pkg/obcs/obcs_check_depths.F |
44 |
OBCS_CHECK_DEPTHS |
j = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_check_depths.F |
46 |
OBCS_CHECK_DEPTHS |
IF ( R_low(i,j,bi,bj) .LT. R_low(i,j-1,bi,bj) ) THEN |
|
./pkg/obcs/obcs_check_depths.F |
48 |
OBCS_CHECK_DEPTHS |
R_low(i,j,bi,bj) = R_low(i,j-1,bi,bj) |
|
./pkg/obcs/obcs_check_depths.F |
51 |
OBCS_CHECK_DEPTHS |
& '(i,j,bi,bj)=', i, j, bi, bj |
|
./pkg/obcs/obcs_check_depths.F |
59 |
OBCS_CHECK_DEPTHS |
DO i=1,sNx |
|
./pkg/obcs/obcs_check_depths.F |
60 |
OBCS_CHECK_DEPTHS |
j = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_check_depths.F |
62 |
OBCS_CHECK_DEPTHS |
IF ( R_low(i,j,bi,bj) .LT. R_low(i,j+1,bi,bj) ) THEN |
|
./pkg/obcs/obcs_check_depths.F |
64 |
OBCS_CHECK_DEPTHS |
R_low(i,j,bi,bj) = R_low(i,j+1,bi,bj) |
|
./pkg/obcs/obcs_check_depths.F |
67 |
OBCS_CHECK_DEPTHS |
& '(i,j,bi,bj)=', i, j, bi, bj |
|
./pkg/obcs/obcs_check_depths.F |
76 |
OBCS_CHECK_DEPTHS |
i = OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_check_depths.F |
77 |
OBCS_CHECK_DEPTHS |
IF ( i.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_check_depths.F |
78 |
OBCS_CHECK_DEPTHS |
IF ( R_low(i,j,bi,bj) .LT. R_low(i-1,j,bi,bj) ) THEN |
|
./pkg/obcs/obcs_check_depths.F |
80 |
OBCS_CHECK_DEPTHS |
R_low(i,j,bi,bj) = R_low(i-1,j,bi,bj) |
|
./pkg/obcs/obcs_check_depths.F |
83 |
OBCS_CHECK_DEPTHS |
& '(i,j,bi,bj)=', i, j, bi, bj |
|
./pkg/obcs/obcs_check_depths.F |
93 |
OBCS_CHECK_DEPTHS |
i = OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_check_depths.F |
94 |
OBCS_CHECK_DEPTHS |
IF ( i.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_check_depths.F |
95 |
OBCS_CHECK_DEPTHS |
IF ( R_low(i,j,bi,bj) .LT. R_low(i+1,j,bi,bj) ) THEN |
|
./pkg/obcs/obcs_check_depths.F |
97 |
OBCS_CHECK_DEPTHS |
R_low(i,j,bi,bj) = R_low(i+1,j,bi,bj) |
|
./pkg/obcs/obcs_copy_tracer.F |
112 |
OBCS_COPY_TRACER |
DO i = Iobc-OLx, Iobc-1 |
|
./pkg/obcs/obcs_copy_tracer.F |
113 |
OBCS_COPY_TRACER |
trFld(i,j,k) = trFld(Iobc,j,k) |
|
./pkg/obcs/obcs_copy_tracer.F |
52 |
OBCS_COPY_TRACER |
INTEGER i, j, k |
|
./pkg/obcs/obcs_copy_tracer.F |
59 |
OBCS_COPY_TRACER |
DO i=1-OLx,sNx+OLx |
|
./pkg/obcs/obcs_copy_tracer.F |
60 |
OBCS_COPY_TRACER |
Jobc = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_copy_tracer.F |
64 |
OBCS_COPY_TRACER |
trFld(i,j,k) = trFld(i,Jobc,k) |
|
./pkg/obcs/obcs_copy_tracer.F |
75 |
OBCS_COPY_TRACER |
DO i=1-OLx,sNx+OLx |
|
./pkg/obcs/obcs_copy_tracer.F |
76 |
OBCS_COPY_TRACER |
Jobc = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_copy_tracer.F |
80 |
OBCS_COPY_TRACER |
trFld(i,j,k) = trFld(i,Jobc,k) |
|
./pkg/obcs/obcs_copy_tracer.F |
96 |
OBCS_COPY_TRACER |
DO i = Iobc+1, Iobc+OLx |
|
./pkg/obcs/obcs_copy_tracer.F |
97 |
OBCS_COPY_TRACER |
trFld(i,j,k) = trFld(Iobc,j,k) |
|
./pkg/obcs/obcs_copy_uv_n.F |
110 |
OBCS_COPY_UV_N |
DO i = Iobc-OLx, Iobc |
|
./pkg/obcs/obcs_copy_uv_n.F |
111 |
OBCS_COPY_UV_N |
uFld(i,j,k) = uFld(Iobc+1,j,k) |
|
./pkg/obcs/obcs_copy_uv_n.F |
50 |
OBCS_COPY_UV_N |
INTEGER i, j, k |
|
./pkg/obcs/obcs_copy_uv_n.F |
57 |
OBCS_COPY_UV_N |
DO i=1-OLx,sNx+OLx |
|
./pkg/obcs/obcs_copy_uv_n.F |
58 |
OBCS_COPY_UV_N |
Jobc = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_copy_uv_n.F |
62 |
OBCS_COPY_UV_N |
vFld(i,j,k) = vFld(i,Jobc,k) |
|
./pkg/obcs/obcs_copy_uv_n.F |
73 |
OBCS_COPY_UV_N |
DO i=1-OLx,sNx+OLx |
|
./pkg/obcs/obcs_copy_uv_n.F |
74 |
OBCS_COPY_UV_N |
Jobc = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_copy_uv_n.F |
78 |
OBCS_COPY_UV_N |
vFld(i,j,k) = vFld(i,Jobc+1,k) |
|
./pkg/obcs/obcs_copy_uv_n.F |
94 |
OBCS_COPY_UV_N |
DO i = Iobc+1, Iobc+OLx |
|
./pkg/obcs/obcs_copy_uv_n.F |
95 |
OBCS_COPY_UV_N |
uFld(i,j,k) = uFld(Iobc,j,k) |
|
./model/src/correction_step.F |
105 |
CORRECTION_STEP |
DO i=iMin,iMax |
|
./model/src/correction_step.F |
106 |
CORRECTION_STEP |
gU_dpx(i,j) = -( |
|
./model/src/correction_step.F |
107 |
CORRECTION_STEP |
& psFac*phiSurfX(i,j) |
|
./model/src/correction_step.F |
109 |
CORRECTION_STEP |
& + nhFac*_recip_dxC(i,j,bi,bj) |
|
./model/src/correction_step.F |
110 |
CORRECTION_STEP |
& *(phi_nh(i,j,k,bi,bj)-phi_nh(i-1,j,k,bi,bj)) |
|
./model/src/correction_step.F |
112 |
CORRECTION_STEP |
& )*_maskW(i,j,k,bi,bj) |
|
./model/src/correction_step.F |
118 |
CORRECTION_STEP |
DO i=iMin,iMax |
|
./model/src/correction_step.F |
119 |
CORRECTION_STEP |
gV_dpy(i,j) = -( |
|
./model/src/correction_step.F |
120 |
CORRECTION_STEP |
& psFac*phiSurfY(i,j) |
|
./model/src/correction_step.F |
122 |
CORRECTION_STEP |
& + nhFac*_recip_dyC(i,j,bi,bj) |
|
./model/src/correction_step.F |
123 |
CORRECTION_STEP |
& *(phi_nh(i,j,k,bi,bj)-phi_nh(i,j-1,k,bi,bj)) |
|
./model/src/correction_step.F |
125 |
CORRECTION_STEP |
& )*_maskS(i,j,k,bi,bj) |
|
./model/src/correction_step.F |
135 |
CORRECTION_STEP |
DO i=iMin,iMax |
|
./model/src/correction_step.F |
136 |
CORRECTION_STEP |
uVel(i,j,k,bi,bj)=( gU(i,j,k,bi,bj) |
|
./model/src/correction_step.F |
137 |
CORRECTION_STEP |
& + deltaTMom*gU_dpx(i,j) |
|
./model/src/correction_step.F |
138 |
CORRECTION_STEP |
& )*_maskW(i,j,k,bi,bj) |
|
./model/src/correction_step.F |
140 |
CORRECTION_STEP |
& *maskInW(i,j,bi,bj) |
|
./model/src/correction_step.F |
147 |
CORRECTION_STEP |
DO i=iMin,iMax |
|
./model/src/correction_step.F |
148 |
CORRECTION_STEP |
vVel(i,j,k,bi,bj)=( gV(i,j,k,bi,bj) |
|
./model/src/correction_step.F |
149 |
CORRECTION_STEP |
& + deltaTMom*gV_dpy(i,j) |
|
./model/src/correction_step.F |
150 |
CORRECTION_STEP |
& )*_maskS(i,j,k,bi,bj) |
|
./model/src/correction_step.F |
152 |
CORRECTION_STEP |
& *maskInS(i,j,bi,bj) |
|
./model/src/correction_step.F |
56 |
CORRECTION_STEP |
INTEGER i,j |
|
./model/src/correction_step.F |
74 |
CORRECTION_STEP |
DO i=iMin,iMax |
|
./model/src/correction_step.F |
75 |
CORRECTION_STEP |
gU_dpx(i,j) = |
|
./model/src/correction_step.F |
76 |
CORRECTION_STEP |
& -psFac*dU_psFacX(i,j,k,bi,bj)*phiSurfX(i,j) |
|
./model/src/correction_step.F |
83 |
CORRECTION_STEP |
DO i=iMin,iMax |
|
./model/src/correction_step.F |
84 |
CORRECTION_STEP |
gV_dpy(i,j) = |
|
./model/src/correction_step.F |
85 |
CORRECTION_STEP |
& -psFac*dV_psFacY(i,j,k,bi,bj)*phiSurfY(i,j) |
|
./pkg/obcs/obcs_diag_balance.F |
137 |
OBCS_DIAG_BALANCE |
DO i=1,sNx |
|
./pkg/obcs/obcs_diag_balance.F |
138 |
OBCS_DIAG_BALANCE |
jB = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
140 |
OBCS_DIAG_BALANCE |
n = OBN_connect(i,k,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
142 |
OBCS_DIAG_BALANCE |
tmpA = drF(k)*hFacS(i,jB,k,bi,bj)*dxG(i,jB,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
143 |
OBCS_DIAG_BALANCE |
& *maskInS(i,jB,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
146 |
OBCS_DIAG_BALANCE |
& - vTrans(i,jB,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
159 |
OBCS_DIAG_BALANCE |
DO i=1,sNx |
|
./pkg/obcs/obcs_diag_balance.F |
160 |
OBCS_DIAG_BALANCE |
jB = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
162 |
OBCS_DIAG_BALANCE |
n = OBS_connect(i,k,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
165 |
OBCS_DIAG_BALANCE |
tmpA = drF(k)*hFacS(i,jB,k,bi,bj)*dxG(i,jB,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
166 |
OBCS_DIAG_BALANCE |
& *maskInS(i,jB,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
169 |
OBCS_DIAG_BALANCE |
& + vTrans(i,jB,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
246 |
OBCS_DIAG_BALANCE |
DO i=1,sNx |
|
./pkg/obcs/obcs_diag_balance.F |
247 |
OBCS_DIAG_BALANCE |
IF ( OB_Jn(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_diag_balance.F |
248 |
OBCS_DIAG_BALANCE |
jB = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
249 |
OBCS_DIAG_BALANCE |
n = OBN_connect(i,k,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
251 |
OBCS_DIAG_BALANCE |
div2d(i,jB ,bi,bj) = div2d(i,jB ,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
252 |
OBCS_DIAG_BALANCE |
& - vTrans(i,jB,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
254 |
OBCS_DIAG_BALANCE |
div2d(i,jB ,bi,bj) = div2d(i,jB ,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
255 |
OBCS_DIAG_BALANCE |
& + inFlow(n)*drF(k)*hFacS(i,jB,k,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
256 |
OBCS_DIAG_BALANCE |
& *dxG(i,jB,bi,bj)*maskInS(i,jB,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
266 |
OBCS_DIAG_BALANCE |
DO i=1,sNx |
|
./pkg/obcs/obcs_diag_balance.F |
267 |
OBCS_DIAG_BALANCE |
IF ( OB_Js(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_diag_balance.F |
268 |
OBCS_DIAG_BALANCE |
jBt = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
270 |
OBCS_DIAG_BALANCE |
n = OBS_connect(i,k,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
272 |
OBCS_DIAG_BALANCE |
div2d(i,jBt,bi,bj) = div2d(i,jBt,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
273 |
OBCS_DIAG_BALANCE |
& + vTrans(i,jB,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
275 |
OBCS_DIAG_BALANCE |
div2d(i,jBt,bi,bj) = div2d(i,jBt,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
276 |
OBCS_DIAG_BALANCE |
& + inFlow(n)*drF(k)*hFacS(i,jB,k,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
277 |
OBCS_DIAG_BALANCE |
& *dxG(i,jB,bi,bj)*maskInS(i,jB,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
63 |
OBCS_DIAG_BALANCE |
INTEGER i, j, iB, jB, iBt, jBt |
|
./pkg/obcs/obcs_fields_load.F |
582 |
OBCS_FIELDS_LOAD |
DO i=1-Olx,sNx+Olx |
|
./pkg/obcs/obcs_fields_load.F |
583 |
OBCS_FIELDS_LOAD |
OBNeta(i,bi,bj) = bWght*OBNeta0(i,bi,bj) |
|
./pkg/obcs/obcs_fields_load.F |
584 |
OBCS_FIELDS_LOAD |
& +aWght*OBNeta1(i,bi,bj) |
|
./pkg/obcs/obcs_fields_load.F |
608 |
OBCS_FIELDS_LOAD |
DO i=1-Olx,sNx+Olx |
|
./pkg/obcs/obcs_fields_load.F |
609 |
OBCS_FIELDS_LOAD |
OBSeta(i,bi,bj) = bWght*OBSeta0(i,bi,bj) |
|
./pkg/obcs/obcs_fields_load.F |
610 |
OBCS_FIELDS_LOAD |
& +aWght*OBSeta1(i,bi,bj) |
|
./pkg/obcs/obcs_fields_load.F |
693 |
OBCS_TIME_INTERP_XZ |
INTEGER bi,bj,i,k |
|
./pkg/obcs/obcs_fields_load.F |
698 |
OBCS_TIME_INTERP_XZ |
DO i=1-Olx,sNx+Olx |
|
./pkg/obcs/obcs_fields_load.F |
699 |
OBCS_TIME_INTERP_XZ |
fld(i,k,bi,bj) = bWght*fld0(i,k,bi,bj) |
|
./pkg/obcs/obcs_fields_load.F |
700 |
OBCS_TIME_INTERP_XZ |
& +aWght*fld1(i,k,bi,bj) |
|
./pkg/obcs/obcs_fields_load.F |
90 |
OBCS_FIELDS_LOAD |
INTEGER i, j |
|
./pkg/obcs/obcs_init_fixed.F |
100 |
OBCS_INIT_FIXED |
IF ( flag ) OBCS_insideMask(i,j,bi,bj) = 0. |
|
./pkg/obcs/obcs_init_fixed.F |
104 |
OBCS_INIT_FIXED |
IF ( OB_Js(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
106 |
OBCS_INIT_FIXED |
DO j=OB_Js(i,bi,bj),1,-1 |
|
./pkg/obcs/obcs_init_fixed.F |
108 |
OBCS_INIT_FIXED |
& kSurfC(i,j,bi,bj).LE.Nr .AND. j.NE.OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
109 |
OBCS_INIT_FIXED |
IF ( flag ) OBCS_insideMask(i,j,bi,bj) = 0. |
|
./pkg/obcs/obcs_init_fixed.F |
127 |
OBCS_INIT_FIXED |
DO i=1,sNx |
|
./pkg/obcs/obcs_init_fixed.F |
128 |
OBCS_INIT_FIXED |
IF ( OBCS_insideMask(i,j,bi,bj).NE.0. ) |
|
./pkg/obcs/obcs_init_fixed.F |
129 |
OBCS_INIT_FIXED |
& OBCS_insideMask(i,j,bi,bj) = 1. |
|
./pkg/obcs/obcs_init_fixed.F |
147 |
OBCS_INIT_FIXED |
DO i=2-OLx,sNx+OLx |
|
./pkg/obcs/obcs_init_fixed.F |
148 |
OBCS_INIT_FIXED |
maskInW(i,j,bi,bj) = maskInW(i,j,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
149 |
OBCS_INIT_FIXED |
& *MAX( OBCS_insideMask(i-1,j,bi,bj), |
|
./pkg/obcs/obcs_init_fixed.F |
150 |
OBCS_INIT_FIXED |
& OBCS_insideMask(i,j,bi,bj) ) |
|
./pkg/obcs/obcs_init_fixed.F |
151 |
OBCS_INIT_FIXED |
maskInS(i,j,bi,bj) = maskInS(i,j,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
152 |
OBCS_INIT_FIXED |
& *MAX( OBCS_insideMask(i,j-1,bi,bj), |
|
./pkg/obcs/obcs_init_fixed.F |
153 |
OBCS_INIT_FIXED |
& OBCS_insideMask(i,j,bi,bj) ) |
|
./pkg/obcs/obcs_init_fixed.F |
178 |
OBCS_INIT_FIXED |
DO i=1,sNx+1 |
|
./pkg/obcs/obcs_init_fixed.F |
179 |
OBCS_INIT_FIXED |
IF ( OBCS_insideMask(i,j,bi,bj).LT. |
|
./pkg/obcs/obcs_init_fixed.F |
180 |
OBCS_INIT_FIXED |
& OBCS_insideMask(i-1,j,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
182 |
OBCS_INIT_FIXED |
& .AND. kSurfW(i,j,bi,bj).LE.Nr ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
184 |
OBCS_INIT_FIXED |
OB_Ie(j,bi,bj) = i |
|
./pkg/obcs/obcs_init_fixed.F |
188 |
OBCS_INIT_FIXED |
ELSEIF ( OB_Ie(j,bi,bj).NE.i ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
193 |
OBCS_INIT_FIXED |
& ' but from insideMask expects I=', i |
|
./pkg/obcs/obcs_init_fixed.F |
201 |
OBCS_INIT_FIXED |
DO i=0,sNx |
|
./pkg/obcs/obcs_init_fixed.F |
202 |
OBCS_INIT_FIXED |
IF ( OBCS_insideMask(i,j,bi,bj).LT. |
|
./pkg/obcs/obcs_init_fixed.F |
203 |
OBCS_INIT_FIXED |
& OBCS_insideMask(i+1,j,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
205 |
OBCS_INIT_FIXED |
& .AND. kSurfW(i+1,j,bi,bj).LE.Nr ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
207 |
OBCS_INIT_FIXED |
OB_Iw(j,bi,bj) = i |
|
./pkg/obcs/obcs_init_fixed.F |
211 |
OBCS_INIT_FIXED |
ELSEIF ( OB_Iw(j,bi,bj).NE.i ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
216 |
OBCS_INIT_FIXED |
& ' but from insideMask expects I=', i |
|
./pkg/obcs/obcs_init_fixed.F |
224 |
OBCS_INIT_FIXED |
DO i=1-OLx,sNx+OLx |
|
./pkg/obcs/obcs_init_fixed.F |
225 |
OBCS_INIT_FIXED |
IF ( OBCS_insideMask(i,j,bi,bj).LT. |
|
./pkg/obcs/obcs_init_fixed.F |
226 |
OBCS_INIT_FIXED |
& OBCS_insideMask(i,j-1,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
227 |
OBCS_INIT_FIXED |
& .AND. ( i.LT.1 .OR. i.GT.sNx ) |
|
./pkg/obcs/obcs_init_fixed.F |
228 |
OBCS_INIT_FIXED |
& .AND. kSurfS(i,j,bi,bj).LE.Nr ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
229 |
OBCS_INIT_FIXED |
IF ( OB_Jn(i,bi,bj).EQ.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
230 |
OBCS_INIT_FIXED |
OB_Jn(i,bi,bj) = j |
|
./pkg/obcs/obcs_init_fixed.F |
232 |
OBCS_INIT_FIXED |
& ' Sets OBN(i,bi,bj=',i,',',bi,',',bj,')=', OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
234 |
OBCS_INIT_FIXED |
ELSEIF ( OB_Jn(i,bi,bj).NE.j ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
238 |
OBCS_INIT_FIXED |
& ' OBN(i,bi,bj=',i,',',bi,',',bj,')=', OB_Jn(i,bi,bj), |
|
./pkg/obcs/obcs_init_fixed.F |
247 |
OBCS_INIT_FIXED |
DO i=1-OLx,sNx+OLx |
|
./pkg/obcs/obcs_init_fixed.F |
248 |
OBCS_INIT_FIXED |
IF ( OBCS_insideMask(i,j,bi,bj).LT. |
|
./pkg/obcs/obcs_init_fixed.F |
249 |
OBCS_INIT_FIXED |
& OBCS_insideMask(i,j+1,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
250 |
OBCS_INIT_FIXED |
& .AND. ( i.LT.1 .OR. i.GT.sNx ) |
|
./pkg/obcs/obcs_init_fixed.F |
251 |
OBCS_INIT_FIXED |
& .AND. kSurfS(i,j+1,bi,bj).LE.Nr ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
252 |
OBCS_INIT_FIXED |
IF ( OB_Js(i,bi,bj).EQ.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
253 |
OBCS_INIT_FIXED |
OB_Js(i,bi,bj) = j |
|
./pkg/obcs/obcs_init_fixed.F |
255 |
OBCS_INIT_FIXED |
& ' Sets OBS(i,bi,bj=',i,',',bi,',',bj,')=', OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
257 |
OBCS_INIT_FIXED |
ELSEIF ( OB_Js(i,bi,bj).NE.j ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
261 |
OBCS_INIT_FIXED |
& ' OBS(i,bi,bj=',i,',',bi,',',bj,')=', OB_Js(i,bi,bj), |
|
./pkg/obcs/obcs_init_fixed.F |
295 |
OBCS_INIT_FIXED |
DO i=iB,iB+OB_ApplX-1 |
|
./pkg/obcs/obcs_init_fixed.F |
296 |
OBCS_INIT_FIXED |
OBCS_insideMask(i,j,bi,bj) = 0. |
|
./pkg/obcs/obcs_init_fixed.F |
298 |
OBCS_INIT_FIXED |
DO i=iB+1,iB+OB_ApplX-1 |
|
./pkg/obcs/obcs_init_fixed.F |
299 |
OBCS_INIT_FIXED |
maskInW(i,j,bi,bj) = 0. |
|
./pkg/obcs/obcs_init_fixed.F |
303 |
OBCS_INIT_FIXED |
DO i=iB,iB+OB_ApplX-1 |
|
./pkg/obcs/obcs_init_fixed.F |
304 |
OBCS_INIT_FIXED |
maskInS(i,j,bi,bj) = 0. |
|
./pkg/obcs/obcs_init_fixed.F |
314 |
OBCS_INIT_FIXED |
DO i=1-OB_ApplX+iB,iB |
|
./pkg/obcs/obcs_init_fixed.F |
315 |
OBCS_INIT_FIXED |
OBCS_insideMask(i,j,bi,bj) = 0. |
|
./pkg/obcs/obcs_init_fixed.F |
317 |
OBCS_INIT_FIXED |
DO i=2-OB_ApplX+iB,iB |
|
./pkg/obcs/obcs_init_fixed.F |
318 |
OBCS_INIT_FIXED |
maskInW(i,j,bi,bj) = 0. |
|
./pkg/obcs/obcs_init_fixed.F |
322 |
OBCS_INIT_FIXED |
DO i=1-OB_ApplX+iB,iB |
|
./pkg/obcs/obcs_init_fixed.F |
323 |
OBCS_INIT_FIXED |
maskInS(i,j,bi,bj) = 0. |
|
./pkg/obcs/obcs_init_fixed.F |
329 |
OBCS_INIT_FIXED |
DO i=1-OLx,sNx+OLx |
|
./pkg/obcs/obcs_init_fixed.F |
330 |
OBCS_INIT_FIXED |
im = MAX( i-1, 1-OLx ) |
|
./pkg/obcs/obcs_init_fixed.F |
331 |
OBCS_INIT_FIXED |
jB = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
334 |
OBCS_INIT_FIXED |
OBCS_insideMask(i,j,bi,bj) = 0. |
|
./pkg/obcs/obcs_init_fixed.F |
337 |
OBCS_INIT_FIXED |
maskInS(i,j,bi,bj) = 0. |
|
./pkg/obcs/obcs_init_fixed.F |
342 |
OBCS_INIT_FIXED |
maskInW(i,j,bi,bj) = 0. |
|
./pkg/obcs/obcs_init_fixed.F |
348 |
OBCS_INIT_FIXED |
DO i=1-OLx,sNx+OLx |
|
./pkg/obcs/obcs_init_fixed.F |
349 |
OBCS_INIT_FIXED |
im = MAX( i-1, 1-OLx ) |
|
./pkg/obcs/obcs_init_fixed.F |
350 |
OBCS_INIT_FIXED |
jB = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
353 |
OBCS_INIT_FIXED |
OBCS_insideMask(i,j,bi,bj) = 0. |
|
./pkg/obcs/obcs_init_fixed.F |
356 |
OBCS_INIT_FIXED |
maskInS(i,j,bi,bj) = 0. |
|
./pkg/obcs/obcs_init_fixed.F |
361 |
OBCS_INIT_FIXED |
maskInW(i,j,bi,bj) = 0. |
|
./pkg/obcs/obcs_init_fixed.F |
369 |
OBCS_INIT_FIXED |
DO i=1-OLx,sNx+OLx |
|
./pkg/obcs/obcs_init_fixed.F |
370 |
OBCS_INIT_FIXED |
maskInC(i,j,bi,bj) = maskInC(i,j,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
371 |
OBCS_INIT_FIXED |
& *OBCS_insideMask(i,j,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
394 |
OBCS_INIT_FIXED |
DO i=1-OLx,sNx+OLx |
|
./pkg/obcs/obcs_init_fixed.F |
396 |
OBCS_INIT_FIXED |
& ( OB_Jn(i,bi,bj).NE.OB_indexNone ) |
|
./pkg/obcs/obcs_init_fixed.F |
398 |
OBCS_INIT_FIXED |
& ( OB_Js(i,bi,bj).NE.OB_indexNone ) |
|
./pkg/obcs/obcs_init_fixed.F |
46 |
OBCS_INIT_FIXED |
INTEGER i, j |
|
./pkg/obcs/obcs_init_fixed.F |
61 |
OBCS_INIT_FIXED |
DO i=1-OLx,sNx+OLx |
|
./pkg/obcs/obcs_init_fixed.F |
62 |
OBCS_INIT_FIXED |
OBCS_insideMask(i,j,bi,bj) = 1. |
|
./pkg/obcs/obcs_init_fixed.F |
77 |
OBCS_INIT_FIXED |
DO i=OB_Ie(j,bi,bj),sNx |
|
./pkg/obcs/obcs_init_fixed.F |
79 |
OBCS_INIT_FIXED |
& kSurfC(i,j,bi,bj).LE.Nr .AND. i.NE.OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
80 |
OBCS_INIT_FIXED |
IF ( flag ) OBCS_insideMask(i,j,bi,bj) = 0. |
|
./pkg/obcs/obcs_init_fixed.F |
86 |
OBCS_INIT_FIXED |
DO i=OB_Iw(j,bi,bj),1,-1 |
|
./pkg/obcs/obcs_init_fixed.F |
88 |
OBCS_INIT_FIXED |
& kSurfC(i,j,bi,bj).LE.Nr .AND. i.NE.OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
89 |
OBCS_INIT_FIXED |
IF ( flag ) OBCS_insideMask(i,j,bi,bj) = 0. |
|
./pkg/obcs/obcs_init_fixed.F |
93 |
OBCS_INIT_FIXED |
DO i=1,sNx |
|
./pkg/obcs/obcs_init_fixed.F |
95 |
OBCS_INIT_FIXED |
IF ( OB_Jn(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
97 |
OBCS_INIT_FIXED |
DO j=OB_Jn(i,bi,bj),sNy |
|
./pkg/obcs/obcs_init_fixed.F |
99 |
OBCS_INIT_FIXED |
& kSurfC(i,j,bi,bj).LE.Nr .AND. j.NE.OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_init_variables.F |
100 |
OBCS_INIT_VARIABLES |
OBSv1(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
101 |
OBCS_INIT_VARIABLES |
OBSt1(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
102 |
OBCS_INIT_VARIABLES |
OBSs1(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
105 |
OBCS_INIT_VARIABLES |
OBSvStevens(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
106 |
OBCS_INIT_VARIABLES |
OBStStevens(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
107 |
OBCS_INIT_VARIABLES |
OBSsStevens(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
161 |
OBCS_INIT_VARIABLES |
DO i=1-Olx,sNx+Olx |
|
./pkg/obcs/obcs_init_variables.F |
162 |
OBCS_INIT_VARIABLES |
OBNw (i,k,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
163 |
OBCS_INIT_VARIABLES |
OBSw (i,k,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
165 |
OBCS_INIT_VARIABLES |
OBNw0(i,k,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
166 |
OBCS_INIT_VARIABLES |
OBSw0(i,k,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
167 |
OBCS_INIT_VARIABLES |
OBNw1(i,k,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
168 |
OBCS_INIT_VARIABLES |
OBSw1(i,k,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
185 |
OBCS_INIT_VARIABLES |
DO i=1-Olx,sNx+Olx |
|
./pkg/obcs/obcs_init_variables.F |
186 |
OBCS_INIT_VARIABLES |
OBNeta (i,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
187 |
OBCS_INIT_VARIABLES |
OBSeta (i,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
189 |
OBCS_INIT_VARIABLES |
OBNeta0(i,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
190 |
OBCS_INIT_VARIABLES |
OBSeta0(i,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
191 |
OBCS_INIT_VARIABLES |
OBNeta1(i,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
192 |
OBCS_INIT_VARIABLES |
OBSeta1(i,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
210 |
OBCS_INIT_VARIABLES |
DO i=1-Olx,sNx+Olx |
|
./pkg/obcs/obcs_init_variables.F |
212 |
OBCS_INIT_VARIABLES |
OBNa (i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
213 |
OBCS_INIT_VARIABLES |
OBNh (i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
214 |
OBCS_INIT_VARIABLES |
OBNa0(i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
215 |
OBCS_INIT_VARIABLES |
OBNh0(i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
216 |
OBCS_INIT_VARIABLES |
OBNa1(i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
217 |
OBCS_INIT_VARIABLES |
OBNh1(i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
218 |
OBCS_INIT_VARIABLES |
OBNsl (i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
219 |
OBCS_INIT_VARIABLES |
OBNsn (i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
220 |
OBCS_INIT_VARIABLES |
OBNsl0(i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
221 |
OBCS_INIT_VARIABLES |
OBNsn0(i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
222 |
OBCS_INIT_VARIABLES |
OBNsl1(i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
223 |
OBCS_INIT_VARIABLES |
OBNsn1(i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
224 |
OBCS_INIT_VARIABLES |
OBNuice (i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
225 |
OBCS_INIT_VARIABLES |
OBNvice (i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
226 |
OBCS_INIT_VARIABLES |
OBNuice0(i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
227 |
OBCS_INIT_VARIABLES |
OBNvice0(i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
228 |
OBCS_INIT_VARIABLES |
OBNuice1(i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
229 |
OBCS_INIT_VARIABLES |
OBNvice1(i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
232 |
OBCS_INIT_VARIABLES |
OBSa (i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
233 |
OBCS_INIT_VARIABLES |
OBSh (i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
234 |
OBCS_INIT_VARIABLES |
OBSa0(i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
235 |
OBCS_INIT_VARIABLES |
OBSh0(i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
236 |
OBCS_INIT_VARIABLES |
OBSa1(i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
237 |
OBCS_INIT_VARIABLES |
OBSh1(i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
238 |
OBCS_INIT_VARIABLES |
OBSsl (i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
239 |
OBCS_INIT_VARIABLES |
OBSsn (i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
240 |
OBCS_INIT_VARIABLES |
OBSsl0(i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
241 |
OBCS_INIT_VARIABLES |
OBSsn0(i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
242 |
OBCS_INIT_VARIABLES |
OBSsl1(i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
243 |
OBCS_INIT_VARIABLES |
OBSsn1(i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
244 |
OBCS_INIT_VARIABLES |
OBSuice (i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
245 |
OBCS_INIT_VARIABLES |
OBSvice (i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
246 |
OBCS_INIT_VARIABLES |
OBSuice0(i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
247 |
OBCS_INIT_VARIABLES |
OBSvice0(i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
248 |
OBCS_INIT_VARIABLES |
OBSuice1(i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
249 |
OBCS_INIT_VARIABLES |
OBSvice1(i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
302 |
OBCS_INIT_VARIABLES |
DO i=1-Olx,sNx+Olx |
|
./pkg/obcs/obcs_init_variables.F |
304 |
OBCS_INIT_VARIABLES |
OBNptr (i,k,bi,bj,iTracer)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
306 |
OBCS_INIT_VARIABLES |
OBNptr0(i,k,bi,bj,iTracer)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
307 |
OBCS_INIT_VARIABLES |
OBNptr1(i,k,bi,bj,iTracer)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
312 |
OBCS_INIT_VARIABLES |
OBSptr (i,k,bi,bj,iTracer)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
314 |
OBCS_INIT_VARIABLES |
OBSptr0(i,k,bi,bj,iTracer)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
315 |
OBCS_INIT_VARIABLES |
OBSptr1(i,k,bi,bj,iTracer)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
363 |
OBCS_INIT_VARIABLES |
DO i=1-Olx,sNx+Olx |
|
./pkg/obcs/obcs_init_variables.F |
365 |
OBCS_INIT_VARIABLES |
OBNam (i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
366 |
OBCS_INIT_VARIABLES |
OBNph (i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
369 |
OBCS_INIT_VARIABLES |
OBSam (i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
370 |
OBCS_INIT_VARIABLES |
OBSph (i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
47 |
OBCS_INIT_VARIABLES |
INTEGER i, j, k |
|
./pkg/obcs/obcs_init_variables.F |
66 |
OBCS_INIT_VARIABLES |
DO i=1-Olx,sNx+Olx |
|
./pkg/obcs/obcs_init_variables.F |
68 |
OBCS_INIT_VARIABLES |
OBNu(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
69 |
OBCS_INIT_VARIABLES |
OBNv(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
70 |
OBCS_INIT_VARIABLES |
OBNt(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
71 |
OBCS_INIT_VARIABLES |
OBNs(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
73 |
OBCS_INIT_VARIABLES |
OBNu0(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
74 |
OBCS_INIT_VARIABLES |
OBNv0(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
75 |
OBCS_INIT_VARIABLES |
OBNt0(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
76 |
OBCS_INIT_VARIABLES |
OBNs0(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
77 |
OBCS_INIT_VARIABLES |
OBNu1(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
78 |
OBCS_INIT_VARIABLES |
OBNv1(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
79 |
OBCS_INIT_VARIABLES |
OBNt1(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
80 |
OBCS_INIT_VARIABLES |
OBNs1(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
83 |
OBCS_INIT_VARIABLES |
OBNvStevens(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
84 |
OBCS_INIT_VARIABLES |
OBNtStevens(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
85 |
OBCS_INIT_VARIABLES |
OBNsStevens(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
90 |
OBCS_INIT_VARIABLES |
OBSu(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
91 |
OBCS_INIT_VARIABLES |
OBSv(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
92 |
OBCS_INIT_VARIABLES |
OBSt(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
93 |
OBCS_INIT_VARIABLES |
OBSs(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
95 |
OBCS_INIT_VARIABLES |
OBSu0(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
96 |
OBCS_INIT_VARIABLES |
OBSv0(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
97 |
OBCS_INIT_VARIABLES |
OBSt0(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
98 |
OBCS_INIT_VARIABLES |
OBSs0(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
99 |
OBCS_INIT_VARIABLES |
OBSu1(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_mon_stats.F |
313 |
OBCS_MON_STATS_NS_RL |
INTEGER i, k, km |
|
./pkg/obcs/obcs_mon_stats.F |
343 |
OBCS_MON_STATS_NS_RL |
DO i=1,sNx |
|
./pkg/obcs/obcs_mon_stats.F |
345 |
OBCS_MON_STATS_NS_RL |
jj = jNb(i,bi,bj) |
|
./pkg/obcs/obcs_mon_stats.F |
350 |
OBCS_MON_STATS_NS_RL |
tmpMask = arrhFac(i,jB,km,bi,bj) |
|
./pkg/obcs/obcs_mon_stats.F |
351 |
OBCS_MON_STATS_NS_RL |
& *( mskInC(i,jj-1,bi,bj)-mskInC(i,jj,bi,bj) ) |
|
./pkg/obcs/obcs_mon_stats.F |
354 |
OBCS_MON_STATS_NS_RL |
tmpV = arr(i,jj,k,bi,bj) |
|
./pkg/obcs/obcs_mon_stats.F |
355 |
OBCS_MON_STATS_NS_RL |
tmpA = arrDx(i,jB,bi,bj)*arrDr(k)*tmpMask |
|
./pkg/obcs/obcs_mon_stats.F |
415 |
OBCS_MON_STATS_NS_RL |
DO i=1,sNx |
|
./pkg/obcs/obcs_mon_stats.F |
417 |
OBCS_MON_STATS_NS_RL |
jj = jSb(i,bi,bj) |
|
./pkg/obcs/obcs_mon_stats.F |
422 |
OBCS_MON_STATS_NS_RL |
tmpMask = arrhFac(i,jB,km,bi,bj) |
|
./pkg/obcs/obcs_mon_stats.F |
423 |
OBCS_MON_STATS_NS_RL |
& *( mskInC(i,jj+1,bi,bj)-mskInC(i,jj,bi,bj) ) |
|
./pkg/obcs/obcs_mon_stats.F |
427 |
OBCS_MON_STATS_NS_RL |
tmpV = arr(i,jj,k,bi,bj) |
|
./pkg/obcs/obcs_mon_stats.F |
428 |
OBCS_MON_STATS_NS_RL |
tmpA = arrDx(i,jB,bi,bj)*arrDr(k)*tmpMask |
|
./model/src/cycle_ab_tracer.F |
45 |
CYCLE_AB_TRACER |
INTEGER i,j,k |
|
./model/src/cycle_ab_tracer.F |
51 |
CYCLE_AB_TRACER |
DO i=1-OLx,sNx+OLx |
|
./model/src/cycle_ab_tracer.F |
52 |
CYCLE_AB_TRACER |
tracNm1(i,j,k) = tracer(i,j,k) |
|
./model/src/cycle_ab_tracer.F |
53 |
CYCLE_AB_TRACER |
tracer(i,j,k) = tracNew(i,j,k) |
|
./pkg/obcs/obcs_readparms.F |
236 |
OBCS_READPARMS |
DO i=1,OBNS_Nx |
|
./pkg/obcs/obcs_readparms.F |
237 |
OBCS_READPARMS |
OB_Jnorth(i) = OB_indexUnset |
|
./pkg/obcs/obcs_readparms.F |
238 |
OBCS_READPARMS |
OB_Jsouth(i) = OB_indexUnset |
|
./pkg/obcs/obcs_readparms.F |
352 |
OBCS_READPARMS |
DO i = 1, tidalComponents |
|
./pkg/obcs/obcs_readparms.F |
353 |
OBCS_READPARMS |
tidalPeriod(i) = 0. _d 0 |
|
./pkg/obcs/obcs_readparms.F |
494 |
OBCS_READPARMS |
DO i=1,OBNS_Nx |
|
./pkg/obcs/obcs_readparms.F |
495 |
OBCS_READPARMS |
IF ( OB_Jnorth(i).EQ.OB_indexUnset ) THEN |
|
./pkg/obcs/obcs_readparms.F |
496 |
OBCS_READPARMS |
OB_Jnorth(i) = OB_singleJnorth |
|
./pkg/obcs/obcs_readparms.F |
497 |
OBCS_READPARMS |
ELSEIF ( OB_Jnorth(i).NE.OB_singleJnorth ) THEN |
|
./pkg/obcs/obcs_readparms.F |
510 |
OBCS_READPARMS |
DO i=1,OBNS_Nx |
|
./pkg/obcs/obcs_readparms.F |
511 |
OBCS_READPARMS |
IF ( OB_Jsouth(i).EQ.OB_indexUnset ) THEN |
|
./pkg/obcs/obcs_readparms.F |
512 |
OBCS_READPARMS |
OB_Jsouth(i) = OB_singleJsouth |
|
./pkg/obcs/obcs_readparms.F |
513 |
OBCS_READPARMS |
ELSEIF ( OB_Jsouth(i).NE.OB_singleJsouth ) THEN |
|
./pkg/obcs/obcs_readparms.F |
530 |
OBCS_READPARMS |
DO i=1,OBNS_Nx |
|
./pkg/obcs/obcs_readparms.F |
531 |
OBCS_READPARMS |
IF ( OB_Jnorth(i).NE.OB_indexUnset .AND. |
|
./pkg/obcs/obcs_readparms.F |
532 |
OBCS_READPARMS |
& OB_Jnorth(i).LT.0 ) OB_Jnorth(i)=OB_Jnorth(i)+OBNS_Ny+1 |
|
./pkg/obcs/obcs_readparms.F |
579 |
OBCS_READPARMS |
DO i=1-OLx,sNx+OLx |
|
./pkg/obcs/obcs_readparms.F |
580 |
OBCS_READPARMS |
OB_Jn(i,bi,bj) = OB_indexNone |
|
./pkg/obcs/obcs_readparms.F |
581 |
OBCS_READPARMS |
OB_Js(i,bi,bj) = OB_indexNone |
|
./pkg/obcs/obcs_readparms.F |
58 |
OBCS_READPARMS |
INTEGER i, j |
|
./pkg/obcs/obcs_readparms.F |
596 |
OBCS_READPARMS |
DO i=1,sNx |
|
./pkg/obcs/obcs_readparms.F |
597 |
OBCS_READPARMS |
iG = exch2_txXStackLo(tN)+i-1 |
|
./pkg/obcs/obcs_readparms.F |
603 |
OBCS_READPARMS |
IF ( jG.EQ.OB_Jnorth(iG) ) OB_Jn(i,bi,bj) = j |
|
./pkg/obcs/obcs_readparms.F |
610 |
OBCS_READPARMS |
IF ( jG.EQ.OB_Jsouth(iG) ) OB_Js(i,bi,bj) = j |
|
./pkg/obcs/obcs_readparms.F |
622 |
OBCS_READPARMS |
DO i=1,sNx+1 |
|
./pkg/obcs/obcs_readparms.F |
623 |
OBCS_READPARMS |
iG = exch2_txYStackLo(tN)+i-1 |
|
./pkg/obcs/obcs_readparms.F |
624 |
OBCS_READPARMS |
IF ( iG.EQ.OB_Ieast(jG) ) OB_Ie(j,bi,bj) = i |
|
./pkg/obcs/obcs_readparms.F |
629 |
OBCS_READPARMS |
DO i=0,sNx |
|
./pkg/obcs/obcs_readparms.F |
630 |
OBCS_READPARMS |
iG = exch2_txYStackLo(tN)+i-1 |
|
./pkg/obcs/obcs_readparms.F |
631 |
OBCS_READPARMS |
IF ( iG.EQ.OB_Iwest(jG) ) OB_Iw(j,bi,bj) = i |
|
./pkg/obcs/obcs_readparms.F |
652 |
OBCS_READPARMS |
DO i=1,sNx+1 |
|
./pkg/obcs/obcs_readparms.F |
653 |
OBCS_READPARMS |
iG = myXGlobalLo+(bi-1)*sNx+i-1 |
|
./pkg/obcs/obcs_readparms.F |
655 |
OBCS_READPARMS |
IF ( iG.EQ.OB_Ieast(jGm) ) OB_Ie(j,bi,bj) = i |
|
./pkg/obcs/obcs_readparms.F |
660 |
OBCS_READPARMS |
DO i=0,sNx |
|
./pkg/obcs/obcs_readparms.F |
661 |
OBCS_READPARMS |
iG = myXGlobalLo+(bi-1)*sNx+i-1 |
|
./pkg/obcs/obcs_readparms.F |
663 |
OBCS_READPARMS |
IF ( iG.EQ.OB_Iwest(jGm) ) OB_Iw(j,bi,bj) = i |
|
./pkg/obcs/obcs_readparms.F |
668 |
OBCS_READPARMS |
DO i=1-OLx,sNx+OLx |
|
./pkg/obcs/obcs_readparms.F |
669 |
OBCS_READPARMS |
iG = myXGlobalLo+(bi-1)*sNx+i-1 |
|
./pkg/obcs/obcs_readparms.F |
677 |
OBCS_READPARMS |
IF ( jG.EQ.OB_Jnorth(iGm) ) OB_Jn(i,bi,bj) = j |
|
./pkg/obcs/obcs_readparms.F |
685 |
OBCS_READPARMS |
IF ( jG.EQ.OB_Jsouth(iGm) ) OB_Js(i,bi,bj) = j |
|
./pkg/obcs/obcs_save_uv_n.F |
54 |
OBCS_SAVE_UV_N |
INTEGER i, j |
|
./pkg/obcs/obcs_save_uv_n.F |
69 |
OBCS_SAVE_UV_N |
DO i=iMin,iMax |
|
./pkg/obcs/obcs_save_uv_n.F |
70 |
OBCS_SAVE_UV_N |
Jobc = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_save_uv_n.F |
73 |
OBCS_SAVE_UV_N |
OBNvStevens(i,k,bi,bj) = vFld(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_save_uv_n.F |
74 |
OBCS_SAVE_UV_N |
& *_maskS(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_save_uv_n.F |
83 |
OBCS_SAVE_UV_N |
DO i=iMin,iMax |
|
./pkg/obcs/obcs_save_uv_n.F |
84 |
OBCS_SAVE_UV_N |
Jobc = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_save_uv_n.F |
87 |
OBCS_SAVE_UV_N |
OBSvStevens(i,k,bi,bj) = vFld(i,Jobc+1,k,bi,bj) |
|
./pkg/obcs/obcs_save_uv_n.F |
88 |
OBCS_SAVE_UV_N |
& *_maskS(i,Jobc+1,k,bi,bj) |
|
./pkg/obcs/obcs_seaice_sponge.F |
113 |
OBCS_SEAICE_SPONGE_A |
i=OB_Ie(j,bi,bj)-isl |
|
./pkg/obcs/obcs_seaice_sponge.F |
114 |
OBCS_SEAICE_SPONGE_A |
IF ((i.ge.1).and.(i.le.sNx)) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
124 |
OBCS_SEAICE_SPONGE_A |
AREA(i,j,bi,bj) = AREA(i,j,bi,bj) |
|
./pkg/obcs/obcs_seaice_sponge.F |
125 |
OBCS_SEAICE_SPONGE_A |
& - maskC(i,j,1,bi,bj) * lambda_obcs |
|
./pkg/obcs/obcs_seaice_sponge.F |
126 |
OBCS_SEAICE_SPONGE_A |
& * ( AREA(i,j,bi,bj) - OBEa(j,bi,bj) ) |
|
./pkg/obcs/obcs_seaice_sponge.F |
140 |
OBCS_SEAICE_SPONGE_A |
i=OB_Iw(j,bi,bj)+isl |
|
./pkg/obcs/obcs_seaice_sponge.F |
141 |
OBCS_SEAICE_SPONGE_A |
IF ((i.ge.1).and.(i.le.sNx)) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
151 |
OBCS_SEAICE_SPONGE_A |
AREA(i,j,bi,bj) = AREA(i,j,bi,bj) |
|
./pkg/obcs/obcs_seaice_sponge.F |
152 |
OBCS_SEAICE_SPONGE_A |
& - maskC(i,j,1,bi,bj) * lambda_obcs |
|
./pkg/obcs/obcs_seaice_sponge.F |
153 |
OBCS_SEAICE_SPONGE_A |
& * ( AREA(i,j,bi,bj) - OBWa(j,bi,bj) ) |
|
./pkg/obcs/obcs_seaice_sponge.F |
203 |
OBCS_SEAICE_SPONGE_H |
INTEGER bi, bj, i, j, isl, jsl |
|
./pkg/obcs/obcs_seaice_sponge.F |
213 |
OBCS_SEAICE_SPONGE_H |
DO i=1,sNx |
|
./pkg/obcs/obcs_seaice_sponge.F |
214 |
OBCS_SEAICE_SPONGE_H |
IF ( OB_Jn(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
216 |
OBCS_SEAICE_SPONGE_H |
j=OB_Jn(i,bi,bj)-jsl |
|
./pkg/obcs/obcs_seaice_sponge.F |
227 |
OBCS_SEAICE_SPONGE_H |
HEFF(i,j,bi,bj) = HEFF(i,j,bi,bj) |
|
./pkg/obcs/obcs_seaice_sponge.F |
228 |
OBCS_SEAICE_SPONGE_H |
& - maskC(i,j,1,bi,bj) * lambda_obcs |
|
./pkg/obcs/obcs_seaice_sponge.F |
229 |
OBCS_SEAICE_SPONGE_H |
& * ( HEFF(i,j,bi,bj) - OBNh(i,bi,bj) ) |
|
./pkg/obcs/obcs_seaice_sponge.F |
240 |
OBCS_SEAICE_SPONGE_H |
DO i=1,sNx |
|
./pkg/obcs/obcs_seaice_sponge.F |
241 |
OBCS_SEAICE_SPONGE_H |
IF ( OB_Js(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
243 |
OBCS_SEAICE_SPONGE_H |
j=OB_Js(i,bi,bj)+jsl |
|
./pkg/obcs/obcs_seaice_sponge.F |
254 |
OBCS_SEAICE_SPONGE_H |
HEFF(i,j,bi,bj) = HEFF(i,j,bi,bj) |
|
./pkg/obcs/obcs_seaice_sponge.F |
255 |
OBCS_SEAICE_SPONGE_H |
& - maskC(i,j,1,bi,bj) * lambda_obcs |
|
./pkg/obcs/obcs_seaice_sponge.F |
256 |
OBCS_SEAICE_SPONGE_H |
& * ( HEFF(i,j,bi,bj) - OBSh(i,bi,bj) ) |
|
./pkg/obcs/obcs_seaice_sponge.F |
270 |
OBCS_SEAICE_SPONGE_H |
i=OB_Ie(j,bi,bj)-isl |
|
./pkg/obcs/obcs_seaice_sponge.F |
271 |
OBCS_SEAICE_SPONGE_H |
IF ((i.ge.1).and.(i.le.sNx)) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
281 |
OBCS_SEAICE_SPONGE_H |
HEFF(i,j,bi,bj) = HEFF(i,j,bi,bj) |
|
./pkg/obcs/obcs_seaice_sponge.F |
282 |
OBCS_SEAICE_SPONGE_H |
& - maskC(i,j,1,bi,bj) * lambda_obcs |
|
./pkg/obcs/obcs_seaice_sponge.F |
283 |
OBCS_SEAICE_SPONGE_H |
& * ( HEFF(i,j,bi,bj) - OBEh(j,bi,bj) ) |
|
./pkg/obcs/obcs_seaice_sponge.F |
297 |
OBCS_SEAICE_SPONGE_H |
i=OB_Iw(j,bi,bj)+isl |
|
./pkg/obcs/obcs_seaice_sponge.F |
298 |
OBCS_SEAICE_SPONGE_H |
IF ((i.ge.1).and.(i.le.sNx)) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
308 |
OBCS_SEAICE_SPONGE_H |
HEFF(i,j,bi,bj) = HEFF(i,j,bi,bj) |
|
./pkg/obcs/obcs_seaice_sponge.F |
309 |
OBCS_SEAICE_SPONGE_H |
& - maskC(i,j,1,bi,bj) * lambda_obcs |
|
./pkg/obcs/obcs_seaice_sponge.F |
310 |
OBCS_SEAICE_SPONGE_H |
& * ( HEFF(i,j,bi,bj) - OBWh(j,bi,bj) ) |
|
./pkg/obcs/obcs_seaice_sponge.F |
360 |
OBCS_SEAICE_SPONGE_SL |
INTEGER bi, bj, i, j, isl, jsl |
|
./pkg/obcs/obcs_seaice_sponge.F |
370 |
OBCS_SEAICE_SPONGE_SL |
DO i=1,sNx |
|
./pkg/obcs/obcs_seaice_sponge.F |
371 |
OBCS_SEAICE_SPONGE_SL |
IF ( OB_Jn(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
373 |
OBCS_SEAICE_SPONGE_SL |
j=OB_Jn(i,bi,bj)-jsl |
|
./pkg/obcs/obcs_seaice_sponge.F |
384 |
OBCS_SEAICE_SPONGE_SL |
HSALT(i,j,bi,bj) = HSALT(i,j,bi,bj) |
|
./pkg/obcs/obcs_seaice_sponge.F |
385 |
OBCS_SEAICE_SPONGE_SL |
& - maskC(i,j,1,bi,bj) * lambda_obcs |
|
./pkg/obcs/obcs_seaice_sponge.F |
386 |
OBCS_SEAICE_SPONGE_SL |
& * ( HSALT(i,j,bi,bj) - OBNsl(i,bi,bj) ) |
|
./pkg/obcs/obcs_seaice_sponge.F |
397 |
OBCS_SEAICE_SPONGE_SL |
DO i=1,sNx |
|
./pkg/obcs/obcs_seaice_sponge.F |
398 |
OBCS_SEAICE_SPONGE_SL |
IF ( OB_Js(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
400 |
OBCS_SEAICE_SPONGE_SL |
j=OB_Js(i,bi,bj)+jsl |
|
./pkg/obcs/obcs_seaice_sponge.F |
411 |
OBCS_SEAICE_SPONGE_SL |
HSALT(i,j,bi,bj) = HSALT(i,j,bi,bj) |
|
./pkg/obcs/obcs_seaice_sponge.F |
412 |
OBCS_SEAICE_SPONGE_SL |
& - maskC(i,j,1,bi,bj) * lambda_obcs |
|
./pkg/obcs/obcs_seaice_sponge.F |
413 |
OBCS_SEAICE_SPONGE_SL |
& * ( HSALT(i,j,bi,bj) - OBSsl(i,bi,bj) ) |
|
./pkg/obcs/obcs_seaice_sponge.F |
427 |
OBCS_SEAICE_SPONGE_SL |
i=OB_Ie(j,bi,bj)-isl |
|
./pkg/obcs/obcs_seaice_sponge.F |
428 |
OBCS_SEAICE_SPONGE_SL |
IF ((i.ge.1).and.(i.le.sNx)) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
438 |
OBCS_SEAICE_SPONGE_SL |
HSALT(i,j,bi,bj) = HSALT(i,j,bi,bj) |
|
./pkg/obcs/obcs_seaice_sponge.F |
439 |
OBCS_SEAICE_SPONGE_SL |
& - maskC(i,j,1,bi,bj) * lambda_obcs |
|
./pkg/obcs/obcs_seaice_sponge.F |
440 |
OBCS_SEAICE_SPONGE_SL |
& * ( HSALT(i,j,bi,bj) - OBEsl(j,bi,bj) ) |
|
./pkg/obcs/obcs_seaice_sponge.F |
454 |
OBCS_SEAICE_SPONGE_SL |
i=OB_Iw(j,bi,bj)+isl |
|
./pkg/obcs/obcs_seaice_sponge.F |
455 |
OBCS_SEAICE_SPONGE_SL |
IF ((i.ge.1).and.(i.le.sNx)) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
465 |
OBCS_SEAICE_SPONGE_SL |
HSALT(i,j,bi,bj) = HSALT(i,j,bi,bj) |
|
./pkg/obcs/obcs_seaice_sponge.F |
466 |
OBCS_SEAICE_SPONGE_SL |
& - maskC(i,j,1,bi,bj) * lambda_obcs |
|
./pkg/obcs/obcs_seaice_sponge.F |
467 |
OBCS_SEAICE_SPONGE_SL |
& * ( HSALT(i,j,bi,bj) - OBWsl(j,bi,bj) ) |
|
./pkg/obcs/obcs_seaice_sponge.F |
46 |
OBCS_SEAICE_SPONGE_A |
INTEGER bi, bj, i, j, isl, jsl |
|
./pkg/obcs/obcs_seaice_sponge.F |
517 |
OBCS_SEAICE_SPONGE_SN |
INTEGER bi, bj, i, j, isl, jsl |
|
./pkg/obcs/obcs_seaice_sponge.F |
527 |
OBCS_SEAICE_SPONGE_SN |
DO i=1,sNx |
|
./pkg/obcs/obcs_seaice_sponge.F |
528 |
OBCS_SEAICE_SPONGE_SN |
IF ( OB_Jn(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
530 |
OBCS_SEAICE_SPONGE_SN |
j=OB_Jn(i,bi,bj)-jsl |
|
./pkg/obcs/obcs_seaice_sponge.F |
541 |
OBCS_SEAICE_SPONGE_SN |
HSNOW(i,j,bi,bj) = HSNOW(i,j,bi,bj) |
|
./pkg/obcs/obcs_seaice_sponge.F |
542 |
OBCS_SEAICE_SPONGE_SN |
& - maskC(i,j,1,bi,bj) * lambda_obcs |
|
./pkg/obcs/obcs_seaice_sponge.F |
543 |
OBCS_SEAICE_SPONGE_SN |
& * ( HSNOW(i,j,bi,bj) - OBNsn(i,bi,bj) ) |
|
./pkg/obcs/obcs_seaice_sponge.F |
554 |
OBCS_SEAICE_SPONGE_SN |
DO i=1,sNx |
|
./pkg/obcs/obcs_seaice_sponge.F |
555 |
OBCS_SEAICE_SPONGE_SN |
IF ( OB_Js(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
557 |
OBCS_SEAICE_SPONGE_SN |
j=OB_Js(i,bi,bj)+jsl |
|
./pkg/obcs/obcs_seaice_sponge.F |
568 |
OBCS_SEAICE_SPONGE_SN |
HSNOW(i,j,bi,bj) = HSNOW(i,j,bi,bj) |
|
./pkg/obcs/obcs_seaice_sponge.F |
569 |
OBCS_SEAICE_SPONGE_SN |
& - maskC(i,j,1,bi,bj) * lambda_obcs |
|
./pkg/obcs/obcs_seaice_sponge.F |
56 |
OBCS_SEAICE_SPONGE_A |
DO i=1,sNx |
|
./pkg/obcs/obcs_seaice_sponge.F |
570 |
OBCS_SEAICE_SPONGE_SN |
& * ( HSNOW(i,j,bi,bj) - OBSsn(i,bi,bj) ) |
|
./pkg/obcs/obcs_seaice_sponge.F |
57 |
OBCS_SEAICE_SPONGE_A |
IF ( OB_Jn(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
584 |
OBCS_SEAICE_SPONGE_SN |
i=OB_Ie(j,bi,bj)-isl |
|
./pkg/obcs/obcs_seaice_sponge.F |
585 |
OBCS_SEAICE_SPONGE_SN |
IF ((i.ge.1).and.(i.le.sNx)) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
595 |
OBCS_SEAICE_SPONGE_SN |
HSNOW(i,j,bi,bj) = HSNOW(i,j,bi,bj) |
|
./pkg/obcs/obcs_seaice_sponge.F |
596 |
OBCS_SEAICE_SPONGE_SN |
& - maskC(i,j,1,bi,bj) * lambda_obcs |
|
./pkg/obcs/obcs_seaice_sponge.F |
597 |
OBCS_SEAICE_SPONGE_SN |
& * ( HSNOW(i,j,bi,bj) - OBEsn(j,bi,bj) ) |
|
./pkg/obcs/obcs_seaice_sponge.F |
59 |
OBCS_SEAICE_SPONGE_A |
j=OB_Jn(i,bi,bj)-jsl |
|
./pkg/obcs/obcs_seaice_sponge.F |
611 |
OBCS_SEAICE_SPONGE_SN |
i=OB_Iw(j,bi,bj)+isl |
|
./pkg/obcs/obcs_seaice_sponge.F |
612 |
OBCS_SEAICE_SPONGE_SN |
IF ((i.ge.1).and.(i.le.sNx)) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
622 |
OBCS_SEAICE_SPONGE_SN |
HSNOW(i,j,bi,bj) = HSNOW(i,j,bi,bj) |
|
./pkg/obcs/obcs_seaice_sponge.F |
623 |
OBCS_SEAICE_SPONGE_SN |
& - maskC(i,j,1,bi,bj) * lambda_obcs |
|
./pkg/obcs/obcs_seaice_sponge.F |
624 |
OBCS_SEAICE_SPONGE_SN |
& * ( HSNOW(i,j,bi,bj) - OBWsn(j,bi,bj) ) |
|
./pkg/obcs/obcs_seaice_sponge.F |
70 |
OBCS_SEAICE_SPONGE_A |
AREA(i,j,bi,bj) = AREA(i,j,bi,bj) |
|
./pkg/obcs/obcs_seaice_sponge.F |
71 |
OBCS_SEAICE_SPONGE_A |
& - maskC(i,j,1,bi,bj) * lambda_obcs |
|
./pkg/obcs/obcs_seaice_sponge.F |
72 |
OBCS_SEAICE_SPONGE_A |
& * ( AREA(i,j,bi,bj) - OBNa(i,bi,bj) ) |
|
./pkg/obcs/obcs_seaice_sponge.F |
83 |
OBCS_SEAICE_SPONGE_A |
DO i=1,sNx |
|
./pkg/obcs/obcs_seaice_sponge.F |
84 |
OBCS_SEAICE_SPONGE_A |
IF ( OB_Js(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
86 |
OBCS_SEAICE_SPONGE_A |
j=OB_Js(i,bi,bj)+jsl |
|
./pkg/obcs/obcs_seaice_sponge.F |
97 |
OBCS_SEAICE_SPONGE_A |
AREA(i,j,bi,bj) = AREA(i,j,bi,bj) |
|
./pkg/obcs/obcs_seaice_sponge.F |
98 |
OBCS_SEAICE_SPONGE_A |
& - maskC(i,j,1,bi,bj) * lambda_obcs |
|
./pkg/obcs/obcs_seaice_sponge.F |
99 |
OBCS_SEAICE_SPONGE_A |
& * ( AREA(i,j,bi,bj) - OBSa(i,bi,bj) ) |
|
./pkg/obcs/obcs_set_connect.F |
111 |
OBCS_SET_CONNECT |
DO i=1,sNx |
|
./pkg/obcs/obcs_set_connect.F |
112 |
OBCS_SET_CONNECT |
OBS_connect(i,k,bi,bj) = NINT( tmpXZ(i,k,bi,bj) ) |
|
./pkg/obcs/obcs_set_connect.F |
160 |
OBCS_SET_CONNECT |
DO i=1,sNx |
|
./pkg/obcs/obcs_set_connect.F |
161 |
OBCS_SET_CONNECT |
IF (OB_Jn(i,bi,bj).EQ.OB_indexNone) OBN_connect(i,k,bi,bj)=0 |
|
./pkg/obcs/obcs_set_connect.F |
162 |
OBCS_SET_CONNECT |
IF (OB_Js(i,bi,bj).EQ.OB_indexNone) OBS_connect(i,k,bi,bj)=0 |
|
./pkg/obcs/obcs_set_connect.F |
181 |
OBCS_SET_CONNECT |
DO i=1,sNx |
|
./pkg/obcs/obcs_set_connect.F |
182 |
OBCS_SET_CONNECT |
tmpConnect(i) = OBN_connect(i,k,bi,bj) |
|
./pkg/obcs/obcs_set_connect.F |
183 |
OBCS_SET_CONNECT |
tmpConnect(sNx+i) = OBS_connect(i,k,bi,bj) |
|
./pkg/obcs/obcs_set_connect.F |
198 |
OBCS_SET_CONNECT |
DO i=1,(sNx+sNy)*2 |
|
./pkg/obcs/obcs_set_connect.F |
199 |
OBCS_SET_CONNECT |
IF ( tmpConnect(i).GE.1 ) THEN |
|
./pkg/obcs/obcs_set_connect.F |
201 |
OBCS_SET_CONNECT |
newConnect = tmpConnect(i) |
|
./pkg/obcs/obcs_set_connect.F |
206 |
OBCS_SET_CONNECT |
IF ( tmpConnect(i).EQ.newConnect ) |
|
./pkg/obcs/obcs_set_connect.F |
207 |
OBCS_SET_CONNECT |
& tmpConnect(i) = 0 |
|
./pkg/obcs/obcs_set_connect.F |
232 |
OBCS_SET_CONNECT |
& ' ... ', (listLocal(i,bi,bj),i=j,n) |
|
./pkg/obcs/obcs_set_connect.F |
282 |
OBCS_SET_CONNECT |
& ' listConnect:', (listConnect(i),i=j,n) |
|
./pkg/obcs/obcs_set_connect.F |
294 |
OBCS_SET_CONNECT |
DO i=1,sNx |
|
./pkg/obcs/obcs_set_connect.F |
295 |
OBCS_SET_CONNECT |
tmpConnect(i) = OBN_connect(i,k,bi,bj) |
|
./pkg/obcs/obcs_set_connect.F |
296 |
OBCS_SET_CONNECT |
tmpConnect(sNx+i) = OBS_connect(i,k,bi,bj) |
|
./pkg/obcs/obcs_set_connect.F |
305 |
OBCS_SET_CONNECT |
DO i=1,(sNx+sNy)*2 |
|
./pkg/obcs/obcs_set_connect.F |
306 |
OBCS_SET_CONNECT |
IF ( tmpConnect(i).EQ.listConnect(n) ) tmpConnect(i) = n |
|
./pkg/obcs/obcs_set_connect.F |
311 |
OBCS_SET_CONNECT |
DO i=1,sNx |
|
./pkg/obcs/obcs_set_connect.F |
312 |
OBCS_SET_CONNECT |
OBN_connect(i,k,bi,bj) = tmpConnect(i) |
|
./pkg/obcs/obcs_set_connect.F |
313 |
OBCS_SET_CONNECT |
OBS_connect(i,k,bi,bj) = tmpConnect(sNx+i) |
|
./pkg/obcs/obcs_set_connect.F |
42 |
OBCS_SET_CONNECT |
INTEGER i, j, k |
|
./pkg/obcs/obcs_set_connect.F |
69 |
OBCS_SET_CONNECT |
DO i=1,sNx |
|
./pkg/obcs/obcs_set_connect.F |
70 |
OBCS_SET_CONNECT |
OBN_connect(i,k,bi,bj) = idN |
|
./pkg/obcs/obcs_set_connect.F |
71 |
OBCS_SET_CONNECT |
OBS_connect(i,k,bi,bj) = idS |
|
./pkg/obcs/obcs_set_connect.F |
94 |
OBCS_SET_CONNECT |
DO i=1,sNx |
|
./pkg/obcs/obcs_set_connect.F |
95 |
OBCS_SET_CONNECT |
OBN_connect(i,k,bi,bj) = NINT( tmpXZ(i,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
101 |
OBCS_SPONGE_U |
j=OB_Js(i,bi,bj)+jsl |
|
./pkg/obcs/obcs_sponge.F |
104 |
OBCS_SPONGE_U |
urelax= OBSu(i,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
107 |
OBCS_SPONGE_U |
& float(spongeThickness-jsl)*OBSu(i,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
108 |
OBCS_SPONGE_U |
& + float(jsl)*uVel(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
120 |
OBCS_SPONGE_U |
gU_arr(i,j) = gU_arr(i,j) |
|
./pkg/obcs/obcs_sponge.F |
121 |
OBCS_SPONGE_U |
& - _maskW(i,j,k,bi,bj) * lambda_obcs_u |
|
./pkg/obcs/obcs_sponge.F |
122 |
OBCS_SPONGE_U |
& * ( uVel(i,j,k,bi,bj) - urelax ) |
|
./pkg/obcs/obcs_sponge.F |
136 |
OBCS_SPONGE_U |
i=OB_Ie(j,bi,bj)-isl |
|
./pkg/obcs/obcs_sponge.F |
137 |
OBCS_SPONGE_U |
IF ((i.ge.imin).and.(i.le.imax)) THEN |
|
./pkg/obcs/obcs_sponge.F |
143 |
OBCS_SPONGE_U |
& + float(isl)*uVel(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
155 |
OBCS_SPONGE_U |
gU_arr(i,j) = gU_arr(i,j) |
|
./pkg/obcs/obcs_sponge.F |
156 |
OBCS_SPONGE_U |
& - _maskW(i,j,k,bi,bj) * lambda_obcs_u |
|
./pkg/obcs/obcs_sponge.F |
157 |
OBCS_SPONGE_U |
& * ( uVel(i,j,k,bi,bj) - urelax ) |
|
./pkg/obcs/obcs_sponge.F |
171 |
OBCS_SPONGE_U |
i=OB_Iw(j,bi,bj)+isl+1 |
|
./pkg/obcs/obcs_sponge.F |
172 |
OBCS_SPONGE_U |
IF ((i.ge.imin).and.(i.le.imax)) THEN |
|
./pkg/obcs/obcs_sponge.F |
178 |
OBCS_SPONGE_U |
& + float(isl)*uVel(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
190 |
OBCS_SPONGE_U |
gU_arr(i,j) = gU_arr(i,j) |
|
./pkg/obcs/obcs_sponge.F |
191 |
OBCS_SPONGE_U |
& - _maskW(i,j,k,bi,bj) * lambda_obcs_u |
|
./pkg/obcs/obcs_sponge.F |
192 |
OBCS_SPONGE_U |
& * ( uVel(i,j,k,bi,bj) - urelax ) |
|
./pkg/obcs/obcs_sponge.F |
249 |
OBCS_SPONGE_V |
INTEGER i, j, isl, jsl |
|
./pkg/obcs/obcs_sponge.F |
257 |
OBCS_SPONGE_V |
DO i=iMin,iMax |
|
./pkg/obcs/obcs_sponge.F |
258 |
OBCS_SPONGE_V |
IF ( OB_Jn(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_sponge.F |
260 |
OBCS_SPONGE_V |
j=OB_Jn(i,bi,bj)-jsl |
|
./pkg/obcs/obcs_sponge.F |
263 |
OBCS_SPONGE_V |
vrelax= OBNv(i,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
266 |
OBCS_SPONGE_V |
& float(spongeThickness-jsl)*OBNv(i,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
267 |
OBCS_SPONGE_V |
& + float(jsl)*vVel(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
279 |
OBCS_SPONGE_V |
gV_arr(i,j) = gV_arr(i,j) |
|
./pkg/obcs/obcs_sponge.F |
280 |
OBCS_SPONGE_V |
& - _maskS(i,j,k,bi,bj) * lambda_obcs_v |
|
./pkg/obcs/obcs_sponge.F |
281 |
OBCS_SPONGE_V |
& * ( vVel(i,j,k,bi,bj) - vrelax ) |
|
./pkg/obcs/obcs_sponge.F |
292 |
OBCS_SPONGE_V |
DO i=iMin,iMax |
|
./pkg/obcs/obcs_sponge.F |
293 |
OBCS_SPONGE_V |
IF ( OB_Js(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_sponge.F |
295 |
OBCS_SPONGE_V |
j=OB_Js(i,bi,bj)+jsl+1 |
|
./pkg/obcs/obcs_sponge.F |
298 |
OBCS_SPONGE_V |
vrelax= OBSv(i,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
301 |
OBCS_SPONGE_V |
& float(spongeThickness-jsl)*OBSv(i,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
302 |
OBCS_SPONGE_V |
& + float(jsl)*vVel(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
314 |
OBCS_SPONGE_V |
gV_arr(i,j) = gV_arr(i,j) |
|
./pkg/obcs/obcs_sponge.F |
315 |
OBCS_SPONGE_V |
& - _maskS(i,j,k,bi,bj) * lambda_obcs_v |
|
./pkg/obcs/obcs_sponge.F |
316 |
OBCS_SPONGE_V |
& * ( vVel(i,j,k,bi,bj) - vrelax ) |
|
./pkg/obcs/obcs_sponge.F |
330 |
OBCS_SPONGE_V |
i=OB_Ie(j,bi,bj)-isl |
|
./pkg/obcs/obcs_sponge.F |
331 |
OBCS_SPONGE_V |
IF ((i.ge.imin).and.(i.le.imax)) THEN |
|
./pkg/obcs/obcs_sponge.F |
337 |
OBCS_SPONGE_V |
& + float(isl)*vVel(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
349 |
OBCS_SPONGE_V |
gV_arr(i,j) = gV_arr(i,j) |
|
./pkg/obcs/obcs_sponge.F |
350 |
OBCS_SPONGE_V |
& - _maskS(i,j,k,bi,bj) * lambda_obcs_v |
|
./pkg/obcs/obcs_sponge.F |
351 |
OBCS_SPONGE_V |
& * ( vVel(i,j,k,bi,bj) - vrelax ) |
|
./pkg/obcs/obcs_sponge.F |
365 |
OBCS_SPONGE_V |
i=OB_Iw(j,bi,bj)+isl |
|
./pkg/obcs/obcs_sponge.F |
366 |
OBCS_SPONGE_V |
IF ((i.ge.imin).and.(i.le.imax)) THEN |
|
./pkg/obcs/obcs_sponge.F |
372 |
OBCS_SPONGE_V |
& + float(isl)*vVel(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
384 |
OBCS_SPONGE_V |
gV_arr(i,j) = gV_arr(i,j) |
|
./pkg/obcs/obcs_sponge.F |
385 |
OBCS_SPONGE_V |
& - _maskS(i,j,k,bi,bj) * lambda_obcs_v |
|
./pkg/obcs/obcs_sponge.F |
386 |
OBCS_SPONGE_V |
& * ( vVel(i,j,k,bi,bj) - vrelax ) |
|
./pkg/obcs/obcs_sponge.F |
447 |
OBCS_SPONGE_T |
INTEGER i, j, isl, jsl |
|
./pkg/obcs/obcs_sponge.F |
472 |
OBCS_SPONGE_T |
DO i=iMin,iMax |
|
./pkg/obcs/obcs_sponge.F |
473 |
OBCS_SPONGE_T |
IF ( OB_Jn(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_sponge.F |
475 |
OBCS_SPONGE_T |
j=OB_Jn(i,bi,bj)-jsl |
|
./pkg/obcs/obcs_sponge.F |
477 |
OBCS_SPONGE_T |
IF (OBNt(i,k,bi,bj).ne. 0.d0) then |
|
./pkg/obcs/obcs_sponge.F |
479 |
OBCS_SPONGE_T |
trelax = OBNt(i,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
482 |
OBCS_SPONGE_T |
& float(spongeThickness-jsl)*OBNt(i,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
483 |
OBCS_SPONGE_T |
& + float(jsl)*theta(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
495 |
OBCS_SPONGE_T |
gT_arr(i,j) = gT_arr(i,j) |
|
./pkg/obcs/obcs_sponge.F |
496 |
OBCS_SPONGE_T |
& - maskC(i,j,k,bi,bj) * lambda_obcs_t |
|
./pkg/obcs/obcs_sponge.F |
497 |
OBCS_SPONGE_T |
& * ( theta(i,j,k,bi,bj) - trelax ) |
|
./pkg/obcs/obcs_sponge.F |
512 |
OBCS_SPONGE_T |
DO i=iMin,iMax |
|
./pkg/obcs/obcs_sponge.F |
513 |
OBCS_SPONGE_T |
IF ( OB_Js(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_sponge.F |
515 |
OBCS_SPONGE_T |
j=OB_Js(i,bi,bj)+jsl |
|
./pkg/obcs/obcs_sponge.F |
517 |
OBCS_SPONGE_T |
IF (OBSt(i,k,bi,bj).ne. 0.d0) then |
|
./pkg/obcs/obcs_sponge.F |
519 |
OBCS_SPONGE_T |
trelax= OBSt(i,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
522 |
OBCS_SPONGE_T |
& float(spongeThickness-jsl)*OBSt(i,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
523 |
OBCS_SPONGE_T |
& + float(jsl)*theta(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
535 |
OBCS_SPONGE_T |
gT_arr(i,j) = gT_arr(i,j) |
|
./pkg/obcs/obcs_sponge.F |
536 |
OBCS_SPONGE_T |
& - maskC(i,j,k,bi,bj) * lambda_obcs_t |
|
./pkg/obcs/obcs_sponge.F |
537 |
OBCS_SPONGE_T |
& * ( theta(i,j,k,bi,bj) - trelax ) |
|
./pkg/obcs/obcs_sponge.F |
555 |
OBCS_SPONGE_T |
i=OB_Ie(j,bi,bj)-isl |
|
./pkg/obcs/obcs_sponge.F |
556 |
OBCS_SPONGE_T |
IF ((i.ge.imin).and.(i.le.imax)) THEN |
|
./pkg/obcs/obcs_sponge.F |
55 |
OBCS_SPONGE_U |
INTEGER i, j, isl, jsl |
|
./pkg/obcs/obcs_sponge.F |
563 |
OBCS_SPONGE_T |
& + float(isl)*theta(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
575 |
OBCS_SPONGE_T |
gT_arr(i,j) = gT_arr(i,j) |
|
./pkg/obcs/obcs_sponge.F |
576 |
OBCS_SPONGE_T |
& - maskC(i,j,k,bi,bj) * lambda_obcs_t |
|
./pkg/obcs/obcs_sponge.F |
577 |
OBCS_SPONGE_T |
& * ( theta(i,j,k,bi,bj) - trelax ) |
|
./pkg/obcs/obcs_sponge.F |
595 |
OBCS_SPONGE_T |
i=OB_Iw(j,bi,bj)+isl |
|
./pkg/obcs/obcs_sponge.F |
596 |
OBCS_SPONGE_T |
IF ((i.ge.imin).and.(i.le.imax)) THEN |
|
./pkg/obcs/obcs_sponge.F |
603 |
OBCS_SPONGE_T |
& + float(isl)*theta(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
615 |
OBCS_SPONGE_T |
gT_arr(i,j) = gT_arr(i,j) |
|
./pkg/obcs/obcs_sponge.F |
616 |
OBCS_SPONGE_T |
& - maskC(i,j,k,bi,bj) * lambda_obcs_t |
|
./pkg/obcs/obcs_sponge.F |
617 |
OBCS_SPONGE_T |
& * ( theta(i,j,k,bi,bj) - trelax ) |
|
./pkg/obcs/obcs_sponge.F |
63 |
OBCS_SPONGE_U |
DO i=iMin,iMax |
|
./pkg/obcs/obcs_sponge.F |
64 |
OBCS_SPONGE_U |
IF ( OB_Jn(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_sponge.F |
66 |
OBCS_SPONGE_U |
j=OB_Jn(i,bi,bj)-jsl |
|
./pkg/obcs/obcs_sponge.F |
679 |
OBCS_SPONGE_S |
INTEGER i, j, isl, jsl |
|
./pkg/obcs/obcs_sponge.F |
69 |
OBCS_SPONGE_U |
urelax = OBNu(i,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
704 |
OBCS_SPONGE_S |
DO i=iMin,iMax |
|
./pkg/obcs/obcs_sponge.F |
705 |
OBCS_SPONGE_S |
IF ( OB_Jn(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_sponge.F |
707 |
OBCS_SPONGE_S |
j=OB_Jn(i,bi,bj)-jsl |
|
./pkg/obcs/obcs_sponge.F |
709 |
OBCS_SPONGE_S |
IF (OBNs(i,k,bi,bj).ne. 0.d0) then |
|
./pkg/obcs/obcs_sponge.F |
711 |
OBCS_SPONGE_S |
srelax= OBNs(i,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
714 |
OBCS_SPONGE_S |
& float(spongeThickness-jsl)*OBNs(i,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
715 |
OBCS_SPONGE_S |
& + float(jsl)*salt(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
727 |
OBCS_SPONGE_S |
gS_arr(i,j) = gS_arr(i,j) |
|
./pkg/obcs/obcs_sponge.F |
728 |
OBCS_SPONGE_S |
& - maskC(i,j,k,bi,bj) * lambda_obcs_s |
|
./pkg/obcs/obcs_sponge.F |
729 |
OBCS_SPONGE_S |
& * ( salt(i,j,k,bi,bj) - srelax ) |
|
./pkg/obcs/obcs_sponge.F |
72 |
OBCS_SPONGE_U |
& float(spongeThickness-jsl)*OBNu(i,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
73 |
OBCS_SPONGE_U |
& + float(jsl)*uVel(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
744 |
OBCS_SPONGE_S |
DO i=iMin,iMax |
|
./pkg/obcs/obcs_sponge.F |
745 |
OBCS_SPONGE_S |
IF ( OB_Js(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_sponge.F |
747 |
OBCS_SPONGE_S |
j=OB_Js(i,bi,bj)+jsl |
|
./pkg/obcs/obcs_sponge.F |
749 |
OBCS_SPONGE_S |
IF (OBSs(i,k,bi,bj).ne. 0.d0) THEN |
|
./pkg/obcs/obcs_sponge.F |
751 |
OBCS_SPONGE_S |
srelax= OBSs(i,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
754 |
OBCS_SPONGE_S |
& float(spongeThickness-jsl)*OBSs(i,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
755 |
OBCS_SPONGE_S |
& + float(jsl)*salt(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
767 |
OBCS_SPONGE_S |
gS_arr(i,j) = gS_arr(i,j) |
|
./pkg/obcs/obcs_sponge.F |
768 |
OBCS_SPONGE_S |
& - maskC(i,j,k,bi,bj) * lambda_obcs_s |
|
./pkg/obcs/obcs_sponge.F |
769 |
OBCS_SPONGE_S |
& * ( salt(i,j,k,bi,bj) - srelax ) |
|
./pkg/obcs/obcs_sponge.F |
787 |
OBCS_SPONGE_S |
i=OB_Ie(j,bi,bj)-isl |
|
./pkg/obcs/obcs_sponge.F |
788 |
OBCS_SPONGE_S |
IF ((i.ge.imin).and.(i.le.imax)) THEN |
|
./pkg/obcs/obcs_sponge.F |
795 |
OBCS_SPONGE_S |
& + float(isl)*salt(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
807 |
OBCS_SPONGE_S |
gS_arr(i,j) = gS_arr(i,j) |
|
./pkg/obcs/obcs_sponge.F |
808 |
OBCS_SPONGE_S |
& - maskC(i,j,k,bi,bj) * lambda_obcs_s |
|
./pkg/obcs/obcs_sponge.F |
809 |
OBCS_SPONGE_S |
& * ( salt(i,j,k,bi,bj) - srelax ) |
|
./pkg/obcs/obcs_sponge.F |
827 |
OBCS_SPONGE_S |
i=OB_Iw(j,bi,bj)+isl |
|
./pkg/obcs/obcs_sponge.F |
828 |
OBCS_SPONGE_S |
IF ((i.ge.imin).and.(i.le.imax)) THEN |
|
./pkg/obcs/obcs_sponge.F |
835 |
OBCS_SPONGE_S |
& + float(isl)*salt(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
847 |
OBCS_SPONGE_S |
gS_arr(i,j) = gS_arr(i,j) |
|
./pkg/obcs/obcs_sponge.F |
848 |
OBCS_SPONGE_S |
& - maskC(i,j,k,bi,bj) * lambda_obcs_s |
|
./pkg/obcs/obcs_sponge.F |
849 |
OBCS_SPONGE_S |
& * ( salt(i,j,k,bi,bj) - srelax ) |
|
./pkg/obcs/obcs_sponge.F |
85 |
OBCS_SPONGE_U |
gU_arr(i,j) = gU_arr(i,j) |
|
./pkg/obcs/obcs_sponge.F |
86 |
OBCS_SPONGE_U |
& - _maskW(i,j,k,bi,bj) * lambda_obcs_u |
|
./pkg/obcs/obcs_sponge.F |
87 |
OBCS_SPONGE_U |
& * ( uVel(i,j,k,bi,bj) - urelax ) |
|
./pkg/obcs/obcs_sponge.F |
98 |
OBCS_SPONGE_U |
DO i=iMin,iMax |
|
./pkg/obcs/obcs_sponge.F |
99 |
OBCS_SPONGE_U |
IF ( OB_Js(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_u1_adv_tracer.F |
101 |
OBCS_U1_ADV_TRACER |
DO i=2-OLx,sNx+OLx |
|
./pkg/obcs/obcs_u1_adv_tracer.F |
102 |
OBCS_U1_ADV_TRACER |
tmpVar = vTrans(i,j)*maskLoc(i,j) |
|
./pkg/obcs/obcs_u1_adv_tracer.F |
103 |
OBCS_U1_ADV_TRACER |
& *( maskInC(i-1,j,bi,bj) - maskInC(i,j,bi,bj) ) |
|
./pkg/obcs/obcs_u1_adv_tracer.F |
105 |
OBCS_U1_ADV_TRACER |
vAbs = ABS(vTrans(i,j)) |
|
./pkg/obcs/obcs_u1_adv_tracer.F |
106 |
OBCS_U1_ADV_TRACER |
vT(i,j) = ( vTrans(i,j)+vAbs )* 0.5 _d 0 * tracer(i-1,j) |
|
./pkg/obcs/obcs_u1_adv_tracer.F |
107 |
OBCS_U1_ADV_TRACER |
& + ( vTrans(i,j)-vAbs )* 0.5 _d 0 * tracer(i,j) |
|
./pkg/obcs/obcs_u1_adv_tracer.F |
114 |
OBCS_U1_ADV_TRACER |
DO i=2-OLx,sNx+OLx |
|
./pkg/obcs/obcs_u1_adv_tracer.F |
115 |
OBCS_U1_ADV_TRACER |
IF ( maskLoc(i,j).EQ.1. .AND. |
|
./pkg/obcs/obcs_u1_adv_tracer.F |
116 |
OBCS_U1_ADV_TRACER |
& maskInC(i-1,j,bi,bj).NE.maskInC(i,j,bi,bj) ) THEN |
|
./pkg/obcs/obcs_u1_adv_tracer.F |
117 |
OBCS_U1_ADV_TRACER |
vAbs = ABS(vTrans(i,j)) |
|
./pkg/obcs/obcs_u1_adv_tracer.F |
118 |
OBCS_U1_ADV_TRACER |
vT(i,j) = ( vTrans(i,j)+vAbs )* 0.5 _d 0 * tracer(i-1,j) |
|
./pkg/obcs/obcs_u1_adv_tracer.F |
119 |
OBCS_U1_ADV_TRACER |
& + ( vTrans(i,j)-vAbs )* 0.5 _d 0 * tracer(i,j) |
|
./pkg/obcs/obcs_u1_adv_tracer.F |
131 |
OBCS_U1_ADV_TRACER |
DO i=1-OLx,sNx+OLx |
|
./pkg/obcs/obcs_u1_adv_tracer.F |
132 |
OBCS_U1_ADV_TRACER |
tmpVar = vTrans(i,j)*maskLoc(i,j) |
|
./pkg/obcs/obcs_u1_adv_tracer.F |
133 |
OBCS_U1_ADV_TRACER |
& *( maskInC(i,j-1,bi,bj) - maskInC(i,j,bi,bj) ) |
|
./pkg/obcs/obcs_u1_adv_tracer.F |
135 |
OBCS_U1_ADV_TRACER |
vAbs = ABS(vTrans(i,j)) |
|
./pkg/obcs/obcs_u1_adv_tracer.F |
136 |
OBCS_U1_ADV_TRACER |
vT(i,j) = ( vTrans(i,j)+vAbs )* 0.5 _d 0 * tracer(i,j-1) |
|
./pkg/obcs/obcs_u1_adv_tracer.F |
137 |
OBCS_U1_ADV_TRACER |
& + ( vTrans(i,j)-vAbs )* 0.5 _d 0 * tracer(i,j) |
|
./pkg/obcs/obcs_u1_adv_tracer.F |
144 |
OBCS_U1_ADV_TRACER |
DO i=1-OLx,sNx+OLx |
|
./pkg/obcs/obcs_u1_adv_tracer.F |
145 |
OBCS_U1_ADV_TRACER |
IF ( maskLoc(i,j).EQ.1. .AND. |
|
./pkg/obcs/obcs_u1_adv_tracer.F |
146 |
OBCS_U1_ADV_TRACER |
& maskInC(i,j-1,bi,bj).NE.maskInC(i,j,bi,bj) ) THEN |
|
./pkg/obcs/obcs_u1_adv_tracer.F |
147 |
OBCS_U1_ADV_TRACER |
vAbs = ABS(vTrans(i,j)) |
|
./pkg/obcs/obcs_u1_adv_tracer.F |
148 |
OBCS_U1_ADV_TRACER |
vT(i,j) = ( vTrans(i,j)+vAbs )* 0.5 _d 0 * tracer(i,j-1) |
|
./pkg/obcs/obcs_u1_adv_tracer.F |
149 |
OBCS_U1_ADV_TRACER |
& + ( vTrans(i,j)-vAbs )* 0.5 _d 0 * tracer(i,j) |
|
./pkg/obcs/obcs_u1_adv_tracer.F |
63 |
OBCS_U1_ADV_TRACER |
INTEGER i,j |
|
./model/src/cycle_tracer.F |
43 |
CYCLE_TRACER |
INTEGER i,j,k |
|
./model/src/cycle_tracer.F |
49 |
CYCLE_TRACER |
DO i=1-OLx,sNx+OLx |
|
./model/src/cycle_tracer.F |
50 |
CYCLE_TRACER |
tracer(i,j,k) = gTracer(i,j,k) |
|
./pkg/ocn_compon_interf/cpl_diagnostics_fill.F |
111 |
CPL_DIAGNOSTICS_FILL |
DO i=1-OLx,sNx+OLx |
|
./pkg/ocn_compon_interf/cpl_diagnostics_fill.F |
112 |
CPL_DIAGNOSTICS_FILL |
tmpFld(i,j) = sIceFrac_cpl(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/cpl_diagnostics_fill.F |
113 |
CPL_DIAGNOSTICS_FILL |
& * sIceThick_cpl(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/cpl_diagnostics_fill.F |
43 |
CPL_DIAGNOSTICS_FILL |
INTEGER i,j |
|
./model/src/diags_oceanic_surf_flux.F |
120 |
DIAGS_OCEANIC_SURF_FLUX |
DO i = 1,sNx |
|
./model/src/diags_oceanic_surf_flux.F |
121 |
DIAGS_OCEANIC_SURF_FLUX |
tmp1k(i,j,bi,bj) = |
|
./model/src/diags_oceanic_surf_flux.F |
123 |
DIAGS_OCEANIC_SURF_FLUX |
& -Qsw(i,j,bi,bj)+ |
|
./model/src/diags_oceanic_surf_flux.F |
125 |
DIAGS_OCEANIC_SURF_FLUX |
& (surfaceForcingT(i,j,bi,bj)+surfaceForcingTice(i,j,bi,bj)) |
|
./model/src/diags_oceanic_surf_flux.F |
133 |
DIAGS_OCEANIC_SURF_FLUX |
DO i=1,sNx |
|
./model/src/diags_oceanic_surf_flux.F |
134 |
DIAGS_OCEANIC_SURF_FLUX |
tmp1k(i,j,bi,bj) = tmp1k(i,j,bi,bj) |
|
./model/src/diags_oceanic_surf_flux.F |
135 |
DIAGS_OCEANIC_SURF_FLUX |
& + PmEpR(i,j,bi,bj)*theta(i,j,ks,bi,bj)*HeatCapacity_Cp |
|
./model/src/diags_oceanic_surf_flux.F |
156 |
DIAGS_OCEANIC_SURF_FLUX |
DO i = 1,sNx |
|
./model/src/diags_oceanic_surf_flux.F |
157 |
DIAGS_OCEANIC_SURF_FLUX |
tmp1k(i,j,bi,bj) = |
|
./model/src/diags_oceanic_surf_flux.F |
158 |
DIAGS_OCEANIC_SURF_FLUX |
& surfaceForcingS(i,j,bi,bj)*rUnit2mass |
|
./model/src/diags_oceanic_surf_flux.F |
166 |
DIAGS_OCEANIC_SURF_FLUX |
DO i=1,sNx |
|
./model/src/diags_oceanic_surf_flux.F |
167 |
DIAGS_OCEANIC_SURF_FLUX |
tmp1k(i,j,bi,bj) = tmp1k(i,j,bi,bj) |
|
./model/src/diags_oceanic_surf_flux.F |
168 |
DIAGS_OCEANIC_SURF_FLUX |
& + PmEpR(i,j,bi,bj)*salt(i,j,ks,bi,bj) |
|
./model/src/diags_oceanic_surf_flux.F |
49 |
DIAGS_OCEANIC_SURF_FLUX |
INTEGER i,j,bi,bj |
|
./pkg/ocn_compon_interf/cpl_import_cplparms.F |
40 |
CPL_IMPORT_CPLPARMS |
INTEGER i |
|
./pkg/ocn_compon_interf/cpl_import_cplparms.F |
51 |
CPL_IMPORT_CPLPARMS |
DO i=1,ocnParSize |
|
./pkg/ocn_compon_interf/cpl_import_cplparms.F |
52 |
CPL_IMPORT_CPLPARMS |
parBuf(i) = 0 |
|
./pkg/ocn_compon_interf/cpl_import_cplparms.F |
64 |
CPL_IMPORT_CPLPARMS |
& ' CPL_IMPORT_CPLPARMS: Recv parBuf=', (parBuf(i),i=1,ocnParSize) |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
45 |
CPL_INI_VARS |
INTEGER i,j,bi,bj |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
52 |
CPL_INI_VARS |
ocMxlD2cpl(i,j,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
53 |
CPL_INI_VARS |
SSTocn2cpl(i,j,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
54 |
CPL_INI_VARS |
SSSocn2cpl(i,j,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
55 |
CPL_INI_VARS |
vSqocn2cpl(i,j,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
57 |
CPL_INI_VARS |
fluxCO2cpl(i,j,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
61 |
CPL_INI_VARS |
sIceFrac_cpl (i,j,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
64 |
CPL_INI_VARS |
sIceThick_cpl (i,j,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
65 |
CPL_INI_VARS |
sIceSnowH_cpl (i,j,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
66 |
CPL_INI_VARS |
sIceQ1_cpl (i,j,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
67 |
CPL_INI_VARS |
sIceQ2_cpl (i,j,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
70 |
CPL_INI_VARS |
atmSLPr (i,j,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
71 |
CPL_INI_VARS |
HeatFlux (i,j,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
72 |
CPL_INI_VARS |
qShortWave(i,j,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
73 |
CPL_INI_VARS |
tauX (i,j,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
74 |
CPL_INI_VARS |
tauY (i,j,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
75 |
CPL_INI_VARS |
FWflux (i,j,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
76 |
CPL_INI_VARS |
iceSaltFlx(i,j,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
77 |
CPL_INI_VARS |
seaIceMass(i,j,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
79 |
CPL_INI_VARS |
saltPlmFlx_cpl(i,j,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
82 |
CPL_INI_VARS |
RunOff_cpl(i,j,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
83 |
CPL_INI_VARS |
airCO2 (i,j,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
84 |
CPL_INI_VARS |
surfWSpeed(i,j,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
100 |
OCN_APPLY_IMPORT |
DO i=1-OLx,sNx+OLx |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
101 |
OCN_APPLY_IMPORT |
Qnet(i,j,bi,bj)= HeatFlux (i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
106 |
OCN_APPLY_IMPORT |
DO i=1-OLx,sNx+OLx |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
107 |
OCN_APPLY_IMPORT |
Qsw(i,j,bi,bj) = qShortWave(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
116 |
OCN_APPLY_IMPORT |
DO i=1-OLx,sNx+OLx |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
117 |
OCN_APPLY_IMPORT |
iceMask (i,j,bi,bj) = sIceFrac_cpl (i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
118 |
OCN_APPLY_IMPORT |
iceHeight (i,j,bi,bj) = sIceThick_cpl(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
119 |
OCN_APPLY_IMPORT |
snowHeight(i,j,bi,bj) = sIceSnowH_cpl(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
120 |
OCN_APPLY_IMPORT |
Qice1 (i,j,bi,bj) = sIceQ1_cpl (i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
121 |
OCN_APPLY_IMPORT |
Qice2 (i,j,bi,bj) = sIceQ2_cpl (i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
132 |
OCN_APPLY_IMPORT |
DO i=1-OLx,sNx+OLx |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
133 |
OCN_APPLY_IMPORT |
phi0surf(i,j,bi,bj) = atmSLPr(i,j,bi,bj)*recip_rhoConst |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
134 |
OCN_APPLY_IMPORT |
& + gravity*seaIceMass(i,j,bi,bj)*recip_rhoConst |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
139 |
OCN_APPLY_IMPORT |
DO i=1-OLx,sNx+OLx |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
140 |
OCN_APPLY_IMPORT |
phi0surf(i,j,bi,bj) = pLoad(i,j,bi,bj)*recip_rhoConst |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
141 |
OCN_APPLY_IMPORT |
& + gravity*seaIceMass(i,j,bi,bj)*recip_rhoConst |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
146 |
OCN_APPLY_IMPORT |
DO i=1-OLx,sNx+OLx |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
147 |
OCN_APPLY_IMPORT |
phi0surf(i,j,bi,bj) = atmSLPr(i,j,bi,bj)*recip_rhoConst |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
154 |
OCN_APPLY_IMPORT |
DO i=1-OLx,sNx+OLx |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
155 |
OCN_APPLY_IMPORT |
EmPmR(i,j,bi,bj) = FWFlux (i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
47 |
OCN_APPLY_IMPORT |
INTEGER bi,bj,i,j |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
60 |
OCN_APPLY_IMPORT |
DO i=1-OLx,sNx+OLx |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
61 |
OCN_APPLY_IMPORT |
fu(i,j,bi,bj) = tauX(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
62 |
OCN_APPLY_IMPORT |
fv(i,j,bi,bj) = tauY(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
68 |
OCN_APPLY_IMPORT |
DO i=1-OLx,sNx+OLx |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
69 |
OCN_APPLY_IMPORT |
pLoad(i,j,bi,bj) = atmSLPr(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
75 |
OCN_APPLY_IMPORT |
DO i=1-OLx,sNx+OLx |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
76 |
OCN_APPLY_IMPORT |
sIceLoad(i,j,bi,bj) = seaIceMass(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
84 |
OCN_APPLY_IMPORT |
DO i=1-OLx,sNx+OLx |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
85 |
OCN_APPLY_IMPORT |
EmPmR(i,j,bi,bj) = FWFlux (i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
91 |
OCN_APPLY_IMPORT |
DO i=1-OLx,sNx+OLx |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
92 |
OCN_APPLY_IMPORT |
saltFlux(i,j,bi,bj)= iceSaltFlx(i,j,bi,bj) |
|
./model/src/diags_phi_hyd.F |
100 |
DIAGS_PHI_HYD |
dPhiRef =( Ro_surf(i,j,bi,bj)-rC(k) )*recip_rhoConst |
|
./model/src/diags_phi_hyd.F |
101 |
DIAGS_PHI_HYD |
totPhiHyd(i,j,k,bi,bj) = |
|
./model/src/diags_phi_hyd.F |
102 |
DIAGS_PHI_HYD |
& phiHydC(i,j)*rStarFacC(i,j,bi,bj) |
|
./model/src/diags_phi_hyd.F |
104 |
DIAGS_PHI_HYD |
& *( rStarFacC(i,j,bi,bj) - 1. _d 0 ) |
|
./model/src/diags_phi_hyd.F |
105 |
DIAGS_PHI_HYD |
& + phi0surf(i,j,bi,bj) |
|
./model/src/diags_phi_hyd.F |
111 |
DIAGS_PHI_HYD |
DO i=iMin,iMax |
|
./model/src/diags_phi_hyd.F |
112 |
DIAGS_PHI_HYD |
dPhiRef =( Ro_surf(i,j,bi,bj)-rC(k) )*gravity |
|
./model/src/diags_phi_hyd.F |
113 |
DIAGS_PHI_HYD |
totPhiHyd(i,j,k,bi,bj) = |
|
./model/src/diags_phi_hyd.F |
114 |
DIAGS_PHI_HYD |
& phiHydC(i,j)*rStarFacC(i,j,bi,bj) |
|
./model/src/diags_phi_hyd.F |
116 |
DIAGS_PHI_HYD |
& *( rStarFacC(i,j,bi,bj) - 1. _d 0 ) |
|
./model/src/diags_phi_hyd.F |
117 |
DIAGS_PHI_HYD |
& + phi0surf(i,j,bi,bj) |
|
./model/src/diags_phi_hyd.F |
56 |
DIAGS_PHI_HYD |
INTEGER i,j |
|
./model/src/diags_phi_hyd.F |
64 |
DIAGS_PHI_HYD |
DO i=iMin,iMax |
|
./model/src/diags_phi_hyd.F |
65 |
DIAGS_PHI_HYD |
totPhiHyd(i,j,k,bi,bj) = phiHydC(i,j) |
|
./model/src/diags_phi_hyd.F |
66 |
DIAGS_PHI_HYD |
& + Bo_surf(i,j,bi,bj)*etaN(i,j,bi,bj) |
|
./model/src/diags_phi_hyd.F |
67 |
DIAGS_PHI_HYD |
& + phi0surf(i,j,bi,bj) |
|
./model/src/diags_phi_hyd.F |
69 |
DIAGS_PHI_HYD |
phiHydCstR(i,j) = totPhiHyd(i,j,k,bi,bj) |
|
./model/src/diags_phi_hyd.F |
82 |
DIAGS_PHI_HYD |
DO i=iMin,iMax |
|
./model/src/diags_phi_hyd.F |
83 |
DIAGS_PHI_HYD |
facP = pStarFacK(i,j,bi,bj) |
|
./model/src/diags_phi_hyd.F |
84 |
DIAGS_PHI_HYD |
dPhiRef = phiRef(2*k) - gravity*topoZ(i,j,bi,bj) |
|
./model/src/diags_phi_hyd.F |
85 |
DIAGS_PHI_HYD |
& - phi0surf(i,j,bi,bj) |
|
./model/src/diags_phi_hyd.F |
86 |
DIAGS_PHI_HYD |
totPhiHyd(i,j,k,bi,bj) = |
|
./model/src/diags_phi_hyd.F |
87 |
DIAGS_PHI_HYD |
& phiHydC(i,j)*facP |
|
./model/src/diags_phi_hyd.F |
89 |
DIAGS_PHI_HYD |
& + phi0surf(i,j,bi,bj) |
|
./model/src/diags_phi_hyd.F |
96 |
DIAGS_PHI_HYD |
DO i=iMin,iMax |
|
./pkg/ocn_compon_interf/ocn_check_cplconfig.F |
45 |
OCN_CHECK_CPLCONFIG |
INTEGER i, j, bi, bj |
|
./pkg/ocn_compon_interf/ocn_check_cplconfig.F |
81 |
OCN_CHECK_CPLCONFIG |
DO i=1,sNx |
|
./pkg/ocn_compon_interf/ocn_check_cplconfig.F |
82 |
OCN_CHECK_CPLCONFIG |
IF ( ( landMask(i,j,bi,bj) .EQ. atm_waterOnly |
|
./pkg/ocn_compon_interf/ocn_check_cplconfig.F |
83 |
OCN_CHECK_CPLCONFIG |
& .AND. R_low(i,j,bi,bj) .EQ. depth_noWater ) |
|
./pkg/ocn_compon_interf/ocn_check_cplconfig.F |
84 |
OCN_CHECK_CPLCONFIG |
& .OR. ( landMask(i,j,bi,bj) .EQ. atm_landOnly |
|
./pkg/ocn_compon_interf/ocn_check_cplconfig.F |
85 |
OCN_CHECK_CPLCONFIG |
& .AND. R_low(i,j,bi,bj) .NE. depth_noWater ) ) THEN |
|
./pkg/ocn_compon_interf/ocn_check_cplconfig.F |
88 |
OCN_CHECK_CPLCONFIG |
& 'Inconsistent land/sea mask @ (i=', i, ',j=', j, |
|
./pkg/ocn_compon_interf/ocn_check_cplconfig.F |
92 |
OCN_CHECK_CPLCONFIG |
& 'Land (atmosphere) ==', landMask(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_check_cplconfig.F |
95 |
OCN_CHECK_CPLCONFIG |
& 'Depth (ocean) ==', R_low(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
44 |
OCN_CPL_DIAGS |
INTEGER i,j |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
58 |
OCN_CPL_DIAGS |
DO i=1,sNx |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
59 |
OCN_CPL_DIAGS |
SLPtave(i,j,bi,bj) = SLPtave(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
60 |
OCN_CPL_DIAGS |
& + DDTT * atmSLPr(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
61 |
OCN_CPL_DIAGS |
HFtave(i,j,bi,bj) = HFtave(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
62 |
OCN_CPL_DIAGS |
& + DDTT * HeatFlux(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
63 |
OCN_CPL_DIAGS |
QSWtave(i,j,bi,bj) = QSWtave(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
64 |
OCN_CPL_DIAGS |
& + DDTT * qShortWave(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
65 |
OCN_CPL_DIAGS |
TXtave(i,j,bi,bj) = TXtave(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
66 |
OCN_CPL_DIAGS |
& + DDTT * tauX(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
67 |
OCN_CPL_DIAGS |
TYtave(i,j,bi,bj) = TYtave(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
68 |
OCN_CPL_DIAGS |
& + DDTT * tauY(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
69 |
OCN_CPL_DIAGS |
FWtave(i,j,bi,bj) = FWtave(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
70 |
OCN_CPL_DIAGS |
& + DDTT * FWFlux(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
71 |
OCN_CPL_DIAGS |
SFxtave(i,j,bi,bj) = SFxtave(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
72 |
OCN_CPL_DIAGS |
& + DDTT * iceSaltFlx(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
73 |
OCN_CPL_DIAGS |
SICtave(i,j,bi,bj) = SICtave(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
74 |
OCN_CPL_DIAGS |
& + DDTT * seaIceMass(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
75 |
OCN_CPL_DIAGS |
MXLtave(i,j,bi,bj) = MXLtave(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
76 |
OCN_CPL_DIAGS |
& + DDTT * ocMxlD2cpl(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
77 |
OCN_CPL_DIAGS |
SSTtave(i,j,bi,bj) = SSTtave(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
78 |
OCN_CPL_DIAGS |
& + DDTT * SSTocn2cpl(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
79 |
OCN_CPL_DIAGS |
SSStave(i,j,bi,bj) = SSStave(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
80 |
OCN_CPL_DIAGS |
& + DDTT * SSSocn2cpl(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
81 |
OCN_CPL_DIAGS |
vSqtave(i,j,bi,bj) = vSqtave(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
82 |
OCN_CPL_DIAGS |
& + DDTT * vSqocn2cpl(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
85 |
OCN_CPL_DIAGS |
iceftave(i,j,bi,bj) = iceftave(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
86 |
OCN_CPL_DIAGS |
& + DDTT * sIceFrac_cpl(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
87 |
OCN_CPL_DIAGS |
aCO2tave(i,j,bi,bj) = aCO2tave(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
88 |
OCN_CPL_DIAGS |
& + DDTT * airCO2(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
89 |
OCN_CPL_DIAGS |
sWSpdtave(i,j,bi,bj) = sWSpdtave(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
90 |
OCN_CPL_DIAGS |
& + DDTT * surfWSpeed(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
91 |
OCN_CPL_DIAGS |
fCO2tave(i,j,bi,bj) = fCO2tave(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
92 |
OCN_CPL_DIAGS |
& + DDTT * fluxCO2cpl(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_export_ocnconfig.F |
37 |
OCN_EXPORT_OCNCONFIG |
INTEGER i,j,bi,bj |
|
./pkg/ocn_compon_interf/ocn_export_ocnconfig.F |
44 |
OCN_EXPORT_OCNCONFIG |
DO i=1-OLx,sNx+OLx |
|
./pkg/ocn_compon_interf/ocn_export_ocnconfig.F |
45 |
OCN_EXPORT_OCNCONFIG |
ocMxlD2cpl(i,j,bi,bj) = hFacC(i,j,1,bi,bj)*drF(1) |
|
./pkg/ocn_compon_interf/ocn_import_atmconfig.F |
39 |
OCN_IMPORT_ATMCONFIG |
INTEGER i,j,bi,bj |
|
./pkg/ocn_compon_interf/ocn_import_atmconfig.F |
45 |
OCN_IMPORT_ATMCONFIG |
DO i=1-OLx,sNx+OLx |
|
./pkg/ocn_compon_interf/ocn_import_atmconfig.F |
46 |
OCN_IMPORT_ATMCONFIG |
landMask(i,j,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/ocn_store_my_data.F |
100 |
OCN_STORE_MY_DATA |
vSqocn2cpl(i,j,bi,bj) = |
|
./pkg/ocn_compon_interf/ocn_store_my_data.F |
101 |
OCN_STORE_MY_DATA |
& ( uVel(i , j,1,bi,bj)*uVel(i , j,1,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_store_my_data.F |
102 |
OCN_STORE_MY_DATA |
& + uVel(i+1,j,1,bi,bj)*uVel(i+1,j,1,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_store_my_data.F |
103 |
OCN_STORE_MY_DATA |
& + vVel(i,j+1,1,bi,bj)*vVel(i,j+1,1,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_store_my_data.F |
104 |
OCN_STORE_MY_DATA |
& + vVel(i,j , 1,bi,bj)*vVel(i,j , 1,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_store_my_data.F |
112 |
OCN_STORE_MY_DATA |
DO i=1,sNx |
|
./pkg/ocn_compon_interf/ocn_store_my_data.F |
113 |
OCN_STORE_MY_DATA |
sIceFrac_cpl (i,j,bi,bj) = iceMask(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_store_my_data.F |
114 |
OCN_STORE_MY_DATA |
sIceThick_cpl(i,j,bi,bj) = iceHeight(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_store_my_data.F |
115 |
OCN_STORE_MY_DATA |
sIceSnowH_cpl(i,j,bi,bj) = snowHeight(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_store_my_data.F |
116 |
OCN_STORE_MY_DATA |
sIceQ1_cpl (i,j,bi,bj) = Qice1(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_store_my_data.F |
117 |
OCN_STORE_MY_DATA |
sIceQ2_cpl (i,j,bi,bj) = Qice2(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_store_my_data.F |
59 |
OCN_STORE_MY_DATA |
INTEGER i, j |
|
./pkg/ocn_compon_interf/ocn_store_my_data.F |
66 |
OCN_STORE_MY_DATA |
DO i=1,sNx |
|
./pkg/ocn_compon_interf/ocn_store_my_data.F |
67 |
OCN_STORE_MY_DATA |
SSTocn2cpl(i,j,bi,bj) = theta(i,j,1,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_store_my_data.F |
68 |
OCN_STORE_MY_DATA |
SSSocn2cpl(i,j,bi,bj) = salt (i,j,1,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_store_my_data.F |
75 |
OCN_STORE_MY_DATA |
DO i=1,sNx |
|
./pkg/ocn_compon_interf/ocn_store_my_data.F |
76 |
OCN_STORE_MY_DATA |
ocMxlD2cpl(i,j,bi,bj) = |
|
./pkg/ocn_compon_interf/ocn_store_my_data.F |
77 |
OCN_STORE_MY_DATA |
& h0FacC(i,j,1,bi,bj)*rStarFacC(i,j,bi,bj)*drF(1) |
|
./pkg/ocn_compon_interf/ocn_store_my_data.F |
82 |
OCN_STORE_MY_DATA |
DO i=1,sNx |
|
./pkg/ocn_compon_interf/ocn_store_my_data.F |
83 |
OCN_STORE_MY_DATA |
ocMxlD2cpl(i,j,bi,bj) = hFac_surfC(i,j,bi,bj)*drF(1) |
|
./pkg/ocn_compon_interf/ocn_store_my_data.F |
92 |
OCN_STORE_MY_DATA |
DO i=1,sNx |
|
./pkg/ocn_compon_interf/ocn_store_my_data.F |
93 |
OCN_STORE_MY_DATA |
ocMxlD2cpl(i,j,bi,bj) = hFacC(i,j,1,bi,bj)*drF(1) |
|
./pkg/ocn_compon_interf/ocn_store_my_data.F |
99 |
OCN_STORE_MY_DATA |
DO i=1,sNx |
|
./model/src/diags_phi_rlow.F |
107 |
DIAGS_PHI_RLOW |
DO i=iMin,iMax |
|
./model/src/diags_phi_rlow.F |
108 |
DIAGS_PHI_RLOW |
IF ( k .EQ. kLowC(i,j,bi,bj) ) THEN |
|
./model/src/diags_phi_rlow.F |
109 |
DIAGS_PHI_RLOW |
ddRloc = rC(k)-R_low(i,j,bi,bj) |
|
./model/src/diags_phi_rlow.F |
110 |
DIAGS_PHI_RLOW |
phiHydLow(i,j,bi,bj) = phiHydC(i,j) |
|
./model/src/diags_phi_rlow.F |
113 |
DIAGS_PHI_RLOW |
& )*gravity*alphRho(i,j)*recip_rhoConst |
|
./model/src/diags_phi_rlow.F |
131 |
DIAGS_PHI_RLOW |
DO i=iMin,iMax |
|
./model/src/diags_phi_rlow.F |
132 |
DIAGS_PHI_RLOW |
phiHydLow(i,j,bi,bj) = phiHydF(i,j) |
|
./model/src/diags_phi_rlow.F |
144 |
DIAGS_PHI_RLOW |
DO i=iMin,iMax |
|
./model/src/diags_phi_rlow.F |
145 |
DIAGS_PHI_RLOW |
facP = pStarFacK(i,j,bi,bj) |
|
./model/src/diags_phi_rlow.F |
146 |
DIAGS_PHI_RLOW |
dPhiRef = phiRef(2*k+1) - gravity*topoZ(i,j,bi,bj) |
|
./model/src/diags_phi_rlow.F |
147 |
DIAGS_PHI_RLOW |
& - phi0surf(i,j,bi,bj) |
|
./model/src/diags_phi_rlow.F |
148 |
DIAGS_PHI_RLOW |
phiHydLow(i,j,bi,bj) = |
|
./model/src/diags_phi_rlow.F |
149 |
DIAGS_PHI_RLOW |
& phiHydLow(i,j,bi,bj)*facP |
|
./model/src/diags_phi_rlow.F |
151 |
DIAGS_PHI_RLOW |
& + phi0surf(i,j,bi,bj) |
|
./model/src/diags_phi_rlow.F |
158 |
DIAGS_PHI_RLOW |
DO i=iMin,iMax |
|
./model/src/diags_phi_rlow.F |
159 |
DIAGS_PHI_RLOW |
dPhiRef = ( Ro_surf(i,j,bi,bj) - R_low(i,j,bi,bj) ) |
|
./model/src/diags_phi_rlow.F |
161 |
DIAGS_PHI_RLOW |
phiHydLow(i,j,bi,bj) = |
|
./model/src/diags_phi_rlow.F |
162 |
DIAGS_PHI_RLOW |
& phiHydLow(i,j,bi,bj)*rStarFacC(i,j,bi,bj) |
|
./model/src/diags_phi_rlow.F |
163 |
DIAGS_PHI_RLOW |
& + dPhiRef*( rStarFacC(i,j,bi,bj) - 1. _d 0 ) |
|
./model/src/diags_phi_rlow.F |
164 |
DIAGS_PHI_RLOW |
& + phi0surf(i,j,bi,bj) |
|
./model/src/diags_phi_rlow.F |
171 |
DIAGS_PHI_RLOW |
DO i=iMin,iMax |
|
./model/src/diags_phi_rlow.F |
172 |
DIAGS_PHI_RLOW |
dPhiRef = ( Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj) ) |
|
./model/src/diags_phi_rlow.F |
174 |
DIAGS_PHI_RLOW |
phiHydLow(i,j,bi,bj) = |
|
./model/src/diags_phi_rlow.F |
175 |
DIAGS_PHI_RLOW |
& phiHydLow(i,j,bi,bj)*rStarFacC(i,j,bi,bj) |
|
./model/src/diags_phi_rlow.F |
176 |
DIAGS_PHI_RLOW |
& + dPhiRef*( rStarFacC(i,j,bi,bj) - 1. _d 0 ) |
|
./model/src/diags_phi_rlow.F |
177 |
DIAGS_PHI_RLOW |
& + phi0surf(i,j,bi,bj) |
|
./model/src/diags_phi_rlow.F |
187 |
DIAGS_PHI_RLOW |
DO i=iMin,iMax |
|
./model/src/diags_phi_rlow.F |
188 |
DIAGS_PHI_RLOW |
phiHydLow(i,j,bi,bj) = phiHydLow(i,j,bi,bj) |
|
./model/src/diags_phi_rlow.F |
189 |
DIAGS_PHI_RLOW |
& + Bo_surf(i,j,bi,bj)*etaN(i,j,bi,bj) |
|
./model/src/diags_phi_rlow.F |
190 |
DIAGS_PHI_RLOW |
& + phi0surf(i,j,bi,bj) |
|
./model/src/diags_phi_rlow.F |
61 |
DIAGS_PHI_RLOW |
INTEGER i,j |
|
./model/src/diags_phi_rlow.F |
77 |
DIAGS_PHI_RLOW |
DO i=1-OLx,sNx+OLx |
|
./model/src/diags_phi_rlow.F |
78 |
DIAGS_PHI_RLOW |
phiHydLow(i,j,bi,bj) = 0. _d 0 |
|
./model/src/diags_phi_rlow.F |
87 |
DIAGS_PHI_RLOW |
DO i=iMin,iMax |
|
./model/src/diags_phi_rlow.F |
88 |
DIAGS_PHI_RLOW |
IF ( k .EQ. kLowC(i,j,bi,bj) ) THEN |
|
./model/src/diags_phi_rlow.F |
89 |
DIAGS_PHI_RLOW |
ddRloc = rC(k)-R_low(i,j,bi,bj) |
|
./model/src/diags_phi_rlow.F |
90 |
DIAGS_PHI_RLOW |
phiHydLow(i,j,bi,bj) = phiHydC(i,j) |
|
./model/src/diags_phi_rlow.F |
91 |
DIAGS_PHI_RLOW |
& + ddRloc*gravFacC(k)*gravity*alphRho(i,j)*recip_rhoConst |
|
./pkg/offline/offline_fields_load.F |
368 |
OFFLINE_FIELDS_LOAD |
DO i=1-OLx,sNx+OLx |
|
./pkg/offline/offline_fields_load.F |
369 |
OFFLINE_FIELDS_LOAD |
uVel(i,j,k,bi,bj) = bWght*uvel0(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
370 |
OFFLINE_FIELDS_LOAD |
& + aWght*uvel1(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
371 |
OFFLINE_FIELDS_LOAD |
vVel(i,j,k,bi,bj) = bWght*vvel0(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
372 |
OFFLINE_FIELDS_LOAD |
& + aWght*vvel1(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
373 |
OFFLINE_FIELDS_LOAD |
wVel(i,j,k,bi,bj) = bWght*wvel0(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
374 |
OFFLINE_FIELDS_LOAD |
& + aWght*wvel1(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
375 |
OFFLINE_FIELDS_LOAD |
theta(i,j,k,bi,bj)= bWght*tave0(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
376 |
OFFLINE_FIELDS_LOAD |
& + aWght*tave1(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
377 |
OFFLINE_FIELDS_LOAD |
salt(i,j,k,bi,bj) = bWght*save0(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
378 |
OFFLINE_FIELDS_LOAD |
& + aWght*save1(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
386 |
OFFLINE_FIELDS_LOAD |
DO i=1-OLx,sNx+OLx |
|
./pkg/offline/offline_fields_load.F |
387 |
OFFLINE_FIELDS_LOAD |
uVel(i,j,k,bi,bj) = uVel(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
388 |
OFFLINE_FIELDS_LOAD |
& / rStarFacW(i,j,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
389 |
OFFLINE_FIELDS_LOAD |
vVel(i,j,k,bi,bj) = vVel(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
390 |
OFFLINE_FIELDS_LOAD |
& / rStarFacS(i,j,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
73 |
OFFLINE_FIELDS_LOAD |
INTEGER bi,bj,i,j,k |
|
./pkg/offline/offline_get_diffus.F |
106 |
OFFLINE_GET_DIFFUS |
DO i=1-OLx,sNx+OLx |
|
./pkg/offline/offline_get_diffus.F |
107 |
OFFLINE_GET_DIFFUS |
Kwx(i,j,k,bi,bj) = bWght*gmkx0(i,j,k,bi,bj) |
|
./pkg/offline/offline_get_diffus.F |
108 |
OFFLINE_GET_DIFFUS |
& + aWght*gmkx1(i,j,k,bi,bj) |
|
./pkg/offline/offline_get_diffus.F |
109 |
OFFLINE_GET_DIFFUS |
Kwy(i,j,k,bi,bj) = bWght*gmky0(i,j,k,bi,bj) |
|
./pkg/offline/offline_get_diffus.F |
110 |
OFFLINE_GET_DIFFUS |
& + aWght*gmky1(i,j,k,bi,bj) |
|
./pkg/offline/offline_get_diffus.F |
111 |
OFFLINE_GET_DIFFUS |
Kwz(i,j,k,bi,bj) = bWght*gmkz0(i,j,k,bi,bj) |
|
./pkg/offline/offline_get_diffus.F |
112 |
OFFLINE_GET_DIFFUS |
& + aWght*gmkz1(i,j,k,bi,bj) |
|
./pkg/offline/offline_get_diffus.F |
122 |
OFFLINE_GET_DIFFUS |
DO i=1-OLx,sNx+OLx |
|
./pkg/offline/offline_get_diffus.F |
123 |
OFFLINE_GET_DIFFUS |
KPPdiffKzS(i,j,k,bi,bj) = bWght*kdfs0(i,j,k,bi,bj) |
|
./pkg/offline/offline_get_diffus.F |
124 |
OFFLINE_GET_DIFFUS |
& + aWght*kdfs1(i,j,k,bi,bj) |
|
./pkg/offline/offline_get_diffus.F |
127 |
OFFLINE_GET_DIFFUS |
KPPghat(i,j,k,bi,bj) = bWght*kght0(i,j,k,bi,bj) |
|
./pkg/offline/offline_get_diffus.F |
128 |
OFFLINE_GET_DIFFUS |
& + aWght*kght1(i,j,k,bi,bj) |
|
./pkg/offline/offline_get_diffus.F |
140 |
OFFLINE_GET_DIFFUS |
DO i=1-OLx,sNx+OLx |
|
./pkg/offline/offline_get_diffus.F |
141 |
OFFLINE_GET_DIFFUS |
surfaceForcingS(i,j,bi,bj) = bWght*sflx0(i,j,bi,bj) |
|
./pkg/offline/offline_get_diffus.F |
142 |
OFFLINE_GET_DIFFUS |
& + aWght*sflx1(i,j,bi,bj) |
|
./pkg/offline/offline_get_diffus.F |
143 |
OFFLINE_GET_DIFFUS |
surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj) |
|
./pkg/offline/offline_get_diffus.F |
54 |
OFFLINE_GET_DIFFUS |
INTEGER i,j,k |
|
./pkg/offline/offline_get_diffus.F |
85 |
OFFLINE_GET_DIFFUS |
DO i=1-OLx,sNx+OLx |
|
./pkg/offline/offline_get_diffus.F |
86 |
OFFLINE_GET_DIFFUS |
wVel(i,j,k,bi,bj) = bWght*wvel0(i,j,k,bi,bj) |
|
./pkg/offline/offline_get_diffus.F |
87 |
OFFLINE_GET_DIFFUS |
& + aWght*wvel1(i,j,k,bi,bj) |
|
./pkg/offline/offline_get_diffus.F |
95 |
OFFLINE_GET_DIFFUS |
DO i=1-OLx,sNx+OLx |
|
./pkg/offline/offline_get_diffus.F |
96 |
OFFLINE_GET_DIFFUS |
IVDConvCount(i,j,k,bi,bj) = bWght*conv0(i,j,k,bi,bj) |
|
./pkg/offline/offline_get_diffus.F |
97 |
OFFLINE_GET_DIFFUS |
& + aWght*conv1(i,j,k,bi,bj) |
|
./pkg/offline/offline_init_varia.F |
27 |
OFFLINE_INIT_VARIA |
INTEGER i,j,k,bi,bj |
|
./pkg/offline/offline_init_varia.F |
36 |
OFFLINE_INIT_VARIA |
DO i=1-OLx,sNx+OLx |
|
./pkg/offline/offline_init_varia.F |
37 |
OFFLINE_INIT_VARIA |
uvel0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
38 |
OFFLINE_INIT_VARIA |
uvel1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
39 |
OFFLINE_INIT_VARIA |
vvel0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
40 |
OFFLINE_INIT_VARIA |
vvel1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
41 |
OFFLINE_INIT_VARIA |
wvel0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
42 |
OFFLINE_INIT_VARIA |
wvel1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
43 |
OFFLINE_INIT_VARIA |
tave0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
44 |
OFFLINE_INIT_VARIA |
tave1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
45 |
OFFLINE_INIT_VARIA |
save0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
46 |
OFFLINE_INIT_VARIA |
save1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
47 |
OFFLINE_INIT_VARIA |
gmkx0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
48 |
OFFLINE_INIT_VARIA |
gmkx1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
49 |
OFFLINE_INIT_VARIA |
gmky0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
50 |
OFFLINE_INIT_VARIA |
gmky1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
51 |
OFFLINE_INIT_VARIA |
gmkz0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
52 |
OFFLINE_INIT_VARIA |
gmkz1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
53 |
OFFLINE_INIT_VARIA |
conv0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
54 |
OFFLINE_INIT_VARIA |
conv1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
55 |
OFFLINE_INIT_VARIA |
kdfs0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
56 |
OFFLINE_INIT_VARIA |
kdfs1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
57 |
OFFLINE_INIT_VARIA |
kght0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
58 |
OFFLINE_INIT_VARIA |
kght1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
63 |
OFFLINE_INIT_VARIA |
DO i=1-OLx,sNx+OLx |
|
./pkg/offline/offline_init_varia.F |
66 |
OFFLINE_INIT_VARIA |
sflx0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
67 |
OFFLINE_INIT_VARIA |
sflx1(i,j,bi,bj) = 0. _d 0 |
|
./model/src/diags_rho.F |
150 |
DIAGS_RHO_G |
INTEGER i,j |
|
./model/src/diags_rho.F |
168 |
DIAGS_RHO_G |
DO i=1,sNx+1 |
|
./model/src/diags_rho.F |
169 |
DIAGS_RHO_G |
tmpFld(i,j) = uFld(i,j,k,bi,bj)*_hFacW(i,j,k,bi,bj) |
|
./model/src/diags_rho.F |
170 |
DIAGS_RHO_G |
& *(rho3d(i-1,j,k,bi,bj)+rho3d(i,j,k,bi,bj)) |
|
./model/src/diags_rho.F |
185 |
DIAGS_RHO_G |
DO i=1,sNx |
|
./model/src/diags_rho.F |
186 |
DIAGS_RHO_G |
tmpFld(i,j) = vFld(i,j,k,bi,bj)*_hFacS(i,j,k,bi,bj) |
|
./model/src/diags_rho.F |
187 |
DIAGS_RHO_G |
& *(rho3d(i,j-1,k,bi,bj)+rho3d(i,j,k,bi,bj)) |
|
./model/src/diags_rho.F |
203 |
DIAGS_RHO_G |
DO i=1,sNx |
|
./model/src/diags_rho.F |
204 |
DIAGS_RHO_G |
tmpFld(i,j) = wFld(i,j,k,bi,bj)*rho3d(i,j,k,bi,bj) |
|
./model/src/diags_rho.F |
209 |
DIAGS_RHO_G |
DO i=1,sNx |
|
./model/src/diags_rho.F |
210 |
DIAGS_RHO_G |
tmpFld(i,j) = wFld(i,j,k,bi,bj) |
|
./model/src/diags_rho.F |
211 |
DIAGS_RHO_G |
& *(rho3d(i,j,k-1,bi,bj)+rho3d(i,j,k,bi,bj)) |
|
./model/src/diags_rho.F |
63 |
DIAGS_RHO_L |
INTEGER i,j |
|
./model/src/diags_rho.F |
72 |
DIAGS_RHO_L |
DO i=1,sNx |
|
./model/src/diags_rho.F |
73 |
DIAGS_RHO_L |
tmpFld(i,j) = wFld(i,j,k,bi,bj) |
|
./model/src/diags_rho.F |
74 |
DIAGS_RHO_L |
& *( rho3d(i,j,k) - rhoKm1(i,j) )*rkSign |
|
./model/src/diags_rho.F |
85 |
DIAGS_RHO_L |
DO i=1,sNx |
|
./model/src/diags_rho.F |
86 |
DIAGS_RHO_L |
tmpFld(i,j) = wFld(i,j,k,bi,bj) |
|
./model/src/diags_rho.F |
87 |
DIAGS_RHO_L |
& *( rhoKm1(i,j) - rho3d(i,j,k-1) )*rkSign |
|
./pkg/openad/externalDummies.F |
221 |
STREAMICE_SMOOTH_ADJOINT_FIELD |
INTEGER i, j, bi, bj, k |
|
./pkg/openad/externalDummies.F |
228 |
STREAMICE_SMOOTH_ADJOINT_FIELD |
DO i=1-OLx,sNx+OLx |
|
./pkg/openad/externalDummies.F |
230 |
STREAMICE_SMOOTH_ADJOINT_FIELD |
q_int1(i,j,bi,bj) = 0.0 |
|
./pkg/openad/externalDummies.F |
231 |
STREAMICE_SMOOTH_ADJOINT_FIELD |
q_int2(i,j,bi,bj) = 0.0 |
|
./pkg/openad/externalDummies.F |
232 |
STREAMICE_SMOOTH_ADJOINT_FIELD |
X(i,j,bi,bj) = X(i,j,bi,bj) * 1.0 |
|
./model/src/do_atmospheric_phys.F |
108 |
DO_ATMOSPHERIC_PHYS |
DO i=1-OLx,sNx+OLx |
|
./model/src/do_atmospheric_phys.F |
109 |
DO_ATMOSPHERIC_PHYS |
rhoInSitu(i,j,k,bi,bj) = 0. |
|
./model/src/do_atmospheric_phys.F |
65 |
DO_ATMOSPHERIC_PHYS |
INTEGER i, j, k |
|
./model/src/do_atmospheric_phys.F |
91 |
DO_ATMOSPHERIC_PHYS |
DO i=1-OLx,sNx+OLx |
|
./model/src/do_atmospheric_phys.F |
92 |
DO_ATMOSPHERIC_PHYS |
rhoInSitu(i,j,k,bi,bj) = |
|
./model/src/do_atmospheric_phys.F |
93 |
DO_ATMOSPHERIC_PHYS |
& ( theta(i,j,k,bi,bj) |
|
./model/src/do_atmospheric_phys.F |
94 |
DO_ATMOSPHERIC_PHYS |
& *( salt(i,j,k,bi,bj)*atm_Rq + oneRL ) |
|
./model/src/do_atmospheric_phys.F |
95 |
DO_ATMOSPHERIC_PHYS |
& - thetaRef )*maskC(i,j,k,bi,bj) |
|
./pkg/opps/opps_calc.F |
139 |
OPPS_CALC |
Dd(k)=STATE1(Pd(k,2),Pd(k,1),i,j,k,bi,bj,myThid) |
|
./pkg/opps/opps_calc.F |
177 |
OPPS_CALC |
D1=STATE1( Pd(k2,2), Pd(k2,1),i,j,k2+1,bi,bj,myThid) |
|
./pkg/opps/opps_calc.F |
179 |
OPPS_CALC |
& i,j,k2+1,bi,bj,myThid) |
|
./pkg/opps/opps_calc.F |
233 |
OPPS_CALC |
Dd(k2+1)=STATE1(Pd(k2+1,2),Pd(k2+1,1),i,j,k2+1,bi,bj,myThid) |
|
./pkg/opps/opps_calc.F |
440 |
OPPS_CALC |
_RL FUNCTION STATE1( sLoc, tLoc, i, j, kRef, bi, bj, myThid ) |
|
./pkg/opps/opps_calc.F |
466 |
OPPS_CALC |
INTEGER i, j, kRef, bi, bj, myThid |
|
./pkg/opps/opps_calc.F |
482 |
OPPS_CALC |
pLoc = rhoConst*( totPhiHyd(i,j,kRef,bi,bj) |
|
./pkg/opps/opps_calc.F |
483 |
OPPS_CALC |
& + phi_nh(i,j,kRef,bi,bj) |
|
./pkg/opps/opps_calc.F |
485 |
OPPS_CALC |
& )*maskC(i,j,kRef,bi,bj) |
|
./pkg/opps/opps_calc.F |
494 |
OPPS_CALC |
pLoc = rhoConst*( totPhiHyd(i,j,kRef,bi,bj) |
|
./pkg/opps/opps_calc.F |
496 |
OPPS_CALC |
& )*maskC(i,j,kRef,bi,bj) |
|
./pkg/opps/opps_calc.F |
501 |
OPPS_CALC |
pLoc = pRef4EOS(kRef)*maskC(i,j,kRef,bi,bj) |
|
./pkg/opps/opps_calc.F |
503 |
OPPS_CALC |
pLoc = rhoConst*phiRef(2*kRef)*maskC(i,j,kRef,bi,bj) |
|
./pkg/opps/opps_calc.F |
507 |
OPPS_CALC |
pLoc = rC(kRef)* maskC(i,j,kRef,bi,bj) |
|
./pkg/opps/opps_calc.F |
570 |
NLOPPS |
INTEGER i,j,k |
|
./pkg/opps/opps_calc.F |
634 |
NLOPPS |
DO i=is,ie |
|
./pkg/opps/opps_calc.F |
636 |
NLOPPS |
numgridpoints=kmp(i,j) |
|
./pkg/opps/opps_calc.F |
649 |
NLOPPS |
stemp(k)=sa(i,k) |
|
./pkg/opps/opps_calc.F |
650 |
NLOPPS |
ttemp(k)=ta(i,k) |
|
./pkg/opps/opps_calc.F |
659 |
NLOPPS |
if(sa(i,k).gt.40..or.ta(i,k).lt.-4.0) then |
|
./pkg/opps/opps_calc.F |
668 |
NLOPPS |
write(*,*)"T and S Profile at ",i,j |
|
./pkg/opps/opps_calc.F |
669 |
NLOPPS |
write(*,*)(ta(i,k),sa(i,k),k=1,NumGridPoints) |
|
./pkg/opps/opps_calc.F |
909 |
NLOPPS |
convadj(i,j,k2) = convadj(i,j,k2) + (ttemp(k2)- |
|
./pkg/opps/opps_calc.F |
910 |
NLOPPS |
* ta(i,k2)) |
|
./pkg/opps/opps_calc.F |
911 |
NLOPPS |
sa(i,k2) = stemp(k2) |
|
./pkg/opps/opps_calc.F |
912 |
NLOPPS |
ta(i,k2) = ttemp(k2) |
|
./pkg/opps/opps_calc.F |
919 |
NLOPPS |
if(sa(i,k).gt.40..or.ta(i,k).lt.-4.0) then |
|
./pkg/opps/opps_init.F |
31 |
OPPS_INIT |
INTEGER i, j, k, bi, bj |
|
./pkg/opps/opps_init.F |
41 |
OPPS_INIT |
do i = 1-OLx, sNx+OLx |
|
./pkg/pp81/pp81_calc.F |
88 |
PP81_CALC |
& diffKr(i,j,k,bi,bj) ) |
|
./pkg/pp81/pp81_calc_diff.F |
47 |
PP81_CALC_DIFF |
INTEGER i,j,k |
|
./pkg/pp81/pp81_calc_diff.F |
54 |
PP81_CALC_DIFF |
DO i=iMin,iMax |
|
./pkg/pp81/pp81_calc_diff.F |
55 |
PP81_CALC_DIFF |
KappaRx(i,j,k) = KappaRx(i,j,k) |
|
./pkg/pp81/pp81_calc_diff.F |
56 |
PP81_CALC_DIFF |
& +( PPdiffKr(i,j,k,bi,bj) |
|
./pkg/pp81/pp81_calc_diff.F |
58 |
PP81_CALC_DIFF |
& - diffKr(i,j,k,bi,bj) ) |
|
./pkg/pp81/pp81_calc_diff.F |
69 |
PP81_CALC_DIFF |
DO i=iMin,iMax |
|
./pkg/pp81/pp81_calc_diff.F |
70 |
PP81_CALC_DIFF |
KappaRx(i,j,k) = KappaRx(i,j,k) |
|
./pkg/pp81/pp81_calc_diff.F |
71 |
PP81_CALC_DIFF |
& +( PPdiffKr(i,j,kArg,bi,bj) |
|
./pkg/pp81/pp81_calc_diff.F |
73 |
PP81_CALC_DIFF |
& - diffKr(i,j,kArg,bi,bj) ) |
|
./pkg/pp81/pp81_calc_visc.F |
40 |
PP81_CALC_VISC |
INTEGER i,j |
|
./pkg/pp81/pp81_calc_visc.F |
43 |
PP81_CALC_VISC |
DO i=iMin,iMax |
|
./pkg/pp81/pp81_calc_visc.F |
44 |
PP81_CALC_VISC |
KappaRU(i,j,k) = max ( KappaRU(i,j,k), |
|
./pkg/pp81/pp81_calc_visc.F |
45 |
PP81_CALC_VISC |
& KappaRU(i,j,k) - viscArNr(k) + _maskW(i,j,k,bi,bj) * |
|
./pkg/pp81/pp81_calc_visc.F |
46 |
PP81_CALC_VISC |
& 0.5*(PPviscAr(i,j,k,bi,bj)+PPviscAr(i-1,j,k,bi,bj)) ) |
|
./pkg/pp81/pp81_calc_visc.F |
51 |
PP81_CALC_VISC |
DO i=iMin,iMax |
|
./pkg/pp81/pp81_calc_visc.F |
52 |
PP81_CALC_VISC |
KappaRV(i,j,k) = max ( KappaRV(i,j,k), |
|
./pkg/pp81/pp81_calc_visc.F |
53 |
PP81_CALC_VISC |
& KappaRV(i,j,k) - viscArNr(k) + _maskS(i,j,k,bi,bj) * |
|
./pkg/pp81/pp81_calc_visc.F |
54 |
PP81_CALC_VISC |
& 0.5*(PPviscAr(i,j,k,bi,bj)+PPviscAr(i,j-1,k,bi,bj)) ) |
|
./model/src/do_oceanic_phys.F |
215 |
DO_OCEANIC_PHYS |
INTEGER i, j, k |
|
./model/src/do_oceanic_phys.F |
291 |
DO_OCEANIC_PHYS |
DO i=1-OLx,sNx+OLx |
|
./model/src/do_oceanic_phys.F |
292 |
DO_OCEANIC_PHYS |
saltPlumeDepth(i,j,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
293 |
DO_OCEANIC_PHYS |
saltPlumeFlux(i,j,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
305 |
DO_OCEANIC_PHYS |
DO i=1-OLx,sNx+OLx |
|
./model/src/do_oceanic_phys.F |
306 |
DO_OCEANIC_PHYS |
sigmaRfield(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
641 |
DO_OCEANIC_PHYS |
DO i=1-OLx,sNx+OLx |
|
./model/src/do_oceanic_phys.F |
643 |
DO_OCEANIC_PHYS |
sigmaX(i,j,k) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
644 |
DO_OCEANIC_PHYS |
sigmaY(i,j,k) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
645 |
DO_OCEANIC_PHYS |
sigmaR(i,j,k) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
652 |
DO_OCEANIC_PHYS |
DO i=1-OLx,sNx+OLx |
|
./model/src/do_oceanic_phys.F |
653 |
DO_OCEANIC_PHYS |
rhoKm1 (i,j) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
654 |
DO_OCEANIC_PHYS |
rhoKp1 (i,j) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
661 |
DO_OCEANIC_PHYS |
DO i=1-OLx,sNx+OLx |
|
./model/src/do_oceanic_phys.F |
662 |
DO_OCEANIC_PHYS |
rhoInSitu(i,j,k,bi,bj) = 0. |
|
./model/src/do_oceanic_phys.F |
664 |
DO_OCEANIC_PHYS |
GGL90viscArU(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
665 |
DO_OCEANIC_PHYS |
GGL90viscArV(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
666 |
DO_OCEANIC_PHYS |
GGL90diffKr(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
670 |
DO_OCEANIC_PHYS |
SPforcingS(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
671 |
DO_OCEANIC_PHYS |
SPforcingT(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
682 |
DO_OCEANIC_PHYS |
DO i=1-OLx,sNx+OLx |
|
./model/src/do_oceanic_phys.F |
683 |
DO_OCEANIC_PHYS |
IVDConvCount(i,j,k,bi,bj) = 0. |
|
./model/src/do_oceanic_phys.F |
694 |
DO_OCEANIC_PHYS |
DO i=1-OLx,sNx+OLx |
|
./model/src/do_oceanic_phys.F |
695 |
DO_OCEANIC_PHYS |
Kwx(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
696 |
DO_OCEANIC_PHYS |
Kwy(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
697 |
DO_OCEANIC_PHYS |
Kwz(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
699 |
DO_OCEANIC_PHYS |
Kux(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
700 |
DO_OCEANIC_PHYS |
Kvy(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
703 |
DO_OCEANIC_PHYS |
Kuz(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
704 |
DO_OCEANIC_PHYS |
Kvz(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
707 |
DO_OCEANIC_PHYS |
GM_PsiX(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
708 |
DO_OCEANIC_PHYS |
GM_PsiY(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
711 |
DO_OCEANIC_PHYS |
VisbeckK(i,j,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
724 |
DO_OCEANIC_PHYS |
DO i=1-OLx,sNx+OLx |
|
./model/src/do_oceanic_phys.F |
725 |
DO_OCEANIC_PHYS |
KPPdiffKzS(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
726 |
DO_OCEANIC_PHYS |
KPPdiffKzT(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
812 |
DO_OCEANIC_PHYS |
DO i=1-OLx,sNx+OLx |
|
./model/src/do_oceanic_phys.F |
813 |
DO_OCEANIC_PHYS |
rhoInSitu(i,j,k,bi,bj) = |
|
./model/src/do_oceanic_phys.F |
814 |
DO_OCEANIC_PHYS |
& ( theta(i,j,k,bi,bj) |
|
./model/src/do_oceanic_phys.F |
815 |
DO_OCEANIC_PHYS |
& *( salt(i,j,k,bi,bj)*atm_Rq + oneRL ) |
|
./model/src/do_oceanic_phys.F |
816 |
DO_OCEANIC_PHYS |
& - thetaRef )*maskC(i,j,k,bi,bj) |
|
./model/src/do_oceanic_phys.F |
876 |
DO_OCEANIC_PHYS |
DO i=iMin,iMax |
|
./model/src/do_oceanic_phys.F |
877 |
DO_OCEANIC_PHYS |
rhoKp1(i,j) = rhoInSitu(i,j,k,bi,bj) |
|
./model/src/do_oceanic_phys.F |
888 |
DO_OCEANIC_PHYS |
DO i=iMin,iMax |
|
./model/src/do_oceanic_phys.F |
889 |
DO_OCEANIC_PHYS |
sigmaRfield(i,j,k,bi,bj)=sigmaR(i,j,k) |
|
./pkg/pp81/pp81_init_varia.F |
31 |
PP81_INIT_VARIA |
INTEGER i, j, k, bi, bj |
|
./pkg/pp81/pp81_init_varia.F |
41 |
PP81_INIT_VARIA |
DO i = 1-OLx, sNx+OLx |
|
./pkg/pp81/pp81_init_varia.F |
42 |
PP81_INIT_VARIA |
PPviscAr (i,j,k,bi,bj) = viscArNr(k) |
|
./pkg/pp81/pp81_init_varia.F |
43 |
PP81_INIT_VARIA |
PPdiffKr (i,j,k,bi,bj) = diffKrNrS(k) |
|
./pkg/profiles/active_file_control_profiles.F |
138 |
ACTIVE_READ_PROFILE_RL |
do i = 1,nactive_var |
|
./pkg/profiles/active_file_control_profiles.F |
139 |
ACTIVE_READ_PROFILE_RL |
active_data_t(i) = active_data_t(i) + active_var(i) |
|
./pkg/profiles/active_file_control_profiles.F |
153 |
ACTIVE_READ_PROFILE_RL |
do i = 1,nactive_var |
|
./pkg/profiles/active_file_control_profiles.F |
154 |
ACTIVE_READ_PROFILE_RL |
active_var(i) = 0. _d 0 |
|
./pkg/profiles/active_file_control_profiles.F |
171 |
ACTIVE_READ_PROFILE_RL |
do i = 1,nactive_var |
|
./pkg/profiles/active_file_control_profiles.F |
172 |
ACTIVE_READ_PROFILE_RL |
active_data_t(i) = active_data_t(i) + active_var(i) |
|
./pkg/profiles/active_file_control_profiles.F |
187 |
ACTIVE_READ_PROFILE_RL |
do i = 1,nactive_var |
|
./pkg/profiles/active_file_control_profiles.F |
188 |
ACTIVE_READ_PROFILE_RL |
active_var(i) = 0. _d 0 |
|
./pkg/profiles/active_file_control_profiles.F |
292 |
ACTIVE_WRITE_PROFILE_RL |
integer i |
|
./pkg/profiles/active_file_control_profiles.F |
378 |
ACTIVE_WRITE_PROFILE_RL |
do i = 1,nactive_var |
|
./pkg/profiles/active_file_control_profiles.F |
379 |
ACTIVE_WRITE_PROFILE_RL |
active_var(i) = active_var(i) + active_data_t(i) |
|
./pkg/profiles/active_file_control_profiles.F |
380 |
ACTIVE_WRITE_PROFILE_RL |
active_data_t(i) = 0. _d 0 |
|
./pkg/profiles/active_file_control_profiles.F |
407 |
ACTIVE_WRITE_PROFILE_RL |
do i = 1,nactive_var |
|
./pkg/profiles/active_file_control_profiles.F |
408 |
ACTIVE_WRITE_PROFILE_RL |
active_var(i) = active_var(i) + active_data_t(i) |
|
./pkg/profiles/active_file_control_profiles.F |
409 |
ACTIVE_WRITE_PROFILE_RL |
active_data_t(i) = 0. _d 0 |
|
./pkg/profiles/active_file_control_profiles.F |
61 |
ACTIVE_READ_PROFILE_RL |
integer i,ivar |
|
./pkg/profiles/profiles_init_fixed.F |
41 |
PROFILES_INIT_FIXED |
integer i,j,k,l,m,bi,bj,iG,jG,num_file,ProfNo_tile |
|
./pkg/profiles/profiles_init_fixed.F |
440 |
PROFILES_INIT_FIXED |
DO i=1,sNx+1 |
|
./pkg/profiles/profiles_init_fixed.F |
443 |
PROFILES_INIT_FIXED |
if ((yC(i,j,bi,bj).LE.lat_cur).AND. |
|
./pkg/profiles/profiles_init_fixed.F |
444 |
PROFILES_INIT_FIXED |
& (yC(i,j+1,bi,bj).GT.lat_cur)) then |
|
./pkg/profiles/profiles_init_fixed.F |
446 |
PROFILES_INIT_FIXED |
lat_1=yC(i,j,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
447 |
PROFILES_INIT_FIXED |
lat_2=yC(i,j+1,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
451 |
PROFILES_INIT_FIXED |
if (xC(i+1,j,bi,bj).LT.xC(1,j,bi,bj)) then |
|
./pkg/profiles/profiles_init_fixed.F |
452 |
PROFILES_INIT_FIXED |
lon_tmp2=xC(i+1,j,bi,bj)+360 |
|
./pkg/profiles/profiles_init_fixed.F |
454 |
PROFILES_INIT_FIXED |
lon_tmp2=xC(i+1,j,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
456 |
PROFILES_INIT_FIXED |
if (xC(i,j,bi,bj).LT.xC(1,j,bi,bj)) then |
|
./pkg/profiles/profiles_init_fixed.F |
457 |
PROFILES_INIT_FIXED |
lon_tmp1=xC(i,j,bi,bj)+360 |
|
./pkg/profiles/profiles_init_fixed.F |
459 |
PROFILES_INIT_FIXED |
lon_tmp1=xC(i,j,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
463 |
PROFILES_INIT_FIXED |
prof_i=i |
|
./pkg/ptracers/ptracers_apply_forcing.F |
107 |
PTRACERS_APPLY_FORCING |
DO i=0,sNx+1 |
|
./pkg/ptracers/ptracers_apply_forcing.F |
108 |
PTRACERS_APPLY_FORCING |
IF ( kSurfC(i,j,bi,bj).EQ.k ) THEN |
|
./pkg/ptracers/ptracers_apply_forcing.F |
109 |
PTRACERS_APPLY_FORCING |
gPtracer(i,j) = gPtracer(i,j) |
|
./pkg/ptracers/ptracers_apply_forcing.F |
111 |
PTRACERS_APPLY_FORCING |
& *_recip_hFacC(i,j,k,bi,bj) |
|
./pkg/ptracers/ptracers_apply_forcing.F |
55 |
PTRACERS_APPLY_FORCING |
INTEGER i,j |
|
./pkg/ptracers/ptracers_apply_forcing.F |
87 |
PTRACERS_APPLY_FORCING |
DO i=0,sNx+1 |
|
./pkg/ptracers/ptracers_apply_forcing.F |
88 |
PTRACERS_APPLY_FORCING |
gPtracer(i,j) = gPtracer(i,j) |
|
./pkg/ptracers/ptracers_apply_forcing.F |
89 |
PTRACERS_APPLY_FORCING |
& + surfForcPtr(i,j) |
|
./pkg/ptracers/ptracers_apply_forcing.F |
90 |
PTRACERS_APPLY_FORCING |
& *recip_drF(k)*recip_hFacC(i,j,k,bi,bj) |
|
./pkg/ptracers/ptracers_apply_forcing.F |
95 |
PTRACERS_APPLY_FORCING |
DO i=0,sNx+1 |
|
./pkg/ptracers/ptracers_apply_forcing.F |
96 |
PTRACERS_APPLY_FORCING |
IF ( kSurfC(i,j,bi,bj).EQ.k ) THEN |
|
./pkg/ptracers/ptracers_apply_forcing.F |
97 |
PTRACERS_APPLY_FORCING |
gPtracer(i,j) = gPtracer(i,j) |
|
./pkg/ptracers/ptracers_apply_forcing.F |
98 |
PTRACERS_APPLY_FORCING |
& + surfForcPtr(i,j) |
|
./pkg/ptracers/ptracers_apply_forcing.F |
99 |
PTRACERS_APPLY_FORCING |
& *recip_drF(k)*recip_hFacC(i,j,k,bi,bj) |
|
./pkg/ptracers/ptracers_calc_wsurf_tr.F |
47 |
PTRACERS_CALC_WSURF_TR |
INTEGER i,j,bi,bj,ks,itr |
|
./pkg/ptracers/ptracers_calc_wsurf_tr.F |
65 |
PTRACERS_CALC_WSURF_TR |
DO i=1,sNx |
|
./pkg/ptracers/ptracers_calc_wsurf_tr.F |
66 |
PTRACERS_CALC_WSURF_TR |
ks = ksurfC(i,j,bi,bj) |
|
./pkg/ptracers/ptracers_calc_wsurf_tr.F |
69 |
PTRACERS_CALC_WSURF_TR |
& + rA(i,j,bi,bj)*wVelFld(i,j,ks,bi,bj) |
|
./pkg/ptracers/ptracers_calc_wsurf_tr.F |
70 |
PTRACERS_CALC_WSURF_TR |
& *ptracer(i,j,ks,bi,bj,iTr) |
|
./pkg/ptracers/ptracers_check_pickup.F |
47 |
PTRACERS_CHECK_PICKUP |
INTEGER i, iTracer |
|
./pkg/ptracers/ptracers_check_pickup.F |
75 |
PTRACERS_CHECK_PICKUP |
DO i=1,PTRACERS_numInUse |
|
./pkg/ptracers/ptracers_check_pickup.F |
77 |
PTRACERS_CHECK_PICKUP |
& ioLabel.EQ.PTRACERS_ioLabel(i) ) iTracer = i |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
113 |
PTRACERS_DIAGNOSTICS_STATE |
DO i = 1,sNx |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
118 |
PTRACERS_DIAGNOSTICS_STATE |
dummy(i,j,k,bi,bj) = |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
119 |
PTRACERS_DIAGNOSTICS_STATE |
& LS_vVel(i,j,k,bi,bj)*hFacS(i,j,k,bi,bj) * |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
120 |
PTRACERS_DIAGNOSTICS_STATE |
& 0.5 _d 0*( pTracer(i,j,k,bi,bj,iTr) |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
121 |
PTRACERS_DIAGNOSTICS_STATE |
& + pTracer(i,j-1,k,bi,bj,iTr) ) |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
126 |
PTRACERS_DIAGNOSTICS_STATE |
dummy(i,j,k,bi,bj) = |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
127 |
PTRACERS_DIAGNOSTICS_STATE |
& vVel(i,j,k,bi,bj)*hFacS(i,j,k,bi,bj) * |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
128 |
PTRACERS_DIAGNOSTICS_STATE |
& 0.5 _d 0*( pTracer(i,j,k,bi,bj,iTr) |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
129 |
PTRACERS_DIAGNOSTICS_STATE |
& + pTracer(i,j-1,k,bi,bj,iTr) ) |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
147 |
PTRACERS_DIAGNOSTICS_STATE |
DO i = 1,sNx |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
152 |
PTRACERS_DIAGNOSTICS_STATE |
dummy(i,j,k,bi,bj) = LS_wVel(i,j,k,bi,bj) * |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
153 |
PTRACERS_DIAGNOSTICS_STATE |
& 0.5 _d 0*( pTracer(i,j,k,bi,bj,iTr) |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
154 |
PTRACERS_DIAGNOSTICS_STATE |
& + pTracer(i,j,km1,bi,bj,iTr) ) |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
159 |
PTRACERS_DIAGNOSTICS_STATE |
dummy(i,j,k,bi,bj) = wVel(i,j,k,bi,bj) * |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
160 |
PTRACERS_DIAGNOSTICS_STATE |
& 0.5 _d 0*( pTracer(i,j,k,bi,bj,iTr) |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
161 |
PTRACERS_DIAGNOSTICS_STATE |
& + pTracer(i,j,km1,bi,bj,iTr) ) |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
41 |
PTRACERS_DIAGNOSTICS_STATE |
INTEGER i,j,k,bi,bj,iTr |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
80 |
PTRACERS_DIAGNOSTICS_STATE |
DO i = 1,sNx+1 |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
85 |
PTRACERS_DIAGNOSTICS_STATE |
dummy(i,j,k,bi,bj) = |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
86 |
PTRACERS_DIAGNOSTICS_STATE |
& LS_uVel(i,j,k,bi,bj)*hFacW(i,j,k,bi,bj) * |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
87 |
PTRACERS_DIAGNOSTICS_STATE |
& 0.5 _d 0*( pTracer(i,j,k,bi,bj,iTr) |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
88 |
PTRACERS_DIAGNOSTICS_STATE |
& + pTracer(i-1,j,k,bi,bj,iTr) ) |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
93 |
PTRACERS_DIAGNOSTICS_STATE |
dummy(i,j,k,bi,bj) = |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
94 |
PTRACERS_DIAGNOSTICS_STATE |
& uVel(i,j,k,bi,bj)*hFacW(i,j,k,bi,bj) * |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
95 |
PTRACERS_DIAGNOSTICS_STATE |
& 0.5 _d 0*( pTracer(i,j,k,bi,bj,iTr) |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
96 |
PTRACERS_DIAGNOSTICS_STATE |
& + pTracer(i-1,j,k,bi,bj,iTr) ) |
|
./pkg/ptracers/ptracers_forcing_surf.F |
110 |
PTRACERS_FORCING_SURF |
DO i = iMin, iMax |
|
./pkg/ptracers/ptracers_forcing_surf.F |
111 |
PTRACERS_FORCING_SURF |
add2EmP(i,j) = 0. _d 0 |
|
./pkg/ptracers/ptracers_forcing_surf.F |
130 |
PTRACERS_FORCING_SURF |
DO i = iMin, iMax |
|
./pkg/ptracers/ptracers_forcing_surf.F |
131 |
PTRACERS_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = |
|
./pkg/ptracers/ptracers_forcing_surf.F |
132 |
PTRACERS_FORCING_SURF |
& surfaceForcingPTr(i,j,bi,bj,iTrc) |
|
./pkg/ptracers/ptracers_forcing_surf.F |
133 |
PTRACERS_FORCING_SURF |
& + ( PmEpR(i,j,bi,bj) - add2EmP(i,j) ) |
|
./pkg/ptracers/ptracers_forcing_surf.F |
134 |
PTRACERS_FORCING_SURF |
& *( PTRACERS_EvPrRn(iTrc) - pTracer(i,j,ks,bi,bj,iTrc) ) |
|
./pkg/ptracers/ptracers_forcing_surf.F |
161 |
PTRACERS_FORCING_SURF |
DO i = iMin, iMax |
|
./pkg/ptracers/ptracers_forcing_surf.F |
162 |
PTRACERS_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = |
|
./pkg/ptracers/ptracers_forcing_surf.F |
163 |
PTRACERS_FORCING_SURF |
& surfaceForcingPTr(i,j,bi,bj,iTrc) |
|
./pkg/ptracers/ptracers_forcing_surf.F |
164 |
PTRACERS_FORCING_SURF |
& + ( EmPmR(i,j,bi,bj) + add2EmP(i,j) ) |
|
./pkg/ptracers/ptracers_forcing_surf.F |
165 |
PTRACERS_FORCING_SURF |
& *( pTracer(i,j,ks,bi,bj,iTrc) - PTRACERS_EvPrRn(iTrc) ) |
|
./pkg/ptracers/ptracers_forcing_surf.F |
183 |
PTRACERS_FORCING_SURF |
DO i = iMin, iMax |
|
./pkg/ptracers/ptracers_forcing_surf.F |
184 |
PTRACERS_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = |
|
./pkg/ptracers/ptracers_forcing_surf.F |
185 |
PTRACERS_FORCING_SURF |
& surfaceForcingPTr(i,j,bi,bj,iTrc) |
|
./pkg/ptracers/ptracers_forcing_surf.F |
186 |
PTRACERS_FORCING_SURF |
& + ( EmPmR(i,j,bi,bj) + add2EmP(i,j) ) |
|
./pkg/ptracers/ptracers_forcing_surf.F |
52 |
PTRACERS_FORCING_SURF |
INTEGER i, j |
|
./pkg/ptracers/ptracers_forcing_surf.F |
68 |
PTRACERS_FORCING_SURF |
DO i = iMin, iMax |
|
./pkg/ptracers/ptracers_forcing_surf.F |
69 |
PTRACERS_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = 0. _d 0 |
|
./pkg/ptracers/ptracers_forcing_surf.F |
87 |
PTRACERS_FORCING_SURF |
DO i = iMin, iMax |
|
./pkg/ptracers/ptracers_forcing_surf.F |
88 |
PTRACERS_FORCING_SURF |
tmpVar = MAX( salt(i,j,ks,bi,bj), epsil ) |
|
./pkg/ptracers/ptracers_forcing_surf.F |
89 |
PTRACERS_FORCING_SURF |
add2EmP(i,j) = relaxForcingS(i,j)/tmpVar |
|
./pkg/ptracers/ptracers_forcing_surf.F |
90 |
PTRACERS_FORCING_SURF |
add2EmP(i,j) = rUnit2mass |
|
./pkg/ptracers/ptracers_forcing_surf.F |
91 |
PTRACERS_FORCING_SURF |
& *MAX( -cutoff, MIN( add2EmP(i,j), cutoff ) ) |
|
./pkg/ptracers/ptracers_forcing_surf.F |
96 |
PTRACERS_FORCING_SURF |
DO i = iMin, iMax |
|
./pkg/ptracers/ptracers_forcing_surf.F |
97 |
PTRACERS_FORCING_SURF |
add2EmP(i,j) = relaxForcingS(i,j)/convertFW2Salt |
|
./pkg/ptracers/ptracers_forcing_surf.F |
98 |
PTRACERS_FORCING_SURF |
add2EmP(i,j) = rUnit2mass |
|
./pkg/ptracers/ptracers_forcing_surf.F |
99 |
PTRACERS_FORCING_SURF |
& *MAX( -cutoff, MIN( add2EmP(i,j), cutoff ) ) |
|
./pkg/ptracers/ptracers_init_varia.F |
116 |
PTRACERS_INIT_VARIA |
DO i=1-OLx,sNx+OLx |
|
./pkg/ptracers/ptracers_init_varia.F |
117 |
PTRACERS_INIT_VARIA |
IF (maskC(i,j,k,bi,bj).EQ.0.) |
|
./pkg/ptracers/ptracers_init_varia.F |
118 |
PTRACERS_INIT_VARIA |
& pTracer(i,j,k,bi,bj,iTracer)=0. _d 0 |
|
./pkg/ptracers/ptracers_init_varia.F |
38 |
PTRACERS_INIT_VARIA |
INTEGER i,j,k,bi,bj,iTracer |
|
./pkg/ptracers/ptracers_init_varia.F |
64 |
PTRACERS_INIT_VARIA |
DO i=1-OLx,sNx+OLx |
|
./pkg/ptracers/ptracers_init_varia.F |
65 |
PTRACERS_INIT_VARIA |
pTracer(i,j,k,bi,bj,iTracer) = PTRACERS_ref(k,iTracer) |
|
./pkg/ptracers/ptracers_init_varia.F |
66 |
PTRACERS_INIT_VARIA |
gpTrNm1(i,j,k,bi,bj,iTracer) = 0. _d 0 |
|
./pkg/ptracers/ptracers_init_varia.F |
71 |
PTRACERS_INIT_VARIA |
DO i=1-OLx,sNx+OLx |
|
./pkg/ptracers/ptracers_init_varia.F |
72 |
PTRACERS_INIT_VARIA |
surfaceForcingPTr(i,j,bi,bj,iTracer) = 0. _d 0 |
|
./pkg/ptracers/ptracers_init_varia.F |
82 |
PTRACERS_INIT_VARIA |
DO i=1-OLx,sNx+OLx |
|
./pkg/ptracers/ptracers_init_varia.F |
83 |
PTRACERS_INIT_VARIA |
_Ptracers_som(i,j,k,bi,bj,n,iTracer) = 0. _d 0 |
|
./pkg/ptracers/ptracers_integrate.F |
156 |
PTRACERS_INTEGRATE |
DO i=1-OLx,sNx+OLx |
|
./pkg/ptracers/ptracers_integrate.F |
157 |
PTRACERS_INTEGRATE |
gTracer(i,j,k) = 0. _d 0 |
|
./pkg/ptracers/ptracers_integrate.F |
204 |
PTRACERS_INTEGRATE |
DO i=1-OLx,sNx+OLx |
|
./pkg/ptracers/ptracers_integrate.F |
205 |
PTRACERS_INTEGRATE |
fVer(i,j,1) = 0. _d 0 |
|
./pkg/ptracers/ptracers_integrate.F |
206 |
PTRACERS_INTEGRATE |
fVer(i,j,2) = 0. _d 0 |
|
./pkg/ptracers/ptracers_integrate.F |
212 |
PTRACERS_INTEGRATE |
DO i=1-OLx,sNx+OLx |
|
./pkg/ptracers/ptracers_integrate.F |
213 |
PTRACERS_INTEGRATE |
kappaRk(i,j,k) = 0. _d 0 |
|
./pkg/ptracers/ptracers_integrate.F |
295 |
PTRACERS_INTEGRATE |
DO i=1-OLx,sNx+OLx |
|
./pkg/ptracers/ptracers_integrate.F |
296 |
PTRACERS_INTEGRATE |
gTrForc(i,j) = 0. _d 0 |
|
./pkg/ptracers/ptracers_integrate.F |
337 |
PTRACERS_INTEGRATE |
DO i=1-OLx,sNx+OLx |
|
./pkg/ptracers/ptracers_integrate.F |
338 |
PTRACERS_INTEGRATE |
gTracer(i,j,k) = gTracer(i,j,k) + gTrForc(i,j) |
|
./pkg/ptracers/ptracers_integrate.F |
367 |
PTRACERS_INTEGRATE |
DO i=1-OLx,sNx+OLx |
|
./pkg/ptracers/ptracers_integrate.F |
368 |
PTRACERS_INTEGRATE |
gTracer(i,j,k) = gTracer(i,j,k) + gTrForc(i,j) |
|
./pkg/ptracers/ptracers_integrate.F |
97 |
PTRACERS_INTEGRATE |
INTEGER i, j, k |
|
./pkg/ptracers/ptracers_reset.F |
120 |
PTRACERS_RESET |
DO i=1-OLx,sNx+OLx |
|
./pkg/ptracers/ptracers_reset.F |
121 |
PTRACERS_RESET |
_Ptracers_som(i,j,k,bi,bj,n,iTracer) = 0. _d 0 |
|
./pkg/ptracers/ptracers_reset.F |
43 |
PTRACERS_RESET |
INTEGER i,j,k,bi,bj,iTracer |
|
./pkg/ptracers/ptracers_reset.F |
74 |
PTRACERS_RESET |
DO i=1-OLx,sNx+OLx |
|
./pkg/ptracers/ptracers_reset.F |
75 |
PTRACERS_RESET |
pTracer(i,j,k,bi,bj,iTracer) = PTRACERS_ref(k,iTracer) |
|
./pkg/ptracers/ptracers_reset.F |
76 |
PTRACERS_RESET |
gpTrNm1(i,j,k,bi,bj,iTracer) = 0. _d 0 |
|
./pkg/ptracers/ptracers_reset.F |
97 |
PTRACERS_RESET |
DO i=1-OLx,sNx+OLx |
|
./pkg/ptracers/ptracers_reset.F |
98 |
PTRACERS_RESET |
IF (maskC(i,j,k,bi,bj).EQ.0.) |
|
./pkg/ptracers/ptracers_reset.F |
99 |
PTRACERS_RESET |
& pTracer(i,j,k,bi,bj,iTracer)=0. _d 0 |
|
./pkg/ptracers/ptracers_set_iolabel.F |
100 |
PTRACERS_SET_IOLABEL |
DO i=1,l2Set |
|
./pkg/ptracers/ptracers_set_iolabel.F |
102 |
PTRACERS_SET_IOLABEL |
IF ( i.NE.1 .OR. j.NE.1 ) THEN |
|
./pkg/ptracers/ptracers_set_iolabel.F |
106 |
PTRACERS_SET_IOLABEL |
ioLbl(n)(2:2) = c2Set1(i:i) |
|
./pkg/ptracers/ptracers_set_iolabel.F |
116 |
PTRACERS_SET_IOLABEL |
DO i=1,l2Set |
|
./pkg/ptracers/ptracers_set_iolabel.F |
120 |
PTRACERS_SET_IOLABEL |
ioLbl(n)(2:2) = c2Set2(i:i) |
|
./pkg/ptracers/ptracers_set_iolabel.F |
129 |
PTRACERS_SET_IOLABEL |
DO i=1,l2Set |
|
./pkg/ptracers/ptracers_set_iolabel.F |
133 |
PTRACERS_SET_IOLABEL |
ioLbl(n)(2:2) = c2Set3(i:i) |
|
./pkg/ptracers/ptracers_set_iolabel.F |
75 |
PTRACERS_SET_IOLABEL |
INTEGER i,j,n |
|
./model/src/dynamics.F |
186 |
DYNAMICS |
INTEGER i, j |
|
./model/src/dynamics.F |
303 |
DYNAMICS |
DO i=1-OLx,sNx+OLx |
|
./model/src/dynamics.F |
305 |
DYNAMICS |
gU(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/dynamics.F |
306 |
DYNAMICS |
gV(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/dynamics.F |
312 |
DYNAMICS |
DO i=1-OLx,sNx+OLx |
|
./model/src/dynamics.F |
313 |
DYNAMICS |
fVerU (i,j,1) = 0. _d 0 |
|
./model/src/dynamics.F |
314 |
DYNAMICS |
fVerU (i,j,2) = 0. _d 0 |
|
./model/src/dynamics.F |
315 |
DYNAMICS |
fVerV (i,j,1) = 0. _d 0 |
|
./model/src/dynamics.F |
316 |
DYNAMICS |
fVerV (i,j,2) = 0. _d 0 |
|
./model/src/dynamics.F |
317 |
DYNAMICS |
phiHydF (i,j) = 0. _d 0 |
|
./model/src/dynamics.F |
318 |
DYNAMICS |
phiHydC (i,j) = 0. _d 0 |
|
./model/src/dynamics.F |
320 |
DYNAMICS |
dPhiHydX(i,j) = 0. _d 0 |
|
./model/src/dynamics.F |
321 |
DYNAMICS |
dPhiHydY(i,j) = 0. _d 0 |
|
./model/src/dynamics.F |
323 |
DYNAMICS |
phiSurfX(i,j) = 0. _d 0 |
|
./model/src/dynamics.F |
324 |
DYNAMICS |
phiSurfY(i,j) = 0. _d 0 |
|
./model/src/dynamics.F |
325 |
DYNAMICS |
guDissip(i,j) = 0. _d 0 |
|
./model/src/dynamics.F |
326 |
DYNAMICS |
gvDissip(i,j) = 0. _d 0 |
|
./model/src/dynamics.F |
328 |
DYNAMICS |
phiHydLow(i,j,bi,bj) = 0. _d 0 |
|
./model/src/dynamics.F |
331 |
DYNAMICS |
dWtransC(i,j,bi,bj) = 0. _d 0 |
|
./model/src/dynamics.F |
332 |
DYNAMICS |
dWtransU(i,j,bi,bj) = 0. _d 0 |
|
./model/src/dynamics.F |
333 |
DYNAMICS |
dWtransV(i,j,bi,bj) = 0. _d 0 |
|
./model/src/dynamics.F |
371 |
DYNAMICS |
DO i=1-OLx,sNx+OLx |
|
./model/src/dynamics.F |
372 |
DYNAMICS |
kappaRU(i,j,k) = 0. _d 0 |
|
./model/src/dynamics.F |
373 |
DYNAMICS |
kappaRV(i,j,k) = 0. _d 0 |
|
./model/src/dynamics.F |
502 |
DYNAMICS |
DO i=1-OLx,sNx+OLx |
|
./model/src/dynamics.F |
503 |
DYNAMICS |
guDissip(i,j) = 0. _d 0 |
|
./model/src/dynamics.F |
504 |
DYNAMICS |
gvDissip(i,j) = 0. _d 0 |
|
./model/src/dynamics.F |
559 |
DYNAMICS |
DO i= iMin,iMax |
|
./model/src/dynamics.F |
560 |
DYNAMICS |
guDissip(i,j) = guDissip(i,j) + addDissU(i,j) |
|
./model/src/dynamics.F |
561 |
DYNAMICS |
gvDissip(i,j) = gvDissip(i,j) + addDissV(i,j) |
|
./model/src/external_fields_load.F |
150 |
EXTERNAL_FIELDS_LOAD |
DO i=1-OLx,sNx+OLx |
|
./model/src/external_fields_load.F |
151 |
EXTERNAL_FIELDS_LOAD |
EmPmR0(i,j,bi,bj) = EmPmR0(i,j,bi,bj)*rhoConstFresh |
|
./model/src/external_fields_load.F |
152 |
EXTERNAL_FIELDS_LOAD |
EmPmR1(i,j,bi,bj) = EmPmR1(i,j,bi,bj)*rhoConstFresh |
|
./model/src/external_fields_load.F |
188 |
EXTERNAL_FIELDS_LOAD |
DO i=1-OLx,sNx+OLx |
|
./model/src/external_fields_load.F |
189 |
EXTERNAL_FIELDS_LOAD |
Qnet0(i,j,bi,bj) = Qnet0(i,j,bi,bj) + Qsw0(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
190 |
EXTERNAL_FIELDS_LOAD |
Qnet1(i,j,bi,bj) = Qnet1(i,j,bi,bj) + Qsw1(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
244 |
EXTERNAL_FIELDS_LOAD |
DO i=1-OLx,sNx+OLx |
|
./model/src/external_fields_load.F |
245 |
EXTERNAL_FIELDS_LOAD |
SST(i,j,bi,bj) = bWght*SST0(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
246 |
EXTERNAL_FIELDS_LOAD |
& + aWght*SST1(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
252 |
EXTERNAL_FIELDS_LOAD |
DO i=1-OLx,sNx+OLx |
|
./model/src/external_fields_load.F |
253 |
EXTERNAL_FIELDS_LOAD |
SSS(i,j,bi,bj) = bWght*SSS0(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
254 |
EXTERNAL_FIELDS_LOAD |
& + aWght*SSS1(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
260 |
EXTERNAL_FIELDS_LOAD |
DO i=1-OLx,sNx+OLx |
|
./model/src/external_fields_load.F |
261 |
EXTERNAL_FIELDS_LOAD |
fu(i,j,bi,bj) = bWght*taux0(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
262 |
EXTERNAL_FIELDS_LOAD |
& + aWght*taux1(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
268 |
EXTERNAL_FIELDS_LOAD |
DO i=1-OLx,sNx+OLx |
|
./model/src/external_fields_load.F |
269 |
EXTERNAL_FIELDS_LOAD |
fv(i,j,bi,bj) = bWght*tauy0(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
270 |
EXTERNAL_FIELDS_LOAD |
& + aWght*tauy1(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
277 |
EXTERNAL_FIELDS_LOAD |
DO i=1-OLx,sNx+OLx |
|
./model/src/external_fields_load.F |
278 |
EXTERNAL_FIELDS_LOAD |
Qnet(i,j,bi,bj) = bWght*Qnet0(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
279 |
EXTERNAL_FIELDS_LOAD |
& + aWght*Qnet1(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
285 |
EXTERNAL_FIELDS_LOAD |
DO i=1-OLx,sNx+OLx |
|
./model/src/external_fields_load.F |
286 |
EXTERNAL_FIELDS_LOAD |
EmPmR(i,j,bi,bj) = bWght*EmPmR0(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
287 |
EXTERNAL_FIELDS_LOAD |
& + aWght*EmPmR1(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
293 |
EXTERNAL_FIELDS_LOAD |
DO i=1-OLx,sNx+OLx |
|
./model/src/external_fields_load.F |
294 |
EXTERNAL_FIELDS_LOAD |
saltFlux(i,j,bi,bj) = bWght*saltFlux0(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
295 |
EXTERNAL_FIELDS_LOAD |
& + aWght*saltFlux1(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
302 |
EXTERNAL_FIELDS_LOAD |
DO i=1-OLx,sNx+OLx |
|
./model/src/external_fields_load.F |
303 |
EXTERNAL_FIELDS_LOAD |
Qsw(i,j,bi,bj) = bWght*Qsw0(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
304 |
EXTERNAL_FIELDS_LOAD |
& + aWght*Qsw1(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
312 |
EXTERNAL_FIELDS_LOAD |
DO i=1-OLx,sNx+OLx |
|
./model/src/external_fields_load.F |
313 |
EXTERNAL_FIELDS_LOAD |
pLoad(i,j,bi,bj) = bWght*pLoad0(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
314 |
EXTERNAL_FIELDS_LOAD |
& + aWght*pLoad1(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
61 |
EXTERNAL_FIELDS_LOAD |
INTEGER bi, bj, i, j |
|
./pkg/rbcs/rbcs_add_tendency.F |
108 |
RBCS_ADD_TENDENCY |
DO i=0,sNx+1 |
|
./pkg/rbcs/rbcs_add_tendency.F |
109 |
RBCS_ADD_TENDENCY |
gTendency(i,j) = gTendency(i,j) |
|
./pkg/rbcs/rbcs_add_tendency.F |
110 |
RBCS_ADD_TENDENCY |
& - RBC_mask(i,j,k,bi,bj,irbc)*rec_tauRlx |
|
./pkg/rbcs/rbcs_add_tendency.F |
111 |
RBCS_ADD_TENDENCY |
& *( salt(i,j,k,bi,bj)- RBCsalt(i,j,k,bi,bj) ) |
|
./pkg/rbcs/rbcs_add_tendency.F |
123 |
RBCS_ADD_TENDENCY |
DO i=0,sNx+1 |
|
./pkg/rbcs/rbcs_add_tendency.F |
124 |
RBCS_ADD_TENDENCY |
gTendency(i,j) = gTendency(i,j) |
|
./pkg/rbcs/rbcs_add_tendency.F |
125 |
RBCS_ADD_TENDENCY |
& - RBC_mask(i,j,k,bi,bj,irbc)*rec_tauRlx |
|
./pkg/rbcs/rbcs_add_tendency.F |
126 |
RBCS_ADD_TENDENCY |
& *( pTracer(i,j,k,bi,bj,iTracer) |
|
./pkg/rbcs/rbcs_add_tendency.F |
127 |
RBCS_ADD_TENDENCY |
& - RBC_ptracers(i,j,k,bi,bj,iTracer) ) |
|
./pkg/rbcs/rbcs_add_tendency.F |
50 |
RBCS_ADD_TENDENCY |
INTEGER i,j |
|
./pkg/rbcs/rbcs_add_tendency.F |
72 |
RBCS_ADD_TENDENCY |
DO i=0,sNx+1 |
|
./pkg/rbcs/rbcs_add_tendency.F |
73 |
RBCS_ADD_TENDENCY |
gTendency(i,j) = gTendency(i,j) |
|
./pkg/rbcs/rbcs_add_tendency.F |
74 |
RBCS_ADD_TENDENCY |
& - RBC_maskU(i,j,k,bi,bj)*rec_tauRlx |
|
./pkg/rbcs/rbcs_add_tendency.F |
75 |
RBCS_ADD_TENDENCY |
& *( uVel(i,j,k,bi,bj)- RBCuVel(i,j,k,bi,bj) ) |
|
./pkg/rbcs/rbcs_add_tendency.F |
82 |
RBCS_ADD_TENDENCY |
DO i=0,sNx+1 |
|
./pkg/rbcs/rbcs_add_tendency.F |
83 |
RBCS_ADD_TENDENCY |
gTendency(i,j) = gTendency(i,j) |
|
./pkg/rbcs/rbcs_add_tendency.F |
84 |
RBCS_ADD_TENDENCY |
& - RBC_maskV(i,j,k,bi,bj)*rec_tauRlx |
|
./pkg/rbcs/rbcs_add_tendency.F |
85 |
RBCS_ADD_TENDENCY |
& *( vVel(i,j,k,bi,bj)- RBCvVel(i,j,k,bi,bj) ) |
|
./pkg/rbcs/rbcs_add_tendency.F |
95 |
RBCS_ADD_TENDENCY |
DO i=0,sNx+1 |
|
./pkg/rbcs/rbcs_add_tendency.F |
96 |
RBCS_ADD_TENDENCY |
gTendency(i,j) = gTendency(i,j) |
|
./pkg/rbcs/rbcs_add_tendency.F |
97 |
RBCS_ADD_TENDENCY |
& - RBC_mask(i,j,k,bi,bj,irbc)*rec_tauRlx |
|
./pkg/rbcs/rbcs_add_tendency.F |
98 |
RBCS_ADD_TENDENCY |
& *( theta(i,j,k,bi,bj)- RBCtemp(i,j,k,bi,bj) ) |
|
./pkg/rbcs/rbcs_fields_load.F |
237 |
RBCS_FIELDS_LOAD |
DO i=1-Olx,sNx+Olx |
|
./pkg/rbcs/rbcs_fields_load.F |
238 |
RBCS_FIELDS_LOAD |
RBCuVel(i,j,k,bi,bj) = bWght*rbcu0(i,j,k,bi,bj) |
|
./pkg/rbcs/rbcs_fields_load.F |
239 |
RBCS_FIELDS_LOAD |
& +aWght*rbcu1(i,j,k,bi,bj) |
|
./pkg/rbcs/rbcs_fields_load.F |
240 |
RBCS_FIELDS_LOAD |
RBCvVel(i,j,k,bi,bj) = bWght*rbcv0(i,j,k,bi,bj) |
|
./pkg/rbcs/rbcs_fields_load.F |
241 |
RBCS_FIELDS_LOAD |
& +aWght*rbcv1(i,j,k,bi,bj) |
|
./pkg/rbcs/rbcs_fields_load.F |
249 |
RBCS_FIELDS_LOAD |
DO i=1-Olx,sNx+Olx |
|
./pkg/rbcs/rbcs_fields_load.F |
250 |
RBCS_FIELDS_LOAD |
RBCtemp(i,j,k,bi,bj) = bWght*rbct0(i,j,k,bi,bj) |
|
./pkg/rbcs/rbcs_fields_load.F |
251 |
RBCS_FIELDS_LOAD |
& +aWght*rbct1(i,j,k,bi,bj) |
|
./pkg/rbcs/rbcs_fields_load.F |
252 |
RBCS_FIELDS_LOAD |
RBCsalt(i,j,k,bi,bj) = bWght*rbcs0(i,j,k,bi,bj) |
|
./pkg/rbcs/rbcs_fields_load.F |
253 |
RBCS_FIELDS_LOAD |
& +aWght*rbcs1(i,j,k,bi,bj) |
|
./pkg/rbcs/rbcs_fields_load.F |
268 |
RBCS_FIELDS_LOAD |
DO i=1-Olx,sNx+Olx |
|
./pkg/rbcs/rbcs_fields_load.F |
269 |
RBCS_FIELDS_LOAD |
RBC_ptracers(i,j,k,bi,bj,iTracer) = |
|
./pkg/rbcs/rbcs_fields_load.F |
270 |
RBCS_FIELDS_LOAD |
& bWght*rbcptr0(i,j,k,bi,bj,iTracer) |
|
./pkg/rbcs/rbcs_fields_load.F |
271 |
RBCS_FIELDS_LOAD |
& +aWght*rbcptr1(i,j,k,bi,bj,iTracer) |
|
./pkg/rbcs/rbcs_fields_load.F |
55 |
RBCS_FIELDS_LOAD |
INTEGER bi, bj, i, j, k |
|
./pkg/rbcs/rbcs_init_fixed.F |
199 |
RBCS_INIT_FIXED |
DO i=1-OLx,sNx+OLx |
|
./pkg/rbcs/rbcs_init_fixed.F |
200 |
RBCS_INIT_FIXED |
RBC_maskU(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_fixed.F |
201 |
RBCS_INIT_FIXED |
RBC_maskV(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_fixed.F |
219 |
RBCS_INIT_FIXED |
DO i=1-OLx,sNx+OLx |
|
./pkg/rbcs/rbcs_init_fixed.F |
220 |
RBCS_INIT_FIXED |
RBC_mask(i,j,k,bi,bj,irbc) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_fixed.F |
242 |
RBCS_INIT_FIXED |
DO i=1-OLx,sNx+OLx |
|
./pkg/rbcs/rbcs_init_fixed.F |
243 |
RBCS_INIT_FIXED |
RBC_mask(i,j,k,bi,bj,irbc) = RBC_mask(i,j,k,bi,bj,irbc) |
|
./pkg/rbcs/rbcs_init_fixed.F |
244 |
RBCS_INIT_FIXED |
& * maskC(i,j,k,bi,bj) |
|
./pkg/rbcs/rbcs_init_fixed.F |
266 |
RBCS_INIT_FIXED |
DO i=2-OLx,sNx+OLx |
|
./pkg/rbcs/rbcs_init_fixed.F |
267 |
RBCS_INIT_FIXED |
RBC_maskU(i,j,k,bi,bj) = |
|
./pkg/rbcs/rbcs_init_fixed.F |
268 |
RBCS_INIT_FIXED |
& ( RBC_mask(i-1,j,k,bi,bj,1) |
|
./pkg/rbcs/rbcs_init_fixed.F |
269 |
RBCS_INIT_FIXED |
& + RBC_mask( i ,j,k,bi,bj,1) )*0.5 _d 0 |
|
./pkg/rbcs/rbcs_init_fixed.F |
283 |
RBCS_INIT_FIXED |
DO i=1-OLx,sNx+OLx |
|
./pkg/rbcs/rbcs_init_fixed.F |
284 |
RBCS_INIT_FIXED |
RBC_maskV(i,j,k,bi,bj) = |
|
./pkg/rbcs/rbcs_init_fixed.F |
285 |
RBCS_INIT_FIXED |
& ( RBC_mask(i,j-1,k,bi,bj,1) |
|
./pkg/rbcs/rbcs_init_fixed.F |
286 |
RBCS_INIT_FIXED |
& + RBC_mask(i, j ,k,bi,bj,1) )*0.5 _d 0 |
|
./pkg/rbcs/rbcs_init_fixed.F |
300 |
RBCS_INIT_FIXED |
DO i=1-OLx,sNx+OLx |
|
./pkg/rbcs/rbcs_init_fixed.F |
301 |
RBCS_INIT_FIXED |
RBC_maskU(i,j,k,bi,bj) = RBC_maskU(i,j,k,bi,bj) |
|
./pkg/rbcs/rbcs_init_fixed.F |
302 |
RBCS_INIT_FIXED |
& * maskW(i,j,k,bi,bj) |
|
./pkg/rbcs/rbcs_init_fixed.F |
303 |
RBCS_INIT_FIXED |
RBC_maskV(i,j,k,bi,bj) = RBC_maskV(i,j,k,bi,bj) |
|
./pkg/rbcs/rbcs_init_fixed.F |
304 |
RBCS_INIT_FIXED |
& * maskS(i,j,k,bi,bj) |
|
./pkg/rbcs/rbcs_init_fixed.F |
40 |
RBCS_INIT_FIXED |
INTEGER i,j,k,bi,bj |
|
./pkg/rbcs/rbcs_init_varia.F |
34 |
RBCS_INIT_VARIA |
INTEGER i,j,k,bi,bj |
|
./pkg/rbcs/rbcs_init_varia.F |
44 |
RBCS_INIT_VARIA |
DO i=1-Olx,sNx+Olx |
|
./pkg/rbcs/rbcs_init_varia.F |
46 |
RBCS_INIT_VARIA |
rbcu0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
47 |
RBCS_INIT_VARIA |
rbcv0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
48 |
RBCS_INIT_VARIA |
rbcu1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
49 |
RBCS_INIT_VARIA |
rbcv1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
50 |
RBCS_INIT_VARIA |
RBCuVel(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
51 |
RBCS_INIT_VARIA |
RBCvVel(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
53 |
RBCS_INIT_VARIA |
rbct0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
54 |
RBCS_INIT_VARIA |
rbcs0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
55 |
RBCS_INIT_VARIA |
rbct1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
56 |
RBCS_INIT_VARIA |
rbcs1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
57 |
RBCS_INIT_VARIA |
RBCtemp(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
58 |
RBCS_INIT_VARIA |
RBCsalt(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
72 |
RBCS_INIT_VARIA |
DO i=1-Olx,sNx+Olx |
|
./pkg/rbcs/rbcs_init_varia.F |
73 |
RBCS_INIT_VARIA |
rbcptr0(i,j,k,bi,bj,iTracer) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
74 |
RBCS_INIT_VARIA |
rbcptr1(i,j,k,bi,bj,iTracer) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
75 |
RBCS_INIT_VARIA |
RBC_ptracers(i,j,k,bi,bj,iTracer) = 0. _d 0 |
|
./model/src/external_forcing.F |
100 |
EXTERNAL_FORCING_U |
& *recip_drF(kLev)*_recip_hFacW(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
105 |
EXTERNAL_FORCING_U |
DO i=1,sNx+1 |
|
./model/src/external_forcing.F |
106 |
EXTERNAL_FORCING_U |
IF ( kSurfW(i,j,bi,bj).EQ.kLev ) THEN |
|
./model/src/external_forcing.F |
107 |
EXTERNAL_FORCING_U |
gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
108 |
EXTERNAL_FORCING_U |
& +foFacMom*surfaceForcingU(i,j,bi,bj) |
|
./model/src/external_forcing.F |
109 |
EXTERNAL_FORCING_U |
& *recip_drF(kLev)*_recip_hFacW(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
198 |
EXTERNAL_FORCING_V |
INTEGER i, j |
|
./model/src/external_forcing.F |
237 |
EXTERNAL_FORCING_V |
DO i=0,sNx+1 |
|
./model/src/external_forcing.F |
238 |
EXTERNAL_FORCING_V |
gV(i,j,kLev,bi,bj) = gV(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
239 |
EXTERNAL_FORCING_V |
& +foFacMom*surfaceForcingV(i,j,bi,bj) |
|
./model/src/external_forcing.F |
240 |
EXTERNAL_FORCING_V |
& *recip_drF(kLev)*_recip_hFacS(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
245 |
EXTERNAL_FORCING_V |
DO i=0,sNx+1 |
|
./model/src/external_forcing.F |
246 |
EXTERNAL_FORCING_V |
IF ( kSurfS(i,j,bi,bj).EQ.kLev ) THEN |
|
./model/src/external_forcing.F |
247 |
EXTERNAL_FORCING_V |
gV(i,j,kLev,bi,bj) = gV(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
248 |
EXTERNAL_FORCING_V |
& +foFacMom*surfaceForcingV(i,j,bi,bj) |
|
./model/src/external_forcing.F |
249 |
EXTERNAL_FORCING_V |
& *recip_drF(kLev)*_recip_hFacS(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
338 |
EXTERNAL_FORCING_T |
INTEGER i, j |
|
./model/src/external_forcing.F |
390 |
EXTERNAL_FORCING_T |
DO i=1,sNx |
|
./model/src/external_forcing.F |
391 |
EXTERNAL_FORCING_T |
gT(i,j,kLev,bi,bj) = gT(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
392 |
EXTERNAL_FORCING_T |
& + addMass(i,j,kLev,bi,bj)*mass2rUnit |
|
./model/src/external_forcing.F |
393 |
EXTERNAL_FORCING_T |
& *( temp_addMass - theta(i,j,kLev,bi,bj) ) |
|
./model/src/external_forcing.F |
394 |
EXTERNAL_FORCING_T |
& *recip_rA(i,j,bi,bj) |
|
./model/src/external_forcing.F |
395 |
EXTERNAL_FORCING_T |
& *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
401 |
EXTERNAL_FORCING_T |
DO i=1,sNx |
|
./model/src/external_forcing.F |
402 |
EXTERNAL_FORCING_T |
gT(i,j,kLev,bi,bj) = gT(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
403 |
EXTERNAL_FORCING_T |
& + addMass(i,j,kLev,bi,bj)*mass2rUnit |
|
./model/src/external_forcing.F |
405 |
EXTERNAL_FORCING_T |
& *recip_rA(i,j,bi,bj) |
|
./model/src/external_forcing.F |
406 |
EXTERNAL_FORCING_T |
& *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
426 |
EXTERNAL_FORCING_T |
DO i=1,sNx |
|
./model/src/external_forcing.F |
427 |
EXTERNAL_FORCING_T |
gT(i,j,kLev,bi,bj) = gT(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
428 |
EXTERNAL_FORCING_T |
& + frictionHeating(i,j,k,bi,bj)*tmpFac |
|
./model/src/external_forcing.F |
429 |
EXTERNAL_FORCING_T |
& *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
452 |
EXTERNAL_FORCING_T |
DO i=1,sNx |
|
./model/src/external_forcing.F |
453 |
EXTERNAL_FORCING_T |
tmpVar(i,j) = 0. |
|
./model/src/external_forcing.F |
460 |
EXTERNAL_FORCING_T |
DO i=1,sNx |
|
./model/src/external_forcing.F |
461 |
EXTERNAL_FORCING_T |
tmpVar(i,j) = wVel(i,j,kc,bi,bj)*delPI*atm_Rq |
|
./model/src/external_forcing.F |
462 |
EXTERNAL_FORCING_T |
& *( theta(i,j,km,bi,bj)*salt(i,j,km,bi,bj) |
|
./model/src/external_forcing.F |
463 |
EXTERNAL_FORCING_T |
& + theta(i,j,kc,bi,bj)*salt(i,j,kc,bi,bj) |
|
./model/src/external_forcing.F |
464 |
EXTERNAL_FORCING_T |
& )*maskC(i,j,km,bi,bj)*0.25 _d 0 |
|
./model/src/external_forcing.F |
472 |
EXTERNAL_FORCING_T |
DO i=1,sNx |
|
./model/src/external_forcing.F |
473 |
EXTERNAL_FORCING_T |
tmpVar(i,j) = tmpVar(i,j) |
|
./model/src/external_forcing.F |
474 |
EXTERNAL_FORCING_T |
& + wVel(i,j,kp,bi,bj)*delPI*atm_Rq |
|
./model/src/external_forcing.F |
475 |
EXTERNAL_FORCING_T |
& *( theta(i,j,kc,bi,bj)*salt(i,j,kc,bi,bj) |
|
./model/src/external_forcing.F |
476 |
EXTERNAL_FORCING_T |
& + theta(i,j,kp,bi,bj)*salt(i,j,kp,bi,bj) |
|
./model/src/external_forcing.F |
477 |
EXTERNAL_FORCING_T |
& )*maskC(i,j,kp,bi,bj)*0.25 _d 0 |
|
./model/src/external_forcing.F |
482 |
EXTERNAL_FORCING_T |
DO i=1,sNx |
|
./model/src/external_forcing.F |
483 |
EXTERNAL_FORCING_T |
gT(i,j,kLev,bi,bj) = gT(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
484 |
EXTERNAL_FORCING_T |
& + tmpVar(i,j)*tmpFac |
|
./model/src/external_forcing.F |
485 |
EXTERNAL_FORCING_T |
& *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
501 |
EXTERNAL_FORCING_T |
DO i=1,sNx |
|
./model/src/external_forcing.F |
502 |
EXTERNAL_FORCING_T |
gT(i,j,kLev,bi,bj)=gT(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
503 |
EXTERNAL_FORCING_T |
& +surfaceForcingT(i,j,bi,bj) |
|
./model/src/external_forcing.F |
504 |
EXTERNAL_FORCING_T |
& *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
509 |
EXTERNAL_FORCING_T |
DO i=1,sNx |
|
./model/src/external_forcing.F |
510 |
EXTERNAL_FORCING_T |
IF ( kSurfC(i,j,bi,bj).EQ.kLev ) THEN |
|
./model/src/external_forcing.F |
511 |
EXTERNAL_FORCING_T |
gT(i,j,kLev,bi,bj)=gT(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
512 |
EXTERNAL_FORCING_T |
& +surfaceForcingT(i,j,bi,bj) |
|
./model/src/external_forcing.F |
513 |
EXTERNAL_FORCING_T |
& *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
521 |
EXTERNAL_FORCING_T |
DO i=1,sNx |
|
./model/src/external_forcing.F |
522 |
EXTERNAL_FORCING_T |
IF (kLev .EQ. kSurfC(i,j,bi,bj)) THEN |
|
./model/src/external_forcing.F |
523 |
EXTERNAL_FORCING_T |
gT(i,j,kLev,bi,bj)=gT(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
524 |
EXTERNAL_FORCING_T |
& +TsurfCor*recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
545 |
EXTERNAL_FORCING_T |
DO i=1,sNx |
|
./model/src/external_forcing.F |
546 |
EXTERNAL_FORCING_T |
gT(i,j,kLev,bi,bj) = gT(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
547 |
EXTERNAL_FORCING_T |
& -Qsw(i,j,bi,bj)*(swfracb(1)*maskC(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
548 |
EXTERNAL_FORCING_T |
& -swfracb(2)*maskC(i,j,kp1, bi,bj)) |
|
./model/src/external_forcing.F |
550 |
EXTERNAL_FORCING_T |
& *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
58 |
EXTERNAL_FORCING_U |
INTEGER i, j |
|
./model/src/external_forcing.F |
671 |
EXTERNAL_FORCING_S |
INTEGER i, j |
|
./model/src/external_forcing.F |
712 |
EXTERNAL_FORCING_S |
DO i=1,sNx |
|
./model/src/external_forcing.F |
713 |
EXTERNAL_FORCING_S |
gS(i,j,kLev,bi,bj) = gS(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
714 |
EXTERNAL_FORCING_S |
& + addMass(i,j,kLev,bi,bj)*mass2rUnit |
|
./model/src/external_forcing.F |
715 |
EXTERNAL_FORCING_S |
& *( salt_addMass - salt(i,j,kLev,bi,bj) ) |
|
./model/src/external_forcing.F |
716 |
EXTERNAL_FORCING_S |
& *recip_rA(i,j,bi,bj) |
|
./model/src/external_forcing.F |
717 |
EXTERNAL_FORCING_S |
& *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
723 |
EXTERNAL_FORCING_S |
DO i=1,sNx |
|
./model/src/external_forcing.F |
724 |
EXTERNAL_FORCING_S |
gS(i,j,kLev,bi,bj) = gS(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
725 |
EXTERNAL_FORCING_S |
& + addMass(i,j,kLev,bi,bj)*mass2rUnit |
|
./model/src/external_forcing.F |
727 |
EXTERNAL_FORCING_S |
& *recip_rA(i,j,bi,bj) |
|
./model/src/external_forcing.F |
728 |
EXTERNAL_FORCING_S |
& *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
739 |
EXTERNAL_FORCING_S |
DO i=1,sNx |
|
./model/src/external_forcing.F |
740 |
EXTERNAL_FORCING_S |
gS(i,j,kLev,bi,bj)=gS(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
741 |
EXTERNAL_FORCING_S |
& +surfaceForcingS(i,j,bi,bj) |
|
./model/src/external_forcing.F |
742 |
EXTERNAL_FORCING_S |
& *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
747 |
EXTERNAL_FORCING_S |
DO i=1,sNx |
|
./model/src/external_forcing.F |
748 |
EXTERNAL_FORCING_S |
IF ( kSurfC(i,j,bi,bj).EQ.kLev ) THEN |
|
./model/src/external_forcing.F |
749 |
EXTERNAL_FORCING_S |
gS(i,j,kLev,bi,bj)=gS(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
750 |
EXTERNAL_FORCING_S |
& +surfaceForcingS(i,j,bi,bj) |
|
./model/src/external_forcing.F |
751 |
EXTERNAL_FORCING_S |
& *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
759 |
EXTERNAL_FORCING_S |
DO i=1,sNx |
|
./model/src/external_forcing.F |
760 |
EXTERNAL_FORCING_S |
IF (kLev .EQ. kSurfC(i,j,bi,bj)) THEN |
|
./model/src/external_forcing.F |
761 |
EXTERNAL_FORCING_S |
gS(i,j,kLev,bi,bj)=gS(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
762 |
EXTERNAL_FORCING_S |
& +SsurfCor*recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
97 |
EXTERNAL_FORCING_U |
DO i=1,sNx+1 |
|
./model/src/external_forcing.F |
98 |
EXTERNAL_FORCING_U |
gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
99 |
EXTERNAL_FORCING_U |
& +foFacMom*surfaceForcingU(i,j,bi,bj) |
|
./pkg/regrid/regrid_init_varia.F |
118 |
REGRID_INIT_VARIA |
DO i = 1,regrid_ngrids |
|
./pkg/regrid/regrid_init_varia.F |
120 |
REGRID_INIT_VARIA |
IF (i .EQ. 1) THEN |
|
./pkg/regrid/regrid_init_varia.F |
123 |
REGRID_INIT_VARIA |
nlpts = REGRID_iend(i,bi,bj) |
|
./pkg/regrid/regrid_init_varia.F |
130 |
REGRID_INIT_VARIA |
nnb = ILNBLNK(REGRID_fbname_in(i)) |
|
./pkg/regrid/regrid_init_varia.F |
132 |
REGRID_INIT_VARIA |
& REGRID_fbname_in(i)(1:nnb),iface,'.regrid.ascii' |
|
./pkg/regrid/regrid_init_varia.F |
186 |
REGRID_INIT_VARIA |
REGRID_ibeg(i,bi,bj) = init_nlpts + 1 |
|
./pkg/regrid/regrid_init_varia.F |
187 |
REGRID_INIT_VARIA |
REGRID_iend(i,bi,bj) = nlpts |
|
./pkg/regrid/regrid_init_varia.F |
37 |
REGRID_INIT_VARIA |
INTEGER i,k, iface, uniq_tnum, bi,bj |
|
./pkg/regrid/regrid_mnc_init.F |
32 |
REGRID_MNC_INIT |
INTEGER i, k, ndim |
|
./pkg/regrid/regrid_readparms.F |
33 |
REGRID_READPARMS |
INTEGER iUnit, i |
|
./pkg/regrid/regrid_readparms.F |
54 |
REGRID_READPARMS |
DO i = 1,MAX_LEN_FNAM |
|
./pkg/regrid/regrid_readparms.F |
55 |
REGRID_READPARMS |
blank(i:i) = ' ' |
|
./pkg/regrid/regrid_readparms.F |
62 |
REGRID_READPARMS |
DO i = 1,REGRID_NGRID_MAX |
|
./pkg/regrid/regrid_readparms.F |
63 |
REGRID_READPARMS |
REGRID_fbname_in(i)(1:MAX_LEN_FNAM) = blank(1:MAX_LEN_FNAM) |
|
./pkg/regrid/regrid_readparms.F |
64 |
REGRID_READPARMS |
REGRID_fbname_out(i)(1:MAX_LEN_FNAM) = blank(1:MAX_LEN_FNAM) |
|
./pkg/regrid/regrid_readparms.F |
65 |
REGRID_READPARMS |
regrid_nout(i) = 0 |
|
./model/src/external_forcing_surf.F |
126 |
EXTERNAL_FORCING_SURF |
DO i=1-OLx,sNx+OLx |
|
./model/src/external_forcing_surf.F |
127 |
EXTERNAL_FORCING_SURF |
PmEpR(i,j,bi,bj) = -EmPmR(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
139 |
EXTERNAL_FORCING_SURF |
DO i=1-OLx,sNx+OLx |
|
./model/src/external_forcing_surf.F |
140 |
EXTERNAL_FORCING_SURF |
surfaceForcingT(i,j,bi,bj) = 0. _d 0 |
|
./model/src/external_forcing_surf.F |
141 |
EXTERNAL_FORCING_SURF |
surfaceForcingS(i,j,bi,bj) = 0. _d 0 |
|
./model/src/external_forcing_surf.F |
207 |
EXTERNAL_FORCING_SURF |
DO i = iMin, iMax |
|
./model/src/external_forcing_surf.F |
210 |
EXTERNAL_FORCING_SURF |
surfaceForcingU(i,j,bi,bj) = fu(i,j,bi,bj)*mass2rUnit |
|
./model/src/external_forcing_surf.F |
212 |
EXTERNAL_FORCING_SURF |
surfaceForcingV(i,j,bi,bj) = fv(i,j,bi,bj)*mass2rUnit |
|
./model/src/external_forcing_surf.F |
214 |
EXTERNAL_FORCING_SURF |
surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
215 |
EXTERNAL_FORCING_SURF |
& - ( Qnet(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
217 |
EXTERNAL_FORCING_SURF |
& -Qsw(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
221 |
EXTERNAL_FORCING_SURF |
surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
222 |
EXTERNAL_FORCING_SURF |
& -saltFlux(i,j,bi,bj)*mass2rUnit |
|
./model/src/external_forcing_surf.F |
259 |
EXTERNAL_FORCING_SURF |
DO i = iMin, iMax |
|
./model/src/external_forcing_surf.F |
260 |
EXTERNAL_FORCING_SURF |
surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
261 |
EXTERNAL_FORCING_SURF |
& + PmEpR(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
262 |
EXTERNAL_FORCING_SURF |
& *( temp_EvPrRn - theta(i,j,ks,bi,bj) ) |
|
./model/src/external_forcing_surf.F |
270 |
EXTERNAL_FORCING_SURF |
DO i = iMin, iMax |
|
./model/src/external_forcing_surf.F |
271 |
EXTERNAL_FORCING_SURF |
surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
272 |
EXTERNAL_FORCING_SURF |
& + PmEpR(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
273 |
EXTERNAL_FORCING_SURF |
& *( salt_EvPrRn - salt(i,j,ks,bi,bj) ) |
|
./model/src/external_forcing_surf.F |
294 |
EXTERNAL_FORCING_SURF |
DO i = iMin, iMax |
|
./model/src/external_forcing_surf.F |
295 |
EXTERNAL_FORCING_SURF |
surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
296 |
EXTERNAL_FORCING_SURF |
& + EmPmR(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
297 |
EXTERNAL_FORCING_SURF |
& *( theta(i,j,ks,bi,bj) - temp_EvPrRn ) |
|
./model/src/external_forcing_surf.F |
305 |
EXTERNAL_FORCING_SURF |
DO i = iMin, iMax |
|
./model/src/external_forcing_surf.F |
306 |
EXTERNAL_FORCING_SURF |
surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
307 |
EXTERNAL_FORCING_SURF |
& + EmPmR(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
308 |
EXTERNAL_FORCING_SURF |
& *( salt(i,j,ks,bi,bj) - salt_EvPrRn ) |
|
./model/src/external_forcing_surf.F |
320 |
EXTERNAL_FORCING_SURF |
DO i = iMin, iMax |
|
./model/src/external_forcing_surf.F |
321 |
EXTERNAL_FORCING_SURF |
surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
322 |
EXTERNAL_FORCING_SURF |
& + EmPmR(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
331 |
EXTERNAL_FORCING_SURF |
DO i = iMin, iMax |
|
./model/src/external_forcing_surf.F |
332 |
EXTERNAL_FORCING_SURF |
surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
333 |
EXTERNAL_FORCING_SURF |
& + EmPmR(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
361 |
EXTERNAL_FORCING_SURF |
DO i = iMin, iMax |
|
./model/src/external_forcing_surf.F |
362 |
EXTERNAL_FORCING_SURF |
phi0surf(i,j,bi,bj) = ( pLoad(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
363 |
EXTERNAL_FORCING_SURF |
& +sIceLoad(i,j,bi,bj)*gravity |
|
./model/src/external_forcing_surf.F |
369 |
EXTERNAL_FORCING_SURF |
DO i = iMin, iMax |
|
./model/src/external_forcing_surf.F |
370 |
EXTERNAL_FORCING_SURF |
phi0surf(i,j,bi,bj) = pLoad(i,j,bi,bj)*recip_rhoConst |
|
./model/src/external_forcing_surf.F |
61 |
EXTERNAL_FORCING_SURF |
INTEGER i,j |
|
./model/src/find_alpha.F |
104 |
FIND_ALPHA |
alphaLoc(i,j) = |
|
./model/src/find_alpha.F |
137 |
FIND_ALPHA |
DO i=iMin,iMax |
|
./model/src/find_alpha.F |
140 |
FIND_ALPHA |
t1 = theta(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
148 |
FIND_ALPHA |
s1 = salt(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
156 |
FIND_ALPHA |
p1 = locPres(i,j)*SItoBar |
|
./model/src/find_alpha.F |
216 |
FIND_ALPHA |
alphaLoc(i,j) = |
|
./model/src/find_alpha.F |
217 |
FIND_ALPHA |
& ( bulkmod(i,j)**2*drhoP0dtheta |
|
./model/src/find_alpha.F |
218 |
FIND_ALPHA |
& - bulkmod(i,j)*p1*drhoP0dtheta |
|
./model/src/find_alpha.F |
219 |
FIND_ALPHA |
& - rhoP0(i,j)*p1*dKdtheta ) |
|
./model/src/find_alpha.F |
220 |
FIND_ALPHA |
& /( bulkmod(i,j) - p1 )**2 |
|
./model/src/find_alpha.F |
244 |
FIND_ALPHA |
DO i=iMin,iMax |
|
./model/src/find_alpha.F |
245 |
FIND_ALPHA |
t1 = theta(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
247 |
FIND_ALPHA |
s1 = salt(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
259 |
FIND_ALPHA |
p1 = locPres(i,j)*SItodBar |
|
./model/src/find_alpha.F |
276 |
FIND_ALPHA |
alphaLoc(i,j) = rhoDen(i,j)*(dnum_dtheta |
|
./model/src/find_alpha.F |
277 |
FIND_ALPHA |
& - (rhoLoc(i,j)*rhoDen(i,j))*dden_dtheta) |
|
./model/src/find_alpha.F |
296 |
FIND_ALPHA |
DO i=iMin,iMax |
|
./model/src/find_alpha.F |
297 |
FIND_ALPHA |
ct = theta(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
298 |
FIND_ALPHA |
sa = salt(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
309 |
FIND_ALPHA |
p = locPres(i,j)*SItodBar |
|
./model/src/find_alpha.F |
329 |
FIND_ALPHA |
alphaLoc(i,j) = rhoDen(i,j)*(dnum_dtheta |
|
./model/src/find_alpha.F |
330 |
FIND_ALPHA |
& - (rhoLoc(i,j)*rhoDen(i,j))*dden_dtheta) |
|
./model/src/find_alpha.F |
387 |
FIND_BETA |
INTEGER i,j |
|
./model/src/find_alpha.F |
411 |
FIND_BETA |
DO i=iMin,iMax |
|
./model/src/find_alpha.F |
412 |
FIND_BETA |
betaLoc(i,j) = rhonil * sBeta |
|
./model/src/find_alpha.F |
422 |
FIND_BETA |
DO i=iMin,iMax |
|
./model/src/find_alpha.F |
423 |
FIND_BETA |
tP=theta(i,j,k,bi,bj)-refTemp |
|
./model/src/find_alpha.F |
424 |
FIND_BETA |
sP=salt(i,j,k,bi,bj)-refSalt |
|
./model/src/find_alpha.F |
426 |
FIND_BETA |
betaLoc(i,j) = |
|
./model/src/find_alpha.F |
432 |
FIND_BETA |
betaLoc(i,j) = |
|
./model/src/find_alpha.F |
465 |
FIND_BETA |
DO i=iMin,iMax |
|
./model/src/find_alpha.F |
468 |
FIND_BETA |
t1 = theta(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
472 |
FIND_BETA |
s1 = salt(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
484 |
FIND_BETA |
p1 = locPres(i,j)*SItoBar |
|
./model/src/find_alpha.F |
530 |
FIND_BETA |
betaLoc(i,j) = |
|
./model/src/find_alpha.F |
531 |
FIND_BETA |
& ( bulkmod(i,j)**2*drhoP0dS |
|
./model/src/find_alpha.F |
532 |
FIND_BETA |
& - bulkmod(i,j)*p1*drhoP0dS |
|
./model/src/find_alpha.F |
533 |
FIND_BETA |
& - rhoP0(i,j)*p1*dKdS ) |
|
./model/src/find_alpha.F |
534 |
FIND_BETA |
& /( bulkmod(i,j) - p1 )**2 |
|
./model/src/find_alpha.F |
558 |
FIND_BETA |
DO i=iMin,iMax |
|
./model/src/find_alpha.F |
559 |
FIND_BETA |
t1 = theta(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
561 |
FIND_BETA |
s1 = salt(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
573 |
FIND_BETA |
p1 = locPres(i,j)*SItodBar |
|
./model/src/find_alpha.F |
57 |
FIND_ALPHA |
INTEGER i,j |
|
./model/src/find_alpha.F |
583 |
FIND_BETA |
betaLoc(i,j) = rhoDen(i,j)*( dnum_dsalt |
|
./model/src/find_alpha.F |
584 |
FIND_BETA |
& - (rhoLoc(i,j)*rhoDen(i,j))*dden_dsalt ) |
|
./model/src/find_alpha.F |
603 |
FIND_BETA |
DO i=iMin,iMax |
|
./model/src/find_alpha.F |
604 |
FIND_BETA |
ct = theta(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
605 |
FIND_BETA |
sa = salt(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
616 |
FIND_BETA |
p = locPres(i,j)*SItodBar |
|
./model/src/find_alpha.F |
630 |
FIND_BETA |
betaLoc(i,j) = rhoDen(i,j)*( dnum_dsalt |
|
./model/src/find_alpha.F |
631 |
FIND_BETA |
& - (rhoLoc(i,j)*rhoDen(i,j))*dden_dsalt ) |
|
./model/src/find_alpha.F |
81 |
FIND_ALPHA |
DO i=iMin,iMax |
|
./model/src/find_alpha.F |
82 |
FIND_ALPHA |
alphaLoc(i,j) = -rhonil * tAlpha |
|
./model/src/find_alpha.F |
92 |
FIND_ALPHA |
DO i=iMin,iMax |
|
./model/src/find_alpha.F |
93 |
FIND_ALPHA |
tP=theta(i,j,k,bi,bj)-refTemp |
|
./model/src/find_alpha.F |
94 |
FIND_ALPHA |
sP=salt(i,j,k,bi,bj)-refSalt |
|
./model/src/find_alpha.F |
96 |
FIND_ALPHA |
alphaLoc(i,j) = |
|
./pkg/rw/read_mflds.F |
116 |
READ_MFLDS_SET |
INTEGER i, j, ioUnit |
|
./pkg/rw/read_mflds.F |
125 |
READ_MFLDS_SET |
i = ILNBLNK(mFldsFile) |
|
./pkg/rw/read_mflds.F |
126 |
READ_MFLDS_SET |
IF ( i.NE.0 ) THEN |
|
./pkg/rw/read_mflds.F |
127 |
READ_MFLDS_SET |
i = MIN(i, MAX_LEN_MBUF-48-34 ) |
|
./pkg/rw/read_mflds.F |
129 |
READ_MFLDS_SET |
& 'MFLDS file-name already set to: ',mFldsFile(1:i) |
|
./pkg/rw/read_mflds.F |
144 |
READ_MFLDS_SET |
DO i=1,sizFldList |
|
./pkg/rw/read_mflds.F |
145 |
READ_MFLDS_SET |
fldList(i) = ' ' |
|
./pkg/rw/read_mflds.F |
146 |
READ_MFLDS_SET |
fldMiss(i) = ' ' |
|
./pkg/rw/read_mflds.F |
191 |
READ_MFLDS_SET |
i = ILNBLNK(simulName) |
|
./pkg/rw/read_mflds.F |
192 |
READ_MFLDS_SET |
IF ( i.GE.1 ) THEN |
|
./pkg/rw/read_mflds.F |
193 |
READ_MFLDS_SET |
WRITE(msgBuf,'(3A)') ' simulName=>', simulName(1:i), '<' |
|
./pkg/rw/read_mflds.F |
196 |
READ_MFLDS_SET |
i = ILNBLNK(titleLine) |
|
./pkg/rw/read_mflds.F |
197 |
READ_MFLDS_SET |
IF ( i.GE.1 ) THEN |
|
./pkg/rw/read_mflds.F |
198 |
READ_MFLDS_SET |
WRITE(msgBuf,'(3A)') ' titleLine=>', titleLine(1:i), '<' |
|
./pkg/rw/read_mflds.F |
208 |
READ_MFLDS_SET |
WRITE(msgBuf,'(I4,A,3I4)') j,':',(dimList(i,j),i=1,3) |
|
./pkg/rw/read_mflds.F |
216 |
READ_MFLDS_SET |
& (' >', fldList(i), '<', i=j,MIN(j+19,nFlds) ) |
|
./pkg/rw/read_mflds.F |
223 |
READ_MFLDS_SET |
WRITE(msgBuf,'(1P20E20.12)') (timList(i),i=1,nTimRec) |
|
./pkg/rw/read_mflds.F |
39 |
READ_MFLDS_INIT |
INTEGER i |
|
./pkg/rw/read_mflds.F |
50 |
READ_MFLDS_INIT |
DO i=1,sizFldList |
|
./pkg/rw/read_mflds.F |
51 |
READ_MFLDS_INIT |
fldList(i) = ' ' |
|
./pkg/rw/read_mflds.F |
52 |
READ_MFLDS_INIT |
fldMiss(i) = ' ' |
|
./pkg/rw/read_mflds.F |
663 |
READ_MFLDS_CHECK |
INTEGER i, j, nj, iL, ioUnit |
|
./pkg/rw/read_mflds.F |
701 |
READ_MFLDS_CHECK |
& (' >', fldList(i), '<', i=j,MIN(j+19,nFlds) ) |
|
./pkg/rw/read_mflds.F |
710 |
READ_MFLDS_CHECK |
& (' >', fldMiss(i), '<', i=j,MIN(j+19,nj) ) |
|
./pkg/rw/read_mflds.F |
788 |
READ_MFLDS_RENAME |
INTEGER i , j |
|
./pkg/rw/read_mflds.F |
796 |
READ_MFLDS_RENAME |
DO i=1,nFlds |
|
./pkg/rw/read_mflds.F |
797 |
READ_MFLDS_RENAME |
IF ( fldList(i) .EQ. fldName ) THEN |
|
./pkg/rw/read_mflds.F |
800 |
READ_MFLDS_RENAME |
j = i |
|
./pkg/rw/read_mflds.F |
810 |
READ_MFLDS_RENAME |
DO i=1,nFlds |
|
./pkg/rw/read_mflds.F |
811 |
READ_MFLDS_RENAME |
IF ( fldList(i).EQ.newName ) errCode = 2 |
|
./pkg/rw/write_fld_s3d_rl.F |
57 |
WRITE_FLD_S3D_RL |
INTEGER i,j,k,bi,bj |
|
./pkg/rw/write_fld_s3d_rl.F |
91 |
WRITE_FLD_S3D_RL |
DO i=1,sNx |
|
./pkg/rw/write_fld_s3d_rl.F |
92 |
WRITE_FLD_S3D_RL |
locVar(i,j,k,bi,bj) = field(i,j,k,bi,bj) |
|
./pkg/rw/write_fld_s3d_rs.F |
57 |
WRITE_FLD_S3D_RS |
INTEGER i,j,k,bi,bj |
|
./pkg/rw/write_fld_s3d_rs.F |
91 |
WRITE_FLD_S3D_RS |
DO i=1,sNx |
|
./pkg/rw/write_fld_s3d_rs.F |
92 |
WRITE_FLD_S3D_RS |
locVar(i,j,k,bi,bj) = field(i,j,k,bi,bj) |
|
./model/src/find_rho.F |
106 |
FIND_RHO_2D |
DO i=iMin,iMax |
|
./model/src/find_rho.F |
107 |
FIND_RHO_2D |
rhoLoc(i,j)=rhoNil*( |
|
./model/src/find_rho.F |
108 |
FIND_RHO_2D |
& sBeta*(sFld(i,j)-refSalt) |
|
./model/src/find_rho.F |
109 |
FIND_RHO_2D |
& -tAlpha*(tFld(i,j)-refTemp) ) |
|
./model/src/find_rho.F |
1218 |
LOOK_FOR_NEG_SALINITY |
INTEGER i,j, localWarning |
|
./model/src/find_rho.F |
121 |
FIND_RHO_2D |
DO i=iMin,iMax |
|
./model/src/find_rho.F |
1224 |
LOOK_FOR_NEG_SALINITY |
DO i=iMin,iMax |
|
./model/src/find_rho.F |
1226 |
LOOK_FOR_NEG_SALINITY |
IF ( sFld(i,j) .LT. 0. _d 0 ) THEN |
|
./model/src/find_rho.F |
1228 |
LOOK_FOR_NEG_SALINITY |
sFld(i,j) = 0. _d 0 |
|
./model/src/find_rho.F |
122 |
FIND_RHO_2D |
tP=tFld(i,j)-refTemp |
|
./model/src/find_rho.F |
123 |
FIND_RHO_2D |
sP=sFld(i,j)-refSalt |
|
./model/src/find_rho.F |
145 |
FIND_RHO_2D |
rhoLoc(i,j)=sigRef+deltaSig |
|
./model/src/find_rho.F |
175 |
FIND_RHO_2D |
DO i=iMin,iMax |
|
./model/src/find_rho.F |
178 |
FIND_RHO_2D |
rhoLoc(i,j) = rhoP0(i,j) |
|
./model/src/find_rho.F |
180 |
FIND_RHO_2D |
& locPres(i,j)*SItoBar/bulkMod(i,j) ) |
|
./model/src/find_rho.F |
210 |
FIND_RHO_2D |
DO i=iMin,iMax |
|
./model/src/find_rho.F |
211 |
FIND_RHO_2D |
rhoLoc(i,j) = rhoNum(i,j)*rhoDen(i,j) - rhoConst |
|
./model/src/find_rho.F |
233 |
FIND_RHO_2D |
DO i=iMin,iMax |
|
./model/src/find_rho.F |
234 |
FIND_RHO_2D |
rhoLoc(i,j) = rhoNum(i,j)*rhoDen(i,j) - rhoConst |
|
./model/src/find_rho.F |
248 |
FIND_RHO_2D |
DO i=iMin,iMax |
|
./model/src/find_rho.F |
249 |
FIND_RHO_2D |
IF ( locPres(i,j).GT.zeroRL .AND. tFld(i,j).GT.zeroRL ) THEN |
|
./model/src/find_rho.F |
250 |
FIND_RHO_2D |
facPres = ( locPres(i,j)/atm_Po )**oneMinusKap |
|
./model/src/find_rho.F |
251 |
FIND_RHO_2D |
theta_v = tFld(i,j)*( sFld(i,j)*atm_Rq + oneRL ) |
|
./model/src/find_rho.F |
252 |
FIND_RHO_2D |
rhoLoc(i,j) = atm_Po*facPres |
|
./model/src/find_rho.F |
255 |
FIND_RHO_2D |
rhoLoc(i,j) = zeroRL |
|
./model/src/find_rho.F |
306 |
FIND_RHOP0 |
INTEGER i,j |
|
./model/src/find_rho.F |
334 |
FIND_RHOP0 |
DO i=iMin,iMax |
|
./model/src/find_rho.F |
336 |
FIND_RHOP0 |
t = tFld(i,j) |
|
./model/src/find_rho.F |
345 |
FIND_RHOP0 |
s = sFld(i,j) |
|
./model/src/find_rho.F |
399 |
FIND_RHOP0 |
rhoP0(i,j) = rfresh + rsalt |
|
./model/src/find_rho.F |
445 |
FIND_BULKMOD |
INTEGER i,j |
|
./model/src/find_rho.F |
487 |
FIND_BULKMOD |
DO i=iMin,iMax |
|
./model/src/find_rho.F |
489 |
FIND_BULKMOD |
t = tFld(i,j) |
|
./model/src/find_rho.F |
498 |
FIND_BULKMOD |
s = sFld(i,j) |
|
./model/src/find_rho.F |
506 |
FIND_BULKMOD |
p = locPres(i,j)*SItoBar |
|
./model/src/find_rho.F |
581 |
FIND_BULKMOD |
bulkMod(i,j) = bMfresh + bMsalt + bMpres |
|
./model/src/find_rho.F |
628 |
FIND_RHONUM |
INTEGER i,j |
|
./model/src/find_rho.F |
632 |
FIND_RHONUM |
DO i=iMin,iMax |
|
./model/src/find_rho.F |
634 |
FIND_RHONUM |
t1 = tFld(i,j) |
|
./model/src/find_rho.F |
636 |
FIND_RHONUM |
s1 = sFld(i,j) |
|
./model/src/find_rho.F |
638 |
FIND_RHONUM |
p1 = locPres(i,j)*SItodBar |
|
./model/src/find_rho.F |
640 |
FIND_RHONUM |
rhoNum(i,j) = eosMDJWFnum(0) |
|
./model/src/find_rho.F |
66 |
FIND_RHO_2D |
INTEGER i,j |
|
./model/src/find_rho.F |
694 |
FIND_RHODEN |
INTEGER i,j |
|
./model/src/find_rho.F |
700 |
FIND_RHODEN |
DO i=iMin,iMax |
|
./model/src/find_rho.F |
702 |
FIND_RHODEN |
t1 = tFld(i,j) |
|
./model/src/find_rho.F |
704 |
FIND_RHODEN |
s1 = sFld(i,j) |
|
./model/src/find_rho.F |
716 |
FIND_RHODEN |
p1 = locPres(i,j)*SItodBar |
|
./model/src/find_rho.F |
730 |
FIND_RHODEN |
rhoDen(i,j) = 1.0/(epsln+den) |
|
./model/src/find_rho.F |
778 |
FIND_RHOTEOS |
INTEGER i,j |
|
./model/src/find_rho.F |
784 |
FIND_RHOTEOS |
DO i=iMin,iMax |
|
./model/src/find_rho.F |
786 |
FIND_RHOTEOS |
ct = tFld(i,j) |
|
./model/src/find_rho.F |
787 |
FIND_RHOTEOS |
sa = sFld(i,j) |
|
./model/src/find_rho.F |
798 |
FIND_RHOTEOS |
p = locPres(i,j)*SItodBar |
|
./model/src/find_rho.F |
79 |
FIND_RHO_2D |
DO i=1-OLx,sNx+OLx |
|
./model/src/find_rho.F |
800 |
FIND_RHOTEOS |
rhoNum(i,j) = teos(01) |
|
./model/src/find_rho.F |
80 |
FIND_RHO_2D |
rhoLoc(i,j) = 0. _d 0 |
|
./model/src/find_rho.F |
81 |
FIND_RHO_2D |
rhoP0(i,j) = 0. _d 0 |
|
./model/src/find_rho.F |
821 |
FIND_RHOTEOS |
rhoDen(i,j) = 1.0/(epsln+den) |
|
./model/src/find_rho.F |
82 |
FIND_RHO_2D |
bulkMod(i,j) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_apply.F |
152 |
SALT_PLUME_APPLY |
DO i=1,OLx |
|
./pkg/salt_plume/salt_plume_apply.F |
153 |
SALT_PLUME_APPLY |
plumetend(i,j,k) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_apply.F |
154 |
SALT_PLUME_APPLY |
work(i,j,k) = tracer(i,j,k,bi,bj) |
|
./pkg/salt_plume/salt_plume_apply.F |
159 |
SALT_PLUME_APPLY |
DO i=1,OLx |
|
./pkg/salt_plume/salt_plume_apply.F |
160 |
SALT_PLUME_APPLY |
work(i,j,Nrp1) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_apply.F |
175 |
SALT_PLUME_APPLY |
DO i=1-OLx,sNx+OLx |
|
./pkg/salt_plume/salt_plume_apply.F |
176 |
SALT_PLUME_APPLY |
SPforcingT(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/salt_plume/salt_plume_apply.F |
184 |
SALT_PLUME_APPLY |
DO i=1-OLx,sNx+OLx |
|
./pkg/salt_plume/salt_plume_apply.F |
185 |
SALT_PLUME_APPLY |
SPforcingS(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/salt_plume/salt_plume_apply.F |
194 |
SALT_PLUME_APPLY |
DO i=1-OLx,sNx+OLx |
|
./pkg/salt_plume/salt_plume_apply.F |
196 |
SALT_PLUME_APPLY |
IF(trIdentity.EQ.GAD_TEMPERATURE) SurfVal=tracer(i,j,1,bi,bj) |
|
./pkg/salt_plume/salt_plume_apply.F |
198 |
SALT_PLUME_APPLY |
gTr_totSurf2Below = SPbrineVolFlux(i,j,bi,bj)*SurfVal |
|
./pkg/salt_plume/salt_plume_apply.F |
199 |
SALT_PLUME_APPLY |
gTr_Surf2kLev = dSPvolSurf2kLev(i,j,k,bi,bj) * SurfVal |
|
./pkg/salt_plume/salt_plume_apply.F |
200 |
SALT_PLUME_APPLY |
dSPvolBelow2kLev = -dSPvolkLev2Above(i,j,kp1,bi,bj) |
|
./pkg/salt_plume/salt_plume_apply.F |
201 |
SALT_PLUME_APPLY |
gTr_Below2kLev= dSPvolBelow2kLev * work(i,j,kp1) |
|
./pkg/salt_plume/salt_plume_apply.F |
206 |
SALT_PLUME_APPLY |
gTr_kLev2Above= dSPvolkLev2Above(i,j,k,bi,bj) * work(i,j,k) |
|
./pkg/salt_plume/salt_plume_apply.F |
210 |
SALT_PLUME_APPLY |
plumetend(i,j,k) = ConvertFac * |
|
./pkg/salt_plume/salt_plume_apply.F |
212 |
SALT_PLUME_APPLY |
IF(k.eq.1) plumetend(i,j,k) = ConvertFac * |
|
./pkg/salt_plume/salt_plume_apply.F |
225 |
SALT_PLUME_APPLY |
SPforcingS(i,j,k,bi,bj)=plumetend(i,j,k) |
|
./pkg/salt_plume/salt_plume_apply.F |
228 |
SALT_PLUME_APPLY |
SPforcingT(i,j,k,bi,bj)=plumetend(i,j,k) |
|
./pkg/salt_plume/salt_plume_apply.F |
248 |
SALT_PLUME_APPLY |
DO i=1-OLx,sNx+OLx |
|
./pkg/salt_plume/salt_plume_apply.F |
250 |
SALT_PLUME_APPLY |
& plumetend(i,j,k)=SPforcingT(i,j,k,bi,bj) |
|
./pkg/salt_plume/salt_plume_apply.F |
252 |
SALT_PLUME_APPLY |
plumetend(i,j,k)=SPforcingS(i,j,k,bi,bj) |
|
./pkg/salt_plume/salt_plume_apply.F |
70 |
SALT_PLUME_APPLY |
INTEGER i, j, k |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
121 |
SALT_PLUME_CALC_DEPTH |
DO i=1-Olx,sNx+Olx |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
122 |
SALT_PLUME_CALC_DEPTH |
IF ( k.LE.klowC(i,j,bi,bj) .AND. |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
123 |
SALT_PLUME_CALC_DEPTH |
& rhoLoc(i,j).GE.rhoMxL(i,j) ) THEN |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
124 |
SALT_PLUME_CALC_DEPTH |
IF ( rhoLoc(i,j).GT.rhoKm1(i,j) ) THEN |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
125 |
SALT_PLUME_CALC_DEPTH |
tmpFac = ( rhoMxL(i,j) - rhoKm1(i,j) ) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
126 |
SALT_PLUME_CALC_DEPTH |
& / ( rhoLoc(i,j) - rhoKm1(i,j) ) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
130 |
SALT_PLUME_CALC_DEPTH |
SaltPlumeDepth(i,j,bi,bj) = rF(1)-rC(k-1)+tmpFac*drC(k) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
131 |
SALT_PLUME_CALC_DEPTH |
rhoMxL(i,j) = rhoBigNb |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
133 |
SALT_PLUME_CALC_DEPTH |
rhoKm1(i,j) = rhoLoc(i,j) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
142 |
SALT_PLUME_CALC_DEPTH |
DO i=1-Olx,sNx+Olx |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
143 |
SALT_PLUME_CALC_DEPTH |
SaltPlumeDepth(i,j,bi,bj) = rF(1)-R_low(I,J,bi,bj) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
144 |
SALT_PLUME_CALC_DEPTH |
SPIND(i,j) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
155 |
SALT_PLUME_CALC_DEPTH |
DO i=1-Olx,sNx+Olx |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
156 |
SALT_PLUME_CALC_DEPTH |
GG =-1.0*sigmaR(i,j,k) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
157 |
SALT_PLUME_CALC_DEPTH |
GGm1=-1.0*sigmaR(i,j,k-1) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
158 |
SALT_PLUME_CALC_DEPTH |
IF ( k.LE.klowC(i,j,bi,bj) .AND. |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
163 |
SALT_PLUME_CALC_DEPTH |
IF(SPIND(i,j) .LT. 0.5) THEN |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
164 |
SALT_PLUME_CALC_DEPTH |
SaltPlumeDepth(i,j,bi,bj) = rF(1)-rC(k-1)+tmpFac*drC(k) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
165 |
SALT_PLUME_CALC_DEPTH |
SPIND(i,j)=1. |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
176 |
SALT_PLUME_CALC_DEPTH |
DO i=1-Olx,sNx+Olx |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
177 |
SALT_PLUME_CALC_DEPTH |
SaltPlumeDepth(i,j,bi,bj) = |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
178 |
SALT_PLUME_CALC_DEPTH |
& min( SaltPlumeDepth(i,j,bi,bj)*SPovershoot, |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
179 |
SALT_PLUME_CALC_DEPTH |
& rF(1)-R_low(i,j,bi,bj) ) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
186 |
SALT_PLUME_CALC_DEPTH |
DO i=1-Olx,sNx+Olx |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
187 |
SALT_PLUME_CALC_DEPTH |
SaltPlumeDepth(i,j,bi,bj) = |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
188 |
SALT_PLUME_CALC_DEPTH |
& min( SaltPlumeDepth(i,j,bi,bj), |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
189 |
SALT_PLUME_CALC_DEPTH |
& rF(1)-R_low(i,j,bi,bj) ) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
58 |
SALT_PLUME_CALC_DEPTH |
INTEGER i,j,k |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
81 |
SALT_PLUME_CALC_DEPTH |
DO i=1-Olx,sNx+Olx |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
82 |
SALT_PLUME_CALC_DEPTH |
SaltPlumeDepth(i,j,bi,bj) = rF(1)-R_low(I,J,bi,bj) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
83 |
SALT_PLUME_CALC_DEPTH |
SPIND(i,j) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
84 |
SALT_PLUME_CALC_DEPTH |
rhoKm1(i,j) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
85 |
SALT_PLUME_CALC_DEPTH |
rhoMxL(i,j) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
94 |
SALT_PLUME_CALC_DEPTH |
DO i=1-Olx,sNx+Olx |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
95 |
SALT_PLUME_CALC_DEPTH |
SaltPlumeDepth(i,j,bi,bj) = rF(1)-R_low(I,J,bi,bj) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
96 |
SALT_PLUME_CALC_DEPTH |
rhoKm1(i,j) = rhoSurf(i,j) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
97 |
SALT_PLUME_CALC_DEPTH |
rhoMxL(i,j) = rhoSurf(i,j) + SaltPlumeCriterion |
|
./model/src/forcing_surf_relax.F |
100 |
FORCING_SURF_RELAX |
& -lambdaThetaClimRelax(i,j,bi,bj) |
|
./model/src/forcing_surf_relax.F |
101 |
FORCING_SURF_RELAX |
& *(theta(i,j,ks,bi,bj)-SST(i,j,bi,bj)) |
|
./model/src/forcing_surf_relax.F |
102 |
FORCING_SURF_RELAX |
& *drF(ks)*_hFacC(i,j,ks,bi,bj) |
|
./model/src/forcing_surf_relax.F |
104 |
FORCING_SURF_RELAX |
surfaceForcingS(i,j,bi,bj) = |
|
./model/src/forcing_surf_relax.F |
105 |
FORCING_SURF_RELAX |
& -lambdaSaltClimRelax(i,j,bi,bj) |
|
./model/src/forcing_surf_relax.F |
106 |
FORCING_SURF_RELAX |
& *(salt(i,j,ks,bi,bj)-SSS(i,j,bi,bj)) |
|
./model/src/forcing_surf_relax.F |
107 |
FORCING_SURF_RELAX |
& *drF(ks)*_hFacC(i,j,ks,bi,bj) |
|
./model/src/forcing_surf_relax.F |
122 |
FORCING_SURF_RELAX |
DO i=iMin,iMax |
|
./model/src/forcing_surf_relax.F |
123 |
FORCING_SURF_RELAX |
surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj) |
|
./model/src/forcing_surf_relax.F |
124 |
FORCING_SURF_RELAX |
& * rStarExpC(i,j,bi,bj) |
|
./model/src/forcing_surf_relax.F |
125 |
FORCING_SURF_RELAX |
surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj) |
|
./model/src/forcing_surf_relax.F |
126 |
FORCING_SURF_RELAX |
& * rStarExpC(i,j,bi,bj) |
|
./model/src/forcing_surf_relax.F |
133 |
FORCING_SURF_RELAX |
DO i=iMin,iMax |
|
./model/src/forcing_surf_relax.F |
134 |
FORCING_SURF_RELAX |
surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj) |
|
./model/src/forcing_surf_relax.F |
135 |
FORCING_SURF_RELAX |
& *( 1. _d 0 + dEtaHdt(i,j,bi,bj)*deltaTFreeSurf |
|
./model/src/forcing_surf_relax.F |
137 |
FORCING_SURF_RELAX |
& *recip_hFacC(i,j,ks,bi,bj) |
|
./model/src/forcing_surf_relax.F |
139 |
FORCING_SURF_RELAX |
surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj) |
|
./model/src/forcing_surf_relax.F |
140 |
FORCING_SURF_RELAX |
& *( 1. _d 0 + dEtaHdt(i,j,bi,bj)*deltaTFreeSurf |
|
./model/src/forcing_surf_relax.F |
142 |
FORCING_SURF_RELAX |
& *recip_hFacC(i,j,ks,bi,bj) |
|
./model/src/forcing_surf_relax.F |
149 |
FORCING_SURF_RELAX |
DO i=iMin,iMax |
|
./model/src/forcing_surf_relax.F |
150 |
FORCING_SURF_RELAX |
IF (ks.EQ.kSurfC(i,j,bi,bj)) THEN |
|
./model/src/forcing_surf_relax.F |
151 |
FORCING_SURF_RELAX |
surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj) |
|
./model/src/forcing_surf_relax.F |
152 |
FORCING_SURF_RELAX |
& *_recip_hFacC(i,j,ks,bi,bj)*hFac_surfC(i,j,bi,bj) |
|
./model/src/forcing_surf_relax.F |
153 |
FORCING_SURF_RELAX |
surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj) |
|
./model/src/forcing_surf_relax.F |
154 |
FORCING_SURF_RELAX |
& *_recip_hFacC(i,j,ks,bi,bj)*hFac_surfC(i,j,bi,bj) |
|
./model/src/forcing_surf_relax.F |
175 |
FORCING_SURF_RELAX |
DO i=1,sNx |
|
./model/src/forcing_surf_relax.F |
177 |
FORCING_SURF_RELAX |
& + surfaceForcingT(i,j,bi,bj) |
|
./model/src/forcing_surf_relax.F |
178 |
FORCING_SURF_RELAX |
& *rA(i,j,bi,bj)*maskInC(i,j,bi,bj) |
|
./model/src/forcing_surf_relax.F |
189 |
FORCING_SURF_RELAX |
DO i=1-OLx,sNx+OLx |
|
./model/src/forcing_surf_relax.F |
190 |
FORCING_SURF_RELAX |
surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj) |
|
./model/src/forcing_surf_relax.F |
211 |
FORCING_SURF_RELAX |
DO i=1,sNx |
|
./model/src/forcing_surf_relax.F |
213 |
FORCING_SURF_RELAX |
& + surfaceForcingS(i,j,bi,bj) |
|
./model/src/forcing_surf_relax.F |
214 |
FORCING_SURF_RELAX |
& *rA(i,j,bi,bj)*maskInC(i,j,bi,bj) |
|
./model/src/forcing_surf_relax.F |
225 |
FORCING_SURF_RELAX |
DO i=1-OLx,sNx+OLx |
|
./model/src/forcing_surf_relax.F |
226 |
FORCING_SURF_RELAX |
surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj) |
|
./model/src/forcing_surf_relax.F |
55 |
FORCING_SURF_RELAX |
INTEGER i,j |
|
./model/src/forcing_surf_relax.F |
81 |
FORCING_SURF_RELAX |
DO i = iMin, iMax |
|
./model/src/forcing_surf_relax.F |
83 |
FORCING_SURF_RELAX |
surfaceForcingT(i,j,bi,bj) = |
|
./model/src/forcing_surf_relax.F |
84 |
FORCING_SURF_RELAX |
& -lambdaThetaClimRelax(i,j,bi,bj)*(1.-AREA(i,j,bi,bj)) |
|
./model/src/forcing_surf_relax.F |
85 |
FORCING_SURF_RELAX |
& *(theta(i,j,ks,bi,bj)-SST(i,j,bi,bj)) |
|
./model/src/forcing_surf_relax.F |
86 |
FORCING_SURF_RELAX |
& *drF(ks)*_hFacC(i,j,ks,bi,bj) |
|
./model/src/forcing_surf_relax.F |
88 |
FORCING_SURF_RELAX |
surfaceForcingS(i,j,bi,bj) = |
|
./model/src/forcing_surf_relax.F |
89 |
FORCING_SURF_RELAX |
& -lambdaSaltClimRelax(i,j,bi,bj) *(1.-AREA(i,j,bi,bj)) |
|
./model/src/forcing_surf_relax.F |
90 |
FORCING_SURF_RELAX |
& *(salt(i,j,ks,bi,bj)-SSS(i,j,bi,bj)) |
|
./model/src/forcing_surf_relax.F |
91 |
FORCING_SURF_RELAX |
& *drF(ks)*_hFacC(i,j,ks,bi,bj) |
|
./model/src/forcing_surf_relax.F |
97 |
FORCING_SURF_RELAX |
DO i = iMin, iMax |
|
./model/src/forcing_surf_relax.F |
99 |
FORCING_SURF_RELAX |
surfaceForcingT(i,j,bi,bj) = |
|
./pkg/salt_plume/salt_plume_do_exch.F |
46 |
SALT_PLUME_DO_EXCH |
INTEGER bi, bj, i, j |
|
./pkg/salt_plume/salt_plume_do_exch.F |
58 |
SALT_PLUME_DO_EXCH |
DO i=1-OLx,sNx+OLx |
|
./pkg/salt_plume/salt_plume_do_exch.F |
59 |
SALT_PLUME_DO_EXCH |
saltPlumeFlux(i,j,bi,bj) = saltPlmFlx_cpl(i,j,bi,bj) |
|
./pkg/salt_plume/salt_plume_forcing_surf.F |
48 |
SALT_PLUME_FORCING_SURF |
INTEGER i, j, ks |
|
./pkg/salt_plume/salt_plume_forcing_surf.F |
56 |
SALT_PLUME_FORCING_SURF |
DO i = iMin, iMax |
|
./pkg/salt_plume/salt_plume_forcing_surf.F |
58 |
SALT_PLUME_FORCING_SURF |
SPforcS1(i,j,bi,bj)=SPbrineVolFlux(i,j,bi,bj) |
|
./pkg/salt_plume/salt_plume_forcing_surf.F |
60 |
SALT_PLUME_FORCING_SURF |
SPforcT1(i,j,bi,bj)=SPbrineVolFlux(i,j,bi,bj) |
|
./pkg/salt_plume/salt_plume_forcing_surf.F |
61 |
SALT_PLUME_FORCING_SURF |
& *theta(i,j,1,bi,bj)*rhoConst |
|
./pkg/salt_plume/salt_plume_forcing_surf.F |
67 |
SALT_PLUME_FORCING_SURF |
surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj) |
|
./pkg/salt_plume/salt_plume_forcing_surf.F |
68 |
SALT_PLUME_FORCING_SURF |
& - SPforcS1(i,j,bi,bj) * mass2rUnit |
|
./pkg/salt_plume/salt_plume_forcing_surf.F |
69 |
SALT_PLUME_FORCING_SURF |
surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj) |
|
./pkg/salt_plume/salt_plume_forcing_surf.F |
70 |
SALT_PLUME_FORCING_SURF |
& - SPforcT1(i,j,bi,bj) * mass2rUnit / HeatCapacity_Cp |
|
./pkg/salt_plume/salt_plume_forcing_surf.F |
72 |
SALT_PLUME_FORCING_SURF |
surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj) |
|
./pkg/salt_plume/salt_plume_forcing_surf.F |
73 |
SALT_PLUME_FORCING_SURF |
& - saltPlumeFlux(i,j,bi,bj) * mass2rUnit |
|
./pkg/salt_plume/salt_plume_frac.F |
102 |
SALT_PLUME_FRAC |
dd20 = (abs(SPDepth(i))) |
|
./pkg/salt_plume/salt_plume_frac.F |
111 |
SALT_PLUME_FRAC |
plumek(i) = max(zero,S) |
|
./pkg/salt_plume/salt_plume_frac.F |
119 |
SALT_PLUME_FRAC |
plumek(i) = max(zero,S/So) |
|
./pkg/salt_plume/salt_plume_frac.F |
123 |
SALT_PLUME_FRAC |
dd = abs(SPDepth(i)) |
|
./pkg/salt_plume/salt_plume_frac.F |
126 |
SALT_PLUME_FRAC |
plumek(i) = max(zero,S*So) |
|
./pkg/salt_plume/salt_plume_frac.F |
133 |
SALT_PLUME_FRAC |
dd20 = (abs(SPDepth(i))) |
|
./pkg/salt_plume/salt_plume_frac.F |
138 |
SALT_PLUME_FRAC |
plumek(i) = max(zero,S/So) |
|
./pkg/salt_plume/salt_plume_frac.F |
140 |
SALT_PLUME_FRAC |
plumek(i) = zero |
|
./pkg/salt_plume/salt_plume_frac.F |
148 |
SALT_PLUME_FRAC |
plumek(i) = zero |
|
./pkg/salt_plume/salt_plume_frac.F |
150 |
SALT_PLUME_FRAC |
plumek(i) = one |
|
./pkg/salt_plume/salt_plume_frac.F |
154 |
SALT_PLUME_FRAC |
dd20 = (abs(SPDepth(i))) |
|
./pkg/salt_plume/salt_plume_frac.F |
166 |
SALT_PLUME_FRAC |
plumek(i) = max(zero,two*So*facz-S) |
|
./pkg/salt_plume/salt_plume_frac.F |
168 |
SALT_PLUME_FRAC |
plumek(i) = max(zero, |
|
./pkg/salt_plume/salt_plume_frac.F |
179 |
SALT_PLUME_FRAC |
plumek(i) = max(zero,two/dd20*facz-S/So) |
|
./pkg/salt_plume/salt_plume_frac.F |
181 |
SALT_PLUME_FRAC |
plumek(i) = max(zero, |
|
./pkg/salt_plume/salt_plume_frac.F |
211 |
SALT_PLUME_FRAC |
plumek(i) = one |
|
./pkg/salt_plume/salt_plume_frac.F |
219 |
SALT_PLUME_FRAC |
plumek(i) = one |
|
./pkg/salt_plume/salt_plume_frac.F |
73 |
SALT_PLUME_FRAC |
INTEGER i, Npowerloc |
|
./pkg/salt_plume/salt_plume_frac.F |
84 |
SALT_PLUME_FRAC |
DO i = 1,imax |
|
./pkg/salt_plume/salt_plume_frac.F |
85 |
SALT_PLUME_FRAC |
facz = abs(fact*plumek(i)) |
|
./pkg/salt_plume/salt_plume_frac.F |
98 |
SALT_PLUME_FRAC |
IF (SPDepth(i).GE.facz .and. SPDepth(i) .GT. zero) THEN |
|
./pkg/salt_plume/salt_plume_init_varia.F |
28 |
SALT_PLUME_INIT_VARIA |
INTEGER i,j, bi,bj,Nrp1 |
|
./pkg/salt_plume/salt_plume_init_varia.F |
40 |
SALT_PLUME_INIT_VARIA |
DO i=1-OLx,sNx+OLx |
|
./pkg/salt_plume/salt_plume_init_varia.F |
41 |
SALT_PLUME_INIT_VARIA |
SaltPlumeDepth (i,j,bi,bj) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_init_varia.F |
42 |
SALT_PLUME_INIT_VARIA |
saltPlumeFlux (i,j,bi,bj) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_init_varia.F |
44 |
SALT_PLUME_INIT_VARIA |
SPbrineVolFlux (i,j,bi,bj) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_init_varia.F |
45 |
SALT_PLUME_INIT_VARIA |
SPforcS1 (i,j,bi,bj) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_init_varia.F |
47 |
SALT_PLUME_INIT_VARIA |
dSPvolSurf2kLev (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_init_varia.F |
48 |
SALT_PLUME_INIT_VARIA |
dSPvolkLev2Above(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_init_varia.F |
49 |
SALT_PLUME_INIT_VARIA |
SPforcingS (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_init_varia.F |
50 |
SALT_PLUME_INIT_VARIA |
SPforcingT (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_init_varia.F |
51 |
SALT_PLUME_INIT_VARIA |
SPplumek (i,j,k,bi,bj) = 1. _d 0 |
|
./pkg/salt_plume/salt_plume_init_varia.F |
53 |
SALT_PLUME_INIT_VARIA |
dSPvolkLev2Above (i,j,Nrp1,bi,bj) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_init_varia.F |
54 |
SALT_PLUME_INIT_VARIA |
SPplumek (i,j,Nrp1,bi,bj) = 1. _d 0 |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
101 |
SALT_PLUME_TENDENCY_APPLY_S |
DO i=1-OLx,sNx+OLx |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
103 |
SALT_PLUME_TENDENCY_APPLY_S |
IF ( SaltPlumeDepth(i,j,bi,bj) .GT. ABS(rF(k)) ) THEN |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
105 |
SALT_PLUME_TENDENCY_APPLY_S |
plumefrac(i,j) = ( plumekb2D(i,j)-plumefrac(i,j) ) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
106 |
SALT_PLUME_TENDENCY_APPLY_S |
& *maskC(i,j,k,bi,bj) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
107 |
SALT_PLUME_TENDENCY_APPLY_S |
plumetend(I,J) = saltPlumeFlux(i,j,bi,bj)*plumefrac(I,J) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
109 |
SALT_PLUME_TENDENCY_APPLY_S |
plumetend(I,J) = SPforcingS(i,j,k,bi,bj) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
111 |
SALT_PLUME_TENDENCY_APPLY_S |
gS_arr(i,j) = gS_arr(i,j) + plumetend(I,J) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
112 |
SALT_PLUME_TENDENCY_APPLY_S |
& *recip_drF(k)*mass2rUnit*_recip_hFacC(i,j,k,bi,bj) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
114 |
SALT_PLUME_TENDENCY_APPLY_S |
plumefrac(i,j) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
122 |
SALT_PLUME_TENDENCY_APPLY_S |
DO i=iMin,iMax |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
124 |
SALT_PLUME_TENDENCY_APPLY_S |
IF ( SaltPlumeDepth(i,j,bi,bj) .GT. ABS(rF(k)) ) THEN |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
129 |
SALT_PLUME_TENDENCY_APPLY_S |
SPdepth(1)=SaltPlumeDepth(i,j,bi,bj) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
130 |
SALT_PLUME_TENDENCY_APPLY_S |
SPdepth(2)=SaltPlumeDepth(i,j,bi,bj) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
132 |
SALT_PLUME_TENDENCY_APPLY_S |
lon(1) = XC(i,j,bi,bj) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
133 |
SALT_PLUME_TENDENCY_APPLY_S |
lon(2) = XC(i,j,bi,bj) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
134 |
SALT_PLUME_TENDENCY_APPLY_S |
lat(1) = YC(i,j,bi,bj) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
135 |
SALT_PLUME_TENDENCY_APPLY_S |
lat(2) = YC(i,j,bi,bj) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
144 |
SALT_PLUME_TENDENCY_APPLY_S |
plumefrac(I,J) = (plumekb(2)-plumekb(1))*maskC(i,j,k,bi,bj) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
145 |
SALT_PLUME_TENDENCY_APPLY_S |
plumetend(I,J) = saltPlumeFlux(i,j,bi,bj)*plumefrac(I,J) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
147 |
SALT_PLUME_TENDENCY_APPLY_S |
plumetend(i,j) = SPforcingS(i,j,k,bi,bj) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
149 |
SALT_PLUME_TENDENCY_APPLY_S |
gS_arr(i,j) = gS_arr(i,j) + plumetend(I,J) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
150 |
SALT_PLUME_TENDENCY_APPLY_S |
& *recip_drF(k)*mass2rUnit*_recip_hFacC(i,j,k,bi,bj) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
51 |
SALT_PLUME_TENDENCY_APPLY_S |
INTEGER i, j |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
75 |
SALT_PLUME_TENDENCY_APPLY_S |
DO i=1-OLx,sNx+OLx |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
76 |
SALT_PLUME_TENDENCY_APPLY_S |
plumekb2D(i,j)=ABS(rF(k)) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
87 |
SALT_PLUME_TENDENCY_APPLY_S |
DO i=1-OLx,sNx+OLx |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
88 |
SALT_PLUME_TENDENCY_APPLY_S |
plumefrac(I,J) = plumekb2D(i,j) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
89 |
SALT_PLUME_TENDENCY_APPLY_S |
plumekb2D(i,j) = ABS(rF(k+1)) |
|
./pkg/salt_plume/salt_plume_tendency_apply_t.F |
51 |
SALT_PLUME_TENDENCY_APPLY_T |
INTEGER i, j |
|
./pkg/salt_plume/salt_plume_tendency_apply_t.F |
57 |
SALT_PLUME_TENDENCY_APPLY_T |
DO i=iMin,iMax |
|
./pkg/salt_plume/salt_plume_tendency_apply_t.F |
58 |
SALT_PLUME_TENDENCY_APPLY_T |
IF ( SaltPlumeDepth(i,j,bi,bj) .GT. ABS(rF(k)) ) THEN |
|
./pkg/salt_plume/salt_plume_tendency_apply_t.F |
59 |
SALT_PLUME_TENDENCY_APPLY_T |
plumeEtend(i,j) = SPforcingT(i,j,k,bi,bj) |
|
./pkg/salt_plume/salt_plume_tendency_apply_t.F |
60 |
SALT_PLUME_TENDENCY_APPLY_T |
gT_arr(i,j) = gT_arr(i,j) + plumeEtend(I,J) |
|
./pkg/salt_plume/salt_plume_tendency_apply_t.F |
61 |
SALT_PLUME_TENDENCY_APPLY_T |
& *recip_drF(k)*mass2rUnit*_recip_hFacC(i,j,k,bi,bj) |
|
./pkg/salt_plume/salt_plume_tendency_apply_t.F |
64 |
SALT_PLUME_TENDENCY_APPLY_T |
plumeEtend(i,j) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_volfrac.F |
108 |
SALT_PLUME_VOLFRAC |
DO i=1-Olx,sNx+Olx |
|
./pkg/salt_plume/salt_plume_volfrac.F |
109 |
SALT_PLUME_VOLFRAC |
SPplumek(i,j,k,bi,bj)=dMbdt(i,j) |
|
./pkg/salt_plume/salt_plume_volfrac.F |
110 |
SALT_PLUME_VOLFRAC |
IF(SPplumek(i,j,k,bi,bj).GT. 0.9999999) THEN |
|
./pkg/salt_plume/salt_plume_volfrac.F |
111 |
SALT_PLUME_VOLFRAC |
SPkBottom(i,j)=k |
|
./pkg/salt_plume/salt_plume_volfrac.F |
119 |
SALT_PLUME_VOLFRAC |
DO i=1-Olx,sNx+Olx |
|
./pkg/salt_plume/salt_plume_volfrac.F |
120 |
SALT_PLUME_VOLFRAC |
dMbdt(i,j)=0. _d 0 |
|
./pkg/salt_plume/salt_plume_volfrac.F |
147 |
SALT_PLUME_VOLFRAC |
DO i=1-OLx,sNx+OLx |
|
./pkg/salt_plume/salt_plume_volfrac.F |
149 |
SALT_PLUME_VOLFRAC |
dMbdt(i,j)=saltPlumeFlux(i,j,bi,bj)/SPbrineSconst |
|
./pkg/salt_plume/salt_plume_volfrac.F |
150 |
SALT_PLUME_VOLFRAC |
SPbrineVolFlux(i,j,bi,bj)=dMbdt(i,j)*mass2rUnit |
|
./pkg/salt_plume/salt_plume_volfrac.F |
157 |
SALT_PLUME_VOLFRAC |
DO i=1-OLx,sNx+OLx |
|
./pkg/salt_plume/salt_plume_volfrac.F |
158 |
SALT_PLUME_VOLFRAC |
dplumek=SPplumek(i,j,k+1,bi,bj)-SPplumek(i,j,k,bi,bj) |
|
./pkg/salt_plume/salt_plume_volfrac.F |
159 |
SALT_PLUME_VOLFRAC |
dSPvolSurf2kLev(i,j,k,bi,bj)=dplumek*SPbrineVolFlux(i,j,bi,bj) |
|
./pkg/salt_plume/salt_plume_volfrac.F |
166 |
SALT_PLUME_VOLFRAC |
DO i=1-OLx,sNx+OLx |
|
./pkg/salt_plume/salt_plume_volfrac.F |
167 |
SALT_PLUME_VOLFRAC |
Nlev=SPkBottom(i,j) |
|
./pkg/salt_plume/salt_plume_volfrac.F |
171 |
SALT_PLUME_VOLFRAC |
dSPvolkLev2Above(i,j,k,bi,bj)=dSPvolkLev2Above(i,j,kp1,bi,bj) |
|
./pkg/salt_plume/salt_plume_volfrac.F |
172 |
SALT_PLUME_VOLFRAC |
& - dSPvolSurf2kLev(i,j,k,bi,bj) |
|
./pkg/salt_plume/salt_plume_volfrac.F |
68 |
SALT_PLUME_VOLFRAC |
INTEGER i,j,k,kp1,Nlev,Nrp1 |
|
./pkg/salt_plume/salt_plume_volfrac.F |
76 |
SALT_PLUME_VOLFRAC |
DO i=1-OLx,sNx+OLx |
|
./pkg/salt_plume/salt_plume_volfrac.F |
77 |
SALT_PLUME_VOLFRAC |
dSPvolSurf2kLev(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_volfrac.F |
78 |
SALT_PLUME_VOLFRAC |
dSPvolkLev2Above(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_volfrac.F |
79 |
SALT_PLUME_VOLFRAC |
SPplumek(i,j,k,bi,bj) = 1. _d 0 |
|
./pkg/salt_plume/salt_plume_volfrac.F |
84 |
SALT_PLUME_VOLFRAC |
DO i=1-OLx,sNx+OLx |
|
./pkg/salt_plume/salt_plume_volfrac.F |
85 |
SALT_PLUME_VOLFRAC |
SPplumek(i,j,Nrp1,bi,bj) = 1. _d 0 |
|
./pkg/salt_plume/salt_plume_volfrac.F |
86 |
SALT_PLUME_VOLFRAC |
SPbrineVolFlux(i,j,bi,bj) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_volfrac.F |
87 |
SALT_PLUME_VOLFRAC |
SPkBottom(i,j) = 0 |
|
./pkg/salt_plume/salt_plume_volfrac.F |
95 |
SALT_PLUME_VOLFRAC |
DO i=1-Olx,sNx+Olx |
|
./pkg/salt_plume/salt_plume_volfrac.F |
96 |
SALT_PLUME_VOLFRAC |
temp(i,j)=SaltPlumeDepth(i,j,bi,bj) |
|
./pkg/salt_plume/salt_plume_volfrac.F |
97 |
SALT_PLUME_VOLFRAC |
dMbdt(i,j)=abs(rF(k)) |
|
./pkg/sbo/sbo_calc.F |
106 |
SBO_CALC |
integer bi, bj, i, j, k |
|
./pkg/sbo/sbo_calc.F |
203 |
SBO_CALC |
DO i=1-OLx,sNx+OLx |
|
./pkg/sbo/sbo_calc.F |
204 |
SBO_CALC |
UEice(i,j,bi,bj) = 0. |
|
./pkg/sbo/sbo_calc.F |
205 |
SBO_CALC |
VNice(i,j,bi,bj) = 0. |
|
./pkg/sbo/sbo_calc.F |
229 |
SBO_CALC |
DO i = 1, sNx |
|
./pkg/sbo/sbo_calc.F |
230 |
SBO_CALC |
darea = rA(i,j,bi,bj)*maskC(i,j,1,bi,bj) |
|
./pkg/sbo/sbo_calc.F |
233 |
SBO_CALC |
& rhoConst*etaN(i,j,bi,bj)*darea + |
|
./pkg/sbo/sbo_calc.F |
234 |
SBO_CALC |
& sIceLoad(i,j,bi,bj)*darea |
|
./pkg/sbo/sbo_calc.F |
236 |
SBO_CALC |
dvolume = rA(i,j,bi,bj)*drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/sbo/sbo_calc.F |
238 |
SBO_CALC |
& rhoInSitu(i,j,k,bi,bj) * dvolume |
|
./pkg/sbo/sbo_calc.F |
254 |
SBO_CALC |
DO i = 1-OLx, sNx+OLx |
|
./pkg/sbo/sbo_calc.F |
255 |
SBO_CALC |
Mload(i,j,bi,bj) = rhoConst*etaN(i,j,bi,bj) + |
|
./pkg/sbo/sbo_calc.F |
256 |
SBO_CALC |
& sIceLoad(i,j,bi,bj) + |
|
./pkg/sbo/sbo_calc.F |
257 |
SBO_CALC |
& GCload - R_low(i,j,bi,bj)*rhoConst |
|
./pkg/sbo/sbo_calc.F |
259 |
SBO_CALC |
Mload(i,j,bi,bj) = Mload(i,j,bi,bj) + |
|
./pkg/sbo/sbo_calc.F |
260 |
SBO_CALC |
& rhoInSitu(i,j,k,bi,bj)*drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/sbo/sbo_calc.F |
271 |
SBO_CALC |
DO i = 1-OLx, sNx+OLx |
|
./pkg/sbo/sbo_calc.F |
272 |
SBO_CALC |
lat = yC(i,j,bi,bj) * deg2rad |
|
./pkg/sbo/sbo_calc.F |
273 |
SBO_CALC |
lon = xC(i,j,bi,bj) * deg2rad |
|
./pkg/sbo/sbo_calc.F |
274 |
SBO_CALC |
COSlat(i,j,bi,bj) = COS(lat) |
|
./pkg/sbo/sbo_calc.F |
275 |
SBO_CALC |
SINlat(i,j,bi,bj) = SIN(lat) |
|
./pkg/sbo/sbo_calc.F |
276 |
SBO_CALC |
COSlon(i,j,bi,bj) = COS(lon) |
|
./pkg/sbo/sbo_calc.F |
277 |
SBO_CALC |
SINlon(i,j,bi,bj) = SIN(lon) |
|
./pkg/sbo/sbo_calc.F |
318 |
SBO_CALC |
DO i = 1, sNx |
|
./pkg/sbo/sbo_calc.F |
320 |
SBO_CALC |
IF ( maskC(i,j,1,bi,bj) .NE. 0. ) THEN |
|
./pkg/sbo/sbo_calc.F |
323 |
SBO_CALC |
darea = rA(i,j,bi,bj)*maskC(i,j,1,bi,bj) |
|
./pkg/sbo/sbo_calc.F |
327 |
SBO_CALC |
& Mload(i,j,bi,bj)*darea |
|
./pkg/sbo/sbo_calc.F |
331 |
SBO_CALC |
& sIceLoad(i,j,bi,bj)*darea |
|
./pkg/sbo/sbo_calc.F |
335 |
SBO_CALC |
& Mload(i,j,bi,bj)*COSlat(i,j,bi,bj)*COSlon(i,j,bi,bj) |
|
./pkg/sbo/sbo_calc.F |
338 |
SBO_CALC |
& Mload(i,j,bi,bj)*COSlat(i,j,bi,bj)*SINlon(i,j,bi,bj) |
|
./pkg/sbo/sbo_calc.F |
341 |
SBO_CALC |
& Mload(i,j,bi,bj)*SINlat(i,j,bi,bj) |
|
./pkg/sbo/sbo_calc.F |
347 |
SBO_CALC |
dvolume = rA(i,j,bi,bj)*drF(k) |
|
./pkg/sbo/sbo_calc.F |
348 |
SBO_CALC |
& * maskC(i,j,k,bi,bj)*hFacC(i,j,k,bi,bj) |
|
./pkg/sbo/sbo_calc.F |
350 |
SBO_CALC |
& ( VN(i,j,k,bi,bj)*SINlon(i,j,bi,bj) - |
|
./pkg/sbo/sbo_calc.F |
351 |
SBO_CALC |
& UE(i,j,k,bi,bj)* |
|
./pkg/sbo/sbo_calc.F |
352 |
SBO_CALC |
& SINlat(i,j,bi,bj)*COSlon(i,j,bi,bj) ) |
|
./pkg/sbo/sbo_calc.F |
355 |
SBO_CALC |
& (-VN(i,j,k,bi,bj)*COSlon(i,j,bi,bj) - |
|
./pkg/sbo/sbo_calc.F |
356 |
SBO_CALC |
& UE(i,j,k,bi,bj)* |
|
./pkg/sbo/sbo_calc.F |
357 |
SBO_CALC |
& SINlat(i,j,bi,bj)*SINlon(i,j,bi,bj) ) |
|
./pkg/sbo/sbo_calc.F |
360 |
SBO_CALC |
& UE(i,j,k,bi,bj)*COSlat(i,j,bi,bj) |
|
./pkg/sbo/sbo_calc.F |
366 |
SBO_CALC |
& ( VNice(i,j,bi,bj)*SINlon(i,j,bi,bj) - |
|
./pkg/sbo/sbo_calc.F |
367 |
SBO_CALC |
& UEice(i,j,bi,bj)* |
|
./pkg/sbo/sbo_calc.F |
368 |
SBO_CALC |
& SINlat(i,j,bi,bj)*COSlon(i,j,bi,bj) ) |
|
./pkg/sbo/sbo_calc.F |
369 |
SBO_CALC |
& * sIceLoad(i,j,bi,bj) * ae * darea |
|
./pkg/sbo/sbo_calc.F |
371 |
SBO_CALC |
& (-VNice(i,j,bi,bj)*COSlon(i,j,bi,bj) - |
|
./pkg/sbo/sbo_calc.F |
372 |
SBO_CALC |
& UEice(i,j,bi,bj)* |
|
./pkg/sbo/sbo_calc.F |
373 |
SBO_CALC |
& SINlat(i,j,bi,bj)*SINlon(i,j,bi,bj) ) |
|
./pkg/sbo/sbo_calc.F |
374 |
SBO_CALC |
& * sIceLoad(i,j,bi,bj) * ae * darea |
|
./pkg/sbo/sbo_calc.F |
376 |
SBO_CALC |
& UEice(i,j,bi,bj)*COSlat(i,j,bi,bj) |
|
./pkg/sbo/sbo_calc.F |
377 |
SBO_CALC |
& * sIceLoad(i,j,bi,bj) * ae * darea |
|
./pkg/sbo/sbo_calc.F |
381 |
SBO_CALC |
& SINlat(i,j,bi,bj)*COSlat(i,j,bi,bj)*COSlon(i,j,bi,bj) |
|
./pkg/sbo/sbo_calc.F |
382 |
SBO_CALC |
& * sbo_omega * Mload(i,j,bi,bj) * ae*ae * darea |
|
./pkg/sbo/sbo_calc.F |
384 |
SBO_CALC |
& SINlat(i,j,bi,bj)*COSlat(i,j,bi,bj)*SINlon(i,j,bi,bj) |
|
./pkg/sbo/sbo_calc.F |
385 |
SBO_CALC |
& * sbo_omega * Mload(i,j,bi,bj) * ae*ae * darea |
|
./pkg/sbo/sbo_calc.F |
387 |
SBO_CALC |
& COSlat(i,j,bi,bj) * COSlat(i,j,bi,bj) |
|
./pkg/sbo/sbo_calc.F |
388 |
SBO_CALC |
& * sbo_omega * Mload(i,j,bi,bj) * ae*ae * darea |
|
./pkg/sbo/sbo_calc.F |
396 |
SBO_CALC |
& FWload * COSlat(i,j,bi,bj) * COSlon(i,j,bi,bj) |
|
./pkg/sbo/sbo_calc.F |
399 |
SBO_CALC |
& FWload * COSlat(i,j,bi,bj) * SINlon(i,j,bi,bj) |
|
./pkg/sbo/sbo_calc.F |
402 |
SBO_CALC |
& FWload * SINlat(i,j,bi,bj) |
|
./pkg/sbo/sbo_calc.F |
407 |
SBO_CALC |
& SINlat(i,j,bi,bj)*COSlat(i,j,bi,bj)*COSlon(i,j,bi,bj) |
|
./pkg/sbo/sbo_calc.F |
410 |
SBO_CALC |
& SINlat(i,j,bi,bj)*COSlat(i,j,bi,bj)*SINlon(i,j,bi,bj) |
|
./pkg/sbo/sbo_calc.F |
413 |
SBO_CALC |
& COSlat(i,j,bi,bj) * COSlat(i,j,bi,bj) |
|
./model/src/freesurf_rescale_g.F |
37 |
FREESURF_RESCALE_G |
INTEGER i,j |
|
./model/src/freesurf_rescale_g.F |
46 |
FREESURF_RESCALE_G |
DO i=1-OLx,sNx+OLx |
|
./model/src/freesurf_rescale_g.F |
47 |
FREESURF_RESCALE_G |
gTracer(i,j,k) = gTracer(i,j,k) |
|
./model/src/freesurf_rescale_g.F |
48 |
FREESURF_RESCALE_G |
& / rStarExpC(i,j,bi,bj) |
|
./model/src/freesurf_rescale_g.F |
55 |
FREESURF_RESCALE_G |
DO i=1-OLx,sNx+OLx |
|
./model/src/freesurf_rescale_g.F |
56 |
FREESURF_RESCALE_G |
gTracer(i,j,k) = gTracer(i,j,k) |
|
./model/src/freesurf_rescale_g.F |
57 |
FREESURF_RESCALE_G |
& /( 1. _d 0 + dEtaHdt(i,j,bi,bj)*deltaTFreeSurf |
|
./model/src/freesurf_rescale_g.F |
59 |
FREESURF_RESCALE_G |
& *recip_hFacC(i,j,k,bi,bj) |
|
./model/src/freesurf_rescale_g.F |
66 |
FREESURF_RESCALE_G |
DO i=1-OLx,sNx+OLx |
|
./model/src/freesurf_rescale_g.F |
67 |
FREESURF_RESCALE_G |
IF (k.EQ.kSurfC(i,j,bi,bj)) THEN |
|
./model/src/freesurf_rescale_g.F |
68 |
FREESURF_RESCALE_G |
gTracer(i,j,k) = gTracer(i,j,k) |
|
./model/src/freesurf_rescale_g.F |
69 |
FREESURF_RESCALE_G |
& *_hFacC(i,j,k,bi,bj)/hFac_surfC(i,j,bi,bj) |
|
./pkg/seaice/advect.F |
111 |
ADVECT |
afx(i,j) = 0. _d 0 |
|
./pkg/seaice/advect.F |
112 |
ADVECT |
afy(i,j) = 0. _d 0 |
|
./pkg/seaice/advect.F |
122 |
ADVECT |
DO i=0,sNx+1 |
|
./pkg/seaice/advect.F |
125 |
ADVECT |
fld(i,j,bi,bj)=fldNm1(i,j,bi,bj) |
|
./pkg/seaice/advect.F |
127 |
ADVECT |
& ( tmpFld(i ,j ,bi,bj)+tmpFld(i+1,j ,bi,bj)) |
|
./pkg/seaice/advect.F |
128 |
ADVECT |
& * UI(i+1,j, bi,bj) - |
|
./pkg/seaice/advect.F |
129 |
ADVECT |
& ( tmpFld(i ,j ,bi,bj)+tmpFld(i-1,j ,bi,bj)) |
|
./pkg/seaice/advect.F |
130 |
ADVECT |
& * UI(i ,j, bi,bj) )*maskInC(i,j,bi,bj) |
|
./pkg/seaice/advect.F |
131 |
ADVECT |
& *(HALF * _recip_dxF(i,j,bi,bj)) |
|
./pkg/seaice/advect.F |
133 |
ADVECT |
& ( tmpFld(i ,j ,bi,bj)+tmpFld(i ,j+1,bi,bj)) |
|
./pkg/seaice/advect.F |
134 |
ADVECT |
& * VI(i ,j+1, bi,bj) |
|
./pkg/seaice/advect.F |
135 |
ADVECT |
& * _dxG(i ,j+1,bi,bj) - |
|
./pkg/seaice/advect.F |
136 |
ADVECT |
& ( tmpFld(i ,j ,bi,bj)+tmpFld(i ,j-1,bi,bj)) |
|
./pkg/seaice/advect.F |
137 |
ADVECT |
& * VI(i ,j , bi,bj) |
|
./pkg/seaice/advect.F |
138 |
ADVECT |
& * _dxG(i,j,bi,bj))*maskInC(i,j,bi,bj) |
|
./pkg/seaice/advect.F |
139 |
ADVECT |
& *(HALF * _recip_dyF(i,j,bi,bj) * _recip_dxF(i,j,bi,bj)) |
|
./pkg/seaice/advect.F |
150 |
ADVECT |
DO i=1,sNx+1 |
|
./pkg/seaice/advect.F |
151 |
ADVECT |
afx(i,j) = _dyG(i,j,bi,bj) * UI(i,j,bi,bj) |
|
./pkg/seaice/advect.F |
152 |
ADVECT |
& * 0.5 _d 0 * (tmpFld(i,j,bi,bj)+tmpFld(i-1,j,bi,bj)) |
|
./pkg/seaice/advect.F |
153 |
ADVECT |
afy(i,j) = _dxG(i,j,bi,bj) * VI(i,j,bi,bj) |
|
./pkg/seaice/advect.F |
154 |
ADVECT |
& * 0.5 _d 0 * (tmpFld(i,j,bi,bj)+tmpFld(i,j-1,bi,bj)) |
|
./pkg/seaice/advect.F |
158 |
ADVECT |
DO i=1,sNx |
|
./pkg/seaice/advect.F |
159 |
ADVECT |
fld(i,j,bi,bj)=fldNm1(i,j,bi,bj) |
|
./pkg/seaice/advect.F |
161 |
ADVECT |
& afx(i+1,j) - afx(i,j) |
|
./pkg/seaice/advect.F |
162 |
ADVECT |
& + afy(i,j+1) - afy(i,j) |
|
./pkg/seaice/advect.F |
163 |
ADVECT |
& )*recip_rA(i,j,bi,bj)*maskInC(i,j,bi,bj) |
|
./pkg/seaice/advect.F |
181 |
ADVECT |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/advect.F |
182 |
ADVECT |
tmpFld(i,j,bi,bj) = fldNm1(i,j,bi,bj) |
|
./pkg/seaice/advect.F |
193 |
ADVECT |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/advect.F |
194 |
ADVECT |
DIFFA(i,j,bi,bj) = MIN( _dxF(i,j,bi,bj), _dyF(i,j,bi,bj) ) |
|
./pkg/seaice/advect.F |
205 |
ADVECT |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/advect.F |
206 |
ADVECT |
fld(i,j,bi,bj) = ( fld(i,j,bi,bj) |
|
./pkg/seaice/advect.F |
207 |
ADVECT |
& +tmpFld(i,j,bi,bj)*DIFF1*DELTT |
|
./pkg/seaice/advect.F |
208 |
ADVECT |
& )*iceMsk(i,j,bi,bj) |
|
./pkg/seaice/advect.F |
221 |
ADVECT |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/advect.F |
226 |
ADVECT |
DIFFA(i,j,bi,bj) = - DIFFA(i,j,bi,bj)*DIFFA(i,j,bi,bj) |
|
./pkg/seaice/advect.F |
237 |
ADVECT |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/advect.F |
238 |
ADVECT |
fld(i,j,bi,bj) = ( fld(i,j,bi,bj) |
|
./pkg/seaice/advect.F |
239 |
ADVECT |
& +tmpFld(i,j,bi,bj)*DIFF1*DELTT |
|
./pkg/seaice/advect.F |
240 |
ADVECT |
& )*iceMsk(i,j,bi,bj) |
|
./pkg/seaice/advect.F |
58 |
ADVECT |
INTEGER i, j, bi, bj |
|
./pkg/seaice/advect.F |
71 |
ADVECT |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/advect.F |
72 |
ADVECT |
fldNm1(i,j,bi,bj) = fld(i,j,bi,bj) |
|
./pkg/seaice/advect.F |
95 |
ADVECT |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/advect.F |
97 |
ADVECT |
tmpFld(i,j,bi,bj)=HALF*(fld(i,j,bi,bj) |
|
./pkg/seaice/advect.F |
98 |
ADVECT |
& +fldNm1(i,j,bi,bj)) |
|
./pkg/seaice/cost_ice_test.F |
100 |
COST_ICE_TEST |
do i = 1,snx |
|
./pkg/seaice/cost_ice_test.F |
102 |
COST_ICE_TEST |
& tempVar * rA(i,j,bi,bj) * HEFF(i,j,bi,bj) |
|
./pkg/seaice/cost_ice_test.F |
113 |
COST_ICE_TEST |
do i = 1,snx |
|
./pkg/seaice/cost_ice_test.F |
115 |
COST_ICE_TEST |
& tempVar * rA(i,j,bi,bj) * AREA(i,j,bi,bj) |
|
./pkg/seaice/cost_ice_test.F |
147 |
COST_ICE_TEST |
do i = 1,snx |
|
./pkg/seaice/cost_ice_test.F |
149 |
COST_ICE_TEST |
& tempVar * rA(i,j,bi,bj) * ( |
|
./pkg/seaice/cost_ice_test.F |
150 |
COST_ICE_TEST |
& (THETA(i,j,kSrf,bi,bj) + 1.96 _d 0 ) * |
|
./pkg/seaice/cost_ice_test.F |
152 |
COST_ICE_TEST |
& HEFF(i,j,bi,bj) * 334000. _d 0 * 910. _d 0 ) |
|
./pkg/seaice/cost_ice_test.F |
163 |
COST_ICE_TEST |
do i = 1,snx |
|
./pkg/seaice/cost_ice_test.F |
165 |
COST_ICE_TEST |
& tempVar * rA(i,j,bi,bj) * ( |
|
./pkg/seaice/cost_ice_test.F |
166 |
COST_ICE_TEST |
& (THETA(i,j,kSrf,bi,bj) + 1.96 _d 0 ) * |
|
./pkg/seaice/cost_ice_test.F |
178 |
COST_ICE_TEST |
do i = 1,snx |
|
./pkg/seaice/cost_ice_test.F |
180 |
COST_ICE_TEST |
& tempVar * rA(i,j,bi,bj) * ( |
|
./pkg/seaice/cost_ice_test.F |
181 |
COST_ICE_TEST |
& (THETA(i,j,kSrf,bi,bj) + 1.96 _d 0 ) * |
|
./pkg/seaice/cost_ice_test.F |
183 |
COST_ICE_TEST |
& (TICES(i,j,1,bi,bj) - 273.15 _d 0 + 1.96 _d 0 ) * |
|
./pkg/seaice/cost_ice_test.F |
184 |
COST_ICE_TEST |
& HEFF(i,j,bi,bj) * 2090. _d 0 * 910. _d 0 - |
|
./pkg/seaice/cost_ice_test.F |
185 |
COST_ICE_TEST |
& HEFF(i,j,bi,bj) * 334000. _d 0 * 910. _d 0 - |
|
./pkg/seaice/cost_ice_test.F |
186 |
COST_ICE_TEST |
& HSNOW(i,j,bi,bj) * 334000. _d 0 * 330. _d 0 ) |
|
./pkg/seaice/cost_ice_test.F |
200 |
COST_ICE_TEST |
do i = 1,snx |
|
./pkg/seaice/cost_ice_test.F |
202 |
COST_ICE_TEST |
& ( AREA(i,j,bi,bj) - 0.5 _d 0 ) * |
|
./pkg/seaice/cost_ice_test.F |
203 |
COST_ICE_TEST |
& ( AREA(i,j,bi,bj) - 0.5 _d 0 ) |
|
./pkg/seaice/cost_ice_test.F |
214 |
COST_ICE_TEST |
do i = 1,snx |
|
./pkg/seaice/cost_ice_test.F |
216 |
COST_ICE_TEST |
& UICE(i,j,bi,bj) * UICE(i,j,bi,bj) + |
|
./pkg/seaice/cost_ice_test.F |
217 |
COST_ICE_TEST |
& VICE(i,j,bi,bj) * VICE(i,j,bi,bj) |
|
./pkg/seaice/cost_ice_test.F |
75 |
COST_ICE_TEST |
integer bi,bj,i,j,kSrf |
|
./pkg/seaice/diffus.F |
107 |
DIFFUS |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/diffus.F |
108 |
DIFFUS |
tmpFld(i,j) = 0.0 _d 0 |
|
./pkg/seaice/diffus.F |
113 |
DIFFUS |
DO i=1,sNx |
|
./pkg/seaice/diffus.F |
114 |
DIFFUS |
DELTXX = DIFFA(i,j,bi,bj) |
|
./pkg/seaice/diffus.F |
115 |
DIFFUS |
& * _recip_dxF(i,j,bi,bj)*_recip_dxF(i,j,bi,bj) |
|
./pkg/seaice/diffus.F |
116 |
DIFFUS |
DELTYY = DIFFA(i,j,bi,bj) |
|
./pkg/seaice/diffus.F |
117 |
DIFFUS |
& * _recip_dyF(i,j,bi,bj)*_recip_dyF(i,j,bi,bj) |
|
./pkg/seaice/diffus.F |
118 |
DIFFUS |
& * _recip_dxF(i,j,bi,bj) |
|
./pkg/seaice/diffus.F |
119 |
DIFFUS |
tmpFld(i,j) = |
|
./pkg/seaice/diffus.F |
121 |
DIFFUS |
& (fld(i+1,j,bi,bj)-fld(i, j,bi,bj)) |
|
./pkg/seaice/diffus.F |
122 |
DIFFUS |
& *iceMsk(i+1,j,bi,bj) |
|
./pkg/seaice/diffus.F |
124 |
DIFFUS |
& *maskInW(i+1,j,bi,bj) |
|
./pkg/seaice/diffus.F |
126 |
DIFFUS |
& -(fld(i, j,bi,bj)-fld(i-1,j,bi,bj)) |
|
./pkg/seaice/diffus.F |
127 |
DIFFUS |
& *iceMsk(i-1,j,bi,bj) |
|
./pkg/seaice/diffus.F |
129 |
DIFFUS |
& *maskInW(i,j,bi,bj) |
|
./pkg/seaice/diffus.F |
133 |
DIFFUS |
& (fld(i,j+1,bi,bj)-fld(i,j, bi,bj)) |
|
./pkg/seaice/diffus.F |
134 |
DIFFUS |
& * _dxG(i,j+1,bi,bj)*iceMsk(i,j+1,bi,bj) |
|
./pkg/seaice/diffus.F |
136 |
DIFFUS |
& *maskInS(i,j+1,bi,bj) |
|
./pkg/seaice/diffus.F |
138 |
DIFFUS |
& -(fld(i,j, bi,bj)-fld(i,j-1,bi,bj)) |
|
./pkg/seaice/diffus.F |
139 |
DIFFUS |
& * _dxG(i,j, bi,bj)*iceMsk(i,j-1,bi,bj) |
|
./pkg/seaice/diffus.F |
141 |
DIFFUS |
& *maskInS(i,j,bi,bj) |
|
./pkg/seaice/diffus.F |
147 |
DIFFUS |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/diffus.F |
148 |
DIFFUS |
fld(i,j,bi,bj) = tmpFld(i,j) |
|
./pkg/seaice/diffus.F |
46 |
DIFFUS |
INTEGER i, j, bi, bj |
|
./pkg/seaice/diffus.F |
60 |
DIFFUS |
DO i=1-Olx,sNx+Olx |
|
./pkg/seaice/diffus.F |
61 |
DIFFUS |
dfx(i,j) = 0. _d 0 |
|
./pkg/seaice/diffus.F |
62 |
DIFFUS |
dfy(i,j) = 0. _d 0 |
|
./pkg/seaice/diffus.F |
67 |
DIFFUS |
DO i=1,sNx+1 |
|
./pkg/seaice/diffus.F |
68 |
DIFFUS |
dfx(i,j) = _dyG(i,j,bi,bj) * _recip_dxC(i,j,bi,bj) |
|
./pkg/seaice/diffus.F |
69 |
DIFFUS |
& * (fld(i,j,bi,bj)-fld(i-1,j,bi,bj)) |
|
./pkg/seaice/diffus.F |
71 |
DIFFUS |
& * iceMsk(i,j,bi,bj)*iceMsk(i-1,j,bi,bj) |
|
./pkg/seaice/diffus.F |
72 |
DIFFUS |
& * ( DIFFA(i,j,bi,bj)+DIFFA(i-1,j,bi,bj) )*HALF |
|
./pkg/seaice/diffus.F |
74 |
DIFFUS |
& * maskInW(i,j,bi,bj) |
|
./pkg/seaice/diffus.F |
76 |
DIFFUS |
dfy(i,j) = _dxG(i,j,bi,bj) * _recip_dyC(i,j,bi,bj) |
|
./pkg/seaice/diffus.F |
77 |
DIFFUS |
& * (fld(i,j,bi,bj)-fld(i,j-1,bi,bj)) |
|
./pkg/seaice/diffus.F |
81 |
DIFFUS |
& * iceMsk(i,j,bi,bj)*iceMsk(i,j-1,bi,bj) |
|
./pkg/seaice/diffus.F |
82 |
DIFFUS |
& * ( DIFFA(i,j,bi,bj)+DIFFA(i,j-1,bi,bj) )*HALF |
|
./pkg/seaice/diffus.F |
84 |
DIFFUS |
& * maskInS(i,j,bi,bj) |
|
./pkg/seaice/diffus.F |
89 |
DIFFUS |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/diffus.F |
90 |
DIFFUS |
fld(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/diffus.F |
95 |
DIFFUS |
DO i=1,sNx |
|
./pkg/seaice/diffus.F |
96 |
DIFFUS |
fld(i,j,bi,bj) = ( |
|
./pkg/seaice/diffus.F |
97 |
DIFFUS |
& ( dfx(i+1,j) - dfx(i,j) ) |
|
./pkg/seaice/diffus.F |
98 |
DIFFUS |
& + ( dfy(i,j+1) - dfy(i,j) ) |
|
./pkg/seaice/diffus.F |
99 |
DIFFUS |
& ) * recip_rA(i,j,bi,bj) |
|
./pkg/seaice/dynsolver.F |
101 |
DYNSOLVER |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/dynsolver.F |
102 |
DYNSOLVER |
COR_ICE(i,j,bi,bj) = 0. |
|
./pkg/seaice/dynsolver.F |
106 |
DYNSOLVER |
DO i=1,sNx |
|
./pkg/seaice/dynsolver.F |
108 |
DYNSOLVER |
& HEFF(i,j ,bi,bj) + HEFF(i-1,j ,bi,bj) |
|
./pkg/seaice/dynsolver.F |
109 |
DYNSOLVER |
& +HEFF(i,j-1,bi,bj) + HEFF(i-1,j-1,bi,bj) ) |
|
./pkg/seaice/dynsolver.F |
123 |
DYNSOLVER |
DO i=1,sNx |
|
./pkg/seaice/dynsolver.F |
169 |
DYNSOLVER |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/dynsolver.F |
170 |
DYNSOLVER |
phiSurf(i,j) = Bo_surf(i,j,bi,bj)*etaN(i,j,bi,bj) |
|
./pkg/seaice/dynsolver.F |
177 |
DYNSOLVER |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/dynsolver.F |
178 |
DYNSOLVER |
phiSurf(i,j) = phiSurf(i,j) |
|
./pkg/seaice/dynsolver.F |
179 |
DYNSOLVER |
& + ( pload(i,j,bi,bj) |
|
./pkg/seaice/dynsolver.F |
180 |
DYNSOLVER |
& +sIceLoad(i,j,bi,bj)*gravity |
|
./pkg/seaice/dynsolver.F |
186 |
DYNSOLVER |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/dynsolver.F |
187 |
DYNSOLVER |
phiSurf(i,j) = phiSurf(i,j) |
|
./pkg/seaice/dynsolver.F |
188 |
DYNSOLVER |
& + pload(i,j,bi,bj)*recip_rhoConst |
|
./pkg/seaice/dynsolver.F |
194 |
DYNSOLVER |
DO i=1-OLx+1,sNx+OLx |
|
./pkg/seaice/dynsolver.F |
198 |
DYNSOLVER |
& *( (phiSurf(i, j )-phiSurf(i-1, j ))*maskW(i, j ,1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
199 |
DYNSOLVER |
& +(phiSurf(i,j-1)-phiSurf(i-1,j-1))*maskW(i,j-1,1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
203 |
DYNSOLVER |
& *( (phiSurf( i ,j)-phiSurf( i ,j-1))*maskS( i ,j,1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
204 |
DYNSOLVER |
& +(phiSurf(i-1,j)-phiSurf(i-1,j-1))*maskS(i-1,j,1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
213 |
DYNSOLVER |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/dynsolver.F |
226 |
DYNSOLVER |
& *EXP(-SEAICE_cStar*(ONE-AREA(i,j,bi,bj))) |
|
./pkg/seaice/dynsolver.F |
256 |
DYNSOLVER |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/dynsolver.F |
277 |
DYNSOLVER |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/dynsolver.F |
319 |
DYNSOLVER |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/dynsolver.F |
328 |
DYNSOLVER |
UICE(i,j,bi,bj)=min(UICE(i,j,bi,bj),0.40 _d +00) |
|
./pkg/seaice/dynsolver.F |
329 |
DYNSOLVER |
VICE(i,j,bi,bj)=min(VICE(i,j,bi,bj),0.40 _d +00) |
|
./pkg/seaice/dynsolver.F |
341 |
DYNSOLVER |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/dynsolver.F |
342 |
DYNSOLVER |
UICE(i,j,bi,bj)=max(UICE(i,j,bi,bj),-0.40 _d +00) |
|
./pkg/seaice/dynsolver.F |
343 |
DYNSOLVER |
VICE(i,j,bi,bj)=max(VICE(i,j,bi,bj),-0.40 _d +00) |
|
./pkg/seaice/dynsolver.F |
56 |
DYNSOLVER |
INTEGER i, j, bi, bj |
|
./pkg/seaice/dynsolver.F |
80 |
DYNSOLVER |
DO i=0,sNx+1 |
|
./pkg/seaice/dynsolver.F |
81 |
DYNSOLVER |
GWATX(I,J,bi,bj)=HALF*(uVel(i,j,KGEO(I,J,bi,bj),bi,bj) |
|
./pkg/seaice/dynsolver.F |
82 |
DYNSOLVER |
& +uVel(i,j-1,KGEO(I,J,bi,bj),bi,bj)) |
|
./pkg/seaice/dynsolver.F |
83 |
DYNSOLVER |
GWATY(I,J,bi,bj)=HALF*(vVel(i,j,KGEO(I,J,bi,bj),bi,bj) |
|
./pkg/seaice/dynsolver.F |
84 |
DYNSOLVER |
& +vVel(i-1,j,KGEO(I,J,bi,bj),bi,bj)) |
|
./pkg/seaice/lsr.F |
1016 |
LSR |
DO i=1-OLx,sNx+OLx-1 |
|
./pkg/seaice/lsr.F |
1017 |
LSR |
uz(i,j) = quart * ( |
|
./pkg/seaice/lsr.F |
1018 |
LSR |
& uicec(i,j,bi,bj) + uicec(i+1,j,bi,bj) ) |
|
./pkg/seaice/lsr.F |
1019 |
LSR |
uz(i,j)= uz(i,j) + quart * ( |
|
./pkg/seaice/lsr.F |
1020 |
LSR |
& uicec(i,j+1,bi,bj) + uicec(i+1,j+1,bi,bj) ) |
|
./pkg/seaice/lsr.F |
1031 |
LSR |
& (zetaMinusEta(i,j,bi,bj)+zetaMinusEta(i-1,j,bi,bj)) |
|
./pkg/seaice/lsr.F |
1032 |
LSR |
& *(uz(i,j)-uz(i-1,j)) * _recip_dxC(i,j,bi,bj) |
|
./pkg/seaice/lsr.F |
1034 |
LSR |
& (zetaMinusEta(i,j-1,bi,bj)+zetaMinusEta(i-1,j-1,bi,bj)) |
|
./pkg/seaice/lsr.F |
1035 |
LSR |
& *(uz(i,j-1)-uz(i-1,j-1)) * _recip_dxC(i,j-1,bi,bj) |
|
./pkg/seaice/lsr.F |
1036 |
LSR |
& ) * _recip_dyU(i,j,bi,bj) |
|
./pkg/seaice/lsr.F |
173 |
LSR |
DO i=1-OLx,sNx+OLx-1 |
|
./pkg/seaice/lsr.F |
221 |
LSR |
DO i=1,sNx |
|
./pkg/seaice/lsr.F |
280 |
LSR |
DO i=1-OLx+1,sNx+OLx-1 |
|
./pkg/seaice/lsr.F |
288 |
LSR |
DO i=1-OLx,sNx+OLx-1 |
|
./pkg/seaice/lsr.F |
419 |
LSR |
DO i=0,sNx |
|
./pkg/seaice/lsr.F |
436 |
LSR |
DO i=1,sNx |
|
./pkg/seaice/lsr.F |
453 |
LSR |
DO i=1,sNx |
|
./pkg/seaice/lsr.F |
495 |
LSR |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/lsr.F |
501 |
LSR |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/lsr.F |
53 |
LSR |
INTEGER i, j, m, bi, bj, j1, j2, im, jm |
|
./pkg/seaice/lsr.F |
703 |
LSR |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/lsr.F |
709 |
LSR |
DO i=1-OLx+1,sNx+OLx |
|
./pkg/seaice/lsr.F |
773 |
LSR |
DO i=1-OLx,sNx+OLx-1 |
|
./pkg/seaice/lsr.F |
774 |
LSR |
vz(i,j) = quart * ( |
|
./pkg/seaice/lsr.F |
775 |
LSR |
& vicec(i,j,bi,bj) + vicec(i+1,j,bi,bj) ) |
|
./pkg/seaice/lsr.F |
776 |
LSR |
vz(i,j)= vz(i,j) + quart * ( |
|
./pkg/seaice/lsr.F |
777 |
LSR |
& vicec(i,j+1,bi,bj) + vicec(i+1,j+1,bi,bj) ) |
|
./pkg/seaice/lsr.F |
787 |
LSR |
& (zetaMinusEta(i,j,bi,bj)+zetaMinusEta(i,j-1,bi,bj)) |
|
./pkg/seaice/lsr.F |
788 |
LSR |
& *(vz(i,j)-vz(i,j-1)) * _recip_dyC(i,j,bi,bj) |
|
./pkg/seaice/lsr.F |
790 |
LSR |
& (zetaMinusEta(i-1,j,bi,bj)+zetaMinusEta(i-1,j-1,bi,bj)) |
|
./pkg/seaice/lsr.F |
791 |
LSR |
& *(vz(i-1,j)-vz(i-1,j-1)) * _recip_dyC(i-1,j,bi,bj) |
|
./pkg/seaice/lsr.F |
792 |
LSR |
& ) * _recip_dxV(i,j,bi,bj) |
|
./pkg/seaice/ostres.F |
33 |
OSTRES |
INTEGER i, j, bi, bj |
|
./pkg/seaice/ostres.F |
54 |
OSTRES |
DO i=1,sNx |
|
./pkg/seaice/ostres.F |
71 |
OSTRES |
DO i=1,sNx |
|
./model/src/freeze_surface.F |
41 |
FREEZE_SURFACE |
INTEGER bi,bj,i,j,k |
|
./model/src/freeze_surface.F |
57 |
FREEZE_SURFACE |
DO i=1-OLx,sNx+OLx |
|
./model/src/freeze_surface.F |
58 |
FREEZE_SURFACE |
IF (theta(i,j,k,bi,bj) .LT. Tfreezing) THEN |
|
./model/src/freeze_surface.F |
59 |
FREEZE_SURFACE |
surfaceForcingTice(i,j,bi,bj) = |
|
./model/src/freeze_surface.F |
60 |
FREEZE_SURFACE |
& ( Tfreezing - theta(i,j,k,bi,bj) ) |
|
./model/src/freeze_surface.F |
61 |
FREEZE_SURFACE |
& *drF(k)*_hFacC(i,j,k,bi,bj) / dTtracerLev(k) |
|
./model/src/freeze_surface.F |
62 |
FREEZE_SURFACE |
theta(i,j,k,bi,bj) = Tfreezing |
|
./model/src/freeze_surface.F |
64 |
FREEZE_SURFACE |
surfaceForcingTice(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_advdiff.F |
119 |
SEAICE_ADVDIFF |
DO i=1-OLx,sNx+OLx-1 |
|
./pkg/seaice/seaice_advdiff.F |
120 |
SEAICE_ADVDIFF |
uc(i,j,bi,bj)=.5 _d 0*(UICE(i,j,bi,bj)+UICE(i,j+1,bi,bj)) |
|
./pkg/seaice/seaice_advdiff.F |
121 |
SEAICE_ADVDIFF |
vc(i,j,bi,bj)=.5 _d 0*(VICE(i,j,bi,bj)+VICE(i+1,j,bi,bj)) |
|
./pkg/seaice/seaice_advdiff.F |
127 |
SEAICE_ADVDIFF |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_advdiff.F |
128 |
SEAICE_ADVDIFF |
xA(i,j,bi,bj) = _dyG(i,j,bi,bj)*_maskW(i,j,ks,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
129 |
SEAICE_ADVDIFF |
yA(i,j,bi,bj) = _dxG(i,j,bi,bj)*_maskS(i,j,ks,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
164 |
SEAICE_ADVDIFF |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_advdiff.F |
165 |
SEAICE_ADVDIFF |
gFld(i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_advdiff.F |
195 |
SEAICE_ADVDIFF |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_advdiff.F |
197 |
SEAICE_ADVDIFF |
hEffNm1(i,j,bi,bj) = HEFF(i,j,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
198 |
SEAICE_ADVDIFF |
areaNm1(i,j,bi,bj) = AREA(i,j,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
200 |
SEAICE_ADVDIFF |
recip_heff(i,j) = 1. _d 0 |
|
./pkg/seaice/seaice_advdiff.F |
206 |
SEAICE_ADVDIFF |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_advdiff.F |
207 |
SEAICE_ADVDIFF |
uTrans(i,j) = uc(i,j,bi,bj)*xA(i,j,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
208 |
SEAICE_ADVDIFF |
vTrans(i,j) = vc(i,j,bi,bj)*yA(i,j,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
217 |
SEAICE_ADVDIFF |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_advdiff.F |
218 |
SEAICE_ADVDIFF |
HEFF(i,j,bi,bj)=HEFFITD(i,j,it,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
239 |
SEAICE_ADVDIFF |
DO i=1,sNx |
|
./pkg/seaice/seaice_advdiff.F |
240 |
SEAICE_ADVDIFF |
HEFF(i,j,bi,bj) = HEFFM(i,j,bi,bj) * ( |
|
./pkg/seaice/seaice_advdiff.F |
241 |
SEAICE_ADVDIFF |
& HEFF(i,j,bi,bj) + SEAICE_deltaTtherm * gFld(i,j) |
|
./pkg/seaice/seaice_advdiff.F |
247 |
SEAICE_ADVDIFF |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_advdiff.F |
248 |
SEAICE_ADVDIFF |
HEFFITD(i,j,it,bi,bj)=HEFF(i,j,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
260 |
SEAICE_ADVDIFF |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_advdiff.F |
261 |
SEAICE_ADVDIFF |
AREA(i,j,bi,bj)=AREAITD(i,j,it,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
282 |
SEAICE_ADVDIFF |
DO i=1,sNx |
|
./pkg/seaice/seaice_advdiff.F |
283 |
SEAICE_ADVDIFF |
AREA(i,j,bi,bj) = HEFFM(i,j,bi,bj) * ( |
|
./pkg/seaice/seaice_advdiff.F |
284 |
SEAICE_ADVDIFF |
& AREA(i,j,bi,bj) + SEAICE_deltaTtherm * gFld(i,j) |
|
./pkg/seaice/seaice_advdiff.F |
290 |
SEAICE_ADVDIFF |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_advdiff.F |
291 |
SEAICE_ADVDIFF |
AREAITD(i,j,it,bi,bj)=AREA(i,j,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
313 |
SEAICE_ADVDIFF |
DO i=1,sNx |
|
./pkg/seaice/seaice_advdiff.F |
314 |
SEAICE_ADVDIFF |
opnWtrFrac(i,j,bi,bj) = HEFFM(i,j,bi,bj) * ( |
|
./pkg/seaice/seaice_advdiff.F |
315 |
SEAICE_ADVDIFF |
& opnWtrFrac(i,j,bi,bj) + SEAICE_deltaTtherm * gFld(i,j) |
|
./pkg/seaice/seaice_advdiff.F |
327 |
SEAICE_ADVDIFF |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_advdiff.F |
328 |
SEAICE_ADVDIFF |
HSNOW(i,j,bi,bj)=HSNOWITD(i,j,it,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
349 |
SEAICE_ADVDIFF |
DO i=1,sNx |
|
./pkg/seaice/seaice_advdiff.F |
350 |
SEAICE_ADVDIFF |
HSNOW(i,j,bi,bj) = HEFFM(i,j,bi,bj) * ( |
|
./pkg/seaice/seaice_advdiff.F |
351 |
SEAICE_ADVDIFF |
& HSNOW(i,j,bi,bj) + SEAICE_deltaTtherm * gFld(i,j) |
|
./pkg/seaice/seaice_advdiff.F |
357 |
SEAICE_ADVDIFF |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_advdiff.F |
358 |
SEAICE_ADVDIFF |
HSNOWITD(i,j,it,bi,bj)=HSNOW(i,j,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
392 |
SEAICE_ADVDIFF |
DO i=1,sNx |
|
./pkg/seaice/seaice_advdiff.F |
393 |
SEAICE_ADVDIFF |
HSALT(i,j,bi,bj) = HEFFM(i,j,bi,bj) * ( |
|
./pkg/seaice/seaice_advdiff.F |
394 |
SEAICE_ADVDIFF |
& HSALT(i,j,bi,bj) + SEAICE_deltaTtherm * gFld(i,j) |
|
./pkg/seaice/seaice_advdiff.F |
411 |
SEAICE_ADVDIFF |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_advdiff.F |
412 |
SEAICE_ADVDIFF |
SItrExt(i,j,bi,bj) = HEFFM(i,j,bi,bj) * |
|
./pkg/seaice/seaice_advdiff.F |
413 |
SEAICE_ADVDIFF |
& SItracer(i,j,bi,bj,iTr) * hEffNm1(i,j,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
421 |
SEAICE_ADVDIFF |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_advdiff.F |
422 |
SEAICE_ADVDIFF |
SItrExt(i,j,bi,bj) = HEFFM(i,j,bi,bj) * |
|
./pkg/seaice/seaice_advdiff.F |
423 |
SEAICE_ADVDIFF |
& SItracer(i,j,bi,bj,iTr) * areaNm1(i,j,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
429 |
SEAICE_ADVDIFF |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_advdiff.F |
432 |
SEAICE_ADVDIFF |
SItrPrev(i,j,bi,bj)=SItracer(i,j,bi,bj,iTr) |
|
./pkg/seaice/seaice_advdiff.F |
435 |
SEAICE_ADVDIFF |
diagArray(I,J,2+(iTr-1)*5) = SItrExt(i,j,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
458 |
SEAICE_ADVDIFF |
DO i=1,sNx |
|
./pkg/seaice/seaice_advdiff.F |
459 |
SEAICE_ADVDIFF |
SItrExt(i,j,bi,bj) = HEFFM(i,j,bi,bj) * ( |
|
./pkg/seaice/seaice_advdiff.F |
460 |
SEAICE_ADVDIFF |
& SItrExt(i,j,bi,bj) + SEAICE_deltaTtherm * gFld(i,j) ) |
|
./pkg/seaice/seaice_advdiff.F |
466 |
SEAICE_ADVDIFF |
DO i=1,sNx |
|
./pkg/seaice/seaice_advdiff.F |
468 |
SEAICE_ADVDIFF |
SItracer(i,j,bi,bj,iTr)=SItrExt(i,j,bi,bj)/HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
469 |
SEAICE_ADVDIFF |
SItrBucket(i,j,bi,bj,iTr)=0. _d 0 |
|
./pkg/seaice/seaice_advdiff.F |
471 |
SEAICE_ADVDIFF |
SItracer(i,j,bi,bj,iTr)=0. _d 0 |
|
./pkg/seaice/seaice_advdiff.F |
472 |
SEAICE_ADVDIFF |
SItrBucket(i,j,bi,bj,iTr)=SItrExt(i,j,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
477 |
SEAICE_ADVDIFF |
tmpscal1=max(SItrPrev(i,j,bi,bj), |
|
./pkg/seaice/seaice_advdiff.F |
478 |
SEAICE_ADVDIFF |
& SItrPrev(i+1,j,bi,bj),SItrPrev(i-1,j,bi,bj), |
|
./pkg/seaice/seaice_advdiff.F |
479 |
SEAICE_ADVDIFF |
& SItrPrev(i,j+1,bi,bj),SItrPrev(i,j-1,bi,bj)) |
|
./pkg/seaice/seaice_advdiff.F |
480 |
SEAICE_ADVDIFF |
tmpscal2=MAX(ZERO,SItracer(i,j,bi,bj,iTr)-tmpscal1) |
|
./pkg/seaice/seaice_advdiff.F |
481 |
SEAICE_ADVDIFF |
SItracer(i,j,bi,bj,iTr)=SItracer(i,j,bi,bj,iTr)-tmpscal2 |
|
./pkg/seaice/seaice_advdiff.F |
482 |
SEAICE_ADVDIFF |
SItrBucket(i,j,bi,bj,iTr)=SItrBucket(i,j,bi,bj,iTr) |
|
./pkg/seaice/seaice_advdiff.F |
487 |
SEAICE_ADVDIFF |
tmpscal1=MIN(0. _d 0,SItracer(i,j,bi,bj,iTr)) |
|
./pkg/seaice/seaice_advdiff.F |
488 |
SEAICE_ADVDIFF |
SItracer(i,j,bi,bj,iTr)=SItracer(i,j,bi,bj,iTr)-tmpscal1 |
|
./pkg/seaice/seaice_advdiff.F |
489 |
SEAICE_ADVDIFF |
SItrBucket(i,j,bi,bj,iTr)=SItrBucket(i,j,bi,bj,iTr) |
|
./pkg/seaice/seaice_advdiff.F |
493 |
SEAICE_ADVDIFF |
diagArray(I,J,1+(iTr-1)*5)= - SItrBucket(i,j,bi,bj,iTr) |
|
./pkg/seaice/seaice_advdiff.F |
495 |
SEAICE_ADVDIFF |
tmpscal1= ( HEFF(I,J,bi,bj)*SItracer(i,j,bi,bj,iTr) |
|
./pkg/seaice/seaice_advdiff.F |
496 |
SEAICE_ADVDIFF |
& + SItrBucket(i,j,bi,bj,iTr) )*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
498 |
SEAICE_ADVDIFF |
diagArray(I,J,3+(iTr-1)*5)=HEFFM(i,j,bi,bj) * |
|
./pkg/seaice/seaice_advdiff.F |
499 |
SEAICE_ADVDIFF |
& SEAICE_deltaTtherm * gFld(i,j) |
|
./pkg/seaice/seaice_advdiff.F |
506 |
SEAICE_ADVDIFF |
DO i=1,sNx |
|
./pkg/seaice/seaice_advdiff.F |
508 |
SEAICE_ADVDIFF |
SItracer(i,j,bi,bj,iTr)=SItrExt(i,j,bi,bj)/AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
510 |
SEAICE_ADVDIFF |
SItracer(i,j,bi,bj,iTr)=0. _d 0 |
|
./pkg/seaice/seaice_advdiff.F |
512 |
SEAICE_ADVDIFF |
SItrBucket(i,j,bi,bj,iTr)=0. _d 0 |
|
./pkg/seaice/seaice_advdiff.F |
514 |
SEAICE_ADVDIFF |
tmpscal1=max(SItrPrev(i,j,bi,bj), |
|
./pkg/seaice/seaice_advdiff.F |
515 |
SEAICE_ADVDIFF |
& SItrPrev(i+1,j,bi,bj),SItrPrev(i-1,j,bi,bj), |
|
./pkg/seaice/seaice_advdiff.F |
516 |
SEAICE_ADVDIFF |
& SItrPrev(i,j+1,bi,bj),SItrPrev(i,j-1,bi,bj)) |
|
./pkg/seaice/seaice_advdiff.F |
517 |
SEAICE_ADVDIFF |
tmpscal2=MAX(ZERO,SItracer(i,j,bi,bj,iTr)-tmpscal1) |
|
./pkg/seaice/seaice_advdiff.F |
518 |
SEAICE_ADVDIFF |
SItracer(i,j,bi,bj,iTr)=SItracer(i,j,bi,bj,iTr)-tmpscal2 |
|
./pkg/seaice/seaice_advdiff.F |
522 |
SEAICE_ADVDIFF |
tmpscal1=MIN(0. _d 0,SItracer(i,j,bi,bj,iTr)) |
|
./pkg/seaice/seaice_advdiff.F |
523 |
SEAICE_ADVDIFF |
SItracer(i,j,bi,bj,iTr)=SItracer(i,j,bi,bj,iTr)-tmpscal1 |
|
./pkg/seaice/seaice_advdiff.F |
528 |
SEAICE_ADVDIFF |
& + AREA(I,J,bi,bj)*SItracer(i,j,bi,bj,iTr)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
529 |
SEAICE_ADVDIFF |
diagArray(I,J,3+(iTr-1)*5)=HEFFM(i,j,bi,bj) * |
|
./pkg/seaice/seaice_advdiff.F |
530 |
SEAICE_ADVDIFF |
& SEAICE_deltaTtherm * gFld(i,j) |
|
./pkg/seaice/seaice_advdiff.F |
559 |
SEAICE_ADVDIFF |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_advdiff.F |
560 |
SEAICE_ADVDIFF |
HEFF(i,j,bi,bj)=HEFFITD(i,j,it,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
584 |
SEAICE_ADVDIFF |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_advdiff.F |
585 |
SEAICE_ADVDIFF |
HEFFITD(i,j,it,bi,bj)=HEFF(i,j,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
602 |
SEAICE_ADVDIFF |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_advdiff.F |
603 |
SEAICE_ADVDIFF |
AREA(i,j,bi,bj)=AREAITD(i,j,it,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
627 |
SEAICE_ADVDIFF |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_advdiff.F |
628 |
SEAICE_ADVDIFF |
AREAITD(i,j,it,bi,bj)=AREA(i,j,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
660 |
SEAICE_ADVDIFF |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_advdiff.F |
661 |
SEAICE_ADVDIFF |
HSNOW(i,j,bi,bj)=HSNOWITD(i,j,it,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
685 |
SEAICE_ADVDIFF |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_advdiff.F |
686 |
SEAICE_ADVDIFF |
HSNOWITD(i,j,it,bi,bj)=HSNOW(i,j,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
70 |
SEAICE_ADVDIFF |
INTEGER i, j, bi, bj |
|
./pkg/seaice/seaice_advection.F |
131 |
SEAICE_ADVECTION |
INTEGER i,j,k |
|
./pkg/seaice/seaice_advection.F |
198 |
SEAICE_ADVECTION |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_advection.F |
199 |
SEAICE_ADVECTION |
localTij(i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_advection.F |
255 |
SEAICE_ADVECTION |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_advection.F |
256 |
SEAICE_ADVECTION |
localTij(i,j)=iceFld(i,j) |
|
./pkg/seaice/seaice_advection.F |
258 |
SEAICE_ADVECTION |
maskLocW(i,j) = _maskW(i,j,k,bi,bj)*maskInW(i,j,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
259 |
SEAICE_ADVECTION |
maskLocS(i,j) = _maskS(i,j,k,bi,bj)*maskInS(i,j,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
261 |
SEAICE_ADVECTION |
maskLocW(i,j) = _maskW(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
262 |
SEAICE_ADVECTION |
maskLocS(i,j) = _maskS(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
270 |
SEAICE_ADVECTION |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_advection.F |
271 |
SEAICE_ADVECTION |
afx(i,j) = 0. |
|
./pkg/seaice/seaice_advection.F |
272 |
SEAICE_ADVECTION |
afy(i,j) = 0. |
|
./pkg/seaice/seaice_advection.F |
345 |
SEAICE_ADVECTION |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_advection.F |
346 |
SEAICE_ADVECTION |
af(i,j) = 0. |
|
./pkg/seaice/seaice_advection.F |
372 |
SEAICE_ADVECTION |
i=MIN(12,sNx) |
|
./pkg/seaice/seaice_advection.F |
374 |
SEAICE_ADVECTION |
WRITE(ioUnit,'(A,1P4E14.6)') 'ICE_adv: xFx=', af(i+1,j), |
|
./pkg/seaice/seaice_advection.F |
375 |
SEAICE_ADVECTION |
& localTij(i,j), uTrans(i+1,j), af(i+1,j)/uTrans(i+1,j) |
|
./pkg/seaice/seaice_advection.F |
427 |
SEAICE_ADVECTION |
DO i=iMinUpd,iMaxUpd |
|
./pkg/seaice/seaice_advection.F |
428 |
SEAICE_ADVECTION |
localTij(i,j)=localTij(i,j) |
|
./pkg/seaice/seaice_advection.F |
429 |
SEAICE_ADVECTION |
& -SEAICE_deltaTtherm*maskInC(i,j,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
430 |
SEAICE_ADVECTION |
& *recip_rA(i,j,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
431 |
SEAICE_ADVECTION |
& *( af(i+1,j)-af(i,j) |
|
./pkg/seaice/seaice_advection.F |
437 |
SEAICE_ADVECTION |
DO i=iMinUpd,iMaxUpd |
|
./pkg/seaice/seaice_advection.F |
438 |
SEAICE_ADVECTION |
localTij(i,j)=localTij(i,j) |
|
./pkg/seaice/seaice_advection.F |
439 |
SEAICE_ADVECTION |
& -SEAICE_deltaTtherm*maskInC(i,j,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
440 |
SEAICE_ADVECTION |
& *recip_rA(i,j,bi,bj)*r_hFld(i,j) |
|
./pkg/seaice/seaice_advection.F |
441 |
SEAICE_ADVECTION |
& *( (af(i+1,j)-af(i,j)) |
|
./pkg/seaice/seaice_advection.F |
442 |
SEAICE_ADVECTION |
& -(uTrans(i+1,j)-uTrans(i,j))*iceFld(i,j) |
|
./pkg/seaice/seaice_advection.F |
449 |
SEAICE_ADVECTION |
DO i=iMinUpd,iMaxUpd |
|
./pkg/seaice/seaice_advection.F |
450 |
SEAICE_ADVECTION |
localTij(i,j)=localTij(i,j) |
|
./pkg/seaice/seaice_advection.F |
451 |
SEAICE_ADVECTION |
& -SEAICE_deltaTtherm*maskInC(i,j,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
452 |
SEAICE_ADVECTION |
& *recip_rA(i,j,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
453 |
SEAICE_ADVECTION |
& *( af(i+1,j)-af(i,j) |
|
./pkg/seaice/seaice_advection.F |
459 |
SEAICE_ADVECTION |
DO i=iMinUpd,iMaxUpd |
|
./pkg/seaice/seaice_advection.F |
460 |
SEAICE_ADVECTION |
localTij(i,j)=localTij(i,j) |
|
./pkg/seaice/seaice_advection.F |
461 |
SEAICE_ADVECTION |
& -SEAICE_deltaTtherm*maskInC(i,j,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
462 |
SEAICE_ADVECTION |
& *recip_rA(i,j,bi,bj)*r_hFld(i,j) |
|
./pkg/seaice/seaice_advection.F |
463 |
SEAICE_ADVECTION |
& *( (af(i+1,j)-af(i,j)) |
|
./pkg/seaice/seaice_advection.F |
464 |
SEAICE_ADVECTION |
& -(uTrans(i+1,j)-uTrans(i,j))*iceFld(i,j) |
|
./pkg/seaice/seaice_advection.F |
472 |
SEAICE_ADVECTION |
DO i=1-OLx+1,sNx+OLx |
|
./pkg/seaice/seaice_advection.F |
473 |
SEAICE_ADVECTION |
afx(i,j) = af(i,j) |
|
./pkg/seaice/seaice_advection.F |
479 |
SEAICE_ADVECTION |
DO i=1-OLx+1,sNx+OLx |
|
./pkg/seaice/seaice_advection.F |
480 |
SEAICE_ADVECTION |
afx(i,j) = af(i,j) |
|
./pkg/seaice/seaice_advection.F |
493 |
SEAICE_ADVECTION |
DO i=1-OLx+1,sNx+OLx-1 |
|
./pkg/seaice/seaice_advection.F |
494 |
SEAICE_ADVECTION |
localTij(i,j)=localTij(i,j) |
|
./pkg/seaice/seaice_advection.F |
495 |
SEAICE_ADVECTION |
& -SEAICE_deltaTtherm*maskInC(i,j,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
496 |
SEAICE_ADVECTION |
& *recip_rA(i,j,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
497 |
SEAICE_ADVECTION |
& *( af(i+1,j)-af(i,j) |
|
./pkg/seaice/seaice_advection.F |
503 |
SEAICE_ADVECTION |
DO i=1-OLx+1,sNx+OLx-1 |
|
./pkg/seaice/seaice_advection.F |
504 |
SEAICE_ADVECTION |
localTij(i,j)=localTij(i,j) |
|
./pkg/seaice/seaice_advection.F |
505 |
SEAICE_ADVECTION |
& -SEAICE_deltaTtherm*maskInC(i,j,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
506 |
SEAICE_ADVECTION |
& *recip_rA(i,j,bi,bj)*r_hFld(i,j) |
|
./pkg/seaice/seaice_advection.F |
507 |
SEAICE_ADVECTION |
& *( (af(i+1,j)-af(i,j)) |
|
./pkg/seaice/seaice_advection.F |
508 |
SEAICE_ADVECTION |
& -(uTrans(i+1,j)-uTrans(i,j))*iceFld(i,j) |
|
./pkg/seaice/seaice_advection.F |
515 |
SEAICE_ADVECTION |
DO i=1-OLx+1,sNx+OLx |
|
./pkg/seaice/seaice_advection.F |
516 |
SEAICE_ADVECTION |
afx(i,j) = af(i,j) |
|
./pkg/seaice/seaice_advection.F |
547 |
SEAICE_ADVECTION |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_advection.F |
548 |
SEAICE_ADVECTION |
af(i,j) = 0. |
|
./pkg/seaice/seaice_advection.F |
574 |
SEAICE_ADVECTION |
i=MIN(12,sNx) |
|
./pkg/seaice/seaice_advection.F |
576 |
SEAICE_ADVECTION |
WRITE(ioUnit,'(A,1P4E14.6)') 'ICE_adv: yFx=', af(i,j+1), |
|
./pkg/seaice/seaice_advection.F |
577 |
SEAICE_ADVECTION |
& localTij(i,j), vTrans(i,j+1), af(i,j+1)/vTrans(i,j+1) |
|
./pkg/seaice/seaice_advection.F |
629 |
SEAICE_ADVECTION |
DO i=1-OLx,0 |
|
./pkg/seaice/seaice_advection.F |
630 |
SEAICE_ADVECTION |
localTij(i,j)=localTij(i,j) |
|
./pkg/seaice/seaice_advection.F |
631 |
SEAICE_ADVECTION |
& -SEAICE_deltaTtherm*maskInC(i,j,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
632 |
SEAICE_ADVECTION |
& *recip_rA(i,j,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
633 |
SEAICE_ADVECTION |
& *( af(i,j+1)-af(i,j) |
|
./pkg/seaice/seaice_advection.F |
639 |
SEAICE_ADVECTION |
DO i=1-OLx,0 |
|
./pkg/seaice/seaice_advection.F |
640 |
SEAICE_ADVECTION |
localTij(i,j)=localTij(i,j) |
|
./pkg/seaice/seaice_advection.F |
641 |
SEAICE_ADVECTION |
& -SEAICE_deltaTtherm*maskInC(i,j,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
642 |
SEAICE_ADVECTION |
& *recip_rA(i,j,bi,bj)*r_hFld(i,j) |
|
./pkg/seaice/seaice_advection.F |
643 |
SEAICE_ADVECTION |
& *( (af(i,j+1)-af(i,j)) |
|
./pkg/seaice/seaice_advection.F |
644 |
SEAICE_ADVECTION |
& -(vTrans(i,j+1)-vTrans(i,j))*iceFld(i,j) |
|
./pkg/seaice/seaice_advection.F |
651 |
SEAICE_ADVECTION |
DO i=sNx+1,sNx+OLx |
|
./pkg/seaice/seaice_advection.F |
652 |
SEAICE_ADVECTION |
localTij(i,j)=localTij(i,j) |
|
./pkg/seaice/seaice_advection.F |
653 |
SEAICE_ADVECTION |
& -SEAICE_deltaTtherm*maskInC(i,j,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
654 |
SEAICE_ADVECTION |
& *recip_rA(i,j,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
655 |
SEAICE_ADVECTION |
& *( af(i,j+1)-af(i,j) |
|
./pkg/seaice/seaice_advection.F |
661 |
SEAICE_ADVECTION |
DO i=sNx+1,sNx+OLx |
|
./pkg/seaice/seaice_advection.F |
662 |
SEAICE_ADVECTION |
localTij(i,j)=localTij(i,j) |
|
./pkg/seaice/seaice_advection.F |
663 |
SEAICE_ADVECTION |
& -SEAICE_deltaTtherm*maskInC(i,j,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
664 |
SEAICE_ADVECTION |
& *recip_rA(i,j,bi,bj)*r_hFld(i,j) |
|
./pkg/seaice/seaice_advection.F |
665 |
SEAICE_ADVECTION |
& *( (af(i,j+1)-af(i,j)) |
|
./pkg/seaice/seaice_advection.F |
666 |
SEAICE_ADVECTION |
& -(vTrans(i,j+1)-vTrans(i,j))*iceFld(i,j) |
|
./pkg/seaice/seaice_advection.F |
674 |
SEAICE_ADVECTION |
DO i=1-OLx,0 |
|
./pkg/seaice/seaice_advection.F |
675 |
SEAICE_ADVECTION |
afy(i,j) = af(i,j) |
|
./pkg/seaice/seaice_advection.F |
681 |
SEAICE_ADVECTION |
DO i=sNx+1,sNx+OLx |
|
./pkg/seaice/seaice_advection.F |
682 |
SEAICE_ADVECTION |
afy(i,j) = af(i,j) |
|
./pkg/seaice/seaice_advection.F |
695 |
SEAICE_ADVECTION |
DO i=iMinUpd,iMaxUpd |
|
./pkg/seaice/seaice_advection.F |
696 |
SEAICE_ADVECTION |
localTij(i,j)=localTij(i,j) |
|
./pkg/seaice/seaice_advection.F |
697 |
SEAICE_ADVECTION |
& -SEAICE_deltaTtherm*maskInC(i,j,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
698 |
SEAICE_ADVECTION |
& *recip_rA(i,j,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
699 |
SEAICE_ADVECTION |
& *( af(i,j+1)-af(i,j) |
|
./pkg/seaice/seaice_advection.F |
705 |
SEAICE_ADVECTION |
DO i=iMinUpd,iMaxUpd |
|
./pkg/seaice/seaice_advection.F |
706 |
SEAICE_ADVECTION |
localTij(i,j)=localTij(i,j) |
|
./pkg/seaice/seaice_advection.F |
707 |
SEAICE_ADVECTION |
& -SEAICE_deltaTtherm*maskInC(i,j,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
708 |
SEAICE_ADVECTION |
& *recip_rA(i,j,bi,bj)*r_hFld(i,j) |
|
./pkg/seaice/seaice_advection.F |
709 |
SEAICE_ADVECTION |
& *( (af(i,j+1)-af(i,j)) |
|
./pkg/seaice/seaice_advection.F |
710 |
SEAICE_ADVECTION |
& -(vTrans(i,j+1)-vTrans(i,j))*iceFld(i,j) |
|
./pkg/seaice/seaice_advection.F |
717 |
SEAICE_ADVECTION |
DO i=iMinUpd,iMaxUpd |
|
./pkg/seaice/seaice_advection.F |
718 |
SEAICE_ADVECTION |
afy(i,j) = af(i,j) |
|
./pkg/seaice/seaice_advection.F |
733 |
SEAICE_ADVECTION |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_advection.F |
734 |
SEAICE_ADVECTION |
gFld(i,j)=(localTij(i,j)-iceFld(i,j))/SEAICE_deltaTtherm |
|
./pkg/seaice/seaice_advection.F |
738 |
SEAICE_ADVECTION |
i=MIN(12,sNx) |
|
./pkg/seaice/seaice_advection.F |
740 |
SEAICE_ADVECTION |
tmpFac= SEAICE_deltaTtherm*recip_rA(i,j,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
742 |
SEAICE_ADVECTION |
& afx(i,j)*tmpFac,afx(i+1,j)*tmpFac, |
|
./pkg/seaice/seaice_advection.F |
743 |
SEAICE_ADVECTION |
& afy(i,j)*tmpFac,afy(i,j+1)*tmpFac |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
103 |
SEAICE_BOTTOMDRAG_COEFFS |
DO i=1-OLx,sNx+OLy-1 |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
107 |
SEAICE_BOTTOMDRAG_COEFFS |
& ( uIce(i ,j,bi,bj)+uIce(i+1,j,bi,bj) |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
109 |
SEAICE_BOTTOMDRAG_COEFFS |
& + ( vIce(i, j ,bi,bj)+vIce(i,j+1,bi,bj) |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
113 |
SEAICE_BOTTOMDRAG_COEFFS |
& ( uIce(i ,j,bi,bj)*maskInW( i ,j,bi,bj) |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
114 |
SEAICE_BOTTOMDRAG_COEFFS |
& + uIce(i+1,J,bi,bj)*maskInW(i+1,j,bi,bj) )**2 |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
115 |
SEAICE_BOTTOMDRAG_COEFFS |
& + ( vIce(i,j ,bi,bj)*maskInS(i, j ,bi,bj) |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
116 |
SEAICE_BOTTOMDRAG_COEFFS |
& + vIce(i,j+1,bi,bj)*maskInS(i,j+1,bi,bj) )**2 ) |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
126 |
SEAICE_BOTTOMDRAG_COEFFS |
DO i=1-OLx,sNx+OLy-1 |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
75 |
SEAICE_BOTTOMDRAG_COEFFS |
INTEGER i,j,bi,bj |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
97 |
SEAICE_BOTTOMDRAG_COEFFS |
DO i=1-OLx,sNx+OLy |
|
./pkg/seaice/seaice_budget_ocean.F |
141 |
SEAICE_BUDGET_OCEAN |
evap(i,j,bi,bj) = -hl(I,J,bi,bj) |
|
./pkg/seaice/seaice_budget_ocean.F |
144 |
SEAICE_BUDGET_OCEAN |
sflux(i,j,bi,bj) = evap(i,j,bi,bj) - precip(i,j,bi,bj) |
|
./pkg/seaice/seaice_budget_ocean.F |
146 |
SEAICE_BUDGET_OCEAN |
sflux(i,j,bi,bj) = sflux(i,j,bi,bj) - runoff(i,j,bi,bj) |
|
./pkg/seaice/seaice_budget_ocean.F |
148 |
SEAICE_BUDGET_OCEAN |
sflux(i,j,bi,bj) = sflux(i,j,bi,bj)*maskC(i,j,1,bi,bj) |
|
./pkg/seaice/seaice_budget_ocean.F |
149 |
SEAICE_BUDGET_OCEAN |
empmr(i,j,bi,bj) = sflux(i,j,bi,bj)*rhoConstFresh |
|
./pkg/seaice/seaice_budget_ocean.F |
57 |
SEAICE_BUDGET_OCEAN |
INTEGER i, j |
|
./pkg/seaice/seaice_calc_ice_strength.F |
104 |
SEAICE_CALC_ICE_STRENGTH |
DO i=iMin,iMax |
|
./pkg/seaice/seaice_calc_ice_strength.F |
106 |
SEAICE_CALC_ICE_STRENGTH |
IF ( (HEFF(i,j,bi,bj).LE.SEAICEpresH0).AND. |
|
./pkg/seaice/seaice_calc_ice_strength.F |
108 |
SEAICE_CALC_ICE_STRENGTH |
tmpscal1=MAX(HEFF(i,j,bi,bj)/SEAICEpresH0,ZERO) |
|
./pkg/seaice/seaice_calc_ice_strength.F |
110 |
SEAICE_CALC_ICE_STRENGTH |
ELSEIF ( (HEFF(i,j,bi,bj).GT.SEAICEpresH0).AND. |
|
./pkg/seaice/seaice_calc_ice_strength.F |
112 |
SEAICE_CALC_ICE_STRENGTH |
tmpscal1=MAX(HEFF(i,j,bi,bj)/SEAICEpresH0,ZERO) |
|
./pkg/seaice/seaice_calc_ice_strength.F |
115 |
SEAICE_CALC_ICE_STRENGTH |
tmpscal2=HEFF(i,j,bi,bj) |
|
./pkg/seaice/seaice_calc_ice_strength.F |
118 |
SEAICE_CALC_ICE_STRENGTH |
& *EXP(-SEAICE_cStar*(SEAICE_area_max-AREA(i,j,bi,bj))) |
|
./pkg/seaice/seaice_calc_ice_strength.F |
128 |
SEAICE_CALC_ICE_STRENGTH |
DO i=iMin,iMax |
|
./pkg/seaice/seaice_calc_ice_strength.F |
129 |
SEAICE_CALC_ICE_STRENGTH |
PRESS0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_calc_ice_strength.F |
140 |
SEAICE_CALC_ICE_STRENGTH |
DO i=iMin,iMax |
|
./pkg/seaice/seaice_calc_ice_strength.F |
144 |
SEAICE_CALC_ICE_STRENGTH |
IF ( partFunc(i,j,k) .GT. 0. _d 0 ) |
|
./pkg/seaice/seaice_calc_ice_strength.F |
145 |
SEAICE_CALC_ICE_STRENGTH |
& PRESS0(i,j,bi,bj) = PRESS0(i,j,bi,bj) |
|
./pkg/seaice/seaice_calc_ice_strength.F |
146 |
SEAICE_CALC_ICE_STRENGTH |
& + partFunc(i,j,k) * ( - hActual(i,j,k)**2 |
|
./pkg/seaice/seaice_calc_ice_strength.F |
147 |
SEAICE_CALC_ICE_STRENGTH |
& + ( hrMax(i,j,k)**2 + hrMin(i,j,k)**2 |
|
./pkg/seaice/seaice_calc_ice_strength.F |
148 |
SEAICE_CALC_ICE_STRENGTH |
& + hrMax(i,j,k)*hrMin(i,j,k) )*tmpscal1 |
|
./pkg/seaice/seaice_calc_ice_strength.F |
149 |
SEAICE_CALC_ICE_STRENGTH |
& / ridgeRatio(i,j,k) ) |
|
./pkg/seaice/seaice_calc_ice_strength.F |
156 |
SEAICE_CALC_ICE_STRENGTH |
DO i=iMin,iMax |
|
./pkg/seaice/seaice_calc_ice_strength.F |
157 |
SEAICE_CALC_ICE_STRENGTH |
PRESS0(i,j,bi,bj) = PRESS0(i,j,bi,bj) |
|
./pkg/seaice/seaice_calc_ice_strength.F |
158 |
SEAICE_CALC_ICE_STRENGTH |
& + partFunc(i,j,k) * ( - hActual(i,j,k)**2 + |
|
./pkg/seaice/seaice_calc_ice_strength.F |
159 |
SEAICE_CALC_ICE_STRENGTH |
& ( hrMin(i,j,k)*hrMin(i,j,k) |
|
./pkg/seaice/seaice_calc_ice_strength.F |
160 |
SEAICE_CALC_ICE_STRENGTH |
& + 2. _d 0 * hrMin(i,j,k)*hrExp(i,j,k) |
|
./pkg/seaice/seaice_calc_ice_strength.F |
161 |
SEAICE_CALC_ICE_STRENGTH |
& + 2. _d 0 * hrExp(i,j,k)*hrExp(i,j,k) |
|
./pkg/seaice/seaice_calc_ice_strength.F |
162 |
SEAICE_CALC_ICE_STRENGTH |
& )/ridgeRatio(i,j,k) ) |
|
./pkg/seaice/seaice_calc_ice_strength.F |
171 |
SEAICE_CALC_ICE_STRENGTH |
DO i=iMin,iMax |
|
./pkg/seaice/seaice_calc_ice_strength.F |
172 |
SEAICE_CALC_ICE_STRENGTH |
PRESS0(i,j,bi,bj) = PRESS0(i,j,bi,bj)/ridgingModeNorm(i,j) |
|
./pkg/seaice/seaice_calc_ice_strength.F |
56 |
SEAICE_CALC_ICE_STRENGTH |
INTEGER i, j |
|
./pkg/seaice/seaice_calc_ice_strength.F |
94 |
SEAICE_CALC_ICE_STRENGTH |
DO i=iMin,iMax |
|
./pkg/seaice/seaice_calc_ice_strength.F |
95 |
SEAICE_CALC_ICE_STRENGTH |
opnWtrFrac(i,j,bi,bj) = 1. _d 0 - AREA(i,j,bi,bj) |
|
./model/src/grad_sigma.F |
101 |
GRAD_SIGMA |
DO i=1-OLx,sNx+OLx |
|
./model/src/grad_sigma.F |
102 |
GRAD_SIGMA |
sigmaR(i,j,k)= maskC(i,j,k,bi,bj)*maskC(i,j,k-1,bi,bj) |
|
./model/src/grad_sigma.F |
104 |
GRAD_SIGMA |
& *(sigKp1(i,j)-sigKm1(i,j)) |
|
./model/src/grad_sigma.F |
52 |
GRAD_SIGMA |
INTEGER i,j |
|
./model/src/grad_sigma.F |
58 |
GRAD_SIGMA |
DO i=1-OLx,sNx+OLx |
|
./model/src/grad_sigma.F |
59 |
GRAD_SIGMA |
rhoLoc(i,j) = rhoK(i,j) |
|
./model/src/grad_sigma.F |
71 |
GRAD_SIGMA |
DO i=1-OLx+1,sNx+OLx |
|
./model/src/grad_sigma.F |
72 |
GRAD_SIGMA |
sigmaX(i,j,k)=_maskW(i,j,k,bi,bj) |
|
./model/src/grad_sigma.F |
73 |
GRAD_SIGMA |
& *_recip_dxC(i,j,bi,bj) |
|
./model/src/grad_sigma.F |
74 |
GRAD_SIGMA |
& *(rhoLoc(i,j)-rhoLoc(i-1,j)) |
|
./model/src/grad_sigma.F |
86 |
GRAD_SIGMA |
DO i=1-OLx,sNx+OLx |
|
./model/src/grad_sigma.F |
87 |
GRAD_SIGMA |
sigmaY(i,j,k)=_maskS(i,j,k,bi,bj) |
|
./model/src/grad_sigma.F |
88 |
GRAD_SIGMA |
& *_recip_dyC(i,j,bi,bj) |
|
./model/src/grad_sigma.F |
89 |
GRAD_SIGMA |
& *(rhoLoc(i,j)-rhoLoc(i,j-1)) |
|
./model/src/grad_sigma.F |
95 |
GRAD_SIGMA |
DO i=1-OLx,sNx+OLx |
|
./model/src/grad_sigma.F |
96 |
GRAD_SIGMA |
sigmaR(i,j,k)= 0. _d 0 |
|
./pkg/seaice/seaice_calc_lhs.F |
120 |
SEAICE_CALC_LHS |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_calc_lhs.F |
75 |
SEAICE_CALC_LHS |
INTEGER i,j,bi,bj |
|
./pkg/seaice/seaice_calc_residual.F |
64 |
SEAICE_CALC_RESIDUAL |
INTEGER i,j,bi,bj |
|
./pkg/seaice/seaice_calc_rhs.F |
55 |
SEAICE_CALC_RHS |
INTEGER i,j,bi,bj |
|
./pkg/seaice/seaice_calc_strainrates.F |
101 |
SEAICE_CALC_STRAINRATES |
DO i=1-OLx,sNx+OLx-1 |
|
./pkg/seaice/seaice_calc_strainrates.F |
102 |
SEAICE_CALC_STRAINRATES |
dudx(i,j) = _recip_dxF(i,j,bi,bj) * |
|
./pkg/seaice/seaice_calc_strainrates.F |
103 |
SEAICE_CALC_STRAINRATES |
& (uFld(i+1,j,bi,bj)-uFld(i,j,bi,bj)) |
|
./pkg/seaice/seaice_calc_strainrates.F |
104 |
SEAICE_CALC_STRAINRATES |
uave(i,j) = 0.5 _d 0 * (uFld(i,j,bi,bj)+uFld(i+1,j,bi,bj)) |
|
./pkg/seaice/seaice_calc_strainrates.F |
108 |
SEAICE_CALC_STRAINRATES |
DO i=1-OLx,sNx+OLx-1 |
|
./pkg/seaice/seaice_calc_strainrates.F |
109 |
SEAICE_CALC_STRAINRATES |
dvdy(i,j) = _recip_dyF(i,j,bi,bj) * |
|
./pkg/seaice/seaice_calc_strainrates.F |
110 |
SEAICE_CALC_STRAINRATES |
& (vFld(i,j+1,bi,bj)-vFld(i,j,bi,bj)) |
|
./pkg/seaice/seaice_calc_strainrates.F |
111 |
SEAICE_CALC_STRAINRATES |
vave(i,j) = 0.5 _d 0 * (vFld(i,j,bi,bj)+vFld(i,j+1,bi,bj)) |
|
./pkg/seaice/seaice_calc_strainrates.F |
116 |
SEAICE_CALC_STRAINRATES |
DO i=1-OLx,sNx+OLx-1 |
|
./pkg/seaice/seaice_calc_strainrates.F |
117 |
SEAICE_CALC_STRAINRATES |
e11Loc(i,j,bi,bj) = dudx(i,j) + vave(i,j) * k2AtC(i,j,bi,bj) |
|
./pkg/seaice/seaice_calc_strainrates.F |
118 |
SEAICE_CALC_STRAINRATES |
e22Loc(i,j,bi,bj) = dvdy(i,j) + uave(i,j) * k1AtC(i,j,bi,bj) |
|
./pkg/seaice/seaice_calc_strainrates.F |
124 |
SEAICE_CALC_STRAINRATES |
DO i=1-OLx,sNx+OLx-1 |
|
./pkg/seaice/seaice_calc_strainrates.F |
125 |
SEAICE_CALC_STRAINRATES |
e11Loc(i,j,bi,bj) = e11Loc(i,j,bi,bj)*maskInC(i,j,bi,bj) |
|
./pkg/seaice/seaice_calc_strainrates.F |
126 |
SEAICE_CALC_STRAINRATES |
e22Loc(i,j,bi,bj) = e22Loc(i,j,bi,bj)*maskInC(i,j,bi,bj) |
|
./pkg/seaice/seaice_calc_strainrates.F |
134 |
SEAICE_CALC_STRAINRATES |
DO i=1-OLx+1,sNx+OLx |
|
./pkg/seaice/seaice_calc_strainrates.F |
135 |
SEAICE_CALC_STRAINRATES |
dudy(i,j) = ( uFld(i,j,bi,bj) - uFld(i ,j-1,bi,bj) ) |
|
./pkg/seaice/seaice_calc_strainrates.F |
136 |
SEAICE_CALC_STRAINRATES |
& * _recip_dyU(i,j,bi,bj) |
|
./pkg/seaice/seaice_calc_strainrates.F |
137 |
SEAICE_CALC_STRAINRATES |
uave(i,j) = 0.5 _d 0 * (uFld(i,j,bi,bj)+uFld(i ,j-1,bi,bj)) |
|
./pkg/seaice/seaice_calc_strainrates.F |
141 |
SEAICE_CALC_STRAINRATES |
DO i=1-OLx+1,sNx+OLx |
|
./pkg/seaice/seaice_calc_strainrates.F |
142 |
SEAICE_CALC_STRAINRATES |
dvdx(i,j) = ( vFld(i,j,bi,bj) - vFld(i-1,j ,bi,bj) ) |
|
./pkg/seaice/seaice_calc_strainrates.F |
143 |
SEAICE_CALC_STRAINRATES |
& * _recip_dxV(i,j,bi,bj) |
|
./pkg/seaice/seaice_calc_strainrates.F |
144 |
SEAICE_CALC_STRAINRATES |
vave(i,j) = 0.5 _d 0 * (vFld(i,j,bi,bj)+vFld(i-1,j ,bi,bj)) |
|
./pkg/seaice/seaice_calc_strainrates.F |
149 |
SEAICE_CALC_STRAINRATES |
DO i=1-OLx+1,sNx+OLx |
|
./pkg/seaice/seaice_calc_strainrates.F |
150 |
SEAICE_CALC_STRAINRATES |
hFacU = _maskW(i,j,k,bi,bj) - _maskW(i,j-1,k,bi,bj) |
|
./pkg/seaice/seaice_calc_strainrates.F |
151 |
SEAICE_CALC_STRAINRATES |
hFacV = _maskS(i,j,k,bi,bj) - _maskS(i-1,j,k,bi,bj) |
|
./pkg/seaice/seaice_calc_strainrates.F |
152 |
SEAICE_CALC_STRAINRATES |
e12Loc(i,j,bi,bj) = 0.5 _d 0 * ( |
|
./pkg/seaice/seaice_calc_strainrates.F |
153 |
SEAICE_CALC_STRAINRATES |
& dudy(i,j) + dvdx(i,j) |
|
./pkg/seaice/seaice_calc_strainrates.F |
154 |
SEAICE_CALC_STRAINRATES |
& - k1AtZ(i,j,bi,bj) * vave(i,j) |
|
./pkg/seaice/seaice_calc_strainrates.F |
155 |
SEAICE_CALC_STRAINRATES |
& - k2AtZ(i,j,bi,bj) * uave(i,j) |
|
./pkg/seaice/seaice_calc_strainrates.F |
157 |
SEAICE_CALC_STRAINRATES |
& *maskC(i ,j ,k,bi,bj)*maskC(i-1,j ,k,bi,bj) |
|
./pkg/seaice/seaice_calc_strainrates.F |
158 |
SEAICE_CALC_STRAINRATES |
& *maskC(i ,j-1,k,bi,bj)*maskC(i-1,j-1,k,bi,bj) |
|
./pkg/seaice/seaice_calc_strainrates.F |
160 |
SEAICE_CALC_STRAINRATES |
& 2.0 _d 0 * uave(i,j) * _recip_dyU(i,j,bi,bj) * hFacU |
|
./pkg/seaice/seaice_calc_strainrates.F |
161 |
SEAICE_CALC_STRAINRATES |
& + 2.0 _d 0 * vave(i,j) * _recip_dxV(i,j,bi,bj) * hFacV |
|
./pkg/seaice/seaice_calc_strainrates.F |
172 |
SEAICE_CALC_STRAINRATES |
DO i=1-OLx+2,sNx+OLx-1 |
|
./pkg/seaice/seaice_calc_strainrates.F |
173 |
SEAICE_CALC_STRAINRATES |
hFacU = (_maskW(i,j,k,bi,bj) - _maskW(i,j-1,k,bi,bj))*third |
|
./pkg/seaice/seaice_calc_strainrates.F |
174 |
SEAICE_CALC_STRAINRATES |
hFacV = (_maskS(i,j,k,bi,bj) - _maskS(i-1,j,k,bi,bj))*third |
|
./pkg/seaice/seaice_calc_strainrates.F |
175 |
SEAICE_CALC_STRAINRATES |
hFacU = hFacU*( _maskW(i,j-2,k,bi,bj)*_maskW(i,j-1,k,bi,bj) |
|
./pkg/seaice/seaice_calc_strainrates.F |
176 |
SEAICE_CALC_STRAINRATES |
& + _maskW(i,j+1,k,bi,bj)*_maskW(i,j, k,bi,bj) ) |
|
./pkg/seaice/seaice_calc_strainrates.F |
177 |
SEAICE_CALC_STRAINRATES |
hFacV = hFacV*( _maskS(i-2,j,k,bi,bj)*_maskS(i-1,j,k,bi,bj) |
|
./pkg/seaice/seaice_calc_strainrates.F |
178 |
SEAICE_CALC_STRAINRATES |
& + _maskS(i+1,j,k,bi,bj)*_maskS(i ,j,k,bi,bj) ) |
|
./pkg/seaice/seaice_calc_strainrates.F |
191 |
SEAICE_CALC_STRAINRATES |
e12Loc(i,j,bi,bj) = e12Loc(i,j,bi,bj) + 0.5 _d 0 * ( |
|
./pkg/seaice/seaice_calc_strainrates.F |
192 |
SEAICE_CALC_STRAINRATES |
& _recip_dyU(i,j,bi,bj) * ( 6.0 _d 0 * uave(i,j) |
|
./pkg/seaice/seaice_calc_strainrates.F |
193 |
SEAICE_CALC_STRAINRATES |
& - uFld(i,j-2,bi,bj)*_maskW(i,j-1,k,bi,bj) |
|
./pkg/seaice/seaice_calc_strainrates.F |
194 |
SEAICE_CALC_STRAINRATES |
& - uFld(i,j+1,bi,bj)*_maskW(i,j ,k,bi,bj) ) * hFacU |
|
./pkg/seaice/seaice_calc_strainrates.F |
195 |
SEAICE_CALC_STRAINRATES |
& + _recip_dxV(i,j,bi,bj) * ( 6.0 _d 0 * vave(i,j) |
|
./pkg/seaice/seaice_calc_strainrates.F |
196 |
SEAICE_CALC_STRAINRATES |
& - vFld(i-2,j,bi,bj)*_maskS(i-1,j,k,bi,bj) |
|
./pkg/seaice/seaice_calc_strainrates.F |
197 |
SEAICE_CALC_STRAINRATES |
& - vFld(i+1,j,bi,bj)*_maskS(i ,j,k,bi,bj) ) * hFacV |
|
./pkg/seaice/seaice_calc_strainrates.F |
74 |
SEAICE_CALC_STRAINRATES |
INTEGER i, j, bi, bj |
|
./pkg/seaice/seaice_calc_stressdiv.F |
157 |
SEAICE_CALC_STRESS |
INTEGER i, j |
|
./pkg/seaice/seaice_calc_stressdiv.F |
162 |
SEAICE_CALC_STRESS |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_calc_stressdiv.F |
163 |
SEAICE_CALC_STRESS |
sig11(i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_calc_stressdiv.F |
164 |
SEAICE_CALC_STRESS |
sig22(i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_calc_stressdiv.F |
165 |
SEAICE_CALC_STRESS |
sig12(i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_calc_stressdiv.F |
170 |
SEAICE_CALC_STRESS |
DO i=0,sNx |
|
./pkg/seaice/seaice_calc_stressdiv.F |
171 |
SEAICE_CALC_STRESS |
eplus = e11(i,j,bi,bj) + e22(i,j,bi,bj) |
|
./pkg/seaice/seaice_calc_stressdiv.F |
172 |
SEAICE_CALC_STRESS |
eminus= e11(i,j,bi,bj) - e22(i,j,bi,bj) |
|
./pkg/seaice/seaice_calc_stressdiv.F |
173 |
SEAICE_CALC_STRESS |
sig11(i,j) = zeta(i,j,bi,bj)*eplus + eta(i,j,bi,bj)*eminus |
|
./pkg/seaice/seaice_calc_stressdiv.F |
174 |
SEAICE_CALC_STRESS |
& - 0.5 _d 0 * press(i,j,bi,bj) |
|
./pkg/seaice/seaice_calc_stressdiv.F |
175 |
SEAICE_CALC_STRESS |
sig22(i,j) = zeta(i,j,bi,bj)*eplus - eta(i,j,bi,bj)*eminus |
|
./pkg/seaice/seaice_calc_stressdiv.F |
176 |
SEAICE_CALC_STRESS |
& - 0.5 _d 0 * press(i,j,bi,bj) |
|
./pkg/seaice/seaice_calc_stressdiv.F |
181 |
SEAICE_CALC_STRESS |
DO i=1,sNx+1 |
|
./pkg/seaice/seaice_calc_stressdiv.F |
182 |
SEAICE_CALC_STRESS |
sig12(i,j) = 2. _d 0 * e12(i,j,bi,bj) * etaZ(i,j,bi,bj) |
|
./pkg/seaice/seaice_calc_stressdiv.F |
72 |
SEAICE_CALC_STRESSDIV |
INTEGER i, j |
|
./pkg/seaice/seaice_calc_stressdiv.F |
84 |
SEAICE_CALC_STRESSDIV |
stressDivergenceX(i,j,bi,bj) = |
|
./pkg/seaice/seaice_calc_stressdiv.F |
85 |
SEAICE_CALC_STRESSDIV |
& ( sig11(i ,j ) * _dyF(i ,j,bi,bj) |
|
./pkg/seaice/seaice_calc_stressdiv.F |
86 |
SEAICE_CALC_STRESSDIV |
& - sig11(i-1,J ) * _dyF(i-1,J,bi,bj) |
|
./pkg/seaice/seaice_calc_stressdiv.F |
87 |
SEAICE_CALC_STRESSDIV |
& + sig12(i ,j+1) * _dxV(i,j+1,bi,bj) |
|
./pkg/seaice/seaice_calc_stressdiv.F |
88 |
SEAICE_CALC_STRESSDIV |
& - sig12(i ,j ) * _dxV(i,j ,bi,bj) |
|
./pkg/seaice/seaice_calc_stressdiv.F |
89 |
SEAICE_CALC_STRESSDIV |
& ) * recip_rAw(i,j,bi,bj) |
|
./pkg/seaice/seaice_calc_stressdiv.F |
90 |
SEAICE_CALC_STRESSDIV |
stressDivergenceY(i,j,bi,bj) = |
|
./pkg/seaice/seaice_calc_stressdiv.F |
91 |
SEAICE_CALC_STRESSDIV |
& ( sig22(i ,j ) * _dxF(i,j ,bi,bj) |
|
./pkg/seaice/seaice_calc_stressdiv.F |
92 |
SEAICE_CALC_STRESSDIV |
& - sig22(i ,j-1) * _dxF(i,j-1,bi,bj) |
|
./pkg/seaice/seaice_calc_stressdiv.F |
93 |
SEAICE_CALC_STRESSDIV |
& + sig12(i+1,J ) * _dyU(i+1,J,bi,bj) |
|
./pkg/seaice/seaice_calc_stressdiv.F |
94 |
SEAICE_CALC_STRESSDIV |
& - sig12(i ,j ) * _dyU(i ,j,bi,bj) |
|
./pkg/seaice/seaice_calc_stressdiv.F |
95 |
SEAICE_CALC_STRESSDIV |
& ) * recip_rAs(i,j,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
104 |
SEAICE_CALC_VISCOSITIES |
DO i=1-OLx+1,sNx+OLx-1 |
|
./pkg/seaice/seaice_calc_viscosities.F |
108 |
SEAICE_CALC_VISCOSITIES |
e12Csq(i,j) = tmp*tmp |
|
./pkg/seaice/seaice_calc_viscosities.F |
113 |
SEAICE_CALC_VISCOSITIES |
DO i=1-OLx+1,sNx+OLx-1 |
|
./pkg/seaice/seaice_calc_viscosities.F |
116 |
SEAICE_CALC_VISCOSITIES |
e12Csq(i,j) = 0.25 _d 0 * recip_rA(I,J,bi,bj) * |
|
./pkg/seaice/seaice_calc_viscosities.F |
125 |
SEAICE_CALC_VISCOSITIES |
DO i=1-OLx+1,sNx+OLx-1 |
|
./pkg/seaice/seaice_calc_viscosities.F |
126 |
SEAICE_CALC_VISCOSITIES |
ep = e11(i,j,bi,bj)+e22(i,j,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
127 |
SEAICE_CALC_VISCOSITIES |
em = e11(i,j,bi,bj)-e22(i,j,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
128 |
SEAICE_CALC_VISCOSITIES |
deltaCsq = ep*ep+recip_e2*(em*em+4. _d 0*e12Csq(i,j)) |
|
./pkg/seaice/seaice_calc_viscosities.F |
184 |
SEAICE_CALC_VISCOSITIES |
DO i=1-OLx+1,sNx+OLx-1 |
|
./pkg/seaice/seaice_calc_viscosities.F |
185 |
SEAICE_CALC_VISCOSITIES |
ep = e11(i,j,bi,bj)+e22(i,j,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
186 |
SEAICE_CALC_VISCOSITIES |
em = e11(i,j,bi,bj)-e22(i,j,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
187 |
SEAICE_CALC_VISCOSITIES |
etaDen = em*em + 4. _d 0 * e12Csq(i,j) |
|
./pkg/seaice/seaice_calc_viscosities.F |
198 |
SEAICE_CALC_VISCOSITIES |
DO i=1-OLx+1,sNx+OLx-1 |
|
./pkg/seaice/seaice_calc_viscosities.F |
72 |
SEAICE_CALC_VISCOSITIES |
INTEGER i, j, bi, bj |
|
./pkg/seaice/seaice_calc_viscosities.F |
95 |
SEAICE_CALC_VISCOSITIES |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_calc_viscosities.F |
96 |
SEAICE_CALC_VISCOSITIES |
e12Csq(i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_check.F |
614 |
SEAICE_CHECK |
i = ILNBLNK(lwfluxfile) |
|
./pkg/seaice/seaice_check.F |
616 |
SEAICE_CHECK |
& 'lwFlux is read from lwfluxfile = ',lwfluxfile(1:i) |
|
./pkg/seaice/seaice_check.F |
61 |
SEAICE_CHECK |
INTEGER i |
|
./pkg/seaice/seaice_check.F |
625 |
SEAICE_CHECK |
i = ILNBLNK(swfluxfile) |
|
./pkg/seaice/seaice_check.F |
627 |
SEAICE_CHECK |
& 'swFlux is read from swfluxfile = ',swfluxfile(1:i) |
|
./pkg/seaice/seaice_cost_accumulate_mean.F |
37 |
SEAICE_COST_ACCUMULATE_MEAN |
INTEGER i, j |
|
./pkg/seaice/seaice_cost_accumulate_mean.F |
52 |
SEAICE_COST_ACCUMULATE_MEAN |
DO i=1,sNx |
|
./pkg/seaice/seaice_cost_accumulate_mean.F |
53 |
SEAICE_COST_ACCUMULATE_MEAN |
uHeffExportCell(i,j,bi,bj) = uHeffExportCell(i,j,bi,bj) |
|
./pkg/seaice/seaice_cost_accumulate_mean.F |
54 |
SEAICE_COST_ACCUMULATE_MEAN |
& + ( 0.92 _d 0*(HEFF(i,j,bi,bj)+HEFF(i-1,j,bi,bj))*0.5 _d 0 |
|
./pkg/seaice/seaice_cost_accumulate_mean.F |
55 |
SEAICE_COST_ACCUMULATE_MEAN |
& + 0.33 _d 0*(HSNOW(i,j,bi,bj)+HSNOW(i-1,j,bi,bj))*0.5 _d 0 |
|
./pkg/seaice/seaice_cost_accumulate_mean.F |
56 |
SEAICE_COST_ACCUMULATE_MEAN |
& )*UICE(i,j,bi,bj) |
|
./pkg/seaice/seaice_cost_accumulate_mean.F |
57 |
SEAICE_COST_ACCUMULATE_MEAN |
& *_dyG(i,j,bi,bj)/lastinterval*deltaTClock |
|
./pkg/seaice/seaice_cost_accumulate_mean.F |
58 |
SEAICE_COST_ACCUMULATE_MEAN |
vHeffExportCell(i,j,bi,bj) = vHeffExportCell(i,j,bi,bj) |
|
./pkg/seaice/seaice_cost_accumulate_mean.F |
59 |
SEAICE_COST_ACCUMULATE_MEAN |
& + ( 0.92 _d 0*(HEFF(i,j,bi,bj)+HEFF(i,j-1,bi,bj))*0.5 _d 0 |
|
./pkg/seaice/seaice_cost_accumulate_mean.F |
60 |
SEAICE_COST_ACCUMULATE_MEAN |
& + 0.33 _d 0*(HSNOW(i,j,bi,bj)+HSNOW(i,j-1,bi,bj))*0.5 _d 0 |
|
./pkg/seaice/seaice_cost_accumulate_mean.F |
61 |
SEAICE_COST_ACCUMULATE_MEAN |
& )*VICE(i,j,bi,bj) |
|
./pkg/seaice/seaice_cost_accumulate_mean.F |
62 |
SEAICE_COST_ACCUMULATE_MEAN |
& *_dxG(i,j,bi,bj)/lastinterval*deltaTClock |
|
./pkg/seaice/seaice_cost_concentration.F |
257 |
SEAICE_COST_CONCENTRATION |
do i = imin,imax |
|
./pkg/seaice/seaice_cost_concentration.F |
258 |
SEAICE_COST_CONCENTRATION |
localobs(i,j,k,bi,bj) = spval |
|
./pkg/seaice/seaice_cost_concentration.F |
271 |
SEAICE_COST_CONCENTRATION |
do i = imin,imax |
|
./pkg/seaice/seaice_cost_concentration.F |
273 |
SEAICE_COST_CONCENTRATION |
localModWeight(i,j,bi,bj) = |
|
./pkg/seaice/seaice_cost_concentration.F |
274 |
SEAICE_COST_CONCENTRATION |
& localweight(i,j,bi,bj) |
|
./pkg/seaice/seaice_cost_concentration.F |
277 |
SEAICE_COST_CONCENTRATION |
if (localweight(i,j,bi,bj) .GT. 0. _d 0) THEN |
|
./pkg/seaice/seaice_cost_concentration.F |
280 |
SEAICE_COST_CONCENTRATION |
areaSigma = 1. _d 0/sqrt(localweight(i,j,bi,bj)) |
|
./pkg/seaice/seaice_cost_concentration.F |
283 |
SEAICE_COST_CONCENTRATION |
IF (localobs(i,j,k,bi,bj) .eq. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_cost_concentration.F |
285 |
SEAICE_COST_CONCENTRATION |
ELSEIF ((localobs(i,j,k,bi,bj).gt.0. _d 0 ) .and. |
|
./pkg/seaice/seaice_cost_concentration.F |
286 |
SEAICE_COST_CONCENTRATION |
& (localobs(i,j,k,bi,bj).lt.0.15 _d 0)) THEN |
|
./pkg/seaice/seaice_cost_concentration.F |
288 |
SEAICE_COST_CONCENTRATION |
ELSEIF ((localobs(i,j,k,bi,bj).ge.0.15 _d 0) .and. |
|
./pkg/seaice/seaice_cost_concentration.F |
289 |
SEAICE_COST_CONCENTRATION |
& (localobs(i,j,k,bi,bj).le.0.25 _d 0)) THEN |
|
./pkg/seaice/seaice_cost_concentration.F |
295 |
SEAICE_COST_CONCENTRATION |
localModWeight(i,j,bi,bj) = |
|
./pkg/seaice/seaice_cost_concentration.F |
305 |
SEAICE_COST_CONCENTRATION |
if ((i == SEAICE_debugPointX) .and. |
|
./pkg/seaice/seaice_cost_concentration.F |
309 |
SEAICE_COST_CONCENTRATION |
& 'costg i j obs,locWeight,locModWt,areaigma ',i,j, |
|
./pkg/seaice/seaice_cost_concentration.F |
310 |
SEAICE_COST_CONCENTRATION |
& localobs(i,j,k,bi,bj), localweight(i,j,bi,bj), |
|
./pkg/seaice/seaice_cost_concentration.F |
311 |
SEAICE_COST_CONCENTRATION |
& localModWeight(i,j,bi,bj), |
|
./pkg/seaice/seaice_cost_concentration.F |
329 |
SEAICE_COST_CONCENTRATION |
do i = imin,imax |
|
./pkg/seaice/seaice_cost_concentration.F |
331 |
SEAICE_COST_CONCENTRATION |
if (localobs(i,j,k,bi,bj) .LT. -1) THEN |
|
./pkg/seaice/seaice_cost_concentration.F |
332 |
SEAICE_COST_CONCENTRATION |
print *,'obs rec date: ', -localobs(i,j,1,bi,bj) |
|
./pkg/seaice/seaice_cost_concentration.F |
349 |
SEAICE_COST_CONCENTRATION |
do i = imin,imax |
|
./pkg/seaice/seaice_cost_concentration.F |
350 |
SEAICE_COST_CONCENTRATION |
cmask(i,j,k) = cosphi(i,j,bi,bj)*localmask(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_cost_concentration.F |
351 |
SEAICE_COST_CONCENTRATION |
if ( localobs(i,j,k,bi,bj) .lt. spminloc .or. |
|
./pkg/seaice/seaice_cost_concentration.F |
352 |
SEAICE_COST_CONCENTRATION |
& localobs(i,j,k,bi,bj) .gt. spmaxloc .or. |
|
./pkg/seaice/seaice_cost_concentration.F |
353 |
SEAICE_COST_CONCENTRATION |
& localobs(i,j,k,bi,bj) .eq. spzeroloc ) then |
|
./pkg/seaice/seaice_cost_concentration.F |
354 |
SEAICE_COST_CONCENTRATION |
cmask(i,j,k) = 0. _d 0 |
|
./pkg/seaice/seaice_cost_concentration.F |
362 |
SEAICE_COST_CONCENTRATION |
do i = imin,imax |
|
./pkg/seaice/seaice_cost_concentration.F |
363 |
SEAICE_COST_CONCENTRATION |
localwww = localweight(i,j,bi,bj)*cmask(i,j,k) |
|
./pkg/seaice/seaice_cost_concentration.F |
366 |
SEAICE_COST_CONCENTRATION |
localwww = localModWeight(i,j,bi,bj)*cmask(i,j,k) |
|
./pkg/seaice/seaice_cost_concentration.F |
369 |
SEAICE_COST_CONCENTRATION |
junk = ( localbar(i,j,k,bi,bj) - |
|
./pkg/seaice/seaice_cost_concentration.F |
370 |
SEAICE_COST_CONCENTRATION |
& localobs(i,j,k,bi,bj) ) |
|
./pkg/seaice/seaice_cost_concentration.F |
374 |
SEAICE_COST_CONCENTRATION |
if ((i == SEAICE_debugPointX) .and. |
|
./pkg/seaice/seaice_cost_concentration.F |
378 |
SEAICE_COST_CONCENTRATION |
& 'costg i j bar, obs ',i,j, |
|
./pkg/seaice/seaice_cost_concentration.F |
379 |
SEAICE_COST_CONCENTRATION |
& localbar(i,j,k,bi,bj), |
|
./pkg/seaice/seaice_cost_concentration.F |
380 |
SEAICE_COST_CONCENTRATION |
& localobs(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_cost_concentration.F |
383 |
SEAICE_COST_CONCENTRATION |
& 'costg i j bar-obs,wgt,loCost ',i,j, |
|
./pkg/seaice/seaice_cost_concentration.F |
90 |
SEAICE_COST_CONCENTRATION |
integer i,j,k |
|
./pkg/seaice/seaice_cost_export.F |
32 |
SEAICE_COST_EXPORT |
integer i, j, k |
|
./pkg/seaice/seaice_cost_export.F |
47 |
SEAICE_COST_EXPORT |
do i=1,sNx |
|
./pkg/seaice/seaice_cost_export.F |
48 |
SEAICE_COST_EXPORT |
ig = myXGlobalLo-1+(bi-1)*sNx+i |
|
./pkg/seaice/seaice_cost_export.F |
55 |
SEAICE_COST_EXPORT |
& - uHeffExportCell(i,j,bi,bj) |
|
./pkg/seaice/seaice_cost_init_varia.F |
46 |
SEAICE_COST_INIT_VARIA |
integer i,j,k |
|
./pkg/seaice/seaice_cost_init_varia.F |
82 |
SEAICE_COST_INIT_VARIA |
do i = imin,imax |
|
./pkg/seaice/seaice_cost_init_varia.F |
84 |
SEAICE_COST_INIT_VARIA |
uHeffExportCell(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_cost_init_varia.F |
85 |
SEAICE_COST_INIT_VARIA |
vHeffExportCell(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_cost_sss.F |
272 |
SEAICE_COST_SSS |
do i = imin,imax |
|
./pkg/seaice/seaice_cost_sss.F |
273 |
SEAICE_COST_SSS |
localobs(i,j,k,bi,bj) = spval |
|
./pkg/seaice/seaice_cost_sss.F |
286 |
SEAICE_COST_SSS |
do i = imin,imax |
|
./pkg/seaice/seaice_cost_sss.F |
288 |
SEAICE_COST_SSS |
if (localobs(i,j,k,bi,bj) .LT. -1) THEN |
|
./pkg/seaice/seaice_cost_sss.F |
289 |
SEAICE_COST_SSS |
print *,'obs rec date: ', -localobs(i,j,1,bi,bj) |
|
./pkg/seaice/seaice_cost_sss.F |
306 |
SEAICE_COST_SSS |
do i = imin,imax |
|
./pkg/seaice/seaice_cost_sss.F |
307 |
SEAICE_COST_SSS |
cmask(i,j,k) = cosphi(i,j,bi,bj)*localmask(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_cost_sss.F |
308 |
SEAICE_COST_SSS |
if ( localobs(i,j,k,bi,bj) .lt. spminloc .or. |
|
./pkg/seaice/seaice_cost_sss.F |
309 |
SEAICE_COST_SSS |
& localobs(i,j,k,bi,bj) .gt. spmaxloc .or. |
|
./pkg/seaice/seaice_cost_sss.F |
310 |
SEAICE_COST_SSS |
& localobs(i,j,k,bi,bj) .eq. spzeroloc ) then |
|
./pkg/seaice/seaice_cost_sss.F |
311 |
SEAICE_COST_SSS |
cmask(i,j,k) = 0. _d 0 |
|
./pkg/seaice/seaice_cost_sss.F |
319 |
SEAICE_COST_SSS |
do i = imin,imax |
|
./pkg/seaice/seaice_cost_sss.F |
320 |
SEAICE_COST_SSS |
localwww = localweight(i,j,bi,bj)*cmask(i,j,k) |
|
./pkg/seaice/seaice_cost_sss.F |
323 |
SEAICE_COST_SSS |
if ( localobs(i,j,k,bi,bj) .GT. 0.0 .AND. |
|
./pkg/seaice/seaice_cost_sss.F |
324 |
SEAICE_COST_SSS |
& areabar(i,j,1,bi,bj) .LE. 0.0) then |
|
./pkg/seaice/seaice_cost_sss.F |
329 |
SEAICE_COST_SSS |
junk = ( localbar(i,j,k,bi,bj) - SEAICE_clamp_salt ) |
|
./pkg/seaice/seaice_cost_sss.F |
340 |
SEAICE_COST_SSS |
if ((i == SEAICE_debugPointX) .and. |
|
./pkg/seaice/seaice_cost_sss.F |
344 |
SEAICE_COST_SSS |
& 'costg i j sbar, abar,obs ',i,j, |
|
./pkg/seaice/seaice_cost_sss.F |
345 |
SEAICE_COST_SSS |
& localbar(i,j,k,bi,bj), |
|
./pkg/seaice/seaice_cost_sss.F |
346 |
SEAICE_COST_SSS |
& areabar(i,j,k,bi,bj), |
|
./pkg/seaice/seaice_cost_sss.F |
347 |
SEAICE_COST_SSS |
& localobs(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_cost_sss.F |
350 |
SEAICE_COST_SSS |
& 'costg i j bar-obs,wgt,loCost ',i,j, |
|
./pkg/seaice/seaice_cost_sss.F |
88 |
SEAICE_COST_SSS |
integer i,j,k |
|
./pkg/seaice/seaice_cost_sst.F |
272 |
SEAICE_COST_SST |
do i = imin,imax |
|
./pkg/seaice/seaice_cost_sst.F |
273 |
SEAICE_COST_SST |
localobs(i,j,k,bi,bj) = spval |
|
./pkg/seaice/seaice_cost_sst.F |
286 |
SEAICE_COST_SST |
do i = imin,imax |
|
./pkg/seaice/seaice_cost_sst.F |
288 |
SEAICE_COST_SST |
if (localobs(i,j,k,bi,bj) .LT. -1) THEN |
|
./pkg/seaice/seaice_cost_sst.F |
289 |
SEAICE_COST_SST |
print *,'obs rec date: ', -localobs(i,j,1,bi,bj) |
|
./pkg/seaice/seaice_cost_sst.F |
306 |
SEAICE_COST_SST |
do i = imin,imax |
|
./pkg/seaice/seaice_cost_sst.F |
307 |
SEAICE_COST_SST |
cmask(i,j,k) = cosphi(i,j,bi,bj)*localmask(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_cost_sst.F |
308 |
SEAICE_COST_SST |
if ( localobs(i,j,k,bi,bj) .lt. spminloc .or. |
|
./pkg/seaice/seaice_cost_sst.F |
309 |
SEAICE_COST_SST |
& localobs(i,j,k,bi,bj) .gt. spmaxloc .or. |
|
./pkg/seaice/seaice_cost_sst.F |
310 |
SEAICE_COST_SST |
& localobs(i,j,k,bi,bj) .eq. spzeroloc ) then |
|
./pkg/seaice/seaice_cost_sst.F |
311 |
SEAICE_COST_SST |
cmask(i,j,k) = 0. _d 0 |
|
./pkg/seaice/seaice_cost_sst.F |
319 |
SEAICE_COST_SST |
do i = imin,imax |
|
./pkg/seaice/seaice_cost_sst.F |
320 |
SEAICE_COST_SST |
localwww = localweight(i,j,bi,bj)*cmask(i,j,k) |
|
./pkg/seaice/seaice_cost_sst.F |
323 |
SEAICE_COST_SST |
if ( localobs(i,j,k,bi,bj) .GT. 0.0 .AND. |
|
./pkg/seaice/seaice_cost_sst.F |
324 |
SEAICE_COST_SST |
& areabar(i,j,1,bi,bj) .LE. 0.0) then |
|
./pkg/seaice/seaice_cost_sst.F |
326 |
SEAICE_COST_SST |
junk = ( localbar(i,j,k,bi,bj) - |
|
./pkg/seaice/seaice_cost_sst.F |
336 |
SEAICE_COST_SST |
if ((i == SEAICE_debugPointX) .and. |
|
./pkg/seaice/seaice_cost_sst.F |
340 |
SEAICE_COST_SST |
& 'costg i j tbar, abar,obs ',i,j, |
|
./pkg/seaice/seaice_cost_sst.F |
341 |
SEAICE_COST_SST |
& localbar(i,j,k,bi,bj), |
|
./pkg/seaice/seaice_cost_sst.F |
342 |
SEAICE_COST_SST |
& areabar(i,j,k,bi,bj), |
|
./pkg/seaice/seaice_cost_sst.F |
343 |
SEAICE_COST_SST |
& localobs(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_cost_sst.F |
346 |
SEAICE_COST_SST |
& 'costg i j bar-obs,wgt,loCost ',i,j, |
|
./pkg/seaice/seaice_cost_sst.F |
86 |
SEAICE_COST_SST |
integer i,j,k |
|
./pkg/seaice/seaice_cost_weights.F |
114 |
SEAICE_COST_WEIGHTS |
do i = imin,imax |
|
./pkg/seaice/seaice_cost_weights.F |
115 |
SEAICE_COST_WEIGHTS |
wsmrarea(i,j,bi,bj) = wsmrarea(i,j,bi,bj) |
|
./pkg/seaice/seaice_cost_weights.F |
116 |
SEAICE_COST_WEIGHTS |
& *frame(i,j)*_hFacC(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_cost_weights.F |
125 |
SEAICE_COST_WEIGHTS |
do i = imin,imax |
|
./pkg/seaice/seaice_cost_weights.F |
126 |
SEAICE_COST_WEIGHTS |
wsmrarea(i,j,bi,bj) = wsmrarea0 |
|
./pkg/seaice/seaice_cost_weights.F |
127 |
SEAICE_COST_WEIGHTS |
& *frame(i,j)*_hFacC(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_cost_weights.F |
137 |
SEAICE_COST_WEIGHTS |
do i = imin,imax |
|
./pkg/seaice/seaice_cost_weights.F |
138 |
SEAICE_COST_WEIGHTS |
if (wsmrarea(i,j,bi,bj) .ne. 0.) |
|
./pkg/seaice/seaice_cost_weights.F |
139 |
SEAICE_COST_WEIGHTS |
& wsmrarea(i,j,bi,bj) = |
|
./pkg/seaice/seaice_cost_weights.F |
140 |
SEAICE_COST_WEIGHTS |
& 1./wsmrarea(i,j,bi,bj)/wsmrarea(i,j,bi,bj) |
|
./pkg/seaice/seaice_cost_weights.F |
47 |
SEAICE_COST_WEIGHTS |
integer i,j,k |
|
./pkg/seaice/seaice_cost_weights.F |
78 |
SEAICE_COST_WEIGHTS |
do i = imin,imax |
|
./pkg/seaice/seaice_cost_weights.F |
81 |
SEAICE_COST_WEIGHTS |
& (i .lt. 1) .or. (i .gt. snx) ) then |
|
./pkg/seaice/seaice_cost_weights.F |
82 |
SEAICE_COST_WEIGHTS |
frame(i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_cost_weights.F |
84 |
SEAICE_COST_WEIGHTS |
frame(i,j) = 1. _d 0 |
|
./pkg/seaice/seaice_cost_weights.F |
94 |
SEAICE_COST_WEIGHTS |
do i = imin,imax |
|
./pkg/seaice/seaice_cost_weights.F |
95 |
SEAICE_COST_WEIGHTS |
wsmrarea (i,j,bi,bj) = 0. _d 0 |
|
./model/src/impldiff.F |
112 |
IMPLDIFF |
DO i=1-OLx,sNx+OLx |
|
./model/src/impldiff.F |
115 |
IMPLDIFF |
DO i=iMin,iMax |
|
./model/src/impldiff.F |
117 |
IMPLDIFF |
locTr(i,j,k) = 0. _d 0 |
|
./model/src/impldiff.F |
125 |
IMPLDIFF |
DO i=1-OLx,sNx+OLx |
|
./model/src/impldiff.F |
128 |
IMPLDIFF |
DO i=iMin,iMax |
|
./model/src/impldiff.F |
130 |
IMPLDIFF |
a(i,j,1) = 0. _d 0 |
|
./model/src/impldiff.F |
136 |
IMPLDIFF |
DO i=1-OLx,sNx+OLx |
|
./model/src/impldiff.F |
139 |
IMPLDIFF |
DO i=iMin,iMax |
|
./model/src/impldiff.F |
141 |
IMPLDIFF |
a(i,j,k) = -deltaTX(k)*recip_hFac(i,j,k)*recip_drF(k) |
|
./model/src/impldiff.F |
143 |
IMPLDIFF |
& *KappaRX(i,j, k )*recip_drC( k ) |
|
./model/src/impldiff.F |
145 |
IMPLDIFF |
IF (recip_hFac(i,j,k-1).EQ.0.) a(i,j,k)=0. |
|
./model/src/impldiff.F |
154 |
IMPLDIFF |
DO i=1-OLx,sNx+OLx |
|
./model/src/impldiff.F |
157 |
IMPLDIFF |
DO i=iMin,iMax |
|
./model/src/impldiff.F |
159 |
IMPLDIFF |
c(i,j,k) = -deltaTX(k)*recip_hFac(i,j,k)*recip_drF(k) |
|
./model/src/impldiff.F |
161 |
IMPLDIFF |
& *KappaRX(i,j,k+1)*recip_drC(k+1) |
|
./model/src/impldiff.F |
163 |
IMPLDIFF |
IF (recip_hFac(i,j,k+1).EQ.0.) c(i,j,k)=0. |
|
./model/src/impldiff.F |
169 |
IMPLDIFF |
DO i=1-OLx,sNx+OLx |
|
./model/src/impldiff.F |
172 |
IMPLDIFF |
DO i=iMin,iMax |
|
./model/src/impldiff.F |
174 |
IMPLDIFF |
c(i,j,Nr) = 0. _d 0 |
|
./model/src/impldiff.F |
182 |
IMPLDIFF |
DO i=1-OLx,sNx+OLx |
|
./model/src/impldiff.F |
185 |
IMPLDIFF |
DO i=iMin,iMax |
|
./model/src/impldiff.F |
187 |
IMPLDIFF |
b(i,j,k) = 1. _d 0 - ( a(i,j,k) + c(i,j,k) ) |
|
./model/src/impldiff.F |
198 |
IMPLDIFF |
DO i=1-OLx,sNx+OLx |
|
./model/src/impldiff.F |
201 |
IMPLDIFF |
DO i=iMin,iMax |
|
./model/src/impldiff.F |
203 |
IMPLDIFF |
bet(i,j,k) = 1. _d 0 |
|
./model/src/impldiff.F |
204 |
IMPLDIFF |
gam(i,j,k) = 0. _d 0 |
|
./model/src/impldiff.F |
216 |
IMPLDIFF |
DO i=1-OLx,sNx+OLx |
|
./model/src/impldiff.F |
219 |
IMPLDIFF |
DO i=iMin,iMax |
|
./model/src/impldiff.F |
221 |
IMPLDIFF |
IF (b(i,j,1).NE.0.) bet(i,j,1) = 1. _d 0 / b(i,j,1) |
|
./model/src/impldiff.F |
235 |
IMPLDIFF |
DO i=1-OLx,sNx+OLx |
|
./model/src/impldiff.F |
238 |
IMPLDIFF |
DO i=iMin,iMax |
|
./model/src/impldiff.F |
240 |
IMPLDIFF |
gam(i,j,k) = c(i,j,k-1)*bet(i,j,k-1) |
|
./model/src/impldiff.F |
241 |
IMPLDIFF |
IF ( ( b(i,j,k) - a(i,j,k)*gam(i,j,k) ) .NE. 0.) |
|
./model/src/impldiff.F |
242 |
IMPLDIFF |
& bet(i,j,k) = 1. _d 0 / ( b(i,j,k) - a(i,j,k)*gam(i,j,k) ) |
|
./model/src/impldiff.F |
252 |
IMPLDIFF |
DO i=1-OLx,sNx+OLx |
|
./model/src/impldiff.F |
255 |
IMPLDIFF |
DO i=iMin,iMax |
|
./model/src/impldiff.F |
257 |
IMPLDIFF |
locTr(i,j,1) = gTracer(i,j,1)*bet(i,j,1) |
|
./model/src/impldiff.F |
263 |
IMPLDIFF |
DO i=1-OLx,sNx+OLx |
|
./model/src/impldiff.F |
266 |
IMPLDIFF |
DO i=iMin,iMax |
|
./model/src/impldiff.F |
268 |
IMPLDIFF |
locTr(i,j,k) = bet(i,j,k)* |
|
./model/src/impldiff.F |
269 |
IMPLDIFF |
& (gTracer(i,j,k) - a(i,j,k)*locTr(i,j,k-1)) |
|
./model/src/impldiff.F |
279 |
IMPLDIFF |
DO i=1-OLx,sNx+OLx |
|
./model/src/impldiff.F |
282 |
IMPLDIFF |
DO i=iMin,iMax |
|
./model/src/impldiff.F |
284 |
IMPLDIFF |
locTr(i,j,k) = locTr(i,j,k) - gam(i,j,k+1)*locTr(i,j,k+1) |
|
./model/src/impldiff.F |
292 |
IMPLDIFF |
DO i=1-OLx,sNx+OLx |
|
./model/src/impldiff.F |
295 |
IMPLDIFF |
DO i=iMin,iMax |
|
./model/src/impldiff.F |
297 |
IMPLDIFF |
gTracer(i,j,k) = locTr(i,j,k) |
|
./model/src/impldiff.F |
325 |
IMPLDIFF |
DO i=1-OLx,sNx+OLx |
|
./model/src/impldiff.F |
326 |
IMPLDIFF |
df(i,j) = 0. _d 0 |
|
./model/src/impldiff.F |
332 |
IMPLDIFF |
DO i=1-OLx,sNx+OLx |
|
./model/src/impldiff.F |
335 |
IMPLDIFF |
DO i=1,sNx |
|
./model/src/impldiff.F |
337 |
IMPLDIFF |
df(i,j) = |
|
./model/src/impldiff.F |
338 |
IMPLDIFF |
& -rA(i,j,bi,bj)*deepFac2F(k)*rhoFacF(k) |
|
./model/src/impldiff.F |
339 |
IMPLDIFF |
& * KappaRX(i,j,k)*recip_drC(k)*rkSign |
|
./model/src/impldiff.F |
340 |
IMPLDIFF |
& * (gTracer(i,j,k) - gTracer(i,j,k-1)) |
|
./model/src/impldiff.F |
341 |
IMPLDIFF |
& * maskC(i,j,k,bi,bj) |
|
./model/src/impldiff.F |
342 |
IMPLDIFF |
& * maskC(i,j,k-1,bi,bj) |
|
./model/src/impldiff.F |
348 |
IMPLDIFF |
DO i=1-OLx,sNx+OLx |
|
./model/src/impldiff.F |
351 |
IMPLDIFF |
DO i=1,sNx+1 |
|
./model/src/impldiff.F |
353 |
IMPLDIFF |
df(i,j) = |
|
./model/src/impldiff.F |
354 |
IMPLDIFF |
& -rAw(i,j,bi,bj)*deepFac2F(k)*rhoFacF(k) |
|
./model/src/impldiff.F |
355 |
IMPLDIFF |
& * KappaRX(i,j,k)*recip_drC(k)*rkSign |
|
./model/src/impldiff.F |
356 |
IMPLDIFF |
& * (gTracer(i,j,k) - gTracer(i,j,k-1)) |
|
./model/src/impldiff.F |
357 |
IMPLDIFF |
& * _maskW(i,j,k,bi,bj) |
|
./model/src/impldiff.F |
358 |
IMPLDIFF |
& * _maskW(i,j,k-1,bi,bj) |
|
./model/src/impldiff.F |
364 |
IMPLDIFF |
DO i=1-OLx,sNx+OLx |
|
./model/src/impldiff.F |
367 |
IMPLDIFF |
DO i=1,sNx |
|
./model/src/impldiff.F |
369 |
IMPLDIFF |
df(i,j) = |
|
./model/src/impldiff.F |
370 |
IMPLDIFF |
& -rAs(i,j,bi,bj)*deepFac2F(k)*rhoFacF(k) |
|
./model/src/impldiff.F |
371 |
IMPLDIFF |
& * KappaRX(i,j,k)*recip_drC(k)*rkSign |
|
./model/src/impldiff.F |
372 |
IMPLDIFF |
& * (gTracer(i,j,k) - gTracer(i,j,k-1)) |
|
./model/src/impldiff.F |
373 |
IMPLDIFF |
& * _maskS(i,j,k,bi,bj) |
|
./model/src/impldiff.F |
374 |
IMPLDIFF |
& * _maskS(i,j,k-1,bi,bj) |
|
./model/src/impldiff.F |
64 |
IMPLDIFF |
INTEGER i,j,k |
|
./pkg/seaice/seaice_ctrl_map_ini.F |
105 |
SEAICE_CTRL_MAP_INI |
do i = imin,imax |
|
./pkg/seaice/seaice_ctrl_map_ini.F |
106 |
SEAICE_CTRL_MAP_INI |
area(i,j,bi,bj) = area(i,j,bi,bj) + |
|
./pkg/seaice/seaice_ctrl_map_ini.F |
107 |
SEAICE_CTRL_MAP_INI |
& tmpfld2d(i,j,bi,bj) |
|
./pkg/seaice/seaice_ctrl_map_ini.F |
125 |
SEAICE_CTRL_MAP_INI |
do i = imin,imax |
|
./pkg/seaice/seaice_ctrl_map_ini.F |
126 |
SEAICE_CTRL_MAP_INI |
heff(i,j,bi,bj) = heff(i,j,bi,bj) + |
|
./pkg/seaice/seaice_ctrl_map_ini.F |
127 |
SEAICE_CTRL_MAP_INI |
& tmpfld2d(i,j,bi,bj) |
|
./pkg/seaice/seaice_ctrl_map_ini.F |
145 |
SEAICE_CTRL_MAP_INI |
do i = imin,imax |
|
./pkg/seaice/seaice_ctrl_map_ini.F |
146 |
SEAICE_CTRL_MAP_INI |
hsnow(i,j,bi,bj) = hsnow(i,j,bi,bj) + |
|
./pkg/seaice/seaice_ctrl_map_ini.F |
147 |
SEAICE_CTRL_MAP_INI |
& tmpfld2d(i,j,bi,bj) |
|
./pkg/seaice/seaice_ctrl_map_ini.F |
51 |
SEAICE_CTRL_MAP_INI |
integer i,j,k |
|
./pkg/seaice/seaice_diagnostics_state.F |
138 |
SEAICE_DIAGNOSTICS_STATE |
DO i=1,sNx |
|
./pkg/seaice/seaice_diagnostics_state.F |
168 |
SEAICE_DIAGNOSTICS_STATE |
DO i=1,sNx |
|
./pkg/seaice/seaice_diagnostics_state.F |
210 |
SEAICE_DIAGNOSTICS_STATE |
DO i=1,sNx |
|
./pkg/seaice/seaice_diagnostics_state.F |
241 |
SEAICE_DIAGNOSTICS_STATE |
DO i=1,sNx |
|
./pkg/seaice/seaice_diagnostics_state.F |
262 |
SEAICE_DIAGNOSTICS_STATE |
DO i = 1,sNx+1 |
|
./pkg/seaice/seaice_diagnostics_state.F |
263 |
SEAICE_DIAGNOSTICS_STATE |
press(i,j,bi,bj) = |
|
./pkg/seaice/seaice_diagnostics_state.F |
265 |
SEAICE_DIAGNOSTICS_STATE |
& UICE(i,j,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
268 |
SEAICE_DIAGNOSTICS_STATE |
& 0.5 _d 0*(UICE(i,j,bi,bj)+UICE(i,j+1,bi,bj)) |
|
./pkg/seaice/seaice_diagnostics_state.F |
270 |
SEAICE_DIAGNOSTICS_STATE |
& *0.5 _d 0*(HEFF(i,j,bi,bj)+HEFF(i-1,j,bi,bj)) |
|
./pkg/seaice/seaice_diagnostics_state.F |
281 |
SEAICE_DIAGNOSTICS_STATE |
DO i = 1,sNx |
|
./pkg/seaice/seaice_diagnostics_state.F |
282 |
SEAICE_DIAGNOSTICS_STATE |
press(i,j,bi,bj) = |
|
./pkg/seaice/seaice_diagnostics_state.F |
284 |
SEAICE_DIAGNOSTICS_STATE |
& VICE(i,j,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
287 |
SEAICE_DIAGNOSTICS_STATE |
& 0.5 _d 0*(VICE(i,j,bi,bj)+VICE(i+1,j,bi,bj)) |
|
./pkg/seaice/seaice_diagnostics_state.F |
289 |
SEAICE_DIAGNOSTICS_STATE |
& *0.5 _d 0*(HEFF(i,j,bi,bj)+HEFF(i,j-1,bi,bj)) |
|
./pkg/seaice/seaice_diagnostics_state.F |
43 |
SEAICE_DIAGNOSTICS_STATE |
INTEGER i,j,bi,bj |
|
./pkg/seaice/seaice_diagnostics_state.F |
76 |
SEAICE_DIAGNOSTICS_STATE |
DO i=1,sNx |
|
./pkg/seaice/seaice_diagnostics_state.F |
84 |
SEAICE_DIAGNOSTICS_STATE |
DO i=1,sNx |
|
./pkg/seaice/seaice_diffusion.F |
68 |
SEAICE_DIFFUSION |
INTEGER i, j, k |
|
./pkg/seaice/seaice_diffusion.F |
82 |
SEAICE_DIFFUSION |
DO i=1-Olx,sNx+Olx |
|
./pkg/seaice/seaice_diffusion.F |
83 |
SEAICE_DIFFUSION |
fZon (i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_diffusion.F |
84 |
SEAICE_DIFFUSION |
fMer (i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_diffusion.F |
93 |
SEAICE_DIFFUSION |
DO i=1-Olx,sNx+Olx-1 |
|
./pkg/seaice/seaice_diffusion.F |
94 |
SEAICE_DIFFUSION |
gFld(i,j)= gFld(i,j) |
|
./pkg/seaice/seaice_diffusion.F |
95 |
SEAICE_DIFFUSION |
& - fac*iceMask(i,j,bi,bj)*recip_rA(i,j,bi,bj) |
|
./pkg/seaice/seaice_diffusion.F |
96 |
SEAICE_DIFFUSION |
& *( (fZon(i+1,j)-fZon(i,j)) |
|
./pkg/seaice/seaice_diffusion.F |
97 |
SEAICE_DIFFUSION |
& + (fMer(i,j+1)-fMer(i,j)) ) |
|
./pkg/seaice/seaice_do_ridging.F |
113 |
SEAICE_DO_RIDGING |
DO i=iMin,iMax |
|
./pkg/seaice/seaice_do_ridging.F |
120 |
SEAICE_DO_RIDGING |
DO i=iMin,iMax |
|
./pkg/seaice/seaice_do_ridging.F |
121 |
SEAICE_DO_RIDGING |
openWater(i,j) = ONE |
|
./pkg/seaice/seaice_do_ridging.F |
126 |
SEAICE_DO_RIDGING |
DO i=iMin,iMax |
|
./pkg/seaice/seaice_do_ridging.F |
127 |
SEAICE_DO_RIDGING |
openWater(i,j) = openWater(i,j) - AREAITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_do_ridging.F |
137 |
SEAICE_DO_RIDGING |
DO i=iMin,iMax |
|
./pkg/seaice/seaice_do_ridging.F |
138 |
SEAICE_DO_RIDGING |
IF (openWater(i,j) .lt. 0.0) |
|
./pkg/seaice/seaice_do_ridging.F |
139 |
SEAICE_DO_RIDGING |
& AREAITD(i,j,1,bi,bj) = openWater(i,j)+AREAITD(i,j,1,bi,bj) |
|
./pkg/seaice/seaice_do_ridging.F |
146 |
SEAICE_DO_RIDGING |
DO i=iMin,iMax |
|
./pkg/seaice/seaice_do_ridging.F |
147 |
SEAICE_DO_RIDGING |
ridgingArea(i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_do_ridging.F |
148 |
SEAICE_DO_RIDGING |
ridgingHeff(i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_do_ridging.F |
149 |
SEAICE_DO_RIDGING |
ridgingHsnw(i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_do_ridging.F |
150 |
SEAICE_DO_RIDGING |
areaFraction(i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_do_ridging.F |
151 |
SEAICE_DO_RIDGING |
volFraction(i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_do_ridging.F |
152 |
SEAICE_DO_RIDGING |
fw2ObyRidge(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_do_ridging.F |
153 |
SEAICE_DO_RIDGING |
ridgedArea(i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_do_ridging.F |
164 |
SEAICE_DO_RIDGING |
DO i=iMin,iMax |
|
./pkg/seaice/seaice_do_ridging.F |
165 |
SEAICE_DO_RIDGING |
divergence = e11(i,j,bi,bj) + e22(i,j,bi,bj) |
|
./pkg/seaice/seaice_do_ridging.F |
166 |
SEAICE_DO_RIDGING |
shear = 0.5 _d 0 * ( deltaC(i,j,bi,bj) - ABS(divergence) ) |
|
./pkg/seaice/seaice_do_ridging.F |
168 |
SEAICE_DO_RIDGING |
closingRate(i,j) = SEAICEshearParm*shear + convergence |
|
./pkg/seaice/seaice_do_ridging.F |
174 |
SEAICE_DO_RIDGING |
DO i=iMin,iMax |
|
./pkg/seaice/seaice_do_ridging.F |
175 |
SEAICE_DO_RIDGING |
netArea(i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_do_ridging.F |
180 |
SEAICE_DO_RIDGING |
DO i=iMin,iMax |
|
./pkg/seaice/seaice_do_ridging.F |
181 |
SEAICE_DO_RIDGING |
netArea(i,j) = netArea(i,j) + AREAITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_do_ridging.F |
187 |
SEAICE_DO_RIDGING |
DO i=iMin,iMax |
|
./pkg/seaice/seaice_do_ridging.F |
191 |
SEAICE_DO_RIDGING |
divAdv = (1. _d 0-netArea(i,j)-opnWtrFrac(i,j,bi,bj)) |
|
./pkg/seaice/seaice_do_ridging.F |
194 |
SEAICE_DO_RIDGING |
& closingRate(i,j) = MAX(closingRate(i,j), -divAdv) |
|
./pkg/seaice/seaice_do_ridging.F |
197 |
SEAICE_DO_RIDGING |
openingRate(i,j) = closingRate(i,j) + divAdv |
|
./pkg/seaice/seaice_do_ridging.F |
209 |
SEAICE_DO_RIDGING |
DO i=iMin,iMax |
|
./pkg/seaice/seaice_do_ridging.F |
210 |
SEAICE_DO_RIDGING |
areaPR(i,j,k) = AREAITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_do_ridging.F |
211 |
SEAICE_DO_RIDGING |
heffPR(i,j,k) = HEFFITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_do_ridging.F |
212 |
SEAICE_DO_RIDGING |
hsnwPR(i,j,k) = HSNOWITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_do_ridging.F |
221 |
SEAICE_DO_RIDGING |
DO i=iMin,iMax |
|
./pkg/seaice/seaice_do_ridging.F |
225 |
SEAICE_DO_RIDGING |
grossClosing(i,j) = closingRate(i,j)*SEAICE_deltaTtherm |
|
./pkg/seaice/seaice_do_ridging.F |
226 |
SEAICE_DO_RIDGING |
& /ridgingModeNorm(i,j) |
|
./pkg/seaice/seaice_do_ridging.F |
228 |
SEAICE_DO_RIDGING |
IF ( partFunc(i,j,0) .GT. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_do_ridging.F |
229 |
SEAICE_DO_RIDGING |
tmp = partFunc(i,j,0)*grossClosing(i,j) |
|
./pkg/seaice/seaice_do_ridging.F |
230 |
SEAICE_DO_RIDGING |
IF ( tmp .GT. opnWtrFrac(i,j,bi,bj) ) THEN |
|
./pkg/seaice/seaice_do_ridging.F |
231 |
SEAICE_DO_RIDGING |
tmpFac = opnWtrFrac(i,j,bi,bj)/tmp |
|
./pkg/seaice/seaice_do_ridging.F |
232 |
SEAICE_DO_RIDGING |
grossClosing(i,j) = grossClosing(i,j) * tmpFac |
|
./pkg/seaice/seaice_do_ridging.F |
233 |
SEAICE_DO_RIDGING |
openingRate(i,j) = openingRate(i,j) * tmpFac |
|
./pkg/seaice/seaice_do_ridging.F |
240 |
SEAICE_DO_RIDGING |
DO i=iMin,iMax |
|
./pkg/seaice/seaice_do_ridging.F |
242 |
SEAICE_DO_RIDGING |
IF ( areaPR(i,j,k) .GT. SEAICE_area_reg |
|
./pkg/seaice/seaice_do_ridging.F |
243 |
SEAICE_DO_RIDGING |
& .AND. partFunc(i,j,k) .GT. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_do_ridging.F |
244 |
SEAICE_DO_RIDGING |
tmp = partFunc(i,j,k)*grossClosing(i,j) |
|
./pkg/seaice/seaice_do_ridging.F |
245 |
SEAICE_DO_RIDGING |
IF ( tmp .GT. AREAITD(i,j,k,bi,bj) ) THEN |
|
./pkg/seaice/seaice_do_ridging.F |
246 |
SEAICE_DO_RIDGING |
tmpFac = AREAITD(i,j,k,bi,bj)/tmp |
|
./pkg/seaice/seaice_do_ridging.F |
247 |
SEAICE_DO_RIDGING |
grossClosing(i,j) = grossClosing(i,j) * tmpFac |
|
./pkg/seaice/seaice_do_ridging.F |
248 |
SEAICE_DO_RIDGING |
openingRate(i,j) = openingRate(i,j) * tmpFac |
|
./pkg/seaice/seaice_do_ridging.F |
258 |
SEAICE_DO_RIDGING |
DO i=iMin,iMax |
|
./pkg/seaice/seaice_do_ridging.F |
260 |
SEAICE_DO_RIDGING |
opnWtrFrac(i,j,bi,bj) = opnWtrFrac(i,j,bi,bj) |
|
./pkg/seaice/seaice_do_ridging.F |
261 |
SEAICE_DO_RIDGING |
& - partFunc(i,j,0)*grossClosing(i,j) |
|
./pkg/seaice/seaice_do_ridging.F |
262 |
SEAICE_DO_RIDGING |
& + openingRate(i,j)*SEAICE_deltaTtherm |
|
./pkg/seaice/seaice_do_ridging.F |
265 |
SEAICE_DO_RIDGING |
opnWtrFrac(i,j,bi,bj) = MAX( 0. _d 0, opnWtrFrac(i,j,bi,bj) ) |
|
./pkg/seaice/seaice_do_ridging.F |
272 |
SEAICE_DO_RIDGING |
DO i=iMin,iMax |
|
./pkg/seaice/seaice_do_ridging.F |
273 |
SEAICE_DO_RIDGING |
doRidging(i,j) = areaPR(i,j,k) .GT. SEAICE_area_reg |
|
./pkg/seaice/seaice_do_ridging.F |
274 |
SEAICE_DO_RIDGING |
& .AND. partFunc(i,j,k) .GT. 0. _d 0 |
|
./pkg/seaice/seaice_do_ridging.F |
275 |
SEAICE_DO_RIDGING |
& .AND. grossClosing(i,j) .GT. 0. _d 0 |
|
./pkg/seaice/seaice_do_ridging.F |
276 |
SEAICE_DO_RIDGING |
& .AND. HEFFM(i,j,bi,bj) .GT. 0. _d 0 |
|
./pkg/seaice/seaice_do_ridging.F |
279 |
SEAICE_DO_RIDGING |
IF ( doRidging(i,j) ) THEN |
|
./pkg/seaice/seaice_do_ridging.F |
282 |
SEAICE_DO_RIDGING |
ridgingArea(i,j) = partFunc(i,j,k)*grossClosing(i,j) |
|
./pkg/seaice/seaice_do_ridging.F |
283 |
SEAICE_DO_RIDGING |
IF ( ridgingArea(i,j) .GT. areaPR(i,j,k) ) THEN |
|
./pkg/seaice/seaice_do_ridging.F |
284 |
SEAICE_DO_RIDGING |
ridgingArea(i,j) = areaPR(i,j,k) |
|
./pkg/seaice/seaice_do_ridging.F |
286 |
SEAICE_DO_RIDGING |
areaFraction(i,j) = ridgingArea(i,j)/areaPR(i,j,k) |
|
./pkg/seaice/seaice_do_ridging.F |
287 |
SEAICE_DO_RIDGING |
ridgedArea(i,j) = ridgingArea(i,j)/ridgeRatio(i,j,k) |
|
./pkg/seaice/seaice_do_ridging.F |
290 |
SEAICE_DO_RIDGING |
ridgingHEFF(i,j) = heffPR(i,j,k) * areaFraction(i,j) |
|
./pkg/seaice/seaice_do_ridging.F |
291 |
SEAICE_DO_RIDGING |
ridgingHsnw(i,j) = hsnwPR(i,j,k) * areaFraction(i,j) |
|
./pkg/seaice/seaice_do_ridging.F |
295 |
SEAICE_DO_RIDGING |
fw2ObyRidge(i,j,bi,bj) = fw2ObyRidge(i,j,bi,bj) |
|
./pkg/seaice/seaice_do_ridging.F |
296 |
SEAICE_DO_RIDGING |
& + SEAICE_rhoSnow*ridgingHsnw(i,j) |
|
./pkg/seaice/seaice_do_ridging.F |
299 |
SEAICE_DO_RIDGING |
ridgingHsnw(i,j) = ridgingHsnw(i,j) * SEAICEsnowFracRidge |
|
./pkg/seaice/seaice_do_ridging.F |
302 |
SEAICE_DO_RIDGING |
AREAITD(i,j,k,bi,bj) = AREAITD(i,j,k,bi,bj) - ridgingArea(i,j) |
|
./pkg/seaice/seaice_do_ridging.F |
303 |
SEAICE_DO_RIDGING |
HEFFITD(i,j,k,bi,bj) = HEFFITD(i,j,k,bi,bj) - ridgingHeff(i,j) |
|
./pkg/seaice/seaice_do_ridging.F |
304 |
SEAICE_DO_RIDGING |
HSNOWITD(i,j,k,bi,bj)=HSNOWITD(i,j,k,bi,bj) - ridgingHsnw(i,j) |
|
./pkg/seaice/seaice_do_ridging.F |
314 |
SEAICE_DO_RIDGING |
DO i=iMin,iMax |
|
./pkg/seaice/seaice_do_ridging.F |
315 |
SEAICE_DO_RIDGING |
areaFraction(i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_do_ridging.F |
316 |
SEAICE_DO_RIDGING |
volFraction (i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_do_ridging.F |
323 |
SEAICE_DO_RIDGING |
DO i=iMin,iMax |
|
./pkg/seaice/seaice_do_ridging.F |
324 |
SEAICE_DO_RIDGING |
IF ( doRidging(i,j) ) THEN |
|
./pkg/seaice/seaice_do_ridging.F |
325 |
SEAICE_DO_RIDGING |
IF ( hrMin(i,j,k) .GE. hLimit(l) .OR. |
|
./pkg/seaice/seaice_do_ridging.F |
326 |
SEAICE_DO_RIDGING |
& hrMax(i,j,k) .LE. hLimit(l-1) ) THEN |
|
./pkg/seaice/seaice_do_ridging.F |
329 |
SEAICE_DO_RIDGING |
areaFraction(i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_do_ridging.F |
330 |
SEAICE_DO_RIDGING |
volFraction (i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_do_ridging.F |
332 |
SEAICE_DO_RIDGING |
hL = MAX(hrMin(i,j,k), hLimit(l-1)) |
|
./pkg/seaice/seaice_do_ridging.F |
333 |
SEAICE_DO_RIDGING |
hR = MIN(hrMax(i,j,k), hLimit(l)) |
|
./pkg/seaice/seaice_do_ridging.F |
334 |
SEAICE_DO_RIDGING |
areaFraction(i,j) = ( hR - hL ) |
|
./pkg/seaice/seaice_do_ridging.F |
335 |
SEAICE_DO_RIDGING |
& / ( hrMax(i,j,k) - hrMin(i,j,k) ) |
|
./pkg/seaice/seaice_do_ridging.F |
338 |
SEAICE_DO_RIDGING |
volFraction (i,j) = areaFraction(i,j)*( hR + hL ) |
|
./pkg/seaice/seaice_do_ridging.F |
339 |
SEAICE_DO_RIDGING |
& / ( hrMax(i,j,k) + hrMin(i,j,k) ) |
|
./pkg/seaice/seaice_do_ridging.F |
349 |
SEAICE_DO_RIDGING |
DO i=iMin,iMax |
|
./pkg/seaice/seaice_do_ridging.F |
350 |
SEAICE_DO_RIDGING |
IF ( doRidging(i,j) |
|
./pkg/seaice/seaice_do_ridging.F |
351 |
SEAICE_DO_RIDGING |
& .AND. hrMin(i,j,k) .LT. hLimit(l) |
|
./pkg/seaice/seaice_do_ridging.F |
352 |
SEAICE_DO_RIDGING |
& .AND. hrExp(i,j,k) .NE. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_do_ridging.F |
353 |
SEAICE_DO_RIDGING |
hL = MAX( hrMin(i,j,k), hLimit(l-1) ) |
|
./pkg/seaice/seaice_do_ridging.F |
355 |
SEAICE_DO_RIDGING |
expL = EXP(-( hL - hrMin(i,j,k) )/hrExp(i,j,k) ) |
|
./pkg/seaice/seaice_do_ridging.F |
356 |
SEAICE_DO_RIDGING |
expR = EXP(-( hR - hrMin(i,j,k) )/hrExp(i,j,k) ) |
|
./pkg/seaice/seaice_do_ridging.F |
357 |
SEAICE_DO_RIDGING |
areaFraction(i,j) = expL - expR |
|
./pkg/seaice/seaice_do_ridging.F |
358 |
SEAICE_DO_RIDGING |
volFraction (i,j) = |
|
./pkg/seaice/seaice_do_ridging.F |
359 |
SEAICE_DO_RIDGING |
& ( ( hL + hrExp(i,j,k) ) * expL |
|
./pkg/seaice/seaice_do_ridging.F |
360 |
SEAICE_DO_RIDGING |
& - ( hR + hrExp(i,j,k) ) * expR ) |
|
./pkg/seaice/seaice_do_ridging.F |
361 |
SEAICE_DO_RIDGING |
& / ( hrMin(i,j,k) + hrExp(i,j,k) ) |
|
./pkg/seaice/seaice_do_ridging.F |
367 |
SEAICE_DO_RIDGING |
DO i=iMin,iMax |
|
./pkg/seaice/seaice_do_ridging.F |
368 |
SEAICE_DO_RIDGING |
IF ( doRidging(i,j) .AND. hrExp(i,j,k) .NE. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_do_ridging.F |
369 |
SEAICE_DO_RIDGING |
hL = MAX( hrMin(i,j,k), hLimit(l-1) ) |
|
./pkg/seaice/seaice_do_ridging.F |
370 |
SEAICE_DO_RIDGING |
expL = EXP(-( hL - hrMin(i,j,k) )/hrExp(i,j,k) ) |
|
./pkg/seaice/seaice_do_ridging.F |
371 |
SEAICE_DO_RIDGING |
areaFraction(i,j) = expL |
|
./pkg/seaice/seaice_do_ridging.F |
372 |
SEAICE_DO_RIDGING |
volFraction (i,j) = ( hL + hrExp(i,j,k) ) * expL |
|
./pkg/seaice/seaice_do_ridging.F |
373 |
SEAICE_DO_RIDGING |
& / ( hrMin(i,j,k) + hrExp(i,j,k) ) |
|
./pkg/seaice/seaice_do_ridging.F |
381 |
SEAICE_DO_RIDGING |
DO i=iMin,iMax |
|
./pkg/seaice/seaice_do_ridging.F |
382 |
SEAICE_DO_RIDGING |
AREAITD(i,j,l,bi,bj) = AREAITD(i,j,l,bi,bj) |
|
./pkg/seaice/seaice_do_ridging.F |
383 |
SEAICE_DO_RIDGING |
& +areaFraction(i,j)*ridgedArea(i,j) |
|
./pkg/seaice/seaice_do_ridging.F |
384 |
SEAICE_DO_RIDGING |
HEFFITD(i,j,l,bi,bj) = HEFFITD(i,j,l,bi,bj) |
|
./pkg/seaice/seaice_do_ridging.F |
385 |
SEAICE_DO_RIDGING |
& +volFraction(i,j)*ridgingHeff(i,j) |
|
./pkg/seaice/seaice_do_ridging.F |
386 |
SEAICE_DO_RIDGING |
HSNOWITD(i,j,l,bi,bj) = HSNOWITD(i,j,l,bi,bj) |
|
./pkg/seaice/seaice_do_ridging.F |
387 |
SEAICE_DO_RIDGING |
& +volFraction(i,j)*ridgingHsnw(i,j)*SEAICEsnowFracRidge |
|
./pkg/seaice/seaice_do_ridging.F |
397 |
SEAICE_DO_RIDGING |
DO i=iMin,iMax |
|
./pkg/seaice/seaice_do_ridging.F |
398 |
SEAICE_DO_RIDGING |
netArea(i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_do_ridging.F |
403 |
SEAICE_DO_RIDGING |
DO i=iMin,iMax |
|
./pkg/seaice/seaice_do_ridging.F |
404 |
SEAICE_DO_RIDGING |
netArea(i,j) = netArea(i,j) + AREAITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_do_ridging.F |
410 |
SEAICE_DO_RIDGING |
DO i=iMin,iMax |
|
./pkg/seaice/seaice_do_ridging.F |
411 |
SEAICE_DO_RIDGING |
tmp = netArea(i,j)+opnWtrFrac(i,j,bi,bj) |
|
./pkg/seaice/seaice_do_ridging.F |
413 |
SEAICE_DO_RIDGING |
IF ( HEFFM(i,j,bi,bj) .GT. 0. _d 0 .AND. areaTooLarge ) THEN |
|
./pkg/seaice/seaice_do_ridging.F |
414 |
SEAICE_DO_RIDGING |
doRidging(i,j) = .TRUE. |
|
./pkg/seaice/seaice_do_ridging.F |
417 |
SEAICE_DO_RIDGING |
closingRate(i,j) = MAX( 0. _d 0, -divAdv) |
|
./pkg/seaice/seaice_do_ridging.F |
418 |
SEAICE_DO_RIDGING |
openingRate(i,j) = MAX( 0. _d 0, divAdv) |
|
./pkg/seaice/seaice_do_ridging.F |
421 |
SEAICE_DO_RIDGING |
closingRate(i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_do_ridging.F |
422 |
SEAICE_DO_RIDGING |
openingRate(i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_do_ridging.F |
423 |
SEAICE_DO_RIDGING |
doRidging(i,j) = .FALSE. |
|
./pkg/seaice/seaice_do_ridging.F |
59 |
SEAICE_DO_RIDGING |
INTEGER i, j |
|
./pkg/seaice/seaice_dynsolver.F |
115 |
SEAICE_DYNSOLVER |
DO i=1-OLx+1,sNx+OLx |
|
./pkg/seaice/seaice_dynsolver.F |
116 |
SEAICE_DYNSOLVER |
seaiceMassC(I,J,bi,bj)=SEAICE_rhoIce*HEFF(i,j,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
118 |
SEAICE_DYNSOLVER |
& HEFF(i,j,bi,bj) + HEFF(i-1,j ,bi,bj) ) |
|
./pkg/seaice/seaice_dynsolver.F |
120 |
SEAICE_DYNSOLVER |
& HEFF(i,j,bi,bj) + HEFF(i ,j-1,bi,bj) ) |
|
./pkg/seaice/seaice_dynsolver.F |
125 |
SEAICE_DYNSOLVER |
DO i=1-OLx+1,sNx+OLx |
|
./pkg/seaice/seaice_dynsolver.F |
127 |
SEAICE_DYNSOLVER |
& + SEAICE_rhoSnow*HSNOW(i,j,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
130 |
SEAICE_DYNSOLVER |
& HSNOW(i,j,bi,bj) + HSNOW(i-1,j ,bi,bj) ) |
|
./pkg/seaice/seaice_dynsolver.F |
134 |
SEAICE_DYNSOLVER |
& HSNOW(i,j,bi,bj) + HSNOW(i ,j-1,bi,bj) ) |
|
./pkg/seaice/seaice_dynsolver.F |
148 |
SEAICE_DYNSOLVER |
DO i=1-OLx+1,sNx+OLx |
|
./pkg/seaice/seaice_dynsolver.F |
149 |
SEAICE_DYNSOLVER |
seaiceMaskU(I,J,bi,bj)=AREA(i,j,bi,bj)+AREA(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
150 |
SEAICE_DYNSOLVER |
mask_uice=HEFFM(i,j,bi,bj)+HEFFM(i-1,j ,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
157 |
SEAICE_DYNSOLVER |
seaiceMaskV(I,J,bi,bj)=AREA(i,j,bi,bj)+AREA(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
158 |
SEAICE_DYNSOLVER |
mask_vice=HEFFM(i,j,bi,bj)+HEFFM(i ,j-1,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
179 |
SEAICE_DYNSOLVER |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_dynsolver.F |
208 |
SEAICE_DYNSOLVER |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_dynsolver.F |
209 |
SEAICE_DYNSOLVER |
phiSurf(i,j) = Bo_surf(i,j,bi,bj)*etaN(i,j,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
216 |
SEAICE_DYNSOLVER |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_dynsolver.F |
217 |
SEAICE_DYNSOLVER |
phiSurf(i,j) = phiSurf(i,j) |
|
./pkg/seaice/seaice_dynsolver.F |
218 |
SEAICE_DYNSOLVER |
& + ( pload(i,j,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
219 |
SEAICE_DYNSOLVER |
& +sIceLoad(i,j,bi,bj)*gravity |
|
./pkg/seaice/seaice_dynsolver.F |
225 |
SEAICE_DYNSOLVER |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_dynsolver.F |
226 |
SEAICE_DYNSOLVER |
phiSurf(i,j) = phiSurf(i,j) |
|
./pkg/seaice/seaice_dynsolver.F |
227 |
SEAICE_DYNSOLVER |
& + pload(i,j,bi,bj)*recip_rhoConst |
|
./pkg/seaice/seaice_dynsolver.F |
235 |
SEAICE_DYNSOLVER |
DO i=1-OLx+1,sNx+OLx |
|
./pkg/seaice/seaice_dynsolver.F |
244 |
SEAICE_DYNSOLVER |
DO i=1-OLx+1,sNx+OLx |
|
./pkg/seaice/seaice_dynsolver.F |
253 |
SEAICE_DYNSOLVER |
DO i=1-OLx+1,sNx+OLx |
|
./pkg/seaice/seaice_dynsolver.F |
257 |
SEAICE_DYNSOLVER |
& *( phiSurf(i,j)-phiSurf(i-1,j) ) |
|
./pkg/seaice/seaice_dynsolver.F |
260 |
SEAICE_DYNSOLVER |
& *( phiSurf(i,j)-phiSurf(i,j-1) ) |
|
./pkg/seaice/seaice_dynsolver.F |
282 |
SEAICE_DYNSOLVER |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_dynsolver.F |
283 |
SEAICE_DYNSOLVER |
uIce(i,j,bi,bj) = uIce_fd(i,j,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
284 |
SEAICE_DYNSOLVER |
vIce(i,j,bi,bj) = vIce_fd(i,j,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
285 |
SEAICE_DYNSOLVER |
stressDivergenceX(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_dynsolver.F |
286 |
SEAICE_DYNSOLVER |
stressDivergenceY(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_dynsolver.F |
376 |
SEAICE_DYNSOLVER |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_dynsolver.F |
377 |
SEAICE_DYNSOLVER |
uIce(i,j,bi,bj)= |
|
./pkg/seaice/seaice_dynsolver.F |
378 |
SEAICE_DYNSOLVER |
& MAX(MIN(uIce(i,j,bi,bj),0.40 _d +00),-0.40 _d +00) |
|
./pkg/seaice/seaice_dynsolver.F |
379 |
SEAICE_DYNSOLVER |
vIce(i,j,bi,bj)= |
|
./pkg/seaice/seaice_dynsolver.F |
380 |
SEAICE_DYNSOLVER |
& MAX(MIN(vIce(i,j,bi,bj),0.40 _d +00),-0.40 _d +00) |
|
./pkg/seaice/seaice_dynsolver.F |
63 |
SEAICE_DYNSOLVER |
INTEGER i, j, bi, bj |
|
./pkg/seaice/seaice_dynsolver.F |
77 |
SEAICE_DYNSOLVER |
DO i=1-OLx+1,sNx+OLx |
|
./pkg/seaice/seaice_dynsolver.F |
78 |
SEAICE_DYNSOLVER |
PRESS0(i,j,bi,bj) = PSTAR*HEFF(i,j,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
79 |
SEAICE_DYNSOLVER |
& *EXP(-SEAICE_cStar*(ONE-AREA(i,j,bi,bj))) |
|
./pkg/seaice/seaice_dynsolver.F |
81 |
SEAICE_DYNSOLVER |
ZMIN(i,j,bi,bj) = SEAICE_zetaMin |
|
./pkg/seaice/seaice_dynsolver.F |
82 |
SEAICE_DYNSOLVER |
PRESS0(i,j,bi,bj) = PRESS0(i,j,bi,bj)*HEFFM(i,j,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
83 |
SEAICE_DYNSOLVER |
TAUX(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_dynsolver.F |
84 |
SEAICE_DYNSOLVER |
TAUY(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_dynsolver.F |
86 |
SEAICE_DYNSOLVER |
uice_fd(i,j,bi,bj)= 0. _d 0 |
|
./pkg/seaice/seaice_dynsolver.F |
87 |
SEAICE_DYNSOLVER |
vice_fd(i,j,bi,bj)= 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
101 |
SEAICE_EVP |
INTEGER i, j, bi, bj |
|
./pkg/seaice/seaice_evp.F |
229 |
SEAICE_EVP |
denom2(I,J,bi,bj) = denom1(i,j,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
250 |
SEAICE_EVP |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_evp.F |
295 |
SEAICE_EVP |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_evp.F |
352 |
SEAICE_EVP |
DO i=1,sNx |
|
./pkg/seaice/seaice_evp.F |
356 |
SEAICE_EVP |
uIcePm1 (I,J,bi,bj) = uIce(i,j,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
357 |
SEAICE_EVP |
vIcePm1 (I,J,bi,bj) = vIce(i,j,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
363 |
SEAICE_EVP |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_evp.F |
376 |
SEAICE_EVP |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_evp.F |
377 |
SEAICE_EVP |
ep(i,j) = e11(i,j,bi,bj) + e22(i,j,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
378 |
SEAICE_EVP |
em(i,j) = e11(i,j,bi,bj) - e22(i,j,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
386 |
SEAICE_EVP |
DO i=1-OLx+1,sNx+OLx-1 |
|
./pkg/seaice/seaice_evp.F |
390 |
SEAICE_EVP |
e12Csq(i,j) = tmp*tmp |
|
./pkg/seaice/seaice_evp.F |
395 |
SEAICE_EVP |
DO i=1-OLx+1,sNx+OLx-1 |
|
./pkg/seaice/seaice_evp.F |
398 |
SEAICE_EVP |
e12Csq(i,j) = 0.25 _d 0 * recip_rA(I,J,bi,bj) * |
|
./pkg/seaice/seaice_evp.F |
407 |
SEAICE_EVP |
DO i=0,sNx+1 |
|
./pkg/seaice/seaice_evp.F |
433 |
SEAICE_EVP |
DO i=0,sNx+1 |
|
./pkg/seaice/seaice_evp.F |
468 |
SEAICE_EVP |
DO i=0,sNx+1 |
|
./pkg/seaice/seaice_evp.F |
487 |
SEAICE_EVP |
DO i=0,sNx+1 |
|
./pkg/seaice/seaice_evp.F |
499 |
SEAICE_EVP |
DO i=1,sNx |
|
./pkg/seaice/seaice_evp.F |
515 |
SEAICE_EVP |
DO i=0,sNx |
|
./pkg/seaice/seaice_evp.F |
532 |
SEAICE_EVP |
DO i=1,sNx+1 |
|
./pkg/seaice/seaice_evp.F |
589 |
SEAICE_EVP |
DO i=0,sNx |
|
./pkg/seaice/seaice_evp.F |
596 |
SEAICE_EVP |
DO i=0,sNx |
|
./pkg/seaice/seaice_evp.F |
636 |
SEAICE_EVP |
DO i=1,sNx+1 |
|
./pkg/seaice/seaice_evp.F |
645 |
SEAICE_EVP |
DO i=1,sNx+1 |
|
./pkg/seaice/seaice_evp.F |
685 |
SEAICE_EVP |
DO i=1,sNx |
|
./pkg/seaice/seaice_evp.F |
686 |
SEAICE_EVP |
sig11Pm1(i,j,bi,bj) = |
|
./pkg/seaice/seaice_evp.F |
687 |
SEAICE_EVP |
& seaice_sigma1(i,j,bi,bj)-sig11pm1(i,j,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
688 |
SEAICE_EVP |
sig22Pm1(i,j,bi,bj) = |
|
./pkg/seaice/seaice_evp.F |
689 |
SEAICE_EVP |
& seaice_sigma2(i,j,bi,bj)-sig22pm1(i,j,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
690 |
SEAICE_EVP |
sig12Pm1(i,j,bi,bj) = |
|
./pkg/seaice/seaice_evp.F |
691 |
SEAICE_EVP |
& seaice_sigma12(i,j,bi,bj)-sig12Pm1(i,j,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
692 |
SEAICE_EVP |
sig11Pm1(i,j,bi,bj) = |
|
./pkg/seaice/seaice_evp.F |
693 |
SEAICE_EVP |
& evpAlphaC(I,J,bi,bj) * sig11Pm1(i,j,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
694 |
SEAICE_EVP |
sig22Pm1(i,j,bi,bj) = |
|
./pkg/seaice/seaice_evp.F |
695 |
SEAICE_EVP |
& evpAlphaC(I,J,bi,bj) * sig22Pm1(i,j,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
696 |
SEAICE_EVP |
sig12Pm1(i,j,bi,bj) = |
|
./pkg/seaice/seaice_evp.F |
697 |
SEAICE_EVP |
& evpAlphaZ(I,J,bi,bj) * sig12Pm1(i,j,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
703 |
SEAICE_EVP |
DO i=1,sNx |
|
./pkg/seaice/seaice_evp.F |
704 |
SEAICE_EVP |
resTile(bi,bj) = resTile(bi,bj) + AREA(i,j,bi,bj) * |
|
./pkg/seaice/seaice_evp.F |
705 |
SEAICE_EVP |
& ( sig11Pm1(i,j,bi,bj)*sig11Pm1(i,j,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
706 |
SEAICE_EVP |
& + sig22Pm1(i,j,bi,bj)*sig22Pm1(i,j,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
707 |
SEAICE_EVP |
& + sig12Pm1(i,j,bi,bj)*sig12Pm1(i,j,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
713 |
SEAICE_EVP |
DO i=1,sNx |
|
./pkg/seaice/seaice_evp.F |
715 |
SEAICE_EVP |
& + sig11Pm1(i,j,bi,bj)*sig11Pm1(i,j,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
716 |
SEAICE_EVP |
& + sig22Pm1(i,j,bi,bj)*sig22Pm1(i,j,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
717 |
SEAICE_EVP |
& + sig12Pm1(i,j,bi,bj)*sig12Pm1(i,j,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
899 |
SEAICE_EVP |
DO i=1,sNx |
|
./pkg/seaice/seaice_evp.F |
900 |
SEAICE_EVP |
locMaskU = maskInC(i,j,bi,bj)*maskInC(i-1,j,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
901 |
SEAICE_EVP |
locMaskV = maskInC(i,j,bi,bj)*maskInC(i,j-1,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
902 |
SEAICE_EVP |
uIce(i,j,bi,bj) = uIce(i,j,bi,bj)*locMaskU |
|
./pkg/seaice/seaice_evp.F |
903 |
SEAICE_EVP |
& + uIceNm1(i,j,bi,bj)*(ONE-locMaskU) |
|
./pkg/seaice/seaice_evp.F |
904 |
SEAICE_EVP |
vIce(i,j,bi,bj) = vIce(i,j,bi,bj)*locMaskV |
|
./pkg/seaice/seaice_evp.F |
905 |
SEAICE_EVP |
& + vIceNm1(i,j,bi,bj)*(ONE-locMaskV) |
|
./pkg/seaice/seaice_evp.F |
927 |
SEAICE_EVP |
& ( uIce(I,J,bi,bj)-uIcePm1(i,j,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
930 |
SEAICE_EVP |
& ( vIce(I,J,bi,bj)-vIcePm1(i,j,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
937 |
SEAICE_EVP |
DO i=1,sNx |
|
./pkg/seaice/seaice_evp.F |
938 |
SEAICE_EVP |
resTile(bi,bj) = resTile(bi,bj) + AREA(i,j,bi,bj) * |
|
./pkg/seaice/seaice_evp.F |
945 |
SEAICE_EVP |
DO i=1,sNx |
|
./pkg/seaice/seaice_fake.F |
41 |
SEAICE_FAKE |
INTEGER i, j, bi, bj |
|
./pkg/seaice/seaice_fake.F |
53 |
SEAICE_FAKE |
DO i=1,sNx |
|
./pkg/seaice/seaice_fake.F |
55 |
SEAICE_FAKE |
fac=MIN(1. _d 0, MAX(0. _d 0 , 1. _d 0 - area(i,j,bi,bj))) |
|
./pkg/seaice/seaice_fake.F |
56 |
SEAICE_FAKE |
fu(i,j,bi,bj) = fu(i,j,bi,bj) * fac |
|
./pkg/seaice/seaice_fake.F |
57 |
SEAICE_FAKE |
fv(i,j,bi,bj) = fv(i,j,bi,bj) * fac |
|
./pkg/seaice/seaice_fake.F |
58 |
SEAICE_FAKE |
qnet(i,j,bi,bj) = qnet(i,j,bi,bj) * fac |
|
./pkg/seaice/seaice_fake.F |
59 |
SEAICE_FAKE |
qsw(i,j,bi,bj) = qsw(i,j,bi,bj) * fac |
|
./pkg/seaice/seaice_fake.F |
62 |
SEAICE_FAKE |
EmPmR(i,j,bi,bj) = maskC(i,j,1,bi,bj)*( |
|
./pkg/seaice/seaice_fake.F |
63 |
SEAICE_FAKE |
& fac * EVAP(i,j,bi,bj) |
|
./pkg/seaice/seaice_fake.F |
64 |
SEAICE_FAKE |
& - PRECIP(i,j,bi,bj) |
|
./pkg/seaice/seaice_fake.F |
66 |
SEAICE_FAKE |
& - RUNOFF(i,j,bi,bj) |
|
./pkg/seaice/seaice_fake.F |
71 |
SEAICE_FAKE |
fac=MIN(1. _d 0, MAX(0. _d 0 , area(i,j,bi,bj))) |
|
./pkg/seaice/seaice_fake.F |
73 |
SEAICE_FAKE |
& SEAICE_dTempFrz_dS *salt(i,j,1,bi,bj) |
|
./pkg/seaice/seaice_fake.F |
74 |
SEAICE_FAKE |
theta(i,j,1,bi,bj)=theta(i,j,1,bi,bj) + fac * |
|
./pkg/seaice/seaice_fake.F |
75 |
SEAICE_FAKE |
& ( tempFrz-theta(i,j,1,bi,bj) ) * |
|
./pkg/seaice/seaice_fgmres.F |
202 |
SEAICE_FGMRES |
U sol,i,its,vv,w,wk1,wk2, |
|
./pkg/seaice/seaice_fgmres.F |
238 |
SEAICE_FGMRES |
integer i, n, im, its, maxits, iout, icode |
|
./pkg/seaice/seaice_fgmres.F |
409 |
SEAICE_FGMRES |
i = 0 |
|
./pkg/seaice/seaice_fgmres.F |
411 |
SEAICE_FGMRES |
i=i+1 |
|
./pkg/seaice/seaice_fgmres.F |
413 |
SEAICE_FGMRES |
i1Thid(myThid) = i + 1 |
|
./pkg/seaice/seaice_fgmres.F |
417 |
SEAICE_FGMRES |
wk1(k,bi,bj) = vv(k,i,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
430 |
SEAICE_FGMRES |
w(k,i,bi,bj) = wk2(k,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
465 |
SEAICE_FGMRES |
do j=1, i |
|
./pkg/seaice/seaice_fgmres.F |
467 |
SEAICE_FGMRES |
hh(j,i,myThid) = t |
|
./pkg/seaice/seaice_fgmres.F |
478 |
SEAICE_FGMRES |
hh(i1,i,myThid) = t |
|
./pkg/seaice/seaice_fgmres.F |
493 |
SEAICE_FGMRES |
if (i .ne. 1) then |
|
./pkg/seaice/seaice_fgmres.F |
497 |
SEAICE_FGMRES |
do k=2,i |
|
./pkg/seaice/seaice_fgmres.F |
499 |
SEAICE_FGMRES |
t = hh(k1,i,myThid) |
|
./pkg/seaice/seaice_fgmres.F |
500 |
SEAICE_FGMRES |
hh(k1,i,myThid) = c(k1,myThid)*t+s(k1,myThid)*hh(k,i,myThid) |
|
./pkg/seaice/seaice_fgmres.F |
501 |
SEAICE_FGMRES |
hh(k,i,myThid) = -s(k1,myThid)*t+c(k1,myThid)*hh(k,i,myThid) |
|
./pkg/seaice/seaice_fgmres.F |
504 |
SEAICE_FGMRES |
gam = sqrt(hh(i,i,myThid)**2 + hh(i1,i,myThid)**2) |
|
./pkg/seaice/seaice_fgmres.F |
507 |
SEAICE_FGMRES |
c(i,myThid) = hh(i, i,myThid)/gam |
|
./pkg/seaice/seaice_fgmres.F |
508 |
SEAICE_FGMRES |
s(i,myThid) = hh(i1,i,myThid)/gam |
|
./pkg/seaice/seaice_fgmres.F |
524 |
SEAICE_FGMRES |
rs(i1,myThid) = -s(i,myThid)*rs(i,myThid) |
|
./pkg/seaice/seaice_fgmres.F |
525 |
SEAICE_FGMRES |
rs(i ,myThid) = c(i,myThid)*rs(i,myThid) |
|
./pkg/seaice/seaice_fgmres.F |
529 |
SEAICE_FGMRES |
hh(i,i,myThid) = c(i,myThid)*hh(i, i,myThid) |
|
./pkg/seaice/seaice_fgmres.F |
530 |
SEAICE_FGMRES |
& + s(i,myThid)*hh(i1,i,myThid) |
|
./pkg/seaice/seaice_fgmres.F |
542 |
SEAICE_FGMRES |
if (i .lt. im .and. its .lt. maxits |
|
./pkg/seaice/seaice_fgmres.F |
547 |
SEAICE_FGMRES |
rs(i,myThid) = rs(i,myThid)/hh(i,i,myThid) |
|
./pkg/seaice/seaice_fgmres.F |
548 |
SEAICE_FGMRES |
do ii=2,i |
|
./pkg/seaice/seaice_fgmres.F |
549 |
SEAICE_FGMRES |
k=i-ii+1 |
|
./pkg/seaice/seaice_fgmres.F |
552 |
SEAICE_FGMRES |
do j=k1,i |
|
./pkg/seaice/seaice_fgmres.F |
561 |
SEAICE_FGMRES |
do j=1, i |
|
./pkg/seaice/seaice_fgmres.F |
581 |
SEAICE_FGMRES |
do j=1,i |
|
./pkg/seaice/seaice_fgmres.F |
636 |
SEAICE_SCALPROD |
integer i,m,mp1,bi,bj |
|
./pkg/seaice/seaice_fgmres.F |
647 |
SEAICE_SCALPROD |
do i = 1,m |
|
./pkg/seaice/seaice_fgmres.F |
648 |
SEAICE_SCALPROD |
dtemp(bi,bj) = dtemp(bi,bj) + dx(i,i1,bi,bj)*dy(i,i2,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
649 |
SEAICE_SCALPROD |
& * scalarProductMetric(i,1,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
655 |
SEAICE_SCALPROD |
do i = mp1,n,5 |
|
./pkg/seaice/seaice_fgmres.F |
657 |
SEAICE_SCALPROD |
& dx(i, i1,bi,bj)*dy(i, i2,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
658 |
SEAICE_SCALPROD |
& * scalarProductMetric(i, 1, bi,bj) + |
|
./pkg/seaice/seaice_fgmres.F |
659 |
SEAICE_SCALPROD |
& dx(i + 1,i1,bi,bj)*dy(i + 1,i2,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
660 |
SEAICE_SCALPROD |
& * scalarProductMetric(i + 1,1, bi,bj) + |
|
./pkg/seaice/seaice_fgmres.F |
661 |
SEAICE_SCALPROD |
& dx(i + 2,i1,bi,bj)*dy(i + 2,i2,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
662 |
SEAICE_SCALPROD |
& * scalarProductMetric(i + 2,1, bi,bj) + |
|
./pkg/seaice/seaice_fgmres.F |
663 |
SEAICE_SCALPROD |
& dx(i + 3,i1,bi,bj)*dy(i + 3,i2,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
664 |
SEAICE_SCALPROD |
& * scalarProductMetric(i + 3,1, bi,bj) + |
|
./pkg/seaice/seaice_fgmres.F |
665 |
SEAICE_SCALPROD |
& dx(i + 4,i1,bi,bj)*dy(i + 4,i2,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
666 |
SEAICE_SCALPROD |
& * scalarProductMetric(i + 4,1, bi,bj) |
|
./pkg/seaice/seaice_freedrift.F |
145 |
SEAICE_FREEDRIFT |
uice_cntr(i,j,bi,bj)=uvel_cntr-sol_n*COS(sol_a) |
|
./pkg/seaice/seaice_freedrift.F |
146 |
SEAICE_FREEDRIFT |
vice_cntr(i,j,bi,bj)=vvel_cntr-sol_n*SIN(sol_a) |
|
./pkg/seaice/seaice_freedrift.F |
162 |
SEAICE_FREEDRIFT |
DO i=1,sNx |
|
./pkg/seaice/seaice_freedrift.F |
163 |
SEAICE_FREEDRIFT |
uice_fd(i,j,bi,bj)=HALF* |
|
./pkg/seaice/seaice_freedrift.F |
164 |
SEAICE_FREEDRIFT |
& (uice_cntr(i-1,j,bi,bj)+uice_cntr(i,j,bi,bj)) |
|
./pkg/seaice/seaice_freedrift.F |
165 |
SEAICE_FREEDRIFT |
vice_fd(i,j,bi,bj)=HALF* |
|
./pkg/seaice/seaice_freedrift.F |
166 |
SEAICE_FREEDRIFT |
& (vice_cntr(i,j-1,bi,bj)+vice_cntr(i,j,bi,bj)) |
|
./pkg/seaice/seaice_freedrift.F |
178 |
SEAICE_FREEDRIFT |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_freedrift.F |
179 |
SEAICE_FREEDRIFT |
uIce_fd(i,j,bi,bj)=uIce_fd(i,j,bi,bj)* _maskW(i,j,kSrf,bi,bj) |
|
./pkg/seaice/seaice_freedrift.F |
180 |
SEAICE_FREEDRIFT |
vIce_fd(i,j,bi,bj)=vIce_fd(i,j,bi,bj)* _maskS(i,j,kSrf,bi,bj) |
|
./pkg/seaice/seaice_freedrift.F |
44 |
SEAICE_FREEDRIFT |
INTEGER i, j, kSrf, bi, bj |
|
./pkg/seaice/seaice_freedrift.F |
63 |
SEAICE_FREEDRIFT |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_freedrift.F |
64 |
SEAICE_FREEDRIFT |
uice_fd(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_freedrift.F |
65 |
SEAICE_FREEDRIFT |
vice_fd(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_freedrift.F |
66 |
SEAICE_FREEDRIFT |
uice_cntr(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_freedrift.F |
67 |
SEAICE_FREEDRIFT |
Vice_cntr(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_freedrift.F |
79 |
SEAICE_FREEDRIFT |
DO i=1,sNx |
|
./pkg/seaice/seaice_freedrift.F |
85 |
SEAICE_FREEDRIFT |
& (FORCEX0(i,j,bi,bj)+FORCEX0(i+1,j,bi,bj)) |
|
./pkg/seaice/seaice_freedrift.F |
87 |
SEAICE_FREEDRIFT |
& (FORCEY0(i,j,bi,bj)+FORCEY0(i,j+1,bi,bj)) |
|
./pkg/seaice/seaice_freedrift.F |
89 |
SEAICE_FREEDRIFT |
mIceCor=SEAICE_rhoIce*HEFF(i,j,bi,bj)*_fCori(I,J,bi,bj) |
|
./pkg/seaice/seaice_freedrift.F |
91 |
SEAICE_FREEDRIFT |
uvel_cntr=HALF*(uvel(i,j,kSrf,bi,bj)+uvel(i+1,j,kSrf,bi,bj)) |
|
./pkg/seaice/seaice_freedrift.F |
92 |
SEAICE_FREEDRIFT |
vvel_cntr=HALF*(vvel(i,j,kSrf,bi,bj)+vvel(i,j+1,kSrf,bi,bj)) |
|
./model/src/ini_cartesian_grid.F |
101 |
INI_CARTESIAN_GRID |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_cartesian_grid.F |
102 |
INI_CARTESIAN_GRID |
dxG(i,j,bi,bj) = delXloc(i) |
|
./model/src/ini_cartesian_grid.F |
103 |
INI_CARTESIAN_GRID |
dyG(i,j,bi,bj) = delYloc(j) |
|
./model/src/ini_cartesian_grid.F |
113 |
INI_CARTESIAN_GRID |
DO i=1-OLx+1,sNx+OLx ! NOTE range |
|
./model/src/ini_cartesian_grid.F |
114 |
INI_CARTESIAN_GRID |
dxC(i,j,bi,bj) = 0.5 _d 0*(dxF(i,j,bi,bj)+dxF(i-1,j,bi,bj)) |
|
./model/src/ini_cartesian_grid.F |
120 |
INI_CARTESIAN_GRID |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_cartesian_grid.F |
121 |
INI_CARTESIAN_GRID |
dyC(i,j,bi,bj) = 0.5 _d 0*(dyF(i,j,bi,bj)+dyF(i,j-1,bi,bj)) |
|
./model/src/ini_cartesian_grid.F |
127 |
INI_CARTESIAN_GRID |
DO i=1-OLx+1,sNx+OLx ! NOTE range |
|
./model/src/ini_cartesian_grid.F |
129 |
INI_CARTESIAN_GRID |
dxV(i,j,bi,bj) = 0.5 _d 0*(dxG(i,j,bi,bj)+dxG(i-1,j,bi,bj)) |
|
./model/src/ini_cartesian_grid.F |
130 |
INI_CARTESIAN_GRID |
dyU(i,j,bi,bj) = 0.5 _d 0*(dyG(i,j,bi,bj)+dyG(i,j-1,bi,bj)) |
|
./model/src/ini_cartesian_grid.F |
139 |
INI_CARTESIAN_GRID |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_cartesian_grid.F |
140 |
INI_CARTESIAN_GRID |
rA (i,j,bi,bj) = dxF(i,j,bi,bj)*dyF(i,j,bi,bj) |
|
./model/src/ini_cartesian_grid.F |
141 |
INI_CARTESIAN_GRID |
rAw(i,j,bi,bj) = dxC(i,j,bi,bj)*dyG(i,j,bi,bj) |
|
./model/src/ini_cartesian_grid.F |
142 |
INI_CARTESIAN_GRID |
rAs(i,j,bi,bj) = dxG(i,j,bi,bj)*dyC(i,j,bi,bj) |
|
./model/src/ini_cartesian_grid.F |
143 |
INI_CARTESIAN_GRID |
rAz(i,j,bi,bj) = dxV(i,j,bi,bj)*dyU(i,j,bi,bj) |
|
./model/src/ini_cartesian_grid.F |
49 |
INI_CARTESIAN_GRID |
INTEGER i, j |
|
./model/src/ini_cartesian_grid.F |
74 |
INI_CARTESIAN_GRID |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_cartesian_grid.F |
75 |
INI_CARTESIAN_GRID |
xG(i,j,bi,bj) = xGloc(i,j) |
|
./model/src/ini_cartesian_grid.F |
76 |
INI_CARTESIAN_GRID |
yG(i,j,bi,bj) = yGloc(i,j) |
|
./model/src/ini_cartesian_grid.F |
82 |
INI_CARTESIAN_GRID |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_cartesian_grid.F |
84 |
INI_CARTESIAN_GRID |
xC(i,j,bi,bj) = 0.25 _d 0*( |
|
./model/src/ini_cartesian_grid.F |
85 |
INI_CARTESIAN_GRID |
& xGloc(i,j)+xGloc(i+1,j)+xGloc(i,j+1)+xGloc(i+1,j+1) ) |
|
./model/src/ini_cartesian_grid.F |
86 |
INI_CARTESIAN_GRID |
yC(i,j,bi,bj) = 0.25 _d 0*( |
|
./model/src/ini_cartesian_grid.F |
87 |
INI_CARTESIAN_GRID |
& yGloc(i,j)+yGloc(i+1,j)+yGloc(i,j+1)+yGloc(i+1,j+1) ) |
|
./model/src/ini_cartesian_grid.F |
93 |
INI_CARTESIAN_GRID |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_cartesian_grid.F |
94 |
INI_CARTESIAN_GRID |
dxF(i,j,bi,bj) = delXloc(i) |
|
./model/src/ini_cartesian_grid.F |
95 |
INI_CARTESIAN_GRID |
dyF(i,j,bi,bj) = delYloc(j) |
|
./pkg/seaice/seaice_get_dynforcing.F |
109 |
SEAICE_GET_DYNFORCING |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_get_dynforcing.F |
110 |
SEAICE_GET_DYNFORCING |
U1=UWIND(i,j,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
111 |
SEAICE_GET_DYNFORCING |
V1=VWIND(i,j,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
118 |
SEAICE_GET_DYNFORCING |
CDAIR(i,j)=SEAICE_rhoAir*OCEAN_drag |
|
./pkg/seaice/seaice_get_dynforcing.F |
120 |
SEAICE_GET_DYNFORCING |
oceTauX(i,j)=CDAIR(i,j)* |
|
./pkg/seaice/seaice_get_dynforcing.F |
121 |
SEAICE_GET_DYNFORCING |
& (COSWIN*U1-SIGN(SINWIN, _fCori(i,j,bi,bj))*V1) |
|
./pkg/seaice/seaice_get_dynforcing.F |
122 |
SEAICE_GET_DYNFORCING |
oceTauY(i,j)=CDAIR(i,j)* |
|
./pkg/seaice/seaice_get_dynforcing.F |
123 |
SEAICE_GET_DYNFORCING |
& (SIGN(SINWIN, _fCori(i,j,bi,bj))*U1+COSWIN*V1) |
|
./pkg/seaice/seaice_get_dynforcing.F |
129 |
SEAICE_GET_DYNFORCING |
DO i=1-OLx+1,sNx+OLx |
|
./pkg/seaice/seaice_get_dynforcing.F |
130 |
SEAICE_GET_DYNFORCING |
fu(i,j,bi,bj) = 0.5 _d 0*( oceTauX(i,j) + oceTauX(i-1,j) ) |
|
./pkg/seaice/seaice_get_dynforcing.F |
131 |
SEAICE_GET_DYNFORCING |
& *_maskW(i,j,ks,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
132 |
SEAICE_GET_DYNFORCING |
fv(i,j,bi,bj) = 0.5 _d 0*( oceTauY(i,j) + oceTauY(i,j-1) ) |
|
./pkg/seaice/seaice_get_dynforcing.F |
133 |
SEAICE_GET_DYNFORCING |
& *_maskS(i,j,ks,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
146 |
SEAICE_GET_DYNFORCING |
DO i=1-OLx,sNx+OLx-1 |
|
./pkg/seaice/seaice_get_dynforcing.F |
147 |
SEAICE_GET_DYNFORCING |
U1=UWIND(i,j,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
148 |
SEAICE_GET_DYNFORCING |
& + 0.5 _d 0 * (uVel(i,j,ks,bi,bj)+uVel(i+1,j,ks,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
149 |
SEAICE_GET_DYNFORCING |
& - 0.5 _d 0 * (uIce(i,j,bi,bj)+uIce(i+1,j,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
150 |
SEAICE_GET_DYNFORCING |
V1=VWIND(i,j,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
151 |
SEAICE_GET_DYNFORCING |
& + 0.5 _d 0 * (vVel(i,j,ks,bi,bj)+vVel(i,j+1,ks,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
152 |
SEAICE_GET_DYNFORCING |
& - 0.5 _d 0 * (vIce(i,j,bi,bj)+vIce(i,j+1,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
159 |
SEAICE_GET_DYNFORCING |
IF ( yC(i,j,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_get_dynforcing.F |
160 |
SEAICE_GET_DYNFORCING |
CDAIR(i,j) = SEAICE_rhoAir*SEAICE_drag_south*AAA |
|
./pkg/seaice/seaice_get_dynforcing.F |
162 |
SEAICE_GET_DYNFORCING |
CDAIR(i,j) = SEAICE_rhoAir*SEAICE_drag*AAA |
|
./pkg/seaice/seaice_get_dynforcing.F |
168 |
SEAICE_GET_DYNFORCING |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_get_dynforcing.F |
169 |
SEAICE_GET_DYNFORCING |
U1=UWIND(i,j,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
170 |
SEAICE_GET_DYNFORCING |
V1=VWIND(i,j,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
177 |
SEAICE_GET_DYNFORCING |
IF ( yC(i,j,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_get_dynforcing.F |
178 |
SEAICE_GET_DYNFORCING |
CDAIR(i,j) = SEAICE_rhoAir*SEAICE_drag_south*AAA |
|
./pkg/seaice/seaice_get_dynforcing.F |
180 |
SEAICE_GET_DYNFORCING |
CDAIR(i,j) = SEAICE_rhoAir*SEAICE_drag*AAA |
|
./pkg/seaice/seaice_get_dynforcing.F |
187 |
SEAICE_GET_DYNFORCING |
DO i=1-OLx+1,sNx+OLx-1 |
|
./pkg/seaice/seaice_get_dynforcing.F |
189 |
SEAICE_GET_DYNFORCING |
taux(i,j,bi,bj)= 0.5 _d 0 * |
|
./pkg/seaice/seaice_get_dynforcing.F |
190 |
SEAICE_GET_DYNFORCING |
& ( CDAIR(i,j)*(COSWIN* |
|
./pkg/seaice/seaice_get_dynforcing.F |
191 |
SEAICE_GET_DYNFORCING |
& (uWind(i,j,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
192 |
SEAICE_GET_DYNFORCING |
& +0.5 _d 0*(uVel(i,j,ks,bi,bj)+uVel(i+1,j,ks,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
193 |
SEAICE_GET_DYNFORCING |
& -0.5 _d 0*(uIce(i,j,bi,bj)+uIce(i+1,j,bi,bj))) |
|
./pkg/seaice/seaice_get_dynforcing.F |
194 |
SEAICE_GET_DYNFORCING |
& -SIGN(SINWIN, _fCori(i,j,bi,bj))* |
|
./pkg/seaice/seaice_get_dynforcing.F |
195 |
SEAICE_GET_DYNFORCING |
& (vWind(i,j,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
196 |
SEAICE_GET_DYNFORCING |
& +0.5 _d 0*(vVel(i,j,ks,bi,bj)+vVel(i,j+1,ks,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
197 |
SEAICE_GET_DYNFORCING |
& -0.5 _d 0*(vIce(i,j,bi,bj)+vIce(i,j+1,bi,bj)))) |
|
./pkg/seaice/seaice_get_dynforcing.F |
198 |
SEAICE_GET_DYNFORCING |
& +CDAIR(i-1,j)*(COSWIN* |
|
./pkg/seaice/seaice_get_dynforcing.F |
199 |
SEAICE_GET_DYNFORCING |
& (uWind(i-1,j,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
200 |
SEAICE_GET_DYNFORCING |
& +0.5 _d 0*(uVel(i-1,j,ks,bi,bj)+uVel(i,j,ks,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
201 |
SEAICE_GET_DYNFORCING |
& -0.5 _d 0*(uIce(i-1,j,bi,bj)+uIce(i,j,bi,bj))) |
|
./pkg/seaice/seaice_get_dynforcing.F |
202 |
SEAICE_GET_DYNFORCING |
& -SIGN(SINWIN, _fCori(i-1,j,bi,bj))* |
|
./pkg/seaice/seaice_get_dynforcing.F |
203 |
SEAICE_GET_DYNFORCING |
& (vWind(i-1,j,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
204 |
SEAICE_GET_DYNFORCING |
& +0.5 _d 0*(vVel(i-1,j,ks,bi,bj)+vVel(i-1,j+1,ks,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
205 |
SEAICE_GET_DYNFORCING |
& -0.5 _d 0*(vIce(i-1,j,bi,bj)+vIce(i-1,j+1,bi,bj)))) |
|
./pkg/seaice/seaice_get_dynforcing.F |
206 |
SEAICE_GET_DYNFORCING |
& )*_maskW(i,j,ks,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
208 |
SEAICE_GET_DYNFORCING |
tauy(i,j,bi,bj)= 0.5 _d 0 * |
|
./pkg/seaice/seaice_get_dynforcing.F |
209 |
SEAICE_GET_DYNFORCING |
& ( CDAIR(i,j)*(SIGN(SINWIN, _fCori(i,j,bi,bj))* |
|
./pkg/seaice/seaice_get_dynforcing.F |
210 |
SEAICE_GET_DYNFORCING |
& (uWind(i,j,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
211 |
SEAICE_GET_DYNFORCING |
& +0.5 _d 0*(uVel(i,j,ks,bi,bj)+uVel(i+1,j,ks,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
212 |
SEAICE_GET_DYNFORCING |
& -0.5 _d 0*(uIce(i,j,bi,bj)+uIce(i+1,j,bi,bj))) |
|
./pkg/seaice/seaice_get_dynforcing.F |
214 |
SEAICE_GET_DYNFORCING |
& (vWind(i,j,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
215 |
SEAICE_GET_DYNFORCING |
& +0.5 _d 0*(vVel(i,j,ks,bi,bj)+vVel(i,j+1,ks,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
216 |
SEAICE_GET_DYNFORCING |
& -0.5 _d 0*(vIce(i,j,bi,bj)+vIce(i,j+1,bi,bj)))) |
|
./pkg/seaice/seaice_get_dynforcing.F |
217 |
SEAICE_GET_DYNFORCING |
& +CDAIR(i,j-1)*(SIGN(SINWIN, _fCori(i,j-1,bi,bj))* |
|
./pkg/seaice/seaice_get_dynforcing.F |
218 |
SEAICE_GET_DYNFORCING |
& (uWind(i,j-1,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
219 |
SEAICE_GET_DYNFORCING |
& +0.5 _d 0*(uVel(i,j-1,ks,bi,bj)+uVel(i+1,j-1,ks,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
220 |
SEAICE_GET_DYNFORCING |
& -0.5 _d 0*(uIce(i,j-1,bi,bj)+uIce(i+1,j-1,bi,bj))) |
|
./pkg/seaice/seaice_get_dynforcing.F |
222 |
SEAICE_GET_DYNFORCING |
& (vWind(i,j-1,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
223 |
SEAICE_GET_DYNFORCING |
& +0.5 _d 0*(vVel(i,j-1,ks,bi,bj)+vVel(i,j,ks,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
224 |
SEAICE_GET_DYNFORCING |
& -0.5 _d 0*(vIce(i,j-1,bi,bj)+vIce(i,j,bi,bj)))) |
|
./pkg/seaice/seaice_get_dynforcing.F |
225 |
SEAICE_GET_DYNFORCING |
& )*_maskS(i,j,ks,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
230 |
SEAICE_GET_DYNFORCING |
DO i=1-OLx+1,sNx+OLx |
|
./pkg/seaice/seaice_get_dynforcing.F |
232 |
SEAICE_GET_DYNFORCING |
taux(i,j,bi,bj)=0.5 _d 0 * |
|
./pkg/seaice/seaice_get_dynforcing.F |
233 |
SEAICE_GET_DYNFORCING |
& ( CDAIR(i ,j)*( |
|
./pkg/seaice/seaice_get_dynforcing.F |
234 |
SEAICE_GET_DYNFORCING |
& COSWIN *uWind(i ,j,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
235 |
SEAICE_GET_DYNFORCING |
& -SIGN(SINWIN, _fCori(i ,j,bi,bj))*vWind(i ,j,bi,bj) ) |
|
./pkg/seaice/seaice_get_dynforcing.F |
236 |
SEAICE_GET_DYNFORCING |
& + CDAIR(i-1,j)*( |
|
./pkg/seaice/seaice_get_dynforcing.F |
237 |
SEAICE_GET_DYNFORCING |
& COSWIN *uWind(i-1,j,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
238 |
SEAICE_GET_DYNFORCING |
& -SIGN(SINWIN, _fCori(i-1,j,bi,bj))*vWind(i-1,j,bi,bj) ) |
|
./pkg/seaice/seaice_get_dynforcing.F |
239 |
SEAICE_GET_DYNFORCING |
& )*_maskW(i,j,ks,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
241 |
SEAICE_GET_DYNFORCING |
tauy(i,j,bi,bj)=0.5 _d 0 * |
|
./pkg/seaice/seaice_get_dynforcing.F |
242 |
SEAICE_GET_DYNFORCING |
& ( CDAIR(i,j )*( |
|
./pkg/seaice/seaice_get_dynforcing.F |
243 |
SEAICE_GET_DYNFORCING |
& SIGN(SINWIN, _fCori(i,j ,bi,bj))*uWind(i,j ,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
244 |
SEAICE_GET_DYNFORCING |
& +COSWIN*vWind(i,j ,bi,bj) ) |
|
./pkg/seaice/seaice_get_dynforcing.F |
245 |
SEAICE_GET_DYNFORCING |
& + CDAIR(i,j-1)*( |
|
./pkg/seaice/seaice_get_dynforcing.F |
246 |
SEAICE_GET_DYNFORCING |
& SIGN(SINWIN, _fCori(i,j-1,bi,bj))*uWind(i,j-1,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
247 |
SEAICE_GET_DYNFORCING |
& +COSWIN*vWind(i,j-1,bi,bj) ) |
|
./pkg/seaice/seaice_get_dynforcing.F |
248 |
SEAICE_GET_DYNFORCING |
& )*_maskS(i,j,ks,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
260 |
SEAICE_GET_DYNFORCING |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_get_dynforcing.F |
262 |
SEAICE_GET_DYNFORCING |
IF ( yC(i,j,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_get_dynforcing.F |
263 |
SEAICE_GET_DYNFORCING |
CDAIR(i,j) = SEAICE_drag_south/OCEAN_drag |
|
./pkg/seaice/seaice_get_dynforcing.F |
265 |
SEAICE_GET_DYNFORCING |
CDAIR(i,j) = SEAICE_drag /OCEAN_drag |
|
./pkg/seaice/seaice_get_dynforcing.F |
267 |
SEAICE_GET_DYNFORCING |
taux(i,j,bi,bj) = CDAIR(i,j)*fu(i,j,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
268 |
SEAICE_GET_DYNFORCING |
& *_maskW(i,j,ks,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
269 |
SEAICE_GET_DYNFORCING |
tauy(i,j,bi,bj) = CDAIR(i,j)*fv(i,j,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
270 |
SEAICE_GET_DYNFORCING |
& *_maskS(i,j,ks,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
288 |
SEAICE_GET_DYNFORCING |
DO i=2-OLx,sNx+OLx |
|
./pkg/seaice/seaice_get_dynforcing.F |
289 |
SEAICE_GET_DYNFORCING |
locFrac = ( icFrac( i, j,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
290 |
SEAICE_GET_DYNFORCING |
& + icFrac(i-1,j,bi,bj) )*halfRL |
|
./pkg/seaice/seaice_get_dynforcing.F |
291 |
SEAICE_GET_DYNFORCING |
locVar(i,j) = taux(i,j,bi,bj)*locFrac |
|
./pkg/seaice/seaice_get_dynforcing.F |
292 |
SEAICE_GET_DYNFORCING |
& + fu(i,j,bi,bj)*(oneRL-locFrac) |
|
./pkg/seaice/seaice_get_dynforcing.F |
303 |
SEAICE_GET_DYNFORCING |
DO i=2-OLx,sNx+OLx |
|
./pkg/seaice/seaice_get_dynforcing.F |
304 |
SEAICE_GET_DYNFORCING |
locFrac = ( icFrac(i, j, bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
305 |
SEAICE_GET_DYNFORCING |
& + icFrac(i,j-1,bi,bj) )*halfRL |
|
./pkg/seaice/seaice_get_dynforcing.F |
306 |
SEAICE_GET_DYNFORCING |
locVar(i,j) = tauy(i,j,bi,bj)*locFrac |
|
./pkg/seaice/seaice_get_dynforcing.F |
307 |
SEAICE_GET_DYNFORCING |
& + fv(i,j,bi,bj)*(oneRL-locFrac) |
|
./pkg/seaice/seaice_get_dynforcing.F |
70 |
SEAICE_GET_DYNFORCING |
INTEGER bi, bj, i, j |
|
./pkg/seaice/seaice_growth.F |
1061 |
SEAICE_GROWTH |
& * SEAICE_deltaTtherm * maskC(i,j,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1063 |
SEAICE_GROWTH |
a_QbyOCN(i,j) = |
|
./pkg/seaice/seaice_growth.F |
1065 |
SEAICE_GROWTH |
r_QbyOCN(i,j) = a_QbyOCN(i,j) |
|
./pkg/seaice/seaice_growth.F |
1080 |
SEAICE_GROWTH |
tmpscal2=sqrt(0.87 + 0.067*UG(i,j)) * UG(i,j) |
|
./pkg/seaice/seaice_growth.F |
1092 |
SEAICE_GROWTH |
IF (a_QbyATMmult_cover(i,j,it).LT.ZERO .OR. |
|
./pkg/seaice/seaice_growth.F |
1093 |
SEAICE_GROWTH |
& a_QbyATM_open(i,j) .LT.ZERO .OR. |
|
./pkg/seaice/seaice_growth.F |
1094 |
SEAICE_GROWTH |
& a_QbyOCN(i,j) .LT.ZERO) THEN |
|
./pkg/seaice/seaice_growth.F |
1098 |
SEAICE_GROWTH |
latMeltRate(i,j,it) = ZERO |
|
./pkg/seaice/seaice_growth.F |
1100 |
SEAICE_GROWTH |
& latMeltRate(i,j,it) = 1.6 _d -6 * exp(1.36*log(tmpscal1)) |
|
./pkg/seaice/seaice_growth.F |
1110 |
SEAICE_GROWTH |
latMeltFrac(i,j,it) = |
|
./pkg/seaice/seaice_growth.F |
1111 |
SEAICE_GROWTH |
& latMeltRate(i,j,it)*SEAICE_deltaTtherm*PI / |
|
./pkg/seaice/seaice_growth.F |
1113 |
SEAICE_GROWTH |
latMeltFrac(i,j,it)=max(ZERO, min(latMeltFrac(i,j,it),ONE)) |
|
./pkg/seaice/seaice_growth.F |
1115 |
SEAICE_GROWTH |
latMeltRate(i,j,it)=0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
1116 |
SEAICE_GROWTH |
latMeltFrac(i,j,it)=0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
1162 |
SEAICE_GROWTH |
& 0.5 _d 0*(uVel(i,j,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1163 |
SEAICE_GROWTH |
& +uVel(i+1,j,kSurface,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
1164 |
SEAICE_GROWTH |
& -0.5 _d 0*(uice(i,j,bi,bj)+uice(i+1,j,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
1167 |
SEAICE_GROWTH |
& 0.5 _d 0*(vVel(i,j,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1168 |
SEAICE_GROWTH |
& +vVel(i,j+1,kSurface,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
1169 |
SEAICE_GROWTH |
& -0.5 _d 0*(vice(i,j,bi,bj)+vice(i,j+1,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
1309 |
SEAICE_GROWTH |
tmpscal1=MAX(r_QbyOCN(i,j)*areaFracFactor(I,J,IT), |
|
./pkg/seaice/seaice_growth.F |
1333 |
SEAICE_GROWTH |
d_HEFFbyOCNonICE(I,J)=MAX(r_QbyOCN(i,j), -HEFF(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
1468 |
SEAICE_GROWTH |
& snowPrecip(i,j,bi,bj) * AREApreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
1539 |
SEAICE_GROWTH |
tmpscal1=MAX(r_QbyOCN(i,j)*ICE2SNOW*areaFracFactor(I,J,IT), |
|
./pkg/seaice/seaice_growth.F |
1555 |
SEAICE_GROWTH |
tmpscal1=MAX(r_QbyOCN(i,j)*ICE2SNOW, -HSNOW(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
1599 |
SEAICE_GROWTH |
tmpscal1=r_QbyATM_open(I,J)+r_QbyOCN(i,j) * |
|
./pkg/seaice/seaice_growth.F |
1648 |
SEAICE_GROWTH |
SItracer(i,j,bi,bj,iTrGrease) = |
|
./pkg/seaice/seaice_growth.F |
1649 |
SEAICE_GROWTH |
& SItracer(i,j,bi,bj,iTrGrease) + greaseNewFrazil |
|
./pkg/seaice/seaice_growth.F |
1845 |
SEAICE_GROWTH |
IF ( (HEFF(i,j,bi,bj).GT.0. _d 0).OR. |
|
./pkg/seaice/seaice_growth.F |
1846 |
SEAICE_GROWTH |
& (HSNOW(i,j,bi,bj).GT.0. _d 0) ) THEN |
|
./pkg/seaice/seaice_growth.F |
2037 |
SEAICE_GROWTH |
& saltPlumeFlux(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
2095 |
SEAICE_GROWTH |
saltPlumeFlux(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
2129 |
SEAICE_GROWTH |
& saltPlumeFlux(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
2212 |
SEAICE_GROWTH |
& snowPrecip(i,j,bi,bj) * (ONE-AREApreTH(I,J)) |
|
./pkg/seaice/seaice_growth.F |
2268 |
SEAICE_GROWTH |
& - snowPrecip(i,j,bi,bj) * (ONE-AREApreTH(I,J)) ) |
|
./pkg/seaice/seaice_growth.F |
2465 |
SEAICE_GROWTH |
sIceLoad(i,j,bi,bj) = tmpscal2 |
|
./pkg/seaice/seaice_growth.F |
2476 |
SEAICE_GROWTH |
DO i=1,sNx |
|
./pkg/seaice/seaice_growth.F |
2478 |
SEAICE_GROWTH |
& FWFsiTile(bi,bj) + SIatmFW(i,j,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2479 |
SEAICE_GROWTH |
& * rA(i,j,bi,bj) * maskInC(i,j,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2487 |
SEAICE_GROWTH |
DO i=1,sNx |
|
./pkg/seaice/seaice_growth.F |
2490 |
SEAICE_GROWTH |
& * rA(i,j,bi,bj) * maskInC(i,j,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2497 |
SEAICE_GROWTH |
DO i=1,sNx |
|
./pkg/seaice/seaice_growth.F |
2499 |
SEAICE_GROWTH |
& HFsiTile(bi,bj) + SItflux(i,j,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2500 |
SEAICE_GROWTH |
& * rA(i,j,bi,bj) * maskInC(i,j,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2638 |
SEAICE_GROWTH |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_growth.F |
2639 |
SEAICE_GROWTH |
empmr(i,j,bi,bj) = empmr(i,j,bi,bj) - tmpscal0 |
|
./pkg/seaice/seaice_growth.F |
2640 |
SEAICE_GROWTH |
SIatmFW(i,j,bi,bj) = SIatmFW(i,j,bi,bj) - tmpscal0 |
|
./pkg/seaice/seaice_growth.F |
2656 |
SEAICE_GROWTH |
SItflux(i,j,bi,bj) = SItflux(i,j,bi,bj) - tmpscal0*tmpscal1 |
|
./pkg/seaice/seaice_growth.F |
2675 |
SEAICE_GROWTH |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_growth.F |
2676 |
SEAICE_GROWTH |
SItflux(i,j,bi,bj) = SItflux(i,j,bi,bj) - tmpscal2 |
|
./pkg/seaice/seaice_growth.F |
2677 |
SEAICE_GROWTH |
qnet(i,j,bi,bj) = qnet(i,j,bi,bj) - tmpscal2 |
|
./pkg/seaice/seaice_growth.F |
2678 |
SEAICE_GROWTH |
SIatmQnt(i,j,bi,bj) = SIatmQnt(i,j,bi,bj) - tmpscal2 |
|
./pkg/seaice/seaice_growth.F |
732 |
SEAICE_GROWTH |
DO i=1,sNx |
|
./pkg/seaice/seaice_growth.F |
734 |
SEAICE_GROWTH |
TmixLoc(i,j) = theta(i,j,kSurface,bi,bj)+celsius2K |
|
./pkg/seaice/seaice_growth.F |
762 |
SEAICE_GROWTH |
& +0.5 _d 0*(uVel(i,j,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
763 |
SEAICE_GROWTH |
& +uVel(i+1,j,kSurface,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
764 |
SEAICE_GROWTH |
& -0.5 _d 0*(uice(i,j,bi,bj)+uice(i+1,j,bi,bj)))**2 |
|
./pkg/seaice/seaice_growth.F |
766 |
SEAICE_GROWTH |
& +0.5 _d 0*(vVel(i,j,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
767 |
SEAICE_GROWTH |
& +vVel(i,j+1,kSurface,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
768 |
SEAICE_GROWTH |
& -0.5 _d 0*(vice(i,j,bi,bj)+vice(i,j+1,bi,bj)))**2 |
|
./pkg/seaice/seaice_growth.F |
98 |
SEAICE_GROWTH |
INTEGER i, j, bi, bj |
|
./pkg/seaice/seaice_init_varia.F |
110 |
SEAICE_INIT_VARIA |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_init_varia.F |
119 |
SEAICE_INIT_VARIA |
DO i=1-OLx,sNx+OLx-1 |
|
./pkg/seaice/seaice_init_varia.F |
126 |
SEAICE_INIT_VARIA |
DO i=1-OLx+1,sNx+OLx |
|
./pkg/seaice/seaice_init_varia.F |
133 |
SEAICE_INIT_VARIA |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_init_varia.F |
140 |
SEAICE_INIT_VARIA |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_init_varia.F |
149 |
SEAICE_INIT_VARIA |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_init_varia.F |
166 |
SEAICE_INIT_VARIA |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_init_varia.F |
176 |
SEAICE_INIT_VARIA |
DO i=1-OLx,sNx+OLx-1 |
|
./pkg/seaice/seaice_init_varia.F |
183 |
SEAICE_INIT_VARIA |
DO i=1-OLx+1,sNx+OLx |
|
./pkg/seaice/seaice_init_varia.F |
190 |
SEAICE_INIT_VARIA |
DO i=1-OLx,sNx+OLx-1 |
|
./pkg/seaice/seaice_init_varia.F |
197 |
SEAICE_INIT_VARIA |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_init_varia.F |
204 |
SEAICE_INIT_VARIA |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_init_varia.F |
211 |
SEAICE_INIT_VARIA |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_init_varia.F |
227 |
SEAICE_INIT_VARIA |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_init_varia.F |
228 |
SEAICE_INIT_VARIA |
KGEO(i,j,bi,bj) = 0 |
|
./pkg/seaice/seaice_init_varia.F |
232 |
SEAICE_INIT_VARIA |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_init_varia.F |
234 |
SEAICE_INIT_VARIA |
KGEO(i,j,bi,bj) = 1 |
|
./pkg/seaice/seaice_init_varia.F |
236 |
SEAICE_INIT_VARIA |
IF (klowc(i,j,bi,bj) .LT. 2) THEN |
|
./pkg/seaice/seaice_init_varia.F |
237 |
SEAICE_INIT_VARIA |
KGEO(i,j,bi,bj) = 1 |
|
./pkg/seaice/seaice_init_varia.F |
239 |
SEAICE_INIT_VARIA |
KGEO(i,j,bi,bj) = 2 |
|
./pkg/seaice/seaice_init_varia.F |
240 |
SEAICE_INIT_VARIA |
DO WHILE ( abs(rC(KGEO(i,j,bi,bj))) .LT. 50.0 _d 0 .AND. |
|
./pkg/seaice/seaice_init_varia.F |
241 |
SEAICE_INIT_VARIA |
& KGEO(i,j,bi,bj) .LT. (klowc(i,j,bi,bj)-1) ) |
|
./pkg/seaice/seaice_init_varia.F |
242 |
SEAICE_INIT_VARIA |
KGEO(i,j,bi,bj) = KGEO(i,j,bi,bj) + 1 |
|
./pkg/seaice/seaice_init_varia.F |
256 |
SEAICE_INIT_VARIA |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_init_varia.F |
257 |
SEAICE_INIT_VARIA |
HEFF(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
258 |
SEAICE_INIT_VARIA |
AREA(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
262 |
SEAICE_INIT_VARIA |
AREAITD(i,j,k,bi,bj) =0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
263 |
SEAICE_INIT_VARIA |
HEFFITD(i,j,k,bi,bj) =0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
267 |
SEAICE_INIT_VARIA |
UICE(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
268 |
SEAICE_INIT_VARIA |
VICE(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
270 |
SEAICE_INIT_VARIA |
uice_fd(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
271 |
SEAICE_INIT_VARIA |
vice_fd(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
274 |
SEAICE_INIT_VARIA |
uIceNm1(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
275 |
SEAICE_INIT_VARIA |
vIceNm1(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
276 |
SEAICE_INIT_VARIA |
ETA (i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
277 |
SEAICE_INIT_VARIA |
etaZ(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
278 |
SEAICE_INIT_VARIA |
ZETA(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
279 |
SEAICE_INIT_VARIA |
FORCEX(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
280 |
SEAICE_INIT_VARIA |
FORCEY(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
282 |
SEAICE_INIT_VARIA |
seaiceMassC(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
283 |
SEAICE_INIT_VARIA |
seaiceMassU(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
284 |
SEAICE_INIT_VARIA |
seaiceMassV(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
285 |
SEAICE_INIT_VARIA |
stressDivergenceX(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
286 |
SEAICE_INIT_VARIA |
stressDivergenceY(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
288 |
SEAICE_INIT_VARIA |
seaice_sigma1 (i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
289 |
SEAICE_INIT_VARIA |
seaice_sigma2 (i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
290 |
SEAICE_INIT_VARIA |
seaice_sigma12(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
293 |
SEAICE_INIT_VARIA |
uIceC(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
294 |
SEAICE_INIT_VARIA |
vIceC(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
295 |
SEAICE_INIT_VARIA |
AMASS(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
296 |
SEAICE_INIT_VARIA |
DAIRN(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
297 |
SEAICE_INIT_VARIA |
WINDX(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
298 |
SEAICE_INIT_VARIA |
WINDY(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
299 |
SEAICE_INIT_VARIA |
GWATX(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
300 |
SEAICE_INIT_VARIA |
GWATY(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
302 |
SEAICE_INIT_VARIA |
DWATN(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
304 |
SEAICE_INIT_VARIA |
CbotC(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
306 |
SEAICE_INIT_VARIA |
PRESS0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
307 |
SEAICE_INIT_VARIA |
FORCEX0(i,j,bi,bj)= 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
308 |
SEAICE_INIT_VARIA |
FORCEY0(i,j,bi,bj)= 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
309 |
SEAICE_INIT_VARIA |
ZMAX(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
310 |
SEAICE_INIT_VARIA |
ZMIN(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
311 |
SEAICE_INIT_VARIA |
HSNOW(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
312 |
SEAICE_INIT_VARIA |
tensileStrFac(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
316 |
SEAICE_INIT_VARIA |
HSNOWITD(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
321 |
SEAICE_INIT_VARIA |
HSALT(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
325 |
SEAICE_INIT_VARIA |
SItracer(i,j,bi,bj,iTr) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
326 |
SEAICE_INIT_VARIA |
SItrBucket(i,j,bi,bj,iTr) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
328 |
SEAICE_INIT_VARIA |
if (SItrName(iTr).EQ.'one') SItracer(i,j,bi,bj,iTr)=1. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
331 |
SEAICE_INIT_VARIA |
SItrHEFF (i,j,bi,bj,jTh) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
334 |
SEAICE_INIT_VARIA |
SItrAREA (i,j,bi,bj,jTh) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
338 |
SEAICE_INIT_VARIA |
TICES(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
340 |
SEAICE_INIT_VARIA |
TAUX(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
341 |
SEAICE_INIT_VARIA |
TAUY(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
343 |
SEAICE_INIT_VARIA |
uHeffExportCell(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
344 |
SEAICE_INIT_VARIA |
vHeffExportCell(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
345 |
SEAICE_INIT_VARIA |
icevolMeanCell(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
347 |
SEAICE_INIT_VARIA |
saltWtrIce(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
348 |
SEAICE_INIT_VARIA |
frWtrIce(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
350 |
SEAICE_INIT_VARIA |
frWtrAtm(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
351 |
SEAICE_INIT_VARIA |
AREAforAtmFW(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
383 |
SEAICE_INIT_VARIA |
DO i=1-OLx+1,sNx+OLx |
|
./pkg/seaice/seaice_init_varia.F |
384 |
SEAICE_INIT_VARIA |
seaiceMaskU(i,j,bi,bj)= 0.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
385 |
SEAICE_INIT_VARIA |
seaiceMaskV(i,j,bi,bj)= 0.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
386 |
SEAICE_INIT_VARIA |
mask_uice=HEFFM(i,j,bi,bj)+HEFFM(i-1,j ,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
387 |
SEAICE_INIT_VARIA |
IF(mask_uice.GT.1.5 _d 0) seaiceMaskU(i,j,bi,bj)=1.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
388 |
SEAICE_INIT_VARIA |
mask_uice=HEFFM(i,j,bi,bj)+HEFFM(i ,j-1,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
389 |
SEAICE_INIT_VARIA |
IF(mask_uice.GT.1.5 _d 0) seaiceMaskV(i,j,bi,bj)=1.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
402 |
SEAICE_INIT_VARIA |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_init_varia.F |
404 |
SEAICE_INIT_VARIA |
J_obc = OB_Js(i,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
406 |
SEAICE_INIT_VARIA |
seaiceMaskU(i,J_obc,bi,bj)= 0.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
407 |
SEAICE_INIT_VARIA |
seaiceMaskV(i,J_obc,bi,bj)= 0.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
423 |
SEAICE_INIT_VARIA |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_init_varia.F |
425 |
SEAICE_INIT_VARIA |
TICES(i,j,k,bi,bj)=273.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
428 |
SEAICE_INIT_VARIA |
AMASS (i,j,bi,bj)=1000.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
42 |
SEAICE_INIT_VARIA |
INTEGER i, j, bi, bj |
|
./pkg/seaice/seaice_init_varia.F |
430 |
SEAICE_INIT_VARIA |
seaiceMassC(i,j,bi,bj)=1000.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
431 |
SEAICE_INIT_VARIA |
seaiceMassU(i,j,bi,bj)=1000.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
432 |
SEAICE_INIT_VARIA |
seaiceMassV(i,j,bi,bj)=1000.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
473 |
SEAICE_INIT_VARIA |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_init_varia.F |
474 |
SEAICE_INIT_VARIA |
HEFF(i,j,bi,bj)=SEAICE_initialHEFF*HEFFM(i,j,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
475 |
SEAICE_INIT_VARIA |
UICE(i,j,bi,bj)=ZERO |
|
./pkg/seaice/seaice_init_varia.F |
476 |
SEAICE_INIT_VARIA |
VICE(i,j,bi,bj)=ZERO |
|
./pkg/seaice/seaice_init_varia.F |
492 |
SEAICE_INIT_VARIA |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_init_varia.F |
493 |
SEAICE_INIT_VARIA |
uIce(i,j,bi,bj) = uIce(i,j,bi,bj)*seaiceMaskU(i,j,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
494 |
SEAICE_INIT_VARIA |
vIce(i,j,bi,bj) = vIce(i,j,bi,bj)*seaiceMaskV(i,j,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
510 |
SEAICE_INIT_VARIA |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_init_varia.F |
511 |
SEAICE_INIT_VARIA |
HEFF(i,j,bi,bj) = MAX(HEFF(i,j,bi,bj),ZERO) |
|
./pkg/seaice/seaice_init_varia.F |
521 |
SEAICE_INIT_VARIA |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_init_varia.F |
522 |
SEAICE_INIT_VARIA |
IF(HEFF(i,j,bi,bj).GT.ZERO) AREA(i,j,bi,bj)=ONE |
|
./pkg/seaice/seaice_init_varia.F |
535 |
SEAICE_INIT_VARIA |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_init_varia.F |
536 |
SEAICE_INIT_VARIA |
AREA(i,j,bi,bj) = MAX(AREA(i,j,bi,bj),ZERO) |
|
./pkg/seaice/seaice_init_varia.F |
537 |
SEAICE_INIT_VARIA |
AREA(i,j,bi,bj) = MIN(AREA(i,j,bi,bj),ONE) |
|
./pkg/seaice/seaice_init_varia.F |
538 |
SEAICE_INIT_VARIA |
IF ( AREA(i,j,bi,bj) .LE. ZERO ) HEFF(i,j,bi,bj) = ZERO |
|
./pkg/seaice/seaice_init_varia.F |
539 |
SEAICE_INIT_VARIA |
IF ( HEFF(i,j,bi,bj) .LE. ZERO ) AREA(i,j,bi,bj) = ZERO |
|
./pkg/seaice/seaice_init_varia.F |
549 |
SEAICE_INIT_VARIA |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_init_varia.F |
550 |
SEAICE_INIT_VARIA |
HSNOW(i,j,bi,bj) = 0.2 _d 0 * AREA(i,j,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
563 |
SEAICE_INIT_VARIA |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_init_varia.F |
564 |
SEAICE_INIT_VARIA |
HSNOW(i,j,bi,bj) = MAX(HSNOW(i,j,bi,bj),ZERO) |
|
./pkg/seaice/seaice_init_varia.F |
575 |
SEAICE_INIT_VARIA |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_init_varia.F |
592 |
SEAICE_INIT_VARIA |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_init_varia.F |
593 |
SEAICE_INIT_VARIA |
HSALT(i,j,bi,bj)=HEFF(i,j,bi,bj)*salt(i,j,kSurface,bi,bj)* |
|
./pkg/seaice/seaice_init_varia.F |
626 |
SEAICE_INIT_VARIA |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_init_varia.F |
627 |
SEAICE_INIT_VARIA |
AREAforAtmFW(i,j,bi,bj) = AREA(i,j,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
663 |
SEAICE_INIT_VARIA |
DO i=1,nVec |
|
./pkg/seaice/seaice_init_varia.F |
664 |
SEAICE_INIT_VARIA |
scalarProductMetric(i,1,bi,bj) = |
|
./pkg/seaice/seaice_init_varia.F |
665 |
SEAICE_INIT_VARIA |
& scalarProductMetric(i,1,bi,bj)/globalArea |
|
./pkg/seaice/seaice_init_varia.F |
66 |
SEAICE_INIT_VARIA |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_init_varia.F |
675 |
SEAICE_INIT_VARIA |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_init_varia.F |
676 |
SEAICE_INIT_VARIA |
ZETA(i,j,bi,bj) = HEFF(i,j,bi,bj)*(1.0 _d 11) |
|
./pkg/seaice/seaice_init_varia.F |
677 |
SEAICE_INIT_VARIA |
ETA(i,j,bi,bj) = ZETA(i,j,bi,bj)/SEAICE_eccen**2 |
|
./pkg/seaice/seaice_init_varia.F |
678 |
SEAICE_INIT_VARIA |
PRESS0(i,j,bi,bj) = SEAICE_strength*HEFF(i,j,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
679 |
SEAICE_INIT_VARIA |
& *EXP(-SEAICE_cStar*(ONE-AREA(i,j,bi,bj))) |
|
./pkg/seaice/seaice_init_varia.F |
67 |
SEAICE_INIT_VARIA |
HEFFM(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
681 |
SEAICE_INIT_VARIA |
ZMIN(i,j,bi,bj) = SEAICE_zetaMin |
|
./pkg/seaice/seaice_init_varia.F |
682 |
SEAICE_INIT_VARIA |
PRESS0(i,j,bi,bj) = PRESS0(i,j,bi,bj)*HEFFM(i,j,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
687 |
SEAICE_INIT_VARIA |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_init_varia.F |
688 |
SEAICE_INIT_VARIA |
sIceLoad(i,j,bi,bj) = HEFF(i,j,bi,bj)*SEAICE_rhoIce |
|
./pkg/seaice/seaice_init_varia.F |
689 |
SEAICE_INIT_VARIA |
& + HSNOW(i,j,bi,bj)*SEAICE_rhoSnow |
|
./pkg/seaice/seaice_init_varia.F |
707 |
SEAICE_INIT_VARIA |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_init_varia.F |
708 |
SEAICE_INIT_VARIA |
tensileStrFac(i,j,bi,bj) = SEAICE_tensilFac*HEFFM(i,j,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
709 |
SEAICE_INIT_VARIA |
& *exp(-ABS(R_low(i,j,bi,bj))*recip_tensilDepth) |
|
./pkg/seaice/seaice_init_varia.F |
71 |
SEAICE_INIT_VARIA |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_init_varia.F |
72 |
SEAICE_INIT_VARIA |
HEFFM(i,j,bi,bj)= 1. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
73 |
SEAICE_INIT_VARIA |
IF (_hFacC(i,j,kSurface,bi,bj).eq.0.) |
|
./pkg/seaice/seaice_init_varia.F |
74 |
SEAICE_INIT_VARIA |
& HEFFM(i,j,bi,bj)= 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
79 |
SEAICE_INIT_VARIA |
DO i=1-OLx+1,sNx+OLx |
|
./pkg/seaice/seaice_init_varia.F |
80 |
SEAICE_INIT_VARIA |
UVM(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
81 |
SEAICE_INIT_VARIA |
mask_uice=HEFFM(i,j, bi,bj)+HEFFM(i-1,j-1,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
82 |
SEAICE_INIT_VARIA |
& +HEFFM(i,j-1,bi,bj)+HEFFM(i-1,j, bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
83 |
SEAICE_INIT_VARIA |
IF(mask_uice.GT.3.5 _d 0) UVM(i,j,bi,bj)=1. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
95 |
SEAICE_INIT_VARIA |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_itd_pickup.F |
109 |
SEAICE_ITD_PICKUP |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_itd_pickup.F |
110 |
SEAICE_ITD_PICKUP |
AREAITD(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_itd_pickup.F |
111 |
SEAICE_ITD_PICKUP |
HEFFITD(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_itd_pickup.F |
112 |
SEAICE_ITD_PICKUP |
HSNOWITD(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_itd_pickup.F |
124 |
SEAICE_ITD_PICKUP |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_itd_pickup.F |
125 |
SEAICE_ITD_PICKUP |
AREAITD(i,j,1,bi,bj) = AREA(i,j,bi,bj) |
|
./pkg/seaice/seaice_itd_pickup.F |
126 |
SEAICE_ITD_PICKUP |
HEFFITD(i,j,1,bi,bj) = HEFF(i,j,bi,bj) |
|
./pkg/seaice/seaice_itd_pickup.F |
127 |
SEAICE_ITD_PICKUP |
HSNOWITD(i,j,1,bi,bj) = HSNOW(i,j,bi,bj) |
|
./pkg/seaice/seaice_itd_pickup.F |
140 |
SEAICE_ITD_PICKUP |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_itd_pickup.F |
143 |
SEAICE_ITD_PICKUP |
LND_mu = log(HEFF(i,j,bi,bj)/AREA(i,j,bi,bj)) |
|
./pkg/seaice/seaice_itd_pickup.F |
157 |
SEAICE_ITD_PICKUP |
& * AREA(i,j,bi,bj) |
|
./pkg/seaice/seaice_itd_pickup.F |
163 |
SEAICE_ITD_PICKUP |
AREAITD(i,j,k,bi,bj) = AREAITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_pickup.F |
165 |
SEAICE_ITD_PICKUP |
HEFFITD(i,j,k,bi,bj) = HEFFITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_pickup.F |
77 |
SEAICE_ITD_PICKUP |
INTEGER i, j, bi, bj, k |
|
./pkg/seaice/seaice_itd_redist.F |
113 |
SEAICE_ITD_REDIST |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_itd_redist.F |
114 |
SEAICE_ITD_REDIST |
IF (openWater(i,j) .lt. 0.0) |
|
./pkg/seaice/seaice_itd_redist.F |
115 |
SEAICE_ITD_REDIST |
& AREAITD(i,j,1,bi,bj) = openWater(i,j) + AREAITD(i,j,1,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
126 |
SEAICE_ITD_REDIST |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_itd_redist.F |
127 |
SEAICE_ITD_REDIST |
IF (AREAITD(i,j,k,bi,bj) .lt. 0.0) THEN |
|
./pkg/seaice/seaice_itd_redist.F |
130 |
SEAICE_ITD_REDIST |
AREAITD (i,j,k+1,bi,bj) = AREAITD (i,j,k+1,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
131 |
SEAICE_ITD_REDIST |
& + AREAITD (i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
132 |
SEAICE_ITD_REDIST |
AREAITD (i,j,k ,bi,bj) = ZERO |
|
./pkg/seaice/seaice_itd_redist.F |
133 |
SEAICE_ITD_REDIST |
HEFFITD (i,j,k+1,bi,bj) = HEFFITD (i,j,k+1,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
134 |
SEAICE_ITD_REDIST |
& + HEFFITD (i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
135 |
SEAICE_ITD_REDIST |
HEFFITD (i,j,k ,bi,bj) = ZERO |
|
./pkg/seaice/seaice_itd_redist.F |
136 |
SEAICE_ITD_REDIST |
HSNOWITD(i,j,k+1,bi,bj) = HSNOWITD(i,j,k+1,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
137 |
SEAICE_ITD_REDIST |
& + HSNOWITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
138 |
SEAICE_ITD_REDIST |
HSNOWITD(i,j,k ,bi,bj) = ZERO |
|
./pkg/seaice/seaice_itd_redist.F |
155 |
SEAICE_ITD_REDIST |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_itd_redist.F |
156 |
SEAICE_ITD_REDIST |
IF (HEFFITD(i,j,k,bi,bj) .gt. |
|
./pkg/seaice/seaice_itd_redist.F |
157 |
SEAICE_ITD_REDIST |
& Hlimit(k)*AREAITD(i,j,k,bi,bj)) THEN |
|
./pkg/seaice/seaice_itd_redist.F |
160 |
SEAICE_ITD_REDIST |
AREAITD (i,j,k+1,bi,bj) = AREAITD (i,j,k+1,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
161 |
SEAICE_ITD_REDIST |
& + AREAITD (i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
162 |
SEAICE_ITD_REDIST |
AREAITD (i,j,k ,bi,bj) = ZERO |
|
./pkg/seaice/seaice_itd_redist.F |
163 |
SEAICE_ITD_REDIST |
HEFFITD (i,j,k+1,bi,bj) = HEFFITD (i,j,k+1,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
164 |
SEAICE_ITD_REDIST |
& + HEFFITD (i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
165 |
SEAICE_ITD_REDIST |
HEFFITD (i,j,k ,bi,bj) = ZERO |
|
./pkg/seaice/seaice_itd_redist.F |
166 |
SEAICE_ITD_REDIST |
HSNOWITD(i,j,k+1,bi,bj) = HSNOWITD(i,j,k+1,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
167 |
SEAICE_ITD_REDIST |
& + HSNOWITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
168 |
SEAICE_ITD_REDIST |
HSNOWITD(i,j,k ,bi,bj) = ZERO |
|
./pkg/seaice/seaice_itd_redist.F |
182 |
SEAICE_ITD_REDIST |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_itd_redist.F |
183 |
SEAICE_ITD_REDIST |
IF (HEFFITD(i,j,k,bi,bj) .lt. |
|
./pkg/seaice/seaice_itd_redist.F |
184 |
SEAICE_ITD_REDIST |
& Hlimit(k-1)*AREAITD(i,j,k,bi,bj)) THEN |
|
./pkg/seaice/seaice_itd_redist.F |
187 |
SEAICE_ITD_REDIST |
AREAITD (i,j,k-1,bi,bj) = AREAITD (i,j,k-1,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
188 |
SEAICE_ITD_REDIST |
& + AREAITD (i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
189 |
SEAICE_ITD_REDIST |
AREAITD (i,j,k ,bi,bj) = ZERO |
|
./pkg/seaice/seaice_itd_redist.F |
190 |
SEAICE_ITD_REDIST |
HEFFITD (i,j,k-1,bi,bj) = HEFFITD (i,j,k-1,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
191 |
SEAICE_ITD_REDIST |
& + HEFFITD (i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
192 |
SEAICE_ITD_REDIST |
HEFFITD (i,j,k ,bi,bj) = ZERO |
|
./pkg/seaice/seaice_itd_redist.F |
193 |
SEAICE_ITD_REDIST |
HSNOWITD(i,j,k-1,bi,bj) = HSNOWITD(i,j,k-1,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
194 |
SEAICE_ITD_REDIST |
& + HSNOWITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
195 |
SEAICE_ITD_REDIST |
HSNOWITD(i,j,k ,bi,bj) = ZERO |
|
./pkg/seaice/seaice_itd_redist.F |
73 |
SEAICE_ITD_REDIST |
INTEGER i, j, k |
|
./pkg/seaice/seaice_itd_redist.F |
89 |
SEAICE_ITD_REDIST |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_itd_redist.F |
90 |
SEAICE_ITD_REDIST |
openWater(i,j) = ONE |
|
./pkg/seaice/seaice_itd_redist.F |
95 |
SEAICE_ITD_REDIST |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_itd_redist.F |
96 |
SEAICE_ITD_REDIST |
openWater(i,j) = openWater(i,j) - AREAITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_remap.F |
112 |
SEAICE_ITD_REMAP |
DO i=1,sNx |
|
./pkg/seaice/seaice_itd_remap.F |
113 |
SEAICE_ITD_REMAP |
doRemapping(i,j) = .FALSE. |
|
./pkg/seaice/seaice_itd_remap.F |
114 |
SEAICE_ITD_REMAP |
IF ( HEFFM(i,j,bi,bj) .NE. 0. _d 0 ) doRemapping(i,j) = .TRUE. |
|
./pkg/seaice/seaice_itd_remap.F |
122 |
SEAICE_ITD_REMAP |
DO i=1,sNx |
|
./pkg/seaice/seaice_itd_remap.F |
123 |
SEAICE_ITD_REMAP |
hActualPre (i,j,k) = 0. _d 0 |
|
./pkg/seaice/seaice_itd_remap.F |
124 |
SEAICE_ITD_REMAP |
hActual (i,j,k) = 0. _d 0 |
|
./pkg/seaice/seaice_itd_remap.F |
125 |
SEAICE_ITD_REMAP |
dhActual(i,j,k) = 0. _d 0 |
|
./pkg/seaice/seaice_itd_remap.F |
127 |
SEAICE_ITD_REMAP |
IF ( areaitdPre(i,j,k) .GT. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_itd_remap.F |
128 |
SEAICE_ITD_REMAP |
hActualPre(i,j,k) = heffitdPre(i,j,k) |
|
./pkg/seaice/seaice_itd_remap.F |
129 |
SEAICE_ITD_REMAP |
& /SQRT( areaitdPre(i,j,k)**2 + area_reg_sq ) |
|
./pkg/seaice/seaice_itd_remap.F |
132 |
SEAICE_ITD_REMAP |
IF ( AREAITD(i,j,k,bi,bj) .GT. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_itd_remap.F |
133 |
SEAICE_ITD_REMAP |
hActual(i,j,k) = HEFFITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_remap.F |
134 |
SEAICE_ITD_REMAP |
& /SQRT( AREAITD(i,j,k,bi,bj)**2 + area_reg_sq ) |
|
./pkg/seaice/seaice_itd_remap.F |
137 |
SEAICE_ITD_REMAP |
dhActual(i,j,k) = hActual(i,j,k) - hActualPre(i,j,k) |
|
./pkg/seaice/seaice_itd_remap.F |
139 |
SEAICE_ITD_REMAP |
IF ( areaitdPre(i,j,k) .GT. SEAICE_area_reg ) THEN |
|
./pkg/seaice/seaice_itd_remap.F |
140 |
SEAICE_ITD_REMAP |
hActualPre(i,j,k) = heffitdPre(i,j,k)/areaitdPre(i,j,k) |
|
./pkg/seaice/seaice_itd_remap.F |
142 |
SEAICE_ITD_REMAP |
IF ( AREAITD(i,j,k,bi,bj) .GT. SEAICE_area_reg ) THEN |
|
./pkg/seaice/seaice_itd_remap.F |
143 |
SEAICE_ITD_REMAP |
hActual(i,j,k) = HEFFITD(i,j,k,bi,bj)/AREAITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_remap.F |
145 |
SEAICE_ITD_REMAP |
dhActual(i,j,k) = hActual(i,j,k) - hActualPre(i,j,k) |
|
./pkg/seaice/seaice_itd_remap.F |
154 |
SEAICE_ITD_REMAP |
DO i=1,sNx |
|
./pkg/seaice/seaice_itd_remap.F |
155 |
SEAICE_ITD_REMAP |
hLimitNew(i,j,0) = hLimit(0) |
|
./pkg/seaice/seaice_itd_remap.F |
160 |
SEAICE_ITD_REMAP |
DO i=1,sNx |
|
./pkg/seaice/seaice_itd_remap.F |
161 |
SEAICE_ITD_REMAP |
IF ( hActualPre(i,j,k) .GT.SEAICE_eps .AND. |
|
./pkg/seaice/seaice_itd_remap.F |
162 |
SEAICE_ITD_REMAP |
& hActualPre(i,j,k+1).GT.SEAICE_eps ) THEN |
|
./pkg/seaice/seaice_itd_remap.F |
163 |
SEAICE_ITD_REMAP |
slope = ( dhActual(i,j,k+1) - dhActual(i,j,k) ) |
|
./pkg/seaice/seaice_itd_remap.F |
164 |
SEAICE_ITD_REMAP |
& /( hActualPre(i,j,k+1) - hActualPre(i,j,k) ) |
|
./pkg/seaice/seaice_itd_remap.F |
165 |
SEAICE_ITD_REMAP |
hLimitNew(i,j,k) = hLimit(k) + dhActual(i,j,k) |
|
./pkg/seaice/seaice_itd_remap.F |
166 |
SEAICE_ITD_REMAP |
& + slope * ( hLimit(k) - hActualPre(i,j,k) ) |
|
./pkg/seaice/seaice_itd_remap.F |
167 |
SEAICE_ITD_REMAP |
ELSEIF ( hActualPre(i,j,k) .GT.SEAICE_eps ) THEN |
|
./pkg/seaice/seaice_itd_remap.F |
168 |
SEAICE_ITD_REMAP |
hLimitNew(i,j,k) = hLimit(k) + dhActual(i,j,k) |
|
./pkg/seaice/seaice_itd_remap.F |
169 |
SEAICE_ITD_REMAP |
ELSEIF ( hActualPre(i,j,k+1).GT.SEAICE_eps ) THEN |
|
./pkg/seaice/seaice_itd_remap.F |
170 |
SEAICE_ITD_REMAP |
hLimitNew(i,j,k) = hLimit(k) + dhActual(i,j,k+1) |
|
./pkg/seaice/seaice_itd_remap.F |
172 |
SEAICE_ITD_REMAP |
hLimitNew(i,j,k) = hLimit(k) |
|
./pkg/seaice/seaice_itd_remap.F |
176 |
SEAICE_ITD_REMAP |
IF ( ( AREAITD(i,j,k,bi,bj).GT.SEAICE_area_reg .AND. |
|
./pkg/seaice/seaice_itd_remap.F |
177 |
SEAICE_ITD_REMAP |
& hActual(i,j,k) .GE. hLimitNew(i,j,k) ) .OR. |
|
./pkg/seaice/seaice_itd_remap.F |
178 |
SEAICE_ITD_REMAP |
& ( AREAITD(i,j,k+1,bi,bj).GT.SEAICE_area_reg .AND. |
|
./pkg/seaice/seaice_itd_remap.F |
179 |
SEAICE_ITD_REMAP |
& hActual(i,j,k+1) .LE. hLimitNew(i,j,k) ) ) |
|
./pkg/seaice/seaice_itd_remap.F |
180 |
SEAICE_ITD_REMAP |
& doRemapping(i,j) = .FALSE. |
|
./pkg/seaice/seaice_itd_remap.F |
184 |
SEAICE_ITD_REMAP |
IF ( ( hLimitNew(i,j,k) .GT. hLimit(k+1) ) .OR. |
|
./pkg/seaice/seaice_itd_remap.F |
185 |
SEAICE_ITD_REMAP |
& ( hLimitNew(i,j,k) .LT. hLimit(k-1) ) ) |
|
./pkg/seaice/seaice_itd_remap.F |
186 |
SEAICE_ITD_REMAP |
& doRemapping(i,j) = .FALSE. |
|
./pkg/seaice/seaice_itd_remap.F |
202 |
SEAICE_ITD_REMAP |
DO i=1,sNx |
|
./pkg/seaice/seaice_itd_remap.F |
203 |
SEAICE_ITD_REMAP |
hLimitNew(i,j,k) = hLimit(k) |
|
./pkg/seaice/seaice_itd_remap.F |
204 |
SEAICE_ITD_REMAP |
IF ( AREAITD(i,j,k,bi,bj).GT.SEAICE_area_reg ) |
|
./pkg/seaice/seaice_itd_remap.F |
205 |
SEAICE_ITD_REMAP |
& hLimitNew(i,j,k) = MAX( 3. _d 0*hActual(i,j,k) |
|
./pkg/seaice/seaice_itd_remap.F |
206 |
SEAICE_ITD_REMAP |
& - 2. _d 0 * hLimitNew(i,j,k-1), hLimit(k-1) ) |
|
./pkg/seaice/seaice_itd_remap.F |
217 |
SEAICE_ITD_REMAP |
DO i=1,sNx |
|
./pkg/seaice/seaice_itd_remap.F |
219 |
SEAICE_ITD_REMAP |
aLoc(i,j) = AREAITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_remap.F |
223 |
SEAICE_ITD_REMAP |
hL(i,j,k) = hLimitNew(i,j,k-1) |
|
./pkg/seaice/seaice_itd_remap.F |
224 |
SEAICE_ITD_REMAP |
hR(i,j,k) = hLimit(k) |
|
./pkg/seaice/seaice_itd_remap.F |
237 |
SEAICE_ITD_REMAP |
DO i=1,sNx |
|
./pkg/seaice/seaice_itd_remap.F |
238 |
SEAICE_ITD_REMAP |
IF ( doRemapping(i,j) .AND. |
|
./pkg/seaice/seaice_itd_remap.F |
239 |
SEAICE_ITD_REMAP |
& AREAITD(i,j,k,bi,bj) .GT. SEAICE_area_reg ) THEN |
|
./pkg/seaice/seaice_itd_remap.F |
241 |
SEAICE_ITD_REMAP |
IF ( dhActual(i,j,k) .LT. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_itd_remap.F |
244 |
SEAICE_ITD_REMAP |
dh0 = MIN(-dhActual(i,j,k),hLimit(k)) |
|
./pkg/seaice/seaice_itd_remap.F |
245 |
SEAICE_ITD_REMAP |
etaMax = MIN(dh0,hR(i,j,k)) - hL(i,j,k) |
|
./pkg/seaice/seaice_itd_remap.F |
248 |
SEAICE_ITD_REMAP |
da0 = g0(i,j,k)*etaMax + g1(i,j,k)*etaMax*etaMax*0.5 _d 0 |
|
./pkg/seaice/seaice_itd_remap.F |
249 |
SEAICE_ITD_REMAP |
daMax = AREAITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_remap.F |
250 |
SEAICE_ITD_REMAP |
& * ( 1. _d 0 - hActual(i,j,k)/hActualPre(i,j,k)) |
|
./pkg/seaice/seaice_itd_remap.F |
253 |
SEAICE_ITD_REMAP |
IF ( (AREAITD(i,j,k,bi,bj)-da0) .GT. SEAICE_area_reg ) THEN |
|
./pkg/seaice/seaice_itd_remap.F |
254 |
SEAICE_ITD_REMAP |
hActual(i,j,k) = hActual(i,j,k) |
|
./pkg/seaice/seaice_itd_remap.F |
255 |
SEAICE_ITD_REMAP |
& * AREAITD(i,j,k,bi,bj)/( AREAITD(i,j,k,bi,bj) - da0 ) |
|
./pkg/seaice/seaice_itd_remap.F |
257 |
SEAICE_ITD_REMAP |
hActual(i,j,k) = ZERO |
|
./pkg/seaice/seaice_itd_remap.F |
258 |
SEAICE_ITD_REMAP |
da0 = AREAITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_remap.F |
261 |
SEAICE_ITD_REMAP |
AREAITD(i,j,k,bi,bj) = AREAITD(i,j,k,bi,bj) - da0 |
|
./pkg/seaice/seaice_itd_remap.F |
265 |
SEAICE_ITD_REMAP |
hLimitNew(i,j,k-1) = MIN( dhActual(i,j,k), hLimit(k) ) |
|
./pkg/seaice/seaice_itd_remap.F |
275 |
SEAICE_ITD_REMAP |
DO i=1,sNx |
|
./pkg/seaice/seaice_itd_remap.F |
277 |
SEAICE_ITD_REMAP |
aLoc(i,j) = AREAITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_remap.F |
279 |
SEAICE_ITD_REMAP |
hL(i,j,k) = hLimitNew(i,j,k-1) |
|
./pkg/seaice/seaice_itd_remap.F |
280 |
SEAICE_ITD_REMAP |
hR(i,j,k) = hLimitNew(i,j,k) |
|
./pkg/seaice/seaice_itd_remap.F |
293 |
SEAICE_ITD_REMAP |
DO i=1,sNx |
|
./pkg/seaice/seaice_itd_remap.F |
296 |
SEAICE_ITD_REMAP |
IF ( doRemapping(i,j) ) THEN |
|
./pkg/seaice/seaice_itd_remap.F |
298 |
SEAICE_ITD_REMAP |
IF ( hLimitNew(i,j,k) .GT. hLimit(k) ) THEN |
|
./pkg/seaice/seaice_itd_remap.F |
299 |
SEAICE_ITD_REMAP |
etaMin = MAX( hLimit(k), hL(i,j,k)) - hL(i,j,k) |
|
./pkg/seaice/seaice_itd_remap.F |
300 |
SEAICE_ITD_REMAP |
etaMax = MIN(hLimitNew(i,j,k), hR(i,j,k)) - hL(i,j,k) |
|
./pkg/seaice/seaice_itd_remap.F |
305 |
SEAICE_ITD_REMAP |
etaMax = MIN(hLimit(k), hR(i,j,k+1)) - hL(i,j,k+1) |
|
./pkg/seaice/seaice_itd_remap.F |
314 |
SEAICE_ITD_REMAP |
darea = g0(i,j,kDonor)*etam + g1(i,j,kDonor)*eta2 |
|
./pkg/seaice/seaice_itd_remap.F |
318 |
SEAICE_ITD_REMAP |
dheff = g0(i,j,kDonor)*eta2 |
|
./pkg/seaice/seaice_itd_remap.F |
319 |
SEAICE_ITD_REMAP |
& + g1(i,j,kDonor)*(etaMax**3-etaMin**3)*third |
|
./pkg/seaice/seaice_itd_remap.F |
320 |
SEAICE_ITD_REMAP |
& + darea*hL(i,j,kDonor) |
|
./pkg/seaice/seaice_itd_remap.F |
325 |
SEAICE_ITD_REMAP |
IF ( (darea .GT.AREAITD(i,j,kDonor,bi,bj)-SEAICE_eps).OR. |
|
./pkg/seaice/seaice_itd_remap.F |
326 |
SEAICE_ITD_REMAP |
& (dheff .GT.HEFFITD(i,j,kDonor,bi,bj)-SEAICE_eps) ) THEN |
|
./pkg/seaice/seaice_itd_remap.F |
327 |
SEAICE_ITD_REMAP |
darea = AREAITD(i,j,kDonor,bi,bj) |
|
./pkg/seaice/seaice_itd_remap.F |
328 |
SEAICE_ITD_REMAP |
dheff = HEFFITD(i,j,kDonor,bi,bj) |
|
./pkg/seaice/seaice_itd_remap.F |
339 |
SEAICE_ITD_REMAP |
IF ( AREAITD(i,j,kDonor,bi,bj) .GT. SEAICE_area_reg ) THEN |
|
./pkg/seaice/seaice_itd_remap.F |
341 |
SEAICE_ITD_REMAP |
dhsnw = darea/AREAITD(i,j,kDonor,bi,bj) |
|
./pkg/seaice/seaice_itd_remap.F |
342 |
SEAICE_ITD_REMAP |
& * HSNOWITD(i,j,kDonor,bi,bj) |
|
./pkg/seaice/seaice_itd_remap.F |
347 |
SEAICE_ITD_REMAP |
dhsnw = HSNOWITD(i,j,kDonor,bi,bj) |
|
./pkg/seaice/seaice_itd_remap.F |
350 |
SEAICE_ITD_REMAP |
HEFFITD(i,j,kRecvr,bi,bj) = HEFFITD(i,j,kRecvr,bi,bj) + dheff |
|
./pkg/seaice/seaice_itd_remap.F |
351 |
SEAICE_ITD_REMAP |
HEFFITD(i,j,kDonor,bi,bj) = HEFFITD(i,j,kDonor,bi,bj) - dheff |
|
./pkg/seaice/seaice_itd_remap.F |
352 |
SEAICE_ITD_REMAP |
AREAITD(i,j,kRecvr,bi,bj) = AREAITD(i,j,kRecvr,bi,bj) + darea |
|
./pkg/seaice/seaice_itd_remap.F |
353 |
SEAICE_ITD_REMAP |
AREAITD(i,j,kDonor,bi,bj) = AREAITD(i,j,kDonor,bi,bj) - darea |
|
./pkg/seaice/seaice_itd_remap.F |
354 |
SEAICE_ITD_REMAP |
HSNOWITD(i,j,kRecvr,bi,bj)=HSNOWITD(i,j,kRecvr,bi,bj) + dhsnw |
|
./pkg/seaice/seaice_itd_remap.F |
355 |
SEAICE_ITD_REMAP |
HSNOWITD(i,j,kDonor,bi,bj)=HSNOWITD(i,j,kDonor,bi,bj) - dhsnw |
|
./pkg/seaice/seaice_itd_remap.F |
429 |
SEAICE_ITD_REMAP_LINEAR |
INTEGER i, j |
|
./pkg/seaice/seaice_itd_remap.F |
443 |
SEAICE_ITD_REMAP_LINEAR |
DO i=1,sNx |
|
./pkg/seaice/seaice_itd_remap.F |
444 |
SEAICE_ITD_REMAP_LINEAR |
g0(i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_itd_remap.F |
445 |
SEAICE_ITD_REMAP_LINEAR |
g1(i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_itd_remap.F |
446 |
SEAICE_ITD_REMAP_LINEAR |
IF ( doRemapping(i,j) .AND. |
|
./pkg/seaice/seaice_itd_remap.F |
447 |
SEAICE_ITD_REMAP_LINEAR |
& area(i,j) .GT. SEAICE_area_reg .AND. |
|
./pkg/seaice/seaice_itd_remap.F |
448 |
SEAICE_ITD_REMAP_LINEAR |
& hR(i,j) - hL(i,j) .GT. SEAICE_eps ) THEN |
|
./pkg/seaice/seaice_itd_remap.F |
450 |
SEAICE_ITD_REMAP_LINEAR |
IF ( hActual(i,j) .LT. (2. _d 0*hL(i,j) + hR(i,j))*third ) THEN |
|
./pkg/seaice/seaice_itd_remap.F |
451 |
SEAICE_ITD_REMAP_LINEAR |
hR(i,j) = 3. _d 0 * hActual(i,j) - 2. _d 0 * hL(i,j) |
|
./pkg/seaice/seaice_itd_remap.F |
452 |
SEAICE_ITD_REMAP_LINEAR |
ELSEIF ( hActual(i,j).GT.(hL(i,j)+2. _d 0*hR(i,j))*third ) THEN |
|
./pkg/seaice/seaice_itd_remap.F |
453 |
SEAICE_ITD_REMAP_LINEAR |
hL(i,j) = 3. _d 0 * hActual(i,j) - 2. _d 0 * hR(i,j) |
|
./pkg/seaice/seaice_itd_remap.F |
460 |
SEAICE_ITD_REMAP_LINEAR |
IF ( hR(i,j) - hL(i,j) .GT. SEAICE_eps ) |
|
./pkg/seaice/seaice_itd_remap.F |
461 |
SEAICE_ITD_REMAP_LINEAR |
& recip_etaR = 1. _d 0 / (hR(i,j) - hL(i,j)) |
|
./pkg/seaice/seaice_itd_remap.F |
463 |
SEAICE_ITD_REMAP_LINEAR |
etaNoR = (hActual(i,j) - hL(i,j))*recip_etaR |
|
./pkg/seaice/seaice_itd_remap.F |
464 |
SEAICE_ITD_REMAP_LINEAR |
auxCoeff = 6. _d 0 * area(i,j)*recip_etaR |
|
./pkg/seaice/seaice_itd_remap.F |
466 |
SEAICE_ITD_REMAP_LINEAR |
g0(i,j) = auxCoeff*( sixth - etaNoR ) |
|
./pkg/seaice/seaice_itd_remap.F |
467 |
SEAICE_ITD_REMAP_LINEAR |
g1(i,j) = 2. _d 0 * auxCoeff*recip_etaR*( etaNoR - 0.5 _d 0 ) |
|
./pkg/seaice/seaice_itd_remap.F |
471 |
SEAICE_ITD_REMAP_LINEAR |
hL(i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_itd_remap.F |
472 |
SEAICE_ITD_REMAP_LINEAR |
hR(i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_itd_remap.F |
533 |
SEAICE_ITD_REMAP_CHECK_BOUNDS |
INTEGER i, j, k |
|
./pkg/seaice/seaice_itd_remap.F |
539 |
SEAICE_ITD_REMAP_CHECK_BOUNDS |
DO i=1,sNx |
|
./pkg/seaice/seaice_itd_remap.F |
540 |
SEAICE_ITD_REMAP_CHECK_BOUNDS |
IF (.NOT.doRemapping(i,j) ) THEN |
|
./pkg/seaice/seaice_itd_remap.F |
543 |
SEAICE_ITD_REMAP_CHECK_BOUNDS |
& ' at (', i, j, ') in timestep ', myIter |
|
./pkg/seaice/seaice_itd_remap.F |
544 |
SEAICE_ITD_REMAP_CHECK_BOUNDS |
IF ( AREAITD(i,j,k,bi,bj).GT.SEAICE_area_reg .AND. |
|
./pkg/seaice/seaice_itd_remap.F |
545 |
SEAICE_ITD_REMAP_CHECK_BOUNDS |
& hActual(i,j,k) .GE. hLimitNew(i,j,k) ) THEN |
|
./pkg/seaice/seaice_itd_remap.F |
554 |
SEAICE_ITD_REMAP_CHECK_BOUNDS |
IF ( AREAITD(i,j,k+1,bi,bj).GT.SEAICE_area_reg .AND. |
|
./pkg/seaice/seaice_itd_remap.F |
555 |
SEAICE_ITD_REMAP_CHECK_BOUNDS |
& hActual(i,j,k+1) .LE. hLimitNew(i,j,k) ) THEN |
|
./pkg/seaice/seaice_itd_remap.F |
562 |
SEAICE_ITD_REMAP_CHECK_BOUNDS |
& AREAITD(i,j,k+1,bi,bj), hActual(i,j,k+1), |
|
./pkg/seaice/seaice_itd_remap.F |
563 |
SEAICE_ITD_REMAP_CHECK_BOUNDS |
& hActualPre(i,j,k+1), |
|
./pkg/seaice/seaice_itd_remap.F |
564 |
SEAICE_ITD_REMAP_CHECK_BOUNDS |
& AREAITD(i,j,k,bi,bj), hActual(i,j,k), |
|
./pkg/seaice/seaice_itd_remap.F |
565 |
SEAICE_ITD_REMAP_CHECK_BOUNDS |
& hActualPre(i,j,k), |
|
./pkg/seaice/seaice_itd_remap.F |
566 |
SEAICE_ITD_REMAP_CHECK_BOUNDS |
& hLimitNew(i,j,k), hLimit(k) |
|
./pkg/seaice/seaice_itd_remap.F |
568 |
SEAICE_ITD_REMAP_CHECK_BOUNDS |
IF ( hLimitNew(i,j,k) .GT. hLimit(k+1) ) THEN |
|
./pkg/seaice/seaice_itd_remap.F |
575 |
SEAICE_ITD_REMAP_CHECK_BOUNDS |
IF ( hLimitNew(i,j,k) .LT. hLimit(k-1) ) THEN |
|
./pkg/seaice/seaice_itd_remap.F |
75 |
SEAICE_ITD_REMAP |
INTEGER i, j, k |
|
./pkg/seaice/seaice_itd_sum.F |
67 |
SEAICE_ITD_SUM |
INTEGER i, j, k |
|
./pkg/seaice/seaice_itd_sum.F |
82 |
SEAICE_ITD_SUM |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_itd_sum.F |
83 |
SEAICE_ITD_SUM |
AREA (i,j,bi,bj)=AREAITD (i,j,1,bi,bj) |
|
./pkg/seaice/seaice_itd_sum.F |
84 |
SEAICE_ITD_SUM |
HEFF (i,j,bi,bj)=HEFFITD (i,j,1,bi,bj) |
|
./pkg/seaice/seaice_itd_sum.F |
85 |
SEAICE_ITD_SUM |
HSNOW(i,j,bi,bj)=HSNOWITD(i,j,1,bi,bj) |
|
./pkg/seaice/seaice_itd_sum.F |
91 |
SEAICE_ITD_SUM |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_itd_sum.F |
92 |
SEAICE_ITD_SUM |
AREA (i,j,bi,bj) = AREA (i,j,bi,bj) + AREAITD (i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_sum.F |
93 |
SEAICE_ITD_SUM |
HEFF (i,j,bi,bj) = HEFF (i,j,bi,bj) + HEFFITD (i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_sum.F |
94 |
SEAICE_ITD_SUM |
HSNOW(i,j,bi,bj) = HSNOW(i,j,bi,bj) + HSNOWITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_jacvec.F |
68 |
SEAICE_JACVEC |
INTEGER i,j,bi,bj |
|
./pkg/seaice/seaice_jfnk.F |
199 |
SEAICE_JFNK |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_jfnk.F |
528 |
SEAICE_JFNK_UPDATE |
INTEGER i,j,bi,bj |
|
./pkg/seaice/seaice_jfnk.F |
67 |
SEAICE_JFNK |
INTEGER i,j,bi,bj |
|
./model/src/ini_cg2d.F |
101 |
INI_CG2D |
DO i=1,sNx |
|
./model/src/ini_cg2d.F |
103 |
INI_CG2D |
faceArea = _dyG(i,j,bi,bj)*drF(k) |
|
./model/src/ini_cg2d.F |
104 |
INI_CG2D |
& *_hFacW(i,j,k,bi,bj) |
|
./model/src/ini_cg2d.F |
105 |
INI_CG2D |
aW2d(i,j,bi,bj) = aW2d(i,j,bi,bj) |
|
./model/src/ini_cg2d.F |
107 |
INI_CG2D |
& *faceArea*recip_dxC(i,j,bi,bj) |
|
./model/src/ini_cg2d.F |
108 |
INI_CG2D |
faceArea = _dxG(i,j,bi,bj)*drF(k) |
|
./model/src/ini_cg2d.F |
109 |
INI_CG2D |
& *_hFacS(i,j,k,bi,bj) |
|
./model/src/ini_cg2d.F |
110 |
INI_CG2D |
aS2d(i,j,bi,bj) = aS2d(i,j,bi,bj) |
|
./model/src/ini_cg2d.F |
112 |
INI_CG2D |
& *faceArea*recip_dyC(i,j,bi,bj) |
|
./model/src/ini_cg2d.F |
117 |
INI_CG2D |
DO i=1,sNx |
|
./model/src/ini_cg2d.F |
119 |
INI_CG2D |
aW2d(i,j,bi,bj) = aW2d(i,j,bi,bj) |
|
./model/src/ini_cg2d.F |
120 |
INI_CG2D |
& *maskInC(i,j,bi,bj)*maskInC(i-1,j,bi,bj) |
|
./model/src/ini_cg2d.F |
121 |
INI_CG2D |
aS2d(i,j,bi,bj) = aS2d(i,j,bi,bj) |
|
./model/src/ini_cg2d.F |
122 |
INI_CG2D |
& *maskInC(i,j,bi,bj)*maskInC(i,j-1,bi,bj) |
|
./model/src/ini_cg2d.F |
124 |
INI_CG2D |
myNorm = MAX(ABS(aW2d(i,j,bi,bj)),myNorm) |
|
./model/src/ini_cg2d.F |
125 |
INI_CG2D |
myNorm = MAX(ABS(aS2d(i,j,bi,bj)),myNorm) |
|
./model/src/ini_cg2d.F |
139 |
INI_CG2D |
DO i=1,sNx |
|
./model/src/ini_cg2d.F |
140 |
INI_CG2D |
aW2d(i,j,bi,bj) = aW2d(i,j,bi,bj)*myNorm |
|
./model/src/ini_cg2d.F |
141 |
INI_CG2D |
aS2d(i,j,bi,bj) = aS2d(i,j,bi,bj)*myNorm |
|
./model/src/ini_cg2d.F |
206 |
INI_CG2D |
DO i=0,sNx+1 |
|
./model/src/ini_cg2d.F |
207 |
INI_CG2D |
ks = ksurfC(i,j,bi,bj) |
|
./model/src/ini_cg2d.F |
208 |
INI_CG2D |
aC2d(i,j,bi,bj) = -( |
|
./model/src/ini_cg2d.F |
209 |
INI_CG2D |
& aW2d(i,j,bi,bj) + aW2d(i+1,j, bi,bj) |
|
./model/src/ini_cg2d.F |
210 |
INI_CG2D |
& +aS2d(i,j,bi,bj) + aS2d( i,j+1,bi,bj) |
|
./model/src/ini_cg2d.F |
211 |
INI_CG2D |
& +freeSurfFac*myNorm*recip_Bo(i,j,bi,bj)*deepFac2F(ks) |
|
./model/src/ini_cg2d.F |
212 |
INI_CG2D |
& *rA(i,j,bi,bj)/deltaTMom/deltaTfreesurf |
|
./model/src/ini_cg2d.F |
217 |
INI_CG2D |
DO i=1,sNx |
|
./model/src/ini_cg2d.F |
218 |
INI_CG2D |
aC = aC2d( i, j, bi,bj) |
|
./model/src/ini_cg2d.F |
219 |
INI_CG2D |
aCs = aC2d( i,j-1,bi,bj) |
|
./model/src/ini_cg2d.F |
220 |
INI_CG2D |
aCw = aC2d(i-1,j, bi,bj) |
|
./model/src/ini_cg2d.F |
222 |
INI_CG2D |
pC(i,j,bi,bj) = 1. _d 0 |
|
./model/src/ini_cg2d.F |
224 |
INI_CG2D |
pC(i,j,bi,bj) = 1. _d 0 / aC |
|
./model/src/ini_cg2d.F |
227 |
INI_CG2D |
pW(i,j,bi,bj) = 0. |
|
./model/src/ini_cg2d.F |
229 |
INI_CG2D |
pW(i,j,bi,bj) = |
|
./model/src/ini_cg2d.F |
230 |
INI_CG2D |
& -aW2d(i,j,bi,bj)/((cg2dpcOffDFac *(aCw+aC))**2 ) |
|
./model/src/ini_cg2d.F |
233 |
INI_CG2D |
pS(i,j,bi,bj) = 0. |
|
./model/src/ini_cg2d.F |
235 |
INI_CG2D |
pS(i,j,bi,bj) = |
|
./model/src/ini_cg2d.F |
236 |
INI_CG2D |
& -aS2d(i,j,bi,bj)/((cg2dpcOffDFac *(aCs+aC))**2 ) |
|
./model/src/ini_cg2d.F |
45 |
INI_CG2D |
INTEGER i, j, k, ks |
|
./model/src/ini_cg2d.F |
56 |
INI_CG2D |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_cg2d.F |
57 |
INI_CG2D |
aW2d(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_cg2d.F |
58 |
INI_CG2D |
aS2d(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_cg2d.F |
59 |
INI_CG2D |
aC2d(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_cg2d.F |
60 |
INI_CG2D |
pW(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_cg2d.F |
61 |
INI_CG2D |
pS(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_cg2d.F |
62 |
INI_CG2D |
pC(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_cg2d.F |
66 |
INI_CG2D |
DO i=1-1,sNx+1 |
|
./model/src/ini_cg2d.F |
67 |
INI_CG2D |
cg2d_q(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_cg2d.F |
68 |
INI_CG2D |
cg2d_r(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_cg2d.F |
69 |
INI_CG2D |
cg2d_s(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_cg2d.F |
71 |
INI_CG2D |
cg2d_z(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_cg2d.F |
74 |
INI_CG2D |
cg2d_y(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_cg2d.F |
75 |
INI_CG2D |
cg2d_v(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_cg2d.F |
94 |
INI_CG2D |
DO i=1,sNx |
|
./model/src/ini_cg2d.F |
95 |
INI_CG2D |
aW2d(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_cg2d.F |
96 |
INI_CG2D |
aS2d(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_krylov.F |
192 |
SEAICE_KRYLOV |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_krylov.F |
308 |
SEAICE_KRYLOV |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_krylov.F |
309 |
SEAICE_KRYLOV |
uWork(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_krylov.F |
310 |
SEAICE_KRYLOV |
vWork(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_krylov.F |
363 |
SEAICE_KRYLOV |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_krylov.F |
364 |
SEAICE_KRYLOV |
uWork(i,j,bi,bj) = uIceLHS(i,j,bi,bj) |
|
./pkg/seaice/seaice_krylov.F |
365 |
SEAICE_KRYLOV |
vWork(i,j,bi,bj) = vIceLHS(i,j,bi,bj) |
|
./pkg/seaice/seaice_krylov.F |
58 |
SEAICE_KRYLOV |
INTEGER i,j,bi,bj |
|
./pkg/seaice/seaice_lsr.F |
1074 |
SEAICE_RESIDUAL |
INTEGER i, j, bi, bj |
|
./pkg/seaice/seaice_lsr.F |
1084 |
SEAICE_RESIDUAL |
DO i=1,sNx |
|
./pkg/seaice/seaice_lsr.F |
1085 |
SEAICE_RESIDUAL |
uRes(i,j,bi,bj) = rhsU(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1086 |
SEAICE_RESIDUAL |
& + uRt1(i,j,bi,bj)*uFld(i,j-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1087 |
SEAICE_RESIDUAL |
& + uRt2(i,j,bi,bj)*uFld(i,j+1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1088 |
SEAICE_RESIDUAL |
& - ( AU(i,j,bi,bj)*uFld(i-1,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1089 |
SEAICE_RESIDUAL |
& + BU(i,j,bi,bj)*uFld( i ,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1090 |
SEAICE_RESIDUAL |
& + CU(i,j,bi,bj)*uFld(i+1,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1092 |
SEAICE_RESIDUAL |
vRes(i,j,bi,bj) = rhsV(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1093 |
SEAICE_RESIDUAL |
& + vRt1(i,j,bi,bj)*vFld(i-1,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1094 |
SEAICE_RESIDUAL |
& + vRt2(i,j,bi,bj)*vFld(i+1,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1095 |
SEAICE_RESIDUAL |
& - ( AV(i,j,bi,bj)*vFld(i,j-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1096 |
SEAICE_RESIDUAL |
& + BV(i,j,bi,bj)*vFld(i, j ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1097 |
SEAICE_RESIDUAL |
& + CV(i,j,bi,bj)*vFld(i,j+1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1103 |
SEAICE_RESIDUAL |
DO i=1,sNx |
|
./pkg/seaice/seaice_lsr.F |
1104 |
SEAICE_RESIDUAL |
residU = residU + uRes(i,j,bi,bj)*uRes(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1105 |
SEAICE_RESIDUAL |
& *rAw(i,j,bi,bj)*maskInW(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1107 |
SEAICE_RESIDUAL |
& *maskInC(i,j,bi,bj)*maskInC(i-1,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1109 |
SEAICE_RESIDUAL |
residV = residV + vRes(i,j,bi,bj)*vRes(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1110 |
SEAICE_RESIDUAL |
& *rAs(i,j,bi,bj)*maskInS(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1112 |
SEAICE_RESIDUAL |
& *maskInC(i,j,bi,bj)*maskInC(i,j-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1203 |
SEAICE_LSR_CALC_COEFFS |
INTEGER i, j, bi, bj |
|
./pkg/seaice/seaice_lsr.F |
1400 |
SEAICE_LSR_CALC_COEFFS |
hFacM = seaiceMaskV(i-1,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1401 |
SEAICE_LSR_CALC_COEFFS |
hFacP = seaiceMaskV(i+1,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1661 |
SEAICE_LSR_RHSV |
hFacM = seaiceMaskU(i,j,bi,bj) - seaiceMaskU(i,j-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1686 |
SEAICE_LSR_RHSV |
hFacM = seaiceMaskU(i,j,bi,bj) - seaiceMaskU(i,j-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
182 |
SEAICE_LSR |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_lsr.F |
183 |
SEAICE_LSR |
deltaC (i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
184 |
SEAICE_LSR |
press (i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
185 |
SEAICE_LSR |
zeta (i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
186 |
SEAICE_LSR |
zetaZ (i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
187 |
SEAICE_LSR |
eta (i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
188 |
SEAICE_LSR |
etaZ (i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
189 |
SEAICE_LSR |
uIceC (i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
190 |
SEAICE_LSR |
vIceC (i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
191 |
SEAICE_LSR |
uIceNm1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
192 |
SEAICE_LSR |
vIceNm1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
203 |
SEAICE_LSR |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_lsr.F |
276 |
SEAICE_LSR |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_lsr.F |
290 |
SEAICE_LSR |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_lsr.F |
291 |
SEAICE_LSR |
uIce (I,J,bi,bj)=HALF*(uIce(I,J,bi,bj)+uIceNm1(i,j,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
292 |
SEAICE_LSR |
vIce (I,J,bi,bj)=HALF*(vIce(I,J,bi,bj)+vIceNm1(i,j,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
305 |
SEAICE_LSR |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_lsr.F |
306 |
SEAICE_LSR |
uIceNm1(i,j,bi,bj)=uIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
307 |
SEAICE_LSR |
vIceNm1(i,j,bi,bj)=vIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
405 |
SEAICE_LSR |
DO i=iMin,iMax |
|
./pkg/seaice/seaice_lsr.F |
409 |
SEAICE_LSR |
& *0.5 _d 0*( vIceC( i ,j,bi,bj)+vIceC( i ,j+1,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
411 |
SEAICE_LSR |
& *0.5 _d 0*( vIceC(i-1,j,bi,bj)+vIceC(i-1,j+1,bi,bj) ) ) |
|
./pkg/seaice/seaice_lsr.F |
414 |
SEAICE_LSR |
& *0.5 _d 0*( uIceC(i ,j ,bi,bj)+uIceC(i+1, j,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
416 |
SEAICE_LSR |
& *0.5 _d 0*( uIceC(i ,j-1,bi,bj)+uIceC(i+1,j-1,bi,bj) ) ) |
|
./pkg/seaice/seaice_lsr.F |
421 |
SEAICE_LSR |
DO i=iMin,iMax |
|
./pkg/seaice/seaice_lsr.F |
424 |
SEAICE_LSR |
& *uIceNm1(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
427 |
SEAICE_LSR |
& *vIceNm1(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
437 |
SEAICE_LSR |
DO i=iMin,iMax |
|
./pkg/seaice/seaice_lsr.F |
450 |
SEAICE_LSR |
DO i=iMin,iMax |
|
./pkg/seaice/seaice_lsr.F |
502 |
SEAICE_LSR |
IF ( maskInC(i,j,bi,bj)*maskInC(i-1,j,bi,bj) .EQ. 0. ) THEN |
|
./pkg/seaice/seaice_lsr.F |
510 |
SEAICE_LSR |
IF ( maskInC(i,j,bi,bj)*maskInC(i,j-1,bi,bj) .EQ. 0. ) THEN |
|
./pkg/seaice/seaice_lsr.F |
551 |
SEAICE_LSR |
DO i=iMin,iMax |
|
./pkg/seaice/seaice_lsr.F |
552 |
SEAICE_LSR |
uIce_fd(i,j,bi,bj) = FORCEX(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
553 |
SEAICE_LSR |
& / ( 1. _d 0 - seaiceMaskU(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
554 |
SEAICE_LSR |
& + seaiceMassU(i,j,bi,bj)*recip_deltaT |
|
./pkg/seaice/seaice_lsr.F |
555 |
SEAICE_LSR |
& + HALF*( dragSym(i,j,bi,bj) + dragSym(i-1,j,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
556 |
SEAICE_LSR |
& * areaW(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
558 |
SEAICE_LSR |
vIce_fd(i,j,bi,bj) = FORCEY(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
559 |
SEAICE_LSR |
& / ( 1. _d 0 - seaiceMaskV(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
560 |
SEAICE_LSR |
& + seaiceMassV(i,j,bi,bj)*recip_deltaT |
|
./pkg/seaice/seaice_lsr.F |
561 |
SEAICE_LSR |
& + HALF*( dragSym(i,j,bi,bj) + dragSym(i,j-1,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
562 |
SEAICE_LSR |
& * areaS(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
587 |
SEAICE_LSR |
DO i=iMin,iMax |
|
./pkg/seaice/seaice_lsr.F |
588 |
SEAICE_LSR |
errIni = uTmp(i,j,bi,bj)*uTmp(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
589 |
SEAICE_LSR |
errFD = uRes(i,j,bi,bj)*uRes(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
595 |
SEAICE_LSR |
& *maskInC(i,j,bi,bj)*maskInC(i-1,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
597 |
SEAICE_LSR |
uIce(i,j,bi,bj) = ( errFD *uIce(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
598 |
SEAICE_LSR |
& + errIni*uIce_fd(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
601 |
SEAICE_LSR |
errIni = vTmp(i,j,bi,bj)*vTmp(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
602 |
SEAICE_LSR |
errFD = vRes(i,j,bi,bj)*vRes(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
608 |
SEAICE_LSR |
& *maskInC(i,j,bi,bj)*maskInC(i,j-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
610 |
SEAICE_LSR |
vIce(i,j,bi,bj) = ( errFD *vIce(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
611 |
SEAICE_LSR |
& + errIni*vIce_fd(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
700 |
SEAICE_LSR |
DO i=iMin,iMax |
|
./pkg/seaice/seaice_lsr.F |
701 |
SEAICE_LSR |
uTmp(i,j,bi,bj) = uIce(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
702 |
SEAICE_LSR |
rhsUx(i,j,bi,bj) = ( rhsU(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
703 |
SEAICE_LSR |
& + uRt1(i,j,bi,bj)*uIce(i,j-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
704 |
SEAICE_LSR |
& + uRt2(i,j,bi,bj)*uIce(i,j+1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
705 |
SEAICE_LSR |
& )*seaiceMaskU(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
711 |
SEAICE_LSR |
DO i=iMin,iMax |
|
./pkg/seaice/seaice_lsr.F |
712 |
SEAICE_LSR |
vTmp(i,j,bi,bj) = vIce(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
713 |
SEAICE_LSR |
rhsVy(i,j,bi,bj) = ( rhsV(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
714 |
SEAICE_LSR |
& + vRt1(i,j,bi,bj)*vIce(i-1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
715 |
SEAICE_LSR |
& + vRt2(i,j,bi,bj)*vIce(i+1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
716 |
SEAICE_LSR |
& )*seaiceMaskU(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
736 |
SEAICE_LSR |
DO i=iMin,iMax |
|
./pkg/seaice/seaice_lsr.F |
737 |
SEAICE_LSR |
uIce(i,j,bi,bj) = uTmp(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
738 |
SEAICE_LSR |
& + WFAU*( uIce(i,j,bi,bj)-uTmp(i,j,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
744 |
SEAICE_LSR |
DO i=iMin,iMax |
|
./pkg/seaice/seaice_lsr.F |
745 |
SEAICE_LSR |
vIce(i,j,bi,bj) = vTmp(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
746 |
SEAICE_LSR |
& + WFAV*( vIce(i,j,bi,bj)-vTmp(i,j,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
777 |
SEAICE_LSR |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_lsr.F |
83 |
SEAICE_LSR |
INTEGER i, j, m, bi, bj |
|
./pkg/seaice/seaice_lsr.F |
942 |
SEAICE_LSR |
DO i=1,sNx |
|
./pkg/seaice/seaice_lsr.F |
944 |
SEAICE_LSR |
& ( ( (uIceNm1(i,j,bi,bj)+uIceNm1(i+1,j,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
945 |
SEAICE_LSR |
& - (uIce(i,j,bi,bj)+uIce(i+1,j,bi,bj)) )**2 |
|
./pkg/seaice/seaice_lsr.F |
946 |
SEAICE_LSR |
& + ( (vIceNm1(i,j,bi,bj)+vIceNm1(i,j+1,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
947 |
SEAICE_LSR |
& - (vIce(i,j,bi,bj)+vIce(i,j+1,bi,bj)) )**2 ) |
|
./pkg/seaice/seaice_lsr.F |
948 |
SEAICE_LSR |
IF ( area(i,j,bi,bj) .gt. 0.5 _d 0 ) THEN |
|
./pkg/seaice/seaice_lsr.F |
949 |
SEAICE_LSR |
EKnorm = EKnorm + 0.5 _d 0 * heff(i,j,bi,bj) * |
|
./pkg/seaice/seaice_lsr.F |
950 |
SEAICE_LSR |
& ( ( (uIce(i,j,bi,bj)+uIce(i+1,j,bi,bj)) )**2 |
|
./pkg/seaice/seaice_lsr.F |
951 |
SEAICE_LSR |
& + ( (vIce(i,j,bi,bj)+vIce(i,j+1,bi,bj)) )**2 ) |
|
./pkg/seaice/seaice_map_thsice.F |
49 |
SEAICE_MAP_THSICE |
INTEGER i, j, bi, bj |
|
./pkg/seaice/seaice_map_thsice.F |
59 |
SEAICE_MAP_THSICE |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_map_thsice.F |
60 |
SEAICE_MAP_THSICE |
AREA(i,j,bi,bj) = iceMask(i,j,bi,bj) |
|
./pkg/seaice/seaice_map_thsice.F |
61 |
SEAICE_MAP_THSICE |
HEFF(i,j,bi,bj) = iceMask(i,j,bi,bj)*iceHeight(i,j,bi,bj) |
|
./pkg/seaice/seaice_model.F |
62 |
SEAICE_MODEL |
INTEGER i, j |
|
./pkg/seaice/seaice_model.F |
90 |
SEAICE_MODEL |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_model.F |
91 |
SEAICE_MODEL |
uIceNm1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_model.F |
92 |
SEAICE_MODEL |
vIceNm1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_model.F |
95 |
SEAICE_MODEL |
SItrBucket(i,j,bi,bj,iTr) = 0. _d 0 |
|
./pkg/seaice/seaice_mom_advection.F |
116 |
SEAICE_MOM_ADVECTION |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_mom_advection.F |
117 |
SEAICE_MOM_ADVECTION |
uCf(i,j) = 0. |
|
./pkg/seaice/seaice_mom_advection.F |
118 |
SEAICE_MOM_ADVECTION |
vCf(i,j) = 0. |
|
./pkg/seaice/seaice_mom_advection.F |
119 |
SEAICE_MOM_ADVECTION |
gU(i,j) = 0. |
|
./pkg/seaice/seaice_mom_advection.F |
120 |
SEAICE_MOM_ADVECTION |
gV(i,j) = 0. |
|
./pkg/seaice/seaice_mom_advection.F |
121 |
SEAICE_MOM_ADVECTION |
vort3(i,j) = 0. |
|
./pkg/seaice/seaice_mom_advection.F |
122 |
SEAICE_MOM_ADVECTION |
KE(i,j) = 0. |
|
./pkg/seaice/seaice_mom_advection.F |
124 |
SEAICE_MOM_ADVECTION |
hFacZ(i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_mom_advection.F |
135 |
SEAICE_MOM_ADVECTION |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_mom_advection.F |
136 |
SEAICE_MOM_ADVECTION |
uFld(i,j) = uIceLoc(i,j,bi,bj) |
|
./pkg/seaice/seaice_mom_advection.F |
137 |
SEAICE_MOM_ADVECTION |
vFld(i,j) = vIceLoc(i,j,bi,bj) |
|
./pkg/seaice/seaice_mom_advection.F |
196 |
SEAICE_MOM_ADVECTION |
DO i=iMin,iMax |
|
./pkg/seaice/seaice_mom_advection.F |
197 |
SEAICE_MOM_ADVECTION |
gU(i,j) = gU(i,j)+uCf(i,j) |
|
./pkg/seaice/seaice_mom_advection.F |
213 |
SEAICE_MOM_ADVECTION |
DO i=iMin,iMax |
|
./pkg/seaice/seaice_mom_advection.F |
214 |
SEAICE_MOM_ADVECTION |
gV(i,j) = gV(i,j)+vCf(i,j) |
|
./pkg/seaice/seaice_mom_advection.F |
235 |
SEAICE_MOM_ADVECTION |
DO i=iMin,iMax |
|
./pkg/seaice/seaice_mom_advection.F |
236 |
SEAICE_MOM_ADVECTION |
gU(i,j) = gU(i,j)+uCf(i,j) |
|
./pkg/seaice/seaice_mom_advection.F |
241 |
SEAICE_MOM_ADVECTION |
DO i=iMin,iMax |
|
./pkg/seaice/seaice_mom_advection.F |
242 |
SEAICE_MOM_ADVECTION |
gV(i,j) = gV(i,j)+vCf(i,j) |
|
./pkg/seaice/seaice_mom_advection.F |
255 |
SEAICE_MOM_ADVECTION |
DO i=iMin,iMax |
|
./pkg/seaice/seaice_mom_advection.F |
256 |
SEAICE_MOM_ADVECTION |
gU(i,j) = gU(i,j)*maskInW(i,j,bi,bj) |
|
./pkg/seaice/seaice_mom_advection.F |
257 |
SEAICE_MOM_ADVECTION |
gV(i,j) = gV(i,j)*maskInS(i,j,bi,bj) |
|
./pkg/seaice/seaice_mom_advection.F |
79 |
SEAICE_MOM_ADVECTION |
INTEGER i,j,k |
|
./pkg/seaice/seaice_monitor.F |
51 |
SEAICE_MONITOR |
INTEGER i |
|
./pkg/seaice/seaice_monitor.F |
70 |
SEAICE_MONITOR |
DO i = 1,MAX_LEN_MBUF |
|
./pkg/seaice/seaice_monitor.F |
71 |
SEAICE_MONITOR |
mon_fname(i:i) = ' ' |
|
./pkg/seaice/seaice_monitor_ad.F |
60 |
ADSEAICE_MONITOR |
INTEGER i |
|
./pkg/seaice/seaice_monitor_ad.F |
79 |
ADSEAICE_MONITOR |
DO i = 1,MAX_LEN_MBUF |
|
./pkg/seaice/seaice_monitor_ad.F |
80 |
ADSEAICE_MONITOR |
mon_fname(i:i) = ' ' |
|
./pkg/seaice/seaice_ocean_stress.F |
41 |
SEAICE_OCEAN_STRESS |
INTEGER i, j, bi, bj |
|
./pkg/seaice/seaice_ocean_stress.F |
94 |
SEAICE_OCEAN_STRESS |
DO i=1,sNx |
|
./model/src/ini_cg3d.F |
110 |
INI_CG3D |
DO i=1,sNx+1 |
|
./model/src/ini_cg3d.F |
111 |
INI_CG3D |
faceArea = _dyG(i,j,bi,bj)*drF(k) |
|
./model/src/ini_cg3d.F |
112 |
INI_CG3D |
& *_hFacW(i,j,k,bi,bj) |
|
./model/src/ini_cg3d.F |
114 |
INI_CG3D |
& *maskInC(i,j,bi,bj)*maskInC(i-1,j,bi,bj) |
|
./model/src/ini_cg3d.F |
116 |
INI_CG3D |
aW3d(i,j,k,bi,bj) = faceArea*recip_dxC(i,j,bi,bj) |
|
./model/src/ini_cg3d.F |
118 |
INI_CG3D |
myNorm = MAX(ABS(aW3d(i,j,k,bi,bj)),myNorm) |
|
./model/src/ini_cg3d.F |
123 |
INI_CG3D |
DO i=1,sNx |
|
./model/src/ini_cg3d.F |
124 |
INI_CG3D |
faceArea = _dxG(i,j,bi,bj)*drF(K) |
|
./model/src/ini_cg3d.F |
125 |
INI_CG3D |
& *_hFacS(i,j,k,bi,bj) |
|
./model/src/ini_cg3d.F |
127 |
INI_CG3D |
& *maskInC(i,j,bi,bj)*maskInC(i,j-1,bi,bj) |
|
./model/src/ini_cg3d.F |
129 |
INI_CG3D |
aS3d(i,j,k,bi,bj) = faceArea*recip_dyC(i,j,bi,bj) |
|
./model/src/ini_cg3d.F |
131 |
INI_CG3D |
myNorm = MAX(ABS(aS3d(i,j,k,bi,bj)),myNorm) |
|
./model/src/ini_cg3d.F |
137 |
INI_CG3D |
DO i=1,sNx |
|
./model/src/ini_cg3d.F |
138 |
INI_CG3D |
aV3d(i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
147 |
INI_CG3D |
DO i=1,sNx |
|
./model/src/ini_cg3d.F |
148 |
INI_CG3D |
faceArea = _rA(i,j,bi,bj)*maskC(i,j, k ,bi,bj) |
|
./model/src/ini_cg3d.F |
149 |
INI_CG3D |
& *maskC(i,j,k-1,bi,bj) |
|
./model/src/ini_cg3d.F |
152 |
INI_CG3D |
& *maskInC(i,j,bi,bj) |
|
./model/src/ini_cg3d.F |
160 |
INI_CG3D |
aV3d(i,j,k,bi,bj) = faceArea*theRecip_Dr*tmpFac |
|
./model/src/ini_cg3d.F |
162 |
INI_CG3D |
myNorm = MAX(ABS(aV3d(i,j,k,bi,bj)),myNorm) |
|
./model/src/ini_cg3d.F |
192 |
INI_CG3D |
DO i=1,sNx |
|
./model/src/ini_cg3d.F |
193 |
INI_CG3D |
aW = aW3d( i, j, k, bi,bj) |
|
./model/src/ini_cg3d.F |
194 |
INI_CG3D |
aE = aW3d(i+1,j, k, bi,bj) |
|
./model/src/ini_cg3d.F |
195 |
INI_CG3D |
aN = aS3d( i,j+1,k, bi,bj) |
|
./model/src/ini_cg3d.F |
196 |
INI_CG3D |
aS = aS3d( i, j, k, bi,bj) |
|
./model/src/ini_cg3d.F |
197 |
INI_CG3D |
aU = aV3d( i, j, k, bi,bj) |
|
./model/src/ini_cg3d.F |
199 |
INI_CG3D |
aL = aV3d(i, j,k+1,bi,bj) |
|
./model/src/ini_cg3d.F |
203 |
INI_CG3D |
aC3d(i,j,k,bi,bj) = -aW-aE-aN-aS-aU-aL |
|
./model/src/ini_cg3d.F |
210 |
INI_CG3D |
DO i=1,sNx |
|
./model/src/ini_cg3d.F |
211 |
INI_CG3D |
locGamma = drC(1)*recip_Bo(i,j,bi,bj) |
|
./model/src/ini_cg3d.F |
217 |
INI_CG3D |
aC3d(i,j,ks,bi,bj) = aC3d(i,j,ks,bi,bj) |
|
./model/src/ini_cg3d.F |
218 |
INI_CG3D |
& - freeSurfFac*recip_Bo(i,j,bi,bj) |
|
./model/src/ini_cg3d.F |
219 |
INI_CG3D |
& *rA(i,j,bi,bj)*deepFac2F(ks)/deltaTMom/deltaTFreeSurf |
|
./model/src/ini_cg3d.F |
226 |
INI_CG3D |
DO i=1,sNx |
|
./model/src/ini_cg3d.F |
227 |
INI_CG3D |
ks = kSurfC(i,j,bi,bj) |
|
./model/src/ini_cg3d.F |
229 |
INI_CG3D |
aC3d(i,j,ks,bi,bj) = aC3d(i,j,ks,bi,bj) |
|
./model/src/ini_cg3d.F |
230 |
INI_CG3D |
& - freeSurfFac*recip_Bo(i,j,bi,bj) |
|
./model/src/ini_cg3d.F |
231 |
INI_CG3D |
& *rA(i,j,bi,bj)*deepFac2F(ks)/deltaTMom/deltaTFreeSurf |
|
./model/src/ini_cg3d.F |
239 |
INI_CG3D |
DO i=1,sNx |
|
./model/src/ini_cg3d.F |
240 |
INI_CG3D |
aW3d(i,j,k,bi,bj) = aW3d(i,j,k,bi,bj)*myNorm |
|
./model/src/ini_cg3d.F |
241 |
INI_CG3D |
aS3d(i,j,k,bi,bj) = aS3d(i,j,k,bi,bj)*myNorm |
|
./model/src/ini_cg3d.F |
242 |
INI_CG3D |
aV3d(i,j,k,bi,bj) = aV3d(i,j,k,bi,bj)*myNorm |
|
./model/src/ini_cg3d.F |
243 |
INI_CG3D |
aC3d(i,j,k,bi,bj) = aC3d(i,j,k,bi,bj)*myNorm |
|
./model/src/ini_cg3d.F |
268 |
INI_CG3D |
DO i=1,sNx |
|
./model/src/ini_cg3d.F |
269 |
INI_CG3D |
IF ( aC3d(i,j,k,bi,bj) .NE. 0. ) THEN |
|
./model/src/ini_cg3d.F |
270 |
INI_CG3D |
zMC(i,j,k,bi,bj) = aC3d(i,j,k,bi,bj) |
|
./model/src/ini_cg3d.F |
271 |
INI_CG3D |
zML(i,j,k,bi,bj) = aV3d(i,j,k,bi,bj) |
|
./model/src/ini_cg3d.F |
273 |
INI_CG3D |
zMU(i,j,k,bi,bj)= aV3d(i,j,k+1,bi,bj) |
|
./model/src/ini_cg3d.F |
275 |
INI_CG3D |
zMU(i,j,k,bi,bj)= 0. |
|
./model/src/ini_cg3d.F |
283 |
INI_CG3D |
zMC(i,j,k,bi,bj) = 1. _d 0 |
|
./model/src/ini_cg3d.F |
284 |
INI_CG3D |
zMU(i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
285 |
INI_CG3D |
zML(i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
292 |
INI_CG3D |
DO i=1,sNx |
|
./model/src/ini_cg3d.F |
293 |
INI_CG3D |
zMC(i,j,k,bi,bj) = 1. _d 0 / zMC(i,j,k,bi,bj) |
|
./model/src/ini_cg3d.F |
294 |
INI_CG3D |
zMU(i,j,k,bi,bj) = zMU(i,j,k,bi,bj)*zMC(i,j,k,bi,bj) |
|
./model/src/ini_cg3d.F |
299 |
INI_CG3D |
DO i=1,sNx |
|
./model/src/ini_cg3d.F |
300 |
INI_CG3D |
zMC(i,j,k,bi,bj) = 1. _d 0 / |
|
./model/src/ini_cg3d.F |
301 |
INI_CG3D |
& (zMC(i,j,k,bi,bj)-zML(i,j,k,bi,bj)*zMU(i,j,k-1,bi,bj)) |
|
./model/src/ini_cg3d.F |
302 |
INI_CG3D |
zMU(i,j,k,bi,bj) = zMU(i,j,k,bi,bj)*zMC(i,j,k,bi,bj) |
|
./model/src/ini_cg3d.F |
308 |
INI_CG3D |
DO i=1,sNx |
|
./model/src/ini_cg3d.F |
309 |
INI_CG3D |
IF ( aC3d(i,j,k,bi,bj) .EQ. 0. ) THEN |
|
./model/src/ini_cg3d.F |
310 |
INI_CG3D |
zMC(i,j,k,bi,bj) = 1. |
|
./model/src/ini_cg3d.F |
311 |
INI_CG3D |
zML(i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
312 |
INI_CG3D |
zMU(i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
47 |
INI_CG3D |
INTEGER i, j, k, ks |
|
./model/src/ini_cg3d.F |
66 |
INI_CG3D |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_cg3d.F |
67 |
INI_CG3D |
aW3d(i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
68 |
INI_CG3D |
aS3d(i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
69 |
INI_CG3D |
aV3d(i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
70 |
INI_CG3D |
aC3d(i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
71 |
INI_CG3D |
zMC (i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
72 |
INI_CG3D |
zML (i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
73 |
INI_CG3D |
zMU (i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
78 |
INI_CG3D |
DO i=0,sNx+1 |
|
./model/src/ini_cg3d.F |
79 |
INI_CG3D |
cg3d_q(i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
80 |
INI_CG3D |
cg3d_r(i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
81 |
INI_CG3D |
cg3d_s(i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
86 |
INI_CG3D |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_cg3d.F |
87 |
INI_CG3D |
cg3d_b(i,j,k,bi,bj) = 0. |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
65 |
SEAICE_OCEANDRAG_COEFFS |
INTEGER i,j,bi,bj |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
75 |
SEAICE_OCEANDRAG_COEFFS |
DO i=1-OLx,sNx+OLy-1 |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
79 |
SEAICE_OCEANDRAG_COEFFS |
& ( ( uIceLoc(i ,j,bi,bj)-uVel(i ,j,kSrf,bi,bj) ) |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
80 |
SEAICE_OCEANDRAG_COEFFS |
& +( uIceLoc(i+1,j,bi,bj)-uVel(i+1,j,kSrf,bi,bj) ) |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
82 |
SEAICE_OCEANDRAG_COEFFS |
& + ( ( vIceLoc(i, j ,bi,bj)-vVel(i, j ,kSrf,bi,bj) ) |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
83 |
SEAICE_OCEANDRAG_COEFFS |
& +( vIceLoc(i,j+1,bi,bj)-vVel(i,j+1,kSrf,bi,bj) ) |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
87 |
SEAICE_OCEANDRAG_COEFFS |
& ( ( uIceLoc(i ,j,bi,bj)-uVel(i ,j,kSrf,bi,bj) ) |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
88 |
SEAICE_OCEANDRAG_COEFFS |
& *maskInW( i ,j,bi,bj) |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
89 |
SEAICE_OCEANDRAG_COEFFS |
& +( uIceLoc(i+1,J,bi,bj)-uVel(i+1,j,kSrf,bi,bj) ) |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
90 |
SEAICE_OCEANDRAG_COEFFS |
& *maskInW(i+1,j,bi,bj) )**2 |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
91 |
SEAICE_OCEANDRAG_COEFFS |
& + ( ( vIceLoc(i,j ,bi,bj)-vVel(i,j ,kSrf,bi,bj) ) |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
92 |
SEAICE_OCEANDRAG_COEFFS |
& *maskInS(i, j ,bi,bj) |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
93 |
SEAICE_OCEANDRAG_COEFFS |
& +( vIceLoc(i,j+1,bi,bj)-vVel(i,j+1,kSrf,bi,bj) ) |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
94 |
SEAICE_OCEANDRAG_COEFFS |
& *maskInS(i,j+1,bi,bj) )**2 ) |
|
./pkg/seaice/seaice_output.F |
194 |
SEAICE_OUTPUT |
DO i=1,sNx |
|
./pkg/seaice/seaice_output.F |
196 |
SEAICE_OUTPUT |
FUtave(i,j,bi,bj) = |
|
./pkg/seaice/seaice_output.F |
197 |
SEAICE_OUTPUT |
& FUtave(i,j,bi,bj) +FU(i,j,bi,bj) *deltaTClock |
|
./pkg/seaice/seaice_output.F |
198 |
SEAICE_OUTPUT |
FVtave(i,j,bi,bj) = |
|
./pkg/seaice/seaice_output.F |
199 |
SEAICE_OUTPUT |
& FVtave(i,j,bi,bj) +FV(i,j,bi,bj) *deltaTClock |
|
./pkg/seaice/seaice_output.F |
200 |
SEAICE_OUTPUT |
EmPmRtave(i,j,bi,bj)= |
|
./pkg/seaice/seaice_output.F |
201 |
SEAICE_OUTPUT |
& EmPmRtave(i,j,bi,bj)+EmPmR(i,j,bi,bj) *deltaTClock |
|
./pkg/seaice/seaice_output.F |
202 |
SEAICE_OUTPUT |
QNETtave(i,j,bi,bj) = |
|
./pkg/seaice/seaice_output.F |
203 |
SEAICE_OUTPUT |
& QNETtave(i,j,bi,bj) +QNET(i,j,bi,bj) *deltaTClock |
|
./pkg/seaice/seaice_output.F |
204 |
SEAICE_OUTPUT |
QSWtave(i,j,bi,bj) = |
|
./pkg/seaice/seaice_output.F |
205 |
SEAICE_OUTPUT |
& QSWtave(i,j,bi,bj) +QSW(i,j,bi,bj) *deltaTClock |
|
./pkg/seaice/seaice_output.F |
206 |
SEAICE_OUTPUT |
UICEtave(i,j,bi,bj) = |
|
./pkg/seaice/seaice_output.F |
207 |
SEAICE_OUTPUT |
& UICEtave(i,j,bi,bj) +UICE(i,j,bi,bj)*deltaTClock |
|
./pkg/seaice/seaice_output.F |
208 |
SEAICE_OUTPUT |
VICEtave(i,j,bi,bj) = |
|
./pkg/seaice/seaice_output.F |
209 |
SEAICE_OUTPUT |
& VICEtave(i,j,bi,bj) +VICE(i,j,bi,bj)*deltaTClock |
|
./pkg/seaice/seaice_output.F |
210 |
SEAICE_OUTPUT |
HEFFtave(i,j,bi,bj) = |
|
./pkg/seaice/seaice_output.F |
211 |
SEAICE_OUTPUT |
& HEFFtave(i,j,bi,bj) +HEFF(i,j,bi,bj)*deltaTClock |
|
./pkg/seaice/seaice_output.F |
212 |
SEAICE_OUTPUT |
AREAtave(i,j,bi,bj) = |
|
./pkg/seaice/seaice_output.F |
213 |
SEAICE_OUTPUT |
& AREAtave(i,j,bi,bj) +AREA(i,j,bi,bj)*deltaTClock |
|
./pkg/seaice/seaice_output.F |
219 |
SEAICE_OUTPUT |
DO i=1,sNx |
|
./pkg/seaice/seaice_output.F |
220 |
SEAICE_OUTPUT |
HEFFITDtave(i,j,k,bi,bj) = |
|
./pkg/seaice/seaice_output.F |
221 |
SEAICE_OUTPUT |
& HEFFITDtave(i,j,k,bi,bj) +HEFFITD(i,j,k,bi,bj)*deltaTClock |
|
./pkg/seaice/seaice_output.F |
222 |
SEAICE_OUTPUT |
AREAITDtave(i,j,k,bi,bj) = |
|
./pkg/seaice/seaice_output.F |
223 |
SEAICE_OUTPUT |
& AREAITDtave(i,j,k,bi,bj) +AREAITD(i,j,k,bi,bj)*deltaTClock |
|
./pkg/seaice/seaice_output.F |
61 |
SEAICE_OUTPUT |
INTEGER i, j, bi, bj |
|
./pkg/seaice/seaice_preconditioner.F |
153 |
SEAICE_PRECONDITIONER |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_preconditioner.F |
195 |
SEAICE_PRECONDITIONER |
IF ( maskInC(i,j,bi,bj)*maskInC(i-1,j,bi,bj) .EQ. 0. ) THEN |
|
./pkg/seaice/seaice_preconditioner.F |
202 |
SEAICE_PRECONDITIONER |
IF ( maskInC(i,j,bi,bj)*maskInC(i,j-1,bi,bj) .EQ. 0. ) THEN |
|
./pkg/seaice/seaice_preconditioner.F |
236 |
SEAICE_PRECONDITIONER |
DO i=iMin,iMax |
|
./pkg/seaice/seaice_preconditioner.F |
256 |
SEAICE_PRECONDITIONER |
IF ( maskInC(i,j,bi,bj)*maskInC(i-1,j,bi,bj) .EQ. 0. ) THEN |
|
./pkg/seaice/seaice_preconditioner.F |
259 |
SEAICE_PRECONDITIONER |
IF ( maskInC(i,j,bi,bj)*maskInC(i,j-1,bi,bj) .EQ. 0. ) THEN |
|
./pkg/seaice/seaice_preconditioner.F |
287 |
SEAICE_PRECONDITIONER |
DO i=1-OLx,sNx+OLx |
|
./pkg/seaice/seaice_preconditioner.F |
295 |
SEAICE_PRECONDITIONER |
DO i=iMin,iMax |
|
./pkg/seaice/seaice_preconditioner.F |
320 |
SEAICE_PRECONDITIONER |
IF ( maskInC(i,j,bi,bj)*maskInC(i-1,j,bi,bj) .EQ. 0. ) THEN |
|
./pkg/seaice/seaice_preconditioner.F |
324 |
SEAICE_PRECONDITIONER |
IF ( maskInC(i,j,bi,bj)*maskInC(i,j-1,bi,bj) .EQ. 0. ) THEN |
|
./pkg/seaice/seaice_preconditioner.F |
348 |
SEAICE_PRECONDITIONER |
DO i=iMin,iMax |
|
./pkg/seaice/seaice_preconditioner.F |
362 |
SEAICE_PRECONDITIONER |
IF ( maskInC(i,j,bi,bj)*maskInC(i,j-1,bi,bj) .EQ. 0. ) THEN |
|
./pkg/seaice/seaice_preconditioner.F |
526 |
SEAICE_PRECOND_RHSU |
& *0.5 _d 0*(vIceLoc( i ,j,bi,bj)+vIceLoc( i ,j+1,bi,bj)) |
|
./pkg/seaice/seaice_preconditioner.F |
528 |
SEAICE_PRECOND_RHSU |
& *0.5 _d 0*(vIceLoc(i-1,j,bi,bj)+vIceLoc(i-1,j+1,bi,bj)) |
|
./pkg/seaice/seaice_preconditioner.F |
631 |
SEAICE_PRECOND_RHSV |
& *0.5 _d 0*(uIceLoc(i ,j ,bi,bj)+uIceLoc(i+1, j,bi,bj)) |
|
./pkg/seaice/seaice_preconditioner.F |
633 |
SEAICE_PRECOND_RHSV |
& *0.5 _d 0*(uIceLoc(i ,j-1,bi,bj)+uIceLoc(i+1,j-1,bi,bj)) |
|
./pkg/seaice/seaice_preconditioner.F |
83 |
SEAICE_PRECONDITIONER |
INTEGER i, j, m, bi, bj |
|
./pkg/seaice/seaice_prepare_ridging.F |
102 |
SEAICE_PREPARE_RIDGING |
IF ( HEFFITD(i,j,k,bi,bj) .GT. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_prepare_ridging.F |
105 |
SEAICE_PREPARE_RIDGING |
tmp = HEFFITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_prepare_ridging.F |
106 |
SEAICE_PREPARE_RIDGING |
& /SQRT( AREAITD(i,j,k,bi,bj)**2 + area_reg_sq ) |
|
./pkg/seaice/seaice_prepare_ridging.F |
107 |
SEAICE_PREPARE_RIDGING |
hActual(i,j,k) = SQRT(tmp * tmp + hice_reg_sq) |
|
./pkg/seaice/seaice_prepare_ridging.F |
117 |
SEAICE_PREPARE_RIDGING |
DO i=iMin,iMax |
|
./pkg/seaice/seaice_prepare_ridging.F |
118 |
SEAICE_PREPARE_RIDGING |
gSum(i,j,-1) = 0. _d 0 |
|
./pkg/seaice/seaice_prepare_ridging.F |
119 |
SEAICE_PREPARE_RIDGING |
gSum(i,j,0) = 0. _d 0 |
|
./pkg/seaice/seaice_prepare_ridging.F |
120 |
SEAICE_PREPARE_RIDGING |
IF ( opnWtrFrac(i,j,bi,bj) .GT. SEAICE_area_floor ) |
|
./pkg/seaice/seaice_prepare_ridging.F |
121 |
SEAICE_PREPARE_RIDGING |
& gSum(i,j,0) = opnWtrFrac(i,j,bi,bj) |
|
./pkg/seaice/seaice_prepare_ridging.F |
126 |
SEAICE_PREPARE_RIDGING |
DO i=iMin,iMax |
|
./pkg/seaice/seaice_prepare_ridging.F |
127 |
SEAICE_PREPARE_RIDGING |
gSum(i,j,k) = gSum(i,j,k-1) |
|
./pkg/seaice/seaice_prepare_ridging.F |
128 |
SEAICE_PREPARE_RIDGING |
IF ( AREAITD(i,j,k,bi,bj) .GT. SEAICE_area_floor ) |
|
./pkg/seaice/seaice_prepare_ridging.F |
129 |
SEAICE_PREPARE_RIDGING |
& gSum(i,j,k) = gSum(i,j,k) + AREAITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_prepare_ridging.F |
136 |
SEAICE_PREPARE_RIDGING |
DO i=iMin,iMax |
|
./pkg/seaice/seaice_prepare_ridging.F |
137 |
SEAICE_PREPARE_RIDGING |
IF ( gSum(i,j,nITD).NE.0. _d 0 ) |
|
./pkg/seaice/seaice_prepare_ridging.F |
138 |
SEAICE_PREPARE_RIDGING |
& gSum(i,j,k) = gSum(i,j,k) / gSum(i,j,nITD) |
|
./pkg/seaice/seaice_prepare_ridging.F |
155 |
SEAICE_PREPARE_RIDGING |
DO i=iMin,iMax |
|
./pkg/seaice/seaice_prepare_ridging.F |
156 |
SEAICE_PREPARE_RIDGING |
partFunc(i,j,k) = 0. _d 0 |
|
./pkg/seaice/seaice_prepare_ridging.F |
157 |
SEAICE_PREPARE_RIDGING |
IF ( gSum(i,j,k) .LT. SEAICEgStar ) THEN |
|
./pkg/seaice/seaice_prepare_ridging.F |
158 |
SEAICE_PREPARE_RIDGING |
partFunc(i,j,k) = |
|
./pkg/seaice/seaice_prepare_ridging.F |
159 |
SEAICE_PREPARE_RIDGING |
& (gSum(i,j,k)-gSum(i,j,k-1)) * recip_gStar |
|
./pkg/seaice/seaice_prepare_ridging.F |
160 |
SEAICE_PREPARE_RIDGING |
& *( 2. _d 0 - (gSum(i,j,k-1)+gSum(i,j,k))*recip_gStar) |
|
./pkg/seaice/seaice_prepare_ridging.F |
161 |
SEAICE_PREPARE_RIDGING |
ELSEIF ( gSum(i,j,k-1) .LT. SEAICEgStar |
|
./pkg/seaice/seaice_prepare_ridging.F |
162 |
SEAICE_PREPARE_RIDGING |
& .AND. gSum(i,j,k) .GE. SEAICEgStar ) THEN |
|
./pkg/seaice/seaice_prepare_ridging.F |
163 |
SEAICE_PREPARE_RIDGING |
partFunc(i,j,k) = |
|
./pkg/seaice/seaice_prepare_ridging.F |
164 |
SEAICE_PREPARE_RIDGING |
& (SEAICEgStar-gSum(i,j,k-1)) * recip_gStar |
|
./pkg/seaice/seaice_prepare_ridging.F |
165 |
SEAICE_PREPARE_RIDGING |
& *( 2. _d 0 - (gSum(i,j,k-1)+SEAICEgStar)*recip_gStar) |
|
./pkg/seaice/seaice_prepare_ridging.F |
180 |
SEAICE_PREPARE_RIDGING |
DO i=iMin,iMax |
|
./pkg/seaice/seaice_prepare_ridging.F |
181 |
SEAICE_PREPARE_RIDGING |
gSum(i,j,k) = EXP(-gSum(i,j,k)*recip_astar) * tmp |
|
./pkg/seaice/seaice_prepare_ridging.F |
186 |
SEAICE_PREPARE_RIDGING |
DO i=iMin,iMax |
|
./pkg/seaice/seaice_prepare_ridging.F |
187 |
SEAICE_PREPARE_RIDGING |
gSum(i,j,k) = EXP(-gSum(i,j,k)*recip_astar) * tmp |
|
./pkg/seaice/seaice_prepare_ridging.F |
188 |
SEAICE_PREPARE_RIDGING |
partFunc(i,j,k) = gSum(i,j,k-1) - gSum(i,j,k) |
|
./pkg/seaice/seaice_prepare_ridging.F |
203 |
SEAICE_PREPARE_RIDGING |
DO i=iMin,iMax |
|
./pkg/seaice/seaice_prepare_ridging.F |
204 |
SEAICE_PREPARE_RIDGING |
hrMin(i,j,k) = 0. _d 0 |
|
./pkg/seaice/seaice_prepare_ridging.F |
205 |
SEAICE_PREPARE_RIDGING |
hrMax(i,j,k) = 0. _d 0 |
|
./pkg/seaice/seaice_prepare_ridging.F |
206 |
SEAICE_PREPARE_RIDGING |
hrExp(i,j,k) = 0. _d 0 |
|
./pkg/seaice/seaice_prepare_ridging.F |
208 |
SEAICE_PREPARE_RIDGING |
ridgeRatio(i,j,k) = 1. _d 0 |
|
./pkg/seaice/seaice_prepare_ridging.F |
217 |
SEAICE_PREPARE_RIDGING |
DO i=iMin,iMax |
|
./pkg/seaice/seaice_prepare_ridging.F |
218 |
SEAICE_PREPARE_RIDGING |
IF ( hActual(i,j,k) .GT. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_prepare_ridging.F |
220 |
SEAICE_PREPARE_RIDGING |
hrMin(i,j,k) = 2. _d 0 * hActual(i,j,k) |
|
./pkg/seaice/seaice_prepare_ridging.F |
221 |
SEAICE_PREPARE_RIDGING |
hrMax(i,j,k) = 2. _d 0 * SQRT(hActual(i,j,k)*SEAICEhStar) |
|
./pkg/seaice/seaice_prepare_ridging.F |
224 |
SEAICE_PREPARE_RIDGING |
hrMin(i,j,k) = MIN(hrMin(i,j,k),hActual(i,j,k)+SEAICEmaxRaft) |
|
./pkg/seaice/seaice_prepare_ridging.F |
225 |
SEAICE_PREPARE_RIDGING |
hrMax(i,j,k) = MAX(hrMax(i,j,k),hrMin(i,j,k)+SEAICE_hice_reg) |
|
./pkg/seaice/seaice_prepare_ridging.F |
227 |
SEAICE_PREPARE_RIDGING |
ridgeRatio(i,j,k) = |
|
./pkg/seaice/seaice_prepare_ridging.F |
228 |
SEAICE_PREPARE_RIDGING |
& 0.5 _d 0 * (hrMax(i,j,k)+hrMin(i,j,k))/hActual(i,j,k) |
|
./pkg/seaice/seaice_prepare_ridging.F |
238 |
SEAICE_PREPARE_RIDGING |
DO i=iMin,iMax |
|
./pkg/seaice/seaice_prepare_ridging.F |
239 |
SEAICE_PREPARE_RIDGING |
IF ( hActual(i,j,k) .GT. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_prepare_ridging.F |
242 |
SEAICE_PREPARE_RIDGING |
tmp = hActual(i,j,k) |
|
./pkg/seaice/seaice_prepare_ridging.F |
243 |
SEAICE_PREPARE_RIDGING |
hrMin(i,j,k) = MIN(2.D0 * tmp, tmp+SEAICEmaxRaft) |
|
./pkg/seaice/seaice_prepare_ridging.F |
244 |
SEAICE_PREPARE_RIDGING |
hrExp(i,j,k) = SEAICEmuRidging*SQRT(tmp) |
|
./pkg/seaice/seaice_prepare_ridging.F |
246 |
SEAICE_PREPARE_RIDGING |
ridgeRatio(i,j,k)=(hrMin(i,j,k)+hrExp(i,j,k))/tmp |
|
./pkg/seaice/seaice_prepare_ridging.F |
262 |
SEAICE_PREPARE_RIDGING |
DO i=iMin,iMax |
|
./pkg/seaice/seaice_prepare_ridging.F |
263 |
SEAICE_PREPARE_RIDGING |
ridgingModeNorm(i,j) = partFunc(i,j,0) |
|
./pkg/seaice/seaice_prepare_ridging.F |
268 |
SEAICE_PREPARE_RIDGING |
DO i=iMin,iMax |
|
./pkg/seaice/seaice_prepare_ridging.F |
269 |
SEAICE_PREPARE_RIDGING |
partFunc(i,j,k) = partFunc(i,j,k) * heffM(i,j,bi,bj) |
|
./pkg/seaice/seaice_prepare_ridging.F |
270 |
SEAICE_PREPARE_RIDGING |
ridgingModeNorm(i,j) = ridgingModeNorm(i,j) |
|
./pkg/seaice/seaice_prepare_ridging.F |
271 |
SEAICE_PREPARE_RIDGING |
& + partFunc(i,j,k)*( 1. _d 0 - 1. _d 0/ridgeRatio(i,j,k) ) |
|
./pkg/seaice/seaice_prepare_ridging.F |
277 |
SEAICE_PREPARE_RIDGING |
DO i=iMin,iMax |
|
./pkg/seaice/seaice_prepare_ridging.F |
278 |
SEAICE_PREPARE_RIDGING |
IF ( ridgingModeNorm(i,j) .LE. 0. _d 0 ) |
|
./pkg/seaice/seaice_prepare_ridging.F |
279 |
SEAICE_PREPARE_RIDGING |
& ridgingModeNorm(i,j) = 1. _d 0 |
|
./pkg/seaice/seaice_prepare_ridging.F |
80 |
SEAICE_PREPARE_RIDGING |
INTEGER i, j |
|
./pkg/seaice/seaice_prepare_ridging.F |
97 |
SEAICE_PREPARE_RIDGING |
DO i=iMin,iMax |
|
./pkg/seaice/seaice_prepare_ridging.F |
98 |
SEAICE_PREPARE_RIDGING |
hActual(i,j,k) = 0. _d 0 |
|
./pkg/seaice/seaice_read_pickup.F |
311 |
SEAICE_READ_PICKUP |
DO i=1,sNx |
|
./pkg/seaice/seaice_read_pickup.F |
312 |
SEAICE_READ_PICKUP |
TICES(i,j,k,bi,bj) = TICES(i,j,1,bi,bj) |
|
./pkg/seaice/seaice_read_pickup.F |
58 |
SEAICE_READ_PICKUP |
INTEGER i,j,k,bi,bj |
|
./pkg/seaice/seaice_reg_ridge.F |
133 |
SEAICE_REG_RIDGE |
d_AREAbyRLX(i,j,bi,bj) = |
|
./pkg/seaice/seaice_reg_ridge.F |
140 |
SEAICE_REG_RIDGE |
d_HEFFbyRLX(i,j,bi,bj) = 1. _d 1 * siEps |
|
./pkg/seaice/seaice_reg_ridge.F |
144 |
SEAICE_REG_RIDGE |
& + d_AREAbyRLX(i,j,bi,bj) |
|
./pkg/seaice/seaice_reg_ridge.F |
146 |
SEAICE_REG_RIDGE |
& + d_HEFFbyRLX(i,j,bi,bj) |
|
./pkg/seaice/seaice_reg_ridge.F |
148 |
SEAICE_REG_RIDGE |
AREA(I,J,bi,bj) = AREA(I,J,bi,bj) + d_AREAbyRLX(i,j,bi,bj) |
|
./pkg/seaice/seaice_reg_ridge.F |
149 |
SEAICE_REG_RIDGE |
HEFF(I,J,bi,bj) = HEFF(I,J,bi,bj) + d_HEFFbyRLX(i,j,bi,bj) |
|
./pkg/seaice/seaice_reg_ridge.F |
254 |
SEAICE_REG_RIDGE |
IF ((HEFF(i,j,bi,bj).EQ.0. _d 0).AND. |
|
./pkg/seaice/seaice_reg_ridge.F |
255 |
SEAICE_REG_RIDGE |
& (HSNOW(i,j,bi,bj).EQ.0. _d 0)) AREA(I,J,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_reg_ridge.F |
285 |
SEAICE_REG_RIDGE |
IF ((HEFF(i,j,bi,bj).GT.0).OR.(HSNOW(i,j,bi,bj).GT.0)) THEN |
|
./pkg/seaice/seaice_reg_ridge.F |
322 |
SEAICE_REG_RIDGE |
tmpscal1itd(i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_reg_ridge.F |
323 |
SEAICE_REG_RIDGE |
tmpscal2itd(i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_reg_ridge.F |
324 |
SEAICE_REG_RIDGE |
tmpscal3itd(i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_reg_ridge.F |
332 |
SEAICE_REG_RIDGE |
tmpscal1itd(i,j)=tmpscal1itd(i,j) |
|
./pkg/seaice/seaice_reg_ridge.F |
334 |
SEAICE_REG_RIDGE |
tmpscal2itd(i,j)=tmpscal2itd(i,j) + HEFFITD(I,J,IT,bi,bj) |
|
./pkg/seaice/seaice_reg_ridge.F |
336 |
SEAICE_REG_RIDGE |
tmpscal3itd(i,j)=tmpscal3itd(i,j) + AREAITD(I,J,IT,bi,bj) |
|
./pkg/seaice/seaice_reg_ridge.F |
347 |
SEAICE_REG_RIDGE |
DIAGarrayA(I,J) = tmpscal3itd(i,j) |
|
./pkg/seaice/seaice_reg_ridge.F |
350 |
SEAICE_REG_RIDGE |
SItrAREA(I,J,bi,bj,1)=tmpscal3itd(i,j) |
|
./pkg/seaice/seaice_reg_ridge.F |
61 |
SEAICE_REG_RIDGE |
INTEGER i, j, bi, bj |
|
./pkg/seaice/seaice_solve4temp.F |
95 |
SEAICE_SOLVE4TEMP |
INTEGER i, j |
|
./pkg/seaice/seaice_tracer_phys.F |
100 |
SEAICE_TRACER_PHYS |
HEFFprev=SItrHEFF(i,j,bi,bj,jTh) |
|
./pkg/seaice/seaice_tracer_phys.F |
101 |
SEAICE_TRACER_PHYS |
HEFFpost=SItrHEFF(i,j,bi,bj,jTh+1) |
|
./pkg/seaice/seaice_tracer_phys.F |
108 |
SEAICE_TRACER_PHYS |
SItracer(i,j,bi,bj,iTr)=SItracer(i,j,bi,bj,iTr)*growFact |
|
./pkg/seaice/seaice_tracer_phys.F |
109 |
SEAICE_TRACER_PHYS |
& +SItrFromOcean(i,j)*(1. _d 0 - growFact) |
|
./pkg/seaice/seaice_tracer_phys.F |
110 |
SEAICE_TRACER_PHYS |
SItrBucket(i,j,bi,bj,iTr)=SItrBucket(i,j,bi,bj,iTr) |
|
./pkg/seaice/seaice_tracer_phys.F |
111 |
SEAICE_TRACER_PHYS |
& -HEFFpost*SItrFromOcean(i,j)*(1. _d 0 - growFact) |
|
./pkg/seaice/seaice_tracer_phys.F |
112 |
SEAICE_TRACER_PHYS |
SItrBucket(i,j,bi,bj,iTr)=SItrBucket(i,j,bi,bj,iTr) |
|
./pkg/seaice/seaice_tracer_phys.F |
113 |
SEAICE_TRACER_PHYS |
& +meltPart*SItracer(i,j,bi,bj,iTr) |
|
./pkg/seaice/seaice_tracer_phys.F |
117 |
SEAICE_TRACER_PHYS |
HEFFprev=SItrHEFF(i,j,bi,bj,4) |
|
./pkg/seaice/seaice_tracer_phys.F |
118 |
SEAICE_TRACER_PHYS |
HEFFpost=SItrHEFF(i,j,bi,bj,5) |
|
./pkg/seaice/seaice_tracer_phys.F |
120 |
SEAICE_TRACER_PHYS |
SItracer(i,j,bi,bj,iTr)=SItracer(i,j,bi,bj,iTr)*growFact |
|
./pkg/seaice/seaice_tracer_phys.F |
121 |
SEAICE_TRACER_PHYS |
& +SItrFromFlood(i,j) *(1. _d 0 - growFact) |
|
./pkg/seaice/seaice_tracer_phys.F |
124 |
SEAICE_TRACER_PHYS |
SItrBucket(i,j,bi,bj,iTr)=SItrBucket(i,j,bi,bj,iTr) |
|
./pkg/seaice/seaice_tracer_phys.F |
125 |
SEAICE_TRACER_PHYS |
& -HEFFpost*SItrFromFlood(i,j)*(1. _d 0 - growFact) |
|
./pkg/seaice/seaice_tracer_phys.F |
127 |
SEAICE_TRACER_PHYS |
DIAGarray(I,J,5+(iTr-1)*5) = HEFFpost*SItracer(i,j,bi,bj,iTr) |
|
./pkg/seaice/seaice_tracer_phys.F |
128 |
SEAICE_TRACER_PHYS |
& +SItrBucket(i,j,bi,bj,iTr)-DIAGarray(I,J,5+(iTr-1)*5) |
|
./pkg/seaice/seaice_tracer_phys.F |
144 |
SEAICE_TRACER_PHYS |
AREAprev=SItrAREA(i,j,bi,bj,2) |
|
./pkg/seaice/seaice_tracer_phys.F |
145 |
SEAICE_TRACER_PHYS |
AREApost=SItrAREA(i,j,bi,bj,3) |
|
./pkg/seaice/seaice_tracer_phys.F |
150 |
SEAICE_TRACER_PHYS |
SItracer(i,j,bi,bj,iTr)=SItracer(i,j,bi,bj,iTr)*expandFact |
|
./pkg/seaice/seaice_tracer_phys.F |
151 |
SEAICE_TRACER_PHYS |
& +SItrExpand(i,j)*(1. _d 0 - expandFact) |
|
./pkg/seaice/seaice_tracer_phys.F |
161 |
SEAICE_TRACER_PHYS |
if (( (SItrHEFF(i,j,bi,bj,5).GT.0. _d 0).AND.(SItrMate(iTr) |
|
./pkg/seaice/seaice_tracer_phys.F |
162 |
SEAICE_TRACER_PHYS |
& .EQ.'HEFF') ).OR.( (SItrAREA(i,j,bi,bj,3).GT.0. _d 0).AND. |
|
./pkg/seaice/seaice_tracer_phys.F |
164 |
SEAICE_TRACER_PHYS |
SItracer(i,j,bi,bj,iTr)= |
|
./pkg/seaice/seaice_tracer_phys.F |
165 |
SEAICE_TRACER_PHYS |
& SItracer(i,j,bi,bj,iTr)+SEAICE_deltaTtherm |
|
./pkg/seaice/seaice_tracer_phys.F |
167 |
SEAICE_TRACER_PHYS |
SItracer(i,j,bi,bj,iTr)=0. _d 0 |
|
./pkg/seaice/seaice_tracer_phys.F |
180 |
SEAICE_TRACER_PHYS |
SItracer(i,j,bi,bj,iTr)=SItracer(i,j,bi,bj,iTr)+ |
|
./pkg/seaice/seaice_tracer_phys.F |
181 |
SEAICE_TRACER_PHYS |
& MAX(0. _d 0, SItrAREA(i,j,bi,bj,1)-SItrAREA(i,j,bi,bj,2)) |
|
./pkg/seaice/seaice_tracer_phys.F |
183 |
SEAICE_TRACER_PHYS |
HEFFprev=SItrHEFF(i,j,bi,bj,1) |
|
./pkg/seaice/seaice_tracer_phys.F |
184 |
SEAICE_TRACER_PHYS |
HEFFpost=SItrHEFF(i,j,bi,bj,4) |
|
./pkg/seaice/seaice_tracer_phys.F |
187 |
SEAICE_TRACER_PHYS |
SItracer(i,j,bi,bj,iTr)=SItracer(i,j,bi,bj,iTr)*tmpscal1 |
|
./pkg/seaice/seaice_tracer_phys.F |
207 |
SEAICE_TRACER_PHYS |
saltFlux(I,J,bi,bj) = - SItrBucket(i,j,bi,bj,iTr) |
|
./pkg/seaice/seaice_tracer_phys.F |
213 |
SEAICE_TRACER_PHYS |
& *SPsalFRAC*(salt(I,j,ks,bi,bj)-SItrFromOcean(i,j)) |
|
./pkg/seaice/seaice_tracer_phys.F |
222 |
SEAICE_TRACER_PHYS |
DIAGarray(I,J,4+(iTr-1)*5) = - SItrBucket(i,j,bi,bj,iTr) |
|
./pkg/seaice/seaice_tracer_phys.F |
228 |
SEAICE_TRACER_PHYS |
& SItrBucket(i,j,bi,bj,iTr)=0. _d 0 |
|
./pkg/seaice/seaice_tracer_phys.F |
240 |
SEAICE_TRACER_PHYS |
HEFFpost=SItrHEFF(i,j,bi,bj,5) |
|
./pkg/seaice/seaice_tracer_phys.F |
241 |
SEAICE_TRACER_PHYS |
DIAGarray(I,J,1+(iTr-1)*5) = SItracer(i,j,bi,bj,iTr) |
|
./pkg/seaice/seaice_tracer_phys.F |
242 |
SEAICE_TRACER_PHYS |
DIAGarray(I,J,2+(iTr-1)*5) = SItracer(i,j,bi,bj,iTr)*HEFFpost |
|
./pkg/seaice/seaice_tracer_phys.F |
245 |
SEAICE_TRACER_PHYS |
DIAGarray(I,J,3+(iTr-1)*5) = HSALT(i,j,bi,bj)/SEAICE_rhoIce |
|
./pkg/seaice/seaice_tracer_phys.F |
256 |
SEAICE_TRACER_PHYS |
AREApost=SItrAREA(i,j,bi,bj,3) |
|
./pkg/seaice/seaice_tracer_phys.F |
257 |
SEAICE_TRACER_PHYS |
DIAGarray(I,J,1+(iTr-1)*5) = SItracer(i,j,bi,bj,iTr) |
|
./pkg/seaice/seaice_tracer_phys.F |
258 |
SEAICE_TRACER_PHYS |
DIAGarray(I,J,2+(iTr-1)*5) = SItracer(i,j,bi,bj,iTr)*AREApost |
|
./pkg/seaice/seaice_tracer_phys.F |
68 |
SEAICE_TRACER_PHYS |
SItrFromOcean(i,j)=SItrFromOcean0(iTr) |
|
./pkg/seaice/seaice_tracer_phys.F |
69 |
SEAICE_TRACER_PHYS |
SItrFromFlood(i,j)=SItrFromFlood0(iTr) |
|
./pkg/seaice/seaice_tracer_phys.F |
70 |
SEAICE_TRACER_PHYS |
SItrExpand(i,j)=SItrExpand0(iTr) |
|
./pkg/seaice/seaice_tracer_phys.F |
78 |
SEAICE_TRACER_PHYS |
SItrFromOcean(i,j)=SItrFromOceanFrac(iTr)*salt(I,j,ks,bi,bj) |
|
./pkg/seaice/seaice_tracer_phys.F |
79 |
SEAICE_TRACER_PHYS |
SItrFromFlood(i,j)=SItrFromFloodFrac(iTr)*salt(I,j,ks,bi,bj) |
|
./pkg/seaice/seaice_tracer_phys.F |
88 |
SEAICE_TRACER_PHYS |
HEFFprev=SItrHEFF(i,j,bi,bj,1) |
|
./pkg/seaice/seaice_tracer_phys.F |
91 |
SEAICE_TRACER_PHYS |
& HEFFprev*SItracer(i,j,bi,bj,iTr) + SItrBucket(i,j,bi,bj,iTr) |
|
./model/src/ini_cori.F |
112 |
INI_CORI |
DO i=1-Olx,sNx+Olx |
|
./model/src/ini_cori.F |
113 |
INI_CORI |
fCori(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_cori.F |
114 |
INI_CORI |
fCoriG(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_cori.F |
115 |
INI_CORI |
fCoriCos(i,j,bi,bj)=0. _d 0 |
|
./model/src/ini_cori.F |
199 |
INI_CORI |
DO i = 1,MAX_LEN_MBUF |
|
./model/src/ini_cori.F |
200 |
INI_CORI |
mon_fname(i:i) = ' ' |
|
./model/src/ini_cori.F |
46 |
INI_CORI |
INTEGER i, j |
|
./model/src/ini_cori.F |
63 |
INI_CORI |
DO i=1-Olx,sNx+Olx |
|
./model/src/ini_cori.F |
64 |
INI_CORI |
fCori(i,j,bi,bj) = f0 |
|
./model/src/ini_cori.F |
65 |
INI_CORI |
fCoriG(i,j,bi,bj) = f0 |
|
./model/src/ini_cori.F |
66 |
INI_CORI |
fCoriCos(i,j,bi,bj)=fPrime |
|
./model/src/ini_cori.F |
79 |
INI_CORI |
DO i=1-Olx,sNx+Olx |
|
./model/src/ini_cori.F |
80 |
INI_CORI |
fCori(i,j,bi,bj) = f0+beta*_yC(i,j,bi,bj)*facGrid |
|
./model/src/ini_cori.F |
81 |
INI_CORI |
fCoriG(i,j,bi,bj) = f0+beta* yG(i,j,bi,bj)*facGrid |
|
./model/src/ini_cori.F |
82 |
INI_CORI |
fCoriCos(i,j,bi,bj)=fPrime |
|
./model/src/ini_cori.F |
93 |
INI_CORI |
DO i=1-Olx,sNx+Olx |
|
./model/src/ini_cori.F |
94 |
INI_CORI |
fCori(i,j,bi,bj) = |
|
./model/src/ini_cori.F |
95 |
INI_CORI |
& 2. _d 0*omega*sin(_yC(i,j,bi,bj)*deg2rad) |
|
./model/src/ini_cori.F |
96 |
INI_CORI |
fCoriG(i,j,bi,bj) = |
|
./model/src/ini_cori.F |
97 |
INI_CORI |
& 2. _d 0*omega*sin(yG(i,j,bi,bj)*deg2rad) |
|
./model/src/ini_cori.F |
98 |
INI_CORI |
fCoriCos(i,j,bi,bj)= |
|
./model/src/ini_cori.F |
99 |
INI_CORI |
& 2. _d 0*omega*cos(_yC(i,j,bi,bj)*deg2rad) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
150 |
SHAP_FILT_APPLY_UV |
DO i=1,sNx |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
151 |
SHAP_FILT_APPLY_UV |
dKE_shap(i,j) = 0.5 _d 0 *( |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
153 |
SHAP_FILT_APPLY_UV |
& Shap_tmpFld1(i ,j,k,bi,bj)*uFld(i ,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
154 |
SHAP_FILT_APPLY_UV |
& *_hFacW(i ,j, k,bi,bj)*rAw(i ,j, bi,bj) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
155 |
SHAP_FILT_APPLY_UV |
& +Shap_tmpFld1(i+1,j,k,bi,bj)*uFld(i+1,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
156 |
SHAP_FILT_APPLY_UV |
& *_hFacW(i+1,j,k,bi,bj)*rAw(i+1,j,bi,bj) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
159 |
SHAP_FILT_APPLY_UV |
& Shap_tmpFld2(i,j ,k,bi,bj)*vFld(i,j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
160 |
SHAP_FILT_APPLY_UV |
& *_hFacS(i,j ,k,bi,bj)*rAs(i,j ,bi,bj) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
161 |
SHAP_FILT_APPLY_UV |
& +Shap_tmpFld2(i,j+1,k,bi,bj)*vFld(i,j+1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
162 |
SHAP_FILT_APPLY_UV |
& *_hFacS(i,j+1,k,bi,bj)*rAs(i,j+1,bi,bj) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
163 |
SHAP_FILT_APPLY_UV |
& ) )*recip_rA(i,j,bi,bj) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
169 |
SHAP_FILT_APPLY_UV |
DO i=1,sNx |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
170 |
SHAP_FILT_APPLY_UV |
frictionHeating(i,j,k,bi,bj) = |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
171 |
SHAP_FILT_APPLY_UV |
& frictionHeating(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
172 |
SHAP_FILT_APPLY_UV |
& - dKE_shap(i,j)*drF(k)*rUnit2mass |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
67 |
SHAP_FILT_APPLY_UV |
INTEGER bi, bj, k, i, j |
|
./pkg/shap_filt/shap_filt_computvort.F |
103 |
SHAP_FILT_COMPUTVORT |
i=1 |
|
./pkg/shap_filt/shap_filt_computvort.F |
105 |
SHAP_FILT_COMPUTVORT |
maskZ = maskW(i,j,k,bi,bj)+maskW(i,j-1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_computvort.F |
106 |
SHAP_FILT_COMPUTVORT |
& +maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_computvort.F |
108 |
SHAP_FILT_COMPUTVORT |
vort(i,j)= |
|
./pkg/shap_filt/shap_filt_computvort.F |
109 |
SHAP_FILT_COMPUTVORT |
& (+vFld(i,j) -uFld(i,j) ) +uFld(i,j-1) |
|
./pkg/shap_filt/shap_filt_computvort.F |
110 |
SHAP_FILT_COMPUTVORT |
vort(i,j)=vort(i,j)*4. _d 0 / 3. _d 0 |
|
./pkg/shap_filt/shap_filt_computvort.F |
112 |
SHAP_FILT_COMPUTVORT |
vort(i,j)=0. |
|
./pkg/shap_filt/shap_filt_computvort.F |
117 |
SHAP_FILT_COMPUTVORT |
i=sNx+1 |
|
./pkg/shap_filt/shap_filt_computvort.F |
119 |
SHAP_FILT_COMPUTVORT |
maskZ = maskW(i,j,k,bi,bj)+maskW(i,j-1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_computvort.F |
120 |
SHAP_FILT_COMPUTVORT |
& +maskS(i-1,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_computvort.F |
123 |
SHAP_FILT_COMPUTVORT |
vort(i,j)= |
|
./pkg/shap_filt/shap_filt_computvort.F |
124 |
SHAP_FILT_COMPUTVORT |
& (-uFld(i,j) -vFld(i-1,j) ) +uFld(i,j-1) |
|
./pkg/shap_filt/shap_filt_computvort.F |
126 |
SHAP_FILT_COMPUTVORT |
vort(i,j)= |
|
./pkg/shap_filt/shap_filt_computvort.F |
127 |
SHAP_FILT_COMPUTVORT |
& (-vFld(i-1,j) +uFld(i,j-1) ) -uFld(i,j) |
|
./pkg/shap_filt/shap_filt_computvort.F |
129 |
SHAP_FILT_COMPUTVORT |
vort(i,j)= |
|
./pkg/shap_filt/shap_filt_computvort.F |
130 |
SHAP_FILT_COMPUTVORT |
& (+uFld(i,j-1) -uFld(i,j) ) -vFld(i-1,j) |
|
./pkg/shap_filt/shap_filt_computvort.F |
132 |
SHAP_FILT_COMPUTVORT |
vort(i,j)=vort(i,j)*4. _d 0 / 3. _d 0 |
|
./pkg/shap_filt/shap_filt_computvort.F |
134 |
SHAP_FILT_COMPUTVORT |
vort(i,j)=0. |
|
./pkg/shap_filt/shap_filt_computvort.F |
139 |
SHAP_FILT_COMPUTVORT |
i=1 |
|
./pkg/shap_filt/shap_filt_computvort.F |
141 |
SHAP_FILT_COMPUTVORT |
maskZ = maskW(i,j,k,bi,bj)+maskW(i,j-1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_computvort.F |
142 |
SHAP_FILT_COMPUTVORT |
& +maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_computvort.F |
145 |
SHAP_FILT_COMPUTVORT |
vort(i,j)= |
|
./pkg/shap_filt/shap_filt_computvort.F |
146 |
SHAP_FILT_COMPUTVORT |
& (+uFld(i,j-1) +vFld(i,j) ) -uFld(i,j) |
|
./pkg/shap_filt/shap_filt_computvort.F |
148 |
SHAP_FILT_COMPUTVORT |
vort(i,j)= |
|
./pkg/shap_filt/shap_filt_computvort.F |
149 |
SHAP_FILT_COMPUTVORT |
& (-uFld(i,j) +uFld(i,j-1) ) +vFld(i,j) |
|
./pkg/shap_filt/shap_filt_computvort.F |
151 |
SHAP_FILT_COMPUTVORT |
vort(i,j)= |
|
./pkg/shap_filt/shap_filt_computvort.F |
152 |
SHAP_FILT_COMPUTVORT |
& (+vFld(i,j) -uFld(i,j) ) +uFld(i,j-1) |
|
./pkg/shap_filt/shap_filt_computvort.F |
154 |
SHAP_FILT_COMPUTVORT |
vort(i,j)=vort(i,j)*4. _d 0 / 3. _d 0 |
|
./pkg/shap_filt/shap_filt_computvort.F |
156 |
SHAP_FILT_COMPUTVORT |
vort(i,j)=0. |
|
./pkg/shap_filt/shap_filt_computvort.F |
161 |
SHAP_FILT_COMPUTVORT |
i=sNx+1 |
|
./pkg/shap_filt/shap_filt_computvort.F |
163 |
SHAP_FILT_COMPUTVORT |
maskZ = maskW(i,j,k,bi,bj)+maskW(i,j-1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_computvort.F |
164 |
SHAP_FILT_COMPUTVORT |
& +maskS(i-1,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_computvort.F |
167 |
SHAP_FILT_COMPUTVORT |
vort(i,j)= |
|
./pkg/shap_filt/shap_filt_computvort.F |
168 |
SHAP_FILT_COMPUTVORT |
& (-uFld(i,j) -vFld(i-1,j) ) +uFld(i,j-1) |
|
./pkg/shap_filt/shap_filt_computvort.F |
170 |
SHAP_FILT_COMPUTVORT |
vort(i,j)= |
|
./pkg/shap_filt/shap_filt_computvort.F |
171 |
SHAP_FILT_COMPUTVORT |
& (+uFld(i,j-1) -uFld(i,j) ) -vFld(i-1,j) |
|
./pkg/shap_filt/shap_filt_computvort.F |
173 |
SHAP_FILT_COMPUTVORT |
vort(i,j)=vort(i,j)*4. _d 0 / 3. _d 0 |
|
./pkg/shap_filt/shap_filt_computvort.F |
175 |
SHAP_FILT_COMPUTVORT |
vort(i,j)=0. |
|
./pkg/shap_filt/shap_filt_computvort.F |
51 |
SHAP_FILT_COMPUTVORT |
INTEGER i,j |
|
./pkg/shap_filt/shap_filt_computvort.F |
64 |
SHAP_FILT_COMPUTVORT |
DO i=1-OLx,sNx+OLx |
|
./pkg/shap_filt/shap_filt_computvort.F |
65 |
SHAP_FILT_COMPUTVORT |
vort(i,j)= 0. |
|
./pkg/shap_filt/shap_filt_computvort.F |
72 |
SHAP_FILT_COMPUTVORT |
DO i=2-OLx,sNx+OLx |
|
./pkg/shap_filt/shap_filt_computvort.F |
73 |
SHAP_FILT_COMPUTVORT |
vort(i,j) = ( vFld(i,j)-vFld(i-1,j) ) |
|
./pkg/shap_filt/shap_filt_computvort.F |
74 |
SHAP_FILT_COMPUTVORT |
& - ( uFld(i,j)-uFld(i,j-1) ) |
|
./pkg/shap_filt/shap_filt_computvort.F |
75 |
SHAP_FILT_COMPUTVORT |
maskZ = (maskW(i,j,k,bi,bj)+maskW(i,j-1,k,bi,bj)) |
|
./pkg/shap_filt/shap_filt_computvort.F |
76 |
SHAP_FILT_COMPUTVORT |
& *(maskS(i,j,k,bi,bj)+maskS(i-1,j,k,bi,bj)) |
|
./pkg/shap_filt/shap_filt_computvort.F |
77 |
SHAP_FILT_COMPUTVORT |
IF (maskZ.LT.1.) vort(i,j)=0. |
|
./model/src/ini_curvilinear_grid.F |
211 |
INI_CURVILINEAR_GRID |
DO i = 1,80 |
|
./model/src/ini_curvilinear_grid.F |
212 |
INI_CURVILINEAR_GRID |
mncFn(i:i) = ' ' |
|
./model/src/ini_curvilinear_grid.F |
215 |
INI_CURVILINEAR_GRID |
DO i = 1,MAX_LEN_MBUF |
|
./model/src/ini_curvilinear_grid.F |
216 |
INI_CURVILINEAR_GRID |
msgBuf(i:i) = ' ' |
|
./model/src/ini_curvilinear_grid.F |
393 |
INI_CURVILINEAR_GRID |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_curvilinear_grid.F |
394 |
INI_CURVILINEAR_GRID |
dxC(i,j,bi,bj) = dxC(i,j,bi,bj)*tmpFac |
|
./model/src/ini_curvilinear_grid.F |
395 |
INI_CURVILINEAR_GRID |
dyC(i,j,bi,bj) = dyC(i,j,bi,bj)*tmpFac |
|
./model/src/ini_curvilinear_grid.F |
396 |
INI_CURVILINEAR_GRID |
dxG(i,j,bi,bj) = dxG(i,j,bi,bj)*tmpFac |
|
./model/src/ini_curvilinear_grid.F |
397 |
INI_CURVILINEAR_GRID |
dyG(i,j,bi,bj) = dyG(i,j,bi,bj)*tmpFac |
|
./model/src/ini_curvilinear_grid.F |
398 |
INI_CURVILINEAR_GRID |
dxF(i,j,bi,bj) = dxF(i,j,bi,bj)*tmpFac |
|
./model/src/ini_curvilinear_grid.F |
399 |
INI_CURVILINEAR_GRID |
dyF(i,j,bi,bj) = dyF(i,j,bi,bj)*tmpFac |
|
./model/src/ini_curvilinear_grid.F |
400 |
INI_CURVILINEAR_GRID |
dxV(i,j,bi,bj) = dxV(i,j,bi,bj)*tmpFac |
|
./model/src/ini_curvilinear_grid.F |
401 |
INI_CURVILINEAR_GRID |
dyU(i,j,bi,bj) = dyU(i,j,bi,bj)*tmpFac |
|
./model/src/ini_curvilinear_grid.F |
402 |
INI_CURVILINEAR_GRID |
rA (i,j,bi,bj) = rA (i,j,bi,bj)*tmpFac2 |
|
./model/src/ini_curvilinear_grid.F |
403 |
INI_CURVILINEAR_GRID |
rAz(i,j,bi,bj) = rAz(i,j,bi,bj)*tmpFac2 |
|
./model/src/ini_curvilinear_grid.F |
404 |
INI_CURVILINEAR_GRID |
rAw(i,j,bi,bj) = rAw(i,j,bi,bj)*tmpFac2 |
|
./model/src/ini_curvilinear_grid.F |
405 |
INI_CURVILINEAR_GRID |
rAs(i,j,bi,bj) = rAs(i,j,bi,bj)*tmpFac2 |
|
./model/src/ini_curvilinear_grid.F |
50 |
INI_CURVILINEAR_GRID |
INTEGER i,j |
|
./pkg/shap_filt/shap_filt_relvort3.F |
40 |
SHAP_FILT_RELVORT3 |
INTEGER i,j |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
111 |
SHAP_FILT_TRACER_S1 |
tmpScal=field(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
112 |
SHAP_FILT_TRACER_S1 |
field(i,j,k,bi,bj)=field(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
113 |
SHAP_FILT_TRACER_S1 |
& -0.5*tmpFld(i,j,k,bi,bj)*dTtracerLev(1)/Shap_Trtau |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
114 |
SHAP_FILT_TRACER_S1 |
tmpFld(i,j,k,bi,bj)=tmpScal |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
138 |
SHAP_FILT_TRACER_S1 |
tmpGrd(i,j) = -0.25*( |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
139 |
SHAP_FILT_TRACER_S1 |
& ( tmpFld(i,j+1,k,bi,bj)-tmpFld(i, j ,k,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
140 |
SHAP_FILT_TRACER_S1 |
& *_maskS(i,j+1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
141 |
SHAP_FILT_TRACER_S1 |
& -( tmpFld(i, j ,k,bi,bj)-tmpFld(i,j-1,k,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
142 |
SHAP_FILT_TRACER_S1 |
& *_maskS(i,j,k,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
148 |
SHAP_FILT_TRACER_S1 |
tmpFld(i,j,k,bi,bj) = tmpGrd(i,j) |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
164 |
SHAP_FILT_TRACER_S1 |
field(i,j,k,bi,bj)=field(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
165 |
SHAP_FILT_TRACER_S1 |
& -0.5*tmpFld(i,j,k,bi,bj)*dTtracerLev(1)/Shap_Trtau |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
61 |
SHAP_FILT_TRACER_S1 |
tmpFld(i,j,k,bi,bj)=field(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
85 |
SHAP_FILT_TRACER_S1 |
tmpGrd(i,j) = -0.25*( |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
86 |
SHAP_FILT_TRACER_S1 |
& ( tmpFld(i+1,j,k,bi,bj)-tmpFld( i ,j,k,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
87 |
SHAP_FILT_TRACER_S1 |
& *_maskW(i+1,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
88 |
SHAP_FILT_TRACER_S1 |
& -( tmpFld( i ,j,k,bi,bj)-tmpFld(i-1,j,k,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
89 |
SHAP_FILT_TRACER_S1 |
& *_maskW(i,j,k,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
95 |
SHAP_FILT_TRACER_S1 |
tmpFld(i,j,k,bi,bj) = tmpGrd(i,j) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
124 |
SHAP_FILT_TRACER_S2 |
DO i=0,sNx+2 |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
125 |
SHAP_FILT_TRACER_S2 |
tmpFdx(i,j) = |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
126 |
SHAP_FILT_TRACER_S2 |
& ( tmpFld(i,j,k,bi,bj)-tmpFld(i-1,j,k,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
127 |
SHAP_FILT_TRACER_S2 |
& *_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
133 |
SHAP_FILT_TRACER_S2 |
DO i=0,sNx+2 |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
134 |
SHAP_FILT_TRACER_S2 |
tmpFdx(i,j) = |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
135 |
SHAP_FILT_TRACER_S2 |
& ( tmpFld(i,j,k,bi,bj)-tmpFld(i-1,j,k,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
136 |
SHAP_FILT_TRACER_S2 |
& *_hFacW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
137 |
SHAP_FILT_TRACER_S2 |
& *dyG(i,j,bi,bj)*recip_dxC(i,j,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
155 |
SHAP_FILT_TRACER_S2 |
DO i=0,sNx+1 |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
156 |
SHAP_FILT_TRACER_S2 |
tmpFdy(i,j) = |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
157 |
SHAP_FILT_TRACER_S2 |
& ( tmpFld(i,j,k,bi,bj)-tmpFld(i,j-1,k,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
158 |
SHAP_FILT_TRACER_S2 |
& *_maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
164 |
SHAP_FILT_TRACER_S2 |
DO i=0,sNx+1 |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
165 |
SHAP_FILT_TRACER_S2 |
tmpFdy(i,j) = |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
166 |
SHAP_FILT_TRACER_S2 |
& ( tmpFld(i,j,k,bi,bj)-tmpFld(i,j-1,k,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
167 |
SHAP_FILT_TRACER_S2 |
& *_hFacS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
168 |
SHAP_FILT_TRACER_S2 |
& *dxG(i,j,bi,bj)*recip_dyC(i,j,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
175 |
SHAP_FILT_TRACER_S2 |
DO i=0,sNx+1 |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
176 |
SHAP_FILT_TRACER_S2 |
tmpGrd(i,j) = ( tmpFdx(i+1,j) - tmpFdx(i,j) ) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
177 |
SHAP_FILT_TRACER_S2 |
& + ( tmpFdy(i,j+1) - tmpFdy(i,j) ) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
184 |
SHAP_FILT_TRACER_S2 |
DO i=0,sNx+1 |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
185 |
SHAP_FILT_TRACER_S2 |
tmpFld(i,j,k,bi,bj) = -0.125*tmpGrd(i,j) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
191 |
SHAP_FILT_TRACER_S2 |
DO i=0,sNx+1 |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
192 |
SHAP_FILT_TRACER_S2 |
tmpFld(i,j,k,bi,bj) = -0.125*tmpGrd(i,j) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
193 |
SHAP_FILT_TRACER_S2 |
& *recip_hFacC(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
198 |
SHAP_FILT_TRACER_S2 |
DO i=0,sNx+1 |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
199 |
SHAP_FILT_TRACER_S2 |
tmpFld(i,j,k,bi,bj) = -0.125*tmpGrd(i,j) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
200 |
SHAP_FILT_TRACER_S2 |
& *recip_hFacC(i,j,k,bi,bj)*recip_rA(i,j,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
219 |
SHAP_FILT_TRACER_S2 |
DO i=1,sNx |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
220 |
SHAP_FILT_TRACER_S2 |
field(i,j,k,bi,bj)=field(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
221 |
SHAP_FILT_TRACER_S2 |
& -tmpFld(i,j,k,bi,bj)*dTtracerLev(1)/Shap_Trtau |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
222 |
SHAP_FILT_TRACER_S2 |
tmpFld(i,j,k,bi,bj)= -tmpFld(i,j,k,bi,bj)/Shap_Trtau |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
61 |
SHAP_FILT_TRACER_S2 |
INTEGER bi,bj,k,i,j,n |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
82 |
SHAP_FILT_TRACER_S2 |
DO i=1-OLx,sNx+OLx |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
83 |
SHAP_FILT_TRACER_S2 |
tmpFld(i,j,k,bi,bj)=field(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
110 |
SHAP_FILT_TRACER_S4 |
field(i,j,k,bi,bj)=field(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
111 |
SHAP_FILT_TRACER_S4 |
& -tmpFld(i,j,k,bi,bj)*dTtracerLev(1)/Shap_Trtau |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
112 |
SHAP_FILT_TRACER_S4 |
tmpFld(i,j,k,bi,bj)=field(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
136 |
SHAP_FILT_TRACER_S4 |
tmpGrd(i,j) = -0.25*( |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
137 |
SHAP_FILT_TRACER_S4 |
& ( tmpFld(i,j+1,k,bi,bj)-tmpFld(i, j ,k,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
138 |
SHAP_FILT_TRACER_S4 |
& *_maskS(i,j+1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
139 |
SHAP_FILT_TRACER_S4 |
& -( tmpFld(i, j ,k,bi,bj)-tmpFld(i,j-1,k,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
140 |
SHAP_FILT_TRACER_S4 |
& *_maskS(i,j,k,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
146 |
SHAP_FILT_TRACER_S4 |
tmpFld(i,j,k,bi,bj) = tmpGrd(i,j) |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
162 |
SHAP_FILT_TRACER_S4 |
field(i,j,k,bi,bj)=field(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
163 |
SHAP_FILT_TRACER_S4 |
& -tmpFld(i,j,k,bi,bj)*dTtracerLev(1)/Shap_Trtau |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
60 |
SHAP_FILT_TRACER_S4 |
tmpFld(i,j,k,bi,bj)=field(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
84 |
SHAP_FILT_TRACER_S4 |
tmpGrd(i,j) = -0.25*( |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
85 |
SHAP_FILT_TRACER_S4 |
& ( tmpFld(i+1,j,k,bi,bj)-tmpFld( i ,j,k,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
86 |
SHAP_FILT_TRACER_S4 |
& *_maskW(i+1,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
87 |
SHAP_FILT_TRACER_S4 |
& -( tmpFld( i ,j,k,bi,bj)-tmpFld(i-1,j,k,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
88 |
SHAP_FILT_TRACER_S4 |
& *_maskW(i,j,k,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
94 |
SHAP_FILT_TRACER_S4 |
tmpFld(i,j,k,bi,bj) = tmpGrd(i,j) |
|
./pkg/shap_filt/shap_filt_tracerold.F |
38 |
SHAP_FILT_TRACEROLD |
tmpFldX(i,j,1) = field(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracerold.F |
48 |
SHAP_FILT_TRACEROLD |
tmpFldX(i,j,N2) = -0.25*( |
|
./pkg/shap_filt/shap_filt_tracerold.F |
49 |
SHAP_FILT_TRACEROLD |
& ( tmpFldX(i+1,j,N1)-tmpFldX( i ,j,N1) ) |
|
./pkg/shap_filt/shap_filt_tracerold.F |
50 |
SHAP_FILT_TRACEROLD |
& *_maskW(i+1,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracerold.F |
51 |
SHAP_FILT_TRACEROLD |
& -( tmpFldX( i ,j,N1)-tmpFldX(i-1,j,N1) ) |
|
./pkg/shap_filt/shap_filt_tracerold.F |
52 |
SHAP_FILT_TRACEROLD |
& *_maskW(i,j,k,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_tracerold.F |
60 |
SHAP_FILT_TRACEROLD |
tmpFldX(i,j,N2) = field(i,j,k,bi,bj) - tmpFldX(i,j,N2) |
|
./pkg/shap_filt/shap_filt_tracerold.F |
61 |
SHAP_FILT_TRACEROLD |
tmpFldY(i,j,1) = tmpFldX(i,j,N2) |
|
./pkg/shap_filt/shap_filt_tracerold.F |
67 |
SHAP_FILT_TRACEROLD |
tmpFldY(i,j,1) = field(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracerold.F |
78 |
SHAP_FILT_TRACEROLD |
tmpFldY(i,j,N2) = -0.25*( |
|
./pkg/shap_filt/shap_filt_tracerold.F |
79 |
SHAP_FILT_TRACEROLD |
& ( tmpFldY(i,j+1,N1)-tmpFldY(i, j ,N1) ) |
|
./pkg/shap_filt/shap_filt_tracerold.F |
80 |
SHAP_FILT_TRACEROLD |
& *_maskS(i,j+1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracerold.F |
81 |
SHAP_FILT_TRACEROLD |
& -( tmpFldY(i, j ,N1)-tmpFldY(i,j-1,N1) ) |
|
./pkg/shap_filt/shap_filt_tracerold.F |
82 |
SHAP_FILT_TRACEROLD |
& *_maskS(i,j,k,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_tracerold.F |
91 |
SHAP_FILT_TRACEROLD |
field(i,j,k,bi,bj) = tmpFldX(i,j,N2) - tmpFldY(i,j,N2) |
|
./pkg/shap_filt/shap_filt_tracerold.F |
97 |
SHAP_FILT_TRACEROLD |
field(i,j,k,bi,bj) = field(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracerold.F |
98 |
SHAP_FILT_TRACEROLD |
& -0.5*( tmpFldX(i,j,N2)+tmpFldY(i,j,N2) ) |
|
./pkg/shap_filt/shap_filt_u.F |
101 |
SHAP_FILT_U |
uVel(i,j,k,bi,bj) = tmpFldX(i,j,N2) - tmpFldY(i,j,N2) |
|
./pkg/shap_filt/shap_filt_u.F |
107 |
SHAP_FILT_U |
uVel(i,j,k,bi,bj) = uVel(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_u.F |
108 |
SHAP_FILT_U |
& -0.5*( tmpFldX(i,j,N2)+tmpFldY(i,j,N2) ) |
|
./pkg/shap_filt/shap_filt_u.F |
37 |
SHAP_FILT_U |
tmpFldX(i,j,1) = uVel(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_u.F |
38 |
SHAP_FILT_U |
& *_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_u.F |
48 |
SHAP_FILT_U |
tmpFldX(i,j,N2) = -0.25*( |
|
./pkg/shap_filt/shap_filt_u.F |
49 |
SHAP_FILT_U |
& tmpFldX(i-1,j,N1) + tmpFldX(i+1,j,N1) |
|
./pkg/shap_filt/shap_filt_u.F |
50 |
SHAP_FILT_U |
& - 2.*tmpFldX(i,j,N1) |
|
./pkg/shap_filt/shap_filt_u.F |
51 |
SHAP_FILT_U |
& )*_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_u.F |
59 |
SHAP_FILT_U |
maskZ(i,j) = _maskS(i-1,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_u.F |
60 |
SHAP_FILT_U |
& *_maskS( i ,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_u.F |
67 |
SHAP_FILT_U |
tmpFldX(i,j,N2) = uVel(i,j,k,bi,bj) - tmpFldX(i,j,N2) |
|
./pkg/shap_filt/shap_filt_u.F |
68 |
SHAP_FILT_U |
tmpFldY(i,j,1) = tmpFldX(i,j,N2) |
|
./pkg/shap_filt/shap_filt_u.F |
74 |
SHAP_FILT_U |
tmpFldY(i,j,1) = uVel(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_u.F |
75 |
SHAP_FILT_U |
& *_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_u.F |
86 |
SHAP_FILT_U |
tmpFldY(i,j,N2) = -0.25*( |
|
./pkg/shap_filt/shap_filt_u.F |
87 |
SHAP_FILT_U |
& (tmpFldY(i,j+1,N1)-tmpFldY(i, j ,N1))*maskZ(i,j+1) |
|
./pkg/shap_filt/shap_filt_u.F |
88 |
SHAP_FILT_U |
& -(tmpFldY(i, j ,N1)-tmpFldY(i,j-1,N1))*maskZ(i, j ) |
|
./pkg/shap_filt/shap_filt_u.F |
90 |
SHAP_FILT_U |
& -2.*(2.-maskZ(i,j)-maskZ(i,j+1))*tmpFldY(i,j,N1) |
|
./pkg/shap_filt/shap_filt_u.F |
92 |
SHAP_FILT_U |
& )*_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
100 |
SHAP_FILT_UV_S1 |
& - 2.*tmpFldU(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
101 |
SHAP_FILT_UV_S1 |
& )*_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
107 |
SHAP_FILT_UV_S1 |
tmpFldU(i,j,k,bi,bj) = tmpGrdU(i,j) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
114 |
SHAP_FILT_UV_S1 |
tmpGrdV(i,j) = -0.25*( |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
115 |
SHAP_FILT_UV_S1 |
& tmpFldV(i,j-1,k,bi,bj) + tmpFldV(i,j+1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
116 |
SHAP_FILT_UV_S1 |
& - 2.*tmpFldV(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
117 |
SHAP_FILT_UV_S1 |
& )*_maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
123 |
SHAP_FILT_UV_S1 |
tmpFldV(i,j,k,bi,bj) = tmpGrdV(i,j) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
139 |
SHAP_FILT_UV_S1 |
tmpScal = uFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
140 |
SHAP_FILT_UV_S1 |
uFld(i,j,k,bi,bj) = uFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
141 |
SHAP_FILT_UV_S1 |
& -0.5*tmpFldU(i,j,k,bi,bj)*deltaTmom/Shap_uvtau |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
142 |
SHAP_FILT_UV_S1 |
tmpFldU(i,j,k,bi,bj) = tmpScal*_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
147 |
SHAP_FILT_UV_S1 |
tmpScal = vFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
148 |
SHAP_FILT_UV_S1 |
vFld(i,j,k,bi,bj) = vFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
149 |
SHAP_FILT_UV_S1 |
& -0.5*tmpFldV(i,j,k,bi,bj)*deltaTmom/Shap_uvtau |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
150 |
SHAP_FILT_UV_S1 |
tmpFldV(i,j,k,bi,bj) = tmpScal*_maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
175 |
SHAP_FILT_UV_S1 |
maskZj=_maskS(i-1, j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
176 |
SHAP_FILT_UV_S1 |
& *_maskS( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
177 |
SHAP_FILT_UV_S1 |
maskZp=_maskS(i-1,j+1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
178 |
SHAP_FILT_UV_S1 |
& *_maskS( i ,j+1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
179 |
SHAP_FILT_UV_S1 |
tmpGrdU(i,j) = -0.25*( |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
180 |
SHAP_FILT_UV_S1 |
& (tmpFldU(i,j+1,k,bi,bj)-tmpFldU(i, j ,k,bi,bj))*maskZp |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
181 |
SHAP_FILT_UV_S1 |
& -(tmpFldU(i, j ,k,bi,bj)-tmpFldU(i,j-1,k,bi,bj))*maskZj |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
182 |
SHAP_FILT_UV_S1 |
& -noSlipFact*(2.-maskZj-maskZp)*tmpFldU(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
183 |
SHAP_FILT_UV_S1 |
& )*_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
190 |
SHAP_FILT_UV_S1 |
maskZj=maskS(i-1, j ,k,bi,bj)*maskS( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
191 |
SHAP_FILT_UV_S1 |
maskZp=maskS(i-1,j+1,k,bi,bj)*maskS( i ,j+1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
192 |
SHAP_FILT_UV_S1 |
tmpGrdU(i,j) = -0.25*( |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
193 |
SHAP_FILT_UV_S1 |
& (tmpFldU(i,j+1,k,bi,bj)-tmpFldU(i, j ,k,bi,bj))*maskZp |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
194 |
SHAP_FILT_UV_S1 |
& -(tmpFldU(i, j ,k,bi,bj)-0*tmpFldU(i,j-1,k,bi,bj))*maskZj |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
195 |
SHAP_FILT_UV_S1 |
& -noSlipFact*(2.-maskZj-maskZp)*tmpFldU(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
196 |
SHAP_FILT_UV_S1 |
& )*_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
198 |
SHAP_FILT_UV_S1 |
maskZj=maskS(i-1, j ,k,bi,bj)*maskS( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
199 |
SHAP_FILT_UV_S1 |
maskZp=maskS(i-1,j+1,k,bi,bj)*maskS( i ,j+1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
200 |
SHAP_FILT_UV_S1 |
tmpGrdU(i,j) = -0.25*( |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
201 |
SHAP_FILT_UV_S1 |
& (0*tmpFldU(i,j+1,k,bi,bj)-tmpFldU(i, j ,k,bi,bj))*maskZp |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
202 |
SHAP_FILT_UV_S1 |
& -(tmpFldU(i, j ,k,bi,bj)-tmpFldU(i,j-1,k,bi,bj))*maskZj |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
203 |
SHAP_FILT_UV_S1 |
& -noSlipFact*(2.-maskZj-maskZp)*tmpFldU(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
204 |
SHAP_FILT_UV_S1 |
& )*_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
210 |
SHAP_FILT_UV_S1 |
tmpFldU(i,j,k,bi,bj) = tmpGrdU(i,j) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
217 |
SHAP_FILT_UV_S1 |
maskZj=_maskW( i ,j-1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
218 |
SHAP_FILT_UV_S1 |
& *_maskW( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
219 |
SHAP_FILT_UV_S1 |
maskZp=_maskW(i+1,j-1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
220 |
SHAP_FILT_UV_S1 |
& *_maskW(i+1, j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
221 |
SHAP_FILT_UV_S1 |
tmpGrdV(i,j) = -0.25*( |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
222 |
SHAP_FILT_UV_S1 |
& (tmpFldV(i+1,j,k,bi,bj)-tmpFldV( i ,j,k,bi,bj))*maskZp |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
223 |
SHAP_FILT_UV_S1 |
& -(tmpFldV( i ,j,k,bi,bj)-tmpFldV(i-1,j,k,bi,bj))*maskZj |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
224 |
SHAP_FILT_UV_S1 |
& -noSlipFact*(2.-maskZj-maskZp)*tmpFldV(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
225 |
SHAP_FILT_UV_S1 |
& )*_maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
232 |
SHAP_FILT_UV_S1 |
maskZj=maskW( i ,j-1,k,bi,bj)*maskW( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
233 |
SHAP_FILT_UV_S1 |
maskZp=maskW(i+1,j-1,k,bi,bj)*maskW(i+1, j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
234 |
SHAP_FILT_UV_S1 |
tmpGrdV(i,j) = -0.25*( |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
235 |
SHAP_FILT_UV_S1 |
& (tmpFldV(i+1,j,k,bi,bj)-tmpFldV( i ,j,k,bi,bj))*maskZp |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
236 |
SHAP_FILT_UV_S1 |
& -(tmpFldV( i ,j,k,bi,bj)-0*tmpFldV(i-1,j,k,bi,bj))*maskZj |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
237 |
SHAP_FILT_UV_S1 |
& -noSlipFact*(2.-maskZj-maskZp)*tmpFldV(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
238 |
SHAP_FILT_UV_S1 |
& )*_maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
240 |
SHAP_FILT_UV_S1 |
maskZj=maskW( i ,j-1,k,bi,bj)*maskW( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
241 |
SHAP_FILT_UV_S1 |
maskZp=maskW(i+1,j-1,k,bi,bj)*maskW(i+1, j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
242 |
SHAP_FILT_UV_S1 |
tmpGrdV(i,j) = -0.25*( |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
243 |
SHAP_FILT_UV_S1 |
& (0*tmpFldV(i+1,j,k,bi,bj)-tmpFldV( i ,j,k,bi,bj))*maskZp |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
244 |
SHAP_FILT_UV_S1 |
& -(tmpFldV( i ,j,k,bi,bj)-tmpFldV(i-1,j,k,bi,bj))*maskZj |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
245 |
SHAP_FILT_UV_S1 |
& -noSlipFact*(2.-maskZj-maskZp)*tmpFldV(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
246 |
SHAP_FILT_UV_S1 |
& )*_maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
252 |
SHAP_FILT_UV_S1 |
tmpFldV(i,j,k,bi,bj) = tmpGrdV(i,j) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
268 |
SHAP_FILT_UV_S1 |
uFld(i,j,k,bi,bj) = uFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
269 |
SHAP_FILT_UV_S1 |
& -0.5*tmpFldU(i,j,k,bi,bj)*deltaTmom/Shap_uvtau |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
274 |
SHAP_FILT_UV_S1 |
vFld(i,j,k,bi,bj) = vFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
275 |
SHAP_FILT_UV_S1 |
& -0.5*tmpFldV(i,j,k,bi,bj)*deltaTmom/Shap_uvtau |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
53 |
SHAP_FILT_UV_S1 |
INTEGER bi,bj,k,i,j,N |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
70 |
SHAP_FILT_UV_S1 |
tmpFldU(i,j,k,bi,bj)=uFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
71 |
SHAP_FILT_UV_S1 |
& *_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
72 |
SHAP_FILT_UV_S1 |
tmpFldV(i,j,k,bi,bj)=vFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
73 |
SHAP_FILT_UV_S1 |
& *_maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
98 |
SHAP_FILT_UV_S1 |
tmpGrdU(i,j) = -0.25*( |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
99 |
SHAP_FILT_UV_S1 |
& tmpFldU(i-1,j,k,bi,bj) + tmpFldU(i+1,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
138 |
SHAP_FILT_UV_S2 |
DO i=1-OLx,sNx+OLx-1 |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
139 |
SHAP_FILT_UV_S2 |
hDiv(i,j)=(tmpFldU(i+1,j,k,bi,bj)-tmpFldU(i,j,k,bi,bj)) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
140 |
SHAP_FILT_UV_S2 |
& +(tmpFldV(i,j+1,k,bi,bj)-tmpFldV(i,j,k,bi,bj)) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
155 |
SHAP_FILT_UV_S2 |
DO i=1-OLx,sNx+OLx-1 |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
156 |
SHAP_FILT_UV_S2 |
hDiv(i,j) = hDiv(i,j) * rA(i,j,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
160 |
SHAP_FILT_UV_S2 |
DO i=2-OLx,sNx+OLx |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
161 |
SHAP_FILT_UV_S2 |
vort3(i,j)= vort3(i,j)*rAz(i,j,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
172 |
SHAP_FILT_UV_S2 |
DO i=2-OLx,sNx+OLx-1 |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
173 |
SHAP_FILT_UV_S2 |
tmpFldU(i,j,k,bi,bj) = -0.125 _d 0*tmpFldU(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
174 |
SHAP_FILT_UV_S2 |
& *_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
175 |
SHAP_FILT_UV_S2 |
tmpFldV(i,j,k,bi,bj) = -0.125 _d 0*tmpFldV(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
176 |
SHAP_FILT_UV_S2 |
& *_maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
181 |
SHAP_FILT_UV_S2 |
DO i=2-OLx,sNx+OLx-1 |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
182 |
SHAP_FILT_UV_S2 |
tmpFldU(i,j,k,bi,bj) = -0.125 _d 0*tmpFldU(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
183 |
SHAP_FILT_UV_S2 |
& *rAw(i,j,bi,bj)*_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
184 |
SHAP_FILT_UV_S2 |
tmpFldV(i,j,k,bi,bj) = -0.125 _d 0*tmpFldV(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
185 |
SHAP_FILT_UV_S2 |
& *rAs(i,j,bi,bj)*_maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
190 |
SHAP_FILT_UV_S2 |
DO i=2-OLx,sNx+OLx-1 |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
191 |
SHAP_FILT_UV_S2 |
tmpFldU(i,j,k,bi,bj) = -0.125 _d 0*tmpFldU(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
192 |
SHAP_FILT_UV_S2 |
& *Shap_uvLength*Shap_uvLength*_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
193 |
SHAP_FILT_UV_S2 |
tmpFldV(i,j,k,bi,bj) = -0.125 _d 0*tmpFldV(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
194 |
SHAP_FILT_UV_S2 |
& *Shap_uvLength*Shap_uvLength*_maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
209 |
SHAP_FILT_UV_S2 |
DO i=2-OLx,sNx+OLx-1 |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
210 |
SHAP_FILT_UV_S2 |
tmpFldU(i,j,k,bi,bj) = -0.125 _d 0* |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
211 |
SHAP_FILT_UV_S2 |
& ( (hDiv(i,j) - hDiv(i-1,j)) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
212 |
SHAP_FILT_UV_S2 |
& -(vort3(i,j+1)-vort3(i,j)) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
213 |
SHAP_FILT_UV_S2 |
& )*maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
225 |
SHAP_FILT_UV_S2 |
DO i=2-OLx,sNx+OLx-1 |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
226 |
SHAP_FILT_UV_S2 |
tmpFldV(i,j,k,bi,bj) = -0.125 _d 0* |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
227 |
SHAP_FILT_UV_S2 |
& ( (hDiv(i,j) - hDiv(i,j-1)) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
228 |
SHAP_FILT_UV_S2 |
& +(vort3(i+1,j)-vort3(i,j)) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
229 |
SHAP_FILT_UV_S2 |
& )*maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
249 |
SHAP_FILT_UV_S2 |
DO i=1,sNx+1 |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
250 |
SHAP_FILT_UV_S2 |
uFld(i,j,k,bi,bj)=uFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
251 |
SHAP_FILT_UV_S2 |
& -tmpFldU(i,j,k,bi,bj)*deltaTMom/Shap_uvtau |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
252 |
SHAP_FILT_UV_S2 |
tmpFldU(i,j,k,bi,bj)= -tmpFldU(i,j,k,bi,bj)/Shap_uvtau |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
256 |
SHAP_FILT_UV_S2 |
DO i=1,sNx |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
257 |
SHAP_FILT_UV_S2 |
vFld(i,j,k,bi,bj)=vFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
258 |
SHAP_FILT_UV_S2 |
& -tmpFldV(i,j,k,bi,bj)*deltaTMom/Shap_uvtau |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
259 |
SHAP_FILT_UV_S2 |
tmpFldV(i,j,k,bi,bj)= -tmpFldV(i,j,k,bi,bj)/Shap_uvtau |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
67 |
SHAP_FILT_UV_S2 |
INTEGER bi,bj,k,i,j,n |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
79 |
SHAP_FILT_UV_S2 |
DO i=1-OLx,sNx+OLx |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
80 |
SHAP_FILT_UV_S2 |
hDiv(i,j) = 0. _d 0 |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
89 |
SHAP_FILT_UV_S2 |
DO i=1-OLx,sNx+OLx |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
90 |
SHAP_FILT_UV_S2 |
tmpFldU(i,j,k,bi,bj)=uFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
91 |
SHAP_FILT_UV_S2 |
& *_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
92 |
SHAP_FILT_UV_S2 |
tmpFldV(i,j,k,bi,bj)=vFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
93 |
SHAP_FILT_UV_S2 |
& *_maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
100 |
SHAP_FILT_UV_S2C |
maskZj=_maskS(i-1, j ,k,bi,bj)*_maskS( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
101 |
SHAP_FILT_UV_S2C |
maskZp=_maskS(i-1,j+1,k,bi,bj)*_maskS( i ,j+1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
102 |
SHAP_FILT_UV_S2C |
tmpGrdU(i,j) = |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
103 |
SHAP_FILT_UV_S2C |
& tmpFldU(i-1,j,k,bi,bj) + tmpFldU(i+1,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
104 |
SHAP_FILT_UV_S2C |
& - 2.*tmpFldU(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
105 |
SHAP_FILT_UV_S2C |
& +(tmpFldU(i,j+1,k,bi,bj)-tmpFldU(i, j ,k,bi,bj))*maskZp |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
106 |
SHAP_FILT_UV_S2C |
& -(tmpFldU(i, j ,k,bi,bj)-tmpFldU(i,j-1,k,bi,bj))*maskZj |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
107 |
SHAP_FILT_UV_S2C |
& -noSlipFact*(2.-maskZj-maskZp)*tmpFldU(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
112 |
SHAP_FILT_UV_S2C |
DO i=1,sNx+1,sNx |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
114 |
SHAP_FILT_UV_S2C |
maskZj=_maskS(i-1, j ,k,bi,bj)*_maskS( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
115 |
SHAP_FILT_UV_S2C |
maskZp=_maskS(i-1,j+1,k,bi,bj)*_maskS( i ,j+1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
116 |
SHAP_FILT_UV_S2C |
tmpGrdU(i,j) = |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
117 |
SHAP_FILT_UV_S2C |
& tmpFldU(i-1,j,k,bi,bj) + tmpFldU(i+1,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
118 |
SHAP_FILT_UV_S2C |
& - 2.*tmpFldU(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
119 |
SHAP_FILT_UV_S2C |
& +(tmpFldU(i,j+1,k,bi,bj)-tmpFldU(i, j ,k,bi,bj))*maskZp |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
120 |
SHAP_FILT_UV_S2C |
& -(tmpFldU(i,j,k,bi,bj)-0*tmpFldU(i,j-1,k,bi,bj))*maskZj |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
121 |
SHAP_FILT_UV_S2C |
& -noSlipFact*(2.-maskZj-maskZp)*tmpFldU(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
123 |
SHAP_FILT_UV_S2C |
maskZj=_maskS(i-1, j ,k,bi,bj)*_maskS( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
124 |
SHAP_FILT_UV_S2C |
maskZp=_maskS(i-1,j+1,k,bi,bj)*_maskS( i ,j+1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
125 |
SHAP_FILT_UV_S2C |
tmpGrdU(i,j) = |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
126 |
SHAP_FILT_UV_S2C |
& tmpFldU(i-1,j,k,bi,bj) + tmpFldU(i+1,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
127 |
SHAP_FILT_UV_S2C |
& - 2.*tmpFldU(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
128 |
SHAP_FILT_UV_S2C |
& +(0*tmpFldU(i,j+1,k,bi,bj)-tmpFldU(i,j,k,bi,bj))*maskZp |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
129 |
SHAP_FILT_UV_S2C |
& -(tmpFldU(i, j ,k,bi,bj)-tmpFldU(i,j-1,k,bi,bj))*maskZj |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
130 |
SHAP_FILT_UV_S2C |
& -noSlipFact*(2.-maskZj-maskZp)*tmpFldU(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
135 |
SHAP_FILT_UV_S2C |
DO i=1,sNx+1 |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
136 |
SHAP_FILT_UV_S2C |
tmpFldU(i,j,k,bi,bj) = |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
137 |
SHAP_FILT_UV_S2C |
& -0.125 _d 0*tmpGrdU(i,j)*_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
143 |
SHAP_FILT_UV_S2C |
DO i=1,sNx |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
144 |
SHAP_FILT_UV_S2C |
maskZj=_maskW( i ,j-1,k,bi,bj)*_maskW( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
145 |
SHAP_FILT_UV_S2C |
maskZp=_maskW(i+1,j-1,k,bi,bj)*_maskW(i+1, j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
146 |
SHAP_FILT_UV_S2C |
tmpGrdV(i,j) = |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
147 |
SHAP_FILT_UV_S2C |
& tmpFldV(i,j-1,k,bi,bj) + tmpFldV(i,j+1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
148 |
SHAP_FILT_UV_S2C |
& - 2.*tmpFldV(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
149 |
SHAP_FILT_UV_S2C |
& +(tmpFldV(i+1,j,k,bi,bj)-tmpFldV( i ,j,k,bi,bj))*maskZp |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
150 |
SHAP_FILT_UV_S2C |
& -(tmpFldV( i ,j,k,bi,bj)-tmpFldV(i-1,j,k,bi,bj))*maskZj |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
151 |
SHAP_FILT_UV_S2C |
& -noSlipFact*(2.-maskZj-maskZp)*tmpFldV(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
157 |
SHAP_FILT_UV_S2C |
i=1 |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
158 |
SHAP_FILT_UV_S2C |
maskZj=_maskW( i ,j-1,k,bi,bj)*_maskW( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
159 |
SHAP_FILT_UV_S2C |
maskZp=_maskW(i+1,j-1,k,bi,bj)*_maskW(i+1, j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
160 |
SHAP_FILT_UV_S2C |
tmpGrdV(i,j) = |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
161 |
SHAP_FILT_UV_S2C |
& tmpFldV(i,j-1,k,bi,bj) + tmpFldV(i,j+1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
162 |
SHAP_FILT_UV_S2C |
& - 2.*tmpFldV(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
163 |
SHAP_FILT_UV_S2C |
& +(tmpFldV(i+1,j,k,bi,bj)-tmpFldV( i ,j,k,bi,bj))*maskZp |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
164 |
SHAP_FILT_UV_S2C |
& -(tmpFldV(i,j,k,bi,bj)-0*tmpFldV(i-1,j,k,bi,bj))*maskZj |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
165 |
SHAP_FILT_UV_S2C |
& -noSlipFact*(2.-maskZj-maskZp)*tmpFldV(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
166 |
SHAP_FILT_UV_S2C |
i=sNx |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
167 |
SHAP_FILT_UV_S2C |
maskZj=_maskW( i ,j-1,k,bi,bj)*_maskW( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
168 |
SHAP_FILT_UV_S2C |
maskZp=_maskW(i+1,j-1,k,bi,bj)*_maskW(i+1, j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
169 |
SHAP_FILT_UV_S2C |
tmpGrdV(i,j) = |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
170 |
SHAP_FILT_UV_S2C |
& tmpFldV(i,j-1,k,bi,bj) + tmpFldV(i,j+1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
171 |
SHAP_FILT_UV_S2C |
& - 2.*tmpFldV(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
172 |
SHAP_FILT_UV_S2C |
& +(0*tmpFldV(i+1,j,k,bi,bj)-tmpFldV(i,j,k,bi,bj))*maskZp |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
173 |
SHAP_FILT_UV_S2C |
& -(tmpFldV( i ,j,k,bi,bj)-tmpFldV(i-1,j,k,bi,bj))*maskZj |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
174 |
SHAP_FILT_UV_S2C |
& -noSlipFact*(2.-maskZj-maskZp)*tmpFldV(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
179 |
SHAP_FILT_UV_S2C |
DO i=1,sNx |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
180 |
SHAP_FILT_UV_S2C |
tmpFldV(i,j,k,bi,bj) = |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
181 |
SHAP_FILT_UV_S2C |
& -0.125 _d 0*tmpGrdV(i,j)*_maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
199 |
SHAP_FILT_UV_S2C |
DO i=1,sNx+1 |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
200 |
SHAP_FILT_UV_S2C |
uFld(i,j,k,bi,bj)=uFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
201 |
SHAP_FILT_UV_S2C |
& -tmpFldU(i,j,k,bi,bj)*deltaTmom/Shap_uvtau |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
202 |
SHAP_FILT_UV_S2C |
tmpFldU(i,j,k,bi,bj)= -tmpFldU(i,j,k,bi,bj)/Shap_uvtau |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
206 |
SHAP_FILT_UV_S2C |
DO i=1,sNx |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
207 |
SHAP_FILT_UV_S2C |
vFld(i,j,k,bi,bj)=vFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
208 |
SHAP_FILT_UV_S2C |
& -tmpFldV(i,j,k,bi,bj)*deltaTmom/Shap_uvtau |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
209 |
SHAP_FILT_UV_S2C |
tmpFldV(i,j,k,bi,bj)= -tmpFldV(i,j,k,bi,bj)/Shap_uvtau |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
53 |
SHAP_FILT_UV_S2C |
INTEGER bi,bj,k,i,j,N |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
68 |
SHAP_FILT_UV_S2C |
DO i=1-OLx,sNx+OLx |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
69 |
SHAP_FILT_UV_S2C |
tmpFldU(i,j,k,bi,bj)=uFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
70 |
SHAP_FILT_UV_S2C |
& *_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
71 |
SHAP_FILT_UV_S2C |
tmpFldV(i,j,k,bi,bj)=vFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
72 |
SHAP_FILT_UV_S2C |
& *_maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
99 |
SHAP_FILT_UV_S2C |
DO i=1,sNx+1 |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
100 |
SHAP_FILT_UV_S4 |
& )*_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
106 |
SHAP_FILT_UV_S4 |
tmpFldU(i,j,k,bi,bj) = tmpGrdU(i,j) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
113 |
SHAP_FILT_UV_S4 |
tmpGrdV(i,j) = -0.25*( |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
114 |
SHAP_FILT_UV_S4 |
& tmpFldV(i,j-1,k,bi,bj) + tmpFldV(i,j+1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
115 |
SHAP_FILT_UV_S4 |
& - 2.*tmpFldV(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
116 |
SHAP_FILT_UV_S4 |
& )*_maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
122 |
SHAP_FILT_UV_S4 |
tmpFldV(i,j,k,bi,bj) = tmpGrdV(i,j) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
138 |
SHAP_FILT_UV_S4 |
uFld(i,j,k,bi,bj)=uFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
139 |
SHAP_FILT_UV_S4 |
& -tmpFldU(i,j,k,bi,bj)*deltaTmom/Shap_uvtau |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
140 |
SHAP_FILT_UV_S4 |
tmpFldU(i,j,k,bi,bj)=uFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
145 |
SHAP_FILT_UV_S4 |
vFld(i,j,k,bi,bj)=vFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
146 |
SHAP_FILT_UV_S4 |
& -tmpFldV(i,j,k,bi,bj)*deltaTmom/Shap_uvtau |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
147 |
SHAP_FILT_UV_S4 |
tmpFldV(i,j,k,bi,bj)=vFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
172 |
SHAP_FILT_UV_S4 |
maskZj=_maskS(i-1, j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
173 |
SHAP_FILT_UV_S4 |
& *_maskS( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
174 |
SHAP_FILT_UV_S4 |
maskZp=_maskS(i-1,j+1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
175 |
SHAP_FILT_UV_S4 |
& *_maskS( i ,j+1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
176 |
SHAP_FILT_UV_S4 |
tmpGrdU(i,j) = -0.25*( |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
177 |
SHAP_FILT_UV_S4 |
& (tmpFldU(i,j+1,k,bi,bj)-tmpFldU(i, j ,k,bi,bj))*maskZp |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
178 |
SHAP_FILT_UV_S4 |
& -(tmpFldU(i, j ,k,bi,bj)-tmpFldU(i,j-1,k,bi,bj))*maskZj |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
179 |
SHAP_FILT_UV_S4 |
& -noSlipFact*(2.-maskZj-maskZp)*tmpFldU(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
180 |
SHAP_FILT_UV_S4 |
& )*_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
187 |
SHAP_FILT_UV_S4 |
maskZj=maskS(i-1, j ,k,bi,bj)*maskS( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
188 |
SHAP_FILT_UV_S4 |
maskZp=maskS(i-1,j+1,k,bi,bj)*maskS( i ,j+1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
189 |
SHAP_FILT_UV_S4 |
tmpGrdU(i,j) = -0.25*( |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
190 |
SHAP_FILT_UV_S4 |
& (tmpFldU(i,j+1,k,bi,bj)-tmpFldU(i, j ,k,bi,bj))*maskZp |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
191 |
SHAP_FILT_UV_S4 |
& -(tmpFldU(i, j ,k,bi,bj)-0*tmpFldU(i,j-1,k,bi,bj))*maskZj |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
192 |
SHAP_FILT_UV_S4 |
& -noSlipFact*(2.-maskZj-maskZp)*tmpFldU(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
193 |
SHAP_FILT_UV_S4 |
& )*_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
197 |
SHAP_FILT_UV_S4 |
maskZj=maskS(i-1, j ,k,bi,bj)*maskS( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
198 |
SHAP_FILT_UV_S4 |
maskZp=maskS(i-1,j+1,k,bi,bj)*maskS( i ,j+1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
199 |
SHAP_FILT_UV_S4 |
tmpGrdU(i,j) = -0.25*( |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
200 |
SHAP_FILT_UV_S4 |
& (0*tmpFldU(i,j+1,k,bi,bj)-tmpFldU(i, j ,k,bi,bj))*maskZp |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
201 |
SHAP_FILT_UV_S4 |
& -(tmpFldU(i, j ,k,bi,bj)-tmpFldU(i,j-1,k,bi,bj))*maskZj |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
202 |
SHAP_FILT_UV_S4 |
& -noSlipFact*(2.-maskZj-maskZp)*tmpFldU(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
203 |
SHAP_FILT_UV_S4 |
& )*_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
209 |
SHAP_FILT_UV_S4 |
tmpFldU(i,j,k,bi,bj) = tmpGrdU(i,j) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
216 |
SHAP_FILT_UV_S4 |
maskZj=_maskW( i ,j-1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
217 |
SHAP_FILT_UV_S4 |
& *_maskW( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
218 |
SHAP_FILT_UV_S4 |
maskZp=_maskW(i+1,j-1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
219 |
SHAP_FILT_UV_S4 |
& *_maskW(i+1, j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
220 |
SHAP_FILT_UV_S4 |
tmpGrdV(i,j) = -0.25*( |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
221 |
SHAP_FILT_UV_S4 |
& (tmpFldV(i+1,j,k,bi,bj)-tmpFldV( i ,j,k,bi,bj))*maskZp |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
222 |
SHAP_FILT_UV_S4 |
& -(tmpFldV( i ,j,k,bi,bj)-tmpFldV(i-1,j,k,bi,bj))*maskZj |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
223 |
SHAP_FILT_UV_S4 |
& -noSlipFact*(2.-maskZj-maskZp)*tmpFldV(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
224 |
SHAP_FILT_UV_S4 |
& )*_maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
231 |
SHAP_FILT_UV_S4 |
maskZj=maskW( i ,j-1,k,bi,bj)*maskW( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
232 |
SHAP_FILT_UV_S4 |
maskZp=maskW(i+1,j-1,k,bi,bj)*maskW(i+1, j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
233 |
SHAP_FILT_UV_S4 |
tmpGrdV(i,j) = -0.25*( |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
234 |
SHAP_FILT_UV_S4 |
& (tmpFldV(i+1,j,k,bi,bj)-tmpFldV( i ,j,k,bi,bj))*maskZp |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
235 |
SHAP_FILT_UV_S4 |
& -(tmpFldV( i ,j,k,bi,bj)-0*tmpFldV(i-1,j,k,bi,bj))*maskZj |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
236 |
SHAP_FILT_UV_S4 |
& -noSlipFact*(2.-maskZj-maskZp)*tmpFldV(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
237 |
SHAP_FILT_UV_S4 |
& -2.*(2.-maskZj-maskZp)*tmpFldV(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
238 |
SHAP_FILT_UV_S4 |
& )*_maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
242 |
SHAP_FILT_UV_S4 |
maskZj=maskW( i ,j-1,k,bi,bj)*maskW( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
243 |
SHAP_FILT_UV_S4 |
maskZp=maskW(i+1,j-1,k,bi,bj)*maskW(i+1, j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
244 |
SHAP_FILT_UV_S4 |
tmpGrdV(i,j) = -0.25*( |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
245 |
SHAP_FILT_UV_S4 |
& (0*tmpFldV(i+1,j,k,bi,bj)-tmpFldV( i ,j,k,bi,bj))*maskZp |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
246 |
SHAP_FILT_UV_S4 |
& -(tmpFldV( i ,j,k,bi,bj)-tmpFldV(i-1,j,k,bi,bj))*maskZj |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
247 |
SHAP_FILT_UV_S4 |
& -noSlipFact*(2.-maskZj-maskZp)*tmpFldV(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
248 |
SHAP_FILT_UV_S4 |
& )*_maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
254 |
SHAP_FILT_UV_S4 |
tmpFldV(i,j,k,bi,bj) = tmpGrdV(i,j) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
270 |
SHAP_FILT_UV_S4 |
uFld(i,j,k,bi,bj)=uFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
271 |
SHAP_FILT_UV_S4 |
& -tmpFldU(i,j,k,bi,bj)*deltaTmom/Shap_uvtau |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
276 |
SHAP_FILT_UV_S4 |
vFld(i,j,k,bi,bj)=vFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
277 |
SHAP_FILT_UV_S4 |
& -tmpFldV(i,j,k,bi,bj)*deltaTmom/Shap_uvtau |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
53 |
SHAP_FILT_UV_S4 |
INTEGER bi,bj,k,i,j,N |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
69 |
SHAP_FILT_UV_S4 |
tmpFldU(i,j,k,bi,bj)=uFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
70 |
SHAP_FILT_UV_S4 |
& *_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
71 |
SHAP_FILT_UV_S4 |
tmpFldV(i,j,k,bi,bj)=vFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
72 |
SHAP_FILT_UV_S4 |
& *_maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
97 |
SHAP_FILT_UV_S4 |
tmpGrdU(i,j) = -0.25*( |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
98 |
SHAP_FILT_UV_S4 |
& tmpFldU(i-1,j,k,bi,bj) + tmpFldU(i+1,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
99 |
SHAP_FILT_UV_S4 |
& - 2.*tmpFldU(i,j,k,bi,bj) |
|
./model/src/ini_cylinder_grid.F |
100 |
INI_CYLINDER_GRID |
dtheta = delXloc(i) |
|
./model/src/ini_cylinder_grid.F |
101 |
INI_CYLINDER_GRID |
dxF(i,j,bi,bj) = thisRad*dtheta*deg2rad |
|
./model/src/ini_cylinder_grid.F |
102 |
INI_CYLINDER_GRID |
dyF(i,j,bi,bj) = delYloc(j) |
|
./model/src/ini_cylinder_grid.F |
108 |
INI_CYLINDER_GRID |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_cylinder_grid.F |
109 |
INI_CYLINDER_GRID |
thisRad = 0.5 _d 0*(yGloc(i,j)+yGloc(i+1,j)) |
|
./model/src/ini_cylinder_grid.F |
110 |
INI_CYLINDER_GRID |
dtheta = delXloc(i) |
|
./model/src/ini_cylinder_grid.F |
111 |
INI_CYLINDER_GRID |
dxG(i,j,bi,bj) = thisRad*dtheta*deg2rad |
|
./model/src/ini_cylinder_grid.F |
112 |
INI_CYLINDER_GRID |
dyG(i,j,bi,bj) = delYloc(j) |
|
./model/src/ini_cylinder_grid.F |
122 |
INI_CYLINDER_GRID |
DO i=1-OLx+1,sNx+OLx ! NOTE range |
|
./model/src/ini_cylinder_grid.F |
124 |
INI_CYLINDER_GRID |
dxC(i,j,bi,bj) = 0.5 _d 0*(dxF(i,j,bi,bj)+dxF(i-1,j,bi,bj)) |
|
./model/src/ini_cylinder_grid.F |
130 |
INI_CYLINDER_GRID |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_cylinder_grid.F |
132 |
INI_CYLINDER_GRID |
dyC(i,j,bi,bj) = 0.5 _d 0*(dyF(i,j,bi,bj)+dyF(i,j-1,bi,bj)) |
|
./model/src/ini_cylinder_grid.F |
138 |
INI_CYLINDER_GRID |
DO i=1-OLx+1,sNx+OLx ! NOTE range |
|
./model/src/ini_cylinder_grid.F |
140 |
INI_CYLINDER_GRID |
dxV(i,j,bi,bj) = 0.5 _d 0*(dxG(i,j,bi,bj)+dxG(i-1,j,bi,bj)) |
|
./model/src/ini_cylinder_grid.F |
141 |
INI_CYLINDER_GRID |
dyU(i,j,bi,bj) = 0.5 _d 0*(dyG(i,j,bi,bj)+dyG(i,j-1,bi,bj)) |
|
./model/src/ini_cylinder_grid.F |
147 |
INI_CYLINDER_GRID |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_cylinder_grid.F |
149 |
INI_CYLINDER_GRID |
rA (i,j,bi,bj) = dxF(i,j,bi,bj)*dyF(i,j,bi,bj) |
|
./model/src/ini_cylinder_grid.F |
150 |
INI_CYLINDER_GRID |
rAw(i,j,bi,bj) = dxC(i,j,bi,bj)*dyG(i,j,bi,bj) |
|
./model/src/ini_cylinder_grid.F |
151 |
INI_CYLINDER_GRID |
rAs(i,j,bi,bj) = dxG(i,j,bi,bj)*dyC(i,j,bi,bj) |
|
./model/src/ini_cylinder_grid.F |
152 |
INI_CYLINDER_GRID |
rAz(i,j,bi,bj) = dxV(i,j,bi,bj)*dyU(i,j,bi,bj) |
|
./model/src/ini_cylinder_grid.F |
52 |
INI_CYLINDER_GRID |
INTEGER i, j |
|
./model/src/ini_cylinder_grid.F |
79 |
INI_CYLINDER_GRID |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_cylinder_grid.F |
80 |
INI_CYLINDER_GRID |
xG(i,j,bi,bj) = xGloc(i,j) |
|
./model/src/ini_cylinder_grid.F |
81 |
INI_CYLINDER_GRID |
yG(i,j,bi,bj) = yGloc(i,j) |
|
./model/src/ini_cylinder_grid.F |
87 |
INI_CYLINDER_GRID |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_cylinder_grid.F |
89 |
INI_CYLINDER_GRID |
xC(i,j,bi,bj) = 0.25 _d 0*( |
|
./model/src/ini_cylinder_grid.F |
90 |
INI_CYLINDER_GRID |
& xGloc(i,j)+xGloc(i+1,j)+xGloc(i,j+1)+xGloc(i+1,j+1) ) |
|
./model/src/ini_cylinder_grid.F |
91 |
INI_CYLINDER_GRID |
yC(i,j,bi,bj) = 0.25 _d 0*( |
|
./model/src/ini_cylinder_grid.F |
92 |
INI_CYLINDER_GRID |
& yGloc(i,j)+yGloc(i+1,j)+yGloc(i,j+1)+yGloc(i+1,j+1) ) |
|
./model/src/ini_cylinder_grid.F |
98 |
INI_CYLINDER_GRID |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_cylinder_grid.F |
99 |
INI_CYLINDER_GRID |
thisRad = yC(i,j,bi,bj) |
|
./pkg/shap_filt/shap_filt_v.F |
101 |
SHAP_FILT_V |
vVel(i,j,k,bi,bj) = tmpFldX(i,j,N2) - tmpFldY(i,j,N2) |
|
./pkg/shap_filt/shap_filt_v.F |
107 |
SHAP_FILT_V |
vVel(i,j,k,bi,bj) = vVel(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_v.F |
108 |
SHAP_FILT_V |
& -0.5*( tmpFldX(i,j,N2)+tmpFldY(i,j,N2) ) |
|
./pkg/shap_filt/shap_filt_v.F |
38 |
SHAP_FILT_V |
maskZ(i,j) = _maskW(i,j-1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_v.F |
39 |
SHAP_FILT_V |
& *_maskW(i, j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_v.F |
45 |
SHAP_FILT_V |
tmpFldX(i,j,1) = vVel(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_v.F |
46 |
SHAP_FILT_V |
& *_maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_v.F |
56 |
SHAP_FILT_V |
tmpFldX(i,j,N2) = -0.25*( |
|
./pkg/shap_filt/shap_filt_v.F |
57 |
SHAP_FILT_V |
& (tmpFldX(i+1,j,N1)-tmpFldX( i ,j,N1))*maskZ(i+1,j) |
|
./pkg/shap_filt/shap_filt_v.F |
58 |
SHAP_FILT_V |
& -(tmpFldX( i ,j,N1)-tmpFldX(i-1,j,N1))*maskZ( i ,j) |
|
./pkg/shap_filt/shap_filt_v.F |
60 |
SHAP_FILT_V |
& -2.*(2.-maskZ(i,j)-maskZ(i+1,j))*tmpFldX(i,j,N1) |
|
./pkg/shap_filt/shap_filt_v.F |
62 |
SHAP_FILT_V |
& )*_maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_v.F |
70 |
SHAP_FILT_V |
tmpFldX(i,j,N2) = vVel(i,j,k,bi,bj) - tmpFldX(i,j,N2) |
|
./pkg/shap_filt/shap_filt_v.F |
71 |
SHAP_FILT_V |
tmpFldY(i,j,1) = tmpFldX(i,j,N2) |
|
./pkg/shap_filt/shap_filt_v.F |
77 |
SHAP_FILT_V |
tmpFldY(i,j,1) = vVel(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_v.F |
78 |
SHAP_FILT_V |
& *_maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_v.F |
89 |
SHAP_FILT_V |
tmpFldY(i,j,N2) = -0.25*( |
|
./pkg/shap_filt/shap_filt_v.F |
90 |
SHAP_FILT_V |
& tmpFldY(i,j-1,N1) + tmpFldY(i,j+1,N1) |
|
./pkg/shap_filt/shap_filt_v.F |
91 |
SHAP_FILT_V |
& - 2.*tmpFldY(i,j,N1) |
|
./pkg/shap_filt/shap_filt_v.F |
92 |
SHAP_FILT_V |
& )*_maskS(i,j,k,bi,bj) |
|
./model/src/ini_depths.F |
100 |
INI_DEPTHS |
DO i=1,sNx |
|
./model/src/ini_depths.F |
101 |
INI_DEPTHS |
R_low(i,j,bi,bj) = rF(Nr+1) |
|
./model/src/ini_depths.F |
164 |
INI_DEPTHS |
DO i=1,sNx |
|
./model/src/ini_depths.F |
165 |
INI_DEPTHS |
Ro_surf(i,j,bi,bj) = rF(1) |
|
./model/src/ini_depths.F |
207 |
INI_DEPTHS |
DO i=1,sNx |
|
./model/src/ini_depths.F |
208 |
INI_DEPTHS |
Ro_surf(i,j,bi,bj) = topoZ(i,j,bi,bj) |
|
./model/src/ini_depths.F |
231 |
INI_DEPTHS |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_depths.F |
232 |
INI_DEPTHS |
iG = myXGlobalLo-1+(bi-1)*sNx+i |
|
./model/src/ini_depths.F |
243 |
INI_DEPTHS |
& ABS(yC(i,j,bi,bj)).GE.90. ) |
|
./model/src/ini_depths.F |
244 |
INI_DEPTHS |
& Ro_surf(i,j,bi,bj) = rF(Nr+1) |
|
./model/src/ini_depths.F |
253 |
INI_DEPTHS |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_depths.F |
254 |
INI_DEPTHS |
iG = myXGlobalLo-1+(bi-1)*sNx+i |
|
./model/src/ini_depths.F |
265 |
INI_DEPTHS |
& ABS(yC(i,j,bi,bj)).GE.90. ) |
|
./model/src/ini_depths.F |
266 |
INI_DEPTHS |
& R_low(i,j,bi,bj) = rF(1) |
|
./model/src/ini_depths.F |
59 |
INI_DEPTHS |
INTEGER i, j |
|
./model/src/ini_depths.F |
78 |
INI_DEPTHS |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_depths.F |
79 |
INI_DEPTHS |
R_low(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_depths.F |
80 |
INI_DEPTHS |
Ro_surf(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_depths.F |
81 |
INI_DEPTHS |
topoZ(i,j,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_cost_accumulate.F |
34 |
SHELFICE_COST_ACCUMULATE |
integer i, j |
|
./pkg/shelfice/shelfice_cost_accumulate.F |
50 |
SHELFICE_COST_ACCUMULATE |
do i=1,sNx |
|
./pkg/shelfice/shelfice_cost_accumulate.F |
52 |
SHELFICE_COST_ACCUMULATE |
cMeanSHIforT(i,j,bi,bj) = cMeanSHIforT(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_cost_accumulate.F |
53 |
SHELFICE_COST_ACCUMULATE |
& + shelficeHeatFlux(i,j,bi,bj)*deltaTClock |
|
./pkg/shelfice/shelfice_cost_accumulate.F |
54 |
SHELFICE_COST_ACCUMULATE |
cMeanSHIforS(i,j,bi,bj) = cMeanSHIforS(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_cost_accumulate.F |
55 |
SHELFICE_COST_ACCUMULATE |
& + shelficeFreshWaterFlux(i,j,bi,bj)*deltaTClock |
|
./pkg/shelfice/shelfice_cost_final.F |
64 |
SHELFICE_COST_FINAL |
INTEGER i, j |
|
./pkg/shelfice/shelfice_cost_final.F |
84 |
SHELFICE_COST_FINAL |
DO i=1,sNx |
|
./pkg/shelfice/shelfice_cost_final.F |
87 |
SHELFICE_COST_FINAL |
& + cMeanSHIforS(i,j,bi,bj)/lastinterval/rhoConstFresh |
|
./pkg/shelfice/shelfice_cost_final.F |
88 |
SHELFICE_COST_FINAL |
& *_rA(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_cost_shifwflx.F |
149 |
SHELFICE_COST_SHIFWFLX |
do i = 1,snx |
|
./pkg/shelfice/shelfice_cost_shifwflx.F |
150 |
SHELFICE_COST_SHIFWFLX |
tmpx = tmpfld2d(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_cost_shifwflx.F |
152 |
SHELFICE_COST_SHIFWFLX |
& *wshifwflx(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_cost_shifwflx.F |
153 |
SHELFICE_COST_SHIFWFLX |
if ( wshifwflx(i,j,bi,bj) .ne. 0. ) |
|
./pkg/shelfice/shelfice_cost_shifwflx.F |
64 |
SHELFICE_COST_SHIFWFLX |
integer i,j |
|
./pkg/shelfice/shelfice_forcing.F |
156 |
SHELFICE_FORCING_S |
INTEGER i, j |
|
./pkg/shelfice/shelfice_forcing.F |
165 |
SHELFICE_FORCING_S |
DO i=1,sNx |
|
./pkg/shelfice/shelfice_forcing.F |
171 |
SHELFICE_FORCING_S |
gSloc = shelficeForcingS(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_forcing.F |
173 |
SHELFICE_FORCING_S |
gS_arr(i,j) = gS_arr(i,j) + gSloc |
|
./pkg/shelfice/shelfice_forcing.F |
179 |
SHELFICE_FORCING_S |
gSloc = shelficeForcingS(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_forcing.F |
185 |
SHELFICE_FORCING_S |
gS_arr(i,j) = gS_arr(i,j) + gSloc |
|
./pkg/shelfice/shelfice_forcing.F |
186 |
SHELFICE_FORCING_S |
& * drLoc*recip_drF(kLev)* _recip_hFacC(i,j,kLev,bi,bj) |
|
./pkg/shelfice/shelfice_forcing.F |
64 |
SHELFICE_FORCING_T |
INTEGER i, j |
|
./pkg/shelfice/shelfice_forcing.F |
73 |
SHELFICE_FORCING_T |
DO i=1,sNx |
|
./pkg/shelfice/shelfice_forcing.F |
79 |
SHELFICE_FORCING_T |
gTloc = shelficeForcingT(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_forcing.F |
81 |
SHELFICE_FORCING_T |
gT_arr(i,j) = gT_arr(i,j) + gTloc |
|
./pkg/shelfice/shelfice_forcing.F |
87 |
SHELFICE_FORCING_T |
gTloc = shelficeForcingT(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_forcing.F |
93 |
SHELFICE_FORCING_T |
gT_arr(i,j) = gT_arr(i,j) + gTloc |
|
./pkg/shelfice/shelfice_forcing.F |
94 |
SHELFICE_FORCING_T |
& * drLoc*recip_drF(kLev)* _recip_hFacC(i,j,kLev,bi,bj) |
|
./pkg/shelfice/shelfice_forcing_surf.F |
101 |
SHELFICE_FORCING_SURF |
DO i=1-OLx,sNx+OLx |
|
./pkg/shelfice/shelfice_forcing_surf.F |
103 |
SHELFICE_FORCING_SURF |
EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_forcing_surf.F |
104 |
SHELFICE_FORCING_SURF |
& + shelfIceFreshWaterFlux(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_forcing_surf.F |
117 |
SHELFICE_FORCING_SURF |
DO i=1-OLx,sNx+OLx |
|
./pkg/shelfice/shelfice_forcing_surf.F |
118 |
SHELFICE_FORCING_SURF |
PmEpR(i,j,bi,bj) = -EmPmR(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_forcing_surf.F |
126 |
SHELFICE_FORCING_SURF |
DO i = iMin, iMax |
|
./pkg/shelfice/shelfice_forcing_surf.F |
127 |
SHELFICE_FORCING_SURF |
phi0surf(i,j,bi,bj) = phi0surf(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_forcing_surf.F |
128 |
SHELFICE_FORCING_SURF |
& + shelficeLoadAnomaly(i,j,bi,bj)*recip_rhoConst |
|
./pkg/shelfice/shelfice_forcing_surf.F |
50 |
SHELFICE_FORCING_SURF |
INTEGER i, j |
|
./pkg/shelfice/shelfice_forcing_surf.F |
58 |
SHELFICE_FORCING_SURF |
DO i=1-OLx,sNx+OLx |
|
./pkg/shelfice/shelfice_forcing_surf.F |
59 |
SHELFICE_FORCING_SURF |
IF ( kTopC(i,j,bi,bj).NE.0 ) THEN |
|
./pkg/shelfice/shelfice_forcing_surf.F |
60 |
SHELFICE_FORCING_SURF |
surfaceForcingT(i,j,bi,bj) = 0. |
|
./pkg/shelfice/shelfice_forcing_surf.F |
61 |
SHELFICE_FORCING_SURF |
surfaceForcingS(i,j,bi,bj) = 0. |
|
./pkg/shelfice/shelfice_forcing_surf.F |
62 |
SHELFICE_FORCING_SURF |
EmPmR(i,j,bi,bj) = 0. |
|
./pkg/shelfice/shelfice_forcing_surf.F |
67 |
SHELFICE_FORCING_SURF |
DO i=2-OLx,sNx+OLx |
|
./pkg/shelfice/shelfice_forcing_surf.F |
68 |
SHELFICE_FORCING_SURF |
IF ( MAX( kTopC(i-1,j,bi,bj), kTopC(i,j,bi,bj) ).NE.0 ) THEN |
|
./pkg/shelfice/shelfice_forcing_surf.F |
69 |
SHELFICE_FORCING_SURF |
surfaceForcingU(i,j,bi,bj) = 0. |
|
./pkg/shelfice/shelfice_forcing_surf.F |
74 |
SHELFICE_FORCING_SURF |
DO i=1-OLx,sNx+OLx |
|
./pkg/shelfice/shelfice_forcing_surf.F |
75 |
SHELFICE_FORCING_SURF |
IF ( MAX( kTopC(i,j-1,bi,bj), kTopC(i,j,bi,bj) ).NE.0 ) THEN |
|
./pkg/shelfice/shelfice_forcing_surf.F |
76 |
SHELFICE_FORCING_SURF |
surfaceForcingV(i,j,bi,bj) = 0. |
|
./pkg/shelfice/shelfice_forcing_surf.F |
88 |
SHELFICE_FORCING_SURF |
DO i=1,sNx |
|
./pkg/shelfice/shelfice_forcing_surf.F |
89 |
SHELFICE_FORCING_SURF |
IF ( kTopC(i,j,bi,bj).NE.0 ) THEN |
|
./pkg/shelfice/shelfice_forcing_surf.F |
90 |
SHELFICE_FORCING_SURF |
surfaceForcingT(i,j,bi,bj) = shelficeForcingT(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_forcing_surf.F |
91 |
SHELFICE_FORCING_SURF |
surfaceForcingS(i,j,bi,bj) = shelficeForcingS(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_init_depths.F |
45 |
SHELFICE_INIT_DEPTHS |
INTEGER i, j |
|
./pkg/shelfice/shelfice_init_depths.F |
52 |
SHELFICE_INIT_DEPTHS |
DO i=1-OLx,sNx+OLx |
|
./pkg/shelfice/shelfice_init_depths.F |
53 |
SHELFICE_INIT_DEPTHS |
R_shelfIce(i,j,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_init_depths.F |
80 |
SHELFICE_INIT_DEPTHS |
DO i=1-OLx,sNx+OLx |
|
./pkg/shelfice/shelfice_init_depths.F |
81 |
SHELFICE_INIT_DEPTHS |
rSurfC(i,j,bi,bj) = |
|
./pkg/shelfice/shelfice_init_depths.F |
82 |
SHELFICE_INIT_DEPTHS |
& MIN( rSurfC(i,j,bi,bj), R_shelfIce(i,j,bi,bj) ) |
|
./pkg/shelfice/shelfice_init_fixed.F |
104 |
SHELFICE_INIT_FIXED |
DO i=1-OLx,sNx+OLx |
|
./pkg/shelfice/shelfice_init_fixed.F |
105 |
SHELFICE_INIT_FIXED |
IF ( R_shelfIce(i,j,bi,bj).LT.zeroRS |
|
./pkg/shelfice/shelfice_init_fixed.F |
106 |
SHELFICE_INIT_FIXED |
& .AND. hFacC(i,j,k,bi,bj).NE.zeroRS ) THEN |
|
./pkg/shelfice/shelfice_init_fixed.F |
107 |
SHELFICE_INIT_FIXED |
maskSHI(i,j,k,bi,bj) = 1. _d 0 |
|
./pkg/shelfice/shelfice_init_fixed.F |
108 |
SHELFICE_INIT_FIXED |
maskSHI(i,j,1,bi,bj) = 1. _d 0 |
|
./pkg/shelfice/shelfice_init_fixed.F |
127 |
SHELFICE_INIT_FIXED |
DO i = 1-OLx, sNx+OLx |
|
./pkg/shelfice/shelfice_init_fixed.F |
129 |
SHELFICE_INIT_FIXED |
IF (wshifwflx(i,j,bi,bj) .LT. -9900.) THEN |
|
./pkg/shelfice/shelfice_init_fixed.F |
130 |
SHELFICE_INIT_FIXED |
wshifwflx(i,j,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_init_fixed.F |
133 |
SHELFICE_INIT_FIXED |
wshifwflx(i,j,bi,bj) = |
|
./pkg/shelfice/shelfice_init_fixed.F |
134 |
SHELFICE_INIT_FIXED |
& max(wshifwflx(i,j,bi,bj),wshifwflx0) |
|
./pkg/shelfice/shelfice_init_fixed.F |
135 |
SHELFICE_INIT_FIXED |
& *maskSHI(i,j,1,bi,bj) |
|
./pkg/shelfice/shelfice_init_fixed.F |
136 |
SHELFICE_INIT_FIXED |
IF (wshifwflx(i,j,bi,bj) .NE. 0.) THEN |
|
./pkg/shelfice/shelfice_init_fixed.F |
137 |
SHELFICE_INIT_FIXED |
wshifwflx(i,j,bi,bj) = |
|
./pkg/shelfice/shelfice_init_fixed.F |
138 |
SHELFICE_INIT_FIXED |
& 1./wshifwflx(i,j,bi,bj)/wshifwflx(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_init_fixed.F |
160 |
SHELFICE_INIT_FIXED |
DO i = 1, sNx |
|
./pkg/shelfice/shelfice_init_fixed.F |
161 |
SHELFICE_INIT_FIXED |
shelficeMassInit(i,j,bi,bj) = |
|
./pkg/shelfice/shelfice_init_fixed.F |
162 |
SHELFICE_INIT_FIXED |
& shelficeLoadAnomaly(i,j,bi,bj)*recip_gravity |
|
./pkg/shelfice/shelfice_init_fixed.F |
163 |
SHELFICE_INIT_FIXED |
& - rhoConst*Ro_surf(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_init_fixed.F |
179 |
SHELFICE_INIT_FIXED |
DO i = 1-OLx, sNx+OLx |
|
./pkg/shelfice/shelfice_init_fixed.F |
180 |
SHELFICE_INIT_FIXED |
shelficeLoadAnomaly(i,j,bi,bj) = gravity |
|
./pkg/shelfice/shelfice_init_fixed.F |
181 |
SHELFICE_INIT_FIXED |
& *(shelficeMassInit(i,j,bi,bj)+rhoConst*Ro_surf(i,j,bi,bj)) |
|
./pkg/shelfice/shelfice_init_fixed.F |
39 |
SHELFICE_INIT_FIXED |
INTEGER i, j, bi, bj |
|
./pkg/shelfice/shelfice_init_fixed.F |
73 |
SHELFICE_INIT_FIXED |
DO i = 1-OLx, sNx+OLx |
|
./pkg/shelfice/shelfice_init_fixed.F |
74 |
SHELFICE_INIT_FIXED |
IF ( kSurfC(i,j,bi,bj).LE.Nr .AND. |
|
./pkg/shelfice/shelfice_init_fixed.F |
75 |
SHELFICE_INIT_FIXED |
& R_shelfIce(i,j,bi,bj).LT.zeroRS ) THEN |
|
./pkg/shelfice/shelfice_init_fixed.F |
76 |
SHELFICE_INIT_FIXED |
kTopC(i,j,bi,bj) = kSurfC(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_init_fixed.F |
78 |
SHELFICE_INIT_FIXED |
kTopC(i,j,bi,bj) = 0 |
|
./pkg/shelfice/shelfice_init_fixed.F |
80 |
SHELFICE_INIT_FIXED |
shelficeMassInit (i,j,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_init_fixed.F |
81 |
SHELFICE_INIT_FIXED |
shelficeLoadAnomaly(i,j,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_init_fixed.F |
82 |
SHELFICE_INIT_FIXED |
shelfIceMassDynTendency(i,j,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_init_fixed.F |
97 |
SHELFICE_INIT_FIXED |
DO i=1-OLx,sNx+OLx |
|
./pkg/shelfice/shelfice_init_fixed.F |
98 |
SHELFICE_INIT_FIXED |
maskSHI(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_init_varia.F |
108 |
SHELFICE_INIT_VARIA |
DO i = 1-OLx, sNx+OLx |
|
./pkg/shelfice/shelfice_init_varia.F |
109 |
SHELFICE_INIT_VARIA |
cMeanSHIforT (i,j,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_init_varia.F |
110 |
SHELFICE_INIT_VARIA |
cMeanSHIforS (i,j,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_init_varia.F |
34 |
SHELFICE_INIT_VARIA |
INTEGER i, j, bi, bj |
|
./pkg/shelfice/shelfice_init_varia.F |
40 |
SHELFICE_INIT_VARIA |
DO i = 1-OLx, sNx+OLx |
|
./pkg/shelfice/shelfice_init_varia.F |
41 |
SHELFICE_INIT_VARIA |
shelficeForcingT (i,j,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_init_varia.F |
42 |
SHELFICE_INIT_VARIA |
shelficeForcingS (i,j,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_init_varia.F |
43 |
SHELFICE_INIT_VARIA |
shelficeHeatFlux (i,j,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_init_varia.F |
44 |
SHELFICE_INIT_VARIA |
shelficeFreshWaterFlux(i,j,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_init_varia.F |
45 |
SHELFICE_INIT_VARIA |
shiTransCoeffT (i,j,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_init_varia.F |
46 |
SHELFICE_INIT_VARIA |
shiTransCoeffS (i,j,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_init_varia.F |
47 |
SHELFICE_INIT_VARIA |
shelficeMass (i,j,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_init_varia.F |
60 |
SHELFICE_INIT_VARIA |
DO i = 1-OLx, sNx+OLx |
|
./pkg/shelfice/shelfice_init_varia.F |
61 |
SHELFICE_INIT_VARIA |
shiTransCoeffS(i,j,bi,bj) = 5.05 _d -3 * |
|
./pkg/shelfice/shelfice_init_varia.F |
62 |
SHELFICE_INIT_VARIA |
& shiTransCoeffT(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_init_varia.F |
72 |
SHELFICE_INIT_VARIA |
DO i = 1-OLx, sNx+OLx |
|
./pkg/shelfice/shelfice_init_varia.F |
73 |
SHELFICE_INIT_VARIA |
shiTransCoeffT(i,j,bi,bj) = SHELFICEheatTransCoeff |
|
./pkg/shelfice/shelfice_init_varia.F |
74 |
SHELFICE_INIT_VARIA |
shiTransCoeffS(i,j,bi,bj) = SHELFICEsaltTransCoeff |
|
./pkg/shelfice/shelfice_init_varia.F |
85 |
SHELFICE_INIT_VARIA |
DO i = 1-OLx, sNx+OLx |
|
./pkg/shelfice/shelfice_init_varia.F |
86 |
SHELFICE_INIT_VARIA |
shelficeMass(i,j,bi,bj) = shelficeMassInit(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_output.F |
117 |
SHELFICE_OUTPUT |
DO i=1,sNx |
|
./pkg/shelfice/shelfice_output.F |
118 |
SHELFICE_OUTPUT |
shelfice_FrshFluxtave(i,j,1,bi,bj)= |
|
./pkg/shelfice/shelfice_output.F |
119 |
SHELFICE_OUTPUT |
& shelfice_frshFluxtave(i,j,1,bi,bj) |
|
./pkg/shelfice/shelfice_output.F |
120 |
SHELFICE_OUTPUT |
& + shelficeFreshWaterFlux(i,j,bi,bj) *deltaTClock |
|
./pkg/shelfice/shelfice_output.F |
121 |
SHELFICE_OUTPUT |
shelfice_heatFluxtave(i,j,1,bi,bj) = |
|
./pkg/shelfice/shelfice_output.F |
122 |
SHELFICE_OUTPUT |
& shelfice_heatFluxtave(i,j,1,bi,bj) |
|
./pkg/shelfice/shelfice_output.F |
123 |
SHELFICE_OUTPUT |
& + shelficeHeatFlux(i,j,bi,bj) *deltaTClock |
|
./pkg/shelfice/shelfice_output.F |
46 |
SHELFICE_OUTPUT |
INTEGER i, j, bi, bj |
|
./model/src/ini_dynvars.F |
106 |
INI_DYNVARS |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_dynvars.F |
107 |
INI_DYNVARS |
dU_psFacX(i,j,k,bi,bj) = maskW(i,j,k,bi,bj) |
|
./model/src/ini_dynvars.F |
109 |
INI_DYNVARS |
dV_psFacY(i,j,k,bi,bj) = maskS(i,j,k,bi,bj) |
|
./model/src/ini_dynvars.F |
42 |
INI_DYNVARS |
INTEGER i, j, k |
|
./model/src/ini_dynvars.F |
52 |
INI_DYNVARS |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_dynvars.F |
54 |
INI_DYNVARS |
uVel (i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
55 |
INI_DYNVARS |
vVel (i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
56 |
INI_DYNVARS |
wVel (i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
57 |
INI_DYNVARS |
theta(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
58 |
INI_DYNVARS |
salt (i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
60 |
INI_DYNVARS |
gU(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
61 |
INI_DYNVARS |
gV(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
63 |
INI_DYNVARS |
gT(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
64 |
INI_DYNVARS |
gS(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
67 |
INI_DYNVARS |
guNm(i,j,k,bi,bj,1) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
68 |
INI_DYNVARS |
gvNm(i,j,k,bi,bj,1) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
69 |
INI_DYNVARS |
gtNm(i,j,k,bi,bj,1) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
70 |
INI_DYNVARS |
gsNm(i,j,k,bi,bj,1) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
71 |
INI_DYNVARS |
guNm(i,j,k,bi,bj,2) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
72 |
INI_DYNVARS |
gvNm(i,j,k,bi,bj,2) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
73 |
INI_DYNVARS |
gtNm(i,j,k,bi,bj,2) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
74 |
INI_DYNVARS |
gsNm(i,j,k,bi,bj,2) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
76 |
INI_DYNVARS |
guNm1(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
77 |
INI_DYNVARS |
gvNm1(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
78 |
INI_DYNVARS |
gtNm1(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
79 |
INI_DYNVARS |
gsNm1(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
81 |
INI_DYNVARS |
totPhiHyd (i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
82 |
INI_DYNVARS |
rhoInSitu (i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
83 |
INI_DYNVARS |
IVDConvCount(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
85 |
INI_DYNVARS |
dU_psFacX (i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
86 |
INI_DYNVARS |
dV_psFacY (i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
95 |
INI_DYNVARS |
etaN(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
96 |
INI_DYNVARS |
etaH(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
97 |
INI_DYNVARS |
phiHydLow(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
98 |
INI_DYNVARS |
hMixLayer(i,j,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_step_icemass.F |
46 |
SHELFICE_STEP_ICEMASS |
INTEGER bi,bj,i,j |
|
./pkg/shelfice/shelfice_step_icemass.F |
55 |
SHELFICE_STEP_ICEMASS |
DO i=1-OLx+1,sNx+OLx-1 |
|
./pkg/shelfice/shelfice_step_icemass.F |
56 |
SHELFICE_STEP_ICEMASS |
if (streamice_hmask(i,j,bi,bj).eq.1 .or. |
|
./pkg/shelfice/shelfice_step_icemass.F |
57 |
SHELFICE_STEP_ICEMASS |
& streamice_hmask(i,j,bi,bj).eq.2) then |
|
./pkg/shelfice/shelfice_step_icemass.F |
59 |
SHELFICE_STEP_ICEMASS |
shelficeMass(i,j,bi,bj) = |
|
./pkg/shelfice/shelfice_step_icemass.F |
74 |
SHELFICE_STEP_ICEMASS |
DO i=1-OLx,sNx+OLx |
|
./pkg/shelfice/shelfice_step_icemass.F |
77 |
SHELFICE_STEP_ICEMASS |
shelficeMass(i,j,bi,bj) = shelficeMass(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_step_icemass.F |
81 |
SHELFICE_STEP_ICEMASS |
shelficeMass(i,j,bi,bj) = shelficeMass(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
131 |
SHELFICE_THERMODYNAMICS |
shiTransCoeffT(i,j,bi,bj) = SHELFICEheatTransCoeff |
|
./pkg/shelfice/shelfice_thermodynamics.F |
132 |
SHELFICE_THERMODYNAMICS |
shiTransCoeffS(i,j,bi,bj) = SHELFICEsaltTransCoeff |
|
./pkg/shelfice/shelfice_thermodynamics.F |
158 |
SHELFICE_THERMODYNAMICS |
shiTransCoeffT(i,j,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
159 |
SHELFICE_THERMODYNAMICS |
shiTransCoeffS(i,j,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
378 |
SHELFICE_THERMODYNAMICS |
shiTransCoeffT(i,j,bi,bj) = MAX( zeroRL, |
|
./pkg/shelfice/shelfice_thermodynamics.F |
380 |
SHELFICE_THERMODYNAMICS |
shiTransCoeffS(i,j,bi,bj) = MAX( zeroRL, |
|
./pkg/shelfice/shelfice_thermodynamics.F |
408 |
SHELFICE_THERMODYNAMICS |
& * shiTransCoeffT(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
421 |
SHELFICE_THERMODYNAMICS |
shelficeForcingT(i,j,bi,bj) = |
|
./pkg/shelfice/shelfice_thermodynamics.F |
426 |
SHELFICE_THERMODYNAMICS |
shelficeForcingS(i,j,bi,bj) = |
|
./pkg/shelfice/shelfice_thermodynamics.F |
459 |
SHELFICE_THERMODYNAMICS |
& *shiTransCoeffT(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
461 |
SHELFICE_THERMODYNAMICS |
& *shiTransCoeffS(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
463 |
SHELFICE_THERMODYNAMICS |
& *shiTransCoeffS(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
480 |
SHELFICE_THERMODYNAMICS |
& *shiTransCoeffS(i,j,bi,bj) * fwflxFac |
|
./pkg/shelfice/shelfice_thermodynamics.F |
534 |
SHELFICE_THERMODYNAMICS |
& * shiTransCoeffS(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
550 |
SHELFICE_THERMODYNAMICS |
shelficeForcingT(i,j,bi,bj) = |
|
./pkg/shelfice/shelfice_thermodynamics.F |
551 |
SHELFICE_THERMODYNAMICS |
& ( shiTransCoeffT(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
554 |
SHELFICE_THERMODYNAMICS |
shelficeForcingS(i,j,bi,bj) = |
|
./pkg/shelfice/shelfice_thermodynamics.F |
555 |
SHELFICE_THERMODYNAMICS |
& ( shiTransCoeffS(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
581 |
SHELFICE_THERMODYNAMICS |
DO i = 1-OLx, sNx+OLx |
|
./pkg/shelfice/shelfice_thermodynamics.F |
582 |
SHELFICE_THERMODYNAMICS |
shelficeLoadAnomaly(i,j,bi,bj) = gravity |
|
./pkg/shelfice/shelfice_thermodynamics.F |
583 |
SHELFICE_THERMODYNAMICS |
& *( shelficeMass(i,j,bi,bj) + rhoConst*Ro_surf(i,j,bi,bj) ) |
|
./pkg/shelfice/shelfice_u_drag.F |
107 |
SHELFICE_U_DRAG |
DO i=1-OLx+1,sNx+OLx-1 |
|
./pkg/shelfice/shelfice_u_drag.F |
108 |
SHELFICE_U_DRAG |
IF ( k.EQ.MAX( kTopC(i-1,j,bi,bj),kTopC(i,j,bi,bj) ) ) THEN |
|
./pkg/shelfice/shelfice_u_drag.F |
109 |
SHELFICE_U_DRAG |
uDragTerms(i,j) = uDragTerms(i,j) |
|
./pkg/shelfice/shelfice_u_drag.F |
110 |
SHELFICE_U_DRAG |
& - _recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/shelfice/shelfice_u_drag.F |
112 |
SHELFICE_U_DRAG |
& * uFld(i,j) |
|
./pkg/shelfice/shelfice_u_drag.F |
122 |
SHELFICE_U_DRAG |
DO i=1-OLx+1,sNx+OLx-1 |
|
./pkg/shelfice/shelfice_u_drag.F |
124 |
SHELFICE_U_DRAG |
IF ( k.EQ.MAX( kTopC(i-1,j,bi,bj),kTopC(i,j,bi,bj) ) ) THEN |
|
./pkg/shelfice/shelfice_u_drag.F |
125 |
SHELFICE_U_DRAG |
uSq = KE(i,j)+KE(i-1,j) |
|
./pkg/shelfice/shelfice_u_drag.F |
128 |
SHELFICE_U_DRAG |
uDragTerms(i,j) = uDragTerms(i,j) |
|
./pkg/shelfice/shelfice_u_drag.F |
129 |
SHELFICE_U_DRAG |
& - _recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/shelfice/shelfice_u_drag.F |
131 |
SHELFICE_U_DRAG |
& * uFld(i,j) |
|
./pkg/shelfice/shelfice_u_drag.F |
138 |
SHELFICE_U_DRAG |
DO i=1-OLx+1,sNx+OLx-1 |
|
./pkg/shelfice/shelfice_u_drag.F |
140 |
SHELFICE_U_DRAG |
IF ( k.EQ.MAX( kTopC(i-1,j,bi,bj),kTopC(i,j,bi,bj) ) ) THEN |
|
./pkg/shelfice/shelfice_u_drag.F |
141 |
SHELFICE_U_DRAG |
uSq = uFld(i,j)*uFld(i,j) |
|
./pkg/shelfice/shelfice_u_drag.F |
142 |
SHELFICE_U_DRAG |
& + ( (vFld(i-1, j )*vFld(i-1, j )*hFacS(i-1, j ,k,bi,bj) |
|
./pkg/shelfice/shelfice_u_drag.F |
143 |
SHELFICE_U_DRAG |
& +vFld( i , j )*vFld( i , j )*hFacS( i , j ,k,bi,bj)) |
|
./pkg/shelfice/shelfice_u_drag.F |
144 |
SHELFICE_U_DRAG |
& + (vFld(i-1,j+1)*vFld(i-1,j+1)*hFacS(i-1,j+1,k,bi,bj) |
|
./pkg/shelfice/shelfice_u_drag.F |
145 |
SHELFICE_U_DRAG |
& +vFld( i ,j+1)*vFld( i ,j+1)*hFacS( i ,j+1,k,bi,bj)) |
|
./pkg/shelfice/shelfice_u_drag.F |
146 |
SHELFICE_U_DRAG |
& )*recip_hFacW(i,j,k,bi,bj)*0.25 _d 0 |
|
./pkg/shelfice/shelfice_u_drag.F |
149 |
SHELFICE_U_DRAG |
uDragTerms(i,j) = uDragTerms(i,j) |
|
./pkg/shelfice/shelfice_u_drag.F |
150 |
SHELFICE_U_DRAG |
& - _recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/shelfice/shelfice_u_drag.F |
152 |
SHELFICE_U_DRAG |
& * uFld(i,j) |
|
./pkg/shelfice/shelfice_u_drag.F |
159 |
SHELFICE_U_DRAG |
DO i=1-OLx+1,sNx+OLx-1 |
|
./pkg/shelfice/shelfice_u_drag.F |
161 |
SHELFICE_U_DRAG |
IF ( k.EQ.MAX( kTopC(i-1,j,bi,bj),kTopC(i,j,bi,bj) ) ) THEN |
|
./pkg/shelfice/shelfice_u_drag.F |
162 |
SHELFICE_U_DRAG |
uSq = ( hFacS(i-1, j ,k,bi,bj) + hFacS( i , j ,k,bi,bj) ) |
|
./pkg/shelfice/shelfice_u_drag.F |
163 |
SHELFICE_U_DRAG |
& + ( hFacS(i-1,j+1,k,bi,bj) + hFacS( i ,j+1,k,bi,bj) ) |
|
./pkg/shelfice/shelfice_u_drag.F |
165 |
SHELFICE_U_DRAG |
uSq = uFld(i,j)*uFld(i,j) |
|
./pkg/shelfice/shelfice_u_drag.F |
166 |
SHELFICE_U_DRAG |
& +( (vFld(i-1, j )*vFld(i-1, j )*hFacS(i-1, j ,k,bi,bj) |
|
./pkg/shelfice/shelfice_u_drag.F |
167 |
SHELFICE_U_DRAG |
& +vFld( i , j )*vFld( i , j )*hFacS( i , j ,k,bi,bj)) |
|
./pkg/shelfice/shelfice_u_drag.F |
168 |
SHELFICE_U_DRAG |
& + (vFld(i-1,j+1)*vFld(i-1,j+1)*hFacS(i-1,j+1,k,bi,bj) |
|
./pkg/shelfice/shelfice_u_drag.F |
169 |
SHELFICE_U_DRAG |
& +vFld( i ,j+1)*vFld( i ,j+1)*hFacS( i ,j+1,k,bi,bj)) |
|
./pkg/shelfice/shelfice_u_drag.F |
172 |
SHELFICE_U_DRAG |
uSq = uFld(i,j)*uFld(i,j) |
|
./pkg/shelfice/shelfice_u_drag.F |
176 |
SHELFICE_U_DRAG |
uDragTerms(i,j) = uDragTerms(i,j) |
|
./pkg/shelfice/shelfice_u_drag.F |
177 |
SHELFICE_U_DRAG |
& - _recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/shelfice/shelfice_u_drag.F |
179 |
SHELFICE_U_DRAG |
& * uFld(i,j) |
|
./pkg/shelfice/shelfice_u_drag.F |
54 |
SHELFICE_U_DRAG |
INTEGER i,j,kUpC,kTop |
|
./pkg/shelfice/shelfice_u_drag.F |
76 |
SHELFICE_U_DRAG |
DO i=1-OLx+1,sNx+OLx-1 |
|
./pkg/shelfice/shelfice_u_drag.F |
77 |
SHELFICE_U_DRAG |
IF ( k.EQ.MAX( kTopC(i-1,j,bi,bj),kTopC(i,j,bi,bj) ) ) THEN |
|
./pkg/shelfice/shelfice_u_drag.F |
78 |
SHELFICE_U_DRAG |
uDragTerms(i,j) = |
|
./pkg/shelfice/shelfice_u_drag.F |
79 |
SHELFICE_U_DRAG |
& - _recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/shelfice/shelfice_u_drag.F |
80 |
SHELFICE_U_DRAG |
& * kappaRU(i,j,kUpC)*rdrckp1*viscFac |
|
./pkg/shelfice/shelfice_u_drag.F |
81 |
SHELFICE_U_DRAG |
& * uFld(i,j) |
|
./pkg/shelfice/shelfice_u_drag.F |
83 |
SHELFICE_U_DRAG |
uDragTerms(i,j) = 0. _d 0 |
|
./pkg/shelfice/shelfice_u_drag.F |
89 |
SHELFICE_U_DRAG |
DO i=1-OLx,sNx+OLx |
|
./pkg/shelfice/shelfice_u_drag.F |
90 |
SHELFICE_U_DRAG |
uDragTerms(i,j) = 0. _d 0 |
|
./pkg/shelfice/shelfice_u_drag.F |
97 |
SHELFICE_U_DRAG |
DO i=1-OLx+1,sNx+OLx-1 |
|
./pkg/shelfice/shelfice_u_drag.F |
98 |
SHELFICE_U_DRAG |
uDragTerms(i,j) = uDragTerms(i,j) |
|
./pkg/shelfice/shelfice_u_drag.F |
99 |
SHELFICE_U_DRAG |
& * _recip_hFacW(i,j,k,bi,bj) |
|
./pkg/shelfice/shelfice_v_drag.F |
107 |
SHELFICE_V_DRAG |
DO i=1-OLx,sNx+OLx-1 |
|
./pkg/shelfice/shelfice_v_drag.F |
108 |
SHELFICE_V_DRAG |
IF ( k.EQ.MAX( kTopC(i,j-1,bi,bj),kTopC(i,j,bi,bj) ) ) THEN |
|
./pkg/shelfice/shelfice_v_drag.F |
109 |
SHELFICE_V_DRAG |
vDragTerms(i,j) = vDragTerms(i,j) |
|
./pkg/shelfice/shelfice_v_drag.F |
110 |
SHELFICE_V_DRAG |
& - _recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/shelfice/shelfice_v_drag.F |
112 |
SHELFICE_V_DRAG |
& * vFld(i,j) |
|
./pkg/shelfice/shelfice_v_drag.F |
122 |
SHELFICE_V_DRAG |
DO i=1-OLx,sNx+OLx-1 |
|
./pkg/shelfice/shelfice_v_drag.F |
124 |
SHELFICE_V_DRAG |
IF ( k.EQ.MAX( kTopC(i,j-1,bi,bj),kTopC(i,j,bi,bj) ) ) THEN |
|
./pkg/shelfice/shelfice_v_drag.F |
125 |
SHELFICE_V_DRAG |
vSq = KE(i,j)+KE(i,j-1) |
|
./pkg/shelfice/shelfice_v_drag.F |
128 |
SHELFICE_V_DRAG |
vDragTerms(i,j) = vDragTerms(i,j) |
|
./pkg/shelfice/shelfice_v_drag.F |
129 |
SHELFICE_V_DRAG |
& - _recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/shelfice/shelfice_v_drag.F |
131 |
SHELFICE_V_DRAG |
& * vFld(i,j) |
|
./pkg/shelfice/shelfice_v_drag.F |
138 |
SHELFICE_V_DRAG |
DO i=1-OLx,sNx+OLx-1 |
|
./pkg/shelfice/shelfice_v_drag.F |
140 |
SHELFICE_V_DRAG |
IF ( k.EQ.MAX( kTopC(i,j-1,bi,bj),kTopC(i,j,bi,bj) ) ) THEN |
|
./pkg/shelfice/shelfice_v_drag.F |
141 |
SHELFICE_V_DRAG |
vSq = vFld(i,j)*vFld(i,j) |
|
./pkg/shelfice/shelfice_v_drag.F |
142 |
SHELFICE_V_DRAG |
& + ( (uFld( i ,j-1)*uFld( i ,j-1)*hFacW( i ,j-1,k,bi,bj) |
|
./pkg/shelfice/shelfice_v_drag.F |
143 |
SHELFICE_V_DRAG |
& +uFld( i , j )*uFld( i , j )*hFacW( i , j ,k,bi,bj)) |
|
./pkg/shelfice/shelfice_v_drag.F |
144 |
SHELFICE_V_DRAG |
& + (uFld(i+1,j-1)*uFld(i+1,j-1)*hFacW(i+1,j-1,k,bi,bj) |
|
./pkg/shelfice/shelfice_v_drag.F |
145 |
SHELFICE_V_DRAG |
& +uFld(i+1, j )*uFld(i+1, j )*hFacW(i+1, j ,k,bi,bj)) |
|
./pkg/shelfice/shelfice_v_drag.F |
146 |
SHELFICE_V_DRAG |
& )*recip_hFacS(i,j,k,bi,bj)*0.25 _d 0 |
|
./pkg/shelfice/shelfice_v_drag.F |
149 |
SHELFICE_V_DRAG |
vDragTerms(i,j) = vDragTerms(i,j) |
|
./pkg/shelfice/shelfice_v_drag.F |
150 |
SHELFICE_V_DRAG |
& - _recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/shelfice/shelfice_v_drag.F |
152 |
SHELFICE_V_DRAG |
& * vFld(i,j) |
|
./pkg/shelfice/shelfice_v_drag.F |
159 |
SHELFICE_V_DRAG |
DO i=1-OLx,sNx+OLx-1 |
|
./pkg/shelfice/shelfice_v_drag.F |
161 |
SHELFICE_V_DRAG |
IF ( k.EQ.MAX( kTopC(i,j-1,bi,bj),kTopC(i,j,bi,bj) ) ) THEN |
|
./pkg/shelfice/shelfice_v_drag.F |
162 |
SHELFICE_V_DRAG |
vSq = ( hFacW( i ,j-1,k,bi,bj) + hFacW( i , j ,k,bi,bj) ) |
|
./pkg/shelfice/shelfice_v_drag.F |
163 |
SHELFICE_V_DRAG |
& + ( hFacW(i+1,j-1,k,bi,bj) + hFacW(i+1, j ,k,bi,bj) ) |
|
./pkg/shelfice/shelfice_v_drag.F |
165 |
SHELFICE_V_DRAG |
vSq = vFld(i,j)*vFld(i,j) |
|
./pkg/shelfice/shelfice_v_drag.F |
166 |
SHELFICE_V_DRAG |
& +( (uFld( i ,j-1)*uFld( i ,j-1)*hFacW( i ,j-1,k,bi,bj) |
|
./pkg/shelfice/shelfice_v_drag.F |
167 |
SHELFICE_V_DRAG |
& +uFld( i , j )*uFld( i , j )*hFacW( i , j ,k,bi,bj)) |
|
./pkg/shelfice/shelfice_v_drag.F |
168 |
SHELFICE_V_DRAG |
& + (uFld(i+1,j-1)*uFld(i+1,j-1)*hFacW(i+1,j-1,k,bi,bj) |
|
./pkg/shelfice/shelfice_v_drag.F |
169 |
SHELFICE_V_DRAG |
& +uFld(i+1, j )*uFld(i+1, j )*hFacW(i+1, j ,k,bi,bj)) |
|
./pkg/shelfice/shelfice_v_drag.F |
172 |
SHELFICE_V_DRAG |
vSq = vFld(i,j)*vFld(i,j) |
|
./pkg/shelfice/shelfice_v_drag.F |
176 |
SHELFICE_V_DRAG |
vDragTerms(i,j) = vDragTerms(i,j) |
|
./pkg/shelfice/shelfice_v_drag.F |
177 |
SHELFICE_V_DRAG |
& - _recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/shelfice/shelfice_v_drag.F |
179 |
SHELFICE_V_DRAG |
& * vFld(i,j) |
|
./pkg/shelfice/shelfice_v_drag.F |
54 |
SHELFICE_V_DRAG |
INTEGER i,j,kUpC,kTop |
|
./pkg/shelfice/shelfice_v_drag.F |
76 |
SHELFICE_V_DRAG |
DO i=1-OLx,sNx+OLx-1 |
|
./pkg/shelfice/shelfice_v_drag.F |
77 |
SHELFICE_V_DRAG |
IF ( k.EQ.MAX( kTopC(i,j-1,bi,bj),kTopC(i,j,bi,bj) ) ) THEN |
|
./pkg/shelfice/shelfice_v_drag.F |
78 |
SHELFICE_V_DRAG |
vDragTerms(i,j) = |
|
./pkg/shelfice/shelfice_v_drag.F |
79 |
SHELFICE_V_DRAG |
& - _recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/shelfice/shelfice_v_drag.F |
80 |
SHELFICE_V_DRAG |
& * kappaRV(i,j,kUpC)*rdrckp1*viscFac |
|
./pkg/shelfice/shelfice_v_drag.F |
81 |
SHELFICE_V_DRAG |
& * vFld(i,j) |
|
./pkg/shelfice/shelfice_v_drag.F |
83 |
SHELFICE_V_DRAG |
vDragTerms(i,j) = 0. _d 0 |
|
./pkg/shelfice/shelfice_v_drag.F |
89 |
SHELFICE_V_DRAG |
DO i=1-OLx,sNx+OLx |
|
./pkg/shelfice/shelfice_v_drag.F |
90 |
SHELFICE_V_DRAG |
vDragTerms(i,j) = 0. _d 0 |
|
./pkg/shelfice/shelfice_v_drag.F |
97 |
SHELFICE_V_DRAG |
DO i=1-OLx,sNx+OLx-1 |
|
./pkg/shelfice/shelfice_v_drag.F |
98 |
SHELFICE_V_DRAG |
vDragTerms(i,j) = vDragTerms(i,j) |
|
./pkg/shelfice/shelfice_v_drag.F |
99 |
SHELFICE_V_DRAG |
& * _recip_hFacS(i,j,k,bi,bj) |
|
./model/src/ini_eos.F |
360 |
EOS_CHECK |
INTEGER i, j, k |
|
./model/src/ini_eos.F |
41 |
INI_EOS |
INTEGER i, k |
|
./model/src/ini_eos.F |
455 |
EOS_CHECK |
i = 1 |
|
./model/src/ini_eos.F |
467 |
EOS_CHECK |
mskSave = maskC(i,j,k,bi,bj) |
|
./model/src/ini_eos.F |
469 |
EOS_CHECK |
maskC(i,j,k,bi,bj) = 1. |
|
./model/src/ini_eos.F |
470 |
EOS_CHECK |
totPhiHyd(i,j,k,bi,bj) = 0. |
|
./model/src/ini_eos.F |
479 |
EOS_CHECK |
tFld(i,j) = ptLoc(kcheck) |
|
./model/src/ini_eos.F |
481 |
EOS_CHECK |
tFld(i,j) = tLoc(kcheck) |
|
./model/src/ini_eos.F |
483 |
EOS_CHECK |
sFld(i,j) = sLoc(kcheck) |
|
./model/src/ini_eos.F |
484 |
EOS_CHECK |
pFld(i,j) = pLoc(kcheck) |
|
./model/src/ini_eos.F |
485 |
EOS_CHECK |
rhoLoc(i,j) = 0. _d 0 |
|
./model/src/ini_eos.F |
495 |
EOS_CHECK |
bulkMod(i,j) = -1. _d 0 |
|
./model/src/ini_eos.F |
526 |
EOS_CHECK |
& 'rho(', sFld(i,j), ' PSU,', |
|
./model/src/ini_eos.F |
527 |
EOS_CHECK |
& tFld(i,j), ' degC,', |
|
./model/src/ini_eos.F |
534 |
EOS_CHECK |
& rhoLoc(i,j)+rhoConst, bulkMod(i,j) |
|
./model/src/ini_eos.F |
538 |
EOS_CHECK |
CALL FIND_RHO_SCALAR( tFld(i,j), sLoc(kcheck), |
|
./model/src/ini_eos.F |
539 |
EOS_CHECK |
& pLoc(kcheck), rhoLoc(i,j), myThid ) |
|
./model/src/ini_eos.F |
542 |
EOS_CHECK |
& rhoLoc(i,j) |
|
./model/src/ini_eos.F |
548 |
EOS_CHECK |
maskC(i,j,k,bi,bj) = mskSave |
|
./model/src/ini_eos.F |
93 |
INI_EOS |
READ(37,*) (eosC(i,k),i=1,9) |
|
./pkg/smooth/smooth2d.F |
27 |
SMOOTH2D |
integer i,j,bi,bj |
|
./pkg/smooth/smooth3d.F |
27 |
SMOOTH3D |
integer i,j,k,bi,bj |
|
./pkg/smooth/smooth_basic2d.F |
28 |
SMOOTH_BASIC2D |
integer i,j,bi,bj |
|
./pkg/smooth/smooth_basic2d.F |
44 |
SMOOTH_BASIC2D |
DO i=1-OLx,sNx+OLx |
|
./pkg/smooth/smooth_basic2d.F |
45 |
SMOOTH_BASIC2D |
smooth2D_Lx(i,j,bi,bj)=dist_in |
|
./pkg/smooth/smooth_basic2d.F |
46 |
SMOOTH_BASIC2D |
smooth2D_Ly(i,j,bi,bj)=dist_in |
|
./pkg/smooth/smooth_basic2d.F |
55 |
SMOOTH_BASIC2D |
DO i=1-OLx,sNx+OLx |
|
./pkg/smooth/smooth_basic2d.F |
56 |
SMOOTH_BASIC2D |
smooth2D_Kux(i,j,bi,bj)=smooth2D_Lx(i,j,bi,bj)* |
|
./pkg/smooth/smooth_basic2d.F |
57 |
SMOOTH_BASIC2D |
& smooth2D_Lx(i,j,bi,bj)/smooth2DtotTime/2 |
|
./pkg/smooth/smooth_basic2d.F |
58 |
SMOOTH_BASIC2D |
smooth2D_Kvy(i,j,bi,bj)=smooth2D_Ly(i,j,bi,bj)* |
|
./pkg/smooth/smooth_basic2d.F |
59 |
SMOOTH_BASIC2D |
& smooth2D_Ly(i,j,bi,bj)/smooth2DtotTime/2 |
|
./pkg/smooth/smooth_correl2d.F |
28 |
SMOOTH_CORREL2D |
integer i,j,bi,bj |
|
./pkg/smooth/smooth_correl2d.F |
61 |
SMOOTH_CORREL2D |
DO i = 1,sNx |
|
./pkg/smooth/smooth_correl2d.F |
62 |
SMOOTH_CORREL2D |
fld_in(i,j,bi,bj)=fld_in(i,j,bi,bj) |
|
./pkg/smooth/smooth_correl2d.F |
63 |
SMOOTH_CORREL2D |
& *sqrt(recip_rA(i,j,bi,bj)) |
|
./pkg/smooth/smooth_correl2d.F |
78 |
SMOOTH_CORREL2D |
DO i = 1,sNx |
|
./pkg/smooth/smooth_correl2d.F |
79 |
SMOOTH_CORREL2D |
fld_in(i,j,bi,bj)=fld_in(i,j,bi,bj) |
|
./pkg/smooth/smooth_correl2d.F |
80 |
SMOOTH_CORREL2D |
& *smooth2Dnorm(i,j,bi,bj) |
|
./pkg/smooth/smooth_correl2dw.F |
100 |
SMOOTH_CORREL2DW |
tmpW=wuwind(i,j,bi,bj) |
|
./pkg/smooth/smooth_correl2dw.F |
102 |
SMOOTH_CORREL2DW |
tmpW=wvwind(i,j,bi,bj) |
|
./pkg/smooth/smooth_correl2dw.F |
113 |
SMOOTH_CORREL2DW |
tmpW=wgentim2d(i,j,bi,bj,iarr) |
|
./pkg/smooth/smooth_correl2dw.F |
120 |
SMOOTH_CORREL2DW |
if ((mask_in(i,j,1,bi,bj).NE.0.).AND.(tmpW.NE.0.)) then |
|
./pkg/smooth/smooth_correl2dw.F |
121 |
SMOOTH_CORREL2DW |
fld_in(i,j,bi,bj)=fld_in(i,j,bi,bj)/sqrt(tmpW) |
|
./pkg/smooth/smooth_correl2dw.F |
123 |
SMOOTH_CORREL2DW |
fld_in(i,j,bi,bj)=fld_in(i,j,bi,bj)*0. |
|
./pkg/smooth/smooth_correl2dw.F |
46 |
SMOOTH_CORREL2DW |
integer i,j,bi,bj |
|
./pkg/smooth/smooth_correl2dw.F |
64 |
SMOOTH_CORREL2DW |
DO i = 1,sNx |
|
./pkg/smooth/smooth_correl2dw.F |
69 |
SMOOTH_CORREL2DW |
tmpW=whflux(i,j,bi,bj) |
|
./pkg/smooth/smooth_correl2dw.F |
71 |
SMOOTH_CORREL2DW |
tmpW=wsflux(i,j,bi,bj) |
|
./pkg/smooth/smooth_correl2dw.F |
73 |
SMOOTH_CORREL2DW |
tmpW=wtauu(i,j,bi,bj) |
|
./pkg/smooth/smooth_correl2dw.F |
75 |
SMOOTH_CORREL2DW |
tmpW=wtauv(i,j,bi,bj) |
|
./pkg/smooth/smooth_correl2dw.F |
78 |
SMOOTH_CORREL2DW |
tmpW=watemp(i,j,bi,bj) |
|
./pkg/smooth/smooth_correl2dw.F |
80 |
SMOOTH_CORREL2DW |
tmpW=waqh(i,j,bi,bj) |
|
./pkg/smooth/smooth_correl2dw.F |
82 |
SMOOTH_CORREL2DW |
tmpW=wprecip(i,j,bi,bj) |
|
./pkg/smooth/smooth_correl2dw.F |
84 |
SMOOTH_CORREL2DW |
tmpW=wsnowprecip(i,j,bi,bj) |
|
./pkg/smooth/smooth_correl2dw.F |
87 |
SMOOTH_CORREL2DW |
tmpW=wswflux(i,j,bi,bj) |
|
./pkg/smooth/smooth_correl2dw.F |
89 |
SMOOTH_CORREL2DW |
tmpW=wswdown(i,j,bi,bj) |
|
./pkg/smooth/smooth_correl2dw.F |
91 |
SMOOTH_CORREL2DW |
tmpW=wlwflux(i,j,bi,bj) |
|
./pkg/smooth/smooth_correl2dw.F |
93 |
SMOOTH_CORREL2DW |
tmpW=wlwdown(i,j,bi,bj) |
|
./pkg/smooth/smooth_correl2dw.F |
96 |
SMOOTH_CORREL2DW |
tmpW=wevap(i,j,bi,bj) |
|
./pkg/smooth/smooth_correl2dw.F |
98 |
SMOOTH_CORREL2DW |
tmpW=wapressure(i,j,bi,bj) |
|
./model/src/ini_ffields.F |
104 |
INI_FFIELDS |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_ffields.F |
105 |
INI_FFIELDS |
frictionHeating(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
111 |
INI_FFIELDS |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_ffields.F |
112 |
INI_FFIELDS |
eddyPsiX (i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
113 |
INI_FFIELDS |
eddyPsiY (i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
114 |
INI_FFIELDS |
tauxEddy (i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
115 |
INI_FFIELDS |
tauyEddy (i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
116 |
INI_FFIELDS |
uEulerMean(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
117 |
INI_FFIELDS |
vEulerMean(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
125 |
INI_FFIELDS |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_ffields.F |
126 |
INI_FFIELDS |
surfaceForcingU (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
127 |
INI_FFIELDS |
surfaceForcingV (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
128 |
INI_FFIELDS |
surfaceForcingT (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
129 |
INI_FFIELDS |
surfaceForcingS (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
130 |
INI_FFIELDS |
surfaceForcingTice (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
131 |
INI_FFIELDS |
lambdaThetaClimRelax(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
132 |
INI_FFIELDS |
lambdaSaltClimRelax (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
38 |
INI_FFIELDS |
INTEGER i, j, k |
|
./model/src/ini_ffields.F |
47 |
INI_FFIELDS |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_ffields.F |
48 |
INI_FFIELDS |
fu (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
49 |
INI_FFIELDS |
fv (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
50 |
INI_FFIELDS |
Qnet (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
51 |
INI_FFIELDS |
Qsw (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
52 |
INI_FFIELDS |
EmPmR (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
53 |
INI_FFIELDS |
saltFlux (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
54 |
INI_FFIELDS |
SST (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
55 |
INI_FFIELDS |
SSS (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
56 |
INI_FFIELDS |
phiTide2d (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
57 |
INI_FFIELDS |
pLoad (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
58 |
INI_FFIELDS |
sIceLoad (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
60 |
INI_FFIELDS |
geothermalFlux (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
64 |
INI_FFIELDS |
taux0 (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
65 |
INI_FFIELDS |
taux1 (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
66 |
INI_FFIELDS |
tauy0 (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
67 |
INI_FFIELDS |
tauy1 (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
68 |
INI_FFIELDS |
Qnet0 (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
69 |
INI_FFIELDS |
Qnet1 (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
70 |
INI_FFIELDS |
EmPmR0 (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
71 |
INI_FFIELDS |
EmPmR1 (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
72 |
INI_FFIELDS |
saltFlux0 (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
73 |
INI_FFIELDS |
saltFlux1 (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
74 |
INI_FFIELDS |
SST0 (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
75 |
INI_FFIELDS |
SST1 (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
76 |
INI_FFIELDS |
SSS0 (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
77 |
INI_FFIELDS |
SSS1 (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
79 |
INI_FFIELDS |
Qsw0 (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
80 |
INI_FFIELDS |
Qsw1 (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
83 |
INI_FFIELDS |
pLoad0 (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
84 |
INI_FFIELDS |
pLoad1 (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
97 |
INI_FFIELDS |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_ffields.F |
98 |
INI_FFIELDS |
addMass(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_correl3d.F |
104 |
SMOOTH_CORREL3D |
DO i = 1,sNx |
|
./pkg/smooth/smooth_correl3d.F |
106 |
SMOOTH_CORREL3D |
fld_in(i,j,k,bi,bj)=fld_in(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_correl3d.F |
107 |
SMOOTH_CORREL3D |
& *smooth3Dnorm(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_correl3d.F |
28 |
SMOOTH_CORREL3D |
integer i,j,k,bi,bj |
|
./pkg/smooth/smooth_correl3d.F |
86 |
SMOOTH_CORREL3D |
DO i=1,sNx |
|
./pkg/smooth/smooth_correl3d.F |
87 |
SMOOTH_CORREL3D |
fld_in(i,j,k,bi,bj)=fld_in(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_correl3d.F |
88 |
SMOOTH_CORREL3D |
& *sqrt(recip_rA(i,j,bi,bj)*recip_drF(k)) |
|
./pkg/smooth/smooth_diff2d.F |
130 |
SMOOTH_DIFF2D |
DO i = 1,sNx |
|
./pkg/smooth/smooth_diff2d.F |
132 |
SMOOTH_DIFF2D |
gt_in(i,j,bi,bj)=0. |
|
./pkg/smooth/smooth_diff2d.F |
134 |
SMOOTH_DIFF2D |
if (smooth2Dmask(i,j,bi,bj).NE.0.) then |
|
./pkg/smooth/smooth_diff2d.F |
136 |
SMOOTH_DIFF2D |
gt_in(i,j,bi,bj)=gt_in(i,j,bi,bj)+ |
|
./pkg/smooth/smooth_diff2d.F |
137 |
SMOOTH_DIFF2D |
& smooth2D_Kux(i,j,bi,bj)*dyG(i,j,bi,bj)* |
|
./pkg/smooth/smooth_diff2d.F |
138 |
SMOOTH_DIFF2D |
& smooth2Dmask(i,j,bi,bj)*smooth2Dmask(i-1,j,bi,bj)* |
|
./pkg/smooth/smooth_diff2d.F |
139 |
SMOOTH_DIFF2D |
& (fld_in(i,j,bi,bj)-fld_in(i-1,j,bi,bj))*recip_dxC(i,j,bi,bj) |
|
./pkg/smooth/smooth_diff2d.F |
141 |
SMOOTH_DIFF2D |
gt_in(i,j,bi,bj)=gt_in(i,j,bi,bj)+ |
|
./pkg/smooth/smooth_diff2d.F |
142 |
SMOOTH_DIFF2D |
& smooth2D_Kux(i+1,j,bi,bj)*dyG(i+1,j,bi,bj)* |
|
./pkg/smooth/smooth_diff2d.F |
143 |
SMOOTH_DIFF2D |
& smooth2Dmask(i,j,bi,bj)*smooth2Dmask(i+1,j,bi,bj)* |
|
./pkg/smooth/smooth_diff2d.F |
144 |
SMOOTH_DIFF2D |
& (fld_in(i,j,bi,bj)-fld_in(i+1,j,bi,bj))*recip_dxC(i+1,j,bi,bj) |
|
./pkg/smooth/smooth_diff2d.F |
146 |
SMOOTH_DIFF2D |
gt_in(i,j,bi,bj)=gt_in(i,j,bi,bj)+ |
|
./pkg/smooth/smooth_diff2d.F |
147 |
SMOOTH_DIFF2D |
& smooth2D_Kvy(i,j,bi,bj)*dxG(i,j,bi,bj)* |
|
./pkg/smooth/smooth_diff2d.F |
148 |
SMOOTH_DIFF2D |
& smooth2Dmask(i,j,bi,bj)*smooth2Dmask(i,j-1,bi,bj)* |
|
./pkg/smooth/smooth_diff2d.F |
149 |
SMOOTH_DIFF2D |
& (fld_in(i,j,bi,bj)-fld_in(i,j-1,bi,bj))*recip_dyC(i,j,bi,bj) |
|
./pkg/smooth/smooth_diff2d.F |
151 |
SMOOTH_DIFF2D |
gt_in(i,j,bi,bj)=gt_in(i,j,bi,bj)+ |
|
./pkg/smooth/smooth_diff2d.F |
152 |
SMOOTH_DIFF2D |
& smooth2D_Kvy(i,j+1,bi,bj)*dxG(i,j+1,bi,bj)* |
|
./pkg/smooth/smooth_diff2d.F |
153 |
SMOOTH_DIFF2D |
& smooth2Dmask(i,j,bi,bj)*smooth2Dmask(i,j+1,bi,bj)* |
|
./pkg/smooth/smooth_diff2d.F |
154 |
SMOOTH_DIFF2D |
& (fld_in(i,j,bi,bj)-fld_in(i,j+1,bi,bj))*recip_dyC(i,j+1,bi,bj) |
|
./pkg/smooth/smooth_diff2d.F |
175 |
SMOOTH_DIFF2D |
DO i = 1,sNx |
|
./pkg/smooth/smooth_diff2d.F |
177 |
SMOOTH_DIFF2D |
gt_tmp = ab15*gt_in(i,j,bi,bj) |
|
./pkg/smooth/smooth_diff2d.F |
178 |
SMOOTH_DIFF2D |
& + ab05*gtm1_in(i,j,bi,bj) |
|
./pkg/smooth/smooth_diff2d.F |
179 |
SMOOTH_DIFF2D |
gtm1_in(i,j,bi,bj) = gt_in(i,j,bi,bj) |
|
./pkg/smooth/smooth_diff2d.F |
180 |
SMOOTH_DIFF2D |
gt_in(i,j,bi,bj) = gt_tmp |
|
./pkg/smooth/smooth_diff2d.F |
182 |
SMOOTH_DIFF2D |
fld_in(i,j,bi,bj)=fld_in(i,j,bi,bj) |
|
./pkg/smooth/smooth_diff2d.F |
183 |
SMOOTH_DIFF2D |
& -gt_in(i,j,bi,bj)*recip_rA(i,j,bi,bj)*smooth2DdelTime |
|
./pkg/smooth/smooth_diff2d.F |
184 |
SMOOTH_DIFF2D |
gt_in(i,j,bi,bj)=0 |
|
./pkg/smooth/smooth_diff2d.F |
28 |
SMOOTH_DIFF2D |
integer i,j,k, bi, bj |
|
./pkg/smooth/smooth_diff2d.F |
64 |
SMOOTH_DIFF2D |
DO i = 1,sNx |
|
./pkg/smooth/smooth_diff2d.F |
65 |
SMOOTH_DIFF2D |
gt_in(i,j,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_diff2d.F |
66 |
SMOOTH_DIFF2D |
gtm1_in(i,j,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_diff2d.F |
67 |
SMOOTH_DIFF2D |
smooth2Dmask(i,j,bi,bj) = mask_in(i,j,1,bi,bj) |
|
./pkg/smooth/smooth_diff3d.F |
121 |
SMOOTH_DIFF3D |
DO i=1,sNx |
|
./pkg/smooth/smooth_diff3d.F |
122 |
SMOOTH_DIFF3D |
gT_in(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_diff3d.F |
148 |
SMOOTH_DIFF3D |
DO i=1-OLx,sNx+OLx |
|
./pkg/smooth/smooth_diff3d.F |
149 |
SMOOTH_DIFF3D |
if (maskc(i,j,k,bi,bj).NE.0.) then |
|
./pkg/smooth/smooth_diff3d.F |
150 |
SMOOTH_DIFF3D |
fld_in(i,j,k,bi,bj)=fld_in(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_diff3d.F |
151 |
SMOOTH_DIFF3D |
& +smooth3DdelTime*gT_in(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_diff3d.F |
152 |
SMOOTH_DIFF3D |
gT_in(i,j,k,bi,bj)=0 |
|
./pkg/smooth/smooth_diff3d.F |
27 |
SMOOTH_DIFF3D |
integer i,j,k, bi,bj, iMin,iMax,jMin,jMax |
|
./pkg/smooth/smooth_diff3d.F |
59 |
SMOOTH_DIFF3D |
DO i=1-OLx,sNx+OLx |
|
./pkg/smooth/smooth_diff3d.F |
60 |
SMOOTH_DIFF3D |
gT_in(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_diff3d.F |
61 |
SMOOTH_DIFF3D |
gTm1_in(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_filtervar2d.F |
118 |
SMOOTH_FILTERVAR2D |
DO i = 1,sNx |
|
./pkg/smooth/smooth_filtervar2d.F |
120 |
SMOOTH_FILTERVAR2D |
smoothTmpFld(i,j,bi,bj)=smoothTmpFld(i,j,bi,bj) |
|
./pkg/smooth/smooth_filtervar2d.F |
121 |
SMOOTH_FILTERVAR2D |
& *recip_rA(i,j,bi,bj) |
|
./pkg/smooth/smooth_filtervar2d.F |
138 |
SMOOTH_FILTERVAR2D |
DO i=ii,sNx,diLoc |
|
./pkg/smooth/smooth_filtervar2d.F |
139 |
SMOOTH_FILTERVAR2D |
if (maskc(i,j,1,bi,bj).NE.0) then |
|
./pkg/smooth/smooth_filtervar2d.F |
140 |
SMOOTH_FILTERVAR2D |
smooth2Dnorm(i,j,bi,bj)= |
|
./pkg/smooth/smooth_filtervar2d.F |
141 |
SMOOTH_FILTERVAR2D |
& 1/sqrt(smoothTmpFld(i,j,bi,bj)) |
|
./pkg/smooth/smooth_filtervar2d.F |
157 |
SMOOTH_FILTERVAR2D |
DO i=1-OLx,sNx+OLx |
|
./pkg/smooth/smooth_filtervar2d.F |
158 |
SMOOTH_FILTERVAR2D |
smoothTmpMean(i,j,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_filtervar2d.F |
159 |
SMOOTH_FILTERVAR2D |
smoothTmpVar(i,j,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_filtervar2d.F |
177 |
SMOOTH_FILTERVAR2D |
DO i=1-OLx,sNx+OLx |
|
./pkg/smooth/smooth_filtervar2d.F |
178 |
SMOOTH_FILTERVAR2D |
smoothTmpFld(i,j,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_filtervar2d.F |
179 |
SMOOTH_FILTERVAR2D |
if (maskC(i,j,1,bi,bj).NE.0) then |
|
./pkg/smooth/smooth_filtervar2d.F |
180 |
SMOOTH_FILTERVAR2D |
smoothTmpFld(i,j,bi,bj)=port_rand_norm() |
|
./pkg/smooth/smooth_filtervar2d.F |
183 |
SMOOTH_FILTERVAR2D |
smoothTmpFld(i,j,bi,bj)=smoothTmpFld(i,j,bi,bj) |
|
./pkg/smooth/smooth_filtervar2d.F |
184 |
SMOOTH_FILTERVAR2D |
& *sqrt(recip_rA(i,j,bi,bj)) |
|
./pkg/smooth/smooth_filtervar2d.F |
199 |
SMOOTH_FILTERVAR2D |
DO i=1-OLx,sNx+OLx |
|
./pkg/smooth/smooth_filtervar2d.F |
200 |
SMOOTH_FILTERVAR2D |
smoothTmpVar(i,j,bi,bj)=smoothTmpVar(i,j,bi,bj) |
|
./pkg/smooth/smooth_filtervar2d.F |
201 |
SMOOTH_FILTERVAR2D |
& +smoothTmpFld(i,j,bi,bj)*smoothTmpFld(i,j,bi,bj)/nbRand |
|
./pkg/smooth/smooth_filtervar2d.F |
202 |
SMOOTH_FILTERVAR2D |
smoothTmpMean(i,j,bi,bj)=smoothTmpMean(i,j,bi,bj) |
|
./pkg/smooth/smooth_filtervar2d.F |
203 |
SMOOTH_FILTERVAR2D |
& +smoothTmpFld(i,j,bi,bj)/nbRand |
|
./pkg/smooth/smooth_filtervar2d.F |
215 |
SMOOTH_FILTERVAR2D |
DO i=1-OLx,sNx+OLx |
|
./pkg/smooth/smooth_filtervar2d.F |
216 |
SMOOTH_FILTERVAR2D |
if (maskC(i,j,1,bi,bj).NE.0) then |
|
./pkg/smooth/smooth_filtervar2d.F |
217 |
SMOOTH_FILTERVAR2D |
smooth2Dnorm(i,j,bi,bj)= |
|
./pkg/smooth/smooth_filtervar2d.F |
218 |
SMOOTH_FILTERVAR2D |
& 1/sqrt ( nbRand/(nbRand-1)* ( smoothTmpVar(i,j,bi,bj) - |
|
./pkg/smooth/smooth_filtervar2d.F |
219 |
SMOOTH_FILTERVAR2D |
& smoothTmpMean(i,j,bi,bj)*smoothTmpMean(i,j,bi,bj) |
|
./pkg/smooth/smooth_filtervar2d.F |
28 |
SMOOTH_FILTERVAR2D |
integer i,j,k, bi, bj, ii, jj, kk |
|
./pkg/smooth/smooth_filtervar2d.F |
64 |
SMOOTH_FILTERVAR2D |
DO i=1-OLx,sNx+OLx |
|
./pkg/smooth/smooth_filtervar2d.F |
65 |
SMOOTH_FILTERVAR2D |
smooth2Dnorm(i,j,bi,bj)=0. |
|
./pkg/smooth/smooth_filtervar2d.F |
90 |
SMOOTH_FILTERVAR2D |
DO i=1-OLx,sNx+OLx |
|
./pkg/smooth/smooth_filtervar2d.F |
91 |
SMOOTH_FILTERVAR2D |
smoothTmpFld(i,j,bi,bj)=0. |
|
./pkg/smooth/smooth_filtervar2d.F |
96 |
SMOOTH_FILTERVAR2D |
DO i=ii,sNx,diLoc |
|
./pkg/smooth/smooth_filtervar2d.F |
97 |
SMOOTH_FILTERVAR2D |
smoothTmpFld(i,j,bi,bj)=1. |
|
./pkg/smooth/smooth_filtervar3d.F |
119 |
SMOOTH_FILTERVAR3D |
DO i=1-OLx,sNx+OLx |
|
./pkg/smooth/smooth_filtervar3d.F |
120 |
SMOOTH_FILTERVAR3D |
smoothTmpFld(i,j,k,bi,bj)=0. |
|
./pkg/smooth/smooth_filtervar3d.F |
127 |
SMOOTH_FILTERVAR3D |
DO i=ii,sNx,diLoc |
|
./pkg/smooth/smooth_filtervar3d.F |
128 |
SMOOTH_FILTERVAR3D |
smoothTmpFld(i,j,k,bi,bj)=1. |
|
./pkg/smooth/smooth_filtervar3d.F |
151 |
SMOOTH_FILTERVAR3D |
DO i=1,sNx |
|
./pkg/smooth/smooth_filtervar3d.F |
153 |
SMOOTH_FILTERVAR3D |
smoothTmpFld(i,j,k,bi,bj)=smoothTmpFld(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_filtervar3d.F |
154 |
SMOOTH_FILTERVAR3D |
& *(recip_rA(i,j,bi,bj)*recip_drF(k)) |
|
./pkg/smooth/smooth_filtervar3d.F |
173 |
SMOOTH_FILTERVAR3D |
DO i=ii,sNx,diLoc |
|
./pkg/smooth/smooth_filtervar3d.F |
174 |
SMOOTH_FILTERVAR3D |
if (smoothTmpFld(i,j,k,bi,bj).NE.0.) then |
|
./pkg/smooth/smooth_filtervar3d.F |
175 |
SMOOTH_FILTERVAR3D |
smooth3Dnorm(i,j,k,bi,bj)= |
|
./pkg/smooth/smooth_filtervar3d.F |
176 |
SMOOTH_FILTERVAR3D |
& 1/sqrt(smoothTmpFld(i,j,k,bi,bj)) |
|
./pkg/smooth/smooth_filtervar3d.F |
195 |
SMOOTH_FILTERVAR3D |
DO i=1-OLx,sNx+OLx |
|
./pkg/smooth/smooth_filtervar3d.F |
196 |
SMOOTH_FILTERVAR3D |
smoothTmpMean(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_filtervar3d.F |
197 |
SMOOTH_FILTERVAR3D |
smoothTmpVar(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_filtervar3d.F |
217 |
SMOOTH_FILTERVAR3D |
DO i=1-OLx,sNx+OLx |
|
./pkg/smooth/smooth_filtervar3d.F |
218 |
SMOOTH_FILTERVAR3D |
smoothTmpFld(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_filtervar3d.F |
219 |
SMOOTH_FILTERVAR3D |
if (maskC(i,j,k,bi,bj).NE.0) then |
|
./pkg/smooth/smooth_filtervar3d.F |
220 |
SMOOTH_FILTERVAR3D |
smoothTmpFld(i,j,k,bi,bj)=port_rand_norm() |
|
./pkg/smooth/smooth_filtervar3d.F |
223 |
SMOOTH_FILTERVAR3D |
smoothTmpFld(i,j,k,bi,bj)=smoothTmpFld(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_filtervar3d.F |
224 |
SMOOTH_FILTERVAR3D |
& *sqrt(recip_rA(i,j,bi,bj)*recip_drF(k)) |
|
./pkg/smooth/smooth_filtervar3d.F |
241 |
SMOOTH_FILTERVAR3D |
DO i=1-OLx,sNx+OLx |
|
./pkg/smooth/smooth_filtervar3d.F |
242 |
SMOOTH_FILTERVAR3D |
smoothTmpVar(i,j,k,bi,bj)=smoothTmpVar(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_filtervar3d.F |
243 |
SMOOTH_FILTERVAR3D |
& +smoothTmpFld(i,j,k,bi,bj)*smoothTmpFld(i,j,k,bi,bj)/nbRand |
|
./pkg/smooth/smooth_filtervar3d.F |
244 |
SMOOTH_FILTERVAR3D |
smoothTmpMean(i,j,k,bi,bj)=smoothTmpMean(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_filtervar3d.F |
245 |
SMOOTH_FILTERVAR3D |
& +smoothTmpFld(i,j,k,bi,bj)/nbRand |
|
./pkg/smooth/smooth_filtervar3d.F |
259 |
SMOOTH_FILTERVAR3D |
DO i=1-OLx,sNx+OLx |
|
./pkg/smooth/smooth_filtervar3d.F |
260 |
SMOOTH_FILTERVAR3D |
if (maskC(i,j,k,bi,bj).NE.0) then |
|
./pkg/smooth/smooth_filtervar3d.F |
261 |
SMOOTH_FILTERVAR3D |
smooth3Dnorm(i,j,k,bi,bj)= |
|
./pkg/smooth/smooth_filtervar3d.F |
262 |
SMOOTH_FILTERVAR3D |
& 1/sqrt ( nbRand/(nbRand-1)* ( smoothTmpVar(i,j,k,bi,bj) - |
|
./pkg/smooth/smooth_filtervar3d.F |
263 |
SMOOTH_FILTERVAR3D |
& smoothTmpMean(i,j,k,bi,bj)*smoothTmpMean(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_filtervar3d.F |
28 |
SMOOTH_FILTERVAR3D |
integer i,j,k, bi, bj, ii, jj, kk |
|
./pkg/smooth/smooth_filtervar3d.F |
89 |
SMOOTH_FILTERVAR3D |
DO i=1-OLx,sNx+OLx |
|
./pkg/smooth/smooth_filtervar3d.F |
90 |
SMOOTH_FILTERVAR3D |
smooth3Dnorm(i,j,k,bi,bj)=0. |
|
./pkg/smooth/smooth_hetero2d.F |
29 |
SMOOTH_HETERO2D |
integer i,j,bi,bj |
|
./pkg/smooth/smooth_hetero2d.F |
47 |
SMOOTH_HETERO2D |
DO i=1-OLx,sNx+OLx |
|
./pkg/smooth/smooth_hetero2d.F |
48 |
SMOOTH_HETERO2D |
smooth2D_Lx(i,j,bi,bj)=dist_in(i,j,bi,bj) |
|
./pkg/smooth/smooth_hetero2d.F |
49 |
SMOOTH_HETERO2D |
smooth2D_Ly(i,j,bi,bj)=dist_in(i,j,bi,bj) |
|
./pkg/smooth/smooth_hetero2d.F |
58 |
SMOOTH_HETERO2D |
DO i=1-OLx,sNx+OLx |
|
./pkg/smooth/smooth_hetero2d.F |
59 |
SMOOTH_HETERO2D |
smooth2D_Kux(i,j,bi,bj)=smooth2D_Lx(i,j,bi,bj)* |
|
./pkg/smooth/smooth_hetero2d.F |
60 |
SMOOTH_HETERO2D |
& smooth2D_Lx(i,j,bi,bj)/smooth2DtotTime/2 |
|
./pkg/smooth/smooth_hetero2d.F |
61 |
SMOOTH_HETERO2D |
smooth2D_Kvy(i,j,bi,bj)=smooth2D_Ly(i,j,bi,bj)* |
|
./pkg/smooth/smooth_hetero2d.F |
62 |
SMOOTH_HETERO2D |
& smooth2D_Ly(i,j,bi,bj)/smooth2DtotTime/2 |
|
./pkg/smooth/smooth_impldiff.F |
105 |
SMOOTH_IMPLDIFF |
DO i=iMin,iMax |
|
./pkg/smooth/smooth_impldiff.F |
106 |
SMOOTH_IMPLDIFF |
bet(i,j,k) = 1. _d 0 |
|
./pkg/smooth/smooth_impldiff.F |
107 |
SMOOTH_IMPLDIFF |
gam(i,j,k) = 0. _d 0 |
|
./pkg/smooth/smooth_impldiff.F |
118 |
SMOOTH_IMPLDIFF |
DO i=iMin,iMax |
|
./pkg/smooth/smooth_impldiff.F |
119 |
SMOOTH_IMPLDIFF |
IF (b(i,j,1).NE.0.) bet(i,j,1) = 1. _d 0 / b(i,j,1) |
|
./pkg/smooth/smooth_impldiff.F |
132 |
SMOOTH_IMPLDIFF |
DO i=iMin,iMax |
|
./pkg/smooth/smooth_impldiff.F |
133 |
SMOOTH_IMPLDIFF |
gam(i,j,k) = c(i,j,k-1)*bet(i,j,k-1) |
|
./pkg/smooth/smooth_impldiff.F |
134 |
SMOOTH_IMPLDIFF |
IF ( ( b(i,j,k) - a(i,j,k)*gam(i,j,k) ) .NE. 0.) |
|
./pkg/smooth/smooth_impldiff.F |
135 |
SMOOTH_IMPLDIFF |
& bet(i,j,k) = 1. _d 0 / ( b(i,j,k) - a(i,j,k)*gam(i,j,k) ) |
|
./pkg/smooth/smooth_impldiff.F |
145 |
SMOOTH_IMPLDIFF |
DO i=iMin,iMax |
|
./pkg/smooth/smooth_impldiff.F |
146 |
SMOOTH_IMPLDIFF |
gYNm1(i,j,1,bi,bj) = gXNm1(i,j,1,bi,bj)*bet(i,j,1) |
|
./pkg/smooth/smooth_impldiff.F |
151 |
SMOOTH_IMPLDIFF |
DO i=iMin,iMax |
|
./pkg/smooth/smooth_impldiff.F |
152 |
SMOOTH_IMPLDIFF |
gYnm1(i,j,k,bi,bj) = bet(i,j,k)* |
|
./pkg/smooth/smooth_impldiff.F |
153 |
SMOOTH_IMPLDIFF |
& (gXnm1(i,j,k,bi,bj) - a(i,j,k)*gYnm1(i,j,k-1,bi,bj)) |
|
./pkg/smooth/smooth_impldiff.F |
163 |
SMOOTH_IMPLDIFF |
DO i=iMin,iMax |
|
./pkg/smooth/smooth_impldiff.F |
164 |
SMOOTH_IMPLDIFF |
gYnm1(i,j,k,bi,bj)=gYnm1(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_impldiff.F |
165 |
SMOOTH_IMPLDIFF |
& -gam(i,j,k+1)*gYnm1(i,j,k+1,bi,bj) |
|
./pkg/smooth/smooth_impldiff.F |
172 |
SMOOTH_IMPLDIFF |
DO i=iMin,iMax |
|
./pkg/smooth/smooth_impldiff.F |
173 |
SMOOTH_IMPLDIFF |
gXnm1(i,j,k,bi,bj)=gYnm1(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_impldiff.F |
36 |
SMOOTH_IMPLDIFF |
INTEGER i,j,k |
|
./pkg/smooth/smooth_impldiff.F |
51 |
SMOOTH_IMPLDIFF |
DO i=iMin,iMax |
|
./pkg/smooth/smooth_impldiff.F |
52 |
SMOOTH_IMPLDIFF |
gYNm1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_impldiff.F |
59 |
SMOOTH_IMPLDIFF |
DO i=iMin,iMax |
|
./pkg/smooth/smooth_impldiff.F |
60 |
SMOOTH_IMPLDIFF |
a(i,j,1) = 0. _d 0 |
|
./pkg/smooth/smooth_impldiff.F |
65 |
SMOOTH_IMPLDIFF |
DO i=iMin,iMax |
|
./pkg/smooth/smooth_impldiff.F |
66 |
SMOOTH_IMPLDIFF |
a(i,j,k) = -deltaTX*recip_hFac(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/smooth/smooth_impldiff.F |
68 |
SMOOTH_IMPLDIFF |
& *KappaRX(i,j, k )*recip_drC( k ) |
|
./pkg/smooth/smooth_impldiff.F |
70 |
SMOOTH_IMPLDIFF |
IF (recip_hFac(i,j,k-1,bi,bj).EQ.0.) a(i,j,k)=0. |
|
./pkg/smooth/smooth_impldiff.F |
78 |
SMOOTH_IMPLDIFF |
DO i=iMin,iMax |
|
./pkg/smooth/smooth_impldiff.F |
79 |
SMOOTH_IMPLDIFF |
c(i,j,k) = -deltaTX*recip_hFac(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/smooth/smooth_impldiff.F |
81 |
SMOOTH_IMPLDIFF |
& *KappaRX(i,j,k+1)*recip_drC(k+1) |
|
./pkg/smooth/smooth_impldiff.F |
83 |
SMOOTH_IMPLDIFF |
IF (recip_hFac(i,j,k+1,bi,bj).EQ.0.) c(i,j,k)=0. |
|
./pkg/smooth/smooth_impldiff.F |
88 |
SMOOTH_IMPLDIFF |
DO i=iMin,iMax |
|
./pkg/smooth/smooth_impldiff.F |
89 |
SMOOTH_IMPLDIFF |
c(i,j,Nr) = 0. _d 0 |
|
./pkg/smooth/smooth_impldiff.F |
96 |
SMOOTH_IMPLDIFF |
DO i=iMin,iMax |
|
./pkg/smooth/smooth_impldiff.F |
97 |
SMOOTH_IMPLDIFF |
b(i,j,k) = 1. _d 0 - c(i,j,k) - a(i,j,k) |
|
./pkg/smooth/smooth_init2d.F |
23 |
SMOOTH_INIT2D |
integer i,j,k, bi, bj |
|
./pkg/smooth/smooth_init2d.F |
52 |
SMOOTH_INIT2D |
DO i=1-OLx,sNx+OLx |
|
./pkg/smooth/smooth_init2d.F |
53 |
SMOOTH_INIT2D |
smooth2D_Lx(i,j,bi,bj)=smooth2D_Lx0(smoothOpNb) |
|
./pkg/smooth/smooth_init2d.F |
54 |
SMOOTH_INIT2D |
smooth2D_Ly(i,j,bi,bj)=smooth2D_Ly0(smoothOpNb) |
|
./pkg/smooth/smooth_init2d.F |
64 |
SMOOTH_INIT2D |
DO i=1-OLx,sNx+OLx |
|
./pkg/smooth/smooth_init2d.F |
65 |
SMOOTH_INIT2D |
smooth2D_Kux(i,j,bi,bj)=smooth2D_Lx(i,j,bi,bj)* |
|
./pkg/smooth/smooth_init2d.F |
66 |
SMOOTH_INIT2D |
& smooth2D_Lx(i,j,bi,bj)/smooth2DtotTime/2 |
|
./pkg/smooth/smooth_init2d.F |
67 |
SMOOTH_INIT2D |
smooth2D_Kvy(i,j,bi,bj)=smooth2D_Ly(i,j,bi,bj)* |
|
./pkg/smooth/smooth_init2d.F |
68 |
SMOOTH_INIT2D |
& smooth2D_Ly(i,j,bi,bj)/smooth2DtotTime/2 |
|
./pkg/smooth/smooth_init3d.F |
119 |
SMOOTH_INIT3D |
DO i=1-OLx,sNx+OLx |
|
./pkg/smooth/smooth_init3d.F |
120 |
SMOOTH_INIT3D |
smooth3D_Lx(i,j,k,bi,bj)=smooth3D_Lx0(smoothOpNb) |
|
./pkg/smooth/smooth_init3d.F |
121 |
SMOOTH_INIT3D |
smooth3D_Ly(i,j,k,bi,bj)=smooth3D_Ly0(smoothOpNb) |
|
./pkg/smooth/smooth_init3d.F |
133 |
SMOOTH_INIT3D |
DO i=1-OLx,sNx+OLx |
|
./pkg/smooth/smooth_init3d.F |
134 |
SMOOTH_INIT3D |
smooth3D_Kuy(i,j,k,bi,bj)=0. |
|
./pkg/smooth/smooth_init3d.F |
135 |
SMOOTH_INIT3D |
smooth3D_Kvx(i,j,k,bi,bj)=0. |
|
./pkg/smooth/smooth_init3d.F |
136 |
SMOOTH_INIT3D |
smooth3D_Kwx(i,j,k,bi,bj)=0. |
|
./pkg/smooth/smooth_init3d.F |
137 |
SMOOTH_INIT3D |
smooth3D_Kwy(i,j,k,bi,bj)=0. |
|
./pkg/smooth/smooth_init3d.F |
138 |
SMOOTH_INIT3D |
smooth3D_Kwz(i,j,k,bi,bj)=0. |
|
./pkg/smooth/smooth_init3d.F |
139 |
SMOOTH_INIT3D |
smooth3D_Kux(i,j,k,bi,bj)=smooth3D_Lx(i,j,k,bi,bj)* |
|
./pkg/smooth/smooth_init3d.F |
140 |
SMOOTH_INIT3D |
& smooth3D_Lx(i,j,k,bi,bj)/smooth3DtotTime/2 |
|
./pkg/smooth/smooth_init3d.F |
141 |
SMOOTH_INIT3D |
smooth3D_Kvy(i,j,k,bi,bj)=smooth3D_Ly(i,j,k,bi,bj)* |
|
./pkg/smooth/smooth_init3d.F |
142 |
SMOOTH_INIT3D |
& smooth3D_Ly(i,j,k,bi,bj)/smooth3DtotTime/2 |
|
./pkg/smooth/smooth_init3d.F |
143 |
SMOOTH_INIT3D |
smooth3D_Kuz(i,j,k,bi,bj)=0. |
|
./pkg/smooth/smooth_init3d.F |
144 |
SMOOTH_INIT3D |
smooth3D_Kvz(i,j,k,bi,bj)=0. |
|
./pkg/smooth/smooth_init3d.F |
29 |
SMOOTH_INIT3D |
integer i,j,k, bi, bj, imin, imax, jmin, jmax |
|
./pkg/smooth/smooth_init3d.F |
58 |
SMOOTH_INIT3D |
DO i=1-OLx,sNx+OLx |
|
./pkg/smooth/smooth_init3d.F |
59 |
SMOOTH_INIT3D |
smooth3D_Lz(i,j,k,bi,bj)=smooth3D_Lz0(smoothOpNb) |
|
./pkg/smooth/smooth_init3d.F |
71 |
SMOOTH_INIT3D |
DO i=1-OLx,sNx+OLx |
|
./pkg/smooth/smooth_init3d.F |
72 |
SMOOTH_INIT3D |
smooth3D_kappaR(i,j,k,bi,bj)=smooth3D_Lz(i,j,k,bi,bj)* |
|
./pkg/smooth/smooth_init3d.F |
73 |
SMOOTH_INIT3D |
& smooth3D_Lz(i,j,k,bi,bj)/smooth3DtotTime/2 |
|
./pkg/smooth/smooth_init3d.F |
86 |
SMOOTH_INIT3D |
DO i=1-OLx,sNx+OLx |
|
./pkg/smooth/smooth_init3d.F |
90 |
SMOOTH_INIT3D |
if (smooth3D_kappaR(i,j,k,bi,bj).GT.smooth3D_KzMax) then |
|
./pkg/smooth/smooth_init3d.F |
91 |
SMOOTH_INIT3D |
smooth3D_kappaR(i,j,k,bi,bj)=smooth3D_KzMax |
|
./pkg/smooth/smooth_init_fixed.F |
24 |
SMOOTH_INIT_FIXED |
integer i,j,k, bi, bj, imin, imax, jmin, jmax |
|
./pkg/smooth/smooth_init_fixed.F |
37 |
SMOOTH_INIT_FIXED |
DO i=1-OLx,sNx+OLx |
|
./pkg/smooth/smooth_init_fixed.F |
38 |
SMOOTH_INIT_FIXED |
smooth_recip_hFacC(i,j,k,bi,bj)=_recip_hFacC(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_init_fixed.F |
39 |
SMOOTH_INIT_FIXED |
smooth_hFacW(i,j,k,bi,bj)=_hFacW(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_init_fixed.F |
40 |
SMOOTH_INIT_FIXED |
smooth_hFacS(i,j,k,bi,bj)=_hFacS(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
101 |
SMOOTH_RHS |
maskUp(i,j,bi,bj) = 0. |
|
./pkg/smooth/smooth_rhs.F |
103 |
SMOOTH_RHS |
maskUp(i,j,bi,bj) = |
|
./pkg/smooth/smooth_rhs.F |
104 |
SMOOTH_RHS |
& maskC(i,j,k-1,bi,bj)*maskC(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
112 |
SMOOTH_RHS |
DO i=iMin,iMax |
|
./pkg/smooth/smooth_rhs.F |
113 |
SMOOTH_RHS |
df(i,j,bi,bj) = df(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
114 |
SMOOTH_RHS |
& -xA(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
115 |
SMOOTH_RHS |
& *smooth3D_Kux(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
116 |
SMOOTH_RHS |
& *recip_dxC(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
117 |
SMOOTH_RHS |
& *(fld_in(i,j,k,bi,bj)-fld_in(i-1,j,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
122 |
SMOOTH_RHS |
DO i=iMin,iMax |
|
./pkg/smooth/smooth_rhs.F |
125 |
SMOOTH_RHS |
& ( maskC(i-1,j,k,bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
126 |
SMOOTH_RHS |
& (fld_in(i-1,j, MAX(k-1,1) ,bi,bj)-fld_in(i-1,j,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
127 |
SMOOTH_RHS |
& +maskC( i ,j,k,bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
128 |
SMOOTH_RHS |
& (fld_in( i ,j, MAX(k-1,1) ,bi,bj)-fld_in( i ,j,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
131 |
SMOOTH_RHS |
& ( maskC(i-1,j,MIN(k+1,Nr),bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
132 |
SMOOTH_RHS |
& (fld_in(i-1,j,k,bi,bj)-fld_in(i-1,j,MIN(k+1,Nr),bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
133 |
SMOOTH_RHS |
& +maskC( i ,j,MIN(k+1,Nr),bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
134 |
SMOOTH_RHS |
& (fld_in( i ,j,k,bi,bj)-fld_in( i ,j,MIN(k+1,Nr),bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
136 |
SMOOTH_RHS |
df(i,j,bi,bj) = df(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
137 |
SMOOTH_RHS |
& - xA(i,j,bi,bj)*smooth3D_Kuz(i,j,k,bi,bj)*dTdz(bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
142 |
SMOOTH_RHS |
DO i=iMin,iMax |
|
./pkg/smooth/smooth_rhs.F |
144 |
SMOOTH_RHS |
& +0.5*(maskS(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
145 |
SMOOTH_RHS |
& *recip_dyC(i,j,bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
146 |
SMOOTH_RHS |
& (fld_in(i,j,k,bi,bj)-fld_in(i,j-1,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
147 |
SMOOTH_RHS |
& +maskS(i,j+1,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
148 |
SMOOTH_RHS |
& *recip_dyC(i,j+1,bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
149 |
SMOOTH_RHS |
& (fld_in(i,j+1,k,bi,bj)-fld_in(i,j,k,bi,bj))) |
|
./pkg/smooth/smooth_rhs.F |
150 |
SMOOTH_RHS |
& +0.5*(maskS(i-1,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
151 |
SMOOTH_RHS |
& *recip_dyC(i,j,bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
152 |
SMOOTH_RHS |
& (fld_in(i-1,j,k,bi,bj)-fld_in(i-1,j-1,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
153 |
SMOOTH_RHS |
& +maskS(i-1,j+1,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
154 |
SMOOTH_RHS |
& *recip_dyC(i,j+1,bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
155 |
SMOOTH_RHS |
& (fld_in(i-1,j+1,k,bi,bj)-fld_in(i-1,j,k,bi,bj))) |
|
./pkg/smooth/smooth_rhs.F |
157 |
SMOOTH_RHS |
df(i,j,bi,bj) = df(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
158 |
SMOOTH_RHS |
& - xA(i,j,bi,bj)*smooth3D_Kuy(i,j,k,bi,bj)*dTdy(bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
166 |
SMOOTH_RHS |
DO i=iMin,iMax |
|
./pkg/smooth/smooth_rhs.F |
167 |
SMOOTH_RHS |
fZon(i,j,k,bi,bj) = fZon(i,j,k,bi,bj) + df(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
172 |
SMOOTH_RHS |
DO i=iMin,iMax |
|
./pkg/smooth/smooth_rhs.F |
173 |
SMOOTH_RHS |
df(i,j,bi,bj) = 0. |
|
./pkg/smooth/smooth_rhs.F |
180 |
SMOOTH_RHS |
DO i=iMin,iMax |
|
./pkg/smooth/smooth_rhs.F |
181 |
SMOOTH_RHS |
df(i,j,bi,bj) = df(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
182 |
SMOOTH_RHS |
& -yA(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
183 |
SMOOTH_RHS |
& *smooth3D_Kvy(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
184 |
SMOOTH_RHS |
& *recip_dyC(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
185 |
SMOOTH_RHS |
& *(fld_in(i,j,k,bi,bj)-fld_in(i,j-1,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
190 |
SMOOTH_RHS |
DO i=iMin,iMax |
|
./pkg/smooth/smooth_rhs.F |
193 |
SMOOTH_RHS |
& ( maskC(i,j-1,k,bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
194 |
SMOOTH_RHS |
& (fld_in(i,j-1,MAX(k-1,1),bi,bj)-fld_in(i,j-1,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
195 |
SMOOTH_RHS |
& +maskC(i, j ,k,bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
196 |
SMOOTH_RHS |
& (fld_in(i, j ,MAX(k-1,1),bi,bj)-fld_in(i, j ,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
199 |
SMOOTH_RHS |
& ( maskC(i,j-1,MIN(k+1,Nr),bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
200 |
SMOOTH_RHS |
& (fld_in(i,j-1,k,bi,bj)-fld_in(i,j-1,MIN(k+1,Nr),bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
201 |
SMOOTH_RHS |
& +maskC(i, j ,MIN(k+1,Nr),bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
202 |
SMOOTH_RHS |
& (fld_in(i, j ,k,bi,bj)-fld_in(i, j ,MIN(k+1,Nr),bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
204 |
SMOOTH_RHS |
df(i,j,bi,bj) = df(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
205 |
SMOOTH_RHS |
& - yA(i,j,bi,bj)*smooth3D_Kvz(i,j,k,bi,bj)*dTdz(bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
210 |
SMOOTH_RHS |
DO i=iMin,iMax |
|
./pkg/smooth/smooth_rhs.F |
212 |
SMOOTH_RHS |
& +0.5*(maskW(i+1,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
213 |
SMOOTH_RHS |
& *recip_dxC(i+1,j,bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
214 |
SMOOTH_RHS |
& (fld_in(i+1,j,k,bi,bj)-fld_in(i,j,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
215 |
SMOOTH_RHS |
& +maskW(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
216 |
SMOOTH_RHS |
& *recip_dxC(i,j,bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
217 |
SMOOTH_RHS |
& (fld_in(i,j,k,bi,bj)-fld_in(i-1,j,k,bi,bj))) |
|
./pkg/smooth/smooth_rhs.F |
218 |
SMOOTH_RHS |
& +0.5*(maskW(i+1,j-1,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
219 |
SMOOTH_RHS |
& *recip_dxC(i+1,j,bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
220 |
SMOOTH_RHS |
& (fld_in(i+1,j-1,k,bi,bj)-fld_in(i,j-1,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
221 |
SMOOTH_RHS |
& +maskW(i,j-1,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
222 |
SMOOTH_RHS |
& *recip_dxC(i,j,bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
223 |
SMOOTH_RHS |
& (fld_in(i,j-1,k,bi,bj)-fld_in(i-1,j-1,k,bi,bj))) |
|
./pkg/smooth/smooth_rhs.F |
225 |
SMOOTH_RHS |
df(i,j,bi,bj) = df(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
226 |
SMOOTH_RHS |
& - yA(i,j,bi,bj)*smooth3D_Kvx(i,j,k,bi,bj)*dTdx(bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
233 |
SMOOTH_RHS |
DO i=iMin,iMax |
|
./pkg/smooth/smooth_rhs.F |
234 |
SMOOTH_RHS |
fMer(i,j,k,bi,bj) = fMer(i,j,k,bi,bj) + df(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
239 |
SMOOTH_RHS |
DO i=iMin,iMax |
|
./pkg/smooth/smooth_rhs.F |
240 |
SMOOTH_RHS |
df(i,j,bi,bj) = 0. |
|
./pkg/smooth/smooth_rhs.F |
250 |
SMOOTH_RHS |
DO i=iMin,iMax |
|
./pkg/smooth/smooth_rhs.F |
251 |
SMOOTH_RHS |
df(i,j,bi,bj) = |
|
./pkg/smooth/smooth_rhs.F |
252 |
SMOOTH_RHS |
& -_rA(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
253 |
SMOOTH_RHS |
& *smooth3D_kappaR(i,j,k,bi,bj)*recip_drC(k) |
|
./pkg/smooth/smooth_rhs.F |
254 |
SMOOTH_RHS |
& *(fld_in(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
255 |
SMOOTH_RHS |
& -fld_in(i,j,k-1,bi,bj))*rkSign |
|
./pkg/smooth/smooth_rhs.F |
266 |
SMOOTH_RHS |
DO i=iMin,iMax |
|
./pkg/smooth/smooth_rhs.F |
268 |
SMOOTH_RHS |
& +0.5*(maskW(i+1,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
269 |
SMOOTH_RHS |
& *recip_dxC(i+1,j,bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
270 |
SMOOTH_RHS |
& (fld_in(i+1,j,k,bi,bj)-fld_in(i,j,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
271 |
SMOOTH_RHS |
& +maskW(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
272 |
SMOOTH_RHS |
& *recip_dxC(i,j,bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
273 |
SMOOTH_RHS |
& (fld_in(i,j,k,bi,bj)-fld_in(i-1,j,k,bi,bj))) |
|
./pkg/smooth/smooth_rhs.F |
274 |
SMOOTH_RHS |
& +0.5*(maskW(i+1,j,k-1,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
275 |
SMOOTH_RHS |
& *recip_dxC(i+1,j,bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
276 |
SMOOTH_RHS |
& (fld_in(i+1,j,k-1,bi,bj)-fld_in(i,j,k-1,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
277 |
SMOOTH_RHS |
& +maskW(i,j,k-1,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
278 |
SMOOTH_RHS |
& *recip_dxC(i,j,bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
279 |
SMOOTH_RHS |
& (fld_in(i,j,k-1,bi,bj)-fld_in(i-1,j,k-1,bi,bj))) |
|
./pkg/smooth/smooth_rhs.F |
283 |
SMOOTH_RHS |
& +0.5*(maskS(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
284 |
SMOOTH_RHS |
& *recip_dyC(i,j,bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
285 |
SMOOTH_RHS |
& (fld_in(i,j,k,bi,bj)-fld_in(i,j-1,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
286 |
SMOOTH_RHS |
& +maskS(i,j+1,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
287 |
SMOOTH_RHS |
& *recip_dyC(i,j+1,bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
288 |
SMOOTH_RHS |
& (fld_in(i,j+1,k,bi,bj)-fld_in(i,j,k,bi,bj))) |
|
./pkg/smooth/smooth_rhs.F |
289 |
SMOOTH_RHS |
& +0.5*(maskS(i,j,k-1,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
290 |
SMOOTH_RHS |
& *recip_dyC(i,j,bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
291 |
SMOOTH_RHS |
& (fld_in(i,j,k-1,bi,bj)-fld_in(i,j-1,k-1,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
292 |
SMOOTH_RHS |
& +maskS(i,j+1,k-1,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
293 |
SMOOTH_RHS |
& *recip_dyC(i,j+1,bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
294 |
SMOOTH_RHS |
& (fld_in(i,j+1,k-1,bi,bj)-fld_in(i,j,k-1,bi,bj))) |
|
./pkg/smooth/smooth_rhs.F |
297 |
SMOOTH_RHS |
df(i,j,bi,bj) = df(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
298 |
SMOOTH_RHS |
& - rA(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
299 |
SMOOTH_RHS |
& *( smooth3D_Kwx(i,j,k,bi,bj)*dTdx(bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
300 |
SMOOTH_RHS |
& +smooth3D_Kwy(i,j,k,bi,bj)*dTdy(bi,bj) ) |
|
./pkg/smooth/smooth_rhs.F |
311 |
SMOOTH_RHS |
DO i=iMin,iMax |
|
./pkg/smooth/smooth_rhs.F |
312 |
SMOOTH_RHS |
fVerT(i,j,k-1,bi,bj) = fVerT(i,j,k-1,bi,bj) + |
|
./pkg/smooth/smooth_rhs.F |
313 |
SMOOTH_RHS |
& df(i,j,bi,bj)*maskUp(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
319 |
SMOOTH_RHS |
DO i=iMin,iMax |
|
./pkg/smooth/smooth_rhs.F |
320 |
SMOOTH_RHS |
df(i,j,bi,bj) = 0. |
|
./pkg/smooth/smooth_rhs.F |
338 |
SMOOTH_RHS |
DO i=iMin,iMax |
|
./pkg/smooth/smooth_rhs.F |
339 |
SMOOTH_RHS |
gt_in(i,j,k,bi,bj)=gt_in(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
340 |
SMOOTH_RHS |
& -smooth_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/smooth/smooth_rhs.F |
341 |
SMOOTH_RHS |
& *recip_rA(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
342 |
SMOOTH_RHS |
& *( (fZon(i+1,j,k,bi,bj)-fZon(i,j,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
343 |
SMOOTH_RHS |
& +(fMer(i,j+1,k,bi,bj)-fMer(i,j,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
344 |
SMOOTH_RHS |
& +(fVerT(i,j,k,bi,bj)-fVerT(i,j,k-1,bi,bj))*rkSign |
|
./pkg/smooth/smooth_rhs.F |
350 |
SMOOTH_RHS |
DO i=iMin,iMax |
|
./pkg/smooth/smooth_rhs.F |
351 |
SMOOTH_RHS |
gt_in(i,j,k,bi,bj)=gt_in(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
352 |
SMOOTH_RHS |
& -smooth_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/smooth/smooth_rhs.F |
353 |
SMOOTH_RHS |
& *recip_rA(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
354 |
SMOOTH_RHS |
& *( (fZon(i+1,j,k,bi,bj)-fZon(i,j,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
355 |
SMOOTH_RHS |
& +(fMer(i,j+1,k,bi,bj)-fMer(i,j,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
356 |
SMOOTH_RHS |
& +(fVerT(i,j,k,bi,bj))*rkSign |
|
./pkg/smooth/smooth_rhs.F |
61 |
SMOOTH_RHS |
INTEGER i,j,k |
|
./pkg/smooth/smooth_rhs.F |
76 |
SMOOTH_RHS |
DO i=1-OLx,sNx+OLx |
|
./pkg/smooth/smooth_rhs.F |
77 |
SMOOTH_RHS |
fZon(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_rhs.F |
78 |
SMOOTH_RHS |
fMer(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_rhs.F |
79 |
SMOOTH_RHS |
fVerT(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_rhs.F |
80 |
SMOOTH_RHS |
gt_in(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_rhs.F |
94 |
SMOOTH_RHS |
DO i=1-OLx,sNx+OLx |
|
./pkg/smooth/smooth_rhs.F |
95 |
SMOOTH_RHS |
df(i,j,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_rhs.F |
96 |
SMOOTH_RHS |
xA(i,j,bi,bj) = _dyG(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
97 |
SMOOTH_RHS |
& *drF(k)*smooth_hFacW(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
98 |
SMOOTH_RHS |
yA(i,j,bi,bj) = _dxG(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
99 |
SMOOTH_RHS |
& *drF(k)*smooth_hFacS(i,j,k,bi,bj) |
|
./pkg/sphere/exch_all_2d_rl.F |
54 |
EXCH_ALLGATHER_2D_RL |
integer i, j |
|
./pkg/sphere/exch_all_2d_rl.F |
86 |
EXCH_ALLGATHER_2D_RL |
do i = 1, sNx |
|
./pkg/sphere/exch_all_2d_rl.F |
87 |
EXCH_ALLGATHER_2D_RL |
full(i,j,bi,bj,ipx,ipy) = recvbuf(i,j,bi,bj,iproc) |
|
./pkg/sphere/sphere.F |
102 |
ADFSC4DAT |
integer i |
|
./pkg/sphere/sphere.F |
107 |
ADFSC4DAT |
do i=1,n |
|
./pkg/sphere/sphere.F |
108 |
ADFSC4DAT |
adfsc(i) = 0.0 |
|
./pkg/sphere/sphere.F |
112 |
ADFSC4DAT |
do i=1,n |
|
./pkg/sphere/sphere.F |
113 |
ADFSC4DAT |
adfsc(i) = adfsc(i)/float(n) |
|
./pkg/sphere/sphere.F |
163 |
SHC2GRID |
integer i |
|
./pkg/sphere/sphere.F |
178 |
SHC2GRID |
do i=1,nlon |
|
./pkg/sphere/sphere.F |
179 |
SHC2GRID |
hs(i) = 0.0 |
|
./pkg/sphere/sphere.F |
180 |
SHC2GRID |
hn(i) = 0.0 |
|
./pkg/sphere/sphere.F |
185 |
SHC2GRID |
do i=1,nlon |
|
./pkg/sphere/sphere.F |
186 |
SHC2GRID |
grid(i,lats) = hs(i) |
|
./pkg/sphere/sphere.F |
187 |
SHC2GRID |
grid(i,latn) = hn(i) |
|
./pkg/sphere/sphere.F |
217 |
SHC4GRID |
integer i |
|
./pkg/sphere/sphere.F |
237 |
SHC4GRID |
do i = 1,nlon |
|
./pkg/sphere/sphere.F |
238 |
SHC4GRID |
hs(i) = grid(i,lats) |
|
./pkg/sphere/sphere.F |
239 |
SHC4GRID |
hn(i) = grid(i,latn) |
|
./pkg/sphere/sphere.F |
411 |
SHC4ZONE |
do i = 1,(1+lmax)*(1+lmax) |
|
./pkg/sphere/sphere.F |
412 |
SHC4ZONE |
shc(i) = 0.0 |
|
./pkg/sphere/sphere.F |
422 |
SHC4ZONE |
do i = 1,lmax+lmax+1 |
|
./pkg/sphere/sphere.F |
423 |
SHC4ZONE |
hs(i) = hs(i)*scale |
|
./pkg/sphere/sphere.F |
424 |
SHC4ZONE |
hn(i) = hn(i)*scale |
|
./pkg/sphere/sphere.F |
475 |
FSC2DAT |
integer i |
|
./pkg/sphere/sphere.F |
477 |
FSC2DAT |
do i = 2,n-1,2 |
|
./pkg/sphere/sphere.F |
478 |
FSC2DAT |
fsc(i ) = fsc(i )*0.5 |
|
./pkg/sphere/sphere.F |
479 |
FSC2DAT |
fsc(i+1) = -fsc(i+1)*0.5 ! change sign of sine coeffs. |
|
./pkg/sphere/sphere.F |
485 |
FSC2DAT |
do i = 1,n |
|
./pkg/sphere/sphere.F |
486 |
FSC2DAT |
fsc( i ) = 0.0 |
|
./pkg/sphere/sphere.F |
63 |
FSC4DAT |
integer i |
|
./pkg/sphere/sphere.F |
68 |
FSC4DAT |
do i=1,n |
|
./pkg/sphere/sphere.F |
69 |
FSC4DAT |
fsc(i) = 0.0 |
|
./pkg/sphere/sphere.F |
79 |
FSC4DAT |
do i = 2,n-1,2 |
|
./pkg/sphere/sphere.F |
80 |
FSC4DAT |
fsc( i ) = fsc( i )*scale |
|
./pkg/sphere/sphere.F |
82 |
FSC4DAT |
do i = 3,n,2 |
|
./pkg/sphere/sphere.F |
83 |
FSC4DAT |
fsc( i ) = -fsc( i )*scale ! change sign of sine coeffs. |
|
./model/src/ini_forcing.F |
121 |
INI_FORCING |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_forcing.F |
122 |
INI_FORCING |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) + Qsw(i,j,bi,bj) |
|
./model/src/ini_forcing.F |
182 |
INI_FORCING |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_forcing.F |
183 |
INI_FORCING |
phi0surf(i,j,bi,bj) = pLoad(i,j,bi,bj) |
|
./model/src/ini_forcing.F |
39 |
INI_FORCING |
INTEGER i, j |
|
./model/src/ini_forcing.F |
48 |
INI_FORCING |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_forcing.F |
50 |
INI_FORCING |
& ABS(yC(i,j,bi,bj)).LE.latBandClimRelax ) THEN |
|
./model/src/ini_forcing.F |
51 |
INI_FORCING |
lambdaThetaClimRelax(i,j,bi,bj) = 1. _d 0/tauThetaClimRelax |
|
./model/src/ini_forcing.F |
53 |
INI_FORCING |
lambdaThetaClimRelax(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_forcing.F |
56 |
INI_FORCING |
& ABS(yC(i,j,bi,bj)).LE.latBandClimRelax ) THEN |
|
./model/src/ini_forcing.F |
57 |
INI_FORCING |
lambdaSaltClimRelax(i,j,bi,bj) = 1. _d 0/tauSaltClimRelax |
|
./model/src/ini_forcing.F |
59 |
INI_FORCING |
lambdaSaltClimRelax(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_forcing.F |
88 |
INI_FORCING |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_forcing.F |
89 |
INI_FORCING |
EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj)*rhoConstFresh |
|
./pkg/streamice/adstreamice_cg_solve.F |
100 |
ADSTREAMICE_CG_SOLVE |
& cg_Uin (i,j,bi,bj) |
|
./pkg/streamice/adstreamice_cg_solve.F |
101 |
ADSTREAMICE_CG_SOLVE |
Vtemp (i,j,bi,bj) = |
|
./pkg/streamice/adstreamice_cg_solve.F |
102 |
ADSTREAMICE_CG_SOLVE |
& cg_Vin (i,j,bi,bj) |
|
./pkg/streamice/adstreamice_cg_solve.F |
103 |
ADSTREAMICE_CG_SOLVE |
UtempSt (i,j,bi,bj) = |
|
./pkg/streamice/adstreamice_cg_solve.F |
104 |
ADSTREAMICE_CG_SOLVE |
& U_state (i,j,bi,bj) |
|
./pkg/streamice/adstreamice_cg_solve.F |
105 |
ADSTREAMICE_CG_SOLVE |
VtempSt (i,j,bi,bj) = |
|
./pkg/streamice/adstreamice_cg_solve.F |
106 |
ADSTREAMICE_CG_SOLVE |
& V_state (i,j,bi,bj) |
|
./pkg/streamice/adstreamice_cg_solve.F |
161 |
ADSTREAMICE_CG_SOLVE |
DO i=1,sNx |
|
./pkg/streamice/adstreamice_cg_solve.F |
165 |
ADSTREAMICE_CG_SOLVE |
if (STREAMICE_umask(i,j,bi,bj).eq.1) then |
|
./pkg/streamice/adstreamice_cg_solve.F |
166 |
ADSTREAMICE_CG_SOLVE |
if (STREAMICE_umask(i+colx,j+coly,bi,bj).eq.1) then |
|
./pkg/streamice/adstreamice_cg_solve.F |
167 |
ADSTREAMICE_CG_SOLVE |
adA_uu(i,j,bi,bj,colx,coly) = |
|
./pkg/streamice/adstreamice_cg_solve.F |
168 |
ADSTREAMICE_CG_SOLVE |
& adA_uu(i,j,bi,bj,colx,coly) - |
|
./pkg/streamice/adstreamice_cg_solve.F |
169 |
ADSTREAMICE_CG_SOLVE |
& cg_Uin(i,j,bi,bj) * |
|
./pkg/streamice/adstreamice_cg_solve.F |
170 |
ADSTREAMICE_CG_SOLVE |
& U_state(i+colx,j+coly,bi,bj) |
|
./pkg/streamice/adstreamice_cg_solve.F |
173 |
ADSTREAMICE_CG_SOLVE |
if (STREAMICE_vmask(i+colx,j+coly,bi,bj).eq.1) then |
|
./pkg/streamice/adstreamice_cg_solve.F |
174 |
ADSTREAMICE_CG_SOLVE |
adA_uv(i,j,bi,bj,colx,coly) = |
|
./pkg/streamice/adstreamice_cg_solve.F |
175 |
ADSTREAMICE_CG_SOLVE |
& adA_uv(i,j,bi,bj,colx,coly) - |
|
./pkg/streamice/adstreamice_cg_solve.F |
176 |
ADSTREAMICE_CG_SOLVE |
& cg_Uin(i,j,bi,bj) * |
|
./pkg/streamice/adstreamice_cg_solve.F |
177 |
ADSTREAMICE_CG_SOLVE |
& V_state(i+colx,j+coly,bi,bj) |
|
./pkg/streamice/adstreamice_cg_solve.F |
181 |
ADSTREAMICE_CG_SOLVE |
if (STREAMICE_vmask(i,j,bi,bj).eq.1) then |
|
./pkg/streamice/adstreamice_cg_solve.F |
182 |
ADSTREAMICE_CG_SOLVE |
if (STREAMICE_umask(i+colx,j+coly,bi,bj).eq.1) then |
|
./pkg/streamice/adstreamice_cg_solve.F |
183 |
ADSTREAMICE_CG_SOLVE |
adA_vu(i,j,bi,bj,colx,coly) = |
|
./pkg/streamice/adstreamice_cg_solve.F |
184 |
ADSTREAMICE_CG_SOLVE |
& adA_vu(i,j,bi,bj,colx,coly) - |
|
./pkg/streamice/adstreamice_cg_solve.F |
185 |
ADSTREAMICE_CG_SOLVE |
& cg_Vin(i,j,bi,bj) * |
|
./pkg/streamice/adstreamice_cg_solve.F |
186 |
ADSTREAMICE_CG_SOLVE |
& U_state(i+colx,j+coly,bi,bj) |
|
./pkg/streamice/adstreamice_cg_solve.F |
188 |
ADSTREAMICE_CG_SOLVE |
if (STREAMICE_vmask(i+colx,j+coly,bi,bj).eq.1) then |
|
./pkg/streamice/adstreamice_cg_solve.F |
189 |
ADSTREAMICE_CG_SOLVE |
adA_vv(i,j,bi,bj,colx,coly) = |
|
./pkg/streamice/adstreamice_cg_solve.F |
190 |
ADSTREAMICE_CG_SOLVE |
& adA_vv(i,j,bi,bj,colx,coly) - |
|
./pkg/streamice/adstreamice_cg_solve.F |
191 |
ADSTREAMICE_CG_SOLVE |
& cg_Vin(i,j,bi,bj) * |
|
./pkg/streamice/adstreamice_cg_solve.F |
192 |
ADSTREAMICE_CG_SOLVE |
& V_state(i+colx,j+coly,bi,bj) |
|
./pkg/streamice/adstreamice_cg_solve.F |
206 |
ADSTREAMICE_CG_SOLVE |
DO i=1-OLx,sNx+OLx |
|
./pkg/streamice/adstreamice_cg_solve.F |
207 |
ADSTREAMICE_CG_SOLVE |
if (i.lt.1.or.i.gt.sNx.or. |
|
./pkg/streamice/adstreamice_cg_solve.F |
209 |
ADSTREAMICE_CG_SOLVE |
cg_Uin (i,j,bi,bj) = 0.0 |
|
./pkg/streamice/adstreamice_cg_solve.F |
210 |
ADSTREAMICE_CG_SOLVE |
cg_Vin (i,j,bi,bj) = 0.0 |
|
./pkg/streamice/adstreamice_cg_solve.F |
214 |
ADSTREAMICE_CG_SOLVE |
ada_uu(i,j,bi,bj,colx,coly)=0.0 |
|
./pkg/streamice/adstreamice_cg_solve.F |
215 |
ADSTREAMICE_CG_SOLVE |
ada_uv(i,j,bi,bj,colx,coly)=0.0 |
|
./pkg/streamice/adstreamice_cg_solve.F |
216 |
ADSTREAMICE_CG_SOLVE |
ada_vu(i,j,bi,bj,colx,coly)=0.0 |
|
./pkg/streamice/adstreamice_cg_solve.F |
217 |
ADSTREAMICE_CG_SOLVE |
ada_vv(i,j,bi,bj,colx,coly)=0.0 |
|
./pkg/streamice/adstreamice_cg_solve.F |
222 |
ADSTREAMICE_CG_SOLVE |
cg_Uin (i,j,bi,bj) = |
|
./pkg/streamice/adstreamice_cg_solve.F |
223 |
ADSTREAMICE_CG_SOLVE |
& cg_Uin (i,j,bi,bj) + |
|
./pkg/streamice/adstreamice_cg_solve.F |
224 |
ADSTREAMICE_CG_SOLVE |
& Utemp (i,j,bi,bj) |
|
./pkg/streamice/adstreamice_cg_solve.F |
225 |
ADSTREAMICE_CG_SOLVE |
cg_Vin (i,j,bi,bj) = |
|
./pkg/streamice/adstreamice_cg_solve.F |
226 |
ADSTREAMICE_CG_SOLVE |
& cg_Vin (i,j,bi,bj) + |
|
./pkg/streamice/adstreamice_cg_solve.F |
227 |
ADSTREAMICE_CG_SOLVE |
& Vtemp (i,j,bi,bj) |
|
./pkg/streamice/adstreamice_cg_solve.F |
228 |
ADSTREAMICE_CG_SOLVE |
cg_bu (i,j,bi,bj) = 0. |
|
./pkg/streamice/adstreamice_cg_solve.F |
229 |
ADSTREAMICE_CG_SOLVE |
cg_bv (i,j,bi,bj) = 0. |
|
./pkg/streamice/adstreamice_cg_solve.F |
230 |
ADSTREAMICE_CG_SOLVE |
U_state (i,j,bi,bj) = |
|
./pkg/streamice/adstreamice_cg_solve.F |
231 |
ADSTREAMICE_CG_SOLVE |
& UtempSt (i,j,bi,bj) |
|
./pkg/streamice/adstreamice_cg_solve.F |
232 |
ADSTREAMICE_CG_SOLVE |
V_state (i,j,bi,bj) = |
|
./pkg/streamice/adstreamice_cg_solve.F |
233 |
ADSTREAMICE_CG_SOLVE |
& VtempSt (i,j,bi,bj) |
|
./pkg/streamice/adstreamice_cg_solve.F |
69 |
ADSTREAMICE_CG_SOLVE |
INTEGER i, j, bi, bj, cg_halo, conv_flag, tmpiter |
|
./pkg/streamice/adstreamice_cg_solve.F |
98 |
ADSTREAMICE_CG_SOLVE |
DO i=1-OLx,sNx+OLx |
|
./pkg/streamice/adstreamice_cg_solve.F |
99 |
ADSTREAMICE_CG_SOLVE |
Utemp (i,j,bi,bj) = |
|
./pkg/streamice/adstreamice_invert_surf_forthick.F |
100 |
ADSTRMICE_H_INV |
hf = -1.0 * i_r * R (i,j,bi,bj) |
|
./pkg/streamice/adstreamice_invert_surf_forthick.F |
104 |
ADSTRMICE_H_INV |
& H (i,j,bi,bj)-hf, |
|
./pkg/streamice/adstreamice_invert_surf_forthick.F |
112 |
ADSTRMICE_H_INV |
r_low_si_ad (i,j,bi,bj) = |
|
./pkg/streamice/adstreamice_invert_surf_forthick.F |
113 |
ADSTRMICE_H_INV |
& r_low_si_ad (i,j,bi,bj) - |
|
./pkg/streamice/adstreamice_invert_surf_forthick.F |
115 |
ADSTRMICE_H_INV |
& h_streamice_ad(i,j,bi,bj) |
|
./pkg/streamice/adstreamice_invert_surf_forthick.F |
117 |
ADSTRMICE_H_INV |
rd (i,j,bi,bj) = |
|
./pkg/streamice/adstreamice_invert_surf_forthick.F |
118 |
ADSTRMICE_H_INV |
& rd (i,j,bi,bj) - |
|
./pkg/streamice/adstreamice_invert_surf_forthick.F |
120 |
ADSTRMICE_H_INV |
& hd(i,j,bi,bj) |
|
./pkg/streamice/adstreamice_invert_surf_forthick.F |
36 |
ADSTRMICE_H_INV |
INTEGER ITER, i, j, bi, bj |
|
./pkg/streamice/adstreamice_invert_surf_forthick.F |
94 |
ADSTRMICE_H_INV |
do i = 1,sNx |
|
./pkg/streamice/adstreamice_invert_surf_forthick.F |
98 |
ADSTRMICE_H_INV |
hf = -1.0 * i_r * R_low_si (i,j,bi,bj) |
|
./model/src/ini_global_domain.F |
51 |
INI_GLOBAL_DOMAIN |
INTEGER i, j, nCorners |
|
./model/src/ini_global_domain.F |
82 |
INI_GLOBAL_DOMAIN |
DO i=1,sNx |
|
./model/src/ini_global_domain.F |
84 |
INI_GLOBAL_DOMAIN |
& + rA(i,j,bi,bj)*maskInC(i,j,bi,bj) |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
100 |
STREAMICE_ADV_FLUX_FL_X |
& H0_valid(i,j,bi,bj)=.true. |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
102 |
STREAMICE_ADV_FLUX_FL_X |
IF (((Gi.eq.1).and.(STREAMICE_hmask(i-1,j,bi,bj).eq.3.0)) |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
106 |
STREAMICE_ADV_FLUX_FL_X |
XFLUX (i,j,bi,bj) = TRAC(i-1,j,bi,bj) * uface |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
108 |
STREAMICE_ADV_FLUX_FL_X |
ELSEIF (H0_valid(i,j,bi,bj)) THEN |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
130 |
STREAMICE_ADV_FLUX_FL_X |
XFLUX (i,j,bi,bj) = uface * |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
134 |
STREAMICE_ADV_FLUX_FL_X |
XFLUX (i,j,bi,bj) = uface * |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
141 |
STREAMICE_ADV_FLUX_FL_X |
XFLUX (i,j,bi,bj) = uface * stencil(0) |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
148 |
STREAMICE_ADV_FLUX_FL_X |
stencil (k) = TRAC(i-k,j,bi,bj) |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
150 |
STREAMICE_ADV_FLUX_FL_X |
IF ((STREAMICE_hmask(i-1,j,bi,bj).eq.1.0) .and. |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
151 |
STREAMICE_ADV_FLUX_FL_X |
& (STREAMICE_hmask(i+1,j,bi,bj).eq.1.0)) |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
152 |
STREAMICE_ADV_FLUX_FL_X |
& H0_valid(i,j,bi,bj)=.true. |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
154 |
STREAMICE_ADV_FLUX_FL_X |
IF (((Gi.eq.Nx).and.(STREAMICE_hmask(i+1,j,bi,bj).eq.3.0)) |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
158 |
STREAMICE_ADV_FLUX_FL_X |
XFLUX (i,j,bi,bj) = TRAC(i+1,j,bi,bj) * uface |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
160 |
STREAMICE_ADV_FLUX_FL_X |
ELSEIF (H0_valid(i,j,bi,bj)) THEN |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
183 |
STREAMICE_ADV_FLUX_FL_X |
XFLUX (i,j,bi,bj) = uface * |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
187 |
STREAMICE_ADV_FLUX_FL_X |
XFLUX (i,j,bi,bj) = uface * |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
194 |
STREAMICE_ADV_FLUX_FL_X |
Xflux (i,j,bi,bj) = uface * stencil(0) |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
200 |
STREAMICE_ADV_FLUX_FL_X |
Xflux (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
42 |
STREAMICE_ADV_FLUX_FL_X |
INTEGER i, j, bi, bj, Gi, Gj, k |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
57 |
STREAMICE_ADV_FLUX_FL_X |
DO i=1-olx,sNx+olx |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
58 |
STREAMICE_ADV_FLUX_FL_X |
H0_valid(i,j,bi,bj)=.false. |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
70 |
STREAMICE_ADV_FLUX_FL_X |
DO i=1,sNx+1 |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
74 |
STREAMICE_ADV_FLUX_FL_X |
IF ((STREAMICE_hmask(i,j,bi,bj).eq.1.0) .or. |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
75 |
STREAMICE_ADV_FLUX_FL_X |
& ((STREAMICE_hmask(i-1,j,bi,bj).eq.1.0) .and. |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
76 |
STREAMICE_ADV_FLUX_FL_X |
& (STREAMICE_hmask(i,j,bi,bj).ne.1.0))) THEN |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
78 |
STREAMICE_ADV_FLUX_FL_X |
Gi = (myXGlobalLo-1)+(bi-1)*sNx+i |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
80 |
STREAMICE_ADV_FLUX_FL_X |
uface = UADV(i,j,bi,bj) |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
81 |
STREAMICE_ADV_FLUX_FL_X |
cfl = ABS(uface) * time_step * recip_dxC(i,j,bi,bj) |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
83 |
STREAMICE_ADV_FLUX_FL_X |
IF (BC_FACEMASK(i,j,bi,bj).eq.3.0 .and. |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
85 |
STREAMICE_ADV_FLUX_FL_X |
& STREAMICE_hmask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
86 |
STREAMICE_ADV_FLUX_FL_X |
XFLUX (i,j,bi,bj) = BC_XVALUES(i,j,bi,bj) * uface |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
88 |
STREAMICE_ADV_FLUX_FL_X |
& (BC_FACEMASK(i,j,bi,bj).eq.3.0 .and. |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
90 |
STREAMICE_ADV_FLUX_FL_X |
& STREAMICE_hmask(i-1,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
91 |
STREAMICE_ADV_FLUX_FL_X |
XFLUX (i,j,bi,bj) = BC_XVALUES(i,j,bi,bj) * uface |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
96 |
STREAMICE_ADV_FLUX_FL_X |
stencil (k) = TRAC(i+k-1,j,bi,bj) |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
98 |
STREAMICE_ADV_FLUX_FL_X |
IF ((STREAMICE_hmask(i,j,bi,bj).eq.1.0) .and. |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
99 |
STREAMICE_ADV_FLUX_FL_X |
& (STREAMICE_hmask(i-2,j,bi,bj).eq.1.0)) |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
101 |
STREAMICE_ADV_FLUX_FL_Y |
IF ((STREAMICE_hmask(i,j,bi,bj).eq.1.0) .and. |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
102 |
STREAMICE_ADV_FLUX_FL_Y |
& (STREAMICE_hmask(i,j-2,bi,bj).eq.1.0)) |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
103 |
STREAMICE_ADV_FLUX_FL_Y |
& H0_valid(i,j,bi,bj)=.true. |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
105 |
STREAMICE_ADV_FLUX_FL_Y |
IF (((Gj.eq.1).and.(STREAMICE_hmask(i,j-1,bi,bj).eq.3.0)) |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
109 |
STREAMICE_ADV_FLUX_FL_Y |
YFLUX (i,j,bi,bj) = TRAC(i,j-1,bi,bj) * vface |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
111 |
STREAMICE_ADV_FLUX_FL_Y |
ELSEIF (H0_valid(i,j,bi,bj)) THEN |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
133 |
STREAMICE_ADV_FLUX_FL_Y |
YFLUX (i,j,bi,bj) = vface * |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
137 |
STREAMICE_ADV_FLUX_FL_Y |
YFLUX (i,j,bi,bj) = vface * |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
144 |
STREAMICE_ADV_FLUX_FL_Y |
YFLUX (i,j,bi,bj) = vface * stencil(0) |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
151 |
STREAMICE_ADV_FLUX_FL_Y |
stencil (k) = TRAC(i,j-k,bi,bj) |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
153 |
STREAMICE_ADV_FLUX_FL_Y |
IF ((STREAMICE_hmask(i,j-1,bi,bj).eq.1.0) .and. |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
154 |
STREAMICE_ADV_FLUX_FL_Y |
& (STREAMICE_hmask(i,j+1,bi,bj).eq.1.0)) |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
155 |
STREAMICE_ADV_FLUX_FL_Y |
& H0_valid(i,j,bi,bj)=.true. |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
157 |
STREAMICE_ADV_FLUX_FL_Y |
IF (((Gj.eq.Ny).and.(STREAMICE_hmask(i,j+1,bi,bj).eq.3.0)) |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
161 |
STREAMICE_ADV_FLUX_FL_Y |
YFLUX (i,j,bi,bj) = TRAC(i,j+1,bi,bj) * vface |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
163 |
STREAMICE_ADV_FLUX_FL_Y |
ELSEIF (H0_valid(i,j,bi,bj)) THEN |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
185 |
STREAMICE_ADV_FLUX_FL_Y |
YFLUX (i,j,bi,bj) = vface * |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
189 |
STREAMICE_ADV_FLUX_FL_Y |
YFLUX (i,j,bi,bj) = vface * |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
196 |
STREAMICE_ADV_FLUX_FL_Y |
yflux (i,j,bi,bj) = vface * stencil(0) |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
202 |
STREAMICE_ADV_FLUX_FL_Y |
yflux (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
42 |
STREAMICE_ADV_FLUX_FL_Y |
INTEGER i, j, bi, bj, Gi, Gj, k |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
57 |
STREAMICE_ADV_FLUX_FL_Y |
DO i=1-olx,sNx+olx |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
58 |
STREAMICE_ADV_FLUX_FL_Y |
H0_valid(i,j,bi,bj)=.false. |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
68 |
STREAMICE_ADV_FLUX_FL_Y |
DO i=1,sNx |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
72 |
STREAMICE_ADV_FLUX_FL_Y |
Gi = (myXGlobalLo-1)+(bi-1)*sNx+i |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
75 |
STREAMICE_ADV_FLUX_FL_Y |
IF ((STREAMICE_hmask(i,j,bi,bj).eq.1.0) .or. |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
76 |
STREAMICE_ADV_FLUX_FL_Y |
& ((STREAMICE_hmask(i,j-1,bi,bj).eq.1.0) .and. |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
77 |
STREAMICE_ADV_FLUX_FL_Y |
& (STREAMICE_hmask(i,j,bi,bj).ne.1.0))) THEN |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
79 |
STREAMICE_ADV_FLUX_FL_Y |
vface = VADV(i,j,bi,bj) |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
80 |
STREAMICE_ADV_FLUX_FL_Y |
cfl = ABS(vface) * time_step * recip_dyC(i,j,bi,bj) |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
85 |
STREAMICE_ADV_FLUX_FL_Y |
IF (BC_FACEMASK(i,j,bi,bj).eq.3.0 .and. |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
87 |
STREAMICE_ADV_FLUX_FL_Y |
& STREAMICE_hmask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
88 |
STREAMICE_ADV_FLUX_FL_Y |
YFLUX (i,j,bi,bj) = BC_YVALUES(i,j,bi,bj) * vface |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
90 |
STREAMICE_ADV_FLUX_FL_Y |
& (BC_FACEMASK(i,j,bi,bj).eq.3.0 .and. |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
92 |
STREAMICE_ADV_FLUX_FL_Y |
& STREAMICE_hmask(i,j-1,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
93 |
STREAMICE_ADV_FLUX_FL_Y |
YFLUX (i,j,bi,bj) = BC_YVALUES(i,j,bi,bj) * vface |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
99 |
STREAMICE_ADV_FLUX_FL_Y |
stencil (k) = TRAC(i,j+k-1,bi,bj) |
|
./pkg/streamice/streamice_adv_front.F |
101 |
STREAMICE_ADV_FRONT |
DO i=1-OLx,sNx+OLx |
|
./pkg/streamice/streamice_adv_front.F |
102 |
STREAMICE_ADV_FRONT |
hflux_x_SI(i,j,bi,bj)=hflux_x_SI2(i,j,bi,bj) |
|
./pkg/streamice/streamice_adv_front.F |
103 |
STREAMICE_ADV_FRONT |
hflux_y_SI(i,j,bi,bj)=hflux_y_SI2(i,j,bi,bj) |
|
./pkg/streamice/streamice_adv_front.F |
104 |
STREAMICE_ADV_FRONT |
hflux_x_SI2(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_adv_front.F |
105 |
STREAMICE_ADV_FRONT |
hflux_y_SI2(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_adv_front.F |
121 |
STREAMICE_ADV_FRONT |
DO i=1-1,sNx+1 |
|
./pkg/streamice/streamice_adv_front.F |
122 |
STREAMICE_ADV_FRONT |
Gi = (myXGlobalLo-1)+(bi-1)*sNx+i |
|
./pkg/streamice/streamice_adv_front.F |
132 |
STREAMICE_ADV_FRONT |
ikey_1 = i + 1 |
|
./pkg/streamice/streamice_adv_front.F |
151 |
STREAMICE_ADV_FRONT |
& STREAMICE_calve_mask (i,j,bi,bj) .eq. 1.0) THEN |
|
./pkg/streamice/streamice_adv_front.F |
154 |
STREAMICE_ADV_FRONT |
& (STREAMICE_Hmask(i,j,bi,bj).eq.0.0 .or. |
|
./pkg/streamice/streamice_adv_front.F |
155 |
STREAMICE_ADV_FRONT |
& STREAMICE_Hmask(i,j,bi,bj).eq.2.0)) THEN |
|
./pkg/streamice/streamice_adv_front.F |
164 |
STREAMICE_ADV_FRONT |
IF (hflux_x_SI(i,j,bi,bj).gt. 0. _d 0) THEN |
|
./pkg/streamice/streamice_adv_front.F |
166 |
STREAMICE_ADV_FRONT |
href = href + H_streamice(i-1,j,bi,bj) |
|
./pkg/streamice/streamice_adv_front.F |
167 |
STREAMICE_ADV_FRONT |
tot_flux = tot_flux + hflux_x_SI(i,j,bi,bj) * |
|
./pkg/streamice/streamice_adv_front.F |
168 |
STREAMICE_ADV_FRONT |
& dxG(i,j,bi,bj) * time_step |
|
./pkg/streamice/streamice_adv_front.F |
169 |
STREAMICE_ADV_FRONT |
hflux_x_SI(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_adv_front.F |
176 |
STREAMICE_ADV_FRONT |
IF (hflux_x_SI(i+1,j,bi,bj).lt. 0. _d 0) THEN |
|
./pkg/streamice/streamice_adv_front.F |
178 |
STREAMICE_ADV_FRONT |
href = href + H_streamice(i+1,j,bi,bj) |
|
./pkg/streamice/streamice_adv_front.F |
179 |
STREAMICE_ADV_FRONT |
tot_flux = tot_flux - hflux_x_SI(i+1,j,bi,bj) * |
|
./pkg/streamice/streamice_adv_front.F |
180 |
STREAMICE_ADV_FRONT |
& dxG(i+1,j,bi,bj) * time_step |
|
./pkg/streamice/streamice_adv_front.F |
181 |
STREAMICE_ADV_FRONT |
hflux_x_SI(i+1,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_adv_front.F |
188 |
STREAMICE_ADV_FRONT |
IF (hflux_y_SI(i,j,bi,bj).gt. 0. _d 0) THEN |
|
./pkg/streamice/streamice_adv_front.F |
190 |
STREAMICE_ADV_FRONT |
href = href + H_streamice(i,j-1,bi,bj) |
|
./pkg/streamice/streamice_adv_front.F |
191 |
STREAMICE_ADV_FRONT |
tot_flux = tot_flux + hflux_y_SI(i,j,bi,bj) * |
|
./pkg/streamice/streamice_adv_front.F |
192 |
STREAMICE_ADV_FRONT |
& dyG(i,j,bi,bj) * time_step |
|
./pkg/streamice/streamice_adv_front.F |
193 |
STREAMICE_ADV_FRONT |
hflux_y_SI(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_adv_front.F |
200 |
STREAMICE_ADV_FRONT |
IF (hflux_y_SI(i,j+1,bi,bj).lt. 0. _d 0) THEN |
|
./pkg/streamice/streamice_adv_front.F |
202 |
STREAMICE_ADV_FRONT |
href = href + H_streamice(i,j+1,bi,bj) |
|
./pkg/streamice/streamice_adv_front.F |
203 |
STREAMICE_ADV_FRONT |
tot_flux = tot_flux - hflux_y_SI(i,j+1,bi,bj) * |
|
./pkg/streamice/streamice_adv_front.F |
204 |
STREAMICE_ADV_FRONT |
& dyG(i,j+1,bi,bj) * time_step |
|
./pkg/streamice/streamice_adv_front.F |
205 |
STREAMICE_ADV_FRONT |
hflux_y_SI(i,j+1,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_adv_front.F |
211 |
STREAMICE_ADV_FRONT |
partial_vol = H_streamice (i,j,bi,bj) * |
|
./pkg/streamice/streamice_adv_front.F |
212 |
STREAMICE_ADV_FRONT |
& area_shelf_streamice (i,j,bi,bj) + tot_flux |
|
./pkg/streamice/streamice_adv_front.F |
213 |
STREAMICE_ADV_FRONT |
hpot = partial_vol * recip_rA(i,j,bi,bj) |
|
./pkg/streamice/streamice_adv_front.F |
216 |
STREAMICE_ADV_FRONT |
STREAMICE_hmask (i,j,bi,bj) = 1.0 |
|
./pkg/streamice/streamice_adv_front.F |
217 |
STREAMICE_ADV_FRONT |
H_streamice (i,j,bi,bj) = href |
|
./pkg/streamice/streamice_adv_front.F |
218 |
STREAMICE_ADV_FRONT |
area_shelf_streamice(i,j,bi,bj) = |
|
./pkg/streamice/streamice_adv_front.F |
219 |
STREAMICE_ADV_FRONT |
& rA(i,j,bi,bj) |
|
./pkg/streamice/streamice_adv_front.F |
222 |
STREAMICE_ADV_FRONT |
STREAMICE_hmask (i,j,bi,bj) = 2.0 |
|
./pkg/streamice/streamice_adv_front.F |
223 |
STREAMICE_ADV_FRONT |
area_shelf_streamice (i,j,bi,bj) = partial_vol / href |
|
./pkg/streamice/streamice_adv_front.F |
224 |
STREAMICE_ADV_FRONT |
H_streamice (i,j,bi,bj) = href |
|
./pkg/streamice/streamice_adv_front.F |
227 |
STREAMICE_ADV_FRONT |
STREAMICE_hmask (i,j,bi,bj) = 1.0 |
|
./pkg/streamice/streamice_adv_front.F |
228 |
STREAMICE_ADV_FRONT |
area_shelf_streamice(i,j,bi,bj) = |
|
./pkg/streamice/streamice_adv_front.F |
229 |
STREAMICE_ADV_FRONT |
& rA(i,j,bi,bj) |
|
./pkg/streamice/streamice_adv_front.F |
231 |
STREAMICE_ADV_FRONT |
PRINT *, "GOT HERE OVERFLOW ", i,j, |
|
./pkg/streamice/streamice_adv_front.F |
232 |
STREAMICE_ADV_FRONT |
& area_shelf_streamice(i,j,bi,bj) |
|
./pkg/streamice/streamice_adv_front.F |
233 |
STREAMICE_ADV_FRONT |
partial_vol = partial_vol - href * rA(i,j,bi,bj) |
|
./pkg/streamice/streamice_adv_front.F |
243 |
STREAMICE_ADV_FRONT |
IF ( (STREAMICE_ufacemask(i-1+k,j,bi,bj).eq.2.0) .or. |
|
./pkg/streamice/streamice_adv_front.F |
245 |
STREAMICE_ADV_FRONT |
& STREAMICE_calve_mask(i+2*k-3,j,bi,bj).ne.1.0) |
|
./pkg/streamice/streamice_adv_front.F |
248 |
STREAMICE_ADV_FRONT |
ELSEIF (STREAMICE_hmask(i+2*k-3,j,bi,bj).eq.0 _d 0) THEN ! adjacent cell is completely ice free |
|
./pkg/streamice/streamice_adv_front.F |
254 |
STREAMICE_ADV_FRONT |
IF ( (STREAMICE_vfacemask (i,j-1+k,bi,bj).eq.2.0) .or. |
|
./pkg/streamice/streamice_adv_front.F |
256 |
STREAMICE_ADV_FRONT |
& STREAMICE_calve_mask(i,j+2*k-3,bi,bj).ne.1.0) |
|
./pkg/streamice/streamice_adv_front.F |
259 |
STREAMICE_ADV_FRONT |
ELSEIF (STREAMICE_hmask(i,j+2*k-3,bi,bj).eq.0 _d 0) THEN |
|
./pkg/streamice/streamice_adv_front.F |
266 |
STREAMICE_ADV_FRONT |
H_streamice(i,j,bi,bj) = href + partial_vol * |
|
./pkg/streamice/streamice_adv_front.F |
267 |
STREAMICE_ADV_FRONT |
& recip_rA(i,j,bi,bj) |
|
./pkg/streamice/streamice_adv_front.F |
269 |
STREAMICE_ADV_FRONT |
H_streamice(i,j,bi,bj) = href |
|
./pkg/streamice/streamice_adv_front.F |
273 |
STREAMICE_ADV_FRONT |
hflux_x_SI2(i-1+k,j,bi,bj) = |
|
./pkg/streamice/streamice_adv_front.F |
275 |
STREAMICE_ADV_FRONT |
& dxG(i-1+k,j,bi,bj) |
|
./pkg/streamice/streamice_adv_front.F |
281 |
STREAMICE_ADV_FRONT |
hflux_y_SI2(i,j-1+k,bi,bj) = |
|
./pkg/streamice/streamice_adv_front.F |
283 |
STREAMICE_ADV_FRONT |
& dxG(i,j-1+k,bi,bj) |
|
./pkg/streamice/streamice_adv_front.F |
44 |
STREAMICE_ADV_FRONT |
INTEGER i, j, bi, bj, k, iter_count, iter_rpt |
|
./pkg/streamice/streamice_adv_front.F |
63 |
STREAMICE_ADV_FRONT |
DO i=1-OLx,sNx+OLx |
|
./pkg/streamice/streamice_adv_front.F |
64 |
STREAMICE_ADV_FRONT |
hflux_x_SI2(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_adv_front.F |
65 |
STREAMICE_ADV_FRONT |
hflux_y_SI2(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_advect_2dtracer.F |
119 |
STREAMICE_ADVECT_2DTRACER |
DO i=1,sNx |
|
./pkg/streamice/streamice_advect_2dtracer.F |
120 |
STREAMICE_ADVECT_2DTRACER |
Gi = (myXGlobalLo-1)+(bi-1)*sNx+i |
|
./pkg/streamice/streamice_advect_2dtracer.F |
125 |
STREAMICE_ADVECT_2DTRACER |
IF (STREAMICE_hmask(i,j,bi,bj).eq.1.0 .or. |
|
./pkg/streamice/streamice_advect_2dtracer.F |
126 |
STREAMICE_ADVECT_2DTRACER |
& STREAMICE_hmask(i,j,bi,bj).eq.2.0) THEN |
|
./pkg/streamice/streamice_advect_2dtracer.F |
129 |
STREAMICE_ADVECT_2DTRACER |
GAD_trac_2d(i,j,bi,bj) = GAD_trac_2d(i,j,bi,bj) - |
|
./pkg/streamice/streamice_advect_2dtracer.F |
131 |
STREAMICE_ADVECT_2DTRACER |
trac2d(i,j,bi,bj) = trac2d(i,j,bi,bj) - |
|
./pkg/streamice/streamice_advect_2dtracer.F |
133 |
STREAMICE_ADVECT_2DTRACER |
& ((xtracflux(i+1,j,bi,bj)*dyG(i+1,j,bi,bj) - |
|
./pkg/streamice/streamice_advect_2dtracer.F |
134 |
STREAMICE_ADVECT_2DTRACER |
& xtracflux(i,j,bi,bj)*dyG(i,j,bi,bj)) * |
|
./pkg/streamice/streamice_advect_2dtracer.F |
135 |
STREAMICE_ADVECT_2DTRACER |
& recip_rA (i,j,bi,bj) - |
|
./pkg/streamice/streamice_advect_2dtracer.F |
136 |
STREAMICE_ADVECT_2DTRACER |
& trac2d(i,j,bi,bj) * |
|
./pkg/streamice/streamice_advect_2dtracer.F |
137 |
STREAMICE_ADVECT_2DTRACER |
& (utrans(i+1,j,bi,bj)*dyG(i+1,j,bi,bj)- |
|
./pkg/streamice/streamice_advect_2dtracer.F |
138 |
STREAMICE_ADVECT_2DTRACER |
& utrans(i,j,bi,bj)*dyG(i,j,bi,bj)) * |
|
./pkg/streamice/streamice_advect_2dtracer.F |
139 |
STREAMICE_ADVECT_2DTRACER |
& recip_rA(i,j,bi,bj)) |
|
./pkg/streamice/streamice_advect_2dtracer.F |
168 |
STREAMICE_ADVECT_2DTRACER |
DO i=1,sNx |
|
./pkg/streamice/streamice_advect_2dtracer.F |
169 |
STREAMICE_ADVECT_2DTRACER |
Gi = (myXGlobalLo-1)+(bi-1)*sNx+i |
|
./pkg/streamice/streamice_advect_2dtracer.F |
172 |
STREAMICE_ADVECT_2DTRACER |
IF (STREAMICE_hmask(i,j,bi,bj).eq.1.0 .or. |
|
./pkg/streamice/streamice_advect_2dtracer.F |
173 |
STREAMICE_ADVECT_2DTRACER |
& STREAMICE_hmask(i,j,bi,bj).eq.2.0) THEN |
|
./pkg/streamice/streamice_advect_2dtracer.F |
182 |
STREAMICE_ADVECT_2DTRACER |
GAD_trac_2d(i,j,bi,bj) = GAD_trac_2d(i,j,bi,bj) - |
|
./pkg/streamice/streamice_advect_2dtracer.F |
184 |
STREAMICE_ADVECT_2DTRACER |
trac2d(i,j,bi,bj) = trac2d(i,j,bi,bj) - |
|
./pkg/streamice/streamice_advect_2dtracer.F |
186 |
STREAMICE_ADVECT_2DTRACER |
& ((ytracflux(i,j+1,bi,bj)*dxG(i,j+1,bi,bj) - |
|
./pkg/streamice/streamice_advect_2dtracer.F |
187 |
STREAMICE_ADVECT_2DTRACER |
& ytracflux(i,j,bi,bj)*dxG(i,j,bi,bj)) * |
|
./pkg/streamice/streamice_advect_2dtracer.F |
188 |
STREAMICE_ADVECT_2DTRACER |
& recip_rA (i,j,bi,bj) - |
|
./pkg/streamice/streamice_advect_2dtracer.F |
189 |
STREAMICE_ADVECT_2DTRACER |
& (vtrans(i,j+1,bi,bj)*dxG(i,j+1,bi,bj) - |
|
./pkg/streamice/streamice_advect_2dtracer.F |
190 |
STREAMICE_ADVECT_2DTRACER |
& vtrans(i,j,bi,bj)*dxG(i,j,bi,bj)) * |
|
./pkg/streamice/streamice_advect_2dtracer.F |
191 |
STREAMICE_ADVECT_2DTRACER |
& trac2d(i,j,bi,bj) * |
|
./pkg/streamice/streamice_advect_2dtracer.F |
192 |
STREAMICE_ADVECT_2DTRACER |
& recip_rA(i,j,bi,bj)) |
|
./pkg/streamice/streamice_advect_2dtracer.F |
207 |
STREAMICE_ADVECT_2DTRACER |
DO i=1,sNx |
|
./pkg/streamice/streamice_advect_2dtracer.F |
209 |
STREAMICE_ADVECT_2DTRACER |
trac2d(i,j,bi,bj) = trac2d(i,j,bi,bj) + time_step_loc * |
|
./pkg/streamice/streamice_advect_2dtracer.F |
210 |
STREAMICE_ADVECT_2DTRACER |
& GAD_trac_2d(i,j,bi,bj) |
|
./pkg/streamice/streamice_advect_2dtracer.F |
213 |
STREAMICE_ADVECT_2DTRACER |
trac2d(i,j,bi,bj) = trac2d(i,j,bi,bj) + time_step_loc * |
|
./pkg/streamice/streamice_advect_2dtracer.F |
215 |
STREAMICE_ADVECT_2DTRACER |
& (GAD_trac_2d(i,j,bi,bj) - GAD_trac_2dNm1(i,j,bi,bj)) |
|
./pkg/streamice/streamice_advect_2dtracer.F |
51 |
STREAMICE_ADVECT_2DTRACER |
INTEGER i, j, bi, bj |
|
./pkg/streamice/streamice_advect_2dtracer.F |
72 |
STREAMICE_ADVECT_2DTRACER |
DO i=1-3,sNx+3 |
|
./pkg/streamice/streamice_advect_2dtracer.F |
77 |
STREAMICE_ADVECT_2DTRACER |
ytracflux (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_advect_2dtracer.F |
78 |
STREAMICE_ADVECT_2DTRACER |
xtracflux (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_advect_2dtracer.F |
80 |
STREAMICE_ADVECT_2DTRACER |
GAD_trac_2dNm1(i,j,bi,bj)=GAD_trac_2d(i,j,bi,bj) |
|
./pkg/streamice/streamice_advect_2dtracer.F |
81 |
STREAMICE_ADVECT_2DTRACER |
GAD_trac_2d (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_advect_2dtracer.F |
84 |
STREAMICE_ADVECT_2DTRACER |
IF (STREAMICE_ufacemask(i,j,bi,bj).eq.3.0) THEN |
|
./pkg/streamice/streamice_advect_2dtracer.F |
85 |
STREAMICE_ADVECT_2DTRACER |
BCVALX(i,j,bi,bj) = trac2d_ubdry_values_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_advect_2dtracer.F |
86 |
STREAMICE_ADVECT_2DTRACER |
ELSEIF (STREAMICE_ufacemask(i,j,bi,bj).eq.4.0) THEN |
|
./pkg/streamice/streamice_advect_2dtracer.F |
87 |
STREAMICE_ADVECT_2DTRACER |
BCVALX(i,j,bi,bj) = trac2d_ubdry_values_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_advect_2dtracer.F |
90 |
STREAMICE_ADVECT_2DTRACER |
IF (STREAMICE_vfacemask(i,j,bi,bj).eq.3.0) THEN |
|
./pkg/streamice/streamice_advect_2dtracer.F |
91 |
STREAMICE_ADVECT_2DTRACER |
BCVALy(i,j,bi,bj) = trac2d_vbdry_values_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_advect_2dtracer.F |
92 |
STREAMICE_ADVECT_2DTRACER |
ELSEIF (STREAMICE_vfacemask(i,j,bi,bj).eq.4.0) THEN |
|
./pkg/streamice/streamice_advect_2dtracer.F |
93 |
STREAMICE_ADVECT_2DTRACER |
BCVALy(i,j,bi,bj) = trac2d_vbdry_values_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_advect_thickness.F |
100 |
STREAMICE_ADVECT_THICKNESS |
BCMASKX(i,j,bi,bj) = 3.0 |
|
./pkg/streamice/streamice_advect_thickness.F |
101 |
STREAMICE_ADVECT_THICKNESS |
BCVALX(i,j,bi,bj) = h_ubdry_values_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_advect_thickness.F |
102 |
STREAMICE_ADVECT_THICKNESS |
utrans(i,j,bi,bj) = .5 * ( |
|
./pkg/streamice/streamice_advect_thickness.F |
103 |
STREAMICE_ADVECT_THICKNESS |
& u_streamice(i,j,bi,bj)+u_streamice(i,j+1,bi,bj)) |
|
./pkg/streamice/streamice_advect_thickness.F |
104 |
STREAMICE_ADVECT_THICKNESS |
ELSEIF (STREAMICE_ufacemask(i,j,bi,bj).eq.4.0) THEN |
|
./pkg/streamice/streamice_advect_thickness.F |
105 |
STREAMICE_ADVECT_THICKNESS |
IF (STREAMICE_hmask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_advect_thickness.F |
106 |
STREAMICE_ADVECT_THICKNESS |
uflux = u_flux_bdry_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_advect_thickness.F |
107 |
STREAMICE_ADVECT_THICKNESS |
BCMASKX(i,j,bi,bj) = 3.0 |
|
./pkg/streamice/streamice_advect_thickness.F |
108 |
STREAMICE_ADVECT_THICKNESS |
BCVALX(i,j,bi,bj) = uflux |
|
./pkg/streamice/streamice_advect_thickness.F |
109 |
STREAMICE_ADVECT_THICKNESS |
utrans(i,j,bi,bj) = 1.0 |
|
./pkg/streamice/streamice_advect_thickness.F |
110 |
STREAMICE_ADVECT_THICKNESS |
ELSEIF (STREAMICE_hmask(i-1,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_advect_thickness.F |
111 |
STREAMICE_ADVECT_THICKNESS |
uflux = u_flux_bdry_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_advect_thickness.F |
112 |
STREAMICE_ADVECT_THICKNESS |
BCMASKX(i,j,bi,bj) = 3.0 |
|
./pkg/streamice/streamice_advect_thickness.F |
113 |
STREAMICE_ADVECT_THICKNESS |
BCVALX(i,j,bi,bj) = uflux |
|
./pkg/streamice/streamice_advect_thickness.F |
114 |
STREAMICE_ADVECT_THICKNESS |
utrans(i,j,bi,bj) = -1.0 |
|
./pkg/streamice/streamice_advect_thickness.F |
117 |
STREAMICE_ADVECT_THICKNESS |
& STREAMICE_hmask(i,j,bi,bj).eq.1.0.OR. |
|
./pkg/streamice/streamice_advect_thickness.F |
118 |
STREAMICE_ADVECT_THICKNESS |
& STREAMICE_hmask(i-1,j,bi,bj).eq.1.0)) THEN |
|
./pkg/streamice/streamice_advect_thickness.F |
119 |
STREAMICE_ADVECT_THICKNESS |
BCMASKX(i,j,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_advect_thickness.F |
120 |
STREAMICE_ADVECT_THICKNESS |
BCVALX(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_advect_thickness.F |
121 |
STREAMICE_ADVECT_THICKNESS |
utrans(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_advect_thickness.F |
123 |
STREAMICE_ADVECT_THICKNESS |
BCMASKX(i,j,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_advect_thickness.F |
124 |
STREAMICE_ADVECT_THICKNESS |
BCVALX(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_advect_thickness.F |
125 |
STREAMICE_ADVECT_THICKNESS |
utrans(i,j,bi,bj) = .5 * ( |
|
./pkg/streamice/streamice_advect_thickness.F |
126 |
STREAMICE_ADVECT_THICKNESS |
& u_streamice(i,j,bi,bj)+u_streamice(i,j+1,bi,bj)) |
|
./pkg/streamice/streamice_advect_thickness.F |
129 |
STREAMICE_ADVECT_THICKNESS |
IF (STREAMICE_vfacemask(i,j,bi,bj).eq.3.0) THEN |
|
./pkg/streamice/streamice_advect_thickness.F |
130 |
STREAMICE_ADVECT_THICKNESS |
BCMASKy(i,j,bi,bj) = 3.0 |
|
./pkg/streamice/streamice_advect_thickness.F |
131 |
STREAMICE_ADVECT_THICKNESS |
BCVALy(i,j,bi,bj) = h_vbdry_values_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_advect_thickness.F |
132 |
STREAMICE_ADVECT_THICKNESS |
vtrans(i,j,bi,bj) = .5 * ( |
|
./pkg/streamice/streamice_advect_thickness.F |
133 |
STREAMICE_ADVECT_THICKNESS |
& v_streamice(i,j,bi,bj)+v_streamice(i+1,j,bi,bj)) |
|
./pkg/streamice/streamice_advect_thickness.F |
134 |
STREAMICE_ADVECT_THICKNESS |
ELSEIF (STREAMICE_vfacemask(i,j,bi,bj).eq.4.0) THEN |
|
./pkg/streamice/streamice_advect_thickness.F |
135 |
STREAMICE_ADVECT_THICKNESS |
IF (STREAMICE_hmask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_advect_thickness.F |
136 |
STREAMICE_ADVECT_THICKNESS |
vflux = v_flux_bdry_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_advect_thickness.F |
137 |
STREAMICE_ADVECT_THICKNESS |
BCMASKY(i,j,bi,bj) = 3.0 |
|
./pkg/streamice/streamice_advect_thickness.F |
138 |
STREAMICE_ADVECT_THICKNESS |
BCVALY(i,j,bi,bj) = vflux |
|
./pkg/streamice/streamice_advect_thickness.F |
139 |
STREAMICE_ADVECT_THICKNESS |
vtrans(i,j,bi,bj) = 1.0 |
|
./pkg/streamice/streamice_advect_thickness.F |
140 |
STREAMICE_ADVECT_THICKNESS |
ELSEIF (STREAMICE_hmask(i,j-1,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_advect_thickness.F |
141 |
STREAMICE_ADVECT_THICKNESS |
vflux = v_flux_bdry_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_advect_thickness.F |
142 |
STREAMICE_ADVECT_THICKNESS |
BCMASKY(i,j,bi,bj) = 3.0 |
|
./pkg/streamice/streamice_advect_thickness.F |
143 |
STREAMICE_ADVECT_THICKNESS |
BCVALY(i,j,bi,bj) = vflux |
|
./pkg/streamice/streamice_advect_thickness.F |
144 |
STREAMICE_ADVECT_THICKNESS |
vtrans(i,j,bi,bj) = -1.0 |
|
./pkg/streamice/streamice_advect_thickness.F |
147 |
STREAMICE_ADVECT_THICKNESS |
vtrans(i,j,bi,bj) = 1.0 |
|
./pkg/streamice/streamice_advect_thickness.F |
149 |
STREAMICE_ADVECT_THICKNESS |
& STREAMICE_hmask(i,j,bi,bj).eq.1.0.OR. |
|
./pkg/streamice/streamice_advect_thickness.F |
150 |
STREAMICE_ADVECT_THICKNESS |
& STREAMICE_hmask(i,j-1,bi,bj).eq.1.0)) THEN |
|
./pkg/streamice/streamice_advect_thickness.F |
151 |
STREAMICE_ADVECT_THICKNESS |
BCMASKY(i,j,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_advect_thickness.F |
152 |
STREAMICE_ADVECT_THICKNESS |
BCVALY(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_advect_thickness.F |
153 |
STREAMICE_ADVECT_THICKNESS |
vtrans(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_advect_thickness.F |
155 |
STREAMICE_ADVECT_THICKNESS |
BCMASKy(i,j,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_advect_thickness.F |
156 |
STREAMICE_ADVECT_THICKNESS |
BCVALy(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_advect_thickness.F |
157 |
STREAMICE_ADVECT_THICKNESS |
vtrans(i,j,bi,bj) = .5 * ( |
|
./pkg/streamice/streamice_advect_thickness.F |
158 |
STREAMICE_ADVECT_THICKNESS |
& v_streamice(i,j,bi,bj)+v_streamice(i+1,j,bi,bj)) |
|
./pkg/streamice/streamice_advect_thickness.F |
182 |
STREAMICE_ADVECT_THICKNESS |
DO i=1,sNx |
|
./pkg/streamice/streamice_advect_thickness.F |
183 |
STREAMICE_ADVECT_THICKNESS |
IF (streamice_hmask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_advect_thickness.F |
184 |
STREAMICE_ADVECT_THICKNESS |
loc_icfl=max(abs(utrans(i,j,bi,bj)), |
|
./pkg/streamice/streamice_advect_thickness.F |
185 |
STREAMICE_ADVECT_THICKNESS |
& abs(utrans(i+1,j,bi,bj))) / dxF(i,j,bi,bj) |
|
./pkg/streamice/streamice_advect_thickness.F |
186 |
STREAMICE_ADVECT_THICKNESS |
loc_icfl=max(loc_icfl,max(abs(vtrans(i,j,bi,bj)), |
|
./pkg/streamice/streamice_advect_thickness.F |
187 |
STREAMICE_ADVECT_THICKNESS |
& abs(vtrans(i,j+1,bi,bj))) / dyF(i,j,bi,bj)) |
|
./pkg/streamice/streamice_advect_thickness.F |
227 |
STREAMICE_ADVECT_THICKNESS |
DO i=1,sNx |
|
./pkg/streamice/streamice_advect_thickness.F |
228 |
STREAMICE_ADVECT_THICKNESS |
Gi = (myXGlobalLo-1)+(bi-1)*sNx+i |
|
./pkg/streamice/streamice_advect_thickness.F |
233 |
STREAMICE_ADVECT_THICKNESS |
IF (STREAMICE_hmask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_advect_thickness.F |
234 |
STREAMICE_ADVECT_THICKNESS |
h_after_uflux_SI (i,j,bi,bj) = H_streamice(i,j,bi,bj) - |
|
./pkg/streamice/streamice_advect_thickness.F |
235 |
STREAMICE_ADVECT_THICKNESS |
& (hflux_x_SI(i+1,j,bi,bj)*dyG(i+1,j,bi,bj) - |
|
./pkg/streamice/streamice_advect_thickness.F |
236 |
STREAMICE_ADVECT_THICKNESS |
& hflux_x_SI(i,j,bi,bj)*dyG(i,j,bi,bj)) |
|
./pkg/streamice/streamice_advect_thickness.F |
237 |
STREAMICE_ADVECT_THICKNESS |
& * recip_rA (i,j,bi,bj) * time_step_loc |
|
./pkg/streamice/streamice_advect_thickness.F |
238 |
STREAMICE_ADVECT_THICKNESS |
IF ( h_after_uflux_SI (i,j,bi,bj).le.0.0) THEN |
|
./pkg/streamice/streamice_advect_thickness.F |
239 |
STREAMICE_ADVECT_THICKNESS |
PRINT *, "h neg after x", i,j,hflux_x_SI(i+1,j,bi,bj), |
|
./pkg/streamice/streamice_advect_thickness.F |
240 |
STREAMICE_ADVECT_THICKNESS |
& hflux_x_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_advect_thickness.F |
270 |
STREAMICE_ADVECT_THICKNESS |
DO i=1,sNx |
|
./pkg/streamice/streamice_advect_thickness.F |
271 |
STREAMICE_ADVECT_THICKNESS |
Gi = (myXGlobalLo-1)+(bi-1)*sNx+i |
|
./pkg/streamice/streamice_advect_thickness.F |
276 |
STREAMICE_ADVECT_THICKNESS |
IF (STREAMICE_hmask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_advect_thickness.F |
277 |
STREAMICE_ADVECT_THICKNESS |
h_after_vflux_SI (i,j,bi,bj) = h_after_uflux_SI(i,j,bi,bj) - |
|
./pkg/streamice/streamice_advect_thickness.F |
278 |
STREAMICE_ADVECT_THICKNESS |
& (hflux_y_SI(i,j+1,bi,bj)*dxG(i,j+1,bi,bj) - |
|
./pkg/streamice/streamice_advect_thickness.F |
279 |
STREAMICE_ADVECT_THICKNESS |
& hflux_y_SI(i,j,bi,bj)*dxG(i,j,bi,bj)) * |
|
./pkg/streamice/streamice_advect_thickness.F |
280 |
STREAMICE_ADVECT_THICKNESS |
& recip_rA (i,j,bi,bj) * time_step_loc |
|
./pkg/streamice/streamice_advect_thickness.F |
281 |
STREAMICE_ADVECT_THICKNESS |
IF ( h_after_vflux_SI (i,j,bi,bj).le.0.0) THEN |
|
./pkg/streamice/streamice_advect_thickness.F |
282 |
STREAMICE_ADVECT_THICKNESS |
PRINT *, "h neg after y", i,j,hflux_y_SI(i,j+1,bi,bj), |
|
./pkg/streamice/streamice_advect_thickness.F |
283 |
STREAMICE_ADVECT_THICKNESS |
& hflux_y_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_advect_thickness.F |
297 |
STREAMICE_ADVECT_THICKNESS |
DO i=1,sNx |
|
./pkg/streamice/streamice_advect_thickness.F |
298 |
STREAMICE_ADVECT_THICKNESS |
IF (STREAMICE_hmask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_advect_thickness.F |
299 |
STREAMICE_ADVECT_THICKNESS |
H_streamice (i,j,bi,bj) = |
|
./pkg/streamice/streamice_advect_thickness.F |
300 |
STREAMICE_ADVECT_THICKNESS |
& h_after_vflux_SI (i,j,bi,bj) |
|
./pkg/streamice/streamice_advect_thickness.F |
338 |
STREAMICE_ADVECT_THICKNESS |
DO i=1,sNx |
|
./pkg/streamice/streamice_advect_thickness.F |
339 |
STREAMICE_ADVECT_THICKNESS |
Gi = (myXGlobalLo-1)+(bi-1)*sNx+i |
|
./pkg/streamice/streamice_advect_thickness.F |
341 |
STREAMICE_ADVECT_THICKNESS |
IF (STREAMICE_hmask(i,j,bi,bj).eq.1.0 .or. |
|
./pkg/streamice/streamice_advect_thickness.F |
342 |
STREAMICE_ADVECT_THICKNESS |
& STREAMICE_hmask(i,j,bi,bj).eq.2.0) THEN |
|
./pkg/streamice/streamice_advect_thickness.F |
346 |
STREAMICE_ADVECT_THICKNESS |
MR = -1. * (1.-float_frac_streamice(i,j,bi,bj)) * |
|
./pkg/streamice/streamice_advect_thickness.F |
354 |
STREAMICE_ADVECT_THICKNESS |
MR = (1.-float_frac_streamice(i,j,bi,bj)) * |
|
./pkg/streamice/streamice_advect_thickness.F |
355 |
STREAMICE_ADVECT_THICKNESS |
& (BDOT_STREAMICE(i,j,bi,bj) + |
|
./pkg/streamice/streamice_advect_thickness.F |
356 |
STREAMICE_ADVECT_THICKNESS |
& BDOT_pert(i,j,bi,bj)) |
|
./pkg/streamice/streamice_advect_thickness.F |
359 |
STREAMICE_ADVECT_THICKNESS |
SMB = ADOT_STREAMICE(i,j,bi,bj) |
|
./pkg/streamice/streamice_advect_thickness.F |
363 |
STREAMICE_ADVECT_THICKNESS |
& H_streamice (i,j,bi,bj))) THEN |
|
./pkg/streamice/streamice_advect_thickness.F |
364 |
STREAMICE_ADVECT_THICKNESS |
H_streamice (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_advect_thickness.F |
365 |
STREAMICE_ADVECT_THICKNESS |
STREAMICE_hmask(i,j,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_advect_thickness.F |
366 |
STREAMICE_ADVECT_THICKNESS |
PRINT *, "GOT HERE melted away! ", i,j |
|
./pkg/streamice/streamice_advect_thickness.F |
368 |
STREAMICE_ADVECT_THICKNESS |
H_streamice (i,j,bi,bj) = |
|
./pkg/streamice/streamice_advect_thickness.F |
369 |
STREAMICE_ADVECT_THICKNESS |
& H_streamice (i,j,bi,bj) + TMB * time_step_loc |
|
./pkg/streamice/streamice_advect_thickness.F |
41 |
STREAMICE_ADVECT_THICKNESS |
INTEGER i, j, bi, bj, Gi, Gj, k |
|
./pkg/streamice/streamice_advect_thickness.F |
83 |
STREAMICE_ADVECT_THICKNESS |
DO i=1,sNx+1 |
|
./pkg/streamice/streamice_advect_thickness.F |
85 |
STREAMICE_ADVECT_THICKNESS |
H_streamice_prev(i,j,bi,bj) = |
|
./pkg/streamice/streamice_advect_thickness.F |
86 |
STREAMICE_ADVECT_THICKNESS |
& H_streamice(i,j,bi,bj) |
|
./pkg/streamice/streamice_advect_thickness.F |
88 |
STREAMICE_ADVECT_THICKNESS |
hflux_x_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_advect_thickness.F |
89 |
STREAMICE_ADVECT_THICKNESS |
hflux_y_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_advect_thickness.F |
91 |
STREAMICE_ADVECT_THICKNESS |
IF (STREAMICE_hmask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_advect_thickness.F |
92 |
STREAMICE_ADVECT_THICKNESS |
h_after_uflux_SI(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_advect_thickness.F |
93 |
STREAMICE_ADVECT_THICKNESS |
h_after_vflux_SI(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_advect_thickness.F |
95 |
STREAMICE_ADVECT_THICKNESS |
h_after_uflux_SI(i,j,bi,bj) = H_streamice(i,j,bi,bj) |
|
./pkg/streamice/streamice_advect_thickness.F |
96 |
STREAMICE_ADVECT_THICKNESS |
h_after_vflux_SI(i,j,bi,bj) = H_streamice(i,j,bi,bj) |
|
./pkg/streamice/streamice_advect_thickness.F |
99 |
STREAMICE_ADVECT_THICKNESS |
IF (STREAMICE_ufacemask(i,j,bi,bj).eq.3.0) THEN |
|
./pkg/streamice/streamice_apply_flux_ctrl.F |
34 |
STREAMICE_APPLY_FLUX_CTRL |
INTEGER bi, bj, i, j, k |
|
./pkg/streamice/streamice_apply_flux_ctrl.F |
44 |
STREAMICE_APPLY_FLUX_CTRL |
DO i=1,n_fluxes |
|
./pkg/streamice/streamice_apply_flux_ctrl.F |
45 |
STREAMICE_APPLY_FLUX_CTRL |
streamice_flux_scale_current (i) = |
|
./pkg/streamice/streamice_apply_flux_ctrl.F |
46 |
STREAMICE_APPLY_FLUX_CTRL |
& streamice_ctrl_flux_scale (i,1) |
|
./pkg/streamice/streamice_apply_flux_ctrl.F |
56 |
STREAMICE_APPLY_FLUX_CTRL |
DO i=1,sNx |
|
./pkg/streamice/streamice_apply_flux_ctrl.F |
57 |
STREAMICE_APPLY_FLUX_CTRL |
IF (streamice_umask(i,j,bi,bj).eq.3.0 .OR. |
|
./pkg/streamice/streamice_apply_flux_ctrl.F |
58 |
STREAMICE_APPLY_FLUX_CTRL |
& streamice_vmask(i,j,bi,bj).eq.3.0) THEN |
|
./pkg/streamice/streamice_apply_flux_ctrl.F |
60 |
STREAMICE_APPLY_FLUX_CTRL |
maskval = INT(streamice_ctrl_flux_mask(i,j,bi,bj)) |
|
./pkg/streamice/streamice_apply_flux_ctrl.F |
64 |
STREAMICE_APPLY_FLUX_CTRL |
IF (streamice_umask(i,j,bi,bj).eq.3.0 |
|
./pkg/streamice/streamice_apply_flux_ctrl.F |
65 |
STREAMICE_APPLY_FLUX_CTRL |
u_bdry_values_SI (i,j,bi,bj) = |
|
./pkg/streamice/streamice_apply_flux_ctrl.F |
66 |
STREAMICE_APPLY_FLUX_CTRL |
& u_bdry_values_SI_base(i,j,bi,bj) * |
|
./pkg/streamice/streamice_apply_flux_ctrl.F |
69 |
STREAMICE_APPLY_FLUX_CTRL |
IF (streamice_vmask(i,j,bi,bj).eq.3.0 |
|
./pkg/streamice/streamice_apply_flux_ctrl.F |
70 |
STREAMICE_APPLY_FLUX_CTRL |
v_bdry_values_SI (i,j,bi,bj) = |
|
./pkg/streamice/streamice_apply_flux_ctrl.F |
71 |
STREAMICE_APPLY_FLUX_CTRL |
& v_bdry_values_SI_base(i,j,bi,bj) * |
|
./model/src/ini_grid.F |
100 |
INI_GRID |
recip_rAz(i,j,bi,bj) = 0. |
|
./model/src/ini_grid.F |
101 |
INI_GRID |
tanPhiAtU(i,j,bi,bj) = 0. |
|
./model/src/ini_grid.F |
102 |
INI_GRID |
tanPhiAtV(i,j,bi,bj) = 0. |
|
./model/src/ini_grid.F |
103 |
INI_GRID |
angleCosC(i,j,bi,bj) = 1. |
|
./model/src/ini_grid.F |
104 |
INI_GRID |
angleSinC(i,j,bi,bj) = 0. |
|
./model/src/ini_grid.F |
105 |
INI_GRID |
u2zonDir(i,j,bi,bj) = 1. |
|
./model/src/ini_grid.F |
106 |
INI_GRID |
v2zonDir(i,j,bi,bj) = 0. |
|
./model/src/ini_grid.F |
155 |
INI_GRID |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_grid.F |
156 |
INI_GRID |
IF ( dxG(i,j,bi,bj) .NE. 0. ) |
|
./model/src/ini_grid.F |
157 |
INI_GRID |
& recip_dxG(i,j,bi,bj) = 1. _d 0/dxG(i,j,bi,bj) |
|
./model/src/ini_grid.F |
158 |
INI_GRID |
IF ( dyG(i,j,bi,bj) .NE. 0. ) |
|
./model/src/ini_grid.F |
159 |
INI_GRID |
& recip_dyG(i,j,bi,bj) = 1. _d 0/dyG(i,j,bi,bj) |
|
./model/src/ini_grid.F |
160 |
INI_GRID |
IF ( dxC(i,j,bi,bj) .NE. 0. ) |
|
./model/src/ini_grid.F |
161 |
INI_GRID |
& recip_dxC(i,j,bi,bj) = 1. _d 0/dxC(i,j,bi,bj) |
|
./model/src/ini_grid.F |
162 |
INI_GRID |
IF ( dyC(i,j,bi,bj) .NE. 0. ) |
|
./model/src/ini_grid.F |
163 |
INI_GRID |
& recip_dyC(i,j,bi,bj) = 1. _d 0/dyC(i,j,bi,bj) |
|
./model/src/ini_grid.F |
164 |
INI_GRID |
IF ( dxF(i,j,bi,bj) .NE. 0. ) |
|
./model/src/ini_grid.F |
165 |
INI_GRID |
& recip_dxF(i,j,bi,bj) = 1. _d 0/dxF(i,j,bi,bj) |
|
./model/src/ini_grid.F |
166 |
INI_GRID |
IF ( dyF(i,j,bi,bj) .NE. 0. ) |
|
./model/src/ini_grid.F |
167 |
INI_GRID |
& recip_dyF(i,j,bi,bj) = 1. _d 0/dyF(i,j,bi,bj) |
|
./model/src/ini_grid.F |
168 |
INI_GRID |
IF ( dxV(i,j,bi,bj) .NE. 0. ) |
|
./model/src/ini_grid.F |
169 |
INI_GRID |
& recip_dxV(i,j,bi,bj) = 1. _d 0/dxV(i,j,bi,bj) |
|
./model/src/ini_grid.F |
170 |
INI_GRID |
IF ( dyU(i,j,bi,bj) .NE. 0. ) |
|
./model/src/ini_grid.F |
171 |
INI_GRID |
& recip_dyU(i,j,bi,bj) = 1. _d 0/dyU(i,j,bi,bj) |
|
./model/src/ini_grid.F |
172 |
INI_GRID |
IF ( rA (i,j,bi,bj) .NE. 0. ) |
|
./model/src/ini_grid.F |
173 |
INI_GRID |
& recip_rA (i,j,bi,bj) = 1. _d 0/rA (i,j,bi,bj) |
|
./model/src/ini_grid.F |
174 |
INI_GRID |
IF ( rAs(i,j,bi,bj) .NE. 0. ) |
|
./model/src/ini_grid.F |
175 |
INI_GRID |
& recip_rAs(i,j,bi,bj) = 1. _d 0/rAs(i,j,bi,bj) |
|
./model/src/ini_grid.F |
176 |
INI_GRID |
IF ( rAw(i,j,bi,bj) .NE. 0. ) |
|
./model/src/ini_grid.F |
177 |
INI_GRID |
& recip_rAw(i,j,bi,bj) = 1. _d 0/rAw(i,j,bi,bj) |
|
./model/src/ini_grid.F |
178 |
INI_GRID |
IF ( rAz(i,j,bi,bj) .NE. 0. ) |
|
./model/src/ini_grid.F |
179 |
INI_GRID |
& recip_rAz(i,j,bi,bj) = 1. _d 0/rAz(i,j,bi,bj) |
|
./model/src/ini_grid.F |
200 |
INI_GRID |
DO i = 1,MAX_LEN_MBUF |
|
./model/src/ini_grid.F |
201 |
INI_GRID |
mon_fname(i:i) = ' ' |
|
./model/src/ini_grid.F |
53 |
INI_GRID |
INTEGER i, j |
|
./model/src/ini_grid.F |
72 |
INI_GRID |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_grid.F |
73 |
INI_GRID |
xC(i,j,bi,bj) = 0. |
|
./model/src/ini_grid.F |
74 |
INI_GRID |
yC(i,j,bi,bj) = 0. |
|
./model/src/ini_grid.F |
75 |
INI_GRID |
xG(i,j,bi,bj) = 0. |
|
./model/src/ini_grid.F |
76 |
INI_GRID |
yG(i,j,bi,bj) = 0. |
|
./model/src/ini_grid.F |
77 |
INI_GRID |
dxC(i,j,bi,bj) = 0. |
|
./model/src/ini_grid.F |
78 |
INI_GRID |
dyC(i,j,bi,bj) = 0. |
|
./model/src/ini_grid.F |
79 |
INI_GRID |
dxG(i,j,bi,bj) = 0. |
|
./model/src/ini_grid.F |
80 |
INI_GRID |
dyG(i,j,bi,bj) = 0. |
|
./model/src/ini_grid.F |
81 |
INI_GRID |
dxF(i,j,bi,bj) = 0. |
|
./model/src/ini_grid.F |
82 |
INI_GRID |
dyF(i,j,bi,bj) = 0. |
|
./model/src/ini_grid.F |
83 |
INI_GRID |
dxV(i,j,bi,bj) = 0. |
|
./model/src/ini_grid.F |
84 |
INI_GRID |
dyU(i,j,bi,bj) = 0. |
|
./model/src/ini_grid.F |
85 |
INI_GRID |
rA(i,j,bi,bj) = 0. |
|
./model/src/ini_grid.F |
86 |
INI_GRID |
rAz(i,j,bi,bj) = 0. |
|
./model/src/ini_grid.F |
87 |
INI_GRID |
rAw(i,j,bi,bj) = 0. |
|
./model/src/ini_grid.F |
88 |
INI_GRID |
rAs(i,j,bi,bj) = 0. |
|
./model/src/ini_grid.F |
89 |
INI_GRID |
recip_dxG(i,j,bi,bj) = 0. |
|
./model/src/ini_grid.F |
90 |
INI_GRID |
recip_dyG(i,j,bi,bj) = 0. |
|
./model/src/ini_grid.F |
91 |
INI_GRID |
recip_dxC(i,j,bi,bj) = 0. |
|
./model/src/ini_grid.F |
92 |
INI_GRID |
recip_dyC(i,j,bi,bj) = 0. |
|
./model/src/ini_grid.F |
93 |
INI_GRID |
recip_dxF(i,j,bi,bj) = 0. |
|
./model/src/ini_grid.F |
94 |
INI_GRID |
recip_dyF(i,j,bi,bj) = 0. |
|
./model/src/ini_grid.F |
95 |
INI_GRID |
recip_dxV(i,j,bi,bj) = 0. |
|
./model/src/ini_grid.F |
96 |
INI_GRID |
recip_dyU(i,j,bi,bj) = 0. |
|
./model/src/ini_grid.F |
97 |
INI_GRID |
recip_rA (i,j,bi,bj) = 0. |
|
./model/src/ini_grid.F |
98 |
INI_GRID |
recip_rAs(i,j,bi,bj) = 0. |
|
./model/src/ini_grid.F |
99 |
INI_GRID |
recip_rAw(i,j,bi,bj) = 0. |
|
./pkg/streamice/streamice_cg_functions.F |
1000 |
STREAMICE_CG_BOUND_VALS |
& phival(inode,jnode) * grid_jacq_streamice(i,j,bi,bj,n) * |
|
./pkg/streamice/streamice_cg_functions.F |
1001 |
STREAMICE_CG_BOUND_VALS |
& tau_beta_eff_streamice (i,j,bi,bj) * vq |
|
./pkg/streamice/streamice_cg_functions.F |
100 |
STREAMICE_CG_ACTION |
& u(i,j+1,bi,bj) * DPhi(i,j,bi,bj,3,n,1) + |
|
./pkg/streamice/streamice_cg_functions.F |
101 |
STREAMICE_CG_ACTION |
& u(i+1,j+1,bi,bj) * DPhi(i,j,bi,bj,4,n,1) |
|
./pkg/streamice/streamice_cg_functions.F |
102 |
STREAMICE_CG_ACTION |
uy = u(i,j,bi,bj) * DPhi(i,j,bi,bj,1,n,2) + |
|
./pkg/streamice/streamice_cg_functions.F |
103 |
STREAMICE_CG_ACTION |
& u(i+1,j,bi,bj) * DPhi(i,j,bi,bj,2,n,2) + |
|
./pkg/streamice/streamice_cg_functions.F |
104 |
STREAMICE_CG_ACTION |
& u(i,j+1,bi,bj) * DPhi(i,j,bi,bj,3,n,2) + |
|
./pkg/streamice/streamice_cg_functions.F |
105 |
STREAMICE_CG_ACTION |
& u(i+1,j+1,bi,bj) * DPhi(i,j,bi,bj,4,n,2) |
|
./pkg/streamice/streamice_cg_functions.F |
106 |
STREAMICE_CG_ACTION |
vx = v(i,j,bi,bj) * DPhi(i,j,bi,bj,1,n,1) + |
|
./pkg/streamice/streamice_cg_functions.F |
107 |
STREAMICE_CG_ACTION |
& v(i+1,j,bi,bj) * DPhi(i,j,bi,bj,2,n,1) + |
|
./pkg/streamice/streamice_cg_functions.F |
108 |
STREAMICE_CG_ACTION |
& v(i,j+1,bi,bj) * DPhi(i,j,bi,bj,3,n,1) + |
|
./pkg/streamice/streamice_cg_functions.F |
109 |
STREAMICE_CG_ACTION |
& v(i+1,j+1,bi,bj) * DPhi(i,j,bi,bj,4,n,1) |
|
./pkg/streamice/streamice_cg_functions.F |
110 |
STREAMICE_CG_ACTION |
vy = v(i,j,bi,bj) * DPhi(i,j,bi,bj,1,n,2) + |
|
./pkg/streamice/streamice_cg_functions.F |
111 |
STREAMICE_CG_ACTION |
& v(i+1,j,bi,bj) * DPhi(i,j,bi,bj,2,n,2) + |
|
./pkg/streamice/streamice_cg_functions.F |
112 |
STREAMICE_CG_ACTION |
& v(i,j+1,bi,bj) * DPhi(i,j,bi,bj,3,n,2) + |
|
./pkg/streamice/streamice_cg_functions.F |
113 |
STREAMICE_CG_ACTION |
& v(i+1,j+1,bi,bj) * DPhi(i,j,bi,bj,4,n,2) |
|
./pkg/streamice/streamice_cg_functions.F |
114 |
STREAMICE_CG_ACTION |
exx = ux + k1AtC_str(i,j,bi,bj)*vq |
|
./pkg/streamice/streamice_cg_functions.F |
115 |
STREAMICE_CG_ACTION |
eyy = vy + k2AtC_str(i,j,bi,bj)*uq |
|
./pkg/streamice/streamice_cg_functions.F |
117 |
STREAMICE_CG_ACTION |
& k1AtC_str(i,j,bi,bj)*uq + k2AtC_str(i,j,bi,bj)*vq |
|
./pkg/streamice/streamice_cg_functions.F |
129 |
STREAMICE_CG_ACTION |
if (STREAMICE_umask(i-1+inode,j-1+jnode,bi,bj).eq.1.0) then |
|
./pkg/streamice/streamice_cg_functions.F |
131 |
STREAMICE_CG_ACTION |
uret(i-1+inode,j-1+jnode,bi,bj) = |
|
./pkg/streamice/streamice_cg_functions.F |
132 |
STREAMICE_CG_ACTION |
& uret(i-1+inode,j-1+jnode,bi,bj) + .25 * |
|
./pkg/streamice/streamice_cg_functions.F |
133 |
STREAMICE_CG_ACTION |
& grid_jacq_streamice(i,j,bi,bj,n) * |
|
./pkg/streamice/streamice_cg_functions.F |
134 |
STREAMICE_CG_ACTION |
& visc_streamice(i,j,bi,bj) * ( |
|
./pkg/streamice/streamice_cg_functions.F |
135 |
STREAMICE_CG_ACTION |
& DPhi(i,j,bi,bj,m,n,1)*(4*exx+2*eyy) + |
|
./pkg/streamice/streamice_cg_functions.F |
136 |
STREAMICE_CG_ACTION |
& DPhi(i,j,bi,bj,m,n,2)*(2*exy)) |
|
./pkg/streamice/streamice_cg_functions.F |
139 |
STREAMICE_CG_ACTION |
uret(i-1+inode,j-1+jnode,bi,bj) = |
|
./pkg/streamice/streamice_cg_functions.F |
140 |
STREAMICE_CG_ACTION |
& uret(i-1+inode,j-1+jnode,bi,bj) + .25 * |
|
./pkg/streamice/streamice_cg_functions.F |
141 |
STREAMICE_CG_ACTION |
& grid_jacq_streamice(i,j,bi,bj,n) * |
|
./pkg/streamice/streamice_cg_functions.F |
142 |
STREAMICE_CG_ACTION |
& visc_streamice(i,j,bi,bj) * phival(inode,jnode) * |
|
./pkg/streamice/streamice_cg_functions.F |
143 |
STREAMICE_CG_ACTION |
& (4*k2AtC_str(i,j,bi,bj)*eyy+2*k2AtC_str(i,j,bi,bj)*exx+ |
|
./pkg/streamice/streamice_cg_functions.F |
144 |
STREAMICE_CG_ACTION |
& 4*0.5*k1AtC_str(i,j,bi,bj)*exy) |
|
./pkg/streamice/streamice_cg_functions.F |
147 |
STREAMICE_CG_ACTION |
uret(i-1+inode,j-1+jnode,bi,bj) = |
|
./pkg/streamice/streamice_cg_functions.F |
148 |
STREAMICE_CG_ACTION |
& uret(i-1+inode,j-1+jnode,bi,bj) + .25 * |
|
./pkg/streamice/streamice_cg_functions.F |
150 |
STREAMICE_CG_ACTION |
& grid_jacq_streamice(i,j,bi,bj,n) * |
|
./pkg/streamice/streamice_cg_functions.F |
151 |
STREAMICE_CG_ACTION |
& tau_beta_eff_streamice (i,j,bi,bj) * uq |
|
./pkg/streamice/streamice_cg_functions.F |
156 |
STREAMICE_CG_ACTION |
if (STREAMICE_vmask(i-1+inode,j-1+jnode,bi,bj).eq.1.0) then |
|
./pkg/streamice/streamice_cg_functions.F |
157 |
STREAMICE_CG_ACTION |
vret(i-1+inode,j-1+jnode,bi,bj) = |
|
./pkg/streamice/streamice_cg_functions.F |
158 |
STREAMICE_CG_ACTION |
& vret(i-1+inode,j-1+jnode,bi,bj) + .25 * |
|
./pkg/streamice/streamice_cg_functions.F |
159 |
STREAMICE_CG_ACTION |
& grid_jacq_streamice(i,j,bi,bj,n) * |
|
./pkg/streamice/streamice_cg_functions.F |
160 |
STREAMICE_CG_ACTION |
& visc_streamice(i,j,bi,bj) * ( |
|
./pkg/streamice/streamice_cg_functions.F |
161 |
STREAMICE_CG_ACTION |
& DPhi(i,j,bi,bj,m,n,2)*(4*eyy+2*exx) + |
|
./pkg/streamice/streamice_cg_functions.F |
162 |
STREAMICE_CG_ACTION |
& DPhi(i,j,bi,bj,m,n,1)*(2*exy)) |
|
./pkg/streamice/streamice_cg_functions.F |
163 |
STREAMICE_CG_ACTION |
vret(i-1+inode,j-1+jnode,bi,bj) = |
|
./pkg/streamice/streamice_cg_functions.F |
164 |
STREAMICE_CG_ACTION |
& vret(i-1+inode,j-1+jnode,bi,bj) + .25 * |
|
./pkg/streamice/streamice_cg_functions.F |
165 |
STREAMICE_CG_ACTION |
& grid_jacq_streamice(i,j,bi,bj,n) * |
|
./pkg/streamice/streamice_cg_functions.F |
166 |
STREAMICE_CG_ACTION |
& visc_streamice(i,j,bi,bj) * phival(inode,jnode) * |
|
./pkg/streamice/streamice_cg_functions.F |
167 |
STREAMICE_CG_ACTION |
& (4*k1AtC_str(i,j,bi,bj)*exx+2*k1AtC_str(i,j,bi,bj)*eyy+ |
|
./pkg/streamice/streamice_cg_functions.F |
168 |
STREAMICE_CG_ACTION |
& 4*0.5*k2AtC_str(i,j,bi,bj)*exy) |
|
./pkg/streamice/streamice_cg_functions.F |
169 |
STREAMICE_CG_ACTION |
vret(i-1+inode,j-1+jnode,bi,bj) = |
|
./pkg/streamice/streamice_cg_functions.F |
170 |
STREAMICE_CG_ACTION |
& vret(i-1+inode,j-1+jnode,bi,bj) + .25 * |
|
./pkg/streamice/streamice_cg_functions.F |
172 |
STREAMICE_CG_ACTION |
& grid_jacq_streamice(i,j,bi,bj,n) * |
|
./pkg/streamice/streamice_cg_functions.F |
173 |
STREAMICE_CG_ACTION |
& tau_beta_eff_streamice (i,j,bi,bj) * vq |
|
./pkg/streamice/streamice_cg_functions.F |
241 |
STREAMICE_CG_MAKE_A |
INTEGER iq, jq, inodx, inody, i, j, bi, bj, ilqx, ilqy, m_i, n |
|
./pkg/streamice/streamice_cg_functions.F |
256 |
STREAMICE_CG_MAKE_A |
DO i = 1-cg_halo, sNx+cg_halo |
|
./pkg/streamice/streamice_cg_functions.F |
262 |
STREAMICE_CG_MAKE_A |
streamice_cg_A1(i,j,bi,bj,col_x,col_y)=0.0 |
|
./pkg/streamice/streamice_cg_functions.F |
263 |
STREAMICE_CG_MAKE_A |
streamice_cg_A2(i,j,bi,bj,col_x,col_y)=0.0 |
|
./pkg/streamice/streamice_cg_functions.F |
264 |
STREAMICE_CG_MAKE_A |
streamice_cg_A3(i,j,bi,bj,col_x,col_y)=0.0 |
|
./pkg/streamice/streamice_cg_functions.F |
265 |
STREAMICE_CG_MAKE_A |
streamice_cg_A4(i,j,bi,bj,col_x,col_y)=0.0 |
|
./pkg/streamice/streamice_cg_functions.F |
276 |
STREAMICE_CG_MAKE_A |
DO i = 1-cg_halo, sNx+cg_halo |
|
./pkg/streamice/streamice_cg_functions.F |
279 |
STREAMICE_CG_MAKE_A |
IF (STREAMICE_hmask (i,j,bi,bj) .eq. 1.0) THEN |
|
./pkg/streamice/streamice_cg_functions.F |
288 |
STREAMICE_CG_MAKE_A |
if (STREAMICE_umask(i-1+inodx,j-1+inody,bi,bj) |
|
./pkg/streamice/streamice_cg_functions.F |
290 |
STREAMICE_CG_MAKE_A |
& streamice_vmask(i-1+inodx,j-1+inody,bi,bj).eq.1.0) |
|
./pkg/streamice/streamice_cg_functions.F |
303 |
STREAMICE_CG_MAKE_A |
if (STREAMICE_umask(i-1+jnodx,j-1+jnody,bi,bj) |
|
./pkg/streamice/streamice_cg_functions.F |
305 |
STREAMICE_CG_MAKE_A |
& STREAMICE_vmask(i-1+jnodx,j-1+jnody,bi,bj).eq.1.0) |
|
./pkg/streamice/streamice_cg_functions.F |
332 |
STREAMICE_CG_MAKE_A |
ux = DPhi (i,j,bi,bj,m_j,n,1) |
|
./pkg/streamice/streamice_cg_functions.F |
333 |
STREAMICE_CG_MAKE_A |
uy = DPhi (i,j,bi,bj,m_j,n,2) |
|
./pkg/streamice/streamice_cg_functions.F |
339 |
STREAMICE_CG_MAKE_A |
exx = ux + k1AtC_str(i,j,bi,bj)*vq |
|
./pkg/streamice/streamice_cg_functions.F |
340 |
STREAMICE_CG_MAKE_A |
eyy = vy + k2AtC_str(i,j,bi,bj)*uq |
|
./pkg/streamice/streamice_cg_functions.F |
342 |
STREAMICE_CG_MAKE_A |
& k1AtC_str(i,j,bi,bj)*uq + k2AtC_str(i,j,bi,bj)*vq |
|
./pkg/streamice/streamice_cg_functions.F |
345 |
STREAMICE_CG_MAKE_A |
& grid_jacq_streamice(i,j,bi,bj,n) * |
|
./pkg/streamice/streamice_cg_functions.F |
346 |
STREAMICE_CG_MAKE_A |
& visc_streamice(i,j,bi,bj) * ( |
|
./pkg/streamice/streamice_cg_functions.F |
347 |
STREAMICE_CG_MAKE_A |
& DPhi(i,j,bi,bj,m_i,n,1)*(4*exx+2*eyy) + |
|
./pkg/streamice/streamice_cg_functions.F |
348 |
STREAMICE_CG_MAKE_A |
& DPhi(i,j,bi,bj,m_i,n,2)*(2*exy)) |
|
./pkg/streamice/streamice_cg_functions.F |
351 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
354 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
359 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
362 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
370 |
STREAMICE_CG_MAKE_A |
& grid_jacq_streamice(i,j,bi,bj,n) * |
|
./pkg/streamice/streamice_cg_functions.F |
371 |
STREAMICE_CG_MAKE_A |
& visc_streamice(i,j,bi,bj) * ( |
|
./pkg/streamice/streamice_cg_functions.F |
372 |
STREAMICE_CG_MAKE_A |
& DPhi(i,j,bi,bj,m_i,n,2)*(4*eyy+2*exx) + |
|
./pkg/streamice/streamice_cg_functions.F |
373 |
STREAMICE_CG_MAKE_A |
& DPhi(i,j,bi,bj,m_i,n,1)*(2*exy)) |
|
./pkg/streamice/streamice_cg_functions.F |
376 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
379 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
384 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
387 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
395 |
STREAMICE_CG_MAKE_A |
& grid_jacq_streamice(i,j,bi,bj,n) * |
|
./pkg/streamice/streamice_cg_functions.F |
396 |
STREAMICE_CG_MAKE_A |
& visc_streamice(i,j,bi,bj) * phival(inodx,inody) * |
|
./pkg/streamice/streamice_cg_functions.F |
397 |
STREAMICE_CG_MAKE_A |
& (4*k2AtC_str(i,j,bi,bj)*eyy+2*k2AtC_str(i,j,bi,bj)* |
|
./pkg/streamice/streamice_cg_functions.F |
398 |
STREAMICE_CG_MAKE_A |
& exx+4*0.5*k1AtC_str(i,j,bi,bj)*exy) |
|
./pkg/streamice/streamice_cg_functions.F |
401 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
404 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
409 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
412 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
420 |
STREAMICE_CG_MAKE_A |
& grid_jacq_streamice(i,j,bi,bj,n) * |
|
./pkg/streamice/streamice_cg_functions.F |
421 |
STREAMICE_CG_MAKE_A |
& visc_streamice(i,j,bi,bj) * phival(inodx,inody) * |
|
./pkg/streamice/streamice_cg_functions.F |
422 |
STREAMICE_CG_MAKE_A |
& (4*k1AtC_str(i,j,bi,bj)*exx+2*k1AtC_str(i,j,bi,bj)* |
|
./pkg/streamice/streamice_cg_functions.F |
423 |
STREAMICE_CG_MAKE_A |
& eyy+4*0.5*k2AtC_str(i,j,bi,bj)*exy) |
|
./pkg/streamice/streamice_cg_functions.F |
426 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
429 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
434 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
437 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
446 |
STREAMICE_CG_MAKE_A |
& grid_jacq_streamice(i,j,bi,bj,n) * |
|
./pkg/streamice/streamice_cg_functions.F |
447 |
STREAMICE_CG_MAKE_A |
& tau_beta_eff_streamice (i,j,bi,bj) * uq |
|
./pkg/streamice/streamice_cg_functions.F |
450 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
453 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
458 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
461 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
469 |
STREAMICE_CG_MAKE_A |
& grid_jacq_streamice(i,j,bi,bj,n) * |
|
./pkg/streamice/streamice_cg_functions.F |
470 |
STREAMICE_CG_MAKE_A |
& tau_beta_eff_streamice (i,j,bi,bj) * vq |
|
./pkg/streamice/streamice_cg_functions.F |
473 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
476 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
481 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
484 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
493 |
STREAMICE_CG_MAKE_A |
vx = DPhi (i,j,bi,bj,m_j,n,1) |
|
./pkg/streamice/streamice_cg_functions.F |
494 |
STREAMICE_CG_MAKE_A |
vy = DPhi (i,j,bi,bj,m_j,n,2) |
|
./pkg/streamice/streamice_cg_functions.F |
500 |
STREAMICE_CG_MAKE_A |
exx = ux + k1AtC_str(i,j,bi,bj)*vq |
|
./pkg/streamice/streamice_cg_functions.F |
501 |
STREAMICE_CG_MAKE_A |
eyy = vy + k2AtC_str(i,j,bi,bj)*uq |
|
./pkg/streamice/streamice_cg_functions.F |
503 |
STREAMICE_CG_MAKE_A |
& k1AtC_str(i,j,bi,bj)*uq + k2AtC_str(i,j,bi,bj)*vq |
|
./pkg/streamice/streamice_cg_functions.F |
506 |
STREAMICE_CG_MAKE_A |
& grid_jacq_streamice(i,j,bi,bj,n) * |
|
./pkg/streamice/streamice_cg_functions.F |
507 |
STREAMICE_CG_MAKE_A |
& visc_streamice(i,j,bi,bj) * ( |
|
./pkg/streamice/streamice_cg_functions.F |
508 |
STREAMICE_CG_MAKE_A |
& DPhi(i,j,bi,bj,m_i,n,1)*(4*exx+2*eyy) + |
|
./pkg/streamice/streamice_cg_functions.F |
509 |
STREAMICE_CG_MAKE_A |
& DPhi(i,j,bi,bj,m_i,n,2)*(2*exy)) |
|
./pkg/streamice/streamice_cg_functions.F |
512 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
515 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
520 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
523 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
530 |
STREAMICE_CG_MAKE_A |
& grid_jacq_streamice(i,j,bi,bj,n) * |
|
./pkg/streamice/streamice_cg_functions.F |
531 |
STREAMICE_CG_MAKE_A |
& visc_streamice(i,j,bi,bj) * ( |
|
./pkg/streamice/streamice_cg_functions.F |
532 |
STREAMICE_CG_MAKE_A |
& DPhi(i,j,bi,bj,m_i,n,2)*(4*eyy+2*exx) + |
|
./pkg/streamice/streamice_cg_functions.F |
533 |
STREAMICE_CG_MAKE_A |
& DPhi(i,j,bi,bj,m_i,n,1)*(2*exy)) |
|
./pkg/streamice/streamice_cg_functions.F |
536 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
539 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
544 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
547 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
554 |
STREAMICE_CG_MAKE_A |
& grid_jacq_streamice(i,j,bi,bj,n) * |
|
./pkg/streamice/streamice_cg_functions.F |
555 |
STREAMICE_CG_MAKE_A |
& visc_streamice(i,j,bi,bj) * phival(inodx,inody) * |
|
./pkg/streamice/streamice_cg_functions.F |
556 |
STREAMICE_CG_MAKE_A |
& (4*k2AtC_str(i,j,bi,bj)*eyy+2*k2AtC_str(i,j,bi,bj)* |
|
./pkg/streamice/streamice_cg_functions.F |
557 |
STREAMICE_CG_MAKE_A |
& exx+4*0.5*k1AtC_str(i,j,bi,bj)*exy) |
|
./pkg/streamice/streamice_cg_functions.F |
560 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
563 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
568 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
571 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
578 |
STREAMICE_CG_MAKE_A |
& grid_jacq_streamice(i,j,bi,bj,n) * |
|
./pkg/streamice/streamice_cg_functions.F |
579 |
STREAMICE_CG_MAKE_A |
& visc_streamice(i,j,bi,bj) * phival(inodx,inody) * |
|
./pkg/streamice/streamice_cg_functions.F |
580 |
STREAMICE_CG_MAKE_A |
& (4*k1AtC_str(i,j,bi,bj)*exx+2*k1AtC_str(i,j,bi,bj)* |
|
./pkg/streamice/streamice_cg_functions.F |
581 |
STREAMICE_CG_MAKE_A |
& eyy+4*0.5*k2AtC_str(i,j,bi,bj)*exy) |
|
./pkg/streamice/streamice_cg_functions.F |
584 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
587 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
592 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
595 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
602 |
STREAMICE_CG_MAKE_A |
& grid_jacq_streamice(i,j,bi,bj,n) * |
|
./pkg/streamice/streamice_cg_functions.F |
603 |
STREAMICE_CG_MAKE_A |
& tau_beta_eff_streamice (i,j,bi,bj) * uq |
|
./pkg/streamice/streamice_cg_functions.F |
606 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
609 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
614 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
617 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
624 |
STREAMICE_CG_MAKE_A |
& grid_jacq_streamice(i,j,bi,bj,n) * |
|
./pkg/streamice/streamice_cg_functions.F |
625 |
STREAMICE_CG_MAKE_A |
& tau_beta_eff_streamice (i,j,bi,bj) * vq |
|
./pkg/streamice/streamice_cg_functions.F |
628 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
631 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
636 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
639 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
65 |
STREAMICE_CG_ACTION |
INTEGER iq, jq, inode, jnode, i, j, bi, bj, ilq, jlq, m, n,Gi,Gj |
|
./pkg/streamice/streamice_cg_functions.F |
720 |
STREAMICE_CG_ADIAG |
INTEGER iq, jq, inode, jnode, i, j, bi, bj, ilq, jlq, m, n |
|
./pkg/streamice/streamice_cg_functions.F |
731 |
STREAMICE_CG_ADIAG |
DO i = 0, sNx+1 |
|
./pkg/streamice/streamice_cg_functions.F |
734 |
STREAMICE_CG_ADIAG |
IF (STREAMICE_hmask (i,j,bi,bj) .eq. 1.0) THEN |
|
./pkg/streamice/streamice_cg_functions.F |
745 |
STREAMICE_CG_ADIAG |
if (STREAMICE_umask(i-1+inode,j-1+jnode,bi,bj).eq.1.0 .or. |
|
./pkg/streamice/streamice_cg_functions.F |
746 |
STREAMICE_CG_ADIAG |
& STREAMICE_vmask(i-1+inode,j-1+jnode,bi,bj).eq.1.0) |
|
./pkg/streamice/streamice_cg_functions.F |
756 |
STREAMICE_CG_ADIAG |
ux = DPhi (i,j,bi,bj,m,n,1) |
|
./pkg/streamice/streamice_cg_functions.F |
757 |
STREAMICE_CG_ADIAG |
uy = DPhi (i,j,bi,bj,m,n,2) |
|
./pkg/streamice/streamice_cg_functions.F |
763 |
STREAMICE_CG_ADIAG |
exx = ux + k1AtC_str(i,j,bi,bj)*vq |
|
./pkg/streamice/streamice_cg_functions.F |
764 |
STREAMICE_CG_ADIAG |
eyy = vy + k2AtC_str(i,j,bi,bj)*uq |
|
./pkg/streamice/streamice_cg_functions.F |
766 |
STREAMICE_CG_ADIAG |
& k1AtC_str(i,j,bi,bj)*uq + k2AtC_str(i,j,bi,bj)*vq |
|
./pkg/streamice/streamice_cg_functions.F |
768 |
STREAMICE_CG_ADIAG |
uret(i-1+inode,j-1+jnode,bi,bj) = |
|
./pkg/streamice/streamice_cg_functions.F |
769 |
STREAMICE_CG_ADIAG |
& uret(i-1+inode,j-1+jnode,bi,bj) + .25 * |
|
./pkg/streamice/streamice_cg_functions.F |
76 |
STREAMICE_CG_ACTION |
DO i = is, ie |
|
./pkg/streamice/streamice_cg_functions.F |
770 |
STREAMICE_CG_ADIAG |
& grid_jacq_streamice(i,j,bi,bj,n) * |
|
./pkg/streamice/streamice_cg_functions.F |
771 |
STREAMICE_CG_ADIAG |
& visc_streamice(i,j,bi,bj) * ( |
|
./pkg/streamice/streamice_cg_functions.F |
772 |
STREAMICE_CG_ADIAG |
& DPhi(i,j,bi,bj,m,n,1)*(4*exx+2*eyy) + |
|
./pkg/streamice/streamice_cg_functions.F |
773 |
STREAMICE_CG_ADIAG |
& DPhi(i,j,bi,bj,m,n,2)*(2*exy)) |
|
./pkg/streamice/streamice_cg_functions.F |
775 |
STREAMICE_CG_ADIAG |
uret(i-1+inode,j-1+jnode,bi,bj) = |
|
./pkg/streamice/streamice_cg_functions.F |
776 |
STREAMICE_CG_ADIAG |
& uret(i-1+inode,j-1+jnode,bi,bj) + .25 * |
|
./pkg/streamice/streamice_cg_functions.F |
777 |
STREAMICE_CG_ADIAG |
& grid_jacq_streamice(i,j,bi,bj,n) * |
|
./pkg/streamice/streamice_cg_functions.F |
778 |
STREAMICE_CG_ADIAG |
& visc_streamice(i,j,bi,bj) * phival(inode,jnode) * |
|
./pkg/streamice/streamice_cg_functions.F |
779 |
STREAMICE_CG_ADIAG |
& (4*k2AtC_str(i,j,bi,bj)*eyy+2*k2AtC_str(i,j,bi,bj)*exx+ |
|
./pkg/streamice/streamice_cg_functions.F |
780 |
STREAMICE_CG_ADIAG |
& 4*0.5*k1AtC_str(i,j,bi,bj)*exy) |
|
./pkg/streamice/streamice_cg_functions.F |
783 |
STREAMICE_CG_ADIAG |
uret(i-1+inode,j-1+jnode,bi,bj) = |
|
./pkg/streamice/streamice_cg_functions.F |
784 |
STREAMICE_CG_ADIAG |
& uret(i-1+inode,j-1+jnode,bi,bj) + .25 * |
|
./pkg/streamice/streamice_cg_functions.F |
785 |
STREAMICE_CG_ADIAG |
& phival(inode,jnode) * grid_jacq_streamice(i,j,bi,bj,n) * |
|
./pkg/streamice/streamice_cg_functions.F |
786 |
STREAMICE_CG_ADIAG |
& tau_beta_eff_streamice (i,j,bi,bj) * uq |
|
./pkg/streamice/streamice_cg_functions.F |
789 |
STREAMICE_CG_ADIAG |
vx = DPhi (i,j,bi,bj,m,n,1) |
|
./pkg/streamice/streamice_cg_functions.F |
790 |
STREAMICE_CG_ADIAG |
vy = DPhi (i,j,bi,bj,m,n,2) |
|
./pkg/streamice/streamice_cg_functions.F |
796 |
STREAMICE_CG_ADIAG |
exx = ux + k1AtC_str(i,j,bi,bj)*vq |
|
./pkg/streamice/streamice_cg_functions.F |
797 |
STREAMICE_CG_ADIAG |
eyy = vy + k2AtC_str(i,j,bi,bj)*uq |
|
./pkg/streamice/streamice_cg_functions.F |
799 |
STREAMICE_CG_ADIAG |
& k1AtC_str(i,j,bi,bj)*uq + k2AtC_str(i,j,bi,bj)*vq |
|
./pkg/streamice/streamice_cg_functions.F |
801 |
STREAMICE_CG_ADIAG |
vret(i-1+inode,j-1+jnode,bi,bj) = |
|
./pkg/streamice/streamice_cg_functions.F |
802 |
STREAMICE_CG_ADIAG |
& vret(i-1+inode,j-1+jnode,bi,bj) + .25 * |
|
./pkg/streamice/streamice_cg_functions.F |
803 |
STREAMICE_CG_ADIAG |
& grid_jacq_streamice(i,j,bi,bj,n) * |
|
./pkg/streamice/streamice_cg_functions.F |
804 |
STREAMICE_CG_ADIAG |
& visc_streamice(i,j,bi,bj) * ( |
|
./pkg/streamice/streamice_cg_functions.F |
805 |
STREAMICE_CG_ADIAG |
& DPhi(i,j,bi,bj,m,n,2)*(4*eyy+2*exx) + |
|
./pkg/streamice/streamice_cg_functions.F |
806 |
STREAMICE_CG_ADIAG |
& DPhi(i,j,bi,bj,m,n,1)*(2*exy)) |
|
./pkg/streamice/streamice_cg_functions.F |
807 |
STREAMICE_CG_ADIAG |
vret(i-1+inode,j-1+jnode,bi,bj) = |
|
./pkg/streamice/streamice_cg_functions.F |
808 |
STREAMICE_CG_ADIAG |
& vret(i-1+inode,j-1+jnode,bi,bj) + .25 * |
|
./pkg/streamice/streamice_cg_functions.F |
809 |
STREAMICE_CG_ADIAG |
& grid_jacq_streamice(i,j,bi,bj,n) * |
|
./pkg/streamice/streamice_cg_functions.F |
80 |
STREAMICE_CG_ACTION |
Gi = (myXGlobalLo-1)+(bi-1)*sNx+i |
|
./pkg/streamice/streamice_cg_functions.F |
810 |
STREAMICE_CG_ADIAG |
& visc_streamice(i,j,bi,bj) * phival(inode,jnode) * |
|
./pkg/streamice/streamice_cg_functions.F |
811 |
STREAMICE_CG_ADIAG |
& (4*k1AtC_str(i,j,bi,bj)*exx+2*k1AtC_str(i,j,bi,bj)*eyy+ |
|
./pkg/streamice/streamice_cg_functions.F |
812 |
STREAMICE_CG_ADIAG |
& 4*0.5*k2AtC_str(i,j,bi,bj)*exy) |
|
./pkg/streamice/streamice_cg_functions.F |
815 |
STREAMICE_CG_ADIAG |
vret(i-1+inode,j-1+jnode,bi,bj) = |
|
./pkg/streamice/streamice_cg_functions.F |
816 |
STREAMICE_CG_ADIAG |
& vret(i-1+inode,j-1+jnode,bi,bj) + .25 * |
|
./pkg/streamice/streamice_cg_functions.F |
817 |
STREAMICE_CG_ADIAG |
& phival(inode,jnode) * grid_jacq_streamice(i,j,bi,bj,n) * |
|
./pkg/streamice/streamice_cg_functions.F |
818 |
STREAMICE_CG_ADIAG |
& tau_beta_eff_streamice (i,j,bi,bj) * vq |
|
./pkg/streamice/streamice_cg_functions.F |
83 |
STREAMICE_CG_ACTION |
IF (STREAMICE_hmask (i,j,bi,bj) .eq. 1.0) THEN |
|
./pkg/streamice/streamice_cg_functions.F |
888 |
STREAMICE_CG_BOUND_VALS |
INTEGER iq, jq, inode, jnode, i, j, bi, bj, ilq, jlq, m, n |
|
./pkg/streamice/streamice_cg_functions.F |
899 |
STREAMICE_CG_BOUND_VALS |
DO i = 0, sNx+1 |
|
./pkg/streamice/streamice_cg_functions.F |
902 |
STREAMICE_CG_BOUND_VALS |
IF ((STREAMICE_hmask (i,j,bi,bj) .eq. 1.0) .AND. |
|
./pkg/streamice/streamice_cg_functions.F |
903 |
STREAMICE_CG_BOUND_VALS |
& ((STREAMICE_umask(i,j,bi,bj).eq.3.0) .OR. |
|
./pkg/streamice/streamice_cg_functions.F |
904 |
STREAMICE_CG_BOUND_VALS |
& (STREAMICE_umask(i,j+1,bi,bj).eq.3.0) .OR. |
|
./pkg/streamice/streamice_cg_functions.F |
905 |
STREAMICE_CG_BOUND_VALS |
& (STREAMICE_umask(i+1,j,bi,bj).eq.3.0) .OR. |
|
./pkg/streamice/streamice_cg_functions.F |
906 |
STREAMICE_CG_BOUND_VALS |
& (STREAMICE_umask(i+1,j+1,bi,bj).eq.3.0) .OR. |
|
./pkg/streamice/streamice_cg_functions.F |
907 |
STREAMICE_CG_BOUND_VALS |
& (STREAMICE_vmask(i,j,bi,bj).eq.3.0) .OR. |
|
./pkg/streamice/streamice_cg_functions.F |
908 |
STREAMICE_CG_BOUND_VALS |
& (STREAMICE_vmask(i,j+1,bi,bj).eq.3.0) .OR. |
|
./pkg/streamice/streamice_cg_functions.F |
909 |
STREAMICE_CG_BOUND_VALS |
& (STREAMICE_vmask(i+1,j,bi,bj).eq.3.0) .OR. |
|
./pkg/streamice/streamice_cg_functions.F |
90 |
STREAMICE_CG_ACTION |
uq = u(i,j,bi,bj) * Xquad(3-iq) * Xquad(3-jq) + |
|
./pkg/streamice/streamice_cg_functions.F |
910 |
STREAMICE_CG_BOUND_VALS |
& (STREAMICE_vmask(i+1,j+1,bi,bj).eq.3.0))) THEN |
|
./pkg/streamice/streamice_cg_functions.F |
917 |
STREAMICE_CG_BOUND_VALS |
uq = u_bdry_values_SI(i,j,bi,bj)*Xquad(3-iq)*Xquad(3-jq)+ |
|
./pkg/streamice/streamice_cg_functions.F |
918 |
STREAMICE_CG_BOUND_VALS |
& u_bdry_values_SI(i+1,j,bi,bj)*Xquad(iq)*Xquad(3-jq)+ |
|
./pkg/streamice/streamice_cg_functions.F |
919 |
STREAMICE_CG_BOUND_VALS |
& u_bdry_values_SI(i,j+1,bi,bj)*Xquad(3-iq)*Xquad(jq)+ |
|
./pkg/streamice/streamice_cg_functions.F |
91 |
STREAMICE_CG_ACTION |
& u(i+1,j,bi,bj) * Xquad(iq) * Xquad(3-jq) + |
|
./pkg/streamice/streamice_cg_functions.F |
920 |
STREAMICE_CG_BOUND_VALS |
& u_bdry_values_SI(i+1,j+1,bi,bj)*Xquad(iq)*Xquad(jq) |
|
./pkg/streamice/streamice_cg_functions.F |
921 |
STREAMICE_CG_BOUND_VALS |
vq = v_bdry_values_SI(i,j,bi,bj)*Xquad(3-iq)*Xquad(3-jq)+ |
|
./pkg/streamice/streamice_cg_functions.F |
922 |
STREAMICE_CG_BOUND_VALS |
& v_bdry_values_SI(i+1,j,bi,bj)*Xquad(iq)*Xquad(3-jq)+ |
|
./pkg/streamice/streamice_cg_functions.F |
923 |
STREAMICE_CG_BOUND_VALS |
& v_bdry_values_SI(i,j+1,bi,bj)*Xquad(3-iq)*Xquad(jq)+ |
|
./pkg/streamice/streamice_cg_functions.F |
924 |
STREAMICE_CG_BOUND_VALS |
& v_bdry_values_SI(i+1,j+1,bi,bj)*Xquad(iq)*Xquad(jq) |
|
./pkg/streamice/streamice_cg_functions.F |
925 |
STREAMICE_CG_BOUND_VALS |
ux = u_bdry_values_SI(i,j,bi,bj) * DPhi(i,j,bi,bj,1,n,1) + |
|
./pkg/streamice/streamice_cg_functions.F |
926 |
STREAMICE_CG_BOUND_VALS |
& u_bdry_values_SI(i+1,j,bi,bj) * DPhi(i,j,bi,bj,2,n,1) + |
|
./pkg/streamice/streamice_cg_functions.F |
927 |
STREAMICE_CG_BOUND_VALS |
& u_bdry_values_SI(i,j+1,bi,bj) * DPhi(i,j,bi,bj,3,n,1) + |
|
./pkg/streamice/streamice_cg_functions.F |
928 |
STREAMICE_CG_BOUND_VALS |
& u_bdry_values_SI(i+1,j+1,bi,bj) * DPhi(i,j,bi,bj,4,n,1) |
|
./pkg/streamice/streamice_cg_functions.F |
929 |
STREAMICE_CG_BOUND_VALS |
uy = u_bdry_values_SI(i,j,bi,bj) * DPhi(i,j,bi,bj,1,n,2) + |
|
./pkg/streamice/streamice_cg_functions.F |
92 |
STREAMICE_CG_ACTION |
& u(i,j+1,bi,bj) * Xquad(3-iq) * Xquad(jq) + |
|
./pkg/streamice/streamice_cg_functions.F |
930 |
STREAMICE_CG_BOUND_VALS |
& u_bdry_values_SI(i+1,j,bi,bj) * DPhi(i,j,bi,bj,2,n,2) + |
|
./pkg/streamice/streamice_cg_functions.F |
931 |
STREAMICE_CG_BOUND_VALS |
& u_bdry_values_SI(i,j+1,bi,bj) * DPhi(i,j,bi,bj,3,n,2) + |
|
./pkg/streamice/streamice_cg_functions.F |
932 |
STREAMICE_CG_BOUND_VALS |
& u_bdry_values_SI(i+1,j+1,bi,bj) * DPhi(i,j,bi,bj,4,n,2) |
|
./pkg/streamice/streamice_cg_functions.F |
933 |
STREAMICE_CG_BOUND_VALS |
vx = v_bdry_values_SI(i,j,bi,bj) * DPhi(i,j,bi,bj,1,n,1) + |
|
./pkg/streamice/streamice_cg_functions.F |
934 |
STREAMICE_CG_BOUND_VALS |
& v_bdry_values_SI(i+1,j,bi,bj) * DPhi(i,j,bi,bj,2,n,1) + |
|
./pkg/streamice/streamice_cg_functions.F |
935 |
STREAMICE_CG_BOUND_VALS |
& v_bdry_values_SI(i,j+1,bi,bj) * DPhi(i,j,bi,bj,3,n,1) + |
|
./pkg/streamice/streamice_cg_functions.F |
936 |
STREAMICE_CG_BOUND_VALS |
& v_bdry_values_SI(i+1,j+1,bi,bj) * DPhi(i,j,bi,bj,4,n,1) |
|
./pkg/streamice/streamice_cg_functions.F |
937 |
STREAMICE_CG_BOUND_VALS |
vy = v_bdry_values_SI(i,j,bi,bj) * DPhi(i,j,bi,bj,1,n,2) + |
|
./pkg/streamice/streamice_cg_functions.F |
938 |
STREAMICE_CG_BOUND_VALS |
& v_bdry_values_SI(i+1,j,bi,bj) * DPhi(i,j,bi,bj,2,n,2) + |
|
./pkg/streamice/streamice_cg_functions.F |
939 |
STREAMICE_CG_BOUND_VALS |
& v_bdry_values_SI(i,j+1,bi,bj) * DPhi(i,j,bi,bj,3,n,2) + |
|
./pkg/streamice/streamice_cg_functions.F |
93 |
STREAMICE_CG_ACTION |
& u(i+1,j+1,bi,bj) * Xquad(iq) * Xquad(jq) |
|
./pkg/streamice/streamice_cg_functions.F |
940 |
STREAMICE_CG_BOUND_VALS |
& v_bdry_values_SI(i+1,j+1,bi,bj) * DPhi(i,j,bi,bj,4,n,2) |
|
./pkg/streamice/streamice_cg_functions.F |
941 |
STREAMICE_CG_BOUND_VALS |
exx = ux + k1AtC_str(i,j,bi,bj)*vq |
|
./pkg/streamice/streamice_cg_functions.F |
942 |
STREAMICE_CG_BOUND_VALS |
eyy = vy + k2AtC_str(i,j,bi,bj)*uq |
|
./pkg/streamice/streamice_cg_functions.F |
944 |
STREAMICE_CG_BOUND_VALS |
& k1AtC_str(i,j,bi,bj)*uq + k2AtC_str(i,j,bi,bj)*vq |
|
./pkg/streamice/streamice_cg_functions.F |
94 |
STREAMICE_CG_ACTION |
vq = v(i,j,bi,bj) * Xquad(3-iq) * Xquad(3-jq) + |
|
./pkg/streamice/streamice_cg_functions.F |
957 |
STREAMICE_CG_BOUND_VALS |
if (STREAMICE_umask(i-1+inode,j-1+jnode,bi,bj).eq.1.0) then |
|
./pkg/streamice/streamice_cg_functions.F |
95 |
STREAMICE_CG_ACTION |
& v(i+1,j,bi,bj) * Xquad(iq) * Xquad(3-jq) + |
|
./pkg/streamice/streamice_cg_functions.F |
960 |
STREAMICE_CG_BOUND_VALS |
uret(i-1+inode,j-1+jnode,bi,bj) = |
|
./pkg/streamice/streamice_cg_functions.F |
961 |
STREAMICE_CG_BOUND_VALS |
& uret(i-1+inode,j-1+jnode,bi,bj) + .25 * |
|
./pkg/streamice/streamice_cg_functions.F |
962 |
STREAMICE_CG_BOUND_VALS |
& grid_jacq_streamice(i,j,bi,bj,n) * |
|
./pkg/streamice/streamice_cg_functions.F |
963 |
STREAMICE_CG_BOUND_VALS |
& visc_streamice(i,j,bi,bj) * ( |
|
./pkg/streamice/streamice_cg_functions.F |
964 |
STREAMICE_CG_BOUND_VALS |
& DPhi(i,j,bi,bj,m,n,1)*(4*exx+2*eyy) + |
|
./pkg/streamice/streamice_cg_functions.F |
965 |
STREAMICE_CG_BOUND_VALS |
& DPhi(i,j,bi,bj,m,n,2)*(2*exy)) |
|
./pkg/streamice/streamice_cg_functions.F |
968 |
STREAMICE_CG_BOUND_VALS |
uret(i-1+inode,j-1+jnode,bi,bj) = |
|
./pkg/streamice/streamice_cg_functions.F |
969 |
STREAMICE_CG_BOUND_VALS |
& uret(i-1+inode,j-1+jnode,bi,bj) + .25 * |
|
./pkg/streamice/streamice_cg_functions.F |
96 |
STREAMICE_CG_ACTION |
& v(i,j+1,bi,bj) * Xquad(3-iq) * Xquad(jq) + |
|
./pkg/streamice/streamice_cg_functions.F |
970 |
STREAMICE_CG_BOUND_VALS |
& grid_jacq_streamice(i,j,bi,bj,n) * |
|
./pkg/streamice/streamice_cg_functions.F |
971 |
STREAMICE_CG_BOUND_VALS |
& visc_streamice(i,j,bi,bj) * phival(inode,jnode) * |
|
./pkg/streamice/streamice_cg_functions.F |
972 |
STREAMICE_CG_BOUND_VALS |
& (4*k2AtC_str(i,j,bi,bj)*eyy+2*k2AtC_str(i,j,bi,bj)*exx+ |
|
./pkg/streamice/streamice_cg_functions.F |
973 |
STREAMICE_CG_BOUND_VALS |
& 4*0.5*k1AtC_str(i,j,bi,bj)*exy) |
|
./pkg/streamice/streamice_cg_functions.F |
977 |
STREAMICE_CG_BOUND_VALS |
uret(i-1+inode,j-1+jnode,bi,bj) = |
|
./pkg/streamice/streamice_cg_functions.F |
978 |
STREAMICE_CG_BOUND_VALS |
& uret(i-1+inode,j-1+jnode,bi,bj) + .25 * |
|
./pkg/streamice/streamice_cg_functions.F |
979 |
STREAMICE_CG_BOUND_VALS |
& phival(inode,jnode) * grid_jacq_streamice(i,j,bi,bj,n) * |
|
./pkg/streamice/streamice_cg_functions.F |
97 |
STREAMICE_CG_ACTION |
& v(i+1,j+1,bi,bj) * Xquad(iq) * Xquad(jq) |
|
./pkg/streamice/streamice_cg_functions.F |
980 |
STREAMICE_CG_BOUND_VALS |
& tau_beta_eff_streamice (i,j,bi,bj) * uq |
|
./pkg/streamice/streamice_cg_functions.F |
985 |
STREAMICE_CG_BOUND_VALS |
if (STREAMICE_vmask(i-1+inode,j-1+jnode,bi,bj).eq.1.0) then |
|
./pkg/streamice/streamice_cg_functions.F |
986 |
STREAMICE_CG_BOUND_VALS |
vret(i-1+inode,j-1+jnode,bi,bj) = |
|
./pkg/streamice/streamice_cg_functions.F |
987 |
STREAMICE_CG_BOUND_VALS |
& vret(i-1+inode,j-1+jnode,bi,bj) + .25 * |
|
./pkg/streamice/streamice_cg_functions.F |
988 |
STREAMICE_CG_BOUND_VALS |
& grid_jacq_streamice(i,j,bi,bj,n) * |
|
./pkg/streamice/streamice_cg_functions.F |
989 |
STREAMICE_CG_BOUND_VALS |
& visc_streamice(i,j,bi,bj) * ( |
|
./pkg/streamice/streamice_cg_functions.F |
98 |
STREAMICE_CG_ACTION |
ux = u(i,j,bi,bj) * DPhi(i,j,bi,bj,1,n,1) + |
|
./pkg/streamice/streamice_cg_functions.F |
990 |
STREAMICE_CG_BOUND_VALS |
& DPhi(i,j,bi,bj,m,n,2)*(4*eyy+2*exx) + |
|
./pkg/streamice/streamice_cg_functions.F |
991 |
STREAMICE_CG_BOUND_VALS |
& DPhi(i,j,bi,bj,m,n,1)*(2*exy)) |
|
./pkg/streamice/streamice_cg_functions.F |
992 |
STREAMICE_CG_BOUND_VALS |
vret(i-1+inode,j-1+jnode,bi,bj) = |
|
./pkg/streamice/streamice_cg_functions.F |
993 |
STREAMICE_CG_BOUND_VALS |
& vret(i-1+inode,j-1+jnode,bi,bj) + .25 * |
|
./pkg/streamice/streamice_cg_functions.F |
994 |
STREAMICE_CG_BOUND_VALS |
& grid_jacq_streamice(i,j,bi,bj,n) * |
|
./pkg/streamice/streamice_cg_functions.F |
995 |
STREAMICE_CG_BOUND_VALS |
& visc_streamice(i,j,bi,bj) * phival(inode,jnode) * |
|
./pkg/streamice/streamice_cg_functions.F |
996 |
STREAMICE_CG_BOUND_VALS |
& (4*k1AtC_str(i,j,bi,bj)*exx+2*k1AtC_str(i,j,bi,bj)*eyy+ |
|
./pkg/streamice/streamice_cg_functions.F |
997 |
STREAMICE_CG_BOUND_VALS |
& 4*0.5*k2AtC_str(i,j,bi,bj)*exy) |
|
./pkg/streamice/streamice_cg_functions.F |
998 |
STREAMICE_CG_BOUND_VALS |
vret(i-1+inode,j-1+jnode,bi,bj) = |
|
./pkg/streamice/streamice_cg_functions.F |
999 |
STREAMICE_CG_BOUND_VALS |
& vret(i-1+inode,j-1+jnode,bi,bj) + .25 * |
|
./pkg/streamice/streamice_cg_functions.F |
99 |
STREAMICE_CG_ACTION |
& u(i+1,j,bi,bj) * DPhi(i,j,bi,bj,2,n,1) + |
|
./pkg/streamice/streamice_cg_solve.F |
135 |
STREAMICE_CG_SOLVE |
DO i=1,sNx |
|
./pkg/streamice/streamice_cg_solve.F |
136 |
STREAMICE_CG_SOLVE |
Zu_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve.F |
137 |
STREAMICE_CG_SOLVE |
Zv_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve.F |
138 |
STREAMICE_CG_SOLVE |
Ru_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve.F |
139 |
STREAMICE_CG_SOLVE |
Rv_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve.F |
140 |
STREAMICE_CG_SOLVE |
Au_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve.F |
141 |
STREAMICE_CG_SOLVE |
Av_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve.F |
142 |
STREAMICE_CG_SOLVE |
Du_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve.F |
143 |
STREAMICE_CG_SOLVE |
Dv_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve.F |
158 |
STREAMICE_CG_SOLVE |
DO i=1,sNx |
|
./pkg/streamice/streamice_cg_solve.F |
161 |
STREAMICE_CG_SOLVE |
Au_SI(i,j,bi,bj) = Au_SI(i,j,bi,bj) + |
|
./pkg/streamice/streamice_cg_solve.F |
162 |
STREAMICE_CG_SOLVE |
& A_uu(i,j,bi,bj,colx,coly)* |
|
./pkg/streamice/streamice_cg_solve.F |
163 |
STREAMICE_CG_SOLVE |
& cg_Uin(i+colx,j+coly,bi,bj)+ |
|
./pkg/streamice/streamice_cg_solve.F |
164 |
STREAMICE_CG_SOLVE |
& A_uv(i,j,bi,bj,colx,coly)* |
|
./pkg/streamice/streamice_cg_solve.F |
165 |
STREAMICE_CG_SOLVE |
& cg_Vin(i+colx,j+coly,bi,bj) |
|
./pkg/streamice/streamice_cg_solve.F |
168 |
STREAMICE_CG_SOLVE |
Av_SI(i,j,bi,bj) = Av_SI(i,j,bi,bj) + |
|
./pkg/streamice/streamice_cg_solve.F |
169 |
STREAMICE_CG_SOLVE |
& A_vu(i,j,bi,bj,colx,coly)* |
|
./pkg/streamice/streamice_cg_solve.F |
170 |
STREAMICE_CG_SOLVE |
& cg_Uin(i+colx,j+coly,bi,bj)+ |
|
./pkg/streamice/streamice_cg_solve.F |
171 |
STREAMICE_CG_SOLVE |
& A_vv(i,j,bi,bj,colx,coly)* |
|
./pkg/streamice/streamice_cg_solve.F |
172 |
STREAMICE_CG_SOLVE |
& cg_Vin(i+colx,j+coly,bi,bj) |
|
./pkg/streamice/streamice_cg_solve.F |
188 |
STREAMICE_CG_SOLVE |
DO i=1-OLx,sNx+OLx |
|
./pkg/streamice/streamice_cg_solve.F |
189 |
STREAMICE_CG_SOLVE |
Ru_SI(i,j,bi,bj)=cg_Bu(i,j,bi,bj)- |
|
./pkg/streamice/streamice_cg_solve.F |
190 |
STREAMICE_CG_SOLVE |
& Au_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve.F |
191 |
STREAMICE_CG_SOLVE |
Rv_SI(i,j,bi,bj)=cg_Bv(i,j,bi,bj)- |
|
./pkg/streamice/streamice_cg_solve.F |
192 |
STREAMICE_CG_SOLVE |
& Av_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve.F |
203 |
STREAMICE_CG_SOLVE |
DO i=1,sNx |
|
./pkg/streamice/streamice_cg_solve.F |
204 |
STREAMICE_CG_SOLVE |
IF (STREAMICE_umask(i,j,bi,bj).eq.1.0) |
|
./pkg/streamice/streamice_cg_solve.F |
205 |
STREAMICE_CG_SOLVE |
& dot_p1_tile(bi,bj)=dot_p1_tile(bi,bj)+Ru_SI(i,j,bi,bj)**2 |
|
./pkg/streamice/streamice_cg_solve.F |
206 |
STREAMICE_CG_SOLVE |
IF (STREAMICE_vmask(i,j,bi,bj).eq.1.0) |
|
./pkg/streamice/streamice_cg_solve.F |
207 |
STREAMICE_CG_SOLVE |
& dot_p1_tile(bi,bj)=dot_p1_tile(bi,bj)+Rv_SI(i,j,bi,bj)**2 |
|
./pkg/streamice/streamice_cg_solve.F |
238 |
STREAMICE_CG_SOLVE |
DO i=1-OLx,sNx+OLx |
|
./pkg/streamice/streamice_cg_solve.F |
239 |
STREAMICE_CG_SOLVE |
IF (STREAMICE_umask(i,j,bi,bj).eq.1.0) |
|
./pkg/streamice/streamice_cg_solve.F |
240 |
STREAMICE_CG_SOLVE |
& Zu_SI(i,j,bi,bj)=Ru_SI(i,j,bi,bj) / DIAGu_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve.F |
241 |
STREAMICE_CG_SOLVE |
IF (STREAMICE_vmask(i,j,bi,bj).eq.1.0) |
|
./pkg/streamice/streamice_cg_solve.F |
242 |
STREAMICE_CG_SOLVE |
& Zv_SI(i,j,bi,bj)=Rv_SI(i,j,bi,bj) / DIAGv_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve.F |
254 |
STREAMICE_CG_SOLVE |
DO i=1-OLx,sNx+OLx |
|
./pkg/streamice/streamice_cg_solve.F |
255 |
STREAMICE_CG_SOLVE |
Du_SI(i,j,bi,bj)=Zu_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve.F |
256 |
STREAMICE_CG_SOLVE |
Dv_SI(i,j,bi,bj)=Zv_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve.F |
297 |
STREAMICE_CG_SOLVE |
DO i=1-OLx,sNx+OLx |
|
./pkg/streamice/streamice_cg_solve.F |
298 |
STREAMICE_CG_SOLVE |
Au_SI(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve.F |
299 |
STREAMICE_CG_SOLVE |
Av_SI(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve.F |
312 |
STREAMICE_CG_SOLVE |
DO i=is,ie |
|
./pkg/streamice/streamice_cg_solve.F |
315 |
STREAMICE_CG_SOLVE |
Au_SI(i,j,bi,bj) = Au_SI(i,j,bi,bj) + |
|
./pkg/streamice/streamice_cg_solve.F |
316 |
STREAMICE_CG_SOLVE |
& A_uu(i,j,bi,bj,colx,coly)* |
|
./pkg/streamice/streamice_cg_solve.F |
317 |
STREAMICE_CG_SOLVE |
& Du_SI(i+colx,j+coly,bi,bj)+ |
|
./pkg/streamice/streamice_cg_solve.F |
318 |
STREAMICE_CG_SOLVE |
& A_uv(i,j,bi,bj,colx,coly)* |
|
./pkg/streamice/streamice_cg_solve.F |
319 |
STREAMICE_CG_SOLVE |
& Dv_SI(i+colx,j+coly,bi,bj) |
|
./pkg/streamice/streamice_cg_solve.F |
320 |
STREAMICE_CG_SOLVE |
Av_SI(i,j,bi,bj) = Av_SI(i,j,bi,bj) + |
|
./pkg/streamice/streamice_cg_solve.F |
321 |
STREAMICE_CG_SOLVE |
& A_vu(i,j,bi,bj,colx,coly)* |
|
./pkg/streamice/streamice_cg_solve.F |
322 |
STREAMICE_CG_SOLVE |
& Du_SI(i+colx,j+coly,bi,bj)+ |
|
./pkg/streamice/streamice_cg_solve.F |
323 |
STREAMICE_CG_SOLVE |
& A_vv(i,j,bi,bj,colx,coly)* |
|
./pkg/streamice/streamice_cg_solve.F |
324 |
STREAMICE_CG_SOLVE |
& Dv_SI(i+colx,j+coly,bi,bj) |
|
./pkg/streamice/streamice_cg_solve.F |
357 |
STREAMICE_CG_SOLVE |
DO i=1,sNx |
|
./pkg/streamice/streamice_cg_solve.F |
358 |
STREAMICE_CG_SOLVE |
IF (STREAMICE_umask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_cg_solve.F |
359 |
STREAMICE_CG_SOLVE |
dot_p1_tile(bi,bj)=dot_p1_tile(bi,bj)+Zu_SI(i,j,bi,bj)* |
|
./pkg/streamice/streamice_cg_solve.F |
360 |
STREAMICE_CG_SOLVE |
& Ru_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve.F |
361 |
STREAMICE_CG_SOLVE |
dot_p2_tile(bi,bj)=dot_p2_tile(bi,bj)+Du_SI(i,j,bi,bj)* |
|
./pkg/streamice/streamice_cg_solve.F |
362 |
STREAMICE_CG_SOLVE |
& Au_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve.F |
364 |
STREAMICE_CG_SOLVE |
IF (STREAMICE_vmask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_cg_solve.F |
365 |
STREAMICE_CG_SOLVE |
dot_p1_tile(bi,bj)=dot_p1_tile(bi,bj)+Zv_SI(i,j,bi,bj)* |
|
./pkg/streamice/streamice_cg_solve.F |
366 |
STREAMICE_CG_SOLVE |
& Rv_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve.F |
367 |
STREAMICE_CG_SOLVE |
dot_p2_tile(bi,bj)=dot_p2_tile(bi,bj)+Dv_SI(i,j,bi,bj)* |
|
./pkg/streamice/streamice_cg_solve.F |
368 |
STREAMICE_CG_SOLVE |
& Av_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve.F |
382 |
STREAMICE_CG_SOLVE |
DO i=1-OLx,sNx+OLx |
|
./pkg/streamice/streamice_cg_solve.F |
384 |
STREAMICE_CG_SOLVE |
IF (STREAMICE_umask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_cg_solve.F |
385 |
STREAMICE_CG_SOLVE |
cg_Uin(i,j,bi,bj)=cg_Uin(i,j,bi,bj)+ |
|
./pkg/streamice/streamice_cg_solve.F |
386 |
STREAMICE_CG_SOLVE |
& alpha_k*Du_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve.F |
387 |
STREAMICE_CG_SOLVE |
Ru_old_SI(i,j,bi,bj) = Ru_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve.F |
388 |
STREAMICE_CG_SOLVE |
Zu_old_SI(i,j,bi,bj) = Zu_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve.F |
389 |
STREAMICE_CG_SOLVE |
Ru_SI(i,j,bi,bj) = Ru_SI(i,j,bi,bj)- |
|
./pkg/streamice/streamice_cg_solve.F |
390 |
STREAMICE_CG_SOLVE |
& alpha_k*Au_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve.F |
391 |
STREAMICE_CG_SOLVE |
Zu_SI(i,j,bi,bj) = Ru_SI(i,j,bi,bj) / |
|
./pkg/streamice/streamice_cg_solve.F |
392 |
STREAMICE_CG_SOLVE |
& DIAGu_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve.F |
395 |
STREAMICE_CG_SOLVE |
IF (STREAMICE_vmask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_cg_solve.F |
396 |
STREAMICE_CG_SOLVE |
cg_Vin(i,j,bi,bj)=cg_Vin(i,j,bi,bj)+ |
|
./pkg/streamice/streamice_cg_solve.F |
397 |
STREAMICE_CG_SOLVE |
& alpha_k*Dv_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve.F |
398 |
STREAMICE_CG_SOLVE |
Rv_old_SI(i,j,bi,bj) = Rv_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve.F |
399 |
STREAMICE_CG_SOLVE |
Zv_old_SI(i,j,bi,bj) = Zv_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve.F |
400 |
STREAMICE_CG_SOLVE |
Rv_SI(i,j,bi,bj) = Rv_SI(i,j,bi,bj)- |
|
./pkg/streamice/streamice_cg_solve.F |
401 |
STREAMICE_CG_SOLVE |
& alpha_k*Av_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve.F |
402 |
STREAMICE_CG_SOLVE |
Zv_SI(i,j,bi,bj) = Rv_SI(i,j,bi,bj) / |
|
./pkg/streamice/streamice_cg_solve.F |
403 |
STREAMICE_CG_SOLVE |
& DIAGv_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve.F |
421 |
STREAMICE_CG_SOLVE |
DO i=1,sNx |
|
./pkg/streamice/streamice_cg_solve.F |
423 |
STREAMICE_CG_SOLVE |
IF (STREAMICE_umask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_cg_solve.F |
424 |
STREAMICE_CG_SOLVE |
dot_p1_tile(bi,bj)=dot_p1_tile(bi,bj)+Zu_SI(i,j,bi,bj)* |
|
./pkg/streamice/streamice_cg_solve.F |
425 |
STREAMICE_CG_SOLVE |
& Ru_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve.F |
426 |
STREAMICE_CG_SOLVE |
dot_p2_tile(bi,bj)=dot_p2_tile(bi,bj)+Zu_old_SI(i,j,bi,bj)* |
|
./pkg/streamice/streamice_cg_solve.F |
427 |
STREAMICE_CG_SOLVE |
& Ru_old_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve.F |
430 |
STREAMICE_CG_SOLVE |
IF (STREAMICE_vmask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_cg_solve.F |
431 |
STREAMICE_CG_SOLVE |
dot_p1_tile(bi,bj)=dot_p1_tile(bi,bj)+Zv_SI(i,j,bi,bj)* |
|
./pkg/streamice/streamice_cg_solve.F |
432 |
STREAMICE_CG_SOLVE |
& Rv_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve.F |
433 |
STREAMICE_CG_SOLVE |
dot_p2_tile(bi,bj)=dot_p2_tile(bi,bj)+Zv_old_SI(i,j,bi,bj)* |
|
./pkg/streamice/streamice_cg_solve.F |
434 |
STREAMICE_CG_SOLVE |
& Rv_old_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve.F |
450 |
STREAMICE_CG_SOLVE |
DO i=1-OLx,sNx+OLx |
|
./pkg/streamice/streamice_cg_solve.F |
451 |
STREAMICE_CG_SOLVE |
IF (STREAMICE_umask(i,j,bi,bj).eq.1.0) |
|
./pkg/streamice/streamice_cg_solve.F |
452 |
STREAMICE_CG_SOLVE |
& Du_SI(i,j,bi,bj)=beta_k*Du_SI(i,j,bi,bj)+ |
|
./pkg/streamice/streamice_cg_solve.F |
453 |
STREAMICE_CG_SOLVE |
& Zu_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve.F |
454 |
STREAMICE_CG_SOLVE |
IF (STREAMICE_vmask(i,j,bi,bj).eq.1.0) |
|
./pkg/streamice/streamice_cg_solve.F |
455 |
STREAMICE_CG_SOLVE |
& Dv_SI(i,j,bi,bj)=beta_k*Dv_SI(i,j,bi,bj)+ |
|
./pkg/streamice/streamice_cg_solve.F |
456 |
STREAMICE_CG_SOLVE |
& Zv_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve.F |
471 |
STREAMICE_CG_SOLVE |
DO i=1,sNx |
|
./pkg/streamice/streamice_cg_solve.F |
472 |
STREAMICE_CG_SOLVE |
IF (STREAMICE_umask(i,j,bi,bj).eq.1.0) |
|
./pkg/streamice/streamice_cg_solve.F |
473 |
STREAMICE_CG_SOLVE |
& dot_p1_tile(bi,bj)=dot_p1_tile(bi,bj)+Ru_SI(i,j,bi,bj)**2 |
|
./pkg/streamice/streamice_cg_solve.F |
474 |
STREAMICE_CG_SOLVE |
IF (STREAMICE_vmask(i,j,bi,bj).eq.1.0) |
|
./pkg/streamice/streamice_cg_solve.F |
475 |
STREAMICE_CG_SOLVE |
& dot_p1_tile(bi,bj)=dot_p1_tile(bi,bj)+Rv_SI(i,j,bi,bj)**2 |
|
./pkg/streamice/streamice_cg_solve.F |
67 |
STREAMICE_CG_SOLVE |
INTEGER i, j, bi, bj, cg_halo, conv_flag |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
121 |
STREAMICE_CG_SOLVE_MATFREE |
DO i=1-OLx,sNx+OLx |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
122 |
STREAMICE_CG_SOLVE_MATFREE |
Ru_SI(i,j,bi,bj)=cg_Bu(i,j,bi,bj)- |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
123 |
STREAMICE_CG_SOLVE_MATFREE |
& Au_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
124 |
STREAMICE_CG_SOLVE_MATFREE |
Rv_SI(i,j,bi,bj)=cg_Bv(i,j,bi,bj)- |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
125 |
STREAMICE_CG_SOLVE_MATFREE |
& Av_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
136 |
STREAMICE_CG_SOLVE_MATFREE |
DO i=1,sNx |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
137 |
STREAMICE_CG_SOLVE_MATFREE |
IF (STREAMICE_umask(i,j,bi,bj).eq.1.0) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
138 |
STREAMICE_CG_SOLVE_MATFREE |
& dot_p1_tile(bi,bj)=dot_p1_tile(bi,bj)+Ru_SI(i,j,bi,bj)**2 |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
139 |
STREAMICE_CG_SOLVE_MATFREE |
IF (STREAMICE_vmask(i,j,bi,bj).eq.1.0) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
140 |
STREAMICE_CG_SOLVE_MATFREE |
& dot_p1_tile(bi,bj)=dot_p1_tile(bi,bj)+Rv_SI(i,j,bi,bj)**2 |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
154 |
STREAMICE_CG_SOLVE_MATFREE |
DO i=1-OLx,sNx+OLx |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
155 |
STREAMICE_CG_SOLVE_MATFREE |
IF (STREAMICE_umask(i,j,bi,bj).eq.1.0) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
156 |
STREAMICE_CG_SOLVE_MATFREE |
& Zu_SI(i,j,bi,bj)=Ru_SI(i,j,bi,bj) / DIAGu_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
157 |
STREAMICE_CG_SOLVE_MATFREE |
IF (STREAMICE_vmask(i,j,bi,bj).eq.1.0) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
158 |
STREAMICE_CG_SOLVE_MATFREE |
& Zv_SI(i,j,bi,bj)=Rv_SI(i,j,bi,bj) / DIAGv_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
170 |
STREAMICE_CG_SOLVE_MATFREE |
DO i=1-OLx,sNx+OLx |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
171 |
STREAMICE_CG_SOLVE_MATFREE |
Du_SI(i,j,bi,bj)=Zu_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
172 |
STREAMICE_CG_SOLVE_MATFREE |
Dv_SI(i,j,bi,bj)=Zv_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
213 |
STREAMICE_CG_SOLVE_MATFREE |
DO i=1-OLx,sNx+OLx |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
214 |
STREAMICE_CG_SOLVE_MATFREE |
Au_SI(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
215 |
STREAMICE_CG_SOLVE_MATFREE |
Av_SI(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
273 |
STREAMICE_CG_SOLVE_MATFREE |
DO i=1,sNx |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
274 |
STREAMICE_CG_SOLVE_MATFREE |
IF (STREAMICE_umask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
275 |
STREAMICE_CG_SOLVE_MATFREE |
dot_p1_tile(bi,bj)=dot_p1_tile(bi,bj)+Zu_SI(i,j,bi,bj)* |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
276 |
STREAMICE_CG_SOLVE_MATFREE |
& Ru_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
277 |
STREAMICE_CG_SOLVE_MATFREE |
dot_p2_tile(bi,bj)=dot_p2_tile(bi,bj)+Du_SI(i,j,bi,bj)* |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
278 |
STREAMICE_CG_SOLVE_MATFREE |
& Au_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
280 |
STREAMICE_CG_SOLVE_MATFREE |
IF (STREAMICE_vmask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
281 |
STREAMICE_CG_SOLVE_MATFREE |
dot_p1_tile(bi,bj)=dot_p1_tile(bi,bj)+Zv_SI(i,j,bi,bj)* |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
282 |
STREAMICE_CG_SOLVE_MATFREE |
& Rv_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
283 |
STREAMICE_CG_SOLVE_MATFREE |
dot_p2_tile(bi,bj)=dot_p2_tile(bi,bj)+Dv_SI(i,j,bi,bj)* |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
284 |
STREAMICE_CG_SOLVE_MATFREE |
& Av_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
298 |
STREAMICE_CG_SOLVE_MATFREE |
DO i=1-OLx,sNx+OLx |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
300 |
STREAMICE_CG_SOLVE_MATFREE |
IF (STREAMICE_umask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
301 |
STREAMICE_CG_SOLVE_MATFREE |
cg_Uin(i,j,bi,bj)=cg_Uin(i,j,bi,bj)+ |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
302 |
STREAMICE_CG_SOLVE_MATFREE |
& alpha_k*Du_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
303 |
STREAMICE_CG_SOLVE_MATFREE |
Ru_old_SI(i,j,bi,bj) = Ru_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
304 |
STREAMICE_CG_SOLVE_MATFREE |
Zu_old_SI(i,j,bi,bj) = Zu_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
305 |
STREAMICE_CG_SOLVE_MATFREE |
Ru_SI(i,j,bi,bj) = Ru_SI(i,j,bi,bj)- |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
306 |
STREAMICE_CG_SOLVE_MATFREE |
& alpha_k*Au_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
307 |
STREAMICE_CG_SOLVE_MATFREE |
Zu_SI(i,j,bi,bj) = Ru_SI(i,j,bi,bj) / |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
308 |
STREAMICE_CG_SOLVE_MATFREE |
& DIAGu_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
311 |
STREAMICE_CG_SOLVE_MATFREE |
IF (STREAMICE_vmask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
312 |
STREAMICE_CG_SOLVE_MATFREE |
cg_Vin(i,j,bi,bj)=cg_Vin(i,j,bi,bj)+ |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
313 |
STREAMICE_CG_SOLVE_MATFREE |
& alpha_k*Dv_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
314 |
STREAMICE_CG_SOLVE_MATFREE |
Rv_old_SI(i,j,bi,bj) = Rv_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
315 |
STREAMICE_CG_SOLVE_MATFREE |
Zv_old_SI(i,j,bi,bj) = Zv_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
316 |
STREAMICE_CG_SOLVE_MATFREE |
Rv_SI(i,j,bi,bj) = Rv_SI(i,j,bi,bj)- |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
317 |
STREAMICE_CG_SOLVE_MATFREE |
& alpha_k*Av_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
318 |
STREAMICE_CG_SOLVE_MATFREE |
Zv_SI(i,j,bi,bj) = Rv_SI(i,j,bi,bj) / |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
319 |
STREAMICE_CG_SOLVE_MATFREE |
& DIAGv_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
337 |
STREAMICE_CG_SOLVE_MATFREE |
DO i=1,sNx |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
339 |
STREAMICE_CG_SOLVE_MATFREE |
IF (STREAMICE_umask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
340 |
STREAMICE_CG_SOLVE_MATFREE |
dot_p1_tile(bi,bj)=dot_p1_tile(bi,bj)+Zu_SI(i,j,bi,bj)* |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
341 |
STREAMICE_CG_SOLVE_MATFREE |
& Ru_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
342 |
STREAMICE_CG_SOLVE_MATFREE |
dot_p2_tile(bi,bj)=dot_p2_tile(bi,bj)+Zu_old_SI(i,j,bi,bj)* |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
343 |
STREAMICE_CG_SOLVE_MATFREE |
& Ru_old_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
346 |
STREAMICE_CG_SOLVE_MATFREE |
IF (STREAMICE_vmask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
347 |
STREAMICE_CG_SOLVE_MATFREE |
dot_p1_tile(bi,bj)=dot_p1_tile(bi,bj)+Zv_SI(i,j,bi,bj)* |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
348 |
STREAMICE_CG_SOLVE_MATFREE |
& Rv_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
349 |
STREAMICE_CG_SOLVE_MATFREE |
dot_p2_tile(bi,bj)=dot_p2_tile(bi,bj)+Zv_old_SI(i,j,bi,bj)* |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
350 |
STREAMICE_CG_SOLVE_MATFREE |
& Rv_old_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
366 |
STREAMICE_CG_SOLVE_MATFREE |
DO i=1-OLx,sNx+OLx |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
367 |
STREAMICE_CG_SOLVE_MATFREE |
IF (STREAMICE_umask(i,j,bi,bj).eq.1.0) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
368 |
STREAMICE_CG_SOLVE_MATFREE |
& Du_SI(i,j,bi,bj)=beta_k*Du_SI(i,j,bi,bj)+ |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
369 |
STREAMICE_CG_SOLVE_MATFREE |
& Zu_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
370 |
STREAMICE_CG_SOLVE_MATFREE |
IF (STREAMICE_vmask(i,j,bi,bj).eq.1.0) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
371 |
STREAMICE_CG_SOLVE_MATFREE |
& Dv_SI(i,j,bi,bj)=beta_k*Dv_SI(i,j,bi,bj)+ |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
372 |
STREAMICE_CG_SOLVE_MATFREE |
& Zv_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
387 |
STREAMICE_CG_SOLVE_MATFREE |
DO i=1,sNx |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
388 |
STREAMICE_CG_SOLVE_MATFREE |
IF (STREAMICE_umask(i,j,bi,bj).eq.1.0) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
389 |
STREAMICE_CG_SOLVE_MATFREE |
& dot_p1_tile(bi,bj)=dot_p1_tile(bi,bj)+Ru_SI(i,j,bi,bj)**2 |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
390 |
STREAMICE_CG_SOLVE_MATFREE |
IF (STREAMICE_vmask(i,j,bi,bj).eq.1.0) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
391 |
STREAMICE_CG_SOLVE_MATFREE |
& dot_p1_tile(bi,bj)=dot_p1_tile(bi,bj)+Rv_SI(i,j,bi,bj)**2 |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
46 |
STREAMICE_CG_SOLVE_MATFREE |
INTEGER i, j, bi, bj, cg_halo, conv_flag |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
63 |
STREAMICE_CG_SOLVE_MATFREE |
DO i=1,sNx |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
64 |
STREAMICE_CG_SOLVE_MATFREE |
Zu_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
65 |
STREAMICE_CG_SOLVE_MATFREE |
Zv_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
66 |
STREAMICE_CG_SOLVE_MATFREE |
Ru_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
67 |
STREAMICE_CG_SOLVE_MATFREE |
Rv_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
68 |
STREAMICE_CG_SOLVE_MATFREE |
Au_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
69 |
STREAMICE_CG_SOLVE_MATFREE |
Av_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
70 |
STREAMICE_CG_SOLVE_MATFREE |
Du_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
71 |
STREAMICE_CG_SOLVE_MATFREE |
Dv_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
119 |
STREAMICE_CG_SOLVE_PETSC |
DO i=0,nPx*nPy-1 |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
120 |
STREAMICE_CG_SOLVE_PETSC |
global_dofs = global_dofs + n_dofs_process (i) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
121 |
STREAMICE_CG_SOLVE_PETSC |
if (i.ge.1) THEN |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
122 |
STREAMICE_CG_SOLVE_PETSC |
n_dofs_cum_sum(i) = n_dofs_cum_sum(i-1)+ |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
123 |
STREAMICE_CG_SOLVE_PETSC |
& n_dofs_process(i-1) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
150 |
STREAMICE_CG_SOLVE_PETSC |
do i=1,local_dofs |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
151 |
STREAMICE_CG_SOLVE_PETSC |
indices(i) = i-1 + local_offset |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
153 |
STREAMICE_CG_SOLVE_PETSC |
do i=1,2*nSx*nSy*sNx*sNy |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
154 |
STREAMICE_CG_SOLVE_PETSC |
rhs_values (i) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
155 |
STREAMICE_CG_SOLVE_PETSC |
solution_values (i) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
163 |
STREAMICE_CG_SOLVE_PETSC |
DO i=1,sNx |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
165 |
STREAMICE_CG_SOLVE_PETSC |
dof_index = INT(streamice_petsc_dofs_u(i,j,bi,bj)) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
170 |
STREAMICE_CG_SOLVE_PETSC |
rhs_values(dof_index+1) = cg_Bu(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
171 |
STREAMICE_CG_SOLVE_PETSC |
solution_values(dof_index+1) = cg_Uin(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
177 |
STREAMICE_CG_SOLVE_PETSC |
dof_index = INT(streamice_petsc_dofs_v(i,j,bi,bj)) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
182 |
STREAMICE_CG_SOLVE_PETSC |
rhs_values(dof_index+1) = cg_Bv(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
183 |
STREAMICE_CG_SOLVE_PETSC |
solution_values(dof_index+1) = cg_Vin(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
226 |
STREAMICE_CG_SOLVE_PETSC |
DO i=1,sNx |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
228 |
STREAMICE_CG_SOLVE_PETSC |
dof_index = INT(streamice_petsc_dofs_u(i,j,bi,bj)) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
242 |
STREAMICE_CG_SOLVE_PETSC |
dof_index_col = streamice_petsc_dofs_u(i+colx,j+coly,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
249 |
STREAMICE_CG_SOLVE_PETSC |
mat_values (k,1) = A_uu(i,j,bi,bj,colx,coly) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
253 |
STREAMICE_CG_SOLVE_PETSC |
dof_index_col = streamice_petsc_dofs_v(i+colx,j+coly,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
259 |
STREAMICE_CG_SOLVE_PETSC |
mat_values (k,1) = A_uv(i,j,bi,bj,colx,coly) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
274 |
STREAMICE_CG_SOLVE_PETSC |
dof_index = INT(streamice_petsc_dofs_v(i,j,bi,bj)) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
288 |
STREAMICE_CG_SOLVE_PETSC |
dof_index_col = streamice_petsc_dofs_u(i+colx,j+coly,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
294 |
STREAMICE_CG_SOLVE_PETSC |
mat_values (k,1) = A_vu(i,j,bi,bj,colx,coly) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
298 |
STREAMICE_CG_SOLVE_PETSC |
dof_index_col = streamice_petsc_dofs_v(i+colx,j+coly,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
304 |
STREAMICE_CG_SOLVE_PETSC |
mat_values (k,1) = A_vv(i,j,bi,bj,colx,coly) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
420 |
STREAMICE_CG_SOLVE_PETSC |
DO i=1,sNx |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
422 |
STREAMICE_CG_SOLVE_PETSC |
dof_index = INT(streamice_petsc_dofs_u(i,j,bi,bj)) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
425 |
STREAMICE_CG_SOLVE_PETSC |
cg_Uin(i,j,bi,bj) = solution_values(dof_index+1) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
428 |
STREAMICE_CG_SOLVE_PETSC |
dof_index = INT(streamice_petsc_dofs_v(i,j,bi,bj)) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
431 |
STREAMICE_CG_SOLVE_PETSC |
cg_Vin(i,j,bi,bj) = solution_values(dof_index+1) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
72 |
STREAMICE_CG_SOLVE_PETSC |
INTEGER i, j, bi, bj, cg_halo, conv_flag |
|
./pkg/streamice/streamice_cg_wrapper.F |
117 |
STREAMICE_CG_WRAPPER |
DO i=1-OLy,sNx+OLy |
|
./pkg/streamice/streamice_cg_wrapper.F |
118 |
STREAMICE_CG_WRAPPER |
IF (STREAMICE_umask(i,j,bi,bj).ne.1.0) |
|
./pkg/streamice/streamice_cg_wrapper.F |
119 |
STREAMICE_CG_WRAPPER |
& cg_Uin(i,j,bi,bj)=0.0 |
|
./pkg/streamice/streamice_cg_wrapper.F |
120 |
STREAMICE_CG_WRAPPER |
IF (STREAMICE_vmask(i,j,bi,bj).ne.1.0) |
|
./pkg/streamice/streamice_cg_wrapper.F |
121 |
STREAMICE_CG_WRAPPER |
& cg_Vin(i,j,bi,bj)=0.0 |
|
./pkg/streamice/streamice_cg_wrapper.F |
283 |
STREAMICE_CG_WRAPPER |
DO i=1-OLy,sNx+OLy |
|
./pkg/streamice/streamice_cg_wrapper.F |
284 |
STREAMICE_CG_WRAPPER |
IF (STREAMICE_umask(i,j,bi,bj).eq.3.0) |
|
./pkg/streamice/streamice_cg_wrapper.F |
285 |
STREAMICE_CG_WRAPPER |
& cg_Uin(i,j,bi,bj)=u_bdry_values_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_wrapper.F |
286 |
STREAMICE_CG_WRAPPER |
IF (STREAMICE_vmask(i,j,bi,bj).eq.3.0) |
|
./pkg/streamice/streamice_cg_wrapper.F |
287 |
STREAMICE_CG_WRAPPER |
& cg_Vin(i,j,bi,bj)=v_bdry_values_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_wrapper.F |
54 |
STREAMICE_CG_WRAPPER |
INTEGER i, j, bi, bj |
|
./pkg/streamice/streamice_cg_wrapper.F |
61 |
STREAMICE_CG_WRAPPER |
DO i=1,sNx |
|
./pkg/streamice/streamice_cg_wrapper.F |
63 |
STREAMICE_CG_WRAPPER |
DIAGu_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_wrapper.F |
64 |
STREAMICE_CG_WRAPPER |
DIAGv_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_wrapper.F |
65 |
STREAMICE_CG_WRAPPER |
ubd_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_wrapper.F |
66 |
STREAMICE_CG_WRAPPER |
vbd_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_wrapper.F |
90 |
STREAMICE_CG_WRAPPER |
DO i=1-OLx,sNx+OLx |
|
./pkg/streamice/streamice_cg_wrapper.F |
91 |
STREAMICE_CG_WRAPPER |
RHSu_SI (i,j,bi,bj) = cg_tauU (i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_wrapper.F |
92 |
STREAMICE_CG_WRAPPER |
& - ubd_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_wrapper.F |
93 |
STREAMICE_CG_WRAPPER |
RHSv_SI (i,j,bi,bj) = cg_tauV (i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_wrapper.F |
94 |
STREAMICE_CG_WRAPPER |
& - vbd_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cost_surf_accum.F |
49 |
STREAMICE_COST_SURF_ACCUM |
integer i, j, k, bi, bj |
|
./pkg/streamice/streamice_cost_surf_accum.F |
86 |
STREAMICE_COST_SURF_ACCUM |
do i=1,sNx |
|
./pkg/streamice/streamice_cost_surf_accum.F |
89 |
STREAMICE_COST_SURF_ACCUM |
if (streamice_cost_mask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_cost_surf_accum.F |
92 |
STREAMICE_COST_SURF_ACCUM |
& streamice_wgt_surf * (S_obs(i,j,bi,bj)- |
|
./pkg/streamice/streamice_cost_surf_accum.F |
93 |
STREAMICE_COST_SURF_ACCUM |
& surf_el_streamice(i,j,bi,bj))**2 / Nx / Ny + |
|
./pkg/streamice/streamice_cost_surf_accum.F |
94 |
STREAMICE_COST_SURF_ACCUM |
& streamice_wgt_drift * (H_streamice(i,j,bi,bj)- |
|
./pkg/streamice/streamice_cost_surf_accum.F |
95 |
STREAMICE_COST_SURF_ACCUM |
& H_streamice_prev(i,j,bi,bj))**2 / Nx / Ny |
|
./pkg/streamice/streamice_diagnostics_state.F |
26 |
STREAMICE_DIAGNOSTICS_STATE |
INTEGER myIter, myThid, i, j, bi, bj |
|
./pkg/streamice/streamice_diagnostics_state.F |
55 |
STREAMICE_DIAGNOSTICS_STATE |
DO i=1-OLx,sNx+OLx |
|
./pkg/streamice/streamice_diagnostics_state.F |
56 |
STREAMICE_DIAGNOSTICS_STATE |
u_streamice_diag(i,j,bi,bj) = u_streamice(i,j,bi,bj)v |
|
./pkg/streamice/streamice_diagnostics_state.F |
57 |
STREAMICE_DIAGNOSTICS_STATE |
v_streamice_diag(i,j,bi,bj) = v_streamice(i,j,bi,bj)v |
|
./pkg/streamice/streamice_diagnostics_state.F |
58 |
STREAMICE_DIAGNOSTICS_STATE |
h_streamice_diag(i,j,bi,bj) = H_streamice(i,j,bi,bj)v |
|
./pkg/streamice/streamice_diagnostics_state.F |
59 |
STREAMICE_DIAGNOSTICS_STATE |
area_diag(i,j,bi,bj) = area_shelf_streamice(i,j,bi,bj)v |
|
./pkg/streamice/streamice_diagnostics_state.F |
61 |
STREAMICE_DIAGNOSTICS_STATE |
float_frac_diag(i,j,bi,bj) = |
|
./pkg/streamice/streamice_diagnostics_state.F |
62 |
STREAMICE_DIAGNOSTICS_STATE |
& float_frac_streamice(i,j,bi,bj)v |
|
./pkg/streamice/streamice_diagnostics_state.F |
64 |
STREAMICE_DIAGNOSTICS_STATE |
surf_diag(i,j,bi,bj) = |
|
./pkg/streamice/streamice_diagnostics_state.F |
65 |
STREAMICE_DIAGNOSTICS_STATE |
& surf_el_streamice(i,j,bi,bj)v |
|
./pkg/streamice/streamice_diagnostics_state.F |
67 |
STREAMICE_DIAGNOSTICS_STATE |
streamice_taubx_diag(i,j,bi,bj) = |
|
./pkg/streamice/streamice_diagnostics_state.F |
68 |
STREAMICE_DIAGNOSTICS_STATE |
$ streamice_taubx(i,j,bi,bj)v |
|
./pkg/streamice/streamice_diagnostics_state.F |
69 |
STREAMICE_DIAGNOSTICS_STATE |
streamice_tauby_diag(i,j,bi,bj) = |
|
./pkg/streamice/streamice_diagnostics_state.F |
70 |
STREAMICE_DIAGNOSTICS_STATE |
$ streamice_tauby(i,j,bi,bj)v |
|
./pkg/streamice/streamice_diagnostics_state.F |
71 |
STREAMICE_DIAGNOSTICS_STATE |
u_surf_diag(i,j,bi,bj) = streamice_u_surf(i,j,bi,bj)v |
|
./pkg/streamice/streamice_diagnostics_state.F |
72 |
STREAMICE_DIAGNOSTICS_STATE |
v_surf_diag(i,j,bi,bj) = streamice_v_surf(i,j,bi,bj)v |
|
./pkg/streamice/streamice_diagnostics_state.F |
75 |
STREAMICE_DIAGNOSTICS_STATE |
trac2d_diag(i,j,bi,bj)=trac2d(i,j,bi,bj)v |
|
./pkg/streamice/streamice_driving_stress.F |
104 |
STREAMICE_DRIVING_STRESS |
Gi = (myXGlobalLo-1)+(bi-1)*sNx+i |
|
./pkg/streamice/streamice_driving_stress.F |
107 |
STREAMICE_DRIVING_STRESS |
IF (streamice_umask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
109 |
STREAMICE_DRIVING_STRESS |
IF (streamice_hmask(i-1,j,bi,bj).eq.1.0.AND. |
|
./pkg/streamice/streamice_driving_stress.F |
110 |
STREAMICE_DRIVING_STRESS |
& streamice_hmask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
116 |
STREAMICE_DRIVING_STRESS |
taudx_si(i,j,bi,bj) = taudx_si(i,j,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress.F |
117 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dyG(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
119 |
STREAMICE_DRIVING_STRESS |
& (H_streamice(i,j,bi,bj)*avg_density(i,j,bi,bj)+ |
|
./pkg/streamice/streamice_driving_stress.F |
120 |
STREAMICE_DRIVING_STRESS |
& H_streamice(i-1,j,bi,bj)*avg_density(i-1,j,bi,bj)) * |
|
./pkg/streamice/streamice_driving_stress.F |
121 |
STREAMICE_DRIVING_STRESS |
& (surf_el_streamice(i,j,bi,bj)- |
|
./pkg/streamice/streamice_driving_stress.F |
122 |
STREAMICE_DRIVING_STRESS |
& surf_el_streamice(i-1,j,bi,bj)) |
|
./pkg/streamice/streamice_driving_stress.F |
125 |
STREAMICE_DRIVING_STRESS |
taudx_si(i,j,bi,bj) = taudx_si(i,j,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress.F |
127 |
STREAMICE_DRIVING_STRESS |
& streamice_bg_surf_slope_x * .25 * rA(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
128 |
STREAMICE_DRIVING_STRESS |
& (H_streamice(i-1,j,bi,bj) + H_streamice(i,j,bi,bj)) |
|
./pkg/streamice/streamice_driving_stress.F |
131 |
STREAMICE_DRIVING_STRESS |
ELSE IF (streamice_hmask(i-1,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
133 |
STREAMICE_DRIVING_STRESS |
IF (float_frac_streamice(i-1,j,bi,bj) .eq. 1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
136 |
STREAMICE_DRIVING_STRESS |
IF (R_low_si(i-1,j,bi,bj) .lt. 0. _d 0) then |
|
./pkg/streamice/streamice_driving_stress.F |
138 |
STREAMICE_DRIVING_STRESS |
IF (R_low(i-1,j,bi,bj) .lt. 0. _d 0) then |
|
./pkg/streamice/streamice_driving_stress.F |
145 |
STREAMICE_DRIVING_STRESS |
taudx_si(i,j,bi,bj) = taudx_si(i,j,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress.F |
146 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dyG(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
148 |
STREAMICE_DRIVING_STRESS |
& (avg_density(i-1,j,bi,bj) * H_streamice(i-1,j,bi,bj)**2- |
|
./pkg/streamice/streamice_driving_stress.F |
151 |
STREAMICE_DRIVING_STRESS |
& R_low_si(i-1,j,bi,bj)**2) |
|
./pkg/streamice/streamice_driving_stress.F |
154 |
STREAMICE_DRIVING_STRESS |
& R_low(i-1,j,bi,bj)**2) |
|
./pkg/streamice/streamice_driving_stress.F |
162 |
STREAMICE_DRIVING_STRESS |
if (H_streamice(i-1,j,bi,bj).lt.firn_depth) then |
|
./pkg/streamice/streamice_driving_stress.F |
163 |
STREAMICE_DRIVING_STRESS |
taudx_si(i,j,bi,bj) = taudx_si(i,j,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress.F |
164 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dyG(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
167 |
STREAMICE_DRIVING_STRESS |
& H_streamice(i-1,j,bi,bj)**2 |
|
./pkg/streamice/streamice_driving_stress.F |
169 |
STREAMICE_DRIVING_STRESS |
taudx_si(i,j,bi,bj) = taudx_si(i,j,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress.F |
170 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dyG(i,j,bi,bj) * gravity * ( |
|
./pkg/streamice/streamice_driving_stress.F |
172 |
STREAMICE_DRIVING_STRESS |
& (h_streamice(i-1,j,bi,bj)-firn_depth) * |
|
./pkg/streamice/streamice_driving_stress.F |
174 |
STREAMICE_DRIVING_STRESS |
& (h_streamice(i-1,j,bi,bj)-streamice_firn_correction)) - |
|
./pkg/streamice/streamice_driving_stress.F |
176 |
STREAMICE_DRIVING_STRESS |
& (h_streamice(i-1,j,bi,bj)-streamice_firn_correction)**2 |
|
./pkg/streamice/streamice_driving_stress.F |
182 |
STREAMICE_DRIVING_STRESS |
taudx_si(i,j,bi,bj) = taudx_si(i,j,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress.F |
183 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dyG(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
186 |
STREAMICE_DRIVING_STRESS |
& H_streamice(i-1,j,bi,bj)**2 |
|
./pkg/streamice/streamice_driving_stress.F |
194 |
STREAMICE_DRIVING_STRESS |
ELSE IF (streamice_hmask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
196 |
STREAMICE_DRIVING_STRESS |
IF (float_frac_streamice(i,j,bi,bj) .eq. 1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
199 |
STREAMICE_DRIVING_STRESS |
IF (R_low_si(i,j,bi,bj) .lt. 0. _d 0) then |
|
./pkg/streamice/streamice_driving_stress.F |
201 |
STREAMICE_DRIVING_STRESS |
IF (R_low(i,j,bi,bj) .lt. 0. _d 0) then |
|
./pkg/streamice/streamice_driving_stress.F |
208 |
STREAMICE_DRIVING_STRESS |
taudx_si(i,j,bi,bj) = taudx_si(i,j,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress.F |
209 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dyG(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
211 |
STREAMICE_DRIVING_STRESS |
& (avg_density(i,j,bi,bj) * H_streamice(i,j,bi,bj)**2 - |
|
./pkg/streamice/streamice_driving_stress.F |
214 |
STREAMICE_DRIVING_STRESS |
& R_low_si(i,j,bi,bj)**2) |
|
./pkg/streamice/streamice_driving_stress.F |
217 |
STREAMICE_DRIVING_STRESS |
& R_low(i,j,bi,bj)**2) |
|
./pkg/streamice/streamice_driving_stress.F |
225 |
STREAMICE_DRIVING_STRESS |
if (H_streamice(i,j,bi,bj).lt.firn_depth) then |
|
./pkg/streamice/streamice_driving_stress.F |
226 |
STREAMICE_DRIVING_STRESS |
taudx_si(i,j,bi,bj) = taudx_si(i,j,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress.F |
227 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dyG(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
230 |
STREAMICE_DRIVING_STRESS |
& H_streamice(i,j,bi,bj)**2 |
|
./pkg/streamice/streamice_driving_stress.F |
232 |
STREAMICE_DRIVING_STRESS |
taudx_si(i,j,bi,bj) = taudx_si(i,j,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress.F |
233 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dyG(i,j,bi,bj) * gravity * ( |
|
./pkg/streamice/streamice_driving_stress.F |
235 |
STREAMICE_DRIVING_STRESS |
& (h_streamice(i,j,bi,bj)-firn_depth) * |
|
./pkg/streamice/streamice_driving_stress.F |
237 |
STREAMICE_DRIVING_STRESS |
& (h_streamice(i,j,bi,bj)-streamice_firn_correction)) - |
|
./pkg/streamice/streamice_driving_stress.F |
239 |
STREAMICE_DRIVING_STRESS |
& (h_streamice(i,j,bi,bj)-streamice_firn_correction)**2 |
|
./pkg/streamice/streamice_driving_stress.F |
245 |
STREAMICE_DRIVING_STRESS |
taudx_si(i,j,bi,bj) = taudx_si(i,j,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress.F |
246 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dyG(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
249 |
STREAMICE_DRIVING_STRESS |
& H_streamice(i,j,bi,bj)**2 |
|
./pkg/streamice/streamice_driving_stress.F |
260 |
STREAMICE_DRIVING_STRESS |
IF (streamice_hmask(i-1,j-1,bi,bj).eq.1.0.AND. |
|
./pkg/streamice/streamice_driving_stress.F |
261 |
STREAMICE_DRIVING_STRESS |
& streamice_hmask(i,j-1,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
266 |
STREAMICE_DRIVING_STRESS |
taudx_si(i,j,bi,bj) = taudx_si(i,j,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress.F |
267 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dyg(i,j-1,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
269 |
STREAMICE_DRIVING_STRESS |
& (H_streamice(i,j-1,bi,bj)*avg_density(i,j-1,bi,bj)+ |
|
./pkg/streamice/streamice_driving_stress.F |
270 |
STREAMICE_DRIVING_STRESS |
& H_streamice(i-1,j-1,bi,bj)*avg_density(i-1,j-1,bi,bj)) * |
|
./pkg/streamice/streamice_driving_stress.F |
271 |
STREAMICE_DRIVING_STRESS |
& (surf_el_streamice(i,j-1,bi,bj)- |
|
./pkg/streamice/streamice_driving_stress.F |
272 |
STREAMICE_DRIVING_STRESS |
& surf_el_streamice(i-1,j-1,bi,bj)) |
|
./pkg/streamice/streamice_driving_stress.F |
274 |
STREAMICE_DRIVING_STRESS |
taudx_si(i,j,bi,bj) = taudx_si(i,j,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress.F |
276 |
STREAMICE_DRIVING_STRESS |
& streamice_bg_surf_slope_x * .25 * rA(i,j-1,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
277 |
STREAMICE_DRIVING_STRESS |
& (H_streamice(i-1,j-1,bi,bj) + H_streamice(i,j-1,bi,bj)) |
|
./pkg/streamice/streamice_driving_stress.F |
279 |
STREAMICE_DRIVING_STRESS |
ELSE IF (streamice_hmask(i-1,j-1,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
281 |
STREAMICE_DRIVING_STRESS |
IF (float_frac_streamice(i-1,j-1,bi,bj) .eq. 1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
284 |
STREAMICE_DRIVING_STRESS |
IF (R_low_si(i-1,j-1,bi,bj) .lt. 0. _d 0) then |
|
./pkg/streamice/streamice_driving_stress.F |
286 |
STREAMICE_DRIVING_STRESS |
IF (R_low(i-1,j-1,bi,bj) .lt. 0. _d 0) then |
|
./pkg/streamice/streamice_driving_stress.F |
293 |
STREAMICE_DRIVING_STRESS |
taudx_si(i,j,bi,bj) = taudx_si(i,j,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress.F |
294 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dyg(i,j-1,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
296 |
STREAMICE_DRIVING_STRESS |
& (avg_density(i-1,j-1,bi,bj)*H_streamice(i-1,j-1,bi,bj)**2- |
|
./pkg/streamice/streamice_driving_stress.F |
299 |
STREAMICE_DRIVING_STRESS |
& R_low_si(i-1,j-1,bi,bj)**2) |
|
./pkg/streamice/streamice_driving_stress.F |
302 |
STREAMICE_DRIVING_STRESS |
& R_low(i-1,j-1,bi,bj)**2) |
|
./pkg/streamice/streamice_driving_stress.F |
310 |
STREAMICE_DRIVING_STRESS |
if (H_streamice(i-1,j-1,bi,bj).lt.firn_depth) then |
|
./pkg/streamice/streamice_driving_stress.F |
311 |
STREAMICE_DRIVING_STRESS |
taudx_si(i,j,bi,bj) = taudx_si(i,j,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress.F |
312 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dyG(i,j-1,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
315 |
STREAMICE_DRIVING_STRESS |
& H_streamice(i-1,j-1,bi,bj)**2 |
|
./pkg/streamice/streamice_driving_stress.F |
317 |
STREAMICE_DRIVING_STRESS |
taudx_si(i,j,bi,bj) = taudx_si(i,j,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress.F |
318 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dyG(i,j-1,bi,bj) * gravity * ( |
|
./pkg/streamice/streamice_driving_stress.F |
320 |
STREAMICE_DRIVING_STRESS |
& (h_streamice(i-1,j-1,bi,bj)-firn_depth) * |
|
./pkg/streamice/streamice_driving_stress.F |
322 |
STREAMICE_DRIVING_STRESS |
& (h_streamice(i-1,j-1,bi,bj)-streamice_firn_correction))- |
|
./pkg/streamice/streamice_driving_stress.F |
324 |
STREAMICE_DRIVING_STRESS |
& (h_streamice(i-1,j-1,bi,bj)-streamice_firn_correction)**2 |
|
./pkg/streamice/streamice_driving_stress.F |
330 |
STREAMICE_DRIVING_STRESS |
taudx_si(i,j,bi,bj) = taudx_si(i,j,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress.F |
331 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dyG(i,j-1,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
334 |
STREAMICE_DRIVING_STRESS |
& H_streamice(i-1,j-1,bi,bj)**2 |
|
./pkg/streamice/streamice_driving_stress.F |
343 |
STREAMICE_DRIVING_STRESS |
ELSE IF (streamice_hmask(i,j-1,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
345 |
STREAMICE_DRIVING_STRESS |
IF (float_frac_streamice(i,j-1,bi,bj) .eq. 1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
348 |
STREAMICE_DRIVING_STRESS |
IF (R_low_si(i,j-1,bi,bj) .lt. 0. _d 0) then |
|
./pkg/streamice/streamice_driving_stress.F |
350 |
STREAMICE_DRIVING_STRESS |
IF (R_low(i,j-1,bi,bj) .lt. 0. _d 0) then |
|
./pkg/streamice/streamice_driving_stress.F |
357 |
STREAMICE_DRIVING_STRESS |
taudx_si(i,j,bi,bj) = taudx_si(i,j,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress.F |
358 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dyg(i,j-1,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
360 |
STREAMICE_DRIVING_STRESS |
& (avg_density(i,j-1,bi,bj) * H_streamice(i,j-1,bi,bj)**2 - |
|
./pkg/streamice/streamice_driving_stress.F |
363 |
STREAMICE_DRIVING_STRESS |
& R_low_si(i,j-1,bi,bj)**2) |
|
./pkg/streamice/streamice_driving_stress.F |
366 |
STREAMICE_DRIVING_STRESS |
& R_low(i,j-1,bi,bj)**2) |
|
./pkg/streamice/streamice_driving_stress.F |
373 |
STREAMICE_DRIVING_STRESS |
if (H_streamice(i,j-1,bi,bj).lt.firn_depth) then |
|
./pkg/streamice/streamice_driving_stress.F |
374 |
STREAMICE_DRIVING_STRESS |
taudx_si(i,j,bi,bj) = taudx_si(i,j,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress.F |
375 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dyG(i,j-1,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
378 |
STREAMICE_DRIVING_STRESS |
& H_streamice(i,j-1,bi,bj)**2 |
|
./pkg/streamice/streamice_driving_stress.F |
380 |
STREAMICE_DRIVING_STRESS |
taudx_si(i,j,bi,bj) = taudx_si(i,j,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress.F |
381 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dyG(i,j-1,bi,bj) * gravity * ( |
|
./pkg/streamice/streamice_driving_stress.F |
383 |
STREAMICE_DRIVING_STRESS |
& (h_streamice(i,j-1,bi,bj)-firn_depth) * |
|
./pkg/streamice/streamice_driving_stress.F |
385 |
STREAMICE_DRIVING_STRESS |
& (h_streamice(i,j-1,bi,bj)-streamice_firn_correction))- |
|
./pkg/streamice/streamice_driving_stress.F |
387 |
STREAMICE_DRIVING_STRESS |
& (h_streamice(i,j-1,bi,bj)-streamice_firn_correction)**2 |
|
./pkg/streamice/streamice_driving_stress.F |
38 |
STREAMICE_DRIVING_STRESS |
INTEGER i, j, bi, bj, k, l, |
|
./pkg/streamice/streamice_driving_stress.F |
393 |
STREAMICE_DRIVING_STRESS |
taudx_si(i,j,bi,bj) = taudx_si(i,j,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress.F |
394 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dyG(i,j-1,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
397 |
STREAMICE_DRIVING_STRESS |
& H_streamice(i,j-1,bi,bj)**2 |
|
./pkg/streamice/streamice_driving_stress.F |
409 |
STREAMICE_DRIVING_STRESS |
IF (streamice_vmask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
411 |
STREAMICE_DRIVING_STRESS |
IF (streamice_hmask(i,j-1,bi,bj).eq.1.0.AND. |
|
./pkg/streamice/streamice_driving_stress.F |
412 |
STREAMICE_DRIVING_STRESS |
& streamice_hmask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
417 |
STREAMICE_DRIVING_STRESS |
taudy_si(i,j,bi,bj) = taudy_si(i,j,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress.F |
418 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dxG(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
420 |
STREAMICE_DRIVING_STRESS |
& (H_streamice(i,j,bi,bj)*avg_density(i,j,bi,bj)+ |
|
./pkg/streamice/streamice_driving_stress.F |
421 |
STREAMICE_DRIVING_STRESS |
& H_streamice(i,j-1,bi,bj)*avg_density(i,j-1,bi,bj))* |
|
./pkg/streamice/streamice_driving_stress.F |
422 |
STREAMICE_DRIVING_STRESS |
& (surf_el_streamice(i,j,bi,bj)- |
|
./pkg/streamice/streamice_driving_stress.F |
423 |
STREAMICE_DRIVING_STRESS |
& surf_el_streamice(i,j-1,bi,bj)) |
|
./pkg/streamice/streamice_driving_stress.F |
425 |
STREAMICE_DRIVING_STRESS |
taudy_si(i,j,bi,bj) = taudy_si(i,j,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress.F |
427 |
STREAMICE_DRIVING_STRESS |
& streamice_bg_surf_slope_y * .25 * rA(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
428 |
STREAMICE_DRIVING_STRESS |
& (H_streamice(i,j-1,bi,bj) + H_streamice(i,j,bi,bj)) |
|
./pkg/streamice/streamice_driving_stress.F |
430 |
STREAMICE_DRIVING_STRESS |
ELSE IF (streamice_hmask(i,j-1,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
432 |
STREAMICE_DRIVING_STRESS |
IF (float_frac_streamice(i,j-1,bi,bj) .eq. 1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
435 |
STREAMICE_DRIVING_STRESS |
IF (R_low_si(i,j-1,bi,bj) .lt. 0. _d 0) then |
|
./pkg/streamice/streamice_driving_stress.F |
437 |
STREAMICE_DRIVING_STRESS |
IF (R_low(i,j-1,bi,bj) .lt. 0. _d 0) then |
|
./pkg/streamice/streamice_driving_stress.F |
444 |
STREAMICE_DRIVING_STRESS |
taudy_si(i,j,bi,bj) = taudy_si(i,j,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress.F |
445 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dxG(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
447 |
STREAMICE_DRIVING_STRESS |
& (avg_density(i,j-1,bi,bj) * H_streamice(i,j-1,bi,bj)**2 - |
|
./pkg/streamice/streamice_driving_stress.F |
450 |
STREAMICE_DRIVING_STRESS |
& R_low_si(i,j-1,bi,bj)**2) |
|
./pkg/streamice/streamice_driving_stress.F |
453 |
STREAMICE_DRIVING_STRESS |
& R_low(i,j-1,bi,bj)**2) |
|
./pkg/streamice/streamice_driving_stress.F |
460 |
STREAMICE_DRIVING_STRESS |
if (H_streamice(i,j-1,bi,bj).lt.firn_depth) then |
|
./pkg/streamice/streamice_driving_stress.F |
461 |
STREAMICE_DRIVING_STRESS |
taudy_si(i,j,bi,bj) = taudy_si(i,j,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress.F |
462 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dxG(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
465 |
STREAMICE_DRIVING_STRESS |
& H_streamice(i,j-1,bi,bj)**2 |
|
./pkg/streamice/streamice_driving_stress.F |
467 |
STREAMICE_DRIVING_STRESS |
taudy_si(i,j,bi,bj) = taudy_si(i,j,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress.F |
468 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dxG(i,j,bi,bj) * gravity * ( |
|
./pkg/streamice/streamice_driving_stress.F |
470 |
STREAMICE_DRIVING_STRESS |
& (h_streamice(i,j-1,bi,bj)-firn_depth) * |
|
./pkg/streamice/streamice_driving_stress.F |
472 |
STREAMICE_DRIVING_STRESS |
& (h_streamice(i,j-1,bi,bj)-streamice_firn_correction))- |
|
./pkg/streamice/streamice_driving_stress.F |
474 |
STREAMICE_DRIVING_STRESS |
& (h_streamice(i,j-1,bi,bj)-streamice_firn_correction)**2 |
|
./pkg/streamice/streamice_driving_stress.F |
480 |
STREAMICE_DRIVING_STRESS |
taudy_si(i,j,bi,bj) = taudy_si(i,j,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress.F |
481 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dxG(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
484 |
STREAMICE_DRIVING_STRESS |
& H_streamice(i,j-1,bi,bj)**2 |
|
./pkg/streamice/streamice_driving_stress.F |
492 |
STREAMICE_DRIVING_STRESS |
ELSE IF (streamice_hmask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
494 |
STREAMICE_DRIVING_STRESS |
IF (float_frac_streamice(i,j,bi,bj) .eq. 1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
497 |
STREAMICE_DRIVING_STRESS |
IF (R_low_si(i,j,bi,bj) .lt. 0. _d 0) then |
|
./pkg/streamice/streamice_driving_stress.F |
499 |
STREAMICE_DRIVING_STRESS |
IF (R_low(i,j,bi,bj) .lt. 0. _d 0) then |
|
./pkg/streamice/streamice_driving_stress.F |
506 |
STREAMICE_DRIVING_STRESS |
taudy_si(i,j,bi,bj) = taudy_si(i,j,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress.F |
507 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dxG(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
509 |
STREAMICE_DRIVING_STRESS |
& (avg_density(i,j,bi,bj) * H_streamice(i,j,bi,bj)**2 - |
|
./pkg/streamice/streamice_driving_stress.F |
512 |
STREAMICE_DRIVING_STRESS |
& R_low_si(i,j,bi,bj)**2) |
|
./pkg/streamice/streamice_driving_stress.F |
515 |
STREAMICE_DRIVING_STRESS |
& R_low(i,j,bi,bj)**2) |
|
./pkg/streamice/streamice_driving_stress.F |
523 |
STREAMICE_DRIVING_STRESS |
if (H_streamice(i,j,bi,bj).lt.firn_depth) then |
|
./pkg/streamice/streamice_driving_stress.F |
524 |
STREAMICE_DRIVING_STRESS |
taudy_si(i,j,bi,bj) = taudy_si(i,j,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress.F |
525 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dxG(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
528 |
STREAMICE_DRIVING_STRESS |
& H_streamice(i,j,bi,bj)**2 |
|
./pkg/streamice/streamice_driving_stress.F |
530 |
STREAMICE_DRIVING_STRESS |
taudy_si(i,j,bi,bj) = taudy_si(i,j,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress.F |
531 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dxG(i,j,bi,bj) * gravity * ( |
|
./pkg/streamice/streamice_driving_stress.F |
533 |
STREAMICE_DRIVING_STRESS |
& (h_streamice(i,j,bi,bj)-firn_depth) * |
|
./pkg/streamice/streamice_driving_stress.F |
535 |
STREAMICE_DRIVING_STRESS |
& (h_streamice(i,j,bi,bj)-streamice_firn_correction))- |
|
./pkg/streamice/streamice_driving_stress.F |
537 |
STREAMICE_DRIVING_STRESS |
& (h_streamice(i,j,bi,bj)-streamice_firn_correction)**2 |
|
./pkg/streamice/streamice_driving_stress.F |
543 |
STREAMICE_DRIVING_STRESS |
taudy_si(i,j,bi,bj) = taudy_si(i,j,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress.F |
544 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dxG(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
547 |
STREAMICE_DRIVING_STRESS |
& H_streamice(i,j,bi,bj)**2 |
|
./pkg/streamice/streamice_driving_stress.F |
558 |
STREAMICE_DRIVING_STRESS |
IF (streamice_hmask(i-1,j-1,bi,bj).eq.1.0.AND. |
|
./pkg/streamice/streamice_driving_stress.F |
559 |
STREAMICE_DRIVING_STRESS |
& streamice_hmask(i-1,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
564 |
STREAMICE_DRIVING_STRESS |
taudy_si(i,j,bi,bj) = taudy_si(i,j,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress.F |
565 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dxG(i-1,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
567 |
STREAMICE_DRIVING_STRESS |
& (H_streamice(i-1,j,bi,bj)*avg_density(i-1,j,bi,bj)+ |
|
./pkg/streamice/streamice_driving_stress.F |
568 |
STREAMICE_DRIVING_STRESS |
& H_streamice(i-1,j-1,bi,bj)*avg_density(i-1,j-1,bi,bj))* |
|
./pkg/streamice/streamice_driving_stress.F |
569 |
STREAMICE_DRIVING_STRESS |
& (surf_el_streamice(i-1,j,bi,bj)- |
|
./pkg/streamice/streamice_driving_stress.F |
570 |
STREAMICE_DRIVING_STRESS |
& surf_el_streamice(i-1,j-1,bi,bj)) |
|
./pkg/streamice/streamice_driving_stress.F |
572 |
STREAMICE_DRIVING_STRESS |
taudy_si(i,j,bi,bj) = taudy_si(i,j,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress.F |
574 |
STREAMICE_DRIVING_STRESS |
& streamice_bg_surf_slope_y * .25 * rA(i-1,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
575 |
STREAMICE_DRIVING_STRESS |
& (H_streamice(i-1,j-1,bi,bj) + H_streamice(i-1,j,bi,bj)) |
|
./pkg/streamice/streamice_driving_stress.F |
578 |
STREAMICE_DRIVING_STRESS |
ELSE IF (streamice_hmask(i-1,j-1,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
580 |
STREAMICE_DRIVING_STRESS |
IF (float_frac_streamice(i-1,j-1,bi,bj) .eq. 1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
583 |
STREAMICE_DRIVING_STRESS |
IF (R_low_si(i-1,j-1,bi,bj) .lt. 0. _d 0) then |
|
./pkg/streamice/streamice_driving_stress.F |
585 |
STREAMICE_DRIVING_STRESS |
IF (R_low(i-1,j-1,bi,bj) .lt. 0. _d 0) then |
|
./pkg/streamice/streamice_driving_stress.F |
592 |
STREAMICE_DRIVING_STRESS |
taudy_si(i,j,bi,bj) = taudy_si(i,j,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress.F |
593 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dxG(i-1,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
595 |
STREAMICE_DRIVING_STRESS |
& (avg_density(i-1,j-1,bi,bj)*H_streamice(i-1,j-1,bi,bj)**2- |
|
./pkg/streamice/streamice_driving_stress.F |
598 |
STREAMICE_DRIVING_STRESS |
& R_low_si(i-1,j-1,bi,bj)**2) |
|
./pkg/streamice/streamice_driving_stress.F |
601 |
STREAMICE_DRIVING_STRESS |
& R_low(i-1,j-1,bi,bj)**2) |
|
./pkg/streamice/streamice_driving_stress.F |
608 |
STREAMICE_DRIVING_STRESS |
if (H_streamice(i-1,j-1,bi,bj).lt.firn_depth) then |
|
./pkg/streamice/streamice_driving_stress.F |
609 |
STREAMICE_DRIVING_STRESS |
taudy_si(i,j,bi,bj) = taudy_si(i,j,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress.F |
610 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dxG(i-1,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
613 |
STREAMICE_DRIVING_STRESS |
& H_streamice(i-1,j-1,bi,bj)**2 |
|
./pkg/streamice/streamice_driving_stress.F |
615 |
STREAMICE_DRIVING_STRESS |
taudy_si(i,j,bi,bj) = taudy_si(i,j,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress.F |
616 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dxG(i-1,j,bi,bj) * gravity * ( |
|
./pkg/streamice/streamice_driving_stress.F |
618 |
STREAMICE_DRIVING_STRESS |
& (h_streamice(i-1,j-1,bi,bj)-firn_depth) * |
|
./pkg/streamice/streamice_driving_stress.F |
620 |
STREAMICE_DRIVING_STRESS |
& (h_streamice(i-1,j-1,bi,bj)-streamice_firn_correction))- |
|
./pkg/streamice/streamice_driving_stress.F |
622 |
STREAMICE_DRIVING_STRESS |
& (h_streamice(i-1,j-1,bi,bj)-streamice_firn_correction)**2 |
|
./pkg/streamice/streamice_driving_stress.F |
627 |
STREAMICE_DRIVING_STRESS |
taudy_si(i,j,bi,bj) = taudy_si(i,j,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress.F |
628 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dxG(i-1,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
631 |
STREAMICE_DRIVING_STRESS |
& H_streamice(i-1,j-1,bi,bj)**2 |
|
./pkg/streamice/streamice_driving_stress.F |
640 |
STREAMICE_DRIVING_STRESS |
ELSE IF (streamice_hmask(i-1,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
642 |
STREAMICE_DRIVING_STRESS |
IF (float_frac_streamice(i-1,j,bi,bj) .eq. 1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
645 |
STREAMICE_DRIVING_STRESS |
IF (R_low_si(i-1,j,bi,bj) .lt. 0. _d 0) then |
|
./pkg/streamice/streamice_driving_stress.F |
647 |
STREAMICE_DRIVING_STRESS |
IF (R_low(i-1,j,bi,bj) .lt. 0. _d 0) then |
|
./pkg/streamice/streamice_driving_stress.F |
654 |
STREAMICE_DRIVING_STRESS |
taudy_si(i,j,bi,bj) = taudy_si(i,j,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress.F |
655 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dxG(i-1,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
657 |
STREAMICE_DRIVING_STRESS |
& (avg_density(i-1,j,bi,bj) * H_streamice(i-1,j,bi,bj)**2 - |
|
./pkg/streamice/streamice_driving_stress.F |
660 |
STREAMICE_DRIVING_STRESS |
& R_low_si(i-1,j,bi,bj)**2) |
|
./pkg/streamice/streamice_driving_stress.F |
663 |
STREAMICE_DRIVING_STRESS |
& R_low(i-1,j,bi,bj)**2) |
|
./pkg/streamice/streamice_driving_stress.F |
670 |
STREAMICE_DRIVING_STRESS |
if (H_streamice(i-1,j,bi,bj).lt.firn_depth) then |
|
./pkg/streamice/streamice_driving_stress.F |
671 |
STREAMICE_DRIVING_STRESS |
taudy_si(i,j,bi,bj) = taudy_si(i,j,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress.F |
672 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dxG(i-1,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
675 |
STREAMICE_DRIVING_STRESS |
& H_streamice(i-1,j,bi,bj)**2 |
|
./pkg/streamice/streamice_driving_stress.F |
677 |
STREAMICE_DRIVING_STRESS |
taudy_si(i,j,bi,bj) = taudy_si(i,j,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress.F |
678 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dxG(i-1,j,bi,bj) * gravity * ( |
|
./pkg/streamice/streamice_driving_stress.F |
680 |
STREAMICE_DRIVING_STRESS |
& (h_streamice(i-1,j,bi,bj)-firn_depth) * |
|
./pkg/streamice/streamice_driving_stress.F |
682 |
STREAMICE_DRIVING_STRESS |
& (h_streamice(i-1,j,bi,bj)-streamice_firn_correction))- |
|
./pkg/streamice/streamice_driving_stress.F |
684 |
STREAMICE_DRIVING_STRESS |
& (h_streamice(i-1,j,bi,bj)-streamice_firn_correction)**2 |
|
./pkg/streamice/streamice_driving_stress.F |
689 |
STREAMICE_DRIVING_STRESS |
taudy_si(i,j,bi,bj) = taudy_si(i,j,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress.F |
68 |
STREAMICE_DRIVING_STRESS |
DO i=1-OLx+1,sNx+OLx-1 |
|
./pkg/streamice/streamice_driving_stress.F |
690 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dxG(i-1,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
693 |
STREAMICE_DRIVING_STRESS |
& H_streamice(i-1,j,bi,bj)**2 |
|
./pkg/streamice/streamice_driving_stress.F |
69 |
STREAMICE_DRIVING_STRESS |
taudx_SI(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_driving_stress.F |
70 |
STREAMICE_DRIVING_STRESS |
taudy_SI(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_driving_stress.F |
73 |
STREAMICE_DRIVING_STRESS |
if (streamice_hmask(i,j,bi,bj).eq.1) then |
|
./pkg/streamice/streamice_driving_stress.F |
74 |
STREAMICE_DRIVING_STRESS |
h = h_streamice(i,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress.F |
76 |
STREAMICE_DRIVING_STRESS |
avg_density(i,j,bi,bj) = streamice_density_firn |
|
./pkg/streamice/streamice_driving_stress.F |
78 |
STREAMICE_DRIVING_STRESS |
avg_density(i,j,bi,bj) = streamice_density * |
|
./pkg/streamice/streamice_driving_stress.F |
84 |
STREAMICE_DRIVING_STRESS |
avg_density(i,j,bi,bj) = streamice_density |
|
./pkg/streamice/streamice_driving_stress.F |
96 |
STREAMICE_DRIVING_STRESS |
DO i=1,sNx |
|
./model/src/ini_linear_phisurf.F |
101 |
INI_LINEAR_PHISURF |
Bo_surf(i,j,bi,bj) = recip_rhoConst |
|
./model/src/ini_linear_phisurf.F |
102 |
INI_LINEAR_PHISURF |
recip_Bo(i,j,bi,bj) = rhoConst |
|
./model/src/ini_linear_phisurf.F |
113 |
INI_LINEAR_PHISURF |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_linear_phisurf.F |
114 |
INI_LINEAR_PHISURF |
IF ( Ro_surf(i,j,bi,bj).GT.0. _d 0 |
|
./model/src/ini_linear_phisurf.F |
115 |
INI_LINEAR_PHISURF |
& .AND. kSurfC(i,j,bi,bj).LE.Nr ) THEN |
|
./model/src/ini_linear_phisurf.F |
116 |
INI_LINEAR_PHISURF |
pLoc = Ro_surf(i,j,bi,bj) |
|
./model/src/ini_linear_phisurf.F |
119 |
INI_LINEAR_PHISURF |
I tRef(kSurfC(i,j,bi,bj)), |
|
./model/src/ini_linear_phisurf.F |
120 |
INI_LINEAR_PHISURF |
I sRef(kSurfC(i,j,bi,bj)), |
|
./model/src/ini_linear_phisurf.F |
124 |
INI_LINEAR_PHISURF |
k = kSurfC(i,j,bi,bj) |
|
./model/src/ini_linear_phisurf.F |
130 |
INI_LINEAR_PHISURF |
Bo_surf(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_linear_phisurf.F |
132 |
INI_LINEAR_PHISURF |
Bo_surf(i,j,bi,bj) = 1. _d 0/rhoLoc |
|
./model/src/ini_linear_phisurf.F |
134 |
INI_LINEAR_PHISURF |
recip_Bo(i,j,bi,bj) = rhoLoc |
|
./model/src/ini_linear_phisurf.F |
136 |
INI_LINEAR_PHISURF |
Bo_surf(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_linear_phisurf.F |
137 |
INI_LINEAR_PHISURF |
recip_Bo(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_linear_phisurf.F |
152 |
INI_LINEAR_PHISURF |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_linear_phisurf.F |
153 |
INI_LINEAR_PHISURF |
IF ( Ro_surf(i,j,bi,bj).GT.0. _d 0 |
|
./model/src/ini_linear_phisurf.F |
154 |
INI_LINEAR_PHISURF |
& .AND. kSurfC(i,j,bi,bj).LE.Nr ) THEN |
|
./model/src/ini_linear_phisurf.F |
156 |
INI_LINEAR_PHISURF |
& (Ro_surf(i,j,bi,bj)/atm_Po)**(atm_kappa-1. _d 0) |
|
./model/src/ini_linear_phisurf.F |
157 |
INI_LINEAR_PHISURF |
Bo_surf(i,j,bi,bj) = dPIdp*thetaConst |
|
./model/src/ini_linear_phisurf.F |
158 |
INI_LINEAR_PHISURF |
recip_Bo(i,j,bi,bj) = 1. _d 0 / Bo_surf(i,j,bi,bj) |
|
./model/src/ini_linear_phisurf.F |
160 |
INI_LINEAR_PHISURF |
Bo_surf(i,j,bi,bj) = 0. |
|
./model/src/ini_linear_phisurf.F |
161 |
INI_LINEAR_PHISURF |
recip_Bo(i,j,bi,bj) = 0. |
|
./model/src/ini_linear_phisurf.F |
168 |
INI_LINEAR_PHISURF |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_linear_phisurf.F |
169 |
INI_LINEAR_PHISURF |
IF ( Ro_surf(i,j,bi,bj).GT.0. _d 0 |
|
./model/src/ini_linear_phisurf.F |
170 |
INI_LINEAR_PHISURF |
& .AND. kSurfC(i,j,bi,bj).LE.Nr ) THEN |
|
./model/src/ini_linear_phisurf.F |
172 |
INI_LINEAR_PHISURF |
& (Ro_surf(i,j,bi,bj)/atm_Po)**(atm_kappa-1. _d 0) |
|
./model/src/ini_linear_phisurf.F |
173 |
INI_LINEAR_PHISURF |
Bo_surf(i,j,bi,bj) = dPIdp*tRef(kSurfC(i,j,bi,bj)) |
|
./model/src/ini_linear_phisurf.F |
174 |
INI_LINEAR_PHISURF |
recip_Bo(i,j,bi,bj) = 1. _d 0 / Bo_surf(i,j,bi,bj) |
|
./model/src/ini_linear_phisurf.F |
176 |
INI_LINEAR_PHISURF |
Bo_surf(i,j,bi,bj) = 0. |
|
./model/src/ini_linear_phisurf.F |
177 |
INI_LINEAR_PHISURF |
recip_Bo(i,j,bi,bj) = 0. |
|
./model/src/ini_linear_phisurf.F |
206 |
INI_LINEAR_PHISURF |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_linear_phisurf.F |
207 |
INI_LINEAR_PHISURF |
phi0surf(i,j,bi,bj) = 0. |
|
./model/src/ini_linear_phisurf.F |
49 |
INI_LINEAR_PHISURF |
INTEGER i, j, k |
|
./model/src/ini_linear_phisurf.F |
59 |
INI_LINEAR_PHISURF |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_linear_phisurf.F |
60 |
INI_LINEAR_PHISURF |
Bo_surf(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_linear_phisurf.F |
61 |
INI_LINEAR_PHISURF |
recip_Bo(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_linear_phisurf.F |
86 |
INI_LINEAR_PHISURF |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_linear_phisurf.F |
87 |
INI_LINEAR_PHISURF |
Bo_surf(i,j,bi,bj) = gBaro |
|
./model/src/ini_linear_phisurf.F |
88 |
INI_LINEAR_PHISURF |
recip_Bo(i,j,bi,bj) = 1. _d 0 / gBaro |
|
./model/src/ini_linear_phisurf.F |
98 |
INI_LINEAR_PHISURF |
DO i=1-OLx,sNx+OLx |
|
./pkg/streamice/streamice_driving_stress_fd.F |
100 |
STREAMICE_DRIVING_STRESS_FD |
ELSEIF (streamice_hmask(i,j-1,bi,bj).eq.0.or. |
|
./pkg/streamice/streamice_driving_stress_fd.F |
101 |
STREAMICE_DRIVING_STRESS_FD |
& streamice_hmask(i,j-1,bi,bj).eq.2) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
103 |
STREAMICE_DRIVING_STRESS_FD |
IF (streamice_hmask(i,j+1,bi,bj).eq.1) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
104 |
STREAMICE_DRIVING_STRESS_FD |
dsdy(i,j,bi,bj) = recip_dyC(i,j+1,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
105 |
STREAMICE_DRIVING_STRESS_FD |
& (surf_el_streamice(i,j+1,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress_fd.F |
106 |
STREAMICE_DRIVING_STRESS_FD |
& surf_el_streamice(i,j,bi,bj)) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
108 |
STREAMICE_DRIVING_STRESS_FD |
dsdy(i,j,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_driving_stress_fd.F |
112 |
STREAMICE_DRIVING_STRESS_FD |
dsdx(i,j,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_driving_stress_fd.F |
117 |
STREAMICE_DRIVING_STRESS_FD |
ELSEIF(streamice_hmask(i,j,bi,bj).eq.0.or. |
|
./pkg/streamice/streamice_driving_stress_fd.F |
118 |
STREAMICE_DRIVING_STRESS_FD |
& streamice_hmask(i,j,bi,bj).eq.2) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
122 |
STREAMICE_DRIVING_STRESS_FD |
IF(streamice_hmask(i-1,j,bi,bj).eq.1.and. |
|
./pkg/streamice/streamice_driving_stress_fd.F |
123 |
STREAMICE_DRIVING_STRESS_FD |
& streamice_hmask(i-2,j,bi,bj).eq.1) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
125 |
STREAMICE_DRIVING_STRESS_FD |
dsdx(i,j,bi,bj) = recip_dxC(i-1,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
126 |
STREAMICE_DRIVING_STRESS_FD |
& (surf_el_streamice(i-1,j,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress_fd.F |
127 |
STREAMICE_DRIVING_STRESS_FD |
& surf_el_streamice(i-2,j,bi,bj)) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
130 |
STREAMICE_DRIVING_STRESS_FD |
dsdx(i,j,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_driving_stress_fd.F |
136 |
STREAMICE_DRIVING_STRESS_FD |
IF(streamice_hmask(i,j-1,bi,bj).eq.1.and. |
|
./pkg/streamice/streamice_driving_stress_fd.F |
137 |
STREAMICE_DRIVING_STRESS_FD |
& streamice_hmask(i,j-2,bi,bj).eq.1) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
139 |
STREAMICE_DRIVING_STRESS_FD |
dsdy(i,j,bi,bj) = recip_dyC(i,j-1,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
140 |
STREAMICE_DRIVING_STRESS_FD |
& (surf_el_streamice(i,j-1,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress_fd.F |
141 |
STREAMICE_DRIVING_STRESS_FD |
& surf_el_streamice(i,j-2,bi,bj)) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
144 |
STREAMICE_DRIVING_STRESS_FD |
dsdy(i,j,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_driving_stress_fd.F |
162 |
STREAMICE_DRIVING_STRESS_FD |
DO i=1,sNx |
|
./pkg/streamice/streamice_driving_stress_fd.F |
168 |
STREAMICE_DRIVING_STRESS_FD |
IF (streamice_hmask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
170 |
STREAMICE_DRIVING_STRESS_FD |
IF (streamice_umask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
172 |
STREAMICE_DRIVING_STRESS_FD |
taudx_si(i,j,bi,bj) = taudx_si(i,j,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress_fd.F |
174 |
STREAMICE_DRIVING_STRESS_FD |
& H_streamice (i,j,bi,bj) * dsdx (i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
175 |
STREAMICE_DRIVING_STRESS_FD |
& (0.5 * dyG(i,j,bi,bj) + 0.25 * dyF(i,j,bi,bj)) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
176 |
STREAMICE_DRIVING_STRESS_FD |
& 0.5 * dxG(i,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
178 |
STREAMICE_DRIVING_STRESS_FD |
taudx_si(i,j,bi,bj) = taudx_si(i,j,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress_fd.F |
180 |
STREAMICE_DRIVING_STRESS_FD |
& H_streamice (i,j,bi,bj) * dsdx (i+1,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
181 |
STREAMICE_DRIVING_STRESS_FD |
& 0.25 * dyF(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
182 |
STREAMICE_DRIVING_STRESS_FD |
& 0.5 * dxG(i,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
186 |
STREAMICE_DRIVING_STRESS_FD |
IF (streamice_umask(i+1,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
188 |
STREAMICE_DRIVING_STRESS_FD |
taudx_si(i+1,j,bi,bj) = taudx_si(i+1,j,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress_fd.F |
190 |
STREAMICE_DRIVING_STRESS_FD |
& H_streamice (i,j,bi,bj) * dsdx (i+1,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
191 |
STREAMICE_DRIVING_STRESS_FD |
& (0.5 * dyG(i+1,j,bi,bj) + 0.25 * dyF(i,j,bi,bj)) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
192 |
STREAMICE_DRIVING_STRESS_FD |
& 0.5 * dxG(i,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
194 |
STREAMICE_DRIVING_STRESS_FD |
taudx_si(i+1,j,bi,bj) = taudx_si(i+1,j,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress_fd.F |
196 |
STREAMICE_DRIVING_STRESS_FD |
& H_streamice (i,j,bi,bj) * dsdx (i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
197 |
STREAMICE_DRIVING_STRESS_FD |
& 0.25 * dyF(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
198 |
STREAMICE_DRIVING_STRESS_FD |
& 0.5 * dxG(i,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
202 |
STREAMICE_DRIVING_STRESS_FD |
IF (streamice_umask(i,j+1,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
204 |
STREAMICE_DRIVING_STRESS_FD |
taudx_si(i,j+1,bi,bj) = taudx_si(i,j+1,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress_fd.F |
206 |
STREAMICE_DRIVING_STRESS_FD |
& H_streamice (i,j,bi,bj) * dsdx (i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
207 |
STREAMICE_DRIVING_STRESS_FD |
& (0.5 * dyG(i,j,bi,bj) + 0.25 * dyF(i,j,bi,bj)) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
208 |
STREAMICE_DRIVING_STRESS_FD |
& 0.5 * dxG(i,j+1,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
210 |
STREAMICE_DRIVING_STRESS_FD |
taudx_si(i,j+1,bi,bj) = taudx_si(i,j+1,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress_fd.F |
212 |
STREAMICE_DRIVING_STRESS_FD |
& H_streamice (i,j,bi,bj) * dsdx (i+1,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
213 |
STREAMICE_DRIVING_STRESS_FD |
& 0.25 * dyF(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
214 |
STREAMICE_DRIVING_STRESS_FD |
& 0.5 * dxG(i,j+1,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
218 |
STREAMICE_DRIVING_STRESS_FD |
IF (streamice_umask(i+1,j+1,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
220 |
STREAMICE_DRIVING_STRESS_FD |
taudx_si(i+1,j+1,bi,bj) = taudx_si(i+1,j+1,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress_fd.F |
222 |
STREAMICE_DRIVING_STRESS_FD |
& H_streamice (i,j,bi,bj) * dsdx (i+1,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
223 |
STREAMICE_DRIVING_STRESS_FD |
& (0.5 * dyG(i+1,j,bi,bj) + 0.25 * dyF(i,j,bi,bj)) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
224 |
STREAMICE_DRIVING_STRESS_FD |
& 0.5 * dxG(i,j+1,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
226 |
STREAMICE_DRIVING_STRESS_FD |
taudx_si(i+1,j+1,bi,bj) = taudx_si(i+1,j+1,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress_fd.F |
228 |
STREAMICE_DRIVING_STRESS_FD |
& H_streamice (i,j,bi,bj) * dsdx (i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
229 |
STREAMICE_DRIVING_STRESS_FD |
& 0.25 * dyF(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
230 |
STREAMICE_DRIVING_STRESS_FD |
& 0.5 * dxG(i,j+1,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
235 |
STREAMICE_DRIVING_STRESS_FD |
IF (R_low_si(i,j,bi,bj) .lt. 0. _d 0) then |
|
./pkg/streamice/streamice_driving_stress_fd.F |
237 |
STREAMICE_DRIVING_STRESS_FD |
IF (R_low(i,j,bi,bj) .lt. 0. _d 0) then |
|
./pkg/streamice/streamice_driving_stress_fd.F |
246 |
STREAMICE_DRIVING_STRESS_FD |
IF (streamice_hmask(i+1,j,bi,bj).eq.0.or. |
|
./pkg/streamice/streamice_driving_stress_fd.F |
247 |
STREAMICE_DRIVING_STRESS_FD |
& streamice_hmask(i+1,j,bi,bj).eq.2.or. |
|
./pkg/streamice/streamice_driving_stress_fd.F |
248 |
STREAMICE_DRIVING_STRESS_FD |
& streamice_ufacemask(i+1,j,bi,bj).eq.2) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
250 |
STREAMICE_DRIVING_STRESS_FD |
IF (float_frac_streamice(i,j,bi,bj) .eq. 1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
253 |
STREAMICE_DRIVING_STRESS_FD |
& 0.25 * dyG(i+1,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
255 |
STREAMICE_DRIVING_STRESS_FD |
& streamice_density * H_streamice(i,j,bi,bj)**2- |
|
./pkg/streamice/streamice_driving_stress_fd.F |
258 |
STREAMICE_DRIVING_STRESS_FD |
& R_low_si(i,j,bi,bj)**2 |
|
./pkg/streamice/streamice_driving_stress_fd.F |
261 |
STREAMICE_DRIVING_STRESS_FD |
& R_low(i,j,bi,bj)**2 |
|
./pkg/streamice/streamice_driving_stress_fd.F |
267 |
STREAMICE_DRIVING_STRESS_FD |
& 0.25 * dyG(i+1,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
270 |
STREAMICE_DRIVING_STRESS_FD |
& H_streamice(i,j,bi,bj)**2 |
|
./pkg/streamice/streamice_driving_stress_fd.F |
274 |
STREAMICE_DRIVING_STRESS_FD |
taudx_si(i+1,j,bi,bj) = taudx_si(i+1,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
277 |
STREAMICE_DRIVING_STRESS_FD |
taudx_si(i+1,j+1,bi,bj) = taudx_si(i+1,j+1,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
283 |
STREAMICE_DRIVING_STRESS_FD |
IF (streamice_hmask(i-1,j,bi,bj).eq.0.or. |
|
./pkg/streamice/streamice_driving_stress_fd.F |
284 |
STREAMICE_DRIVING_STRESS_FD |
& streamice_hmask(i-1,j,bi,bj).eq.2.or. |
|
./pkg/streamice/streamice_driving_stress_fd.F |
285 |
STREAMICE_DRIVING_STRESS_FD |
& streamice_ufacemask(i,j,bi,bj).eq.2) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
287 |
STREAMICE_DRIVING_STRESS_FD |
IF (float_frac_streamice(i,j,bi,bj) .eq. 1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
290 |
STREAMICE_DRIVING_STRESS_FD |
& 0.25 * dyG(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
292 |
STREAMICE_DRIVING_STRESS_FD |
& streamice_density * H_streamice(i,j,bi,bj)**2- |
|
./pkg/streamice/streamice_driving_stress_fd.F |
295 |
STREAMICE_DRIVING_STRESS_FD |
& R_low_si(i,j,bi,bj)**2 |
|
./pkg/streamice/streamice_driving_stress_fd.F |
298 |
STREAMICE_DRIVING_STRESS_FD |
& R_low(i,j,bi,bj)**2 |
|
./pkg/streamice/streamice_driving_stress_fd.F |
304 |
STREAMICE_DRIVING_STRESS_FD |
& 0.25 * dyG(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
307 |
STREAMICE_DRIVING_STRESS_FD |
& H_streamice(i,j,bi,bj)**2 |
|
./pkg/streamice/streamice_driving_stress_fd.F |
311 |
STREAMICE_DRIVING_STRESS_FD |
taudx_si(i,j,bi,bj) = taudx_si(i,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
314 |
STREAMICE_DRIVING_STRESS_FD |
taudx_si(i,j+1,bi,bj) = taudx_si(i,j+1,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
321 |
STREAMICE_DRIVING_STRESS_FD |
IF (streamice_vmask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
323 |
STREAMICE_DRIVING_STRESS_FD |
taudy_si(i,j,bi,bj) = taudy_si(i,j,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress_fd.F |
325 |
STREAMICE_DRIVING_STRESS_FD |
& H_streamice (i,j,bi,bj) * dsdy (i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
326 |
STREAMICE_DRIVING_STRESS_FD |
& (0.5 * dxG(i,j,bi,bj) + 0.25 * dxF(i,j,bi,bj)) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
327 |
STREAMICE_DRIVING_STRESS_FD |
& 0.5 * dyG(i,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
329 |
STREAMICE_DRIVING_STRESS_FD |
taudy_si(i,j,bi,bj) = taudy_si(i,j,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress_fd.F |
331 |
STREAMICE_DRIVING_STRESS_FD |
& H_streamice (i,j,bi,bj) * dsdy (i,j+1,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
332 |
STREAMICE_DRIVING_STRESS_FD |
& 0.25 * dxF(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
333 |
STREAMICE_DRIVING_STRESS_FD |
& 0.5 * dyG(i,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
337 |
STREAMICE_DRIVING_STRESS_FD |
IF (streamice_vmask(i,j+1,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
339 |
STREAMICE_DRIVING_STRESS_FD |
taudy_si(i,j+1,bi,bj) = taudy_si(i,j+1,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress_fd.F |
341 |
STREAMICE_DRIVING_STRESS_FD |
& H_streamice (i,j,bi,bj) * dsdy (i,j+1,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
342 |
STREAMICE_DRIVING_STRESS_FD |
& (0.5 * dxG(i,j+1,bi,bj) + 0.25 * dxF(i,j,bi,bj)) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
343 |
STREAMICE_DRIVING_STRESS_FD |
& 0.5 * dyG(i,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
345 |
STREAMICE_DRIVING_STRESS_FD |
taudy_si(i,j+1,bi,bj) = taudy_si(i,j+1,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress_fd.F |
347 |
STREAMICE_DRIVING_STRESS_FD |
& H_streamice (i,j,bi,bj) * dsdy (i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
348 |
STREAMICE_DRIVING_STRESS_FD |
& 0.25 * dxF(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
349 |
STREAMICE_DRIVING_STRESS_FD |
& 0.5 * dyG(i,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
353 |
STREAMICE_DRIVING_STRESS_FD |
IF (streamice_vmask(i+1,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
355 |
STREAMICE_DRIVING_STRESS_FD |
taudy_si(i+1,j,bi,bj) = taudy_si(i+1,j,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress_fd.F |
357 |
STREAMICE_DRIVING_STRESS_FD |
& H_streamice (i,j,bi,bj) * dsdy (i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
358 |
STREAMICE_DRIVING_STRESS_FD |
& (0.5 * dxG(i,j,bi,bj) + 0.25 * dxF(i,j,bi,bj)) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
359 |
STREAMICE_DRIVING_STRESS_FD |
& 0.5 * dyG(i+1,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
361 |
STREAMICE_DRIVING_STRESS_FD |
taudy_si(i+1,j,bi,bj) = taudy_si(i+1,j,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress_fd.F |
363 |
STREAMICE_DRIVING_STRESS_FD |
& H_streamice (i,j,bi,bj) * dsdy (i,j+1,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
364 |
STREAMICE_DRIVING_STRESS_FD |
& 0.25 * dxF(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
365 |
STREAMICE_DRIVING_STRESS_FD |
& 0.5 * dyG(i+1,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
369 |
STREAMICE_DRIVING_STRESS_FD |
IF (streamice_umask(i+1,j+1,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
371 |
STREAMICE_DRIVING_STRESS_FD |
taudy_si(i+1,j+1,bi,bj) = taudy_si(i+1,j+1,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress_fd.F |
373 |
STREAMICE_DRIVING_STRESS_FD |
& H_streamice (i,j,bi,bj) * dsdy (i,j+1,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
374 |
STREAMICE_DRIVING_STRESS_FD |
& (0.5 * dxG(i,j+1,bi,bj) + 0.25 * dxF(i,j,bi,bj)) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
375 |
STREAMICE_DRIVING_STRESS_FD |
& 0.5 * dyG(i,j+1,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
377 |
STREAMICE_DRIVING_STRESS_FD |
taudy_si(i+1,j+1,bi,bj) = taudy_si(i+1,j+1,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress_fd.F |
379 |
STREAMICE_DRIVING_STRESS_FD |
& H_streamice (i,j,bi,bj) * dsdy (i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
380 |
STREAMICE_DRIVING_STRESS_FD |
& 0.25 * dxF(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
381 |
STREAMICE_DRIVING_STRESS_FD |
& 0.5 * dyG(i,j+1,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
386 |
STREAMICE_DRIVING_STRESS_FD |
IF (R_low_si(i,j,bi,bj) .lt. 0. _d 0) then |
|
./pkg/streamice/streamice_driving_stress_fd.F |
388 |
STREAMICE_DRIVING_STRESS_FD |
IF (R_low(i,j,bi,bj) .lt. 0. _d 0) then |
|
./pkg/streamice/streamice_driving_stress_fd.F |
38 |
STREAMICE_DRIVING_STRESS_FD |
INTEGER i, j, bi, bj, k, l, |
|
./pkg/streamice/streamice_driving_stress_fd.F |
397 |
STREAMICE_DRIVING_STRESS_FD |
IF (streamice_hmask(i,j+1,bi,bj).eq.0.or. |
|
./pkg/streamice/streamice_driving_stress_fd.F |
398 |
STREAMICE_DRIVING_STRESS_FD |
& streamice_hmask(i,j+1,bi,bj).eq.2.or. |
|
./pkg/streamice/streamice_driving_stress_fd.F |
399 |
STREAMICE_DRIVING_STRESS_FD |
& streamice_vfacemask(i,j+1,bi,bj).eq.2) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
401 |
STREAMICE_DRIVING_STRESS_FD |
IF (float_frac_streamice(i,j,bi,bj) .eq. 1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
404 |
STREAMICE_DRIVING_STRESS_FD |
& 0.25 * dxG(i,j+1,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
406 |
STREAMICE_DRIVING_STRESS_FD |
& streamice_density * H_streamice(i,j,bi,bj)**2- |
|
./pkg/streamice/streamice_driving_stress_fd.F |
409 |
STREAMICE_DRIVING_STRESS_FD |
& R_low_si(i,j,bi,bj)**2 |
|
./pkg/streamice/streamice_driving_stress_fd.F |
412 |
STREAMICE_DRIVING_STRESS_FD |
& R_low(i,j,bi,bj)**2 |
|
./pkg/streamice/streamice_driving_stress_fd.F |
418 |
STREAMICE_DRIVING_STRESS_FD |
& 0.25 * dxG(i,j+1,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
421 |
STREAMICE_DRIVING_STRESS_FD |
& H_streamice(i,j,bi,bj)**2 |
|
./pkg/streamice/streamice_driving_stress_fd.F |
425 |
STREAMICE_DRIVING_STRESS_FD |
taudy_si(i,j+1,bi,bj) = taudy_si(i,j+1,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
428 |
STREAMICE_DRIVING_STRESS_FD |
taudy_si(i+1,j+1,bi,bj) = taudy_si(i+1,j+1,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
434 |
STREAMICE_DRIVING_STRESS_FD |
IF (streamice_hmask(i,j-1,bi,bj).eq.0.or. |
|
./pkg/streamice/streamice_driving_stress_fd.F |
435 |
STREAMICE_DRIVING_STRESS_FD |
& streamice_hmask(i,j-1,bi,bj).eq.2.or. |
|
./pkg/streamice/streamice_driving_stress_fd.F |
436 |
STREAMICE_DRIVING_STRESS_FD |
& streamice_vfacemask(i,j,bi,bj).eq.2) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
438 |
STREAMICE_DRIVING_STRESS_FD |
IF (float_frac_streamice(i,j,bi,bj) .eq. 1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
441 |
STREAMICE_DRIVING_STRESS_FD |
& 0.25 * dxG(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
443 |
STREAMICE_DRIVING_STRESS_FD |
& streamice_density * H_streamice(i,j,bi,bj)**2- |
|
./pkg/streamice/streamice_driving_stress_fd.F |
446 |
STREAMICE_DRIVING_STRESS_FD |
& R_low_si(i,j,bi,bj)**2 |
|
./pkg/streamice/streamice_driving_stress_fd.F |
449 |
STREAMICE_DRIVING_STRESS_FD |
& R_low(i,j,bi,bj)**2 |
|
./pkg/streamice/streamice_driving_stress_fd.F |
455 |
STREAMICE_DRIVING_STRESS_FD |
& 0.25 * dxG(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
458 |
STREAMICE_DRIVING_STRESS_FD |
& H_streamice(i,j,bi,bj)**2 |
|
./pkg/streamice/streamice_driving_stress_fd.F |
462 |
STREAMICE_DRIVING_STRESS_FD |
taudy_si(i,j,bi,bj) = taudy_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
465 |
STREAMICE_DRIVING_STRESS_FD |
taudy_si(i+1,j,bi,bj) = taudy_si(i+1,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
481 |
STREAMICE_DRIVING_STRESS_FD |
DO i=1-OLx+1,sNx+OLx-1 |
|
./pkg/streamice/streamice_driving_stress_fd.F |
482 |
STREAMICE_DRIVING_STRESS_FD |
taudx_SI(i,j,bi,bj) = -1.*taudx_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
483 |
STREAMICE_DRIVING_STRESS_FD |
taudy_SI(i,j,bi,bj) = -1.*taudy_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
54 |
STREAMICE_DRIVING_STRESS_FD |
DO i=1-OLx+1,sNx+OLx-1 |
|
./pkg/streamice/streamice_driving_stress_fd.F |
55 |
STREAMICE_DRIVING_STRESS_FD |
taudx_SI(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_driving_stress_fd.F |
56 |
STREAMICE_DRIVING_STRESS_FD |
taudy_SI(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_driving_stress_fd.F |
65 |
STREAMICE_DRIVING_STRESS_FD |
DO i=1,sNx |
|
./pkg/streamice/streamice_driving_stress_fd.F |
67 |
STREAMICE_DRIVING_STRESS_FD |
IF (streamice_hmask(i,j,bi,bj) .eq. 1) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
71 |
STREAMICE_DRIVING_STRESS_FD |
IF (streamice_hmask(i-1,j,bi,bj) .eq. 1) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
73 |
STREAMICE_DRIVING_STRESS_FD |
dsdx(i,j,bi,bj) = recip_dxC(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
74 |
STREAMICE_DRIVING_STRESS_FD |
& (surf_el_streamice(i,j,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress_fd.F |
75 |
STREAMICE_DRIVING_STRESS_FD |
& surf_el_streamice(i-1,j,bi,bj)) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
77 |
STREAMICE_DRIVING_STRESS_FD |
ELSEIF (streamice_hmask(i-1,j,bi,bj).eq.0.or. |
|
./pkg/streamice/streamice_driving_stress_fd.F |
78 |
STREAMICE_DRIVING_STRESS_FD |
& streamice_hmask(i-1,j,bi,bj).eq.2) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
80 |
STREAMICE_DRIVING_STRESS_FD |
IF (streamice_hmask(i+1,j,bi,bj).eq.1) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
81 |
STREAMICE_DRIVING_STRESS_FD |
dsdx(i,j,bi,bj) = recip_dxC(i+1,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
82 |
STREAMICE_DRIVING_STRESS_FD |
& (surf_el_streamice(i+1,j,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress_fd.F |
83 |
STREAMICE_DRIVING_STRESS_FD |
& surf_el_streamice(i,j,bi,bj)) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
85 |
STREAMICE_DRIVING_STRESS_FD |
dsdx(i,j,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_driving_stress_fd.F |
89 |
STREAMICE_DRIVING_STRESS_FD |
dsdx(i,j,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_driving_stress_fd.F |
94 |
STREAMICE_DRIVING_STRESS_FD |
IF (streamice_hmask(i,j-1,bi,bj) .eq. 1) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
96 |
STREAMICE_DRIVING_STRESS_FD |
dsdy(i,j,bi,bj) = recip_dyC(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
97 |
STREAMICE_DRIVING_STRESS_FD |
& (surf_el_streamice(i,j,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress_fd.F |
98 |
STREAMICE_DRIVING_STRESS_FD |
& surf_el_streamice(i,j-1,bi,bj)) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
100 |
STREAMICE_DRIVING_STRESS_PPM |
taudx_SI(i+k,j+l,bi,bj) = taudx_SI(i+k,j+l,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
103 |
STREAMICE_DRIVING_STRESS_PPM |
& H_streamice(i,j,bi,bj) * rA(i,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
112 |
STREAMICE_DRIVING_STRESS_PPM |
IF (STREAMICE_hmask(i-1,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
116 |
STREAMICE_DRIVING_STRESS_PPM |
sx = (surf_el_streamice(i,j,bi,bj)- |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
117 |
STREAMICE_DRIVING_STRESS_PPM |
& surf_el_streamice(i-1,j,bi,bj))/dxC(i,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
127 |
STREAMICE_DRIVING_STRESS_PPM |
IF (STREAMICE_umask(i+k,j+l,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
128 |
STREAMICE_DRIVING_STRESS_PPM |
taudx_SI(i+k,j+l,bi,bj) = taudx_SI(i+k,j+l,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
131 |
STREAMICE_DRIVING_STRESS_PPM |
& H_streamice(i,j,bi,bj) * rA(i,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
140 |
STREAMICE_DRIVING_STRESS_PPM |
IF (STREAMICE_hmask(i+1,j,bi,bj).eq.1.0 .and. |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
141 |
STREAMICE_DRIVING_STRESS_PPM |
& STREAMICE_hmask(i-1,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
145 |
STREAMICE_DRIVING_STRESS_PPM |
IF (STREAMICE_umask(i+k,j+l,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
146 |
STREAMICE_DRIVING_STRESS_PPM |
taudx_SI(i+k,j+l,bi,bj) = taudx_SI(i+k,j+l,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
148 |
STREAMICE_DRIVING_STRESS_PPM |
& (-2.*surf_el_streamice(i-1,j,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
149 |
STREAMICE_DRIVING_STRESS_PPM |
& surf_el_streamice(i,j,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
150 |
STREAMICE_DRIVING_STRESS_PPM |
& surf_el_streamice(i+1,j,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
151 |
STREAMICE_DRIVING_STRESS_PPM |
& 3.*streamice_bg_surf_slope_x * dxF(i,j,bi,bj)) * |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
152 |
STREAMICE_DRIVING_STRESS_PPM |
& H_streamice(i,j,bi,bj) * .5 * dyF(i,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
158 |
STREAMICE_DRIVING_STRESS_PPM |
IF (STREAMICE_umask(i+k,j+l,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
159 |
STREAMICE_DRIVING_STRESS_PPM |
taudx_SI(i+k,j+l,bi,bj) = taudx_SI(i+k,j+l,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
161 |
STREAMICE_DRIVING_STRESS_PPM |
& (-surf_el_streamice(i-1,j,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
162 |
STREAMICE_DRIVING_STRESS_PPM |
& surf_el_streamice(i,j,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
163 |
STREAMICE_DRIVING_STRESS_PPM |
& 2*surf_el_streamice(i+1,j,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
164 |
STREAMICE_DRIVING_STRESS_PPM |
& 3.*streamice_bg_surf_slope_x * dxF(i,j,bi,bj)) * |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
165 |
STREAMICE_DRIVING_STRESS_PPM |
& H_streamice(i,j,bi,bj) * .5 * dyF(i,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
172 |
STREAMICE_DRIVING_STRESS_PPM |
IF (STREAMICE_hmask(i+1,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
174 |
STREAMICE_DRIVING_STRESS_PPM |
sx = (surf_el_streamice(i+1,j,bi,bj)- |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
175 |
STREAMICE_DRIVING_STRESS_PPM |
& surf_el_streamice(i,j,bi,bj))/dxC(i+1,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
177 |
STREAMICE_DRIVING_STRESS_PPM |
ELSEIF (STREAMICE_hmask(i-1,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
179 |
STREAMICE_DRIVING_STRESS_PPM |
sx = (surf_el_streamice(i,j,bi,bj)- |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
180 |
STREAMICE_DRIVING_STRESS_PPM |
& surf_el_streamice(i-1,j,bi,bj))/dxC(i,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
190 |
STREAMICE_DRIVING_STRESS_PPM |
IF (STREAMICE_umask(i+k,j+l,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
191 |
STREAMICE_DRIVING_STRESS_PPM |
taudx_SI(i+k,j+l,bi,bj) = taudx_SI(i+k,j+l,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
194 |
STREAMICE_DRIVING_STRESS_PPM |
& H_streamice(i,j,bi,bj) * rA(i,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
209 |
STREAMICE_DRIVING_STRESS_PPM |
IF (STREAMICE_hmask(i,j+1,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
213 |
STREAMICE_DRIVING_STRESS_PPM |
sy = (surf_el_streamice(i,j+1,bi,bj)- |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
214 |
STREAMICE_DRIVING_STRESS_PPM |
& surf_el_streamice(i,j,bi,bj))/dyC(i,j+1,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
224 |
STREAMICE_DRIVING_STRESS_PPM |
IF (STREAMICE_umask(i+k,j+l,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
225 |
STREAMICE_DRIVING_STRESS_PPM |
taudy_SI(i+k,j+l,bi,bj) = taudy_SI(i+k,j+l,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
228 |
STREAMICE_DRIVING_STRESS_PPM |
& H_streamice(i,j,bi,bj) * rA(i,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
237 |
STREAMICE_DRIVING_STRESS_PPM |
IF (STREAMICE_hmask(i,j-1,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
241 |
STREAMICE_DRIVING_STRESS_PPM |
sy = (surf_el_streamice(i,j,bi,bj)- |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
242 |
STREAMICE_DRIVING_STRESS_PPM |
& surf_el_streamice(i,j-1,bi,bj))/dyC(i,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
253 |
STREAMICE_DRIVING_STRESS_PPM |
IF (STREAMICE_umask(i+k,j+l,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
254 |
STREAMICE_DRIVING_STRESS_PPM |
taudy_SI(i+k,j+l,bi,bj) = taudy_SI(i+k,j+l,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
257 |
STREAMICE_DRIVING_STRESS_PPM |
& H_streamice(i,j,bi,bj) * rA(i,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
266 |
STREAMICE_DRIVING_STRESS_PPM |
IF (STREAMICE_hmask(i,j+1,bi,bj).eq.1.0 .and. |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
267 |
STREAMICE_DRIVING_STRESS_PPM |
& STREAMICE_hmask(i,j-1,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
271 |
STREAMICE_DRIVING_STRESS_PPM |
IF (STREAMICE_umask(i+k,j+l,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
272 |
STREAMICE_DRIVING_STRESS_PPM |
taudy_SI(i+k,j+l,bi,bj) = taudy_SI(i+k,j+l,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
274 |
STREAMICE_DRIVING_STRESS_PPM |
& (-2.*surf_el_streamice(i,j-1,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
275 |
STREAMICE_DRIVING_STRESS_PPM |
& surf_el_streamice(i,j,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
276 |
STREAMICE_DRIVING_STRESS_PPM |
& surf_el_streamice(i,j+1,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
277 |
STREAMICE_DRIVING_STRESS_PPM |
& 3.*streamice_bg_surf_slope_y * dyF(i,j,bi,bj)) * |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
278 |
STREAMICE_DRIVING_STRESS_PPM |
& H_streamice(i,j,bi,bj) * .5 * dxF(i,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
284 |
STREAMICE_DRIVING_STRESS_PPM |
IF (STREAMICE_umask(i+k,j+l,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
285 |
STREAMICE_DRIVING_STRESS_PPM |
taudy_SI(i+k,j+l,bi,bj) = taudy_SI(i+k,j+l,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
287 |
STREAMICE_DRIVING_STRESS_PPM |
& (-surf_el_streamice(i,j-1,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
288 |
STREAMICE_DRIVING_STRESS_PPM |
& surf_el_streamice(i,j,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
289 |
STREAMICE_DRIVING_STRESS_PPM |
& 2*surf_el_streamice(i,j+1,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
290 |
STREAMICE_DRIVING_STRESS_PPM |
& 3.*streamice_bg_surf_slope_y * dyF(i,j,bi,bj)) * |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
291 |
STREAMICE_DRIVING_STRESS_PPM |
& H_streamice(i,j,bi,bj) * .5 * dxF(i,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
298 |
STREAMICE_DRIVING_STRESS_PPM |
IF (STREAMICE_hmask(i,j+1,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
300 |
STREAMICE_DRIVING_STRESS_PPM |
sy = (surf_el_streamice(i,j+1,bi,bj)- |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
301 |
STREAMICE_DRIVING_STRESS_PPM |
& surf_el_streamice(i,j,bi,bj))/dxC(i,j+1,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
303 |
STREAMICE_DRIVING_STRESS_PPM |
ELSEIF (STREAMICE_hmask(i,j-1,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
305 |
STREAMICE_DRIVING_STRESS_PPM |
sy = (surf_el_streamice(i,j,bi,bj)- |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
306 |
STREAMICE_DRIVING_STRESS_PPM |
& surf_el_streamice(i,j-1,bi,bj))/dxC(i,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
316 |
STREAMICE_DRIVING_STRESS_PPM |
IF (STREAMICE_umask(i+k,j+l,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
317 |
STREAMICE_DRIVING_STRESS_PPM |
taudy_SI(i+k,j+l,bi,bj) = taudy_SI(i+k,j+l,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
320 |
STREAMICE_DRIVING_STRESS_PPM |
& H_streamice(i,j,bi,bj) * rA(i,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
345 |
STREAMICE_DRIVING_STRESS_PPM |
IF (float_frac_streamice(i,j,bi,bj) .eq. 1.0) then |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
348 |
STREAMICE_DRIVING_STRESS_PPM |
& (streamice_density * H_streamice (i,j,bi,bj) ** 2 - |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
349 |
STREAMICE_DRIVING_STRESS_PPM |
& streamice_density_ocean_avg * R_low_si(i,j,bi,bj) ** 2) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
352 |
STREAMICE_DRIVING_STRESS_PPM |
& (streamice_density * H_streamice (i,j,bi,bj) ** 2 - |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
353 |
STREAMICE_DRIVING_STRESS_PPM |
& streamice_density_ocean_avg * R_low(i,j,bi,bj) ** 2) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
358 |
STREAMICE_DRIVING_STRESS_PPM |
& streamice_density * H_streamice(i,j,bi,bj) ** 2 |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
361 |
STREAMICE_DRIVING_STRESS_PPM |
IF ((STREAMICE_ufacemask(i,j,bi,bj) .eq. 2) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
362 |
STREAMICE_DRIVING_STRESS_PPM |
& .OR. (STREAMICE_hmask(i-1,j,bi,bj) .eq. 0) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
363 |
STREAMICE_DRIVING_STRESS_PPM |
& .OR. (STREAMICE_hmask(i-1,j,bi,bj) .eq. 2) ) THEN ! left face of the cell is at a stress boundary |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
370 |
STREAMICE_DRIVING_STRESS_PPM |
taudx_SI(i,j,bi,bj) = taudx_SI(i,j,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
371 |
STREAMICE_DRIVING_STRESS_PPM |
& .5 * dyG(i,j,bi,bj)*(neu_val+streamice_addl_backstress) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
372 |
STREAMICE_DRIVING_STRESS_PPM |
taudx_SI(i,j+1,bi,bj) = taudx_SI(i,j+1,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
373 |
STREAMICE_DRIVING_STRESS_PPM |
& .5 * dyG(i,j,bi,bj)*(neu_val+streamice_addl_backstress) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
376 |
STREAMICE_DRIVING_STRESS_PPM |
IF ((STREAMICE_ufacemask(i+1,j,bi,bj) .eq. 2) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
377 |
STREAMICE_DRIVING_STRESS_PPM |
& .OR. (STREAMICE_hmask(i+1,j,bi,bj) .eq. 0) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
378 |
STREAMICE_DRIVING_STRESS_PPM |
& .OR. (STREAMICE_hmask(i+1,j,bi,bj) .eq. 2) ) THEN |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
380 |
STREAMICE_DRIVING_STRESS_PPM |
taudx_SI(i+1,j,bi,bj) = taudx_SI(i+1,j,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
381 |
STREAMICE_DRIVING_STRESS_PPM |
& .5 * dyG(i+1,j,bi,bj)*(neu_val+streamice_addl_backstress) ! note negative sign is due to direction of normal vector |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
382 |
STREAMICE_DRIVING_STRESS_PPM |
taudx_SI(i+1,j+1,bi,bj) = taudx_SI(i+1,j+1,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
383 |
STREAMICE_DRIVING_STRESS_PPM |
& .5 * dyG(i+1,j,bi,bj)*(neu_val+streamice_addl_backstress) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
386 |
STREAMICE_DRIVING_STRESS_PPM |
IF ((STREAMICE_vfacemask(i,j,bi,bj) .eq. 2) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
387 |
STREAMICE_DRIVING_STRESS_PPM |
& .OR. (STREAMICE_hmask(i,j-1,bi,bj) .eq. 0) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
388 |
STREAMICE_DRIVING_STRESS_PPM |
& .OR. (STREAMICE_hmask(i,j-1,bi,bj) .eq. 2) ) THEN |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
38 |
STREAMICE_DRIVING_STRESS_PPM |
INTEGER i, j, bi, bj, k, l, |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
390 |
STREAMICE_DRIVING_STRESS_PPM |
taudy_SI(i,j,bi,bj) = taudy_SI(i,j,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
391 |
STREAMICE_DRIVING_STRESS_PPM |
& .5 * dxG(i,j,bi,bj)*(neu_val+streamice_addl_backstress) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
392 |
STREAMICE_DRIVING_STRESS_PPM |
taudy_SI(i+1,j,bi,bj) = taudy_SI(i+1,j,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
393 |
STREAMICE_DRIVING_STRESS_PPM |
& .5 * dxG(i,j,bi,bj)*(neu_val+streamice_addl_backstress) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
396 |
STREAMICE_DRIVING_STRESS_PPM |
IF ((STREAMICE_vfacemask(i,j+1,bi,bj) .eq. 2) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
397 |
STREAMICE_DRIVING_STRESS_PPM |
& .OR. (STREAMICE_hmask(i,j+1,bi,bj) .eq. 0) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
398 |
STREAMICE_DRIVING_STRESS_PPM |
& .OR. (STREAMICE_hmask(i,j+1,bi,bj) .eq. 2) ) THEN |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
400 |
STREAMICE_DRIVING_STRESS_PPM |
taudy_SI(i,j+1,bi,bj) = taudy_SI(i,j+1,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
401 |
STREAMICE_DRIVING_STRESS_PPM |
& .5 * dxG(i,j+1,bi,bj)*(neu_val+streamice_addl_backstress) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
402 |
STREAMICE_DRIVING_STRESS_PPM |
taudy_SI(i+1,j+1,bi,bj) = taudy_SI(i+1,j+1,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
403 |
STREAMICE_DRIVING_STRESS_PPM |
& .5 * dxG(i,j+1,bi,bj)*(neu_val+streamice_addl_backstress) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
54 |
STREAMICE_DRIVING_STRESS_PPM |
DO i=1-OLx,sNx+OLx |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
55 |
STREAMICE_DRIVING_STRESS_PPM |
taudx_SI(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
56 |
STREAMICE_DRIVING_STRESS_PPM |
taudy_SI(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
65 |
STREAMICE_DRIVING_STRESS_PPM |
DO i=0,sNx+1 |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
73 |
STREAMICE_DRIVING_STRESS_PPM |
Gi = (myXGlobalLo-1)+(bi-1)*sNx+i |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
76 |
STREAMICE_DRIVING_STRESS_PPM |
IF (STREAMICE_hmask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
84 |
STREAMICE_DRIVING_STRESS_PPM |
IF (STREAMICE_hmask(i+1,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
88 |
STREAMICE_DRIVING_STRESS_PPM |
sx = (surf_el_streamice(i+1,j,bi,bj)- |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
89 |
STREAMICE_DRIVING_STRESS_PPM |
& surf_el_streamice(i,j,bi,bj))/dxC(i+1,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
99 |
STREAMICE_DRIVING_STRESS_PPM |
IF (STREAMICE_umask(i+k,j+l,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_fields_load.F |
184 |
STREAMICE_FIELDS_LOAD |
DO i=1,sNx |
|
./pkg/streamice/streamice_fields_load.F |
186 |
STREAMICE_FIELDS_LOAD |
streamice_u_normal_stress0(i,j,bi,bj) = |
|
./pkg/streamice/streamice_fields_load.F |
187 |
STREAMICE_FIELDS_LOAD |
& streamice_u_normal_stress1(i,j,bi,bj) |
|
./pkg/streamice/streamice_fields_load.F |
188 |
STREAMICE_FIELDS_LOAD |
streamice_v_normal_stress0(i,j,bi,bj) = |
|
./pkg/streamice/streamice_fields_load.F |
189 |
STREAMICE_FIELDS_LOAD |
& streamice_v_normal_stress1(i,j,bi,bj) |
|
./pkg/streamice/streamice_fields_load.F |
190 |
STREAMICE_FIELDS_LOAD |
streamice_u_shear_stress0(i,j,bi,bj) = |
|
./pkg/streamice/streamice_fields_load.F |
191 |
STREAMICE_FIELDS_LOAD |
& streamice_u_shear_stress1(i,j,bi,bj) |
|
./pkg/streamice/streamice_fields_load.F |
192 |
STREAMICE_FIELDS_LOAD |
streamice_v_shear_stress0(i,j,bi,bj) = |
|
./pkg/streamice/streamice_fields_load.F |
193 |
STREAMICE_FIELDS_LOAD |
& streamice_v_shear_stress1(i,j,bi,bj) |
|
./pkg/streamice/streamice_fields_load.F |
230 |
STREAMICE_FIELDS_LOAD |
DO i=1,sNx |
|
./pkg/streamice/streamice_fields_load.F |
232 |
STREAMICE_FIELDS_LOAD |
u_flux_bdry_SI_0(i,j,bi,bj) = |
|
./pkg/streamice/streamice_fields_load.F |
233 |
STREAMICE_FIELDS_LOAD |
& u_flux_bdry_SI_1(i,j,bi,bj) |
|
./pkg/streamice/streamice_fields_load.F |
234 |
STREAMICE_FIELDS_LOAD |
v_flux_bdry_SI_0(i,j,bi,bj) = |
|
./pkg/streamice/streamice_fields_load.F |
235 |
STREAMICE_FIELDS_LOAD |
& v_flux_bdry_SI_1(i,j,bi,bj) |
|
./pkg/streamice/streamice_fields_load.F |
262 |
STREAMICE_FIELDS_LOAD |
DO i=1,sNx |
|
./pkg/streamice/streamice_fields_load.F |
263 |
STREAMICE_FIELDS_LOAD |
bdot_streamice0(i,j,bi,bj) = |
|
./pkg/streamice/streamice_fields_load.F |
264 |
STREAMICE_FIELDS_LOAD |
& bdot_streamice1(i,j,bi,bj) |
|
./pkg/streamice/streamice_fields_load.F |
282 |
STREAMICE_FIELDS_LOAD |
DO i=1,sNx |
|
./pkg/streamice/streamice_fields_load.F |
284 |
STREAMICE_FIELDS_LOAD |
streamice_u_normal_stress(i,j,bi,bj) = |
|
./pkg/streamice/streamice_fields_load.F |
285 |
STREAMICE_FIELDS_LOAD |
& fac * streamice_u_normal_stress0(i,j,bi,bj) |
|
./pkg/streamice/streamice_fields_load.F |
286 |
STREAMICE_FIELDS_LOAD |
& + (1-fac) * streamice_u_normal_stress1(i,j,bi,bj) |
|
./pkg/streamice/streamice_fields_load.F |
287 |
STREAMICE_FIELDS_LOAD |
streamice_v_normal_stress(i,j,bi,bj) = |
|
./pkg/streamice/streamice_fields_load.F |
288 |
STREAMICE_FIELDS_LOAD |
& fac * streamice_v_normal_stress0(i,j,bi,bj) |
|
./pkg/streamice/streamice_fields_load.F |
289 |
STREAMICE_FIELDS_LOAD |
& + (1-fac) * streamice_v_normal_stress1(i,j,bi,bj) |
|
./pkg/streamice/streamice_fields_load.F |
290 |
STREAMICE_FIELDS_LOAD |
streamice_u_shear_stress(i,j,bi,bj) = |
|
./pkg/streamice/streamice_fields_load.F |
291 |
STREAMICE_FIELDS_LOAD |
& fac * streamice_u_shear_stress0(i,j,bi,bj) |
|
./pkg/streamice/streamice_fields_load.F |
292 |
STREAMICE_FIELDS_LOAD |
& + (1-fac) * streamice_u_shear_stress1(i,j,bi,bj) |
|
./pkg/streamice/streamice_fields_load.F |
293 |
STREAMICE_FIELDS_LOAD |
streamice_v_shear_stress(i,j,bi,bj) = |
|
./pkg/streamice/streamice_fields_load.F |
294 |
STREAMICE_FIELDS_LOAD |
& fac * streamice_v_shear_stress0(i,j,bi,bj) |
|
./pkg/streamice/streamice_fields_load.F |
295 |
STREAMICE_FIELDS_LOAD |
& + (1-fac) * streamice_v_shear_stress1(i,j,bi,bj) |
|
./pkg/streamice/streamice_fields_load.F |
298 |
STREAMICE_FIELDS_LOAD |
u_flux_bdry_pert(i,j,bi,bj) = |
|
./pkg/streamice/streamice_fields_load.F |
299 |
STREAMICE_FIELDS_LOAD |
& fac * u_flux_bdry_SI_0(i,j,bi,bj) |
|
./pkg/streamice/streamice_fields_load.F |
300 |
STREAMICE_FIELDS_LOAD |
& + (1-fac) * u_flux_bdry_SI_1(i,j,bi,bj) |
|
./pkg/streamice/streamice_fields_load.F |
301 |
STREAMICE_FIELDS_LOAD |
v_flux_bdry_pert(i,j,bi,bj) = |
|
./pkg/streamice/streamice_fields_load.F |
302 |
STREAMICE_FIELDS_LOAD |
& fac * v_flux_bdry_SI_0(i,j,bi,bj) |
|
./pkg/streamice/streamice_fields_load.F |
303 |
STREAMICE_FIELDS_LOAD |
& + (1-fac) * v_flux_bdry_SI_1(i,j,bi,bj) |
|
./pkg/streamice/streamice_fields_load.F |
306 |
STREAMICE_FIELDS_LOAD |
bdot_streamice (i,j,bi,bj) = |
|
./pkg/streamice/streamice_fields_load.F |
307 |
STREAMICE_FIELDS_LOAD |
& fac * bdot_streamice0(i,j,bi,bj) |
|
./pkg/streamice/streamice_fields_load.F |
308 |
STREAMICE_FIELDS_LOAD |
& + (1-fac) * bdot_streamice1(i,j,bi,bj) |
|
./pkg/streamice/streamice_fields_load.F |
58 |
STREAMICE_FIELDS_LOAD |
INTEGER bi,bj,i,j |
|
./pkg/streamice/streamice_forced_buttress.F |
100 |
STREAMICE_FORCED_BUTTRESS |
& streamice_density_ocean_avg * R_low(i,j,bi,bj)**2) |
|
./pkg/streamice/streamice_forced_buttress.F |
108 |
STREAMICE_FORCED_BUTTRESS |
if (H_streamice(i,j,bi,bj).lt.firn_depth) then |
|
./pkg/streamice/streamice_forced_buttress.F |
112 |
STREAMICE_FORCED_BUTTRESS |
& H_streamice(i,j,bi,bj)**2 |
|
./pkg/streamice/streamice_forced_buttress.F |
116 |
STREAMICE_FORCED_BUTTRESS |
& (h_streamice(i,j,bi,bj)-firn_depth) * |
|
./pkg/streamice/streamice_forced_buttress.F |
118 |
STREAMICE_FORCED_BUTTRESS |
& (h_streamice(i,j,bi,bj)-streamice_firn_correction)) - |
|
./pkg/streamice/streamice_forced_buttress.F |
120 |
STREAMICE_FORCED_BUTTRESS |
& (h_streamice(i,j,bi,bj)-streamice_firn_correction)**2 |
|
./pkg/streamice/streamice_forced_buttress.F |
129 |
STREAMICE_FORCED_BUTTRESS |
& H_streamice(i,j,bi,bj)**2 |
|
./pkg/streamice/streamice_forced_buttress.F |
139 |
STREAMICE_FORCED_BUTTRESS |
if (streamice_ufacemask(i+1,j,bi,bj).eq.2.0) then |
|
./pkg/streamice/streamice_forced_buttress.F |
142 |
STREAMICE_FORCED_BUTTRESS |
if (streamice_umask(i+1,j+k,bi,bj).eq.1.0) then |
|
./pkg/streamice/streamice_forced_buttress.F |
146 |
STREAMICE_FORCED_BUTTRESS |
& taudx_SI(i+1,j+k,bi,bj) |
|
./pkg/streamice/streamice_forced_buttress.F |
149 |
STREAMICE_FORCED_BUTTRESS |
taudx_SI(i+1,j+k,bi,bj) = taudx_SI(i+1,j+k,bi,bj) + |
|
./pkg/streamice/streamice_forced_buttress.F |
150 |
STREAMICE_FORCED_BUTTRESS |
& (streamice_u_normal_pert(i+1,j,bi,bj) + |
|
./pkg/streamice/streamice_forced_buttress.F |
151 |
STREAMICE_FORCED_BUTTRESS |
& streamice_u_normal_stress(i+1,j,bi,bj)) * |
|
./pkg/streamice/streamice_forced_buttress.F |
152 |
STREAMICE_FORCED_BUTTRESS |
& .5 * unconf_stress * dyG(i+1,j,bi,bj) |
|
./pkg/streamice/streamice_forced_buttress.F |
154 |
STREAMICE_FORCED_BUTTRESS |
taudy_SI(i+1,j+k,bi,bj) = taudy_SI(i+1,j+k,bi,bj) + |
|
./pkg/streamice/streamice_forced_buttress.F |
155 |
STREAMICE_FORCED_BUTTRESS |
& (streamice_v_shear_pert(i+1,j,bi,bj) + |
|
./pkg/streamice/streamice_forced_buttress.F |
156 |
STREAMICE_FORCED_BUTTRESS |
& streamice_v_shear_stress(i+1,j,bi,bj)) * |
|
./pkg/streamice/streamice_forced_buttress.F |
157 |
STREAMICE_FORCED_BUTTRESS |
& .5 * unconf_stress * dyG(i+1,j,bi,bj) |
|
./pkg/streamice/streamice_forced_buttress.F |
160 |
STREAMICE_FORCED_BUTTRESS |
print *, "GOT HERE 1", taudx_SI(i+1,j+k,bi,bj) |
|
./pkg/streamice/streamice_forced_buttress.F |
169 |
STREAMICE_FORCED_BUTTRESS |
if (streamice_ufacemask(i,j,bi,bj).eq.2.0) then |
|
./pkg/streamice/streamice_forced_buttress.F |
172 |
STREAMICE_FORCED_BUTTRESS |
if (streamice_umask(i,j+k,bi,bj).eq.1.0) then |
|
./pkg/streamice/streamice_forced_buttress.F |
175 |
STREAMICE_FORCED_BUTTRESS |
taudx_SI(i,j+k,bi,bj) = taudx_SI(i,j+k,bi,bj) - |
|
./pkg/streamice/streamice_forced_buttress.F |
176 |
STREAMICE_FORCED_BUTTRESS |
& (streamice_u_normal_pert(i,j,bi,bj) + |
|
./pkg/streamice/streamice_forced_buttress.F |
177 |
STREAMICE_FORCED_BUTTRESS |
& streamice_u_normal_stress(i,j,bi,bj)) * |
|
./pkg/streamice/streamice_forced_buttress.F |
178 |
STREAMICE_FORCED_BUTTRESS |
& .5 * unconf_stress * dyG(i,j,bi,bj) |
|
./pkg/streamice/streamice_forced_buttress.F |
180 |
STREAMICE_FORCED_BUTTRESS |
taudy_SI(i,j+k,bi,bj) = taudy_SI(i,j+k,bi,bj) - |
|
./pkg/streamice/streamice_forced_buttress.F |
181 |
STREAMICE_FORCED_BUTTRESS |
& (streamice_v_shear_pert(i,j,bi,bj) + |
|
./pkg/streamice/streamice_forced_buttress.F |
182 |
STREAMICE_FORCED_BUTTRESS |
& streamice_v_shear_stress(i,j,bi,bj)) * |
|
./pkg/streamice/streamice_forced_buttress.F |
183 |
STREAMICE_FORCED_BUTTRESS |
& .5 * unconf_stress * dyG(i,j,bi,bj) |
|
./pkg/streamice/streamice_forced_buttress.F |
189 |
STREAMICE_FORCED_BUTTRESS |
if (streamice_vfacemask(i,j+1,bi,bj).eq.2.0) then |
|
./pkg/streamice/streamice_forced_buttress.F |
193 |
STREAMICE_FORCED_BUTTRESS |
if (streamice_umask(i+k,j+1,bi,bj).eq.1.0) then |
|
./pkg/streamice/streamice_forced_buttress.F |
195 |
STREAMICE_FORCED_BUTTRESS |
taudy_SI(i+k,j+1,bi,bj) = taudy_SI(i+k,j+1,bi,bj) + |
|
./pkg/streamice/streamice_forced_buttress.F |
196 |
STREAMICE_FORCED_BUTTRESS |
& (streamice_v_normal_pert(i,j+1,bi,bj) + |
|
./pkg/streamice/streamice_forced_buttress.F |
197 |
STREAMICE_FORCED_BUTTRESS |
& streamice_v_normal_stress(i,j+1,bi,bj)) * |
|
./pkg/streamice/streamice_forced_buttress.F |
198 |
STREAMICE_FORCED_BUTTRESS |
& .5 * dxG(i,j+1,bi,bj) * unconf_stress |
|
./pkg/streamice/streamice_forced_buttress.F |
200 |
STREAMICE_FORCED_BUTTRESS |
taudx_SI(i+k,j+1,bi,bj) = taudx_SI(i+k,j+1,bi,bj) + |
|
./pkg/streamice/streamice_forced_buttress.F |
201 |
STREAMICE_FORCED_BUTTRESS |
& (streamice_u_shear_pert(i,j+1,bi,bj) + |
|
./pkg/streamice/streamice_forced_buttress.F |
202 |
STREAMICE_FORCED_BUTTRESS |
& streamice_u_shear_stress(i,j+1,bi,bj)) * |
|
./pkg/streamice/streamice_forced_buttress.F |
203 |
STREAMICE_FORCED_BUTTRESS |
& .5 * unconf_stress * dxG(i,j+1,bi,bj) |
|
./pkg/streamice/streamice_forced_buttress.F |
209 |
STREAMICE_FORCED_BUTTRESS |
if (streamice_vfacemask(i,j,bi,bj).eq.2.0) then |
|
./pkg/streamice/streamice_forced_buttress.F |
212 |
STREAMICE_FORCED_BUTTRESS |
if (streamice_umask(i+k,j,bi,bj).eq.1.0) then |
|
./pkg/streamice/streamice_forced_buttress.F |
214 |
STREAMICE_FORCED_BUTTRESS |
taudy_SI(i+k,j,bi,bj) = taudy_SI(i+k,j,bi,bj) - |
|
./pkg/streamice/streamice_forced_buttress.F |
215 |
STREAMICE_FORCED_BUTTRESS |
& (streamice_v_normal_pert(i,j,bi,bj) + |
|
./pkg/streamice/streamice_forced_buttress.F |
216 |
STREAMICE_FORCED_BUTTRESS |
& streamice_v_normal_stress(i,j,bi,bj)) * |
|
./pkg/streamice/streamice_forced_buttress.F |
217 |
STREAMICE_FORCED_BUTTRESS |
& .5 * dxG(i,j,bi,bj) * unconf_stress |
|
./pkg/streamice/streamice_forced_buttress.F |
219 |
STREAMICE_FORCED_BUTTRESS |
taudx_SI(i+k,j,bi,bj) = taudx_SI(i+k,j,bi,bj) - |
|
./pkg/streamice/streamice_forced_buttress.F |
220 |
STREAMICE_FORCED_BUTTRESS |
& (streamice_u_shear_pert(i,j,bi,bj) + |
|
./pkg/streamice/streamice_forced_buttress.F |
221 |
STREAMICE_FORCED_BUTTRESS |
& streamice_u_shear_stress(i,j,bi,bj)) * |
|
./pkg/streamice/streamice_forced_buttress.F |
222 |
STREAMICE_FORCED_BUTTRESS |
& .5 * unconf_stress * dxG(i,j,bi,bj) |
|
./pkg/streamice/streamice_forced_buttress.F |
38 |
STREAMICE_FORCED_BUTTRESS |
INTEGER i, j, bi, bj, k, l |
|
./pkg/streamice/streamice_forced_buttress.F |
59 |
STREAMICE_FORCED_BUTTRESS |
DO i=1-OLx+1,sNx+OLx-1 |
|
./pkg/streamice/streamice_forced_buttress.F |
62 |
STREAMICE_FORCED_BUTTRESS |
if (streamice_hmask(i,j,bi,bj).eq.1) then |
|
./pkg/streamice/streamice_forced_buttress.F |
63 |
STREAMICE_FORCED_BUTTRESS |
h = h_streamice(i,j,bi,bj) |
|
./pkg/streamice/streamice_forced_buttress.F |
65 |
STREAMICE_FORCED_BUTTRESS |
avg_density(i,j,bi,bj) = streamice_density_firn |
|
./pkg/streamice/streamice_forced_buttress.F |
67 |
STREAMICE_FORCED_BUTTRESS |
avg_density(i,j,bi,bj) = streamice_density * |
|
./pkg/streamice/streamice_forced_buttress.F |
73 |
STREAMICE_FORCED_BUTTRESS |
avg_density(i,j,bi,bj) = streamice_density |
|
./pkg/streamice/streamice_forced_buttress.F |
86 |
STREAMICE_FORCED_BUTTRESS |
DO i=1-OLy+1,sNx+OLy-1 |
|
./pkg/streamice/streamice_forced_buttress.F |
89 |
STREAMICE_FORCED_BUTTRESS |
if (streamice_hmask(i,j,bi,bj).eq.1.0) then |
|
./pkg/streamice/streamice_forced_buttress.F |
93 |
STREAMICE_FORCED_BUTTRESS |
IF (float_frac_streamice(i,j,bi,bj) .eq. 1.0) THEN |
|
./pkg/streamice/streamice_forced_buttress.F |
96 |
STREAMICE_FORCED_BUTTRESS |
& (avg_density(i,j,bi,bj) * H_streamice(i,j,bi,bj)**2 - |
|
./pkg/streamice/streamice_forced_buttress.F |
98 |
STREAMICE_FORCED_BUTTRESS |
& streamice_density_ocean_avg * R_low_si(i,j,bi,bj)**2) |
|
./pkg/streamice/streamice_get_fp_err_oad.F |
32 |
STREAMICE_GET_FP_ERR_OAD |
INTEGER conv_flag, i, j, bi, bj |
|
./pkg/streamice/streamice_get_fp_err_oad.F |
56 |
STREAMICE_GET_FP_ERR_OAD |
DO i=1,sNx |
|
./pkg/streamice/streamice_get_fp_err_oad.F |
59 |
STREAMICE_GET_FP_ERR_OAD |
IF (STREAMICE_umask(i,j,bi,bj).eq.1) THEN |
|
./pkg/streamice/streamice_get_fp_err_oad.F |
61 |
STREAMICE_GET_FP_ERR_OAD |
& ABS (U_streamice(i,j,bi,bj)-u_new_SI(i,j,bi,bj)) |
|
./pkg/streamice/streamice_get_fp_err_oad.F |
63 |
STREAMICE_GET_FP_ERR_OAD |
IF (STREAMICE_vmask(i,j,bi,bj).eq.1) THEN |
|
./pkg/streamice/streamice_get_fp_err_oad.F |
65 |
STREAMICE_GET_FP_ERR_OAD |
& ABS (V_streamice(i,j,bi,bj)-v_new_SI(i,j,bi,bj))) |
|
./pkg/streamice/streamice_get_vel_fp_err.F |
102 |
STREAMICE_GET_VEL_FP_ERR |
& (ABS(v_streamice(i,j,bi,bj)- |
|
./pkg/streamice/streamice_get_vel_fp_err.F |
103 |
STREAMICE_GET_VEL_FP_ERR |
& v_new_SI(i,j,bi,bj)))**streamice_err_norm |
|
./pkg/streamice/streamice_get_vel_fp_err.F |
105 |
STREAMICE_GET_VEL_FP_ERR |
& (ABS(v_streamice(i,j,bi,bj)- |
|
./pkg/streamice/streamice_get_vel_fp_err.F |
106 |
STREAMICE_GET_VEL_FP_ERR |
& v_old_SI(i,j,bi,bj)))**streamice_err_norm |
|
./pkg/streamice/streamice_get_vel_fp_err.F |
32 |
STREAMICE_GET_VEL_FP_ERR |
INTEGER conv_flag, i, j, bi, bj |
|
./pkg/streamice/streamice_get_vel_fp_err.F |
56 |
STREAMICE_GET_VEL_FP_ERR |
DO i=1,sNx |
|
./pkg/streamice/streamice_get_vel_fp_err.F |
59 |
STREAMICE_GET_VEL_FP_ERR |
IF (STREAMICE_umask(i,j,bi,bj).eq.1) THEN |
|
./pkg/streamice/streamice_get_vel_fp_err.F |
62 |
STREAMICE_GET_VEL_FP_ERR |
& ABS (U_streamice(i,j,bi,bj)-u_new_SI(i,j,bi,bj)) |
|
./pkg/streamice/streamice_get_vel_fp_err.F |
64 |
STREAMICE_GET_VEL_FP_ERR |
& ABS (U_streamice(i,j,bi,bj)-u_old_SI(i,j,bi,bj)) |
|
./pkg/streamice/streamice_get_vel_fp_err.F |
67 |
STREAMICE_GET_VEL_FP_ERR |
IF (STREAMICE_vmask(i,j,bi,bj).eq.1) THEN |
|
./pkg/streamice/streamice_get_vel_fp_err.F |
70 |
STREAMICE_GET_VEL_FP_ERR |
& ABS (V_streamice(i,j,bi,bj)-v_new_SI(i,j,bi,bj))) |
|
./pkg/streamice/streamice_get_vel_fp_err.F |
72 |
STREAMICE_GET_VEL_FP_ERR |
& ABS (V_streamice(i,j,bi,bj)-v_old_SI(i,j,bi,bj))) |
|
./pkg/streamice/streamice_get_vel_fp_err.F |
88 |
STREAMICE_GET_VEL_FP_ERR |
DO i=1,sNx |
|
./pkg/streamice/streamice_get_vel_fp_err.F |
89 |
STREAMICE_GET_VEL_FP_ERR |
IF (STREAMICE_umask(i,j,bi,bj).eq.1) THEN |
|
./pkg/streamice/streamice_get_vel_fp_err.F |
92 |
STREAMICE_GET_VEL_FP_ERR |
& (ABS(U_streamice(i,j,bi,bj)- |
|
./pkg/streamice/streamice_get_vel_fp_err.F |
93 |
STREAMICE_GET_VEL_FP_ERR |
& u_new_SI(i,j,bi,bj)))**streamice_err_norm |
|
./pkg/streamice/streamice_get_vel_fp_err.F |
95 |
STREAMICE_GET_VEL_FP_ERR |
& (ABS(U_streamice(i,j,bi,bj)- |
|
./pkg/streamice/streamice_get_vel_fp_err.F |
96 |
STREAMICE_GET_VEL_FP_ERR |
& u_old_SI(i,j,bi,bj)))**streamice_err_norm |
|
./pkg/streamice/streamice_get_vel_fp_err.F |
99 |
STREAMICE_GET_VEL_FP_ERR |
IF (STREAMICE_vmask(i,j,bi,bj).eq.1) THEN |
|
./pkg/streamice/streamice_get_vel_resid_err.F |
101 |
STREAMICE_GET_VEL_RESID_ERR |
IF (STREAMICE_vmask(i,j,bi,bj).eq.1) THEN |
|
./pkg/streamice/streamice_get_vel_resid_err.F |
103 |
STREAMICE_GET_VEL_RESID_ERR |
& ABS (Av_SI(i,j,bi,bj)+0*vbd_SI(i,j,bi,bj) - |
|
./pkg/streamice/streamice_get_vel_resid_err.F |
104 |
STREAMICE_GET_VEL_RESID_ERR |
& taudy_SI(i,j,bi,bj))) |
|
./pkg/streamice/streamice_get_vel_resid_err.F |
124 |
STREAMICE_GET_VEL_RESID_ERR |
DO i=1,sNx |
|
./pkg/streamice/streamice_get_vel_resid_err.F |
126 |
STREAMICE_GET_VEL_RESID_ERR |
IF (STREAMICE_umask(i,j,bi,bj).eq.1) THEN |
|
./pkg/streamice/streamice_get_vel_resid_err.F |
128 |
STREAMICE_GET_VEL_RESID_ERR |
& (ABS (Au_SI(i,j,bi,bj)+0*ubd_SI(i,j,bi,bj) - |
|
./pkg/streamice/streamice_get_vel_resid_err.F |
129 |
STREAMICE_GET_VEL_RESID_ERR |
& taudx_SI(i,j,bi,bj))) ** streamice_err_norm |
|
./pkg/streamice/streamice_get_vel_resid_err.F |
131 |
STREAMICE_GET_VEL_RESID_ERR |
IF (STREAMICE_vmask(i,j,bi,bj).eq.1) THEN |
|
./pkg/streamice/streamice_get_vel_resid_err.F |
133 |
STREAMICE_GET_VEL_RESID_ERR |
& (ABS (Av_SI(i,j,bi,bj)+0*vbd_SI(i,j,bi,bj) - |
|
./pkg/streamice/streamice_get_vel_resid_err.F |
134 |
STREAMICE_GET_VEL_RESID_ERR |
& taudy_SI(i,j,bi,bj))) ** streamice_err_norm |
|
./pkg/streamice/streamice_get_vel_resid_err.F |
31 |
STREAMICE_GET_VEL_RESID_ERR |
INTEGER conv_flag, i, j, bi, bj |
|
./pkg/streamice/streamice_get_vel_resid_err.F |
57 |
STREAMICE_GET_VEL_RESID_ERR |
DO i=1,sNx |
|
./pkg/streamice/streamice_get_vel_resid_err.F |
58 |
STREAMICE_GET_VEL_RESID_ERR |
Au_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_get_vel_resid_err.F |
59 |
STREAMICE_GET_VEL_RESID_ERR |
Av_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_get_vel_resid_err.F |
60 |
STREAMICE_GET_VEL_RESID_ERR |
ubd_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_get_vel_resid_err.F |
61 |
STREAMICE_GET_VEL_RESID_ERR |
vbd_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_get_vel_resid_err.F |
93 |
STREAMICE_GET_VEL_RESID_ERR |
DO i=1,sNx |
|
./pkg/streamice/streamice_get_vel_resid_err.F |
96 |
STREAMICE_GET_VEL_RESID_ERR |
IF (STREAMICE_umask(i,j,bi,bj).eq.1) THEN |
|
./pkg/streamice/streamice_get_vel_resid_err.F |
98 |
STREAMICE_GET_VEL_RESID_ERR |
& ABS (Au_SI(i,j,bi,bj)+0*ubd_SI(i,j,bi,bj) - |
|
./pkg/streamice/streamice_get_vel_resid_err.F |
99 |
STREAMICE_GET_VEL_RESID_ERR |
& taudx_SI(i,j,bi,bj)) |
|
./model/src/ini_local_grid.F |
130 |
INI_LOCAL_GRID |
DO i=1, iG0 |
|
./model/src/ini_local_grid.F |
131 |
INI_LOCAL_GRID |
xG0 = xG0 + delX(i) |
|
./model/src/ini_local_grid.F |
134 |
INI_LOCAL_GRID |
DO i=1, OLx |
|
./model/src/ini_local_grid.F |
135 |
INI_LOCAL_GRID |
xG0 = xG0 - delX( 1+MOD(iG0-i+OLx*gridNx,gridNx) ) |
|
./model/src/ini_local_grid.F |
148 |
INI_LOCAL_GRID |
DO i=0-OLx,sNx+OLx |
|
./model/src/ini_local_grid.F |
149 |
INI_LOCAL_GRID |
delXloc(i) = delX( 1+MOD(iG0+i-1+OLx*gridNx,gridNx) ) |
|
./model/src/ini_local_grid.F |
158 |
INI_LOCAL_GRID |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_local_grid.F |
159 |
INI_LOCAL_GRID |
xGloc(i+1,j) = xGloc(i,j) + delXloc(i) |
|
./model/src/ini_local_grid.F |
162 |
INI_LOCAL_GRID |
DO i=1-OLx,sNx+OLx +1 |
|
./model/src/ini_local_grid.F |
163 |
INI_LOCAL_GRID |
yGloc(i,1-OLy) = yG0 |
|
./model/src/ini_local_grid.F |
165 |
INI_LOCAL_GRID |
yGloc(i,j+1) = yGloc(i,j) + delYloc(j) |
|
./model/src/ini_local_grid.F |
73 |
INI_LOCAL_GRID |
INTEGER i, j |
|
./pkg/streamice/streamice_get_vel_resid_err_oad.F |
40 |
STREAMICE_GET_VEL_RESID_ERR_OAD |
INTEGER conv_flag, i, j, bi, bj, myIter |
|
./pkg/streamice/streamice_get_vel_resid_err_oad.F |
61 |
STREAMICE_GET_VEL_RESID_ERR_OAD |
DO i=1-olx,sNx+olx |
|
./pkg/streamice/streamice_get_vel_resid_err_oad.F |
62 |
STREAMICE_GET_VEL_RESID_ERR_OAD |
Au_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_get_vel_resid_err_oad.F |
63 |
STREAMICE_GET_VEL_RESID_ERR_OAD |
Av_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_get_vel_resid_err_oad.F |
64 |
STREAMICE_GET_VEL_RESID_ERR_OAD |
u_dummy (i,j,bi,bj) = u_streamice(i,j,bi,bj) |
|
./pkg/streamice/streamice_get_vel_resid_err_oad.F |
65 |
STREAMICE_GET_VEL_RESID_ERR_OAD |
v_dummy (i,j,bi,bj) = v_streamice(i,j,bi,bj) |
|
./pkg/streamice/streamice_get_vel_resid_err_oad.F |
66 |
STREAMICE_GET_VEL_RESID_ERR_OAD |
ubd_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_get_vel_resid_err_oad.F |
67 |
STREAMICE_GET_VEL_RESID_ERR_OAD |
vbd_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_get_vel_resid_err_oad.F |
88 |
STREAMICE_GET_VEL_RESID_ERR_OAD |
DO i=1,sNx |
|
./pkg/streamice/streamice_get_vel_resid_err_oad.F |
91 |
STREAMICE_GET_VEL_RESID_ERR_OAD |
IF (STREAMICE_umask(i,j,bi,bj).eq.1) THEN |
|
./pkg/streamice/streamice_get_vel_resid_err_oad.F |
93 |
STREAMICE_GET_VEL_RESID_ERR_OAD |
& ABS (Au_SI(i,j,bi,bj)+0*ubd_SI(i,j,bi,bj) - |
|
./pkg/streamice/streamice_get_vel_resid_err_oad.F |
94 |
STREAMICE_GET_VEL_RESID_ERR_OAD |
& taudx_SI(i,j,bi,bj)) |
|
./pkg/streamice/streamice_get_vel_resid_err_oad.F |
96 |
STREAMICE_GET_VEL_RESID_ERR_OAD |
IF (STREAMICE_vmask(i,j,bi,bj).eq.1) THEN |
|
./pkg/streamice/streamice_get_vel_resid_err_oad.F |
98 |
STREAMICE_GET_VEL_RESID_ERR_OAD |
& ABS (Av_SI(i,j,bi,bj)+0*vbd_SI(i,j,bi,bj) - |
|
./pkg/streamice/streamice_get_vel_resid_err_oad.F |
99 |
STREAMICE_GET_VEL_RESID_ERR_OAD |
& taudy_SI(i,j,bi,bj))) |
|
./pkg/streamice/streamice_init_fixed.F |
123 |
STREAMICE_INIT_FIXED |
DO i=1,sNx |
|
./pkg/streamice/streamice_init_fixed.F |
124 |
STREAMICE_INIT_FIXED |
STREAMICE_cost_mask (i,j,bi,bj) = 1.0 |
|
./pkg/streamice/streamice_init_fixed.F |
261 |
STREAMICE_INIT_FIXED |
DO i=1,sNx |
|
./pkg/streamice/streamice_init_fixed.F |
262 |
STREAMICE_INIT_FIXED |
IF (temp_hmask(i,j,bi,bj) .eq. 1.0) THEN |
|
./pkg/streamice/streamice_init_fixed.F |
264 |
STREAMICE_INIT_FIXED |
STREAMICE_ctrl_mask(i,j,k,bi,bj) = 1. _d 0 |
|
./pkg/streamice/streamice_init_fixed.F |
277 |
STREAMICE_INIT_FIXED |
DO i=1,sNx |
|
./pkg/streamice/streamice_init_fixed.F |
278 |
STREAMICE_INIT_FIXED |
u_bdry_values_SI (i,j,bi,bj) = |
|
./pkg/streamice/streamice_init_fixed.F |
279 |
STREAMICE_INIT_FIXED |
& u_bdry_values_SI_base (i,j,bi,bj) |
|
./pkg/streamice/streamice_init_fixed.F |
280 |
STREAMICE_INIT_FIXED |
v_bdry_values_SI (i,j,bi,bj) = |
|
./pkg/streamice/streamice_init_fixed.F |
281 |
STREAMICE_INIT_FIXED |
& v_bdry_values_SI_base (i,j,bi,bj) |
|
./pkg/streamice/streamice_init_fixed.F |
298 |
STREAMICE_INIT_FIXED |
DO i=1,sNx |
|
./pkg/streamice/streamice_init_fixed.F |
302 |
STREAMICE_INIT_FIXED |
k1AtC_str(i,j,bi,bj) = recip_rA(i,j,bi,bj) * |
|
./pkg/streamice/streamice_init_fixed.F |
303 |
STREAMICE_INIT_FIXED |
& (dxG(i+1,j,bi,bj)-dxG(i,j,bi,bj)) |
|
./pkg/streamice/streamice_init_fixed.F |
304 |
STREAMICE_INIT_FIXED |
k2AtC_str(i,j,bi,bj) = recip_rA(i,j,bi,bj) * |
|
./pkg/streamice/streamice_init_fixed.F |
305 |
STREAMICE_INIT_FIXED |
& (dyG(i,j+1,bi,bj)-dyG(i,j,bi,bj)) |
|
./pkg/streamice/streamice_init_fixed.F |
308 |
STREAMICE_INIT_FIXED |
streamice_basal_geom (i,j,bi,bj) = 1.0 |
|
./pkg/streamice/streamice_init_fixed.F |
315 |
STREAMICE_INIT_FIXED |
Gi = (myXGlobalLo-1)+(bi-1)*sNx+i |
|
./pkg/streamice/streamice_init_fixed.F |
317 |
STREAMICE_INIT_FIXED |
x = xC(i,j,bi,bj) |
|
./pkg/streamice/streamice_init_fixed.F |
318 |
STREAMICE_INIT_FIXED |
y = yC(i,j,bi,bj) |
|
./pkg/streamice/streamice_init_fixed.F |
320 |
STREAMICE_INIT_FIXED |
STREAMICE_ufacemask_bdry (i,j,bi,bj) = -1.0 |
|
./pkg/streamice/streamice_init_fixed.F |
321 |
STREAMICE_INIT_FIXED |
STREAMICE_vfacemask_bdry (i,j,bi,bj) = -1.0 |
|
./pkg/streamice/streamice_init_fixed.F |
327 |
STREAMICE_INIT_FIXED |
STREAMICE_ufacemask_bdry (i,j,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_init_fixed.F |
331 |
STREAMICE_INIT_FIXED |
STREAMICE_ufacemask_bdry (i,j,bi,bj) = 1.0 |
|
./pkg/streamice/streamice_init_fixed.F |
335 |
STREAMICE_INIT_FIXED |
STREAMICE_ufacemask_bdry (i,j,bi,bj) = 4.0 |
|
./pkg/streamice/streamice_init_fixed.F |
336 |
STREAMICE_INIT_FIXED |
u_flux_bdry_SI (i,j,bi,bj) = flux_bdry_val_WEST |
|
./pkg/streamice/streamice_init_fixed.F |
340 |
STREAMICE_INIT_FIXED |
STREAMICE_ufacemask_bdry (i,j,bi,bj) = 3.0 |
|
./pkg/streamice/streamice_init_fixed.F |
341 |
STREAMICE_INIT_FIXED |
u_bdry_values_SI (i,j,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_init_fixed.F |
345 |
STREAMICE_INIT_FIXED |
STREAMICE_ufacemask_bdry (i,j,bi,bj) = 2.0 |
|
./pkg/streamice/streamice_init_fixed.F |
353 |
STREAMICE_INIT_FIXED |
STREAMICE_ufacemask_bdry (i,j,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_init_fixed.F |
357 |
STREAMICE_INIT_FIXED |
STREAMICE_ufacemask_bdry (i,j,bi,bj) = 1.0 |
|
./pkg/streamice/streamice_init_fixed.F |
361 |
STREAMICE_INIT_FIXED |
STREAMICE_ufacemask_bdry (i,j,bi,bj) = 4.0 |
|
./pkg/streamice/streamice_init_fixed.F |
362 |
STREAMICE_INIT_FIXED |
u_flux_bdry_SI (i,j,bi,bj) = flux_bdry_val_EAST |
|
./pkg/streamice/streamice_init_fixed.F |
366 |
STREAMICE_INIT_FIXED |
STREAMICE_ufacemask_bdry (i,j,bi,bj) = 3.0 |
|
./pkg/streamice/streamice_init_fixed.F |
367 |
STREAMICE_INIT_FIXED |
u_bdry_values_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_fixed.F |
36 |
STREAMICE_INIT_FIXED |
INTEGER bi, bj, i, j, Gi, Gj, m, k |
|
./pkg/streamice/streamice_init_fixed.F |
371 |
STREAMICE_INIT_FIXED |
STREAMICE_ufacemask_bdry (i,j,bi,bj) = 2.0 |
|
./pkg/streamice/streamice_init_fixed.F |
379 |
STREAMICE_INIT_FIXED |
STREAMICE_vfacemask_bdry (i,j,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_init_fixed.F |
383 |
STREAMICE_INIT_FIXED |
STREAMICE_vfacemask_bdry (i,j,bi,bj) = 1.0 |
|
./pkg/streamice/streamice_init_fixed.F |
387 |
STREAMICE_INIT_FIXED |
STREAMICE_vfacemask_bdry (i,j,bi,bj) = 4.0 |
|
./pkg/streamice/streamice_init_fixed.F |
388 |
STREAMICE_INIT_FIXED |
v_flux_bdry_SI (i,j,bi,bj) = flux_bdry_val_SOUTH |
|
./pkg/streamice/streamice_init_fixed.F |
392 |
STREAMICE_INIT_FIXED |
STREAMICE_vfacemask_bdry (i,j,bi,bj) = 3.0 |
|
./pkg/streamice/streamice_init_fixed.F |
393 |
STREAMICE_INIT_FIXED |
u_bdry_values_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_fixed.F |
397 |
STREAMICE_INIT_FIXED |
STREAMICE_vfacemask_bdry (i,j,bi,bj) = 2.0 |
|
./pkg/streamice/streamice_init_fixed.F |
405 |
STREAMICE_INIT_FIXED |
STREAMICE_vfacemask_bdry (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_fixed.F |
409 |
STREAMICE_INIT_FIXED |
STREAMICE_vfacemask_bdry (i,j,bi,bj) = 1.0 |
|
./pkg/streamice/streamice_init_fixed.F |
413 |
STREAMICE_INIT_FIXED |
STREAMICE_vfacemask_bdry (i,j,bi,bj) = 4.0 |
|
./pkg/streamice/streamice_init_fixed.F |
414 |
STREAMICE_INIT_FIXED |
v_flux_bdry_SI (i,j,bi,bj) = flux_bdry_val_NORTH |
|
./pkg/streamice/streamice_init_fixed.F |
418 |
STREAMICE_INIT_FIXED |
STREAMICE_vfacemask_bdry (i,j,bi,bj) = 3.0 |
|
./pkg/streamice/streamice_init_fixed.F |
419 |
STREAMICE_INIT_FIXED |
v_bdry_values_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_fixed.F |
423 |
STREAMICE_INIT_FIXED |
STREAMICE_vfacemask_bdry (i,j,bi,bj) = 2.0 |
|
./pkg/streamice/streamice_init_fixed.F |
430 |
STREAMICE_INIT_FIXED |
IF (temp_hmask(i,j,bi,bj).eq.1.0 .or. |
|
./pkg/streamice/streamice_init_fixed.F |
431 |
STREAMICE_INIT_FIXED |
& temp_hmask(i,j,bi,bj).eq.0.0 .or. |
|
./pkg/streamice/streamice_init_fixed.F |
432 |
STREAMICE_INIT_FIXED |
& temp_hmask(i-1,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_init_fixed.F |
435 |
STREAMICE_INIT_FIXED |
maskFlag=INT(temp_ufacemask(i,j,bi,bj)) |
|
./pkg/streamice/streamice_init_fixed.F |
437 |
STREAMICE_INIT_FIXED |
STREAMICE_ufacemask_bdry (i,j,bi,bj) = 2.0 |
|
./pkg/streamice/streamice_init_fixed.F |
439 |
STREAMICE_INIT_FIXED |
STREAMICE_ufacemask_bdry (i,j,bi,bj) = 4.0 |
|
./pkg/streamice/streamice_init_fixed.F |
441 |
STREAMICE_INIT_FIXED |
STREAMICE_ufacemask_bdry (i,j,bi,bj) = 3.0 |
|
./pkg/streamice/streamice_init_fixed.F |
443 |
STREAMICE_INIT_FIXED |
STREAMICE_ufacemask_bdry (i,j,bi,bj) = 1.0 |
|
./pkg/streamice/streamice_init_fixed.F |
446 |
STREAMICE_INIT_FIXED |
& (temp_hmask(i-1,j,bi,bj).eq.-1.0))) THEN |
|
./pkg/streamice/streamice_init_fixed.F |
447 |
STREAMICE_INIT_FIXED |
STREAMICE_ufacemask_bdry (i,j,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_init_fixed.F |
448 |
STREAMICE_INIT_FIXED |
ELSEIF (temp_hmask(i,j,bi,bj).eq.-1.0) THEN |
|
./pkg/streamice/streamice_init_fixed.F |
449 |
STREAMICE_INIT_FIXED |
STREAMICE_ufacemask_bdry (i,j,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_init_fixed.F |
451 |
STREAMICE_INIT_FIXED |
STREAMICE_ufacemask_bdry (i,j,bi,bj) = -1.0 |
|
./pkg/streamice/streamice_init_fixed.F |
456 |
STREAMICE_INIT_FIXED |
IF (temp_hmask(i,j,bi,bj).eq.1.0 .or. |
|
./pkg/streamice/streamice_init_fixed.F |
457 |
STREAMICE_INIT_FIXED |
& temp_hmask(i,j,bi,bj).eq.0.0) THEN |
|
./pkg/streamice/streamice_init_fixed.F |
460 |
STREAMICE_INIT_FIXED |
maskFlag=INT(temp_ufacemask(i+1,j,bi,bj)) |
|
./pkg/streamice/streamice_init_fixed.F |
462 |
STREAMICE_INIT_FIXED |
STREAMICE_ufacemask_bdry (i+1,j,bi,bj) = 2.0 |
|
./pkg/streamice/streamice_init_fixed.F |
464 |
STREAMICE_INIT_FIXED |
STREAMICE_ufacemask_bdry (i+1,j,bi,bj) = 4.0 |
|
./pkg/streamice/streamice_init_fixed.F |
466 |
STREAMICE_INIT_FIXED |
STREAMICE_ufacemask_bdry (i+1,j,bi,bj) = 3.0 |
|
./pkg/streamice/streamice_init_fixed.F |
468 |
STREAMICE_INIT_FIXED |
STREAMICE_ufacemask_bdry (i+1,j,bi,bj) = 1.0 |
|
./pkg/streamice/streamice_init_fixed.F |
471 |
STREAMICE_INIT_FIXED |
& (temp_hmask(i+1,j,bi,bj).eq.-1.0))) THEN |
|
./pkg/streamice/streamice_init_fixed.F |
472 |
STREAMICE_INIT_FIXED |
STREAMICE_ufacemask_bdry (i+1,j,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_init_fixed.F |
474 |
STREAMICE_INIT_FIXED |
STREAMICE_ufacemask_bdry (i+1,j,bi,bj) = -1.0 |
|
./pkg/streamice/streamice_init_fixed.F |
479 |
STREAMICE_INIT_FIXED |
IF (temp_hmask(i,j,bi,bj).eq.1.0 .or. |
|
./pkg/streamice/streamice_init_fixed.F |
480 |
STREAMICE_INIT_FIXED |
& temp_hmask(i,j,bi,bj).eq.0.0 .or. |
|
./pkg/streamice/streamice_init_fixed.F |
481 |
STREAMICE_INIT_FIXED |
& temp_hmask(i,j-1,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_init_fixed.F |
484 |
STREAMICE_INIT_FIXED |
maskFlag=INT(temp_vfacemask(i,j,bi,bj)) |
|
./pkg/streamice/streamice_init_fixed.F |
486 |
STREAMICE_INIT_FIXED |
STREAMICE_vfacemask_bdry (i,j,bi,bj) = 2.0 |
|
./pkg/streamice/streamice_init_fixed.F |
488 |
STREAMICE_INIT_FIXED |
STREAMICE_vfacemask_bdry (i,j,bi,bj) = 4.0 |
|
./pkg/streamice/streamice_init_fixed.F |
490 |
STREAMICE_INIT_FIXED |
STREAMICE_vfacemask_bdry (i,j,bi,bj) = 3.0 |
|
./pkg/streamice/streamice_init_fixed.F |
492 |
STREAMICE_INIT_FIXED |
STREAMICE_vfacemask_bdry (i,j,bi,bj) = 1.0 |
|
./pkg/streamice/streamice_init_fixed.F |
495 |
STREAMICE_INIT_FIXED |
& (temp_hmask(i,j-1,bi,bj).eq.-1.0))) THEN |
|
./pkg/streamice/streamice_init_fixed.F |
496 |
STREAMICE_INIT_FIXED |
STREAMICE_vfacemask_bdry (i,j,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_init_fixed.F |
497 |
STREAMICE_INIT_FIXED |
ELSEIF (temp_hmask(i,j,bi,bj).eq.-1.0) THEN |
|
./pkg/streamice/streamice_init_fixed.F |
498 |
STREAMICE_INIT_FIXED |
STREAMICE_vfacemask_bdry (i,j,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_init_fixed.F |
500 |
STREAMICE_INIT_FIXED |
STREAMICE_vfacemask_bdry (i,j,bi,bj) = -1.0 |
|
./pkg/streamice/streamice_init_fixed.F |
505 |
STREAMICE_INIT_FIXED |
IF (temp_hmask(i,j,bi,bj).eq.1.0 .or. |
|
./pkg/streamice/streamice_init_fixed.F |
506 |
STREAMICE_INIT_FIXED |
& temp_hmask(i,j,bi,bj).eq.0.0) THEN |
|
./pkg/streamice/streamice_init_fixed.F |
509 |
STREAMICE_INIT_FIXED |
maskFlag=INT(temp_vfacemask(i,j+1,bi,bj)) |
|
./pkg/streamice/streamice_init_fixed.F |
511 |
STREAMICE_INIT_FIXED |
STREAMICE_vfacemask_bdry (i,j+1,bi,bj) = 2.0 |
|
./pkg/streamice/streamice_init_fixed.F |
513 |
STREAMICE_INIT_FIXED |
STREAMICE_vfacemask_bdry (i,j+1,bi,bj) = 4.0 |
|
./pkg/streamice/streamice_init_fixed.F |
515 |
STREAMICE_INIT_FIXED |
STREAMICE_vfacemask_bdry (i,j+1,bi,bj) = 3.0 |
|
./pkg/streamice/streamice_init_fixed.F |
517 |
STREAMICE_INIT_FIXED |
STREAMICE_vfacemask_bdry (i,j+1,bi,bj) = 1.0 |
|
./pkg/streamice/streamice_init_fixed.F |
520 |
STREAMICE_INIT_FIXED |
& (temp_hmask(i,j+1,bi,bj).eq.-1.0))) THEN |
|
./pkg/streamice/streamice_init_fixed.F |
521 |
STREAMICE_INIT_FIXED |
STREAMICE_vfacemask_bdry (i,j+1,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_init_fixed.F |
523 |
STREAMICE_INIT_FIXED |
STREAMICE_vfacemask_bdry (i,j+1,bi,bj) = -1.0 |
|
./pkg/streamice/streamice_init_fixed.F |
83 |
STREAMICE_INIT_FIXED |
DO i=1,sNx |
|
./pkg/streamice/streamice_init_fixed.F |
84 |
STREAMICE_INIT_FIXED |
streamice_calve_mask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_phi.F |
31 |
STREAMICE_INIT_PHI |
INTEGER bi, bj, i, j, xnode, ynode, xq, yq, m, n, p, kx, ky |
|
./pkg/streamice/streamice_init_phi.F |
57 |
STREAMICE_INIT_PHI |
DO i=1-Olx,sNx+Olx-1 |
|
./pkg/streamice/streamice_init_phi.F |
60 |
STREAMICE_INIT_PHI |
gradx(xq) = Xquad(3-xq) * recip_dxG (i,j,bi,bj) + |
|
./pkg/streamice/streamice_init_phi.F |
61 |
STREAMICE_INIT_PHI |
& Xquad(xq) * recip_dxG (i+1,j,bi,bj) |
|
./pkg/streamice/streamice_init_phi.F |
62 |
STREAMICE_INIT_PHI |
grady(xq) = Xquad(3-xq) * recip_dyG (i,j,bi,bj) + |
|
./pkg/streamice/streamice_init_phi.F |
63 |
STREAMICE_INIT_PHI |
& Xquad(xq) * recip_dyG (i,j+1,bi,bj) |
|
./pkg/streamice/streamice_init_phi.F |
81 |
STREAMICE_INIT_PHI |
Dphi (i,j,bi,bj,m,n,1) = |
|
./pkg/streamice/streamice_init_phi.F |
83 |
STREAMICE_INIT_PHI |
Dphi (i,j,bi,bj,m,n,2) = |
|
./pkg/streamice/streamice_init_phi.F |
88 |
STREAMICE_INIT_PHI |
grid_jacq_streamice (i,j,bi,bj,n) = |
|
./pkg/streamice/streamice_init_phi.F |
89 |
STREAMICE_INIT_PHI |
& (Xquad(3-xq)*dyG(i,j,bi,bj) + Xquad(xq)*dyG(i+1,j,bi,bj)) * |
|
./pkg/streamice/streamice_init_phi.F |
90 |
STREAMICE_INIT_PHI |
& (Xquad(3-yq)*dxG(i,j,bi,bj) + Xquad(yq)*dxG(i,j+1,bi,bj)) |
|
./pkg/streamice/streamice_init_varia.F |
100 |
STREAMICE_INIT_VARIA |
ru_old_si(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
101 |
STREAMICE_INIT_VARIA |
rv_old_si(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
102 |
STREAMICE_INIT_VARIA |
zu_old_si(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
103 |
STREAMICE_INIT_VARIA |
zv_old_si(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
107 |
STREAMICE_INIT_VARIA |
R_low_si(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
112 |
STREAMICE_INIT_VARIA |
visc_streamice_full(i,j,k,bi,bj) = |
|
./pkg/streamice/streamice_init_varia.F |
115 |
STREAMICE_INIT_VARIA |
streamice_taubx (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
116 |
STREAMICE_INIT_VARIA |
streamice_tauby (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
131 |
STREAMICE_INIT_VARIA |
DO i = 1-olx, sNx+olx |
|
./pkg/streamice/streamice_init_varia.F |
137 |
STREAMICE_INIT_VARIA |
streamice_cg_A1(i,j,bi,bj,col_x,col_y)=0.0 |
|
./pkg/streamice/streamice_init_varia.F |
138 |
STREAMICE_INIT_VARIA |
streamice_cg_A2(i,j,bi,bj,col_x,col_y)=0.0 |
|
./pkg/streamice/streamice_init_varia.F |
139 |
STREAMICE_INIT_VARIA |
streamice_cg_A3(i,j,bi,bj,col_x,col_y)=0.0 |
|
./pkg/streamice/streamice_init_varia.F |
140 |
STREAMICE_INIT_VARIA |
streamice_cg_A4(i,j,bi,bj,col_x,col_y)=0.0 |
|
./pkg/streamice/streamice_init_varia.F |
154 |
STREAMICE_INIT_VARIA |
DO i=1-OLx,sNx+OLx |
|
./pkg/streamice/streamice_init_varia.F |
155 |
STREAMICE_INIT_VARIA |
STREAMICE_hmask(i,j,bi,bj) = -1.0 |
|
./pkg/streamice/streamice_init_varia.F |
156 |
STREAMICE_INIT_VARIA |
STREAMICE_umask(i,j,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_init_varia.F |
157 |
STREAMICE_INIT_VARIA |
STREAMICE_vmask(i,j,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_init_varia.F |
158 |
STREAMICE_INIT_VARIA |
STREAMICE_ufacemask(i,j,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_init_varia.F |
159 |
STREAMICE_INIT_VARIA |
STREAMICE_vfacemask(i,j,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_init_varia.F |
160 |
STREAMICE_INIT_VARIA |
STREAMICE_float_cond(i,j,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_init_varia.F |
200 |
STREAMICE_INIT_VARIA |
DO i=1,sNx |
|
./pkg/streamice/streamice_init_varia.F |
201 |
STREAMICE_INIT_VARIA |
Gi = (myXGlobalLo-1)+(bi-1)*sNx+i |
|
./pkg/streamice/streamice_init_varia.F |
208 |
STREAMICE_INIT_VARIA |
IF (xC(i-1,j,bi,bj).GE.shelf_edge_pos) THEN |
|
./pkg/streamice/streamice_init_varia.F |
209 |
STREAMICE_INIT_VARIA |
area_shelf_streamice(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
210 |
STREAMICE_INIT_VARIA |
STREAMICE_hmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
213 |
STREAMICE_INIT_VARIA |
IF (xC(i,j,bi,bj).GT.slope_pos) THEN |
|
./pkg/streamice/streamice_init_varia.F |
214 |
STREAMICE_INIT_VARIA |
H_streamice (i,j,bi,bj) = shelf_min_draft |
|
./pkg/streamice/streamice_init_varia.F |
216 |
STREAMICE_INIT_VARIA |
H_streamice (i,j,bi,bj) = (shelf_min_draft + |
|
./pkg/streamice/streamice_init_varia.F |
218 |
STREAMICE_INIT_VARIA |
& min (oneRL, (c1*(slope_pos-xC(i,j,bi,bj)))**2)) |
|
./pkg/streamice/streamice_init_varia.F |
221 |
STREAMICE_INIT_VARIA |
IF (xC(i,j,bi,bj).GT.shelf_edge_pos) THEN |
|
./pkg/streamice/streamice_init_varia.F |
222 |
STREAMICE_INIT_VARIA |
area_shelf_streamice(i,j,bi,bj) = rA(i,j,bi,bj) * |
|
./pkg/streamice/streamice_init_varia.F |
223 |
STREAMICE_INIT_VARIA |
& (shelf_edge_pos-xG(i,j,bi,bj)) / |
|
./pkg/streamice/streamice_init_varia.F |
224 |
STREAMICE_INIT_VARIA |
& (xG(i+1,j,bi,bj)-xG(i,j,bi,bj)) |
|
./pkg/streamice/streamice_init_varia.F |
225 |
STREAMICE_INIT_VARIA |
IF (area_shelf_streamice(i,j,bi,bj).gt. 0. _d 0) THEN |
|
./pkg/streamice/streamice_init_varia.F |
226 |
STREAMICE_INIT_VARIA |
STREAMICE_hmask(i,j,bi,bj) = 2.0 |
|
./pkg/streamice/streamice_init_varia.F |
228 |
STREAMICE_INIT_VARIA |
STREAMICE_hmask(i,j,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_init_varia.F |
229 |
STREAMICE_INIT_VARIA |
H_streamice(i,j,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_init_varia.F |
232 |
STREAMICE_INIT_VARIA |
area_shelf_streamice(i,j,bi,bj) = rA(i,j,bi,bj) |
|
./pkg/streamice/streamice_init_varia.F |
233 |
STREAMICE_INIT_VARIA |
STREAMICE_hmask(i,j,bi,bj) = 1.0 |
|
./pkg/streamice/streamice_init_varia.F |
254 |
STREAMICE_INIT_VARIA |
DO i=1,sNx |
|
./pkg/streamice/streamice_init_varia.F |
255 |
STREAMICE_INIT_VARIA |
Gi = (myXGlobalLo-1)+(bi-1)*sNx+i |
|
./pkg/streamice/streamice_init_varia.F |
259 |
STREAMICE_INIT_VARIA |
IF (H_streamice(i,j,bi,bj).GT.0. _d 0) THEN |
|
./pkg/streamice/streamice_init_varia.F |
260 |
STREAMICE_INIT_VARIA |
area_shelf_streamice(i,j,bi,bj) = rA(i,j,bi,bj) |
|
./pkg/streamice/streamice_init_varia.F |
261 |
STREAMICE_INIT_VARIA |
STREAMICE_hmask(i,j,bi,bj) = 1.0 |
|
./pkg/streamice/streamice_init_varia.F |
263 |
STREAMICE_INIT_VARIA |
area_shelf_streamice(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
264 |
STREAMICE_INIT_VARIA |
STREAMICE_hmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
267 |
STREAMICE_INIT_VARIA |
STREAMICE_ctrl_mask(i,j,k,bi,bj) = 1. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
351 |
STREAMICE_INIT_VARIA |
DO i=1,sNx |
|
./pkg/streamice/streamice_init_varia.F |
354 |
STREAMICE_INIT_VARIA |
B_glen(i,j,r,bi,bj) = B_glen_isothermal |
|
./pkg/streamice/streamice_init_varia.F |
357 |
STREAMICE_INIT_VARIA |
B_glen(i,j,bi,bj) = B_glen_isothermal |
|
./pkg/streamice/streamice_init_varia.F |
39 |
STREAMICE_INIT_VARIA |
INTEGER i, j, k, bi, bj, Gi, Gj, r |
|
./pkg/streamice/streamice_init_varia.F |
414 |
STREAMICE_INIT_VARIA |
DO i=1,sNx |
|
./pkg/streamice/streamice_init_varia.F |
415 |
STREAMICE_INIT_VARIA |
C_basal_friction(i,j,bi,bj) = C_basal_fric_const |
|
./pkg/streamice/streamice_init_varia.F |
428 |
STREAMICE_INIT_VARIA |
DO i=1,sNx |
|
./pkg/streamice/streamice_init_varia.F |
429 |
STREAMICE_INIT_VARIA |
x = xC(i,j,bi,bj) |
|
./pkg/streamice/streamice_init_varia.F |
430 |
STREAMICE_INIT_VARIA |
y = yC(i,j,bi,bj) |
|
./pkg/streamice/streamice_init_varia.F |
431 |
STREAMICE_INIT_VARIA |
C_basal_friction(i,j,bi,bj) = |
|
./pkg/streamice/streamice_init_varia.F |
446 |
STREAMICE_INIT_VARIA |
DO i=1,sNx |
|
./pkg/streamice/streamice_init_varia.F |
447 |
STREAMICE_INIT_VARIA |
x = xC(i,j,bi,bj) |
|
./pkg/streamice/streamice_init_varia.F |
448 |
STREAMICE_INIT_VARIA |
y = yC(i,j,bi,bj) |
|
./pkg/streamice/streamice_init_varia.F |
449 |
STREAMICE_INIT_VARIA |
C_basal_friction(i,j,bi,bj) = |
|
./pkg/streamice/streamice_init_varia.F |
481 |
STREAMICE_INIT_VARIA |
DO i=1,sNx |
|
./pkg/streamice/streamice_init_varia.F |
482 |
STREAMICE_INIT_VARIA |
trac2d(i,j,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_init_varia.F |
52 |
STREAMICE_INIT_VARIA |
DO i=1-OLx,sNx+OLx |
|
./pkg/streamice/streamice_init_varia.F |
53 |
STREAMICE_INIT_VARIA |
H_streamIce(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
54 |
STREAMICE_INIT_VARIA |
U_streamice(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
55 |
STREAMICE_INIT_VARIA |
V_streamice(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
56 |
STREAMICE_INIT_VARIA |
visc_streamice(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
57 |
STREAMICE_INIT_VARIA |
tau_beta_eff_streamice(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
58 |
STREAMICE_INIT_VARIA |
float_frac_streamice(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
59 |
STREAMICE_INIT_VARIA |
base_el_streamice(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
60 |
STREAMICE_INIT_VARIA |
surf_el_streamice(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
61 |
STREAMICE_INIT_VARIA |
area_shelf_streamice(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
62 |
STREAMICE_INIT_VARIA |
mass_ice_streamice(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
63 |
STREAMICE_INIT_VARIA |
BDOT_streamice(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
65 |
STREAMICE_INIT_VARIA |
BDOT_streamice1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
67 |
STREAMICE_INIT_VARIA |
ADOT_streamice(i,j,bi,bj) = streamice_adot_uniform |
|
./pkg/streamice/streamice_init_varia.F |
68 |
STREAMICE_INIT_VARIA |
C_basal_friction(i,j,bi,bj) = C_basal_fric_const |
|
./pkg/streamice/streamice_init_varia.F |
70 |
STREAMICE_INIT_VARIA |
B_glen(i,j,bi,bj) = B_glen_isothermal |
|
./pkg/streamice/streamice_init_varia.F |
73 |
STREAMICE_INIT_VARIA |
B_glen(i,j,k,bi,bj) = B_glen_isothermal |
|
./pkg/streamice/streamice_init_varia.F |
76 |
STREAMICE_INIT_VARIA |
H_streamice_prev(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
78 |
STREAMICE_INIT_VARIA |
STREAMICE_u_normal_pert(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
79 |
STREAMICE_INIT_VARIA |
STREAMICE_v_normal_pert(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
80 |
STREAMICE_INIT_VARIA |
STREAMICE_u_shear_pert(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
81 |
STREAMICE_INIT_VARIA |
STREAMICE_v_shear_pert(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
82 |
STREAMICE_INIT_VARIA |
STREAMICE_u_normal_stress(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
83 |
STREAMICE_INIT_VARIA |
STREAMICE_v_normal_stress(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
84 |
STREAMICE_INIT_VARIA |
STREAMICE_u_shear_stress(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
85 |
STREAMICE_INIT_VARIA |
STREAMICE_v_shear_stress(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
87 |
STREAMICE_INIT_VARIA |
STREAMICE_u_normal_stress1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
88 |
STREAMICE_INIT_VARIA |
STREAMICE_v_normal_stress1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
89 |
STREAMICE_INIT_VARIA |
STREAMICE_u_shear_stress1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
90 |
STREAMICE_INIT_VARIA |
STREAMICE_v_shear_stress1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
95 |
STREAMICE_INIT_VARIA |
GAD_trac_2d (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_invert_surf_forthick.F |
115 |
STREAMICE_INVERT_SURF_FORTHICK |
RESID = RESID - S(i,j,bi,bj) |
|
./pkg/streamice/streamice_invert_surf_forthick.F |
126 |
STREAMICE_INVERT_SURF_FORTHICK |
H(i,j,bi,bj) = Htmp |
|
./pkg/streamice/streamice_invert_surf_forthick.F |
45 |
STREAMICE_INVERT_SURF_FORTHICK |
INTEGER i, j, bi, bj, ITER |
|
./pkg/streamice/streamice_invert_surf_forthick.F |
56 |
STREAMICE_INVERT_SURF_FORTHICK |
DO i = 1,sNx |
|
./pkg/streamice/streamice_invert_surf_forthick.F |
57 |
STREAMICE_INVERT_SURF_FORTHICK |
IF (STREAMICE_hmask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_invert_surf_forthick.F |
58 |
STREAMICE_INVERT_SURF_FORTHICK |
hf = (-1. _d 0) * R(i,j,bi,bj) / |
|
./pkg/streamice/streamice_invert_surf_forthick.F |
61 |
STREAMICE_INVERT_SURF_FORTHICK |
IF (S(i,j,bi,bj) .gt. delta*HF) THEN |
|
./pkg/streamice/streamice_invert_surf_forthick.F |
62 |
STREAMICE_INVERT_SURF_FORTHICK |
htmp = S(i,j,bi,bj)-R(i,j,bi,bj) |
|
./pkg/streamice/streamice_invert_surf_forthick.F |
64 |
STREAMICE_INVERT_SURF_FORTHICK |
htmp = S(i,j,bi,bj)/delta |
|
./pkg/streamice/streamice_invert_surf_forthick.F |
73 |
STREAMICE_INVERT_SURF_FORTHICK |
& ( STREAMICE_hmask(i,j,bi,bj).eq.1.0)) THEN |
|
./pkg/streamice/streamice_invert_surf_forthick.F |
75 |
STREAMICE_INVERT_SURF_FORTHICK |
hf = (-1. _d 0) * R(i,j,bi,bj) / |
|
./pkg/streamice/streamice_invert_surf_forthick.F |
78 |
STREAMICE_INVERT_SURF_FORTHICK |
IF (S(i,j,bi,bj) .gt. delta*HF) THEN |
|
./pkg/streamice/streamice_invert_surf_forthick.F |
79 |
STREAMICE_INVERT_SURF_FORTHICK |
htmp = S(i,j,bi,bj)-R(i,j,bi,bj) |
|
./pkg/streamice/streamice_invert_surf_forthick.F |
81 |
STREAMICE_INVERT_SURF_FORTHICK |
htmp = S(i,j,bi,bj)/delta |
|
./pkg/streamice/streamice_petsc_numerate.F |
110 |
STREAMICE_PETSC_NUMERATE |
DO i=1,nPx*nPy-1 |
|
./pkg/streamice/streamice_petsc_numerate.F |
111 |
STREAMICE_PETSC_NUMERATE |
n_dofs_cum_sum(i) = n_dofs_cum_sum(i-1)+ |
|
./pkg/streamice/streamice_petsc_numerate.F |
112 |
STREAMICE_PETSC_NUMERATE |
& n_dofs_process(i-1) |
|
./pkg/streamice/streamice_petsc_numerate.F |
125 |
STREAMICE_PETSC_NUMERATE |
DO i=1,sNx |
|
./pkg/streamice/streamice_petsc_numerate.F |
126 |
STREAMICE_PETSC_NUMERATE |
IF (streamice_petsc_dofs_u(i,j,bi,bj).ge.0 ) THEN |
|
./pkg/streamice/streamice_petsc_numerate.F |
127 |
STREAMICE_PETSC_NUMERATE |
streamice_petsc_dofs_u(i,j,bi,bj) = |
|
./pkg/streamice/streamice_petsc_numerate.F |
128 |
STREAMICE_PETSC_NUMERATE |
& streamice_petsc_dofs_u(i,j,bi,bj) + |
|
./pkg/streamice/streamice_petsc_numerate.F |
131 |
STREAMICE_PETSC_NUMERATE |
IF (streamice_petsc_dofs_v(i,j,bi,bj).ge.0 ) THEN |
|
./pkg/streamice/streamice_petsc_numerate.F |
132 |
STREAMICE_PETSC_NUMERATE |
streamice_petsc_dofs_v(i,j,bi,bj) = |
|
./pkg/streamice/streamice_petsc_numerate.F |
133 |
STREAMICE_PETSC_NUMERATE |
& streamice_petsc_dofs_v(i,j,bi,bj) + |
|
./pkg/streamice/streamice_petsc_numerate.F |
35 |
STREAMICE_PETSC_NUMERATE |
INTEGER i, j, bi, bj, ki, kj |
|
./pkg/streamice/streamice_petsc_numerate.F |
49 |
STREAMICE_PETSC_NUMERATE |
DO i=1,sNx |
|
./pkg/streamice/streamice_petsc_numerate.F |
50 |
STREAMICE_PETSC_NUMERATE |
streamice_petsc_dofs_u (i,j,bi,bj) = -2.0 |
|
./pkg/streamice/streamice_petsc_numerate.F |
51 |
STREAMICE_PETSC_NUMERATE |
streamice_petsc_dofs_v (i,j,bi,bj) = -2.0 |
|
./pkg/streamice/streamice_petsc_numerate.F |
61 |
STREAMICE_PETSC_NUMERATE |
DO i=1,sNx |
|
./pkg/streamice/streamice_petsc_numerate.F |
74 |
STREAMICE_PETSC_NUMERATE |
if (STREAMICE_umask (i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_petsc_numerate.F |
76 |
STREAMICE_PETSC_NUMERATE |
streamice_petsc_dofs_u (i,j,bi,bj) = DoFCount |
|
./pkg/streamice/streamice_petsc_numerate.F |
78 |
STREAMICE_PETSC_NUMERATE |
streamice_petsc_dofs_u (i,j,bi,bj) = -1.0 |
|
./pkg/streamice/streamice_petsc_numerate.F |
81 |
STREAMICE_PETSC_NUMERATE |
if (STREAMICE_vmask (i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_petsc_numerate.F |
83 |
STREAMICE_PETSC_NUMERATE |
streamice_petsc_dofs_v (i,j,bi,bj) = DoFCount |
|
./pkg/streamice/streamice_petsc_numerate.F |
85 |
STREAMICE_PETSC_NUMERATE |
streamice_petsc_dofs_v (i,j,bi,bj) = -1.0 |
|
./pkg/streamice/streamice_petsc_numerate.F |
97 |
STREAMICE_PETSC_NUMERATE |
DO i=0,nPx*nPy-1 |
|
./pkg/streamice/streamice_petsc_numerate.F |
98 |
STREAMICE_PETSC_NUMERATE |
n_dofs_proc_loc (i) = 0 |
|
./model/src/ini_masks_etc.F |
112 |
INI_MASKS_ETC |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_masks_etc.F |
114 |
INI_MASKS_ETC |
hFacCtmp = (rF(k)-R_low(i,j,bi,bj))*recip_drF(k) |
|
./model/src/ini_masks_etc.F |
120 |
INI_MASKS_ETC |
hFacC(i,j,k,bi,bj) = 0. |
|
./model/src/ini_masks_etc.F |
122 |
INI_MASKS_ETC |
hFacC(i,j,k,bi,bj) = hFacMnSz |
|
./model/src/ini_masks_etc.F |
125 |
INI_MASKS_ETC |
hFacC(i,j,k,bi,bj) = hFacCtmp |
|
./model/src/ini_masks_etc.F |
133 |
INI_MASKS_ETC |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_masks_etc.F |
134 |
INI_MASKS_ETC |
tmpVar1(i,j) = 0. |
|
./model/src/ini_masks_etc.F |
139 |
INI_MASKS_ETC |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_masks_etc.F |
140 |
INI_MASKS_ETC |
tmpVar1(i,j) = tmpVar1(i,j) + drF(k)*hFacC(i,j,k,bi,bj) |
|
./model/src/ini_masks_etc.F |
145 |
INI_MASKS_ETC |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_masks_etc.F |
146 |
INI_MASKS_ETC |
R_low(i,j,bi,bj) = rF(1) - tmpVar1(i,j) |
|
./model/src/ini_masks_etc.F |
155 |
INI_MASKS_ETC |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_masks_etc.F |
157 |
INI_MASKS_ETC |
hFacCtmp = (rF(k)-Ro_surf(i,j,bi,bj))*recip_drF(k) |
|
./model/src/ini_masks_etc.F |
159 |
INI_MASKS_ETC |
hFacCtmp = hFacC(i,j,k,bi,bj) - MAX( hFacCtmp, zeroRL ) |
|
./model/src/ini_masks_etc.F |
165 |
INI_MASKS_ETC |
hFacC(i,j,k,bi,bj) = 0. |
|
./model/src/ini_masks_etc.F |
167 |
INI_MASKS_ETC |
hFacC(i,j,k,bi,bj) = hFacMnSz |
|
./model/src/ini_masks_etc.F |
170 |
INI_MASKS_ETC |
hFacC(i,j,k,bi,bj) = hFacCtmp |
|
./model/src/ini_masks_etc.F |
180 |
INI_MASKS_ETC |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_masks_etc.F |
181 |
INI_MASKS_ETC |
tmpVar2(i,j) = 0. |
|
./model/src/ini_masks_etc.F |
182 |
INI_MASKS_ETC |
tmpFld(i,j,bi,bj) = 0. |
|
./model/src/ini_masks_etc.F |
183 |
INI_MASKS_ETC |
kSurfC(i,j,bi,bj) = Nr+1 |
|
./model/src/ini_masks_etc.F |
184 |
INI_MASKS_ETC |
kLowC (i,j,bi,bj) = 0 |
|
./model/src/ini_masks_etc.F |
189 |
INI_MASKS_ETC |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_masks_etc.F |
190 |
INI_MASKS_ETC |
tmpVar2(i,j) = tmpVar2(i,j) + drF(k)*hFacC(i,j,k,bi,bj) |
|
./model/src/ini_masks_etc.F |
191 |
INI_MASKS_ETC |
tmpFld(i,j,bi,bj) = tmpFld(i,j,bi,bj) + 1. |
|
./model/src/ini_masks_etc.F |
192 |
INI_MASKS_ETC |
IF ( hFacC(i,j,k,bi,bj).NE.zeroRS ) kLowC(i,j,bi,bj) = k |
|
./model/src/ini_masks_etc.F |
198 |
INI_MASKS_ETC |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_masks_etc.F |
199 |
INI_MASKS_ETC |
IF ( hFacC(i,j,k,bi,bj).NE.zeroRS ) kSurfC(i,j,bi,bj) = k |
|
./model/src/ini_masks_etc.F |
204 |
INI_MASKS_ETC |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_masks_etc.F |
205 |
INI_MASKS_ETC |
Ro_surf(i,j,bi,bj) = R_low(i,j,bi,bj) + tmpVar2(i,j) |
|
./model/src/ini_masks_etc.F |
206 |
INI_MASKS_ETC |
maskInC(i,j,bi,bj) = 0. |
|
./model/src/ini_masks_etc.F |
207 |
INI_MASKS_ETC |
IF ( kSurfC(i,j,bi,bj).LE.Nr ) maskInC(i,j,bi,bj) = 1. |
|
./model/src/ini_masks_etc.F |
231 |
INI_MASKS_ETC |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_masks_etc.F |
233 |
INI_MASKS_ETC |
tmpVar1(i,j) = Ro_surf(i,j,bi,bj) - R_low(i,j,bi,bj) |
|
./model/src/ini_masks_etc.F |
234 |
INI_MASKS_ETC |
tmpFld(i,j,bi,bj) = tmpVar1(i,j) |
|
./model/src/ini_masks_etc.F |
236 |
INI_MASKS_ETC |
IF ( tmpVar1(i,j) .LE. zeroRL ) THEN |
|
./model/src/ini_masks_etc.F |
237 |
INI_MASKS_ETC |
recip_Rcol(i,j,bi,bj) = 0. |
|
./model/src/ini_masks_etc.F |
239 |
INI_MASKS_ETC |
recip_Rcol(i,j,bi,bj) = 1. _d 0 / tmpVar1(i,j) |
|
./model/src/ini_masks_etc.F |
259 |
INI_MASKS_ETC |
DO i=2-OLx,sNx+OLx |
|
./model/src/ini_masks_etc.F |
260 |
INI_MASKS_ETC |
hFacW(i,j,k,bi,bj) = |
|
./model/src/ini_masks_etc.F |
261 |
INI_MASKS_ETC |
& MIN( hFacC(i,j,k,bi,bj), hFacC(i-1,j,k,bi,bj) ) |
|
./model/src/ini_masks_etc.F |
264 |
INI_MASKS_ETC |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_masks_etc.F |
265 |
INI_MASKS_ETC |
hFacS(i,1-OLy,k,bi,bj) = 0. |
|
./model/src/ini_masks_etc.F |
268 |
INI_MASKS_ETC |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_masks_etc.F |
269 |
INI_MASKS_ETC |
hFacS(i,j,k,bi,bj) = |
|
./model/src/ini_masks_etc.F |
270 |
INI_MASKS_ETC |
& MIN( hFacC(i,j,k,bi,bj), hFacC(i,j-1,k,bi,bj) ) |
|
./model/src/ini_masks_etc.F |
283 |
INI_MASKS_ETC |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_masks_etc.F |
285 |
INI_MASKS_ETC |
hFac1tmp = ( rF(k) - rLowW(i,j,bi,bj) )*recip_drF(k) |
|
./model/src/ini_masks_etc.F |
296 |
INI_MASKS_ETC |
hFac2tmp = ( rF(k) -rSurfW(i,j,bi,bj) )*recip_drF(k) |
|
./model/src/ini_masks_etc.F |
300 |
INI_MASKS_ETC |
hFacW(i,j,k,bi,bj) = 0. |
|
./model/src/ini_masks_etc.F |
302 |
INI_MASKS_ETC |
hFacW(i,j,k,bi,bj) = MAX( hFacCtmp, hFacMnSz ) |
|
./model/src/ini_masks_etc.F |
307 |
INI_MASKS_ETC |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_masks_etc.F |
309 |
INI_MASKS_ETC |
hFac1tmp = ( rF(k) - rLowS(i,j,bi,bj) )*recip_drF(k) |
|
./model/src/ini_masks_etc.F |
320 |
INI_MASKS_ETC |
hFac2tmp = ( rF(k) -rSurfS(i,j,bi,bj) )*recip_drF(k) |
|
./model/src/ini_masks_etc.F |
324 |
INI_MASKS_ETC |
hFacS(i,j,k,bi,bj) = 0. |
|
./model/src/ini_masks_etc.F |
326 |
INI_MASKS_ETC |
hFacS(i,j,k,bi,bj) = MAX( hFacCtmp, hFacMnSz ) |
|
./model/src/ini_masks_etc.F |
338 |
INI_MASKS_ETC |
DO i=2-OLx,sNx+OLx |
|
./model/src/ini_masks_etc.F |
339 |
INI_MASKS_ETC |
rLowW(i,j,bi,bj) = |
|
./model/src/ini_masks_etc.F |
340 |
INI_MASKS_ETC |
& MAX( R_low(i-1,j,bi,bj), R_low(i,j,bi,bj) ) |
|
./model/src/ini_masks_etc.F |
341 |
INI_MASKS_ETC |
rSurfW(i,j,bi,bj) = |
|
./model/src/ini_masks_etc.F |
342 |
INI_MASKS_ETC |
& MIN( Ro_surf(i-1,j,bi,bj), Ro_surf(i,j,bi,bj) ) |
|
./model/src/ini_masks_etc.F |
343 |
INI_MASKS_ETC |
rSurfW(i,j,bi,bj) = |
|
./model/src/ini_masks_etc.F |
344 |
INI_MASKS_ETC |
& MAX( rSurfW(i,j,bi,bj), rLowW(i,j,bi,bj) ) |
|
./model/src/ini_masks_etc.F |
348 |
INI_MASKS_ETC |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_masks_etc.F |
349 |
INI_MASKS_ETC |
rLowS(i,j,bi,bj) = |
|
./model/src/ini_masks_etc.F |
350 |
INI_MASKS_ETC |
& MAX( R_low(i,j-1,bi,bj), R_low(i,j,bi,bj) ) |
|
./model/src/ini_masks_etc.F |
351 |
INI_MASKS_ETC |
rSurfS(i,j,bi,bj) = |
|
./model/src/ini_masks_etc.F |
352 |
INI_MASKS_ETC |
& MIN( Ro_surf(i,j-1,bi,bj), Ro_surf(i,j,bi,bj) ) |
|
./model/src/ini_masks_etc.F |
353 |
INI_MASKS_ETC |
rSurfS(i,j,bi,bj) = |
|
./model/src/ini_masks_etc.F |
354 |
INI_MASKS_ETC |
& MAX( rSurfS(i,j,bi,bj), rLowS(i,j,bi,bj) ) |
|
./model/src/ini_masks_etc.F |
364 |
INI_MASKS_ETC |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_masks_etc.F |
365 |
INI_MASKS_ETC |
tmpVar1(i,j) = 0. _d 0 |
|
./model/src/ini_masks_etc.F |
366 |
INI_MASKS_ETC |
tmpVar2(i,j) = 0. _d 0 |
|
./model/src/ini_masks_etc.F |
371 |
INI_MASKS_ETC |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_masks_etc.F |
372 |
INI_MASKS_ETC |
tmpVar1(i,j) = tmpVar1(i,j) + drF(k)*hFacW(i,j,k,bi,bj) |
|
./model/src/ini_masks_etc.F |
373 |
INI_MASKS_ETC |
tmpVar2(i,j) = tmpVar2(i,j) + drF(k)*hFacS(i,j,k,bi,bj) |
|
./model/src/ini_masks_etc.F |
381 |
INI_MASKS_ETC |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_masks_etc.F |
382 |
INI_MASKS_ETC |
rSurfW(i,j,bi,bj) = rLowW(i,j,bi,bj) + tmpVar1(i,j) |
|
./model/src/ini_masks_etc.F |
383 |
INI_MASKS_ETC |
rSurfS(i,j,bi,bj) = rLowS(i,j,bi,bj) + tmpVar2(i,j) |
|
./model/src/ini_masks_etc.F |
390 |
INI_MASKS_ETC |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_masks_etc.F |
391 |
INI_MASKS_ETC |
tmpVar1(i,j) = rLowW(i,j,bi,bj) + tmpVar1(i,j) |
|
./model/src/ini_masks_etc.F |
392 |
INI_MASKS_ETC |
tmpVar1(i,j) = ( tmpVar1(i,j) -rSurfW(i,j,bi,bj) )*halfRL |
|
./model/src/ini_masks_etc.F |
396 |
INI_MASKS_ETC |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_masks_etc.F |
397 |
INI_MASKS_ETC |
rSurfW(i,j,bi,bj) = rSurfW(i,j,bi,bj) + tmpVar1(i,j) |
|
./model/src/ini_masks_etc.F |
398 |
INI_MASKS_ETC |
rLowW (i,j,bi,bj) = rLowW (i,j,bi,bj) - tmpVar1(i,j) |
|
./model/src/ini_masks_etc.F |
403 |
INI_MASKS_ETC |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_masks_etc.F |
404 |
INI_MASKS_ETC |
tmpVar2(i,j) = rLowS(i,j,bi,bj) + tmpVar2(i,j) |
|
./model/src/ini_masks_etc.F |
405 |
INI_MASKS_ETC |
tmpVar2(i,j) = ( tmpVar2(i,j) -rSurfS(i,j,bi,bj) )*halfRL |
|
./model/src/ini_masks_etc.F |
409 |
INI_MASKS_ETC |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_masks_etc.F |
410 |
INI_MASKS_ETC |
rSurfS(i,j,bi,bj) = rSurfS(i,j,bi,bj) + tmpVar2(i,j) |
|
./model/src/ini_masks_etc.F |
411 |
INI_MASKS_ETC |
rLowS (i,j,bi,bj) = rLowS (i,j,bi,bj) - tmpVar2(i,j) |
|
./model/src/ini_masks_etc.F |
436 |
INI_MASKS_ETC |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_masks_etc.F |
437 |
INI_MASKS_ETC |
kSurfW(i,j,bi,bj) = Nr+1 |
|
./model/src/ini_masks_etc.F |
438 |
INI_MASKS_ETC |
kSurfS(i,j,bi,bj) = Nr+1 |
|
./model/src/ini_masks_etc.F |
440 |
INI_MASKS_ETC |
IF (hFacW(i,j,k,bi,bj).NE.zeroRS) kSurfW(i,j,bi,bj) = k |
|
./model/src/ini_masks_etc.F |
441 |
INI_MASKS_ETC |
IF (hFacS(i,j,k,bi,bj).NE.zeroRS) kSurfS(i,j,bi,bj) = k |
|
./model/src/ini_masks_etc.F |
443 |
INI_MASKS_ETC |
maskInW(i,j,bi,bj)= 0. |
|
./model/src/ini_masks_etc.F |
444 |
INI_MASKS_ETC |
IF ( kSurfW(i,j,bi,bj).LE.Nr ) maskInW(i,j,bi,bj)= 1. |
|
./model/src/ini_masks_etc.F |
445 |
INI_MASKS_ETC |
maskInS(i,j,bi,bj)= 0. |
|
./model/src/ini_masks_etc.F |
446 |
INI_MASKS_ETC |
IF ( kSurfS(i,j,bi,bj).LE.Nr ) maskInS(i,j,bi,bj)= 1. |
|
./model/src/ini_masks_etc.F |
45 |
INI_MASKS_ETC |
INTEGER i, j, k |
|
./model/src/ini_masks_etc.F |
479 |
INI_MASKS_ETC |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_masks_etc.F |
480 |
INI_MASKS_ETC |
IF ( hFacC(i,j,k,bi,bj).NE.zeroRS ) THEN |
|
./model/src/ini_masks_etc.F |
481 |
INI_MASKS_ETC |
recip_hFacC(i,j,k,bi,bj) = 1. _d 0 / hFacC(i,j,k,bi,bj) |
|
./model/src/ini_masks_etc.F |
482 |
INI_MASKS_ETC |
maskC(i,j,k,bi,bj) = 1. |
|
./model/src/ini_masks_etc.F |
484 |
INI_MASKS_ETC |
recip_hFacC(i,j,k,bi,bj) = 0. |
|
./model/src/ini_masks_etc.F |
485 |
INI_MASKS_ETC |
maskC(i,j,k,bi,bj) = 0. |
|
./model/src/ini_masks_etc.F |
487 |
INI_MASKS_ETC |
IF ( hFacW(i,j,k,bi,bj).NE.zeroRS ) THEN |
|
./model/src/ini_masks_etc.F |
488 |
INI_MASKS_ETC |
recip_hFacW(i,j,k,bi,bj) = 1. _d 0 / hFacW(i,j,k,bi,bj) |
|
./model/src/ini_masks_etc.F |
489 |
INI_MASKS_ETC |
maskW(i,j,k,bi,bj) = 1. |
|
./model/src/ini_masks_etc.F |
491 |
INI_MASKS_ETC |
recip_hFacW(i,j,k,bi,bj) = 0. |
|
./model/src/ini_masks_etc.F |
492 |
INI_MASKS_ETC |
maskW(i,j,k,bi,bj) = 0. |
|
./model/src/ini_masks_etc.F |
494 |
INI_MASKS_ETC |
IF ( hFacS(i,j,k,bi,bj).NE.zeroRS ) THEN |
|
./model/src/ini_masks_etc.F |
495 |
INI_MASKS_ETC |
recip_hFacS(i,j,k,bi,bj) = 1. _d 0 / hFacS(i,j,k,bi,bj) |
|
./model/src/ini_masks_etc.F |
496 |
INI_MASKS_ETC |
maskS(i,j,k,bi,bj) = 1. |
|
./model/src/ini_masks_etc.F |
498 |
INI_MASKS_ETC |
recip_hFacS(i,j,k,bi,bj) = 0. |
|
./model/src/ini_masks_etc.F |
499 |
INI_MASKS_ETC |
maskS(i,j,k,bi,bj) = 0. |
|
./model/src/ini_masks_etc.F |
510 |
INI_MASKS_ETC |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_masks_etc.F |
511 |
INI_MASKS_ETC |
h0FacC(i,j,k,bi,bj) = _hFacC(i,j,k,bi,bj) |
|
./model/src/ini_masks_etc.F |
512 |
INI_MASKS_ETC |
h0FacW(i,j,k,bi,bj) = _hFacW(i,j,k,bi,bj) |
|
./model/src/ini_masks_etc.F |
513 |
INI_MASKS_ETC |
h0FacS(i,j,k,bi,bj) = _hFacS(i,j,k,bi,bj) |
|
./model/src/ini_masks_etc.F |
71 |
INI_MASKS_ETC |
i = 1-OLx |
|
./model/src/ini_masks_etc.F |
73 |
INI_MASKS_ETC |
rLowW (i,j,bi,bj) = rF(1) |
|
./model/src/ini_masks_etc.F |
74 |
INI_MASKS_ETC |
rSurfW(i,j,bi,bj) = rF(1) |
|
./model/src/ini_masks_etc.F |
77 |
INI_MASKS_ETC |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_masks_etc.F |
78 |
INI_MASKS_ETC |
rLowS (i,j,bi,bj) = rF(1) |
|
./model/src/ini_masks_etc.F |
79 |
INI_MASKS_ETC |
rSurfS(i,j,bi,bj) = rF(1) |
|
./model/src/ini_masks_etc.F |
82 |
INI_MASKS_ETC |
DO i=2-OLx,sNx+OLx |
|
./model/src/ini_masks_etc.F |
83 |
INI_MASKS_ETC |
rLowW(i,j,bi,bj) = |
|
./model/src/ini_masks_etc.F |
84 |
INI_MASKS_ETC |
& MAX( R_low(i-1,j,bi,bj), R_low(i,j,bi,bj) ) |
|
./model/src/ini_masks_etc.F |
85 |
INI_MASKS_ETC |
rSurfW(i,j,bi,bj) = |
|
./model/src/ini_masks_etc.F |
86 |
INI_MASKS_ETC |
& MIN( Ro_surf(i-1,j,bi,bj), Ro_surf(i,j,bi,bj) ) |
|
./model/src/ini_masks_etc.F |
87 |
INI_MASKS_ETC |
rSurfW(i,j,bi,bj) = |
|
./model/src/ini_masks_etc.F |
88 |
INI_MASKS_ETC |
& MAX( rSurfW(i,j,bi,bj), rLowW(i,j,bi,bj) ) |
|
./model/src/ini_masks_etc.F |
92 |
INI_MASKS_ETC |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_masks_etc.F |
93 |
INI_MASKS_ETC |
rLowS(i,j,bi,bj) = |
|
./model/src/ini_masks_etc.F |
94 |
INI_MASKS_ETC |
& MAX( R_low(i,j-1,bi,bj), R_low(i,j,bi,bj) ) |
|
./model/src/ini_masks_etc.F |
95 |
INI_MASKS_ETC |
rSurfS(i,j,bi,bj) = |
|
./model/src/ini_masks_etc.F |
96 |
INI_MASKS_ETC |
& MIN( Ro_surf(i,j-1,bi,bj), Ro_surf(i,j,bi,bj) ) |
|
./model/src/ini_masks_etc.F |
97 |
INI_MASKS_ETC |
rSurfS(i,j,bi,bj) = |
|
./model/src/ini_masks_etc.F |
98 |
INI_MASKS_ETC |
& MAX( rSurfS(i,j,bi,bj), rLowS(i,j,bi,bj) ) |
|
./pkg/streamice/streamice_taub.F |
37 |
STREAMICE_TAUB |
INTEGER i, j, bi, bj, k, l |
|
./pkg/streamice/streamice_taub.F |
44 |
STREAMICE_TAUB |
DO i=1,sNx |
|
./pkg/streamice/streamice_taub.F |
47 |
STREAMICE_TAUB |
taubx_new_si (i,j,bi,bj) = 0. |
|
./pkg/streamice/streamice_taub.F |
48 |
STREAMICE_TAUB |
tauby_new_si (i,j,bi,bj) = 0. |
|
./pkg/streamice/streamice_taub.F |
50 |
STREAMICE_TAUB |
streamice_taubx (i,j,bi,bj) = 0. |
|
./pkg/streamice/streamice_taub.F |
51 |
STREAMICE_TAUB |
streamice_tauby (i,j,bi,bj) = 0. |
|
./pkg/streamice/streamice_taub.F |
54 |
STREAMICE_TAUB |
IF (STREAMICE_hmask(i,j,bi,bj).eq.1) THEN |
|
./pkg/streamice/streamice_taub.F |
67 |
STREAMICE_TAUB |
& dxG(i,j+l,bi,bj)*dyG(i+k,j,bi,bj) * |
|
./pkg/streamice/streamice_taub.F |
68 |
STREAMICE_TAUB |
& recip_rA(i,j,bi,bj) * |
|
./pkg/streamice/streamice_taub.F |
70 |
STREAMICE_TAUB |
& U_new_si(i+k,j+l,bi,bj) |
|
./pkg/streamice/streamice_taub.F |
72 |
STREAMICE_TAUB |
& U_streamice(i+k,j+l,bi,bj) |
|
./pkg/streamice/streamice_taub.F |
75 |
STREAMICE_TAUB |
& dxG(i,j+l,bi,bj)*dyG(i+k,j,bi,bj) * |
|
./pkg/streamice/streamice_taub.F |
76 |
STREAMICE_TAUB |
& recip_rA(i,j,bi,bj) * |
|
./pkg/streamice/streamice_taub.F |
78 |
STREAMICE_TAUB |
& V_new_si(i+k,j+l,bi,bj) |
|
./pkg/streamice/streamice_taub.F |
80 |
STREAMICE_TAUB |
& V_streamice(i+k,j+l,bi,bj) |
|
./pkg/streamice/streamice_taub.F |
86 |
STREAMICE_TAUB |
taubx_new_si (i,j,bi,bj) = |
|
./pkg/streamice/streamice_taub.F |
87 |
STREAMICE_TAUB |
& tau_beta_eff_streamice(i,j,bi,bj) * umid |
|
./pkg/streamice/streamice_taub.F |
88 |
STREAMICE_TAUB |
tauby_new_si (i,j,bi,bj) = |
|
./pkg/streamice/streamice_taub.F |
89 |
STREAMICE_TAUB |
& tau_beta_eff_streamice(i,j,bi,bj) * vmid |
|
./pkg/streamice/streamice_taub.F |
91 |
STREAMICE_TAUB |
streamice_taubx (i,j,bi,bj) = |
|
./pkg/streamice/streamice_taub.F |
92 |
STREAMICE_TAUB |
& tau_beta_eff_streamice(i,j,bi,bj) * umid |
|
./pkg/streamice/streamice_taub.F |
93 |
STREAMICE_TAUB |
streamice_tauby (i,j,bi,bj) = |
|
./pkg/streamice/streamice_taub.F |
94 |
STREAMICE_TAUB |
& tau_beta_eff_streamice(i,j,bi,bj) * vmid |
|
./pkg/streamice/streamice_timestep.F |
155 |
STREAMICE_TIMESTEP |
DO i=1-OLx,sNx+OLx |
|
./pkg/streamice/streamice_timestep.F |
156 |
STREAMICE_TIMESTEP |
if (streamice_hmask(i,j,bi,bj).eq.1) then |
|
./pkg/streamice/streamice_timestep.F |
159 |
STREAMICE_TIMESTEP |
& U_streamice(i,j,bi,bj)**2 + |
|
./pkg/streamice/streamice_timestep.F |
160 |
STREAMICE_TIMESTEP |
& V_streamice(i,j,bi,bj)**2 |
|
./pkg/streamice/streamice_timestep.F |
45 |
STREAMICE_TIMESTEP |
INTEGER i, j, bi, bj, ki, kj |
|
./pkg/streamice/streamice_timestep.F |
71 |
STREAMICE_TIMESTEP |
DO i=1-OLx,sNx+OLx |
|
./pkg/streamice/streamice_timestep.F |
72 |
STREAMICE_TIMESTEP |
STREAMICE_ufacemask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_timestep.F |
73 |
STREAMICE_TIMESTEP |
STREAMICE_vfacemask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_timestep.F |
74 |
STREAMICE_TIMESTEP |
ru_old_si(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_timestep.F |
75 |
STREAMICE_TIMESTEP |
rv_old_si(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_timestep.F |
76 |
STREAMICE_TIMESTEP |
zu_old_si(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_timestep.F |
77 |
STREAMICE_TIMESTEP |
zv_old_si(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_timestep.F |
80 |
STREAMICE_TIMESTEP |
streamice_taubx (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_timestep.F |
81 |
STREAMICE_TIMESTEP |
streamice_tauby (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_tridiag_solve.F |
102 |
STREAMICE_TRIDIAG_SOLVE |
DO i=imin+1,imax |
|
./pkg/streamice/streamice_tridiag_solve.F |
103 |
STREAMICE_TRIDIAG_SOLVE |
tmpvar = bmat(i) - amat(i)*cmat(i-1)*bet(i-1) |
|
./pkg/streamice/streamice_tridiag_solve.F |
105 |
STREAMICE_TRIDIAG_SOLVE |
bet(i) = 1. _d 0 / tmpvar |
|
./pkg/streamice/streamice_tridiag_solve.F |
107 |
STREAMICE_TRIDIAG_SOLVE |
bet(i) = 0. _d 0 |
|
./pkg/streamice/streamice_tridiag_solve.F |
115 |
STREAMICE_TRIDIAG_SOLVE |
DO i=imin+1,imax |
|
./pkg/streamice/streamice_tridiag_solve.F |
116 |
STREAMICE_TRIDIAG_SOLVE |
ymat(i) = ( ymat(i) |
|
./pkg/streamice/streamice_tridiag_solve.F |
117 |
STREAMICE_TRIDIAG_SOLVE |
& - amat(i)*ymat(i-1) |
|
./pkg/streamice/streamice_tridiag_solve.F |
118 |
STREAMICE_TRIDIAG_SOLVE |
& )*bet(i) |
|
./pkg/streamice/streamice_tridiag_solve.F |
122 |
STREAMICE_TRIDIAG_SOLVE |
DO i=imax-1,imin,-1 |
|
./pkg/streamice/streamice_tridiag_solve.F |
123 |
STREAMICE_TRIDIAG_SOLVE |
ymat(i) = ymat(i) |
|
./pkg/streamice/streamice_tridiag_solve.F |
124 |
STREAMICE_TRIDIAG_SOLVE |
& - cmat(i)*bet(i)*ymat(i+1) |
|
./pkg/streamice/streamice_tridiag_solve.F |
128 |
STREAMICE_TRIDIAG_SOLVE |
DO i=imin,imax |
|
./pkg/streamice/streamice_tridiag_solve.F |
129 |
STREAMICE_TRIDIAG_SOLVE |
cg_Uin (i,j,1,1) = ymat(i) |
|
./pkg/streamice/streamice_tridiag_solve.F |
134 |
STREAMICE_TRIDIAG_SOLVE |
DO i=1,sNx |
|
./pkg/streamice/streamice_tridiag_solve.F |
135 |
STREAMICE_TRIDIAG_SOLVE |
cg_Vin (i,j,1,1) = 0. _d 0 |
|
./pkg/streamice/streamice_tridiag_solve.F |
38 |
STREAMICE_TRIDIAG_SOLVE |
INTEGER iMin,iMax,i,j,k |
|
./pkg/streamice/streamice_tridiag_solve.F |
69 |
STREAMICE_TRIDIAG_SOLVE |
do i=imin,Nx |
|
./pkg/streamice/streamice_tridiag_solve.F |
70 |
STREAMICE_TRIDIAG_SOLVE |
if (umask(i,1,1,1).eq.1.0) THEN |
|
./pkg/streamice/streamice_tridiag_solve.F |
72 |
STREAMICE_TRIDIAG_SOLVE |
aMat(i)=0.0 |
|
./pkg/streamice/streamice_tridiag_solve.F |
73 |
STREAMICE_TRIDIAG_SOLVE |
bmat(i)=0.0 |
|
./pkg/streamice/streamice_tridiag_solve.F |
74 |
STREAMICE_TRIDIAG_SOLVE |
cmat(i)=0.0 |
|
./pkg/streamice/streamice_tridiag_solve.F |
75 |
STREAMICE_TRIDIAG_SOLVE |
ymat(i)=0.0 |
|
./pkg/streamice/streamice_tridiag_solve.F |
78 |
STREAMICE_TRIDIAG_SOLVE |
aMat(i) = amat(i)+A_uu(i,k,1,1,-1,j) |
|
./pkg/streamice/streamice_tridiag_solve.F |
79 |
STREAMICE_TRIDIAG_SOLVE |
bMat(i) = bmat(i)+A_uu(i,k,1,1,0,j) |
|
./pkg/streamice/streamice_tridiag_solve.F |
80 |
STREAMICE_TRIDIAG_SOLVE |
cMat(i) = cmat(i)+A_uu(i,k,1,1,1,j) |
|
./pkg/streamice/streamice_tridiag_solve.F |
82 |
STREAMICE_TRIDIAG_SOLVE |
yMat(i) = ymat(i)+cg_Bu(i,j+2,1,1) |
|
./pkg/streamice/streamice_tridiag_solve.F |
85 |
STREAMICE_TRIDIAG_SOLVE |
iMax = i-1 |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
104 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
DO i=1-Olx,sNx+Olx |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
106 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
rlo = R_low_si (i,j,bi,bj) |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
108 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
rlo = R_low (i,j,bi,bj) |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
114 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
if (h_streamice(i,j,bi,bj).lt.firn_depth) then |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
116 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
& h_streamice(i,j,bi,bj) |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
119 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
& (h_streamice(i,j,bi,bj)-streamice_firn_correction) |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
124 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
& H_streamice(i,j,bi,bj) * rhoi/rhow |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
132 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
float_frac_streamice(i,j,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
133 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
base_el_streamice(i,j,bi,bj) = Rlo+OD |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
136 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
if (h_streamice(i,j,bi,bj).lt.firn_depth) then |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
137 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
surf_el_streamice(i,j,bi,bj) = |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
138 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
& (1-streamice_density_firn/rhow)*h_streamice(i,j,bi,bj) |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
140 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
surf_el_streamice(i,j,bi,bj) = |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
141 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
& (1-rhoi/rhow)*h_streamice(i,j,bi,bj) + |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
146 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
surf_el_streamice(i,j,bi,bj) = |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
147 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
& (1-rhoi/rhow)*H_streamice(i,j,bi,bj) |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
155 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
float_frac_streamice(i,j,bi,bj) = 1.0 |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
156 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
base_el_streamice(i,j,bi,bj) = Rlo |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
157 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
surf_el_streamice(i,j,bi,bj) = Rlo |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
158 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
& + H_streamice(i,j,bi,bj) |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
30 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
INTEGER bi, bj, i, j |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
59 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
DO i=1-Olx,sNx+Olx |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
60 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
if (STREAMICE_hmask(i,j,bi,bj).eq.1.0 .or. |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
61 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
& STREAMICE_hmask(i,j,bi,bj).eq.2.0) THEN |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
64 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
if (STREAMICE_hmask(i,j,bi,bj).eq.1.0 .or. |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
65 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
& STREAMICE_hmask(i,j,bi,bj).eq.2.0) THEN |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
67 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
h = H_streamice(i,j,bi,bj) |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
70 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
hf = -1.0 * i_r * R_low_si (i,j,bi,bj) |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
72 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
hf = -1.0 * i_r * R_low (i,j,bi,bj) |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
75 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
surf_el_streamice(i,j,bi,bj) = |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
83 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
base_el_streamice(i,j,bi,bj) = |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
84 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
& surf_el_streamice(i,j,bi,bj) - h |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
86 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
float_frac_streamice(i,j,bi,bj) = |
|
./pkg/streamice/streamice_vel_phi.F |
45 |
STREAMICE_VEL_PHI |
INTEGER i,j,bi,bj |
|
./pkg/streamice/streamice_vel_phi.F |
75 |
STREAMICE_VEL_PHI |
DO i=1-OLx,sNx+OLx |
|
./pkg/streamice/streamice_vel_phi.F |
76 |
STREAMICE_VEL_PHI |
u_new_SI(i,j,bi,bj) = U_streamice(i,j,bi,bj) |
|
./pkg/streamice/streamice_vel_phi.F |
77 |
STREAMICE_VEL_PHI |
v_new_SI(i,j,bi,bj) = V_streamice(i,j,bi,bj) |
|
./pkg/streamice/streamice_vel_phistage.F |
142 |
STREAMICE_VEL_PHISTAGE |
DO i=1-OLx,sNx+OLx |
|
./pkg/streamice/streamice_vel_phistage.F |
143 |
STREAMICE_VEL_PHISTAGE |
U_streamice (i,j,bi,bj)=u_new_SI (i,j,bi,bj) |
|
./pkg/streamice/streamice_vel_phistage.F |
144 |
STREAMICE_VEL_PHISTAGE |
V_streamice (i,j,bi,bj)=v_new_SI (i,j,bi,bj) |
|
./pkg/streamice/streamice_vel_phistage.F |
146 |
STREAMICE_VEL_PHISTAGE |
streamice_taubx(i,j,bi,bj)=taubx_new_si(i,j,bi,bj) |
|
./pkg/streamice/streamice_vel_phistage.F |
147 |
STREAMICE_VEL_PHISTAGE |
streamice_tauby(i,j,bi,bj)=tauby_new_si(i,j,bi,bj) |
|
./pkg/streamice/streamice_vel_phistage.F |
149 |
STREAMICE_VEL_PHISTAGE |
visc_streamice_full(i,j,m,bi,bj)= visc_full_new_si(i,j,m, |
|
./pkg/streamice/streamice_vel_phistage.F |
79 |
STREAMICE_VEL_PHISTAGE |
INTEGER i, j, bi, bj, cg_iters, m |
|
./pkg/streamice/streamice_vel_solve.F |
294 |
STREAMICE_VEL_SOLVE |
DO i=1-OLx,sNx+OLx |
|
./pkg/streamice/streamice_vel_solve.F |
295 |
STREAMICE_VEL_SOLVE |
u_old_SI (i,j,bi,bj) = U_streamice (i,j,bi,bj) |
|
./pkg/streamice/streamice_vel_solve.F |
296 |
STREAMICE_VEL_SOLVE |
v_old_SI (i,j,bi,bj) = V_streamice (i,j,bi,bj) |
|
./pkg/streamice/streamice_vel_solve.F |
52 |
STREAMICE_VEL_SOLVE |
INTEGER i, j, k, l, iter, cg_iters, bi, bj |
|
./pkg/streamice/streamice_vel_solve.F |
97 |
STREAMICE_VEL_SOLVE |
DO i=1-OLx,sNx+OLx |
|
./pkg/streamice/streamice_vel_solve.F |
98 |
STREAMICE_VEL_SOLVE |
u_old_SI (i,j,bi,bj) = U_streamice (i,j,bi,bj) |
|
./pkg/streamice/streamice_vel_solve.F |
99 |
STREAMICE_VEL_SOLVE |
v_old_SI (i,j,bi,bj) = V_streamice (i,j,bi,bj) |
|
./pkg/streamice/streamice_vel_solve_openad.F |
44 |
STREAMICE_VEL_SOLVE_OPENAD |
INTEGER i, j, k, l, bi, bj, loopiter |
|
./pkg/streamice/streamice_vel_solve_openad.F |
92 |
STREAMICE_VEL_SOLVE_OPENAD |
DO i=1-OLx,sNx+OLx |
|
./pkg/streamice/streamice_vel_solve_openad.F |
93 |
STREAMICE_VEL_SOLVE_OPENAD |
U_streamice (i,j,bi,bj)=U_streamice (i,j,bi,bj) |
|
./pkg/streamice/streamice_vel_solve_openad.F |
94 |
STREAMICE_VEL_SOLVE_OPENAD |
& + 0*u_new_SI (i,j,bi,bj) |
|
./pkg/streamice/streamice_vel_solve_openad.F |
95 |
STREAMICE_VEL_SOLVE_OPENAD |
V_streamice (i,j,bi,bj)=V_streamice (i,j,bi,bj) |
|
./pkg/streamice/streamice_vel_solve_openad.F |
96 |
STREAMICE_VEL_SOLVE_OPENAD |
& + 0*v_new_SI (i,j,bi,bj) |
|
./pkg/streamice/streamice_velmask_upd.F |
100 |
STREAMICE_VELMASK_UPD |
STREAMICE_ufacemask(i+ki,j,bi,bj) = 3.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
103 |
STREAMICE_VELMASK_UPD |
STREAMICE_ufacemask(i+ki,j,bi,bj) = 2.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
107 |
STREAMICE_VELMASK_UPD |
STREAMICE_umask(i+ki,j+kj,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
108 |
STREAMICE_VELMASK_UPD |
STREAMICE_vmask(i+ki,j+kj,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
110 |
STREAMICE_VELMASK_UPD |
STREAMICE_ufacemask(i+ki,j,bi,bj) = 4.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
113 |
STREAMICE_VELMASK_UPD |
STREAMICE_umask(i+ki,j+kj,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
114 |
STREAMICE_VELMASK_UPD |
STREAMICE_vmask(i+ki,j+kj,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
116 |
STREAMICE_VELMASK_UPD |
STREAMICE_ufacemask(i+ki,j,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
119 |
STREAMICE_VELMASK_UPD |
STREAMICE_umask(i+ki,j+kj,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
125 |
STREAMICE_VELMASK_UPD |
maskFlag=INT(STREAMICE_vfacemask_bdry(i,j+kj,bi,bj)) |
|
./pkg/streamice/streamice_velmask_upd.F |
128 |
STREAMICE_VELMASK_UPD |
if(STREAMICE_vmask(i+ki,j+kj,bi,bj).ne.0.0) then |
|
./pkg/streamice/streamice_velmask_upd.F |
129 |
STREAMICE_VELMASK_UPD |
STREAMICE_vmask(i+ki,j+kj,bi,bj) = 3.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
131 |
STREAMICE_VELMASK_UPD |
if(STREAMICE_umask(i+ki,j+kj,bi,bj).ne.0.0) then |
|
./pkg/streamice/streamice_velmask_upd.F |
132 |
STREAMICE_VELMASK_UPD |
STREAMICE_umask(i+ki,j+kj,bi,bj) = 3.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
135 |
STREAMICE_VELMASK_UPD |
STREAMICE_vfacemask(i,j+kj,bi,bj) = 3.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
138 |
STREAMICE_VELMASK_UPD |
STREAMICE_vfacemask(i,j+kj,bi,bj) = 2.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
142 |
STREAMICE_VELMASK_UPD |
STREAMICE_umask(i+ki,j+kj,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
143 |
STREAMICE_VELMASK_UPD |
STREAMICE_vmask(i+ki,j+kj,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
145 |
STREAMICE_VELMASK_UPD |
STREAMICE_vfacemask(i,j+kj,bi,bj) = 4.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
148 |
STREAMICE_VELMASK_UPD |
STREAMICE_umask(i+ki,j+kj,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
149 |
STREAMICE_VELMASK_UPD |
STREAMICE_vmask(i+ki,j+kj,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
151 |
STREAMICE_VELMASK_UPD |
STREAMICE_vfacemask(i+ki,j,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
154 |
STREAMICE_VELMASK_UPD |
STREAMICE_vmask(i+ki,j+kj,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
159 |
STREAMICE_VELMASK_UPD |
IF (i .lt. sNx+OLx) THEN |
|
./pkg/streamice/streamice_velmask_upd.F |
160 |
STREAMICE_VELMASK_UPD |
IF ((STREAMICE_hmask(i+1,j,bi,bj) .eq. 0.0) .OR. |
|
./pkg/streamice/streamice_velmask_upd.F |
161 |
STREAMICE_VELMASK_UPD |
& (STREAMICE_hmask(i+1,j,bi,bj) .eq. 2.0)) THEN |
|
./pkg/streamice/streamice_velmask_upd.F |
163 |
STREAMICE_VELMASK_UPD |
STREAMICE_ufacemask(i+1,j,bi,bj) = 2.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
167 |
STREAMICE_VELMASK_UPD |
IF (i .gt. 1-OLx) THEN |
|
./pkg/streamice/streamice_velmask_upd.F |
168 |
STREAMICE_VELMASK_UPD |
IF ((STREAMICE_hmask(i-1,j,bi,bj) .eq. 0.0) .OR. |
|
./pkg/streamice/streamice_velmask_upd.F |
169 |
STREAMICE_VELMASK_UPD |
& (STREAMICE_hmask(i-1,j,bi,bj) .eq. 2.0)) THEN |
|
./pkg/streamice/streamice_velmask_upd.F |
171 |
STREAMICE_VELMASK_UPD |
STREAMICE_ufacemask(i,j,bi,bj) = 2 |
|
./pkg/streamice/streamice_velmask_upd.F |
176 |
STREAMICE_VELMASK_UPD |
IF ((STREAMICE_hmask(i,j+1,bi,bj) .eq. 0.0) .OR. |
|
./pkg/streamice/streamice_velmask_upd.F |
177 |
STREAMICE_VELMASK_UPD |
& (STREAMICE_hmask(i,j+1,bi,bj) .eq. 2.0)) THEN |
|
./pkg/streamice/streamice_velmask_upd.F |
179 |
STREAMICE_VELMASK_UPD |
STREAMICE_vfacemask(i,j+1,bi,bj) = 2 |
|
./pkg/streamice/streamice_velmask_upd.F |
184 |
STREAMICE_VELMASK_UPD |
IF ((STREAMICE_hmask(i,j-1,bi,bj) .eq. 0.0) .OR. |
|
./pkg/streamice/streamice_velmask_upd.F |
185 |
STREAMICE_VELMASK_UPD |
& (STREAMICE_hmask(i,j-1,bi,bj) .eq. 2.0)) THEN |
|
./pkg/streamice/streamice_velmask_upd.F |
187 |
STREAMICE_VELMASK_UPD |
STREAMICE_vfacemask(i,j,bi,bj) = 2.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
203 |
STREAMICE_VELMASK_UPD |
DO i=1,sNx |
|
./pkg/streamice/streamice_velmask_upd.F |
204 |
STREAMICE_VELMASK_UPD |
IF(streamice_umask(i,j,bi,bj).eq.-1.0) THEN |
|
./pkg/streamice/streamice_velmask_upd.F |
205 |
STREAMICE_VELMASK_UPD |
streamice_umask(i,j,bi,bj)=0.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
207 |
STREAMICE_VELMASK_UPD |
IF(streamice_vmask(i,j,bi,bj).eq.-1.0) THEN |
|
./pkg/streamice/streamice_velmask_upd.F |
208 |
STREAMICE_VELMASK_UPD |
streamice_vmask(i,j,bi,bj)=0.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
43 |
STREAMICE_VELMASK_UPD |
INTEGER i, j, bi, bj, ki, kj |
|
./pkg/streamice/streamice_velmask_upd.F |
62 |
STREAMICE_VELMASK_UPD |
DO i=1-OLx,sNx+OLx |
|
./pkg/streamice/streamice_velmask_upd.F |
63 |
STREAMICE_VELMASK_UPD |
STREAMICE_umask(i,j,bi,bj) = -1. _d 0 |
|
./pkg/streamice/streamice_velmask_upd.F |
64 |
STREAMICE_VELMASK_UPD |
STREAMICE_vmask(i,j,bi,bj) = -1. _d 0 |
|
./pkg/streamice/streamice_velmask_upd.F |
65 |
STREAMICE_VELMASK_UPD |
STREAMICE_ufacemask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_velmask_upd.F |
66 |
STREAMICE_VELMASK_UPD |
STREAMICE_vfacemask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_velmask_upd.F |
75 |
STREAMICE_VELMASK_UPD |
DO i=0,sNx+1 |
|
./pkg/streamice/streamice_velmask_upd.F |
76 |
STREAMICE_VELMASK_UPD |
IF (STREAMICE_hmask(i,j,bi,bj) .eq. 1.0) THEN |
|
./pkg/streamice/streamice_velmask_upd.F |
80 |
STREAMICE_VELMASK_UPD |
if (STREAMICE_umask(i+ki,j+kj,bi,bj).eq.-1.0) then |
|
./pkg/streamice/streamice_velmask_upd.F |
81 |
STREAMICE_VELMASK_UPD |
STREAMICE_umask (i+ki,j+kj,bi,bj) = 1.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
83 |
STREAMICE_VELMASK_UPD |
if (STREAMICE_vmask(i+ki,j+kj,bi,bj).eq.-1.0) then |
|
./pkg/streamice/streamice_velmask_upd.F |
84 |
STREAMICE_VELMASK_UPD |
STREAMICE_vmask (i+ki,j+kj,bi,bj) = 1.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
90 |
STREAMICE_VELMASK_UPD |
maskFlag=INT(STREAMICE_ufacemask_bdry(i+ki,j,bi,bj)) |
|
./pkg/streamice/streamice_velmask_upd.F |
93 |
STREAMICE_VELMASK_UPD |
if (STREAMICE_umask(i+ki,j+kj,bi,bj).ne.0.0) then |
|
./pkg/streamice/streamice_velmask_upd.F |
94 |
STREAMICE_VELMASK_UPD |
STREAMICE_umask(i+ki,j+kj,bi,bj) = 3.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
96 |
STREAMICE_VELMASK_UPD |
if(STREAMICE_vmask(i+ki,j+kj,bi,bj).ne.0.0) then |
|
./pkg/streamice/streamice_velmask_upd.F |
97 |
STREAMICE_VELMASK_UPD |
STREAMICE_vmask(i+ki,j+kj,bi,bj) = 3.0 |
|
./model/src/ini_mixing.F |
49 |
INI_MIXING |
INTEGER i, j, k |
|
./model/src/ini_mixing.F |
56 |
INI_MIXING |
DO i = 1-OLx, sNx+OLx |
|
./model/src/ini_mixing.F |
58 |
INI_MIXING |
diffKr(i,j,k,bi,bj) = diffKrNrS(k) |
|
./model/src/ini_mixing.F |
62 |
INI_MIXING |
kapGM(i,j,k,bi,bj) = GM_background_K* |
|
./model/src/ini_mixing.F |
63 |
INI_MIXING |
& GM_bolFac2d(i,j,bi,bj)*GM_bolFac1d(k) |
|
./model/src/ini_mixing.F |
66 |
INI_MIXING |
kapRedi(i,j,k,bi,bj) = GM_isopycK* |
|
./model/src/ini_mixing.F |
67 |
INI_MIXING |
& GM_isoFac2d(i,j,bi,bj)*GM_isoFac1d(k) |
|
./model/src/ini_mixing.F |
80 |
INI_MIXING |
DO i = 1-OLx, sNx+OLx |
|
./model/src/ini_mixing.F |
81 |
INI_MIXING |
BL79LatArray(i,j,bi,bj) = 0.0 _d 0 |
|
./model/src/ini_mixing.F |
82 |
INI_MIXING |
IF ( ABS(YC(i,j,bi,bj)) .LT. BL79LatVary ) |
|
./model/src/ini_mixing.F |
83 |
INI_MIXING |
& BL79LatArray(i,j,bi,bj) = |
|
./model/src/ini_mixing.F |
84 |
INI_MIXING |
& ( 1 + COS(YC(i,j,bi,bj)*pi/BL79LatVary) ) / 2 |
|
./pkg/streamice/streamice_visc_beta.F |
100 |
STREAMICE_VISC_BETA |
& second_inv**((1-n_glen)/n_glen) * H_streamice(i,j,bi,bj) |
|
./pkg/streamice/streamice_visc_beta.F |
103 |
STREAMICE_VISC_BETA |
tau_beta_eff_streamice(i,j,bi,bj) = |
|
./pkg/streamice/streamice_visc_beta.F |
104 |
STREAMICE_VISC_BETA |
& C_basal_friction(i,j,bi,bj)**2 * |
|
./pkg/streamice/streamice_visc_beta.F |
106 |
STREAMICE_VISC_BETA |
& float_frac_streamice (i,j,bi,bj) |
|
./pkg/streamice/streamice_visc_beta.F |
36 |
STREAMICE_VISC_BETA |
INTEGER i, j, bi, bj, k, l |
|
./pkg/streamice/streamice_visc_beta.F |
43 |
STREAMICE_VISC_BETA |
DO i=1,sNx |
|
./pkg/streamice/streamice_visc_beta.F |
44 |
STREAMICE_VISC_BETA |
IF (STREAMICE_hmask(i,j,bi,bj).eq.1) THEN |
|
./pkg/streamice/streamice_visc_beta.F |
52 |
STREAMICE_VISC_BETA |
& dxG(i,j+l,bi,bj)*dyG(i+k,j,bi,bj) * |
|
./pkg/streamice/streamice_visc_beta.F |
53 |
STREAMICE_VISC_BETA |
& recip_rA(i,j,bi,bj) * |
|
./pkg/streamice/streamice_visc_beta.F |
54 |
STREAMICE_VISC_BETA |
& U_streamice(i+k,j+l,bi,bj) |
|
./pkg/streamice/streamice_visc_beta.F |
56 |
STREAMICE_VISC_BETA |
& dxG(i,j+l,bi,bj)*dyG(i+k,j,bi,bj) * |
|
./pkg/streamice/streamice_visc_beta.F |
57 |
STREAMICE_VISC_BETA |
& recip_rA(i,j,bi,bj) * |
|
./pkg/streamice/streamice_visc_beta.F |
58 |
STREAMICE_VISC_BETA |
& V_streamice(i+k,j+l,bi,bj) |
|
./pkg/streamice/streamice_visc_beta.F |
62 |
STREAMICE_VISC_BETA |
ux = (U_streamice(i+1,j+1,bi,bj) + |
|
./pkg/streamice/streamice_visc_beta.F |
63 |
STREAMICE_VISC_BETA |
& U_streamice(i+1,j,bi,bj) - |
|
./pkg/streamice/streamice_visc_beta.F |
64 |
STREAMICE_VISC_BETA |
& U_streamice(i,j+1,bi,bj) - |
|
./pkg/streamice/streamice_visc_beta.F |
65 |
STREAMICE_VISC_BETA |
& U_streamice(i,j,bi,bj)) / |
|
./pkg/streamice/streamice_visc_beta.F |
66 |
STREAMICE_VISC_BETA |
& (2. * dxF(i,j,bi,bj)) |
|
./pkg/streamice/streamice_visc_beta.F |
67 |
STREAMICE_VISC_BETA |
vx = (V_streamice(i+1,j+1,bi,bj) + |
|
./pkg/streamice/streamice_visc_beta.F |
68 |
STREAMICE_VISC_BETA |
& V_streamice(i+1,j,bi,bj) - |
|
./pkg/streamice/streamice_visc_beta.F |
69 |
STREAMICE_VISC_BETA |
& V_streamice(i,j+1,bi,bj) - |
|
./pkg/streamice/streamice_visc_beta.F |
70 |
STREAMICE_VISC_BETA |
& V_streamice(i,j,bi,bj)) / |
|
./pkg/streamice/streamice_visc_beta.F |
71 |
STREAMICE_VISC_BETA |
& (2. * dxF(i,j,bi,bj)) |
|
./pkg/streamice/streamice_visc_beta.F |
72 |
STREAMICE_VISC_BETA |
uy = (U_streamice(i+1,j+1,bi,bj) - |
|
./pkg/streamice/streamice_visc_beta.F |
73 |
STREAMICE_VISC_BETA |
& U_streamice(i+1,j,bi,bj) + |
|
./pkg/streamice/streamice_visc_beta.F |
74 |
STREAMICE_VISC_BETA |
& U_streamice(i,j+1,bi,bj) - |
|
./pkg/streamice/streamice_visc_beta.F |
75 |
STREAMICE_VISC_BETA |
& U_streamice(i,j,bi,bj)) / |
|
./pkg/streamice/streamice_visc_beta.F |
76 |
STREAMICE_VISC_BETA |
& (2. * dyF(i,j,bi,bj)) |
|
./pkg/streamice/streamice_visc_beta.F |
77 |
STREAMICE_VISC_BETA |
vy = (V_streamice(i+1,j+1,bi,bj) - |
|
./pkg/streamice/streamice_visc_beta.F |
78 |
STREAMICE_VISC_BETA |
& V_streamice(i+1,j,bi,bj) + |
|
./pkg/streamice/streamice_visc_beta.F |
79 |
STREAMICE_VISC_BETA |
& V_streamice(i,j+1,bi,bj) - |
|
./pkg/streamice/streamice_visc_beta.F |
80 |
STREAMICE_VISC_BETA |
& V_streamice(i,j,bi,bj)) / |
|
./pkg/streamice/streamice_visc_beta.F |
81 |
STREAMICE_VISC_BETA |
& (2. * dyF(i,j,bi,bj)) |
|
./pkg/streamice/streamice_visc_beta.F |
83 |
STREAMICE_VISC_BETA |
exx = ux + k1AtC_str(i,j,bi,bj)*vmid |
|
./pkg/streamice/streamice_visc_beta.F |
84 |
STREAMICE_VISC_BETA |
eyy = vy + k2AtC_str(i,j,bi,bj)*umid |
|
./pkg/streamice/streamice_visc_beta.F |
86 |
STREAMICE_VISC_BETA |
& k1AtC_str(i,j,bi,bj)*umid + k2AtC_str(i,j,bi,bj)*vmid |
|
./pkg/streamice/streamice_visc_beta.F |
94 |
STREAMICE_VISC_BETA |
visc_streamice(i,j,bi,bj) = |
|
./pkg/streamice/streamice_visc_beta.F |
96 |
STREAMICE_VISC_BETA |
& .5 * (B_glen(i,j,1,bi,bj))**2 * |
|
./pkg/streamice/streamice_visc_beta.F |
98 |
STREAMICE_VISC_BETA |
& .5 * (B_glen(i,j,bi,bj))**2 * |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
100 |
STREAMICE_VISC_BETA_HYBRID |
& V_streamice(i,j,bi,bj)) / |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
101 |
STREAMICE_VISC_BETA_HYBRID |
& (2. * dyF(i,j,bi,bj)) |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
103 |
STREAMICE_VISC_BETA_HYBRID |
exx = ux + k1AtC_str(i,j,bi,bj)*vmid |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
104 |
STREAMICE_VISC_BETA_HYBRID |
eyy = vy + k2AtC_str(i,j,bi,bj)*umid |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
106 |
STREAMICE_VISC_BETA_HYBRID |
& k1AtC_str(i,j,bi,bj)*umid + k2AtC_str(i,j,bi,bj)*vmid |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
108 |
STREAMICE_VISC_BETA_HYBRID |
visc_streamice (i,j,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
109 |
STREAMICE_VISC_BETA_HYBRID |
streamice_omega(i,j,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
126 |
STREAMICE_VISC_BETA_HYBRID |
& + Nr*(i-1) |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
137 |
STREAMICE_VISC_BETA_HYBRID |
streamice_vert_shear_uz (m) = streamice_taubx(i,j,bi,bj) / |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
138 |
STREAMICE_VISC_BETA_HYBRID |
& visc_streamice_full(i,j,m,bi,bj) |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
141 |
STREAMICE_VISC_BETA_HYBRID |
streamice_vert_shear_vz (m) = streamice_tauby(i,j,bi,bj) / |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
142 |
STREAMICE_VISC_BETA_HYBRID |
& visc_streamice_full(i,j,m,bi,bj) |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
152 |
STREAMICE_VISC_BETA_HYBRID |
visc_full_new_si(i,j,m,bi,bj) = |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
154 |
STREAMICE_VISC_BETA_HYBRID |
visc_streamice_full(i,j,m,bi,bj) = |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
156 |
STREAMICE_VISC_BETA_HYBRID |
& .5 * B_glen(i,j,m,bi,bj)**2 * |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
160 |
STREAMICE_VISC_BETA_HYBRID |
visc_full_new_si(i,j,m,bi,bj) = |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
162 |
STREAMICE_VISC_BETA_HYBRID |
visc_streamice_full(i,j,m,bi,bj) = |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
164 |
STREAMICE_VISC_BETA_HYBRID |
& .5 * B_glen(i,j,bi,bj)**2 * |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
168 |
STREAMICE_VISC_BETA_HYBRID |
visc_streamice (i,j,bi,bj) = visc_streamice (i,j,bi,bj) + |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
169 |
STREAMICE_VISC_BETA_HYBRID |
& H_streamice(i,j,bi,bj) * streamice_delsigma (m) * |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
171 |
STREAMICE_VISC_BETA_HYBRID |
& visc_full_new_si(i,j,m,bi,bj) |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
173 |
STREAMICE_VISC_BETA_HYBRID |
& visc_streamice_full(i,j,m,bi,bj) |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
179 |
STREAMICE_VISC_BETA_HYBRID |
& visc_full_new_si(i,j,m,bi,bj) |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
181 |
STREAMICE_VISC_BETA_HYBRID |
& visc_streamice_full(i,j,m,bi,bj) |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
186 |
STREAMICE_VISC_BETA_HYBRID |
& H_streamice(i,j,bi,bj) |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
190 |
STREAMICE_VISC_BETA_HYBRID |
& H_streamice(i,j,bi,bj) |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
199 |
STREAMICE_VISC_BETA_HYBRID |
streamice_omega(i,j,bi,bj) = streamice_omega(i,j,bi,bj) + |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
201 |
STREAMICE_VISC_BETA_HYBRID |
& * H_streamice(i,j,bi,bj)**2 |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
211 |
STREAMICE_VISC_BETA_HYBRID |
streamice_u_surf(i,j,bi,bj) = |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
214 |
STREAMICE_VISC_BETA_HYBRID |
streamice_v_surf(i,j,bi,bj) = |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
217 |
STREAMICE_VISC_BETA_HYBRID |
ub = umid - streamice_taubx(i,j,bi,bj) * |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
218 |
STREAMICE_VISC_BETA_HYBRID |
& streamice_omega(i,j,bi,bj) / H_streamice(i,j,bi,bj) |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
220 |
STREAMICE_VISC_BETA_HYBRID |
streamice_u_bed (i,j,bi,bj) = ub |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
222 |
STREAMICE_VISC_BETA_HYBRID |
vb = vmid - streamice_tauby(i,j,bi,bj) * |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
223 |
STREAMICE_VISC_BETA_HYBRID |
& streamice_omega(i,j,bi,bj) / H_streamice(i,j,bi,bj) |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
225 |
STREAMICE_VISC_BETA_HYBRID |
streamice_v_bed (i,j,bi,bj) = vb |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
229 |
STREAMICE_VISC_BETA_HYBRID |
fb = C_basal_friction(i,j,bi,bj)**2 * |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
231 |
STREAMICE_VISC_BETA_HYBRID |
& streamice_basal_geom(i,j,bi,bj) * |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
232 |
STREAMICE_VISC_BETA_HYBRID |
& float_frac_streamice(i,j,bi,bj) |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
234 |
STREAMICE_VISC_BETA_HYBRID |
tau_beta_eff_streamice(i,j,bi,bj) = |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
236 |
STREAMICE_VISC_BETA_HYBRID |
& (1+fb*streamice_omega(i,j,bi,bj)/H_streamice(i,j,bi,bj)) |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
239 |
STREAMICE_VISC_BETA_HYBRID |
tau_beta_eff_streamice(i,j,bi,bj) = |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
240 |
STREAMICE_VISC_BETA_HYBRID |
& tau_beta_eff_streamice(i,j,bi,bj) + |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
241 |
STREAMICE_VISC_BETA_HYBRID |
& buttr_param*B_glen(i,j,bi,bj)**2 * |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
243 |
STREAMICE_VISC_BETA_HYBRID |
& H_streamice(i,j,bi,bj) |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
42 |
STREAMICE_VISC_BETA_HYBRID |
INTEGER i, j, bi, bj, k, l, m |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
63 |
STREAMICE_VISC_BETA_HYBRID |
DO i=1,sNx |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
64 |
STREAMICE_VISC_BETA_HYBRID |
IF (STREAMICE_hmask(i,j,bi,bj).eq.1) THEN |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
72 |
STREAMICE_VISC_BETA_HYBRID |
& dxG(i,j+l,bi,bj)*dyG(i+k,j,bi,bj) * |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
73 |
STREAMICE_VISC_BETA_HYBRID |
& recip_rA(i,j,bi,bj) * |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
74 |
STREAMICE_VISC_BETA_HYBRID |
& U_streamice(i+k,j+l,bi,bj) |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
76 |
STREAMICE_VISC_BETA_HYBRID |
& dxG(i,j+l,bi,bj)*dyG(i+k,j,bi,bj) * |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
77 |
STREAMICE_VISC_BETA_HYBRID |
& recip_rA(i,j,bi,bj) * |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
78 |
STREAMICE_VISC_BETA_HYBRID |
& V_streamice(i+k,j+l,bi,bj) |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
82 |
STREAMICE_VISC_BETA_HYBRID |
ux = (U_streamice(i+1,j+1,bi,bj) + |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
83 |
STREAMICE_VISC_BETA_HYBRID |
& U_streamice(i+1,j,bi,bj) - |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
84 |
STREAMICE_VISC_BETA_HYBRID |
& U_streamice(i,j+1,bi,bj) - |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
85 |
STREAMICE_VISC_BETA_HYBRID |
& U_streamice(i,j,bi,bj)) / |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
86 |
STREAMICE_VISC_BETA_HYBRID |
& (2. * dxF(i,j,bi,bj)) |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
87 |
STREAMICE_VISC_BETA_HYBRID |
vx = (V_streamice(i+1,j+1,bi,bj) + |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
88 |
STREAMICE_VISC_BETA_HYBRID |
& V_streamice(i+1,j,bi,bj) - |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
89 |
STREAMICE_VISC_BETA_HYBRID |
& V_streamice(i,j+1,bi,bj) - |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
90 |
STREAMICE_VISC_BETA_HYBRID |
& V_streamice(i,j,bi,bj)) / |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
91 |
STREAMICE_VISC_BETA_HYBRID |
& (2. * dxF(i,j,bi,bj)) |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
92 |
STREAMICE_VISC_BETA_HYBRID |
uy = (U_streamice(i+1,j+1,bi,bj) - |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
93 |
STREAMICE_VISC_BETA_HYBRID |
& U_streamice(i+1,j,bi,bj) + |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
94 |
STREAMICE_VISC_BETA_HYBRID |
& U_streamice(i,j+1,bi,bj) - |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
95 |
STREAMICE_VISC_BETA_HYBRID |
& U_streamice(i,j,bi,bj)) / |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
96 |
STREAMICE_VISC_BETA_HYBRID |
& (2. * dyF(i,j,bi,bj)) |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
97 |
STREAMICE_VISC_BETA_HYBRID |
vy = (V_streamice(i+1,j+1,bi,bj) - |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
98 |
STREAMICE_VISC_BETA_HYBRID |
& V_streamice(i+1,j,bi,bj) + |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
99 |
STREAMICE_VISC_BETA_HYBRID |
& V_streamice(i,j+1,bi,bj) - |
|
./pkg/thsice/THSICE_DEBUG.h |
21 |
NO PROCEDURE |
dBug(i,j,bi,bj) = dBugFlag .AND. |
|
./pkg/thsice/THSICE_DEBUG.h |
22 |
NO PROCEDURE |
& ( i.EQ.15 .AND. j.EQ.11 .AND. bi.EQ.3 .AND. bj.EQ.1 ) |
|
./pkg/thsice/thsice_advdiff.F |
170 |
THSICE_ADVDIFF |
DO i=1,sNx |
|
./pkg/thsice/thsice_advdiff.F |
171 |
THSICE_ADVDIFF |
iceTmp(i,j) = iceMask(i,j,bi,bj)*iceHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
189 |
THSICE_ADVDIFF |
DO i=1-OLx,sNx+OLx |
|
./pkg/thsice/thsice_advdiff.F |
190 |
THSICE_ADVDIFF |
maskOce(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_advdiff.F |
191 |
THSICE_ADVDIFF |
IF ( hOceMxL(i,j,bi,bj).GT.0. ) maskOce(i,j) = 1. |
|
./pkg/thsice/thsice_advdiff.F |
192 |
THSICE_ADVDIFF |
iceVol(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_advdiff.F |
193 |
THSICE_ADVDIFF |
uTrans(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_advdiff.F |
194 |
THSICE_ADVDIFF |
vTrans(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_advdiff.F |
195 |
THSICE_ADVDIFF |
uTrIce(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_advdiff.F |
196 |
THSICE_ADVDIFF |
vTrIce(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_advdiff.F |
197 |
THSICE_ADVDIFF |
oceFWfx(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_advdiff.F |
198 |
THSICE_ADVDIFF |
oceSflx(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_advdiff.F |
199 |
THSICE_ADVDIFF |
oceQnet(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_advdiff.F |
220 |
THSICE_ADVDIFF |
DO i=1-OLx+1,sNx+OLx |
|
./pkg/thsice/thsice_advdiff.F |
221 |
THSICE_ADVDIFF |
uTrIce(i,j) = uIce(i,j)*_dyG(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
222 |
THSICE_ADVDIFF |
& *maskOce(i-1,j)*maskOce(i,j) |
|
./pkg/thsice/thsice_advdiff.F |
226 |
THSICE_ADVDIFF |
DO i=1-OLx,sNx+OLx |
|
./pkg/thsice/thsice_advdiff.F |
227 |
THSICE_ADVDIFF |
vTrIce(i,j) = vIce(i,j)*_dxG(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
228 |
THSICE_ADVDIFF |
& *maskOce(i,j-1)*maskOce(i,j) |
|
./pkg/thsice/thsice_advdiff.F |
234 |
THSICE_ADVDIFF |
DO i=1-OLx,sNx+OLx |
|
./pkg/thsice/thsice_advdiff.F |
235 |
THSICE_ADVDIFF |
iceFrc(i,j) = iceMask(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
252 |
THSICE_ADVDIFF |
DO i=1-OLx,sNx+OLx |
|
./pkg/thsice/thsice_advdiff.F |
253 |
THSICE_ADVDIFF |
iceVol(i,j) = iceMask(i,j,bi,bj)*rA(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
269 |
THSICE_ADVDIFF |
DO i=1-OLx,sNx+OLx |
|
./pkg/thsice/thsice_advdiff.F |
270 |
THSICE_ADVDIFF |
iceVol(i,j) = iceMask(i,j,bi,bj)*rA(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
271 |
THSICE_ADVDIFF |
oldVol(i,j) = iceVol(i,j)*iceHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
292 |
THSICE_ADVDIFF |
DO i=1,sNx |
|
./pkg/thsice/thsice_advdiff.F |
294 |
THSICE_ADVDIFF |
tmpVar = ABS(iceVol(i,j)-iceFrc(i,j)*rA(i,j,bi,bj)) |
|
./pkg/thsice/thsice_advdiff.F |
301 |
THSICE_ADVDIFF |
& i,j,bi,bj,myIter |
|
./pkg/thsice/thsice_advdiff.F |
303 |
THSICE_ADVDIFF |
& iceVol(i,j),iceFrc(i,j)*rA(i,j,bi,bj), |
|
./pkg/thsice/thsice_advdiff.F |
306 |
THSICE_ADVDIFF |
IF ( dBug(i,j,bi,bj) ) THEN |
|
./pkg/thsice/thsice_advdiff.F |
308 |
THSICE_ADVDIFF |
& i,j,bi,bj,myIter |
|
./pkg/thsice/thsice_advdiff.F |
310 |
THSICE_ADVDIFF |
& 'ICE_ADV: uIce=', uIce(i,j), uIce(i+1,j), |
|
./pkg/thsice/thsice_advdiff.F |
311 |
THSICE_ADVDIFF |
& ' , vIce=', vIce(i,j), vIce(i,j+1) |
|
./pkg/thsice/thsice_advdiff.F |
313 |
THSICE_ADVDIFF |
& 'ICE_ADV: area_b,a=', iceMask(i,j,bi,bj), iceFrc(i,j), |
|
./pkg/thsice/thsice_advdiff.F |
314 |
THSICE_ADVDIFF |
& ' , Heff_b,a=', oldVol(i,j)*recip_rA(i,j,bi,bj), |
|
./pkg/thsice/thsice_advdiff.F |
315 |
THSICE_ADVDIFF |
& iceHeight(i,j,bi,bj)*iceFrc(i,j) |
|
./pkg/thsice/thsice_advdiff.F |
350 |
THSICE_ADVDIFF |
DO i=1-OLx,sNx+OLx |
|
./pkg/thsice/thsice_advdiff.F |
351 |
THSICE_ADVDIFF |
iceVol(i,j) = oldVol(i,j) |
|
./pkg/thsice/thsice_advdiff.F |
363 |
THSICE_ADVDIFF |
DO i=1,sNx |
|
./pkg/thsice/thsice_advdiff.F |
364 |
THSICE_ADVDIFF |
IF ( dBug(i,j,bi,bj) ) THEN |
|
./pkg/thsice/thsice_advdiff.F |
387 |
THSICE_ADVDIFF |
DO i=1-OLx,sNx+OLx |
|
./pkg/thsice/thsice_advdiff.F |
388 |
THSICE_ADVDIFF |
iceVol(i,j) = oldVol(i,j) |
|
./pkg/thsice/thsice_advdiff.F |
402 |
THSICE_ADVDIFF |
DO i=1,sNx |
|
./pkg/thsice/thsice_advdiff.F |
404 |
THSICE_ADVDIFF |
tmpVar = ABS(iceVol(i,j) |
|
./pkg/thsice/thsice_advdiff.F |
405 |
THSICE_ADVDIFF |
& -iceHeight(i,j,bi,bj)*iceFrc(i,j)*rA(i,j,bi,bj)) |
|
./pkg/thsice/thsice_advdiff.F |
412 |
THSICE_ADVDIFF |
& i,j,bi,bj,myIter |
|
./pkg/thsice/thsice_advdiff.F |
414 |
THSICE_ADVDIFF |
& iceVol(i,j),iceHeight(i,j,bi,bj)*iceFrc(i,j)*rA(i,j,bi,bj), |
|
./pkg/thsice/thsice_advdiff.F |
417 |
THSICE_ADVDIFF |
IF ( dBug(i,j,bi,bj) ) THEN |
|
./pkg/thsice/thsice_advdiff.F |
454 |
THSICE_ADVDIFF |
DO i=1,sNx |
|
./pkg/thsice/thsice_advdiff.F |
455 |
THSICE_ADVDIFF |
IF ( iceFrc(i,j) .GT. 1. _d 0 ) THEN |
|
./pkg/thsice/thsice_advdiff.F |
457 |
THSICE_ADVDIFF |
iceMask(i,j,bi,bj) = 1. _d 0 |
|
./pkg/thsice/thsice_advdiff.F |
458 |
THSICE_ADVDIFF |
iceHeight(i,j,bi,bj) = iceHeight(i,j,bi,bj) *iceFrc(i,j) |
|
./pkg/thsice/thsice_advdiff.F |
459 |
THSICE_ADVDIFF |
snowHeight(i,j,bi,bj) = snowHeight(i,j,bi,bj)*iceFrc(i,j) |
|
./pkg/thsice/thsice_advdiff.F |
460 |
THSICE_ADVDIFF |
ELSEIF ( iceFrc(i,j) .LT. iceMaskMin ) THEN |
|
./pkg/thsice/thsice_advdiff.F |
462 |
THSICE_ADVDIFF |
iceMask(i,j,bi,bj) = iceMaskMin |
|
./pkg/thsice/thsice_advdiff.F |
463 |
THSICE_ADVDIFF |
iceHeight(i,j,bi,bj) = iceHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
464 |
THSICE_ADVDIFF |
& *iceFrc(i,j)*r_minArea |
|
./pkg/thsice/thsice_advdiff.F |
465 |
THSICE_ADVDIFF |
snowHeight(i,j,bi,bj) = snowHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
466 |
THSICE_ADVDIFF |
& *iceFrc(i,j)*r_minArea |
|
./pkg/thsice/thsice_advdiff.F |
468 |
THSICE_ADVDIFF |
iceMask(i,j,bi,bj) = iceFrc(i,j) |
|
./pkg/thsice/thsice_advdiff.F |
474 |
THSICE_ADVDIFF |
DO i=1,sNx |
|
./pkg/thsice/thsice_advdiff.F |
475 |
THSICE_ADVDIFF |
IF ( iceHeight(i,j,bi,bj).LT.hIceMin ) THEN |
|
./pkg/thsice/thsice_advdiff.F |
476 |
THSICE_ADVDIFF |
iceVol(i,j) = iceMask(i,j,bi,bj)*iceHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
478 |
THSICE_ADVDIFF |
IF ( iceVol(i,j).GE.hIceMin*iceMaskMin ) THEN |
|
./pkg/thsice/thsice_advdiff.F |
479 |
THSICE_ADVDIFF |
iceMask(i,j,bi,bj) = iceVol(i,j)/hIceMin |
|
./pkg/thsice/thsice_advdiff.F |
480 |
THSICE_ADVDIFF |
snowHeight(i,j,bi,bj) = snowHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
481 |
THSICE_ADVDIFF |
& *hIceMin/iceHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
482 |
THSICE_ADVDIFF |
iceHeight(i,j,bi,bj) = hIceMin |
|
./pkg/thsice/thsice_advdiff.F |
490 |
THSICE_ADVDIFF |
oceFWfx(i,j,bi,bj) = ( rhos*snowHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
491 |
THSICE_ADVDIFF |
& +rhoi*iceHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
492 |
THSICE_ADVDIFF |
& )*iceMask(i,j,bi,bj)/thSIce_deltaT |
|
./pkg/thsice/thsice_advdiff.F |
493 |
THSICE_ADVDIFF |
oceSflx(i,j,bi,bj) = rhoi*iceHeight(i,j,bi,bj)*saltIce |
|
./pkg/thsice/thsice_advdiff.F |
494 |
THSICE_ADVDIFF |
& *iceMask(i,j,bi,bj)/thSIce_deltaT |
|
./pkg/thsice/thsice_advdiff.F |
495 |
THSICE_ADVDIFF |
oceQnet(i,j,bi,bj) = -( rhos*snowHeight(i,j,bi,bj)*qsnow |
|
./pkg/thsice/thsice_advdiff.F |
496 |
THSICE_ADVDIFF |
& +rhoi*iceHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
497 |
THSICE_ADVDIFF |
& *( Qice1(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
498 |
THSICE_ADVDIFF |
& +Qice2(i,j,bi,bj) )*0.5 _d 0 |
|
./pkg/thsice/thsice_advdiff.F |
499 |
THSICE_ADVDIFF |
& )*iceMask(i,j,bi,bj)/thSIce_deltaT |
|
./pkg/thsice/thsice_advdiff.F |
504 |
THSICE_ADVDIFF |
iceMask (i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_advdiff.F |
505 |
THSICE_ADVDIFF |
iceHeight (i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_advdiff.F |
506 |
THSICE_ADVDIFF |
snowHeight(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_advdiff.F |
507 |
THSICE_ADVDIFF |
Qice1 (i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_advdiff.F |
508 |
THSICE_ADVDIFF |
Qice2 (i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_advdiff.F |
509 |
THSICE_ADVDIFF |
snowAge (i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_advdiff.F |
518 |
THSICE_ADVDIFF |
DO i=1,sNx |
|
./pkg/thsice/thsice_advdiff.F |
519 |
THSICE_ADVDIFF |
IF ( dBug(i,j,bi,bj) ) THEN |
|
./pkg/thsice/thsice_advdiff.F |
559 |
THSICE_ADVDIFF |
DO i=1,sNx |
|
./pkg/thsice/thsice_advdiff.F |
560 |
THSICE_ADVDIFF |
iceVol(i,j) = iceMask(i,j,bi,bj)*iceHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
78 |
THSICE_ADVDIFF |
INTEGER i, j |
|
./pkg/thsice/thsice_advection.F |
130 |
THSICE_ADVECTION |
INTEGER i,j,k |
|
./pkg/thsice/thsice_advection.F |
219 |
THSICE_ADVECTION |
DO i=2-OLx,sNx+OLx |
|
./pkg/thsice/thsice_advection.F |
220 |
THSICE_ADVECTION |
maskLocW(i,j) = MIN( maskOc(i-1,j), maskOc(i,j) ) |
|
./pkg/thsice/thsice_advection.F |
222 |
THSICE_ADVECTION |
& * maskInW(i,j,bi,bj) |
|
./pkg/thsice/thsice_advection.F |
226 |
THSICE_ADVECTION |
DO i=1-OLx,sNx+OLx |
|
./pkg/thsice/thsice_advection.F |
227 |
THSICE_ADVECTION |
maskLocS(i,1-Oly) = 0. |
|
./pkg/thsice/thsice_advection.F |
230 |
THSICE_ADVECTION |
DO i=1-OLx,sNx+OLx |
|
./pkg/thsice/thsice_advection.F |
231 |
THSICE_ADVECTION |
maskLocS(i,j) = MIN( maskOc(i,j-1), maskOc(i,j) ) |
|
./pkg/thsice/thsice_advection.F |
233 |
THSICE_ADVECTION |
& * maskInS(i,j,bi,bj) |
|
./pkg/thsice/thsice_advection.F |
240 |
THSICE_ADVECTION |
DO i=1-OLx,sNx+OLx |
|
./pkg/thsice/thsice_advection.F |
241 |
THSICE_ADVECTION |
maskLocC(i,j) = maskOc(i,j) |
|
./pkg/thsice/thsice_advection.F |
243 |
THSICE_ADVECTION |
& * maskInC(i,j,bi,bj) |
|
./pkg/thsice/thsice_advection.F |
320 |
THSICE_ADVECTION |
DO i=1-Olx,sNx+Olx |
|
./pkg/thsice/thsice_advection.F |
321 |
THSICE_ADVECTION |
af(i,j) = 0. |
|
./pkg/thsice/thsice_advection.F |
339 |
THSICE_ADVECTION |
DO i=2-Olx,sNx+Olx |
|
./pkg/thsice/thsice_advection.F |
340 |
THSICE_ADVECTION |
uCfl(i,j) = deltaTadvect*( |
|
./pkg/thsice/thsice_advection.F |
341 |
THSICE_ADVECTION |
& MAX( uTrans(i,j), 0. _d 0 )*recip_rA(i-1,j,bi,bj) |
|
./pkg/thsice/thsice_advection.F |
342 |
THSICE_ADVECTION |
& +MAX(-uTrans(i,j), 0. _d 0 )*recip_rA( i ,j,bi,bj) |
|
./pkg/thsice/thsice_advection.F |
348 |
THSICE_ADVECTION |
DO i=2-Olx,sNx+Olx |
|
./pkg/thsice/thsice_advection.F |
349 |
THSICE_ADVECTION |
uCfl(i,j) = deltaTadvect*( |
|
./pkg/thsice/thsice_advection.F |
350 |
THSICE_ADVECTION |
& MAX( uTrans(i,j), 0. _d 0 )/MAX( iceVol(i-1,j), iceEps ) |
|
./pkg/thsice/thsice_advection.F |
351 |
THSICE_ADVECTION |
& +MAX(-uTrans(i,j), 0. _d 0 )/MAX( iceVol( i ,j), iceEps ) |
|
./pkg/thsice/thsice_advection.F |
416 |
THSICE_ADVECTION |
DO i=iMinUpd,iMaxUpd |
|
./pkg/thsice/thsice_advection.F |
417 |
THSICE_ADVECTION |
iceFld(i,j) = iceFld(i,j) |
|
./pkg/thsice/thsice_advection.F |
418 |
THSICE_ADVECTION |
& -deltaTadvect*maskLocC(i,j) |
|
./pkg/thsice/thsice_advection.F |
419 |
THSICE_ADVECTION |
& *recip_rA(i,j,bi,bj) |
|
./pkg/thsice/thsice_advection.F |
420 |
THSICE_ADVECTION |
& *( af(i+1,j)-af(i,j) ) |
|
./pkg/thsice/thsice_advection.F |
425 |
THSICE_ADVECTION |
DO i=iMinUpd,iMaxUpd |
|
./pkg/thsice/thsice_advection.F |
426 |
THSICE_ADVECTION |
tmpVol = iceVol(i,j) |
|
./pkg/thsice/thsice_advection.F |
427 |
THSICE_ADVECTION |
iceVol(i,j) = iceVol(i,j) |
|
./pkg/thsice/thsice_advection.F |
428 |
THSICE_ADVECTION |
& -deltaTadvect*maskLocC(i,j) |
|
./pkg/thsice/thsice_advection.F |
429 |
THSICE_ADVECTION |
& *( uTrans(i+1,j)-uTrans(i,j) ) |
|
./pkg/thsice/thsice_advection.F |
430 |
THSICE_ADVECTION |
IF ( iceVol(i,j).GT.iceEps ) |
|
./pkg/thsice/thsice_advection.F |
431 |
THSICE_ADVECTION |
& iceFld(i,j) = ( iceFld(i,j)*tmpVol |
|
./pkg/thsice/thsice_advection.F |
432 |
THSICE_ADVECTION |
& -deltaTadvect*maskLocC(i,j) |
|
./pkg/thsice/thsice_advection.F |
433 |
THSICE_ADVECTION |
& *( af(i+1,j)-af(i,j) ) |
|
./pkg/thsice/thsice_advection.F |
434 |
THSICE_ADVECTION |
& )/iceVol(i,j) |
|
./pkg/thsice/thsice_advection.F |
440 |
THSICE_ADVECTION |
DO i=1-OLx+1,sNx+OLx |
|
./pkg/thsice/thsice_advection.F |
441 |
THSICE_ADVECTION |
afx(i,j) = af(i,j) |
|
./pkg/thsice/thsice_advection.F |
449 |
THSICE_ADVECTION |
DO i=iMinUpd,iMaxUpd |
|
./pkg/thsice/thsice_advection.F |
450 |
THSICE_ADVECTION |
iceFld(i,j) = iceFld(i,j) |
|
./pkg/thsice/thsice_advection.F |
451 |
THSICE_ADVECTION |
& -deltaTadvect*maskLocC(i,j) |
|
./pkg/thsice/thsice_advection.F |
452 |
THSICE_ADVECTION |
& *recip_rA(i,j,bi,bj) |
|
./pkg/thsice/thsice_advection.F |
453 |
THSICE_ADVECTION |
& *( af(i+1,j)-af(i,j) ) |
|
./pkg/thsice/thsice_advection.F |
458 |
THSICE_ADVECTION |
DO i=iMinUpd,iMaxUpd |
|
./pkg/thsice/thsice_advection.F |
459 |
THSICE_ADVECTION |
tmpVol = iceVol(i,j) |
|
./pkg/thsice/thsice_advection.F |
460 |
THSICE_ADVECTION |
iceVol(i,j) = iceVol(i,j) |
|
./pkg/thsice/thsice_advection.F |
461 |
THSICE_ADVECTION |
& -deltaTadvect*maskLocC(i,j) |
|
./pkg/thsice/thsice_advection.F |
462 |
THSICE_ADVECTION |
& *( uTrans(i+1,j)-uTrans(i,j) ) |
|
./pkg/thsice/thsice_advection.F |
463 |
THSICE_ADVECTION |
IF ( iceVol(i,j).GT.iceEps ) |
|
./pkg/thsice/thsice_advection.F |
464 |
THSICE_ADVECTION |
& iceFld(i,j) = ( iceFld(i,j)*tmpVol |
|
./pkg/thsice/thsice_advection.F |
465 |
THSICE_ADVECTION |
& -deltaTadvect*maskLocC(i,j) |
|
./pkg/thsice/thsice_advection.F |
466 |
THSICE_ADVECTION |
& *( af(i+1,j)-af(i,j) ) |
|
./pkg/thsice/thsice_advection.F |
467 |
THSICE_ADVECTION |
& )/iceVol(i,j) |
|
./pkg/thsice/thsice_advection.F |
473 |
THSICE_ADVECTION |
DO i=1-OLx+1,sNx+OLx |
|
./pkg/thsice/thsice_advection.F |
474 |
THSICE_ADVECTION |
afx(i,j) = af(i,j) |
|
./pkg/thsice/thsice_advection.F |
488 |
THSICE_ADVECTION |
DO i=1-OLx+1,sNx+OLx-1 |
|
./pkg/thsice/thsice_advection.F |
489 |
THSICE_ADVECTION |
iceFld(i,j) = iceFld(i,j) |
|
./pkg/thsice/thsice_advection.F |
490 |
THSICE_ADVECTION |
& -deltaTadvect*maskLocC(i,j) |
|
./pkg/thsice/thsice_advection.F |
491 |
THSICE_ADVECTION |
& *recip_rA(i,j,bi,bj) |
|
./pkg/thsice/thsice_advection.F |
492 |
THSICE_ADVECTION |
& *( af(i+1,j)-af(i,j) ) |
|
./pkg/thsice/thsice_advection.F |
497 |
THSICE_ADVECTION |
DO i=1-OLx+1,sNx+OLx-1 |
|
./pkg/thsice/thsice_advection.F |
498 |
THSICE_ADVECTION |
tmpVol = iceVol(i,j) |
|
./pkg/thsice/thsice_advection.F |
499 |
THSICE_ADVECTION |
iceVol(i,j) = iceVol(i,j) |
|
./pkg/thsice/thsice_advection.F |
500 |
THSICE_ADVECTION |
& -deltaTadvect*maskLocC(i,j) |
|
./pkg/thsice/thsice_advection.F |
501 |
THSICE_ADVECTION |
& *( uTrans(i+1,j)-uTrans(i,j) ) |
|
./pkg/thsice/thsice_advection.F |
502 |
THSICE_ADVECTION |
IF ( iceVol(i,j).GT.iceEps ) |
|
./pkg/thsice/thsice_advection.F |
503 |
THSICE_ADVECTION |
& iceFld(i,j) = ( iceFld(i,j)*tmpVol |
|
./pkg/thsice/thsice_advection.F |
504 |
THSICE_ADVECTION |
& -deltaTadvect*maskLocC(i,j) |
|
./pkg/thsice/thsice_advection.F |
505 |
THSICE_ADVECTION |
& *( af(i+1,j)-af(i,j) ) |
|
./pkg/thsice/thsice_advection.F |
506 |
THSICE_ADVECTION |
& )/iceVol(i,j) |
|
./pkg/thsice/thsice_advection.F |
512 |
THSICE_ADVECTION |
DO i=1-OLx+1,sNx+OLx |
|
./pkg/thsice/thsice_advection.F |
513 |
THSICE_ADVECTION |
afx(i,j) = af(i,j) |
|
./pkg/thsice/thsice_advection.F |
540 |
THSICE_ADVECTION |
DO i=1-OLx,sNx+OLx |
|
./pkg/thsice/thsice_advection.F |
541 |
THSICE_ADVECTION |
af(i,j) = 0. |
|
./pkg/thsice/thsice_advection.F |
559 |
THSICE_ADVECTION |
DO i=1-Olx,sNx+Olx |
|
./pkg/thsice/thsice_advection.F |
560 |
THSICE_ADVECTION |
vCfl(i,j) = deltaTadvect*( |
|
./pkg/thsice/thsice_advection.F |
561 |
THSICE_ADVECTION |
& MAX( vTrans(i,j), 0. _d 0 )*recip_rA(i,j-1,bi,bj) |
|
./pkg/thsice/thsice_advection.F |
562 |
THSICE_ADVECTION |
& +MAX(-vTrans(i,j), 0. _d 0 )*recip_rA(i, j ,bi,bj) |
|
./pkg/thsice/thsice_advection.F |
568 |
THSICE_ADVECTION |
DO i=1-Olx,sNx+Olx |
|
./pkg/thsice/thsice_advection.F |
569 |
THSICE_ADVECTION |
vCfl(i,j) = deltaTadvect*( |
|
./pkg/thsice/thsice_advection.F |
570 |
THSICE_ADVECTION |
& MAX( vTrans(i,j), 0. _d 0 )/MAX( iceVol(i,j-1), iceEps ) |
|
./pkg/thsice/thsice_advection.F |
571 |
THSICE_ADVECTION |
& +MAX(-vTrans(i,j), 0. _d 0 )/MAX( iceVol(i, j ), iceEps ) |
|
./pkg/thsice/thsice_advection.F |
635 |
THSICE_ADVECTION |
DO i=1-OLx,0 |
|
./pkg/thsice/thsice_advection.F |
636 |
THSICE_ADVECTION |
iceFld(i,j) = iceFld(i,j) |
|
./pkg/thsice/thsice_advection.F |
637 |
THSICE_ADVECTION |
& -deltaTadvect*maskLocC(i,j) |
|
./pkg/thsice/thsice_advection.F |
638 |
THSICE_ADVECTION |
& *recip_rA(i,j,bi,bj) |
|
./pkg/thsice/thsice_advection.F |
639 |
THSICE_ADVECTION |
& *( af(i,j+1)-af(i,j) ) |
|
./pkg/thsice/thsice_advection.F |
644 |
THSICE_ADVECTION |
DO i=1-OLx,0 |
|
./pkg/thsice/thsice_advection.F |
645 |
THSICE_ADVECTION |
tmpVol = iceVol(i,j) |
|
./pkg/thsice/thsice_advection.F |
646 |
THSICE_ADVECTION |
iceVol(i,j) = iceVol(i,j) |
|
./pkg/thsice/thsice_advection.F |
647 |
THSICE_ADVECTION |
& -deltaTadvect*maskLocC(i,j) |
|
./pkg/thsice/thsice_advection.F |
648 |
THSICE_ADVECTION |
& *( vTrans(i,j+1)-vTrans(i,j) ) |
|
./pkg/thsice/thsice_advection.F |
649 |
THSICE_ADVECTION |
IF ( iceVol(i,j).GT.iceEps ) |
|
./pkg/thsice/thsice_advection.F |
650 |
THSICE_ADVECTION |
& iceFld(i,j) = ( iceFld(i,j)*tmpVol |
|
./pkg/thsice/thsice_advection.F |
651 |
THSICE_ADVECTION |
& -deltaTadvect*maskLocC(i,j) |
|
./pkg/thsice/thsice_advection.F |
652 |
THSICE_ADVECTION |
& *( af(i,j+1)-af(i,j) ) |
|
./pkg/thsice/thsice_advection.F |
653 |
THSICE_ADVECTION |
& )/iceVol(i,j) |
|
./pkg/thsice/thsice_advection.F |
659 |
THSICE_ADVECTION |
DO i=1-OLx,0 |
|
./pkg/thsice/thsice_advection.F |
660 |
THSICE_ADVECTION |
afy(i,j) = af(i,j) |
|
./pkg/thsice/thsice_advection.F |
668 |
THSICE_ADVECTION |
DO i=sNx+1,sNx+OLx |
|
./pkg/thsice/thsice_advection.F |
669 |
THSICE_ADVECTION |
iceFld(i,j) = iceFld(i,j) |
|
./pkg/thsice/thsice_advection.F |
670 |
THSICE_ADVECTION |
& -deltaTadvect*maskLocC(i,j) |
|
./pkg/thsice/thsice_advection.F |
671 |
THSICE_ADVECTION |
& *recip_rA(i,j,bi,bj) |
|
./pkg/thsice/thsice_advection.F |
672 |
THSICE_ADVECTION |
& *( af(i,j+1)-af(i,j) ) |
|
./pkg/thsice/thsice_advection.F |
677 |
THSICE_ADVECTION |
DO i=sNx+1,sNx+OLx |
|
./pkg/thsice/thsice_advection.F |
678 |
THSICE_ADVECTION |
tmpVol = iceVol(i,j) |
|
./pkg/thsice/thsice_advection.F |
679 |
THSICE_ADVECTION |
iceVol(i,j) = iceVol(i,j) |
|
./pkg/thsice/thsice_advection.F |
680 |
THSICE_ADVECTION |
& -deltaTadvect*maskLocC(i,j) |
|
./pkg/thsice/thsice_advection.F |
681 |
THSICE_ADVECTION |
& *( vTrans(i,j+1)-vTrans(i,j) ) |
|
./pkg/thsice/thsice_advection.F |
682 |
THSICE_ADVECTION |
IF ( iceVol(i,j).GT.iceEps ) |
|
./pkg/thsice/thsice_advection.F |
683 |
THSICE_ADVECTION |
& iceFld(i,j) = ( iceFld(i,j)*tmpVol |
|
./pkg/thsice/thsice_advection.F |
684 |
THSICE_ADVECTION |
& -deltaTadvect*maskLocC(i,j) |
|
./pkg/thsice/thsice_advection.F |
685 |
THSICE_ADVECTION |
& *( af(i,j+1)-af(i,j) ) |
|
./pkg/thsice/thsice_advection.F |
686 |
THSICE_ADVECTION |
& )/iceVol(i,j) |
|
./pkg/thsice/thsice_advection.F |
692 |
THSICE_ADVECTION |
DO i=sNx+1,sNx+OLx |
|
./pkg/thsice/thsice_advection.F |
693 |
THSICE_ADVECTION |
afy(i,j) = af(i,j) |
|
./pkg/thsice/thsice_advection.F |
707 |
THSICE_ADVECTION |
DO i=iMinUpd,iMaxUpd |
|
./pkg/thsice/thsice_advection.F |
708 |
THSICE_ADVECTION |
iceFld(i,j) = iceFld(i,j) |
|
./pkg/thsice/thsice_advection.F |
709 |
THSICE_ADVECTION |
& -deltaTadvect*maskLocC(i,j) |
|
./pkg/thsice/thsice_advection.F |
710 |
THSICE_ADVECTION |
& *recip_rA(i,j,bi,bj) |
|
./pkg/thsice/thsice_advection.F |
711 |
THSICE_ADVECTION |
& *( af(i,j+1)-af(i,j) ) |
|
./pkg/thsice/thsice_advection.F |
716 |
THSICE_ADVECTION |
DO i=iMinUpd,iMaxUpd |
|
./pkg/thsice/thsice_advection.F |
717 |
THSICE_ADVECTION |
tmpVol = iceVol(i,j) |
|
./pkg/thsice/thsice_advection.F |
718 |
THSICE_ADVECTION |
iceVol(i,j) = iceVol(i,j) |
|
./pkg/thsice/thsice_advection.F |
719 |
THSICE_ADVECTION |
& -deltaTadvect*maskLocC(i,j) |
|
./pkg/thsice/thsice_advection.F |
720 |
THSICE_ADVECTION |
& *( vTrans(i,j+1)-vTrans(i,j) ) |
|
./pkg/thsice/thsice_advection.F |
721 |
THSICE_ADVECTION |
IF ( iceVol(i,j).GT.iceEps ) |
|
./pkg/thsice/thsice_advection.F |
722 |
THSICE_ADVECTION |
& iceFld(i,j) = ( iceFld(i,j)*tmpVol |
|
./pkg/thsice/thsice_advection.F |
723 |
THSICE_ADVECTION |
& -deltaTadvect*maskLocC(i,j) |
|
./pkg/thsice/thsice_advection.F |
724 |
THSICE_ADVECTION |
& *( af(i,j+1)-af(i,j) ) |
|
./pkg/thsice/thsice_advection.F |
725 |
THSICE_ADVECTION |
& )/iceVol(i,j) |
|
./pkg/thsice/thsice_advection.F |
731 |
THSICE_ADVECTION |
DO i=iMinUpd,iMaxUpd |
|
./pkg/thsice/thsice_advection.F |
732 |
THSICE_ADVECTION |
afy(i,j) = af(i,j) |
|
./pkg/thsice/thsice_advection.F |
749 |
THSICE_ADVECTION |
DO i=1-OLx,sNx+OLx |
|
./pkg/thsice/thsice_advection.F |
750 |
THSICE_ADVECTION |
IF ( i.EQ.idb .AND. j.EQ.jdb .AND. bi.EQ.biDb ) THEN |
|
./pkg/thsice/thsice_advection.F |
751 |
THSICE_ADVECTION |
tmpFac= deltaTadvect*recip_rA(i,j,bi,bj) |
|
./pkg/thsice/thsice_advection.F |
753 |
THSICE_ADVECTION |
& afx(i,j)*tmpFac,afx(i+1,j)*tmpFac, |
|
./pkg/thsice/thsice_advection.F |
754 |
THSICE_ADVECTION |
& afy(i,j)*tmpFac,afy(i,j+1)*tmpFac |
|
./pkg/thsice/thsice_albedo.F |
104 |
THSICE_ALBEDO |
DO i = iMin, iMax |
|
./pkg/thsice/thsice_albedo.F |
105 |
THSICE_ALBEDO |
IF ( iceMask(i,j).GT.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_albedo.F |
106 |
THSICE_ALBEDO |
hi = hIce(i,j) |
|
./pkg/thsice/thsice_albedo.F |
107 |
THSICE_ALBEDO |
hs = hSnow(i,j) |
|
./pkg/thsice/thsice_albedo.F |
108 |
THSICE_ALBEDO |
Tsf = tSrf(i,j) |
|
./pkg/thsice/thsice_albedo.F |
109 |
THSICE_ALBEDO |
age = ageSnw(i,j) |
|
./pkg/thsice/thsice_albedo.F |
149 |
THSICE_ALBEDO |
sAlbNIR(i,j) = albNIR_ice * ( 1. _d 0 - hs/(hs + 0.02 _d 0) ) |
|
./pkg/thsice/thsice_albedo.F |
154 |
THSICE_ALBEDO |
sAlbNIR(i,j) = albedo |
|
./pkg/thsice/thsice_albedo.F |
160 |
THSICE_ALBEDO |
ii=i |
|
./pkg/thsice/thsice_albedo.F |
164 |
THSICE_ALBEDO |
sAlb(i,j) = albedo |
|
./pkg/thsice/thsice_albedo.F |
166 |
THSICE_ALBEDO |
sAlb(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_albedo.F |
167 |
THSICE_ALBEDO |
sAlbNIR(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_albedo.F |
87 |
THSICE_ALBEDO |
INTEGER i,j |
|
./pkg/thsice/thsice_balance_frw.F |
100 |
THSICE_BALANCE_FRW |
DO i = iMin,iMax |
|
./pkg/thsice/thsice_balance_frw.F |
101 |
THSICE_BALANCE_FRW |
icFrwAtm(i,j,bi,bj) = icFrwAtm(i,j,bi,bj) |
|
./pkg/thsice/thsice_balance_frw.F |
102 |
THSICE_BALANCE_FRW |
& - sumFrW*maskInC(i,j,bi,bj) |
|
./pkg/thsice/thsice_balance_frw.F |
103 |
THSICE_BALANCE_FRW |
EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj) |
|
./pkg/thsice/thsice_balance_frw.F |
104 |
THSICE_BALANCE_FRW |
& - sumFrW*maskInC(i,j,bi,bj) |
|
./pkg/thsice/thsice_balance_frw.F |
124 |
THSICE_BALANCE_FRW |
DO i = iMin,iMax |
|
./pkg/thsice/thsice_balance_frw.F |
125 |
THSICE_BALANCE_FRW |
tmpVar = tmpFac*MAX( prcAtm(i,j,bi,bj), zeroRL ) |
|
./pkg/thsice/thsice_balance_frw.F |
126 |
THSICE_BALANCE_FRW |
& *maskInC(i,j,bi,bj) |
|
./pkg/thsice/thsice_balance_frw.F |
127 |
THSICE_BALANCE_FRW |
icFrwAtm(i,j,bi,bj) = icFrwAtm(i,j,bi,bj) - tmpVar |
|
./pkg/thsice/thsice_balance_frw.F |
128 |
THSICE_BALANCE_FRW |
EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj) - tmpVar |
|
./pkg/thsice/thsice_balance_frw.F |
53 |
THSICE_BALANCE_FRW |
INTEGER i, j |
|
./pkg/thsice/thsice_balance_frw.F |
67 |
THSICE_BALANCE_FRW |
DO i = 1,sNx |
|
./pkg/thsice/thsice_balance_frw.F |
69 |
THSICE_BALANCE_FRW |
& + MAX( prcAtm(i,j,bi,bj), zeroRL ) |
|
./pkg/thsice/thsice_balance_frw.F |
70 |
THSICE_BALANCE_FRW |
& *rA(i,j,bi,bj)*maskInC(i,j,bi,bj) |
|
./pkg/thsice/thsice_balance_frw.F |
72 |
THSICE_BALANCE_FRW |
& + icFrwAtm(i,j,bi,bj) |
|
./pkg/thsice/thsice_balance_frw.F |
73 |
THSICE_BALANCE_FRW |
& *rA(i,j,bi,bj)*maskInC(i,j,bi,bj) |
|
./pkg/thsice/thsice_calc_thickn.F |
1002 |
THSICE_CALC_THICKN |
flx2oc(i,j) = flx2oc(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
1003 |
THSICE_CALC_THICKN |
& + (Fbot(i,j)+(esurp(i,j)+etop(i,j)+ebot(i,j))/dt) |
|
./pkg/thsice/thsice_calc_thickn.F |
1005 |
THSICE_CALC_THICKN |
IF (dBug(i,j,bi,bj) ) WRITE(6,1020) |
|
./pkg/thsice/thsice_calc_thickn.F |
1007 |
THSICE_CALC_THICKN |
& esurp(i,j)/dt,etop(i,j)/dt,ebot(i,j)/dt |
|
./pkg/thsice/thsice_calc_thickn.F |
1011 |
THSICE_CALC_THICKN |
frw2oc(i,j) = frw2oc(i,j) - evapLoc(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
1015 |
THSICE_CALC_THICKN |
flx2oc(i,j) = flx2oc(i,j) + evapLoc(i,j)*Lfresh |
|
./pkg/thsice/thsice_calc_thickn.F |
1027 |
THSICE_CALC_THICKN |
fsalt(i,j) = (msalt0(i,j) - rhoi*hIce(i,j)*saltIce)/dt |
|
./pkg/thsice/thsice_calc_thickn.F |
1030 |
THSICE_CALC_THICKN |
IF (dBug(i,j,bi,bj) ) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
1032 |
THSICE_CALC_THICKN |
& (mwater0(i,j)-(rhos*hSnow1(i,j)+rhoi*hIce(i,j)))/dt, |
|
./pkg/thsice/thsice_calc_thickn.F |
1033 |
THSICE_CALC_THICKN |
& evapLoc(i,j),frw2oc(i,j),fsalt(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
1035 |
THSICE_CALC_THICKN |
& flx2oc(I,J),Fbot(i,j),(etope(i,j)+ebote(i,j))/dt |
|
./pkg/thsice/thsice_calc_thickn.F |
1040 |
THSICE_CALC_THICKN |
frw2oc(i,j) = frw2oc(i,j) + (prcAtm(i,j)-snowP(i,j)) |
|
./pkg/thsice/thsice_calc_thickn.F |
1057 |
THSICE_CALC_THICKN |
DO i = iMin, iMax |
|
./pkg/thsice/thsice_calc_thickn.F |
1058 |
THSICE_CALC_THICKN |
IF (iceMask(i,j).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
1063 |
THSICE_CALC_THICKN |
extend=etope(i,j)+ebote(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
1064 |
THSICE_CALC_THICKN |
IF (icFrac(i,j).GT.0. _d 0.AND.extend.GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
1065 |
THSICE_CALC_THICKN |
rq = rhoi * 0.5 _d 0*(qicen(i,j,1)+qicen(i,j,2)) |
|
./pkg/thsice/thsice_calc_thickn.F |
1067 |
THSICE_CALC_THICKN |
rqh = rq * hIce(i,j) + rs * hSnow1(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
1068 |
THSICE_CALC_THICKN |
freshe=(rhos*hSnow1(i,j)+rhoi*hIce(i,j))/dt |
|
./pkg/thsice/thsice_calc_thickn.F |
1069 |
THSICE_CALC_THICKN |
salte=(rhoi*hIce(i,j)*saltIce)/dt |
|
./pkg/thsice/thsice_calc_thickn.F |
1071 |
THSICE_CALC_THICKN |
icFrac(i,j)=(1. _d 0-extend/rqh)*icFrac(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
1073 |
THSICE_CALC_THICKN |
IF ( extend.LT.rqh .AND. icFrac(i,j).GE.iceMaskMin ) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
1074 |
THSICE_CALC_THICKN |
frw2oc(i,j)=frw2oc(i,j)+extend/rqh*freshe |
|
./pkg/thsice/thsice_calc_thickn.F |
1075 |
THSICE_CALC_THICKN |
fsalt(i,j)=fsalt(i,j)+extend/rqh*salte |
|
./pkg/thsice/thsice_calc_thickn.F |
1077 |
THSICE_CALC_THICKN |
icFrac(i,j)=0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
1078 |
THSICE_CALC_THICKN |
hIce(i,j) =0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
1079 |
THSICE_CALC_THICKN |
hSnow1(i,j) =0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
1080 |
THSICE_CALC_THICKN |
flx2oc(i,j)=flx2oc(i,j)+(extend-rqh)/dt |
|
./pkg/thsice/thsice_calc_thickn.F |
1081 |
THSICE_CALC_THICKN |
frw2oc(i,j)=frw2oc(i,j)+freshe |
|
./pkg/thsice/thsice_calc_thickn.F |
1082 |
THSICE_CALC_THICKN |
fsalt(i,j)=fsalt(i,j)+salte |
|
./pkg/thsice/thsice_calc_thickn.F |
1085 |
THSICE_CALC_THICKN |
flx2oc(i,j)=flx2oc(i,j)+extend/dt |
|
./pkg/thsice/thsice_calc_thickn.F |
1093 |
THSICE_CALC_THICKN |
DO i = iMin, iMax |
|
./pkg/thsice/thsice_calc_thickn.F |
1094 |
THSICE_CALC_THICKN |
IF (iceMask(i,j).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
1100 |
THSICE_CALC_THICKN |
frwAtm(i,j) = frwAtm(i,j) - prcAtm(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
1104 |
THSICE_CALC_THICKN |
fzMlOc(i,j) = fzMlOc(i,j) - Fbot(i,j)*iceMask(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
1107 |
THSICE_CALC_THICKN |
qIc1(i,j) = qicen(i,j,1) |
|
./pkg/thsice/thsice_calc_thickn.F |
1108 |
THSICE_CALC_THICKN |
qIc2(i,j) = qicen(i,j,2) |
|
./pkg/thsice/thsice_calc_thickn.F |
1110 |
THSICE_CALC_THICKN |
IF (dBug(i,j,bi,bj) ) WRITE(6,1020) |
|
./pkg/thsice/thsice_calc_thickn.F |
1112 |
THSICE_CALC_THICKN |
& icFrac(i,j), flx2oc(i,j), fsalt(i,j), frw2oc(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
1122 |
THSICE_CALC_THICKN |
DO i = iMin, iMax |
|
./pkg/thsice/thsice_calc_thickn.F |
1123 |
THSICE_CALC_THICKN |
IF (iceMask(i,j).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
1124 |
THSICE_CALC_THICKN |
qaux(1)=qIc1(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
1125 |
THSICE_CALC_THICKN |
qaux(2)=qIc2(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
1126 |
THSICE_CALC_THICKN |
CALL THSICE_CHECK_CONSERV( dBugFlag, i, j, bi, bj, 0, |
|
./pkg/thsice/thsice_calc_thickn.F |
1127 |
THSICE_CALC_THICKN |
I iceMask(i,j), icFrac(i,j), hIce(i,j), hSnow1(i,j), |
|
./pkg/thsice/thsice_calc_thickn.F |
1129 |
THSICE_CALC_THICKN |
I flx2oc(i,j), frw2oc(i,j), fsalt, |
|
./pkg/thsice/thsice_calc_thickn.F |
173 |
THSICE_CALC_THICKN |
INTEGER i,j,k |
|
./pkg/thsice/thsice_calc_thickn.F |
274 |
THSICE_CALC_THICKN |
DO i=1-OLx,sNx+OLx |
|
./pkg/thsice/thsice_calc_thickn.F |
275 |
THSICE_CALC_THICKN |
evapLoc(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
276 |
THSICE_CALC_THICKN |
Fbot (i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
277 |
THSICE_CALC_THICKN |
etop (i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
278 |
THSICE_CALC_THICKN |
ebot (i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
279 |
THSICE_CALC_THICKN |
etope (i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
280 |
THSICE_CALC_THICKN |
ebote (i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
281 |
THSICE_CALC_THICKN |
esurp (i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
282 |
THSICE_CALC_THICKN |
mwater0(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
283 |
THSICE_CALC_THICKN |
msalt0 (i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
285 |
THSICE_CALC_THICKN |
enFrcMlt(i,j)= 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
286 |
THSICE_CALC_THICKN |
enFrcFrz(i,j)= 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
292 |
THSICE_CALC_THICKN |
DO i=1-OLx,sNx+OLx |
|
./pkg/thsice/thsice_calc_thickn.F |
293 |
THSICE_CALC_THICKN |
qicen(i,j,k) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
294 |
THSICE_CALC_THICKN |
hnew (i,j,k) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
300 |
THSICE_CALC_THICKN |
DO i = iMin, iMax |
|
./pkg/thsice/thsice_calc_thickn.F |
319 |
THSICE_CALC_THICKN |
IF (iceMask(i,j).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
320 |
THSICE_CALC_THICKN |
qicen(i,j,1)= qIc1(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
321 |
THSICE_CALC_THICKN |
qicen(i,j,2)= qIc2(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
324 |
THSICE_CALC_THICKN |
esurp(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
327 |
THSICE_CALC_THICKN |
evapLoc(i,j) = frwAtm(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
334 |
THSICE_CALC_THICKN |
xxMlt = aMlt*(hIce(i,j)-hMlt) |
|
./pkg/thsice/thsice_calc_thickn.F |
335 |
THSICE_CALC_THICKN |
xxFrz = aFrz*(hIce(i,j)-hFrz) |
|
./pkg/thsice/thsice_calc_thickn.F |
355 |
THSICE_CALC_THICKN |
enFrcMlt(i,j) = MAX( 0. _d 0, MIN( xxMlt, 1. _d 0 ) ) |
|
./pkg/thsice/thsice_calc_thickn.F |
356 |
THSICE_CALC_THICKN |
enFrcFrz(i,j) = MAX( 0. _d 0, MIN( xxFrz, 1. _d 0 ) ) |
|
./pkg/thsice/thsice_calc_thickn.F |
359 |
THSICE_CALC_THICKN |
IF (fzMlOc(i,j).GE. 0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
363 |
THSICE_CALC_THICKN |
Fbot(i,j) = fzMlOc(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
364 |
THSICE_CALC_THICKN |
IF ( icFrac(i,j).LT.iceMaskMax ) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
366 |
THSICE_CALC_THICKN |
Fbot(i,j) = enFrcFrz(i,j)*fzMlOc(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
368 |
THSICE_CALC_THICKN |
IF (hIce(i,j).GT.hThickIce) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
370 |
THSICE_CALC_THICKN |
Fbot(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
371 |
THSICE_CALC_THICKN |
ELSEIF (hIce(i,j).GE.hThinIce) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
373 |
THSICE_CALC_THICKN |
Fbot(i,j) = (1. _d 0 - fracEnFreez)*fzMlOc(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
384 |
THSICE_CALC_THICKN |
IF (v2oc(i,j) .NE. 0.) |
|
./pkg/thsice/thsice_calc_thickn.F |
385 |
THSICE_CALC_THICKN |
& ustar = SQRT(0.00536 _d 0*v2oc(i,j)) |
|
./pkg/thsice/thsice_calc_thickn.F |
388 |
THSICE_CALC_THICKN |
Fbot(i,j) = cpchr*(tFrz(i,j)-tOce(i,j))*ustar |
|
./pkg/thsice/thsice_calc_thickn.F |
390 |
THSICE_CALC_THICKN |
Fbot(i,j) = max(Fbot(i,j),fzMlOc(i,j)) |
|
./pkg/thsice/thsice_calc_thickn.F |
391 |
THSICE_CALC_THICKN |
Fbot(i,j) = min(Fbot(i,j),0. _d 0) |
|
./pkg/thsice/thsice_calc_thickn.F |
395 |
THSICE_CALC_THICKN |
mwater0(i,j) = rhos*hSnow1(i,j) + rhoi*hIce(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
396 |
THSICE_CALC_THICKN |
msalt0 (i,j) = rhoi*hIce(i,j)*saltIce |
|
./pkg/thsice/thsice_calc_thickn.F |
399 |
THSICE_CALC_THICKN |
IF (dBug(i,j,bi,bj) ) WRITE(6,1020) |
|
./pkg/thsice/thsice_calc_thickn.F |
401 |
THSICE_CALC_THICKN |
& frwAtm(i,j),fzMlOc(i,j),Fbot(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
410 |
THSICE_CALC_THICKN |
DO i = iMin, iMax |
|
./pkg/thsice/thsice_calc_thickn.F |
411 |
THSICE_CALC_THICKN |
IF (iceMask(i,j).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
419 |
THSICE_CALC_THICKN |
frace = (icFrac(i,j) - lowIcFrac1)/(lowIcFrac2-iceMaskMin) |
|
./pkg/thsice/thsice_calc_thickn.F |
420 |
THSICE_CALC_THICKN |
frace = MIN( enFrcMlt(i,j), MAX( 0. _d 0, frace ) ) |
|
./pkg/thsice/thsice_calc_thickn.F |
423 |
THSICE_CALC_THICKN |
IF ( hIce(i,j).GT.hThickIce .OR. fracEnMelt.EQ.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
426 |
THSICE_CALC_THICKN |
ELSEIF (hIce(i,j).LT.hThinIce) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
435 |
THSICE_CALC_THICKN |
IF ( icFrac(i,j).LE.lowIcFrac1 ) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
437 |
THSICE_CALC_THICKN |
ELSEIF (icFrac(i,j).LE.lowIcFrac2 ) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
443 |
THSICE_CALC_THICKN |
IF ( sHeat(i,j).GT.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
444 |
THSICE_CALC_THICKN |
etop(i,j) = (1. _d 0-frace)*sHeat(i,j) * dt |
|
./pkg/thsice/thsice_calc_thickn.F |
445 |
THSICE_CALC_THICKN |
etope(i,j) = frace*sHeat(i,j) * dt |
|
./pkg/thsice/thsice_calc_thickn.F |
447 |
THSICE_CALC_THICKN |
etop(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
448 |
THSICE_CALC_THICKN |
etope(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
450 |
THSICE_CALC_THICKN |
esurp(i,j) = sHeat(i,j) * dt |
|
./pkg/thsice/thsice_calc_thickn.F |
463 |
THSICE_CALC_THICKN |
ebot(i,j) = (flxCnB(i,j)-Fbot(i,j)) * dt |
|
./pkg/thsice/thsice_calc_thickn.F |
464 |
THSICE_CALC_THICKN |
IF (ebot(i,j).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
465 |
THSICE_CALC_THICKN |
ebote(i,j) = frace*ebot(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
466 |
THSICE_CALC_THICKN |
ebot(i,j) = ebot(i,j)-ebote(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
468 |
THSICE_CALC_THICKN |
ebote(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
471 |
THSICE_CALC_THICKN |
IF (dBug(i,j,bi,bj) ) WRITE(6,1020) |
|
./pkg/thsice/thsice_calc_thickn.F |
473 |
THSICE_CALC_THICKN |
& etop(i,j),etope(i,j),ebot(i,j),ebote(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
485 |
THSICE_CALC_THICKN |
DO i = iMin, iMax |
|
./pkg/thsice/thsice_calc_thickn.F |
486 |
THSICE_CALC_THICKN |
hnew(i,j,k) = hIce(i,j) * rec_nlyr |
|
./pkg/thsice/thsice_calc_thickn.F |
492 |
THSICE_CALC_THICKN |
DO i = iMin, iMax |
|
./pkg/thsice/thsice_calc_thickn.F |
496 |
THSICE_CALC_THICKN |
IF (iceMask(i,j) .GT. 0. _d 0 .AND. |
|
./pkg/thsice/thsice_calc_thickn.F |
497 |
THSICE_CALC_THICKN |
& etop(i,j) .GT. 0. _d 0 .AND. |
|
./pkg/thsice/thsice_calc_thickn.F |
498 |
THSICE_CALC_THICKN |
& hSnow1(i,j) .GT. 0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
505 |
THSICE_CALC_THICKN |
rqh = rq * hSnow1(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
506 |
THSICE_CALC_THICKN |
IF (etop(i,j) .LT. rqh) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
507 |
THSICE_CALC_THICKN |
hSnow1(i,j) = hSnow1(i,j) - etop(i,j)/rq |
|
./pkg/thsice/thsice_calc_thickn.F |
508 |
THSICE_CALC_THICKN |
etop(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
510 |
THSICE_CALC_THICKN |
etop(i,j) = etop(i,j) - rqh |
|
./pkg/thsice/thsice_calc_thickn.F |
511 |
THSICE_CALC_THICKN |
hSnow1(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
521 |
THSICE_CALC_THICKN |
DO i = iMin, iMax |
|
./pkg/thsice/thsice_calc_thickn.F |
522 |
THSICE_CALC_THICKN |
IF (iceMask(i,j).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
536 |
THSICE_CALC_THICKN |
IF (etop(i,j) .GT. 0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
537 |
THSICE_CALC_THICKN |
rq = rhoi * qicen(i,j,k) |
|
./pkg/thsice/thsice_calc_thickn.F |
538 |
THSICE_CALC_THICKN |
rqh = rq * hnew(i,j,k) |
|
./pkg/thsice/thsice_calc_thickn.F |
539 |
THSICE_CALC_THICKN |
IF (etop(i,j) .LT. rqh) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
540 |
THSICE_CALC_THICKN |
hnew(i,j,k) = hnew(i,j,k) - etop(i,j) / rq |
|
./pkg/thsice/thsice_calc_thickn.F |
541 |
THSICE_CALC_THICKN |
etop(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
543 |
THSICE_CALC_THICKN |
etop(i,j) = etop(i,j) - rqh |
|
./pkg/thsice/thsice_calc_thickn.F |
544 |
THSICE_CALC_THICKN |
hnew(i,j,k) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
547 |
THSICE_CALC_THICKN |
etop(i,j)=0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
566 |
THSICE_CALC_THICKN |
DO i = iMin, iMax |
|
./pkg/thsice/thsice_calc_thickn.F |
567 |
THSICE_CALC_THICKN |
IF (iceMask(i,j).GT.0. _d 0 .AND. ebot(i,j) .LT. 0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
569 |
THSICE_CALC_THICKN |
qbot = -cpIce *tFrz(i,j) + Lfresh |
|
./pkg/thsice/thsice_calc_thickn.F |
570 |
THSICE_CALC_THICKN |
dhi = -ebot(i,j) / (qbot * rhoi) |
|
./pkg/thsice/thsice_calc_thickn.F |
571 |
THSICE_CALC_THICKN |
ebot(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
577 |
THSICE_CALC_THICKN |
qicen(i,j,nlyr) = |
|
./pkg/thsice/thsice_calc_thickn.F |
578 |
THSICE_CALC_THICKN |
& (hnew(i,j,nlyr)*qicen(i,j,nlyr)+dhi*qbot) / |
|
./pkg/thsice/thsice_calc_thickn.F |
579 |
THSICE_CALC_THICKN |
& (hnew(i,j,nlyr)+dhi) |
|
./pkg/thsice/thsice_calc_thickn.F |
580 |
THSICE_CALC_THICKN |
hnew(i,j,nlyr) = hnew(i,j,nlyr) + dhi |
|
./pkg/thsice/thsice_calc_thickn.F |
581 |
THSICE_CALC_THICKN |
frzSeaWat(i,j) = rhoi*dhi/dt |
|
./pkg/thsice/thsice_calc_thickn.F |
613 |
THSICE_CALC_THICKN |
DO i = iMin, iMax |
|
./pkg/thsice/thsice_calc_thickn.F |
614 |
THSICE_CALC_THICKN |
IF (iceMask(i,j) .GT. 0. _d 0 .AND. |
|
./pkg/thsice/thsice_calc_thickn.F |
615 |
THSICE_CALC_THICKN |
& ebot(i,j) .GT. 0. _d 0 .AND. |
|
./pkg/thsice/thsice_calc_thickn.F |
616 |
THSICE_CALC_THICKN |
& hnew(i,j,k) .GT. 0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
617 |
THSICE_CALC_THICKN |
rq = rhoi * qicen(i,j,k) |
|
./pkg/thsice/thsice_calc_thickn.F |
618 |
THSICE_CALC_THICKN |
rqh = rq * hnew(i,j,k) |
|
./pkg/thsice/thsice_calc_thickn.F |
619 |
THSICE_CALC_THICKN |
IF (ebot(i,j) .LT. rqh) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
620 |
THSICE_CALC_THICKN |
hnew(i,j,k) = hnew(i,j,k) - ebot(i,j) / rq |
|
./pkg/thsice/thsice_calc_thickn.F |
621 |
THSICE_CALC_THICKN |
ebot(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
623 |
THSICE_CALC_THICKN |
ebot(i,j) = ebot(i,j) - rqh |
|
./pkg/thsice/thsice_calc_thickn.F |
624 |
THSICE_CALC_THICKN |
hnew(i,j,k) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
636 |
THSICE_CALC_THICKN |
DO i = iMin, iMax |
|
./pkg/thsice/thsice_calc_thickn.F |
637 |
THSICE_CALC_THICKN |
IF (iceMask(i,j) .GT. 0. _d 0 .AND. |
|
./pkg/thsice/thsice_calc_thickn.F |
638 |
THSICE_CALC_THICKN |
& ebot(i,j) .GT. 0. _d 0 .AND. |
|
./pkg/thsice/thsice_calc_thickn.F |
639 |
THSICE_CALC_THICKN |
& hSnow1(i,j) .GT. 0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
641 |
THSICE_CALC_THICKN |
rqh = rq * hSnow1(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
642 |
THSICE_CALC_THICKN |
IF (ebot(i,j) .LT. rqh) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
643 |
THSICE_CALC_THICKN |
hSnow1(i,j) = hSnow1(i,j) - ebot(i,j) / rq |
|
./pkg/thsice/thsice_calc_thickn.F |
644 |
THSICE_CALC_THICKN |
ebot(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
646 |
THSICE_CALC_THICKN |
ebot(i,j) = ebot(i,j) - rqh |
|
./pkg/thsice/thsice_calc_thickn.F |
647 |
THSICE_CALC_THICKN |
hSnow1(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
661 |
THSICE_CALC_THICKN |
DO i = iMin, iMax |
|
./pkg/thsice/thsice_calc_thickn.F |
662 |
THSICE_CALC_THICKN |
IF (iceMask(i,j).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
664 |
THSICE_CALC_THICKN |
hIce(i,j) = hnew(i,j,1) + hnew(i,j,2) |
|
./pkg/thsice/thsice_calc_thickn.F |
666 |
THSICE_CALC_THICKN |
IF (dBug(i,j,bi,bj) ) WRITE(6,1020) |
|
./pkg/thsice/thsice_calc_thickn.F |
668 |
THSICE_CALC_THICKN |
& etop(i,j), ebot(i,j), hIce(i,j), hSnow1(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
672 |
THSICE_CALC_THICKN |
IF ( hIce(i,j).LT.hIceMin |
|
./pkg/thsice/thsice_calc_thickn.F |
673 |
THSICE_CALC_THICKN |
& .AND. (hIce(i,j)+hSnow1(i,j)).GT.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
674 |
THSICE_CALC_THICKN |
esurp(i,j) = esurp(i,j) - rhos*qsnow*hSnow1(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
675 |
THSICE_CALC_THICKN |
& - rhoi*qicen(i,j,1)*hnew(i,j,1) |
|
./pkg/thsice/thsice_calc_thickn.F |
676 |
THSICE_CALC_THICKN |
& - rhoi*qicen(i,j,2)*hnew(i,j,2) |
|
./pkg/thsice/thsice_calc_thickn.F |
677 |
THSICE_CALC_THICKN |
hIce(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
678 |
THSICE_CALC_THICKN |
hSnow1(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
679 |
THSICE_CALC_THICKN |
tSrf(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
680 |
THSICE_CALC_THICKN |
icFrac(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
681 |
THSICE_CALC_THICKN |
qicen(i,j,1) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
682 |
THSICE_CALC_THICKN |
qicen(i,j,2) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
684 |
THSICE_CALC_THICKN |
IF (dBug(i,j,bi,bj) ) WRITE(6,1020) |
|
./pkg/thsice/thsice_calc_thickn.F |
685 |
THSICE_CALC_THICKN |
& 'ThSI_CALC_TH: -1 : esurp=',esurp(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
696 |
THSICE_CALC_THICKN |
DO i = iMin, iMax |
|
./pkg/thsice/thsice_calc_thickn.F |
697 |
THSICE_CALC_THICKN |
IF (iceMask(i,j).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
701 |
THSICE_CALC_THICKN |
frw2oc(i,j) = (mwater0(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
702 |
THSICE_CALC_THICKN |
& - (rhos*hSnow1(i,j)+rhoi*hIce(i,j)))/dt |
|
./pkg/thsice/thsice_calc_thickn.F |
704 |
THSICE_CALC_THICKN |
IF ( hIce(i,j) .LE. 0. _d 0 ) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
706 |
THSICE_CALC_THICKN |
frw2oc(i,j) = frw2oc(i,j) + snowP(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
707 |
THSICE_CALC_THICKN |
flx2oc(i,j) = flx2oc(i,j) - snowP(i,j)*Lfresh |
|
./pkg/thsice/thsice_calc_thickn.F |
717 |
THSICE_CALC_THICKN |
DO i = iMin, iMax |
|
./pkg/thsice/thsice_calc_thickn.F |
718 |
THSICE_CALC_THICKN |
IF (iceMask(i,j).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
720 |
THSICE_CALC_THICKN |
IF ( hIce(i,j) .GT. 0. _d 0 ) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
722 |
THSICE_CALC_THICKN |
hSnow1(i,j) = hSnow1(i,j) + dt*snowP(i,j)/rhos |
|
./pkg/thsice/thsice_calc_thickn.F |
729 |
THSICE_CALC_THICKN |
IF (hSnow1(i,j).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
730 |
THSICE_CALC_THICKN |
IF (evapLoc(i,j)/rhos *dt.GT.hSnow1(i,j)) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
731 |
THSICE_CALC_THICKN |
evapLoc(i,j)=evapLoc(i,j)-hSnow1(i,j)*rhos/dt |
|
./pkg/thsice/thsice_calc_thickn.F |
732 |
THSICE_CALC_THICKN |
hSnow1(i,j)=0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
734 |
THSICE_CALC_THICKN |
hSnow1(i,j) = hSnow1(i,j) - evapLoc(i,j)/rhos *dt |
|
./pkg/thsice/thsice_calc_thickn.F |
735 |
THSICE_CALC_THICKN |
evapLoc(i,j)=0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
757 |
THSICE_CALC_THICKN |
DO i = iMin, iMax |
|
./pkg/thsice/thsice_calc_thickn.F |
758 |
THSICE_CALC_THICKN |
IF (iceMask(i,j).GT.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
766 |
THSICE_CALC_THICKN |
IF (hIce(i,j).GT.0. _d 0.AND.evapLoc(i,j).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
793 |
THSICE_CALC_THICKN |
dhi = evapLoc(i,j)/rhoi*dt |
|
./pkg/thsice/thsice_calc_thickn.F |
794 |
THSICE_CALC_THICKN |
IF (dhi.GE.hnew(i,j,k)) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
795 |
THSICE_CALC_THICKN |
evapLoc(i,j)=evapLoc(i,j)-hnew(i,j,k)*rhoi/dt |
|
./pkg/thsice/thsice_calc_thickn.F |
796 |
THSICE_CALC_THICKN |
esurp(i,j) = esurp(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
797 |
THSICE_CALC_THICKN |
& - hnew(i,j,k)*rhoi*(qicen(i,j,k)-Lfresh) |
|
./pkg/thsice/thsice_calc_thickn.F |
798 |
THSICE_CALC_THICKN |
hnew(i,j,k)=0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
803 |
THSICE_CALC_THICKN |
hq = hnew(i,j,k)*qicen(i,j,k)-dhi*Lfresh |
|
./pkg/thsice/thsice_calc_thickn.F |
804 |
THSICE_CALC_THICKN |
hnew(i,j,k) = hnew(i,j,k) - dhi |
|
./pkg/thsice/thsice_calc_thickn.F |
805 |
THSICE_CALC_THICKN |
qicen(i,j,k)=hq/hnew(i,j,k) |
|
./pkg/thsice/thsice_calc_thickn.F |
806 |
THSICE_CALC_THICKN |
evapLoc(i,j)=0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
834 |
THSICE_CALC_THICKN |
DO i = iMin, iMax |
|
./pkg/thsice/thsice_calc_thickn.F |
835 |
THSICE_CALC_THICKN |
IF (iceMask(i,j).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
836 |
THSICE_CALC_THICKN |
IF (hIce(i,j) .GT. 0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
838 |
THSICE_CALC_THICKN |
hIce(i,j) = hnew(i,j,1) + hnew(i,j,2) |
|
./pkg/thsice/thsice_calc_thickn.F |
840 |
THSICE_CALC_THICKN |
IF ( hIce(i,j).GT.0. _d 0 .AND. hIce(i,j).LT.hIceMin ) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
841 |
THSICE_CALC_THICKN |
frw2oc(i,j) = frw2oc(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
842 |
THSICE_CALC_THICKN |
& + (rhos*hSnow1(i,j) + rhoi*hIce(i,j))/dt |
|
./pkg/thsice/thsice_calc_thickn.F |
843 |
THSICE_CALC_THICKN |
esurp(i,j) = esurp(i,j) - rhos*qsnow*hSnow1(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
844 |
THSICE_CALC_THICKN |
& - rhoi*qicen(i,j,1)*hnew(i,j,1) |
|
./pkg/thsice/thsice_calc_thickn.F |
845 |
THSICE_CALC_THICKN |
& - rhoi*qicen(i,j,2)*hnew(i,j,2) |
|
./pkg/thsice/thsice_calc_thickn.F |
846 |
THSICE_CALC_THICKN |
hIce(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
847 |
THSICE_CALC_THICKN |
hSnow1(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
848 |
THSICE_CALC_THICKN |
tSrf(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
849 |
THSICE_CALC_THICKN |
icFrac(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
850 |
THSICE_CALC_THICKN |
qicen(i,j,1) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
851 |
THSICE_CALC_THICKN |
qicen(i,j,2) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
853 |
THSICE_CALC_THICKN |
IF (dBug(i,j,bi,bj) ) WRITE(6,1020) |
|
./pkg/thsice/thsice_calc_thickn.F |
855 |
THSICE_CALC_THICKN |
& esurp(i,j), frw2oc(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
877 |
THSICE_CALC_THICKN |
DO i = iMin, iMax |
|
./pkg/thsice/thsice_calc_thickn.F |
878 |
THSICE_CALC_THICKN |
IF (iceMask(i,j).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
880 |
THSICE_CALC_THICKN |
IF ( hIce(i,j) .GT. 0. _d 0 ) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
889 |
THSICE_CALC_THICKN |
ikey_1 = i |
|
./pkg/thsice/thsice_calc_thickn.F |
903 |
THSICE_CALC_THICKN |
IF ( hSnow1(i,j) .GT. hIce(i,j)*floodFac |
|
./pkg/thsice/thsice_calc_thickn.F |
904 |
THSICE_CALC_THICKN |
& .OR. hSnow1(i,j) .GT. hsMax ) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
911 |
THSICE_CALC_THICKN |
dhs = (hSnow1(i,j) - hIce(i,j)*floodFac) * rhoi / rhosw |
|
./pkg/thsice/thsice_calc_thickn.F |
912 |
THSICE_CALC_THICKN |
dhs = MAX( hSnow1(i,j) - hsMax, dhs ) |
|
./pkg/thsice/thsice_calc_thickn.F |
914 |
THSICE_CALC_THICKN |
rqh = rhoi*qicen(i,j,1)*hnew(i,j,1) + rhos*qsnow*dhs |
|
./pkg/thsice/thsice_calc_thickn.F |
915 |
THSICE_CALC_THICKN |
hnew(i,j,1) = hnew(i,j,1) + dhi |
|
./pkg/thsice/thsice_calc_thickn.F |
916 |
THSICE_CALC_THICKN |
qicen(i,j,1) = rqh / (rhoi*hnew(i,j,1)) |
|
./pkg/thsice/thsice_calc_thickn.F |
917 |
THSICE_CALC_THICKN |
hIce(i,j) = hIce(i,j) + dhi |
|
./pkg/thsice/thsice_calc_thickn.F |
918 |
THSICE_CALC_THICKN |
hSnow1(i,j) = hSnow1(i,j) - dhs |
|
./pkg/thsice/thsice_calc_thickn.F |
924 |
THSICE_CALC_THICKN |
IF (hIce(i,j).GT.hiMax) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
926 |
THSICE_CALC_THICKN |
chi=hIce(i,j)-hiMax |
|
./pkg/thsice/thsice_calc_thickn.F |
927 |
THSICE_CALC_THICKN |
hnew(i,j,1)=hnew(i,j,1)-chi/2. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
928 |
THSICE_CALC_THICKN |
hnew(i,j,2)=hnew(i,j,2)-chi/2. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
929 |
THSICE_CALC_THICKN |
frw2oc(i,j) = frw2oc(i,j) + chi*rhoi/dt |
|
./pkg/thsice/thsice_calc_thickn.F |
939 |
THSICE_CALC_THICKN |
hIce(i,j) = hnew(i,j,1) + hnew(i,j,2) |
|
./pkg/thsice/thsice_calc_thickn.F |
942 |
THSICE_CALC_THICKN |
IF (dBug(i,j,bi,bj) ) WRITE(6,1020) |
|
./pkg/thsice/thsice_calc_thickn.F |
944 |
THSICE_CALC_THICKN |
& hnew(i,j,1), hnew(i,j,2), |
|
./pkg/thsice/thsice_calc_thickn.F |
945 |
THSICE_CALC_THICKN |
& qicen(i,j,1), qicen(i,j,2) |
|
./pkg/thsice/thsice_calc_thickn.F |
948 |
THSICE_CALC_THICKN |
hlyr = hIce(i,j) * rec_nlyr |
|
./pkg/thsice/thsice_calc_thickn.F |
957 |
THSICE_CALC_THICKN |
if (hnew(i,j,1).gt.hnew(i,j,2)) then |
|
./pkg/thsice/thsice_calc_thickn.F |
959 |
THSICE_CALC_THICKN |
f1 = (hnew(i,j,1)-hlyr)/hlyr |
|
./pkg/thsice/thsice_calc_thickn.F |
960 |
THSICE_CALC_THICKN |
q2tmp = f1*qicen(i,j,1) + (1. _d 0-f1)*qicen(i,j,2) |
|
./pkg/thsice/thsice_calc_thickn.F |
962 |
THSICE_CALC_THICKN |
qicen(i,j,2) = q2tmp |
|
./pkg/thsice/thsice_calc_thickn.F |
965 |
THSICE_CALC_THICKN |
qh2 = hlyr*qicen(i,j,2) |
|
./pkg/thsice/thsice_calc_thickn.F |
966 |
THSICE_CALC_THICKN |
qhtot = hnew(i,j,1)*qicen(i,j,1) + hnew(i,j,2)*qicen(i,j,2) |
|
./pkg/thsice/thsice_calc_thickn.F |
968 |
THSICE_CALC_THICKN |
qicen(i,j,1) = qh1/hlyr |
|
./pkg/thsice/thsice_calc_thickn.F |
972 |
THSICE_CALC_THICKN |
f1 = hnew(i,j,1)/hlyr |
|
./pkg/thsice/thsice_calc_thickn.F |
973 |
THSICE_CALC_THICKN |
qicen(i,j,1) = f1*qicen(i,j,1) + (1. _d 0-f1)*qicen(i,j,2) |
|
./pkg/thsice/thsice_calc_thickn.F |
978 |
THSICE_CALC_THICKN |
IF (dBug(i,j,bi,bj) ) WRITE(6,1020) |
|
./pkg/thsice/thsice_calc_thickn.F |
980 |
THSICE_CALC_THICKN |
& icFrac(i,j),hIce(i,j), (qicen(i,j,1)+qicen(i,j,2))*0.5, |
|
./pkg/thsice/thsice_calc_thickn.F |
981 |
THSICE_CALC_THICKN |
& hSnow1(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
995 |
THSICE_CALC_THICKN |
DO i = iMin, iMax |
|
./pkg/thsice/thsice_calc_thickn.F |
996 |
THSICE_CALC_THICKN |
IF (iceMask(i,j).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
999 |
THSICE_CALC_THICKN |
IF (hIce(i,j).LE.0. _d 0) icFrac(i,j)=0. _d 0 |
|
./model/src/ini_model_io.F |
199 |
INI_MODEL_IO |
DO i=1,xyBuffer_size |
|
./model/src/ini_model_io.F |
200 |
INI_MODEL_IO |
xy_buffer_r8(i) = 0. _d 0 |
|
./model/src/ini_model_io.F |
201 |
INI_MODEL_IO |
xy_buffer_r4(i) = 0. |
|
./model/src/ini_model_io.F |
46 |
INI_MODEL_IO |
INTEGER i, iL, pIL |
|
./pkg/thsice/thsice_check_conserv.F |
35 |
THSICE_CHECK_CONSERV |
INTEGER i,j, bi,bj |
|
./pkg/thsice/thsice_check_conserv.F |
59 |
THSICE_CHECK_CONSERV |
dBugLoc = dBug(i,j,bi,bj) |
|
./pkg/thsice/thsice_check_conserv.F |
62 |
THSICE_CHECK_CONSERV |
flxAtm = icFlxAtm(i,j,bi,bj) |
|
./pkg/thsice/thsice_check_conserv.F |
63 |
THSICE_CHECK_CONSERV |
frwAtm = icFrwAtm(i,j,bi,bj) |
|
./pkg/thsice/thsice_check_conserv.F |
67 |
THSICE_CHECK_CONSERV |
dEnerg= -rhos*snowHeight(i,j,bi,bj)*qsnow |
|
./pkg/thsice/thsice_check_conserv.F |
68 |
THSICE_CHECK_CONSERV |
& -rhoi*iceHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_check_conserv.F |
69 |
THSICE_CHECK_CONSERV |
& *(Qice1(i,j,bi,bj)+Qice2(i,j,bi,bj))*0.5 |
|
./pkg/thsice/thsice_check_conserv.F |
70 |
THSICE_CHECK_CONSERV |
dWater = rhos*snowheight(i,j,bi,bj)+rhoi*iceHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_check_conserv.F |
71 |
THSICE_CHECK_CONSERV |
dSalt = rhoi*iceHeight(i,j,bi,bj)*saltice |
|
./pkg/thsice/thsice_check_conserv.F |
93 |
THSICE_CHECK_CONSERV |
ice_flx2oc_Ave(i,j,bi,bj) = ice_flx2oc_Ave(i,j,bi,bj) |
|
./pkg/thsice/thsice_check_conserv.F |
95 |
THSICE_CHECK_CONSERV |
ice_frw2oc_Ave(i,j,bi,bj) = ice_frw2oc_Ave(i,j,bi,bj) |
|
./pkg/thsice/thsice_check_conserv.F |
97 |
THSICE_CHECK_CONSERV |
ice_salFx_Ave(i,j,bi,bj) = ice_salFx_Ave(i,j,bi,bj) |
|
./pkg/thsice/thsice_check_conserv.F |
9 |
THSICE_CHECK_CONSERV |
I dBugFlag, i, j, bi, bj, iceStart, |
|
./pkg/thsice/thsice_cost_test.F |
106 |
THSICE_COST_TEST |
do i = 1,snx |
|
./pkg/thsice/thsice_cost_test.F |
108 |
THSICE_COST_TEST |
& tempVar*rA(i,j,bi,bj)*iceMask(i,j,bi,bj) |
|
./pkg/thsice/thsice_cost_test.F |
71 |
THSICE_COST_TEST |
integer bi,bj,i,j,kSrf |
|
./pkg/thsice/thsice_cost_test.F |
93 |
THSICE_COST_TEST |
do i = 1,snx |
|
./pkg/thsice/thsice_cost_test.F |
95 |
THSICE_COST_TEST |
& tempVar*rA(i,j,bi,bj)*iceHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_diagnostics_state.F |
48 |
THSICE_DIAGNOSTICS_STATE |
INTEGER i,j |
|
./pkg/thsice/thsice_diagnostics_state.F |
83 |
THSICE_DIAGNOSTICS_STATE |
DO i=1-OLx,sNx+OLx |
|
./pkg/thsice/thsice_diagnostics_state.F |
86 |
THSICE_DIAGNOSTICS_STATE |
tmpFld(i,j) = iceMask(i,j,bi,bj)*iceHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_diffusion.F |
100 |
THSICE_DIFFUSION |
& + thSIce_diffK*( iceFld(i,j-1)-iceFld(i,j) ) |
|
./pkg/thsice/thsice_diffusion.F |
101 |
THSICE_DIFFUSION |
& *recip_dyC(i,j,bi,bj)/tmpFld |
|
./pkg/thsice/thsice_diffusion.F |
61 |
THSICE_DIFFUSION |
INTEGER i, j |
|
./pkg/thsice/thsice_diffusion.F |
76 |
THSICE_DIFFUSION |
DO i=1-OLx,sNx+OLx |
|
./pkg/thsice/thsice_diffusion.F |
77 |
THSICE_DIFFUSION |
iceFld(i,j) = ( rhos*snowHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_diffusion.F |
78 |
THSICE_DIFFUSION |
& +rhoi*iceHeight(i,j,bi,bj) ) |
|
./pkg/thsice/thsice_diffusion.F |
84 |
THSICE_DIFFUSION |
DO i=1-OLx+1,sNx+OLx |
|
./pkg/thsice/thsice_diffusion.F |
85 |
THSICE_DIFFUSION |
tmpFld = MAX( iceFld(i-1,j),iceFld(i,j) ) |
|
./pkg/thsice/thsice_diffusion.F |
86 |
THSICE_DIFFUSION |
& * maskOc(i-1,j)*maskOc(i,j) |
|
./pkg/thsice/thsice_diffusion.F |
88 |
THSICE_DIFFUSION |
& uIce(i,j) = uIce(i,j) |
|
./pkg/thsice/thsice_diffusion.F |
89 |
THSICE_DIFFUSION |
& + thSIce_diffK*( iceFld(i-1,j)-iceFld(i,j) ) |
|
./pkg/thsice/thsice_diffusion.F |
90 |
THSICE_DIFFUSION |
& *recip_dxC(i,j,bi,bj)/tmpFld |
|
./pkg/thsice/thsice_diffusion.F |
95 |
THSICE_DIFFUSION |
DO i=1-OLx,sNx+OLx |
|
./pkg/thsice/thsice_diffusion.F |
96 |
THSICE_DIFFUSION |
tmpFld = MAX( iceFld(i,j-1),iceFld(i,j) ) |
|
./pkg/thsice/thsice_diffusion.F |
97 |
THSICE_DIFFUSION |
& *maskOc(i,j-1)*maskOc(i,j) |
|
./pkg/thsice/thsice_diffusion.F |
99 |
THSICE_DIFFUSION |
& vIce(i,j) = vIce(i,j) |
|
./pkg/thsice/thsice_do_advect.F |
108 |
THSICE_DO_ADVECT |
DO i = iMin, iMax |
|
./pkg/thsice/thsice_do_advect.F |
109 |
THSICE_DO_ADVECT |
IF ( hOceMxL(i,j,bi,bj).GT.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_do_advect.F |
110 |
THSICE_DO_ADVECT |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) - oceQnet(i,j,bi,bj) |
|
./pkg/thsice/thsice_do_advect.F |
111 |
THSICE_DO_ADVECT |
EmPmR(i,j,bi,bj)= EmPmR(i,j,bi,bj)- oceFWfx(i,j,bi,bj) |
|
./pkg/thsice/thsice_do_advect.F |
112 |
THSICE_DO_ADVECT |
saltFlux(i,j,bi,bj)=saltFlux(i,j,bi,bj) - oceSflx(i,j,bi,bj) |
|
./pkg/thsice/thsice_do_advect.F |
115 |
THSICE_DO_ADVECT |
sIceLoad(i,j,bi,bj) = ( snowHeight(i,j,bi,bj)*rhos |
|
./pkg/thsice/thsice_do_advect.F |
116 |
THSICE_DO_ADVECT |
& + iceHeight(i,j,bi,bj)*rhoi |
|
./pkg/thsice/thsice_do_advect.F |
117 |
THSICE_DO_ADVECT |
& )*iceMask(i,j,bi,bj) |
|
./pkg/thsice/thsice_do_advect.F |
52 |
THSICE_DO_ADVECT |
INTEGER i, j |
|
./model/src/ini_nh_fields.F |
101 |
INI_NH_FIELDS |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_nh_fields.F |
102 |
INI_NH_FIELDS |
dPhiNH(i,j,bi,bj) = 0. |
|
./model/src/ini_nh_fields.F |
107 |
INI_NH_FIELDS |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_nh_fields.F |
108 |
INI_NH_FIELDS |
dPhiNH(i,j,bi,bj) = dPhiNH(i,j,bi,bj) |
|
./model/src/ini_nh_fields.F |
109 |
INI_NH_FIELDS |
& + phi_nh(i,j,k,bi,bj)*drF(k)*hFacC(i,j,k,bi,bj) |
|
./model/src/ini_nh_fields.F |
114 |
INI_NH_FIELDS |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_nh_fields.F |
115 |
INI_NH_FIELDS |
dPhiNH(i,j,bi,bj) = dPhiNH(i,j,bi,bj) |
|
./model/src/ini_nh_fields.F |
116 |
INI_NH_FIELDS |
& *recip_Rcol(i,j,bi,bj) |
|
./model/src/ini_nh_fields.F |
44 |
INI_NH_FIELDS |
INTEGER i,j |
|
./model/src/ini_nh_fields.F |
80 |
INI_NH_FIELDS |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_nh_fields.F |
81 |
INI_NH_FIELDS |
dPhiNH(i,j,bi,bj) = phi_nh(i,j,1,bi,bj) |
|
./model/src/ini_nh_fields.F |
88 |
INI_NH_FIELDS |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_nh_fields.F |
89 |
INI_NH_FIELDS |
ks = kSurfC(i,j,bi,bj) |
|
./model/src/ini_nh_fields.F |
91 |
INI_NH_FIELDS |
dPhiNH(i,j,bi,bj) = phi_nh(i,j,ks,bi,bj) |
|
./model/src/ini_nh_fields.F |
93 |
INI_NH_FIELDS |
dPhiNH(i,j,bi,bj) = 0. |
|
./pkg/thsice/thsice_extend.F |
113 |
THSICE_EXTEND |
INTEGER i,j ! loop indices |
|
./pkg/thsice/thsice_extend.F |
126 |
THSICE_EXTEND |
DO i = 1-OLx, sNx+OLx |
|
./pkg/thsice/thsice_extend.F |
127 |
THSICE_EXTEND |
flx2oc(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_extend.F |
128 |
THSICE_EXTEND |
frw2oc(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_extend.F |
129 |
THSICE_EXTEND |
fsalt (i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_extend.F |
155 |
THSICE_EXTEND |
DO i = iMin, iMax |
|
./pkg/thsice/thsice_extend.F |
172 |
THSICE_EXTEND |
IF (fzMlOc(i,j).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_extend.F |
173 |
THSICE_EXTEND |
esurp = fzMlOc(i,j) |
|
./pkg/thsice/thsice_extend.F |
174 |
THSICE_EXTEND |
Tf = tFrz(i,j) |
|
./pkg/thsice/thsice_extend.F |
175 |
THSICE_EXTEND |
iceFrac = icFrac(i,j) |
|
./pkg/thsice/thsice_extend.F |
176 |
THSICE_EXTEND |
iceThick= hIce(i,j) |
|
./pkg/thsice/thsice_extend.F |
177 |
THSICE_EXTEND |
qicen(1)= qIc1(i,j) |
|
./pkg/thsice/thsice_extend.F |
178 |
THSICE_EXTEND |
qicen(2)= qIc2(i,j) |
|
./pkg/thsice/thsice_extend.F |
193 |
THSICE_EXTEND |
IF ( icFrac(i,j).EQ.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_extend.F |
211 |
THSICE_EXTEND |
iceFrac = MIN(icFrac(i,j)+newIce/hNewIce,iceMaskMax) |
|
./pkg/thsice/thsice_extend.F |
219 |
THSICE_EXTEND |
hSnow(i,j) = hSnow(i,j)*icFrac(i,j)/iceFrac |
|
./pkg/thsice/thsice_extend.F |
222 |
THSICE_EXTEND |
flx2oc(i,j)= qicAv*iceFormed/deltaTice |
|
./pkg/thsice/thsice_extend.F |
223 |
THSICE_EXTEND |
frw2oc(i,j)= -rhoi*iceFormed/deltaTice |
|
./pkg/thsice/thsice_extend.F |
224 |
THSICE_EXTEND |
fsalt(i,j)= -(rhoi*saltIce)*iceFormed/deltaTice |
|
./pkg/thsice/thsice_extend.F |
228 |
THSICE_EXTEND |
IF ( dBug(i,j,bi,bj) ) THEN |
|
./pkg/thsice/thsice_extend.F |
230 |
THSICE_EXTEND |
& iceThick, newIce, iceFrac-icFrac(i,j) |
|
./pkg/thsice/thsice_extend.F |
232 |
THSICE_EXTEND |
& iceFrac,flx2oc(i,j),fsalt(i,j),frw2oc(i,j) |
|
./pkg/thsice/thsice_extend.F |
236 |
THSICE_EXTEND |
CALL THSICE_CHECK_CONSERV( dBugFlag, i, j, bi, bj, 1, |
|
./pkg/thsice/thsice_extend.F |
237 |
THSICE_EXTEND |
I icFrac(i,j), iceFrac, iceThick, hSnow(i,j), qicen, |
|
./pkg/thsice/thsice_extend.F |
238 |
THSICE_EXTEND |
I flx2oc(i,j), frw2oc(i,j), fsalt(i,j), |
|
./pkg/thsice/thsice_extend.F |
243 |
THSICE_EXTEND |
IF ( iceFrac.GT.0. _d 0 .AND. icFrac(i,j).EQ.0. _d 0) THEN |
|
./pkg/thsice/thsice_extend.F |
245 |
THSICE_EXTEND |
tSrf(i,j) = tFrz(i,j) |
|
./pkg/thsice/thsice_extend.F |
246 |
THSICE_EXTEND |
tIc1(i,j) = tFrz(i,j) |
|
./pkg/thsice/thsice_extend.F |
247 |
THSICE_EXTEND |
tIc2(i,j) = tFrz(i,j) |
|
./pkg/thsice/thsice_extend.F |
248 |
THSICE_EXTEND |
qIc1(i,j) = qicen(1) |
|
./pkg/thsice/thsice_extend.F |
249 |
THSICE_EXTEND |
qIc2(i,j) = qicen(2) |
|
./pkg/thsice/thsice_extend.F |
251 |
THSICE_EXTEND |
icFrac(i,j) = iceFrac |
|
./pkg/thsice/thsice_extend.F |
252 |
THSICE_EXTEND |
hIce(i,j) = iceThick |
|
./pkg/thsice/thsice_get_bulkf.F |
100 |
THSICE_GET_BULKF |
I Tsurf, flwdwn(i,j,bi,bj), |
|
./pkg/thsice/thsice_get_bulkf.F |
101 |
THSICE_GET_BULKF |
I ThAir(i,j,bi,bj), Tair(i,j,bi,bj), |
|
./pkg/thsice/thsice_get_bulkf.F |
102 |
THSICE_GET_BULKF |
I Qair(i,j,bi,bj), wspeed(i,j,bi,bj), |
|
./pkg/thsice/thsice_get_bulkf.F |
107 |
THSICE_GET_BULKF |
flxExcSw(i,j) = sFlx(1) |
|
./pkg/thsice/thsice_get_bulkf.F |
108 |
THSICE_GET_BULKF |
dFlxdT(i,j) = sFlx(2) |
|
./pkg/thsice/thsice_get_bulkf.F |
110 |
THSICE_GET_BULKF |
evap(i,j) = EVPloc(1) * 1. _d -3 |
|
./pkg/thsice/thsice_get_bulkf.F |
111 |
THSICE_GET_BULKF |
dEvdT(i,j) = dEvp(1) * 1. _d -3 |
|
./pkg/thsice/thsice_get_bulkf.F |
124 |
THSICE_GET_BULKF |
I uwind(i,j,bi,bj), vwind(i,j,bi,bj), wspeed(i,j,bi,bj), |
|
./pkg/thsice/thsice_get_bulkf.F |
125 |
THSICE_GET_BULKF |
I Tair(i,j,bi,bj), Qair(i,j,bi,bj), |
|
./pkg/thsice/thsice_get_bulkf.F |
126 |
THSICE_GET_BULKF |
I cloud(i,j,bi,bj), Tsf(i,j), |
|
./pkg/thsice/thsice_get_bulkf.F |
127 |
THSICE_GET_BULKF |
O flwup, flh, fsh, dFlxdT(i,j), ust, vst, |
|
./pkg/thsice/thsice_get_bulkf.F |
128 |
THSICE_GET_BULKF |
O evap(i,j), ssq, dEvdT(i,j), |
|
./pkg/thsice/thsice_get_bulkf.F |
132 |
THSICE_GET_BULKF |
I uwind(i,j,bi,bj), vwind(i,j,bi,bj), wspeed(i,j,bi,bj), |
|
./pkg/thsice/thsice_get_bulkf.F |
133 |
THSICE_GET_BULKF |
I Tair(i,j,bi,bj), Qair(i,j,bi,bj), Tsf(i,j), |
|
./pkg/thsice/thsice_get_bulkf.F |
134 |
THSICE_GET_BULKF |
O flwup, flh, fsh, dFlxdT(i,j), ust, vst, |
|
./pkg/thsice/thsice_get_bulkf.F |
135 |
THSICE_GET_BULKF |
O evap(i,j), ssq, dEvdT(i,j), |
|
./pkg/thsice/thsice_get_bulkf.F |
136 |
THSICE_GET_BULKF |
I iceornot, i,j,bi,bj,myThid ) |
|
./pkg/thsice/thsice_get_bulkf.F |
139 |
THSICE_GET_BULKF |
flwNet_dwn = flwdwn(i,j,bi,bj) - flwup |
|
./pkg/thsice/thsice_get_bulkf.F |
140 |
THSICE_GET_BULKF |
flxExcSw(i,j) = flwNet_dwn + fsh + flh |
|
./pkg/thsice/thsice_get_bulkf.F |
73 |
THSICE_GET_BULKF |
INTEGER i, j |
|
./pkg/thsice/thsice_get_bulkf.F |
85 |
THSICE_GET_BULKF |
DO i=iMin,iMax |
|
./pkg/thsice/thsice_get_bulkf.F |
86 |
THSICE_GET_BULKF |
IF ( icFlag(i,j).GT.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_get_bulkf.F |
89 |
THSICE_GET_BULKF |
IF ( hSnow(i,j).GT.3. _d -1 ) THEN |
|
./pkg/thsice/thsice_get_bulkf.F |
98 |
THSICE_GET_BULKF |
Tsurf(1) = Tsf(i,j) |
|
./pkg/thsice/thsice_get_exf.F |
188 |
THSICE_GET_EXF |
DO i = 1-OLx,sNx+OLx |
|
./pkg/thsice/thsice_get_exf.F |
189 |
THSICE_GET_EXF |
tstar(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_get_exf.F |
190 |
THSICE_GET_EXF |
qstar(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_get_exf.F |
191 |
THSICE_GET_EXF |
ustar(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_get_exf.F |
192 |
THSICE_GET_EXF |
rdn(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_get_exf.F |
193 |
THSICE_GET_EXF |
rd(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_get_exf.F |
194 |
THSICE_GET_EXF |
rh(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_get_exf.F |
195 |
THSICE_GET_EXF |
re(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_get_exf.F |
196 |
THSICE_GET_EXF |
delq(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_get_exf.F |
197 |
THSICE_GET_EXF |
deltap(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_get_exf.F |
198 |
THSICE_GET_EXF |
ssq(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_get_exf.F |
203 |
THSICE_GET_EXF |
DO i=iMin,iMax |
|
./pkg/thsice/thsice_get_exf.F |
206 |
THSICE_GET_EXF |
IF ( dBug(i,j,bi,bj) .AND. (icFlag(i,j).GT.0. _d 0) ) |
|
./pkg/thsice/thsice_get_exf.F |
209 |
THSICE_GET_EXF |
& i,j,bi,bj, atemp(i,j,bi,bj),lwdown(i,j,bi,bj) |
|
./pkg/thsice/thsice_get_exf.F |
220 |
THSICE_GET_EXF |
ikey_1 = i |
|
./pkg/thsice/thsice_get_exf.F |
230 |
THSICE_GET_EXF |
IF ( (icFlag(i,j).GT.0. _d 0) .AND. |
|
./pkg/thsice/thsice_get_exf.F |
231 |
THSICE_GET_EXF |
& (atemp(i,j,bi,bj).NE.0. _d 0) ) THEN |
|
./pkg/thsice/thsice_get_exf.F |
232 |
THSICE_GET_EXF |
IF ( hSnow1(i,j).GT.3. _d -1 ) THEN |
|
./pkg/thsice/thsice_get_exf.F |
238 |
THSICE_GET_EXF |
Tsf = tsfCel(i,j)+cen2kel |
|
./pkg/thsice/thsice_get_exf.F |
244 |
THSICE_GET_EXF |
wsm = sh(i,j,bi,bj) |
|
./pkg/thsice/thsice_get_exf.F |
250 |
THSICE_GET_EXF |
atmrho_loc(i,j) = apressure(i,j,bi,bj) / |
|
./pkg/thsice/thsice_get_exf.F |
251 |
THSICE_GET_EXF |
& (287.04 _d 0*atemp(i,j,bi,bj) |
|
./pkg/thsice/thsice_get_exf.F |
252 |
THSICE_GET_EXF |
& *(1. _d 0 + humid_fac*aqh(i,j,bi,bj))) |
|
./pkg/thsice/thsice_get_exf.F |
253 |
THSICE_GET_EXF |
ssq(i,j) = tmpbulk/atmrho_loc(i,j) |
|
./pkg/thsice/thsice_get_exf.F |
255 |
THSICE_GET_EXF |
ssq(i,j) = tmpbulk/atmrho |
|
./pkg/thsice/thsice_get_exf.F |
257 |
THSICE_GET_EXF |
deltap(i,j) = atemp(i,j,bi,bj) + gamma_blk*ht - Tsf |
|
./pkg/thsice/thsice_get_exf.F |
258 |
THSICE_GET_EXF |
delq(i,j) = aqh(i,j,bi,bj) - ssq(i,j) |
|
./pkg/thsice/thsice_get_exf.F |
263 |
THSICE_GET_EXF |
dEvdT(i,j) = ssq(i,j)*qsat_exp/Ts2 |
|
./pkg/thsice/thsice_get_exf.F |
268 |
THSICE_GET_EXF |
flwNet_dwn = emiss*lwdown(i,j,bi,bj) - flwup |
|
./pkg/thsice/thsice_get_exf.F |
270 |
THSICE_GET_EXF |
dFlxdT(i,j) = -dflwupdT |
|
./pkg/thsice/thsice_get_exf.F |
272 |
THSICE_GET_EXF |
flxExcSw(i,j) = flwNet_dwn |
|
./pkg/thsice/thsice_get_exf.F |
281 |
THSICE_GET_EXF |
DO i=iMin,iMax |
|
./pkg/thsice/thsice_get_exf.F |
290 |
THSICE_GET_EXF |
ikey_1 = i |
|
./pkg/thsice/thsice_get_exf.F |
300 |
THSICE_GET_EXF |
IF ( (icFlag(i,j).GT.0. _d 0) .AND. |
|
./pkg/thsice/thsice_get_exf.F |
301 |
THSICE_GET_EXF |
& (atemp(i,j,bi,bj).NE.0. _d 0) ) THEN |
|
./pkg/thsice/thsice_get_exf.F |
307 |
THSICE_GET_EXF |
t0 = atemp(i,j,bi,bj)* |
|
./pkg/thsice/thsice_get_exf.F |
308 |
THSICE_GET_EXF |
& (exf_one + humid_fac*aqh(i,j,bi,bj)) |
|
./pkg/thsice/thsice_get_exf.F |
309 |
THSICE_GET_EXF |
stable = exf_half + SIGN(exf_half, deltap(i,j)) |
|
./pkg/thsice/thsice_get_exf.F |
311 |
THSICE_GET_EXF |
wsm = sh(i,j,bi,bj) |
|
./pkg/thsice/thsice_get_exf.F |
314 |
THSICE_GET_EXF |
rdn(i,j) = SQRT(tmpbulk) |
|
./pkg/thsice/thsice_get_exf.F |
316 |
THSICE_GET_EXF |
rdn(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_get_exf.F |
322 |
THSICE_GET_EXF |
ustar(i,j) = rdn(i,j)*wsm |
|
./pkg/thsice/thsice_get_exf.F |
323 |
THSICE_GET_EXF |
tstar(i,j) = rhn*deltap(i,j) |
|
./pkg/thsice/thsice_get_exf.F |
324 |
THSICE_GET_EXF |
qstar(i,j) = ren*delq(i,j) |
|
./pkg/thsice/thsice_get_exf.F |
332 |
THSICE_GET_EXF |
DO i=iMin,iMax |
|
./pkg/thsice/thsice_get_exf.F |
333 |
THSICE_GET_EXF |
IF ( (icFlag(i,j).GT.0. _d 0) .AND. |
|
./pkg/thsice/thsice_get_exf.F |
334 |
THSICE_GET_EXF |
& (atemp(i,j,bi,bj).NE.0. _d 0) ) THEN |
|
./pkg/thsice/thsice_get_exf.F |
338 |
THSICE_GET_EXF |
& + niter_bulk*(i-1) |
|
./pkg/thsice/thsice_get_exf.F |
352 |
THSICE_GET_EXF |
t0 = atemp(i,j,bi,bj)* |
|
./pkg/thsice/thsice_get_exf.F |
353 |
THSICE_GET_EXF |
& (exf_one + humid_fac*aqh(i,j,bi,bj)) |
|
./pkg/thsice/thsice_get_exf.F |
354 |
THSICE_GET_EXF |
huol = (tstar(i,j)/t0 + |
|
./pkg/thsice/thsice_get_exf.F |
355 |
THSICE_GET_EXF |
& qstar(i,j)/(exf_one/humid_fac+aqh(i,j,bi,bj)) |
|
./pkg/thsice/thsice_get_exf.F |
356 |
THSICE_GET_EXF |
& )*czol/(ustar(i,j)*ustar(i,j)) |
|
./pkg/thsice/thsice_get_exf.F |
396 |
THSICE_GET_EXF |
usn = wspeed(i,j,bi,bj) |
|
./pkg/thsice/thsice_get_exf.F |
397 |
THSICE_GET_EXF |
& /( exf_one + rdn(i,j)*(zwln-psimh)/karman ) |
|
./pkg/thsice/thsice_get_exf.F |
400 |
THSICE_GET_EXF |
usn = sh(i,j,bi,bj)/(exf_one - rdn(i,j)/karman*psimh) |
|
./pkg/thsice/thsice_get_exf.F |
407 |
THSICE_GET_EXF |
rdn(i,j) = SQRT(tmpbulk) |
|
./pkg/thsice/thsice_get_exf.F |
413 |
THSICE_GET_EXF |
rd(i,j)= rdn(i,j)/( exf_one + rdn(i,j)*(zwln-psimh)/karman ) |
|
./pkg/thsice/thsice_get_exf.F |
415 |
THSICE_GET_EXF |
rd(i,j)= rdn(i,j)/( exf_one - rdn(i,j)/karman*psimh ) |
|
./pkg/thsice/thsice_get_exf.F |
417 |
THSICE_GET_EXF |
rh(i,j)= rhn/( exf_one + rhn*(ztln-psixh)/karman ) |
|
./pkg/thsice/thsice_get_exf.F |
418 |
THSICE_GET_EXF |
re(i,j)= ren/( exf_one + ren*(ztln-psixh)/karman ) |
|
./pkg/thsice/thsice_get_exf.F |
421 |
THSICE_GET_EXF |
ustar(i,j) = rd(i,j)*sh(i,j,bi,bj) |
|
./pkg/thsice/thsice_get_exf.F |
422 |
THSICE_GET_EXF |
qstar(i,j) = re(i,j)*delq(i,j) |
|
./pkg/thsice/thsice_get_exf.F |
423 |
THSICE_GET_EXF |
tstar(i,j) = rh(i,j)*deltap(i,j) |
|
./pkg/thsice/thsice_get_exf.F |
431 |
THSICE_GET_EXF |
DO i=iMin,iMax |
|
./pkg/thsice/thsice_get_exf.F |
432 |
THSICE_GET_EXF |
IF ( (icFlag(i,j).GT.0. _d 0) .AND. |
|
./pkg/thsice/thsice_get_exf.F |
433 |
THSICE_GET_EXF |
& (atemp(i,j,bi,bj).NE.0. _d 0) ) THEN |
|
./pkg/thsice/thsice_get_exf.F |
435 |
THSICE_GET_EXF |
tau = atmrho_loc(i,j)*rd(i,j)*wspeed(i,j,bi,bj) |
|
./pkg/thsice/thsice_get_exf.F |
437 |
THSICE_GET_EXF |
tau = atmrho*rd(i,j)*wspeed(i,j,bi,bj) |
|
./pkg/thsice/thsice_get_exf.F |
439 |
THSICE_GET_EXF |
evapLoc(i,j) = -tau*qstar(i,j) |
|
./pkg/thsice/thsice_get_exf.F |
440 |
THSICE_GET_EXF |
hlLocal = -lath*evapLoc(i,j) |
|
./pkg/thsice/thsice_get_exf.F |
441 |
THSICE_GET_EXF |
hsLocal = atmcp*tau*tstar(i,j) |
|
./pkg/thsice/thsice_get_exf.F |
447 |
THSICE_GET_EXF |
dEvdT(i,j) = (tau*re(i,j))*dEvdT(i,j) |
|
./pkg/thsice/thsice_get_exf.F |
448 |
THSICE_GET_EXF |
dflhdT = -lath*dEvdT(i,j) |
|
./pkg/thsice/thsice_get_exf.F |
449 |
THSICE_GET_EXF |
dfshdT = -atmcp*tau*rh(i,j) |
|
./pkg/thsice/thsice_get_exf.F |
451 |
THSICE_GET_EXF |
dFlxdT(i,j) = dFlxdT(i,j) + dfshdT + dflhdT |
|
./pkg/thsice/thsice_get_exf.F |
453 |
THSICE_GET_EXF |
flxExcSw(i,j) = flxExcSw(i,j) + hsLocal + hlLocal |
|
./pkg/thsice/thsice_get_exf.F |
463 |
THSICE_GET_EXF |
DO i=iMin,iMax |
|
./pkg/thsice/thsice_get_exf.F |
464 |
THSICE_GET_EXF |
IF ( (icFlag(i,j).GT.0. _d 0) .AND. |
|
./pkg/thsice/thsice_get_exf.F |
465 |
THSICE_GET_EXF |
& (atemp(i,j,bi,bj).NE.0. _d 0) ) THEN |
|
./pkg/thsice/thsice_get_exf.F |
466 |
THSICE_GET_EXF |
wsm = sh(i,j,bi,bj) |
|
./pkg/thsice/thsice_get_exf.F |
468 |
THSICE_GET_EXF |
tau = atmrho_loc(i,j)*exf_iceCe*wsm |
|
./pkg/thsice/thsice_get_exf.F |
472 |
THSICE_GET_EXF |
evapLoc(i,j) = -tau*delq(i,j) |
|
./pkg/thsice/thsice_get_exf.F |
473 |
THSICE_GET_EXF |
hlLocal = -lath*evapLoc(i,j) |
|
./pkg/thsice/thsice_get_exf.F |
475 |
THSICE_GET_EXF |
hsLocal = atmcp*atmrho_loc(i,j) |
|
./pkg/thsice/thsice_get_exf.F |
476 |
THSICE_GET_EXF |
& *exf_iceCh*wsm*deltap(i,j) |
|
./pkg/thsice/thsice_get_exf.F |
478 |
THSICE_GET_EXF |
hsLocal = atmcp*atmrho*exf_iceCh*wsm*deltap(i,j) |
|
./pkg/thsice/thsice_get_exf.F |
481 |
THSICE_GET_EXF |
IF ( dBug(i,j,bi,bj) ) WRITE(stdUnit,'(A,4F12.6)') |
|
./pkg/thsice/thsice_get_exf.F |
483 |
THSICE_GET_EXF |
& wsm,hlLocal,hsLocal,flxExcSw(i,j) |
|
./pkg/thsice/thsice_get_exf.F |
487 |
THSICE_GET_EXF |
dEvdT(i,j) = tau*dEvdT(i,j) |
|
./pkg/thsice/thsice_get_exf.F |
488 |
THSICE_GET_EXF |
dflhdT = -lath*dEvdT(i,j) |
|
./pkg/thsice/thsice_get_exf.F |
490 |
THSICE_GET_EXF |
dfshdT = -atmcp*atmrho_loc(i,j)*exf_iceCh*wsm |
|
./pkg/thsice/thsice_get_exf.F |
495 |
THSICE_GET_EXF |
dFlxdT(i,j) = dFlxdT(i,j) + dfshdT + dflhdT |
|
./pkg/thsice/thsice_get_exf.F |
497 |
THSICE_GET_EXF |
flxExcSw(i,j) = flxExcSw(i,j) + hsLocal + hlLocal |
|
./pkg/thsice/thsice_get_exf.F |
499 |
THSICE_GET_EXF |
IF ( dBug(i,j,bi,bj) ) WRITE(stdUnit,'(A,4F12.6)') |
|
./pkg/thsice/thsice_get_exf.F |
501 |
THSICE_GET_EXF |
& flxExcSw(i,j), dFlxdT(i,j), evapLoc(i,j),dEvdT(i,j) |
|
./pkg/thsice/thsice_get_exf.F |
510 |
THSICE_GET_EXF |
DO i=iMin,iMax |
|
./pkg/thsice/thsice_get_exf.F |
511 |
THSICE_GET_EXF |
IF ( (icFlag(i,j).GT.0. _d 0) .AND. |
|
./pkg/thsice/thsice_get_exf.F |
512 |
THSICE_GET_EXF |
& (atemp(i,j,bi,bj).LE.0. _d 0) ) THEN |
|
./pkg/thsice/thsice_get_exf.F |
514 |
THSICE_GET_EXF |
flxExcSw(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_get_exf.F |
515 |
THSICE_GET_EXF |
dFlxdT (i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_get_exf.F |
516 |
THSICE_GET_EXF |
evapLoc (i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_get_exf.F |
517 |
THSICE_GET_EXF |
dEvdT (i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_get_exf.F |
90 |
THSICE_GET_EXF |
INTEGER i, j |
|
./pkg/thsice/thsice_get_ocean.F |
100 |
THSICE_GET_OCEAN |
icFlxAtm(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_get_ocean.F |
101 |
THSICE_GET_OCEAN |
icFlxSW (i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_get_ocean.F |
102 |
THSICE_GET_OCEAN |
siceAlb (i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_get_ocean.F |
107 |
THSICE_GET_OCEAN |
DO i=1-OLx,sNx+OLx-1 |
|
./pkg/thsice/thsice_get_ocean.F |
108 |
THSICE_GET_OCEAN |
v2ocMxL(i,j,bi,bj) = |
|
./pkg/thsice/thsice_get_ocean.F |
109 |
THSICE_GET_OCEAN |
& ( uVel(i,j,ks,bi,bj) * uVel(i,j,ks,bi,bj) |
|
./pkg/thsice/thsice_get_ocean.F |
110 |
THSICE_GET_OCEAN |
& + uVel(i+1,j,ks,bi,bj)*uVel(i+1,j,ks,bi,bj) |
|
./pkg/thsice/thsice_get_ocean.F |
111 |
THSICE_GET_OCEAN |
& + vVel(i,j+1,ks,bi,bj)*vVel(i,j+1,ks,bi,bj) |
|
./pkg/thsice/thsice_get_ocean.F |
112 |
THSICE_GET_OCEAN |
& + vVel(i,j,ks,bi,bj) * vVel(i,j,ks,bi,bj) |
|
./pkg/thsice/thsice_get_ocean.F |
119 |
THSICE_GET_OCEAN |
DO i=1-OLx,sNx+OLx-1 |
|
./pkg/thsice/thsice_get_ocean.F |
120 |
THSICE_GET_OCEAN |
uRel1 = uVel( i, j,ks,bi,bj)-uIce( i, j,bi,bj) |
|
./pkg/thsice/thsice_get_ocean.F |
121 |
THSICE_GET_OCEAN |
uRel2 = uVel(i+1,j,ks,bi,bj)-uIce(i+1,j,bi,bj) |
|
./pkg/thsice/thsice_get_ocean.F |
122 |
THSICE_GET_OCEAN |
vRel1 = vVel(i, j, ks,bi,bj)-vIce(i, j, bi,bj) |
|
./pkg/thsice/thsice_get_ocean.F |
123 |
THSICE_GET_OCEAN |
vRel2 = vVel(i,j+1,ks,bi,bj)-vIce(i,j+1,bi,bj) |
|
./pkg/thsice/thsice_get_ocean.F |
124 |
THSICE_GET_OCEAN |
v2ocMxL(i,j,bi,bj) = |
|
./pkg/thsice/thsice_get_ocean.F |
55 |
THSICE_GET_OCEAN |
INTEGER i,j |
|
./pkg/thsice/thsice_get_ocean.F |
67 |
THSICE_GET_OCEAN |
DO i=1-OLx,sNx+OLx |
|
./pkg/thsice/thsice_get_ocean.F |
68 |
THSICE_GET_OCEAN |
hOceMxL(i,j,bi,bj) = drF(ks)*h0FacC(i,j,ks,bi,bj) |
|
./pkg/thsice/thsice_get_ocean.F |
69 |
THSICE_GET_OCEAN |
& *rStarFacC(i,j,bi,bj) |
|
./pkg/thsice/thsice_get_ocean.F |
74 |
THSICE_GET_OCEAN |
DO i=1-OLx,sNx+OLx |
|
./pkg/thsice/thsice_get_ocean.F |
75 |
THSICE_GET_OCEAN |
IF ( kSurfC(i,j,bi,bj).EQ.1 ) THEN |
|
./pkg/thsice/thsice_get_ocean.F |
76 |
THSICE_GET_OCEAN |
hOceMxL(i,j,bi,bj) = drF(ks)*hFac_surfC(i,j,bi,bj) |
|
./pkg/thsice/thsice_get_ocean.F |
78 |
THSICE_GET_OCEAN |
hOceMxL(i,j,bi,bj) = drF(ks)*hFacC(i,j,ks,bi,bj) |
|
./pkg/thsice/thsice_get_ocean.F |
88 |
THSICE_GET_OCEAN |
DO i=1-OLx,sNx+OLx |
|
./pkg/thsice/thsice_get_ocean.F |
89 |
THSICE_GET_OCEAN |
hOceMxL(i,j,bi,bj) = drF(ks)*hFacC(i,j,ks,bi,bj) |
|
./pkg/thsice/thsice_get_ocean.F |
95 |
THSICE_GET_OCEAN |
DO i=1-OLx,sNx+OLx |
|
./pkg/thsice/thsice_get_ocean.F |
96 |
THSICE_GET_OCEAN |
tOceMxL(i,j,bi,bj) = theta(i,j,ks,bi,bj) |
|
./pkg/thsice/thsice_get_ocean.F |
97 |
THSICE_GET_OCEAN |
sOceMxL(i,j,bi,bj) = salt (i,j,ks,bi,bj) |
|
./pkg/thsice/thsice_get_ocean.F |
98 |
THSICE_GET_OCEAN |
v2ocMxL(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_get_ocean.F |
99 |
THSICE_GET_OCEAN |
icFrwAtm(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_get_precip.F |
105 |
THSICE_GET_PRECIP |
DO i = iMin, iMax |
|
./pkg/thsice/thsice_get_precip.F |
106 |
THSICE_GET_PRECIP |
qPrcRnO(i,j) = HeatCapacity_Cp*( |
|
./pkg/thsice/thsice_get_precip.F |
107 |
THSICE_GET_PRECIP |
& ( Tair(i,j,bi,bj) - Tf0kel - temp_EvPrRn ) |
|
./pkg/thsice/thsice_get_precip.F |
108 |
THSICE_GET_PRECIP |
& *( rain(i,j,bi,bj)*rhofw - snowPrc(i,j) ) |
|
./pkg/thsice/thsice_get_precip.F |
109 |
THSICE_GET_PRECIP |
& + ( locSST(i,j,bi,bj) - temp_EvPrRn ) |
|
./pkg/thsice/thsice_get_precip.F |
110 |
THSICE_GET_PRECIP |
& *runoff(i,j,bi,bj)*rhofw ) |
|
./pkg/thsice/thsice_get_precip.F |
125 |
THSICE_GET_PRECIP |
DO i = iMin, iMax |
|
./pkg/thsice/thsice_get_precip.F |
126 |
THSICE_GET_PRECIP |
precip(i,j) = cheapPrecip(i,j,bi,bj) |
|
./pkg/thsice/thsice_get_precip.F |
136 |
THSICE_GET_PRECIP |
DO i = iMin, iMax |
|
./pkg/thsice/thsice_get_precip.F |
137 |
THSICE_GET_PRECIP |
IF ( iceMsk(i,j,bi,bj).GT.0. _d 0 |
|
./pkg/thsice/thsice_get_precip.F |
138 |
THSICE_GET_PRECIP |
& .AND. Tair(i,j,bi,bj).LT.zeroRL ) THEN |
|
./pkg/thsice/thsice_get_precip.F |
139 |
THSICE_GET_PRECIP |
snowPrc(i,j) = cheapPrecip(i,j,bi,bj) |
|
./pkg/thsice/thsice_get_precip.F |
151 |
THSICE_GET_PRECIP |
DO i = iMin, iMax |
|
./pkg/thsice/thsice_get_precip.F |
152 |
THSICE_GET_PRECIP |
qPrcRnO(i,j) = HeatCapacity_Cp* |
|
./pkg/thsice/thsice_get_precip.F |
153 |
THSICE_GET_PRECIP |
& ( Tair(i,j,bi,bj) - temp_EvPrRn ) |
|
./pkg/thsice/thsice_get_precip.F |
154 |
THSICE_GET_PRECIP |
& *( cheapPrecip(i,j,bi,bj) - snowPrc(i,j) ) |
|
./pkg/thsice/thsice_get_precip.F |
72 |
THSICE_GET_PRECIP |
INTEGER i,j |
|
./pkg/thsice/thsice_get_precip.F |
78 |
THSICE_GET_PRECIP |
DO i = iMin, iMax |
|
./pkg/thsice/thsice_get_precip.F |
79 |
THSICE_GET_PRECIP |
precip(i,j) = ( rain(i,j,bi,bj)+runoff(i,j,bi,bj) )*rhofw |
|
./pkg/thsice/thsice_get_precip.F |
80 |
THSICE_GET_PRECIP |
flxSW (i,j) = solar(i,j,bi,bj) |
|
./pkg/thsice/thsice_get_precip.F |
89 |
THSICE_GET_PRECIP |
DO i = iMin, iMax |
|
./pkg/thsice/thsice_get_precip.F |
90 |
THSICE_GET_PRECIP |
IF ( iceMsk(i,j,bi,bj).GT.0. _d 0 |
|
./pkg/thsice/thsice_get_precip.F |
91 |
THSICE_GET_PRECIP |
& .AND. Tair(i,j,bi,bj).LE.Tf0kel ) THEN |
|
./pkg/thsice/thsice_get_precip.F |
92 |
THSICE_GET_PRECIP |
snowPrc(i,j) = rain(i,j,bi,bj)*rhofw |
|
./pkg/thsice/thsice_get_velocity.F |
58 |
THSICE_GET_VELOCITY |
INTEGER i, j |
|
./pkg/thsice/thsice_get_velocity.F |
67 |
THSICE_GET_VELOCITY |
DO i=1-OLx,sNx+OLx |
|
./pkg/thsice/thsice_get_velocity.F |
68 |
THSICE_GET_VELOCITY |
uLoc(i,j) = UICE(i,j,bi,bj) |
|
./pkg/thsice/thsice_get_velocity.F |
69 |
THSICE_GET_VELOCITY |
vLoc(i,j) = VICE(i,j,bi,bj) |
|
./pkg/thsice/thsice_get_velocity.F |
78 |
THSICE_GET_VELOCITY |
DO i=1-OLx,sNx+OLx |
|
./pkg/thsice/thsice_get_velocity.F |
79 |
THSICE_GET_VELOCITY |
uLoc(i,j) = 0. |
|
./pkg/thsice/thsice_get_velocity.F |
80 |
THSICE_GET_VELOCITY |
vLoc(i,j) = 0. |
|
./pkg/thsice/thsice_impl_temp.F |
57 |
THSICE_IMPL_TEMP |
INTEGER i,j |
|
./pkg/thsice/thsice_impl_temp.F |
82 |
THSICE_IMPL_TEMP |
DO i = iMin, iMax |
|
./pkg/thsice/thsice_impl_temp.F |
83 |
THSICE_IMPL_TEMP |
icFlxSW(i,j,bi,bj) = netSW(i,j) |
|
./pkg/thsice/thsice_impl_temp.F |
84 |
THSICE_IMPL_TEMP |
IF (iceMask(i,j,bi,bj).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_impl_temp.F |
85 |
THSICE_IMPL_TEMP |
tFrzOce(i,j) = -mu_Tf*sOceMxL(i,j,bi,bj) |
|
./pkg/thsice/thsice_impl_temp.F |
87 |
THSICE_IMPL_TEMP |
IF ( dBug(i,j,bi,bj) ) THEN |
|
./pkg/thsice/thsice_impl_temp.F |
88 |
THSICE_IMPL_TEMP |
WRITE(6,'(A,2I4,2I2)') 'ThSI_IMPL_T: i,j=',i,j,bi,bj |
|
./pkg/thsice/thsice_impl_temp.F |
90 |
THSICE_IMPL_TEMP |
& iceMask(i,j,bi,bj), iceHeight(i,j,bi,bj), |
|
./pkg/thsice/thsice_impl_temp.F |
91 |
THSICE_IMPL_TEMP |
& snowHeight(i,j,bi,bj), Tsrf(i,j,bi,bj) |
|
./pkg/thsice/thsice_impl_temp.F |
93 |
THSICE_IMPL_TEMP |
& Tice1(i,j,bi,bj), Tice2(i,j,bi,bj), |
|
./pkg/thsice/thsice_impl_temp.F |
94 |
THSICE_IMPL_TEMP |
& Qice1(i,j,bi,bj), Qice2(i,j,bi,bj) |
|
./pkg/thsice/thsice_ini_vars.F |
100 |
THSICE_INI_VARS |
& hOceMxL(i,j,bi,bj) = 0. |
|
./pkg/thsice/thsice_ini_vars.F |
150 |
THSICE_INI_VARS |
DO i=1-OLx,sNx+OLx |
|
./pkg/thsice/thsice_ini_vars.F |
151 |
THSICE_INI_VARS |
IF (iceMask(i,j,bi,bj) .NE. 0. _d 0) THEN |
|
./pkg/thsice/thsice_ini_vars.F |
152 |
THSICE_INI_VARS |
Qice1(i,j,bi,bj) = -cpWater*Tmlt1 |
|
./pkg/thsice/thsice_ini_vars.F |
154 |
THSICE_INI_VARS |
Qice2(i,j,bi,bj) = -cpIce *Tf + Lfresh |
|
./pkg/thsice/thsice_ini_vars.F |
178 |
THSICE_INI_VARS |
DO i=1-OLx,sNx+OLx |
|
./pkg/thsice/thsice_ini_vars.F |
179 |
THSICE_INI_VARS |
sIceLoad(i,j,bi,bj) = ( snowHeight(i,j,bi,bj)*rhos |
|
./pkg/thsice/thsice_ini_vars.F |
180 |
THSICE_INI_VARS |
& + iceHeight(i,j,bi,bj)*rhoi |
|
./pkg/thsice/thsice_ini_vars.F |
181 |
THSICE_INI_VARS |
& )*iceMask(i,j,bi,bj) |
|
./pkg/thsice/thsice_ini_vars.F |
46 |
THSICE_INI_VARS |
INTEGER i, j |
|
./pkg/thsice/thsice_ini_vars.F |
56 |
THSICE_INI_VARS |
DO i=1-OLx,sNx+OLx |
|
./pkg/thsice/thsice_ini_vars.F |
57 |
THSICE_INI_VARS |
iceMask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
58 |
THSICE_INI_VARS |
iceHeight(i,j,bi,bj)= 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
59 |
THSICE_INI_VARS |
snowHeight(i,j,bi,bj)=0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
60 |
THSICE_INI_VARS |
Tsrf(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
61 |
THSICE_INI_VARS |
Tice1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
62 |
THSICE_INI_VARS |
Tice2(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
63 |
THSICE_INI_VARS |
Qice1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
64 |
THSICE_INI_VARS |
Qice2(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
65 |
THSICE_INI_VARS |
snowAge(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
70 |
THSICE_INI_VARS |
DO i=1-OLx,sNx+OLx |
|
./pkg/thsice/thsice_ini_vars.F |
71 |
THSICE_INI_VARS |
sHeating(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
72 |
THSICE_INI_VARS |
flxCndBt(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
73 |
THSICE_INI_VARS |
siceAlb(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
74 |
THSICE_INI_VARS |
icFlxSW (i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
75 |
THSICE_INI_VARS |
icFlxAtm(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
76 |
THSICE_INI_VARS |
icFrwAtm(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
78 |
THSICE_INI_VARS |
oceFWfx(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
79 |
THSICE_INI_VARS |
oceSflx(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
80 |
THSICE_INI_VARS |
oceQnet(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
86 |
THSICE_INI_VARS |
DO i=1-OLx,sNx+OLx |
|
./pkg/thsice/thsice_ini_vars.F |
87 |
THSICE_INI_VARS |
hOceMxL(i,j,bi,bj) = hMxL_default |
|
./pkg/thsice/thsice_ini_vars.F |
88 |
THSICE_INI_VARS |
tOceMxL(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
89 |
THSICE_INI_VARS |
sOceMxL(i,j,bi,bj) = sMxL_default |
|
./pkg/thsice/thsice_ini_vars.F |
90 |
THSICE_INI_VARS |
v2ocMxL(i,j,bi,bj) = v2Loc |
|
./pkg/thsice/thsice_ini_vars.F |
98 |
THSICE_INI_VARS |
DO i=1-OLx,sNx+OLx |
|
./pkg/thsice/thsice_ini_vars.F |
99 |
THSICE_INI_VARS |
IF ( aim_landFr(i,j,bi,bj).EQ.1. _d 0 ) |
|
./model/src/ini_nh_vars.F |
39 |
INI_NH_VARS |
INTEGER i, j, k |
|
./model/src/ini_nh_vars.F |
47 |
INI_NH_VARS |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_nh_vars.F |
48 |
INI_NH_VARS |
dPhiNH(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_nh_vars.F |
53 |
INI_NH_VARS |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_nh_vars.F |
54 |
INI_NH_VARS |
phi_nh(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_nh_vars.F |
55 |
INI_NH_VARS |
gW (i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_nh_vars.F |
57 |
INI_NH_VARS |
gWnm (i,j,k,bi,bj,1) = 0. _d 0 |
|
./model/src/ini_nh_vars.F |
58 |
INI_NH_VARS |
gWnm (i,j,k,bi,bj,2) = 0. _d 0 |
|
./model/src/ini_nh_vars.F |
60 |
INI_NH_VARS |
gWnm1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_main.F |
111 |
THSICE_MAIN |
DO i=1-OLx,sNx+OLx |
|
./pkg/thsice/thsice_main.F |
112 |
THSICE_MAIN |
prcAtm (i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_main.F |
113 |
THSICE_MAIN |
snowPr (i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_main.F |
114 |
THSICE_MAIN |
qPrcRn (i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_main.F |
229 |
THSICE_MAIN |
DO i=1,sNx |
|
./pkg/thsice/thsice_main.F |
230 |
THSICE_MAIN |
sIceLoad(i,j,bi,bj) = ( snowHeight(i,j,bi,bj)*rhos |
|
./pkg/thsice/thsice_main.F |
231 |
THSICE_MAIN |
& + iceHeight(i,j,bi,bj)*rhoi |
|
./pkg/thsice/thsice_main.F |
232 |
THSICE_MAIN |
& )*iceMask(i,j,bi,bj) |
|
./pkg/thsice/thsice_main.F |
310 |
THSICE_MAIN |
DO i = 2-OLx,sNx+OLx-1 |
|
./pkg/thsice/thsice_main.F |
312 |
THSICE_MAIN |
& *(iceMask(i-1,j,bi,bj)+iceMask(i,j,bi,bj))*0.5 _d 0 |
|
./pkg/thsice/thsice_main.F |
313 |
THSICE_MAIN |
fu(i,j,bi,bj) = (1. _d 0 - tauFac)*fu(i,j,bi,bj) |
|
./pkg/thsice/thsice_main.F |
317 |
THSICE_MAIN |
DO i = 1-OLx,sNx+OLx-1 |
|
./pkg/thsice/thsice_main.F |
319 |
THSICE_MAIN |
& *(iceMask(i,j-1,bi,bj)+iceMask(i,j,bi,bj))*0.5 _d 0 |
|
./pkg/thsice/thsice_main.F |
320 |
THSICE_MAIN |
fv(i,j,bi,bj) = (1. _d 0 - tauFac)*fv(i,j,bi,bj) |
|
./pkg/thsice/thsice_main.F |
64 |
THSICE_MAIN |
INTEGER i,j |
|
./pkg/thsice/thsice_map_exf.F |
100 |
THSICE_MAP_EXF |
& .AND. atemp(i,j,bi,bj).LE.cen2kel ) THEN |
|
./pkg/thsice/thsice_map_exf.F |
102 |
THSICE_MAP_EXF |
snowPrc(i,j) = precip(i,j,bi,bj)*rhoConstFresh |
|
./pkg/thsice/thsice_map_exf.F |
114 |
THSICE_MAP_EXF |
DO i = iMin, iMax |
|
./pkg/thsice/thsice_map_exf.F |
115 |
THSICE_MAP_EXF |
qPrcRnO(i,j) = HeatCapacity_Cp |
|
./pkg/thsice/thsice_map_exf.F |
116 |
THSICE_MAP_EXF |
& *( atemp(i,j,bi,bj) - cen2kel - temp_EvPrRn ) |
|
./pkg/thsice/thsice_map_exf.F |
117 |
THSICE_MAP_EXF |
& *( precip(i,j,bi,bj)*rhoConstFresh - snowPrc(i,j) ) |
|
./pkg/thsice/thsice_map_exf.F |
120 |
THSICE_MAP_EXF |
qPrcRnO(i,j) = qPrcRnO(i,j) |
|
./pkg/thsice/thsice_map_exf.F |
122 |
THSICE_MAP_EXF |
& *( locSST(i,j,bi,bj) - temp_EvPrRn ) |
|
./pkg/thsice/thsice_map_exf.F |
123 |
THSICE_MAP_EXF |
& *runoff(i,j,bi,bj)*rhoConstFresh |
|
./pkg/thsice/thsice_map_exf.F |
67 |
THSICE_MAP_EXF |
INTEGER i,j |
|
./pkg/thsice/thsice_map_exf.F |
70 |
THSICE_MAP_EXF |
DO i = iMin, iMax |
|
./pkg/thsice/thsice_map_exf.F |
72 |
THSICE_MAP_EXF |
totPrc(i,j) = precip(i,j,bi,bj)*rhoConstFresh |
|
./pkg/thsice/thsice_map_exf.F |
75 |
THSICE_MAP_EXF |
totPrc(i,j) = totPrc(i,j) + runoff(i,j,bi,bj)*rhoConstFresh |
|
./pkg/thsice/thsice_map_exf.F |
80 |
THSICE_MAP_EXF |
flxSW (i,j) = swdown(i,j,bi,bj) |
|
./pkg/thsice/thsice_map_exf.F |
90 |
THSICE_MAP_EXF |
DO i = iMin, iMax |
|
./pkg/thsice/thsice_map_exf.F |
91 |
THSICE_MAP_EXF |
snowPrc(i,j) = snowPrecip(i,j,bi,bj)*rhoConstFresh |
|
./pkg/thsice/thsice_map_exf.F |
98 |
THSICE_MAP_EXF |
DO i = iMin, iMax |
|
./pkg/thsice/thsice_map_exf.F |
99 |
THSICE_MAP_EXF |
IF ( iceMsk(i,j,bi,bj).GT.0. _d 0 |
|
./pkg/thsice/thsice_monitor.F |
119 |
THSICE_MONITOR |
DO i=1-OLx,sNx+OLx |
|
./pkg/thsice/thsice_monitor.F |
120 |
THSICE_MONITOR |
locMask(i,j,bi,bj) = iceMask(i,j,bi,bj) |
|
./pkg/thsice/thsice_monitor.F |
195 |
THSICE_MONITOR |
DO i=1-OLx,sNx+OLx |
|
./pkg/thsice/thsice_monitor.F |
196 |
THSICE_MONITOR |
locMask(i,j,bi,bj)=iceMask(i,j,bi,bj)*iceHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_monitor.F |
59 |
THSICE_MONITOR |
INTEGER i,j,bi,bj |
|
./pkg/thsice/thsice_output.F |
193 |
THSICE_OUTPUT |
DO i = 1,MAX_LEN_MBUF |
|
./pkg/thsice/thsice_output.F |
194 |
THSICE_OUTPUT |
mncf(i:i) = ' ' |
|
./pkg/thsice/thsice_output.F |
321 |
THSICE_OUTPUT |
DO i = 1,MAX_LEN_MBUF |
|
./pkg/thsice/thsice_output.F |
322 |
THSICE_OUTPUT |
mncf(i:i) = ' ' |
|
./pkg/thsice/thsice_output.F |
55 |
THSICE_OUTPUT |
INTEGER i |
|
./pkg/thsice/thsice_salt_plume.F |
109 |
THSICE_SALT_PLUME |
DO i=1,sNx |
|
./pkg/thsice/thsice_salt_plume.F |
110 |
THSICE_SALT_PLUME |
saltPlmFlx_cpl(i,j,bi,bj) = saltPlmFlx_cpl(i,j,bi,bj) |
|
./pkg/thsice/thsice_salt_plume.F |
111 |
THSICE_SALT_PLUME |
& + locVar(i,j)*cplTimeFraction |
|
./pkg/thsice/thsice_salt_plume.F |
63 |
THSICE_SALT_PLUME |
INTEGER i,j |
|
./pkg/thsice/thsice_salt_plume.F |
77 |
THSICE_SALT_PLUME |
DO i=1-OLx,sNx+OLx |
|
./pkg/thsice/thsice_salt_plume.F |
78 |
THSICE_SALT_PLUME |
locVar(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_salt_plume.F |
83 |
THSICE_SALT_PLUME |
DO i = iMin, iMax |
|
./pkg/thsice/thsice_salt_plume.F |
84 |
THSICE_SALT_PLUME |
locVar(i,j) = frzSeaWat(i,j)*( sOce(i,j) - saltIce ) |
|
./pkg/thsice/thsice_salt_plume.F |
94 |
THSICE_SALT_PLUME |
DO i=1-OLx,sNx+OLx |
|
./pkg/thsice/thsice_salt_plume.F |
95 |
THSICE_SALT_PLUME |
saltPlumeFlux(i,j,bi,bj) = locVar(i,j)*SPsalFRAC |
|
./pkg/thsice/thsice_slab_ocean.F |
110 |
THSICE_SLAB_OCEAN |
DO i=1,sNx |
|
./pkg/thsice/thsice_slab_ocean.F |
111 |
THSICE_SLAB_OCEAN |
IF ( hOceMxL(i,j,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_slab_ocean.F |
112 |
THSICE_SLAB_OCEAN |
oceTfreez = -mu_Tf*sOceMxL(i,j,bi,bj) |
|
./pkg/thsice/thsice_slab_ocean.F |
113 |
THSICE_SLAB_OCEAN |
locTemp = ( aim_sWght0*aim_sst0(i,j,bi,bj) |
|
./pkg/thsice/thsice_slab_ocean.F |
114 |
THSICE_SLAB_OCEAN |
& + aim_sWght1*aim_sst1(i,j,bi,bj) |
|
./pkg/thsice/thsice_slab_ocean.F |
117 |
THSICE_SLAB_OCEAN |
tOceMxL(i,j,bi,bj) = |
|
./pkg/thsice/thsice_slab_ocean.F |
118 |
THSICE_SLAB_OCEAN |
& (tOceMxL(i,j,bi,bj) + dtFac*locTemp)*dtFacR |
|
./pkg/thsice/thsice_slab_ocean.F |
124 |
THSICE_SLAB_OCEAN |
DO i=1,sNx |
|
./pkg/thsice/thsice_slab_ocean.F |
125 |
THSICE_SLAB_OCEAN |
IF ( hOceMxL(i,j,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_slab_ocean.F |
126 |
THSICE_SLAB_OCEAN |
locQflux = ( aim_sWght0*aim_qfx0(i,j,bi,bj) |
|
./pkg/thsice/thsice_slab_ocean.F |
127 |
THSICE_SLAB_OCEAN |
& + aim_sWght1*aim_qfx1(i,j,bi,bj) |
|
./pkg/thsice/thsice_slab_ocean.F |
129 |
THSICE_SLAB_OCEAN |
tOceMxL(i,j,bi,bj) = tOceMxL(i,j,bi,bj) |
|
./pkg/thsice/thsice_slab_ocean.F |
130 |
THSICE_SLAB_OCEAN |
& + heatFac*locQflux / hOceMxL(i,j,bi,bj) |
|
./pkg/thsice/thsice_slab_ocean.F |
138 |
THSICE_SLAB_OCEAN |
DO i=1,sNx |
|
./pkg/thsice/thsice_slab_ocean.F |
139 |
THSICE_SLAB_OCEAN |
IF ( hOceMxL(i,j,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_slab_ocean.F |
140 |
THSICE_SLAB_OCEAN |
dTsurf(i,j) = tOceMxL(i,j,bi,bj) - dTsurf(i,j) |
|
./pkg/thsice/thsice_slab_ocean.F |
67 |
THSICE_SLAB_OCEAN |
INTEGER i,j |
|
./pkg/thsice/thsice_slab_ocean.F |
78 |
THSICE_SLAB_OCEAN |
DO i=1,sNx |
|
./pkg/thsice/thsice_slab_ocean.F |
79 |
THSICE_SLAB_OCEAN |
IF ( hOceMxL(i,j,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_slab_ocean.F |
80 |
THSICE_SLAB_OCEAN |
dTsurf(i,j) = tOceMxL(i,j,bi,bj) |
|
./pkg/thsice/thsice_slab_ocean.F |
81 |
THSICE_SLAB_OCEAN |
tOceMxL(i,j,bi,bj) = tOceMxL(i,j,bi,bj) |
|
./pkg/thsice/thsice_slab_ocean.F |
82 |
THSICE_SLAB_OCEAN |
& - heatFac*Qnet(i,j,bi,bj) / hOceMxL(i,j,bi,bj) |
|
./pkg/thsice/thsice_slab_ocean.F |
83 |
THSICE_SLAB_OCEAN |
sOceMxL(i,j,bi,bj) = sOceMxL(i,j,bi,bj) |
|
./pkg/thsice/thsice_slab_ocean.F |
84 |
THSICE_SLAB_OCEAN |
& + (fwFac*EmPmR(i,j,bi,bj) - dtFac*saltFlux(i,j,bi,bj)) |
|
./pkg/thsice/thsice_slab_ocean.F |
85 |
THSICE_SLAB_OCEAN |
& / hOceMxL(i,j,bi,bj) |
|
./pkg/thsice/thsice_slab_ocean.F |
96 |
THSICE_SLAB_OCEAN |
DO i=1,sNx |
|
./pkg/thsice/thsice_slab_ocean.F |
97 |
THSICE_SLAB_OCEAN |
IF ( hOceMxL(i,j,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_slab_ocean.F |
98 |
THSICE_SLAB_OCEAN |
sOceMxL(i,j,bi,bj) = |
|
./pkg/thsice/thsice_slab_ocean.F |
99 |
THSICE_SLAB_OCEAN |
& (sOceMxL(i,j,bi,bj) + dtFac*sMxL_default)*dtFacR |
|
./model/src/ini_nlfs_vars.F |
105 |
INI_NLFS_VARS |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_nlfs_vars.F |
106 |
INI_NLFS_VARS |
etaHw (i,j,bi,bj) = 0. |
|
./model/src/ini_nlfs_vars.F |
107 |
INI_NLFS_VARS |
etaHs (i,j,bi,bj) = 0. |
|
./model/src/ini_nlfs_vars.F |
108 |
INI_NLFS_VARS |
dEtaWdt(i,j,bi,bj) = 0. |
|
./model/src/ini_nlfs_vars.F |
109 |
INI_NLFS_VARS |
dEtaSdt(i,j,bi,bj) = 0. |
|
./model/src/ini_nlfs_vars.F |
116 |
INI_NLFS_VARS |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_nlfs_vars.F |
117 |
INI_NLFS_VARS |
hFacC(i,j,k,bi,bj) = h0FacC(i,j,k,bi,bj) |
|
./model/src/ini_nlfs_vars.F |
118 |
INI_NLFS_VARS |
hFacW(i,j,k,bi,bj) = h0FacW(i,j,k,bi,bj) |
|
./model/src/ini_nlfs_vars.F |
119 |
INI_NLFS_VARS |
hFacS(i,j,k,bi,bj) = h0FacS(i,j,k,bi,bj) |
|
./model/src/ini_nlfs_vars.F |
139 |
INI_NLFS_VARS |
DO i=1,sNx |
|
./model/src/ini_nlfs_vars.F |
140 |
INI_NLFS_VARS |
ks = kSurfC(i,j,bi,bj) |
|
./model/src/ini_nlfs_vars.F |
143 |
INI_NLFS_VARS |
IF ( ks.EQ.kSurfW(i,j,bi,bj)) |
|
./model/src/ini_nlfs_vars.F |
144 |
INI_NLFS_VARS |
& Rmin_tmp = MAX(Rmin_tmp, R_low(i-1,j,bi,bj)) |
|
./model/src/ini_nlfs_vars.F |
145 |
INI_NLFS_VARS |
IF ( ks.EQ.kSurfW(i+1,j,bi,bj)) |
|
./model/src/ini_nlfs_vars.F |
146 |
INI_NLFS_VARS |
& Rmin_tmp = MAX(Rmin_tmp, R_low(i+1,j,bi,bj)) |
|
./model/src/ini_nlfs_vars.F |
147 |
INI_NLFS_VARS |
IF ( ks.EQ.kSurfS(i,j,bi,bj)) |
|
./model/src/ini_nlfs_vars.F |
148 |
INI_NLFS_VARS |
& Rmin_tmp = MAX(Rmin_tmp, R_low(i,j-1,bi,bj)) |
|
./model/src/ini_nlfs_vars.F |
149 |
INI_NLFS_VARS |
IF ( ks.EQ.kSurfS(i,j+1,bi,bj)) |
|
./model/src/ini_nlfs_vars.F |
150 |
INI_NLFS_VARS |
& Rmin_tmp = MAX(Rmin_tmp, R_low(i,j+1,bi,bj)) |
|
./model/src/ini_nlfs_vars.F |
152 |
INI_NLFS_VARS |
Rmin_surf(i,j,bi,bj) = |
|
./model/src/ini_nlfs_vars.F |
153 |
INI_NLFS_VARS |
& MAX( MAX(rF(ks+1),R_low(i,j,bi,bj)) + hFacInf*drF(ks), |
|
./model/src/ini_nlfs_vars.F |
38 |
INI_NLFS_VARS |
INTEGER i, j |
|
./model/src/ini_nlfs_vars.F |
43 |
INI_NLFS_VARS |
INTEGER i, j |
|
./model/src/ini_nlfs_vars.F |
62 |
INI_NLFS_VARS |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_nlfs_vars.F |
63 |
INI_NLFS_VARS |
etaHnm1(i,j,bi,bj) = 0. |
|
./model/src/ini_nlfs_vars.F |
64 |
INI_NLFS_VARS |
dEtaHdt(i,j,bi,bj) = 0. |
|
./model/src/ini_nlfs_vars.F |
65 |
INI_NLFS_VARS |
PmEpR (i,j,bi,bj) = 0. |
|
./model/src/ini_nlfs_vars.F |
73 |
INI_NLFS_VARS |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_nlfs_vars.F |
74 |
INI_NLFS_VARS |
hFac_surfC(i,j,bi,bj) = 0. |
|
./model/src/ini_nlfs_vars.F |
75 |
INI_NLFS_VARS |
hFac_surfW(i,j,bi,bj) = 0. |
|
./model/src/ini_nlfs_vars.F |
76 |
INI_NLFS_VARS |
hFac_surfS(i,j,bi,bj) = 0. |
|
./model/src/ini_nlfs_vars.F |
77 |
INI_NLFS_VARS |
hFac_surfNm1C(i,j,bi,bj) = 0. |
|
./model/src/ini_nlfs_vars.F |
78 |
INI_NLFS_VARS |
hFac_surfNm1W(i,j,bi,bj) = 0. |
|
./model/src/ini_nlfs_vars.F |
79 |
INI_NLFS_VARS |
hFac_surfNm1S(i,j,bi,bj) = 0. |
|
./model/src/ini_nlfs_vars.F |
80 |
INI_NLFS_VARS |
Rmin_surf(i,j,bi,bj) = Ro_surf(i,j,bi,bj) |
|
./model/src/ini_nlfs_vars.F |
86 |
INI_NLFS_VARS |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_nlfs_vars.F |
87 |
INI_NLFS_VARS |
rStarFacC(i,j,bi,bj) = 1. |
|
./model/src/ini_nlfs_vars.F |
88 |
INI_NLFS_VARS |
rStarFacW(i,j,bi,bj) = 1. |
|
./model/src/ini_nlfs_vars.F |
89 |
INI_NLFS_VARS |
rStarFacS(i,j,bi,bj) = 1. |
|
./model/src/ini_nlfs_vars.F |
90 |
INI_NLFS_VARS |
pStarFacK(i,j,bi,bj) = 1. |
|
./model/src/ini_nlfs_vars.F |
91 |
INI_NLFS_VARS |
rStarFacNm1C(i,j,bi,bj) = 1. |
|
./model/src/ini_nlfs_vars.F |
92 |
INI_NLFS_VARS |
rStarFacNm1W(i,j,bi,bj) = 1. |
|
./model/src/ini_nlfs_vars.F |
93 |
INI_NLFS_VARS |
rStarFacNm1S(i,j,bi,bj) = 1. |
|
./model/src/ini_nlfs_vars.F |
94 |
INI_NLFS_VARS |
rStarExpC(i,j,bi,bj) = 1. |
|
./model/src/ini_nlfs_vars.F |
95 |
INI_NLFS_VARS |
rStarExpW(i,j,bi,bj) = 1. |
|
./model/src/ini_nlfs_vars.F |
96 |
INI_NLFS_VARS |
rStarExpS(i,j,bi,bj) = 1. |
|
./model/src/ini_nlfs_vars.F |
97 |
INI_NLFS_VARS |
rStarDhCDt(i,j,bi,bj) = 0. |
|
./model/src/ini_nlfs_vars.F |
98 |
INI_NLFS_VARS |
rStarDhWDt(i,j,bi,bj) = 0. |
|
./model/src/ini_nlfs_vars.F |
99 |
INI_NLFS_VARS |
rStarDhSDt(i,j,bi,bj) = 0. |
|
./pkg/thsice/thsice_solve4temp.F |
156 |
THSICE_SOLVE4TEMP |
INTEGER i, j, k, iterMax |
|
./pkg/thsice/thsice_solve4temp.F |
210 |
THSICE_SOLVE4TEMP |
DO i = 1-OLx, sNx+OLx |
|
./pkg/thsice/thsice_solve4temp.F |
211 |
THSICE_SOLVE4TEMP |
tIc1(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_solve4temp.F |
212 |
THSICE_SOLVE4TEMP |
tIc2(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_solve4temp.F |
215 |
THSICE_SOLVE4TEMP |
flx0exSW(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_solve4temp.F |
216 |
THSICE_SOLVE4TEMP |
flxTexSW(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_solve4temp.F |
217 |
THSICE_SOLVE4TEMP |
dFlxdT (i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_solve4temp.F |
218 |
THSICE_SOLVE4TEMP |
evap00 (i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_solve4temp.F |
219 |
THSICE_SOLVE4TEMP |
evapT (i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_solve4temp.F |
220 |
THSICE_SOLVE4TEMP |
dEvdT (i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_solve4temp.F |
221 |
THSICE_SOLVE4TEMP |
iceFlag (i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_solve4temp.F |
222 |
THSICE_SOLVE4TEMP |
Tsf (i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_solve4temp.F |
240 |
THSICE_SOLVE4TEMP |
DO i = iMin, iMax |
|
./pkg/thsice/thsice_solve4temp.F |
242 |
THSICE_SOLVE4TEMP |
ikey_1 = i |
|
./pkg/thsice/thsice_solve4temp.F |
254 |
THSICE_SOLVE4TEMP |
IF ( icMask(i,j).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_solve4temp.F |
256 |
THSICE_SOLVE4TEMP |
iceFlag(i,j) = 1. _d 0 |
|
./pkg/thsice/thsice_solve4temp.F |
258 |
THSICE_SOLVE4TEMP |
IF ( dBug(i,j,bi,bj) ) WRITE(stdUnit,'(A,2I4,2I2)') |
|
./pkg/thsice/thsice_solve4temp.F |
259 |
THSICE_SOLVE4TEMP |
& 'ThSI_SOLVE4T: i,j=',i,j,bi,bj |
|
./pkg/thsice/thsice_solve4temp.F |
261 |
THSICE_SOLVE4TEMP |
IF ( hIce(i,j).LT.hIceMin ) THEN |
|
./pkg/thsice/thsice_solve4temp.F |
264 |
THSICE_SOLVE4TEMP |
ii = i |
|
./pkg/thsice/thsice_solve4temp.F |
273 |
THSICE_SOLVE4TEMP |
IF ( hSnow1(i,j) .GT. icMask(i,j)*dhSnowLin ) THEN |
|
./pkg/thsice/thsice_solve4temp.F |
276 |
THSICE_SOLVE4TEMP |
frsnow = hSnow1(i,j)*recip_dhSnowLin/icMask(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
281 |
THSICE_SOLVE4TEMP |
fswpen = flxSW(i,j) * (1. _d 0 - frsnow) * i0swFrac |
|
./pkg/thsice/thsice_solve4temp.F |
282 |
THSICE_SOLVE4TEMP |
fswocn = fswpen * exp(-ksolar*hIce(i,j)) |
|
./pkg/thsice/thsice_solve4temp.F |
284 |
THSICE_SOLVE4TEMP |
fswdn = flxSW(i,j) - fswpen |
|
./pkg/thsice/thsice_solve4temp.F |
287 |
THSICE_SOLVE4TEMP |
flxAtm(i,j) = flxSW(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
289 |
THSICE_SOLVE4TEMP |
flxSW(i,j) = fswocn |
|
./pkg/thsice/thsice_solve4temp.F |
291 |
THSICE_SOLVE4TEMP |
sHeat(i,j) = fswdn |
|
./pkg/thsice/thsice_solve4temp.F |
294 |
THSICE_SOLVE4TEMP |
k12(i,j) = 4. _d 0*kIce*kSnow |
|
./pkg/thsice/thsice_solve4temp.F |
295 |
THSICE_SOLVE4TEMP |
& / (kSnow*hIce(i,j) + 4. _d 0*kIce*hSnow1(i,j)) |
|
./pkg/thsice/thsice_solve4temp.F |
296 |
THSICE_SOLVE4TEMP |
k32 = 2. _d 0*kIce / hIce(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
300 |
THSICE_SOLVE4TEMP |
b1 = qIc1(i,j) + (cpWater-cpIce )*Tmlt1 - Lfresh |
|
./pkg/thsice/thsice_solve4temp.F |
302 |
THSICE_SOLVE4TEMP |
tIc1(i,j) = 0.5 _d 0 *(-b1 - SQRT(b1*b1-4. _d 0*a1*c1))/a1 |
|
./pkg/thsice/thsice_solve4temp.F |
303 |
THSICE_SOLVE4TEMP |
tIc2(i,j) = (Lfresh-qIc2(i,j)) / cpIce |
|
./pkg/thsice/thsice_solve4temp.F |
306 |
THSICE_SOLVE4TEMP |
IF (tIc1(i,j).GT.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_solve4temp.F |
308 |
THSICE_SOLVE4TEMP |
& ' BBerr: Tice(1) > 0 ; it=', myIter, qIc1(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
310 |
THSICE_SOLVE4TEMP |
& ' BBerr: i,j,bi,bj,Tice = ',i,j,bi,bj,tIc1(i,j),tIc2(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
312 |
THSICE_SOLVE4TEMP |
IF ( tIc2(i,j).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_solve4temp.F |
314 |
THSICE_SOLVE4TEMP |
& ' BBerr: Tice(2) > 0 ; it=', myIter, qIc2(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
316 |
THSICE_SOLVE4TEMP |
& ' BBerr: i,j,bi,bj,Tice = ',i,j,bi,bj,tIc1(i,j),tIc2(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
318 |
THSICE_SOLVE4TEMP |
IF ( dBug(i,j,bi,bj) ) WRITE(stdUnit,1010) |
|
./pkg/thsice/thsice_solve4temp.F |
319 |
THSICE_SOLVE4TEMP |
& 'ThSI_SOLVE4T: k, Ts, Tice=',0,tSrf1(i,j),tIc1(i,j),tIc2(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
324 |
THSICE_SOLVE4TEMP |
a10(i,j) = rhoi*cpIce *hIce(i,j)/(2. _d 0*dt) + |
|
./pkg/thsice/thsice_solve4temp.F |
325 |
THSICE_SOLVE4TEMP |
& k32*( 4. _d 0*dt*k32 + rhoi*cpIce *hIce(i,j) ) |
|
./pkg/thsice/thsice_solve4temp.F |
326 |
THSICE_SOLVE4TEMP |
& / ( 6. _d 0*dt*k32 + rhoi*cpIce *hIce(i,j) ) |
|
./pkg/thsice/thsice_solve4temp.F |
327 |
THSICE_SOLVE4TEMP |
b10(i,j) = -hIce(i,j)* |
|
./pkg/thsice/thsice_solve4temp.F |
328 |
THSICE_SOLVE4TEMP |
& ( rhoi*cpIce*tIc1(i,j) + rhoi*Lfresh*Tmlt1/tIc1(i,j) ) |
|
./pkg/thsice/thsice_solve4temp.F |
330 |
THSICE_SOLVE4TEMP |
& - k32*( 4. _d 0*dt*k32*tFrz(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
331 |
THSICE_SOLVE4TEMP |
& +rhoi*cpIce*hIce(i,j)*tIc2(i,j) ) |
|
./pkg/thsice/thsice_solve4temp.F |
332 |
THSICE_SOLVE4TEMP |
& / ( 6. _d 0*dt*k32 + rhoi*cpIce *hIce(i,j) ) |
|
./pkg/thsice/thsice_solve4temp.F |
334 |
THSICE_SOLVE4TEMP |
c10(i,j) = rhoi*Lfresh*hIce(i,j)*Tmlt1 / (2. _d 0*dt) |
|
./pkg/thsice/thsice_solve4temp.F |
337 |
THSICE_SOLVE4TEMP |
iceFlag(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_solve4temp.F |
370 |
THSICE_SOLVE4TEMP |
DO i = iMin, iMax |
|
./pkg/thsice/thsice_solve4temp.F |
371 |
THSICE_SOLVE4TEMP |
Tsf(i,j) = 0. |
|
./pkg/thsice/thsice_solve4temp.F |
401 |
THSICE_SOLVE4TEMP |
DO i = iMin, iMax |
|
./pkg/thsice/thsice_solve4temp.F |
402 |
THSICE_SOLVE4TEMP |
Tsf(i,j) = tSrf1(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
403 |
THSICE_SOLVE4TEMP |
dTsrf1(i,j) = Terrmax |
|
./pkg/thsice/thsice_solve4temp.F |
457 |
THSICE_SOLVE4TEMP |
DO i = iMin, iMax |
|
./pkg/thsice/thsice_solve4temp.F |
458 |
THSICE_SOLVE4TEMP |
IF ( iceFlag(i,j).GT.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_solve4temp.F |
459 |
THSICE_SOLVE4TEMP |
flxTexSW(i,j) = flxExSW(i,j,1) |
|
./pkg/thsice/thsice_solve4temp.F |
460 |
THSICE_SOLVE4TEMP |
dFlxdT(i,j) = flxExSW(i,j,2) |
|
./pkg/thsice/thsice_solve4temp.F |
480 |
THSICE_SOLVE4TEMP |
DO i = iMin, iMax |
|
./pkg/thsice/thsice_solve4temp.F |
481 |
THSICE_SOLVE4TEMP |
IF ( iceFlag(i,j).GT.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_solve4temp.F |
482 |
THSICE_SOLVE4TEMP |
flxNet = sHeat(i,j) + flxTexSW(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
484 |
THSICE_SOLVE4TEMP |
IF ( dBug(i,j,bi,bj) ) WRITE(stdUnit,1020) |
|
./pkg/thsice/thsice_solve4temp.F |
486 |
THSICE_SOLVE4TEMP |
& flxNet, dFlxdT(i,j), k12(i,j), k12(i,j)-dFlxdT(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
489 |
THSICE_SOLVE4TEMP |
a1 = a10(i,j) - k12(i,j)*dFlxdT(i,j) / (k12(i,j)-dFlxdT(i,j)) |
|
./pkg/thsice/thsice_solve4temp.F |
490 |
THSICE_SOLVE4TEMP |
b1 = b10(i,j) - k12(i,j)*(flxNet-dFlxdT(i,j)*Tsf(i,j)) |
|
./pkg/thsice/thsice_solve4temp.F |
491 |
THSICE_SOLVE4TEMP |
& /(k12(i,j)-dFlxdT(i,j)) |
|
./pkg/thsice/thsice_solve4temp.F |
492 |
THSICE_SOLVE4TEMP |
c1 = c10(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
493 |
THSICE_SOLVE4TEMP |
tIc1(i,j) = -(b1 + SQRT(b1*b1-4. _d 0*a1*c1))/(2. _d 0*a1) |
|
./pkg/thsice/thsice_solve4temp.F |
494 |
THSICE_SOLVE4TEMP |
dTsrf1(i,j) = (flxNet + k12(i,j)*(tIc1(i,j)-Tsf(i,j))) |
|
./pkg/thsice/thsice_solve4temp.F |
495 |
THSICE_SOLVE4TEMP |
& /(k12(i,j)-dFlxdT(i,j)) |
|
./pkg/thsice/thsice_solve4temp.F |
496 |
THSICE_SOLVE4TEMP |
Tsf(i,j) = Tsf(i,j) + dTsrf1(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
498 |
THSICE_SOLVE4TEMP |
IF ( Tsf(i,j) .GT. 0. _d 0 ) THEN |
|
./pkg/thsice/thsice_solve4temp.F |
500 |
THSICE_SOLVE4TEMP |
IF ( dBug(i,j,bi,bj) ) WRITE(stdUnit,1010) |
|
./pkg/thsice/thsice_solve4temp.F |
501 |
THSICE_SOLVE4TEMP |
& 'ThSI_SOLVE4T: k,ts,t1,dTs=',k,Tsf(i,j),tIc1(i,j),dTsrf1(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
503 |
THSICE_SOLVE4TEMP |
a1 = a10(i,j) + k12(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
505 |
THSICE_SOLVE4TEMP |
b1 = b10(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
506 |
THSICE_SOLVE4TEMP |
tIc1(i,j) = (-b1 - SQRT(b1*b1-4. _d 0*a1*c1))/(2. _d 0*a1) |
|
./pkg/thsice/thsice_solve4temp.F |
507 |
THSICE_SOLVE4TEMP |
Tsf(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_solve4temp.F |
511 |
THSICE_SOLVE4TEMP |
flxTexSW(i,j) = flx0exSW(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
512 |
THSICE_SOLVE4TEMP |
evapT(i,j) = evap00(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
513 |
THSICE_SOLVE4TEMP |
dTsrf1(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_solve4temp.F |
516 |
THSICE_SOLVE4TEMP |
flxTexSW(i,j) = flxExSW(i,j,0) |
|
./pkg/thsice/thsice_solve4temp.F |
517 |
THSICE_SOLVE4TEMP |
dTsrf1(i,j) = 1000. |
|
./pkg/thsice/thsice_solve4temp.F |
518 |
THSICE_SOLVE4TEMP |
dFlxdT(i,j) = 0. |
|
./pkg/thsice/thsice_solve4temp.F |
524 |
THSICE_SOLVE4TEMP |
IF (ABS(dTsrf1(i,j)).GE.Terrmax) THEN |
|
./pkg/thsice/thsice_solve4temp.F |
525 |
THSICE_SOLVE4TEMP |
iceFlag(i,j) = 1. _d 0 |
|
./pkg/thsice/thsice_solve4temp.F |
527 |
THSICE_SOLVE4TEMP |
iceFlag(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_solve4temp.F |
529 |
THSICE_SOLVE4TEMP |
iterate4Tsf = iterate4Tsf .OR. (iceFlag(i,j).GT.0. _d 0) |
|
./pkg/thsice/thsice_solve4temp.F |
537 |
THSICE_SOLVE4TEMP |
IF ( dBug(i,j,bi,bj) ) WRITE(stdUnit,1010) |
|
./pkg/thsice/thsice_solve4temp.F |
538 |
THSICE_SOLVE4TEMP |
& 'ThSI_SOLVE4T: k,ts,t1,dTs=', k,Tsf(i,j),tIc1(i,j),dTsrf1(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
540 |
THSICE_SOLVE4TEMP |
& (iceFlag(i,j).GT.0. _d 0) ) THEN |
|
./pkg/thsice/thsice_solve4temp.F |
542 |
THSICE_SOLVE4TEMP |
& ' BB: not converge: i,j,it,hi=',i,j,bi,bj,myIter,hIce(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
544 |
THSICE_SOLVE4TEMP |
& 'BB: not converge: Tsf, dTsf=', Tsf(i,j), dTsrf1(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
546 |
THSICE_SOLVE4TEMP |
& 'BB: not converge: flxNet,dFlxT=', flxNet, dFlxdT(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
547 |
THSICE_SOLVE4TEMP |
IF ( Tsf(i,j).LT.-70. _d 0 ) THEN |
|
./pkg/thsice/thsice_solve4temp.F |
549 |
THSICE_SOLVE4TEMP |
& 'THSICE_SOLVE4TEMP: Too low Tsf in', i, j, bi, bj, |
|
./pkg/thsice/thsice_solve4temp.F |
550 |
THSICE_SOLVE4TEMP |
& myIter, Tsf(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
571 |
THSICE_SOLVE4TEMP |
DO i = iMin, iMax |
|
./pkg/thsice/thsice_solve4temp.F |
572 |
THSICE_SOLVE4TEMP |
IF ( icMask(i,j).GT.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_solve4temp.F |
575 |
THSICE_SOLVE4TEMP |
k32 = 2. _d 0*kIce / hIce(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
576 |
THSICE_SOLVE4TEMP |
tIc2(i,j) = ( 2. _d 0*dt*k32*(tIc1(i,j)+2. _d 0*tFrz(i,j)) |
|
./pkg/thsice/thsice_solve4temp.F |
577 |
THSICE_SOLVE4TEMP |
& + rhoi*cpIce*hIce(i,j)*tIc2(i,j)) |
|
./pkg/thsice/thsice_solve4temp.F |
578 |
THSICE_SOLVE4TEMP |
& /(6. _d 0*dt*k32 + rhoi*cpIce*hIce(i,j)) |
|
./pkg/thsice/thsice_solve4temp.F |
580 |
THSICE_SOLVE4TEMP |
IF ( dBug(i,j,bi,bj) ) WRITE(stdUnit,1010) |
|
./pkg/thsice/thsice_solve4temp.F |
581 |
THSICE_SOLVE4TEMP |
& 'ThSI_SOLVE4T: k, Ts, Tice=',k,Tsf(i,j),tIc1(i,j),tIc2(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
582 |
THSICE_SOLVE4TEMP |
netSW = flxAtm(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
586 |
THSICE_SOLVE4TEMP |
tSrf1(i,j) = Tsf(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
587 |
THSICE_SOLVE4TEMP |
fct = k12(i,j)*(Tsf(i,j)-tIc1(i,j)) |
|
./pkg/thsice/thsice_solve4temp.F |
588 |
THSICE_SOLVE4TEMP |
flxCnB(i,j) = 4. _d 0*kIce *(tIc2(i,j)-tFrz(i,j))/hIce(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
589 |
THSICE_SOLVE4TEMP |
flxNet = sHeat(i,j) + flxTexSW(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
590 |
THSICE_SOLVE4TEMP |
flxNet = flxNet + dFlxdT(i,j)*dTsrf1(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
595 |
THSICE_SOLVE4TEMP |
evpAtm(i,j) = evapT(i,j) + dEvdT(i,j)*dTsrf1(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
599 |
THSICE_SOLVE4TEMP |
evpAtm(i,j) = 0. |
|
./pkg/thsice/thsice_solve4temp.F |
604 |
THSICE_SOLVE4TEMP |
flxAtm(i,j) = flxAtm(i,j) + flxTexSW(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
605 |
THSICE_SOLVE4TEMP |
& + dFlxdT(i,j)*dTsrf1(i,j) + evpAtm(i,j)*Lfresh |
|
./pkg/thsice/thsice_solve4temp.F |
607 |
THSICE_SOLVE4TEMP |
sHeat(i,j) = flxNet - fct |
|
./pkg/thsice/thsice_solve4temp.F |
610 |
THSICE_SOLVE4TEMP |
IF ( dBug(i,j,bi,bj) ) WRITE(stdUnit,1020) |
|
./pkg/thsice/thsice_solve4temp.F |
612 |
THSICE_SOLVE4TEMP |
& flxNet,fct,flxNet-fct,flxCnB(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
616 |
THSICE_SOLVE4TEMP |
qIc1(i,j) = -cpWater*Tmlt1 + cpIce *(Tmlt1-tIc1(i,j)) |
|
./pkg/thsice/thsice_solve4temp.F |
617 |
THSICE_SOLVE4TEMP |
& + Lfresh*(1. _d 0-Tmlt1/tIc1(i,j)) |
|
./pkg/thsice/thsice_solve4temp.F |
618 |
THSICE_SOLVE4TEMP |
qIc2(i,j) = -cpIce *tIc2(i,j) + Lfresh |
|
./pkg/thsice/thsice_solve4temp.F |
623 |
THSICE_SOLVE4TEMP |
IF (tIc1(i,j) .GE. Tmlt1) THEN |
|
./pkg/thsice/thsice_solve4temp.F |
625 |
THSICE_SOLVE4TEMP |
& ' BBerr - Bug: IceT(1) > Tmlt',i,j,bi,bj,tIc1(i,j),Tmlt1 |
|
./pkg/thsice/thsice_solve4temp.F |
627 |
THSICE_SOLVE4TEMP |
IF (tIc2(i,j) .GE. 0. _d 0) THEN |
|
./pkg/thsice/thsice_solve4temp.F |
629 |
THSICE_SOLVE4TEMP |
& ' BBerr - Bug: IceT(2) > 0',i,j,bi,bj,tIc2(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
632 |
THSICE_SOLVE4TEMP |
IF ( dBug(i,j,bi,bj) ) THEN |
|
./pkg/thsice/thsice_solve4temp.F |
634 |
THSICE_SOLVE4TEMP |
& Tsf(i,j), tIc1(i,j), tIc2(i,j), dTsrf1(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
636 |
THSICE_SOLVE4TEMP |
& sHeat(i,j), flxCnB(i,j), qIc1(i,j), qIc2(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
638 |
THSICE_SOLVE4TEMP |
& flxAtm(i,j), evpAtm(i,j), netSW, flxSW(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
646 |
THSICE_SOLVE4TEMP |
dTsrf1(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
104 |
THSICE_STEP_FWD |
INTEGER i,j |
|
./pkg/thsice/thsice_step_fwd.F |
130 |
THSICE_STEP_FWD |
DO i = 1-OLx, sNx+OLx |
|
./pkg/thsice/thsice_step_fwd.F |
131 |
THSICE_STEP_FWD |
isIceFree(i,j) = .FALSE. |
|
./pkg/thsice/thsice_step_fwd.F |
133 |
THSICE_STEP_FWD |
sFluxFromIce(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
135 |
THSICE_STEP_FWD |
saltFlux(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
137 |
THSICE_STEP_FWD |
frzSeaWat(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
139 |
THSICE_STEP_FWD |
iceFrac(i,j) = 0. |
|
./pkg/thsice/thsice_step_fwd.F |
142 |
THSICE_STEP_FWD |
flx2oc(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
143 |
THSICE_STEP_FWD |
frw2oc(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
144 |
THSICE_STEP_FWD |
fsalt (i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
163 |
THSICE_STEP_FWD |
DO i = iMin, iMax |
|
./pkg/thsice/thsice_step_fwd.F |
164 |
THSICE_STEP_FWD |
IF (iceMask(i,j,bi,bj).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_step_fwd.F |
166 |
THSICE_STEP_FWD |
snowAge(i,j,bi,bj) = thSIce_deltaT |
|
./pkg/thsice/thsice_step_fwd.F |
167 |
THSICE_STEP_FWD |
& + snowAge(i,j,bi,bj)*ageFac |
|
./pkg/thsice/thsice_step_fwd.F |
168 |
THSICE_STEP_FWD |
IF ( snowPrc(i,j).GT.0. _d 0 ) |
|
./pkg/thsice/thsice_step_fwd.F |
169 |
THSICE_STEP_FWD |
& snowAge(i,j,bi,bj) = snowAge(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
170 |
THSICE_STEP_FWD |
& * EXP( - snowFac*snowPrc(i,j) ) |
|
./pkg/thsice/thsice_step_fwd.F |
174 |
THSICE_STEP_FWD |
icFlxAtm(i,j,bi,bj) = icFlxAtm(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
175 |
THSICE_STEP_FWD |
& - Lfresh*snowPrc(i,j) |
|
./pkg/thsice/thsice_step_fwd.F |
176 |
THSICE_STEP_FWD |
& + qPrcRnO(i,j) |
|
./pkg/thsice/thsice_step_fwd.F |
195 |
THSICE_STEP_FWD |
DO i = iMin, iMax |
|
./pkg/thsice/thsice_step_fwd.F |
196 |
THSICE_STEP_FWD |
siceAlb(i,j,bi,bj) = iceMask(i,j,bi,bj)*siceAlb(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
206 |
THSICE_STEP_FWD |
DO i = iMin, iMax |
|
./pkg/thsice/thsice_step_fwd.F |
208 |
THSICE_STEP_FWD |
tFrzOce(i,j) = -mu_Tf*sOceMxL(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
209 |
THSICE_STEP_FWD |
cphm = cpwater*rhosw*hOceMxL(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
210 |
THSICE_STEP_FWD |
frzmltMxL(i,j) = ( tFrzOce(i,j)-tOceMxL(i,j,bi,bj) ) |
|
./pkg/thsice/thsice_step_fwd.F |
212 |
THSICE_STEP_FWD |
iceFrac(i,j) = iceMask(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
213 |
THSICE_STEP_FWD |
flx2oc(i,j) = icFlxSW(i,j,bi,bj) + qPrcRnO(i,j) |
|
./pkg/thsice/thsice_step_fwd.F |
216 |
THSICE_STEP_FWD |
IF ( dBug(i,j,bi,bj) ) THEN |
|
./pkg/thsice/thsice_step_fwd.F |
217 |
THSICE_STEP_FWD |
IF (frzmltMxL(i,j).GT.0. .OR. iceFrac(i,j).GT.0.) THEN |
|
./pkg/thsice/thsice_step_fwd.F |
218 |
THSICE_STEP_FWD |
WRITE(6,'(A,2I4,2I2)') 'ThSI_FWD: i,j=',i,j,bi,bj |
|
./pkg/thsice/thsice_step_fwd.F |
220 |
THSICE_STEP_FWD |
& iceFrac(i,j), iceHeight(i,j,bi,bj), |
|
./pkg/thsice/thsice_step_fwd.F |
221 |
THSICE_STEP_FWD |
& snowHeight(i,j,bi,bj), Tsrf(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
223 |
THSICE_STEP_FWD |
& tOceMxL(i,j,bi,bj), tFrzOce(i,j), |
|
./pkg/thsice/thsice_step_fwd.F |
224 |
THSICE_STEP_FWD |
& frzmltMxL(i,j), Qnet(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
226 |
THSICE_STEP_FWD |
IF (iceFrac(i,j).GT.0.) |
|
./pkg/thsice/thsice_step_fwd.F |
228 |
THSICE_STEP_FWD |
& iceFrac(i,j), icFlxAtm(i,j,bi,bj), |
|
./pkg/thsice/thsice_step_fwd.F |
229 |
THSICE_STEP_FWD |
& icFrwAtm(i,j,bi,bj),-Lfresh*snowPrc(i,j) |
|
./pkg/thsice/thsice_step_fwd.F |
261 |
THSICE_STEP_FWD |
DO i = iMin, iMax |
|
./pkg/thsice/thsice_step_fwd.F |
273 |
THSICE_STEP_FWD |
IF (iceMask(i,j,bi,bj).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_step_fwd.F |
281 |
THSICE_STEP_FWD |
icFrac = iceMask(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
284 |
THSICE_STEP_FWD |
pass_qnet(i,j) = pass_qnet(i,j) - icFrac*flx2oc(i,j) |
|
./pkg/thsice/thsice_step_fwd.F |
285 |
THSICE_STEP_FWD |
pass_evap(i,j) = pass_evap(i,j) - icFrac*frw2oc(i,j)/rhofw |
|
./pkg/thsice/thsice_step_fwd.F |
286 |
THSICE_STEP_FWD |
sFluxFromIce(i,j) = -icFrac*fsalt(i,j) |
|
./pkg/thsice/thsice_step_fwd.F |
288 |
THSICE_STEP_FWD |
icFlxAtm(i,j,bi,bj) = icFrac*icFlxAtm(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
289 |
THSICE_STEP_FWD |
& - opFrac*Qnet(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
290 |
THSICE_STEP_FWD |
icFrwAtm(i,j,bi,bj) = icFrac*icFrwAtm(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
291 |
THSICE_STEP_FWD |
& + opFrac*EmPmR(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
292 |
THSICE_STEP_FWD |
Qnet(i,j,bi,bj) = -icFrac*flx2oc(i,j) + opFrac*Qnet(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
293 |
THSICE_STEP_FWD |
EmPmR(i,j,bi,bj)= -icFrac*frw2oc(i,j) |
|
./pkg/thsice/thsice_step_fwd.F |
294 |
THSICE_STEP_FWD |
& + opFrac*EmPmR(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
295 |
THSICE_STEP_FWD |
saltFlux(i,j,bi,bj) = -icFrac*fsalt(i,j) |
|
./pkg/thsice/thsice_step_fwd.F |
300 |
THSICE_STEP_FWD |
frzSeaWat(i,j) = MAX( -icFrac*frw2oc(i,j), 0. _d 0 ) |
|
./pkg/thsice/thsice_step_fwd.F |
303 |
THSICE_STEP_FWD |
IF (dBug(i,j,bi,bj)) WRITE(6,1010) |
|
./pkg/thsice/thsice_step_fwd.F |
305 |
THSICE_STEP_FWD |
& iceFrac(i,j), iceHeight(i,j,bi,bj), |
|
./pkg/thsice/thsice_step_fwd.F |
306 |
THSICE_STEP_FWD |
& snowHeight(i,j,bi,bj), Qnet(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
309 |
THSICE_STEP_FWD |
ELSEIF (hOceMxL(i,j,bi,bj).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_step_fwd.F |
310 |
THSICE_STEP_FWD |
icFlxAtm(i,j,bi,bj) = -Qnet(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
311 |
THSICE_STEP_FWD |
icFrwAtm(i,j,bi,bj) = EmPmR(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
313 |
THSICE_STEP_FWD |
icFlxAtm(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
314 |
THSICE_STEP_FWD |
icFrwAtm(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
324 |
THSICE_STEP_FWD |
DO i = 1-OLx, sNx+OLx |
|
./pkg/thsice/thsice_step_fwd.F |
325 |
THSICE_STEP_FWD |
flx2oc(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
326 |
THSICE_STEP_FWD |
frw2oc(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
327 |
THSICE_STEP_FWD |
fsalt (i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
347 |
THSICE_STEP_FWD |
DO i = iMin, iMax |
|
./pkg/thsice/thsice_step_fwd.F |
350 |
THSICE_STEP_FWD |
pass_qnet(i,j) = pass_qnet(i,j) - flx2oc(i,j) |
|
./pkg/thsice/thsice_step_fwd.F |
351 |
THSICE_STEP_FWD |
pass_evap(i,j) = pass_evap(i,j) - frw2oc(i,j)/rhofw |
|
./pkg/thsice/thsice_step_fwd.F |
352 |
THSICE_STEP_FWD |
sFluxFromIce(i,j)= sFluxFromIce(i,j) - fsalt(i,j) |
|
./pkg/thsice/thsice_step_fwd.F |
354 |
THSICE_STEP_FWD |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) - flx2oc(i,j) |
|
./pkg/thsice/thsice_step_fwd.F |
355 |
THSICE_STEP_FWD |
EmPmR(i,j,bi,bj)= EmPmR(i,j,bi,bj)- frw2oc(i,j) |
|
./pkg/thsice/thsice_step_fwd.F |
356 |
THSICE_STEP_FWD |
saltFlux(i,j,bi,bj)=saltFlux(i,j,bi,bj) - fsalt(i,j) |
|
./pkg/thsice/thsice_step_fwd.F |
358 |
THSICE_STEP_FWD |
frzSeaWat(i,j) = frzSeaWat(i,j) + MAX(-frw2oc(i,j), 0. _d 0 ) |
|
./pkg/thsice/thsice_step_fwd.F |
361 |
THSICE_STEP_FWD |
IF (dBug(i,j,bi,bj)) WRITE(6,1010) |
|
./pkg/thsice/thsice_step_fwd.F |
363 |
THSICE_STEP_FWD |
& iceFrac(i,j), iceHeight(i,j,bi,bj), |
|
./pkg/thsice/thsice_step_fwd.F |
364 |
THSICE_STEP_FWD |
& snowHeight(i,j,bi,bj), Qnet(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
367 |
THSICE_STEP_FWD |
IF ( hOceMxL(i,j,bi,bj).GT.0. _d 0 ) |
|
./pkg/thsice/thsice_step_fwd.F |
368 |
THSICE_STEP_FWD |
& isIceFree(i,j) = iceMask(i,j,bi,bj).LE.0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
369 |
THSICE_STEP_FWD |
& .AND. iceFrac(i,j) .LE.0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
370 |
THSICE_STEP_FWD |
IF ( iceFrac(i,j) .GT. 0. _d 0 ) THEN |
|
./pkg/thsice/thsice_step_fwd.F |
371 |
THSICE_STEP_FWD |
iceMask(i,j,bi,bj)=iceFrac(i,j) |
|
./pkg/thsice/thsice_step_fwd.F |
372 |
THSICE_STEP_FWD |
IF ( snowHeight(i,j,bi,bj).EQ.0. _d 0 ) |
|
./pkg/thsice/thsice_step_fwd.F |
373 |
THSICE_STEP_FWD |
& snowAge(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
375 |
THSICE_STEP_FWD |
iceMask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
376 |
THSICE_STEP_FWD |
iceHeight(i,j,bi,bj)= 0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
377 |
THSICE_STEP_FWD |
snowHeight(i,j,bi,bj)=0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
378 |
THSICE_STEP_FWD |
snowAge(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
379 |
THSICE_STEP_FWD |
Tsrf(i,j,bi,bj) = tOceMxL(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
380 |
THSICE_STEP_FWD |
Tice1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
381 |
THSICE_STEP_FWD |
Tice2(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
382 |
THSICE_STEP_FWD |
Qice1(i,j,bi,bj) = Lfresh |
|
./pkg/thsice/thsice_step_fwd.F |
383 |
THSICE_STEP_FWD |
Qice2(i,j,bi,bj) = Lfresh |
|
./pkg/thsice/thsice_step_fwd.F |
415 |
THSICE_STEP_FWD |
DO i = iMin, iMax |
|
./pkg/thsice/thsice_step_fwd.F |
416 |
THSICE_STEP_FWD |
sIceLoad(i,j,bi,bj) = ( snowHeight(i,j,bi,bj)*rhos |
|
./pkg/thsice/thsice_step_fwd.F |
417 |
THSICE_STEP_FWD |
& + iceHeight(i,j,bi,bj)*rhoi |
|
./pkg/thsice/thsice_step_fwd.F |
418 |
THSICE_STEP_FWD |
& )*iceMask(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
420 |
THSICE_STEP_FWD |
pass_sIceLoad(i,j)=sIceLoad(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
430 |
THSICE_STEP_FWD |
DO i = iMin, iMax |
|
./pkg/thsice/thsice_step_fwd.F |
431 |
THSICE_STEP_FWD |
IF ( hOceMxL(i,j,bi,bj).GT.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_step_fwd.F |
432 |
THSICE_STEP_FWD |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) - oceQnet(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
433 |
THSICE_STEP_FWD |
EmPmR(i,j,bi,bj)= EmPmR(i,j,bi,bj)- oceFWfx(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
434 |
THSICE_STEP_FWD |
saltFlux(i,j,bi,bj)=saltFlux(i,j,bi,bj) - oceSflx(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_temp.F |
102 |
THSICE_STEP_TEMP |
DO i = 1-OLx, sNx+OLx |
|
./pkg/thsice/thsice_step_temp.F |
103 |
THSICE_STEP_TEMP |
dTsrf(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_step_temp.F |
111 |
THSICE_STEP_TEMP |
DO i = 1-OLx, sNx+OLx |
|
./pkg/thsice/thsice_step_temp.F |
112 |
THSICE_STEP_TEMP |
icFlxAtm(i,j,bi,bj) = 0. |
|
./pkg/thsice/thsice_step_temp.F |
113 |
THSICE_STEP_TEMP |
icFrwAtm(i,j,bi,bj) = 0. |
|
./pkg/thsice/thsice_step_temp.F |
141 |
THSICE_STEP_TEMP |
DO i = iMin, iMax |
|
./pkg/thsice/thsice_step_temp.F |
142 |
THSICE_STEP_TEMP |
IF (iceMask(i,j,bi,bj).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_step_temp.F |
143 |
THSICE_STEP_TEMP |
IF ( dBug(i,j,bi,bj) ) THEN |
|
./pkg/thsice/thsice_step_temp.F |
144 |
THSICE_STEP_TEMP |
WRITE(6,'(A,2I4,2I2)') 'ThSI_STEP_T: i,j=',i,j,bi,bj |
|
./pkg/thsice/thsice_step_temp.F |
146 |
THSICE_STEP_TEMP |
& iceMask(i,j,bi,bj), iceHeight(i,j,bi,bj), |
|
./pkg/thsice/thsice_step_temp.F |
147 |
THSICE_STEP_TEMP |
& snowHeight(i,j,bi,bj), Tsrf(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_temp.F |
154 |
THSICE_STEP_TEMP |
DO i = iMin, iMax |
|
./pkg/thsice/thsice_step_temp.F |
155 |
THSICE_STEP_TEMP |
IF (iceMask(i,j,bi,bj).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_step_temp.F |
157 |
THSICE_STEP_TEMP |
icFlxSW(i,j,bi,bj) = icFlxSW(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_temp.F |
158 |
THSICE_STEP_TEMP |
& *(1. _d 0 - siceAlb(i,j,bi,bj)) |
|
./pkg/thsice/thsice_step_temp.F |
159 |
THSICE_STEP_TEMP |
tFrzOce(i,j) = -mu_Tf*sOceMxL(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_temp.F |
161 |
THSICE_STEP_TEMP |
tFrzOce(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_step_temp.F |
188 |
THSICE_STEP_TEMP |
DO i = iMin, iMax |
|
./pkg/thsice/thsice_step_temp.F |
189 |
THSICE_STEP_TEMP |
IF (iceMask(i,j,bi,bj).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_step_temp.F |
190 |
THSICE_STEP_TEMP |
icFrac = iceMask(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_temp.F |
193 |
THSICE_STEP_TEMP |
Qsw(i,j,bi,bj) = opFrac*Qsw(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_temp.F |
194 |
THSICE_STEP_TEMP |
& - icFrac*icFlxSW(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_temp.F |
72 |
THSICE_STEP_TEMP |
INTEGER i,j |
|
./pkg/thsice/thsice_test_addfluid.h |
17 |
NO PROCEDURE |
DO i = 1-OLx, sNx+OLx-1 |
|
./pkg/thsice/thsice_test_addfluid.h |
18 |
NO PROCEDURE |
addMass(i,j,1,bi,bj) = -EmPmR(i,j,bi,bj) |
|
./pkg/thsice/thsice_test_addfluid.h |
19 |
NO PROCEDURE |
& *rA(i,j,bi,bj) |
|
./pkg/thsice/thsice_test_addfluid.h |
20 |
NO PROCEDURE |
& *maskC(i,j,1,bi,bj) |
|
./pkg/thsice/thsice_test_addfluid.h |
21 |
NO PROCEDURE |
EmPmR(i,j,bi,bj) = 0. _d 0 |
|
./pkg/timeave/timeave_cumul_1k1t.F |
37 |
TIMEAVE_CUMUL_1K1T |
INTEGER i, j |
|
./pkg/timeave/timeave_cumul_1k1t.F |
40 |
TIMEAVE_CUMUL_1K1T |
DO i=1,sNx |
|
./pkg/timeave/timeave_cumul_1k1t.F |
41 |
TIMEAVE_CUMUL_1K1T |
fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_1k1t.F |
42 |
TIMEAVE_CUMUL_1K1T |
& + fld(i,j)*deltaTloc |
|
./pkg/timeave/timeave_cumul_1t.F |
35 |
TIMEAVE_CUMUL_1T |
INTEGER i, j, k |
|
./pkg/timeave/timeave_cumul_1t.F |
39 |
TIMEAVE_CUMUL_1T |
DO i=1,sNx |
|
./pkg/timeave/timeave_cumul_1t.F |
40 |
TIMEAVE_CUMUL_1T |
fldtave(i,j,k,bi,bj)= |
|
./pkg/timeave/timeave_cumul_1t.F |
41 |
TIMEAVE_CUMUL_1T |
& fldtave(i,j,k,bi,bj)+fld(i,j,k)*deltaTloc |
|
./model/src/ini_p_ground.F |
106 |
INI_P_GROUND |
DO i=1,sNx |
|
./model/src/ini_p_ground.F |
109 |
INI_P_GROUND |
IF (Hfld(i,j,bi,bj).GE.hRef(k)) ks = k |
|
./model/src/ini_p_ground.F |
112 |
INI_P_GROUND |
& (Hfld(i,j,bi,bj)-hRef(ks))/(hRef(ks+1)-hRef(ks)) |
|
./model/src/ini_p_ground.F |
116 |
INI_P_GROUND |
Pfld(i,j,bi,bj) = Po_surf |
|
./model/src/ini_p_ground.F |
178 |
INI_P_GROUND |
DO i=1,sNx |
|
./model/src/ini_p_ground.F |
179 |
INI_P_GROUND |
phiLoc = Hfld(i,j,bi,bj) - hRef(1) |
|
./model/src/ini_p_ground.F |
181 |
INI_P_GROUND |
Pfld(i,j,bi,bj) = rF(1) |
|
./model/src/ini_p_ground.F |
183 |
INI_P_GROUND |
yLatLoc = yC(i,j,bi,bj) |
|
./model/src/ini_p_ground.F |
208 |
INI_P_GROUND |
& ' selectMode,i,j,bi,bj=',selectMode,i,j,bi,bj |
|
./model/src/ini_p_ground.F |
211 |
INI_P_GROUND |
& 'INI_P_GROUND: Hfld=', Hfld(i,j,bi,bj), ' exceeds', |
|
./model/src/ini_p_ground.F |
216 |
INI_P_GROUND |
Pfld(i,j,bi,bj) = psNorm*atm_Po |
|
./model/src/ini_p_ground.F |
228 |
INI_P_GROUND |
DO i=1,sNx |
|
./model/src/ini_p_ground.F |
229 |
INI_P_GROUND |
Po_surf = Pfld(i,j,bi,bj) |
|
./model/src/ini_p_ground.F |
247 |
INI_P_GROUND |
Pfld(i,j,bi,bj) = Po_surf |
|
./model/src/ini_p_ground.F |
271 |
INI_P_GROUND |
DO i=1,sNx |
|
./model/src/ini_p_ground.F |
273 |
INI_P_GROUND |
ks = kSurfC(i,j,bi,bj) |
|
./model/src/ini_p_ground.F |
278 |
INI_P_GROUND |
IF ( Pfld(i,j,bi,bj).LT.rF(k) ) ks = k |
|
./model/src/ini_p_ground.F |
281 |
INI_P_GROUND |
IF ( Pfld(i,j,bi,bj).GE.rC(ks) ) THEN |
|
./model/src/ini_p_ground.F |
284 |
INI_P_GROUND |
& *(Pfld(i,j,bi,bj)-rC(ks))/(rHalf(2*ks-1)-rHalf(2*ks)) |
|
./model/src/ini_p_ground.F |
288 |
INI_P_GROUND |
& *(Pfld(i,j,bi,bj)-rC(ks))/(rHalf(2*ks+1)-rHalf(2*ks)) |
|
./model/src/ini_p_ground.F |
290 |
INI_P_GROUND |
Hfld(i,j,bi,bj) = phiLoc |
|
./model/src/ini_p_ground.F |
292 |
INI_P_GROUND |
Hfld(i,j,bi,bj) = 0. |
|
./model/src/ini_p_ground.F |
306 |
INI_P_GROUND |
DO i=1,sNx |
|
./model/src/ini_p_ground.F |
308 |
INI_P_GROUND |
IF ( Pfld(i,j,bi,bj) .LT. rF(1) ) THEN |
|
./model/src/ini_p_ground.F |
309 |
INI_P_GROUND |
Po_surf = Pfld(i,j,bi,bj) |
|
./model/src/ini_p_ground.F |
331 |
INI_P_GROUND |
yLatLoc = yC(i,j,bi,bj) |
|
./model/src/ini_p_ground.F |
344 |
INI_P_GROUND |
phi0surf(i,j,bi,bj) = gravity*(zLoc - Hfld(i,j,bi,bj)) |
|
./model/src/ini_p_ground.F |
346 |
INI_P_GROUND |
Hfld(i,j,bi,bj) = zLoc |
|
./model/src/ini_p_ground.F |
62 |
INI_P_GROUND |
INTEGER bi,bj,i,j,k, ks |
|
./pkg/timeave/timeave_cumul_1vfc.F |
38 |
TIMEAVE_CUMUL_1VFC |
INTEGER i, j, k |
|
./pkg/timeave/timeave_cumul_1vfc.F |
44 |
TIMEAVE_CUMUL_1VFC |
DO i=1,sNx |
|
./pkg/timeave/timeave_cumul_1vfc.F |
45 |
TIMEAVE_CUMUL_1VFC |
fldtave(i,j,k,bi,bj)= fldtave(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_1vfc.F |
46 |
TIMEAVE_CUMUL_1VFC |
& + deltaTloc*fld1(i,j,k,bi,bj)*fld2(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
111 |
TIMEAVE_CUMUL_2V |
DO i=1,sNx |
|
./pkg/timeave/timeave_cumul_2v.F |
112 |
TIMEAVE_CUMUL_2V |
fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
113 |
TIMEAVE_CUMUL_2V |
& + .25 _d 0*( fld1(i,j-1,k,bi,bj) + fld1(i,j,k,bi,bj) ) |
|
./pkg/timeave/timeave_cumul_2v.F |
114 |
TIMEAVE_CUMUL_2V |
& *( fld2(i-1,j,k,bi,bj) + fld2(i,j,k,bi,bj) ) |
|
./pkg/timeave/timeave_cumul_2v.F |
126 |
TIMEAVE_CUMUL_2V |
DO i=1,sNx |
|
./pkg/timeave/timeave_cumul_2v.F |
127 |
TIMEAVE_CUMUL_2V |
fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
128 |
TIMEAVE_CUMUL_2V |
& + .25 _d 0*( fld1(i,j,km1,bi,bj) + fld1(i,j,k,bi,bj) ) |
|
./pkg/timeave/timeave_cumul_2v.F |
129 |
TIMEAVE_CUMUL_2V |
& *( fld2(i-1,j,k,bi,bj)*rA(i-1,j,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
130 |
TIMEAVE_CUMUL_2V |
& +fld2( i ,j,k,bi,bj)*rA( i ,j,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
131 |
TIMEAVE_CUMUL_2V |
& )*recip_rAw(i,j,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
143 |
TIMEAVE_CUMUL_2V |
DO i=1,sNx |
|
./pkg/timeave/timeave_cumul_2v.F |
144 |
TIMEAVE_CUMUL_2V |
fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
145 |
TIMEAVE_CUMUL_2V |
& + .25 _d 0*( fld1(i,j,km1,bi,bj) + fld1(i,j,k,bi,bj) ) |
|
./pkg/timeave/timeave_cumul_2v.F |
146 |
TIMEAVE_CUMUL_2V |
& *( fld2(i,j-1,k,bi,bj)*rA(i,j-1,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
147 |
TIMEAVE_CUMUL_2V |
& +fld2(i, j ,k,bi,bj)*rA(i, j ,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
148 |
TIMEAVE_CUMUL_2V |
& )*recip_rAs(i,j,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
160 |
TIMEAVE_CUMUL_2V |
DO i=1,sNx |
|
./pkg/timeave/timeave_cumul_2v.F |
161 |
TIMEAVE_CUMUL_2V |
fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
162 |
TIMEAVE_CUMUL_2V |
& + .5 _d 0*( fld1(i,j,k-1,bi,bj) - fld1(i,j,k,bi,bj) ) |
|
./pkg/timeave/timeave_cumul_2v.F |
163 |
TIMEAVE_CUMUL_2V |
& *( fld2(i-1,j,k,bi,bj)*rA(i-1,j,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
164 |
TIMEAVE_CUMUL_2V |
& +fld2( i ,j,k,bi,bj)*rA( i ,j,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
165 |
TIMEAVE_CUMUL_2V |
& )*recip_rAw(i,j,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
177 |
TIMEAVE_CUMUL_2V |
DO i=1,sNx |
|
./pkg/timeave/timeave_cumul_2v.F |
178 |
TIMEAVE_CUMUL_2V |
fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
179 |
TIMEAVE_CUMUL_2V |
& + .5 _d 0*( fld1(i,j,k-1,bi,bj) - fld1(i,j,k,bi,bj) ) |
|
./pkg/timeave/timeave_cumul_2v.F |
180 |
TIMEAVE_CUMUL_2V |
& *( fld2(i,j-1,k,bi,bj)*rA(i,j-1,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
181 |
TIMEAVE_CUMUL_2V |
& +fld2(i, j ,k,bi,bj)*rA(i, j ,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
182 |
TIMEAVE_CUMUL_2V |
& )*recip_rAs(i,j,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
43 |
TIMEAVE_CUMUL_2V |
INTEGER i, j, k |
|
./pkg/timeave/timeave_cumul_2v.F |
53 |
TIMEAVE_CUMUL_2V |
DO i=1,sNx |
|
./pkg/timeave/timeave_cumul_2v.F |
54 |
TIMEAVE_CUMUL_2V |
fldtave(i,j,k,bi,bj)= fldtave(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
55 |
TIMEAVE_CUMUL_2V |
& + fld1(i,j,k,bi,bj)*fld2(i,j,k,bi,bj)*deltaTloc |
|
./pkg/timeave/timeave_cumul_2v.F |
67 |
TIMEAVE_CUMUL_2V |
DO i=1,sNx |
|
./pkg/timeave/timeave_cumul_2v.F |
68 |
TIMEAVE_CUMUL_2V |
fldtave(i,j,k,bi,bj)= fldtave(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
69 |
TIMEAVE_CUMUL_2V |
& + .5 * ( fld1(i-1,j,k,bi,bj) + fld1(i,j,k,bi,bj) ) |
|
./pkg/timeave/timeave_cumul_2v.F |
70 |
TIMEAVE_CUMUL_2V |
& * fld2(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
81 |
TIMEAVE_CUMUL_2V |
DO i=1,sNx |
|
./pkg/timeave/timeave_cumul_2v.F |
82 |
TIMEAVE_CUMUL_2V |
fldtave(i,j,k,bi,bj)= fldtave(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
83 |
TIMEAVE_CUMUL_2V |
& + .5 * ( fld1(i,j-1,k,bi,bj) + fld1(i,j,k,bi,bj) ) |
|
./pkg/timeave/timeave_cumul_2v.F |
84 |
TIMEAVE_CUMUL_2V |
& * fld2(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
96 |
TIMEAVE_CUMUL_2V |
DO i=1,sNx |
|
./pkg/timeave/timeave_cumul_2v.F |
97 |
TIMEAVE_CUMUL_2V |
fldtave(i,j,k,bi,bj)= fldtave(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
98 |
TIMEAVE_CUMUL_2V |
& + .5 * ( fld1(i,j,km1,bi,bj) + fld1(i,j,k,bi,bj) ) |
|
./pkg/timeave/timeave_cumul_2v.F |
99 |
TIMEAVE_CUMUL_2V |
& * fld2(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_2vfc.F |
44 |
TIMEAVE_CUMUL_2VFC |
INTEGER i, j, k |
|
./pkg/timeave/timeave_cumul_2vfc.F |
52 |
TIMEAVE_CUMUL_2VFC |
DO i=1,sNx |
|
./pkg/timeave/timeave_cumul_2vfc.F |
53 |
TIMEAVE_CUMUL_2VFC |
fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj) + deltaTloc* |
|
./pkg/timeave/timeave_cumul_2vfc.F |
54 |
TIMEAVE_CUMUL_2VFC |
& fld1(i,j,k,bi,bj)*fld2(i,j,k,bi,bj)*fld3(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_2vfc.F |
67 |
TIMEAVE_CUMUL_2VFC |
DO i=1,sNx |
|
./pkg/timeave/timeave_cumul_2vfc.F |
68 |
TIMEAVE_CUMUL_2VFC |
fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj) + deltaTloc* |
|
./pkg/timeave/timeave_cumul_2vfc.F |
69 |
TIMEAVE_CUMUL_2VFC |
& 0.5*( fld1(i-1,j,k,bi,bj) + fld1(i,j,k,bi,bj) ) |
|
./pkg/timeave/timeave_cumul_2vfc.F |
70 |
TIMEAVE_CUMUL_2VFC |
& *fld2(i,j,k,bi,bj)*fld3(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_2vfc.F |
83 |
TIMEAVE_CUMUL_2VFC |
DO i=1,sNx |
|
./pkg/timeave/timeave_cumul_2vfc.F |
84 |
TIMEAVE_CUMUL_2VFC |
fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj) + deltaTloc* |
|
./pkg/timeave/timeave_cumul_2vfc.F |
85 |
TIMEAVE_CUMUL_2VFC |
& 0.5*( fld1(i,j-1,k,bi,bj) + fld1(i,j,k,bi,bj) ) |
|
./pkg/timeave/timeave_cumul_2vfc.F |
86 |
TIMEAVE_CUMUL_2VFC |
& *fld2(i,j,k,bi,bj)*fld3(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_dif_1t.F |
40 |
TIMEAVE_CUMUL_DIF_1T |
INTEGER i, j, k |
|
./pkg/timeave/timeave_cumul_dif_1t.F |
46 |
TIMEAVE_CUMUL_DIF_1T |
DO i=1,sNx |
|
./pkg/timeave/timeave_cumul_dif_1t.F |
47 |
TIMEAVE_CUMUL_DIF_1T |
fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_dif_1t.F |
48 |
TIMEAVE_CUMUL_DIF_1T |
& - ( fld1(i,j,k) - fld1(i-1,j,k) ) |
|
./pkg/timeave/timeave_cumul_dif_1t.F |
49 |
TIMEAVE_CUMUL_DIF_1T |
& * recip_dxC(i,j,bi,bj) |
|
./pkg/timeave/timeave_cumul_dif_1t.F |
50 |
TIMEAVE_CUMUL_DIF_1T |
& * fld2(i,j,k) * deltaTloc |
|
./pkg/timeave/timeave_cumul_dif_1t.F |
59 |
TIMEAVE_CUMUL_DIF_1T |
DO i=1,sNx |
|
./pkg/timeave/timeave_cumul_dif_1t.F |
60 |
TIMEAVE_CUMUL_DIF_1T |
fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_dif_1t.F |
61 |
TIMEAVE_CUMUL_DIF_1T |
& - ( fld1(i,j,k) - fld1(i,j-1,k) ) |
|
./pkg/timeave/timeave_cumul_dif_1t.F |
62 |
TIMEAVE_CUMUL_DIF_1T |
& * recip_dyC(i,j,bi,bj) |
|
./pkg/timeave/timeave_cumul_dif_1t.F |
63 |
TIMEAVE_CUMUL_DIF_1T |
& * fld2(i,j,k) * deltaTloc |
|
./pkg/timeave/timeave_cumul_dif_1t.F |
72 |
TIMEAVE_CUMUL_DIF_1T |
DO i=1,sNx |
|
./pkg/timeave/timeave_cumul_dif_1t.F |
73 |
TIMEAVE_CUMUL_DIF_1T |
fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_dif_1t.F |
74 |
TIMEAVE_CUMUL_DIF_1T |
& + ( fld1(i,j,k) - fld1(i,j,k-1) ) |
|
./pkg/timeave/timeave_cumul_dif_1t.F |
76 |
TIMEAVE_CUMUL_DIF_1T |
& * fld2(i,j,k) * deltaTloc |
|
./pkg/timeave/timeave_cumulate.F |
35 |
TIMEAVE_CUMULATE |
INTEGER i, j, k |
|
./pkg/timeave/timeave_cumulate.F |
41 |
TIMEAVE_CUMULATE |
DO i=1,sNx |
|
./pkg/timeave/timeave_cumulate.F |
42 |
TIMEAVE_CUMULATE |
fldtave(i,j,k,bi,bj)= |
|
./pkg/timeave/timeave_cumulate.F |
43 |
TIMEAVE_CUMULATE |
& fldtave(i,j,k,bi,bj)+fld(i,j,k,bi,bj)*deltaTloc |
|
./pkg/timeave/timeave_norma_2v.F |
33 |
TIMEAVE_NORMA_2V |
INTEGER i, j, k |
|
./pkg/timeave/timeave_norma_2v.F |
39 |
TIMEAVE_NORMA_2V |
DO i=1,sNx |
|
./pkg/timeave/timeave_norma_2v.F |
40 |
TIMEAVE_NORMA_2V |
IF ( cumulWeight(i,j,k,bi,bj) .GT. 0. _d 0 ) THEN |
|
./pkg/timeave/timeave_norma_2v.F |
41 |
TIMEAVE_NORMA_2V |
fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_norma_2v.F |
42 |
TIMEAVE_NORMA_2V |
& / cumulWeight(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_normalize.F |
42 |
TIMEAVE_NORMALIZE |
INTEGER i, j, k |
|
./pkg/timeave/timeave_normalize.F |
51 |
TIMEAVE_NORMALIZE |
DO i=1,sNx |
|
./pkg/timeave/timeave_normalize.F |
52 |
TIMEAVE_NORMALIZE |
fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_reset.F |
29 |
TIMEAVE_RESET |
INTEGER i, j, k |
|
./pkg/timeave/timeave_reset.F |
35 |
TIMEAVE_RESET |
DO i=1-OLx,sNx+OLx |
|
./pkg/timeave/timeave_reset.F |
36 |
TIMEAVE_RESET |
fldtave(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_parms.F |
1150 |
INI_PARMS |
DO i=1,gridNx |
|
./model/src/ini_parms.F |
1151 |
INI_PARMS |
delX(i) = dxSpacing |
|
./model/src/ini_parms.F |
61 |
INI_PARMS |
INTEGER k, i, j, iUnit |
|
./pkg/timeave/timeave_surf_flux.F |
100 |
TIMEAVE_SURF_FLUX |
DO i=1,sNx |
|
./pkg/timeave/timeave_surf_flux.F |
101 |
TIMEAVE_SURF_FLUX |
tmpFld(i,j) = tmpFld(i,j) |
|
./pkg/timeave/timeave_surf_flux.F |
102 |
TIMEAVE_SURF_FLUX |
& + PmEpR(i,j,bi,bj)*salt(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_surf_flux.F |
48 |
TIMEAVE_SURF_FLUX |
DO i=1,sNx |
|
./pkg/timeave/timeave_surf_flux.F |
49 |
TIMEAVE_SURF_FLUX |
tmpFld(i,j)=fu(i,j,bi,bj)*foFacMom*_maskW(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_surf_flux.F |
57 |
TIMEAVE_SURF_FLUX |
DO i=1,sNx |
|
./pkg/timeave/timeave_surf_flux.F |
58 |
TIMEAVE_SURF_FLUX |
tmpFld(i,j)=fv(i,j,bi,bj)*foFacMom*_maskS(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_surf_flux.F |
66 |
TIMEAVE_SURF_FLUX |
DO i=1,sNx |
|
./pkg/timeave/timeave_surf_flux.F |
67 |
TIMEAVE_SURF_FLUX |
tmpFld(i,j) = |
|
./pkg/timeave/timeave_surf_flux.F |
69 |
TIMEAVE_SURF_FLUX |
& -Qsw(i,j,bi,bj)+ |
|
./pkg/timeave/timeave_surf_flux.F |
71 |
TIMEAVE_SURF_FLUX |
& (surfaceForcingT(i,j,bi,bj)+surfaceForcingTice(I,J,bi,bj)) |
|
./pkg/timeave/timeave_surf_flux.F |
79 |
TIMEAVE_SURF_FLUX |
DO i=1,sNx |
|
./pkg/timeave/timeave_surf_flux.F |
80 |
TIMEAVE_SURF_FLUX |
tmpFld(i,j) = tmpFld(i,j) |
|
./pkg/timeave/timeave_surf_flux.F |
81 |
TIMEAVE_SURF_FLUX |
& + PmEpR(i,j,bi,bj)*theta(i,j,k,bi,bj)*HeatCapacity_Cp |
|
./pkg/timeave/timeave_surf_flux.F |
91 |
TIMEAVE_SURF_FLUX |
DO i=1,sNx |
|
./pkg/timeave/timeave_surf_flux.F |
92 |
TIMEAVE_SURF_FLUX |
tmpFld(i,j)= |
|
./pkg/timeave/timeave_surf_flux.F |
93 |
TIMEAVE_SURF_FLUX |
& surfaceForcingS(i,j,bi,bj)*rUnit2mass |
|
./pkg/zonal_filt/zonal_filt_apply_uv.F |
39 |
ZONAL_FILT_APPLY_UV |
INTEGER i, j, k |
|
./pkg/zonal_filt/zonal_filt_apply_uv.F |
50 |
ZONAL_FILT_APPLY_UV |
DO i=1-OLx,sNx+OLx |
|
./pkg/zonal_filt/zonal_filt_apply_uv.F |
51 |
ZONAL_FILT_APPLY_UV |
uFlow(i,j) = uFld(i,j,k,bi,bj)*hFacW(i,j,k,bi,bj) |
|
./pkg/zonal_filt/zonal_filt_apply_uv.F |
59 |
ZONAL_FILT_APPLY_UV |
DO i=1-OLx,sNx+OLx |
|
./pkg/zonal_filt/zonal_filt_apply_uv.F |
60 |
ZONAL_FILT_APPLY_UV |
uFld(i,j,k,bi,bj) = uFlow(i,j)*recip_hFacW(i,j,k,bi,bj) |
|
./pkg/zonal_filt/zonal_filt_init.F |
100 |
ZONAL_FILT_INIT |
ampFactorV(2*i,j,bi,bj) = ampfact( yG(1,j,bi,bj) , I ) |
|
./pkg/zonal_filt/zonal_filt_init.F |
102 |
ZONAL_FILT_INIT |
ampFactorV(2*I+1,j,bi,bj) = ampFactorV(2*i,j,bi,bj) |
|
./pkg/zonal_filt/zonal_filt_init.F |
105 |
ZONAL_FILT_INIT |
i=Nx/2 |
|
./pkg/zonal_filt/zonal_filt_init.F |
107 |
ZONAL_FILT_INIT |
ampFactor(Nx,j,bi,bj) = ampfact( yC(1,j,bi,bj) , i ) |
|
./pkg/zonal_filt/zonal_filt_init.F |
108 |
ZONAL_FILT_INIT |
ampFactorV(Nx,j,bi,bj) = ampfact( yG(1,j,bi,bj) , i ) |
|
./pkg/zonal_filt/zonal_filt_init.F |
59 |
ZONAL_FILT_INIT |
INTEGER i, j, bi, bj |
|
./pkg/zonal_filt/zonal_filt_init.F |
65 |
ZONAL_FILT_INIT |
ampfact(lat,i) = MIN( oneRL, |
|
./pkg/zonal_filt/zonal_filt_init.F |
68 |
ZONAL_FILT_INIT |
& /(SIN( PI*FLOAT(i)/FLOAT(Nx) ) )**zonal_filt_sinpow |
|
./pkg/zonal_filt/zonal_filt_init.F |
96 |
ZONAL_FILT_INIT |
DO i=1,Nx/2-1 |
|
./pkg/zonal_filt/zonal_filt_init.F |
97 |
ZONAL_FILT_INIT |
ampFactor(2*i,j,bi,bj) = ampfact( yC(1,j,bi,bj) , I ) |
|
./pkg/zonal_filt/zonal_filt_init.F |
99 |
ZONAL_FILT_INIT |
ampFactor(2*I+1,j,bi,bj) = ampFactor(2*i,j,bi,bj) |
|
./pkg/zonal_filt/zonal_filt_nofill.F |
47 |
ZONAL_FILT_NOFILL |
DO i=1,sNx |
|
./pkg/zonal_filt/zonal_filt_nofill.F |
48 |
ZONAL_FILT_NOFILL |
phi(I) = field(i,j,k,bi,bj) |
|
./pkg/zonal_filt/zonal_filt_nofill.F |
58 |
ZONAL_FILT_NOFILL |
DO i=1, Nx |
|
./pkg/zonal_filt/zonal_filt_nofill.F |
59 |
ZONAL_FILT_NOFILL |
phi(i)=phi(i)*ampFactor(i,j,bi,bj)/float(Nx) |
|
./pkg/zonal_filt/zonal_filt_nofill.F |
62 |
ZONAL_FILT_NOFILL |
DO i=1, Nx |
|
./pkg/zonal_filt/zonal_filt_nofill.F |
63 |
ZONAL_FILT_NOFILL |
phi(i)=phi(i)*ampFactorV(i,j,bi,bj)/float(Nx) |
|
./pkg/zonal_filt/zonal_filt_nofill.F |
76 |
ZONAL_FILT_NOFILL |
DO i=1-OLx,0 |
|
./pkg/zonal_filt/zonal_filt_nofill.F |
77 |
ZONAL_FILT_NOFILL |
field(i,j,k,bi,bj) = phi(sNx+i) |
|
./pkg/zonal_filt/zonal_filt_nofill.F |
79 |
ZONAL_FILT_NOFILL |
DO i=1,sNx |
|
./pkg/zonal_filt/zonal_filt_nofill.F |
80 |
ZONAL_FILT_NOFILL |
field(i,j,k,bi,bj) = phi(I) |
|
./pkg/zonal_filt/zonal_filt_nofill.F |
82 |
ZONAL_FILT_NOFILL |
DO i=sNx+1,sNx+OLx |
|
./pkg/zonal_filt/zonal_filt_nofill.F |
83 |
ZONAL_FILT_NOFILL |
field(i,j,k,bi,bj) = phi(i-sNx) |
|
./model/src/ini_pressure.F |
103 |
INI_PRESSURE |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_pressure.F |
104 |
INI_PRESSURE |
phiHydF(i,j) = 0. _d 0 |
|
./model/src/ini_pressure.F |
110 |
INI_PRESSURE |
DO i=iMin,iMax |
|
./model/src/ini_pressure.F |
111 |
INI_PRESSURE |
oldPhi(i,j) = totPhiHyd(i,j,k,bi,bj) |
|
./model/src/ini_pressure.F |
122 |
INI_PRESSURE |
DO i=1,sNx |
|
./model/src/ini_pressure.F |
124 |
INI_PRESSURE |
& + (totPhiHyd(i,j,k,bi,bj)-oldPhi(i,j))**2 |
|
./model/src/ini_pressure.F |
125 |
INI_PRESSURE |
& * maskC(i,j,k,bi,bj) |
|
./model/src/ini_pressure.F |
126 |
INI_PRESSURE |
sumTile = sumTile + maskC(i,j,k,bi,bj) |
|
./model/src/ini_pressure.F |
45 |
INI_PRESSURE |
INTEGER i, j, k |
|
./model/src/ini_pressure.F |
73 |
INI_PRESSURE |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_pressure.F |
74 |
INI_PRESSURE |
totPhiHyd(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/zonal_filt/zonal_filter.F |
100 |
ZONAL_FILTER |
field(i,j,k) = phi(sNx+i) |
|
./pkg/zonal_filt/zonal_filter.F |
102 |
ZONAL_FILTER |
DO i=1,sNx |
|
./pkg/zonal_filt/zonal_filter.F |
103 |
ZONAL_FILTER |
field(i,j,k) = phi(i) |
|
./pkg/zonal_filt/zonal_filter.F |
105 |
ZONAL_FILTER |
DO i=sNx+1,sNx+OLx |
|
./pkg/zonal_filt/zonal_filter.F |
106 |
ZONAL_FILTER |
field(i,j,k) = phi(i-sNx) |
|
./pkg/zonal_filt/zonal_filter.F |
54 |
ZONAL_FILTER |
INTEGER i, j, k |
|
./pkg/zonal_filt/zonal_filter.F |
63 |
ZONAL_FILTER |
DO i=1,sNx |
|
./pkg/zonal_filt/zonal_filter.F |
64 |
ZONAL_FILTER |
phi(i) = field(i,j,k) |
|
./pkg/zonal_filt/zonal_filter.F |
65 |
ZONAL_FILTER |
phiMask(i) = fieldMask(i,j,k) |
|
./pkg/zonal_filt/zonal_filter.F |
78 |
ZONAL_FILTER |
DO i=1, Nx |
|
./pkg/zonal_filt/zonal_filter.F |
79 |
ZONAL_FILTER |
phi(i)=phi(i)*ampFactor(i,j,bi,bj)/float(Nx) |
|
./pkg/zonal_filt/zonal_filter.F |
82 |
ZONAL_FILTER |
DO i=1, Nx |
|
./pkg/zonal_filt/zonal_filter.F |
83 |
ZONAL_FILTER |
phi(i)=phi(i)*ampFactorV(i,j,bi,bj)/float(Nx) |
|
./pkg/zonal_filt/zonal_filter.F |
99 |
ZONAL_FILTER |
DO i=1-OLx,0 |
|
./model/src/ini_psurf.F |
104 |
INI_PSURF |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_psurf.F |
105 |
INI_PSURF |
phi0surf(i,j,bi,bj) = phi0surf(i,j,bi,bj) |
|
./model/src/ini_psurf.F |
106 |
INI_PSURF |
& + shelficeLoadAnomaly(i,j,bi,bj)*recip_rhoConst |
|
./model/src/ini_psurf.F |
89 |
INI_PSURF |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_psurf.F |
90 |
INI_PSURF |
etaH(i,j,bi,bj) = etaN(i,j,bi,bj) |
|
./model/src/ini_psurf.F |
91 |
INI_PSURF |
etaHnm1(i,j,bi,bj) = etaN(i,j,bi,bj) |
|
./model/src/ini_psurf.F |
92 |
INI_PSURF |
dEtaHdt(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_salt.F |
100 |
INI_SALT |
DO i=1,sNx |
|
./model/src/ini_salt.F |
101 |
INI_SALT |
IF ( maskC(i,j,k,bi,bj).NE.0. |
|
./model/src/ini_salt.F |
102 |
INI_SALT |
& .AND. salt(i,j,k,bi,bj).EQ.0. ) THEN |
|
./model/src/ini_salt.F |
51 |
INI_SALT |
INTEGER i, j, k, localWarnings |
|
./model/src/ini_salt.F |
60 |
INI_SALT |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_salt.F |
61 |
INI_SALT |
salt(i,j,k,bi,bj) = sRef(k) |
|
./model/src/ini_salt.F |
93 |
INI_SALT |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_salt.F |
94 |
INI_SALT |
IF (maskC(i,j,k,bi,bj).EQ.0.) salt(i,j,k,bi,bj) = 0. |
|
./verification/OpenAD/code_ad_singlelayer/cost_test.F |
35 |
COST_TEST |
integer i, j, k |
|
./verification/OpenAD/code_ad_singlelayer/cost_test.F |
66 |
COST_TEST |
do i=1,sNx |
|
./verification/OpenAD/code_ad_singlelayer/cost_test.F |
67 |
COST_TEST |
ig = myXGlobalLo-1+(bi-1)*sNx+i |
|
./verification/OpenAD/code_ad_singlelayer/cost_test.F |
69 |
COST_TEST |
objf_test(bi,bj) = objf_test(bi,bj) + maskW(i,j,k,bi,bj) |
|
./verification/OpenAD/code_ad_singlelayer/cost_test.F |
70 |
COST_TEST |
& *( uVel(i,j,k,bi,bj) ) |
|
./verification/OpenAD/code_ad_singlelayer/cost_test.F |
71 |
COST_TEST |
& *( uVel(i,j,k,bi,bj) ) |
|
./model/src/ini_sigma_hfac.F |
103 |
INI_SIGMA_HFAC |
DO i=1-Olx,sNx+Olx |
|
./model/src/ini_sigma_hfac.F |
104 |
INI_SIGMA_HFAC |
IF ( maskInC(i,j,bi,bj).NE.0. _d 0 ) THEN |
|
./model/src/ini_sigma_hfac.F |
106 |
INI_SIGMA_HFAC |
& + dBHybSigF(k)*tmpFld(i,j) |
|
./model/src/ini_sigma_hfac.F |
108 |
INI_SIGMA_HFAC |
hFacC(i,j,k,bi,bj) = hFactmp |
|
./model/src/ini_sigma_hfac.F |
111 |
INI_SIGMA_HFAC |
hFacC(i,j,k,bi,bj) = 0. |
|
./model/src/ini_sigma_hfac.F |
134 |
INI_SIGMA_HFAC |
i = 1-OlX |
|
./model/src/ini_sigma_hfac.F |
136 |
INI_SIGMA_HFAC |
rSurfW(i,j,bi,bj) = rEmpty |
|
./model/src/ini_sigma_hfac.F |
137 |
INI_SIGMA_HFAC |
rLowW (i,j,bi,bj) = rEmpty |
|
./model/src/ini_sigma_hfac.F |
138 |
INI_SIGMA_HFAC |
maskInW(i,j,bi,bj)= 0. |
|
./model/src/ini_sigma_hfac.F |
141 |
INI_SIGMA_HFAC |
DO i=1-Olx,sNx+Olx |
|
./model/src/ini_sigma_hfac.F |
142 |
INI_SIGMA_HFAC |
rSurfS(i,j,bi,bj) = rEmpty |
|
./model/src/ini_sigma_hfac.F |
143 |
INI_SIGMA_HFAC |
rLowS (i,j,bi,bj) = rEmpty |
|
./model/src/ini_sigma_hfac.F |
144 |
INI_SIGMA_HFAC |
maskInS(i,j,bi,bj)= 0. |
|
./model/src/ini_sigma_hfac.F |
147 |
INI_SIGMA_HFAC |
DO i=2-Olx,sNx+Olx |
|
./model/src/ini_sigma_hfac.F |
148 |
INI_SIGMA_HFAC |
maskInW(i,j,bi,bj)= maskInC(i-1,j,bi,bj)*maskInC(i,j,bi,bj) |
|
./model/src/ini_sigma_hfac.F |
149 |
INI_SIGMA_HFAC |
rSurfW(i,j,bi,bj) = |
|
./model/src/ini_sigma_hfac.F |
150 |
INI_SIGMA_HFAC |
& ( Ro_surf(i-1,j,bi,bj) |
|
./model/src/ini_sigma_hfac.F |
151 |
INI_SIGMA_HFAC |
& + Ro_surf( i, j,bi,bj) )*0.5 _d 0 |
|
./model/src/ini_sigma_hfac.F |
152 |
INI_SIGMA_HFAC |
rLowW(i,j,bi,bj) = |
|
./model/src/ini_sigma_hfac.F |
153 |
INI_SIGMA_HFAC |
& ( R_low(i-1,j,bi,bj) |
|
./model/src/ini_sigma_hfac.F |
154 |
INI_SIGMA_HFAC |
& + R_low( i, j,bi,bj) )*0.5 _d 0 |
|
./model/src/ini_sigma_hfac.F |
163 |
INI_SIGMA_HFAC |
IF ( maskInW(i,j,bi,bj).EQ.0. ) THEN |
|
./model/src/ini_sigma_hfac.F |
164 |
INI_SIGMA_HFAC |
rSurfW(i,j,bi,bj) = rEmpty |
|
./model/src/ini_sigma_hfac.F |
165 |
INI_SIGMA_HFAC |
rLowW (i,j,bi,bj) = rEmpty |
|
./model/src/ini_sigma_hfac.F |
170 |
INI_SIGMA_HFAC |
DO i=1-Olx,sNx+Olx |
|
./model/src/ini_sigma_hfac.F |
171 |
INI_SIGMA_HFAC |
maskInS(i,j,bi,bj)= maskInC(i,j-1,bi,bj)*maskInC(i,j,bi,bj) |
|
./model/src/ini_sigma_hfac.F |
172 |
INI_SIGMA_HFAC |
rSurfS(i,j,bi,bj) = |
|
./model/src/ini_sigma_hfac.F |
173 |
INI_SIGMA_HFAC |
& ( Ro_surf(i,j-1,bi,bj) |
|
./model/src/ini_sigma_hfac.F |
174 |
INI_SIGMA_HFAC |
& + Ro_surf(i, j, bi,bj) )*0.5 _d 0 |
|
./model/src/ini_sigma_hfac.F |
175 |
INI_SIGMA_HFAC |
rLowS(i,j,bi,bj) = |
|
./model/src/ini_sigma_hfac.F |
176 |
INI_SIGMA_HFAC |
& ( R_low(i,j-1,bi,bj) |
|
./model/src/ini_sigma_hfac.F |
177 |
INI_SIGMA_HFAC |
& + R_low(i, j, bi,bj) )*0.5 _d 0 |
|
./model/src/ini_sigma_hfac.F |
186 |
INI_SIGMA_HFAC |
IF ( maskInS(i,j,bi,bj).EQ.0. ) THEN |
|
./model/src/ini_sigma_hfac.F |
187 |
INI_SIGMA_HFAC |
rSurfS(i,j,bi,bj) = rEmpty |
|
./model/src/ini_sigma_hfac.F |
188 |
INI_SIGMA_HFAC |
rLowS (i,j,bi,bj) = rEmpty |
|
./model/src/ini_sigma_hfac.F |
204 |
INI_SIGMA_HFAC |
DO i=1-Olx,sNx+Olx |
|
./model/src/ini_sigma_hfac.F |
205 |
INI_SIGMA_HFAC |
IF (dyG(i,j,bi,bj).EQ.0.) maskInW(i,j,bi,bj) = 0. |
|
./model/src/ini_sigma_hfac.F |
206 |
INI_SIGMA_HFAC |
IF (dxG(i,j,bi,bj).EQ.0.) maskInS(i,j,bi,bj) = 0. |
|
./model/src/ini_sigma_hfac.F |
217 |
INI_SIGMA_HFAC |
DO i=1-Olx,sNx+Olx |
|
./model/src/ini_sigma_hfac.F |
220 |
INI_SIGMA_HFAC |
& + dBHybSigF(k)*( rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj) ) |
|
./model/src/ini_sigma_hfac.F |
222 |
INI_SIGMA_HFAC |
hFacW(i,j,k,bi,bj) = hFactmp*maskInW(i,j,bi,bj) |
|
./model/src/ini_sigma_hfac.F |
228 |
INI_SIGMA_HFAC |
DO i=1-Olx,sNx+Olx |
|
./model/src/ini_sigma_hfac.F |
231 |
INI_SIGMA_HFAC |
& + dBHybSigF(k)*( rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj) ) |
|
./model/src/ini_sigma_hfac.F |
233 |
INI_SIGMA_HFAC |
hFacS(i,j,k,bi,bj) = hFactmp*maskInS(i,j,bi,bj) |
|
./model/src/ini_sigma_hfac.F |
239 |
INI_SIGMA_HFAC |
DO i=1-Olx,sNx+Olx |
|
./model/src/ini_sigma_hfac.F |
240 |
INI_SIGMA_HFAC |
kSurfW(i,j,bi,bj) = Nr+1 |
|
./model/src/ini_sigma_hfac.F |
241 |
INI_SIGMA_HFAC |
kSurfS(i,j,bi,bj) = Nr+1 |
|
./model/src/ini_sigma_hfac.F |
242 |
INI_SIGMA_HFAC |
IF ( maskInW(i,j,bi,bj).NE.0. ) kSurfW(i,j,bi,bj) = 1 |
|
./model/src/ini_sigma_hfac.F |
243 |
INI_SIGMA_HFAC |
IF ( maskInS(i,j,bi,bj).NE.0. ) kSurfS(i,j,bi,bj) = 1 |
|
./model/src/ini_sigma_hfac.F |
45 |
INI_SIGMA_HFAC |
INTEGER i, j, k |
|
./model/src/ini_sigma_hfac.F |
70 |
INI_SIGMA_HFAC |
DO i=1-Olx,sNx+Olx |
|
./model/src/ini_sigma_hfac.F |
71 |
INI_SIGMA_HFAC |
tmpFld(i,j) = Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj) |
|
./model/src/ini_sigma_hfac.F |
73 |
INI_SIGMA_HFAC |
IF ( tmpFld(i,j).LT.hFacInf*rFullDepth ) |
|
./model/src/ini_sigma_hfac.F |
74 |
INI_SIGMA_HFAC |
& tmpFld(i,j) = 0. _d 0 |
|
./model/src/ini_sigma_hfac.F |
84 |
INI_SIGMA_HFAC |
DO i=1-Olx,sNx+Olx |
|
./model/src/ini_sigma_hfac.F |
85 |
INI_SIGMA_HFAC |
IF ( tmpFld(i,j).GT.0. _d 0 ) THEN |
|
./model/src/ini_sigma_hfac.F |
86 |
INI_SIGMA_HFAC |
kSurfC (i,j,bi,bj) = 1 |
|
./model/src/ini_sigma_hfac.F |
87 |
INI_SIGMA_HFAC |
kLowC (i,j,bi,bj) = Nr |
|
./model/src/ini_sigma_hfac.F |
88 |
INI_SIGMA_HFAC |
maskInC(i,j,bi,bj) = 1. |
|
./model/src/ini_sigma_hfac.F |
89 |
INI_SIGMA_HFAC |
recip_Rcol(i,j,bi,bj) = 1. _d 0 / tmpFld(i,j) |
|
./model/src/ini_sigma_hfac.F |
91 |
INI_SIGMA_HFAC |
kSurfC (i,j,bi,bj) = Nr+1 |
|
./model/src/ini_sigma_hfac.F |
92 |
INI_SIGMA_HFAC |
kLowC (i,j,bi,bj) = 0 |
|
./model/src/ini_sigma_hfac.F |
93 |
INI_SIGMA_HFAC |
maskInC(i,j,bi,bj) = 0. |
|
./model/src/ini_sigma_hfac.F |
94 |
INI_SIGMA_HFAC |
recip_Rcol(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_sigma_hfac.F |
95 |
INI_SIGMA_HFAC |
Ro_surf(i,j,bi,bj) = rEmpty |
|
./model/src/ini_sigma_hfac.F |
96 |
INI_SIGMA_HFAC |
R_low(i,j,bi,bj) = rEmpty |
|
./model/src/ini_spherical_polar_grid.F |
103 |
INI_SPHERICAL_POLAR_GRID |
lat = yC(i,j,bi,bj) |
|
./model/src/ini_spherical_polar_grid.F |
104 |
INI_SPHERICAL_POLAR_GRID |
dlon = delXloc(i) |
|
./model/src/ini_spherical_polar_grid.F |
106 |
INI_SPHERICAL_POLAR_GRID |
dxF(i,j,bi,bj) = rSphere*COS(lat*deg2rad)*dlon*deg2rad |
|
./model/src/ini_spherical_polar_grid.F |
107 |
INI_SPHERICAL_POLAR_GRID |
dyF(i,j,bi,bj) = rSphere*dlat*deg2rad |
|
./model/src/ini_spherical_polar_grid.F |
113 |
INI_SPHERICAL_POLAR_GRID |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_spherical_polar_grid.F |
118 |
INI_SPHERICAL_POLAR_GRID |
lat = 0.5 _d 0*(yGloc(i,j)+yGloc(i+1,j)) |
|
./model/src/ini_spherical_polar_grid.F |
119 |
INI_SPHERICAL_POLAR_GRID |
dlon = delXloc(i) |
|
./model/src/ini_spherical_polar_grid.F |
121 |
INI_SPHERICAL_POLAR_GRID |
dxG(i,j,bi,bj) = rSphere*COS(deg2rad*lat)*dlon*deg2rad |
|
./model/src/ini_spherical_polar_grid.F |
122 |
INI_SPHERICAL_POLAR_GRID |
IF (dxG(i,j,bi,bj).LT.1.) dxG(i,j,bi,bj)=0. |
|
./model/src/ini_spherical_polar_grid.F |
123 |
INI_SPHERICAL_POLAR_GRID |
dyG(i,j,bi,bj) = rSphere*dlat*deg2rad |
|
./model/src/ini_spherical_polar_grid.F |
144 |
INI_SPHERICAL_POLAR_GRID |
DO i=1-OLx+1,sNx+OLx ! NOTE range |
|
./model/src/ini_spherical_polar_grid.F |
146 |
INI_SPHERICAL_POLAR_GRID |
dxC(i,j,bi,bj) = 0.5 _d 0*(dxF(i,j,bi,bj)+dxF(i-1,j,bi,bj)) |
|
./model/src/ini_spherical_polar_grid.F |
160 |
INI_SPHERICAL_POLAR_GRID |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_spherical_polar_grid.F |
162 |
INI_SPHERICAL_POLAR_GRID |
dyC(i,j,bi,bj) = 0.5 _d 0*(dyF(i,j,bi,bj)+dyF(i,j-1,bi,bj)) |
|
./model/src/ini_spherical_polar_grid.F |
174 |
INI_SPHERICAL_POLAR_GRID |
DO i=1-OLx+1,sNx+OLx ! NOTE range |
|
./model/src/ini_spherical_polar_grid.F |
176 |
INI_SPHERICAL_POLAR_GRID |
dxV(i,j,bi,bj) = 0.5 _d 0*(dxG(i,j,bi,bj)+dxG(i-1,j,bi,bj)) |
|
./model/src/ini_spherical_polar_grid.F |
177 |
INI_SPHERICAL_POLAR_GRID |
dyU(i,j,bi,bj) = 0.5 _d 0*(dyG(i,j,bi,bj)+dyG(i,j-1,bi,bj)) |
|
./model/src/ini_spherical_polar_grid.F |
186 |
INI_SPHERICAL_POLAR_GRID |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_spherical_polar_grid.F |
187 |
INI_SPHERICAL_POLAR_GRID |
lat=0.5 _d 0*(yGloc(i,j)+yGloc(i+1,j)) |
|
./model/src/ini_spherical_polar_grid.F |
188 |
INI_SPHERICAL_POLAR_GRID |
dlon = delXloc(i) |
|
./model/src/ini_spherical_polar_grid.F |
190 |
INI_SPHERICAL_POLAR_GRID |
rA(i,j,bi,bj) = rSphere*rSphere*dlon*deg2rad |
|
./model/src/ini_spherical_polar_grid.F |
193 |
INI_SPHERICAL_POLAR_GRID |
lat = yC(i,j,bi,bj) - delYloc(j)*0.5 _d 0 |
|
./model/src/ini_spherical_polar_grid.F |
194 |
INI_SPHERICAL_POLAR_GRID |
dlat= yC(i,j,bi,bj) + delYloc(j)*0.5 _d 0 |
|
./model/src/ini_spherical_polar_grid.F |
195 |
INI_SPHERICAL_POLAR_GRID |
rA(i,j,bi,bj) = dyF(i,j,bi,bj) |
|
./model/src/ini_spherical_polar_grid.F |
203 |
INI_SPHERICAL_POLAR_GRID |
DO i=1-OLx+1,sNx+OLx ! NOTE range |
|
./model/src/ini_spherical_polar_grid.F |
205 |
INI_SPHERICAL_POLAR_GRID |
rAw(i,j,bi,bj) = 0.5 _d 0*(rA(i,j,bi,bj)+rA(i-1,j,bi,bj)) |
|
./model/src/ini_spherical_polar_grid.F |
217 |
INI_SPHERICAL_POLAR_GRID |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_spherical_polar_grid.F |
219 |
INI_SPHERICAL_POLAR_GRID |
lat=yC(i,j,bi,bj) |
|
./model/src/ini_spherical_polar_grid.F |
220 |
INI_SPHERICAL_POLAR_GRID |
dlon = delXloc(i) |
|
./model/src/ini_spherical_polar_grid.F |
225 |
INI_SPHERICAL_POLAR_GRID |
rAs(i,j,bi,bj) = rSphere*rSphere*dlon*deg2rad |
|
./model/src/ini_spherical_polar_grid.F |
227 |
INI_SPHERICAL_POLAR_GRID |
IF (ABS(lat).GT.90..OR.ABS(lat-dlat).GT.90.) rAs(i,j,bi,bj)=0. |
|
./model/src/ini_spherical_polar_grid.F |
233 |
INI_SPHERICAL_POLAR_GRID |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_spherical_polar_grid.F |
235 |
INI_SPHERICAL_POLAR_GRID |
lat = 0.5 _d 0*(yGloc(i,j)+yGloc(i,j+1)) |
|
./model/src/ini_spherical_polar_grid.F |
236 |
INI_SPHERICAL_POLAR_GRID |
dlon = 0.5 _d 0*( delXloc(i) + delXloc(i-1) ) |
|
./model/src/ini_spherical_polar_grid.F |
238 |
INI_SPHERICAL_POLAR_GRID |
rAz(i,j,bi,bj) = rSphere*rSphere*dlon*deg2rad |
|
./model/src/ini_spherical_polar_grid.F |
240 |
INI_SPHERICAL_POLAR_GRID |
IF (ABS(lat).GT.90..OR.ABS(lat-dlat).GT.90.) rAz(i,j,bi,bj)=0. |
|
./model/src/ini_spherical_polar_grid.F |
246 |
INI_SPHERICAL_POLAR_GRID |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_spherical_polar_grid.F |
247 |
INI_SPHERICAL_POLAR_GRID |
lat=0.5 _d 0*(yGloc(i,j)+yGloc(i,j+1)) |
|
./model/src/ini_spherical_polar_grid.F |
248 |
INI_SPHERICAL_POLAR_GRID |
tanPhiAtU(i,j,bi,bj)=TAN(lat*deg2rad) |
|
./model/src/ini_spherical_polar_grid.F |
249 |
INI_SPHERICAL_POLAR_GRID |
lat=0.5 _d 0*(yGloc(i,j)+yGloc(i+1,j)) |
|
./model/src/ini_spherical_polar_grid.F |
250 |
INI_SPHERICAL_POLAR_GRID |
tanPhiAtV(i,j,bi,bj)=TAN(lat*deg2rad) |
|
./model/src/ini_spherical_polar_grid.F |
259 |
INI_SPHERICAL_POLAR_GRID |
i = 1 |
|
./model/src/ini_spherical_polar_grid.F |
261 |
INI_SPHERICAL_POLAR_GRID |
lat = 0.5 _d 0*(yGloc(i,j)+yGloc(i,j+1)) |
|
./model/src/ini_spherical_polar_grid.F |
263 |
INI_SPHERICAL_POLAR_GRID |
lat = 0.5 _d 0*(yGloc(i,j)+yGloc(i+1,j)) |
|
./model/src/ini_spherical_polar_grid.F |
54 |
INI_SPHERICAL_POLAR_GRID |
INTEGER i, j |
|
./model/src/ini_spherical_polar_grid.F |
79 |
INI_SPHERICAL_POLAR_GRID |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_spherical_polar_grid.F |
80 |
INI_SPHERICAL_POLAR_GRID |
xG(i,j,bi,bj) = xGloc(i,j) |
|
./model/src/ini_spherical_polar_grid.F |
81 |
INI_SPHERICAL_POLAR_GRID |
yG(i,j,bi,bj) = yGloc(i,j) |
|
./model/src/ini_spherical_polar_grid.F |
87 |
INI_SPHERICAL_POLAR_GRID |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_spherical_polar_grid.F |
89 |
INI_SPHERICAL_POLAR_GRID |
xC(i,j,bi,bj) = 0.25 _d 0*( |
|
./model/src/ini_spherical_polar_grid.F |
90 |
INI_SPHERICAL_POLAR_GRID |
& xGloc(i,j)+xGloc(i+1,j)+xGloc(i,j+1)+xGloc(i+1,j+1) ) |
|
./model/src/ini_spherical_polar_grid.F |
91 |
INI_SPHERICAL_POLAR_GRID |
yC(i,j,bi,bj) = 0.25 _d 0*( |
|
./model/src/ini_spherical_polar_grid.F |
92 |
INI_SPHERICAL_POLAR_GRID |
& yGloc(i,j)+yGloc(i+1,j)+yGloc(i,j+1)+yGloc(i+1,j+1) ) |
|
./model/src/ini_spherical_polar_grid.F |
98 |
INI_SPHERICAL_POLAR_GRID |
DO i=1-OLx,sNx+OLx |
|
./verification/advect_cs/code/ini_vel.F |
36 |
INI_VEL |
INTEGER bi,bj,i,j,k |
|
./verification/advect_cs/code/ini_vel.F |
41 |
INI_VEL |
psi(i,j,bi,bj)=fac*fCoriG(i,j,bi,bj) |
|
./verification/advect_cs/code/ini_vel.F |
57 |
INI_VEL |
DO i=1-Olx,sNx+Olx |
|
./verification/advect_cs/code/ini_vel.F |
58 |
INI_VEL |
ip1=MIN(i+1,sNx+Olx) |
|
./verification/advect_cs/code/ini_vel.F |
59 |
INI_VEL |
uVel(i,j,k,bi,bj)=0. _d 0 |
|
./verification/advect_cs/code/ini_vel.F |
60 |
INI_VEL |
& +(psi(i,j,bi,bj)-psi(i,jp1,bi,bj))*recip_dyG(i,j,bi,bj) |
|
./verification/advect_cs/code/ini_vel.F |
61 |
INI_VEL |
vVel(i,j,k,bi,bj)=0. _d 0 |
|
./verification/advect_cs/code/ini_vel.F |
62 |
INI_VEL |
& +(psi(ip1,j,bi,bj)-psi(i,j,bi,bj))*recip_dxG(i,j,bi,bj) |
|
./verification/advect_cs/code/ini_vel.F |
85 |
INI_VEL |
DO i=1-Olx,sNx+Olx |
|
./verification/advect_cs/code/ini_vel.F |
86 |
INI_VEL |
uVel(i,j,k,bi,bj)=uVel(i,j,k,bi,bj)*_maskW(i,j,k,bi,bj) |
|
./verification/advect_cs/code/ini_vel.F |
87 |
INI_VEL |
vVel(i,j,k,bi,bj)=vVel(i,j,k,bi,bj)*_maskS(i,j,k,bi,bj) |
|
./model/src/ini_theta.F |
101 |
INI_THETA |
DO i=1,sNx |
|
./model/src/ini_theta.F |
102 |
INI_THETA |
IF ( maskC(i,j,k,bi,bj).NE.0. |
|
./model/src/ini_theta.F |
103 |
INI_THETA |
& .AND. theta(i,j,k,bi,bj).EQ.0. ) THEN |
|
./model/src/ini_theta.F |
139 |
INI_THETA |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_theta.F |
140 |
INI_THETA |
IF (theta(i,j,k,bi,bj) .LT. Tfreezing) THEN |
|
./model/src/ini_theta.F |
141 |
INI_THETA |
theta(i,j,k,bi,bj) = Tfreezing |
|
./model/src/ini_theta.F |
51 |
INI_THETA |
INTEGER i, j, k, localWarnings |
|
./model/src/ini_theta.F |
61 |
INI_THETA |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_theta.F |
62 |
INI_THETA |
theta(i,j,k,bi,bj) = tRef(k) |
|
./model/src/ini_theta.F |
94 |
INI_THETA |
DO i=1-OLx,sNx+OLx |
|
./model/src/ini_theta.F |
95 |
INI_THETA |
IF (maskC(i,j,k,bi,bj).EQ.0.) theta(i,j,k,bi,bj) = 0. |
|
./verification/advect_xy/code/ini_salt.F |
100 |
INI_SALT |
IF ( maskC(i,j,k,bi,bj).NE.0. |
|
./verification/advect_xy/code/ini_salt.F |
101 |
INI_SALT |
& .AND. salt(i,j,k,bi,bj).EQ.0. ) THEN |
|
./verification/advect_xy/code/ini_salt.F |
47 |
INI_SALT |
INTEGER i, j, k, localWarnings |
|
./verification/advect_xy/code/ini_salt.F |
57 |
INI_SALT |
DO i=1-Olx,sNx+Olx |
|
./verification/advect_xy/code/ini_salt.F |
58 |
INI_SALT |
salt(i,j,k,bi,bj) = sRef(k) |
|
./verification/advect_xy/code/ini_salt.F |
64 |
INI_SALT |
DO i=1-Olx,sNx+Olx |
|
./verification/advect_xy/code/ini_salt.F |
65 |
INI_SALT |
rD = SQRT( ( xC(i,j,bi,bj) - 40. _d 3 )**2 |
|
./verification/advect_xy/code/ini_salt.F |
66 |
INI_SALT |
& +( yC(i,j,bi,bj) - 40. _d 3 )**2 |
|
./verification/advect_xy/code/ini_salt.F |
69 |
INI_SALT |
IF ( rD.LE.60. _d 3 ) salt(i,j,k,bi,bj) = sRef(k)+1. _d 0 |
|
./verification/advect_xy/code/ini_salt.F |
92 |
INI_SALT |
DO i=1-Olx,sNx+Olx |
|
./verification/advect_xy/code/ini_salt.F |
93 |
INI_SALT |
IF (maskC(i,j,k,bi,bj).EQ.0.) salt(i,j,k,bi,bj) = 0. |
|
./verification/advect_xy/code/ini_salt.F |
99 |
INI_SALT |
DO i=1,sNx |
|
./verification/advect_xy/code/ini_theta.F |
100 |
INI_THETA |
DO i=1,sNx |
|
./verification/advect_xy/code/ini_theta.F |
101 |
INI_THETA |
IF ( maskC(i,j,k,bi,bj).NE.0. |
|
./verification/advect_xy/code/ini_theta.F |
102 |
INI_THETA |
& .AND. theta(i,j,k,bi,bj).EQ.0. ) THEN |
|
./verification/advect_xy/code/ini_theta.F |
138 |
INI_THETA |
DO i=1-Olx,sNx+Olx |
|
./verification/advect_xy/code/ini_theta.F |
139 |
INI_THETA |
IF (theta(i,j,k,bi,bj) .LT. Tfreezing) THEN |
|
./verification/advect_xy/code/ini_theta.F |
140 |
INI_THETA |
theta(i,j,k,bi,bj) = Tfreezing |
|
./verification/advect_xy/code/ini_theta.F |
47 |
INI_THETA |
INTEGER i, j, k, localWarnings |
|
./verification/advect_xy/code/ini_theta.F |
58 |
INI_THETA |
DO i=1-Olx,sNx+Olx |
|
./verification/advect_xy/code/ini_theta.F |
59 |
INI_THETA |
theta(i,j,k,bi,bj) = tRef(k) |
|
./verification/advect_xy/code/ini_theta.F |
65 |
INI_THETA |
DO i=1,sNx |
|
./verification/advect_xy/code/ini_theta.F |
66 |
INI_THETA |
rD = SQRT( ( xC(i,j,bi,bj) - 40. _d 3 )**2 |
|
./verification/advect_xy/code/ini_theta.F |
67 |
INI_THETA |
& +( yC(i,j,bi,bj) - 40. _d 3 )**2 |
|
./verification/advect_xy/code/ini_theta.F |
70 |
INI_THETA |
theta(i,j,k,bi,bj) = EXP( -0.5 _d 0*( rD/20. _d 3 )**2 ) |
|
./verification/advect_xy/code/ini_theta.F |
93 |
INI_THETA |
DO i=1-Olx,sNx+Olx |
|
./verification/advect_xy/code/ini_theta.F |
94 |
INI_THETA |
IF (maskC(i,j,k,bi,bj).EQ.0.) theta(i,j,k,bi,bj) = 0. |
|
./verification/advect_xy/code/ini_vel.F |
36 |
INI_VEL |
INTEGER bi,bj,i,j,k |
|
./verification/advect_xy/code/ini_vel.F |
50 |
INI_VEL |
DO i=1-Olx,sNx+Olx |
|
./verification/advect_xy/code/ini_vel.F |
51 |
INI_VEL |
uVel(i,j,k,bi,bj)=1. _d 0 |
|
./verification/advect_xy/code/ini_vel.F |
52 |
INI_VEL |
vVel(i,j,k,bi,bj)=1. _d 0 |
|
./verification/advect_xy/code/ini_vel.F |
75 |
INI_VEL |
DO i=1-Olx,sNx+Olx |
|
./verification/advect_xy/code/ini_vel.F |
76 |
INI_VEL |
uVel(i,j,k,bi,bj)=uVel(i,j,k,bi,bj)*_maskW(i,j,k,bi,bj) |
|
./verification/advect_xy/code/ini_vel.F |
77 |
INI_VEL |
vVel(i,j,k,bi,bj)=vVel(i,j,k,bi,bj)*_maskS(i,j,k,bi,bj) |
|
./model/src/ini_vel.F |
36 |
INI_VEL |
INTEGER bi,bj,i,j,k |
|
./model/src/ini_vel.F |
50 |
INI_VEL |
DO i=1-Olx,sNx+Olx |
|
./model/src/ini_vel.F |
51 |
INI_VEL |
uVel(i,j,k,bi,bj)=0. _d 0 |
|
./model/src/ini_vel.F |
52 |
INI_VEL |
vVel(i,j,k,bi,bj)=0. _d 0 |
|
./model/src/ini_vel.F |
74 |
INI_VEL |
DO i=1-Olx,sNx+Olx |
|
./model/src/ini_vel.F |
75 |
INI_VEL |
uVel(i,j,k,bi,bj)=uVel(i,j,k,bi,bj)*_maskW(i,j,k,bi,bj) |
|
./model/src/ini_vel.F |
76 |
INI_VEL |
vVel(i,j,k,bi,bj)=vVel(i,j,k,bi,bj)*_maskS(i,j,k,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
118 |
AIM_SURF_BC |
DO i=1,sNx |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
119 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
120 |
AIM_SURF_BC |
fMask1(I2,1,myThid) = aim_landFr(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
158 |
AIM_SURF_BC |
DO i=1,sNx |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
159 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
160 |
AIM_SURF_BC |
sst1(I2,myThid) = aim_sWght0*aim_sst0(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
161 |
AIM_SURF_BC |
& + aim_sWght1*aim_sst1(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
162 |
AIM_SURF_BC |
stl1(I2,myThid) = aim_sWght0*aim_lst0(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
163 |
AIM_SURF_BC |
& + aim_sWght1*aim_lst1(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
176 |
AIM_SURF_BC |
DO i=1,sNx |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
177 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
178 |
AIM_SURF_BC |
soilw_0 = ( aim_sw10(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
179 |
AIM_SURF_BC |
& +aim_veget(i,j,bi,bj)* |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
180 |
AIM_SURF_BC |
& MAX(IDEP2*aim_sw20(i,j,bi,bj)-SWWIL2, 0. _d 0) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
182 |
AIM_SURF_BC |
soilw_1 = ( aim_sw11(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
183 |
AIM_SURF_BC |
& +aim_veget(i,j,bi,bj)* |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
184 |
AIM_SURF_BC |
& MAX(IDEP2*aim_sw21(i,j,bi,bj)-SWWIL2, 0. _d 0) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
194 |
AIM_SURF_BC |
DO i=1,sNx |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
195 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
196 |
AIM_SURF_BC |
snow1(I2) = aim_sWght0*aim_snw0(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
197 |
AIM_SURF_BC |
& + aim_sWght1*aim_snw1(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
198 |
AIM_SURF_BC |
oice1(I2) = aim_sWght0*aim_oic0(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
199 |
AIM_SURF_BC |
& + aim_sWght1*aim_oic1(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
237 |
AIM_SURF_BC |
DO i=1,sNx |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
242 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
243 |
AIM_SURF_BC |
alb_land = aim_albedo(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
244 |
AIM_SURF_BC |
& + MAX( 0. _d 0, ALBSN-aim_albedo(i,j,bi,bj) ) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
251 |
AIM_SURF_BC |
SJ = SIN(yC(i,j,bi,bj) * deg2rad) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
252 |
AIM_SURF_BC |
CJ = COS(yC(i,j,bi,bj) * deg2rad) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
301 |
AIM_SURF_BC |
DO i=1,sNx |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
302 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
303 |
AIM_SURF_BC |
alb1(I2,1,myThid) = aim_albedo(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
304 |
AIM_SURF_BC |
alb1(I2,2,myThid) = aim_albedo(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
305 |
AIM_SURF_BC |
alb1(I2,3,myThid) = aim_albedo(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
310 |
AIM_SURF_BC |
DO i=1,sNx |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
311 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
321 |
AIM_SURF_BC |
DO i=1,sNx |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
322 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
323 |
AIM_SURF_BC |
sst1(I2,myThid) = aim_sst0(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
324 |
AIM_SURF_BC |
stl1(I2,myThid) = aim_sst0(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
325 |
AIM_SURF_BC |
sti1(I2,myThid) = aim_sst0(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
330 |
AIM_SURF_BC |
DO i=1,sNx |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
331 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
337 |
AIM_SURF_BC |
& +20. _d 0 *exp( -((xC(i,j,bi,bj)-xBump)/dxBump)**2 |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
338 |
AIM_SURF_BC |
& -((yC(i,j,bi,bj)-yBump)/dyBump)**2 ) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
356 |
AIM_SURF_BC |
DO i=1,sNx |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
357 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
358 |
AIM_SURF_BC |
soilw1(I2,myThid) = aim_sw10(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
363 |
AIM_SURF_BC |
DO i=1,sNx |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
364 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
373 |
AIM_SURF_BC |
DO i=1,sNx |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
374 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
396 |
AIM_SURF_BC |
DO i=1,sNx |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
397 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
92 |
AIM_SURF_BC |
INTEGER i,j,I2,k, nm0 |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
100 |
INI_DEPTHS |
DO i=1,sNx |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
101 |
INI_DEPTHS |
R_low(i,j,bi,bj) = rF(Nr+1) |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
165 |
INI_DEPTHS |
DO i=1,sNx |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
166 |
INI_DEPTHS |
Ro_surf(i,j,bi,bj) = rF(1) |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
207 |
INI_DEPTHS |
DO i=1,sNx |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
208 |
INI_DEPTHS |
Ro_surf(i,j,bi,bj) = topoZ(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
231 |
INI_DEPTHS |
DO i=1-Olx,sNx+Olx |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
232 |
INI_DEPTHS |
iG = myXGlobalLo-1+(bi-1)*sNx+i |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
240 |
INI_DEPTHS |
& ABS(yC(i,j,bi,bj)).GE.ABS(ygOrigin) ) |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
241 |
INI_DEPTHS |
& Ro_surf(i,j,bi,bj) = rF(Nr+1) |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
243 |
INI_DEPTHS |
& ABS(yC(i,j,bi,bj)).GE.90. ) |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
244 |
INI_DEPTHS |
& Ro_surf(i,j,bi,bj) = rF(Nr+1) |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
253 |
INI_DEPTHS |
DO i=1-Olx,sNx+Olx |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
254 |
INI_DEPTHS |
iG = myXGlobalLo-1+(bi-1)*sNx+i |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
262 |
INI_DEPTHS |
& ABS(yC(i,j,bi,bj)).GE.ABS(ygOrigin) ) |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
263 |
INI_DEPTHS |
& R_low(i,j,bi,bj) = rF(1) |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
265 |
INI_DEPTHS |
& ABS(yC(i,j,bi,bj)).GE.90. ) |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
266 |
INI_DEPTHS |
& R_low(i,j,bi,bj) = rF(1) |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
59 |
INI_DEPTHS |
INTEGER i, j |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
78 |
INI_DEPTHS |
DO i=1-Olx,sNx+Olx |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
79 |
INI_DEPTHS |
R_low(i,j,bi,bj) = 0. _d 0 |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
80 |
INI_DEPTHS |
Ro_surf(i,j,bi,bj) = 0. _d 0 |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
81 |
INI_DEPTHS |
topoZ(i,j,bi,bj) = 0. _d 0 |
|
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F |
35 |
MOM_VI_HFACZ_DISS |
DO i=1-Olx,sNx+Olx |
|
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F |
36 |
MOM_VI_HFACZ_DISS |
hFacZ(i,1-Oly)=0. |
|
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F |
37 |
MOM_VI_HFACZ_DISS |
r_hFacZ(i,1-Oly)=0. |
|
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F |
43 |
MOM_VI_HFACZ_DISS |
DO i=2-Olx,sNx+Olx |
|
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F |
44 |
MOM_VI_HFACZ_DISS |
hFacZOpen=MIN(_hFacW(i,j,k,bi,bj) |
|
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F |
45 |
MOM_VI_HFACZ_DISS |
& + _hFacW(i,j-1,k,bi,bj) |
|
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F |
46 |
MOM_VI_HFACZ_DISS |
& , _hFacS(i,j,k,bi,bj) |
|
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F |
47 |
MOM_VI_HFACZ_DISS |
& + _hFacS(i-1,j,k,bi,bj) |
|
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F |
49 |
MOM_VI_HFACZ_DISS |
hFacZ(i,j)=0.5*hFacZOpen |
|
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F |
50 |
MOM_VI_HFACZ_DISS |
IF (hFacZ(i,j).EQ.0.) THEN |
|
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F |
51 |
MOM_VI_HFACZ_DISS |
r_hFacZ(i,j)=0. |
|
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F |
53 |
MOM_VI_HFACZ_DISS |
r_hFacZ(i,j)=1./hFacZ(i,j) |
|
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F |
63 |
MOM_VI_HFACZ_DISS |
DO i=1,sNx+1,sNx |
|
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F |
64 |
MOM_VI_HFACZ_DISS |
hFacZOpen=MIN( _hFacW(i,j,k,bi,bj) |
|
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F |
65 |
MOM_VI_HFACZ_DISS |
& , _hFacW(i,j-1,k,bi,bj) |
|
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F |
66 |
MOM_VI_HFACZ_DISS |
& , _hFacS(i,j,k,bi,bj) |
|
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F |
67 |
MOM_VI_HFACZ_DISS |
& , _hFacS(i-1,j,k,bi,bj) |
|
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F |
69 |
MOM_VI_HFACZ_DISS |
hFacZ(i,j)=hFacZOpen |
|
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F |
71 |
MOM_VI_HFACZ_DISS |
r_hFacZ(i,j)=0. |
|
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F |
73 |
MOM_VI_HFACZ_DISS |
r_hFacZ(i,j)=1./hFacZOpen |
|
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F |
42 |
MOM_VI_MASK_VORT3 |
DO i=2-Olx,sNx+Olx |
|
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F |
43 |
MOM_VI_MASK_VORT3 |
hFacZOpen=min(_hFacW(i,j,k,bi,bj), |
|
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F |
44 |
MOM_VI_MASK_VORT3 |
& _hFacW(i,j-1,k,bi,bj)) |
|
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F |
45 |
MOM_VI_MASK_VORT3 |
hFacZOpen=min(_hFacS(i,j,k,bi,bj),hFacZOpen) |
|
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F |
46 |
MOM_VI_MASK_VORT3 |
hFacZOpen=min(_hFacS(i-1,j,k,bi,bj),hFacZOpen) |
|
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F |
47 |
MOM_VI_MASK_VORT3 |
hFacZ(i,j)=hFacZOpen |
|
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F |
48 |
MOM_VI_MASK_VORT3 |
IF (hFacZ(i,j).EQ.0.) THEN |
|
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F |
49 |
MOM_VI_MASK_VORT3 |
r_hFacZ(i,j)=0. |
|
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F |
50 |
MOM_VI_MASK_VORT3 |
vort3(i,j)=0. |
|
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F |
52 |
MOM_VI_MASK_VORT3 |
r_hFacZ(i,j)=1./hFacZ(i,j) |
|
./verification/bottom_ctrl_5x5/code_ad/cost_test.F |
32 |
COST_TEST |
integer i, j, k |
|
./model/src/integr_continuity.F |
108 |
INTEGR_CONTINUITY |
DO i=1,sNx+1 |
|
./model/src/integr_continuity.F |
109 |
INTEGR_CONTINUITY |
uTrans(i,j) = uFld(i,j,k,bi,bj)*_dyG(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
111 |
INTEGR_CONTINUITY |
& *drF(k)*_hFacW(i,j,k,bi,bj) |
|
./model/src/integr_continuity.F |
112 |
INTEGR_CONTINUITY |
vTrans(i,j) = vFld(i,j,k,bi,bj)*_dxG(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
114 |
INTEGR_CONTINUITY |
& *drF(k)*_hFacS(i,j,k,bi,bj) |
|
./model/src/integr_continuity.F |
120 |
INTEGR_CONTINUITY |
DO i=1,sNx |
|
./model/src/integr_continuity.F |
121 |
INTEGR_CONTINUITY |
hDivFlow(i,j) = hDivFlow(i,j) |
|
./model/src/integr_continuity.F |
122 |
INTEGR_CONTINUITY |
& +maskC(i,j,k,bi,bj)*( uTrans(i+1,j)-uTrans(i,j) |
|
./model/src/integr_continuity.F |
123 |
INTEGR_CONTINUITY |
& +vTrans(i,j+1)-vTrans(i,j) ) |
|
./model/src/integr_continuity.F |
125 |
INTEGR_CONTINUITY |
& -facMass*addMass(i,j,k,bi,bj) |
|
./model/src/integr_continuity.F |
143 |
INTEGR_CONTINUITY |
DO i=1,sNx |
|
./model/src/integr_continuity.F |
144 |
INTEGR_CONTINUITY |
dEtaHdt(i,j,bi,bj) = (etaN(i,j,bi,bj)-etaH(i,j,bi,bj)) |
|
./model/src/integr_continuity.F |
151 |
INTEGR_CONTINUITY |
DO i=1,sNx |
|
./model/src/integr_continuity.F |
152 |
INTEGR_CONTINUITY |
PmEpR(i,j,bi,bj) = dEtaHdt(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
153 |
INTEGR_CONTINUITY |
& + hDivFlow(i,j)*recip_rA(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
155 |
INTEGR_CONTINUITY |
PmEpR(i,j,bi,bj) = PmEpR(i,j,bi,bj)*rUnit2mass |
|
./model/src/integr_continuity.F |
160 |
INTEGR_CONTINUITY |
DO i=1,sNx |
|
./model/src/integr_continuity.F |
162 |
INTEGR_CONTINUITY |
PmEpR(i,j,bi,bj) = 0. _d 0 |
|
./model/src/integr_continuity.F |
163 |
INTEGR_CONTINUITY |
dEtaHdt(i,j,bi,bj) = -hDivFlow(i,j)*recip_rA(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
171 |
INTEGR_CONTINUITY |
DO i=1-OLx,sNx+OLx |
|
./model/src/integr_continuity.F |
172 |
INTEGR_CONTINUITY |
PmEpR(i,j,bi,bj) = -EmPmR(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
176 |
INTEGR_CONTINUITY |
DO i=1,sNx |
|
./model/src/integr_continuity.F |
177 |
INTEGR_CONTINUITY |
ks = kSurfC(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
178 |
INTEGR_CONTINUITY |
dEtaHdt(i,j,bi,bj) = -hDivFlow(i,j)*recip_rA(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
180 |
INTEGR_CONTINUITY |
& -facEmP*EmPmR(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
190 |
INTEGR_CONTINUITY |
DO i=1,sNx |
|
./model/src/integr_continuity.F |
191 |
INTEGR_CONTINUITY |
dEtaHdt(i,j,bi,bj) = dEtaHdt(i,j,bi,bj)*maskInC(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
208 |
INTEGR_CONTINUITY |
DO i=1-OLx,sNx+OLx |
|
./model/src/integr_continuity.F |
209 |
INTEGR_CONTINUITY |
etaN(i,j,bi,bj) = etaH(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
214 |
INTEGR_CONTINUITY |
DO i=1,sNx |
|
./model/src/integr_continuity.F |
215 |
INTEGR_CONTINUITY |
etaN(i,j,bi,bj) = etaH(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
216 |
INTEGR_CONTINUITY |
& + implicDiv2Dflow*dEtaHdt(i,j,bi,bj)*deltaTfreesurf |
|
./model/src/integr_continuity.F |
240 |
INTEGR_CONTINUITY |
DO i=1,sNx |
|
./model/src/integr_continuity.F |
241 |
INTEGR_CONTINUITY |
ks = kSurfC(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
242 |
INTEGR_CONTINUITY |
rStarDhDt(i,j) = dEtaHdt(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
244 |
INTEGR_CONTINUITY |
& *recip_Rcol(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
269 |
INTEGR_CONTINUITY |
DO i=1,sNx |
|
./model/src/integr_continuity.F |
270 |
INTEGR_CONTINUITY |
wVel(i,j,k,bi,bj) = wVel(i,j,k,bi,bj) |
|
./model/src/integr_continuity.F |
271 |
INTEGR_CONTINUITY |
& +mass2rUnit*PmEpR(i,j,bi,bj)*maskC(i,j,k,bi,bj) |
|
./model/src/integr_continuity.F |
282 |
INTEGR_CONTINUITY |
DO i=1,sNx |
|
./model/src/integr_continuity.F |
283 |
INTEGR_CONTINUITY |
wVel(i,j,k,bi,bj) = wVel(i,j,k,bi,bj)*maskInC(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
57 |
INTEGR_CONTINUITY |
INTEGER i, j |
|
./model/src/integr_continuity.F |
65 |
INTEGR_CONTINUITY |
INTEGER i, j |
|
./model/src/integr_continuity.F |
96 |
INTEGR_CONTINUITY |
DO i=1-OLx,sNx+OLx |
|
./model/src/integr_continuity.F |
97 |
INTEGR_CONTINUITY |
hDivFlow(i,j) = 0. _d 0 |
|
./model/src/integr_continuity.F |
98 |
INTEGR_CONTINUITY |
utrans(i,j) = 0. _d 0 |
|
./model/src/integr_continuity.F |
99 |
INTEGR_CONTINUITY |
vtrans(i,j) = 0. _d 0 |
|
./model/src/integrate_for_w.F |
103 |
INTEGRATE_FOR_W |
DO i=1,sNx |
|
./model/src/integrate_for_w.F |
104 |
INTEGRATE_FOR_W |
wFld(i,j,k,bi,bj) = |
|
./model/src/integrate_for_w.F |
105 |
INTEGRATE_FOR_W |
& conv2d(i,j)*recip_rA(i,j,bi,bj) |
|
./model/src/integrate_for_w.F |
106 |
INTEGRATE_FOR_W |
& *maskC(i,j,k,bi,bj)*maskC(i,j,k-1,bi,bj) |
|
./model/src/integrate_for_w.F |
112 |
INTEGRATE_FOR_W |
DO i=1,sNx |
|
./model/src/integrate_for_w.F |
113 |
INTEGRATE_FOR_W |
wFld(i,j,k,bi,bj) = |
|
./model/src/integrate_for_w.F |
114 |
INTEGRATE_FOR_W |
& ( wFld(i,j,k+1,bi,bj)*deepFac2F(k+1)*rhoFacF(k+1) |
|
./model/src/integrate_for_w.F |
115 |
INTEGRATE_FOR_W |
& +conv2d(i,j)*recip_rA(i,j,bi,bj) |
|
./model/src/integrate_for_w.F |
116 |
INTEGRATE_FOR_W |
& )*maskC(i,j,k,bi,bj)*maskC(i,j,k-1,bi,bj) |
|
./model/src/integrate_for_w.F |
128 |
INTEGRATE_FOR_W |
DO i=1,sNx |
|
./model/src/integrate_for_w.F |
129 |
INTEGRATE_FOR_W |
wFld(i,j,k,bi,bj) = |
|
./model/src/integrate_for_w.F |
130 |
INTEGRATE_FOR_W |
& ( conv2d(i,j)*recip_rA(i,j,bi,bj) |
|
./model/src/integrate_for_w.F |
131 |
INTEGRATE_FOR_W |
& -rStarDhDt(i,j)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/integrate_for_w.F |
132 |
INTEGRATE_FOR_W |
& )*maskC(i,j,k,bi,bj) |
|
./model/src/integrate_for_w.F |
138 |
INTEGRATE_FOR_W |
DO i=1,sNx |
|
./model/src/integrate_for_w.F |
139 |
INTEGRATE_FOR_W |
wFld(i,j,k,bi,bj) = |
|
./model/src/integrate_for_w.F |
140 |
INTEGRATE_FOR_W |
& ( wFld(i,j,k+1,bi,bj)*deepFac2F(k+1)*rhoFacF(k+1) |
|
./model/src/integrate_for_w.F |
141 |
INTEGRATE_FOR_W |
& +conv2d(i,j)*recip_rA(i,j,bi,bj) |
|
./model/src/integrate_for_w.F |
142 |
INTEGRATE_FOR_W |
& -rStarDhDt(i,j)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/integrate_for_w.F |
143 |
INTEGRATE_FOR_W |
& )*maskC(i,j,k,bi,bj) |
|
./model/src/integrate_for_w.F |
154 |
INTEGRATE_FOR_W |
DO i=1,sNx |
|
./model/src/integrate_for_w.F |
155 |
INTEGRATE_FOR_W |
wFld(i,j,k,bi,bj) = |
|
./model/src/integrate_for_w.F |
156 |
INTEGRATE_FOR_W |
& ( conv2d(i,j)*recip_rA(i,j,bi,bj) |
|
./model/src/integrate_for_w.F |
157 |
INTEGRATE_FOR_W |
& -dEtaHdt(i,j,bi,bj)*dBHybSigF(k) |
|
./model/src/integrate_for_w.F |
158 |
INTEGRATE_FOR_W |
& )*maskC(i,j,k,bi,bj) |
|
./model/src/integrate_for_w.F |
163 |
INTEGRATE_FOR_W |
DO i=1,sNx |
|
./model/src/integrate_for_w.F |
164 |
INTEGRATE_FOR_W |
wFld(i,j,k,bi,bj) = |
|
./model/src/integrate_for_w.F |
165 |
INTEGRATE_FOR_W |
& ( wFld(i,j,k+1,bi,bj) |
|
./model/src/integrate_for_w.F |
166 |
INTEGRATE_FOR_W |
& +conv2d(i,j)*recip_rA(i,j,bi,bj) |
|
./model/src/integrate_for_w.F |
167 |
INTEGRATE_FOR_W |
& -dEtaHdt(i,j,bi,bj)*dBHybSigF(k) |
|
./model/src/integrate_for_w.F |
168 |
INTEGRATE_FOR_W |
& )*maskC(i,j,k,bi,bj) |
|
./model/src/integrate_for_w.F |
179 |
INTEGRATE_FOR_W |
DO i=1,sNx |
|
./model/src/integrate_for_w.F |
180 |
INTEGRATE_FOR_W |
wFld(i,j,k,bi,bj) = |
|
./model/src/integrate_for_w.F |
181 |
INTEGRATE_FOR_W |
& conv2d(i,j)*recip_rA(i,j,bi,bj) |
|
./model/src/integrate_for_w.F |
182 |
INTEGRATE_FOR_W |
& *maskC(i,j,k,bi,bj) |
|
./model/src/integrate_for_w.F |
188 |
INTEGRATE_FOR_W |
DO i=1,sNx |
|
./model/src/integrate_for_w.F |
189 |
INTEGRATE_FOR_W |
wFld(i,j,k,bi,bj) = |
|
./model/src/integrate_for_w.F |
190 |
INTEGRATE_FOR_W |
& ( wFld(i,j,k+1,bi,bj)*deepFac2F(k+1)*rhoFacF(k+1) |
|
./model/src/integrate_for_w.F |
191 |
INTEGRATE_FOR_W |
& +conv2d(i,j)*recip_rA(i,j,bi,bj) |
|
./model/src/integrate_for_w.F |
192 |
INTEGRATE_FOR_W |
& )*maskC(i,j,k,bi,bj) |
|
./model/src/integrate_for_w.F |
56 |
INTEGRATE_FOR_W |
INTEGER i,j |
|
./model/src/integrate_for_w.F |
65 |
INTEGRATE_FOR_W |
DO i=1,sNx+1 |
|
./model/src/integrate_for_w.F |
66 |
INTEGRATE_FOR_W |
uTrans(i,j) = uFld(i,j,k,bi,bj) |
|
./model/src/integrate_for_w.F |
67 |
INTEGRATE_FOR_W |
& *_dyG(i,j,bi,bj)*deepFacC(k)*rhoFacC(k) |
|
./model/src/integrate_for_w.F |
68 |
INTEGRATE_FOR_W |
& *drF(k)*_hFacW(i,j,k,bi,bj) |
|
./model/src/integrate_for_w.F |
69 |
INTEGRATE_FOR_W |
vTrans(i,j) = vFld(i,j,k,bi,bj) |
|
./model/src/integrate_for_w.F |
70 |
INTEGRATE_FOR_W |
& *_dxG(i,j,bi,bj)*deepFacC(k)*rhoFacC(k) |
|
./model/src/integrate_for_w.F |
71 |
INTEGRATE_FOR_W |
& *drF(k)*_hFacS(i,j,k,bi,bj) |
|
./model/src/integrate_for_w.F |
75 |
INTEGRATE_FOR_W |
DO i=1,sNx |
|
./model/src/integrate_for_w.F |
76 |
INTEGRATE_FOR_W |
conv2d(i,j) = -( uTrans(i+1,j)-uTrans(i,j) |
|
./model/src/integrate_for_w.F |
77 |
INTEGRATE_FOR_W |
& +vTrans(i,j+1)-vTrans(i,j) ) |
|
./model/src/integrate_for_w.F |
83 |
INTEGRATE_FOR_W |
DO i=1,sNx |
|
./model/src/integrate_for_w.F |
84 |
INTEGRATE_FOR_W |
conv2d(i,j) = conv2d(i,j) |
|
./model/src/integrate_for_w.F |
85 |
INTEGRATE_FOR_W |
& + mFld(i,j,k,bi,bj)*mass2rUnit |
|
./model/src/integrate_for_w.F |
97 |
INTEGRATE_FOR_W |
DO i=1,sNx |
|
./model/src/integrate_for_w.F |
98 |
INTEGRATE_FOR_W |
wFld(i,j,k,bi,bj) = 0. |
|
./model/src/load_fields_driver.F |
100 |
LOAD_FIELDS_DRIVER |
addMass(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/load_fields_driver.F |
115 |
LOAD_FIELDS_DRIVER |
DO i=1-OLx,sNx+OLx |
|
./model/src/load_fields_driver.F |
116 |
LOAD_FIELDS_DRIVER |
frictionHeating(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/load_fields_driver.F |
84 |
LOAD_FIELDS_DRIVER |
INTEGER i,j,k,bi,bj |
|
./model/src/load_fields_driver.F |
99 |
LOAD_FIELDS_DRIVER |
DO i=1-OLx,sNx+OLx |
|
./model/src/load_grid_spacing.F |
119 |
LOAD_GRID_SPACING |
DO i=1,gridNx |
|
./model/src/load_grid_spacing.F |
121 |
LOAD_GRID_SPACING |
IF ( delX(i).EQ.UNSET_RL ) THEN |
|
./model/src/load_grid_spacing.F |
124 |
LOAD_GRID_SPACING |
& ' No value for delX at i =', i |
|
./model/src/load_grid_spacing.F |
128 |
LOAD_GRID_SPACING |
IF ( delX(i).LE.0. ) THEN |
|
./model/src/load_grid_spacing.F |
131 |
LOAD_GRID_SPACING |
& ' delX(i=', i, ')=', delX(i), ' : MUST BE >0' |
|
./model/src/load_grid_spacing.F |
44 |
LOAD_GRID_SPACING |
INTEGER i, j, n |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F |
124 |
FIZHI_INIT_FIXED |
do i=im1,im2 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F |
125 |
FIZHI_INIT_FIXED |
phis_var(i,j,bi,bj) = 0. |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F |
40 |
FIZHI_INIT_FIXED |
INTEGER i,j,L,bi,bj |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F |
75 |
FIZHI_INIT_FIXED |
do i = im1,im2 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F |
76 |
FIZHI_INIT_FIXED |
lons(i,j,bi,bj) = xC(i,j,bi,bj) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F |
77 |
FIZHI_INIT_FIXED |
lats(i,j,bi,bj) = yC(i,j,bi,bj) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F |
93 |
FIZHI_INIT_FIXED |
do i=im1,im2 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F |
94 |
FIZHI_INIT_FIXED |
landtype(i,j,bi,bj) = surftype(i,j,1,bi,bj) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F |
95 |
FIZHI_INIT_FIXED |
if(fracland(i,j,bi,bj).ge.0.3.and.surftype(i,j,1,bi,bj).ge.100) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F |
96 |
FIZHI_INIT_FIXED |
& landtype(i,j,bi,bj) = surftype(i,j,2,bi,bj) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F |
97 |
FIZHI_INIT_FIXED |
if(sice(i,j,bi,bj).ne.0.0)landtype(i,j,bi,bj) = 101 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
110 |
FIZHI_INIT_VEG |
do i=1,nchp |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
111 |
FIZHI_INIT_VEG |
igrd(i,bi,bj) = 1 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
121 |
FIZHI_INIT_VEG |
do i=1,im |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
122 |
FIZHI_INIT_VEG |
if(surftype(i,j,k,bi,bj).ge.100 .and. |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
123 |
FIZHI_INIT_VEG |
& tilefrac(i,j,k,bi,bj).gt.0.) then |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
125 |
FIZHI_INIT_VEG |
igrd (nchptot(bi,bj),bi,bj) = i + (j-1)*im |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
126 |
FIZHI_INIT_VEG |
ityp (nchptot(bi,bj),bi,bj) = surftype(i,j,k,bi,bj) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
127 |
FIZHI_INIT_VEG |
chfr (nchptot(bi,bj),bi,bj) = tilefrac(i,j,k,bi,bj) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
128 |
FIZHI_INIT_VEG |
chlon(nchptot(bi,bj),bi,bj) = lons(i,j,bi,bj) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
129 |
FIZHI_INIT_VEG |
chlt (nchptot(bi,bj),bi,bj) = lats(i,j,bi,bj) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
67 |
FIZHI_INIT_VEG |
INTEGER i,j,k,bi,bj |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
76 |
FIZHI_INIT_VEG |
do i = 1,im |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
77 |
FIZHI_INIT_VEG |
surftype(i,j,1,bi,bj) = 100 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
78 |
FIZHI_INIT_VEG |
tilefrac(i,j,1,bi,bj) = 0.99 _d 0 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
79 |
FIZHI_INIT_VEG |
surftype(i,j,2,bi,bj) = 100 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
80 |
FIZHI_INIT_VEG |
tilefrac(i,j,2,bi,bj) = 0.01 _d 0 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
85 |
FIZHI_INIT_VEG |
do i = 1,im |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
86 |
FIZHI_INIT_VEG |
surftype(i,j,k,bi,bj) = 0 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
87 |
FIZHI_INIT_VEG |
tilefrac(i,j,k,bi,bj) = 0. |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
108 |
INI_SALT |
call QSAT(temperature(i,j,k,bi,bj),pinmb,qstar(i,j,k,bi,bj), |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
110 |
INI_SALT |
salt(I,J,K,bi,bj) = rhum(i,j,k,bi,bj) * qstar(i,j,k,bi,bj) |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
103 |
UPDATE_OCEAN_EXPORTS |
do i=im1,im2 |
|
./verification/fizhi-cs-aqualev20/code/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) |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
105 |
UPDATE_OCEAN_EXPORTS |
. sst(i,j,bi,bj) = sstmin |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
180 |
GETSICE |
integer i,j |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
183 |
GETSICE |
do i = im1,im2 |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
184 |
GETSICE |
sice(i,j,bi,bj) = 0. |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
257 |
GETSST |
integer i,j |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
267 |
GETSST |
do i = im1,im2 |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
269 |
GETSST |
if( abs(yc(i,j,bi,bj)*deg2rad) .lt. pio3 ) then |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
270 |
GETSST |
sinarg = 3.*yc(i,j,bi,bj)*deg2rad/2. |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
271 |
GETSST |
sst(i,j,bi,bj) = 273.16 + 27.*(1.-(sin(sinarg)*sin(sinarg))) |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
273 |
GETSST |
sst(i,j,bi,bj) = 273.16 |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
34 |
UPDATE_OCEAN_EXPORTS |
integer i, j, bi, bj, bislot, bjslot |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
131 |
DO_FIZHI |
INTEGER i,j,L |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
172 |
DO_FIZHI |
do i = im1,im2 |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
173 |
DO_FIZHI |
recip_P0g= 1. _d 0 / pephy(i,j,Nrphys+1,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
175 |
DO_FIZHI |
termP=0.5 _d 0*((pephy(i,j,L,bi,bj)+pephy(i,j,L+1,bi,bj)) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
178 |
DO_FIZHI |
duphy(i,j,L,bi,bj)= -kV*uphy(i,j,L,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
179 |
DO_FIZHI |
dvphy(i,j,L,bi,bj)= -kV*vphy(i,j,L,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
184 |
DO_FIZHI |
termP=0.5 _d 0*( pephy(i,j,L,bi,bj) + pephy(i,j,L+1,bi,bj) ) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
195 |
DO_FIZHI |
dthphy(i,j,L,bi,bj)=- kT*( thphy(I,J,L,bi,bj)-thetaEq ) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
197 |
DO_FIZHI |
dthphy(i,j,L,bi,bj)=0. |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
202 |
DO_FIZHI |
dsphy(i,j,L,bi,bj)=0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F |
124 |
FIZHI_INIT_FIXED |
do i=im1,im2 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F |
125 |
FIZHI_INIT_FIXED |
phis_var(i,j,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F |
40 |
FIZHI_INIT_FIXED |
INTEGER i,j,L,bi,bj |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F |
75 |
FIZHI_INIT_FIXED |
do i = im1,im2 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F |
76 |
FIZHI_INIT_FIXED |
lons(i,j,bi,bj) = xC(i,j,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F |
77 |
FIZHI_INIT_FIXED |
lats(i,j,bi,bj) = yC(i,j,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F |
93 |
FIZHI_INIT_FIXED |
do i=im1,im2 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F |
94 |
FIZHI_INIT_FIXED |
landtype(i,j,bi,bj) = surftype(i,j,1,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F |
95 |
FIZHI_INIT_FIXED |
if(fracland(i,j,bi,bj).ge.0.3.and.surftype(i,j,1,bi,bj).ge.100) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F |
96 |
FIZHI_INIT_FIXED |
& landtype(i,j,bi,bj) = surftype(i,j,2,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F |
97 |
FIZHI_INIT_FIXED |
if(sice(i,j,bi,bj).ne.0.0)landtype(i,j,bi,bj) = 101 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
102 |
FIZHI_INIT_VARS |
if(pedyn(i,j,Nr+1,bi,bj).lt.1.e-5) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
103 |
FIZHI_INIT_VARS |
& pedyn(i,j,Nr+1,bi,bj) = 1.e-5 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
108 |
FIZHI_INIT_VARS |
do i = 1,sNx |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
109 |
FIZHI_INIT_VARS |
pephy(i,j,1,bi,bj)=Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
111 |
FIZHI_INIT_VARS |
pephy(i,j,L,bi,bj)=pephy(i,j,L-1,bi,bj)-dpphys0(i,j,L-1,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
114 |
FIZHI_INIT_VARS |
if(pephy(i,j,Nrphys+1,bi,bj).lt.1.e-5) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
115 |
FIZHI_INIT_VARS |
& pephy(i,j,Nrphys+1,bi,bj) = 1.e-5 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
124 |
FIZHI_INIT_VARS |
do i = 1,sNx |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
125 |
FIZHI_INIT_VARS |
windphy(i,j,L,bi,bj) = 0.025 * |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
126 |
FIZHI_INIT_VARS |
& log((pephy(i,j,1,bi,bj)-pephy(i,j,L+1,bi,bj))*10.) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
148 |
FIZHI_INIT_VARS |
do i = 1,sNx |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
149 |
FIZHI_INIT_VARS |
uphy(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
157 |
FIZHI_INIT_VARS |
do i = 1,sNx |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
158 |
FIZHI_INIT_VARS |
vphy(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
166 |
FIZHI_INIT_VARS |
do i = 1,sNx |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
167 |
FIZHI_INIT_VARS |
thphy(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
176 |
FIZHI_INIT_VARS |
do i = 1,sNx |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
177 |
FIZHI_INIT_VARS |
sphy(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
185 |
FIZHI_INIT_VARS |
do i = 1,sNx |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
186 |
FIZHI_INIT_VARS |
duphy(i,j,L,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
187 |
FIZHI_INIT_VARS |
dvphy(i,j,L,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
188 |
FIZHI_INIT_VARS |
dthphy(i,j,L,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
189 |
FIZHI_INIT_VARS |
dsphy(i,j,L,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
197 |
FIZHI_INIT_VARS |
do i = im1,im2 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
198 |
FIZHI_INIT_VARS |
guphy(i,j,L,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
199 |
FIZHI_INIT_VARS |
gvphy(i,j,L,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
200 |
FIZHI_INIT_VARS |
gthphy(i,j,L,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
201 |
FIZHI_INIT_VARS |
gsphy(i,j,L,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
209 |
FIZHI_INIT_VARS |
do i = 1,nchp |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
210 |
FIZHI_INIT_VARS |
ctmt(i,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
211 |
FIZHI_INIT_VARS |
xxmt(i,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
212 |
FIZHI_INIT_VARS |
yymt(i,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
213 |
FIZHI_INIT_VARS |
zetamt(i,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
216 |
FIZHI_INIT_VARS |
do i = 1,nchp |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
217 |
FIZHI_INIT_VARS |
tke(i,L,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
218 |
FIZHI_INIT_VARS |
xlmt(i,L,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
219 |
FIZHI_INIT_VARS |
khmt(i,L,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
232 |
FIZHI_INIT_VARS |
do i = 1,nchp |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
233 |
FIZHI_INIT_VARS |
tcanopy(i,bi,bj) = 283. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
234 |
FIZHI_INIT_VARS |
tdeep(i,bi,bj) = 282.5 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
235 |
FIZHI_INIT_VARS |
ecanopy(i,bi,bj) = 2.e-2 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
236 |
FIZHI_INIT_VARS |
swetshal(i,bi,bj) = 0.6 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
237 |
FIZHI_INIT_VARS |
swetroot(i,bi,bj) = 0.5 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
238 |
FIZHI_INIT_VARS |
swetdeep(i,bi,bj) = 0.5 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
239 |
FIZHI_INIT_VARS |
capac(i,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
240 |
FIZHI_INIT_VARS |
snodep(i,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
254 |
FIZHI_INIT_VARS |
do i = 1,sNx |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
255 |
FIZHI_INIT_VARS |
swlz(i,j,L,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
256 |
FIZHI_INIT_VARS |
lwlz(i,j,L,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
257 |
FIZHI_INIT_VARS |
qliqavesw(i,j,L,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
258 |
FIZHI_INIT_VARS |
qliqavelw(i,j,L,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
259 |
FIZHI_INIT_VARS |
fccavesw(i,j,L,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
260 |
FIZHI_INIT_VARS |
fccavelw(i,j,L,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
261 |
FIZHI_INIT_VARS |
cldtot_sw(i,j,L,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
262 |
FIZHI_INIT_VARS |
cldras_sw(i,j,L,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
263 |
FIZHI_INIT_VARS |
cldlsp_sw(i,j,L,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
264 |
FIZHI_INIT_VARS |
cldtot_lw(i,j,L,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
265 |
FIZHI_INIT_VARS |
cldras_lw(i,j,L,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
266 |
FIZHI_INIT_VARS |
cldlsp_lw(i,j,L,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
271 |
FIZHI_INIT_VARS |
do i = 1,sNx |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
272 |
FIZHI_INIT_VARS |
rainlsp(i,j,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
273 |
FIZHI_INIT_VARS |
raincon(i,j,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
274 |
FIZHI_INIT_VARS |
snowfall(i,j,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
48 |
FIZHI_INIT_VARS |
INTEGER i, j, L, bi, bj, Lbotij |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
81 |
FIZHI_INIT_VARS |
do i = 1,sNx |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
83 |
FIZHI_INIT_VARS |
pedyn(i,j,L,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
88 |
FIZHI_INIT_VARS |
do i = 1,sNx |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
89 |
FIZHI_INIT_VARS |
Lbotij = kSurfC(i,j,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
91 |
FIZHI_INIT_VARS |
& pedyn(i,j,Lbotij,bi,bj) = Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
95 |
FIZHI_INIT_VARS |
do i = 1,sNx |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
96 |
FIZHI_INIT_VARS |
Lbotij = kSurfC(i,j,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
98 |
FIZHI_INIT_VARS |
pedyn(i,j,L,bi,bj) = pedyn(i,j,L-1,bi,bj) - |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
99 |
FIZHI_INIT_VARS |
& drF(L-1)*hfacC(i,j,L-1,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
100 |
FIZHI_INIT_VEG |
tilefrac(i,j,k,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
123 |
FIZHI_INIT_VEG |
do i=1,nchp |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
124 |
FIZHI_INIT_VEG |
igrd(i,bi,bj) = 1 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
131 |
FIZHI_INIT_VEG |
do i=1,im |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
132 |
FIZHI_INIT_VEG |
if(surftype(i,j,k,bi,bj).lt.100 .and. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
133 |
FIZHI_INIT_VEG |
& tilefrac(i,j,k,bi,bj).gt.0.) then |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
135 |
FIZHI_INIT_VEG |
igrd (nchpland(bi,bj),bi,bj) = i + (j-1)*im |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
136 |
FIZHI_INIT_VEG |
ityp (nchpland(bi,bj),bi,bj) = surftype(i,j,k,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
137 |
FIZHI_INIT_VEG |
chfr (nchpland(bi,bj),bi,bj) = tilefrac(i,j,k,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
138 |
FIZHI_INIT_VEG |
chlon(nchpland(bi,bj),bi,bj) = lons(i,j,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
139 |
FIZHI_INIT_VEG |
chlt (nchpland(bi,bj),bi,bj) = lats(i,j,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
149 |
FIZHI_INIT_VEG |
do i=1,im |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
150 |
FIZHI_INIT_VEG |
if(surftype(i,j,k,bi,bj).ge.100 .and. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
151 |
FIZHI_INIT_VEG |
& tilefrac(i,j,k,bi,bj).gt.0.) then |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
153 |
FIZHI_INIT_VEG |
igrd (nchptot(bi,bj),bi,bj) = i + (j-1)*im |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
154 |
FIZHI_INIT_VEG |
ityp (nchptot(bi,bj),bi,bj) = surftype(i,j,k,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
155 |
FIZHI_INIT_VEG |
chfr (nchptot(bi,bj),bi,bj) = tilefrac(i,j,k,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
156 |
FIZHI_INIT_VEG |
chlon(nchptot(bi,bj),bi,bj) = lons(i,j,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
157 |
FIZHI_INIT_VEG |
chlt (nchptot(bi,bj),bi,bj) = lats(i,j,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
67 |
FIZHI_INIT_VEG |
INTEGER i,j,k,bi,bj |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
82 |
FIZHI_INIT_VEG |
do i = 1,im |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
83 |
FIZHI_INIT_VEG |
if(aim_landfr(i,j,bi,bj).gt.0.1) then |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
84 |
FIZHI_INIT_VEG |
surftype(i,j,1,bi,bj) = 1 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
85 |
FIZHI_INIT_VEG |
tilefrac(i,j,1,bi,bj) = 0.5 _d 0 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
86 |
FIZHI_INIT_VEG |
surftype(i,j,2,bi,bj) = 2 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
87 |
FIZHI_INIT_VEG |
tilefrac(i,j,2,bi,bj) = 0.5 _d 0 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
89 |
FIZHI_INIT_VEG |
surftype(i,j,1,bi,bj) = 100 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
90 |
FIZHI_INIT_VEG |
tilefrac(i,j,1,bi,bj) = 0.99 _d 0 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
91 |
FIZHI_INIT_VEG |
surftype(i,j,2,bi,bj) = 100 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
92 |
FIZHI_INIT_VEG |
tilefrac(i,j,2,bi,bj) = 0.01 _d 0 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
98 |
FIZHI_INIT_VEG |
do i = 1,im |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
99 |
FIZHI_INIT_VEG |
surftype(i,j,k,bi,bj) = 0 |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
134 |
FIZHI_TENDENCY_APPLY_T |
integer i, j |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
137 |
FIZHI_TENDENCY_APPLY_T |
do i=iMin,iMax |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
138 |
FIZHI_TENDENCY_APPLY_T |
gT_arr(i,j) = maskC(i,j,kLev,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
139 |
FIZHI_TENDENCY_APPLY_T |
. *( gT_arr(i,j) + gthphy(i,j,kLev,bi,bj) ) |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
180 |
FIZHI_TENDENCY_APPLY_S |
integer i, j |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
183 |
FIZHI_TENDENCY_APPLY_S |
do i=iMin,iMax |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
184 |
FIZHI_TENDENCY_APPLY_S |
gS_arr(i,j) = maskC(i,j,kLev,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
185 |
FIZHI_TENDENCY_APPLY_S |
. *( gS_arr(i,j) + gsphy(i,j,kLev,bi,bj) ) |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
41 |
FIZHI_TENDENCY_APPLY_U |
integer i, j |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
44 |
FIZHI_TENDENCY_APPLY_U |
do i=iMin,iMax |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
45 |
FIZHI_TENDENCY_APPLY_U |
gU_arr(i,j) = gU_arr(i,j) + |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
46 |
FIZHI_TENDENCY_APPLY_U |
. maskW(i,j,kLev,bi,bj) * guphy(i,j,kLev,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
88 |
FIZHI_TENDENCY_APPLY_V |
integer i, j |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
91 |
FIZHI_TENDENCY_APPLY_V |
do i=iMin,iMax |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
92 |
FIZHI_TENDENCY_APPLY_V |
gV_arr(i,j) = gV_arr(i,j) + |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
93 |
FIZHI_TENDENCY_APPLY_V |
. maskS(i,j,kLev,bi,bj) * gvphy(i,j,kLev,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F |
119 |
GETSICE |
integer i,j |
|
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F |
122 |
GETSICE |
do i = im1,im2 |
|
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F |
123 |
GETSICE |
sice(i,j,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F |
179 |
GETSST |
integer i,j |
|
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F |
182 |
GETSST |
do i = im1,im2 |
|
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F |
183 |
GETSST |
sst(i,j,bi,bj) = 280. |
|
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F |
24 |
UPDATE_OCEAN_EXPORTS |
integer i, j, bi, bj, biglobal, bjglobal |
|
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F |
57 |
UPDATE_OCEAN_EXPORTS |
do i=im1,im2 |
|
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F |
58 |
UPDATE_OCEAN_EXPORTS |
if(sice(i,j,bi,bj).eq.0.0 .and. sst(i,j,bi,bj).lt.sstmin) |
|
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F |
59 |
UPDATE_OCEAN_EXPORTS |
. sst(i,j,bi,bj) = sstmin |
|
./verification/flt_example/extra/write_float.F |
105 |
NO PROCEDURE |
do i=20,50,2 |
|
./verification/flt_example/extra/write_float.F |
106 |
NO PROCEDURE |
if (depth(i,j) .le. -2530.) then |
|
./verification/flt_example/extra/write_float.F |
110 |
NO PROCEDURE |
xpart = xc(i) |
|
./verification/flt_example/extra/write_float.F |
132 |
NO PROCEDURE |
do i=20,50,2 |
|
./verification/flt_example/extra/write_float.F |
133 |
NO PROCEDURE |
if (depth(i,j) .le. -2530.) then |
|
./verification/flt_example/extra/write_float.F |
137 |
NO PROCEDURE |
xpart = xc(i) |
|
./verification/flt_example/extra/write_float.F |
158 |
NO PROCEDURE |
do i=20,50,2 |
|
./verification/flt_example/extra/write_float.F |
159 |
NO PROCEDURE |
if (depth(i,j) .le. -2530.) then |
|
./verification/flt_example/extra/write_float.F |
163 |
NO PROCEDURE |
xpart = xc(i) |
|
./verification/flt_example/extra/write_float.F |
181 |
NO PROCEDURE |
i=20 |
|
./verification/flt_example/extra/write_float.F |
185 |
NO PROCEDURE |
xpart = xc(i) |
|
./verification/flt_example/extra/write_float.F |
43 |
NO PROCEDURE |
do i=2,Nx |
|
./verification/flt_example/extra/write_float.F |
44 |
NO PROCEDURE |
xc(i)=xc(i-1)+degX |
|
./verification/flt_example/extra/write_float.F |
83 |
NO PROCEDURE |
do i=20,50,2 |
|
./verification/flt_example/extra/write_float.F |
84 |
NO PROCEDURE |
if (depth(i,j) .le. -2530.) then |
|
./verification/flt_example/extra/write_float.F |
88 |
NO PROCEDURE |
xpart = xc(i) |
|
./model/src/momentum_correction_step.F |
60 |
MOMENTUM_CORRECTION_STEP |
INTEGER i, j |
|
./model/src/momentum_correction_step.F |
69 |
MOMENTUM_CORRECTION_STEP |
DO i=1-OLx,sNx+OLx |
|
./model/src/momentum_correction_step.F |
70 |
MOMENTUM_CORRECTION_STEP |
phiSurfX(i,j) = 0. |
|
./model/src/momentum_correction_step.F |
71 |
MOMENTUM_CORRECTION_STEP |
phiSurfY(i,j) = 0. |
|
./verification/global_ocean.cs32x15/code_ad/cost_test.F |
33 |
COST_TEST |
integer i, j, k |
|
./verification/global_ocean.cs32x15/code_ad/cost_test.F |
67 |
COST_TEST |
do i=1,sNx |
|
./verification/global_ocean.cs32x15/code_ad/cost_test.F |
68 |
COST_TEST |
ig = myXGlobalLo-1+(bi-1)*sNx+i |
|
./verification/global_ocean.cs32x15/code_ad/cost_test.F |
73 |
COST_TEST |
& 'COST ',ig,jg,kLocOut,' TILE ',i,j,bi,bj |
|
./verification/global_ocean.cs32x15/code_ad/cost_test.F |
74 |
COST_TEST |
objf_test(bi,bj) = theta(i,j,kLocOut,bi,bj) |
|
./verification/global_ocean.cs32x15/code_ad/cost_test.F |
77 |
COST_TEST |
& theta(i,j,kLocOut,bi,bj) |
|
./verification/global_ocean.cs32x15/code_ad/cost_test.F |
82 |
COST_TEST |
if (maskC(i,j,k,bi,bj).NE.0.) then |
|
./verification/global_ocean.cs32x15/code_ad/cost_test.F |
84 |
COST_TEST |
& (theta(i,j,k,bi,bj)-thetaLev(i,j,k,bi,bj))**2 |
|
./verification/halfpipe_streamice/code_ad/cost_test.F |
41 |
COST_TEST |
integer i, j, k |
|
./verification/halfpipe_streamice/code_ad/cost_test.F |
82 |
COST_TEST |
do i=1,sNx |
|
./verification/halfpipe_streamice/code_ad/cost_test.F |
85 |
COST_TEST |
if (streamice_hmask(i,j,bi,bj).eq.1.0) then |
|
./verification/halfpipe_streamice/code_ad/cost_test.F |
87 |
COST_TEST |
& u_streamice(i,j,bi,bj)**2+v_streamice(i,j,bi,bj)**2+ |
|
./verification/halfpipe_streamice/code_ad/cost_test.F |
88 |
COST_TEST |
& h_streamice(i,j,bi,bj)**2 |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_gentim2d.F |
150 |
CTRL_MAP_GENTIM2D |
do i = 1,sNx |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_gentim2d.F |
151 |
CTRL_MAP_GENTIM2D |
xx_gentim2d(i,j,bi,bj,iarr)=xx_gentim2d_loc(i,j,bi,bj) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_gentim2d.F |
168 |
CTRL_MAP_GENTIM2D |
bdot_streamice(i,j,bi,bj) = |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_gentim2d.F |
169 |
CTRL_MAP_GENTIM2D |
& bdot_streamice(i,j,bi,bj)+ |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_gentim2d.F |
170 |
CTRL_MAP_GENTIM2D |
& xx_gentim2d(i,j,bi,bj,iarr) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_gentim2d.F |
51 |
CTRL_MAP_GENTIM2D |
integer i,j,k |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_gentim2d.F |
89 |
CTRL_MAP_GENTIM2D |
bdot_streamice(i,j,bi,bj) = 0. _d 0 |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
100 |
CTRL_MAP_INI_GENARR |
& H_streamice(i,j,bi,bj) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
101 |
CTRL_MAP_INI_GENARR |
& + tmpfld2d(i,j,bi,bj) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
107 |
CTRL_MAP_INI_GENARR |
B_glen(i,j,bi,bj) = |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
108 |
CTRL_MAP_INI_GENARR |
& B_glen(i,j,bi,bj) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
109 |
CTRL_MAP_INI_GENARR |
& + tmpfld2d(i,j,bi,bj) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
155 |
CTRL_MAP_INI_GENARR |
do i = imin,imax |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
157 |
CTRL_MAP_INI_GENARR |
theta(i,j,k,bi,bj) = theta(i,j,k,bi,bj) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
158 |
CTRL_MAP_INI_GENARR |
& + fac*tmpfld3d(i,j,k,bi,bj) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
160 |
CTRL_MAP_INI_GENARR |
salt(i,j,k,bi,bj) = salt(i,j,k,bi,bj) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
161 |
CTRL_MAP_INI_GENARR |
& + fac*tmpfld3d(i,j,k,bi,bj) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
164 |
CTRL_MAP_INI_GENARR |
diffkr(i,j,k,bi,bj) = diffkr(i,j,k,bi,bj) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
165 |
CTRL_MAP_INI_GENARR |
& + tmpfld3d(i,j,k,bi,bj) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
56 |
CTRL_MAP_INI_GENARR |
integer i,j,k |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
96 |
CTRL_MAP_INI_GENARR |
do i = imin,imax |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
99 |
CTRL_MAP_INI_GENARR |
H_streamice(i,j,bi,bj) = |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_gentim2d.F |
150 |
CTRL_MAP_INI_GENTIM2D |
DO i = 1,sNx |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_gentim2d.F |
151 |
CTRL_MAP_INI_GENTIM2D |
if ((maskC(i,j,1,bi,bj).NE.0.).AND. |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_gentim2d.F |
152 |
CTRL_MAP_INI_GENTIM2D |
& (wgentim2d(i,j,bi,bj,iarr).GT.0.)) then |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_gentim2d.F |
153 |
CTRL_MAP_INI_GENTIM2D |
xx_gen(i,j,bi,bj)=xx_gen(i,j,bi,bj) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_gentim2d.F |
154 |
CTRL_MAP_INI_GENTIM2D |
& /sqrt(wgentim2d(i,j,bi,bj,iarr)) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_gentim2d.F |
156 |
CTRL_MAP_INI_GENTIM2D |
xx_gen(i,j,bi,bj)=0. _d 0 |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_gentim2d.F |
67 |
CTRL_MAP_INI_GENTIM2D |
integer i,j,k2 |
|
./verification/halfpipe_streamice/code_oad/cost_test.F |
41 |
COST_TEST |
integer i, j, k |
|
./verification/halfpipe_streamice/code_oad/cost_test.F |
82 |
COST_TEST |
do i=1,sNx |
|
./verification/halfpipe_streamice/code_oad/cost_test.F |
85 |
COST_TEST |
if (streamice_hmask(i,j,bi,bj).eq.1.0) then |
|
./verification/halfpipe_streamice/code_oad/cost_test.F |
87 |
COST_TEST |
& u_streamice(i,j,bi,bj)**2+v_streamice(i,j,bi,bj)**2+ |
|
./verification/halfpipe_streamice/code_oad/cost_test.F |
88 |
COST_TEST |
& h_streamice(i,j,bi,bj)**2 |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_gentim2d.F |
150 |
CTRL_MAP_GENTIM2D |
do i = 1,sNx |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_gentim2d.F |
151 |
CTRL_MAP_GENTIM2D |
xx_gentim2d(i,j,bi,bj,iarr)=xx_gentim2d_loc(i,j,bi,bj) |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_gentim2d.F |
168 |
CTRL_MAP_GENTIM2D |
bdot_streamice(i,j,bi,bj) = |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_gentim2d.F |
169 |
CTRL_MAP_GENTIM2D |
& bdot_streamice(i,j,bi,bj)+ |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_gentim2d.F |
170 |
CTRL_MAP_GENTIM2D |
& xx_gentim2d(i,j,bi,bj,iarr) |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_gentim2d.F |
51 |
CTRL_MAP_GENTIM2D |
integer i,j,k |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_gentim2d.F |
89 |
CTRL_MAP_GENTIM2D |
bdot_streamice(i,j,bi,bj) = 0. _d 0 |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
100 |
CTRL_MAP_INI_GENARR |
& H_streamice(i,j,bi,bj) |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
101 |
CTRL_MAP_INI_GENARR |
& + tmpfld2d(i,j,bi,bj) |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
107 |
CTRL_MAP_INI_GENARR |
B_glen(i,j,bi,bj) = |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
108 |
CTRL_MAP_INI_GENARR |
& B_glen(i,j,bi,bj) |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
109 |
CTRL_MAP_INI_GENARR |
& + tmpfld2d(i,j,bi,bj) |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
155 |
CTRL_MAP_INI_GENARR |
do i = imin,imax |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
157 |
CTRL_MAP_INI_GENARR |
theta(i,j,k,bi,bj) = theta(i,j,k,bi,bj) |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
158 |
CTRL_MAP_INI_GENARR |
& + fac*tmpfld3d(i,j,k,bi,bj) |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
160 |
CTRL_MAP_INI_GENARR |
salt(i,j,k,bi,bj) = salt(i,j,k,bi,bj) |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
161 |
CTRL_MAP_INI_GENARR |
& + fac*tmpfld3d(i,j,k,bi,bj) |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
164 |
CTRL_MAP_INI_GENARR |
diffkr(i,j,k,bi,bj) = diffkr(i,j,k,bi,bj) |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
165 |
CTRL_MAP_INI_GENARR |
& + tmpfld3d(i,j,k,bi,bj) |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
56 |
CTRL_MAP_INI_GENARR |
integer i,j,k |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
96 |
CTRL_MAP_INI_GENARR |
do i = imin,imax |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
99 |
CTRL_MAP_INI_GENARR |
H_streamice(i,j,bi,bj) = |
|
./verification/hs94.128x64x5/code/external_forcing.F |
115 |
EXTERNAL_FORCING_V |
INTEGER i, j |
|
./verification/hs94.128x64x5/code/external_forcing.F |
125 |
EXTERNAL_FORCING_V |
DO i=0,sNx+1 |
|
./verification/hs94.128x64x5/code/external_forcing.F |
126 |
EXTERNAL_FORCING_V |
IF ( hFacS(i,j,kLev,bi,bj) .GT. 0. ) THEN |
|
./verification/hs94.128x64x5/code/external_forcing.F |
127 |
EXTERNAL_FORCING_V |
recip_P0g=MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i,j-1,bi,bj)) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
132 |
EXTERNAL_FORCING_V |
gV(i,j,kLev,bi,bj)=gV(i,j,kLev,bi,bj) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
133 |
EXTERNAL_FORCING_V |
& -kV*vVel(i,j,kLev,bi,bj) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
183 |
EXTERNAL_FORCING_T |
INTEGER i, j |
|
./verification/hs94.128x64x5/code/external_forcing.F |
192 |
EXTERNAL_FORCING_T |
DO i=1,sNx |
|
./verification/hs94.128x64x5/code/external_forcing.F |
193 |
EXTERNAL_FORCING_T |
term1=60. _d 0*(SIN(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
196 |
EXTERNAL_FORCING_T |
& *(COS(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
200 |
EXTERNAL_FORCING_T |
termP=0.5 _d 0*( MIN(rF(kLev),Ro_surf(i,j,bi,bj))+rF(kLev+1) ) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
203 |
EXTERNAL_FORCING_T |
& (termP*recip_Rcol(i,j,bi,bj)-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
204 |
EXTERNAL_FORCING_T |
& *COS((yC(i,j,bi,bj)*deg2rad))**4 |
|
./verification/hs94.128x64x5/code/external_forcing.F |
205 |
EXTERNAL_FORCING_T |
gT(i,j,kLev,bi,bj)=gT(i,j,kLev,bi,bj) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
206 |
EXTERNAL_FORCING_T |
& - kT*( theta(i,j,kLev,bi,bj)-thetaEq ) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
207 |
EXTERNAL_FORCING_T |
& *maskC(i,j,kLev,bi,bj) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
47 |
EXTERNAL_FORCING_U |
INTEGER i, j |
|
./verification/hs94.128x64x5/code/external_forcing.F |
57 |
EXTERNAL_FORCING_U |
DO i=1,sNx+1 |
|
./verification/hs94.128x64x5/code/external_forcing.F |
58 |
EXTERNAL_FORCING_U |
IF ( hFacW(i,j,kLev,bi,bj) .GT. 0. ) THEN |
|
./verification/hs94.128x64x5/code/external_forcing.F |
59 |
EXTERNAL_FORCING_U |
recip_P0g=MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i-1,j,bi,bj)) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
64 |
EXTERNAL_FORCING_U |
gU(i,j,kLev,bi,bj)=gU(i,j,kLev,bi,bj) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
65 |
EXTERNAL_FORCING_U |
& -kV*uVel(i,j,kLev,bi,bj) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
153 |
APPLY_FORCING_V |
INTEGER i, j |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
165 |
APPLY_FORCING_V |
DO i=0,sNx+1 |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
166 |
APPLY_FORCING_V |
IF ( maskS(i,j,k,bi,bj).EQ.oneRS ) THEN |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
168 |
APPLY_FORCING_V |
recip_P0g = MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i,j-1,bi,bj)) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
183 |
APPLY_FORCING_V |
& /(etaHs(i,j,bi,bj)+rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj)) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
185 |
APPLY_FORCING_V |
& /(rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj)) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
190 |
APPLY_FORCING_V |
gV_arr(i,j) = gV_arr(i,j) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
191 |
APPLY_FORCING_V |
& - kV*vVel(i,j,k,bi,bj) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
246 |
APPLY_FORCING_T |
INTEGER i, j |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
257 |
APPLY_FORCING_T |
DO i=0,sNx+1 |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
258 |
APPLY_FORCING_T |
term1 = 60. _d 0*(SIN(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
261 |
APPLY_FORCING_T |
& *(COS(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
266 |
APPLY_FORCING_T |
termP = 0.5 _d 0*( MIN(rF(k),Ro_surf(i,j,bi,bj)) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
268 |
APPLY_FORCING_T |
& *recip_Rcol(i,j,bi,bj) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
280 |
APPLY_FORCING_T |
& /(etaH(i,j,bi,bj)+Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj)) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
282 |
APPLY_FORCING_T |
& /(Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj)) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
288 |
APPLY_FORCING_T |
& *COS((yC(i,j,bi,bj)*deg2rad))**4 |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
289 |
APPLY_FORCING_T |
gT_arr(i,j) = gT_arr(i,j) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
290 |
APPLY_FORCING_T |
& - kT*( theta(i,j,k,bi,bj)-thetaEq ) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
291 |
APPLY_FORCING_T |
& *maskC(i,j,k,bi,bj) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
60 |
APPLY_FORCING_U |
INTEGER i, j |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
72 |
APPLY_FORCING_U |
DO i=1,sNx+1 |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
73 |
APPLY_FORCING_U |
IF ( maskW(i,j,k,bi,bj).EQ.oneRS ) THEN |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
75 |
APPLY_FORCING_U |
recip_P0g = MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i-1,j,bi,bj)) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
90 |
APPLY_FORCING_U |
& /(etaHw(i,j,bi,bj)+rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj)) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
92 |
APPLY_FORCING_U |
& /(rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj)) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
97 |
APPLY_FORCING_U |
gU_arr(i,j) = gU_arr(i,j) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
98 |
APPLY_FORCING_U |
& - kV*uVel(i,j,k,bi,bj) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
153 |
APPLY_FORCING_V |
INTEGER i, j |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
165 |
APPLY_FORCING_V |
DO i=0,sNx+1 |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
166 |
APPLY_FORCING_V |
IF ( maskS(i,j,k,bi,bj).EQ.oneRS ) THEN |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
168 |
APPLY_FORCING_V |
recip_P0g = MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i,j-1,bi,bj)) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
183 |
APPLY_FORCING_V |
& /(etaHs(i,j,bi,bj)+rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj)) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
185 |
APPLY_FORCING_V |
& /(rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj)) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
190 |
APPLY_FORCING_V |
gV_arr(i,j) = gV_arr(i,j) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
191 |
APPLY_FORCING_V |
& - kV*vVel(i,j,k,bi,bj) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
246 |
APPLY_FORCING_T |
INTEGER i, j |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
257 |
APPLY_FORCING_T |
DO i=0,sNx+1 |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
258 |
APPLY_FORCING_T |
term1 = 60. _d 0*(SIN(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
261 |
APPLY_FORCING_T |
& *(COS(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
266 |
APPLY_FORCING_T |
termP = 0.5 _d 0*( MIN(rF(k),Ro_surf(i,j,bi,bj)) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
268 |
APPLY_FORCING_T |
& *recip_Rcol(i,j,bi,bj) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
280 |
APPLY_FORCING_T |
& /(etaH(i,j,bi,bj)+Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj)) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
282 |
APPLY_FORCING_T |
& /(Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj)) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
288 |
APPLY_FORCING_T |
& *COS((yC(i,j,bi,bj)*deg2rad))**4 |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
289 |
APPLY_FORCING_T |
gT_arr(i,j) = gT_arr(i,j) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
290 |
APPLY_FORCING_T |
& - kT*( theta(i,j,k,bi,bj)-thetaEq ) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
291 |
APPLY_FORCING_T |
& *maskC(i,j,k,bi,bj) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
60 |
APPLY_FORCING_U |
INTEGER i, j |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
72 |
APPLY_FORCING_U |
DO i=1,sNx+1 |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
73 |
APPLY_FORCING_U |
IF ( maskW(i,j,k,bi,bj).EQ.oneRS ) THEN |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
75 |
APPLY_FORCING_U |
recip_P0g = MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i-1,j,bi,bj)) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
90 |
APPLY_FORCING_U |
& /(etaHw(i,j,bi,bj)+rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj)) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
92 |
APPLY_FORCING_U |
& /(rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj)) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
97 |
APPLY_FORCING_U |
gU_arr(i,j) = gU_arr(i,j) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
98 |
APPLY_FORCING_U |
& - kV*uVel(i,j,k,bi,bj) |
|
./verification/hs94.1x64x5/code_ad/cost_test.F |
33 |
COST_TEST |
integer i, j, k |
|
./verification/hs94.1x64x5/code_ad/cost_test.F |
64 |
COST_TEST |
do i=1,sNx |
|
./verification/hs94.1x64x5/code_ad/cost_test.F |
65 |
COST_TEST |
ig = myXGlobalLo-1+(bi-1)*sNx+i |
|
./verification/hs94.1x64x5/code_ad/cost_test.F |
69 |
COST_TEST |
& theta(i,j,kLocOut,bi,bj) |
|
./verification/hs94.1x64x5/code_ad/cost_test.F |
72 |
COST_TEST |
& ig,jg,kLocOut,' TILE ',i,j,bi,bj |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
110 |
CTRL_MAP_GENTIM2D |
do i = 1,sNx |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
112 |
CTRL_MAP_GENTIM2D |
xx_gentim2d(i,j,bi,bj,iarr)=xx_gentim2d(i,j,bi,bj,iarr) |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
113 |
CTRL_MAP_GENTIM2D |
& +xx_gentim2d_loc(i,j,bi,bj) |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
115 |
CTRL_MAP_GENTIM2D |
xx_gentim2d(i,j,bi,bj,iarr)=xx_gentim2d_loc(i,j,bi,bj) |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
129 |
CTRL_MAP_GENTIM2D |
do i = 1,sNx |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
131 |
CTRL_MAP_GENTIM2D |
& maskC(i,j,1,bi,bj)*rA(i,j,bi,bj) |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
132 |
CTRL_MAP_GENTIM2D |
& *xx_gentim2d(i,j,bi,bj,iarr) |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
145 |
CTRL_MAP_GENTIM2D |
& LOCsumGlob/globalArea*maskC(i,j,1,bi,bj) |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
47 |
CTRL_MAP_GENTIM2D |
integer i,j,k |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F |
100 |
CTRL_MAP_INI_GENARR |
salt(i,j,1,bi,bj) = salt(i,j,1,bi,bj) |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F |
101 |
CTRL_MAP_INI_GENARR |
& + tmpfld2d(i,j,bi,bj) |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F |
136 |
CTRL_MAP_INI_GENARR |
do i = imin,imax |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F |
52 |
CTRL_MAP_INI_GENARR |
integer i,j,k |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F |
95 |
CTRL_MAP_INI_GENARR |
do i = imin,imax |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F |
97 |
CTRL_MAP_INI_GENARR |
theta(i,j,1,bi,bj) = theta(i,j,1,bi,bj) |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F |
98 |
CTRL_MAP_INI_GENARR |
& + tmpfld2d(i,j,bi,bj) |
|
./model/src/port_rand.F |
115 |
PORT_RANARR |
INTEGER i |
|
./model/src/port_rand.F |
125 |
PORT_RANARR |
DO i=1,n |
|
./model/src/port_rand.F |
126 |
PORT_RANARR |
arr(i)=port_rand(seed) |
|
./model/src/port_rand.F |
52 |
NO PROCEDURE |
INTEGER i,ii,inext,inextp,k |
|
./model/src/port_rand.F |
64 |
NO PROCEDURE |
DO i=1,nff-1 |
|
./model/src/port_rand.F |
65 |
NO PROCEDURE |
ii=mod(21*i,nff) |
|
./model/src/port_rand.F |
72 |
NO PROCEDURE |
DO i=1,nff |
|
./model/src/port_rand.F |
73 |
NO PROCEDURE |
ma(i)=ma(i)-ma(1+mod(i+30,nff)) |
|
./model/src/port_rand.F |
74 |
NO PROCEDURE |
IF (ma(i).LT.mz) ma(i)=ma(i)+mbig |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
153 |
APPLY_FORCING_V |
INTEGER i, j |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
165 |
APPLY_FORCING_V |
DO i=0,sNx+1 |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
166 |
APPLY_FORCING_V |
IF ( maskS(i,j,k,bi,bj).EQ.oneRS ) THEN |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
168 |
APPLY_FORCING_V |
recip_P0g = MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i,j-1,bi,bj)) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
183 |
APPLY_FORCING_V |
& /(etaHs(i,j,bi,bj)+rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj)) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
185 |
APPLY_FORCING_V |
& /(rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj)) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
190 |
APPLY_FORCING_V |
gV_arr(i,j) = gV_arr(i,j) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
191 |
APPLY_FORCING_V |
& - kV*vVel(i,j,k,bi,bj) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
246 |
APPLY_FORCING_T |
INTEGER i, j |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
257 |
APPLY_FORCING_T |
DO i=0,sNx+1 |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
258 |
APPLY_FORCING_T |
term1 = 60. _d 0*(SIN(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
261 |
APPLY_FORCING_T |
& *(COS(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
266 |
APPLY_FORCING_T |
termP = 0.5 _d 0*( MIN(rF(k),Ro_surf(i,j,bi,bj)) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
268 |
APPLY_FORCING_T |
& *recip_Rcol(i,j,bi,bj) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
280 |
APPLY_FORCING_T |
& /(etaH(i,j,bi,bj)+Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj)) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
282 |
APPLY_FORCING_T |
& /(Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj)) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
288 |
APPLY_FORCING_T |
& *COS((yC(i,j,bi,bj)*deg2rad))**4 |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
289 |
APPLY_FORCING_T |
gT_arr(i,j) = gT_arr(i,j) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
290 |
APPLY_FORCING_T |
& - kT*( theta(i,j,k,bi,bj)-thetaEq ) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
291 |
APPLY_FORCING_T |
& *maskC(i,j,k,bi,bj) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
60 |
APPLY_FORCING_U |
INTEGER i, j |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
72 |
APPLY_FORCING_U |
DO i=1,sNx+1 |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
73 |
APPLY_FORCING_U |
IF ( maskW(i,j,k,bi,bj).EQ.oneRS ) THEN |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
75 |
APPLY_FORCING_U |
recip_P0g = MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i-1,j,bi,bj)) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
90 |
APPLY_FORCING_U |
& /(etaHw(i,j,bi,bj)+rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj)) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
92 |
APPLY_FORCING_U |
& /(rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj)) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
97 |
APPLY_FORCING_U |
gU_arr(i,j) = gU_arr(i,j) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
98 |
APPLY_FORCING_U |
& - kV*uVel(i,j,k,bi,bj) |
|
./verification/hs94.1x64x5/code_oad/cost_test.F |
33 |
COST_TEST |
integer i, j, k |
|
./verification/hs94.1x64x5/code_oad/cost_test.F |
64 |
COST_TEST |
do i=1,sNx |
|
./verification/hs94.1x64x5/code_oad/cost_test.F |
65 |
COST_TEST |
ig = myXGlobalLo-1+(bi-1)*sNx+i |
|
./verification/hs94.1x64x5/code_oad/cost_test.F |
69 |
COST_TEST |
& theta(i,j,kLocOut,bi,bj) |
|
./verification/hs94.1x64x5/code_oad/cost_test.F |
72 |
COST_TEST |
& ig,jg,kLocOut,' TILE ',i,j,bi,bj |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F |
110 |
CTRL_MAP_GENTIM2D |
do i = 1,sNx |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F |
112 |
CTRL_MAP_GENTIM2D |
xx_gentim2d(i,j,bi,bj,iarr)=xx_gentim2d(i,j,bi,bj,iarr) |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F |
113 |
CTRL_MAP_GENTIM2D |
& +xx_gentim2d_loc(i,j,bi,bj) |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F |
115 |
CTRL_MAP_GENTIM2D |
xx_gentim2d(i,j,bi,bj,iarr)=xx_gentim2d_loc(i,j,bi,bj) |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F |
129 |
CTRL_MAP_GENTIM2D |
do i = 1,sNx |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F |
131 |
CTRL_MAP_GENTIM2D |
& maskC(i,j,1,bi,bj)*rA(i,j,bi,bj) |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F |
132 |
CTRL_MAP_GENTIM2D |
& *xx_gentim2d(i,j,bi,bj,iarr) |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F |
145 |
CTRL_MAP_GENTIM2D |
& LOCsumGlob/globalArea*maskC(i,j,1,bi,bj) |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F |
47 |
CTRL_MAP_GENTIM2D |
integer i,j,k |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F |
100 |
CTRL_MAP_INI_GENARR |
salt(i,j,1,bi,bj) = salt(i,j,1,bi,bj) |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F |
101 |
CTRL_MAP_INI_GENARR |
& + tmpfld2d(i,j,bi,bj) |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F |
136 |
CTRL_MAP_INI_GENARR |
do i = imin,imax |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F |
52 |
CTRL_MAP_INI_GENARR |
integer i,j,k |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F |
95 |
CTRL_MAP_INI_GENARR |
do i = imin,imax |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F |
97 |
CTRL_MAP_INI_GENARR |
theta(i,j,1,bi,bj) = theta(i,j,1,bi,bj) |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F |
98 |
CTRL_MAP_INI_GENARR |
& + tmpfld2d(i,j,bi,bj) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
153 |
APPLY_FORCING_V |
INTEGER i, j |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
165 |
APPLY_FORCING_V |
DO i=0,sNx+1 |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
166 |
APPLY_FORCING_V |
IF ( maskS(i,j,k,bi,bj).EQ.oneRS ) THEN |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
168 |
APPLY_FORCING_V |
recip_P0g = MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i,j-1,bi,bj)) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
183 |
APPLY_FORCING_V |
& /(etaHs(i,j,bi,bj)+rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj)) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
185 |
APPLY_FORCING_V |
& /(rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj)) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
190 |
APPLY_FORCING_V |
gV_arr(i,j) = gV_arr(i,j) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
191 |
APPLY_FORCING_V |
& - kV*vVel(i,j,k,bi,bj) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
246 |
APPLY_FORCING_T |
INTEGER i, j |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
257 |
APPLY_FORCING_T |
DO i=0,sNx+1 |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
258 |
APPLY_FORCING_T |
term1 = 60. _d 0*(SIN(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
261 |
APPLY_FORCING_T |
& *(COS(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
266 |
APPLY_FORCING_T |
termP = 0.5 _d 0*( MIN(rF(k),Ro_surf(i,j,bi,bj)) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
268 |
APPLY_FORCING_T |
& *recip_Rcol(i,j,bi,bj) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
280 |
APPLY_FORCING_T |
& /(etaH(i,j,bi,bj)+Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj)) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
282 |
APPLY_FORCING_T |
& /(Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj)) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
288 |
APPLY_FORCING_T |
& *COS((yC(i,j,bi,bj)*deg2rad))**4 |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
289 |
APPLY_FORCING_T |
gT_arr(i,j) = gT_arr(i,j) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
290 |
APPLY_FORCING_T |
& - kT*( theta(i,j,k,bi,bj)-thetaEq ) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
291 |
APPLY_FORCING_T |
& *maskC(i,j,k,bi,bj) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
60 |
APPLY_FORCING_U |
INTEGER i, j |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
72 |
APPLY_FORCING_U |
DO i=1,sNx+1 |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
73 |
APPLY_FORCING_U |
IF ( maskW(i,j,k,bi,bj).EQ.oneRS ) THEN |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
75 |
APPLY_FORCING_U |
recip_P0g = MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i-1,j,bi,bj)) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
90 |
APPLY_FORCING_U |
& /(etaHw(i,j,bi,bj)+rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj)) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
92 |
APPLY_FORCING_U |
& /(rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj)) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
97 |
APPLY_FORCING_U |
gU_arr(i,j) = gU_arr(i,j) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
98 |
APPLY_FORCING_U |
& - kV*uVel(i,j,k,bi,bj) |
|
./model/src/post_cg3d.F |
119 |
POST_CG3D |
DO i=1-OLx,sNx+OLx |
|
./model/src/post_cg3d.F |
120 |
POST_CG3D |
phi_nh(i,j,k,bi,bj) = ( phi_nh(i,j,k,bi,bj) |
|
./model/src/post_cg3d.F |
121 |
POST_CG3D |
& - dPhiNH(i,j,bi,bj) |
|
./model/src/post_cg3d.F |
122 |
POST_CG3D |
& )*maskC(i,j,k,bi,bj) |
|
./model/src/post_cg3d.F |
127 |
POST_CG3D |
DO i=1-OLx,sNx+OLx |
|
./model/src/post_cg3d.F |
128 |
POST_CG3D |
etaN(i,j,bi,bj) = etaN(i,j,bi,bj) |
|
./model/src/post_cg3d.F |
129 |
POST_CG3D |
& + recip_Bo(i,j,bi,bj)*dPhiNH(i,j,bi,bj) |
|
./model/src/post_cg3d.F |
130 |
POST_CG3D |
dPhiNH(i,j,bi,bj) = 0. _d 0 |
|
./model/src/post_cg3d.F |
50 |
POST_CG3D |
INTEGER i,j,k,bi,bj |
|
./model/src/post_cg3d.F |
64 |
POST_CG3D |
DO i=1,sNx |
|
./model/src/post_cg3d.F |
65 |
POST_CG3D |
locGamma = drC(1)*recip_Bo(i,j,bi,bj) |
|
./model/src/post_cg3d.F |
71 |
POST_CG3D |
dPhiNH(i,j,bi,bj) = ( phi_nh(i,j,ks,bi,bj) |
|
./model/src/post_cg3d.F |
72 |
POST_CG3D |
& + locGamma*Bo_surf(i,j,bi,bj) |
|
./model/src/post_cg3d.F |
75 |
POST_CG3D |
& *( wVel(i,j,ks,bi,bj) - dPhiNH(i,j,bi,bj) ) |
|
./model/src/post_cg3d.F |
83 |
POST_CG3D |
DO i=1-OLx,sNx+OLx |
|
./model/src/post_cg3d.F |
84 |
POST_CG3D |
dPhiNH(i,j,bi,bj) = phi_nh(i,j,1,bi,bj) |
|
./model/src/post_cg3d.F |
90 |
POST_CG3D |
DO i=1-OLx,sNx+OLx |
|
./model/src/post_cg3d.F |
91 |
POST_CG3D |
ks = kSurfC(i,j,bi,bj) |
|
./model/src/post_cg3d.F |
93 |
POST_CG3D |
dPhiNH(i,j,bi,bj) = phi_nh(i,j,ks,bi,bj) |
|
./model/src/post_cg3d.F |
95 |
POST_CG3D |
dPhiNH(i,j,bi,bj) = 0. |
|
./model/src/pre_cg3d.F |
100 |
PRE_CG3D |
cg3d_b(i,j,ks,bi,bj) = cg3d_b(i,j,ks,bi,bj) |
|
./model/src/pre_cg3d.F |
101 |
PRE_CG3D |
& + tmpFac*_rA(i,j,bi,bj)*EmPmR(i,j,bi,bj) |
|
./model/src/pre_cg3d.F |
102 |
PRE_CG3D |
& *maskInC(i,j,bi,bj) |
|
./model/src/pre_cg3d.F |
107 |
PRE_CG3D |
DO i=1-OLx,sNx+OLx |
|
./model/src/pre_cg3d.F |
108 |
PRE_CG3D |
wSurfP2d(i,j) = wSurfP2d(i,j) |
|
./model/src/pre_cg3d.F |
109 |
PRE_CG3D |
& + EmPmR(i,j,bi,bj)*mass2rUnit |
|
./model/src/pre_cg3d.F |
110 |
PRE_CG3D |
& *maskInC(i,j,bi,bj) |
|
./model/src/pre_cg3d.F |
121 |
PRE_CG3D |
DO i=1,sNx |
|
./model/src/pre_cg3d.F |
122 |
PRE_CG3D |
locGamma = drC(1)*recip_Bo(i,j,bi,bj) |
|
./model/src/pre_cg3d.F |
128 |
PRE_CG3D |
cg3d_b(i,j,ks,bi,bj) = cg3d_b(i,j,ks,bi,bj) |
|
./model/src/pre_cg3d.F |
129 |
PRE_CG3D |
& + tmpFac*( wSurfP2d(i,j) |
|
./model/src/pre_cg3d.F |
130 |
PRE_CG3D |
& + locGamma*wVel(i,j,ks,bi,bj) ) |
|
./model/src/pre_cg3d.F |
132 |
PRE_CG3D |
& *_rA(i,j,bi,bj)*deepFac2F(ks) |
|
./model/src/pre_cg3d.F |
135 |
PRE_CG3D |
dPhiNH(i,j,bi,bj) = wSurfP2d(i,j) |
|
./model/src/pre_cg3d.F |
141 |
PRE_CG3D |
DO i=1,sNx |
|
./model/src/pre_cg3d.F |
142 |
PRE_CG3D |
ks = kSurfC(i,j,bi,bj) |
|
./model/src/pre_cg3d.F |
144 |
PRE_CG3D |
cg3d_b(i,j,ks,bi,bj) = cg3d_b(i,j,ks,bi,bj) |
|
./model/src/pre_cg3d.F |
145 |
PRE_CG3D |
& + tmpFac*wSurfP2d(i,j) |
|
./model/src/pre_cg3d.F |
146 |
PRE_CG3D |
& *_rA(i,j,bi,bj)*deepFac2F(ks) |
|
./model/src/pre_cg3d.F |
156 |
PRE_CG3D |
DO i=1,sNx |
|
./model/src/pre_cg3d.F |
157 |
PRE_CG3D |
ks = kSurfC(i,j,bi,bj) |
|
./model/src/pre_cg3d.F |
159 |
PRE_CG3D |
cg3d_b(i,j,ks,bi,bj) = cg3d_b(i,j,ks,bi,bj) |
|
./model/src/pre_cg3d.F |
160 |
PRE_CG3D |
& +freeSurfFac*etaN(i,j,bi,bj)/deltaTFreeSurf |
|
./model/src/pre_cg3d.F |
161 |
PRE_CG3D |
& *_rA(i,j,bi,bj)*deepFac2F(ks)/deltaTMom |
|
./model/src/pre_cg3d.F |
172 |
PRE_CG3D |
DO i=1,sNx+1 |
|
./model/src/pre_cg3d.F |
173 |
PRE_CG3D |
uf(i,j) = -_recip_dxC(i,j,bi,bj) |
|
./model/src/pre_cg3d.F |
175 |
PRE_CG3D |
& *(cg2d_x(i,j,bi,bj)-cg2d_x(i-1,j,bi,bj)) |
|
./model/src/pre_cg3d.F |
177 |
PRE_CG3D |
& *maskInC(i,j,bi,bj)*maskInC(i-1,j,bi,bj) |
|
./model/src/pre_cg3d.F |
179 |
PRE_CG3D |
vf(i,j) = -_recip_dyC(i,j,bi,bj) |
|
./model/src/pre_cg3d.F |
181 |
PRE_CG3D |
& *(cg2d_x(i,j,bi,bj)-cg2d_x(i,j-1,bi,bj)) |
|
./model/src/pre_cg3d.F |
183 |
PRE_CG3D |
& *maskInC(i,j,bi,bj)*maskInC(i,j-1,bi,bj) |
|
./model/src/pre_cg3d.F |
196 |
PRE_CG3D |
DO i=1,sNx |
|
./model/src/pre_cg3d.F |
197 |
PRE_CG3D |
cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj) |
|
./model/src/pre_cg3d.F |
198 |
PRE_CG3D |
& +drF(k)*dyG(i+1,j,bi,bj)*_hFacW(i+1,j,k,bi,bj)*uf(i+1,j) |
|
./model/src/pre_cg3d.F |
199 |
PRE_CG3D |
& -drF(k)*dyG( i ,j,bi,bj)*_hFacW( i ,j,k,bi,bj)*uf( i ,j) |
|
./model/src/pre_cg3d.F |
200 |
PRE_CG3D |
& +drF(k)*dxG(i,j+1,bi,bj)*_hFacS(i,j+1,k,bi,bj)*vf(i,j+1) |
|
./model/src/pre_cg3d.F |
201 |
PRE_CG3D |
& -drF(k)*dxG(i, j ,bi,bj)*_hFacS(i, j ,k,bi,bj)*vf(i, j ) |
|
./model/src/pre_cg3d.F |
202 |
PRE_CG3D |
& +( surfFac*etaN(i,j,bi,bj)/deltaTFreeSurf |
|
./model/src/pre_cg3d.F |
203 |
PRE_CG3D |
& -wVel(i,j,kp1,bi,bj)*wFacKp |
|
./model/src/pre_cg3d.F |
204 |
PRE_CG3D |
& )*_rA(i,j,bi,bj)/deltaTMom |
|
./model/src/pre_cg3d.F |
215 |
PRE_CG3D |
DO i=1,sNx |
|
./model/src/pre_cg3d.F |
216 |
PRE_CG3D |
cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj) |
|
./model/src/pre_cg3d.F |
217 |
PRE_CG3D |
& +drF(k)*dyG(i+1,j,bi,bj)*_hFacW(i+1,j,k,bi,bj)*uf(i+1,j) |
|
./model/src/pre_cg3d.F |
218 |
PRE_CG3D |
& -drF(k)*dyG( i ,j,bi,bj)*_hFacW( i ,j,k,bi,bj)*uf( i ,j) |
|
./model/src/pre_cg3d.F |
219 |
PRE_CG3D |
& +drF(k)*dxG(i,j+1,bi,bj)*_hFacS(i,j+1,k,bi,bj)*vf(i,j+1) |
|
./model/src/pre_cg3d.F |
220 |
PRE_CG3D |
& -drF(k)*dxG(i, j ,bi,bj)*_hFacS(i, j ,k,bi,bj)*vf(i, j ) |
|
./model/src/pre_cg3d.F |
221 |
PRE_CG3D |
& +( wVel(i,j, k ,bi,bj)*wFacKm*maskC(i,j,k-1,bi,bj) |
|
./model/src/pre_cg3d.F |
222 |
PRE_CG3D |
& -wVel(i,j,kp1,bi,bj)*wFacKp |
|
./model/src/pre_cg3d.F |
223 |
PRE_CG3D |
& )*_rA(i,j,bi,bj)/deltaTMom |
|
./model/src/pre_cg3d.F |
241 |
PRE_CG3D |
DO i=1,sNx |
|
./model/src/pre_cg3d.F |
242 |
PRE_CG3D |
cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj) |
|
./model/src/pre_cg3d.F |
243 |
PRE_CG3D |
& *maskInC(i,j,bi,bj) |
|
./model/src/pre_cg3d.F |
244 |
PRE_CG3D |
phi_nh(i,j,k,bi,bj) = phi_nh(i,j,k,bi,bj) |
|
./model/src/pre_cg3d.F |
245 |
PRE_CG3D |
& *maskInC(i,j,bi,bj) |
|
./model/src/pre_cg3d.F |
57 |
PRE_CG3D |
INTEGER i,j,k,bi,bj |
|
./model/src/pre_cg3d.F |
78 |
PRE_CG3D |
DO i=1-OLx,sNx+OLx |
|
./model/src/pre_cg3d.F |
79 |
PRE_CG3D |
wSurfP2d(i,j) = 0. _d 0 |
|
./model/src/pre_cg3d.F |
84 |
PRE_CG3D |
DO i=1-OLx,sNx+OLx |
|
./model/src/pre_cg3d.F |
85 |
PRE_CG3D |
wSurfP2d(i,j) = ( etaN(i,j,bi,bj)-etaH(i,j,bi,bj) ) |
|
./model/src/pre_cg3d.F |
99 |
PRE_CG3D |
DO i=1,sNx |
|
./verification/isomip/code_ad/cost_test.F |
33 |
COST_TEST |
integer i, j, k |
|
./verification/isomip/code_ad/cost_test.F |
67 |
COST_TEST |
do i=1,sNx |
|
./verification/isomip/code_ad/cost_test.F |
68 |
COST_TEST |
ig = myXGlobalLo-1+(bi-1)*sNx+i |
|
./verification/isomip/code_ad/cost_test.F |
73 |
COST_TEST |
& 'COST ',ig,jg,kLocOut,' TILE ',i,j,bi,bj |
|
./verification/isomip/code_ad/cost_test.F |
74 |
COST_TEST |
objf_test(bi,bj) = theta(i,j,kLocOut,bi,bj) |
|
./verification/isomip/code_ad/cost_test.F |
77 |
COST_TEST |
& theta(i,j,kLocOut,bi,bj) |
|
./verification/isomip/code_ad/cost_test.F |
82 |
COST_TEST |
if (maskC(i,j,k,bi,bj).NE.0.) then |
|
./verification/isomip/code_ad/cost_test.F |
84 |
COST_TEST |
& ( theta(i,j,k,bi,bj) )**2 |
|
./model/src/pressure_for_eos.F |
108 |
PRESSURE_FOR_EOS |
DO i=1-OLx,sNx+OLx |
|
./model/src/pressure_for_eos.F |
109 |
PRESSURE_FOR_EOS |
locPres(i,j) = rC(k) |
|
./model/src/pressure_for_eos.F |
46 |
PRESSURE_FOR_EOS |
INTEGER i,j |
|
./model/src/pressure_for_eos.F |
58 |
PRESSURE_FOR_EOS |
DO i=1-OLx,sNx+OLx |
|
./model/src/pressure_for_eos.F |
59 |
PRESSURE_FOR_EOS |
locPres(i,j) = rhoConst*( |
|
./model/src/pressure_for_eos.F |
60 |
PRESSURE_FOR_EOS |
& totPhiHyd(i,j,k,bi,bj) |
|
./model/src/pressure_for_eos.F |
61 |
PRESSURE_FOR_EOS |
& +( phi_nh(i,j,k,bi,bj) - dPhiNH(i,j,bi,bj) ) |
|
./model/src/pressure_for_eos.F |
76 |
PRESSURE_FOR_EOS |
DO i=1-OLx,sNx+OLx |
|
./model/src/pressure_for_eos.F |
77 |
PRESSURE_FOR_EOS |
locPres(i,j) = rhoConst*( |
|
./model/src/pressure_for_eos.F |
78 |
PRESSURE_FOR_EOS |
& totPhiHyd(i,j,k,bi,bj) |
|
./model/src/pressure_for_eos.F |
90 |
PRESSURE_FOR_EOS |
DO i=1-OLx,sNx+OLx |
|
./model/src/pressure_for_eos.F |
91 |
PRESSURE_FOR_EOS |
locPres(i,j) = pRef4EOS(k) |
|
./model/src/pressure_for_eos.F |
98 |
PRESSURE_FOR_EOS |
DO i=1-OLx,sNx+OLx |
|
./model/src/pressure_for_eos.F |
99 |
PRESSURE_FOR_EOS |
locPres(i,j) = rhoConst*phiRef(2*k) |
|
./verification/isomip/code_oad/cost_test.F |
33 |
COST_TEST |
integer i, j, k |
|
./verification/isomip/code_oad/cost_test.F |
67 |
COST_TEST |
do i=1,sNx |
|
./verification/isomip/code_oad/cost_test.F |
68 |
COST_TEST |
ig = myXGlobalLo-1+(bi-1)*sNx+i |
|
./verification/isomip/code_oad/cost_test.F |
73 |
COST_TEST |
& 'COST ',ig,jg,kLocOut,' TILE ',i,j,bi,bj |
|
./verification/isomip/code_oad/cost_test.F |
74 |
COST_TEST |
objf_test(bi,bj) = theta(i,j,kLocOut,bi,bj) |
|
./verification/isomip/code_oad/cost_test.F |
77 |
COST_TEST |
& theta(i,j,kLocOut,bi,bj) |
|
./verification/isomip/code_oad/cost_test.F |
82 |
COST_TEST |
if (maskC(i,j,k,bi,bj).NE.0.) then |
|
./verification/isomip/code_oad/cost_test.F |
84 |
COST_TEST |
& ( theta(i,j,k,bi,bj) )**2 |
|
./model/src/reset_nlfs_vars.F |
42 |
RESET_NLFS_VARS |
INTEGER i,j,bi,bj |
|
./model/src/reset_nlfs_vars.F |
53 |
RESET_NLFS_VARS |
DO i=1-OLx,sNx+OLx |
|
./model/src/reset_nlfs_vars.F |
54 |
RESET_NLFS_VARS |
pStarFacK(i,j,bi,bj) = rStarFacC(i,j,bi,bj)**atm_kappa |
|
./model/src/reset_nlfs_vars.F |
59 |
RESET_NLFS_VARS |
DO i=1-OLx,sNx+OLx |
|
./model/src/reset_nlfs_vars.F |
60 |
RESET_NLFS_VARS |
pStarFacK(i,j,bi,bj) = 1. _d 0 |
|
./verification/natl_box/results/comp_orig.F |
15 |
NO PROCEDURE |
integer lbuffer1, lbuffer2, i, j, k, irec |
|
./verification/natl_box/results/comp_orig.F |
30 |
NO PROCEDURE |
read(1,rec=irec) ((fld1(i,j),i=1,nx),j=1,ny) |
|
./verification/natl_box/results/comp_orig.F |
31 |
NO PROCEDURE |
read(2,rec=irec) ((fld2(i,j),i=1,nx),j=1,ny) |
|
./verification/natl_box/results/comp_orig.F |
32 |
NO PROCEDURE |
do i=1,nx |
|
./verification/natl_box/results/comp_orig.F |
34 |
NO PROCEDURE |
maxdiff=max(maxdiff,abs(fld1(i,j)-fld2(i,j))) |
|
./model/src/rotate_uv2en.F |
100 |
ROTATE_UV2EN_RL |
tmpV(i,j) = 0.5 _d 0 |
|
./model/src/rotate_uv2en.F |
101 |
ROTATE_UV2EN_RL |
& *( vFldY(i,j+1,k,bi,bj) + vFldY(i,j,k,bi,bj) ) |
|
./model/src/rotate_uv2en.F |
103 |
ROTATE_UV2EN_RL |
tmpU(i,j) = tmpU(i,j) * maskC(i,j,kk,bi,bj) |
|
./model/src/rotate_uv2en.F |
104 |
ROTATE_UV2EN_RL |
tmpV(i,j) = tmpV(i,j) * maskC(i,j,kk,bi,bj) |
|
./model/src/rotate_uv2en.F |
111 |
ROTATE_UV2EN_RL |
do i = 1-olx,snx+olx |
|
./model/src/rotate_uv2en.F |
112 |
ROTATE_UV2EN_RL |
tmpU(i,j) = uFldX(i,j,k,bi,bj) |
|
./model/src/rotate_uv2en.F |
113 |
ROTATE_UV2EN_RL |
tmpV(i,j) = vFldY(i,j,k,bi,bj) |
|
./model/src/rotate_uv2en.F |
115 |
ROTATE_UV2EN_RL |
tmpU(i,j) = tmpU(i,j) * maskC(i,j,kk,bi,bj) |
|
./model/src/rotate_uv2en.F |
116 |
ROTATE_UV2EN_RL |
tmpV(i,j) = tmpV(i,j) * maskC(i,j,kk,bi,bj) |
|
./model/src/rotate_uv2en.F |
124 |
ROTATE_UV2EN_RL |
do i = 1-olx,snx+olx |
|
./model/src/rotate_uv2en.F |
125 |
ROTATE_UV2EN_RL |
uFldE(i,j,k,bi,bj) = |
|
./model/src/rotate_uv2en.F |
126 |
ROTATE_UV2EN_RL |
& angleCosC(i,j,bi,bj)*tmpU(i,j) |
|
./model/src/rotate_uv2en.F |
127 |
ROTATE_UV2EN_RL |
& -angleSinC(i,j,bi,bj)*tmpV(i,j) |
|
./model/src/rotate_uv2en.F |
128 |
ROTATE_UV2EN_RL |
vFldN(i,j,k,bi,bj) = |
|
./model/src/rotate_uv2en.F |
129 |
ROTATE_UV2EN_RL |
& angleSinC(i,j,bi,bj)*tmpU(i,j) |
|
./model/src/rotate_uv2en.F |
130 |
ROTATE_UV2EN_RL |
& +angleCosC(i,j,bi,bj)*tmpV(i,j) |
|
./model/src/rotate_uv2en.F |
139 |
ROTATE_UV2EN_RL |
do i = 1-olx,snx+olx |
|
./model/src/rotate_uv2en.F |
140 |
ROTATE_UV2EN_RL |
tmpU(i,j) = |
|
./model/src/rotate_uv2en.F |
141 |
ROTATE_UV2EN_RL |
& angleCosC(i,j,bi,bj)*uFldE(i,j,k,bi,bj) |
|
./model/src/rotate_uv2en.F |
142 |
ROTATE_UV2EN_RL |
& +angleSinC(i,j,bi,bj)*vFldN(i,j,k,bi,bj) |
|
./model/src/rotate_uv2en.F |
143 |
ROTATE_UV2EN_RL |
tmpV(i,j) = |
|
./model/src/rotate_uv2en.F |
144 |
ROTATE_UV2EN_RL |
& -angleSinC(i,j,bi,bj)*uFldE(i,j,k,bi,bj) |
|
./model/src/rotate_uv2en.F |
145 |
ROTATE_UV2EN_RL |
& +angleCosC(i,j,bi,bj)*vFldN(i,j,k,bi,bj) |
|
./model/src/rotate_uv2en.F |
151 |
ROTATE_UV2EN_RL |
do i = 1-olx,snx+olx |
|
./model/src/rotate_uv2en.F |
152 |
ROTATE_UV2EN_RL |
uFldX(i,1,k,bi,bj)=0. |
|
./model/src/rotate_uv2en.F |
153 |
ROTATE_UV2EN_RL |
vFldY(i,1,k,bi,bj)=0. |
|
./model/src/rotate_uv2en.F |
158 |
ROTATE_UV2EN_RL |
do i = 1-olx+1,snx+olx |
|
./model/src/rotate_uv2en.F |
159 |
ROTATE_UV2EN_RL |
uFldX(i,j,k,bi,bj) = 0.5 _d 0 |
|
./model/src/rotate_uv2en.F |
160 |
ROTATE_UV2EN_RL |
& *( tmpU(i-1,j) + tmpU(i,j) ) |
|
./model/src/rotate_uv2en.F |
161 |
ROTATE_UV2EN_RL |
vFldY(i,j,k,bi,bj) = 0.5 _d 0 |
|
./model/src/rotate_uv2en.F |
162 |
ROTATE_UV2EN_RL |
& *( tmpV(i,j-1) + tmpV(i,j) ) |
|
./model/src/rotate_uv2en.F |
164 |
ROTATE_UV2EN_RL |
uFldX(i,j,k,bi,bj)=uFldX(i,j,k,bi,bj)*maskW(i,j,kk,bi,bj) |
|
./model/src/rotate_uv2en.F |
165 |
ROTATE_UV2EN_RL |
vFldY(i,j,k,bi,bj)=vFldY(i,j,k,bi,bj)*maskS(i,j,kk,bi,bj) |
|
./model/src/rotate_uv2en.F |
172 |
ROTATE_UV2EN_RL |
do i = 1-olx,snx+olx |
|
./model/src/rotate_uv2en.F |
173 |
ROTATE_UV2EN_RL |
uFldX(i,j,k,bi,bj) = tmpU(i,j) |
|
./model/src/rotate_uv2en.F |
174 |
ROTATE_UV2EN_RL |
vFldY(i,j,k,bi,bj) = tmpV(i,j) |
|
./model/src/rotate_uv2en.F |
176 |
ROTATE_UV2EN_RL |
uFldX(i,j,k,bi,bj)=uFldX(i,j,k,bi,bj)*maskC(i,j,kk,bi,bj) |
|
./model/src/rotate_uv2en.F |
177 |
ROTATE_UV2EN_RL |
vFldY(i,j,k,bi,bj)=vFldY(i,j,k,bi,bj)*maskC(i,j,kk,bi,bj) |
|
./model/src/rotate_uv2en.F |
242 |
ROTATE_UV2EN_RS |
integer i,j,k,kk |
|
./model/src/rotate_uv2en.F |
271 |
ROTATE_UV2EN_RS |
do i = 1-olx,snx+olx |
|
./model/src/rotate_uv2en.F |
272 |
ROTATE_UV2EN_RS |
tmpU(i,sny+Oly)=0. |
|
./model/src/rotate_uv2en.F |
273 |
ROTATE_UV2EN_RS |
tmpV(i,sny+Oly)=0. |
|
./model/src/rotate_uv2en.F |
278 |
ROTATE_UV2EN_RS |
do i = 1-olx,snx+olx-1 |
|
./model/src/rotate_uv2en.F |
279 |
ROTATE_UV2EN_RS |
tmpU(i,j) = 0.5 _d 0 |
|
./model/src/rotate_uv2en.F |
280 |
ROTATE_UV2EN_RS |
& *( uFldX(i+1,j,k,bi,bj) + uFldX(i,j,k,bi,bj) ) |
|
./model/src/rotate_uv2en.F |
281 |
ROTATE_UV2EN_RS |
tmpV(i,j) = 0.5 _d 0 |
|
./model/src/rotate_uv2en.F |
282 |
ROTATE_UV2EN_RS |
& *( vFldY(i,j+1,k,bi,bj) + vFldY(i,j,k,bi,bj) ) |
|
./model/src/rotate_uv2en.F |
284 |
ROTATE_UV2EN_RS |
tmpU(i,j) = tmpU(i,j) * maskC(i,j,kk,bi,bj) |
|
./model/src/rotate_uv2en.F |
285 |
ROTATE_UV2EN_RS |
tmpV(i,j) = tmpV(i,j) * maskC(i,j,kk,bi,bj) |
|
./model/src/rotate_uv2en.F |
292 |
ROTATE_UV2EN_RS |
do i = 1-olx,snx+olx |
|
./model/src/rotate_uv2en.F |
293 |
ROTATE_UV2EN_RS |
tmpU(i,j) = uFldX(i,j,k,bi,bj) |
|
./model/src/rotate_uv2en.F |
294 |
ROTATE_UV2EN_RS |
tmpV(i,j) = vFldY(i,j,k,bi,bj) |
|
./model/src/rotate_uv2en.F |
296 |
ROTATE_UV2EN_RS |
tmpU(i,j) = tmpU(i,j) * maskC(i,j,kk,bi,bj) |
|
./model/src/rotate_uv2en.F |
297 |
ROTATE_UV2EN_RS |
tmpV(i,j) = tmpV(i,j) * maskC(i,j,kk,bi,bj) |
|
./model/src/rotate_uv2en.F |
305 |
ROTATE_UV2EN_RS |
do i = 1-olx,snx+olx |
|
./model/src/rotate_uv2en.F |
306 |
ROTATE_UV2EN_RS |
uFldE(i,j,k,bi,bj) = |
|
./model/src/rotate_uv2en.F |
307 |
ROTATE_UV2EN_RS |
& angleCosC(i,j,bi,bj)*tmpU(i,j) |
|
./model/src/rotate_uv2en.F |
308 |
ROTATE_UV2EN_RS |
& -angleSinC(i,j,bi,bj)*tmpV(i,j) |
|
./model/src/rotate_uv2en.F |
309 |
ROTATE_UV2EN_RS |
vFldN(i,j,k,bi,bj) = |
|
./model/src/rotate_uv2en.F |
310 |
ROTATE_UV2EN_RS |
& angleSinC(i,j,bi,bj)*tmpU(i,j) |
|
./model/src/rotate_uv2en.F |
311 |
ROTATE_UV2EN_RS |
& +angleCosC(i,j,bi,bj)*tmpV(i,j) |
|
./model/src/rotate_uv2en.F |
320 |
ROTATE_UV2EN_RS |
do i = 1-olx,snx+olx |
|
./model/src/rotate_uv2en.F |
321 |
ROTATE_UV2EN_RS |
tmpU(i,j) = |
|
./model/src/rotate_uv2en.F |
322 |
ROTATE_UV2EN_RS |
& angleCosC(i,j,bi,bj)*uFldE(i,j,k,bi,bj) |
|
./model/src/rotate_uv2en.F |
323 |
ROTATE_UV2EN_RS |
& +angleSinC(i,j,bi,bj)*vFldN(i,j,k,bi,bj) |
|
./model/src/rotate_uv2en.F |
324 |
ROTATE_UV2EN_RS |
tmpV(i,j) = |
|
./model/src/rotate_uv2en.F |
325 |
ROTATE_UV2EN_RS |
& -angleSinC(i,j,bi,bj)*uFldE(i,j,k,bi,bj) |
|
./model/src/rotate_uv2en.F |
326 |
ROTATE_UV2EN_RS |
& +angleCosC(i,j,bi,bj)*vFldN(i,j,k,bi,bj) |
|
./model/src/rotate_uv2en.F |
332 |
ROTATE_UV2EN_RS |
do i = 1-olx,snx+olx |
|
./model/src/rotate_uv2en.F |
333 |
ROTATE_UV2EN_RS |
uFldX(i,1,k,bi,bj)=0. |
|
./model/src/rotate_uv2en.F |
334 |
ROTATE_UV2EN_RS |
vFldY(i,1,k,bi,bj)=0. |
|
./model/src/rotate_uv2en.F |
339 |
ROTATE_UV2EN_RS |
do i = 1-olx+1,snx+olx |
|
./model/src/rotate_uv2en.F |
340 |
ROTATE_UV2EN_RS |
uFldX(i,j,k,bi,bj) = 0.5 _d 0 |
|
./model/src/rotate_uv2en.F |
341 |
ROTATE_UV2EN_RS |
& *( tmpU(i-1,j) + tmpU(i,j) ) |
|
./model/src/rotate_uv2en.F |
342 |
ROTATE_UV2EN_RS |
vFldY(i,j,k,bi,bj) = 0.5 _d 0 |
|
./model/src/rotate_uv2en.F |
343 |
ROTATE_UV2EN_RS |
& *( tmpV(i,j-1) + tmpV(i,j) ) |
|
./model/src/rotate_uv2en.F |
345 |
ROTATE_UV2EN_RS |
uFldX(i,j,k,bi,bj)=uFldX(i,j,k,bi,bj)*maskW(i,j,kk,bi,bj) |
|
./model/src/rotate_uv2en.F |
346 |
ROTATE_UV2EN_RS |
vFldY(i,j,k,bi,bj)=vFldY(i,j,k,bi,bj)*maskS(i,j,kk,bi,bj) |
|
./model/src/rotate_uv2en.F |
353 |
ROTATE_UV2EN_RS |
do i = 1-olx,snx+olx |
|
./model/src/rotate_uv2en.F |
354 |
ROTATE_UV2EN_RS |
uFldX(i,j,k,bi,bj) = tmpU(i,j) |
|
./model/src/rotate_uv2en.F |
355 |
ROTATE_UV2EN_RS |
vFldY(i,j,k,bi,bj) = tmpV(i,j) |
|
./model/src/rotate_uv2en.F |
357 |
ROTATE_UV2EN_RS |
uFldX(i,j,k,bi,bj)=uFldX(i,j,k,bi,bj)*maskC(i,j,kk,bi,bj) |
|
./model/src/rotate_uv2en.F |
358 |
ROTATE_UV2EN_RS |
vFldY(i,j,k,bi,bj)=vFldY(i,j,k,bi,bj)*maskC(i,j,kk,bi,bj) |
|
./model/src/rotate_uv2en.F |
61 |
ROTATE_UV2EN_RL |
integer i,j,k,kk |
|
./model/src/rotate_uv2en.F |
90 |
ROTATE_UV2EN_RL |
do i = 1-olx,snx+olx |
|
./model/src/rotate_uv2en.F |
91 |
ROTATE_UV2EN_RL |
tmpU(i,sny+Oly)=0. |
|
./model/src/rotate_uv2en.F |
92 |
ROTATE_UV2EN_RL |
tmpV(i,sny+Oly)=0. |
|
./model/src/rotate_uv2en.F |
97 |
ROTATE_UV2EN_RL |
do i = 1-olx,snx+olx-1 |
|
./model/src/rotate_uv2en.F |
98 |
ROTATE_UV2EN_RL |
tmpU(i,j) = 0.5 _d 0 |
|
./model/src/rotate_uv2en.F |
99 |
ROTATE_UV2EN_RL |
& *( uFldX(i+1,j,k,bi,bj) + uFldX(i,j,k,bi,bj) ) |
|
./verification/rotating_tank/code/apply_forcing.F |
125 |
APPLY_FORCING_U |
DO i=1,sNx+1 |
|
./verification/rotating_tank/code/apply_forcing.F |
126 |
APPLY_FORCING_U |
gU_arr(i,j) = gU_arr(i,j) |
|
./verification/rotating_tank/code/apply_forcing.F |
127 |
APPLY_FORCING_U |
& +foFacMom*surfaceForcingU(i,j,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
128 |
APPLY_FORCING_U |
& *recip_drF(k)*_recip_hFacW(i,j,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
133 |
APPLY_FORCING_U |
DO i=1,sNx+1 |
|
./verification/rotating_tank/code/apply_forcing.F |
134 |
APPLY_FORCING_U |
IF ( kSurfW(i,j,bi,bj).EQ.k ) THEN |
|
./verification/rotating_tank/code/apply_forcing.F |
135 |
APPLY_FORCING_U |
gU_arr(i,j) = gU_arr(i,j) |
|
./verification/rotating_tank/code/apply_forcing.F |
136 |
APPLY_FORCING_U |
& +foFacMom*surfaceForcingU(i,j,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
137 |
APPLY_FORCING_U |
& *recip_drF(k)*_recip_hFacW(i,j,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
230 |
APPLY_FORCING_V |
INTEGER i, j |
|
./verification/rotating_tank/code/apply_forcing.F |
242 |
APPLY_FORCING_V |
DO i=1-OLx,sNx+OLx |
|
./verification/rotating_tank/code/apply_forcing.F |
243 |
APPLY_FORCING_V |
locVar(i,j) = gV(i,j,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
250 |
APPLY_FORCING_V |
DO i=1-OLx,sNx+OLx |
|
./verification/rotating_tank/code/apply_forcing.F |
251 |
APPLY_FORCING_V |
tmpVar = gV(i,j,k,bi,bj) - locVar(i,j) |
|
./verification/rotating_tank/code/apply_forcing.F |
252 |
APPLY_FORCING_V |
gV(i,j,k,bi,bj) = locVar(i,j) |
|
./verification/rotating_tank/code/apply_forcing.F |
253 |
APPLY_FORCING_V |
gV_arr(i,j) = gV_arr(i,j) + tmpVar |
|
./verification/rotating_tank/code/apply_forcing.F |
294 |
APPLY_FORCING_V |
DO i=0,sNx+1 |
|
./verification/rotating_tank/code/apply_forcing.F |
295 |
APPLY_FORCING_V |
gV_arr(i,j) = gV_arr(i,j) |
|
./verification/rotating_tank/code/apply_forcing.F |
296 |
APPLY_FORCING_V |
& +foFacMom*surfaceForcingV(i,j,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
297 |
APPLY_FORCING_V |
& *recip_drF(k)*_recip_hFacS(i,j,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
302 |
APPLY_FORCING_V |
DO i=0,sNx+1 |
|
./verification/rotating_tank/code/apply_forcing.F |
303 |
APPLY_FORCING_V |
IF ( kSurfS(i,j,bi,bj).EQ.k ) THEN |
|
./verification/rotating_tank/code/apply_forcing.F |
304 |
APPLY_FORCING_V |
gV_arr(i,j) = gV_arr(i,j) |
|
./verification/rotating_tank/code/apply_forcing.F |
305 |
APPLY_FORCING_V |
& +foFacMom*surfaceForcingV(i,j,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
306 |
APPLY_FORCING_V |
& *recip_drF(k)*_recip_hFacS(i,j,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
399 |
APPLY_FORCING_T |
INTEGER i, j |
|
./verification/rotating_tank/code/apply_forcing.F |
465 |
APPLY_FORCING_T |
DO i=1-OLx,sNx+OLx |
|
./verification/rotating_tank/code/apply_forcing.F |
466 |
APPLY_FORCING_T |
locVar(i,j) = gT(i,j,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
473 |
APPLY_FORCING_T |
DO i=1-OLx,sNx+OLx |
|
./verification/rotating_tank/code/apply_forcing.F |
474 |
APPLY_FORCING_T |
tmpVar = gT(i,j,k,bi,bj) - locVar(i,j) |
|
./verification/rotating_tank/code/apply_forcing.F |
475 |
APPLY_FORCING_T |
gT(i,j,k,bi,bj) = locVar(i,j) |
|
./verification/rotating_tank/code/apply_forcing.F |
476 |
APPLY_FORCING_T |
gT_arr(i,j) = gT_arr(i,j) + tmpVar |
|
./verification/rotating_tank/code/apply_forcing.F |
520 |
APPLY_FORCING_T |
DO i=1,sNx |
|
./verification/rotating_tank/code/apply_forcing.F |
521 |
APPLY_FORCING_T |
gT_arr(i,j) = gT_arr(i,j) |
|
./verification/rotating_tank/code/apply_forcing.F |
522 |
APPLY_FORCING_T |
& + addMass(i,j,k,bi,bj)*mass2rUnit |
|
./verification/rotating_tank/code/apply_forcing.F |
523 |
APPLY_FORCING_T |
& *( temp_addMass - theta(i,j,k,bi,bj) ) |
|
./verification/rotating_tank/code/apply_forcing.F |
524 |
APPLY_FORCING_T |
& *recip_rA(i,j,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
525 |
APPLY_FORCING_T |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
531 |
APPLY_FORCING_T |
DO i=1,sNx |
|
./verification/rotating_tank/code/apply_forcing.F |
532 |
APPLY_FORCING_T |
gT_arr(i,j) = gT_arr(i,j) |
|
./verification/rotating_tank/code/apply_forcing.F |
533 |
APPLY_FORCING_T |
& + addMass(i,j,k,bi,bj)*mass2rUnit |
|
./verification/rotating_tank/code/apply_forcing.F |
535 |
APPLY_FORCING_T |
& *recip_rA(i,j,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
536 |
APPLY_FORCING_T |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
556 |
APPLY_FORCING_T |
DO i=1,sNx |
|
./verification/rotating_tank/code/apply_forcing.F |
557 |
APPLY_FORCING_T |
gT_arr(i,j) = gT_arr(i,j) |
|
./verification/rotating_tank/code/apply_forcing.F |
558 |
APPLY_FORCING_T |
& + frictionHeating(i,j,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
559 |
APPLY_FORCING_T |
& *tmpFac*recip_rA(i,j,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
560 |
APPLY_FORCING_T |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
583 |
APPLY_FORCING_T |
DO i=1,sNx |
|
./verification/rotating_tank/code/apply_forcing.F |
584 |
APPLY_FORCING_T |
tmpVar(i,j) = 0. |
|
./verification/rotating_tank/code/apply_forcing.F |
591 |
APPLY_FORCING_T |
DO i=1,sNx |
|
./verification/rotating_tank/code/apply_forcing.F |
592 |
APPLY_FORCING_T |
tmpVar(i,j) = wVel(i,j,kc,bi,bj)*delPI*atm_Rq |
|
./verification/rotating_tank/code/apply_forcing.F |
593 |
APPLY_FORCING_T |
& *( theta(i,j,km,bi,bj)*salt(i,j,km,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
594 |
APPLY_FORCING_T |
& + theta(i,j,kc,bi,bj)*salt(i,j,kc,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
595 |
APPLY_FORCING_T |
& )*maskC(i,j,km,bi,bj)*0.25 _d 0 |
|
./verification/rotating_tank/code/apply_forcing.F |
603 |
APPLY_FORCING_T |
DO i=1,sNx |
|
./verification/rotating_tank/code/apply_forcing.F |
604 |
APPLY_FORCING_T |
tmpVar(i,j) = tmpVar(i,j) |
|
./verification/rotating_tank/code/apply_forcing.F |
605 |
APPLY_FORCING_T |
& + wVel(i,j,kp,bi,bj)*delPI*atm_Rq |
|
./verification/rotating_tank/code/apply_forcing.F |
606 |
APPLY_FORCING_T |
& *( theta(i,j,kc,bi,bj)*salt(i,j,kc,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
607 |
APPLY_FORCING_T |
& + theta(i,j,kp,bi,bj)*salt(i,j,kp,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
608 |
APPLY_FORCING_T |
& )*maskC(i,j,kp,bi,bj)*0.25 _d 0 |
|
./verification/rotating_tank/code/apply_forcing.F |
613 |
APPLY_FORCING_T |
DO i=1,sNx |
|
./verification/rotating_tank/code/apply_forcing.F |
614 |
APPLY_FORCING_T |
gT_arr(i,j) = gT_arr(i,j) |
|
./verification/rotating_tank/code/apply_forcing.F |
615 |
APPLY_FORCING_T |
& + tmpVar(i,j)*tmpFac |
|
./verification/rotating_tank/code/apply_forcing.F |
616 |
APPLY_FORCING_T |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
61 |
APPLY_FORCING_U |
INTEGER i, j |
|
./verification/rotating_tank/code/apply_forcing.F |
632 |
APPLY_FORCING_T |
DO i=1,sNx |
|
./verification/rotating_tank/code/apply_forcing.F |
633 |
APPLY_FORCING_T |
gT_arr(i,j) = gT_arr(i,j) |
|
./verification/rotating_tank/code/apply_forcing.F |
634 |
APPLY_FORCING_T |
& +surfaceForcingT(i,j,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
635 |
APPLY_FORCING_T |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
640 |
APPLY_FORCING_T |
DO i=1,sNx |
|
./verification/rotating_tank/code/apply_forcing.F |
641 |
APPLY_FORCING_T |
IF ( kSurfC(i,j,bi,bj).EQ.k ) THEN |
|
./verification/rotating_tank/code/apply_forcing.F |
642 |
APPLY_FORCING_T |
gT_arr(i,j) = gT_arr(i,j) |
|
./verification/rotating_tank/code/apply_forcing.F |
643 |
APPLY_FORCING_T |
& +surfaceForcingT(i,j,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
644 |
APPLY_FORCING_T |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
652 |
APPLY_FORCING_T |
DO i=1,sNx |
|
./verification/rotating_tank/code/apply_forcing.F |
653 |
APPLY_FORCING_T |
IF (k .EQ. kSurfC(i,j,bi,bj)) THEN |
|
./verification/rotating_tank/code/apply_forcing.F |
654 |
APPLY_FORCING_T |
gT_arr(i,j) = gT_arr(i,j) |
|
./verification/rotating_tank/code/apply_forcing.F |
655 |
APPLY_FORCING_T |
& +TsurfCor*recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
676 |
APPLY_FORCING_T |
DO i=1,sNx |
|
./verification/rotating_tank/code/apply_forcing.F |
677 |
APPLY_FORCING_T |
gT_arr(i,j) = gT_arr(i,j) |
|
./verification/rotating_tank/code/apply_forcing.F |
678 |
APPLY_FORCING_T |
& -Qsw(i,j,bi,bj)*(swfracb(1)*maskC(i,j,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
679 |
APPLY_FORCING_T |
& -swfracb(2)*maskC(i,j,kp1, bi,bj)) |
|
./verification/rotating_tank/code/apply_forcing.F |
681 |
APPLY_FORCING_T |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
693 |
APPLY_FORCING_T |
DO i=1,sNx |
|
./verification/rotating_tank/code/apply_forcing.F |
708 |
APPLY_FORCING_T |
hC = hFacC(i ,j ,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
709 |
APPLY_FORCING_T |
hW = hFacW(i ,j ,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
710 |
APPLY_FORCING_T |
hE = hFacW(i+1,j ,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
711 |
APPLY_FORCING_T |
hN = hFacS(i ,j+1,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
712 |
APPLY_FORCING_T |
hS = hFacS(i ,j ,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
715 |
APPLY_FORCING_T |
faceArea = drF(k)*dyG(i,j,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
717 |
APPLY_FORCING_T |
& -faceArea*kDiffCyl*(theta(i,j,k,bi,bj) - tCyl) |
|
./verification/rotating_tank/code/apply_forcing.F |
718 |
APPLY_FORCING_T |
& *recip_dxC(i,j,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
722 |
APPLY_FORCING_T |
faceArea = drF(k)*dyG(i+1,j,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
724 |
APPLY_FORCING_T |
& -faceArea*kDiffCyl*(tCyl - theta(i,j,k,bi,bj)) |
|
./verification/rotating_tank/code/apply_forcing.F |
725 |
APPLY_FORCING_T |
& *recip_dxC(i,j,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
729 |
APPLY_FORCING_T |
faceArea = drF(k)*dxG(i,j+1,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
731 |
APPLY_FORCING_T |
& -faceArea*kDiffCyl*(tCyl-theta(i,j,k,bi,bj)) |
|
./verification/rotating_tank/code/apply_forcing.F |
732 |
APPLY_FORCING_T |
& *recip_dyC(i,j,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
736 |
APPLY_FORCING_T |
faceArea = drF(k)*dxG(i,j,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
738 |
APPLY_FORCING_T |
& -faceArea*kDiffCyl*(theta(i,j,k,bi,bj) - tCyl) |
|
./verification/rotating_tank/code/apply_forcing.F |
739 |
APPLY_FORCING_T |
& *recip_dyC(i,j,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
73 |
APPLY_FORCING_U |
DO i=1-OLx,sNx+OLx |
|
./verification/rotating_tank/code/apply_forcing.F |
744 |
APPLY_FORCING_T |
gT_arr(i,j) = gT_arr(i,j) |
|
./verification/rotating_tank/code/apply_forcing.F |
745 |
APPLY_FORCING_T |
& -_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./verification/rotating_tank/code/apply_forcing.F |
746 |
APPLY_FORCING_T |
& *recip_rA(i,j,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
74 |
APPLY_FORCING_U |
locVar(i,j) = gU(i,j,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
81 |
APPLY_FORCING_U |
DO i=1-OLx,sNx+OLx |
|
./verification/rotating_tank/code/apply_forcing.F |
82 |
APPLY_FORCING_U |
tmpVar = gU(i,j,k,bi,bj) - locVar(i,j) |
|
./verification/rotating_tank/code/apply_forcing.F |
83 |
APPLY_FORCING_U |
gU(i,j,k,bi,bj) = locVar(i,j) |
|
./verification/rotating_tank/code/apply_forcing.F |
84 |
APPLY_FORCING_U |
gU_arr(i,j) = gU_arr(i,j) + tmpVar |
|
./verification/rotating_tank/code/apply_forcing.F |
874 |
APPLY_FORCING_S |
INTEGER i, j |
|
./verification/rotating_tank/code/apply_forcing.F |
886 |
APPLY_FORCING_S |
DO i=1-OLx,sNx+OLx |
|
./verification/rotating_tank/code/apply_forcing.F |
887 |
APPLY_FORCING_S |
locVar(i,j) = gS(i,j,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
894 |
APPLY_FORCING_S |
DO i=1-OLx,sNx+OLx |
|
./verification/rotating_tank/code/apply_forcing.F |
895 |
APPLY_FORCING_S |
tmpVar = gS(i,j,k,bi,bj) - locVar(i,j) |
|
./verification/rotating_tank/code/apply_forcing.F |
896 |
APPLY_FORCING_S |
gS(i,j,k,bi,bj) = locVar(i,j) |
|
./verification/rotating_tank/code/apply_forcing.F |
897 |
APPLY_FORCING_S |
gS_arr(i,j) = gS_arr(i,j) + tmpVar |
|
./verification/rotating_tank/code/apply_forcing.F |
940 |
APPLY_FORCING_S |
DO i=1,sNx |
|
./verification/rotating_tank/code/apply_forcing.F |
941 |
APPLY_FORCING_S |
gS_arr(i,j) = gS_arr(i,j) |
|
./verification/rotating_tank/code/apply_forcing.F |
942 |
APPLY_FORCING_S |
& + addMass(i,j,k,bi,bj)*mass2rUnit |
|
./verification/rotating_tank/code/apply_forcing.F |
943 |
APPLY_FORCING_S |
& *( salt_addMass - salt(i,j,k,bi,bj) ) |
|
./verification/rotating_tank/code/apply_forcing.F |
944 |
APPLY_FORCING_S |
& *recip_rA(i,j,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
945 |
APPLY_FORCING_S |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
951 |
APPLY_FORCING_S |
DO i=1,sNx |
|
./verification/rotating_tank/code/apply_forcing.F |
952 |
APPLY_FORCING_S |
gS_arr(i,j) = gS_arr(i,j) |
|
./verification/rotating_tank/code/apply_forcing.F |
953 |
APPLY_FORCING_S |
& + addMass(i,j,k,bi,bj)*mass2rUnit |
|
./verification/rotating_tank/code/apply_forcing.F |
955 |
APPLY_FORCING_S |
& *recip_rA(i,j,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
956 |
APPLY_FORCING_S |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
967 |
APPLY_FORCING_S |
DO i=1,sNx |
|
./verification/rotating_tank/code/apply_forcing.F |
968 |
APPLY_FORCING_S |
gS_arr(i,j) = gS_arr(i,j) |
|
./verification/rotating_tank/code/apply_forcing.F |
969 |
APPLY_FORCING_S |
& +surfaceForcingS(i,j,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
970 |
APPLY_FORCING_S |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
975 |
APPLY_FORCING_S |
DO i=1,sNx |
|
./verification/rotating_tank/code/apply_forcing.F |
976 |
APPLY_FORCING_S |
IF ( kSurfC(i,j,bi,bj).EQ.k ) THEN |
|
./verification/rotating_tank/code/apply_forcing.F |
977 |
APPLY_FORCING_S |
gS_arr(i,j) = gS_arr(i,j) |
|
./verification/rotating_tank/code/apply_forcing.F |
978 |
APPLY_FORCING_S |
& +surfaceForcingS(i,j,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
979 |
APPLY_FORCING_S |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
987 |
APPLY_FORCING_S |
DO i=1,sNx |
|
./verification/rotating_tank/code/apply_forcing.F |
988 |
APPLY_FORCING_S |
IF (k .EQ. kSurfC(i,j,bi,bj)) THEN |
|
./verification/rotating_tank/code/apply_forcing.F |
989 |
APPLY_FORCING_S |
gS_arr(i,j) = gS_arr(i,j) |
|
./verification/rotating_tank/code/apply_forcing.F |
990 |
APPLY_FORCING_S |
& +SsurfCor*recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./model/src/salt_integrate.F |
120 |
SALT_INTEGRATE |
INTEGER i, j, k |
|
./model/src/salt_integrate.F |
207 |
SALT_INTEGRATE |
DO i=1-OLx,sNx+OLx |
|
./model/src/salt_integrate.F |
208 |
SALT_INTEGRATE |
gS_loc(i,j,k) = 0. _d 0 |
|
./model/src/salt_integrate.F |
213 |
SALT_INTEGRATE |
DO i=1-OLx,sNx+OLx |
|
./model/src/salt_integrate.F |
214 |
SALT_INTEGRATE |
fVer(i,j,1) = 0. _d 0 |
|
./model/src/salt_integrate.F |
215 |
SALT_INTEGRATE |
fVer(i,j,2) = 0. _d 0 |
|
./model/src/salt_integrate.F |
221 |
SALT_INTEGRATE |
DO i=1-OLx,sNx+OLx |
|
./model/src/salt_integrate.F |
222 |
SALT_INTEGRATE |
kappaRk(i,j,k) = 0. _d 0 |
|
./model/src/salt_integrate.F |
322 |
SALT_INTEGRATE |
DO i=1-OLx,sNx+OLx |
|
./model/src/salt_integrate.F |
323 |
SALT_INTEGRATE |
gsForc(i,j) = 0. _d 0 |
|
./model/src/salt_integrate.F |
375 |
SALT_INTEGRATE |
DO i=1-OLx,sNx+OLx |
|
./model/src/salt_integrate.F |
376 |
SALT_INTEGRATE |
gS_loc(i,j,k) = gS_loc(i,j,k) + gsForc(i,j) |
|
./model/src/salt_integrate.F |
405 |
SALT_INTEGRATE |
DO i=1-OLx,sNx+OLx |
|
./model/src/salt_integrate.F |
406 |
SALT_INTEGRATE |
gS_loc(i,j,k) = gS_loc(i,j,k) + gsForc(i,j) |
|
./verification/solid-body.cs-32x32x1/code/ini_psurf.F |
45 |
INI_PSURF |
etaN(I,J,bi,bj) = 0. +fac*(fCori(i,j,bi,bj)**2) |
|
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
34 |
INI_VEL |
INTEGER bi,bj,i,j,k |
|
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
38 |
INI_VEL |
psi(i,j,bi,bj)=fac*fCoriG(i,j,bi,bj) |
|
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
54 |
INI_VEL |
DO i=1-Olx,sNx+Olx |
|
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
55 |
INI_VEL |
ip1=MIN(i+1,sNx+Olx) |
|
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
56 |
INI_VEL |
uVel(i,j,k,bi,bj)=0. |
|
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
57 |
INI_VEL |
& +(psi(i,j,bi,bj)-psi(i,jp1,bi,bj))*recip_dyg(i,j,bi,bj) |
|
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
58 |
INI_VEL |
vVel(i,j,k,bi,bj)=0. |
|
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
59 |
INI_VEL |
& +(psi(ip1,j,bi,bj)-psi(i,j,bi,bj))*recip_dxg(i,j,bi,bj) |
|
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
60 |
INI_VEL |
wVel(i,j,k,bi,bj)=0. |
|
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
90 |
INI_VEL |
DO i=1-Olx,sNx+Olx |
|
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
91 |
INI_VEL |
uVel(i,j,k,bi,bj)=uVel(i,j,k,bi,bj)*_maskW(i,j,k,bi,bj) |
|
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
92 |
INI_VEL |
vVel(i,j,k,bi,bj)=vVel(i,j,k,bi,bj)*_maskS(i,j,k,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
100 |
EXTERNAL_FORCING_U |
& )*recip_DXC(i,j,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
101 |
EXTERNAL_FORCING_U |
& *_maskW(i,j,kLev,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
152 |
EXTERNAL_FORCING_V |
INTEGER i, j |
|
./verification/tidal_basin_2d/code/external_forcing.F |
171 |
EXTERNAL_FORCING_V |
DO i=0,sNx+1 |
|
./verification/tidal_basin_2d/code/external_forcing.F |
172 |
EXTERNAL_FORCING_V |
gV(i,j,kLev,bi,bj) = gV(i,j,kLev,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
173 |
EXTERNAL_FORCING_V |
& +foFacMom*surfaceForcingV(i,j,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
174 |
EXTERNAL_FORCING_V |
& *recip_drF(kLev)*recip_hFacS(i,j,kLev,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
225 |
EXTERNAL_FORCING_T |
INTEGER i, j |
|
./verification/tidal_basin_2d/code/external_forcing.F |
251 |
EXTERNAL_FORCING_T |
DO i=1,sNx |
|
./verification/tidal_basin_2d/code/external_forcing.F |
252 |
EXTERNAL_FORCING_T |
gT(i,j,kLev,bi,bj)=gT(i,j,kLev,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
253 |
EXTERNAL_FORCING_T |
& +surfaceForcingT(i,j,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
254 |
EXTERNAL_FORCING_T |
& *recip_drF(kLev)*recip_hFacC(i,j,kLev,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
274 |
EXTERNAL_FORCING_T |
DO i=1,sNx |
|
./verification/tidal_basin_2d/code/external_forcing.F |
275 |
EXTERNAL_FORCING_T |
gT(i,j,klev,bi,bj) = gT(i,j,klev,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
276 |
EXTERNAL_FORCING_T |
& -Qsw(i,j,bi,bj)*(swfracb(1)*maskC(i,j,klev,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
277 |
EXTERNAL_FORCING_T |
& -swfracb(2)*maskC(i,j,kp1, bi,bj)) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
279 |
EXTERNAL_FORCING_T |
& *recip_drF(klev)*recip_hFacC(i,j,kLev,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
332 |
EXTERNAL_FORCING_S |
INTEGER i, j |
|
./verification/tidal_basin_2d/code/external_forcing.F |
349 |
EXTERNAL_FORCING_S |
DO i=1,sNx |
|
./verification/tidal_basin_2d/code/external_forcing.F |
350 |
EXTERNAL_FORCING_S |
gS(i,j,kLev,bi,bj)=gS(i,j,kLev,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
351 |
EXTERNAL_FORCING_S |
& +surfaceForcingS(i,j,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
352 |
EXTERNAL_FORCING_S |
& *recip_drF(kLev)*recip_hFacC(i,j,kLev,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
49 |
EXTERNAL_FORCING_U |
INTEGER i, j |
|
./verification/tidal_basin_2d/code/external_forcing.F |
70 |
EXTERNAL_FORCING_U |
DO i=1,sNx+1 |
|
./verification/tidal_basin_2d/code/external_forcing.F |
71 |
EXTERNAL_FORCING_U |
gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
72 |
EXTERNAL_FORCING_U |
& +foFacMom*surfaceForcingU(i,j,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
73 |
EXTERNAL_FORCING_U |
& *recip_drF(kLev)*recip_hFacW(i,j,kLev,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
93 |
EXTERNAL_FORCING_U |
DO i=1,sNx+1 |
|
./verification/tidal_basin_2d/code/external_forcing.F |
94 |
EXTERNAL_FORCING_U |
longitud1=XC(i-1,j,bi,bj)*Coord2longitude |
|
./verification/tidal_basin_2d/code/external_forcing.F |
95 |
EXTERNAL_FORCING_U |
longitud2=XC(i,j,bi,bj)*Coord2longitude |
|
./verification/tidal_basin_2d/code/external_forcing.F |
96 |
EXTERNAL_FORCING_U |
gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj) |
|
./model/src/set_defaults.F |
40 |
SET_DEFAULTS |
INTEGER i, j, k |
|
./model/src/set_defaults.F |
77 |
SET_DEFAULTS |
DO i=1,grid_maxNx |
|
./model/src/set_defaults.F |
78 |
SET_DEFAULTS |
delX(i) = UNSET_RL |
|
./verification/tutorial_global_oce_biogeo/code_ad/cost_tracer.F |
44 |
COST_TRACER |
integer i, j, k |
|
./verification/tutorial_global_oce_biogeo/code_ad/cost_tracer.F |
53 |
COST_TRACER |
DO i=1,sNx |
|
./verification/tutorial_global_oce_biogeo/code_ad/cost_tracer.F |
55 |
COST_TRACER |
locfc = locfc + maskC(i,j,k,bi,bj)* |
|
./verification/tutorial_global_oce_biogeo/code_ad/cost_tracer.F |
56 |
COST_TRACER |
& ptracer(i,j,k,bi,bj,6)* |
|
./verification/tutorial_global_oce_biogeo/code_ad/cost_tracer.F |
57 |
COST_TRACER |
& rA(i,j,bi,bj)*drF(k) |
|
./verification/tutorial_global_oce_biogeo/code_oad/cost_tracer.F |
44 |
COST_TRACER |
integer i, j, k |
|
./verification/tutorial_global_oce_biogeo/code_oad/cost_tracer.F |
53 |
COST_TRACER |
DO i=1,sNx |
|
./verification/tutorial_global_oce_biogeo/code_oad/cost_tracer.F |
55 |
COST_TRACER |
locfc = locfc + maskC(i,j,k,bi,bj)* |
|
./verification/tutorial_global_oce_biogeo/code_oad/cost_tracer.F |
56 |
COST_TRACER |
& ptracer(i,j,k,bi,bj,6)* |
|
./verification/tutorial_global_oce_biogeo/code_oad/cost_tracer.F |
57 |
COST_TRACER |
& rA(i,j,bi,bj)*drF(k) |
|
./verification/tutorial_global_oce_biogeo/code_oad/ctrl_map_ini_genarr.F |
144 |
CTRL_MAP_INI_GENARR |
do i = imin,imax |
|
./verification/tutorial_global_oce_biogeo/code_oad/ctrl_map_ini_genarr.F |
150 |
CTRL_MAP_INI_GENARR |
pTracer(i,j,k,bi,bj,iarr) = pTracer(i,j,k,bi,bj,iarr) |
|
./verification/tutorial_global_oce_biogeo/code_oad/ctrl_map_ini_genarr.F |
151 |
CTRL_MAP_INI_GENARR |
& + fac*tmpfld3d(i,j,k,bi,bj) |
|
./verification/tutorial_global_oce_biogeo/code_oad/ctrl_map_ini_genarr.F |
52 |
CTRL_MAP_INI_GENARR |
integer i,j,k |
|
./verification/tutorial_global_oce_biogeo/code_oad/ctrl_map_ini_genarr.F |
95 |
CTRL_MAP_INI_GENARR |
do i = imin,imax |
|
./model/src/solve_for_pressure.F |
128 |
SOLVE_FOR_PRESSURE |
DO i=1-OLx,sNx+OLx |
|
./model/src/solve_for_pressure.F |
130 |
SOLVE_FOR_PRESSURE |
etaNm1(i,j,bi,bj) = etaN(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
132 |
SOLVE_FOR_PRESSURE |
cg2d_x(i,j,bi,bj) = Bo_surf(i,j,bi,bj)*etaN(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
133 |
SOLVE_FOR_PRESSURE |
cg2d_b(i,j,bi,bj) = 0. |
|
./model/src/solve_for_pressure.F |
139 |
SOLVE_FOR_PRESSURE |
DO i=1,sNx |
|
./model/src/solve_for_pressure.F |
140 |
SOLVE_FOR_PRESSURE |
cg2d_b(i,j,bi,bj) = |
|
./model/src/solve_for_pressure.F |
141 |
SOLVE_FOR_PRESSURE |
& tmpFac*_rA(i,j,bi,bj)*EmPmR(i,j,bi,bj)/deltaTMom |
|
./model/src/solve_for_pressure.F |
142 |
SOLVE_FOR_PRESSURE |
& *maskInC(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
149 |
SOLVE_FOR_PRESSURE |
DO i=1,sNx |
|
./model/src/solve_for_pressure.F |
151 |
SOLVE_FOR_PRESSURE |
& + rA(i,j,bi,bj)*EmPmR(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
152 |
SOLVE_FOR_PRESSURE |
& *maskInC(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
169 |
SOLVE_FOR_PRESSURE |
DO i=1,sNx |
|
./model/src/solve_for_pressure.F |
170 |
SOLVE_FOR_PRESSURE |
cg2d_x(i,j,bi,bj) = cg2d_x(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
171 |
SOLVE_FOR_PRESSURE |
& - tmpFac*Bo_surf(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
192 |
SOLVE_FOR_PRESSURE |
DO i=1,sNx |
|
./model/src/solve_for_pressure.F |
193 |
SOLVE_FOR_PRESSURE |
ks = kSurfC(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
195 |
SOLVE_FOR_PRESSURE |
cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
196 |
SOLVE_FOR_PRESSURE |
& -freeSurfFac*_rA(i,j,bi,bj)*deepFac2F(ks) |
|
./model/src/solve_for_pressure.F |
198 |
SOLVE_FOR_PRESSURE |
& *( etaN(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
199 |
SOLVE_FOR_PRESSURE |
& +phi_nh(i,j,ks,bi,bj)*recip_Bo(i,j,bi,bj) ) |
|
./model/src/solve_for_pressure.F |
200 |
SOLVE_FOR_PRESSURE |
cg3d_b(i,j,ks,bi,bj) = cg3d_b(i,j,ks,bi,bj) |
|
./model/src/solve_for_pressure.F |
201 |
SOLVE_FOR_PRESSURE |
& -freeSurfFac*_rA(i,j,bi,bj)*deepFac2F(ks) |
|
./model/src/solve_for_pressure.F |
203 |
SOLVE_FOR_PRESSURE |
& *( etaN(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
204 |
SOLVE_FOR_PRESSURE |
& +phi_nh(i,j,ks,bi,bj)*recip_Bo(i,j,bi,bj) ) |
|
./model/src/solve_for_pressure.F |
214 |
SOLVE_FOR_PRESSURE |
DO i=1,sNx |
|
./model/src/solve_for_pressure.F |
215 |
SOLVE_FOR_PRESSURE |
ks = kSurfC(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
216 |
SOLVE_FOR_PRESSURE |
cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
217 |
SOLVE_FOR_PRESSURE |
& -freeSurfFac*_rA(i,j,bi,bj)*deepFac2F(ks) |
|
./model/src/solve_for_pressure.F |
219 |
SOLVE_FOR_PRESSURE |
& * etaH(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
224 |
SOLVE_FOR_PRESSURE |
DO i=1,sNx |
|
./model/src/solve_for_pressure.F |
225 |
SOLVE_FOR_PRESSURE |
ks = kSurfC(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
226 |
SOLVE_FOR_PRESSURE |
cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
227 |
SOLVE_FOR_PRESSURE |
& -freeSurfFac*_rA(i,j,bi,bj)*deepFac2F(ks) |
|
./model/src/solve_for_pressure.F |
229 |
SOLVE_FOR_PRESSURE |
& * etaN(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
246 |
SOLVE_FOR_PRESSURE |
DO i=1,sNx |
|
./model/src/solve_for_pressure.F |
247 |
SOLVE_FOR_PRESSURE |
cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj)*maskInC(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
248 |
SOLVE_FOR_PRESSURE |
cg2d_x(i,j,bi,bj) = cg2d_x(i,j,bi,bj)*maskInC(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
351 |
SOLVE_FOR_PRESSURE |
DO i=1-OLx,sNx+OLx |
|
./model/src/solve_for_pressure.F |
352 |
SOLVE_FOR_PRESSURE |
tmpVar(i,j) = implicSurfPress * cg2d_x(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
353 |
SOLVE_FOR_PRESSURE |
& + (oneRL - implicSurfPress)* Bo_surf(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
354 |
SOLVE_FOR_PRESSURE |
& * etaN(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
370 |
SOLVE_FOR_PRESSURE |
DO i=1-OLx,sNx+OLx |
|
./model/src/solve_for_pressure.F |
371 |
SOLVE_FOR_PRESSURE |
etaN(i,j,bi,bj) = recip_Bo(i,j,bi,bj)*cg2d_x(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
58 |
SOLVE_FOR_PRESSURE |
INTEGER i,j,k,bi,bj |
|
./verification/tutorial_global_oce_latlon/code/ptracers_apply_forcing.F |
100 |
PTRACERS_APPLY_FORCING |
DO i=0,sNx+1 |
|
./verification/tutorial_global_oce_latlon/code/ptracers_apply_forcing.F |
101 |
PTRACERS_APPLY_FORCING |
gPtracer(i,j) = gPtracer(i,j) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_apply_forcing.F |
103 |
PTRACERS_APPLY_FORCING |
& *_recip_hFacC(i,j,k,bi,bj) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_apply_forcing.F |
55 |
PTRACERS_APPLY_FORCING |
INTEGER i,j |
|
./verification/tutorial_global_oce_latlon/code/ptracers_apply_forcing.F |
81 |
PTRACERS_APPLY_FORCING |
DO i=iMin,iMax |
|
./verification/tutorial_global_oce_latlon/code/ptracers_apply_forcing.F |
82 |
PTRACERS_APPLY_FORCING |
gPtracer(i,j) = gPtracer(i,j) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_apply_forcing.F |
83 |
PTRACERS_APPLY_FORCING |
& + surfForcPtr(i,j) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_apply_forcing.F |
84 |
PTRACERS_APPLY_FORCING |
& *recip_drF(k)*recip_hFacC(i,j,k,bi,bj) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_apply_forcing.F |
90 |
PTRACERS_APPLY_FORCING |
DO i=iMin,iMax |
|
./verification/tutorial_global_oce_latlon/code/ptracers_apply_forcing.F |
91 |
PTRACERS_APPLY_FORCING |
gPtracer(i,j) = gPtracer(i,j) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_apply_forcing.F |
92 |
PTRACERS_APPLY_FORCING |
& + 1. _d 0 * maskC(i,j,k,bi,bj) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
100 |
PTRACERS_FORCING_SURF |
add2EmP(i,j) = relaxForcingS(i,j)/convertFW2Salt |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
101 |
PTRACERS_FORCING_SURF |
add2EmP(i,j) = rUnit2mass |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
102 |
PTRACERS_FORCING_SURF |
& *MAX( -cutoff, MIN( add2EmP(i,j), cutoff ) ) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
113 |
PTRACERS_FORCING_SURF |
DO i = iMin, iMax |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
114 |
PTRACERS_FORCING_SURF |
add2EmP(i,j) = 0. _d 0 |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
133 |
PTRACERS_FORCING_SURF |
DO i = iMin, iMax |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
134 |
PTRACERS_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
135 |
PTRACERS_FORCING_SURF |
& surfaceForcingPTr(i,j,bi,bj,iTrc) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
136 |
PTRACERS_FORCING_SURF |
& + ( PmEpR(i,j,bi,bj) - add2EmP(i,j) ) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
137 |
PTRACERS_FORCING_SURF |
& *( PTRACERS_EvPrRn(iTrc) - pTracer(i,j,ks,bi,bj,iTrc) ) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
164 |
PTRACERS_FORCING_SURF |
DO i = iMin, iMax |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
165 |
PTRACERS_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
166 |
PTRACERS_FORCING_SURF |
& surfaceForcingPTr(i,j,bi,bj,iTrc) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
167 |
PTRACERS_FORCING_SURF |
& + ( EmPmR(i,j,bi,bj) + add2EmP(i,j) ) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
168 |
PTRACERS_FORCING_SURF |
& *( pTracer(i,j,ks,bi,bj,iTrc) - PTRACERS_EvPrRn(iTrc) ) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
186 |
PTRACERS_FORCING_SURF |
DO i = iMin, iMax |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
187 |
PTRACERS_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
188 |
PTRACERS_FORCING_SURF |
& surfaceForcingPTr(i,j,bi,bj,iTrc) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
189 |
PTRACERS_FORCING_SURF |
& + ( EmPmR(i,j,bi,bj) + add2EmP(i,j) ) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
52 |
PTRACERS_FORCING_SURF |
INTEGER i, j |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
68 |
PTRACERS_FORCING_SURF |
DO i = iMin, iMax |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
70 |
PTRACERS_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
72 |
PTRACERS_FORCING_SURF |
& * ( 0. _d 0 - pTracer(i,j,ks,bi,bj,iTrc) ) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
73 |
PTRACERS_FORCING_SURF |
& * drF(ks) * _hFacC(i,j,ks,bi,bj) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
90 |
PTRACERS_FORCING_SURF |
DO i = iMin, iMax |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
91 |
PTRACERS_FORCING_SURF |
tmpVar = MAX( salt(i,j,ks,bi,bj), epsil ) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
92 |
PTRACERS_FORCING_SURF |
add2EmP(i,j) = relaxForcingS(i,j)/tmpVar |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
93 |
PTRACERS_FORCING_SURF |
add2EmP(i,j) = rUnit2mass |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
94 |
PTRACERS_FORCING_SURF |
& *MAX( -cutoff, MIN( add2EmP(i,j), cutoff ) ) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
99 |
PTRACERS_FORCING_SURF |
DO i = iMin, iMax |
|
./model/src/solve_pentadiagonal.F |
101 |
SOLVE_PENTADIAGONAL |
c5d(i,j,k) = 0. _d 0 |
|
./model/src/solve_pentadiagonal.F |
109 |
SOLVE_PENTADIAGONAL |
DO i=iMin,iMax |
|
./model/src/solve_pentadiagonal.F |
111 |
SOLVE_PENTADIAGONAL |
b5d(i,j,k) = b5d(i,j,k)*c5d(i,j,k-1) |
|
./model/src/solve_pentadiagonal.F |
112 |
SOLVE_PENTADIAGONAL |
c5d(i,j,k) = c5d(i,j,k) - b5d(i,j,k)*d5d(i,j,k-1) |
|
./model/src/solve_pentadiagonal.F |
113 |
SOLVE_PENTADIAGONAL |
d5d(i,j,k) = d5d(i,j,k) - b5d(i,j,k)*e5d(i,j,k-1) |
|
./model/src/solve_pentadiagonal.F |
114 |
SOLVE_PENTADIAGONAL |
IF ( c5d(i,j,k).NE.0. _d 0 ) THEN |
|
./model/src/solve_pentadiagonal.F |
115 |
SOLVE_PENTADIAGONAL |
c5d(i,j,k) = 1. _d 0 / c5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
117 |
SOLVE_PENTADIAGONAL |
c5d(i,j,k) = 0. _d 0 |
|
./model/src/solve_pentadiagonal.F |
126 |
SOLVE_PENTADIAGONAL |
DO i=iMin,iMax |
|
./model/src/solve_pentadiagonal.F |
128 |
SOLVE_PENTADIAGONAL |
a5d(i,j,k) = a5d(i,j,k)*c5d(i,j,k-2) |
|
./model/src/solve_pentadiagonal.F |
129 |
SOLVE_PENTADIAGONAL |
b5d(i,j,k) = b5d(i,j,k) - a5d(i,j,k)*d5d(i,j,k-2) |
|
./model/src/solve_pentadiagonal.F |
130 |
SOLVE_PENTADIAGONAL |
c5d(i,j,k) = c5d(i,j,k) - a5d(i,j,k)*e5d(i,j,k-2) |
|
./model/src/solve_pentadiagonal.F |
132 |
SOLVE_PENTADIAGONAL |
b5d(i,j,k) = b5d(i,j,k)*c5d(i,j,k-1) |
|
./model/src/solve_pentadiagonal.F |
133 |
SOLVE_PENTADIAGONAL |
c5d(i,j,k) = c5d(i,j,k) - b5d(i,j,k)*d5d(i,j,k-1) |
|
./model/src/solve_pentadiagonal.F |
134 |
SOLVE_PENTADIAGONAL |
d5d(i,j,k) = d5d(i,j,k) - b5d(i,j,k)*e5d(i,j,k-1) |
|
./model/src/solve_pentadiagonal.F |
135 |
SOLVE_PENTADIAGONAL |
IF ( c5d(i,j,k).NE.0. _d 0 ) THEN |
|
./model/src/solve_pentadiagonal.F |
136 |
SOLVE_PENTADIAGONAL |
c5d(i,j,k) = 1. _d 0 / c5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
138 |
SOLVE_PENTADIAGONAL |
c5d(i,j,k) = 0. _d 0 |
|
./model/src/solve_pentadiagonal.F |
154 |
SOLVE_PENTADIAGONAL |
DO i=iMin,iMax |
|
./model/src/solve_pentadiagonal.F |
155 |
SOLVE_PENTADIAGONAL |
y5d(i,j,k) = y5d(i,j,k) - b5d(i,j,k)*y5d(i,j,k-1) |
|
./model/src/solve_pentadiagonal.F |
160 |
SOLVE_PENTADIAGONAL |
DO i=iMin,iMax |
|
./model/src/solve_pentadiagonal.F |
161 |
SOLVE_PENTADIAGONAL |
y5d(i,j,k) = y5d(i,j,k) - b5d(i,j,k)*y5d(i,j,k-1) |
|
./model/src/solve_pentadiagonal.F |
162 |
SOLVE_PENTADIAGONAL |
& - a5d(i,j,k)*y5d(i,j,k-2) |
|
./model/src/solve_pentadiagonal.F |
173 |
SOLVE_PENTADIAGONAL |
DO i=iMin,iMax |
|
./model/src/solve_pentadiagonal.F |
174 |
SOLVE_PENTADIAGONAL |
y5d(i,j,k) = y5d(i,j,k)*c5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
179 |
SOLVE_PENTADIAGONAL |
DO i=iMin,iMax |
|
./model/src/solve_pentadiagonal.F |
180 |
SOLVE_PENTADIAGONAL |
y5d(i,j,k) = ( y5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
181 |
SOLVE_PENTADIAGONAL |
& - d5d(i,j,k)*y5d(i,j,k+1) |
|
./model/src/solve_pentadiagonal.F |
182 |
SOLVE_PENTADIAGONAL |
& )*c5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
187 |
SOLVE_PENTADIAGONAL |
DO i=iMin,iMax |
|
./model/src/solve_pentadiagonal.F |
188 |
SOLVE_PENTADIAGONAL |
y5d(i,j,k) = ( y5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
189 |
SOLVE_PENTADIAGONAL |
& - d5d(i,j,k)*y5d(i,j,k+1) |
|
./model/src/solve_pentadiagonal.F |
190 |
SOLVE_PENTADIAGONAL |
& - e5d(i,j,k)*y5d(i,j,k+2) |
|
./model/src/solve_pentadiagonal.F |
191 |
SOLVE_PENTADIAGONAL |
& )*c5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
206 |
SOLVE_PENTADIAGONAL |
DO i=1-OLx,sNx+OLx |
|
./model/src/solve_pentadiagonal.F |
207 |
SOLVE_PENTADIAGONAL |
y5d_m1(i,j,k) = y5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
214 |
SOLVE_PENTADIAGONAL |
DO i=1-OLx,sNx+OLx |
|
./model/src/solve_pentadiagonal.F |
229 |
SOLVE_PENTADIAGONAL |
c5d_prime(k) = c5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
230 |
SOLVE_PENTADIAGONAL |
d5d_prime(k) = d5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
231 |
SOLVE_PENTADIAGONAL |
e5d_prime(k) = e5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
232 |
SOLVE_PENTADIAGONAL |
y5d_prime(k) = y5d_m1(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
235 |
SOLVE_PENTADIAGONAL |
c5d_prime(k) = c5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
236 |
SOLVE_PENTADIAGONAL |
& -b5d(i,j,k)*d5d_prime(k-1) |
|
./model/src/solve_pentadiagonal.F |
237 |
SOLVE_PENTADIAGONAL |
d5d_prime(k) = d5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
238 |
SOLVE_PENTADIAGONAL |
& -b5d(i,j,k)*e5d_prime(k-1) |
|
./model/src/solve_pentadiagonal.F |
239 |
SOLVE_PENTADIAGONAL |
e5d_prime(k) = e5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
240 |
SOLVE_PENTADIAGONAL |
y5d_prime(k) = y5d_m1(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
241 |
SOLVE_PENTADIAGONAL |
& -b5d(i,j,k)*y5d_prime(k-1) |
|
./model/src/solve_pentadiagonal.F |
244 |
SOLVE_PENTADIAGONAL |
c5d_prime(k) = c5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
245 |
SOLVE_PENTADIAGONAL |
& -a5d(i,j,k)*e5d_prime(k-2) |
|
./model/src/solve_pentadiagonal.F |
246 |
SOLVE_PENTADIAGONAL |
& -(b5d(i,j,k)-a5d(i,j,k)*d5d_prime(k-2))*d5d_prime(k-1) |
|
./model/src/solve_pentadiagonal.F |
247 |
SOLVE_PENTADIAGONAL |
d5d_prime(k) = d5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
248 |
SOLVE_PENTADIAGONAL |
& -(b5d(i,j,k)-a5d(i,j,k)*d5d_prime(k-2))*e5d_prime(k-1) |
|
./model/src/solve_pentadiagonal.F |
249 |
SOLVE_PENTADIAGONAL |
e5d_prime(k) = e5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
250 |
SOLVE_PENTADIAGONAL |
y5d_prime(k) = y5d_m1(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
251 |
SOLVE_PENTADIAGONAL |
& -a5d(i,j,k)*y5d_prime(k-2) |
|
./model/src/solve_pentadiagonal.F |
252 |
SOLVE_PENTADIAGONAL |
& -(b5d(i,j,k)-a5d(i,j,k)*d5d_prime(k-2))*y5d_prime(k-1) |
|
./model/src/solve_pentadiagonal.F |
288 |
SOLVE_PENTADIAGONAL |
y5d(i,j,k) = y5d_update(k) |
|
./model/src/solve_pentadiagonal.F |
300 |
SOLVE_PENTADIAGONAL |
DO i=1-OLx,sNx+OLx |
|
./model/src/solve_pentadiagonal.F |
301 |
SOLVE_PENTADIAGONAL |
c5d_prime(i,j,k) = 0. _d 0 |
|
./model/src/solve_pentadiagonal.F |
302 |
SOLVE_PENTADIAGONAL |
d5d_prime(i,j,k) = 0. _d 0 |
|
./model/src/solve_pentadiagonal.F |
303 |
SOLVE_PENTADIAGONAL |
e5d_prime(i,j,k) = 0. _d 0 |
|
./model/src/solve_pentadiagonal.F |
304 |
SOLVE_PENTADIAGONAL |
y5d_prime(i,j,k) = 0. _d 0 |
|
./model/src/solve_pentadiagonal.F |
305 |
SOLVE_PENTADIAGONAL |
y5d_m1(i,j,k) = y5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
315 |
SOLVE_PENTADIAGONAL |
DO i=1-OLx,sNx+OLx |
|
./model/src/solve_pentadiagonal.F |
321 |
SOLVE_PENTADIAGONAL |
c5d_prime(i,j,k) = c5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
322 |
SOLVE_PENTADIAGONAL |
d5d_prime(i,j,k) = d5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
323 |
SOLVE_PENTADIAGONAL |
e5d_prime(i,j,k) = e5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
324 |
SOLVE_PENTADIAGONAL |
y5d_prime(i,j,k) = y5d_m1(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
327 |
SOLVE_PENTADIAGONAL |
c5d_prime(i,j,k) = c5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
328 |
SOLVE_PENTADIAGONAL |
& -b5d(i,j,k)*d5d_prime(i,j,k-1) |
|
./model/src/solve_pentadiagonal.F |
329 |
SOLVE_PENTADIAGONAL |
d5d_prime(i,j,k) = d5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
330 |
SOLVE_PENTADIAGONAL |
& -b5d(i,j,k)*e5d_prime(i,j,k-1) |
|
./model/src/solve_pentadiagonal.F |
331 |
SOLVE_PENTADIAGONAL |
e5d_prime(i,j,k) = e5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
332 |
SOLVE_PENTADIAGONAL |
y5d_prime(i,j,k) = y5d_m1(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
333 |
SOLVE_PENTADIAGONAL |
& -b5d(i,j,k)*y5d_prime(i,j,k-1) |
|
./model/src/solve_pentadiagonal.F |
336 |
SOLVE_PENTADIAGONAL |
c5d_prime(i,j,k) = c5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
337 |
SOLVE_PENTADIAGONAL |
& -a5d(i,j,k)*e5d_prime(i,j,k-2) |
|
./model/src/solve_pentadiagonal.F |
338 |
SOLVE_PENTADIAGONAL |
& -(b5d(i,j,k)-a5d(i,j,k)*d5d_prime(i,j,k-2)) |
|
./model/src/solve_pentadiagonal.F |
339 |
SOLVE_PENTADIAGONAL |
& *d5d_prime(i,j,k-1) |
|
./model/src/solve_pentadiagonal.F |
340 |
SOLVE_PENTADIAGONAL |
d5d_prime(i,j,k) = d5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
341 |
SOLVE_PENTADIAGONAL |
& -(b5d(i,j,k)-a5d(i,j,k)*d5d_prime(i,j,k-2)) |
|
./model/src/solve_pentadiagonal.F |
342 |
SOLVE_PENTADIAGONAL |
& *e5d_prime(i,j,k-1) |
|
./model/src/solve_pentadiagonal.F |
343 |
SOLVE_PENTADIAGONAL |
e5d_prime(i,j,k) = e5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
344 |
SOLVE_PENTADIAGONAL |
y5d_prime(i,j,k) = y5d_m1(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
345 |
SOLVE_PENTADIAGONAL |
& -a5d(i,j,k)*y5d_prime(i,j,k-2) |
|
./model/src/solve_pentadiagonal.F |
346 |
SOLVE_PENTADIAGONAL |
& -(b5d(i,j,k)-a5d(i,j,k)*d5d_prime(i,j,k-2)) |
|
./model/src/solve_pentadiagonal.F |
347 |
SOLVE_PENTADIAGONAL |
& *y5d_prime(i,j,k-1) |
|
./model/src/solve_pentadiagonal.F |
351 |
SOLVE_PENTADIAGONAL |
tmpVar = c5d_prime(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
354 |
SOLVE_PENTADIAGONAL |
d5d_prime(i,j,k) = d5d_prime(i,j,k)*recVar |
|
./model/src/solve_pentadiagonal.F |
355 |
SOLVE_PENTADIAGONAL |
e5d_prime(i,j,k) = e5d_prime(i,j,k)*recVar |
|
./model/src/solve_pentadiagonal.F |
356 |
SOLVE_PENTADIAGONAL |
y5d_prime(i,j,k) = y5d_prime(i,j,k)*recVar |
|
./model/src/solve_pentadiagonal.F |
358 |
SOLVE_PENTADIAGONAL |
d5d_prime(i,j,k) = 0. _d 0 |
|
./model/src/solve_pentadiagonal.F |
359 |
SOLVE_PENTADIAGONAL |
e5d_prime(i,j,k) = 0. _d 0 |
|
./model/src/solve_pentadiagonal.F |
360 |
SOLVE_PENTADIAGONAL |
y5d_prime(i,j,k) = 0. _d 0 |
|
./model/src/solve_pentadiagonal.F |
374 |
SOLVE_PENTADIAGONAL |
DO i=1-OLx,sNx+OLx |
|
./model/src/solve_pentadiagonal.F |
378 |
SOLVE_PENTADIAGONAL |
y5d(i,j,k) = y5d_prime(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
380 |
SOLVE_PENTADIAGONAL |
y5d(i,j,k) = y5d_prime(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
381 |
SOLVE_PENTADIAGONAL |
& - y5d(i,j,k+1)*d5d_prime(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
383 |
SOLVE_PENTADIAGONAL |
y5d(i,j,k) = y5d_prime(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
384 |
SOLVE_PENTADIAGONAL |
& - y5d(i,j,k+1)*d5d_prime(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
385 |
SOLVE_PENTADIAGONAL |
& - y5d(i,j,k+2)*e5d_prime(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
69 |
SOLVE_PENTADIAGONAL |
INTEGER i,j,k |
|
./model/src/solve_pentadiagonal.F |
97 |
SOLVE_PENTADIAGONAL |
DO i=iMin,iMax |
|
./model/src/solve_pentadiagonal.F |
98 |
SOLVE_PENTADIAGONAL |
IF ( c5d(i,j,k).NE.0. _d 0 ) THEN |
|
./model/src/solve_pentadiagonal.F |
99 |
SOLVE_PENTADIAGONAL |
c5d(i,j,k) = 1. _d 0 / c5d(i,j,k) |
|
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F |
36 |
COST_HFLUX |
integer i, j |
|
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F |
44 |
COST_HFLUX |
do i=1,sNx |
|
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F |
45 |
COST_HFLUX |
tmpC = tmpC + maskC(i,j,1,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F |
58 |
COST_HFLUX |
DO i=1,sNx |
|
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F |
59 |
COST_HFLUX |
locfc = locfc + tmpC*maskC(i,j,1,bi,bj)* |
|
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F |
60 |
COST_HFLUX |
& whfluxm(i,j,bi,bj)* |
|
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F |
62 |
COST_HFLUX |
& Qnetm(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
32 |
COST_TEMP |
INTEGER i, j, k |
|
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
49 |
COST_TEMP |
DO i=1,sNx |
|
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
50 |
COST_TEMP |
tmp = tmp + maskC(i,j,k,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
65 |
COST_TEMP |
DO i=1,sNx |
|
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
66 |
COST_TEMP |
locfc = locfc + tmp*maskC(i,j,k,bi,bj)* |
|
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
68 |
COST_TEMP |
& ( cMeanTheta(i,j,k,bi,bj) - thetalev(i,j,k,bi,bj) )**2 |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
124 |
COST_WEIGHTS |
DO i = iMin,iMax |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
126 |
COST_WEIGHTS |
IF (whfluxm(i,j,bi,bj) .NE. 0. _d 0) THEN |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
127 |
COST_WEIGHTS |
whfluxm(i,j,bi,bj) = 1. _d 0 /whfluxm(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
128 |
COST_WEIGHTS |
& /whfluxm(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
130 |
COST_WEIGHTS |
whfluxm(i,j,bi,bj) = 1. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
39 |
COST_WEIGHTS |
INTEGER i,j,k |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
67 |
COST_WEIGHTS |
DO i = iMin,iMax |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
68 |
COST_WEIGHTS |
whfluxm(i,j,bi,bj)= 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
129 |
EXTERNAL_FORCING_SURF |
DO i=1-OLx,sNx+OLx |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
130 |
EXTERNAL_FORCING_SURF |
PmEpR(i,j,bi,bj) = -EmPmR(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
142 |
EXTERNAL_FORCING_SURF |
DO i=1-OLx,sNx+OLx |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
143 |
EXTERNAL_FORCING_SURF |
surfaceForcingT(i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
144 |
EXTERNAL_FORCING_SURF |
surfaceForcingS(i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
207 |
EXTERNAL_FORCING_SURF |
DO i = iMin, iMax |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
210 |
EXTERNAL_FORCING_SURF |
surfaceForcingU(i,j,bi,bj) = fu(i,j,bi,bj)*mass2rUnit |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
212 |
EXTERNAL_FORCING_SURF |
surfaceForcingV(i,j,bi,bj) = fv(i,j,bi,bj)*mass2rUnit |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
214 |
EXTERNAL_FORCING_SURF |
surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
215 |
EXTERNAL_FORCING_SURF |
& - ( Qnet(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
217 |
EXTERNAL_FORCING_SURF |
& -Qsw(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
220 |
EXTERNAL_FORCING_SURF |
& +Qnetm(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
224 |
EXTERNAL_FORCING_SURF |
surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
225 |
EXTERNAL_FORCING_SURF |
& -saltFlux(i,j,bi,bj)*mass2rUnit |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
262 |
EXTERNAL_FORCING_SURF |
DO i = iMin, iMax |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
263 |
EXTERNAL_FORCING_SURF |
surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
264 |
EXTERNAL_FORCING_SURF |
& + PmEpR(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
265 |
EXTERNAL_FORCING_SURF |
& *( temp_EvPrRn - theta(i,j,ks,bi,bj) ) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
273 |
EXTERNAL_FORCING_SURF |
DO i = iMin, iMax |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
274 |
EXTERNAL_FORCING_SURF |
surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
275 |
EXTERNAL_FORCING_SURF |
& + PmEpR(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
276 |
EXTERNAL_FORCING_SURF |
& *( salt_EvPrRn - salt(i,j,ks,bi,bj) ) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
297 |
EXTERNAL_FORCING_SURF |
DO i = iMin, iMax |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
298 |
EXTERNAL_FORCING_SURF |
surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
299 |
EXTERNAL_FORCING_SURF |
& + EmPmR(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
300 |
EXTERNAL_FORCING_SURF |
& *( theta(i,j,ks,bi,bj) - temp_EvPrRn ) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
308 |
EXTERNAL_FORCING_SURF |
DO i = iMin, iMax |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
309 |
EXTERNAL_FORCING_SURF |
surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
310 |
EXTERNAL_FORCING_SURF |
& + EmPmR(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
311 |
EXTERNAL_FORCING_SURF |
& *( salt(i,j,ks,bi,bj) - salt_EvPrRn ) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
323 |
EXTERNAL_FORCING_SURF |
DO i = iMin, iMax |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
324 |
EXTERNAL_FORCING_SURF |
surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
325 |
EXTERNAL_FORCING_SURF |
& + EmPmR(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
334 |
EXTERNAL_FORCING_SURF |
DO i = iMin, iMax |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
335 |
EXTERNAL_FORCING_SURF |
surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
336 |
EXTERNAL_FORCING_SURF |
& + EmPmR(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
364 |
EXTERNAL_FORCING_SURF |
DO i = iMin, iMax |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
365 |
EXTERNAL_FORCING_SURF |
phi0surf(i,j,bi,bj) = ( pLoad(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
366 |
EXTERNAL_FORCING_SURF |
& +sIceLoad(i,j,bi,bj)*gravity |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
372 |
EXTERNAL_FORCING_SURF |
DO i = iMin, iMax |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
373 |
EXTERNAL_FORCING_SURF |
phi0surf(i,j,bi,bj) = pLoad(i,j,bi,bj)*recip_rhoConst |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
64 |
EXTERNAL_FORCING_SURF |
INTEGER i,j |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
101 |
INI_FORCING |
& ABS(yC(i,j,bi,bj)).LE.latBandClimRelax ) THEN |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
102 |
INI_FORCING |
lambdaThetaClimRelax(i,j,bi,bj) = 1. _d 0/tauThetaClimRelax |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
104 |
INI_FORCING |
lambdaThetaClimRelax(i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
107 |
INI_FORCING |
& ABS(yC(i,j,bi,bj)).LE.latBandClimRelax ) THEN |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
108 |
INI_FORCING |
lambdaSaltClimRelax(i,j,bi,bj) = 1. _d 0/tauSaltClimRelax |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
110 |
INI_FORCING |
lambdaSaltClimRelax(i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
139 |
INI_FORCING |
DO i=1-Olx,sNx+Olx |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
140 |
INI_FORCING |
EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj)*rhoConstFresh |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
173 |
INI_FORCING |
DO i=1-OLx,sNx+OLx |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
174 |
INI_FORCING |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) + Qsw(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
41 |
INI_FORCING |
INTEGER i, j |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
48 |
INI_FORCING |
DO i=1-OLx,sNx+OLx |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
49 |
INI_FORCING |
fu (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
50 |
INI_FORCING |
fv (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
51 |
INI_FORCING |
Qnet (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
52 |
INI_FORCING |
EmPmR (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
53 |
INI_FORCING |
saltFlux (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
54 |
INI_FORCING |
SST (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
55 |
INI_FORCING |
SSS (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
56 |
INI_FORCING |
Qsw (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
57 |
INI_FORCING |
pLoad (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
58 |
INI_FORCING |
sIceLoad (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
59 |
INI_FORCING |
surfaceForcingU(i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
60 |
INI_FORCING |
surfaceForcingV(i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
61 |
INI_FORCING |
surfaceForcingT(i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
62 |
INI_FORCING |
surfaceForcingS(i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
63 |
INI_FORCING |
surfaceForcingTice(i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
65 |
INI_FORCING |
taux0 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
66 |
INI_FORCING |
taux1 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
67 |
INI_FORCING |
tauy0 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
68 |
INI_FORCING |
tauy1 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
69 |
INI_FORCING |
Qnet0 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
70 |
INI_FORCING |
Qnet1 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
71 |
INI_FORCING |
EmPmR0 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
72 |
INI_FORCING |
EmPmR1 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
73 |
INI_FORCING |
saltFlux0 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
74 |
INI_FORCING |
saltFlux1 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
75 |
INI_FORCING |
SST0 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
76 |
INI_FORCING |
SST1 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
77 |
INI_FORCING |
SSS0 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
78 |
INI_FORCING |
SSS1 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
80 |
INI_FORCING |
Qsw0 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
81 |
INI_FORCING |
Qsw1 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
84 |
INI_FORCING |
pLoad0 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
85 |
INI_FORCING |
pLoad1 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
89 |
INI_FORCING |
Qnetm (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
99 |
INI_FORCING |
DO i=1-Olx,sNx+Olx |
|
./model/src/solve_tridiagonal.F |
102 |
SOLVE_TRIDIAGONAL |
DO i=iMin,iMax |
|
./model/src/solve_tridiagonal.F |
103 |
SOLVE_TRIDIAGONAL |
tmpVar = b3d(i,j,k) - a3d(i,j,k)*c3d(i,j,k-1)*b3d(i,j,k-1) |
|
./model/src/solve_tridiagonal.F |
105 |
SOLVE_TRIDIAGONAL |
b3d(i,j,k) = 1. _d 0 / tmpVar |
|
./model/src/solve_tridiagonal.F |
107 |
SOLVE_TRIDIAGONAL |
b3d(i,j,k) = 0. _d 0 |
|
./model/src/solve_tridiagonal.F |
119 |
SOLVE_TRIDIAGONAL |
DO i=iMin,iMax |
|
./model/src/solve_tridiagonal.F |
120 |
SOLVE_TRIDIAGONAL |
y3d(i,j,1) = y3d(i,j,1)*b3d(i,j,1) |
|
./model/src/solve_tridiagonal.F |
125 |
SOLVE_TRIDIAGONAL |
DO i=iMin,iMax |
|
./model/src/solve_tridiagonal.F |
126 |
SOLVE_TRIDIAGONAL |
y3d(i,j,k) = ( y3d(i,j,k) |
|
./model/src/solve_tridiagonal.F |
127 |
SOLVE_TRIDIAGONAL |
& - a3d(i,j,k)*y3d(i,j,k-1) |
|
./model/src/solve_tridiagonal.F |
128 |
SOLVE_TRIDIAGONAL |
& )*b3d(i,j,k) |
|
./model/src/solve_tridiagonal.F |
136 |
SOLVE_TRIDIAGONAL |
DO i=iMin,iMax |
|
./model/src/solve_tridiagonal.F |
137 |
SOLVE_TRIDIAGONAL |
y3d(i,j,k) = y3d(i,j,k) |
|
./model/src/solve_tridiagonal.F |
138 |
SOLVE_TRIDIAGONAL |
& - c3d(i,j,k)*b3d(i,j,k)*y3d(i,j,k+1) |
|
./model/src/solve_tridiagonal.F |
151 |
SOLVE_TRIDIAGONAL |
DO i=1-OLx,sNx+OLx |
|
./model/src/solve_tridiagonal.F |
152 |
SOLVE_TRIDIAGONAL |
c3d_m1(i,j,k) = c3d(i,j,k) |
|
./model/src/solve_tridiagonal.F |
153 |
SOLVE_TRIDIAGONAL |
y3d_m1(i,j,k) = y3d(i,j,k) |
|
./model/src/solve_tridiagonal.F |
160 |
SOLVE_TRIDIAGONAL |
DO i=1-OLx,sNx+OLx |
|
./model/src/solve_tridiagonal.F |
171 |
SOLVE_TRIDIAGONAL |
IF ( b3d(i,j,1).NE.0. _d 0 ) THEN |
|
./model/src/solve_tridiagonal.F |
172 |
SOLVE_TRIDIAGONAL |
c3d_prime(1) = c3d_m1(i,j,1) / b3d(i,j,1) |
|
./model/src/solve_tridiagonal.F |
173 |
SOLVE_TRIDIAGONAL |
y3d_prime(1) = y3d_m1(i,j,1) / b3d(i,j,1) |
|
./model/src/solve_tridiagonal.F |
180 |
SOLVE_TRIDIAGONAL |
tmpVar = b3d(i,j,k) - a3d(i,j,k)*c3d_prime(k-1) |
|
./model/src/solve_tridiagonal.F |
183 |
SOLVE_TRIDIAGONAL |
c3d_prime(k) = c3d_m1(i,j,k)*recVar |
|
./model/src/solve_tridiagonal.F |
184 |
SOLVE_TRIDIAGONAL |
y3d_prime(k) = (y3d_m1(i,j,k) - y3d_prime(k-1)*a3d(i,j,k)) |
|
./model/src/solve_tridiagonal.F |
205 |
SOLVE_TRIDIAGONAL |
y3d(i,j,k) = y3d_update(k) |
|
./model/src/solve_tridiagonal.F |
216 |
SOLVE_TRIDIAGONAL |
DO i=1-OLx,sNx+OLx |
|
./model/src/solve_tridiagonal.F |
217 |
SOLVE_TRIDIAGONAL |
c3d_prime(i,j,k) = 0. _d 0 |
|
./model/src/solve_tridiagonal.F |
218 |
SOLVE_TRIDIAGONAL |
y3d_prime(i,j,k) = 0. _d 0 |
|
./model/src/solve_tridiagonal.F |
219 |
SOLVE_TRIDIAGONAL |
y3d_m1(i,j,k) = y3d(i,j,k) |
|
./model/src/solve_tridiagonal.F |
229 |
SOLVE_TRIDIAGONAL |
DO i=1-OLx,sNx+OLx |
|
./model/src/solve_tridiagonal.F |
233 |
SOLVE_TRIDIAGONAL |
IF ( b3d(i,j,1).NE.0. _d 0 ) THEN |
|
./model/src/solve_tridiagonal.F |
234 |
SOLVE_TRIDIAGONAL |
recVar = 1. _d 0 / b3d(i,j,1) |
|
./model/src/solve_tridiagonal.F |
235 |
SOLVE_TRIDIAGONAL |
c3d_prime(i,j,1) = c3d(i,j,1)*recVar |
|
./model/src/solve_tridiagonal.F |
236 |
SOLVE_TRIDIAGONAL |
y3d_prime(i,j,1) = y3d_m1(i,j,1)*recVar |
|
./model/src/solve_tridiagonal.F |
238 |
SOLVE_TRIDIAGONAL |
c3d_prime(i,j,1) = 0. _d 0 |
|
./model/src/solve_tridiagonal.F |
239 |
SOLVE_TRIDIAGONAL |
y3d_prime(i,j,1) = 0. _d 0 |
|
./model/src/solve_tridiagonal.F |
243 |
SOLVE_TRIDIAGONAL |
tmpVar = b3d(i,j,k) - a3d(i,j,k)*c3d_prime(i,j,k-1) |
|
./model/src/solve_tridiagonal.F |
246 |
SOLVE_TRIDIAGONAL |
c3d_prime(i,j,k) = c3d(i,j,k)*recVar |
|
./model/src/solve_tridiagonal.F |
247 |
SOLVE_TRIDIAGONAL |
y3d_prime(i,j,k) = ( y3d_m1(i,j,k) |
|
./model/src/solve_tridiagonal.F |
248 |
SOLVE_TRIDIAGONAL |
& - a3d(i,j,k)*y3d_prime(i,j,k-1) |
|
./model/src/solve_tridiagonal.F |
251 |
SOLVE_TRIDIAGONAL |
c3d_prime(i,j,k) = 0. _d 0 |
|
./model/src/solve_tridiagonal.F |
252 |
SOLVE_TRIDIAGONAL |
y3d_prime(i,j,k) = 0. _d 0 |
|
./model/src/solve_tridiagonal.F |
266 |
SOLVE_TRIDIAGONAL |
DO i=1-OLx,sNx+OLx |
|
./model/src/solve_tridiagonal.F |
270 |
SOLVE_TRIDIAGONAL |
y3d(i,j,k) = y3d_prime(i,j,k) |
|
./model/src/solve_tridiagonal.F |
272 |
SOLVE_TRIDIAGONAL |
y3d(i,j,k) = y3d_prime(i,j,k) |
|
./model/src/solve_tridiagonal.F |
273 |
SOLVE_TRIDIAGONAL |
& - c3d_prime(i,j,k)*y3d(i,j,k+1) |
|
./model/src/solve_tridiagonal.F |
65 |
SOLVE_TRIDIAGONAL |
INTEGER i,j,k |
|
./model/src/solve_tridiagonal.F |
89 |
SOLVE_TRIDIAGONAL |
DO i=iMin,iMax |
|
./model/src/solve_tridiagonal.F |
90 |
SOLVE_TRIDIAGONAL |
IF ( b3d(i,j,1).NE.0. _d 0 ) THEN |
|
./model/src/solve_tridiagonal.F |
91 |
SOLVE_TRIDIAGONAL |
b3d(i,j,1) = 1. _d 0 / b3d(i,j,1) |
|
./model/src/solve_tridiagonal.F |
93 |
SOLVE_TRIDIAGONAL |
b3d(i,j,1) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/cost_hflux.F |
36 |
COST_HFLUX |
integer i, j |
|
./verification/tutorial_global_oce_optim/code_oad/cost_hflux.F |
44 |
COST_HFLUX |
do i=1,sNx |
|
./verification/tutorial_global_oce_optim/code_oad/cost_hflux.F |
45 |
COST_HFLUX |
tmpC = tmpC + maskC(i,j,1,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_oad/cost_hflux.F |
58 |
COST_HFLUX |
DO i=1,sNx |
|
./verification/tutorial_global_oce_optim/code_oad/cost_hflux.F |
59 |
COST_HFLUX |
locfc = locfc + tmpC*maskC(i,j,1,bi,bj)* |
|
./verification/tutorial_global_oce_optim/code_oad/cost_hflux.F |
60 |
COST_HFLUX |
& whfluxm(i,j,bi,bj)* |
|
./verification/tutorial_global_oce_optim/code_oad/cost_hflux.F |
62 |
COST_HFLUX |
& Qnetm(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_oad/cost_temp.F |
32 |
COST_TEMP |
INTEGER i, j, k |
|
./verification/tutorial_global_oce_optim/code_oad/cost_temp.F |
49 |
COST_TEMP |
DO i=1,sNx |
|
./verification/tutorial_global_oce_optim/code_oad/cost_temp.F |
50 |
COST_TEMP |
tmp = tmp + maskC(i,j,k,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_oad/cost_temp.F |
65 |
COST_TEMP |
DO i=1,sNx |
|
./verification/tutorial_global_oce_optim/code_oad/cost_temp.F |
66 |
COST_TEMP |
locfc = locfc + tmp*maskC(i,j,k,bi,bj)* |
|
./verification/tutorial_global_oce_optim/code_oad/cost_temp.F |
68 |
COST_TEMP |
& ( cMeanTheta(i,j,k,bi,bj) - thetalev(i,j,k,bi,bj) )**2 |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
124 |
COST_WEIGHTS |
DO i = iMin,iMax |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
126 |
COST_WEIGHTS |
IF (whfluxm(i,j,bi,bj) .NE. 0. _d 0) THEN |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
127 |
COST_WEIGHTS |
whfluxm(i,j,bi,bj) = 1. _d 0 /whfluxm(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
128 |
COST_WEIGHTS |
& /whfluxm(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
130 |
COST_WEIGHTS |
whfluxm(i,j,bi,bj) = 1. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
39 |
COST_WEIGHTS |
INTEGER i,j,k |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
67 |
COST_WEIGHTS |
DO i = iMin,iMax |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
68 |
COST_WEIGHTS |
whfluxm(i,j,bi,bj)= 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
129 |
EXTERNAL_FORCING_SURF |
DO i=1-OLx,sNx+OLx |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
130 |
EXTERNAL_FORCING_SURF |
PmEpR(i,j,bi,bj) = -EmPmR(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
142 |
EXTERNAL_FORCING_SURF |
DO i=1-OLx,sNx+OLx |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
143 |
EXTERNAL_FORCING_SURF |
surfaceForcingT(i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
144 |
EXTERNAL_FORCING_SURF |
surfaceForcingS(i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
207 |
EXTERNAL_FORCING_SURF |
DO i = iMin, iMax |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
210 |
EXTERNAL_FORCING_SURF |
surfaceForcingU(i,j,bi,bj) = fu(i,j,bi,bj)*mass2rUnit |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
212 |
EXTERNAL_FORCING_SURF |
surfaceForcingV(i,j,bi,bj) = fv(i,j,bi,bj)*mass2rUnit |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
214 |
EXTERNAL_FORCING_SURF |
surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
215 |
EXTERNAL_FORCING_SURF |
& - ( Qnet(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
217 |
EXTERNAL_FORCING_SURF |
& -Qsw(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
220 |
EXTERNAL_FORCING_SURF |
& +Qnetm(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
224 |
EXTERNAL_FORCING_SURF |
surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
225 |
EXTERNAL_FORCING_SURF |
& -saltFlux(i,j,bi,bj)*mass2rUnit |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
262 |
EXTERNAL_FORCING_SURF |
DO i = iMin, iMax |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
263 |
EXTERNAL_FORCING_SURF |
surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
264 |
EXTERNAL_FORCING_SURF |
& + PmEpR(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
265 |
EXTERNAL_FORCING_SURF |
& *( temp_EvPrRn - theta(i,j,ks,bi,bj) ) |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
273 |
EXTERNAL_FORCING_SURF |
DO i = iMin, iMax |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
274 |
EXTERNAL_FORCING_SURF |
surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
275 |
EXTERNAL_FORCING_SURF |
& + PmEpR(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
276 |
EXTERNAL_FORCING_SURF |
& *( salt_EvPrRn - salt(i,j,ks,bi,bj) ) |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
297 |
EXTERNAL_FORCING_SURF |
DO i = iMin, iMax |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
298 |
EXTERNAL_FORCING_SURF |
surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
299 |
EXTERNAL_FORCING_SURF |
& + EmPmR(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
300 |
EXTERNAL_FORCING_SURF |
& *( theta(i,j,ks,bi,bj) - temp_EvPrRn ) |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
308 |
EXTERNAL_FORCING_SURF |
DO i = iMin, iMax |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
309 |
EXTERNAL_FORCING_SURF |
surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
310 |
EXTERNAL_FORCING_SURF |
& + EmPmR(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
311 |
EXTERNAL_FORCING_SURF |
& *( salt(i,j,ks,bi,bj) - salt_EvPrRn ) |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
323 |
EXTERNAL_FORCING_SURF |
DO i = iMin, iMax |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
324 |
EXTERNAL_FORCING_SURF |
surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
325 |
EXTERNAL_FORCING_SURF |
& + EmPmR(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
334 |
EXTERNAL_FORCING_SURF |
DO i = iMin, iMax |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
335 |
EXTERNAL_FORCING_SURF |
surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
336 |
EXTERNAL_FORCING_SURF |
& + EmPmR(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
364 |
EXTERNAL_FORCING_SURF |
DO i = iMin, iMax |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
365 |
EXTERNAL_FORCING_SURF |
phi0surf(i,j,bi,bj) = ( pLoad(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
366 |
EXTERNAL_FORCING_SURF |
& +sIceLoad(i,j,bi,bj)*gravity |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
372 |
EXTERNAL_FORCING_SURF |
DO i = iMin, iMax |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
373 |
EXTERNAL_FORCING_SURF |
phi0surf(i,j,bi,bj) = pLoad(i,j,bi,bj)*recip_rhoConst |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
64 |
EXTERNAL_FORCING_SURF |
INTEGER i,j |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
101 |
INI_FORCING |
& ABS(yC(i,j,bi,bj)).LE.latBandClimRelax ) THEN |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
102 |
INI_FORCING |
lambdaThetaClimRelax(i,j,bi,bj) = 1. _d 0/tauThetaClimRelax |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
104 |
INI_FORCING |
lambdaThetaClimRelax(i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
107 |
INI_FORCING |
& ABS(yC(i,j,bi,bj)).LE.latBandClimRelax ) THEN |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
108 |
INI_FORCING |
lambdaSaltClimRelax(i,j,bi,bj) = 1. _d 0/tauSaltClimRelax |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
110 |
INI_FORCING |
lambdaSaltClimRelax(i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
139 |
INI_FORCING |
DO i=1-Olx,sNx+Olx |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
140 |
INI_FORCING |
EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj)*rhoConstFresh |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
173 |
INI_FORCING |
DO i=1-OLx,sNx+OLx |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
174 |
INI_FORCING |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) + Qsw(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
41 |
INI_FORCING |
INTEGER i, j |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
48 |
INI_FORCING |
DO i=1-OLx,sNx+OLx |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
49 |
INI_FORCING |
fu (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
50 |
INI_FORCING |
fv (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
51 |
INI_FORCING |
Qnet (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
52 |
INI_FORCING |
EmPmR (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
53 |
INI_FORCING |
saltFlux (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
54 |
INI_FORCING |
SST (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
55 |
INI_FORCING |
SSS (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
56 |
INI_FORCING |
Qsw (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
57 |
INI_FORCING |
pLoad (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
58 |
INI_FORCING |
sIceLoad (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
59 |
INI_FORCING |
surfaceForcingU(i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
60 |
INI_FORCING |
surfaceForcingV(i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
61 |
INI_FORCING |
surfaceForcingT(i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
62 |
INI_FORCING |
surfaceForcingS(i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
63 |
INI_FORCING |
surfaceForcingTice(i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
65 |
INI_FORCING |
taux0 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
66 |
INI_FORCING |
taux1 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
67 |
INI_FORCING |
tauy0 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
68 |
INI_FORCING |
tauy1 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
69 |
INI_FORCING |
Qnet0 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
70 |
INI_FORCING |
Qnet1 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
71 |
INI_FORCING |
EmPmR0 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
72 |
INI_FORCING |
EmPmR1 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
73 |
INI_FORCING |
saltFlux0 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
74 |
INI_FORCING |
saltFlux1 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
75 |
INI_FORCING |
SST0 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
76 |
INI_FORCING |
SST1 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
77 |
INI_FORCING |
SSS0 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
78 |
INI_FORCING |
SSS1 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
80 |
INI_FORCING |
Qsw0 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
81 |
INI_FORCING |
Qsw1 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
84 |
INI_FORCING |
pLoad0 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
85 |
INI_FORCING |
pLoad1 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
89 |
INI_FORCING |
Qnetm (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
99 |
INI_FORCING |
DO i=1-Olx,sNx+Olx |
|
./model/src/solve_uv_tridiago.F |
103 |
SOLVE_UV_TRIDIAGO |
DO i= 1,sNx |
|
./model/src/solve_uv_tridiago.F |
104 |
SOLVE_UV_TRIDIAGO |
alpU(i,j,bi,bj) = aU(i,j,k,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
105 |
SOLVE_UV_TRIDIAGO |
gamU(i,j,bi,bj) = cU(i,j,k,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
106 |
SOLVE_UV_TRIDIAGO |
yy_U(i,j,bi,bj) = rhsU(i,j,k,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
111 |
SOLVE_UV_TRIDIAGO |
i = 1 |
|
./model/src/solve_uv_tridiago.F |
114 |
SOLVE_UV_TRIDIAGO |
tmpVar = bU(i,j,k,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
121 |
SOLVE_UV_TRIDIAGO |
gamU(i,j,bi,bj) = gamU(i,j,bi,bj)*tmpVar |
|
./model/src/solve_uv_tridiago.F |
122 |
SOLVE_UV_TRIDIAGO |
alpU(i,j,bi,bj) = alpU(i,j,bi,bj)*tmpVar |
|
./model/src/solve_uv_tridiago.F |
123 |
SOLVE_UV_TRIDIAGO |
yy_U(i,j,bi,bj) = yy_U(i,j,bi,bj)*tmpVar |
|
./model/src/solve_uv_tridiago.F |
128 |
SOLVE_UV_TRIDIAGO |
DO i= 2,sNx |
|
./model/src/solve_uv_tridiago.F |
129 |
SOLVE_UV_TRIDIAGO |
im = i-1 |
|
./model/src/solve_uv_tridiago.F |
131 |
SOLVE_UV_TRIDIAGO |
tmpVar = bU(i,j,k,bi,bj) - alpU(i,j,bi,bj)*gamU(im,j,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
138 |
SOLVE_UV_TRIDIAGO |
yy_U(i,j,bi,bj) = ( yy_U(i,j,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
139 |
SOLVE_UV_TRIDIAGO |
& - alpU(i,j,bi,bj)*yy_U(im,j,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
141 |
SOLVE_UV_TRIDIAGO |
gamU(i,j,bi,bj) = gamU(i,j,bi,bj)*tmpVar |
|
./model/src/solve_uv_tridiago.F |
142 |
SOLVE_UV_TRIDIAGO |
alpU(i,j,bi,bj) = - alpU(i,j,bi,bj)*alpU(im,j,bi,bj)*tmpVar |
|
./model/src/solve_uv_tridiago.F |
149 |
SOLVE_UV_TRIDIAGO |
i = sNx - ii |
|
./model/src/solve_uv_tridiago.F |
150 |
SOLVE_UV_TRIDIAGO |
ip = i+1 |
|
./model/src/solve_uv_tridiago.F |
152 |
SOLVE_UV_TRIDIAGO |
yy_U(i,j,bi,bj) = yy_U(i,j,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
153 |
SOLVE_UV_TRIDIAGO |
& - gamU(i,j,bi,bj)*yy_U(ip,j,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
154 |
SOLVE_UV_TRIDIAGO |
alpU(i,j,bi,bj) = alpU(i,j,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
155 |
SOLVE_UV_TRIDIAGO |
& - gamU(i,j,bi,bj)*alpU(ip,j,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
156 |
SOLVE_UV_TRIDIAGO |
gamU(i,j,bi,bj) = -gamU(i,j,bi,bj)*gamU(ip,j,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
227 |
SOLVE_UV_TRIDIAGO |
DO i=1,2 |
|
./model/src/solve_uv_tridiago.F |
230 |
SOLVE_UV_TRIDIAGO |
aTu(i,j,bi,bj) = aTu(i,j,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
231 |
SOLVE_UV_TRIDIAGO |
& - cTu(i,j,bi,bj)*aTu(1,j,bp,bj) |
|
./model/src/solve_uv_tridiago.F |
232 |
SOLVE_UV_TRIDIAGO |
yTu(i,j,bi,bj) = yTu(i,j,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
233 |
SOLVE_UV_TRIDIAGO |
& - cTu(i,j,bi,bj)*yTu(1,j,bp,bj) |
|
./model/src/solve_uv_tridiago.F |
234 |
SOLVE_UV_TRIDIAGO |
cTu(i,j,bi,bj) = -cTu(i,j,bi,bj)*cTu(1,j,bp,bj) |
|
./model/src/solve_uv_tridiago.F |
261 |
SOLVE_UV_TRIDIAGO |
DO i=1,2 |
|
./model/src/solve_uv_tridiago.F |
262 |
SOLVE_UV_TRIDIAGO |
IF ( bi+i .EQ.2 ) THEN |
|
./model/src/solve_uv_tridiago.F |
263 |
SOLVE_UV_TRIDIAGO |
yTu(i,j,bi,bj) = uTmp1 |
|
./model/src/solve_uv_tridiago.F |
264 |
SOLVE_UV_TRIDIAGO |
ELSEIF ( bi+i .EQ. nSx+2 ) THEN |
|
./model/src/solve_uv_tridiago.F |
265 |
SOLVE_UV_TRIDIAGO |
yTu(i,j,bi,bj) = uTmp2 |
|
./model/src/solve_uv_tridiago.F |
267 |
SOLVE_UV_TRIDIAGO |
yTu(i,j,bi,bj) = yTu(i,j,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
268 |
SOLVE_UV_TRIDIAGO |
& - aTu(i,j,bi,bj) * uTmp2 |
|
./model/src/solve_uv_tridiago.F |
269 |
SOLVE_UV_TRIDIAGO |
& - cTu(i,j,bi,bj) * uTmp1 |
|
./model/src/solve_uv_tridiago.F |
284 |
SOLVE_UV_TRIDIAGO |
DO i= 1,sNx |
|
./model/src/solve_uv_tridiago.F |
285 |
SOLVE_UV_TRIDIAGO |
uFld(i,j,k,bi,bj) = yy_U(i,j,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
286 |
SOLVE_UV_TRIDIAGO |
& - alpU(i,j,bi,bj) * yTu(2,j,bm,bj) |
|
./model/src/solve_uv_tridiago.F |
287 |
SOLVE_UV_TRIDIAGO |
& - gamU(i,j,bi,bj) * yTu(1,j,bp,bj) |
|
./model/src/solve_uv_tridiago.F |
302 |
SOLVE_UV_TRIDIAGO |
DO i= 1,sNx |
|
./model/src/solve_uv_tridiago.F |
303 |
SOLVE_UV_TRIDIAGO |
alpV(i,j,bi,bj) = aV(i,j,k,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
304 |
SOLVE_UV_TRIDIAGO |
gamV(i,j,bi,bj) = cV(i,j,k,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
305 |
SOLVE_UV_TRIDIAGO |
yy_V(i,j,bi,bj) = rhsV(i,j,k,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
311 |
SOLVE_UV_TRIDIAGO |
DO i= 1,sNx |
|
./model/src/solve_uv_tridiago.F |
313 |
SOLVE_UV_TRIDIAGO |
tmpVar = bV(i,j,k,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
320 |
SOLVE_UV_TRIDIAGO |
gamV(i,j,bi,bj) = gamV(i,j,bi,bj)*tmpVar |
|
./model/src/solve_uv_tridiago.F |
321 |
SOLVE_UV_TRIDIAGO |
alpV(i,j,bi,bj) = alpV(i,j,bi,bj)*tmpVar |
|
./model/src/solve_uv_tridiago.F |
322 |
SOLVE_UV_TRIDIAGO |
yy_V(i,j,bi,bj) = yy_V(i,j,bi,bj)*tmpVar |
|
./model/src/solve_uv_tridiago.F |
326 |
SOLVE_UV_TRIDIAGO |
DO i= 1,sNx |
|
./model/src/solve_uv_tridiago.F |
330 |
SOLVE_UV_TRIDIAGO |
tmpVar = bV(i,j,k,bi,bj) - alpV(i,j,bi,bj)*gamV(i,jm,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
337 |
SOLVE_UV_TRIDIAGO |
yy_V(i,j,bi,bj) = ( yy_V(i,j,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
338 |
SOLVE_UV_TRIDIAGO |
& - alpV(i,j,bi,bj)*yy_V(i,jm,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
340 |
SOLVE_UV_TRIDIAGO |
gamV(i,j,bi,bj) = gamV(i,j,bi,bj)*tmpVar |
|
./model/src/solve_uv_tridiago.F |
341 |
SOLVE_UV_TRIDIAGO |
alpV(i,j,bi,bj) = - alpV(i,j,bi,bj)*alpV(i,jm,bi,bj)*tmpVar |
|
./model/src/solve_uv_tridiago.F |
346 |
SOLVE_UV_TRIDIAGO |
DO i= 1,sNx |
|
./model/src/solve_uv_tridiago.F |
351 |
SOLVE_UV_TRIDIAGO |
yy_V(i,j,bi,bj) = yy_V(i,j,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
352 |
SOLVE_UV_TRIDIAGO |
& - gamV(i,j,bi,bj)*yy_V(i,jp,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
353 |
SOLVE_UV_TRIDIAGO |
alpV(i,j,bi,bj) = alpV(i,j,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
354 |
SOLVE_UV_TRIDIAGO |
& - gamV(i,j,bi,bj)*alpV(i,jp,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
355 |
SOLVE_UV_TRIDIAGO |
gamV(i,j,bi,bj) = -gamV(i,j,bi,bj)*gamV(i,jp,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
363 |
SOLVE_UV_TRIDIAGO |
DO i= 1,sNx |
|
./model/src/solve_uv_tridiago.F |
364 |
SOLVE_UV_TRIDIAGO |
aTv(1,i,bi,bj) = alpV(i, 1, bi,bj) |
|
./model/src/solve_uv_tridiago.F |
365 |
SOLVE_UV_TRIDIAGO |
cTv(1,i,bi,bj) = gamV(i, 1, bi,bj) |
|
./model/src/solve_uv_tridiago.F |
366 |
SOLVE_UV_TRIDIAGO |
yTv(1,i,bi,bj) = yy_V(i, 1, bi,bj) |
|
./model/src/solve_uv_tridiago.F |
367 |
SOLVE_UV_TRIDIAGO |
aTv(2,i,bi,bj) = alpV(i,sNy,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
368 |
SOLVE_UV_TRIDIAGO |
cTv(2,i,bi,bj) = gamV(i,sNy,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
369 |
SOLVE_UV_TRIDIAGO |
yTv(2,i,bi,bj) = yy_V(i,sNy,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
383 |
SOLVE_UV_TRIDIAGO |
DO i=1,sNx |
|
./model/src/solve_uv_tridiago.F |
388 |
SOLVE_UV_TRIDIAGO |
tmpVar = oneRL - aTv(1,i,bi,bj)*cTv(2,i,bi,bm) |
|
./model/src/solve_uv_tridiago.F |
395 |
SOLVE_UV_TRIDIAGO |
yTv(1,i,bi,bj) = ( yTv(1,i,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
396 |
SOLVE_UV_TRIDIAGO |
& - aTv(1,i,bi,bj)*yTv(2,i,bi,bm) |
|
./model/src/solve_uv_tridiago.F |
398 |
SOLVE_UV_TRIDIAGO |
cTv(1,i,bi,bj) = cTv(1,i,bi,bj)*tmpVar |
|
./model/src/solve_uv_tridiago.F |
399 |
SOLVE_UV_TRIDIAGO |
aTv(1,i,bi,bj) = - aTv(1,i,bi,bj)*aTv(2,i,bi,bm)*tmpVar |
|
./model/src/solve_uv_tridiago.F |
402 |
SOLVE_UV_TRIDIAGO |
tmpVar = aTv(2,i,bi,bj)*cTv(2,i,bi,bm) |
|
./model/src/solve_uv_tridiago.F |
403 |
SOLVE_UV_TRIDIAGO |
yTv(2,i,bi,bj) = yTv(2,i,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
404 |
SOLVE_UV_TRIDIAGO |
& - aTv(2,i,bi,bj)*yTv(2,i,bi,bm) |
|
./model/src/solve_uv_tridiago.F |
405 |
SOLVE_UV_TRIDIAGO |
& + tmpVar*yTv(1,i,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
406 |
SOLVE_UV_TRIDIAGO |
cTv(2,i,bi,bj) = cTv(2,i,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
407 |
SOLVE_UV_TRIDIAGO |
& + tmpVar*cTv(1,i,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
408 |
SOLVE_UV_TRIDIAGO |
aTv(2,i,bi,bj) = -aTv(2,i,bi,bj)*aTv(2,i,bi,bm) |
|
./model/src/solve_uv_tridiago.F |
409 |
SOLVE_UV_TRIDIAGO |
& + tmpVar*aTv(1,i,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
417 |
SOLVE_UV_TRIDIAGO |
aTv(j,i,bi,bj) = aTv(j,i,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
418 |
SOLVE_UV_TRIDIAGO |
& - cTv(j,i,bi,bj)*aTv(1,i,bi,bp) |
|
./model/src/solve_uv_tridiago.F |
419 |
SOLVE_UV_TRIDIAGO |
yTv(j,i,bi,bj) = yTv(j,i,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
420 |
SOLVE_UV_TRIDIAGO |
& - cTv(j,i,bi,bj)*yTv(1,i,bi,bp) |
|
./model/src/solve_uv_tridiago.F |
421 |
SOLVE_UV_TRIDIAGO |
cTv(j,i,bi,bj) = -cTv(j,i,bi,bj)*cTv(1,i,bi,bp) |
|
./model/src/solve_uv_tridiago.F |
429 |
SOLVE_UV_TRIDIAGO |
cTv(1,i,bi,bm) = oneRL + cTv(1,i,bi,bm) |
|
./model/src/solve_uv_tridiago.F |
430 |
SOLVE_UV_TRIDIAGO |
aTv(2,i,bi,bp) = oneRL + aTv(2,i,bi,bp) |
|
./model/src/solve_uv_tridiago.F |
431 |
SOLVE_UV_TRIDIAGO |
tmpVar = cTv(1,i,bi,bm) * aTv(2,i,bi,bp) |
|
./model/src/solve_uv_tridiago.F |
432 |
SOLVE_UV_TRIDIAGO |
& - aTv(1,i,bi,bm) * cTv(2,i,bi,bp) |
|
./model/src/solve_uv_tridiago.F |
439 |
SOLVE_UV_TRIDIAGO |
vTmp1 = ( aTv(2,i,bi,bp) * yTv(1,i,bi,bm) |
|
./model/src/solve_uv_tridiago.F |
440 |
SOLVE_UV_TRIDIAGO |
& - aTv(1,i,bi,bm) * yTv(2,i,bi,bp) |
|
./model/src/solve_uv_tridiago.F |
442 |
SOLVE_UV_TRIDIAGO |
vTmp2 = ( cTv(1,i,bi,bm) * yTv(2,i,bi,bp) |
|
./model/src/solve_uv_tridiago.F |
443 |
SOLVE_UV_TRIDIAGO |
& - cTv(2,i,bi,bp) * yTv(1,i,bi,bm) |
|
./model/src/solve_uv_tridiago.F |
450 |
SOLVE_UV_TRIDIAGO |
yTv(j,i,bi,bj) = vTmp1 |
|
./model/src/solve_uv_tridiago.F |
452 |
SOLVE_UV_TRIDIAGO |
yTv(j,i,bi,bj) = vTmp2 |
|
./model/src/solve_uv_tridiago.F |
454 |
SOLVE_UV_TRIDIAGO |
yTv(j,i,bi,bj) = yTv(j,i,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
455 |
SOLVE_UV_TRIDIAGO |
& - aTv(j,i,bi,bj) * vTmp2 |
|
./model/src/solve_uv_tridiago.F |
456 |
SOLVE_UV_TRIDIAGO |
& - cTv(j,i,bi,bj) * vTmp1 |
|
./model/src/solve_uv_tridiago.F |
471 |
SOLVE_UV_TRIDIAGO |
DO i= 1,sNx |
|
./model/src/solve_uv_tridiago.F |
472 |
SOLVE_UV_TRIDIAGO |
vFld(i,j,k,bi,bj) = yy_V(i,j,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
473 |
SOLVE_UV_TRIDIAGO |
& - alpV(i,j,bi,bj) * yTv(2,i,bi,bm) |
|
./model/src/solve_uv_tridiago.F |
474 |
SOLVE_UV_TRIDIAGO |
& - gamV(i,j,bi,bj) * yTv(1,i,bi,bp) |
|
./model/src/solve_uv_tridiago.F |
78 |
SOLVE_UV_TRIDIAGO |
INTEGER i,j,k |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
153 |
APPLY_FORCING_V |
INTEGER i, j |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
165 |
APPLY_FORCING_V |
DO i=0,sNx+1 |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
166 |
APPLY_FORCING_V |
IF ( maskS(i,j,k,bi,bj).EQ.oneRS ) THEN |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
168 |
APPLY_FORCING_V |
recip_P0g = MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i,j-1,bi,bj)) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
183 |
APPLY_FORCING_V |
& /(etaHs(i,j,bi,bj)+rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj)) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
185 |
APPLY_FORCING_V |
& /(rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj)) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
190 |
APPLY_FORCING_V |
gV_arr(i,j) = gV_arr(i,j) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
191 |
APPLY_FORCING_V |
& - kV*vVel(i,j,k,bi,bj) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
246 |
APPLY_FORCING_T |
INTEGER i, j |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
257 |
APPLY_FORCING_T |
DO i=0,sNx+1 |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
258 |
APPLY_FORCING_T |
term1 = 60. _d 0*(SIN(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
261 |
APPLY_FORCING_T |
& *(COS(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
266 |
APPLY_FORCING_T |
termP = 0.5 _d 0*( MIN(rF(k),Ro_surf(i,j,bi,bj)) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
268 |
APPLY_FORCING_T |
& *recip_Rcol(i,j,bi,bj) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
280 |
APPLY_FORCING_T |
& /(etaH(i,j,bi,bj)+Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj)) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
282 |
APPLY_FORCING_T |
& /(Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj)) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
288 |
APPLY_FORCING_T |
& *COS((yC(i,j,bi,bj)*deg2rad))**4 |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
289 |
APPLY_FORCING_T |
gT_arr(i,j) = gT_arr(i,j) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
290 |
APPLY_FORCING_T |
& - kT*( theta(i,j,k,bi,bj)-thetaEq ) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
291 |
APPLY_FORCING_T |
& *maskC(i,j,k,bi,bj) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
60 |
APPLY_FORCING_U |
INTEGER i, j |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
72 |
APPLY_FORCING_U |
DO i=1,sNx+1 |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
73 |
APPLY_FORCING_U |
IF ( maskW(i,j,k,bi,bj).EQ.oneRS ) THEN |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
75 |
APPLY_FORCING_U |
recip_P0g = MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i-1,j,bi,bj)) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
90 |
APPLY_FORCING_U |
& /(etaHw(i,j,bi,bj)+rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj)) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
92 |
APPLY_FORCING_U |
& /(rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj)) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
97 |
APPLY_FORCING_U |
gU_arr(i,j) = gU_arr(i,j) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
98 |
APPLY_FORCING_U |
& - kV*uVel(i,j,k,bi,bj) |
|
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F |
141 |
CTRL_MAP_INI_GENARR |
do i = imin,imax |
|
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F |
143 |
CTRL_MAP_INI_GENARR |
pTracer(i,j,k,bi,bj,iarr) = pTracer(i,j,k,bi,bj,iarr) |
|
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F |
144 |
CTRL_MAP_INI_GENARR |
& + fac*xx_genarr3d(i,j,k,bi,bj,iarr) |
|
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F |
145 |
CTRL_MAP_INI_GENARR |
& + fac*tmpfld3d(i,j,k,bi,bj) |
|
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F |
147 |
CTRL_MAP_INI_GENARR |
pTracer(i,j,k,bi,bj,iarr) = pTracer(i,j,k,bi,bj,iarr) |
|
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F |
148 |
CTRL_MAP_INI_GENARR |
& + fac*tmpfld3d(i,j,k,bi,bj) |
|
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F |
52 |
CTRL_MAP_INI_GENARR |
integer i,j,k |
|
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F |
93 |
CTRL_MAP_INI_GENARR |
do i = imin,imax |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
108 |
PTRACERS_FORCING_SURF |
DO i = iMin, iMax |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
109 |
PTRACERS_FORCING_SURF |
add2EmP(i,j) = 0. _d 0 |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
127 |
PTRACERS_FORCING_SURF |
DO i = iMin, iMax |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
128 |
PTRACERS_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
129 |
PTRACERS_FORCING_SURF |
& surfaceForcingPTr(i,j,bi,bj,iTrc) |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
130 |
PTRACERS_FORCING_SURF |
& + ( PmEpR(i,j,bi,bj) - add2EmP(i,j) ) |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
131 |
PTRACERS_FORCING_SURF |
& *( PTRACERS_EvPrRn(iTrc) - pTracer(i,j,ks,bi,bj,iTrc) ) |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
157 |
PTRACERS_FORCING_SURF |
DO i = iMin, iMax |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
158 |
PTRACERS_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
159 |
PTRACERS_FORCING_SURF |
& surfaceForcingPTr(i,j,bi,bj,iTrc) |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
160 |
PTRACERS_FORCING_SURF |
& + ( EmPmR(i,j,bi,bj) + add2EmP(i,j) ) |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
161 |
PTRACERS_FORCING_SURF |
& *( pTracer(i,j,ks,bi,bj,iTrc) - PTRACERS_EvPrRn(iTrc) ) |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
178 |
PTRACERS_FORCING_SURF |
DO i = iMin, iMax |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
179 |
PTRACERS_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
180 |
PTRACERS_FORCING_SURF |
& surfaceForcingPTr(i,j,bi,bj,iTrc) |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
181 |
PTRACERS_FORCING_SURF |
& + ( EmPmR(i,j,bi,bj) + add2EmP(i,j) ) |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
51 |
PTRACERS_FORCING_SURF |
INTEGER i, j |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
66 |
PTRACERS_FORCING_SURF |
DO i = iMin, iMax |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
67 |
PTRACERS_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
69 |
PTRACERS_FORCING_SURF |
& surfaceForcingS(i,j,bi,bj) |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
85 |
PTRACERS_FORCING_SURF |
DO i = iMin, iMax |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
86 |
PTRACERS_FORCING_SURF |
tmpVar = MAX( salt(i,j,ks,bi,bj), epsil ) |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
87 |
PTRACERS_FORCING_SURF |
add2EmP(i,j) = relaxForcingS(i,j)/tmpVar |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
88 |
PTRACERS_FORCING_SURF |
add2EmP(i,j) = rUnit2mass |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
89 |
PTRACERS_FORCING_SURF |
& *MAX( -cutoff, MIN( add2EmP(i,j), cutoff ) ) |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
94 |
PTRACERS_FORCING_SURF |
DO i = iMin, iMax |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
95 |
PTRACERS_FORCING_SURF |
add2EmP(i,j) = relaxForcingS(i,j)/convertFW2Salt |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
96 |
PTRACERS_FORCING_SURF |
add2EmP(i,j) = rUnit2mass |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
97 |
PTRACERS_FORCING_SURF |
& *MAX( -cutoff, MIN( add2EmP(i,j), cutoff ) ) |
|
./model/src/swfrac.F |
100 |
SWFRAC |
DO i = 1,imax |
|
./model/src/swfrac.F |
101 |
SWFRAC |
facz = fact*swdk(i) |
|
./model/src/swfrac.F |
103 |
SWFRAC |
swdk(i) = 0. _d 0 |
|
./model/src/swfrac.F |
105 |
SWFRAC |
swdk(i) = rfac(jwtype) * exp( facz/a1(jwtype) ) |
|
./model/src/swfrac.F |
64 |
SWFRAC |
INTEGER i |
|
./verification/tutorial_tracer_adjsens/code_oad/ctrl_map_ini_genarr.F |
144 |
CTRL_MAP_INI_GENARR |
do i = imin,imax |
|
./verification/tutorial_tracer_adjsens/code_oad/ctrl_map_ini_genarr.F |
145 |
CTRL_MAP_INI_GENARR |
pTracer(i,j,k,bi,bj,iarr) = pTracer(i,j,k,bi,bj,iarr) |
|
./verification/tutorial_tracer_adjsens/code_oad/ctrl_map_ini_genarr.F |
146 |
CTRL_MAP_INI_GENARR |
& + fac*tmpfld3d(i,j,k,bi,bj) |
|
./verification/tutorial_tracer_adjsens/code_oad/ctrl_map_ini_genarr.F |
52 |
CTRL_MAP_INI_GENARR |
integer i,j,k |
|
./verification/tutorial_tracer_adjsens/code_oad/ctrl_map_ini_genarr.F |
95 |
CTRL_MAP_INI_GENARR |
do i = imin,imax |
|
./model/src/taueddy_init_varia.F |
37 |
TAUEDDY_INIT_VARIA |
INTEGER i, j, k |
|
./model/src/taueddy_init_varia.F |
45 |
TAUEDDY_INIT_VARIA |
DO i=1-Olx,sNx+Olx |
|
./model/src/taueddy_init_varia.F |
46 |
TAUEDDY_INIT_VARIA |
eddyPsiX(i,j,k,bi,bj)=0. |
|
./model/src/taueddy_init_varia.F |
47 |
TAUEDDY_INIT_VARIA |
eddyPsiY(i,j,k,bi,bj)=0. |
|
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
108 |
PTRACERS_FORCING_SURF |
DO i = iMin, iMax |
|
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
109 |
PTRACERS_FORCING_SURF |
add2EmP(i,j) = 0. _d 0 |
|
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
127 |
PTRACERS_FORCING_SURF |
DO i = iMin, iMax |
|
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
128 |
PTRACERS_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = |
|
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
129 |
PTRACERS_FORCING_SURF |
& surfaceForcingPTr(i,j,bi,bj,iTrc) |
|
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
130 |
PTRACERS_FORCING_SURF |
& + ( PmEpR(i,j,bi,bj) - add2EmP(i,j) ) |
|
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
131 |
PTRACERS_FORCING_SURF |
& *( PTRACERS_EvPrRn(iTrc) - pTracer(i,j,ks,bi,bj,iTrc) ) |
|
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
157 |
PTRACERS_FORCING_SURF |
DO i = iMin, iMax |
|
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
158 |
PTRACERS_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = |
|
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
159 |
PTRACERS_FORCING_SURF |
& surfaceForcingPTr(i,j,bi,bj,iTrc) |
|
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
160 |
PTRACERS_FORCING_SURF |
& + ( EmPmR(i,j,bi,bj) + add2EmP(i,j) ) |
|
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
161 |
PTRACERS_FORCING_SURF |
& *( pTracer(i,j,ks,bi,bj,iTrc) - PTRACERS_EvPrRn(iTrc) ) |
|
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
178 |
PTRACERS_FORCING_SURF |
DO i = iMin, iMax |
|
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
179 |
PTRACERS_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = |
|
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
180 |
PTRACERS_FORCING_SURF |
& surfaceForcingPTr(i,j,bi,bj,iTrc) |
|
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
181 |
PTRACERS_FORCING_SURF |
& + ( EmPmR(i,j,bi,bj) + add2EmP(i,j) ) |
|
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
51 |
PTRACERS_FORCING_SURF |
INTEGER i, j |
|
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
66 |
PTRACERS_FORCING_SURF |
DO i = iMin, iMax |
|
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
67 |
PTRACERS_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = |
|
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
69 |
PTRACERS_FORCING_SURF |
& surfaceForcingS(i,j,bi,bj) |
|
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
85 |
PTRACERS_FORCING_SURF |
DO i = iMin, iMax |
|
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
86 |
PTRACERS_FORCING_SURF |
tmpVar = MAX( salt(i,j,ks,bi,bj), epsil ) |
|
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
87 |
PTRACERS_FORCING_SURF |
add2EmP(i,j) = relaxForcingS(i,j)/tmpVar |
|
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
88 |
PTRACERS_FORCING_SURF |
add2EmP(i,j) = rUnit2mass |
|
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
89 |
PTRACERS_FORCING_SURF |
& *MAX( -cutoff, MIN( add2EmP(i,j), cutoff ) ) |
|
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
94 |
PTRACERS_FORCING_SURF |
DO i = iMin, iMax |
|
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
95 |
PTRACERS_FORCING_SURF |
add2EmP(i,j) = relaxForcingS(i,j)/convertFW2Salt |
|
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
96 |
PTRACERS_FORCING_SURF |
add2EmP(i,j) = rUnit2mass |
|
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
97 |
PTRACERS_FORCING_SURF |
& *MAX( -cutoff, MIN( add2EmP(i,j), cutoff ) ) |
|
./model/src/taueddy_tendency_apply.F |
146 |
TAUEDDY_TENDENCY_APPLY_V |
INTEGER i, j |
|
./model/src/taueddy_tendency_apply.F |
160 |
TAUEDDY_TENDENCY_APPLY_V |
DO i=iMin,iMax |
|
./model/src/taueddy_tendency_apply.F |
161 |
TAUEDDY_TENDENCY_APPLY_V |
gV_arr(i,j) = gV_arr(i,j) |
|
./model/src/taueddy_tendency_apply.F |
163 |
TAUEDDY_TENDENCY_APPLY_V |
& ( maskm1*_maskS(i,j, k ,bi,bj)*tauyEddy(i,j, k ,bi,bj) |
|
./model/src/taueddy_tendency_apply.F |
164 |
TAUEDDY_TENDENCY_APPLY_V |
& - maskp1*_maskS(i,j,kp1,bi,bj)*tauyEddy(i,j,kp1,bi,bj) ) |
|
./model/src/taueddy_tendency_apply.F |
165 |
TAUEDDY_TENDENCY_APPLY_V |
& *recip_drF(k)*_recip_hFacS(i,j,k,bi,bj) |
|
./model/src/taueddy_tendency_apply.F |
65 |
TAUEDDY_TENDENCY_APPLY_U |
INTEGER i, j |
|
./model/src/taueddy_tendency_apply.F |
79 |
TAUEDDY_TENDENCY_APPLY_U |
DO i=iMin,iMax |
|
./model/src/taueddy_tendency_apply.F |
80 |
TAUEDDY_TENDENCY_APPLY_U |
gU_arr(i,j) = gU_arr(i,j) |
|
./model/src/taueddy_tendency_apply.F |
82 |
TAUEDDY_TENDENCY_APPLY_U |
& ( maskm1*_maskW(i,j, k ,bi,bj)*tauxEddy(i,j, k ,bi,bj) |
|
./model/src/taueddy_tendency_apply.F |
83 |
TAUEDDY_TENDENCY_APPLY_U |
& - maskp1*_maskW(i,j,kp1,bi,bj)*tauxEddy(i,j,kp1,bi,bj) ) |
|
./model/src/taueddy_tendency_apply.F |
84 |
TAUEDDY_TENDENCY_APPLY_U |
& *recip_drF(k)*_recip_hFacW(i,j,k,bi,bj) |
|
./model/src/temp_integrate.F |
124 |
TEMP_INTEGRATE |
INTEGER i, j, k |
|
./model/src/temp_integrate.F |
215 |
TEMP_INTEGRATE |
DO i=1-OLx,sNx+OLx |
|
./model/src/temp_integrate.F |
216 |
TEMP_INTEGRATE |
gT_loc(i,j,k) = 0. _d 0 |
|
./model/src/temp_integrate.F |
221 |
TEMP_INTEGRATE |
DO i=1-OLx,sNx+OLx |
|
./model/src/temp_integrate.F |
222 |
TEMP_INTEGRATE |
fVer(i,j,1) = 0. _d 0 |
|
./model/src/temp_integrate.F |
223 |
TEMP_INTEGRATE |
fVer(i,j,2) = 0. _d 0 |
|
./model/src/temp_integrate.F |
229 |
TEMP_INTEGRATE |
DO i=1-OLx,sNx+OLx |
|
./model/src/temp_integrate.F |
230 |
TEMP_INTEGRATE |
kappaRk(i,j,k) = 0. _d 0 |
|
./model/src/temp_integrate.F |
330 |
TEMP_INTEGRATE |
DO i=1-OLx,sNx+OLx |
|
./model/src/temp_integrate.F |
331 |
TEMP_INTEGRATE |
gtForc(i,j) = 0. _d 0 |
|
./model/src/temp_integrate.F |
383 |
TEMP_INTEGRATE |
DO i=1-OLx,sNx+OLx |
|
./model/src/temp_integrate.F |
384 |
TEMP_INTEGRATE |
gT_loc(i,j,k) = gT_loc(i,j,k) + gtForc(i,j) |
|
./model/src/temp_integrate.F |
413 |
TEMP_INTEGRATE |
DO i=1-OLx,sNx+OLx |
|
./model/src/temp_integrate.F |
414 |
TEMP_INTEGRATE |
gT_loc(i,j,k) = gT_loc(i,j,k) + gtForc(i,j) |
|
./model/src/thermodynamics.F |
101 |
THERMODYNAMICS |
INTEGER i, j, k |
|
./model/src/thermodynamics.F |
191 |
THERMODYNAMICS |
DO i=1-OLx,sNx+OLx |
|
./model/src/thermodynamics.F |
192 |
THERMODYNAMICS |
recip_hFacNew(i,j,k) = 0. _d 0 |
|
./model/src/thermodynamics.F |
194 |
THERMODYNAMICS |
kappaRk(i,j,k) = 0. _d 0 |
|
./model/src/thermodynamics.F |
206 |
THERMODYNAMICS |
DO i=1-OLx,sNx+OLx |
|
./model/src/thermodynamics.F |
207 |
THERMODYNAMICS |
recip_hFacNew(i,j,k) = recip_hFacC(i,j,k,bi,bj) |
|
./model/src/thermodynamics.F |
208 |
THERMODYNAMICS |
& / rStarExpC(i,j,bi,bj) |
|
./model/src/thermodynamics.F |
217 |
THERMODYNAMICS |
DO i=1-OLx,sNx+OLx |
|
./model/src/thermodynamics.F |
218 |
THERMODYNAMICS |
recip_hFacNew(i,j,k) = recip_hFacC(i,j,k,bi,bj) |
|
./model/src/thermodynamics.F |
219 |
THERMODYNAMICS |
& /( 1. _d 0 + dEtaHdt(i,j,bi,bj)*deltaTFreeSurf |
|
./model/src/thermodynamics.F |
221 |
THERMODYNAMICS |
& *recip_hFacC(i,j,k,bi,bj) |
|
./model/src/thermodynamics.F |
230 |
THERMODYNAMICS |
DO i=1-OLx,sNx+OLx |
|
./model/src/thermodynamics.F |
231 |
THERMODYNAMICS |
IF ( k.EQ.kSurfC(i,j,bi,bj) ) THEN |
|
./model/src/thermodynamics.F |
232 |
THERMODYNAMICS |
recip_hFacNew(i,j,k) = 1. _d 0 / hFac_surfC(i,j,bi,bj) |
|
./model/src/thermodynamics.F |
234 |
THERMODYNAMICS |
recip_hFacNew(i,j,k) = recip_hFacC(i,j,k,bi,bj) |
|
./model/src/thermodynamics.F |
244 |
THERMODYNAMICS |
DO i=1-OLx,sNx+OLx |
|
./model/src/thermodynamics.F |
245 |
THERMODYNAMICS |
recip_hFacNew(i,j,k) = _recip_hFacC(i,j,k,bi,bj) |
|
./model/src/thermodynamics.F |
257 |
THERMODYNAMICS |
DO i=1-OLx,sNx+OLx |
|
./model/src/thermodynamics.F |
258 |
THERMODYNAMICS |
uFld(i,j,k) = uVel(i,j,k,bi,bj) |
|
./model/src/thermodynamics.F |
259 |
THERMODYNAMICS |
vFld(i,j,k) = vVel(i,j,k,bi,bj) |
|
./model/src/thermodynamics.F |
260 |
THERMODYNAMICS |
wFld(i,j,k) = wVel(i,j,k,bi,bj) |
|
./model/src/thermodynamics.F |
372 |
THERMODYNAMICS |
DO i=1-OLx,sNx+OLx |
|
./model/src/thermodynamics.F |
373 |
THERMODYNAMICS |
frictionHeating(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/timestep.F |
119 |
TIMESTEP |
DO i=iMin,iMax |
|
./model/src/timestep.F |
120 |
TIMESTEP |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj) - phxFac*dPhiHydX(i,j) |
|
./model/src/timestep.F |
121 |
TIMESTEP |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj) - phyFac*dPhiHydY(i,j) |
|
./model/src/timestep.F |
133 |
TIMESTEP |
DO i=iMin,iMax |
|
./model/src/timestep.F |
134 |
TIMESTEP |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj) + guDissip(i,j) |
|
./model/src/timestep.F |
135 |
TIMESTEP |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj) + gvDissip(i,j) |
|
./model/src/timestep.F |
143 |
TIMESTEP |
DO i=iMin,iMax |
|
./model/src/timestep.F |
144 |
TIMESTEP |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj) + guExt(i,j) |
|
./model/src/timestep.F |
145 |
TIMESTEP |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj) + gvExt(i,j) |
|
./model/src/timestep.F |
154 |
TIMESTEP |
DO i=iMin,iMax |
|
./model/src/timestep.F |
155 |
TIMESTEP |
gUtmp(i,j) = gU(i,j,k,bi,bj) |
|
./model/src/timestep.F |
156 |
TIMESTEP |
gVtmp(i,j) = gV(i,j,k,bi,bj) |
|
./model/src/timestep.F |
201 |
TIMESTEP |
DO i=iMin,iMax |
|
./model/src/timestep.F |
202 |
TIMESTEP |
gUtmp(i,j) = gU(i,j,k,bi,bj) |
|
./model/src/timestep.F |
203 |
TIMESTEP |
gVtmp(i,j) = gV(i,j,k,bi,bj) |
|
./model/src/timestep.F |
213 |
TIMESTEP |
DO i=iMin,iMax |
|
./model/src/timestep.F |
214 |
TIMESTEP |
gUtmp(i,j) = gUtmp(i,j) + guExt(i,j) |
|
./model/src/timestep.F |
215 |
TIMESTEP |
gVtmp(i,j) = gVtmp(i,j) + gvExt(i,j) |
|
./model/src/timestep.F |
223 |
TIMESTEP |
DO i=iMin,iMax |
|
./model/src/timestep.F |
224 |
TIMESTEP |
gUtmp(i,j) = gUtmp(i,j) + guDissip(i,j) |
|
./model/src/timestep.F |
225 |
TIMESTEP |
gVtmp(i,j) = gVtmp(i,j) + gvDissip(i,j) |
|
./model/src/timestep.F |
242 |
TIMESTEP |
DO i=iMin,iMax |
|
./model/src/timestep.F |
243 |
TIMESTEP |
gUtmp(i,j) = ( gU(i,j,k,bi,bj) + guExt(i,j) ) + guCor(i,j) |
|
./model/src/timestep.F |
244 |
TIMESTEP |
gVtmp(i,j) = ( gV(i,j,k,bi,bj) + gvExt(i,j) ) + gvCor(i,j) |
|
./model/src/timestep.F |
249 |
TIMESTEP |
DO i=iMin,iMax |
|
./model/src/timestep.F |
250 |
TIMESTEP |
gUtmp(i,j) = gU(i,j,k,bi,bj) + guCor(i,j) |
|
./model/src/timestep.F |
251 |
TIMESTEP |
gVtmp(i,j) = gV(i,j,k,bi,bj) + gvCor(i,j) |
|
./model/src/timestep.F |
257 |
TIMESTEP |
DO i=iMin,iMax |
|
./model/src/timestep.F |
258 |
TIMESTEP |
gUtmp(i,j) = gUtmp(i,j) + guDissip(i,j) |
|
./model/src/timestep.F |
259 |
TIMESTEP |
gVtmp(i,j) = gVtmp(i,j) + gvDissip(i,j) |
|
./model/src/timestep.F |
265 |
TIMESTEP |
DO i=iMin,iMax |
|
./model/src/timestep.F |
266 |
TIMESTEP |
gUtmp(i,j) = gUtmp(i,j) + guCor(i,j) |
|
./model/src/timestep.F |
267 |
TIMESTEP |
gVtmp(i,j) = gVtmp(i,j) + gvCor(i,j) |
|
./model/src/timestep.F |
282 |
TIMESTEP |
DO i=iMin,iMax |
|
./model/src/timestep.F |
283 |
TIMESTEP |
gUtmp(i,j) = gUtmp(i,j)/rStarExpW(i,j,bi,bj) |
|
./model/src/timestep.F |
284 |
TIMESTEP |
gVtmp(i,j) = gVtmp(i,j)/rStarExpS(i,j,bi,bj) |
|
./model/src/timestep.F |
291 |
TIMESTEP |
DO i=iMin,iMax |
|
./model/src/timestep.F |
292 |
TIMESTEP |
gUtmp(i,j) = gUtmp(i,j) |
|
./model/src/timestep.F |
293 |
TIMESTEP |
& /( 1. _d 0 + dEtaWdt(i,j,bi,bj)*deltaTFreeSurf |
|
./model/src/timestep.F |
295 |
TIMESTEP |
& *recip_hFacW(i,j,k,bi,bj) |
|
./model/src/timestep.F |
297 |
TIMESTEP |
gVtmp(i,j) = gVtmp(i,j) |
|
./model/src/timestep.F |
298 |
TIMESTEP |
& /( 1. _d 0 + dEtaSdt(i,j,bi,bj)*deltaTFreeSurf |
|
./model/src/timestep.F |
300 |
TIMESTEP |
& *recip_hFacS(i,j,k,bi,bj) |
|
./model/src/timestep.F |
307 |
TIMESTEP |
DO i=iMin,iMax |
|
./model/src/timestep.F |
308 |
TIMESTEP |
IF ( k.EQ.kSurfW(i,j,bi,bj) ) THEN |
|
./model/src/timestep.F |
309 |
TIMESTEP |
gUtmp(i,j) = gUtmp(i,j) |
|
./model/src/timestep.F |
310 |
TIMESTEP |
& *_hFacW(i,j,k,bi,bj)/hFac_surfW(i,j,bi,bj) |
|
./model/src/timestep.F |
312 |
TIMESTEP |
IF ( k.EQ.kSurfS(i,j,bi,bj) ) THEN |
|
./model/src/timestep.F |
313 |
TIMESTEP |
gVtmp(i,j) = gVtmp(i,j) |
|
./model/src/timestep.F |
314 |
TIMESTEP |
& *_hFacS(i,j,k,bi,bj)/hFac_surfS(i,j,bi,bj) |
|
./model/src/timestep.F |
329 |
TIMESTEP |
DO i=iMin,iMax |
|
./model/src/timestep.F |
330 |
TIMESTEP |
gUtmp(i,j) = gUtmp(i,j) |
|
./model/src/timestep.F |
331 |
TIMESTEP |
& - nhFac*_recip_dxC(i,j,bi,bj)* |
|
./model/src/timestep.F |
332 |
TIMESTEP |
& ( (phi_nh(i,j,k,bi,bj)-phi_nh(i-1,j,k,bi,bj)) |
|
./model/src/timestep.F |
333 |
TIMESTEP |
& -( dPhiNH(i,j,bi,bj) - dPhiNH(i-1,j,bi,bj) ) |
|
./model/src/timestep.F |
335 |
TIMESTEP |
gVtmp(i,j) = gVtmp(i,j) |
|
./model/src/timestep.F |
336 |
TIMESTEP |
& - nhFac*_recip_dyC(i,j,bi,bj)* |
|
./model/src/timestep.F |
337 |
TIMESTEP |
& ( (phi_nh(i,j,k,bi,bj)-phi_nh(i,j-1,k,bi,bj)) |
|
./model/src/timestep.F |
338 |
TIMESTEP |
& -( dPhiNH(i,j,bi,bj) - dPhiNH(i,j-1,bi,bj) ) |
|
./model/src/timestep.F |
344 |
TIMESTEP |
DO i=iMin,iMax |
|
./model/src/timestep.F |
345 |
TIMESTEP |
gUtmp(i,j) = gUtmp(i,j) |
|
./model/src/timestep.F |
346 |
TIMESTEP |
& - nhFac*_recip_dxC(i,j,bi,bj)* |
|
./model/src/timestep.F |
347 |
TIMESTEP |
& (phi_nh(i,j,k,bi,bj)-phi_nh(i-1,j,k,bi,bj)) |
|
./model/src/timestep.F |
348 |
TIMESTEP |
gVtmp(i,j) = gVtmp(i,j) |
|
./model/src/timestep.F |
349 |
TIMESTEP |
& - nhFac*_recip_dyC(i,j,bi,bj)* |
|
./model/src/timestep.F |
350 |
TIMESTEP |
& (phi_nh(i,j,k,bi,bj)-phi_nh(i,j-1,k,bi,bj)) |
|
./model/src/timestep.F |
359 |
TIMESTEP |
DO i=iMin,iMax |
|
./model/src/timestep.F |
360 |
TIMESTEP |
gU(i,j,k,bi,bj) = uVel(i,j,k,bi,bj) |
|
./model/src/timestep.F |
362 |
TIMESTEP |
& gUtmp(i,j) |
|
./model/src/timestep.F |
363 |
TIMESTEP |
& - psFac*phiSurfX(i,j) |
|
./model/src/timestep.F |
364 |
TIMESTEP |
& - phxFac*dPhiHydX(i,j) |
|
./model/src/timestep.F |
365 |
TIMESTEP |
& )*_maskW(i,j,k,bi,bj) |
|
./model/src/timestep.F |
371 |
TIMESTEP |
DO i=iMin,iMax |
|
./model/src/timestep.F |
372 |
TIMESTEP |
gV(i,j,k,bi,bj) = vVel(i,j,k,bi,bj) |
|
./model/src/timestep.F |
374 |
TIMESTEP |
& gVtmp(i,j) |
|
./model/src/timestep.F |
375 |
TIMESTEP |
& - psFac*phiSurfY(i,j) |
|
./model/src/timestep.F |
376 |
TIMESTEP |
& - phyFac*dPhiHydY(i,j) |
|
./model/src/timestep.F |
377 |
TIMESTEP |
& )*_maskS(i,j,k,bi,bj) |
|
./model/src/timestep.F |
63 |
TIMESTEP |
INTEGER i,j |
|
./model/src/timestep.F |
92 |
TIMESTEP |
DO i=1-OLx,sNx+OLx |
|
./model/src/timestep.F |
93 |
TIMESTEP |
guExt(i,j) = 0. _d 0 |
|
./model/src/timestep.F |
94 |
TIMESTEP |
gvExt(i,j) = 0. _d 0 |
|
./model/src/timestep.F |
95 |
TIMESTEP |
gUtmp(i,j) = 0. _d 0 |
|
./model/src/timestep.F |
96 |
TIMESTEP |
gVtmp(i,j) = 0. _d 0 |
|
./model/src/timestep.F |
98 |
TIMESTEP |
guCor(i,j) = 0. _d 0 |
|
./model/src/timestep.F |
99 |
TIMESTEP |
gvCor(i,j) = 0. _d 0 |
|
./model/src/timestep_tracer.F |
48 |
TIMESTEP_TRACER |
INTEGER i, j, k |
|
./model/src/timestep_tracer.F |
56 |
TIMESTEP_TRACER |
DO i=1-OLx,sNx+OLx |
|
./model/src/timestep_tracer.F |
57 |
TIMESTEP_TRACER |
gTracer(i,j,k) = tracer(i,j,k) |
|
./model/src/timestep_tracer.F |
58 |
TIMESTEP_TRACER |
& + deltaTLev(k)*gTracer(i,j,k) |
|
./model/src/timestep_wvel.F |
101 |
TIMESTEP_WVEL |
DO i=iMin,iMax |
|
./model/src/timestep_wvel.F |
102 |
TIMESTEP_WVEL |
wVel(i,j,k,bi,bj) = wVel(i,j,k,bi,bj) |
|
./model/src/timestep_wvel.F |
103 |
TIMESTEP_WVEL |
& + deltaTmom*tmpFac*gWtmp(i,j) |
|
./model/src/timestep_wvel.F |
116 |
TIMESTEP_WVEL |
DO i=1-Olx,sNx+Olx |
|
./model/src/timestep_wvel.F |
117 |
TIMESTEP_WVEL |
gW(i,j,k,bi,bj) = wVel(i,j,k,bi,bj) |
|
./model/src/timestep_wvel.F |
47 |
TIMESTEP_WVEL |
INTEGER i, j, k, km1 |
|
./model/src/timestep_wvel.F |
72 |
TIMESTEP_WVEL |
DO i=iMin,iMax |
|
./model/src/timestep_wvel.F |
73 |
TIMESTEP_WVEL |
gW(i,j,k,bi,bj) = gW(i,j,k,bi,bj) |
|
./model/src/timestep_wvel.F |
75 |
TIMESTEP_WVEL |
& *( phi_nh(i,j,k,bi,bj) - phi_nh(i,j,k-1,bi,bj) ) |
|
./model/src/timestep_wvel.F |
80 |
TIMESTEP_WVEL |
DO i=iMin,iMax |
|
./model/src/timestep_wvel.F |
81 |
TIMESTEP_WVEL |
gW(i,j,k,bi,bj) = gW(i,j,k,bi,bj) |
|
./model/src/timestep_wvel.F |
83 |
TIMESTEP_WVEL |
& *( phi_nh(i,j,k,bi,bj) - dPhiNH(i,j,bi,bj) ) |
|
./model/src/timestep_wvel.F |
90 |
TIMESTEP_WVEL |
DO i=1-Olx,sNx+Olx |
|
./model/src/timestep_wvel.F |
91 |
TIMESTEP_WVEL |
gWtmp(i,j) = gW(i,j,k,bi,bj) |
|
./model/src/timestep_wvel.F |
92 |
TIMESTEP_WVEL |
& *maskC(i,j,k,bi,bj)*maskC(i,j,km1,bi,bj) |
|
./model/src/timestep_wvel.F |
93 |
TIMESTEP_WVEL |
gW(i,j,k,bi,bj) = wVel(i,j,k,bi,bj) |
|
./model/src/tracers_iigw_correction.F |
100 |
TRACERS_IIGW_CORRECTION |
& *( dTr_k*dW_k(i,j) + dTrp1*dWp1(i,j) ) |
|
./model/src/tracers_iigw_correction.F |
101 |
TRACERS_IIGW_CORRECTION |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./model/src/tracers_iigw_correction.F |
47 |
TRACERS_IIGW_CORRECTION |
INTEGER i,j,k |
|
./model/src/tracers_iigw_correction.F |
56 |
TRACERS_IIGW_CORRECTION |
DO i=1-Olx,sNx+Olx |
|
./model/src/tracers_iigw_correction.F |
57 |
TRACERS_IIGW_CORRECTION |
dWp1(i,j) = 0. _d 0 |
|
./model/src/tracers_iigw_correction.F |
67 |
TRACERS_IIGW_CORRECTION |
DO i=1-Olx,sNx+Olx |
|
./model/src/tracers_iigw_correction.F |
68 |
TRACERS_IIGW_CORRECTION |
dW_k(i,j) = dWp1(i,j) |
|
./model/src/tracers_iigw_correction.F |
69 |
TRACERS_IIGW_CORRECTION |
dWp1(i,j) = ( wVel(i,j,kp1,bi,bj) |
|
./model/src/tracers_iigw_correction.F |
70 |
TRACERS_IIGW_CORRECTION |
& - gW(i,j,kp1,bi,bj) )*maskC(i,j,k,bi,bj) |
|
./model/src/tracers_iigw_correction.F |
81 |
TRACERS_IIGW_CORRECTION |
DO i=1-Olx,sNx+Olx |
|
./model/src/tracers_iigw_correction.F |
82 |
TRACERS_IIGW_CORRECTION |
theta(i,j,k,bi,bj) = theta(i,j,k,bi,bj) |
|
./model/src/tracers_iigw_correction.F |
84 |
TRACERS_IIGW_CORRECTION |
& *( dTr_k*dW_k(i,j) + dTrp1*dWp1(i,j) ) |
|
./model/src/tracers_iigw_correction.F |
85 |
TRACERS_IIGW_CORRECTION |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./model/src/tracers_iigw_correction.F |
97 |
TRACERS_IIGW_CORRECTION |
DO i=1-Olx,sNx+Olx |
|
./model/src/tracers_iigw_correction.F |
98 |
TRACERS_IIGW_CORRECTION |
salt(i,j,k,bi,bj) = salt(i,j,k,bi,bj) |
|
./model/src/update_cg2d.F |
103 |
UPDATE_CG2D |
DO i=1,sNx+1 |
|
./model/src/update_cg2d.F |
105 |
UPDATE_CG2D |
faceArea = _dyG(i,j,bi,bj)*drF(k) |
|
./model/src/update_cg2d.F |
106 |
UPDATE_CG2D |
& *_hFacW(i,j,k,bi,bj) |
|
./model/src/update_cg2d.F |
107 |
UPDATE_CG2D |
aW2d(i,j,bi,bj) = aW2d(i,j,bi,bj) |
|
./model/src/update_cg2d.F |
108 |
UPDATE_CG2D |
& + faceArea*recip_dxC(i,j,bi,bj) |
|
./model/src/update_cg2d.F |
109 |
UPDATE_CG2D |
faceArea = _dxG(i,j,bi,bj)*drF(k) |
|
./model/src/update_cg2d.F |
110 |
UPDATE_CG2D |
& *_hFacS(i,j,k,bi,bj) |
|
./model/src/update_cg2d.F |
111 |
UPDATE_CG2D |
aS2d(i,j,bi,bj) = aS2d(i,j,bi,bj) |
|
./model/src/update_cg2d.F |
112 |
UPDATE_CG2D |
& + faceArea*recip_dyC(i,j,bi,bj) |
|
./model/src/update_cg2d.F |
120 |
UPDATE_CG2D |
DO i=1,sNx+1 |
|
./model/src/update_cg2d.F |
121 |
UPDATE_CG2D |
aW2d(i,j,bi,bj) = aW2d(i,j,bi,bj)*cg2dNorm |
|
./model/src/update_cg2d.F |
124 |
UPDATE_CG2D |
& *maskInC(i,j,bi,bj)*maskInC(i-1,j,bi,bj) |
|
./model/src/update_cg2d.F |
126 |
UPDATE_CG2D |
aS2d(i,j,bi,bj) = aS2d(i,j,bi,bj)*cg2dNorm |
|
./model/src/update_cg2d.F |
129 |
UPDATE_CG2D |
& *maskInC(i,j,bi,bj)*maskInC(i,j-1,bi,bj) |
|
./model/src/update_cg2d.F |
136 |
UPDATE_CG2D |
DO i=1,sNx |
|
./model/src/update_cg2d.F |
137 |
UPDATE_CG2D |
ks = kSurfC(i,j,bi,bj) |
|
./model/src/update_cg2d.F |
138 |
UPDATE_CG2D |
aC2d(i,j,bi,bj) = -( |
|
./model/src/update_cg2d.F |
139 |
UPDATE_CG2D |
& aW2d(i,j,bi,bj) + aW2d(i+1, j ,bi,bj) |
|
./model/src/update_cg2d.F |
140 |
UPDATE_CG2D |
& +aS2d(i,j,bi,bj) + aS2d( i ,j+1,bi,bj) |
|
./model/src/update_cg2d.F |
141 |
UPDATE_CG2D |
& +freeSurfFac*cg2dNorm*recip_Bo(i,j,bi,bj)*deepFac2F(ks) |
|
./model/src/update_cg2d.F |
142 |
UPDATE_CG2D |
& *rA(i,j,bi,bj)/deltaTMom/deltaTFreeSurf |
|
./model/src/update_cg2d.F |
148 |
UPDATE_CG2D |
DO i=1,sNx |
|
./model/src/update_cg2d.F |
149 |
UPDATE_CG2D |
aC2d(i,j,bi,bj) = -( |
|
./model/src/update_cg2d.F |
150 |
UPDATE_CG2D |
& aW2d(i,j,bi,bj) + aW2d(i+1, j ,bi,bj) |
|
./model/src/update_cg2d.F |
151 |
UPDATE_CG2D |
& +aS2d(i,j,bi,bj) + aS2d( i ,j+1,bi,bj) |
|
./model/src/update_cg2d.F |
152 |
UPDATE_CG2D |
& +freeSurfFac*cg2dNorm*recip_Bo(i,j,bi,bj) |
|
./model/src/update_cg2d.F |
153 |
UPDATE_CG2D |
& *rA(i,j,bi,bj)/deltaTMom/deltaTFreeSurf |
|
./model/src/update_cg2d.F |
170 |
UPDATE_CG2D |
DO i=1,sNx+1 |
|
./model/src/update_cg2d.F |
171 |
UPDATE_CG2D |
IF ( aC2d(i,j,bi,bj) .EQ. 0. ) THEN |
|
./model/src/update_cg2d.F |
172 |
UPDATE_CG2D |
pC(i,j,bi,bj) = 1. _d 0 |
|
./model/src/update_cg2d.F |
174 |
UPDATE_CG2D |
pC(i,j,bi,bj) = 1. _d 0 / aC2d(i,j,bi,bj) |
|
./model/src/update_cg2d.F |
176 |
UPDATE_CG2D |
pW_tmp = aC2d(i,j,bi,bj)+aC2d(i-1,j,bi,bj) |
|
./model/src/update_cg2d.F |
178 |
UPDATE_CG2D |
pW(i,j,bi,bj) = 0. |
|
./model/src/update_cg2d.F |
180 |
UPDATE_CG2D |
pW(i,j,bi,bj) = |
|
./model/src/update_cg2d.F |
181 |
UPDATE_CG2D |
& -aW2d(i,j,bi,bj)/((cg2dpcOffDFac *pW_tmp)**2 ) |
|
./model/src/update_cg2d.F |
183 |
UPDATE_CG2D |
pS_tmp = aC2d(i,j,bi,bj)+aC2d(i,j-1,bi,bj) |
|
./model/src/update_cg2d.F |
185 |
UPDATE_CG2D |
pS(i,j,bi,bj) = 0. |
|
./model/src/update_cg2d.F |
187 |
UPDATE_CG2D |
pS(i,j,bi,bj) = |
|
./model/src/update_cg2d.F |
188 |
UPDATE_CG2D |
& -aS2d(i,j,bi,bj)/((cg2dpcOffDFac *pS_tmp)**2 ) |
|
./model/src/update_cg2d.F |
53 |
UPDATE_CG2D |
INTEGER i, j, k, ks |
|
./model/src/update_cg2d.F |
73 |
UPDATE_CG2D |
DO i=1-OLx,sNx+OLx |
|
./model/src/update_cg2d.F |
74 |
UPDATE_CG2D |
aW2d(i,j,bi,bj) = 0. _d 0 |
|
./model/src/update_cg2d.F |
75 |
UPDATE_CG2D |
aS2d(i,j,bi,bj) = 0. _d 0 |
|
./model/src/update_cg2d.F |
77 |
UPDATE_CG2D |
aC2d(i,j,bi,bj) = 0. _d 0 |
|
./model/src/update_cg2d.F |
85 |
UPDATE_CG2D |
DO i=1,sNx+1 |
|
./model/src/update_cg2d.F |
86 |
UPDATE_CG2D |
faceArea = _dyG(i,j,bi,bj)*drF(k)*deepFacC(k)*rhoFacC(k) |
|
./model/src/update_cg2d.F |
87 |
UPDATE_CG2D |
& *_hFacW(i,j,k,bi,bj) |
|
./model/src/update_cg2d.F |
88 |
UPDATE_CG2D |
aW2d(i,j,bi,bj) = aW2d(i,j,bi,bj) |
|
./model/src/update_cg2d.F |
89 |
UPDATE_CG2D |
& + faceArea*dU_psFacX(i,j,k,bi,bj) |
|
./model/src/update_cg2d.F |
90 |
UPDATE_CG2D |
& *recip_dxC(i,j,bi,bj) |
|
./model/src/update_cg2d.F |
91 |
UPDATE_CG2D |
faceArea = _dxG(i,j,bi,bj)*drF(k)*deepFacC(k)*rhoFacC(k) |
|
./model/src/update_cg2d.F |
92 |
UPDATE_CG2D |
& *_hFacS(i,j,k,bi,bj) |
|
./model/src/update_cg2d.F |
93 |
UPDATE_CG2D |
aS2d(i,j,bi,bj) = aS2d(i,j,bi,bj) |
|
./model/src/update_cg2d.F |
94 |
UPDATE_CG2D |
& + faceArea*dV_psFacY(i,j,k,bi,bj) |
|
./model/src/update_cg2d.F |
95 |
UPDATE_CG2D |
& *recip_dyC(i,j,bi,bj) |
|
./model/src/update_etah.F |
44 |
UPDATE_ETAH |
INTEGER i,j,bi,bj |
|
./model/src/update_etah.F |
54 |
UPDATE_ETAH |
DO i=1-Olx,sNx+Olx |
|
./model/src/update_etah.F |
55 |
UPDATE_ETAH |
etaHnm1(i,j,bi,bj) = etaH(i,j,bi,bj) |
|
./model/src/update_etah.F |
64 |
UPDATE_ETAH |
DO i=1-Olx,sNx+Olx |
|
./model/src/update_etah.F |
65 |
UPDATE_ETAH |
etaH(i,j,bi,bj) = etaN(i,j,bi,bj) |
|
./model/src/update_etah.F |
71 |
UPDATE_ETAH |
DO i=1,sNx |
|
./model/src/update_etah.F |
72 |
UPDATE_ETAH |
etaH(i,j,bi,bj) = etaN(i,j,bi,bj) |
|
./model/src/update_etah.F |
73 |
UPDATE_ETAH |
& + (1. - implicDiv2Dflow)*dEtaHdt(i,j,bi,bj) |
|
./model/src/update_etaws.F |
46 |
UPDATE_ETAWS |
INTEGER i,j,bi,bj |
|
./model/src/update_etaws.F |
57 |
UPDATE_ETAWS |
DO i=1-OLx,sNx+OLx |
|
./model/src/update_etaws.F |
58 |
UPDATE_ETAWS |
dEtaWdt(i,j,bi,bj) = etaHw(i,j,bi,bj) |
|
./model/src/update_etaws.F |
59 |
UPDATE_ETAWS |
dEtaSdt(i,j,bi,bj) = etaHs(i,j,bi,bj) |
|
./model/src/update_etaws.F |
64 |
UPDATE_ETAWS |
DO i=1,sNx+1 |
|
./model/src/update_etaws.F |
65 |
UPDATE_ETAWS |
etaHw(i,j,bi,bj) = ( etaH (i-1,j,bi,bj) |
|
./model/src/update_etaws.F |
66 |
UPDATE_ETAWS |
& + etaH ( i ,j,bi,bj) )*0.5 _d 0 |
|
./model/src/update_etaws.F |
67 |
UPDATE_ETAWS |
etaHs(i,j,bi,bj) = ( etaH (i,j-1,bi,bj) |
|
./model/src/update_etaws.F |
68 |
UPDATE_ETAWS |
& + etaH (i, j ,bi,bj) )*0.5 _d 0 |
|
./model/src/update_etaws.F |
91 |
UPDATE_ETAWS |
DO i=1-OLx,sNx+OLx |
|
./model/src/update_etaws.F |
92 |
UPDATE_ETAWS |
dEtaWdt(i,j,bi,bj) = ( etaHw(i,j,bi,bj) |
|
./model/src/update_etaws.F |
93 |
UPDATE_ETAWS |
& - dEtaWdt(i,j,bi,bj) )/deltaTfreesurf |
|
./model/src/update_etaws.F |
94 |
UPDATE_ETAWS |
dEtaSdt(i,j,bi,bj) = ( etaHs(i,j,bi,bj) |
|
./model/src/update_etaws.F |
95 |
UPDATE_ETAWS |
& - dEtaSdt(i,j,bi,bj) )/deltaTfreesurf |
|
./model/src/update_masks_etc.F |
141 |
UPDATE_MASKS_ETC |
R_low(i,j,bi,bj) = rF(1) |
|
./model/src/update_masks_etc.F |
187 |
UPDATE_MASKS_ETC |
DO i=1-OLx,sNx+OLx |
|
./model/src/update_masks_etc.F |
189 |
UPDATE_MASKS_ETC |
tmpfld(i,j,bi,bj) = Ro_surf(i,j,bi,bj) - R_low(i,j,bi,bj) |
|
./model/src/update_masks_etc.F |
191 |
UPDATE_MASKS_ETC |
IF ( tmpfld(i,j,bi,bj) .LE. 0. ) THEN |
|
./model/src/update_masks_etc.F |
192 |
UPDATE_MASKS_ETC |
recip_Rcol(i,j,bi,bj) = 0. |
|
./model/src/update_masks_etc.F |
194 |
UPDATE_MASKS_ETC |
recip_Rcol(i,j,bi,bj) = 1. _d 0 / tmpfld(i,j,bi,bj) |
|
./model/src/update_masks_etc.F |
342 |
UPDATE_MASKS_ETC |
DO i=1-OLx,sNx+OLx |
|
./model/src/update_masks_etc.F |
343 |
UPDATE_MASKS_ETC |
h0FacC(i,j,k,bi,bj) = _hFacC(i,j,k,bi,bj) |
|
./model/src/update_masks_etc.F |
344 |
UPDATE_MASKS_ETC |
h0FacW(i,j,k,bi,bj) = _hFacW(i,j,k,bi,bj) |
|
./model/src/update_masks_etc.F |
345 |
UPDATE_MASKS_ETC |
h0FacS(i,j,k,bi,bj) = _hFacS(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
102 |
UPDATE_R_STAR |
recip_hFacC(i,j,k,bi,bj) = maskC(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
103 |
UPDATE_R_STAR |
& / ( _hFacC(i,j,k,bi,bj) + (1.-maskC(i,j,k,bi,bj)) ) |
|
./model/src/update_r_star.F |
104 |
UPDATE_R_STAR |
recip_hFacW(i,j,k,bi,bj) = maskW(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
105 |
UPDATE_R_STAR |
& / ( _hFacW(i,j,k,bi,bj) + (1.-maskW(i,j,k,bi,bj)) ) |
|
./model/src/update_r_star.F |
106 |
UPDATE_R_STAR |
recip_hFacS(i,j,k,bi,bj) = maskS(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
107 |
UPDATE_R_STAR |
& / ( _hFacS(i,j,k,bi,bj) + (1.-maskS(i,j,k,bi,bj)) ) |
|
./model/src/update_r_star.F |
109 |
UPDATE_R_STAR |
IF (maskC(i,j,k,bi,bj).NE.0.) |
|
./model/src/update_r_star.F |
110 |
UPDATE_R_STAR |
& recip_hFacC(i,j,k,bi,bj) = 1. _d 0 / _hFacC(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
111 |
UPDATE_R_STAR |
IF (maskW(i,j,k,bi,bj).NE.0.) |
|
./model/src/update_r_star.F |
112 |
UPDATE_R_STAR |
& recip_hFacW(i,j,k,bi,bj) = 1. _d 0 / _hFacW(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
113 |
UPDATE_R_STAR |
IF (maskS(i,j,k,bi,bj).NE.0.) |
|
./model/src/update_r_star.F |
114 |
UPDATE_R_STAR |
& recip_hFacS(i,j,k,bi,bj) = 1. _d 0 / _hFacS(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
43 |
UPDATE_R_STAR |
INTEGER i,j,k,bi,bj |
|
./model/src/update_r_star.F |
55 |
UPDATE_R_STAR |
DO i=1-Olx,sNx+Olx |
|
./model/src/update_r_star.F |
58 |
UPDATE_R_STAR |
hFacC(i,j,k,bi,bj) = h0FacC(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
59 |
UPDATE_R_STAR |
& *rStarFacC(i,j,bi,bj) |
|
./model/src/update_r_star.F |
60 |
UPDATE_R_STAR |
hFacW(i,j,k,bi,bj) = h0FacW(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
61 |
UPDATE_R_STAR |
& *rStarFacW(i,j,bi,bj) |
|
./model/src/update_r_star.F |
62 |
UPDATE_R_STAR |
hFacS(i,j,k,bi,bj) = h0FacS(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
63 |
UPDATE_R_STAR |
& *rStarFacS(i,j,bi,bj) |
|
./model/src/update_r_star.F |
67 |
UPDATE_R_STAR |
recip_hFacC(i,j,k,bi,bj) = maskC(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
68 |
UPDATE_R_STAR |
& / ( _hFacC(i,j,k,bi,bj) + (1.-maskC(i,j,k,bi,bj)) ) |
|
./model/src/update_r_star.F |
69 |
UPDATE_R_STAR |
recip_hFacW(i,j,k,bi,bj) = maskW(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
70 |
UPDATE_R_STAR |
& / ( _hFacW(i,j,k,bi,bj) + (1.-maskW(i,j,k,bi,bj)) ) |
|
./model/src/update_r_star.F |
71 |
UPDATE_R_STAR |
recip_hFacS(i,j,k,bi,bj) = maskS(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
72 |
UPDATE_R_STAR |
& / ( _hFacS(i,j,k,bi,bj) + (1.-maskS(i,j,k,bi,bj)) ) |
|
./model/src/update_r_star.F |
74 |
UPDATE_R_STAR |
IF (maskC(i,j,k,bi,bj).NE.0.) |
|
./model/src/update_r_star.F |
75 |
UPDATE_R_STAR |
& recip_hFacC(i,j,k,bi,bj) = 1. _d 0 / _hFacC(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
76 |
UPDATE_R_STAR |
IF (maskW(i,j,k,bi,bj).NE.0.) |
|
./model/src/update_r_star.F |
77 |
UPDATE_R_STAR |
& recip_hFacW(i,j,k,bi,bj) = 1. _d 0 / _hFacW(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
78 |
UPDATE_R_STAR |
IF (maskS(i,j,k,bi,bj).NE.0.) |
|
./model/src/update_r_star.F |
79 |
UPDATE_R_STAR |
& recip_hFacS(i,j,k,bi,bj) = 1. _d 0 / _hFacS(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
89 |
UPDATE_R_STAR |
DO i=1-Olx,sNx+Olx |
|
./model/src/update_r_star.F |
93 |
UPDATE_R_STAR |
hFacC(i,j,k,bi,bj) = h0FacC(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
94 |
UPDATE_R_STAR |
& *rStarFacNm1C(i,j,bi,bj) |
|
./model/src/update_r_star.F |
95 |
UPDATE_R_STAR |
hFacW(i,j,k,bi,bj) = h0FacW(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
96 |
UPDATE_R_STAR |
& *rStarFacNm1W(i,j,bi,bj) |
|
./model/src/update_r_star.F |
97 |
UPDATE_R_STAR |
hFacS(i,j,k,bi,bj) = h0FacS(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
98 |
UPDATE_R_STAR |
& *rStarFacNm1S(i,j,bi,bj) |
|
./model/src/update_sigma.F |
105 |
UPDATE_SIGMA |
DO i=1-OLx,sNx+OLx |
|
./model/src/update_sigma.F |
106 |
UPDATE_SIGMA |
IF ( kSurfC(i,j,bi,bj).LE.Nr ) THEN |
|
./model/src/update_sigma.F |
107 |
UPDATE_SIGMA |
tmpFld(i,j) = etaHc(i,j,bi,bj) |
|
./model/src/update_sigma.F |
108 |
UPDATE_SIGMA |
& + ( Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj) ) |
|
./model/src/update_sigma.F |
110 |
UPDATE_SIGMA |
tmpFld(i,j) = rFullDepth |
|
./model/src/update_sigma.F |
116 |
UPDATE_SIGMA |
DO i=1-OLx,sNx+OLx |
|
./model/src/update_sigma.F |
117 |
UPDATE_SIGMA |
hFacC(i,j,k,bi,bj) = maskC(i,j,k,bi,bj) |
|
./model/src/update_sigma.F |
119 |
UPDATE_SIGMA |
& +dBHybSigF(k)*tmpFld(i,j) |
|
./model/src/update_sigma.F |
121 |
UPDATE_SIGMA |
recip_hFacC(i,j,k,bi,bj) = maskC(i,j,k,bi,bj)*drF(k) |
|
./model/src/update_sigma.F |
123 |
UPDATE_SIGMA |
& +dBHybSigF(k)*tmpFld(i,j) |
|
./model/src/update_sigma.F |
131 |
UPDATE_SIGMA |
DO i=1-OLx,sNx+OLx |
|
./model/src/update_sigma.F |
132 |
UPDATE_SIGMA |
IF ( kSurfW(i,j,bi,bj).LE.Nr ) THEN |
|
./model/src/update_sigma.F |
133 |
UPDATE_SIGMA |
tmpFld(i,j) = etaHw(i,j,bi,bj) |
|
./model/src/update_sigma.F |
134 |
UPDATE_SIGMA |
& + ( rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj) ) |
|
./model/src/update_sigma.F |
136 |
UPDATE_SIGMA |
tmpFld(i,j) = rFullDepth |
|
./model/src/update_sigma.F |
142 |
UPDATE_SIGMA |
DO i=1-OLx,sNx+OLx |
|
./model/src/update_sigma.F |
143 |
UPDATE_SIGMA |
hFacW(i,j,k,bi,bj) = maskW(i,j,k,bi,bj) |
|
./model/src/update_sigma.F |
145 |
UPDATE_SIGMA |
& +dBHybSigF(k)*tmpFld(i,j) |
|
./model/src/update_sigma.F |
147 |
UPDATE_SIGMA |
recip_hFacW(i,j,k,bi,bj) = maskW(i,j,k,bi,bj)*drF(k) |
|
./model/src/update_sigma.F |
149 |
UPDATE_SIGMA |
& +dBHybSigF(k)*tmpFld(i,j) |
|
./model/src/update_sigma.F |
157 |
UPDATE_SIGMA |
DO i=1-OLx,sNx+OLx |
|
./model/src/update_sigma.F |
158 |
UPDATE_SIGMA |
IF ( kSurfS(i,j,bi,bj).LE.Nr ) THEN |
|
./model/src/update_sigma.F |
159 |
UPDATE_SIGMA |
tmpFld(i,j) = etaHs(i,j,bi,bj) |
|
./model/src/update_sigma.F |
160 |
UPDATE_SIGMA |
& + ( rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj) ) |
|
./model/src/update_sigma.F |
162 |
UPDATE_SIGMA |
tmpFld(i,j) = rFullDepth |
|
./model/src/update_sigma.F |
168 |
UPDATE_SIGMA |
DO i=1-OLx,sNx+OLx |
|
./model/src/update_sigma.F |
169 |
UPDATE_SIGMA |
hFacS(i,j,k,bi,bj) = maskS(i,j,k,bi,bj) |
|
./model/src/update_sigma.F |
171 |
UPDATE_SIGMA |
& +dBHybSigF(k)*tmpFld(i,j) |
|
./model/src/update_sigma.F |
173 |
UPDATE_SIGMA |
recip_hFacS(i,j,k,bi,bj) = maskS(i,j,k,bi,bj)*drF(k) |
|
./model/src/update_sigma.F |
175 |
UPDATE_SIGMA |
& +dBHybSigF(k)*tmpFld(i,j) |
|
./model/src/update_sigma.F |
58 |
UPDATE_SIGMA |
INTEGER i, j, k |
|
./model/src/update_surf_dr.F |
105 |
UPDATE_SURF_DR |
DO i=2-Olx,sNx+Olx |
|
./model/src/update_surf_dr.F |
106 |
UPDATE_SURF_DR |
ks = kSurfW(i,j,bi,bj) |
|
./model/src/update_surf_dr.F |
108 |
UPDATE_SURF_DR |
hFacW(i,j,ks,bi,bj) = hFac_surfNm1W(i,j,bi,bj) |
|
./model/src/update_surf_dr.F |
109 |
UPDATE_SURF_DR |
recip_hFacW(i,j,ks,bi,bj)= 1. _d 0 / hFac_surfNm1W(i,j,bi,bj) |
|
./model/src/update_surf_dr.F |
114 |
UPDATE_SURF_DR |
DO i=1-Olx,sNx+Olx |
|
./model/src/update_surf_dr.F |
115 |
UPDATE_SURF_DR |
ks = kSurfS(i,j,bi,bj) |
|
./model/src/update_surf_dr.F |
117 |
UPDATE_SURF_DR |
hFacS(i,j,ks,bi,bj) = hFac_surfNm1S(i,j,bi,bj) |
|
./model/src/update_surf_dr.F |
118 |
UPDATE_SURF_DR |
recip_hFacS(i,j,ks,bi,bj)= 1. _d 0 / hFac_surfNm1S(i,j,bi,bj) |
|
./model/src/update_surf_dr.F |
127 |
UPDATE_SURF_DR |
DO i=1-Olx,sNx+Olx |
|
./model/src/update_surf_dr.F |
128 |
UPDATE_SURF_DR |
hFacC(i,j,k,bi,bj)=h0FacC(i,j,k,bi,bj) |
|
./model/src/update_surf_dr.F |
129 |
UPDATE_SURF_DR |
IF (h0FacC(i,j,k,bi,bj) .NE. 0. ) THEN |
|
./model/src/update_surf_dr.F |
130 |
UPDATE_SURF_DR |
recip_hFacC(i,j,k,bi,bj) = 1. _d 0 / h0FacC(i,j,k,bi,bj) |
|
./model/src/update_surf_dr.F |
132 |
UPDATE_SURF_DR |
recip_hFacC(i,j,k,bi,bj) = 0. |
|
./model/src/update_surf_dr.F |
43 |
UPDATE_SURF_DR |
INTEGER i,j,k,bi,bj |
|
./model/src/update_surf_dr.F |
56 |
UPDATE_SURF_DR |
DO i=1-Olx,sNx+Olx |
|
./model/src/update_surf_dr.F |
57 |
UPDATE_SURF_DR |
ks = kSurfC(i,j,bi,bj) |
|
./model/src/update_surf_dr.F |
59 |
UPDATE_SURF_DR |
hFacC(i,j,ks,bi,bj) = hFac_surfC(i,j,bi,bj) |
|
./model/src/update_surf_dr.F |
60 |
UPDATE_SURF_DR |
recip_hFacC(i,j,ks,bi,bj)= 1. _d 0 / hFac_surfC(i,j,bi,bj) |
|
./model/src/update_surf_dr.F |
69 |
UPDATE_SURF_DR |
DO i=2-Olx,sNx+Olx |
|
./model/src/update_surf_dr.F |
70 |
UPDATE_SURF_DR |
ks = kSurfW(i,j,bi,bj) |
|
./model/src/update_surf_dr.F |
72 |
UPDATE_SURF_DR |
hFacW(i,j,ks,bi,bj) = hFac_surfW(i,j,bi,bj) |
|
./model/src/update_surf_dr.F |
73 |
UPDATE_SURF_DR |
recip_hFacW(i,j,ks,bi,bj)= 1. _d 0 / hFac_surfW(i,j,bi,bj) |
|
./model/src/update_surf_dr.F |
78 |
UPDATE_SURF_DR |
DO i=1-Olx,sNx+Olx |
|
./model/src/update_surf_dr.F |
79 |
UPDATE_SURF_DR |
ks = kSurfS(i,j,bi,bj) |
|
./model/src/update_surf_dr.F |
81 |
UPDATE_SURF_DR |
hFacS(i,j,ks,bi,bj) = hFac_surfS(i,j,bi,bj) |
|
./model/src/update_surf_dr.F |
82 |
UPDATE_SURF_DR |
recip_hFacS(i,j,ks,bi,bj)= 1. _d 0 / hFac_surfS(i,j,bi,bj) |
|
./model/src/update_surf_dr.F |
92 |
UPDATE_SURF_DR |
DO i=1-Olx,sNx+Olx |
|
./model/src/update_surf_dr.F |
93 |
UPDATE_SURF_DR |
ks = kSurfC(i,j,bi,bj) |
|
./model/src/update_surf_dr.F |
95 |
UPDATE_SURF_DR |
hFacC(i,j,ks,bi,bj) = hFac_surfNm1C(i,j,bi,bj) |
|
./model/src/update_surf_dr.F |
96 |
UPDATE_SURF_DR |
recip_hFacC(i,j,ks,bi,bj)= 1. _d 0 / hFac_surfNm1C(i,j,bi,bj) |
|
./model/src/write_grid.F |
52 |
WRITE_GRID |
INTEGER i,j,k,bi,bj |
|
./model/src/write_grid.F |
65 |
WRITE_GRID |
DO i=1-OLx,sNx+OLx |
|
./model/src/write_grid.F |
67 |
WRITE_GRID |
tmpfld(i,j,bi,bj) = Ro_surf(i,j,bi,bj) - R_low(i,j,bi,bj) |
|
./optim/optim_readdata.F |
180 |
OPTIM_READDATA |
read( funit ) (ncvarindex(i), i=1,maxcvars) |
|
./optim/optim_readdata.F |
181 |
OPTIM_READDATA |
read( funit ) (ncvarrecs(i), i=1,maxcvars) |
|
./optim/optim_readdata.F |
182 |
OPTIM_READDATA |
read( funit ) (ncvarxmax(i), i=1,maxcvars) |
|
./optim/optim_readdata.F |
183 |
OPTIM_READDATA |
read( funit ) (ncvarymax(i), i=1,maxcvars) |
|
./optim/optim_readdata.F |
184 |
OPTIM_READDATA |
read( funit ) (ncvarnrmax(i), i=1,maxcvars) |
|
./optim/optim_readdata.F |
185 |
OPTIM_READDATA |
read( funit ) (ncvargrd(i), i=1,maxcvars) |
|
./optim/optim_readdata.F |
237 |
OPTIM_READDATA |
& (ncvarindex(i), i=1,maxcvars) |
|
./optim/optim_readdata.F |
239 |
OPTIM_READDATA |
& (ncvarrecs(i), i=1,maxcvars) |
|
./optim/optim_readdata.F |
241 |
OPTIM_READDATA |
& (ncvarxmax(i), i=1,maxcvars) |
|
./optim/optim_readdata.F |
243 |
OPTIM_READDATA |
& (ncvarymax(i), i=1,maxcvars) |
|
./optim/optim_readdata.F |
245 |
OPTIM_READDATA |
& (ncvarnrmax(i), i=1,maxcvars) |
|
./optim/optim_readdata.F |
247 |
OPTIM_READDATA |
& (ncvargrd(i), i=1,maxcvars) |
|
./optim/optim_readdata.F |
71 |
OPTIM_READDATA |
integer i,j |
|
./optim/optim_writedata.F |
129 |
OPTIM_WRITEDATA |
& (ncvarindex(i), i=1,maxcvars) |
|
./optim/optim_writedata.F |
131 |
OPTIM_WRITEDATA |
& (ncvarrecs(i), i=1,maxcvars) |
|
./optim/optim_writedata.F |
133 |
OPTIM_WRITEDATA |
& (ncvarxmax(i), i=1,maxcvars) |
|
./optim/optim_writedata.F |
135 |
OPTIM_WRITEDATA |
& (ncvarymax(i), i=1,maxcvars) |
|
./optim/optim_writedata.F |
137 |
OPTIM_WRITEDATA |
& (ncvarnrmax(i), i=1,maxcvars) |
|
./optim/optim_writedata.F |
139 |
OPTIM_WRITEDATA |
& (ncvargrd(i), i=1,maxcvars) |
|
./optim/optim_writedata.F |
178 |
OPTIM_WRITEDATA |
write( funit ) (ncvarindex(i), i=1,maxcvars) |
|
./optim/optim_writedata.F |
179 |
OPTIM_WRITEDATA |
write( funit ) (ncvarrecs(i), i=1,maxcvars) |
|
./optim/optim_writedata.F |
180 |
OPTIM_WRITEDATA |
write( funit ) (ncvarxmax(i), i=1,maxcvars) |
|
./optim/optim_writedata.F |
181 |
OPTIM_WRITEDATA |
write( funit ) (ncvarymax(i), i=1,maxcvars) |
|
./optim/optim_writedata.F |
182 |
OPTIM_WRITEDATA |
write( funit ) (ncvarnrmax(i), i=1,maxcvars) |
|
./optim/optim_writedata.F |
183 |
OPTIM_WRITEDATA |
write( funit ) (ncvargrd(i), i=1,maxcvars) |
|
./optim/optim_writedata.F |
56 |
OPTIM_WRITEDATA |
integer i,j,k |
|
./optim/simul.F |
56 |
SIMUL |
integer i |
|
./optim/simul.F |
66 |
SIMUL |
do i = 1,nn |
|
./optim/simul.F |
67 |
SIMUL |
adxx(i) = 0. |
|
./optim/simul.F |
84 |
SIMUL |
do i=1,nn |
|
./pkg/admtlm/admtlm_bypassad.F |
100 |
ADMTLM_BYPASSAD |
& + adetan(i,j,bi,bj) |
|
./pkg/admtlm/admtlm_bypassad.F |
115 |
ADMTLM_BYPASSAD |
do i = imin, imax |
|
./pkg/admtlm/admtlm_bypassad.F |
116 |
ADMTLM_BYPASSAD |
tmpfld3d(i,j,k,bi,bj) = tmpfld3d(i,j,k,bi,bj) |
|
./pkg/admtlm/admtlm_bypassad.F |
117 |
ADMTLM_BYPASSAD |
& + advvel(i,j,k,bi,bj) |
|
./pkg/admtlm/admtlm_bypassad.F |
133 |
ADMTLM_BYPASSAD |
do i = imin, imax |
|
./pkg/admtlm/admtlm_bypassad.F |
134 |
ADMTLM_BYPASSAD |
tmpfld3d(i,j,k,bi,bj) = tmpfld3d(i,j,k,bi,bj) |
|
./pkg/admtlm/admtlm_bypassad.F |
135 |
ADMTLM_BYPASSAD |
& + aduvel(i,j,k,bi,bj) |
|
./pkg/admtlm/admtlm_bypassad.F |
151 |
ADMTLM_BYPASSAD |
do i = imin, imax |
|
./pkg/admtlm/admtlm_bypassad.F |
152 |
ADMTLM_BYPASSAD |
tmpfld3d(i,j,k,bi,bj) = tmpfld3d(i,j,k,bi,bj) |
|
./pkg/admtlm/admtlm_bypassad.F |
153 |
ADMTLM_BYPASSAD |
& + adsalt(i,j,k,bi,bj)*fac |
|
./pkg/admtlm/admtlm_bypassad.F |
169 |
ADMTLM_BYPASSAD |
do i = imin, imax |
|
./pkg/admtlm/admtlm_bypassad.F |
170 |
ADMTLM_BYPASSAD |
tmpfld3d(i,j,k,bi,bj) = tmpfld3d(i,j,k,bi,bj) |
|
./pkg/admtlm/admtlm_bypassad.F |
171 |
ADMTLM_BYPASSAD |
& + adtheta(i,j,k,bi,bj)*fac |
|
./pkg/admtlm/admtlm_bypassad.F |
33 |
ADMTLM_BYPASSAD |
integer i, j, k |
|
./pkg/admtlm/admtlm_bypassad.F |
75 |
ADMTLM_BYPASSAD |
DO i = imin, imax |
|
./pkg/admtlm/admtlm_bypassad.F |
77 |
ADMTLM_BYPASSAD |
adtheta(i,j,k,bi,bj) = |
|
./pkg/admtlm/admtlm_bypassad.F |
78 |
ADMTLM_BYPASSAD |
& g_objf_state_final(i,j,bi,bj,k) |
|
./pkg/admtlm/admtlm_bypassad.F |
79 |
ADMTLM_BYPASSAD |
adsalt(i,j,k,bi,bj) = |
|
./pkg/admtlm/admtlm_bypassad.F |
80 |
ADMTLM_BYPASSAD |
& g_objf_state_final(i,j,bi,bj,1*Nr+k) |
|
./pkg/admtlm/admtlm_bypassad.F |
81 |
ADMTLM_BYPASSAD |
aduvel(i,j,k,bi,bj) = |
|
./pkg/admtlm/admtlm_bypassad.F |
82 |
ADMTLM_BYPASSAD |
& g_objf_state_final(i,j,bi,bj,2*Nr+k) |
|
./pkg/admtlm/admtlm_bypassad.F |
83 |
ADMTLM_BYPASSAD |
advvel(i,j,k,bi,bj) = |
|
./pkg/admtlm/admtlm_bypassad.F |
84 |
ADMTLM_BYPASSAD |
& g_objf_state_final(i,j,bi,bj,3*Nr+k) |
|
./pkg/admtlm/admtlm_bypassad.F |
86 |
ADMTLM_BYPASSAD |
adetan(i,j,bi,bj) = |
|
./pkg/admtlm/admtlm_bypassad.F |
87 |
ADMTLM_BYPASSAD |
& g_objf_state_final(i,j,bi,bj,4*Nr+1) |
|
./pkg/admtlm/admtlm_bypassad.F |
98 |
ADMTLM_BYPASSAD |
do i = imin, imax |
|
./pkg/admtlm/admtlm_bypassad.F |
99 |
ADMTLM_BYPASSAD |
tmpfld2d(i,j,bi,bj) = tmpfld2d(i,j,bi,bj) |
|
./pkg/admtlm/admtlm_dsvd2model.F |
248 |
ADMTLM_DSVD2MODEL |
read(cunit) (filencvarindex(i), i=1,maxcvars) |
|
./pkg/admtlm/admtlm_dsvd2model.F |
249 |
ADMTLM_DSVD2MODEL |
read(cunit) (filencvarrecs(i), i=1,maxcvars) |
|
./pkg/admtlm/admtlm_dsvd2model.F |
250 |
ADMTLM_DSVD2MODEL |
read(cunit) (filencvarxmax(i), i=1,maxcvars) |
|
./pkg/admtlm/admtlm_dsvd2model.F |
251 |
ADMTLM_DSVD2MODEL |
read(cunit) (filencvarymax(i), i=1,maxcvars) |
|
./pkg/admtlm/admtlm_dsvd2model.F |
252 |
ADMTLM_DSVD2MODEL |
read(cunit) (filencvarnrmax(i), i=1,maxcvars) |
|
./pkg/admtlm/admtlm_dsvd2model.F |
253 |
ADMTLM_DSVD2MODEL |
read(cunit) (filencvargrd(i), i=1,maxcvars) |
|
./pkg/admtlm/admtlm_dsvd2model.F |
72 |
ADMTLM_DSVD2MODEL |
integer i, j, k |
|
./pkg/admtlm/admtlm_init_fixed.F |
28 |
ADMTLM_INIT_FIXED |
integer i, j, k |
|
./pkg/admtlm/admtlm_init_fixed.F |
49 |
ADMTLM_INIT_FIXED |
DO i=1,sNx |
|
./pkg/admtlm/admtlm_init_fixed.F |
50 |
ADMTLM_INIT_FIXED |
wetan(i,j,bi,bj) = 1. / (0.1 _d 0)**2 |
|
./pkg/admtlm/admtlm_map.F |
28 |
ADMTLM_MAP |
integer i, j, k |
|
./pkg/admtlm/admtlm_map.F |
34 |
ADMTLM_MAP |
DO i=1,sNx |
|
./pkg/admtlm/admtlm_map.F |
36 |
ADMTLM_MAP |
adobjf_state_final(i,j,bi,bj,k) = |
|
./pkg/admtlm/admtlm_map.F |
37 |
ADMTLM_MAP |
& g_objf_state_final(i,j,bi,bj,k) |
|
./pkg/admtlm/admtlm_map.F |
39 |
ADMTLM_MAP |
adobjf_state_final(i,j,bi,bj,4*Nr+1) = |
|
./pkg/admtlm/admtlm_map.F |
40 |
ADMTLM_MAP |
& g_objf_state_final(i,j,bi,bj,4*Nr+1) |
|
./pkg/admtlm/admtlm_metric.F |
31 |
ADMTLM_METRIC |
integer i, j, k |
|
./pkg/admtlm/admtlm_metric.F |
54 |
ADMTLM_METRIC |
DO i=1,sNx |
|
./pkg/admtlm/admtlm_metric.F |
57 |
ADMTLM_METRIC |
& + g_objf_state_final(i,j,bi,bj,k+0*Nr)**2/stdDevtheta**2 |
|
./pkg/admtlm/admtlm_metric.F |
58 |
ADMTLM_METRIC |
& + g_objf_state_final(i,j,bi,bj,k+1*Nr)**2/stdDevsalt**2 |
|
./pkg/admtlm/admtlm_metric.F |
59 |
ADMTLM_METRIC |
& + g_objf_state_final(i,j,bi,bj,k+2*Nr)**2/stdDevuvel**2 |
|
./pkg/admtlm/admtlm_metric.F |
60 |
ADMTLM_METRIC |
& + g_objf_state_final(i,j,bi,bj,k+3*Nr)**2/stdDevvvel**2 |
|
./pkg/admtlm/admtlm_metric.F |
63 |
ADMTLM_METRIC |
& + g_objf_state_final(i,j,bi,bj,1+4*Nr)**2/stdDevetan**2 |
|
./pkg/admtlm/admtlm_metric.F |
76 |
ADMTLM_METRIC |
DO i=1,sNx |
|
./pkg/admtlm/admtlm_model2dsvd.F |
235 |
ADMTLM_MODEL2DSVD |
write(cunit) (ncvarindex(i), i=1,maxcvars) |
|
./pkg/admtlm/admtlm_model2dsvd.F |
236 |
ADMTLM_MODEL2DSVD |
write(cunit) (ncvarrecs(i), i=1,maxcvars) |
|
./pkg/admtlm/admtlm_model2dsvd.F |
237 |
ADMTLM_MODEL2DSVD |
write(cunit) (ncvarxmax(i), i=1,maxcvars) |
|
./pkg/admtlm/admtlm_model2dsvd.F |
238 |
ADMTLM_MODEL2DSVD |
write(cunit) (ncvarymax(i), i=1,maxcvars) |
|
./pkg/admtlm/admtlm_model2dsvd.F |
239 |
ADMTLM_MODEL2DSVD |
write(cunit) (ncvarnrmax(i), i=1,maxcvars) |
|
./pkg/admtlm/admtlm_model2dsvd.F |
240 |
ADMTLM_MODEL2DSVD |
write(cunit) (ncvargrd(i), i=1,maxcvars) |
|
./pkg/admtlm/admtlm_model2dsvd.F |
70 |
ADMTLM_MODEL2DSVD |
integer i, j, k |
|
./pkg/aim_v23/aim_aim2dyn.F |
111 |
AIM_AIM2DYN |
DO i=1,sNx |
|
./pkg/aim_v23/aim_aim2dyn.F |
112 |
AIM_AIM2DYN |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_aim2dyn.F |
114 |
AIM_AIM2DYN |
aim_dTdt(i,j,k,bi,bj) = ( TT_CNV(I2,Katm,myThid) |
|
./pkg/aim_v23/aim_aim2dyn.F |
121 |
AIM_AIM2DYN |
aim_dSdt(i,j,k,bi,bj) = QT_CNV(I2,Katm,myThid) |
|
./pkg/aim_v23/aim_aim2dyn.F |
129 |
AIM_AIM2DYN |
DO i=1,sNx |
|
./pkg/aim_v23/aim_aim2dyn.F |
130 |
AIM_AIM2DYN |
aim_dTdt(i,j,k,bi,bj) = aim_dTdt(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
131 |
AIM_AIM2DYN |
& / pStarFacK(i,j,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
151 |
AIM_AIM2DYN |
DO i=1,sNx |
|
./pkg/aim_v23/aim_aim2dyn.F |
152 |
AIM_AIM2DYN |
aim_dTdt(i,j,k,bi,bj) = aim_dTdt(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
153 |
AIM_AIM2DYN |
& *recip_hFacC(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
154 |
AIM_AIM2DYN |
& /rStarExpC(i,j,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
155 |
AIM_AIM2DYN |
aim_dSdt(i,j,k,bi,bj) = aim_dSdt(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
156 |
AIM_AIM2DYN |
& *recip_hFacC(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
157 |
AIM_AIM2DYN |
& /rStarExpC(i,j,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
162 |
AIM_AIM2DYN |
DO i=1,sNx |
|
./pkg/aim_v23/aim_aim2dyn.F |
163 |
AIM_AIM2DYN |
IF ( k.EQ.kSurfC(i,j,bi,bj) ) THEN |
|
./pkg/aim_v23/aim_aim2dyn.F |
164 |
AIM_AIM2DYN |
aim_dTdt(i,j,k,bi,bj) = aim_dTdt(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
165 |
AIM_AIM2DYN |
& /hFac_surfC(i,j,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
166 |
AIM_AIM2DYN |
aim_dSdt(i,j,k,bi,bj) = aim_dSdt(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
167 |
AIM_AIM2DYN |
& /hFac_surfC(i,j,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
169 |
AIM_AIM2DYN |
aim_dTdt(i,j,k,bi,bj) = aim_dTdt(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
170 |
AIM_AIM2DYN |
& *recip_hFacC(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
171 |
AIM_AIM2DYN |
aim_dSdt(i,j,k,bi,bj) = aim_dSdt(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
172 |
AIM_AIM2DYN |
& *recip_hFacC(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
182 |
AIM_AIM2DYN |
DO i=1,sNx |
|
./pkg/aim_v23/aim_aim2dyn.F |
183 |
AIM_AIM2DYN |
aim_dTdt(i,j,k,bi,bj) = aim_dTdt(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
184 |
AIM_AIM2DYN |
& *recip_hFacC(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
185 |
AIM_AIM2DYN |
aim_dSdt(i,j,k,bi,bj) = aim_dSdt(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
186 |
AIM_AIM2DYN |
& *recip_hFacC(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
65 |
AIM_AIM2DYN |
INTEGER i,j,k |
|
./pkg/aim_v23/aim_aim2dyn.F |
87 |
AIM_AIM2DYN |
DO i=1,sNx |
|
./pkg/aim_v23/aim_aim2dyn.F |
88 |
AIM_AIM2DYN |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_aim2dyn.F |
89 |
AIM_AIM2DYN |
aim_drag(i,j,bi,bj) = DRAG(I2,0,myThid) |
|
./pkg/aim_v23/aim_aim2dyn.F |
96 |
AIM_AIM2DYN |
DO i=1,sNx |
|
./pkg/aim_v23/aim_aim2dyn.F |
97 |
AIM_AIM2DYN |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_aim2dyn.F |
98 |
AIM_AIM2DYN |
aim_surfWind(i,j,bi,bj) = SPEED0(I2,myThid) |
|
./pkg/aim_v23/aim_aim2land.F |
100 |
AIM_AIM2LAND |
DO i=1,sNx |
|
./pkg/aim_v23/aim_aim2land.F |
101 |
AIM_AIM2LAND |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_aim2land.F |
102 |
AIM_AIM2LAND |
IF ( land_skinT(i,j,bi,bj).LT. 0. _d 0 .OR. |
|
./pkg/aim_v23/aim_aim2land.F |
103 |
AIM_AIM2LAND |
& land_hSnow(i,j,bi,bj).GT. 0. _d 0 ) THEN |
|
./pkg/aim_v23/aim_aim2land.F |
104 |
AIM_AIM2LAND |
land_HeatFlx(i,j,bi,bj) = land_HeatFlx(i,j,bi,bj) |
|
./pkg/aim_v23/aim_aim2land.F |
106 |
AIM_AIM2LAND |
land_EnWFlux(i,j,bi,bj) = |
|
./pkg/aim_v23/aim_aim2land.F |
118 |
AIM_AIM2LAND |
DO i=1,sNx |
|
./pkg/aim_v23/aim_aim2land.F |
119 |
AIM_AIM2LAND |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_aim2land.F |
123 |
AIM_AIM2LAND |
land_Pr_m_Ev(i,j,bi,bj) = land_Pr_m_Ev(i,j,bi,bj) |
|
./pkg/aim_v23/aim_aim2land.F |
136 |
AIM_AIM2LAND |
DO i=1,sNx |
|
./pkg/aim_v23/aim_aim2land.F |
137 |
AIM_AIM2LAND |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_aim2land.F |
138 |
AIM_AIM2LAND |
land_EnWFlux(i,j,bi,bj) = land_EnWFlux(i,j,bi,bj) |
|
./pkg/aim_v23/aim_aim2land.F |
61 |
AIM_AIM2LAND |
INTEGER i,j,k,I2 |
|
./pkg/aim_v23/aim_aim2land.F |
66 |
AIM_AIM2LAND |
DO i=1,sNx |
|
./pkg/aim_v23/aim_aim2land.F |
67 |
AIM_AIM2LAND |
land_Pr_m_Ev(i,j,bi,bj) = 0. _d 0 |
|
./pkg/aim_v23/aim_aim2land.F |
68 |
AIM_AIM2LAND |
land_EnWFlux(i,j,bi,bj) = 0. _d 0 |
|
./pkg/aim_v23/aim_aim2land.F |
85 |
AIM_AIM2LAND |
DO i=1,sNx |
|
./pkg/aim_v23/aim_aim2land.F |
86 |
AIM_AIM2LAND |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_aim2land.F |
89 |
AIM_AIM2LAND |
land_HeatFlx(i,j,bi,bj) = |
|
./pkg/aim_v23/aim_aim2sioce.F |
100 |
AIM_AIM2SIOCE |
DO i=1,sNx |
|
./pkg/aim_v23/aim_aim2sioce.F |
101 |
AIM_AIM2SIOCE |
IF ( land_frc(i,j,bi,bj).GE.1. _d 0 ) THEN |
|
./pkg/aim_v23/aim_aim2sioce.F |
104 |
AIM_AIM2SIOCE |
prcAtm(i,j) = 0. _d 0 |
|
./pkg/aim_v23/aim_aim2sioce.F |
105 |
AIM_AIM2SIOCE |
Qnet(i,j,bi,bj) = 0. _d 0 |
|
./pkg/aim_v23/aim_aim2sioce.F |
106 |
AIM_AIM2SIOCE |
EmPmR(i,j,bi,bj)= 0. _d 0 |
|
./pkg/aim_v23/aim_aim2sioce.F |
107 |
AIM_AIM2SIOCE |
Qsw(i,j,bi,bj) = 0. _d 0 |
|
./pkg/aim_v23/aim_aim2sioce.F |
109 |
AIM_AIM2SIOCE |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_aim2sioce.F |
112 |
AIM_AIM2SIOCE |
prcAtm(i,j) = ( PRECNV(I2,myThid) |
|
./pkg/aim_v23/aim_aim2sioce.F |
118 |
AIM_AIM2SIOCE |
Qnet(i,j,bi,bj) = |
|
./pkg/aim_v23/aim_aim2sioce.F |
125 |
AIM_AIM2SIOCE |
EmPmR(i,j,bi,bj) = ( EVAP(I2,2,myThid) |
|
./pkg/aim_v23/aim_aim2sioce.F |
126 |
AIM_AIM2SIOCE |
& - prcAtm(i,j) ) * convPrcEvp |
|
./pkg/aim_v23/aim_aim2sioce.F |
129 |
AIM_AIM2SIOCE |
Qsw(i,j,bi,bj) = SSR(I2,2,myThid) |
|
./pkg/aim_v23/aim_aim2sioce.F |
138 |
AIM_AIM2SIOCE |
DO i=1,sNx |
|
./pkg/aim_v23/aim_aim2sioce.F |
139 |
AIM_AIM2SIOCE |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_aim2sioce.F |
145 |
AIM_AIM2SIOCE |
icFrwAtm(i,j,bi,bj) = EVAP(I2,3,myThid)*convPrcEvp |
|
./pkg/aim_v23/aim_aim2sioce.F |
151 |
AIM_AIM2SIOCE |
icFrac = iceMask(i,j,bi,bj) |
|
./pkg/aim_v23/aim_aim2sioce.F |
153 |
AIM_AIM2SIOCE |
Qsw(i,j,bi,bj) = icFrac*icFlxSW(i,j,bi,bj) |
|
./pkg/aim_v23/aim_aim2sioce.F |
154 |
AIM_AIM2SIOCE |
& + opFrac*Qsw(i,j,bi,bj) |
|
./pkg/aim_v23/aim_aim2sioce.F |
162 |
AIM_AIM2SIOCE |
DO i=1,sNx |
|
./pkg/aim_v23/aim_aim2sioce.F |
163 |
AIM_AIM2SIOCE |
IF ( iceMask(i,j,bi,bj).GT.0. _d 0 ) THEN |
|
./pkg/aim_v23/aim_aim2sioce.F |
164 |
AIM_AIM2SIOCE |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_aim2sioce.F |
167 |
AIM_AIM2SIOCE |
sHeating(i,j,bi,bj) = sHeating(i,j,bi,bj) |
|
./pkg/aim_v23/aim_aim2sioce.F |
168 |
AIM_AIM2SIOCE |
& + EnPrec(I2,myThid)*prcAtm(i,j) |
|
./pkg/aim_v23/aim_aim2sioce.F |
169 |
AIM_AIM2SIOCE |
snowPrc(i,j) = 0. _d 0 |
|
./pkg/aim_v23/aim_aim2sioce.F |
172 |
AIM_AIM2SIOCE |
snowPrc(i,j) = prcAtm(i,j)*convPrcEvp |
|
./pkg/aim_v23/aim_aim2sioce.F |
175 |
AIM_AIM2SIOCE |
snowPrc(i,j) = 0. _d 0 |
|
./pkg/aim_v23/aim_aim2sioce.F |
188 |
AIM_AIM2SIOCE |
DO i=1,sNx |
|
./pkg/aim_v23/aim_aim2sioce.F |
189 |
AIM_AIM2SIOCE |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_aim2sioce.F |
190 |
AIM_AIM2SIOCE |
IF ( siceFrac(i,j) .GT. 0. ) THEN |
|
./pkg/aim_v23/aim_aim2sioce.F |
191 |
AIM_AIM2SIOCE |
icFrac = siceFrac(i,j)/(1. _d 0 - land_frc(i,j,bi,bj)) |
|
./pkg/aim_v23/aim_aim2sioce.F |
195 |
AIM_AIM2SIOCE |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj)*opFrac |
|
./pkg/aim_v23/aim_aim2sioce.F |
202 |
AIM_AIM2SIOCE |
EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj)*opFrac |
|
./pkg/aim_v23/aim_aim2sioce.F |
204 |
AIM_AIM2SIOCE |
& - prcAtm(i,j) ) * convPrcEvp * icFrac |
|
./pkg/aim_v23/aim_aim2sioce.F |
207 |
AIM_AIM2SIOCE |
Qsw(i,j,bi,bj) = opFrac*Qsw(i,j,bi,bj) |
|
./pkg/aim_v23/aim_aim2sioce.F |
220 |
AIM_AIM2SIOCE |
DO i=1,sNx |
|
./pkg/aim_v23/aim_aim2sioce.F |
221 |
AIM_AIM2SIOCE |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_aim2sioce.F |
222 |
AIM_AIM2SIOCE |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) |
|
./pkg/aim_v23/aim_aim2sioce.F |
223 |
AIM_AIM2SIOCE |
& + EnPrec(I2,myThid)*prcAtm(i,j) |
|
./pkg/aim_v23/aim_aim2sioce.F |
229 |
AIM_AIM2SIOCE |
DO i=1,sNx |
|
./pkg/aim_v23/aim_aim2sioce.F |
231 |
AIM_AIM2SIOCE |
prcAtm(i,j) = prcAtm(i,j) * convPrcEvp |
|
./pkg/aim_v23/aim_aim2sioce.F |
233 |
AIM_AIM2SIOCE |
Qsw(i,j,bi,bj) = -Qsw(i,j,bi,bj) |
|
./pkg/aim_v23/aim_aim2sioce.F |
234 |
AIM_AIM2SIOCE |
Qnet(i,j,bi,bj)= -Qnet(i,j,bi,bj) |
|
./pkg/aim_v23/aim_aim2sioce.F |
90 |
AIM_AIM2SIOCE |
INTEGER i,j,I2 |
|
./pkg/aim_v23/aim_diagnostics.F |
322 |
AIM_DIAGNOSTICS |
TSRtave(i,j,bi,bj) = TSRtave(i,j,bi,bj) |
|
./pkg/aim_v23/aim_diagnostics.F |
324 |
AIM_DIAGNOSTICS |
OLRtave(i,j,bi,bj) = OLRtave(i,j,bi,bj) |
|
./pkg/aim_v23/aim_diagnostics.F |
326 |
AIM_DIAGNOSTICS |
SSRtave(i,j,bi,bj) = SSRtave(i,j,bi,bj) |
|
./pkg/aim_v23/aim_diagnostics.F |
328 |
AIM_DIAGNOSTICS |
SLRtave(i,j,bi,bj) = SLRtave(i,j,bi,bj) |
|
./pkg/aim_v23/aim_diagnostics.F |
330 |
AIM_DIAGNOSTICS |
SHFtave(i,j,bi,bj) = SHFtave(i,j,bi,bj) |
|
./pkg/aim_v23/aim_diagnostics.F |
332 |
AIM_DIAGNOSTICS |
EVAPtave(i,j,bi,bj) = EVAPtave(i,j,bi,bj) |
|
./pkg/aim_v23/aim_diagnostics.F |
334 |
AIM_DIAGNOSTICS |
PRECNVtave(i,j,bi,bj) = PRECNVtave(i,j,bi,bj) |
|
./pkg/aim_v23/aim_diagnostics.F |
336 |
AIM_DIAGNOSTICS |
PRECLStave(i,j,bi,bj) = PRECLStave(i,j,bi,bj) |
|
./pkg/aim_v23/aim_diagnostics.F |
338 |
AIM_DIAGNOSTICS |
CLOUDCtave(i,j,bi,bj) = CLOUDCtave(i,j,bi,bj) |
|
./pkg/aim_v23/aim_diagnostics.F |
340 |
AIM_DIAGNOSTICS |
CLTOPtave(i,j,bi,bj) = CLTOPtave(i,j,bi,bj) |
|
./pkg/aim_v23/aim_diagnostics.F |
342 |
AIM_DIAGNOSTICS |
CBMFtave(i,j,bi,bj) = CBMFtave(i,j,bi,bj) |
|
./pkg/aim_v23/aim_diagnostics.F |
344 |
AIM_DIAGNOSTICS |
DRAGtave(i,j,bi,bj) = DRAGtave(i,j,bi,bj) |
|
./pkg/aim_v23/aim_diagnostics.F |
346 |
AIM_DIAGNOSTICS |
aimV0tave(i,j,bi,bj) = aimV0tave(i,j,bi,bj) |
|
./pkg/aim_v23/aim_diagnostics.F |
348 |
AIM_DIAGNOSTICS |
aimT0tave(i,j,bi,bj) = aimT0tave(i,j,bi,bj) |
|
./pkg/aim_v23/aim_diagnostics.F |
350 |
AIM_DIAGNOSTICS |
aimQ0tave(i,j,bi,bj) = aimQ0tave(i,j,bi,bj) |
|
./pkg/aim_v23/aim_diagnostics.F |
352 |
AIM_DIAGNOSTICS |
EnFxPrtave(i,j,bi,bj) = EnFxPrtave(i,j,bi,bj) |
|
./pkg/aim_v23/aim_diagnostics.F |
356 |
AIM_DIAGNOSTICS |
albedotave(i,j,bi,bj) = albedotave(i,j,bi,bj) |
|
./pkg/aim_v23/aim_diagnostics.F |
358 |
AIM_DIAGNOSTICS |
dTsurftave(i,j,bi,bj) = dTsurftave(i,j,bi,bj) |
|
./pkg/aim_v23/aim_diagnostics.F |
367 |
AIM_DIAGNOSTICS |
DO i=1,sNx |
|
./pkg/aim_v23/aim_diagnostics.F |
368 |
AIM_DIAGNOSTICS |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_diagnostics.F |
369 |
AIM_DIAGNOSTICS |
aimRHtave(i,j,k,bi,bj) = aimRHtave(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_do_co2.F |
54 |
AIM_DO_CO2 |
INTEGER bi, bj, i, j |
|
./pkg/aim_v23/aim_do_co2.F |
71 |
AIM_DO_CO2 |
DO i=1,sNx |
|
./pkg/aim_v23/aim_do_co2.F |
72 |
AIM_DO_CO2 |
aimflxCo2(i,j,bi,bj) = flxCO2ocn(i,j,bi,bj) |
|
./pkg/aim_v23/aim_do_co2.F |
87 |
AIM_DO_CO2 |
DO i=1,sNx |
|
./pkg/aim_v23/aim_do_co2.F |
88 |
AIM_DO_CO2 |
flxCO2tile(bi,bj)=flxCO2tile(bi,bj) + aimflxCo2(i,j,bi,bj) |
|
./pkg/aim_v23/aim_do_co2.F |
89 |
AIM_DO_CO2 |
& * rA(i,j,bi,bj) * deltaT |
|
./pkg/aim_v23/aim_do_physics.F |
100 |
AIM_DO_PHYSICS |
& salt(i,j,k,bi,bj) = salt(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_do_physics.F |
101 |
AIM_DO_PHYSICS |
& + salt(i,j,Nr,bi,bj)*drF(Nr)*recip_drF(k) |
|
./pkg/aim_v23/aim_do_physics.F |
102 |
AIM_DO_PHYSICS |
& *hFacC(i,j,Nr,bi,bj)*recip_hFacC(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_do_physics.F |
103 |
AIM_DO_PHYSICS |
salt(i,j,Nr,bi,bj) = 0. |
|
./pkg/aim_v23/aim_do_physics.F |
133 |
AIM_DO_PHYSICS |
DO i=1,sNx |
|
./pkg/aim_v23/aim_do_physics.F |
134 |
AIM_DO_PHYSICS |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_do_physics.F |
135 |
AIM_DO_PHYSICS |
PHI0(I2) = gravity*topoZ(i,j,bi,bj) |
|
./pkg/aim_v23/aim_do_physics.F |
183 |
AIM_DO_PHYSICS |
DO i = 1-OLx, sNx+OLx |
|
./pkg/aim_v23/aim_do_physics.F |
184 |
AIM_DO_PHYSICS |
qPrcRn(i,j) = 0. |
|
./pkg/aim_v23/aim_do_physics.F |
75 |
AIM_DO_PHYSICS |
INTEGER i,j,k,I2 |
|
./pkg/aim_v23/aim_do_physics.F |
97 |
AIM_DO_PHYSICS |
DO i = 1-OLx, sNx+OLx |
|
./pkg/aim_v23/aim_do_physics.F |
98 |
AIM_DO_PHYSICS |
k = kSurfC(i,j,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
113 |
AIM_DYN2AIM |
DO i = 1,sNx |
|
./pkg/aim_v23/aim_dyn2aim.F |
114 |
AIM_DYN2AIM |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_dyn2aim.F |
115 |
AIM_DYN2AIM |
dpFac(I2,Katm) = h0FacC(i,j,k,bi,bj)*rStarFacC(i,j,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
124 |
AIM_DYN2AIM |
DO i = 1,sNx |
|
./pkg/aim_v23/aim_dyn2aim.F |
125 |
AIM_DYN2AIM |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_dyn2aim.F |
126 |
AIM_DYN2AIM |
IF ( k.EQ.kSurfC(i,j,bi,bj) ) THEN |
|
./pkg/aim_v23/aim_dyn2aim.F |
127 |
AIM_DYN2AIM |
dpFac(I2,Katm) = hFac_surfC(i,j,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
129 |
AIM_DYN2AIM |
dpFac(I2,Katm) = hFacC(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
143 |
AIM_DYN2AIM |
DO i = 1,sNx |
|
./pkg/aim_v23/aim_dyn2aim.F |
144 |
AIM_DYN2AIM |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_dyn2aim.F |
145 |
AIM_DYN2AIM |
dpFac(I2,Katm) = hFacC(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
166 |
AIM_DYN2AIM |
DO i = 1,sNx |
|
./pkg/aim_v23/aim_dyn2aim.F |
167 |
AIM_DYN2AIM |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_dyn2aim.F |
168 |
AIM_DYN2AIM |
IF ( maskC(i,j,k,bi,bj).EQ.oneRS ) THEN |
|
./pkg/aim_v23/aim_dyn2aim.F |
172 |
AIM_DYN2AIM |
TA(I2,Katm) = theta(i,j,k,bi,bj)*conv_theta2T |
|
./pkg/aim_v23/aim_dyn2aim.F |
176 |
AIM_DYN2AIM |
QA(I2,Katm) = MAX( salt(i,j,k,bi,bj), zeroRL ) |
|
./pkg/aim_v23/aim_dyn2aim.F |
178 |
AIM_DYN2AIM |
ThA(I2,Katm) = theta(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
189 |
AIM_DYN2AIM |
DO i = 1,sNx |
|
./pkg/aim_v23/aim_dyn2aim.F |
190 |
AIM_DYN2AIM |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_dyn2aim.F |
191 |
AIM_DYN2AIM |
TA(I2,Katm) = TA(I2,Katm)*pStarFacK(i,j,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
200 |
AIM_DYN2AIM |
DO i = 1,sNx |
|
./pkg/aim_v23/aim_dyn2aim.F |
201 |
AIM_DYN2AIM |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_dyn2aim.F |
202 |
AIM_DYN2AIM |
k = kSurfC(i,j,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
205 |
AIM_DYN2AIM |
& uVel(i,j,k,bi,bj)*uVel(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
206 |
AIM_DYN2AIM |
& + uVel(i+1,j,k,bi,bj)*uVel(i+1,j,k,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
207 |
AIM_DYN2AIM |
& + vVel(i,j,k,bi,bj)*vVel(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
208 |
AIM_DYN2AIM |
& + vVel(i,j+1,k,bi,bj)*vVel(i,j+1,k,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
222 |
AIM_DYN2AIM |
i = 1 + mod((I2-1),sNx) |
|
./pkg/aim_v23/aim_dyn2aim.F |
230 |
AIM_DYN2AIM |
& i,j,k,bi,bj,myThid,I2,xC(i,j,bi,bj),yC(i,j,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
249 |
AIM_DYN2AIM |
DO i = 1,sNx |
|
./pkg/aim_v23/aim_dyn2aim.F |
250 |
AIM_DYN2AIM |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_dyn2aim.F |
68 |
AIM_DYN2AIM |
INTEGER i, j, I2, k, Katm |
|
./pkg/aim_v23/aim_dyn2aim.F |
77 |
AIM_DYN2AIM |
DO i = 1,sNx |
|
./pkg/aim_v23/aim_dyn2aim.F |
78 |
AIM_DYN2AIM |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_dyn2aim.F |
79 |
AIM_DYN2AIM |
snLat(I2,myThid) = SIN(yC(i,j,bi,bj)*deg2rad) |
|
./pkg/aim_v23/aim_dyn2aim.F |
80 |
AIM_DYN2AIM |
csLat(I2,myThid) = COS(yC(i,j,bi,bj)*deg2rad) |
|
./pkg/aim_v23/aim_dyn2aim.F |
86 |
AIM_DYN2AIM |
DO i = 1,sNx |
|
./pkg/aim_v23/aim_dyn2aim.F |
87 |
AIM_DYN2AIM |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_dyn2aim.F |
88 |
AIM_DYN2AIM |
kGrd(I2) = (Nr+1) - kSurfC(i,j,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
94 |
AIM_DYN2AIM |
DO i=1,sNx |
|
./pkg/aim_v23/aim_dyn2aim.F |
95 |
AIM_DYN2AIM |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_dyn2aim.F |
96 |
AIM_DYN2AIM |
k = kSurfC(i,j,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
99 |
AIM_DYN2AIM |
PSA(I2) = Ro_surf(i,j,bi,bj)/atm_Po |
|
./pkg/aim_v23/aim_fields_load.F |
160 |
AIM_FIELDS_LOAD |
DO i=1,sNx |
|
./pkg/aim_v23/aim_fields_load.F |
176 |
AIM_FIELDS_LOAD |
DO i=1,sNx |
|
./pkg/aim_v23/aim_fields_load.F |
178 |
AIM_FIELDS_LOAD |
aim_sst0(i,j,bi,bj) = aim_sst0(i,j,bi,bj) |
|
./pkg/aim_v23/aim_fields_load.F |
179 |
AIM_FIELDS_LOAD |
& * truncSurfP(i,j,bi,bj) |
|
./pkg/aim_v23/aim_fields_load.F |
204 |
AIM_FIELDS_LOAD |
DO i=1-Olx,sNx+Olx |
|
./pkg/aim_v23/aim_fields_load.F |
206 |
AIM_FIELDS_LOAD |
aim_albedo(i,j,bi,bj)= 0. |
|
./pkg/aim_v23/aim_fields_load.F |
207 |
AIM_FIELDS_LOAD |
aim_veget(i,j,bi,bj) = 0. |
|
./pkg/aim_v23/aim_fields_load.F |
208 |
AIM_FIELDS_LOAD |
aim_sst0(i,j,bi,bj) =300. |
|
./pkg/aim_v23/aim_fields_load.F |
209 |
AIM_FIELDS_LOAD |
aim_lst0(i,j,bi,bj) =300. |
|
./pkg/aim_v23/aim_fields_load.F |
210 |
AIM_FIELDS_LOAD |
aim_oic0(i,j,bi,bj) = 0. |
|
./pkg/aim_v23/aim_fields_load.F |
211 |
AIM_FIELDS_LOAD |
aim_snw0(i,j,bi,bj) = 0. |
|
./pkg/aim_v23/aim_fields_load.F |
212 |
AIM_FIELDS_LOAD |
aim_sw10(i,j,bi,bj) = 0. |
|
./pkg/aim_v23/aim_fields_load.F |
213 |
AIM_FIELDS_LOAD |
aim_sw20(i,j,bi,bj) = 0. |
|
./pkg/aim_v23/aim_fields_load.F |
214 |
AIM_FIELDS_LOAD |
aim_qfx0(i,j,bi,bj) = 0. |
|
./pkg/aim_v23/aim_fields_load.F |
215 |
AIM_FIELDS_LOAD |
aim_sst1(i,j,bi,bj) =300. |
|
./pkg/aim_v23/aim_fields_load.F |
216 |
AIM_FIELDS_LOAD |
aim_lst1(i,j,bi,bj) =300. |
|
./pkg/aim_v23/aim_fields_load.F |
217 |
AIM_FIELDS_LOAD |
aim_oic1(i,j,bi,bj) = 0. |
|
./pkg/aim_v23/aim_fields_load.F |
218 |
AIM_FIELDS_LOAD |
aim_snw1(i,j,bi,bj) = 0. |
|
./pkg/aim_v23/aim_fields_load.F |
219 |
AIM_FIELDS_LOAD |
aim_sw11(i,j,bi,bj) = 0. |
|
./pkg/aim_v23/aim_fields_load.F |
220 |
AIM_FIELDS_LOAD |
aim_sw21(i,j,bi,bj) = 0. |
|
./pkg/aim_v23/aim_fields_load.F |
221 |
AIM_FIELDS_LOAD |
aim_qfx1(i,j,bi,bj) = 0. |
|
./pkg/aim_v23/aim_fields_load.F |
295 |
AIM_FIELDS_LOAD |
DO i=1,sNx |
|
./pkg/aim_v23/aim_fields_load.F |
296 |
AIM_FIELDS_LOAD |
aim_albedo(i,j,bi,bj) = aim_albedo(I,J,bi,bj)/100. _d 0 |
|
./pkg/aim_v23/aim_fields_load.F |
303 |
AIM_FIELDS_LOAD |
DO i=1,sNx |
|
./pkg/aim_v23/aim_fields_load.F |
304 |
AIM_FIELDS_LOAD |
aim_veget(i,j,bi,bj) = |
|
./pkg/aim_v23/aim_fields_load.F |
305 |
AIM_FIELDS_LOAD |
& MAX(0. _d 0, aim_veget(i,j,bi,bj)/100. _d 0) |
|
./pkg/aim_v23/aim_fields_load.F |
314 |
AIM_FIELDS_LOAD |
DO i=1,sNx |
|
./pkg/aim_v23/aim_fields_load.F |
316 |
AIM_FIELDS_LOAD |
aim_lst0(i,j,bi,bj) = aim_lst0(i,j,bi,bj) |
|
./pkg/aim_v23/aim_fields_load.F |
317 |
AIM_FIELDS_LOAD |
& * truncSurfP(i,j,bi,bj) |
|
./pkg/aim_v23/aim_fields_load.F |
318 |
AIM_FIELDS_LOAD |
aim_lst1(i,j,bi,bj) = aim_lst1(i,j,bi,bj) |
|
./pkg/aim_v23/aim_fields_load.F |
319 |
AIM_FIELDS_LOAD |
& * truncSurfP(i,j,bi,bj) |
|
./pkg/aim_v23/aim_fields_load.F |
57 |
AIM_FIELDS_LOAD |
INTEGER bi,bj, i, j |
|
./pkg/aim_v23/aim_initialise.F |
109 |
AIM_INITIALISE |
DO i=1-Olx,sNx+Olx |
|
./pkg/aim_v23/aim_initialise.F |
110 |
AIM_INITIALISE |
aim_landFr (i,j,bi,bj) = 0. |
|
./pkg/aim_v23/aim_initialise.F |
49 |
AIM_INITIALISE |
INTEGER i, j, k |
|
./pkg/aim_v23/aim_initialise.F |
87 |
AIM_INITIALISE |
DO i=1,sNx |
|
./pkg/aim_v23/aim_initialise.F |
88 |
AIM_INITIALISE |
tmpPgrnd = truncSurfP(i,j,bi,bj) |
|
./pkg/aim_v23/aim_initialise.F |
89 |
AIM_INITIALISE |
tmpVar = Ro_surf(i,j,bi,bj) |
|
./pkg/aim_v23/aim_initialise.F |
91 |
AIM_INITIALISE |
truncSurfP(i,j,bi,bj) = ( tmpVar/tmpPgrnd )**atm_kappa |
|
./pkg/aim_v23/aim_initialise.F |
96 |
AIM_INITIALISE |
DO i=1,sNx |
|
./pkg/aim_v23/aim_initialise.F |
97 |
AIM_INITIALISE |
tmpVar = Ro_surf(i,j,bi,bj) |
|
./pkg/aim_v23/aim_initialise.F |
98 |
AIM_INITIALISE |
truncSurfP(i,j,bi,bj) = ( tmpVar/atm_Po )**atm_kappa |
|
./pkg/aim_v23/aim_land2aim.F |
103 |
AIM_LAND2AIM |
DO i=1,sNx |
|
./pkg/aim_v23/aim_land2aim.F |
104 |
AIM_LAND2AIM |
land_groundT(i,j,k,bi,bj) = aimTld(i,j)-celsius2K |
|
./pkg/aim_v23/aim_land2aim.F |
109 |
AIM_LAND2AIM |
DO i=1,sNx |
|
./pkg/aim_v23/aim_land2aim.F |
110 |
AIM_LAND2AIM |
land_skinT(i,j,bi,bj) = land_groundT(i,j,1,bi,bj) |
|
./pkg/aim_v23/aim_land2aim.F |
123 |
AIM_LAND2AIM |
DO i=1,sNx |
|
./pkg/aim_v23/aim_land2aim.F |
124 |
AIM_LAND2AIM |
aimSWA(i,j) = land_groundW(i,j,1,bi,bj) |
|
./pkg/aim_v23/aim_land2aim.F |
125 |
AIM_LAND2AIM |
& + land_hSnow(i,j,bi,bj)*recip_hSnWet |
|
./pkg/aim_v23/aim_land2aim.F |
126 |
AIM_LAND2AIM |
aimSWA(i,j) = MIN( MAX(0. _d 0, aimSWA(i,j)), 1. _d 0 ) |
|
./pkg/aim_v23/aim_land2aim.F |
136 |
AIM_LAND2AIM |
DO i=1,sNx |
|
./pkg/aim_v23/aim_land2aim.F |
137 |
AIM_LAND2AIM |
aimSWA(i,j) = land_groundW(i,j,1,bi,bj) |
|
./pkg/aim_v23/aim_land2aim.F |
138 |
AIM_LAND2AIM |
& + snowFld(i,j)*recip_mSnWet |
|
./pkg/aim_v23/aim_land2aim.F |
139 |
AIM_LAND2AIM |
aimSWA(i,j) = MIN( MAX(0. _d 0, aimSWA(i,j)), 1. _d 0 ) |
|
./pkg/aim_v23/aim_land2aim.F |
149 |
AIM_LAND2AIM |
DO i=1,sNx |
|
./pkg/aim_v23/aim_land2aim.F |
150 |
AIM_LAND2AIM |
land_groundW(i,j,k,bi,bj) = aimSWA(i,j) |
|
./pkg/aim_v23/aim_land2aim.F |
159 |
AIM_LAND2AIM |
DO i=1,sNx |
|
./pkg/aim_v23/aim_land2aim.F |
163 |
AIM_LAND2AIM |
& *land_groundW(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_land2aim.F |
166 |
AIM_LAND2AIM |
land_enthalp(i,j,k,bi,bj) = |
|
./pkg/aim_v23/aim_land2aim.F |
167 |
AIM_LAND2AIM |
& grd_HeatCp*land_groundT(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_land2aim.F |
190 |
AIM_LAND2AIM |
DO i=1,sNx |
|
./pkg/aim_v23/aim_land2aim.F |
191 |
AIM_LAND2AIM |
aimAlb(i,j) = grnd_alb(i,j,bi,bj) |
|
./pkg/aim_v23/aim_land2aim.F |
192 |
AIM_LAND2AIM |
& + MAX( 0. _d 0, ALBSN-grnd_alb(i,j,bi,bj) ) |
|
./pkg/aim_v23/aim_land2aim.F |
193 |
AIM_LAND2AIM |
& *MIN( 1. _d 0, RSD*snowFld(i,j) ) |
|
./pkg/aim_v23/aim_land2aim.F |
84 |
AIM_LAND2AIM |
INTEGER i,j,k |
|
./pkg/aim_v23/aim_land2aim.F |
95 |
AIM_LAND2AIM |
DO i=1,sNx |
|
./pkg/aim_v23/aim_land2aim.F |
96 |
AIM_LAND2AIM |
aimTld(i,j) = land_skinT(i,j,bi,bj)+celsius2K |
|
./pkg/aim_v23/aim_land_impl.F |
101 |
AIM_LAND_IMPL |
DO i=1,sNx |
|
./pkg/aim_v23/aim_land_impl.F |
102 |
AIM_LAND_IMPL |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_land_impl.F |
103 |
AIM_LAND_IMPL |
IF ( land_skinT(i,j,bi,bj).LT. 0. _d 0 .OR. |
|
./pkg/aim_v23/aim_land_impl.F |
104 |
AIM_LAND_IMPL |
& land_hSnow(i,j,bi,bj).GT. 0. _d 0 ) THEN |
|
./pkg/aim_v23/aim_land_impl.F |
108 |
AIM_LAND_IMPL |
land_EnWFlux(i,j,bi,bj) = -ALHF |
|
./pkg/aim_v23/aim_land_impl.F |
136 |
AIM_LAND_IMPL |
DO i=1,sNx |
|
./pkg/aim_v23/aim_land_impl.F |
137 |
AIM_LAND_IMPL |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_land_impl.F |
140 |
AIM_LAND_IMPL |
land_HeatFlx(i,j,bi,bj) = sFlx(I2,0) |
|
./pkg/aim_v23/aim_land_impl.F |
142 |
AIM_LAND_IMPL |
land_HeatFlx(i,j,bi,bj) = sFlx(I2,1)+dTsurf(I2)*sFlx(I2,2) |
|
./pkg/aim_v23/aim_land_impl.F |
145 |
AIM_LAND_IMPL |
land_EnWFlux(i,j,bi,bj) = -land_EnWFlux(i,j,bi,bj)*EVAP(I2) |
|
./pkg/aim_v23/aim_land_impl.F |
81 |
AIM_LAND_IMPL |
INTEGER i,j, I2 |
|
./pkg/aim_v23/aim_land_impl.F |
87 |
AIM_LAND_IMPL |
DO i=1,sNx |
|
./pkg/aim_v23/aim_land_impl.F |
88 |
AIM_LAND_IMPL |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_land_impl.F |
92 |
AIM_LAND_IMPL |
land_Pr_m_Ev(i,j,bi,bj) = 0. _d 0 |
|
./pkg/aim_v23/aim_land_impl.F |
93 |
AIM_LAND_IMPL |
land_EnWFlux(i,j,bi,bj) = 0. _d 0 |
|
./pkg/aim_v23/aim_mnc_init.F |
148 |
AIM_MNC_INIT |
DO i = 1,CW_MAX_LOC |
|
./pkg/aim_v23/aim_mnc_init.F |
150 |
AIM_MNC_INIT |
dn(i)(j:j) = ' ' |
|
./pkg/aim_v23/aim_mnc_init.F |
152 |
AIM_MNC_INIT |
dim(i) = 0 |
|
./pkg/aim_v23/aim_mnc_init.F |
153 |
AIM_MNC_INIT |
ib(i) = 0 |
|
./pkg/aim_v23/aim_mnc_init.F |
154 |
AIM_MNC_INIT |
ie(i) = 0 |
|
./pkg/aim_v23/aim_mnc_init.F |
33 |
AIM_MNC_INIT |
INTEGER i,j, ndim |
|
./pkg/aim_v23/aim_sice2aim.F |
112 |
AIM_SICE2AIM |
DO i=1,sNx |
|
./pkg/aim_v23/aim_sice2aim.F |
113 |
AIM_SICE2AIM |
aimAlb(i,j) = siceAlb(i,j,bi,bj) |
|
./pkg/aim_v23/aim_sice2aim.F |
119 |
AIM_SICE2AIM |
DO i=1,sNx |
|
./pkg/aim_v23/aim_sice2aim.F |
120 |
AIM_SICE2AIM |
aimAlb(i,j) = ALBICE |
|
./pkg/aim_v23/aim_sice2aim.F |
136 |
AIM_SICE2AIM |
DO i=1,sNx |
|
./pkg/aim_v23/aim_sice2aim.F |
137 |
AIM_SICE2AIM |
IF ( land_frc(i,j,bi,bj) .LT. 1. _d 0 ) THEN |
|
./pkg/aim_v23/aim_sice2aim.F |
138 |
AIM_SICE2AIM |
tOceMxL(i,j,bi,bj) = aimTsoce(i,j)-celsius2K |
|
./pkg/aim_v23/aim_sice2aim.F |
139 |
AIM_SICE2AIM |
sOceMxL(i,j,bi,bj) = sMxL_default |
|
./pkg/aim_v23/aim_sice2aim.F |
155 |
AIM_SICE2AIM |
DO i=1,sNx |
|
./pkg/aim_v23/aim_sice2aim.F |
156 |
AIM_SICE2AIM |
IF ( land_frc(i,j,bi,bj) .LT. 1. _d 0 ) THEN |
|
./pkg/aim_v23/aim_sice2aim.F |
157 |
AIM_SICE2AIM |
aimTsoce(i,j) = tOceMxL(i,j,bi,bj)+celsius2K |
|
./pkg/aim_v23/aim_sice2aim.F |
79 |
AIM_SICE2AIM |
INTEGER i,j |
|
./pkg/aim_v23/aim_sice2aim.F |
84 |
AIM_SICE2AIM |
DO i=1,sNx |
|
./pkg/aim_v23/aim_sice2aim.F |
85 |
AIM_SICE2AIM |
aimTsice(i,j) = Tsrf(i,j,bi,bj)+celsius2K |
|
./pkg/aim_v23/aim_sice2aim.F |
86 |
AIM_SICE2AIM |
aimSIfrc(i,j) = iceMask(i,j,bi,bj) |
|
./pkg/aim_v23/aim_sice2aim.F |
92 |
AIM_SICE2AIM |
DO i=1,sNx |
|
./pkg/aim_v23/aim_sice2aim.F |
93 |
AIM_SICE2AIM |
Tsrf (i,j,bi,bj) = aimTsice(i,j)-celsius2K |
|
./pkg/aim_v23/aim_sice2aim.F |
94 |
AIM_SICE2AIM |
Tice1(i,j,bi,bj) = Tsrf (i,j,bi,bj) |
|
./pkg/aim_v23/aim_sice2aim.F |
95 |
AIM_SICE2AIM |
Tice2(i,j,bi,bj) = Tsrf (i,j,bi,bj) |
|
./pkg/aim_v23/aim_sice2aim.F |
96 |
AIM_SICE2AIM |
iceMask(i,j,bi,bj) = aimSIfrc(i,j) |
|
./pkg/aim_v23/aim_surf_bc.F |
101 |
AIM_SURF_BC |
DO i=1,sNx |
|
./pkg/aim_v23/aim_surf_bc.F |
102 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_surf_bc.F |
103 |
AIM_SURF_BC |
fMask1(I2,1,myThid) = aim_landFr(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
141 |
AIM_SURF_BC |
DO i=1,sNx |
|
./pkg/aim_v23/aim_surf_bc.F |
142 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_surf_bc.F |
143 |
AIM_SURF_BC |
sst1(I2,myThid) = aim_sWght0*aim_sst0(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
144 |
AIM_SURF_BC |
& + aim_sWght1*aim_sst1(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
145 |
AIM_SURF_BC |
stl1(I2,myThid) = aim_sWght0*aim_lst0(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
146 |
AIM_SURF_BC |
& + aim_sWght1*aim_lst1(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
159 |
AIM_SURF_BC |
DO i=1,sNx |
|
./pkg/aim_v23/aim_surf_bc.F |
160 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_surf_bc.F |
161 |
AIM_SURF_BC |
soilw_0 = ( aim_sw10(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
162 |
AIM_SURF_BC |
& +aim_veget(i,j,bi,bj)* |
|
./pkg/aim_v23/aim_surf_bc.F |
163 |
AIM_SURF_BC |
& MAX(IDEP2*aim_sw20(i,j,bi,bj)-SWWIL2, 0. _d 0) |
|
./pkg/aim_v23/aim_surf_bc.F |
165 |
AIM_SURF_BC |
soilw_1 = ( aim_sw11(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
166 |
AIM_SURF_BC |
& +aim_veget(i,j,bi,bj)* |
|
./pkg/aim_v23/aim_surf_bc.F |
167 |
AIM_SURF_BC |
& MAX(IDEP2*aim_sw21(i,j,bi,bj)-SWWIL2, 0. _d 0) |
|
./pkg/aim_v23/aim_surf_bc.F |
177 |
AIM_SURF_BC |
DO i=1,sNx |
|
./pkg/aim_v23/aim_surf_bc.F |
178 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_surf_bc.F |
179 |
AIM_SURF_BC |
snow1(I2) = aim_sWght0*aim_snw0(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
180 |
AIM_SURF_BC |
& + aim_sWght1*aim_snw1(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
181 |
AIM_SURF_BC |
oice1(I2) = aim_sWght0*aim_oic0(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
182 |
AIM_SURF_BC |
& + aim_sWght1*aim_oic1(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
220 |
AIM_SURF_BC |
DO i=1,sNx |
|
./pkg/aim_v23/aim_surf_bc.F |
225 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_surf_bc.F |
226 |
AIM_SURF_BC |
alb_land = aim_albedo(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
227 |
AIM_SURF_BC |
& + MAX( 0. _d 0, ALBSN-aim_albedo(i,j,bi,bj) ) |
|
./pkg/aim_v23/aim_surf_bc.F |
234 |
AIM_SURF_BC |
SJ = SIN(yC(i,j,bi,bj) * deg2rad) |
|
./pkg/aim_v23/aim_surf_bc.F |
235 |
AIM_SURF_BC |
CJ = COS(yC(i,j,bi,bj) * deg2rad) |
|
./pkg/aim_v23/aim_surf_bc.F |
284 |
AIM_SURF_BC |
DO i=1,sNx |
|
./pkg/aim_v23/aim_surf_bc.F |
285 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_surf_bc.F |
286 |
AIM_SURF_BC |
alb1(I2,1,myThid) = aim_albedo(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
287 |
AIM_SURF_BC |
alb1(I2,2,myThid) = aim_albedo(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
288 |
AIM_SURF_BC |
alb1(I2,3,myThid) = aim_albedo(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
293 |
AIM_SURF_BC |
DO i=1,sNx |
|
./pkg/aim_v23/aim_surf_bc.F |
294 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_surf_bc.F |
304 |
AIM_SURF_BC |
DO i=1,sNx |
|
./pkg/aim_v23/aim_surf_bc.F |
305 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_surf_bc.F |
306 |
AIM_SURF_BC |
sst1(I2,myThid) = aim_sst0(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
307 |
AIM_SURF_BC |
stl1(I2,myThid) = aim_sst0(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
308 |
AIM_SURF_BC |
sti1(I2,myThid) = aim_sst0(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
313 |
AIM_SURF_BC |
DO i=1,sNx |
|
./pkg/aim_v23/aim_surf_bc.F |
314 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_surf_bc.F |
325 |
AIM_SURF_BC |
DO i=1,sNx |
|
./pkg/aim_v23/aim_surf_bc.F |
326 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_surf_bc.F |
327 |
AIM_SURF_BC |
soilw1(I2,myThid) = aim_sw10(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
332 |
AIM_SURF_BC |
DO i=1,sNx |
|
./pkg/aim_v23/aim_surf_bc.F |
333 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_surf_bc.F |
342 |
AIM_SURF_BC |
DO i=1,sNx |
|
./pkg/aim_v23/aim_surf_bc.F |
343 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_surf_bc.F |
365 |
AIM_SURF_BC |
DO i=1-OLx,sNx+OLx |
|
./pkg/aim_v23/aim_surf_bc.F |
366 |
AIM_SURF_BC |
aim_CO2(i,j,bi,bj)= atm_pCO2 |
|
./pkg/aim_v23/aim_surf_bc.F |
86 |
AIM_SURF_BC |
INTEGER i,j,I2,k, nm0 |
|
./pkg/aim_v23/aim_tendency_apply.F |
100 |
AIM_TENDENCY_APPLY_U |
aim_dKE(i,j) = |
|
./pkg/aim_v23/aim_tendency_apply.F |
101 |
AIM_TENDENCY_APPLY_U |
& -uVel(i,j,k,bi,bj)*uVel(i,j,k,bi,bj)/aim_dragStrato |
|
./pkg/aim_v23/aim_tendency_apply.F |
102 |
AIM_TENDENCY_APPLY_U |
& *hFacW(i,j,k,bi,bj)*drF(k)*rUnit2mass |
|
./pkg/aim_v23/aim_tendency_apply.F |
108 |
AIM_TENDENCY_APPLY_U |
DO i=iMin,iMax |
|
./pkg/aim_v23/aim_tendency_apply.F |
109 |
AIM_TENDENCY_APPLY_U |
IF ( maskW(i,j,k,bi,bj) .NE. 0. ) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
111 |
AIM_TENDENCY_APPLY_U |
& -( aim_drag(i-1,j,bi,bj)+aim_drag(i,j,bi,bj) ) |
|
./pkg/aim_v23/aim_tendency_apply.F |
112 |
AIM_TENDENCY_APPLY_U |
& * 0.5 _d 0 * uVel(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
113 |
AIM_TENDENCY_APPLY_U |
gU_arr(i,j) = gU_arr(i,j) |
|
./pkg/aim_v23/aim_tendency_apply.F |
115 |
AIM_TENDENCY_APPLY_U |
& * recip_hFacW(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
117 |
AIM_TENDENCY_APPLY_U |
aim_uStress(i,j,bi,bj) = uStr_tmp |
|
./pkg/aim_v23/aim_tendency_apply.F |
120 |
AIM_TENDENCY_APPLY_U |
aim_dKE(i,j) = uStr_tmp * uVel(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
122 |
AIM_TENDENCY_APPLY_U |
aim_dKE(i,j) = 0. |
|
./pkg/aim_v23/aim_tendency_apply.F |
129 |
AIM_TENDENCY_APPLY_U |
DO i=iMin,iMax |
|
./pkg/aim_v23/aim_tendency_apply.F |
130 |
AIM_TENDENCY_APPLY_U |
IF ( maskW(i,j,k-1,bi,bj) .EQ. 0. |
|
./pkg/aim_v23/aim_tendency_apply.F |
131 |
AIM_TENDENCY_APPLY_U |
& .AND. maskW(i,j,k,bi,bj) .NE. 0. ) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
133 |
AIM_TENDENCY_APPLY_U |
& -( (1.-maskC(i-1,j,k-1,bi,bj))*aim_drag(i-1,j,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
134 |
AIM_TENDENCY_APPLY_U |
& +(1.-maskC( i ,j,k-1,bi,bj))*aim_drag( i ,j,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
135 |
AIM_TENDENCY_APPLY_U |
& )* 0.5 _d 0 * uVel(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
136 |
AIM_TENDENCY_APPLY_U |
gU_arr(i,j) = gU_arr(i,j) |
|
./pkg/aim_v23/aim_tendency_apply.F |
138 |
AIM_TENDENCY_APPLY_U |
& * recip_hFacW(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
140 |
AIM_TENDENCY_APPLY_U |
aim_uStress(i,j,bi,bj) = uStr_tmp |
|
./pkg/aim_v23/aim_tendency_apply.F |
143 |
AIM_TENDENCY_APPLY_U |
aim_dKE(i,j) = uStr_tmp * uVel(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
145 |
AIM_TENDENCY_APPLY_U |
aim_dKE(i,j) = 0. |
|
./pkg/aim_v23/aim_tendency_apply.F |
156 |
AIM_TENDENCY_APPLY_U |
DO i=1,sNx |
|
./pkg/aim_v23/aim_tendency_apply.F |
157 |
AIM_TENDENCY_APPLY_U |
frictionHeating(i,j,k,bi,bj) = frictionHeating(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
158 |
AIM_TENDENCY_APPLY_U |
& - halfRL * ( aim_dKE( i, j)*rAw( i, j,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
159 |
AIM_TENDENCY_APPLY_U |
& + aim_dKE(i+1,j)*rAw(i+1,j,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
160 |
AIM_TENDENCY_APPLY_U |
& )*recip_rA(i,j,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
175 |
AIM_TENDENCY_APPLY_U |
DO i=iMin,iMax |
|
./pkg/aim_v23/aim_tendency_apply.F |
176 |
AIM_TENDENCY_APPLY_U |
aim_KEuStr(i,j,bi,bj) = aim_dKE(i,j) |
|
./pkg/aim_v23/aim_tendency_apply.F |
181 |
AIM_TENDENCY_APPLY_U |
DO i=iMin,iMax |
|
./pkg/aim_v23/aim_tendency_apply.F |
182 |
AIM_TENDENCY_APPLY_U |
aim_KEuStr(i,j,bi,bj) = aim_KEuStr(i,j,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
183 |
AIM_TENDENCY_APPLY_U |
& + aim_dKE(i,j) |
|
./pkg/aim_v23/aim_tendency_apply.F |
261 |
AIM_TENDENCY_APPLY_V |
INTEGER i, j |
|
./pkg/aim_v23/aim_tendency_apply.F |
271 |
AIM_TENDENCY_APPLY_V |
DO i=1-OLx,sNx+OLx |
|
./pkg/aim_v23/aim_tendency_apply.F |
272 |
AIM_TENDENCY_APPLY_V |
aim_vStress(i,j,bi,bj) = 0. |
|
./pkg/aim_v23/aim_tendency_apply.F |
273 |
AIM_TENDENCY_APPLY_V |
aim_KEvStr(i,j,bi,bj) = 0. |
|
./pkg/aim_v23/aim_tendency_apply.F |
284 |
AIM_TENDENCY_APPLY_V |
DO i=iMin,iMax |
|
./pkg/aim_v23/aim_tendency_apply.F |
285 |
AIM_TENDENCY_APPLY_V |
gV_arr(i,j) = gV_arr(i,j) |
|
./pkg/aim_v23/aim_tendency_apply.F |
286 |
AIM_TENDENCY_APPLY_V |
& -maskS(i,j,k,bi,bj)*vVel(i,j,k,bi,bj)/aim_dragStrato |
|
./pkg/aim_v23/aim_tendency_apply.F |
288 |
AIM_TENDENCY_APPLY_V |
aim_dKE(i,j) = |
|
./pkg/aim_v23/aim_tendency_apply.F |
289 |
AIM_TENDENCY_APPLY_V |
& -vVel(i,j,k,bi,bj)*vVel(i,j,k,bi,bj)/aim_dragStrato |
|
./pkg/aim_v23/aim_tendency_apply.F |
290 |
AIM_TENDENCY_APPLY_V |
& *hFacS(i,j,k,bi,bj)*drF(k)*rUnit2mass |
|
./pkg/aim_v23/aim_tendency_apply.F |
296 |
AIM_TENDENCY_APPLY_V |
DO i=iMin,iMax |
|
./pkg/aim_v23/aim_tendency_apply.F |
297 |
AIM_TENDENCY_APPLY_V |
IF ( maskS(i,j,k,bi,bj) .NE. 0. ) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
299 |
AIM_TENDENCY_APPLY_V |
& -( aim_drag(i,j-1,bi,bj)+aim_drag(i,j,bi,bj) ) |
|
./pkg/aim_v23/aim_tendency_apply.F |
300 |
AIM_TENDENCY_APPLY_V |
& * 0.5 _d 0 * vVel(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
301 |
AIM_TENDENCY_APPLY_V |
gV_arr(i,j) = gV_arr(i,j) |
|
./pkg/aim_v23/aim_tendency_apply.F |
303 |
AIM_TENDENCY_APPLY_V |
& * recip_hFacS(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
305 |
AIM_TENDENCY_APPLY_V |
aim_vStress(i,j,bi,bj) = vStr_tmp |
|
./pkg/aim_v23/aim_tendency_apply.F |
308 |
AIM_TENDENCY_APPLY_V |
aim_dKE(i,j) = vStr_tmp * vVel(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
310 |
AIM_TENDENCY_APPLY_V |
aim_dKE(i,j) = 0. |
|
./pkg/aim_v23/aim_tendency_apply.F |
317 |
AIM_TENDENCY_APPLY_V |
DO i=iMin,iMax |
|
./pkg/aim_v23/aim_tendency_apply.F |
318 |
AIM_TENDENCY_APPLY_V |
IF ( maskS(i,j,k-1,bi,bj) .EQ. 0. |
|
./pkg/aim_v23/aim_tendency_apply.F |
319 |
AIM_TENDENCY_APPLY_V |
& .AND. maskS(i,j,k,bi,bj) .NE. 0. ) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
321 |
AIM_TENDENCY_APPLY_V |
& -( (1.-maskC(i,j-1,k-1,bi,bj))*aim_drag(i,j-1,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
322 |
AIM_TENDENCY_APPLY_V |
& +(1.-maskC(i, j ,k-1,bi,bj))*aim_drag(i, j ,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
323 |
AIM_TENDENCY_APPLY_V |
& )* 0.5 _d 0 * vVel(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
324 |
AIM_TENDENCY_APPLY_V |
gV_arr(i,j) = gV_arr(i,j) |
|
./pkg/aim_v23/aim_tendency_apply.F |
326 |
AIM_TENDENCY_APPLY_V |
& * recip_hFacS(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
328 |
AIM_TENDENCY_APPLY_V |
aim_vStress(i,j,bi,bj) = vStr_tmp |
|
./pkg/aim_v23/aim_tendency_apply.F |
331 |
AIM_TENDENCY_APPLY_V |
aim_dKE(i,j) = vStr_tmp * vVel(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
333 |
AIM_TENDENCY_APPLY_V |
aim_dKE(i,j) = 0. |
|
./pkg/aim_v23/aim_tendency_apply.F |
344 |
AIM_TENDENCY_APPLY_V |
DO i=1,sNx |
|
./pkg/aim_v23/aim_tendency_apply.F |
345 |
AIM_TENDENCY_APPLY_V |
frictionHeating(i,j,k,bi,bj) = frictionHeating(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
346 |
AIM_TENDENCY_APPLY_V |
& - halfRL * ( aim_dKE(i, j )*rAs(i, j, bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
347 |
AIM_TENDENCY_APPLY_V |
& + aim_dKE(i,j+1)*rAs(i,j+1,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
348 |
AIM_TENDENCY_APPLY_V |
& )*recip_rA(i,j,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
363 |
AIM_TENDENCY_APPLY_V |
DO i=iMin,iMax |
|
./pkg/aim_v23/aim_tendency_apply.F |
364 |
AIM_TENDENCY_APPLY_V |
aim_KEvStr(i,j,bi,bj) = aim_dKE(i,j) |
|
./pkg/aim_v23/aim_tendency_apply.F |
369 |
AIM_TENDENCY_APPLY_V |
DO i=iMin,iMax |
|
./pkg/aim_v23/aim_tendency_apply.F |
370 |
AIM_TENDENCY_APPLY_V |
aim_KEvStr(i,j,bi,bj) = aim_KEvStr(i,j,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
371 |
AIM_TENDENCY_APPLY_V |
& + aim_dKE(i,j) |
|
./pkg/aim_v23/aim_tendency_apply.F |
441 |
AIM_TENDENCY_APPLY_T |
gT_arr(i,j) = maskC(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
442 |
AIM_TENDENCY_APPLY_T |
& *( gT_arr(i,j) + aim_dTdt(i,j,k,bi,bj) ) |
|
./pkg/aim_v23/aim_tendency_apply.F |
503 |
AIM_TENDENCY_APPLY_S |
gS_arr(i,j) = maskC(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
504 |
AIM_TENDENCY_APPLY_S |
& *( gS_arr(i,j) + aim_dSdt(i,j,k,bi,bj) ) |
|
./pkg/aim_v23/aim_tendency_apply.F |
73 |
AIM_TENDENCY_APPLY_U |
INTEGER i, j |
|
./pkg/aim_v23/aim_tendency_apply.F |
83 |
AIM_TENDENCY_APPLY_U |
DO i=1-OLx,sNx+OLx |
|
./pkg/aim_v23/aim_tendency_apply.F |
84 |
AIM_TENDENCY_APPLY_U |
aim_uStress(i,j,bi,bj) = 0. |
|
./pkg/aim_v23/aim_tendency_apply.F |
85 |
AIM_TENDENCY_APPLY_U |
aim_KEuStr(i,j,bi,bj) = 0. |
|
./pkg/aim_v23/aim_tendency_apply.F |
96 |
AIM_TENDENCY_APPLY_U |
DO i=iMin,iMax |
|
./pkg/aim_v23/aim_tendency_apply.F |
97 |
AIM_TENDENCY_APPLY_U |
gU_arr(i,j) = gU_arr(i,j) |
|
./pkg/aim_v23/aim_tendency_apply.F |
98 |
AIM_TENDENCY_APPLY_U |
& -maskW(i,j,k,bi,bj)*uVel(i,j,k,bi,bj)/aim_dragStrato |
|
./pkg/aim_v23/aim_write_local.F |
52 |
AIM_WRITE_LOCAL |
INTEGER i, j, k, Katm |
|
./pkg/aim_v23/aim_write_local.F |
76 |
AIM_WRITE_LOCAL |
DO i=1,sNx |
|
./pkg/aim_v23/aim_write_local.F |
77 |
AIM_WRITE_LOCAL |
tmpFld(i,j,k) = field(i,j,Katm) |
|
./pkg/aim_v23/aim_write_local.F |
85 |
AIM_WRITE_LOCAL |
DO i=1,sNx |
|
./pkg/aim_v23/aim_write_local.F |
86 |
AIM_WRITE_LOCAL |
tmpFld(i,j,k) = field(i,j,k) |
|
./pkg/aim_v23/aim_write_phys.F |
106 |
AIM_WRITE_PHYS |
DO i=1,sNx |
|
./pkg/aim_v23/aim_write_phys.F |
107 |
AIM_WRITE_PHYS |
tmpFld(i,j,1) = field(i,j,kLev,ith) |
|
./pkg/aim_v23/aim_write_phys.F |
115 |
AIM_WRITE_PHYS |
DO i=1,sNx |
|
./pkg/aim_v23/aim_write_phys.F |
116 |
AIM_WRITE_PHYS |
tmpFld(i,j,k) = field(i,j,Katm,ith) |
|
./pkg/aim_v23/aim_write_phys.F |
124 |
AIM_WRITE_PHYS |
DO i=1,sNx |
|
./pkg/aim_v23/aim_write_phys.F |
125 |
AIM_WRITE_PHYS |
tmpFld(i,j,k) = field(i,j,k,ith) |
|
./pkg/aim_v23/aim_write_phys.F |
55 |
AIM_WRITE_PHYS |
INTEGER i, j, k, Katm, nLoc |
|
./eesupp/src/fill_cs_corner_ag_rl.F |
135 |
FILL_CS_CORNER_AG_RL |
DO i=1,OLx |
|
./eesupp/src/fill_cs_corner_ag_rl.F |
136 |
FILL_CS_CORNER_AG_RL |
uFld( 1-i , 1-j ) = vFld( 1-j , i )*negOne |
|
./eesupp/src/fill_cs_corner_ag_rl.F |
137 |
FILL_CS_CORNER_AG_RL |
vFld( 1-i , 1-j ) = uFld( 1-j , i ) |
|
./eesupp/src/fill_cs_corner_ag_rl.F |
143 |
FILL_CS_CORNER_AG_RL |
DO i=1,OLx |
|
./eesupp/src/fill_cs_corner_ag_rl.F |
144 |
FILL_CS_CORNER_AG_RL |
uFld(sNx+i, 1-j ) = vFld(sNx+j, i ) |
|
./eesupp/src/fill_cs_corner_ag_rl.F |
145 |
FILL_CS_CORNER_AG_RL |
vFld(sNx+i, 1-j ) = uFld(sNx+j, i )*negOne |
|
./eesupp/src/fill_cs_corner_ag_rl.F |
151 |
FILL_CS_CORNER_AG_RL |
DO i=1,OLx |
|
./eesupp/src/fill_cs_corner_ag_rl.F |
152 |
FILL_CS_CORNER_AG_RL |
uFld( 1-i ,sNy+j) = vFld( 1-j , sNy+1-i ) |
|
./eesupp/src/fill_cs_corner_ag_rl.F |
153 |
FILL_CS_CORNER_AG_RL |
vFld( 1-i ,sNy+j) = uFld( 1-j , sNy+1-i )*negOne |
|
./eesupp/src/fill_cs_corner_ag_rl.F |
159 |
FILL_CS_CORNER_AG_RL |
DO i=1,OLx |
|
./eesupp/src/fill_cs_corner_ag_rl.F |
160 |
FILL_CS_CORNER_AG_RL |
uFld(sNx+i,sNy+j) = vFld(sNx+j, sNy+1-i )*negOne |
|
./eesupp/src/fill_cs_corner_ag_rl.F |
161 |
FILL_CS_CORNER_AG_RL |
vFld(sNx+i,sNy+j) = uFld(sNx+j, sNy+1-i ) |
|
./eesupp/src/fill_cs_corner_ag_rl.F |
209 |
FILL_CS_CORNER_AG_RL |
DO i=1,Olx |
|
./eesupp/src/fill_cs_corner_ag_rl.F |
210 |
FILL_CS_CORNER_AG_RL |
uFld( 1-i , 1-j ) = vFld( j , 1-i ) |
|
./eesupp/src/fill_cs_corner_ag_rl.F |
211 |
FILL_CS_CORNER_AG_RL |
vFld( 1-i , 1-j ) = uFld( j , 1-i )*negOne |
|
./eesupp/src/fill_cs_corner_ag_rl.F |
217 |
FILL_CS_CORNER_AG_RL |
DO i=1,Olx |
|
./eesupp/src/fill_cs_corner_ag_rl.F |
218 |
FILL_CS_CORNER_AG_RL |
uFld(sNx+i, 1-j ) = vFld(sNx+1-j, 1-i )*negOne |
|
./eesupp/src/fill_cs_corner_ag_rl.F |
219 |
FILL_CS_CORNER_AG_RL |
vFld(sNx+i, 1-j ) = uFld(sNx+1-j, 1-i ) |
|
./eesupp/src/fill_cs_corner_ag_rl.F |
225 |
FILL_CS_CORNER_AG_RL |
DO i=1,Olx |
|
./eesupp/src/fill_cs_corner_ag_rl.F |
226 |
FILL_CS_CORNER_AG_RL |
uFld( 1-i ,sNy+j) = vFld( j ,sNy+i)*negOne |
|
./eesupp/src/fill_cs_corner_ag_rl.F |
227 |
FILL_CS_CORNER_AG_RL |
vFld( 1-i ,sNy+j) = uFld( j ,sNy+i) |
|
./eesupp/src/fill_cs_corner_ag_rl.F |
233 |
FILL_CS_CORNER_AG_RL |
DO i=1,Olx |
|
./eesupp/src/fill_cs_corner_ag_rl.F |
234 |
FILL_CS_CORNER_AG_RL |
uFld(sNx+i,sNy+j) = vFld(sNx+1-j,sNy+i) |
|
./eesupp/src/fill_cs_corner_ag_rl.F |
235 |
FILL_CS_CORNER_AG_RL |
vFld(sNx+i,sNy+j) = uFld(sNx+1-j,sNy+i)*negOne |
|
./eesupp/src/fill_cs_corner_ag_rl.F |
60 |
FILL_CS_CORNER_AG_RL |
INTEGER i,j |
|
./eesupp/src/fill_cs_corner_tr_rl.F |
105 |
FILL_CS_CORNER_TR_RL |
DO i=1,OLx |
|
./eesupp/src/fill_cs_corner_tr_rl.F |
106 |
FILL_CS_CORNER_TR_RL |
trFld(sNx+i, 1-j ) = 0. _d 0 |
|
./eesupp/src/fill_cs_corner_tr_rl.F |
112 |
FILL_CS_CORNER_TR_RL |
DO i=1,OLx |
|
./eesupp/src/fill_cs_corner_tr_rl.F |
113 |
FILL_CS_CORNER_TR_RL |
trFld( 1-i ,sNy+j) = 0. _d 0 |
|
./eesupp/src/fill_cs_corner_tr_rl.F |
119 |
FILL_CS_CORNER_TR_RL |
DO i=1,OLx |
|
./eesupp/src/fill_cs_corner_tr_rl.F |
120 |
FILL_CS_CORNER_TR_RL |
trFld(sNx+i,sNy+j) = 0. _d 0 |
|
./eesupp/src/fill_cs_corner_tr_rl.F |
167 |
FILL_CS_CORNER_TR_RL |
DO i=1,OLx |
|
./eesupp/src/fill_cs_corner_tr_rl.F |
168 |
FILL_CS_CORNER_TR_RL |
trFld( 1-i , 1-j ) = negOne*trFld( 1-j , i ) |
|
./eesupp/src/fill_cs_corner_tr_rl.F |
174 |
FILL_CS_CORNER_TR_RL |
DO i=1,OLx |
|
./eesupp/src/fill_cs_corner_tr_rl.F |
175 |
FILL_CS_CORNER_TR_RL |
trFld(sNx+i, 1-j ) = negOne*trFld(sNx+j, i ) |
|
./eesupp/src/fill_cs_corner_tr_rl.F |
181 |
FILL_CS_CORNER_TR_RL |
DO i=1,OLx |
|
./eesupp/src/fill_cs_corner_tr_rl.F |
182 |
FILL_CS_CORNER_TR_RL |
trFld( 1-i ,sNy+j) = negOne*trFld( 1-j , sNy+1-i ) |
|
./eesupp/src/fill_cs_corner_tr_rl.F |
188 |
FILL_CS_CORNER_TR_RL |
DO i=1,OLx |
|
./eesupp/src/fill_cs_corner_tr_rl.F |
189 |
FILL_CS_CORNER_TR_RL |
trFld(sNx+i,sNy+j) = negOne*trFld(sNx+j, sNy+1-i ) |
|
./eesupp/src/fill_cs_corner_tr_rl.F |
237 |
FILL_CS_CORNER_TR_RL |
DO i=1,Olx |
|
./eesupp/src/fill_cs_corner_tr_rl.F |
238 |
FILL_CS_CORNER_TR_RL |
trFld( 1-i , 1-j ) = negOne*trFld( j , 1-i ) |
|
./eesupp/src/fill_cs_corner_tr_rl.F |
244 |
FILL_CS_CORNER_TR_RL |
DO i=1,Olx |
|
./eesupp/src/fill_cs_corner_tr_rl.F |
245 |
FILL_CS_CORNER_TR_RL |
trFld(sNx+i, 1-j ) = negOne*trFld(sNx+1-j, 1-i ) |
|
./eesupp/src/fill_cs_corner_tr_rl.F |
251 |
FILL_CS_CORNER_TR_RL |
DO i=1,Olx |
|
./eesupp/src/fill_cs_corner_tr_rl.F |
252 |
FILL_CS_CORNER_TR_RL |
trFld( 1-i ,sNy+j) = negOne*trFld( j ,sNy+i) |
|
./eesupp/src/fill_cs_corner_tr_rl.F |
258 |
FILL_CS_CORNER_TR_RL |
DO i=1,Olx |
|
./eesupp/src/fill_cs_corner_tr_rl.F |
259 |
FILL_CS_CORNER_TR_RL |
trFld(sNx+i,sNy+j) = negOne*trFld(sNx+1-j,sNy+i) |
|
./eesupp/src/fill_cs_corner_tr_rl.F |
60 |
FILL_CS_CORNER_TR_RL |
INTEGER i,j |
|
./eesupp/src/fill_cs_corner_tr_rl.F |
98 |
FILL_CS_CORNER_TR_RL |
DO i=1,OLx |
|
./eesupp/src/fill_cs_corner_tr_rl.F |
99 |
FILL_CS_CORNER_TR_RL |
trFld( 1-i , 1-j ) = 0. _d 0 |
|
./eesupp/src/fill_cs_corner_uv_rl.F |
130 |
FILL_CS_CORNER_UV_RL |
DO i=1,OLx |
|
./eesupp/src/fill_cs_corner_uv_rl.F |
131 |
FILL_CS_CORNER_UV_RL |
uFld( 1-i , 1-j ) = negOne*vFld( 1-j , 1+i ) |
|
./eesupp/src/fill_cs_corner_uv_rl.F |
136 |
FILL_CS_CORNER_UV_RL |
DO i=1,OLx |
|
./eesupp/src/fill_cs_corner_uv_rl.F |
137 |
FILL_CS_CORNER_UV_RL |
vFld( 1-i , 1-j ) = negOne*uFld( 1+j , 1-i ) |
|
./eesupp/src/fill_cs_corner_uv_rl.F |
145 |
FILL_CS_CORNER_UV_RL |
DO i=2,OLx |
|
./eesupp/src/fill_cs_corner_uv_rl.F |
146 |
FILL_CS_CORNER_UV_RL |
uFld(sNx+i, 1-j ) = vFld(sNx+j, i ) |
|
./eesupp/src/fill_cs_corner_uv_rl.F |
151 |
FILL_CS_CORNER_UV_RL |
DO i=1,OLx |
|
./eesupp/src/fill_cs_corner_uv_rl.F |
152 |
FILL_CS_CORNER_UV_RL |
vFld(sNx+i, 1-j ) = uFld(sNx+1-j, 1-i ) |
|
./eesupp/src/fill_cs_corner_uv_rl.F |
160 |
FILL_CS_CORNER_UV_RL |
DO i=1,OLx |
|
./eesupp/src/fill_cs_corner_uv_rl.F |
161 |
FILL_CS_CORNER_UV_RL |
uFld( 1-i ,sNy+j) = vFld( 1-j , sNy+1-i ) |
|
./eesupp/src/fill_cs_corner_uv_rl.F |
166 |
FILL_CS_CORNER_UV_RL |
DO i=1,OLx |
|
./eesupp/src/fill_cs_corner_uv_rl.F |
167 |
FILL_CS_CORNER_UV_RL |
vFld( 1-i ,sNy+j) = uFld( j , sNy+i ) |
|
./eesupp/src/fill_cs_corner_uv_rl.F |
175 |
FILL_CS_CORNER_UV_RL |
DO i=2,OLx |
|
./eesupp/src/fill_cs_corner_uv_rl.F |
176 |
FILL_CS_CORNER_UV_RL |
uFld(sNx+i,sNy+j) = negOne*vFld(sNx+j, sNy+2-i ) |
|
./eesupp/src/fill_cs_corner_uv_rl.F |
181 |
FILL_CS_CORNER_UV_RL |
DO i=1,OLx |
|
./eesupp/src/fill_cs_corner_uv_rl.F |
182 |
FILL_CS_CORNER_UV_RL |
vFld(sNx+i,sNy+j) = negOne*uFld(sNx+2-j, sNy+i ) |
|
./eesupp/src/fill_cs_corner_uv_rl.F |
59 |
FILL_CS_CORNER_UV_RL |
INTEGER i,j |
|
./pkg/atm2d/atm2d_write_pickup.F |
141 |
ATM2D_WRITE_PICKUP_NOW |
INTEGER prec, i,j |
|
./pkg/atm2d/calc_1dto2d.F |
103 |
CALC_WGHT2D |
SUBROUTINE CALC_WGHT2D( i, j, ind, wgt) |
|
./pkg/atm2d/calc_1dto2d.F |
128 |
CALC_WGHT2D |
INTEGER i, j |
|
./pkg/atm2d/calc_1dto2d.F |
132 |
CALC_WGHT2D |
precipo_2D(i,j)= precipo_2D(i,j) + atm_precip(ind)*wgt |
|
./pkg/atm2d/calc_1dto2d.F |
133 |
CALC_WGHT2D |
solarnet_ocn_2D(i,j)=solarnet_ocn_2D(i,j) + atm_solar_ocn(ind)*wgt |
|
./pkg/atm2d/calc_1dto2d.F |
134 |
CALC_WGHT2D |
slp_2D(i,j)= slp_2D(i,j) + atm_slp(ind)*wgt |
|
./pkg/atm2d/calc_1dto2d.F |
135 |
CALC_WGHT2D |
pCO2_2D(i,j)= pCO2_2D(i,j) + atm_pco2(ind)*wgt |
|
./pkg/atm2d/calc_1dto2d.F |
136 |
CALC_WGHT2D |
wspeed_2D(i,j)= wspeed_2D(i,j) + atm_windspeed(ind)*wgt |
|
./pkg/atm2d/calc_1dto2d.F |
137 |
CALC_WGHT2D |
fu_2D(i,j)= fu_2D(i,j) + atm_tauu(ind)*wgt |
|
./pkg/atm2d/calc_1dto2d.F |
139 |
CALC_WGHT2D |
qneto_2D(i,j)= qneto_2D(i,j) + atm_qnet_ocn(ind)*wgt |
|
./pkg/atm2d/calc_1dto2d.F |
140 |
CALC_WGHT2D |
evapo_2D(i,j)= evapo_2D(i,j) + atm_evap_ocn(ind)*wgt |
|
./pkg/atm2d/calc_1dto2d.F |
141 |
CALC_WGHT2D |
IF (evapo_2D(i,j).GT.0. _d 0) THEN !convert negative evap. to precip |
|
./pkg/atm2d/calc_1dto2d.F |
142 |
CALC_WGHT2D |
precipo_2D(i,j)= precipo_2D(i,j) - evapo_2D(i,j) |
|
./pkg/atm2d/calc_1dto2d.F |
143 |
CALC_WGHT2D |
evapo_2D(i,j)=0. _d 0 |
|
./pkg/atm2d/calc_1dto2d.F |
146 |
CALC_WGHT2D |
IF (iceMask(i,j,1,1) .GT. 0. _d 0) THEN |
|
./pkg/atm2d/calc_1dto2d.F |
147 |
CALC_WGHT2D |
qneti_2D(i,j)= qneti_2D(i,j) + atm_qnet_ice(ind)*wgt |
|
./pkg/atm2d/calc_1dto2d.F |
148 |
CALC_WGHT2D |
precipi_2D(i,j)= precipi_2D(i,j) + atm_precip(ind)*wgt |
|
./pkg/atm2d/calc_1dto2d.F |
149 |
CALC_WGHT2D |
evapi_2D(i,j)= evapi_2D(i,j) + atm_evap_ice(ind)*wgt |
|
./pkg/atm2d/calc_1dto2d.F |
150 |
CALC_WGHT2D |
IF (evapi_2D(i,j).GT.0. _d 0) THEN !convert negative evap. to precip |
|
./pkg/atm2d/calc_1dto2d.F |
151 |
CALC_WGHT2D |
precipi_2D(i,j)= precipi_2D(i,j) - evapi_2D(i,j) |
|
./pkg/atm2d/calc_1dto2d.F |
152 |
CALC_WGHT2D |
evapi_2D(i,j)=0. _d 0 |
|
./pkg/atm2d/calc_1dto2d.F |
154 |
CALC_WGHT2D |
dFdT_ice_2D(i,j)= dFdT_ice_2D(i,j) + atm_dFdT_ice(ind)*wgt |
|
./pkg/atm2d/calc_1dto2d.F |
155 |
CALC_WGHT2D |
Tair_2D(i,j)= Tair_2D(i,j) + atm_Tair(ind)*wgt |
|
./pkg/atm2d/calc_1dto2d.F |
156 |
CALC_WGHT2D |
solarinc_2D(i,j)= solarinc_2D(i,j) + atm_solarinc(ind)*wgt |
|
./pkg/atm2d/calc_1dto2d.F |
160 |
CALC_WGHT2D |
qneto_2D(i,j)= qneto_2D(i,j) + atm_dFdt_ocnq(ind)* |
|
./pkg/atm2d/calc_1dto2d.F |
161 |
CALC_WGHT2D |
& (sstFromOcn(i,j)-ctocn(ind))*wgt |
|
./pkg/atm2d/calc_1dto2d.F |
162 |
CALC_WGHT2D |
evapo_2D(i,j)= evapo_2D(i,j) + atm_dLdt_ocnq(ind)* |
|
./pkg/atm2d/calc_1dto2d.F |
163 |
CALC_WGHT2D |
& (sstFromOcn(i,j)-ctocn(ind))*wgt |
|
./pkg/atm2d/calc_1dto2d.F |
164 |
CALC_WGHT2D |
IF (iceMask(i,j,1,1) .GT. 0. _d 0) THEN |
|
./pkg/atm2d/calc_1dto2d.F |
165 |
CALC_WGHT2D |
qneti_2D(i,j)=qneti_2D(i,j)+atm_dFdt_iceq(ind)* |
|
./pkg/atm2d/calc_1dto2d.F |
166 |
CALC_WGHT2D |
& (Tsrf(i,j,1,1)-ctice(ind))*wgt |
|
./pkg/atm2d/calc_1dto2d.F |
167 |
CALC_WGHT2D |
evapi_2D(i,j)=evapi_2D(i,j)+atm_dLdt_iceq(ind)* |
|
./pkg/atm2d/calc_1dto2d.F |
168 |
CALC_WGHT2D |
& (Tsrf(i,j,1,1)-ctice(ind))*wgt |
|
./pkg/atm2d/calc_1dto2d.F |
171 |
CALC_WGHT2D |
qneto_2D(i,j)= qneto_2D(i,j) + atm_dFdt_ocn(ind)* |
|
./pkg/atm2d/calc_1dto2d.F |
172 |
CALC_WGHT2D |
& (sstFromOcn(i,j)-ctocn(ind))*wgt |
|
./pkg/atm2d/calc_1dto2d.F |
173 |
CALC_WGHT2D |
evapo_2D(i,j)= evapo_2D(i,j) + atm_dLdt_ocn(ind)* |
|
./pkg/atm2d/calc_1dto2d.F |
174 |
CALC_WGHT2D |
& (sstFromOcn(i,j)-ctocn(ind))*wgt |
|
./pkg/atm2d/calc_1dto2d.F |
175 |
CALC_WGHT2D |
IF (iceMask(i,j,1,1) .GT. 0. _d 0) THEN |
|
./pkg/atm2d/calc_1dto2d.F |
176 |
CALC_WGHT2D |
qneti_2D(i,j)= qneti_2D(i,j) + atm_dFdt_ice(ind)* |
|
./pkg/atm2d/calc_1dto2d.F |
177 |
CALC_WGHT2D |
& (Tsrf(i,j,1,1)-ctice(ind))*wgt |
|
./pkg/atm2d/calc_1dto2d.F |
178 |
CALC_WGHT2D |
evapi_2D(i,j)= evapi_2D(i,j)+atm_dLdt_ice(ind)* |
|
./pkg/atm2d/calc_1dto2d.F |
179 |
CALC_WGHT2D |
& (Tsrf(i,j,1,1)-ctice(ind))*wgt |
|
./pkg/atm2d/calc_1dto2d.F |
211 |
INIT_2DFLD |
INTEGER i,j |
|
./pkg/atm2d/calc_1dto2d.F |
213 |
INIT_2DFLD |
DO i=1,sNx |
|
./pkg/atm2d/calc_1dto2d.F |
216 |
INIT_2DFLD |
precipo_2D(i,j)= 0. _d 0 |
|
./pkg/atm2d/calc_1dto2d.F |
217 |
INIT_2DFLD |
precipi_2D(i,j)= 0. _d 0 |
|
./pkg/atm2d/calc_1dto2d.F |
218 |
INIT_2DFLD |
solarnet_ocn_2D(i,j)= 0. _d 0 |
|
./pkg/atm2d/calc_1dto2d.F |
219 |
INIT_2DFLD |
slp_2D(i,j)= 0. _d 0 |
|
./pkg/atm2d/calc_1dto2d.F |
220 |
INIT_2DFLD |
pCO2_2D(i,j)= 0. _d 0 |
|
./pkg/atm2d/calc_1dto2d.F |
221 |
INIT_2DFLD |
wspeed_2D(i,j)= 0. _d 0 |
|
./pkg/atm2d/calc_1dto2d.F |
222 |
INIT_2DFLD |
fu_2D(i,j)= 0. _d 0 |
|
./pkg/atm2d/calc_1dto2d.F |
223 |
INIT_2DFLD |
fv_2D(i,j)= 0. _d 0 |
|
./pkg/atm2d/calc_1dto2d.F |
224 |
INIT_2DFLD |
qneto_2D(i,j)= 0. _d 0 |
|
./pkg/atm2d/calc_1dto2d.F |
225 |
INIT_2DFLD |
evapo_2D(i,j)= 0. _d 0 |
|
./pkg/atm2d/calc_1dto2d.F |
226 |
INIT_2DFLD |
qneti_2D(i,j)= 0. _d 0 |
|
./pkg/atm2d/calc_1dto2d.F |
227 |
INIT_2DFLD |
evapi_2D(i,j)= 0. _d 0 |
|
./pkg/atm2d/calc_1dto2d.F |
228 |
INIT_2DFLD |
dFdT_ice_2D(i,j)= 0. _d 0 |
|
./pkg/atm2d/calc_1dto2d.F |
229 |
INIT_2DFLD |
Tair_2D(i,j)= 0. _d 0 |
|
./pkg/atm2d/calc_1dto2d.F |
230 |
INIT_2DFLD |
solarinc_2D(i,j)= 0. _d 0 |
|
./pkg/atm2d/calc_1dto2d.F |
231 |
INIT_2DFLD |
runoff_2D(i,j)= 0. _d 0 |
|
./pkg/atm2d/calc_1dto2d.F |
34 |
CALC_1DTO2D |
INTEGER i,j ! loop counters across ocean grid |
|
./pkg/atm2d/calc_1dto2d.F |
61 |
CALC_1DTO2D |
DO i=1,sNx |
|
./pkg/atm2d/calc_1dto2d.F |
63 |
CALC_1DTO2D |
IF (maskC(i,j,1,1,1).EQ.1.) THEN |
|
./pkg/atm2d/calc_1dto2d.F |
65 |
CALC_1DTO2D |
runoff_2D(i,j) = run_b(runIndex(j)) * |
|
./pkg/atm2d/calc_1dto2d.F |
66 |
CALC_1DTO2D |
& runoffVal(i,j)/rA(i,j,1,1) |
|
./pkg/atm2d/calc_1dto2d.F |
68 |
CALC_1DTO2D |
CALL CALC_WGHT2D(i,j,atm_oc_ind(j),atm_oc_wgt(j)) |
|
./pkg/atm2d/calc_1dto2d.F |
71 |
CALC_1DTO2D |
& CALL CALC_WGHT2D(i, j, atm_oc_ind(j)+1, |
|
./pkg/atm2d/calc_1dto2d.F |
74 |
CALC_1DTO2D |
fv_2D(i,j) = fv_toC |
|
./pkg/atm2d/calc_1dto2d.F |
77 |
CALC_1DTO2D |
qnet_atm(i,j)= qnet_atm(i,j) + |
|
./pkg/atm2d/calc_1dto2d.F |
78 |
CALC_1DTO2D |
& qneti_2D(i,j)*dtatmo*iceMask(i,j,1,1) + |
|
./pkg/atm2d/calc_1dto2d.F |
79 |
CALC_1DTO2D |
& qneto_2D(i,j)*dtatmo*(1. _d 0-iceMask(i,j,1,1)) |
|
./pkg/atm2d/calc_1dto2d.F |
80 |
CALC_1DTO2D |
evap_atm(i,j)= evap_atm(i,j) + |
|
./pkg/atm2d/calc_1dto2d.F |
81 |
CALC_1DTO2D |
& evapi_2D(i,j)*dtatmo*iceMask(i,j,1,1) + |
|
./pkg/atm2d/calc_1dto2d.F |
82 |
CALC_1DTO2D |
& evapo_2D(i,j)*dtatmo*(1. _d 0-iceMask(i,j,1,1)) |
|
./pkg/atm2d/calc_1dto2d.F |
83 |
CALC_1DTO2D |
precip_atm(i,j)= precip_atm(i,j) + |
|
./pkg/atm2d/calc_1dto2d.F |
84 |
CALC_1DTO2D |
& precipi_2D(i,j)*dtatmo*iceMask(i,j,1,1) + |
|
./pkg/atm2d/calc_1dto2d.F |
85 |
CALC_1DTO2D |
& precipo_2D(i,j)*dtatmo*(1. _d 0-iceMask(i,j,1,1)) |
|
./pkg/atm2d/calc_1dto2d.F |
86 |
CALC_1DTO2D |
runoff_atm(i,j)= runoff_atm(i,j) + |
|
./pkg/atm2d/calc_1dto2d.F |
87 |
CALC_1DTO2D |
& runoff_2D(i,j)*dtatmo |
|
./pkg/atm2d/calc_zonal_means.F |
100 |
CALC_ZONAL_MEANS |
& rA(i,j,1,1)*iceMask(i,j,1,1)*mWgt |
|
./pkg/atm2d/calc_zonal_means.F |
102 |
CALC_ZONAL_MEANS |
& oFluxCO2(i,j)*rA(i,j,1,1)*mWgt |
|
./pkg/atm2d/calc_zonal_means.F |
105 |
CALC_ZONAL_MEANS |
& Tsrf(i,j,1,1)*rA(i,j,1,1)*iceMask(i,j,1,1)*mWgt |
|
./pkg/atm2d/calc_zonal_means.F |
107 |
CALC_ZONAL_MEANS |
& siceAlb(i,j,1,1)*rA(i,j,1,1)*iceMask(i,j,1,1)*mWgt |
|
./pkg/atm2d/calc_zonal_means.F |
109 |
CALC_ZONAL_MEANS |
& icAlbNIR(i,j,1,1)*rA(i,j,1,1)*iceMask(i,j,1,1)*mWgt |
|
./pkg/atm2d/calc_zonal_means.F |
47 |
CALC_ZONAL_MEANS |
INTEGER i,j ! loop counters for the ocean grid |
|
./pkg/atm2d/calc_zonal_means.F |
71 |
CALC_ZONAL_MEANS |
DO i=1,sNx |
|
./pkg/atm2d/calc_zonal_means.F |
73 |
CALC_ZONAL_MEANS |
IF (maskC(i,j,1,1,1).EQ.1.) THEN |
|
./pkg/atm2d/calc_zonal_means.F |
77 |
CALC_ZONAL_MEANS |
& sstFromOcn(i,j) * rA(i,j,1,1) * |
|
./pkg/atm2d/calc_zonal_means.F |
78 |
CALC_ZONAL_MEANS |
& (1. _d 0-iceMask(i,j,1,1))*atm_oc_wgt(j) |
|
./pkg/atm2d/calc_zonal_means.F |
80 |
CALC_ZONAL_MEANS |
& rA(i,j,1,1)*iceMask(i,j,1,1)*atm_oc_wgt(j) |
|
./pkg/atm2d/calc_zonal_means.F |
82 |
CALC_ZONAL_MEANS |
& oFluxCO2(i,j)*rA(i,j,1,1)*atm_oc_wgt(j) |
|
./pkg/atm2d/calc_zonal_means.F |
84 |
CALC_ZONAL_MEANS |
ctice(atm_oc_ind(j))=ctice(atm_oc_ind(j)) + Tsrf(i,j,1,1) |
|
./pkg/atm2d/calc_zonal_means.F |
85 |
CALC_ZONAL_MEANS |
& *rA(i,j,1,1)*iceMask(i,j,1,1)*atm_oc_wgt(j) |
|
./pkg/atm2d/calc_zonal_means.F |
86 |
CALC_ZONAL_MEANS |
csAlb(atm_oc_ind(j))=csAlb(atm_oc_ind(j)) + siceAlb(i,j,1,1) |
|
./pkg/atm2d/calc_zonal_means.F |
87 |
CALC_ZONAL_MEANS |
& *rA(i,j,1,1)*iceMask(i,j,1,1)*atm_oc_wgt(j) |
|
./pkg/atm2d/calc_zonal_means.F |
89 |
CALC_ZONAL_MEANS |
& icAlbNIR(i,j,1,1) |
|
./pkg/atm2d/calc_zonal_means.F |
90 |
CALC_ZONAL_MEANS |
& *rA(i,j,1,1)*iceMask(i,j,1,1)*atm_oc_wgt(j) |
|
./pkg/atm2d/calc_zonal_means.F |
97 |
CALC_ZONAL_MEANS |
& sstFromOcn(i,j) * rA(i,j,1,1) * |
|
./pkg/atm2d/calc_zonal_means.F |
98 |
CALC_ZONAL_MEANS |
& (1. _d 0-iceMask(i,j,1,1))*mWgt |
|
./eesupp/src/fill_cs_corner_uv_rs.F |
128 |
FILL_CS_CORNER_UV_RS |
DO i=1,OLx |
|
./eesupp/src/fill_cs_corner_uv_rs.F |
129 |
FILL_CS_CORNER_UV_RS |
uFld( 1-i , 1-j ) = negOne*vFld( 1-j , 1+i ) |
|
./eesupp/src/fill_cs_corner_uv_rs.F |
134 |
FILL_CS_CORNER_UV_RS |
DO i=1,OLx |
|
./eesupp/src/fill_cs_corner_uv_rs.F |
135 |
FILL_CS_CORNER_UV_RS |
vFld( 1-i , 1-j ) = negOne*uFld( 1+j , 1-i ) |
|
./eesupp/src/fill_cs_corner_uv_rs.F |
143 |
FILL_CS_CORNER_UV_RS |
DO i=2,OLx |
|
./eesupp/src/fill_cs_corner_uv_rs.F |
144 |
FILL_CS_CORNER_UV_RS |
uFld(sNx+i, 1-j ) = vFld(sNx+j, i ) |
|
./eesupp/src/fill_cs_corner_uv_rs.F |
149 |
FILL_CS_CORNER_UV_RS |
DO i=1,OLx |
|
./eesupp/src/fill_cs_corner_uv_rs.F |
150 |
FILL_CS_CORNER_UV_RS |
vFld(sNx+i, 1-j ) = uFld(sNx+1-j, 1-i ) |
|
./eesupp/src/fill_cs_corner_uv_rs.F |
158 |
FILL_CS_CORNER_UV_RS |
DO i=1,OLx |
|
./eesupp/src/fill_cs_corner_uv_rs.F |
159 |
FILL_CS_CORNER_UV_RS |
uFld( 1-i ,sNy+j) = vFld( 1-j , sNy+1-i ) |
|
./eesupp/src/fill_cs_corner_uv_rs.F |
164 |
FILL_CS_CORNER_UV_RS |
DO i=1,OLx |
|
./eesupp/src/fill_cs_corner_uv_rs.F |
165 |
FILL_CS_CORNER_UV_RS |
vFld( 1-i ,sNy+j) = uFld( j , sNy+i ) |
|
./eesupp/src/fill_cs_corner_uv_rs.F |
173 |
FILL_CS_CORNER_UV_RS |
DO i=2,OLx |
|
./eesupp/src/fill_cs_corner_uv_rs.F |
174 |
FILL_CS_CORNER_UV_RS |
uFld(sNx+i,sNy+j) = negOne*vFld(sNx+j, sNy+2-i ) |
|
./eesupp/src/fill_cs_corner_uv_rs.F |
179 |
FILL_CS_CORNER_UV_RS |
DO i=1,OLx |
|
./eesupp/src/fill_cs_corner_uv_rs.F |
180 |
FILL_CS_CORNER_UV_RS |
vFld(sNx+i,sNy+j) = negOne*uFld(sNx+2-j, sNy+i ) |
|
./eesupp/src/fill_cs_corner_uv_rs.F |
57 |
FILL_CS_CORNER_UV_RS |
INTEGER i,j |
|
./pkg/atm2d/cpl_send_ocn_atmconfig.F |
34 |
CPL_SEND_OCN_ATMCONFIG |
INTEGER i,j |
|
./pkg/atm2d/cpl_send_ocn_atmconfig.F |
43 |
CPL_SEND_OCN_ATMCONFIG |
DO i=1,Nx_ocn |
|
./pkg/atm2d/cpl_send_ocn_atmconfig.F |
45 |
CPL_SEND_OCN_ATMCONFIG |
landMask_ocn(i,j)= 0.5 !ocean code checks for this |
|
./pkg/atm2d/fixed_flux_add.F |
126 |
FIXED_FLUX_ADD |
DO i=1,sNx |
|
./pkg/atm2d/fixed_flux_add.F |
127 |
FIXED_FLUX_ADD |
IF (maskC(i,j,1,1,1).EQ.1.) THEN |
|
./pkg/atm2d/fixed_flux_add.F |
129 |
FIXED_FLUX_ADD |
fu_2D(i,j)= fu_2D(i,j) + |
|
./pkg/atm2d/fixed_flux_add.F |
130 |
FIXED_FLUX_ADD |
& (wght0*tau0(i,j,1,1) + wght1*tau1(i,j,1,1)) |
|
./pkg/atm2d/fixed_flux_add.F |
131 |
FIXED_FLUX_ADD |
fv_2D(i,j)= fv_2D(i,j) + |
|
./pkg/atm2d/fixed_flux_add.F |
132 |
FIXED_FLUX_ADD |
& (wght0*tav0(i,j,1,1) + wght1*tav1(i,j,1,1)) |
|
./pkg/atm2d/fixed_flux_add.F |
133 |
FIXED_FLUX_ADD |
wspeed_2D(i,j)= wspeed_2D(i,j) + |
|
./pkg/atm2d/fixed_flux_add.F |
134 |
FIXED_FLUX_ADD |
& (wght0*wind0(i,j,1,1) + wght1*wind1(i,j,1,1)) |
|
./pkg/atm2d/fixed_flux_add.F |
136 |
FIXED_FLUX_ADD |
qfadj = (wght0*qnet0(i,j,1,1) + wght1*qnet1(i,j,1,1)) |
|
./pkg/atm2d/fixed_flux_add.F |
138 |
FIXED_FLUX_ADD |
& (iceMask(i,j,1,1) .LT. 0.999 _d 0)) THEN |
|
./pkg/atm2d/fixed_flux_add.F |
139 |
FIXED_FLUX_ADD |
qneto_2D(i,j)= qneto_2D(i,j) + qfadj |
|
./pkg/atm2d/fixed_flux_add.F |
140 |
FIXED_FLUX_ADD |
& / (1. _d 0 - iceMask(i,j,1,1)) |
|
./pkg/atm2d/fixed_flux_add.F |
145 |
FIXED_FLUX_ADD |
evapo_2D(i,j)= -evap0(i,j,1,1) |
|
./pkg/atm2d/fixed_flux_add.F |
146 |
FIXED_FLUX_ADD |
precipo_2D(i,j)= precip0(i,j,1,1) |
|
./pkg/atm2d/fixed_flux_add.F |
147 |
FIXED_FLUX_ADD |
IF (iceMask(i,j,1,1) .NE. 0. _d 0) THEN |
|
./pkg/atm2d/fixed_flux_add.F |
148 |
FIXED_FLUX_ADD |
evapi_2D(i,j)= -evap0(i,j,1,1) |
|
./pkg/atm2d/fixed_flux_add.F |
149 |
FIXED_FLUX_ADD |
precipi_2D(i,j)= precip0(i,j,1,1) |
|
./pkg/atm2d/fixed_flux_add.F |
152 |
FIXED_FLUX_ADD |
evapo_2D(i,j)= evapo_2D(i,j) - |
|
./pkg/atm2d/fixed_flux_add.F |
153 |
FIXED_FLUX_ADD |
& evap0(i,j,1,1) |
|
./pkg/atm2d/fixed_flux_add.F |
154 |
FIXED_FLUX_ADD |
precipo_2D(i,j)= precipo_2D(i,j) + |
|
./pkg/atm2d/fixed_flux_add.F |
155 |
FIXED_FLUX_ADD |
& precip0(i,j,1,1) |
|
./pkg/atm2d/fixed_flux_add.F |
156 |
FIXED_FLUX_ADD |
IF (iceMask(i,j,1,1) .NE. 0. _d 0) THEN |
|
./pkg/atm2d/fixed_flux_add.F |
157 |
FIXED_FLUX_ADD |
evapi_2D(i,j)= evapi_2D(i,j) - |
|
./pkg/atm2d/fixed_flux_add.F |
158 |
FIXED_FLUX_ADD |
& evap0(i,j,1,1) |
|
./pkg/atm2d/fixed_flux_add.F |
159 |
FIXED_FLUX_ADD |
precipi_2D(i,j)= precipi_2D(i,j) + |
|
./pkg/atm2d/fixed_flux_add.F |
160 |
FIXED_FLUX_ADD |
& precip0(i,j,1,1) |
|
./pkg/atm2d/fixed_flux_add.F |
165 |
FIXED_FLUX_ADD |
runoff_2D(i,j)= runoff0(i,j,1,1) |
|
./pkg/atm2d/fixed_flux_add.F |
167 |
FIXED_FLUX_ADD |
runoff_2D(i,j)= runoff_2D(i,j) + |
|
./pkg/atm2d/fixed_flux_add.F |
168 |
FIXED_FLUX_ADD |
& runoff0(i,j,1,1) |
|
./pkg/atm2d/fixed_flux_add.F |
43 |
FIXED_FLUX_ADD |
INTEGER i,j ! loop counters |
|
./pkg/atm2d/forward_step_atm2d.F |
208 |
FORWARD_STEP_ATM2D |
DO i = 1-OLx, sNx+OLx |
|
./pkg/atm2d/forward_step_atm2d.F |
209 |
FORWARD_STEP_ATM2D |
qPrcRn(i,j) = 0. |
|
./pkg/atm2d/forward_step_atm2d.F |
67 |
FORWARD_STEP_ATM2D |
INTEGER iloop_ocn, i |
|
./pkg/atm2d/get_ocnvars.F |
100 |
GET_OCNVARS |
mlDepth(i,j) = hFacC(i,j,1,1,1)*drF(1) |
|
./pkg/atm2d/get_ocnvars.F |
106 |
GET_OCNVARS |
DO i=1,sNx |
|
./pkg/atm2d/get_ocnvars.F |
107 |
GET_OCNVARS |
v2ocMxL(i,j,1,1) = |
|
./pkg/atm2d/get_ocnvars.F |
108 |
GET_OCNVARS |
& ( uVel(i , j,1,1,1)*uVel(i , j,1,1,1) |
|
./pkg/atm2d/get_ocnvars.F |
109 |
GET_OCNVARS |
& + uVel(i+1,j,1,1,1)*uVel(i+1,j,1,1,1) |
|
./pkg/atm2d/get_ocnvars.F |
110 |
GET_OCNVARS |
& + vVel(i,j+1,1,1,1)*vVel(i,j+1,1,1,1) |
|
./pkg/atm2d/get_ocnvars.F |
111 |
GET_OCNVARS |
& + vVel(i,j , 1,1,1)*vVel(i,j , 1,1,1) |
|
./pkg/atm2d/get_ocnvars.F |
117 |
GET_OCNVARS |
DO i=1,sNx |
|
./pkg/atm2d/get_ocnvars.F |
120 |
GET_OCNVARS |
oFluxCO2(i,j) = fluxCO2(i,j,1,1) |
|
./pkg/atm2d/get_ocnvars.F |
124 |
GET_OCNVARS |
tOceMxl(i,j,1,1)= sstFromOcn(i,j) |
|
./pkg/atm2d/get_ocnvars.F |
125 |
GET_OCNVARS |
sOceMxl(i,j,1,1)= sssFromOcn(i,j) |
|
./pkg/atm2d/get_ocnvars.F |
126 |
GET_OCNVARS |
hOceMxl(i,j,1,1) = mlDepth(i,j) |
|
./pkg/atm2d/get_ocnvars.F |
47 |
GET_OCNVARS |
INTEGER i,j |
|
./pkg/atm2d/get_ocnvars.F |
53 |
GET_OCNVARS |
DO i=1,sNx |
|
./pkg/atm2d/get_ocnvars.F |
54 |
GET_OCNVARS |
sstFromOcn(i,j)= SST_ocn(i,j) |
|
./pkg/atm2d/get_ocnvars.F |
55 |
GET_OCNVARS |
sssFromOcn(i,j)= SSS_ocn(i,j) |
|
./pkg/atm2d/get_ocnvars.F |
56 |
GET_OCNVARS |
mlDepth(i,j) = OcMxlD_ocn(i,j) |
|
./pkg/atm2d/get_ocnvars.F |
57 |
GET_OCNVARS |
IF ( ocnCpl_exchange_DIC ) oFluxCO2(i,j) = fluxCO2_ocn(i,j) |
|
./pkg/atm2d/get_ocnvars.F |
62 |
GET_OCNVARS |
tOceMxl(i,j,1,1)= SST_ocn(i,j) |
|
./pkg/atm2d/get_ocnvars.F |
63 |
GET_OCNVARS |
sOceMxl(i,j,1,1)= SSS_ocn(i,j) |
|
./pkg/atm2d/get_ocnvars.F |
64 |
GET_OCNVARS |
hOceMxl(i,j,1,1) = OcMxlD_ocn(i,j) |
|
./pkg/atm2d/get_ocnvars.F |
65 |
GET_OCNVARS |
v2ocMxL(i,j,1,1) = vSq_ocn(i,j) |
|
./pkg/atm2d/get_ocnvars.F |
71 |
GET_OCNVARS |
DO i=1,sNx |
|
./pkg/atm2d/get_ocnvars.F |
72 |
GET_OCNVARS |
sstFromOcn(i,j) = theta(i,j,1,1,1) |
|
./pkg/atm2d/get_ocnvars.F |
73 |
GET_OCNVARS |
sssFromOcn(i,j) = salt (i,j,1,1,1) |
|
./pkg/atm2d/get_ocnvars.F |
82 |
GET_OCNVARS |
DO i=1,sNx |
|
./pkg/atm2d/get_ocnvars.F |
83 |
GET_OCNVARS |
mlDepth(i,j) = |
|
./pkg/atm2d/get_ocnvars.F |
84 |
GET_OCNVARS |
& h0FacC(i,j,1,1,1)*rStarFacC(i,j,1,1)*drF(1) |
|
./pkg/atm2d/get_ocnvars.F |
89 |
GET_OCNVARS |
DO i=1,sNx |
|
./pkg/atm2d/get_ocnvars.F |
90 |
GET_OCNVARS |
mlDepth(i,j) = hFac_surfC(i,j,1,1)*drF(1) |
|
./pkg/atm2d/get_ocnvars.F |
99 |
GET_OCNVARS |
DO i=1,sNx |
|
./pkg/atm2d/init_atm2d.F |
157 |
INIT_ATM2D |
DO i=1,sNx |
|
./pkg/atm2d/init_atm2d.F |
158 |
INIT_ATM2D |
IF (maskC(i,j,1,1,1).EQ.1.) THEN |
|
./pkg/atm2d/init_atm2d.F |
160 |
INIT_ATM2D |
& rA(i,j,1,1)*atm_oc_wgt(j) |
|
./pkg/atm2d/init_atm2d.F |
163 |
INIT_ATM2D |
& rA(i,j,1,1)*(1.d0-atm_oc_wgt(j)) |
|
./pkg/atm2d/init_atm2d.F |
248 |
INIT_ATM2D |
DO i=1,sNx |
|
./pkg/atm2d/init_atm2d.F |
249 |
INIT_ATM2D |
if ( (maskC(i,j,1,1,1).EQ.1.) .AND. |
|
./pkg/atm2d/init_atm2d.F |
250 |
INIT_ATM2D |
& ( (maskC(i-1,j,1,1,1).EQ.0.).OR. |
|
./pkg/atm2d/init_atm2d.F |
251 |
INIT_ATM2D |
& (maskC(i+1,j,1,1,1).EQ.0.).OR. |
|
./pkg/atm2d/init_atm2d.F |
252 |
INIT_ATM2D |
& (maskC(i,j-1,1,1,1).EQ.0.).OR. |
|
./pkg/atm2d/init_atm2d.F |
253 |
INIT_ATM2D |
& (maskC(i,j+1,1,1,1).EQ.0.).OR. |
|
./pkg/atm2d/init_atm2d.F |
254 |
INIT_ATM2D |
& (maskC(i+1,j+1,1,1,1).EQ.0.).OR. |
|
./pkg/atm2d/init_atm2d.F |
255 |
INIT_ATM2D |
& (maskC(i-1,j-1,1,1,1).EQ.0.).OR. |
|
./pkg/atm2d/init_atm2d.F |
256 |
INIT_ATM2D |
& (maskC(i+1,j-1,1,1,1).EQ.0.).OR. |
|
./pkg/atm2d/init_atm2d.F |
257 |
INIT_ATM2D |
& (maskC(i-1,j+1,1,1,1).EQ.0.) ) ) THEN |
|
./pkg/atm2d/init_atm2d.F |
258 |
INIT_ATM2D |
runoffVal(i,j)=1. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
271 |
INIT_ATM2D |
DO i=1,sNx |
|
./pkg/atm2d/init_atm2d.F |
272 |
INIT_ATM2D |
totrun_b(ib)=totrun_b(ib)+runoffVal(i,j)*maskC(i,j,1,1,1) |
|
./pkg/atm2d/init_atm2d.F |
277 |
INIT_ATM2D |
DO i=1,sNx |
|
./pkg/atm2d/init_atm2d.F |
278 |
INIT_ATM2D |
runoffVal(i,j)=runoffVal(i,j)*maskC(i,j,1,1,1)/totrun_b(ib) |
|
./pkg/atm2d/init_atm2d.F |
296 |
INIT_ATM2D |
DO i=1-OLx,sNx+OLx |
|
./pkg/atm2d/init_atm2d.F |
299 |
INIT_ATM2D |
qnet_atm_ta(i,j,mn)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
300 |
INIT_ATM2D |
evap_atm_ta(i,j,mn)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
301 |
INIT_ATM2D |
precip_atm_ta(i,j,mn)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
302 |
INIT_ATM2D |
runoff_atm_ta(i,j,mn)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
303 |
INIT_ATM2D |
sum_qrel_ta(i,j,mn)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
304 |
INIT_ATM2D |
sum_frel_ta(i,j,mn)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
305 |
INIT_ATM2D |
sum_iceMask_ta(i,j,mn)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
306 |
INIT_ATM2D |
sum_iceHeight_ta(i,j,mn)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
307 |
INIT_ATM2D |
sum_iceTime_ta(i,j,mn)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
308 |
INIT_ATM2D |
sum_oceMxLT_ta(i,j,mn)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
309 |
INIT_ATM2D |
sum_oceMxLS_ta(i,j,mn)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
311 |
INIT_ATM2D |
qnet_atm(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
312 |
INIT_ATM2D |
evap_atm(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
313 |
INIT_ATM2D |
precip_atm(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
314 |
INIT_ATM2D |
runoff_atm(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
315 |
INIT_ATM2D |
sum_qrel(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
316 |
INIT_ATM2D |
sum_frel(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
317 |
INIT_ATM2D |
sum_iceMask(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
318 |
INIT_ATM2D |
sum_iceHeight(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
319 |
INIT_ATM2D |
sum_iceTime(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
320 |
INIT_ATM2D |
sum_oceMxLT(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
321 |
INIT_ATM2D |
sum_oceMxLS(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
339 |
INIT_ATM2D |
DO i=1-OLx,sNx+OLx |
|
./pkg/atm2d/init_atm2d.F |
341 |
INIT_ATM2D |
pass_runoff(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
342 |
INIT_ATM2D |
pass_qnet(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
343 |
INIT_ATM2D |
pass_evap(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
344 |
INIT_ATM2D |
pass_precip(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
345 |
INIT_ATM2D |
pass_fu(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
346 |
INIT_ATM2D |
pass_fv(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
347 |
INIT_ATM2D |
pass_wspeed(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
348 |
INIT_ATM2D |
pass_solarnet(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
349 |
INIT_ATM2D |
pass_slp(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
350 |
INIT_ATM2D |
pass_siceLoad(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
351 |
INIT_ATM2D |
pass_pCO2(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
352 |
INIT_ATM2D |
pass_prcAtm(i,j) = 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
353 |
INIT_ATM2D |
snowPrc (i,j) = 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
354 |
INIT_ATM2D |
sFluxFromIce(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
359 |
INIT_ATM2D |
DO i=1,sNx |
|
./pkg/atm2d/init_atm2d.F |
361 |
INIT_ATM2D |
oFluxCO2(i,j) = 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
47 |
INIT_ATM2D |
INTEGER i,j,jj |
|
./pkg/atm2d/init_sumvars.F |
26 |
INIT_SUMVARS |
INTEGER i,j |
|
./pkg/atm2d/init_sumvars.F |
28 |
INIT_SUMVARS |
DO i=1-OLx,sNx+OLx |
|
./pkg/atm2d/init_sumvars.F |
31 |
INIT_SUMVARS |
sum_runoff(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_sumvars.F |
32 |
INIT_SUMVARS |
sum_precip(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_sumvars.F |
33 |
INIT_SUMVARS |
sum_evap(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_sumvars.F |
34 |
INIT_SUMVARS |
sum_qnet(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_sumvars.F |
35 |
INIT_SUMVARS |
sum_fu(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_sumvars.F |
36 |
INIT_SUMVARS |
sum_fv(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_sumvars.F |
37 |
INIT_SUMVARS |
sum_wspeed(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_sumvars.F |
38 |
INIT_SUMVARS |
sum_solarnet(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_sumvars.F |
39 |
INIT_SUMVARS |
sum_slp(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_sumvars.F |
40 |
INIT_SUMVARS |
sum_pCO2(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_sumvars.F |
41 |
INIT_SUMVARS |
sum_prcIce(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_sumvars.F |
42 |
INIT_SUMVARS |
sum_snowPrc(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_sumvars.F |
43 |
INIT_SUMVARS |
sum_evapIce(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_sumvars.F |
44 |
INIT_SUMVARS |
sum_sHeat(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_sumvars.F |
45 |
INIT_SUMVARS |
sum_flxCnB(i,j)= 0. _d 0 |
|
./pkg/atm2d/month_end_diags.F |
107 |
MONTH_END_DIAGS |
DO i=1,sNx |
|
./pkg/atm2d/month_end_diags.F |
109 |
MONTH_END_DIAGS |
qnet_atm(i,j)= 0. _d 0 |
|
./pkg/atm2d/month_end_diags.F |
110 |
MONTH_END_DIAGS |
evap_atm(i,j)= 0. _d 0 |
|
./pkg/atm2d/month_end_diags.F |
111 |
MONTH_END_DIAGS |
precip_atm(i,j)= 0. _d 0 |
|
./pkg/atm2d/month_end_diags.F |
112 |
MONTH_END_DIAGS |
runoff_atm(i,j)= 0. _d 0 |
|
./pkg/atm2d/month_end_diags.F |
113 |
MONTH_END_DIAGS |
sum_qrel(i,j)= 0. _d 0 |
|
./pkg/atm2d/month_end_diags.F |
114 |
MONTH_END_DIAGS |
sum_frel(i,j)= 0. _d 0 |
|
./pkg/atm2d/month_end_diags.F |
115 |
MONTH_END_DIAGS |
sum_iceMask(i,j)= 0. _d 0 |
|
./pkg/atm2d/month_end_diags.F |
116 |
MONTH_END_DIAGS |
sum_iceHeight(i,j)= 0. _d 0 |
|
./pkg/atm2d/month_end_diags.F |
117 |
MONTH_END_DIAGS |
sum_iceTime(i,j)= 0. _d 0 |
|
./pkg/atm2d/month_end_diags.F |
118 |
MONTH_END_DIAGS |
sum_oceMxLT(i,j)= 0. _d 0 |
|
./pkg/atm2d/month_end_diags.F |
119 |
MONTH_END_DIAGS |
sum_oceMxLS(i,j)= 0. _d 0 |
|
./pkg/atm2d/month_end_diags.F |
36 |
MONTH_END_DIAGS |
INTEGER i,j |
|
./pkg/atm2d/month_end_diags.F |
42 |
MONTH_END_DIAGS |
DO i=1,sNx |
|
./pkg/atm2d/month_end_diags.F |
44 |
MONTH_END_DIAGS |
qnet_atm_ta(i,j,monid)= qnet_atm_ta(i,j,monid) + |
|
./pkg/atm2d/month_end_diags.F |
45 |
MONTH_END_DIAGS |
& qnet_atm(i,j) |
|
./pkg/atm2d/month_end_diags.F |
46 |
MONTH_END_DIAGS |
evap_atm_ta(i,j,monid)= evap_atm_ta(i,j,monid) + |
|
./pkg/atm2d/month_end_diags.F |
47 |
MONTH_END_DIAGS |
& evap_atm(i,j) |
|
./pkg/atm2d/month_end_diags.F |
48 |
MONTH_END_DIAGS |
precip_atm_ta(i,j,monid)= precip_atm_ta(i,j,monid) + |
|
./pkg/atm2d/month_end_diags.F |
49 |
MONTH_END_DIAGS |
& precip_atm(i,j) |
|
./pkg/atm2d/month_end_diags.F |
50 |
MONTH_END_DIAGS |
runoff_atm_ta(i,j,monid)= runoff_atm_ta(i,j,monid) + |
|
./pkg/atm2d/month_end_diags.F |
51 |
MONTH_END_DIAGS |
& runoff_atm(i,j) |
|
./pkg/atm2d/month_end_diags.F |
52 |
MONTH_END_DIAGS |
sum_qrel_ta(i,j,monid)= sum_qrel_ta(i,j,monid) + |
|
./pkg/atm2d/month_end_diags.F |
53 |
MONTH_END_DIAGS |
& sum_qrel(i,j) |
|
./pkg/atm2d/month_end_diags.F |
54 |
MONTH_END_DIAGS |
sum_frel_ta(i,j,monid)= sum_frel_ta(i,j,monid) + |
|
./pkg/atm2d/month_end_diags.F |
55 |
MONTH_END_DIAGS |
& sum_frel(i,j) |
|
./pkg/atm2d/month_end_diags.F |
56 |
MONTH_END_DIAGS |
sum_iceMask_ta(i,j,monid)= sum_iceMask_ta(i,j,monid) + |
|
./pkg/atm2d/month_end_diags.F |
57 |
MONTH_END_DIAGS |
& sum_iceMask(i,j) |
|
./pkg/atm2d/month_end_diags.F |
58 |
MONTH_END_DIAGS |
sum_iceHeight_ta(i,j,monid)= sum_iceHeight_ta(i,j,monid) + |
|
./pkg/atm2d/month_end_diags.F |
59 |
MONTH_END_DIAGS |
& sum_iceHeight(i,j) |
|
./pkg/atm2d/month_end_diags.F |
60 |
MONTH_END_DIAGS |
sum_iceTime_ta(i,j,monid)= sum_iceTime_ta(i,j,monid) + |
|
./pkg/atm2d/month_end_diags.F |
61 |
MONTH_END_DIAGS |
& sum_iceTime(i,j) |
|
./pkg/atm2d/month_end_diags.F |
62 |
MONTH_END_DIAGS |
sum_oceMxLT_ta(i,j,monid)= sum_oceMxLT_ta(i,j,monid) + |
|
./pkg/atm2d/month_end_diags.F |
63 |
MONTH_END_DIAGS |
& sum_oceMxLT(i,j) |
|
./pkg/atm2d/month_end_diags.F |
64 |
MONTH_END_DIAGS |
sum_oceMxLS_ta(i,j,monid)= sum_oceMxLS_ta(i,j,monid) + |
|
./pkg/atm2d/month_end_diags.F |
65 |
MONTH_END_DIAGS |
& sum_oceMxLS(i,j) |
|
./pkg/atm2d/month_end_diags.F |
67 |
MONTH_END_DIAGS |
qnet_atm(i,j)=qnet_atm(i,j)/ norm_factor |
|
./pkg/atm2d/month_end_diags.F |
68 |
MONTH_END_DIAGS |
evap_atm(i,j)=evap_atm(i,j)/ norm_factor |
|
./pkg/atm2d/month_end_diags.F |
69 |
MONTH_END_DIAGS |
precip_atm(i,j)= precip_atm(i,j)/ norm_factor |
|
./pkg/atm2d/month_end_diags.F |
70 |
MONTH_END_DIAGS |
runoff_atm(i,j)= runoff_atm(i,j)/ norm_factor |
|
./pkg/atm2d/month_end_diags.F |
71 |
MONTH_END_DIAGS |
sum_qrel(i,j)= sum_qrel(i,j)/ norm_factor |
|
./pkg/atm2d/month_end_diags.F |
72 |
MONTH_END_DIAGS |
sum_frel(i,j)= sum_frel(i,j)/ norm_factor |
|
./pkg/atm2d/month_end_diags.F |
73 |
MONTH_END_DIAGS |
sum_iceMask(i,j)= sum_iceMask(i,j)/ norm_factor |
|
./pkg/atm2d/month_end_diags.F |
74 |
MONTH_END_DIAGS |
sum_iceHeight(i,j)= sum_iceHeight(i,j)/ norm_factor |
|
./pkg/atm2d/month_end_diags.F |
75 |
MONTH_END_DIAGS |
sum_iceTime(i,j)= sum_iceTime(i,j)/ norm_factor |
|
./pkg/atm2d/month_end_diags.F |
76 |
MONTH_END_DIAGS |
sum_oceMxLT(i,j)= sum_oceMxLT(i,j)/ norm_factor |
|
./pkg/atm2d/month_end_diags.F |
77 |
MONTH_END_DIAGS |
sum_oceMxLS(i,j)= sum_oceMxLS(i,j)/ norm_factor |
|
./pkg/atm2d/norm_ocn_fluxes.F |
34 |
NORM_OCN_FLUXES |
INTEGER i,j |
|
./pkg/atm2d/norm_ocn_fluxes.F |
40 |
NORM_OCN_FLUXES |
DO i=1, sNx |
|
./pkg/atm2d/norm_ocn_fluxes.F |
42 |
NORM_OCN_FLUXES |
IF (maskC(i,j,1,1,1) .EQ. 1.) THEN |
|
./pkg/atm2d/norm_ocn_fluxes.F |
44 |
NORM_OCN_FLUXES |
pass_runoff(i,j)= sum_runoff(i,j)/nper |
|
./pkg/atm2d/norm_ocn_fluxes.F |
45 |
NORM_OCN_FLUXES |
pass_precip(i,j)= sum_precip(i,j)/nper |
|
./pkg/atm2d/norm_ocn_fluxes.F |
46 |
NORM_OCN_FLUXES |
pass_evap(i,j)= -sum_evap(i,j)/nper !convert sign convention here |
|
./pkg/atm2d/norm_ocn_fluxes.F |
47 |
NORM_OCN_FLUXES |
pass_qnet(i,j)= sum_qnet(i,j)/nper |
|
./pkg/atm2d/norm_ocn_fluxes.F |
48 |
NORM_OCN_FLUXES |
pass_fu(i,j)= sum_fu(i,j)/nper |
|
./pkg/atm2d/norm_ocn_fluxes.F |
49 |
NORM_OCN_FLUXES |
pass_fv(i,j)= sum_fv(i,j)/nper |
|
./pkg/atm2d/norm_ocn_fluxes.F |
50 |
NORM_OCN_FLUXES |
pass_wspeed(i,j)= sum_wspeed(i,j)/nper |
|
./pkg/atm2d/norm_ocn_fluxes.F |
51 |
NORM_OCN_FLUXES |
pass_solarnet(i,j)= -sum_solarnet(i,j)/nper !change sign |
|
./pkg/atm2d/norm_ocn_fluxes.F |
52 |
NORM_OCN_FLUXES |
pass_slp(i,j)= sum_slp(i,j)/nper*100. _d 0 !convert to Pa |
|
./pkg/atm2d/norm_ocn_fluxes.F |
53 |
NORM_OCN_FLUXES |
pass_pCO2(i,j)= sum_pCO2(i,j)*1. _d -6/nper |
|
./pkg/atm2d/norm_ocn_fluxes.F |
55 |
NORM_OCN_FLUXES |
sHeating(i,j,1,1) = sum_sHeat(i,j)/nper ! from temp-solve step |
|
./pkg/atm2d/norm_ocn_fluxes.F |
56 |
NORM_OCN_FLUXES |
flxCndBt(i,j,1,1)= sum_flxCnB(i,j)/nper ! from temp-solve step |
|
./pkg/atm2d/norm_ocn_fluxes.F |
57 |
NORM_OCN_FLUXES |
pass_PrcAtm(i,j)= sum_prcIce(i,j)/nper |
|
./pkg/atm2d/norm_ocn_fluxes.F |
58 |
NORM_OCN_FLUXES |
icFrwAtm(i,j,1,1)= sum_evapIce(i,j)/nper |
|
./pkg/atm2d/norm_ocn_fluxes.F |
63 |
NORM_OCN_FLUXES |
snowPrc(i,j)= sum_snowPrc(i,j)/nper |
|
./pkg/atm2d/norm_ocn_fluxes.F |
66 |
NORM_OCN_FLUXES |
IF ( pass_wspeed(i,j) .LT. 0. _d 0) |
|
./pkg/atm2d/norm_ocn_fluxes.F |
67 |
NORM_OCN_FLUXES |
& pass_wspeed(i,j) = 0. _d 0 |
|
./pkg/atm2d/norm_ocn_fluxes.F |
70 |
NORM_OCN_FLUXES |
sum_iceMask(i,j)=sum_iceMask(i,j) + |
|
./pkg/atm2d/norm_ocn_fluxes.F |
71 |
NORM_OCN_FLUXES |
& iceMask(i,j,1,1)*dtcouplo |
|
./pkg/atm2d/norm_ocn_fluxes.F |
72 |
NORM_OCN_FLUXES |
sum_iceHeight(i,j)= sum_iceHeight(i,j) + |
|
./pkg/atm2d/norm_ocn_fluxes.F |
73 |
NORM_OCN_FLUXES |
& iceHeight(i,j,1,1)*dtcouplo |
|
./pkg/atm2d/norm_ocn_fluxes.F |
74 |
NORM_OCN_FLUXES |
IF (iceMask(i,j,1,1) .NE. 0. _d 0) |
|
./pkg/atm2d/norm_ocn_fluxes.F |
75 |
NORM_OCN_FLUXES |
& sum_iceTime(i,j)= sum_iceTime(i,j) + dtcouplo |
|
./pkg/atm2d/norm_ocn_fluxes.F |
76 |
NORM_OCN_FLUXES |
sum_oceMxLT(i,j)=sum_oceMxLT(i,j) + |
|
./pkg/atm2d/norm_ocn_fluxes.F |
77 |
NORM_OCN_FLUXES |
& tOceMxL(i,j,1,1)*dtcouplo |
|
./pkg/atm2d/norm_ocn_fluxes.F |
78 |
NORM_OCN_FLUXES |
sum_oceMxLS(i,j)=sum_oceMxLS(i,j) + |
|
./pkg/atm2d/norm_ocn_fluxes.F |
79 |
NORM_OCN_FLUXES |
& sOceMxL(i,j,1,1)*dtcouplo |
|
./pkg/atm2d/pass_thsice_fluxes.F |
34 |
PASS_THSICE_FLUXES |
INTEGER i,j |
|
./pkg/atm2d/pass_thsice_fluxes.F |
37 |
PASS_THSICE_FLUXES |
DO i=1, sNx |
|
./pkg/atm2d/pass_thsice_fluxes.F |
39 |
PASS_THSICE_FLUXES |
IF (iceMask(i,j,1,1) .GT. 0. _d 0) THEN |
|
./pkg/atm2d/pass_thsice_fluxes.F |
40 |
PASS_THSICE_FLUXES |
netSW(i,j) = solarinc_2D(i,j)*(1. _d 0 - siceAlb(i,j,1,1)) ! convert to netSW |
|
./pkg/atm2d/pass_thsice_fluxes.F |
41 |
PASS_THSICE_FLUXES |
sFlx(i,j,0)= -qneti_2D(i,j) -netSW(i,j) + |
|
./pkg/atm2d/pass_thsice_fluxes.F |
42 |
PASS_THSICE_FLUXES |
& Tsrf(i,j,1,1)*dFdT_ice_2D(i,j) |
|
./pkg/atm2d/pass_thsice_fluxes.F |
43 |
PASS_THSICE_FLUXES |
sFlx(i,j,1)= -qneti_2D(i,j) -netSW(i,j) |
|
./pkg/atm2d/pass_thsice_fluxes.F |
44 |
PASS_THSICE_FLUXES |
sFlx(i,j,2)= -dFdT_ice_2D(i,j) |
|
./pkg/atm2d/pass_thsice_fluxes.F |
47 |
PASS_THSICE_FLUXES |
sum_prcIce(i,j) = sum_prcIce(i,j) - precipi_2D(i,j)*rhofw |
|
./pkg/atm2d/pass_thsice_fluxes.F |
48 |
PASS_THSICE_FLUXES |
sum_evapIce(i,j) = sum_evapIce(i,j) - evapi_2D(i,j)*rhofw |
|
./pkg/atm2d/pass_thsice_fluxes.F |
49 |
PASS_THSICE_FLUXES |
IF (Tair_2D(i,j) .LE. 0. _d 0) |
|
./pkg/atm2d/pass_thsice_fluxes.F |
50 |
PASS_THSICE_FLUXES |
& sum_snowPrc(i,j) = sum_snowPrc(i,j) - precipi_2D(i,j)*rhofw |
|
./pkg/atm2d/put_ocnvars.F |
100 |
PUT_OCNVARS |
wind(i,j,1,1)= pass_wspeed(i,j) |
|
./pkg/atm2d/put_ocnvars.F |
45 |
PUT_OCNVARS |
INTEGER i,j |
|
./pkg/atm2d/put_ocnvars.F |
48 |
PUT_OCNVARS |
DO i=1,sNx |
|
./pkg/atm2d/put_ocnvars.F |
53 |
PUT_OCNVARS |
atmSLPr_ocn(i,j)= pass_slp(i,j) |
|
./pkg/atm2d/put_ocnvars.F |
54 |
PUT_OCNVARS |
HeatFlux_ocn(i,j)= pass_qnet(i,j) |
|
./pkg/atm2d/put_ocnvars.F |
55 |
PUT_OCNVARS |
qShortWave_ocn(i,j)= pass_solarnet(i,j) |
|
./pkg/atm2d/put_ocnvars.F |
56 |
PUT_OCNVARS |
TauX_ocn(i,j)= pass_fu(i,j) |
|
./pkg/atm2d/put_ocnvars.F |
57 |
PUT_OCNVARS |
TauY_ocn(i,j)= pass_fv(i,j) |
|
./pkg/atm2d/put_ocnvars.F |
59 |
PUT_OCNVARS |
FWFlux_ocn(i,j)= (pass_precip(i,j) + pass_evap(i,j) |
|
./pkg/atm2d/put_ocnvars.F |
60 |
PUT_OCNVARS |
& + pass_runoff(i,j)) * rhoConstFresh |
|
./pkg/atm2d/put_ocnvars.F |
61 |
PUT_OCNVARS |
SaltFlx_ocn(i,j) = sFluxFromIce(i,j) |
|
./pkg/atm2d/put_ocnvars.F |
63 |
PUT_OCNVARS |
sIceMass_ocn(i,j) = pass_sIceLoad(i,j) |
|
./pkg/atm2d/put_ocnvars.F |
66 |
PUT_OCNVARS |
aCO2_ocn(i,j) = pass_pCO2(i,j) |
|
./pkg/atm2d/put_ocnvars.F |
67 |
PUT_OCNVARS |
wSpeed_ocn(i,j) = pass_wspeed(i,j) |
|
./pkg/atm2d/put_ocnvars.F |
68 |
PUT_OCNVARS |
sIceFrac_ocn(i,j) = iceMask(i,j,1,1) |
|
./pkg/atm2d/put_ocnvars.F |
74 |
PUT_OCNVARS |
pLoad(i,j,1,1)= pass_slp(i,j) |
|
./pkg/atm2d/put_ocnvars.F |
75 |
PUT_OCNVARS |
Qnet(i,j,1,1)= pass_qnet(i,j) |
|
./pkg/atm2d/put_ocnvars.F |
76 |
PUT_OCNVARS |
Qsw(i,j,1,1)= pass_solarnet(i,j) |
|
./pkg/atm2d/put_ocnvars.F |
77 |
PUT_OCNVARS |
fu(i,j,1,1)= pass_fu(i,j) |
|
./pkg/atm2d/put_ocnvars.F |
78 |
PUT_OCNVARS |
fv(i,j,1,1)= pass_fv(i,j) |
|
./pkg/atm2d/put_ocnvars.F |
79 |
PUT_OCNVARS |
EmPmR(i,j,1,1)= (pass_precip(i,j) + pass_evap(i,j) |
|
./pkg/atm2d/put_ocnvars.F |
80 |
PUT_OCNVARS |
& + pass_runoff(i,j)) * rhoConstFresh |
|
./pkg/atm2d/put_ocnvars.F |
81 |
PUT_OCNVARS |
saltFlux(i,j,1,1)= sFluxFromIce(i,j) |
|
./pkg/atm2d/put_ocnvars.F |
90 |
PUT_OCNVARS |
sIceLoad(i,j,1,1) = pass_sIceLoad(i,j) |
|
./pkg/atm2d/put_ocnvars.F |
99 |
PUT_OCNVARS |
AtmospCO2(i,j,1,1)= pass_pCO2(i,j) |
|
./pkg/atm2d/relax_add.F |
100 |
RELAX_ADD |
IF (maskC(i,j,1,1,1) .EQ. 1.) THEN |
|
./pkg/atm2d/relax_add.F |
103 |
RELAX_ADD |
sstRelax(i,j)= (wght0*sst0(i,j,1,1) + wght1*sst1(i,j,1,1)) |
|
./pkg/atm2d/relax_add.F |
105 |
RELAX_ADD |
sstRelax(i,j)= sstFromOcn(i,j) |
|
./pkg/atm2d/relax_add.F |
109 |
RELAX_ADD |
sssRelax(i,j)= (wght0*sss0(i,j,1,1) + wght1*sss1(i,j,1,1)) |
|
./pkg/atm2d/relax_add.F |
111 |
RELAX_ADD |
sssRelax(i,j)= sssFromOcn(i,j) |
|
./pkg/atm2d/relax_add.F |
117 |
RELAX_ADD |
IF ((sstRelax(i,j).GT.2. _d 0).OR. |
|
./pkg/atm2d/relax_add.F |
118 |
RELAX_ADD |
& (iceMask(i,j,1,1) .EQ. 0. _d 0)) THEN |
|
./pkg/atm2d/relax_add.F |
120 |
RELAX_ADD |
ELSEIF (sstRelax(i,j) .LE. -1. _d 0) THEN |
|
./pkg/atm2d/relax_add.F |
123 |
RELAX_ADD |
nearIce=(sstRelax(i,j)+1.0)/3.0 |
|
./pkg/atm2d/relax_add.F |
126 |
RELAX_ADD |
qrelflux= lambdaTheta*(sstFromOcn(i,j)-sstRelax(i,j)) |
|
./pkg/atm2d/relax_add.F |
133 |
RELAX_ADD |
IF (iceMask(i,j,1,1) .LT. 0.999 _d 0) THEN |
|
./pkg/atm2d/relax_add.F |
134 |
RELAX_ADD |
qneto_2D(i,j)= qneto_2D(i,j) + qrelflux |
|
./pkg/atm2d/relax_add.F |
135 |
RELAX_ADD |
& / (1. _d 0 - iceMask(i,j,1,1)) |
|
./pkg/atm2d/relax_add.F |
140 |
RELAX_ADD |
frelflux= -lambdaSalt*(sssFromOcn(i,j)-sssRelax(i,j))/ |
|
./pkg/atm2d/relax_add.F |
146 |
RELAX_ADD |
evapo_2D(i,j)= evapo_2D(i,j) - frelflux |
|
./pkg/atm2d/relax_add.F |
149 |
RELAX_ADD |
IF (iceMask(i,j,1,1).GT.0. _d 0) |
|
./pkg/atm2d/relax_add.F |
150 |
RELAX_ADD |
& evapi_2D(i,j)= evapi_2D(i,j) - frelflux |
|
./pkg/atm2d/relax_add.F |
152 |
RELAX_ADD |
precipo_2D(i,j)= precipo_2D(i,j) + frelflux |
|
./pkg/atm2d/relax_add.F |
153 |
RELAX_ADD |
IF (iceMask(i,j,1,1).GT.0. _d 0) |
|
./pkg/atm2d/relax_add.F |
154 |
RELAX_ADD |
& precipi_2D(i,j)= precipi_2D(i,j) + frelflux |
|
./pkg/atm2d/relax_add.F |
162 |
RELAX_ADD |
sum_qrel(i,j)= sum_qrel(i,j) + qrelflux*dtatmo |
|
./pkg/atm2d/relax_add.F |
163 |
RELAX_ADD |
sum_frel(i,j)= sum_frel(i,j) + frelflux*dtatmo |
|
./pkg/atm2d/relax_add.F |
57 |
RELAX_ADD |
INTEGER i,j |
|
./pkg/atm2d/relax_add.F |
98 |
RELAX_ADD |
DO i=1,sNx |
|
./pkg/atm2d/sum_ocn_fluxes.F |
36 |
SUM_OCN_FLUXES |
INTEGER i,j |
|
./pkg/atm2d/sum_ocn_fluxes.F |
39 |
SUM_OCN_FLUXES |
DO i=1,sNx |
|
./pkg/atm2d/sum_ocn_fluxes.F |
41 |
SUM_OCN_FLUXES |
IF (maskC(i,j,1,1,1) .EQ. 1.) THEN |
|
./pkg/atm2d/sum_ocn_fluxes.F |
45 |
SUM_OCN_FLUXES |
IF (iceMask(i,j,1,1) .GT. windice_thres) THEN |
|
./pkg/atm2d/sum_ocn_fluxes.F |
47 |
SUM_OCN_FLUXES |
fu_2D(i,j)= fu_2D(i,j) * (1. _d 0 - |
|
./pkg/atm2d/sum_ocn_fluxes.F |
48 |
SUM_OCN_FLUXES |
& (iceMask(i,j,1,1) + iceMask(i-1,j,1,1)) * 0.5 _d 0 ) |
|
./pkg/atm2d/sum_ocn_fluxes.F |
50 |
SUM_OCN_FLUXES |
fv_2D(i,j)= fv_2D(i,j) * (1. _d 0 - |
|
./pkg/atm2d/sum_ocn_fluxes.F |
51 |
SUM_OCN_FLUXES |
& (iceMask(i,j,1,1) + iceMask(i,j-1,1,1)) * 0.5 _d 0 ) |
|
./pkg/atm2d/sum_ocn_fluxes.F |
53 |
SUM_OCN_FLUXES |
wspeed_2D(i,j)= wspeed_2D(i,j) |
|
./pkg/atm2d/sum_ocn_fluxes.F |
54 |
SUM_OCN_FLUXES |
& * (1. _d 0 - iceMask(i,j,1,1)) |
|
./pkg/atm2d/sum_ocn_fluxes.F |
58 |
SUM_OCN_FLUXES |
sum_runoff(i,j)= sum_runoff(i,j) + runoff_2D(i,j) |
|
./pkg/atm2d/sum_ocn_fluxes.F |
59 |
SUM_OCN_FLUXES |
sum_precip(i,j)= sum_precip(i,j) + |
|
./pkg/atm2d/sum_ocn_fluxes.F |
60 |
SUM_OCN_FLUXES |
& precipo_2D(i,j)*(1. _d 0-iceMask(i,j,1,1)) |
|
./pkg/atm2d/sum_ocn_fluxes.F |
61 |
SUM_OCN_FLUXES |
sum_evap(i,j)= sum_evap(i,j) + |
|
./pkg/atm2d/sum_ocn_fluxes.F |
62 |
SUM_OCN_FLUXES |
& evapo_2D(i,j)*(1. _d 0-iceMask(i,j,1,1)) |
|
./pkg/atm2d/sum_ocn_fluxes.F |
63 |
SUM_OCN_FLUXES |
sum_qnet(i,j)= sum_qnet(i,j) + |
|
./pkg/atm2d/sum_ocn_fluxes.F |
64 |
SUM_OCN_FLUXES |
& qneto_2D(i,j)*(1. _d 0-iceMask(i,j,1,1)) |
|
./pkg/atm2d/sum_ocn_fluxes.F |
65 |
SUM_OCN_FLUXES |
sum_fu(i,j)= sum_fu(i,j) + fu_2D(i,j) |
|
./pkg/atm2d/sum_ocn_fluxes.F |
66 |
SUM_OCN_FLUXES |
sum_fv(i,j)= sum_fv(i,j) + fv_2D(i,j) |
|
./pkg/atm2d/sum_ocn_fluxes.F |
67 |
SUM_OCN_FLUXES |
sum_wspeed(i,j)= sum_wspeed(i,j) + wspeed_2D(i,j) |
|
./pkg/atm2d/sum_ocn_fluxes.F |
68 |
SUM_OCN_FLUXES |
sum_solarnet(i,j)= sum_solarnet(i,j) + |
|
./pkg/atm2d/sum_ocn_fluxes.F |
69 |
SUM_OCN_FLUXES |
& solarnet_ocn_2D(i,j)*(1. _d 0-iceMask(i,j,1,1)) |
|
./pkg/atm2d/sum_ocn_fluxes.F |
70 |
SUM_OCN_FLUXES |
sum_slp(i,j)= sum_slp(i,j) + slp_2D(i,j) |
|
./pkg/atm2d/sum_ocn_fluxes.F |
71 |
SUM_OCN_FLUXES |
sum_pCO2(i,j)= sum_pCO2(i,j) + pCO2_2D(i,j) |
|
./pkg/atm2d/sum_thsice_out.F |
32 |
SUM_THSICE_OUT |
INTEGER i,j |
|
./pkg/atm2d/sum_thsice_out.F |
35 |
SUM_THSICE_OUT |
DO i=1,sNx |
|
./pkg/atm2d/sum_thsice_out.F |
37 |
SUM_THSICE_OUT |
IF (iceMask(i,j,1,1) .NE. 0. _d 0) THEN |
|
./pkg/atm2d/sum_thsice_out.F |
38 |
SUM_THSICE_OUT |
sum_sHeat(i,j) = sum_sHeat(i,j) + sHeating(i,j,1,1) |
|
./pkg/atm2d/sum_thsice_out.F |
39 |
SUM_THSICE_OUT |
sum_flxCnB(i,j)= sum_flxCnB(i,j) + flxCndBt(i,j,1,1) |
|
./pkg/atm2d/sum_thsice_out.F |
42 |
SUM_THSICE_OUT |
sum_solarnet(i,j)= sum_solarnet(i,j) |
|
./pkg/atm2d/sum_thsice_out.F |
43 |
SUM_THSICE_OUT |
& + icFlxSW(i,j,1,1)*iceMask(i,j,1,1) |
|
./pkg/atm2d/sum_thsice_out.F |
45 |
SUM_THSICE_OUT |
icFlxSW(i,j,1,1)= 0. _d 0 |
|
./eesupp/src/gather_xz.F |
18 |
GATHER_XZ |
INTEGER iG, i, bi, bj |
|
./eesupp/src/gather_xz.F |
35 |
GATHER_XZ |
DO i=1,sNx |
|
./eesupp/src/gather_xz.F |
36 |
GATHER_XZ |
iG = myXGlobalLo-1+(bi-1)*sNx+i |
|
./eesupp/src/gather_xz.F |
37 |
GATHER_XZ |
global(iG) = local(i,bi,bj) |
|
./eesupp/src/gather_xz.F |
55 |
GATHER_XZ |
DO i=1,sNx |
|
./eesupp/src/gather_xz.F |
56 |
GATHER_XZ |
iG = mpi_myXGlobalLo(npe+1)-1+(bi-1)*sNx+i |
|
./eesupp/src/gather_xz.F |
57 |
GATHER_XZ |
global(iG) = local(i,bi,bj) |
|
./eesupp/src/gather_xz.F |
74 |
GATHER_XZ |
DO i=1,sNx |
|
./eesupp/src/gather_xz.F |
75 |
GATHER_XZ |
iG = mpi_myXGlobalLo(npe+1)-1+(bi-1)*sNx+i |
|
./eesupp/src/gather_xz.F |
76 |
GATHER_XZ |
global(iG) = temp(i,bi,bj) |
|
./pkg/atm2d/sum_yr_end_diags.F |
34 |
SUM_YR_END_DIAGS |
INTEGER i,j |
|
./pkg/atm2d/sum_yr_end_diags.F |
39 |
SUM_YR_END_DIAGS |
DO i=1,sNx |
|
./pkg/atm2d/sum_yr_end_diags.F |
40 |
SUM_YR_END_DIAGS |
IF (iceMask(i,j,1,1).GT. 0. _d 0) |
|
./pkg/atm2d/sum_yr_end_diags.F |
41 |
SUM_YR_END_DIAGS |
& iceArea = iceArea + rA(i,j,1,1)*iceMask(i,j,1,1) |
|
./pkg/atm2d/sum_yr_end_diags.F |
49 |
SUM_YR_END_DIAGS |
DO i=1,sNx |
|
./pkg/atm2d/sum_yr_end_diags.F |
50 |
SUM_YR_END_DIAGS |
IF (iceMask(i,j,1,1).GT. 0. _d 0) |
|
./pkg/atm2d/sum_yr_end_diags.F |
51 |
SUM_YR_END_DIAGS |
& iceArea = iceArea + rA(i,j,1,1)*iceMask(i,j,1,1) |
|
./pkg/atm2d/sum_yr_end_diags.F |
58 |
SUM_YR_END_DIAGS |
DO i=1,sNx |
|
./pkg/atm2d/sum_yr_end_diags.F |
60 |
SUM_YR_END_DIAGS |
IF (maskC(i,j,1,1,1) .EQ. 1.) THEN |
|
./pkg/atm2d/sum_yr_end_diags.F |
61 |
SUM_YR_END_DIAGS |
sst_tave= sst_tave + rA(i,j,1,1)*sstFromOcn(i,j) |
|
./pkg/atm2d/sum_yr_end_diags.F |
62 |
SUM_YR_END_DIAGS |
sss_tave= sss_tave + rA(i,j,1,1)*sssFromOcn(i,j) |
|
./pkg/atm2d/sum_yr_end_diags.F |
63 |
SUM_YR_END_DIAGS |
HF2ocn_tave = HF2ocn_tave + rA(i,j,1,1)*pass_qnet(i,j) |
|
./pkg/atm2d/sum_yr_end_diags.F |
64 |
SUM_YR_END_DIAGS |
FW2ocn_tave = FW2ocn_tave + rA(i,j,1,1)* |
|
./pkg/atm2d/sum_yr_end_diags.F |
65 |
SUM_YR_END_DIAGS |
& (pass_precip(i,j) + pass_evap(i,j) + pass_runoff(i,j)) |
|
./pkg/atm2d/sum_yr_end_diags.F |
67 |
SUM_YR_END_DIAGS |
CO2flx_tave = CO2flx_tave + rA(i,j,1,1)*oFluxCO2(i,j) |
|
./pkg/atm2d/tave_end_diags.F |
100 |
TAVE_END_DIAGS |
& runoff_mon(i,j)*ndmonth(mn)/365.0 |
|
./pkg/atm2d/tave_end_diags.F |
101 |
TAVE_END_DIAGS |
qrel_ann(i,j) = qrel_ann(i,j) + |
|
./pkg/atm2d/tave_end_diags.F |
102 |
TAVE_END_DIAGS |
& qrel_mon(i,j)*ndmonth(mn)/365.0 |
|
./pkg/atm2d/tave_end_diags.F |
103 |
TAVE_END_DIAGS |
frel_ann(i,j) = frel_ann(i,j) + |
|
./pkg/atm2d/tave_end_diags.F |
104 |
TAVE_END_DIAGS |
& frel_mon(i,j)*ndmonth(mn)/365.0 |
|
./pkg/atm2d/tave_end_diags.F |
106 |
TAVE_END_DIAGS |
qnet_atm_ta(i,j,mn)= 0. _d 0 |
|
./pkg/atm2d/tave_end_diags.F |
107 |
TAVE_END_DIAGS |
evap_atm_ta(i,j,mn)= 0. _d 0 |
|
./pkg/atm2d/tave_end_diags.F |
108 |
TAVE_END_DIAGS |
precip_atm_ta(i,j,mn)= 0. _d 0 |
|
./pkg/atm2d/tave_end_diags.F |
109 |
TAVE_END_DIAGS |
runoff_atm_ta(i,j,mn)= 0. _d 0 |
|
./pkg/atm2d/tave_end_diags.F |
110 |
TAVE_END_DIAGS |
sum_qrel_ta(i,j,mn)= 0. _d 0 |
|
./pkg/atm2d/tave_end_diags.F |
111 |
TAVE_END_DIAGS |
sum_frel_ta(i,j,mn)= 0. _d 0 |
|
./pkg/atm2d/tave_end_diags.F |
112 |
TAVE_END_DIAGS |
sum_iceMask_ta(i,j,mn)= 0. _d 0 |
|
./pkg/atm2d/tave_end_diags.F |
113 |
TAVE_END_DIAGS |
sum_iceHeight_ta(i,j,mn)= 0. _d 0 |
|
./pkg/atm2d/tave_end_diags.F |
114 |
TAVE_END_DIAGS |
sum_iceTime_ta(i,j,mn)= 0. _d 0 |
|
./pkg/atm2d/tave_end_diags.F |
115 |
TAVE_END_DIAGS |
sum_oceMxLT_ta(i,j,mn)= 0. _d 0 |
|
./pkg/atm2d/tave_end_diags.F |
116 |
TAVE_END_DIAGS |
sum_oceMxLS_ta(i,j,mn)= 0. _d 0 |
|
./pkg/atm2d/tave_end_diags.F |
39 |
TAVE_END_DIAGS |
INTEGER i,j,mn,j_atm |
|
./pkg/atm2d/tave_end_diags.F |
63 |
TAVE_END_DIAGS |
DO i=1,sNx |
|
./pkg/atm2d/tave_end_diags.F |
65 |
TAVE_END_DIAGS |
qnet_ann(i,j) = 0. _d 0 |
|
./pkg/atm2d/tave_end_diags.F |
66 |
TAVE_END_DIAGS |
evap_ann(i,j) = 0. _d 0 |
|
./pkg/atm2d/tave_end_diags.F |
67 |
TAVE_END_DIAGS |
precip_ann(i,j) = 0. _d 0 |
|
./pkg/atm2d/tave_end_diags.F |
68 |
TAVE_END_DIAGS |
runoff_ann(i,j) = 0. _d 0 |
|
./pkg/atm2d/tave_end_diags.F |
69 |
TAVE_END_DIAGS |
qrel_ann(i,j) = 0. _d 0 |
|
./pkg/atm2d/tave_end_diags.F |
70 |
TAVE_END_DIAGS |
frel_ann(i,j) = 0. _d 0 |
|
./pkg/atm2d/tave_end_diags.F |
79 |
TAVE_END_DIAGS |
DO i=1,sNx |
|
./pkg/atm2d/tave_end_diags.F |
81 |
TAVE_END_DIAGS |
qnet_mon(i,j)= qnet_atm_ta(i,j,mn)/norm_factor |
|
./pkg/atm2d/tave_end_diags.F |
82 |
TAVE_END_DIAGS |
evap_mon(i,j)= evap_atm_ta(i,j,mn)/norm_factor |
|
./pkg/atm2d/tave_end_diags.F |
83 |
TAVE_END_DIAGS |
precip_mon(i,j)= precip_atm_ta(i,j,mn)/norm_factor |
|
./pkg/atm2d/tave_end_diags.F |
84 |
TAVE_END_DIAGS |
runoff_mon(i,j)= runoff_atm_ta(i,j,mn)/norm_factor |
|
./pkg/atm2d/tave_end_diags.F |
85 |
TAVE_END_DIAGS |
qrel_mon(i,j)= sum_qrel_ta(i,j,mn)/norm_factor |
|
./pkg/atm2d/tave_end_diags.F |
86 |
TAVE_END_DIAGS |
frel_mon(i,j)= sum_frel_ta(i,j,mn)/norm_factor |
|
./pkg/atm2d/tave_end_diags.F |
87 |
TAVE_END_DIAGS |
iceMask_mon(i,j)= sum_iceMask_ta(i,j,mn)/norm_factor |
|
./pkg/atm2d/tave_end_diags.F |
88 |
TAVE_END_DIAGS |
iceHeight_mon(i,j)= sum_iceHeight_ta(i,j,mn)/norm_factor |
|
./pkg/atm2d/tave_end_diags.F |
89 |
TAVE_END_DIAGS |
iceTime_mon(i,j)= sum_iceTime_ta(i,j,mn)/norm_factor |
|
./pkg/atm2d/tave_end_diags.F |
90 |
TAVE_END_DIAGS |
oceMxLT_mon(i,j)= sum_oceMxLT_ta(i,j,mn)/norm_factor |
|
./pkg/atm2d/tave_end_diags.F |
91 |
TAVE_END_DIAGS |
oceMxLS_mon(i,j)= sum_oceMxLS_ta(i,j,mn)/norm_factor |
|
./pkg/atm2d/tave_end_diags.F |
93 |
TAVE_END_DIAGS |
qnet_ann(i,j) = qnet_ann(i,j) + |
|
./pkg/atm2d/tave_end_diags.F |
94 |
TAVE_END_DIAGS |
& qnet_mon(i,j)*ndmonth(mn)/365.0 |
|
./pkg/atm2d/tave_end_diags.F |
95 |
TAVE_END_DIAGS |
evap_ann(i,j) = evap_ann(i,j) + |
|
./pkg/atm2d/tave_end_diags.F |
96 |
TAVE_END_DIAGS |
& evap_mon(i,j)*ndmonth(mn)/365.0 |
|
./pkg/atm2d/tave_end_diags.F |
97 |
TAVE_END_DIAGS |
precip_ann(i,j) = precip_ann(i,j) + |
|
./pkg/atm2d/tave_end_diags.F |
98 |
TAVE_END_DIAGS |
& precip_mon(i,j)*ndmonth(mn)/365.0 |
|
./pkg/atm2d/tave_end_diags.F |
99 |
TAVE_END_DIAGS |
runoff_ann(i,j) = runoff_ann(i,j) + |
|
./pkg/atm_compon_interf/atm_apply_import.F |
100 |
ATM_APPLY_IMPORT |
IF ( land_frc(i,j,bi,bj) .LT. 1. ) THEN |
|
./pkg/atm_compon_interf/atm_apply_import.F |
101 |
ATM_APPLY_IMPORT |
tOceMxL(i,j,bi,bj) = SSTocn(i,j,bi,bj) |
|
./pkg/atm_compon_interf/atm_apply_import.F |
110 |
ATM_APPLY_IMPORT |
DO i=1,sNx |
|
./pkg/atm_compon_interf/atm_apply_import.F |
111 |
ATM_APPLY_IMPORT |
IF ( land_frc(i,j,bi,bj) .LT. 1. ) THEN |
|
./pkg/atm_compon_interf/atm_apply_import.F |
112 |
ATM_APPLY_IMPORT |
sOceMxL(i,j,bi,bj) = SSSocn(i,j,bi,bj) |
|
./pkg/atm_compon_interf/atm_apply_import.F |
121 |
ATM_APPLY_IMPORT |
DO i=1,sNx |
|
./pkg/atm_compon_interf/atm_apply_import.F |
122 |
ATM_APPLY_IMPORT |
IF ( land_frc(i,j,bi,bj) .LT. 1. ) THEN |
|
./pkg/atm_compon_interf/atm_apply_import.F |
123 |
ATM_APPLY_IMPORT |
v2ocMxL(i,j,bi,bj) = vSqocn(i,j,bi,bj) |
|
./pkg/atm_compon_interf/atm_apply_import.F |
137 |
ATM_APPLY_IMPORT |
DO i=1,sNx |
|
./pkg/atm_compon_interf/atm_apply_import.F |
138 |
ATM_APPLY_IMPORT |
atmSST(i,j) = SSTocn(i,j,bi,bj)+celsius2K |
|
./pkg/atm_compon_interf/atm_apply_import.F |
148 |
ATM_APPLY_IMPORT |
DO i=1,sNx |
|
./pkg/atm_compon_interf/atm_apply_import.F |
149 |
ATM_APPLY_IMPORT |
IF ( land_frc(i,j,bi,bj) .LT. 1. ) THEN |
|
./pkg/atm_compon_interf/atm_apply_import.F |
152 |
ATM_APPLY_IMPORT |
IF ( atmSIfrc(i,j).EQ.0. ) THEN |
|
./pkg/atm_compon_interf/atm_apply_import.F |
153 |
ATM_APPLY_IMPORT |
atmSST(i,j) = SSTocn(i,j,bi,bj)+celsius2K |
|
./pkg/atm_compon_interf/atm_apply_import.F |
154 |
ATM_APPLY_IMPORT |
ELSEIF ( SSTocn(i,j,bi,bj).GE. -1. _d 0) THEN |
|
./pkg/atm_compon_interf/atm_apply_import.F |
157 |
ATM_APPLY_IMPORT |
atmSST(i,j) = SSTocn(i,j,bi,bj)+celsius2K |
|
./pkg/atm_compon_interf/atm_apply_import.F |
158 |
ATM_APPLY_IMPORT |
atmSIfrc(i,j) = 0. |
|
./pkg/atm_compon_interf/atm_apply_import.F |
61 |
ATM_APPLY_IMPORT |
INTEGER i,j |
|
./pkg/atm_compon_interf/atm_apply_import.F |
68 |
ATM_APPLY_IMPORT |
DO i=1,sNx |
|
./pkg/atm_compon_interf/atm_apply_import.F |
69 |
ATM_APPLY_IMPORT |
iceMask (i,j,bi,bj) = sIceFrac_cpl (i,j,bi,bj) |
|
./pkg/atm_compon_interf/atm_apply_import.F |
70 |
ATM_APPLY_IMPORT |
iceHeight (i,j,bi,bj) = sIceThick_cpl(i,j,bi,bj) |
|
./pkg/atm_compon_interf/atm_apply_import.F |
71 |
ATM_APPLY_IMPORT |
snowHeight(i,j,bi,bj) = sIceSnowH_cpl(i,j,bi,bj) |
|
./pkg/atm_compon_interf/atm_apply_import.F |
72 |
ATM_APPLY_IMPORT |
Qice1 (i,j,bi,bj) = sIceQ1_cpl (i,j,bi,bj) |
|
./pkg/atm_compon_interf/atm_apply_import.F |
73 |
ATM_APPLY_IMPORT |
Qice2 (i,j,bi,bj) = sIceQ2_cpl (i,j,bi,bj) |
|
./pkg/atm_compon_interf/atm_apply_import.F |
88 |
ATM_APPLY_IMPORT |
DO i=1,sNx |
|
./pkg/atm_compon_interf/atm_apply_import.F |
89 |
ATM_APPLY_IMPORT |
IF ( land_frc(i,j,bi,bj) .LT. 1. ) THEN |
|
./pkg/atm_compon_interf/atm_apply_import.F |
90 |
ATM_APPLY_IMPORT |
hOceMxL(i,j,bi,bj) = ocMxlD(i,j,bi,bj) |
|
./pkg/atm_compon_interf/atm_apply_import.F |
99 |
ATM_APPLY_IMPORT |
DO i=1,sNx |
|
./pkg/atm_compon_interf/atm_check_cplconfig.F |
48 |
ATM_CHECK_CPLCONFIG |
INTEGER i, j, bi, bj |
|
./pkg/atm_compon_interf/atm_check_cplconfig.F |
84 |
ATM_CHECK_CPLCONFIG |
DO i=1,sNx |
|
./pkg/atm_compon_interf/atm_check_cplconfig.F |
85 |
ATM_CHECK_CPLCONFIG |
IF ( ( landMask(i,j,bi,bj) .EQ. atm_waterOnly |
|
./pkg/atm_compon_interf/atm_check_cplconfig.F |
86 |
ATM_CHECK_CPLCONFIG |
& .AND. ocMxlD(i,j,bi,bj) .EQ. mxlD_noWater ) |
|
./pkg/atm_compon_interf/atm_check_cplconfig.F |
87 |
ATM_CHECK_CPLCONFIG |
& .OR. ( landMask(i,j,bi,bj) .EQ. atm_landOnly |
|
./pkg/atm_compon_interf/atm_check_cplconfig.F |
88 |
ATM_CHECK_CPLCONFIG |
& .AND. ocMxlD(i,j,bi,bj) .NE. mxlD_noWater ) ) THEN |
|
./pkg/atm_compon_interf/atm_check_cplconfig.F |
91 |
ATM_CHECK_CPLCONFIG |
& 'Inconsistent land/sea mask @ (i=', i, ',j=', j, |
|
./pkg/atm_compon_interf/atm_check_cplconfig.F |
95 |
ATM_CHECK_CPLCONFIG |
& 'Land (atmosphere) ==', landMask(i,j,bi,bj) |
|
./pkg/atm_compon_interf/atm_check_cplconfig.F |
98 |
ATM_CHECK_CPLCONFIG |
& 'Mxl-Depth (ocean) ==', ocMxlD(i,j,bi,bj) |
|
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
247 |
ATM_CPL_READ_PICKUP |
DO i=1-OLx,sNx+OLx |
|
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
248 |
ATM_CPL_READ_PICKUP |
EvMPrFlux (i,j,bi,bj) = EvMPrFlux (i,j,bi,bj)*rhoConstFresh |
|
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
250 |
ATM_CPL_READ_PICKUP |
RunOffFlux(i,j,bi,bj) = RunOffFlux(i,j,bi,bj)*rhoConstFresh |
|
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
57 |
ATM_CPL_READ_PICKUP |
INTEGER i, bi, bj |
|
./pkg/atm_compon_interf/atm_export_fld.F |
53 |
ATM_EXPORT_FLD |
INTEGER i,j,bi,bj |
|
./pkg/atm_compon_interf/atm_export_fld.F |
62 |
ATM_EXPORT_FLD |
DO i=1,sNx |
|
./pkg/atm_compon_interf/atm_export_fld.F |
63 |
ATM_EXPORT_FLD |
atmFld(i,j,bi,bj) = atmFld(i,j,bi,bj)*recipAvT |
|
./pkg/atm_compon_interf/atm_export_fld.F |
87 |
ATM_EXPORT_FLD |
DO i=1,sNx |
|
./pkg/atm_compon_interf/atm_export_fld.F |
88 |
ATM_EXPORT_FLD |
atmFld(i,j,bi,bj) = 0. |
|
./pkg/atm_compon_interf/atm_get_atmconfig.F |
48 |
ATM_GET_ATMCONFIG |
INTEGER i,j,bi,bj |
|
./pkg/atm_compon_interf/atm_get_atmconfig.F |
56 |
ATM_GET_ATMCONFIG |
DO i=1-OLx,sNx+OLx |
|
./pkg/atm_compon_interf/atm_get_atmconfig.F |
57 |
ATM_GET_ATMCONFIG |
landMask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/atm_compon_interf/atm_get_atmconfig.F |
64 |
ATM_GET_ATMCONFIG |
DO i=1-OLx,sNx+OLx |
|
./pkg/atm_compon_interf/atm_get_atmconfig.F |
65 |
ATM_GET_ATMCONFIG |
landMask(i,j,bi,bj) = aim_landFr(i,j,bi,bj) |
|
./pkg/atm_compon_interf/atm_import_ocnconfig.F |
40 |
ATM_IMPORT_OCNCONFIG |
INTEGER i,j,bi,bj |
|
./pkg/atm_compon_interf/atm_import_ocnconfig.F |
46 |
ATM_IMPORT_OCNCONFIG |
DO i=1-OLx,sNx+OLx |
|
./pkg/atm_compon_interf/atm_import_ocnconfig.F |
47 |
ATM_IMPORT_OCNCONFIG |
ocMxlD (i,j,bi,bj) = 0. |
|
./pkg/atm_compon_interf/atm_store_aim_fields.F |
61 |
ATM_STORE_AIM_FIELDS |
INTEGER i,j |
|
./pkg/atm_compon_interf/atm_store_aim_fields.F |
70 |
ATM_STORE_AIM_FIELDS |
DO i=1,sNx |
|
./pkg/atm_compon_interf/atm_store_aim_fields.F |
71 |
ATM_STORE_AIM_FIELDS |
sWSpeed(i,j,bi,bj) = sWSpeed(i,j,bi,bj) |
|
./pkg/atm_compon_interf/atm_store_aim_fields.F |
72 |
ATM_STORE_AIM_FIELDS |
& + aim_surfWind(i,j,bi,bj)*cplTimeFraction |
|
./pkg/atm_compon_interf/atm_store_aim_fields.F |
82 |
ATM_STORE_AIM_FIELDS |
DO i=1,sNx |
|
./pkg/atm_compon_interf/atm_store_aim_fields.F |
83 |
ATM_STORE_AIM_FIELDS |
airCO2(i,j,bi,bj) = airCO2(i,j,bi,bj) |
|
./pkg/atm_compon_interf/atm_store_aim_fields.F |
84 |
ATM_STORE_AIM_FIELDS |
& + aim_CO2(i,j,bi,bj)*cplTimeFraction |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
100 |
ATM_STORE_AIM_WNDSTR |
& ( aim_drag(i,j-1,bi,bj) |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
101 |
ATM_STORE_AIM_WNDSTR |
& *(1. _d 0 - iceMask(i,j-1,bi,bj)*stressReduction) |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
102 |
ATM_STORE_AIM_WNDSTR |
& + aim_drag(i, j ,bi,bj) |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
103 |
ATM_STORE_AIM_WNDSTR |
& *(1. _d 0 - iceMask(i, j ,bi,bj)*stressReduction) |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
104 |
ATM_STORE_AIM_WNDSTR |
& )* 0.5 _d 0 * vVel(i,j,ks,bi,bj) |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
105 |
ATM_STORE_AIM_WNDSTR |
tauY(i,j,bi,bj) = tauY(i,j,bi,bj) |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
115 |
ATM_STORE_AIM_WNDSTR |
DO i=1,sNx |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
117 |
ATM_STORE_AIM_WNDSTR |
IF ( hFacW(i,j,ks,bi,bj) .NE. 0. ) THEN |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
119 |
ATM_STORE_AIM_WNDSTR |
& ( aim_drag(i-1,j,bi,bj)+aim_drag(i,j,bi,bj) ) |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
120 |
ATM_STORE_AIM_WNDSTR |
& * 0.5 _d 0 * uVel(i,j,ks,bi,bj) |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
121 |
ATM_STORE_AIM_WNDSTR |
tauX(i,j,bi,bj) = tauX(i,j,bi,bj) |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
127 |
ATM_STORE_AIM_WNDSTR |
DO i=1,sNx |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
129 |
ATM_STORE_AIM_WNDSTR |
IF ( hFacS(i,j,ks,bi,bj) .NE. 0. ) THEN |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
131 |
ATM_STORE_AIM_WNDSTR |
& ( aim_drag(i,j-1,bi,bj)+aim_drag(i,j,bi,bj) ) |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
132 |
ATM_STORE_AIM_WNDSTR |
& * 0.5 _d 0 * vVel(i,j,ks,bi,bj) |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
133 |
ATM_STORE_AIM_WNDSTR |
tauY(i,j,bi,bj) = tauY(i,j,bi,bj) |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
66 |
ATM_STORE_AIM_WNDSTR |
INTEGER i, j, ks |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
81 |
ATM_STORE_AIM_WNDSTR |
DO i=1,sNx |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
83 |
ATM_STORE_AIM_WNDSTR |
IF ( hFacW(i,j,ks,bi,bj) .NE. 0. ) THEN |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
85 |
ATM_STORE_AIM_WNDSTR |
& ( aim_drag(i-1,j,bi,bj) |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
86 |
ATM_STORE_AIM_WNDSTR |
& *(1. _d 0 - iceMask(i-1,j,bi,bj)*stressReduction) |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
87 |
ATM_STORE_AIM_WNDSTR |
& + aim_drag( i ,j,bi,bj) |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
88 |
ATM_STORE_AIM_WNDSTR |
& *(1. _d 0 - iceMask( i ,j,bi,bj)*stressReduction) |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
89 |
ATM_STORE_AIM_WNDSTR |
& )* 0.5 _d 0 * uVel(i,j,ks,bi,bj) |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
90 |
ATM_STORE_AIM_WNDSTR |
tauX(i,j,bi,bj) = tauX(i,j,bi,bj) |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
96 |
ATM_STORE_AIM_WNDSTR |
DO i=1,sNx |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
98 |
ATM_STORE_AIM_WNDSTR |
IF ( hFacS(i,j,ks,bi,bj) .NE. 0. ) THEN |
|
./pkg/atm_compon_interf/atm_store_dynvars.F |
48 |
ATM_STORE_DYNVARS |
INTEGER i,j |
|
./pkg/atm_compon_interf/atm_store_dynvars.F |
58 |
ATM_STORE_DYNVARS |
DO i=1,sNx |
|
./pkg/atm_compon_interf/atm_store_dynvars.F |
61 |
ATM_STORE_DYNVARS |
atmSLPr(i,j,bi,bj) = etaN(i,j,bi,bj) |
|
./pkg/atm_compon_interf/atm_store_land.F |
57 |
ATM_STORE_LAND |
INTEGER i, j |
|
./pkg/atm_compon_interf/atm_store_land.F |
65 |
ATM_STORE_LAND |
DO i=1,sNx |
|
./pkg/atm_compon_interf/atm_store_land.F |
66 |
ATM_STORE_LAND |
RunOffFlux(i,j,bi,bj) = RunOffFlux(i,j,bi,bj) |
|
./pkg/atm_compon_interf/atm_store_land.F |
67 |
ATM_STORE_LAND |
& + land_runOff(i,j,bi,bj)*cplTimeFraction |
|
./pkg/atm_compon_interf/atm_store_land.F |
76 |
ATM_STORE_LAND |
DO i=1,sNx |
|
./pkg/atm_compon_interf/atm_store_land.F |
77 |
ATM_STORE_LAND |
RunOffEnFx(i,j,bi,bj) = RunOffEnFx(i,j,bi,bj) |
|
./pkg/atm_compon_interf/atm_store_land.F |
78 |
ATM_STORE_LAND |
& + land_enRnOf(i,j,bi,bj)*cplTimeFraction |
|
./pkg/atm_compon_interf/atm_store_surfflux.F |
105 |
ATM_STORE_SURFFLUX |
DO i=1,sNx |
|
./pkg/atm_compon_interf/atm_store_surfflux.F |
106 |
ATM_STORE_SURFFLUX |
tauX(i,j,bi,bj) = tauX(i,j,bi,bj) |
|
./pkg/atm_compon_interf/atm_store_surfflux.F |
107 |
ATM_STORE_SURFFLUX |
& + fu(i,j,bi,bj)*cplTimeFraction |
|
./pkg/atm_compon_interf/atm_store_surfflux.F |
108 |
ATM_STORE_SURFFLUX |
tauY(i,j,bi,bj) = tauY(i,j,bi,bj) |
|
./pkg/atm_compon_interf/atm_store_surfflux.F |
109 |
ATM_STORE_SURFFLUX |
& + fv(i,j,bi,bj)*cplTimeFraction |
|
./pkg/atm_compon_interf/atm_store_surfflux.F |
49 |
ATM_STORE_SURFFLUX |
INTEGER i,j |
|
./pkg/atm_compon_interf/atm_store_surfflux.F |
59 |
ATM_STORE_SURFFLUX |
DO i=1,sNx |
|
./pkg/atm_compon_interf/atm_store_surfflux.F |
60 |
ATM_STORE_SURFFLUX |
HeatFlux(i,j,bi,bj) = HeatFlux(i,j,bi,bj) |
|
./pkg/atm_compon_interf/atm_store_surfflux.F |
61 |
ATM_STORE_SURFFLUX |
& + Qnet(i,j,bi,bj)*cplTimeFraction |
|
./pkg/atm_compon_interf/atm_store_surfflux.F |
69 |
ATM_STORE_SURFFLUX |
DO i=1,sNx |
|
./pkg/atm_compon_interf/atm_store_surfflux.F |
70 |
ATM_STORE_SURFFLUX |
qShortWave(i,j,bi,bj) = qShortWave(i,j,bi,bj) |
|
./pkg/atm_compon_interf/atm_store_surfflux.F |
71 |
ATM_STORE_SURFFLUX |
& + Qsw(i,j,bi,bj)*cplTimeFraction |
|
./pkg/atm_compon_interf/atm_store_surfflux.F |
79 |
ATM_STORE_SURFFLUX |
DO i=1,sNx |
|
./pkg/atm_compon_interf/atm_store_surfflux.F |
80 |
ATM_STORE_SURFFLUX |
EvMPrFlux(i,j,bi,bj) = EvMPrFlux(i,j,bi,bj) |
|
./pkg/atm_compon_interf/atm_store_surfflux.F |
81 |
ATM_STORE_SURFFLUX |
& + EmPmR(i,j,bi,bj)*cplTimeFraction |
|
./pkg/atm_compon_interf/atm_store_surfflux.F |
91 |
ATM_STORE_SURFFLUX |
DO i=1,sNx |
|
./pkg/atm_compon_interf/atm_store_surfflux.F |
92 |
ATM_STORE_SURFFLUX |
iceSaltFlx(i,j,bi,bj) = iceSaltFlx(i,j,bi,bj) |
|
./pkg/atm_compon_interf/atm_store_surfflux.F |
93 |
ATM_STORE_SURFFLUX |
& + saltFlux(i,j,bi,bj)*cplTimeFraction |
|
./pkg/atm_compon_interf/atm_store_thsice.F |
53 |
ATM_STORE_THSICE |
INTEGER i,j |
|
./pkg/atm_compon_interf/atm_store_thsice.F |
63 |
ATM_STORE_THSICE |
DO i=1,sNx |
|
./pkg/atm_compon_interf/atm_store_thsice.F |
65 |
ATM_STORE_THSICE |
seaIceMass(i,j,bi,bj) = |
|
./pkg/atm_compon_interf/atm_store_thsice.F |
66 |
ATM_STORE_THSICE |
& ( snowHeight(i,j,bi,bj)*rhos |
|
./pkg/atm_compon_interf/atm_store_thsice.F |
67 |
ATM_STORE_THSICE |
& + iceHeight(i,j,bi,bj)*rhoi |
|
./pkg/atm_compon_interf/atm_store_thsice.F |
68 |
ATM_STORE_THSICE |
& )*iceMask(i,j,bi,bj) |
|
./pkg/atm_compon_interf/atm_store_thsice.F |
79 |
ATM_STORE_THSICE |
DO i=1,sNx |
|
./pkg/atm_compon_interf/atm_store_thsice.F |
80 |
ATM_STORE_THSICE |
sIceFrac_cpl(i,j,bi,bj) = iceMask(i,j,bi,bj) |
|
./pkg/atm_compon_interf/atm_store_thsice.F |
93 |
ATM_STORE_THSICE |
DO i=1,sNx |
|
./pkg/atm_compon_interf/atm_store_thsice.F |
94 |
ATM_STORE_THSICE |
sIceThick_cpl(i,j,bi,bj) = iceHeight(i,j,bi,bj) |
|
./pkg/atm_compon_interf/atm_store_thsice.F |
95 |
ATM_STORE_THSICE |
sIceSnowH_cpl(i,j,bi,bj) = snowHeight(i,j,bi,bj) |
|
./pkg/atm_compon_interf/atm_store_thsice.F |
96 |
ATM_STORE_THSICE |
sIceQ1_cpl (i,j,bi,bj) = Qice1(i,j,bi,bj) |
|
./pkg/atm_compon_interf/atm_store_thsice.F |
97 |
ATM_STORE_THSICE |
sIceQ2_cpl (i,j,bi,bj) = Qice2(i,j,bi,bj) |
|
./pkg/atm_compon_interf/cpl_diagnostics_fill.F |
43 |
CPL_DIAGNOSTICS_FILL |
INTEGER i,j |
|
./pkg/atm_compon_interf/cpl_diagnostics_fill.F |
86 |
CPL_DIAGNOSTICS_FILL |
DO i=1-OLx,sNx+OLx |
|
./pkg/atm_compon_interf/cpl_diagnostics_fill.F |
87 |
CPL_DIAGNOSTICS_FILL |
tmpFld(i,j) = sIceFrac_cpl(i,j,bi,bj) |
|
./pkg/atm_compon_interf/cpl_diagnostics_fill.F |
88 |
CPL_DIAGNOSTICS_FILL |
& * sIceThick_cpl(i,j,bi,bj) |
|
./pkg/atm_compon_interf/cpl_import_cplparms.F |
40 |
CPL_IMPORT_CPLPARMS |
INTEGER i |
|
./pkg/atm_compon_interf/cpl_import_cplparms.F |
51 |
CPL_IMPORT_CPLPARMS |
DO i=1,atmParSize |
|
./pkg/atm_compon_interf/cpl_import_cplparms.F |
52 |
CPL_IMPORT_CPLPARMS |
parBuf(i) = 0 |
|
./pkg/atm_compon_interf/cpl_import_cplparms.F |
64 |
CPL_IMPORT_CPLPARMS |
& ' CPL_IMPORT_CPLPARMS: Recv parBuf=', (parBuf(i),i=1,atmParSize) |
|
./pkg/atm_compon_interf/cpl_ini_vars.F |
45 |
CPL_INI_VARS |
INTEGER i,j,bi,bj |
|
./pkg/atm_compon_interf/cpl_ini_vars.F |
52 |
CPL_INI_VARS |
atmSLPr (i,j,bi,bj) = 0. |
|
./pkg/atm_compon_interf/cpl_ini_vars.F |
53 |
CPL_INI_VARS |
HeatFlux (i,j,bi,bj) = 0. |
|
./pkg/atm_compon_interf/cpl_ini_vars.F |
54 |
CPL_INI_VARS |
qShortWave (i,j,bi,bj) = 0. |
|
./pkg/atm_compon_interf/cpl_ini_vars.F |
55 |
CPL_INI_VARS |
tauX (i,j,bi,bj) = 0. |
|
./pkg/atm_compon_interf/cpl_ini_vars.F |
56 |
CPL_INI_VARS |
tauY (i,j,bi,bj) = 0. |
|
./pkg/atm_compon_interf/cpl_ini_vars.F |
57 |
CPL_INI_VARS |
EvMPrFlux (i,j,bi,bj) = 0. |
|
./pkg/atm_compon_interf/cpl_ini_vars.F |
59 |
CPL_INI_VARS |
RunOffFlux (i,j,bi,bj) = 0. |
|
./pkg/atm_compon_interf/cpl_ini_vars.F |
60 |
CPL_INI_VARS |
RunOffEnFx (i,j,bi,bj) = 0. |
|
./pkg/atm_compon_interf/cpl_ini_vars.F |
63 |
CPL_INI_VARS |
iceSaltFlx (i,j,bi,bj) = 0. |
|
./pkg/atm_compon_interf/cpl_ini_vars.F |
64 |
CPL_INI_VARS |
seaIceMass (i,j,bi,bj) = 0. |
|
./pkg/atm_compon_interf/cpl_ini_vars.F |
65 |
CPL_INI_VARS |
saltPlmFlx_cpl(i,j,bi,bj) = 0. |
|
./pkg/atm_compon_interf/cpl_ini_vars.F |
68 |
CPL_INI_VARS |
airCO2 (i,j,bi,bj) = 0. |
|
./pkg/atm_compon_interf/cpl_ini_vars.F |
69 |
CPL_INI_VARS |
sWSpeed (i,j,bi,bj) = 0. |
|
./pkg/atm_compon_interf/cpl_ini_vars.F |
72 |
CPL_INI_VARS |
sIceFrac_cpl (i,j,bi,bj) = 0. |
|
./pkg/atm_compon_interf/cpl_ini_vars.F |
73 |
CPL_INI_VARS |
sIceThick_cpl (i,j,bi,bj) = 0. |
|
./pkg/atm_compon_interf/cpl_ini_vars.F |
74 |
CPL_INI_VARS |
sIceSnowH_cpl (i,j,bi,bj) = 0. |
|
./pkg/atm_compon_interf/cpl_ini_vars.F |
75 |
CPL_INI_VARS |
sIceQ1_cpl (i,j,bi,bj) = 0. |
|
./pkg/atm_compon_interf/cpl_ini_vars.F |
76 |
CPL_INI_VARS |
sIceQ2_cpl (i,j,bi,bj) = 0. |
|
./pkg/atm_compon_interf/cpl_ini_vars.F |
80 |
CPL_INI_VARS |
SSTocn (i,j,bi,bj) = 0. |
|
./pkg/atm_compon_interf/cpl_ini_vars.F |
81 |
CPL_INI_VARS |
SSSocn (i,j,bi,bj) = 0. |
|
./pkg/atm_compon_interf/cpl_ini_vars.F |
82 |
CPL_INI_VARS |
vSqocn (i,j,bi,bj) = 0. |
|
./pkg/atm_compon_interf/cpl_ini_vars.F |
84 |
CPL_INI_VARS |
flxCO2ocn (i,j,bi,bj) = 0. |
|
./pkg/atm_ocn_coupler/cpl_check_cplconfig.F |
103 |
CPL_CHECK_CPLCONFIG |
DO i=1,Nx_atm |
|
./pkg/atm_ocn_coupler/cpl_check_cplconfig.F |
104 |
CPL_CHECK_CPLCONFIG |
IF ( tmpVar(i,j) ) THEN |
|
./pkg/atm_ocn_coupler/cpl_check_cplconfig.F |
106 |
CPL_CHECK_CPLCONFIG |
& ' ** WARNING ** Land point: i,j=', i, j, ' not drained' |
|
./pkg/atm_ocn_coupler/cpl_check_cplconfig.F |
42 |
CPL_CHECK_CPLCONFIG |
INTEGER i, j, n |
|
./pkg/atm_ocn_coupler/cpl_check_cplconfig.F |
73 |
CPL_CHECK_CPLCONFIG |
DO i=1,Nx_atm |
|
./pkg/atm_ocn_coupler/cpl_check_cplconfig.F |
74 |
CPL_CHECK_CPLCONFIG |
tmpVar(i,j) = landMask_atm(i,j) .EQ. 1. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_check_cplconfig.F |
80 |
CPL_CHECK_CPLCONFIG |
i = 1 + MOD(ija,Nx_atm) |
|
./pkg/atm_ocn_coupler/cpl_check_cplconfig.F |
82 |
CPL_CHECK_CPLCONFIG |
IF ( landMask_atm(i,j).EQ.0. ) THEN |
|
./pkg/atm_ocn_coupler/cpl_check_cplconfig.F |
85 |
CPL_CHECK_CPLCONFIG |
& ' *** ERROR *** RunOff Mapp: i,j=', i, j, ' not Land point' |
|
./pkg/atm_ocn_coupler/cpl_check_cplconfig.F |
87 |
CPL_CHECK_CPLCONFIG |
tmpVar(i,j) = .FALSE. |
|
./pkg/atm_ocn_coupler/cpl_check_cplconfig.F |
90 |
CPL_CHECK_CPLCONFIG |
i = 1 + MOD(ijo,Nx_ocn) |
|
./pkg/atm_ocn_coupler/cpl_check_cplconfig.F |
92 |
CPL_CHECK_CPLCONFIG |
IF ( OcMxlD_ocn(i,j).EQ.0. ) THEN |
|
./pkg/atm_ocn_coupler/cpl_check_cplconfig.F |
95 |
CPL_CHECK_CPLCONFIG |
& ' *** ERROR *** RunOff Mapp: i,j=', i, j, ' not Oce point' |
|
./eesupp/src/global_sum_singlecpu.F |
62 |
GLOBAL_SUM_SINGLECPU_RL |
INTEGER i, j, ij |
|
./eesupp/src/global_sum_singlecpu.F |
91 |
GLOBAL_SUM_SINGLECPU_RL |
DO i=1,sNx |
|
./eesupp/src/global_sum_singlecpu.F |
92 |
GLOBAL_SUM_SINGLECPU_RL |
sharedLocBuf_r8(i,j,bi,bj) = phiLocal(i,j,bi,bj) |
|
./pkg/atm_ocn_coupler/cpl_init_atm_vars.F |
31 |
CPL_INIT_ATM_VARS |
INTEGER i, j |
|
./pkg/atm_ocn_coupler/cpl_init_atm_vars.F |
38 |
CPL_INIT_ATM_VARS |
DO i=1,Nx_atm |
|
./pkg/atm_ocn_coupler/cpl_init_atm_vars.F |
39 |
CPL_INIT_ATM_VARS |
landMask_atm (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_atm_vars.F |
40 |
CPL_INIT_ATM_VARS |
OcMxlD_atm (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_atm_vars.F |
41 |
CPL_INIT_ATM_VARS |
SST_atm (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_atm_vars.F |
42 |
CPL_INIT_ATM_VARS |
SSS_atm (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_atm_vars.F |
43 |
CPL_INIT_ATM_VARS |
vSq_atm (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_atm_vars.F |
44 |
CPL_INIT_ATM_VARS |
fluxCO2_atm (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_atm_vars.F |
45 |
CPL_INIT_ATM_VARS |
atmSLPr_atm (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_atm_vars.F |
46 |
CPL_INIT_ATM_VARS |
HeatFlux_atm (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_atm_vars.F |
47 |
CPL_INIT_ATM_VARS |
qShortWave_atm (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_atm_vars.F |
48 |
CPL_INIT_ATM_VARS |
TauX_atm (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_atm_vars.F |
49 |
CPL_INIT_ATM_VARS |
TauY_atm (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_atm_vars.F |
50 |
CPL_INIT_ATM_VARS |
EvMPr_atm (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_atm_vars.F |
51 |
CPL_INIT_ATM_VARS |
RunOff_atm (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_atm_vars.F |
52 |
CPL_INIT_ATM_VARS |
ROEnFx_atm (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_atm_vars.F |
53 |
CPL_INIT_ATM_VARS |
SaltFlx_atm (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_atm_vars.F |
54 |
CPL_INIT_ATM_VARS |
sIceMass_atm (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_atm_vars.F |
55 |
CPL_INIT_ATM_VARS |
saltPlmFlx_atm (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_atm_vars.F |
56 |
CPL_INIT_ATM_VARS |
aCO2_atm (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_atm_vars.F |
57 |
CPL_INIT_ATM_VARS |
wSpeed_atm (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_atm_vars.F |
58 |
CPL_INIT_ATM_VARS |
sIceFrac_atm (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_atm_vars.F |
59 |
CPL_INIT_ATM_VARS |
sIceThick_atm (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_atm_vars.F |
60 |
CPL_INIT_ATM_VARS |
sIceSnowH_atm (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_atm_vars.F |
61 |
CPL_INIT_ATM_VARS |
sIceQ1_atm (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_atm_vars.F |
62 |
CPL_INIT_ATM_VARS |
sIceQ2_atm (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_ocn_vars.F |
31 |
CPL_INIT_OCN_VARS |
INTEGER i, j |
|
./pkg/atm_ocn_coupler/cpl_init_ocn_vars.F |
38 |
CPL_INIT_OCN_VARS |
DO i=1,Nx_ocn |
|
./pkg/atm_ocn_coupler/cpl_init_ocn_vars.F |
39 |
CPL_INIT_OCN_VARS |
landMask_ocn (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_ocn_vars.F |
40 |
CPL_INIT_OCN_VARS |
OcMxlD_ocn (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_ocn_vars.F |
41 |
CPL_INIT_OCN_VARS |
SST_ocn (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_ocn_vars.F |
42 |
CPL_INIT_OCN_VARS |
SSS_ocn (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_ocn_vars.F |
43 |
CPL_INIT_OCN_VARS |
vSq_ocn (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_ocn_vars.F |
44 |
CPL_INIT_OCN_VARS |
fluxCO2_ocn (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_ocn_vars.F |
45 |
CPL_INIT_OCN_VARS |
atmSLPr_ocn (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_ocn_vars.F |
46 |
CPL_INIT_OCN_VARS |
HeatFlux_ocn (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_ocn_vars.F |
47 |
CPL_INIT_OCN_VARS |
qShortWave_ocn (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_ocn_vars.F |
48 |
CPL_INIT_OCN_VARS |
TauX_ocn (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_ocn_vars.F |
49 |
CPL_INIT_OCN_VARS |
TauY_ocn (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_ocn_vars.F |
50 |
CPL_INIT_OCN_VARS |
FWFlux_ocn (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_ocn_vars.F |
51 |
CPL_INIT_OCN_VARS |
SaltFlx_ocn (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_ocn_vars.F |
52 |
CPL_INIT_OCN_VARS |
sIceMass_ocn (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_ocn_vars.F |
53 |
CPL_INIT_OCN_VARS |
saltPlmFlx_ocn (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_ocn_vars.F |
54 |
CPL_INIT_OCN_VARS |
RunOff_ocn (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_ocn_vars.F |
55 |
CPL_INIT_OCN_VARS |
aCO2_ocn (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_ocn_vars.F |
56 |
CPL_INIT_OCN_VARS |
wSpeed_ocn (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_ocn_vars.F |
57 |
CPL_INIT_OCN_VARS |
sIceFrac_ocn (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_ocn_vars.F |
58 |
CPL_INIT_OCN_VARS |
sIceThick_ocn (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_ocn_vars.F |
59 |
CPL_INIT_OCN_VARS |
sIceSnowH_ocn (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_ocn_vars.F |
60 |
CPL_INIT_OCN_VARS |
sIceQ1_ocn (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_ocn_vars.F |
61 |
CPL_INIT_OCN_VARS |
sIceQ2_ocn (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_send_atm_cplparms.F |
33 |
CPL_SEND_ATM_CPLPARMS |
INTEGER i |
|
./pkg/atm_ocn_coupler/cpl_send_atm_cplparms.F |
38 |
CPL_SEND_ATM_CPLPARMS |
DO i=1,atmParSize |
|
./pkg/atm_ocn_coupler/cpl_send_atm_cplparms.F |
39 |
CPL_SEND_ATM_CPLPARMS |
parBuf(i) = 0 |
|
./pkg/atm_ocn_coupler/cpl_send_ocn_cplparms.F |
33 |
CPL_SEND_OCN_CPLPARMS |
INTEGER i |
|
./pkg/atm_ocn_coupler/cpl_send_ocn_cplparms.F |
38 |
CPL_SEND_OCN_CPLPARMS |
DO i=1,ocnParSize |
|
./pkg/atm_ocn_coupler/cpl_send_ocn_cplparms.F |
39 |
CPL_SEND_OCN_CPLPARMS |
parBuf(i) = 0 |
|
./pkg/atm_ocn_coupler/mds_byteswap.F |
29 |
MDS_BYTESWAPR4 |
integer i |
|
./pkg/atm_ocn_coupler/mds_byteswap.F |
32 |
MDS_BYTESWAPR4 |
do i=1,4*n,4 |
|
./pkg/atm_ocn_coupler/mds_byteswap.F |
33 |
MDS_BYTESWAPR4 |
cc=arr(i:i) |
|
./pkg/atm_ocn_coupler/mds_byteswap.F |
34 |
MDS_BYTESWAPR4 |
arr(i:i)=arr(i+3:i+3) |
|
./pkg/atm_ocn_coupler/mds_byteswap.F |
35 |
MDS_BYTESWAPR4 |
arr(i+3:i+3)=cc |
|
./pkg/atm_ocn_coupler/mds_byteswap.F |
36 |
MDS_BYTESWAPR4 |
cc=arr(i+1:i+1) |
|
./pkg/atm_ocn_coupler/mds_byteswap.F |
37 |
MDS_BYTESWAPR4 |
arr(i+1:i+1)=arr(i+2:i+2) |
|
./pkg/atm_ocn_coupler/mds_byteswap.F |
38 |
MDS_BYTESWAPR4 |
arr(i+2:i+2)=cc |
|
./pkg/atm_ocn_coupler/mds_byteswap.F |
63 |
MDS_BYTESWAPR8 |
integer i |
|
./pkg/atm_ocn_coupler/mds_byteswap.F |
66 |
MDS_BYTESWAPR8 |
do i=1,8*n,8 |
|
./pkg/atm_ocn_coupler/mds_byteswap.F |
67 |
MDS_BYTESWAPR8 |
cc=arr(i:i) |
|
./pkg/atm_ocn_coupler/mds_byteswap.F |
68 |
MDS_BYTESWAPR8 |
arr(i:i)=arr(i+7:i+7) |
|
./pkg/atm_ocn_coupler/mds_byteswap.F |
69 |
MDS_BYTESWAPR8 |
arr(i+7:i+7)=cc |
|
./pkg/atm_ocn_coupler/mds_byteswap.F |
70 |
MDS_BYTESWAPR8 |
cc=arr(i+1:i+1) |
|
./pkg/atm_ocn_coupler/mds_byteswap.F |
71 |
MDS_BYTESWAPR8 |
arr(i+1:i+1)=arr(i+6:i+6) |
|
./pkg/atm_ocn_coupler/mds_byteswap.F |
72 |
MDS_BYTESWAPR8 |
arr(i+6:i+6)=cc |
|
./pkg/atm_ocn_coupler/mds_byteswap.F |
73 |
MDS_BYTESWAPR8 |
cc=arr(i+2:i+2) |
|
./pkg/atm_ocn_coupler/mds_byteswap.F |
74 |
MDS_BYTESWAPR8 |
arr(i+2:i+2)=arr(i+5:i+5) |
|
./pkg/atm_ocn_coupler/mds_byteswap.F |
75 |
MDS_BYTESWAPR8 |
arr(i+5:i+5)=cc |
|
./pkg/atm_ocn_coupler/mds_byteswap.F |
76 |
MDS_BYTESWAPR8 |
cc=arr(i+3:i+3) |
|
./pkg/atm_ocn_coupler/mds_byteswap.F |
77 |
MDS_BYTESWAPR8 |
arr(i+3:i+3)=arr(i+4:i+4) |
|
./pkg/atm_ocn_coupler/mds_byteswap.F |
78 |
MDS_BYTESWAPR8 |
arr(i+4:i+4)=cc |
|
./eesupp/src/global_vec_sum.F |
127 |
GLOBAL_VEC_SUM_R8 |
INTEGER i, bi,bj |
|
./eesupp/src/global_vec_sum.F |
137 |
GLOBAL_VEC_SUM_R8 |
DO i = 1,nval |
|
./eesupp/src/global_vec_sum.F |
138 |
GLOBAL_VEC_SUM_R8 |
tmp1(i) = 0. |
|
./eesupp/src/global_vec_sum.F |
142 |
GLOBAL_VEC_SUM_R8 |
DO i = 1,nval |
|
./eesupp/src/global_vec_sum.F |
143 |
GLOBAL_VEC_SUM_R8 |
tmp1(i) = tmp1(i) + sumPhi( i, bi,bj ) |
|
./eesupp/src/global_vec_sum.F |
157 |
GLOBAL_VEC_SUM_R8 |
DO i = 1,nval |
|
./eesupp/src/global_vec_sum.F |
158 |
GLOBAL_VEC_SUM_R8 |
sumPhi( i, 1,1 ) = tmp2(i) |
|
./eesupp/src/global_vec_sum.F |
163 |
GLOBAL_VEC_SUM_R8 |
DO i = 1,nval |
|
./eesupp/src/global_vec_sum.F |
164 |
GLOBAL_VEC_SUM_R8 |
sumPhi( i, 1,1 ) = tmp1(i) |
|
./eesupp/src/global_vec_sum.F |
209 |
GLOBAL_VEC_SUM_INT |
INTEGER i, bi,bj |
|
./eesupp/src/global_vec_sum.F |
219 |
GLOBAL_VEC_SUM_INT |
DO i = 1,nval |
|
./eesupp/src/global_vec_sum.F |
220 |
GLOBAL_VEC_SUM_INT |
tmp1(i) = 0 |
|
./eesupp/src/global_vec_sum.F |
224 |
GLOBAL_VEC_SUM_INT |
DO i = 1,nval |
|
./eesupp/src/global_vec_sum.F |
225 |
GLOBAL_VEC_SUM_INT |
tmp1(i) = tmp1(i) + sumPhi( i, bi,bj ) |
|
./eesupp/src/global_vec_sum.F |
239 |
GLOBAL_VEC_SUM_INT |
DO i = 1,nval |
|
./eesupp/src/global_vec_sum.F |
240 |
GLOBAL_VEC_SUM_INT |
sumPhi( i, 1,1 ) = tmp2(i) |
|
./eesupp/src/global_vec_sum.F |
245 |
GLOBAL_VEC_SUM_INT |
DO i = 1,nval |
|
./eesupp/src/global_vec_sum.F |
246 |
GLOBAL_VEC_SUM_INT |
sumPhi( i, 1,1 ) = tmp1(i) |
|
./eesupp/src/global_vec_sum.F |
45 |
GLOBAL_VEC_SUM_R4 |
INTEGER i, bi,bj |
|
./eesupp/src/global_vec_sum.F |
55 |
GLOBAL_VEC_SUM_R4 |
DO i = 1,nval |
|
./eesupp/src/global_vec_sum.F |
56 |
GLOBAL_VEC_SUM_R4 |
tmp1(i) = 0. |
|
./eesupp/src/global_vec_sum.F |
60 |
GLOBAL_VEC_SUM_R4 |
DO i = 1,nval |
|
./eesupp/src/global_vec_sum.F |
61 |
GLOBAL_VEC_SUM_R4 |
tmp1(i) = tmp1(i) + sumPhi( i, bi,bj ) |
|
./eesupp/src/global_vec_sum.F |
75 |
GLOBAL_VEC_SUM_R4 |
DO i = 1,nval |
|
./eesupp/src/global_vec_sum.F |
76 |
GLOBAL_VEC_SUM_R4 |
sumPhi( i, 1,1 ) = tmp2(i) |
|
./eesupp/src/global_vec_sum.F |
81 |
GLOBAL_VEC_SUM_R4 |
DO i = 1,nval |
|
./eesupp/src/global_vec_sum.F |
82 |
GLOBAL_VEC_SUM_R4 |
sumPhi( i, 1,1 ) = tmp1(i) |
|
./pkg/atm_phys/atm_phys_driver.F |
145 |
ATM_PHYS_DRIVER |
INTEGER i, j |
|
./pkg/atm_phys/atm_phys_driver.F |
517 |
ATM_PHYS_DRIVER |
DO i=2-OLx,sNx+OLx |
|
./pkg/atm_phys/atm_phys_driver.F |
518 |
ATM_PHYS_DRIVER |
fu(i,j,bi,bj) = halfRL |
|
./pkg/atm_phys/atm_phys_driver.F |
519 |
ATM_PHYS_DRIVER |
& *( taux(i-1,j,bi,bj) + taux(i,j,bi,bj) ) |
|
./pkg/atm_phys/atm_phys_driver.F |
520 |
ATM_PHYS_DRIVER |
fv(i,j,bi,bj) = halfRL |
|
./pkg/atm_phys/atm_phys_driver.F |
521 |
ATM_PHYS_DRIVER |
& *( tauy(i,j-1,bi,bj) + tauy(i,j,bi,bj) ) |
|
./pkg/atm_phys/atm_phys_init_fixed.F |
131 |
ATM_PHYS_INIT_FIXED |
DO i=1-OLx,sNx+OLx |
|
./pkg/atm_phys/atm_phys_init_fixed.F |
132 |
ATM_PHYS_INIT_FIXED |
atmPhys_Qflx(i,j,bi,bj) = 0. _d 0 |
|
./pkg/atm_phys/atm_phys_init_fixed.F |
133 |
ATM_PHYS_INIT_FIXED |
atmPhys_MxLD(i,j,bi,bj) = cst_mxlDepth |
|
./pkg/atm_phys/atm_phys_init_fixed.F |
134 |
ATM_PHYS_INIT_FIXED |
atmPhys_Albedo(i,j,bi,bj) = cst_albedo |
|
./pkg/atm_phys/atm_phys_init_fixed.F |
45 |
ATM_PHYS_INIT_FIXED |
INTEGER i,j,bi,bj |
|
./pkg/atm_phys/atm_phys_init_varia.F |
34 |
ATM_PHYS_INIT_VARIA |
INTEGER i,j,k,bi,bj |
|
./pkg/atm_phys/atm_phys_init_varia.F |
43 |
ATM_PHYS_INIT_VARIA |
DO i=1-OLx,sNx+OLx |
|
./pkg/atm_phys/atm_phys_init_varia.F |
44 |
ATM_PHYS_INIT_VARIA |
atmPhys_dT(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/atm_phys/atm_phys_init_varia.F |
45 |
ATM_PHYS_INIT_VARIA |
atmPhys_dQ(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/atm_phys/atm_phys_init_varia.F |
46 |
ATM_PHYS_INIT_VARIA |
atmPhys_dU(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/atm_phys/atm_phys_init_varia.F |
47 |
ATM_PHYS_INIT_VARIA |
atmPhys_dV(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/atm_phys/atm_phys_init_varia.F |
54 |
ATM_PHYS_INIT_VARIA |
DO i=1-OLx,sNx+OLx |
|
./pkg/atm_phys/atm_phys_init_varia.F |
55 |
ATM_PHYS_INIT_VARIA |
atmPhys_SST(i,j,bi,bj) = 0. _d 0 |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
143 |
ATM_PHYS_TENDENCY_APPLY_V |
INTEGER i, j |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
150 |
ATM_PHYS_TENDENCY_APPLY_V |
DO i=iMin,iMax |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
151 |
ATM_PHYS_TENDENCY_APPLY_V |
gV_arr(i,j) = gV_arr(i,j) |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
152 |
ATM_PHYS_TENDENCY_APPLY_V |
& + halfRL *( atmPhys_dV(i,j-1,k,bi,bj) |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
153 |
ATM_PHYS_TENDENCY_APPLY_V |
& + atmPhys_dV(i, j ,k,bi,bj) |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
154 |
ATM_PHYS_TENDENCY_APPLY_V |
& )*recip_hFacS(i,j,k,bi,bj) |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
161 |
ATM_PHYS_TENDENCY_APPLY_V |
DO i=iMin,iMax |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
162 |
ATM_PHYS_TENDENCY_APPLY_V |
gV_arr(i,j) = gV_arr(i,j) |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
163 |
ATM_PHYS_TENDENCY_APPLY_V |
& - maskS(i,j,k,bi,bj)*vVel(i,j,k,bi,bj)*atmPhys_dampUVfac(k) |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
164 |
ATM_PHYS_TENDENCY_APPLY_V |
damp_dKE(i,j) = |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
165 |
ATM_PHYS_TENDENCY_APPLY_V |
& - vVel(i,j,k,bi,bj)*vVel(i,j,k,bi,bj)*atmPhys_dampUVfac(k) |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
166 |
ATM_PHYS_TENDENCY_APPLY_V |
& *hFacS(i,j,k,bi,bj)*drF(k)*rUnit2mass |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
172 |
ATM_PHYS_TENDENCY_APPLY_V |
DO i=1,sNx |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
173 |
ATM_PHYS_TENDENCY_APPLY_V |
frictionHeating(i,j,k,bi,bj) = frictionHeating(i,j,k,bi,bj) |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
174 |
ATM_PHYS_TENDENCY_APPLY_V |
& - halfRL * ( damp_dKE( i, j)*rAs(i, j ,bi,bj) |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
175 |
ATM_PHYS_TENDENCY_APPLY_V |
& + damp_dKE(i,j+1)*rAs(i,j+1,bi,bj) |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
176 |
ATM_PHYS_TENDENCY_APPLY_V |
& )*recip_rA(i,j,bi,bj) |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
229 |
ATM_PHYS_TENDENCY_APPLY_T |
INTEGER i, j |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
233 |
ATM_PHYS_TENDENCY_APPLY_T |
DO i=iMin,iMax |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
234 |
ATM_PHYS_TENDENCY_APPLY_T |
gT_arr(i,j) = gT_arr(i,j) |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
235 |
ATM_PHYS_TENDENCY_APPLY_T |
& + maskC(i,j,k,bi,bj) * atmPhys_dT(i,j,k,bi,bj) |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
284 |
ATM_PHYS_TENDENCY_APPLY_S |
INTEGER i, j |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
288 |
ATM_PHYS_TENDENCY_APPLY_S |
DO i=iMin,iMax |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
289 |
ATM_PHYS_TENDENCY_APPLY_S |
gS_arr(i,j) = gS_arr(i,j) |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
290 |
ATM_PHYS_TENDENCY_APPLY_S |
& + maskC(i,j,k,bi,bj) * atmPhys_dQ(i,j,k,bi,bj) |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
55 |
ATM_PHYS_TENDENCY_APPLY_U |
INTEGER i, j |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
62 |
ATM_PHYS_TENDENCY_APPLY_U |
DO i=iMin,iMax |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
63 |
ATM_PHYS_TENDENCY_APPLY_U |
gU_arr(i,j) = gU_arr(i,j) |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
64 |
ATM_PHYS_TENDENCY_APPLY_U |
& + halfRL *( atmPhys_dU(i-1,j,k,bi,bj) |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
65 |
ATM_PHYS_TENDENCY_APPLY_U |
& + atmPhys_dU( i ,j,k,bi,bj) |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
66 |
ATM_PHYS_TENDENCY_APPLY_U |
& )*recip_hFacW(i,j,k,bi,bj) |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
73 |
ATM_PHYS_TENDENCY_APPLY_U |
DO i=iMin,iMax |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
74 |
ATM_PHYS_TENDENCY_APPLY_U |
gU_arr(i,j) = gU_arr(i,j) |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
75 |
ATM_PHYS_TENDENCY_APPLY_U |
& - maskW(i,j,k,bi,bj)*uVel(i,j,k,bi,bj)*atmPhys_dampUVfac(k) |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
76 |
ATM_PHYS_TENDENCY_APPLY_U |
damp_dKE(i,j) = |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
77 |
ATM_PHYS_TENDENCY_APPLY_U |
& - uVel(i,j,k,bi,bj)*uVel(i,j,k,bi,bj)*atmPhys_dampUVfac(k) |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
78 |
ATM_PHYS_TENDENCY_APPLY_U |
& *hFacW(i,j,k,bi,bj)*drF(k)*rUnit2mass |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
84 |
ATM_PHYS_TENDENCY_APPLY_U |
DO i=1,sNx |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
85 |
ATM_PHYS_TENDENCY_APPLY_U |
frictionHeating(i,j,k,bi,bj) = frictionHeating(i,j,k,bi,bj) |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
86 |
ATM_PHYS_TENDENCY_APPLY_U |
& - halfRL * ( damp_dKE( i, j)*rAw( i, j,bi,bj) |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
87 |
ATM_PHYS_TENDENCY_APPLY_U |
& + damp_dKE(i+1,j)*rAw(i+1,j,bi,bj) |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
88 |
ATM_PHYS_TENDENCY_APPLY_U |
& )*recip_rA(i,j,bi,bj) |
|
./pkg/autodiff/active_file_control.F |
128 |
ACTIVE_READ_3D_RL |
DO i=1,sNx |
|
./pkg/autodiff/active_file_control.F |
129 |
ACTIVE_READ_3D_RL |
active_data_t(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/active_file_control.F |
160 |
ACTIVE_READ_3D_RL |
DO i=1,sNx |
|
./pkg/autodiff/active_file_control.F |
161 |
ACTIVE_READ_3D_RL |
active_data_t(i,j,k,bi,bj) = active_data_t(i,j,k,bi,bj) |
|
./pkg/autodiff/active_file_control.F |
162 |
ACTIVE_READ_3D_RL |
& + active_var(i,j,k,bi,bj) |
|
./pkg/autodiff/active_file_control.F |
182 |
ACTIVE_READ_3D_RL |
DO i=1,sNx |
|
./pkg/autodiff/active_file_control.F |
183 |
ACTIVE_READ_3D_RL |
active_var(i,j,k,bi,bj) = 0 _d 0 |
|
./pkg/autodiff/active_file_control.F |
276 |
ACTIVE_READ_3D_RS |
INTEGER i,j,k |
|
./pkg/autodiff/active_file_control.F |
310 |
ACTIVE_READ_3D_RS |
DO i=1,sNx |
|
./pkg/autodiff/active_file_control.F |
311 |
ACTIVE_READ_3D_RS |
active_data_t(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/active_file_control.F |
342 |
ACTIVE_READ_3D_RS |
DO i=1,sNx |
|
./pkg/autodiff/active_file_control.F |
343 |
ACTIVE_READ_3D_RS |
active_data_t(i,j,k,bi,bj) = active_data_t(i,j,k,bi,bj) |
|
./pkg/autodiff/active_file_control.F |
344 |
ACTIVE_READ_3D_RS |
& + active_var(i,j,k,bi,bj) |
|
./pkg/autodiff/active_file_control.F |
364 |
ACTIVE_READ_3D_RS |
DO i=1,sNx |
|
./pkg/autodiff/active_file_control.F |
365 |
ACTIVE_READ_3D_RS |
active_var(i,j,k,bi,bj) = 0 _d 0 |
|
./pkg/autodiff/active_file_control.F |
444 |
ACTIVE_WRITE_3D_RL |
INTEGER i,j,k |
|
./pkg/autodiff/active_file_control.F |
477 |
ACTIVE_WRITE_3D_RL |
DO i=1,sNx |
|
./pkg/autodiff/active_file_control.F |
478 |
ACTIVE_WRITE_3D_RL |
active_var(i,j,k,bi,bj) = active_var(i,j,k,bi,bj) |
|
./pkg/autodiff/active_file_control.F |
479 |
ACTIVE_WRITE_3D_RL |
& + active_data_t(i,j,k,bi,bj) |
|
./pkg/autodiff/active_file_control.F |
480 |
ACTIVE_WRITE_3D_RL |
active_data_t(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/active_file_control.F |
563 |
ACTIVE_WRITE_3D_RS |
INTEGER i,j,k |
|
./pkg/autodiff/active_file_control.F |
596 |
ACTIVE_WRITE_3D_RS |
DO i=1,sNx |
|
./pkg/autodiff/active_file_control.F |
597 |
ACTIVE_WRITE_3D_RS |
active_var(i,j,k,bi,bj) = active_var(i,j,k,bi,bj) |
|
./pkg/autodiff/active_file_control.F |
598 |
ACTIVE_WRITE_3D_RS |
& + active_data_t(i,j,k,bi,bj) |
|
./pkg/autodiff/active_file_control.F |
599 |
ACTIVE_WRITE_3D_RS |
active_data_t(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/active_file_control.F |
94 |
ACTIVE_READ_3D_RL |
INTEGER i,j,k |
|
./pkg/autodiff/active_file_control_slice.F |
129 |
ACTIVE_READ_XZ_RL |
DO i=1,sNx |
|
./pkg/autodiff/active_file_control_slice.F |
130 |
ACTIVE_READ_XZ_RL |
active_data_t(i,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/active_file_control_slice.F |
159 |
ACTIVE_READ_XZ_RL |
DO i=1,sNx |
|
./pkg/autodiff/active_file_control_slice.F |
160 |
ACTIVE_READ_XZ_RL |
active_data_t(i,k,bi,bj) = active_data_t(i,k,bi,bj) |
|
./pkg/autodiff/active_file_control_slice.F |
161 |
ACTIVE_READ_XZ_RL |
& + active_var(i,k,bi,bj) |
|
./pkg/autodiff/active_file_control_slice.F |
179 |
ACTIVE_READ_XZ_RL |
DO i=1,sNx |
|
./pkg/autodiff/active_file_control_slice.F |
180 |
ACTIVE_READ_XZ_RL |
active_var(i,k,bi,bj) = 0 _d 0 |
|
./pkg/autodiff/active_file_control_slice.F |
272 |
ACTIVE_READ_XZ_RS |
INTEGER i,k |
|
./pkg/autodiff/active_file_control_slice.F |
305 |
ACTIVE_READ_XZ_RS |
DO i=1,sNx |
|
./pkg/autodiff/active_file_control_slice.F |
306 |
ACTIVE_READ_XZ_RS |
active_data_t(i,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/active_file_control_slice.F |
335 |
ACTIVE_READ_XZ_RS |
DO i=1,sNx |
|
./pkg/autodiff/active_file_control_slice.F |
336 |
ACTIVE_READ_XZ_RS |
active_data_t(i,k,bi,bj) = active_data_t(i,k,bi,bj) |
|
./pkg/autodiff/active_file_control_slice.F |
337 |
ACTIVE_READ_XZ_RS |
& + active_var(i,k,bi,bj) |
|
./pkg/autodiff/active_file_control_slice.F |
355 |
ACTIVE_READ_XZ_RS |
DO i=1,sNx |
|
./pkg/autodiff/active_file_control_slice.F |
356 |
ACTIVE_READ_XZ_RS |
active_var(i,k,bi,bj) = 0 _d 0 |
|
./pkg/autodiff/active_file_control_slice.F |
785 |
ACTIVE_WRITE_XZ_RL |
INTEGER i,k |
|
./pkg/autodiff/active_file_control_slice.F |
817 |
ACTIVE_WRITE_XZ_RL |
DO i=1,sNx |
|
./pkg/autodiff/active_file_control_slice.F |
818 |
ACTIVE_WRITE_XZ_RL |
active_var(i,k,bi,bj) = active_var(i,k,bi,bj) |
|
./pkg/autodiff/active_file_control_slice.F |
819 |
ACTIVE_WRITE_XZ_RL |
& + active_data_t(i,k,bi,bj) |
|
./pkg/autodiff/active_file_control_slice.F |
820 |
ACTIVE_WRITE_XZ_RL |
active_data_t(i,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/active_file_control_slice.F |
902 |
ACTIVE_WRITE_XZ_RS |
INTEGER i,k |
|
./pkg/autodiff/active_file_control_slice.F |
934 |
ACTIVE_WRITE_XZ_RS |
DO i=1,sNx |
|
./pkg/autodiff/active_file_control_slice.F |
935 |
ACTIVE_WRITE_XZ_RS |
active_var(i,k,bi,bj) = active_var(i,k,bi,bj) |
|
./pkg/autodiff/active_file_control_slice.F |
936 |
ACTIVE_WRITE_XZ_RS |
& + active_data_t(i,k,bi,bj) |
|
./pkg/autodiff/active_file_control_slice.F |
937 |
ACTIVE_WRITE_XZ_RS |
active_data_t(i,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/active_file_control_slice.F |
96 |
ACTIVE_READ_XZ_RL |
INTEGER i,k |
|
./pkg/autodiff/addamp_adj.F |
35 |
ADDAMP_ADJ |
INTEGER bi,bj,i,j,k |
|
./pkg/autodiff/addamp_adj.F |
43 |
ADDAMP_ADJ |
DO i=1-OLx,sNx+OLx |
|
./pkg/autodiff/addamp_adj.F |
44 |
ADDAMP_ADJ |
IF ( (fieldRef(i,j,k,bi,bj).GE.maxRef).OR. |
|
./pkg/autodiff/addamp_adj.F |
45 |
ADDAMP_ADJ |
& (fieldRef(i,j,k,bi,bj).LE.minRef) ) THEN |
|
./pkg/autodiff/addamp_adj.F |
50 |
ADDAMP_ADJ |
adfieldDamp(i,j,k,bi,bj)=facDamp* |
|
./pkg/autodiff/addamp_adj.F |
51 |
ADDAMP_ADJ |
& adfieldDamp(i,j,k,bi,bj) |
|
./pkg/autodiff/adzero_adj.F |
112 |
ADZERO_ADJ |
INTEGER i,j,k |
|
./pkg/autodiff/adzero_adj.F |
119 |
ADZERO_ADJ |
DO i=1-OLx,sNx+OLx |
|
./pkg/autodiff/adzero_adj.F |
120 |
ADZERO_ADJ |
adFieldFwd(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/adzero_adj.F |
72 |
ADZERO_ADJ_LOC |
INTEGER i,j,k |
|
./pkg/autodiff/adzero_adj.F |
77 |
ADZERO_ADJ_LOC |
DO i=1-OLx,sNx+OLx |
|
./pkg/autodiff/adzero_adj.F |
78 |
ADZERO_ADJ_LOC |
adFieldFwd(i,j,k) = 0. _d 0 |
|
./pkg/autodiff/autodiff_init_varia.F |
41 |
AUTODIFF_INIT_VARIA |
INTEGER i, j, k |
|
./pkg/autodiff/autodiff_init_varia.F |
56 |
AUTODIFF_INIT_VARIA |
DO i=1-Olx,sNx+Olx |
|
./pkg/autodiff/autodiff_init_varia.F |
57 |
AUTODIFF_INIT_VARIA |
EfluxY(i,j,k,bi,bj) = 0. |
|
./pkg/autodiff/autodiff_init_varia.F |
58 |
AUTODIFF_INIT_VARIA |
EfluxP(i,j,k,bi,bj) = 0. |
|
./pkg/autodiff/autodiff_init_varia.F |
67 |
AUTODIFF_INIT_VARIA |
DO i=1-Olx,sNx+Olx |
|
./pkg/autodiff/autodiff_init_varia.F |
69 |
AUTODIFF_INIT_VARIA |
dEtaHdt(i,j,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/autodiff_init_varia.F |
70 |
AUTODIFF_INIT_VARIA |
PmEpR(i,j,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/autodiff_init_varia.F |
74 |
AUTODIFF_INIT_VARIA |
EmPmR(i,j,bi,bj) = 0. _d 0 |
|
./eesupp/src/lef_zero.F |
24 |
LEF_ZERO |
INTEGER i,j,bi,bj |
|
./eesupp/src/lef_zero.F |
30 |
LEF_ZERO |
DO i=1-Olx,sNx+Olx |
|
./eesupp/src/lef_zero.F |
31 |
LEF_ZERO |
arr(i,j,bi,bj)=0. |
|
./pkg/autodiff/copy_ad_uv_outp.F |
59 |
COPY_AD_UV_OUTP |
INTEGER i,j,k,bi,bj |
|
./pkg/autodiff/copy_ad_uv_outp.F |
76 |
COPY_AD_UV_OUTP |
DO i=1-OLx,sNx+OLx |
|
./pkg/autodiff/copy_ad_uv_outp.F |
77 |
COPY_AD_UV_OUTP |
uFldOut(i,j,k,bi,bj) = uFldRS(i,j,k,bi,bj) |
|
./pkg/autodiff/copy_ad_uv_outp.F |
78 |
COPY_AD_UV_OUTP |
vFldOut(i,j,k,bi,bj) = vFldRS(i,j,k,bi,bj) |
|
./pkg/autodiff/copy_ad_uv_outp.F |
89 |
COPY_AD_UV_OUTP |
DO i=1-OLx,sNx+OLx |
|
./pkg/autodiff/copy_ad_uv_outp.F |
90 |
COPY_AD_UV_OUTP |
uFldOut(i,j,k,bi,bj) = uFldRL(i,j,k,bi,bj) |
|
./pkg/autodiff/copy_ad_uv_outp.F |
91 |
COPY_AD_UV_OUTP |
vFldOut(i,j,k,bi,bj) = vFldRL(i,j,k,bi,bj) |
|
./pkg/autodiff/copy_advar_outp.F |
52 |
COPY_ADVAR_OUTP |
INTEGER i,j,k,bi,bj |
|
./pkg/autodiff/copy_advar_outp.F |
69 |
COPY_ADVAR_OUTP |
DO i=1-OLx,sNx+OLx |
|
./pkg/autodiff/copy_advar_outp.F |
70 |
COPY_ADVAR_OUTP |
outFld(i,j,k,bi,bj) = inpFldRS(i,j,k,bi,bj) |
|
./pkg/autodiff/copy_advar_outp.F |
81 |
COPY_ADVAR_OUTP |
DO i=1-OLx,sNx+OLx |
|
./pkg/autodiff/copy_advar_outp.F |
82 |
COPY_ADVAR_OUTP |
outFld(i,j,k,bi,bj) = inpFldRL(i,j,k,bi,bj) |
|
./pkg/bbl/bbl_calc_rho.F |
66 |
BBL_CALC_RHO |
INTEGER i,j,kl |
|
./pkg/bbl/bbl_calc_rho.F |
89 |
BBL_CALC_RHO |
DO i=1-OLx,sNx+OLx |
|
./pkg/bbl/bbl_calc_rho.F |
90 |
BBL_CALC_RHO |
IF ( k .GT. kLowC(i,j,bi,bj) ) |
|
./pkg/bbl/bbl_calc_rho.F |
91 |
BBL_CALC_RHO |
& rhoLoc(i,j,k,bi,bj) = rBBL(i,j) |
|
./pkg/bbl/bbl_calc_rhs.F |
107 |
BBL_CALC_RHS |
DO i=0,sNx+1 |
|
./pkg/bbl/bbl_calc_rhs.F |
110 |
BBL_CALC_RHS |
kBot = kLowC(i,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
113 |
BBL_CALC_RHS |
IF ( rhoLoc(i,j) .LT. rhoBBL(i,j) ) |
|
./pkg/bbl/bbl_calc_rhs.F |
114 |
BBL_CALC_RHS |
& bbl_eta(i,j,bi,bj) = max ( 0. _d 0 , |
|
./pkg/bbl/bbl_calc_rhs.F |
115 |
BBL_CALC_RHS |
& bbl_eta(i,j,bi,bj) - bbl_wvel * dTtracerLev(kBot) ) |
|
./pkg/bbl/bbl_calc_rhs.F |
117 |
BBL_CALC_RHS |
IF ( rhoLoc(i,j) .GE. rhoBBL(i,j) .OR. |
|
./pkg/bbl/bbl_calc_rhs.F |
118 |
BBL_CALC_RHS |
& bbl_eta(i,j,bi,bj) .EQ. 0. _d 0 ) THEN |
|
./pkg/bbl/bbl_calc_rhs.F |
119 |
BBL_CALC_RHS |
bbl_theta(i,j,bi,bj) = tLoc(i,j) |
|
./pkg/bbl/bbl_calc_rhs.F |
120 |
BBL_CALC_RHS |
bbl_salt (i,j,bi,bj) = sLoc(i,j) |
|
./pkg/bbl/bbl_calc_rhs.F |
121 |
BBL_CALC_RHS |
bbl_eta (i,j,bi,bj) = 0. _d 0 |
|
./pkg/bbl/bbl_calc_rhs.F |
129 |
BBL_CALC_RHS |
DO i=0,sNx+1 |
|
./pkg/bbl/bbl_calc_rhs.F |
130 |
BBL_CALC_RHS |
kLowC1 = kLowC(i,j ,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
131 |
BBL_CALC_RHS |
kLowC2 = kLowC(i,j+1,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
138 |
BBL_CALC_RHS |
deltaDpt = R_low(i,j,bi,bj) + bbl_eta(i,j,bi,bj) - |
|
./pkg/bbl/bbl_calc_rhs.F |
139 |
BBL_CALC_RHS |
& R_low(i,j+1,bi,bj) - bbl_eta(i,j+1,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
142 |
BBL_CALC_RHS |
bbl_rho1 = bbl_rho_nr(i,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
144 |
BBL_CALC_RHS |
bbl_rho1 = rhoInSitu(i,j,kl,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
146 |
BBL_CALC_RHS |
bbl_rho2 = rhoInSitu(i,j+1,kLowC2,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
148 |
BBL_CALC_RHS |
bbl_rho1 = rhoInSitu(i,j,kLowC1,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
150 |
BBL_CALC_RHS |
bbl_rho2 = bbl_rho_nr(i,j+1,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
152 |
BBL_CALC_RHS |
bbl_rho2 = rhoInSitu(i,j+1,kl,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
170 |
BBL_CALC_RHS |
thk_d = drF(kLowC(i,d,bi,bj)) * |
|
./pkg/bbl/bbl_calc_rhs.F |
171 |
BBL_CALC_RHS |
& hFacC(i,d,kLowC(i,d,bi,bj),bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
172 |
BBL_CALC_RHS |
IF ( ( bbl_theta(i,d,bi,bj) .EQ. tloc(i,d) ) .AND. |
|
./pkg/bbl/bbl_calc_rhs.F |
173 |
BBL_CALC_RHS |
& ( bbl_salt (i,d,bi,bj) .EQ. sloc(i,d) ) .AND. |
|
./pkg/bbl/bbl_calc_rhs.F |
174 |
BBL_CALC_RHS |
& ( bbl_eta (i,d,bi,bj) .LT. bbl_initEta ) ) |
|
./pkg/bbl/bbl_calc_rhs.F |
175 |
BBL_CALC_RHS |
& bbl_eta(i,d,bi,bj) = min ( bbl_initEta, thk_d ) |
|
./pkg/bbl/bbl_calc_rhs.F |
178 |
BBL_CALC_RHS |
thk_r = drF(kLowC(i,r,bi,bj)) * |
|
./pkg/bbl/bbl_calc_rhs.F |
179 |
BBL_CALC_RHS |
& hFacC(i,r,kLowC(i,r,bi,bj),bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
180 |
BBL_CALC_RHS |
Theta_r = tLoc(i,r) |
|
./pkg/bbl/bbl_calc_rhs.F |
181 |
BBL_CALC_RHS |
Salt_r = sLoc(i,r) |
|
./pkg/bbl/bbl_calc_rhs.F |
182 |
BBL_CALC_RHS |
bblTheta_d = bbl_theta(i,d,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
183 |
BBL_CALC_RHS |
bblTheta_r = bbl_theta(i,r,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
184 |
BBL_CALC_RHS |
bblSalt_d = bbl_salt (i,d,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
185 |
BBL_CALC_RHS |
bblSalt_r = bbl_salt (i,r,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
186 |
BBL_CALC_RHS |
bblEta_d = bbl_eta (i,d,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
187 |
BBL_CALC_RHS |
bblEta_r = bbl_eta (i,r,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
193 |
BBL_CALC_RHS |
dVol = min ( bblEta_d * rA(i,d,bi,bj) / 2. _d 0, |
|
./pkg/bbl/bbl_calc_rhs.F |
194 |
BBL_CALC_RHS |
& resThk_r * rA(i,r,bi,bj) / 2. _d 0, |
|
./pkg/bbl/bbl_calc_rhs.F |
195 |
BBL_CALC_RHS |
& dxG(i,j+1,bi,bj) * bblEta_d * bbl_hvel * deltaT ) |
|
./pkg/bbl/bbl_calc_rhs.F |
199 |
BBL_CALC_RHS |
bbl_TendTheta(i,d,bi,bj) = bbl_TendTheta(i,d,bi,bj) - |
|
./pkg/bbl/bbl_calc_rhs.F |
200 |
BBL_CALC_RHS |
& bbl_tend / rA(i,d,bi,bj) / thk_d |
|
./pkg/bbl/bbl_calc_rhs.F |
201 |
BBL_CALC_RHS |
bbl_TendTheta(i,r,bi,bj) = bbl_TendTheta(i,r,bi,bj) + |
|
./pkg/bbl/bbl_calc_rhs.F |
202 |
BBL_CALC_RHS |
& bbl_tend / rA(i,r,bi,bj) / thk_r |
|
./pkg/bbl/bbl_calc_rhs.F |
206 |
BBL_CALC_RHS |
bbl_TendSalt(i,d,bi,bj) = bbl_TendSalt(i,d,bi,bj) - |
|
./pkg/bbl/bbl_calc_rhs.F |
207 |
BBL_CALC_RHS |
& bbl_tend / rA(i,d,bi,bj) / thk_d |
|
./pkg/bbl/bbl_calc_rhs.F |
208 |
BBL_CALC_RHS |
bbl_TendSalt(i,r,bi,bj) = bbl_TendSalt(i,r,bi,bj) + |
|
./pkg/bbl/bbl_calc_rhs.F |
209 |
BBL_CALC_RHS |
& bbl_tend / rA(i,r,bi,bj) / thk_r |
|
./pkg/bbl/bbl_calc_rhs.F |
212 |
BBL_CALC_RHS |
bbl_eta(i,d,bi,bj) = bblEta_d - dVol / rA(i,d,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
213 |
BBL_CALC_RHS |
IF ( bbl_eta(i,d,bi,bj) .LT. 0.0001 ) THEN |
|
./pkg/bbl/bbl_calc_rhs.F |
214 |
BBL_CALC_RHS |
bbl_eta(i,d,bi,bj) = 0. _d 0 |
|
./pkg/bbl/bbl_calc_rhs.F |
215 |
BBL_CALC_RHS |
bbl_theta(i,d,bi,bj) = tLoc(i,d) |
|
./pkg/bbl/bbl_calc_rhs.F |
216 |
BBL_CALC_RHS |
bbl_salt (i,d,bi,bj) = sLoc(i,d) |
|
./pkg/bbl/bbl_calc_rhs.F |
218 |
BBL_CALC_RHS |
bbl_eta(i,r,bi,bj) = bblEta_r + dVol / rA(i,r,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
219 |
BBL_CALC_RHS |
bbl_theta(i,r,bi,bj) = ( dVol * bblTheta_d + |
|
./pkg/bbl/bbl_calc_rhs.F |
220 |
BBL_CALC_RHS |
& bblEta_r * rA(i,r,bi,bj) * bblTheta_r ) / |
|
./pkg/bbl/bbl_calc_rhs.F |
221 |
BBL_CALC_RHS |
& ( bbl_eta(i,r,bi,bj) * rA(i,r,bi,bj) ) |
|
./pkg/bbl/bbl_calc_rhs.F |
222 |
BBL_CALC_RHS |
bbl_salt(i,r,bi,bj) = ( dVol * bblSalt_d + |
|
./pkg/bbl/bbl_calc_rhs.F |
223 |
BBL_CALC_RHS |
& bblEta_r * rA(i,r,bi,bj) * bblSalt_r ) / |
|
./pkg/bbl/bbl_calc_rhs.F |
224 |
BBL_CALC_RHS |
& ( bbl_eta(i,r,bi,bj) * rA(i,r,bi,bj) ) |
|
./pkg/bbl/bbl_calc_rhs.F |
231 |
BBL_CALC_RHS |
DO i=0,sNx+1 |
|
./pkg/bbl/bbl_calc_rhs.F |
232 |
BBL_CALC_RHS |
kLowC1 = kLowC(i,j ,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
233 |
BBL_CALC_RHS |
kLowC2 = kLowC(i,j+1,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
240 |
BBL_CALC_RHS |
deltaDpt = R_low(i,j,bi,bj) + bbl_eta(i,j,bi,bj) - |
|
./pkg/bbl/bbl_calc_rhs.F |
241 |
BBL_CALC_RHS |
& R_low(i,j+1,bi,bj) - bbl_eta(i,j+1,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
244 |
BBL_CALC_RHS |
bbl_rho1 = bbl_rho_nr(i,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
246 |
BBL_CALC_RHS |
bbl_rho1 = rhoInSitu(i,j,kl,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
248 |
BBL_CALC_RHS |
bbl_rho2 = rhoInSitu(i,j+1,kLowC2,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
250 |
BBL_CALC_RHS |
bbl_rho1 = rhoInSitu(i,j,kLowC1,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
252 |
BBL_CALC_RHS |
bbl_rho2 = bbl_rho_nr(i,j+1,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
254 |
BBL_CALC_RHS |
bbl_rho2 = rhoInSitu(i,j+1,kl,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
272 |
BBL_CALC_RHS |
thk_d = drF(kLowC(i,d,bi,bj)) * |
|
./pkg/bbl/bbl_calc_rhs.F |
273 |
BBL_CALC_RHS |
& hFacC(i,d,kLowC(i,d,bi,bj),bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
274 |
BBL_CALC_RHS |
IF ( ( bbl_theta(i,d,bi,bj) .EQ. tloc(i,d) ) .AND. |
|
./pkg/bbl/bbl_calc_rhs.F |
275 |
BBL_CALC_RHS |
& ( bbl_salt (i,d,bi,bj) .EQ. sloc(i,d) ) .AND. |
|
./pkg/bbl/bbl_calc_rhs.F |
276 |
BBL_CALC_RHS |
& ( bbl_eta (i,d,bi,bj) .LT. bbl_initEta ) ) |
|
./pkg/bbl/bbl_calc_rhs.F |
277 |
BBL_CALC_RHS |
& bbl_eta(i,d,bi,bj) = min ( bbl_initEta, thk_d ) |
|
./pkg/bbl/bbl_calc_rhs.F |
280 |
BBL_CALC_RHS |
thk_r = drF(kLowC(i,r,bi,bj)) * |
|
./pkg/bbl/bbl_calc_rhs.F |
281 |
BBL_CALC_RHS |
& hFacC(i,r,kLowC(i,r,bi,bj),bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
282 |
BBL_CALC_RHS |
Theta_r = tLoc(i,r) |
|
./pkg/bbl/bbl_calc_rhs.F |
283 |
BBL_CALC_RHS |
Salt_r = sLoc(i,r) |
|
./pkg/bbl/bbl_calc_rhs.F |
284 |
BBL_CALC_RHS |
bblTheta_d = bbl_theta(i,d,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
285 |
BBL_CALC_RHS |
bblTheta_r = bbl_theta(i,r,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
286 |
BBL_CALC_RHS |
bblSalt_d = bbl_salt (i,d,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
287 |
BBL_CALC_RHS |
bblSalt_r = bbl_salt (i,r,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
288 |
BBL_CALC_RHS |
bblEta_d = bbl_eta (i,d,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
289 |
BBL_CALC_RHS |
bblEta_r = bbl_eta (i,r,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
295 |
BBL_CALC_RHS |
dVol = min ( bblEta_d * rA(i,d,bi,bj) / 2. _d 0, |
|
./pkg/bbl/bbl_calc_rhs.F |
296 |
BBL_CALC_RHS |
& resThk_r * rA(i,r,bi,bj) / 2. _d 0, |
|
./pkg/bbl/bbl_calc_rhs.F |
297 |
BBL_CALC_RHS |
& dxG(i,j+1,bi,bj) * bblEta_d * bbl_hvel * deltaT ) |
|
./pkg/bbl/bbl_calc_rhs.F |
301 |
BBL_CALC_RHS |
bbl_TendTheta(i,d,bi,bj) = bbl_TendTheta(i,d,bi,bj) - |
|
./pkg/bbl/bbl_calc_rhs.F |
302 |
BBL_CALC_RHS |
& bbl_tend / rA(i,d,bi,bj) / thk_d |
|
./pkg/bbl/bbl_calc_rhs.F |
303 |
BBL_CALC_RHS |
bbl_TendTheta(i,r,bi,bj) = bbl_TendTheta(i,r,bi,bj) + |
|
./pkg/bbl/bbl_calc_rhs.F |
304 |
BBL_CALC_RHS |
& bbl_tend / rA(i,r,bi,bj) / thk_r |
|
./pkg/bbl/bbl_calc_rhs.F |
308 |
BBL_CALC_RHS |
bbl_TendSalt(i,d,bi,bj) = bbl_TendSalt(i,d,bi,bj) - |
|
./pkg/bbl/bbl_calc_rhs.F |
309 |
BBL_CALC_RHS |
& bbl_tend / rA(i,d,bi,bj) / thk_d |
|
./pkg/bbl/bbl_calc_rhs.F |
310 |
BBL_CALC_RHS |
bbl_TendSalt(i,r,bi,bj) = bbl_TendSalt(i,r,bi,bj) + |
|
./pkg/bbl/bbl_calc_rhs.F |
311 |
BBL_CALC_RHS |
& bbl_tend / rA(i,r,bi,bj) / thk_r |
|
./pkg/bbl/bbl_calc_rhs.F |
314 |
BBL_CALC_RHS |
bbl_eta(i,d,bi,bj) = bblEta_d - dVol / rA(i,d,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
315 |
BBL_CALC_RHS |
IF ( bbl_eta(i,d,bi,bj) .LT. 0.0001 ) THEN |
|
./pkg/bbl/bbl_calc_rhs.F |
316 |
BBL_CALC_RHS |
bbl_eta(i,d,bi,bj) = 0. _d 0 |
|
./pkg/bbl/bbl_calc_rhs.F |
317 |
BBL_CALC_RHS |
bbl_theta(i,d,bi,bj) = tLoc(i,d) |
|
./pkg/bbl/bbl_calc_rhs.F |
318 |
BBL_CALC_RHS |
bbl_salt (i,d,bi,bj) = sLoc(i,d) |
|
./pkg/bbl/bbl_calc_rhs.F |
320 |
BBL_CALC_RHS |
bbl_eta(i,r,bi,bj) = bblEta_r + dVol / rA(i,r,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
321 |
BBL_CALC_RHS |
bbl_theta(i,r,bi,bj) = ( dVol * bblTheta_d + |
|
./pkg/bbl/bbl_calc_rhs.F |
322 |
BBL_CALC_RHS |
& bblEta_r * rA(i,r,bi,bj) * bblTheta_r ) / |
|
./pkg/bbl/bbl_calc_rhs.F |
323 |
BBL_CALC_RHS |
& ( bbl_eta(i,r,bi,bj) * rA(i,r,bi,bj) ) |
|
./pkg/bbl/bbl_calc_rhs.F |
324 |
BBL_CALC_RHS |
bbl_salt(i,r,bi,bj) = ( dVol * bblSalt_d + |
|
./pkg/bbl/bbl_calc_rhs.F |
325 |
BBL_CALC_RHS |
& bblEta_r * rA(i,r,bi,bj) * bblSalt_r ) / |
|
./pkg/bbl/bbl_calc_rhs.F |
326 |
BBL_CALC_RHS |
& ( bbl_eta(i,r,bi,bj) * rA(i,r,bi,bj) ) |
|
./pkg/bbl/bbl_calc_rhs.F |
333 |
BBL_CALC_RHS |
i=sNx |
|
./pkg/bbl/bbl_calc_rhs.F |
335 |
BBL_CALC_RHS |
kLowC1 = kLowC(i ,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
336 |
BBL_CALC_RHS |
kLowC2 = kLowC(i+1,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
343 |
BBL_CALC_RHS |
deltaDpt = R_low(i,j,bi,bj) + bbl_eta(i,j,bi,bj) - |
|
./pkg/bbl/bbl_calc_rhs.F |
344 |
BBL_CALC_RHS |
& R_low(i+1,j,bi,bj) - bbl_eta(i+1,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
347 |
BBL_CALC_RHS |
bbl_rho1 = bbl_rho_nr(i,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
349 |
BBL_CALC_RHS |
bbl_rho1 = rhoInSitu(i,j,kl,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
351 |
BBL_CALC_RHS |
bbl_rho2 = rhoInSitu(i+1,j,kLowC2,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
353 |
BBL_CALC_RHS |
bbl_rho1 = rhoInSitu(i,j,kLowC1,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
355 |
BBL_CALC_RHS |
bbl_rho2 = bbl_rho_nr(i+1,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
357 |
BBL_CALC_RHS |
bbl_rho2 = rhoInSitu(i+1,j,kl,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
367 |
BBL_CALC_RHS |
d = i |
|
./pkg/bbl/bbl_calc_rhs.F |
368 |
BBL_CALC_RHS |
r = i + 1 |
|
./pkg/bbl/bbl_calc_rhs.F |
370 |
BBL_CALC_RHS |
d = i + 1 |
|
./pkg/bbl/bbl_calc_rhs.F |
371 |
BBL_CALC_RHS |
r = i |
|
./pkg/bbl/bbl_calc_rhs.F |
400 |
BBL_CALC_RHS |
& dxG(i+1,j,bi,bj) * bblEta_d * bbl_hvel * deltaT ) |
|
./pkg/bbl/bbl_calc_rhs.F |
436 |
BBL_CALC_RHS |
DO i=0,sNx-1 |
|
./pkg/bbl/bbl_calc_rhs.F |
437 |
BBL_CALC_RHS |
kLowC1 = kLowC(i ,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
438 |
BBL_CALC_RHS |
kLowC2 = kLowC(i+1,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
445 |
BBL_CALC_RHS |
deltaDpt = R_low(i,j,bi,bj) + bbl_eta(i,j,bi,bj) - |
|
./pkg/bbl/bbl_calc_rhs.F |
446 |
BBL_CALC_RHS |
& R_low(i+1,j,bi,bj) - bbl_eta(i+1,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
449 |
BBL_CALC_RHS |
bbl_rho1 = bbl_rho_nr(i,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
451 |
BBL_CALC_RHS |
bbl_rho1 = rhoInSitu(i,j,kl,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
453 |
BBL_CALC_RHS |
bbl_rho2 = rhoInSitu(i+1,j,kLowC2,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
455 |
BBL_CALC_RHS |
bbl_rho1 = rhoInSitu(i,j,kLowC1,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
457 |
BBL_CALC_RHS |
bbl_rho2 = bbl_rho_nr(i+1,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
459 |
BBL_CALC_RHS |
bbl_rho2 = rhoInSitu(i+1,j,kl,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
469 |
BBL_CALC_RHS |
d = i |
|
./pkg/bbl/bbl_calc_rhs.F |
470 |
BBL_CALC_RHS |
r = i + 1 |
|
./pkg/bbl/bbl_calc_rhs.F |
472 |
BBL_CALC_RHS |
d = i + 1 |
|
./pkg/bbl/bbl_calc_rhs.F |
473 |
BBL_CALC_RHS |
r = i |
|
./pkg/bbl/bbl_calc_rhs.F |
502 |
BBL_CALC_RHS |
& dxG(i+1,j,bi,bj) * bblEta_d * bbl_hvel * deltaT ) |
|
./pkg/bbl/bbl_calc_rhs.F |
66 |
BBL_CALC_RHS |
INTEGER i, j, d, r, kBot, kLowC1, kLowC2, kl |
|
./pkg/bbl/bbl_calc_rhs.F |
86 |
BBL_CALC_RHS |
DO i=0,sNx+1 |
|
./pkg/bbl/bbl_calc_rhs.F |
87 |
BBL_CALC_RHS |
bbl_TendTheta(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bbl/bbl_calc_rhs.F |
88 |
BBL_CALC_RHS |
bbl_TendSalt (i,j,bi,bj) = 0. _d 0 |
|
./pkg/bbl/bbl_calc_rhs.F |
89 |
BBL_CALC_RHS |
kBot = max(1,kLowC(i,j,bi,bj)) |
|
./pkg/bbl/bbl_calc_rhs.F |
90 |
BBL_CALC_RHS |
tLoc(i,j) = theta(i,j,kBot,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
91 |
BBL_CALC_RHS |
sLoc(i,j) = salt (i,j,kBot,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
92 |
BBL_CALC_RHS |
rholoc(i,j) = rhoInSitu(i,j,kBot,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
94 |
BBL_CALC_RHS |
rhoBBL(i,j) = bbl_rho_nr(i,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
96 |
BBL_CALC_RHS |
rhoBBL(i,j) = rhoInSitu(i,j,kBot+1,bi,bj) |
|
./pkg/bbl/bbl_init_varia.F |
34 |
BBL_INIT_VARIA |
INTEGER i,j,bi,bj,kBot |
|
./pkg/bbl/bbl_init_varia.F |
40 |
BBL_INIT_VARIA |
DO i=1-OLx,sNx+OLx |
|
./pkg/bbl/bbl_init_varia.F |
41 |
BBL_INIT_VARIA |
kBot = max(1,kLowC(i,j,bi,bj)) |
|
./pkg/bbl/bbl_init_varia.F |
42 |
BBL_INIT_VARIA |
bbl_theta(i,j,bi,bj) = theta(i,j,kBot,bi,bj) |
|
./pkg/bbl/bbl_init_varia.F |
43 |
BBL_INIT_VARIA |
bbl_salt (i,j,bi,bj) = salt (i,j,kBot,bi,bj) |
|
./pkg/bbl/bbl_init_varia.F |
44 |
BBL_INIT_VARIA |
bbl_eta(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bbl/bbl_init_varia.F |
45 |
BBL_INIT_VARIA |
bbl_TendTheta(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bbl/bbl_init_varia.F |
46 |
BBL_INIT_VARIA |
bbl_TendSalt (i,j,bi,bj) = 0. _d 0 |
|
./pkg/bbl/bbl_tendency_apply.F |
103 |
BBL_TENDENCY_APPLY_S |
INTEGER i, j |
|
./pkg/bbl/bbl_tendency_apply.F |
106 |
BBL_TENDENCY_APPLY_S |
DO i=iMin,iMax |
|
./pkg/bbl/bbl_tendency_apply.F |
107 |
BBL_TENDENCY_APPLY_S |
IF ( k .EQ. kLowC(i,j,bi,bj) ) |
|
./pkg/bbl/bbl_tendency_apply.F |
108 |
BBL_TENDENCY_APPLY_S |
& gS_arr(i,j) = gS_arr(i,j) |
|
./pkg/bbl/bbl_tendency_apply.F |
109 |
BBL_TENDENCY_APPLY_S |
& + maskC(i,j,k,bi,bj) * bbl_TendSalt(i,j,bi,bj) |
|
./pkg/bbl/bbl_tendency_apply.F |
50 |
BBL_TENDENCY_APPLY_T |
INTEGER i, j |
|
./pkg/bbl/bbl_tendency_apply.F |
53 |
BBL_TENDENCY_APPLY_T |
DO i=iMin,iMax |
|
./pkg/bbl/bbl_tendency_apply.F |
54 |
BBL_TENDENCY_APPLY_T |
IF ( k .EQ. kLowC(i,j,bi,bj) ) |
|
./pkg/bbl/bbl_tendency_apply.F |
55 |
BBL_TENDENCY_APPLY_T |
& gT_arr(i,j) = gT_arr(i,j) |
|
./pkg/bbl/bbl_tendency_apply.F |
56 |
BBL_TENDENCY_APPLY_T |
& + maskC(i,j,k,bi,bj) * bbl_TendTheta(i,j,bi,bj) |
|
./eesupp/src/mds_byteswapi4.F |
23 |
MDS_BYTESWAPI4 |
integer i |
|
./eesupp/src/mds_byteswapi4.F |
25 |
MDS_BYTESWAPI4 |
i32(i) = ishft(i.and. z'ff000000', -24) .or. |
|
./eesupp/src/mds_byteswapi4.F |
26 |
MDS_BYTESWAPI4 |
& ishft(i.and. z'00ff0000', -8) .or. |
|
./eesupp/src/mds_byteswapi4.F |
27 |
MDS_BYTESWAPI4 |
& ishft(i.and. z'0000ff00', 8) .or. |
|
./eesupp/src/mds_byteswapi4.F |
28 |
MDS_BYTESWAPI4 |
& ishft(i.and. z'000000ff', 24) |
|
./eesupp/src/mds_byteswapi4.F |
29 |
MDS_BYTESWAPI4 |
do i = 1,n |
|
./eesupp/src/mds_byteswapi4.F |
30 |
MDS_BYTESWAPI4 |
arr(i) = i32(arr(i)) |
|
./eesupp/src/mds_byteswapi4.F |
40 |
MDS_BYTESWAPI4 |
integer i |
|
./eesupp/src/mds_byteswapi4.F |
43 |
MDS_BYTESWAPI4 |
do i=1,4*n,4 |
|
./eesupp/src/mds_byteswapi4.F |
44 |
MDS_BYTESWAPI4 |
cc=arr(i:i) |
|
./eesupp/src/mds_byteswapi4.F |
45 |
MDS_BYTESWAPI4 |
arr(i:i)=arr(i+3:i+3) |
|
./eesupp/src/mds_byteswapi4.F |
46 |
MDS_BYTESWAPI4 |
arr(i+3:i+3)=cc |
|
./eesupp/src/mds_byteswapi4.F |
47 |
MDS_BYTESWAPI4 |
cc=arr(i+1:i+1) |
|
./eesupp/src/mds_byteswapi4.F |
48 |
MDS_BYTESWAPI4 |
arr(i+1:i+1)=arr(i+2:i+2) |
|
./eesupp/src/mds_byteswapi4.F |
49 |
MDS_BYTESWAPI4 |
arr(i+2:i+2)=cc |
|
./pkg/bling/bling_airseaflux.F |
115 |
BLING_AIRSEAFLUX |
DO i=imin,imax |
|
./pkg/bling/bling_airseaflux.F |
117 |
BLING_AIRSEAFLUX |
surfalk(i,j) = PTR_ALK(i,j,1) |
|
./pkg/bling/bling_airseaflux.F |
118 |
BLING_AIRSEAFLUX |
& * maskC(i,j,1,bi,bj) |
|
./pkg/bling/bling_airseaflux.F |
119 |
BLING_AIRSEAFLUX |
surfphos(i,j) = PTR_PO4(i,j,1) |
|
./pkg/bling/bling_airseaflux.F |
120 |
BLING_AIRSEAFLUX |
& * maskC(i,j,1,bi,bj) |
|
./pkg/bling/bling_airseaflux.F |
123 |
BLING_AIRSEAFLUX |
surfsi(i,j) = SILICA(i,j,bi,bj) * maskC(i,j,1,bi,bj) |
|
./pkg/bling/bling_airseaflux.F |
124 |
BLING_AIRSEAFLUX |
surftemp(i,j) = theta(i,j,1,bi,bj) |
|
./pkg/bling/bling_airseaflux.F |
125 |
BLING_AIRSEAFLUX |
surfsalt(i,j) = salt(i,j,1,bi,bj) |
|
./pkg/bling/bling_airseaflux.F |
126 |
BLING_AIRSEAFLUX |
surfdic(i,j) = PTR_DIC(i,j,1) |
|
./pkg/bling/bling_airseaflux.F |
136 |
BLING_AIRSEAFLUX |
DO i=imin,imax |
|
./pkg/bling/bling_airseaflux.F |
141 |
BLING_AIRSEAFLUX |
wind(i,j,bi,bj) = wspeed(i,j,bi,bj) |
|
./pkg/bling/bling_airseaflux.F |
146 |
BLING_AIRSEAFLUX |
pisvel(i,j) = 0.337 _d 0 * wind(i,j,bi,bj)**2/3.6 _d 5 |
|
./pkg/bling/bling_airseaflux.F |
147 |
BLING_AIRSEAFLUX |
Kwexch_Pre(i,j) = pisvel(i,j) |
|
./pkg/bling/bling_airseaflux.F |
148 |
BLING_AIRSEAFLUX |
& * (1. _d 0 - FIce(i,j,bi,bj)) |
|
./pkg/bling/bling_airseaflux.F |
160 |
BLING_AIRSEAFLUX |
DO i=imin,imax |
|
./pkg/bling/bling_airseaflux.F |
162 |
BLING_AIRSEAFLUX |
IF ( maskC(i,j,klev,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/bling/bling_airseaflux.F |
164 |
BLING_AIRSEAFLUX |
I surftemp(i,j),surfsalt(i,j), |
|
./pkg/bling/bling_airseaflux.F |
165 |
BLING_AIRSEAFLUX |
I surfdic(i,j), surfphos(i,j), |
|
./pkg/bling/bling_airseaflux.F |
166 |
BLING_AIRSEAFLUX |
I surfsi(i,j),surfalk(i,j), |
|
./pkg/bling/bling_airseaflux.F |
167 |
BLING_AIRSEAFLUX |
I ak1(i,j,bi,bj),ak2(i,j,bi,bj), |
|
./pkg/bling/bling_airseaflux.F |
168 |
BLING_AIRSEAFLUX |
I ak1p(i,j,bi,bj),ak2p(i,j,bi,bj),ak3p(i,j,bi,bj), |
|
./pkg/bling/bling_airseaflux.F |
169 |
BLING_AIRSEAFLUX |
I aks(i,j,bi,bj),akb(i,j,bi,bj),akw(i,j,bi,bj), |
|
./pkg/bling/bling_airseaflux.F |
170 |
BLING_AIRSEAFLUX |
I aksi(i,j,bi,bj),akf(i,j,bi,bj), |
|
./pkg/bling/bling_airseaflux.F |
171 |
BLING_AIRSEAFLUX |
I ak0(i,j,bi,bj), fugf(i,j,bi,bj), |
|
./pkg/bling/bling_airseaflux.F |
172 |
BLING_AIRSEAFLUX |
I ff(i,j,bi,bj), |
|
./pkg/bling/bling_airseaflux.F |
173 |
BLING_AIRSEAFLUX |
I bt(i,j,bi,bj),st(i,j,bi,bj),ft(i,j,bi,bj), |
|
./pkg/bling/bling_airseaflux.F |
174 |
BLING_AIRSEAFLUX |
U pH(i,j,klev,bi,bj),pCO2(i,j,bi,bj),co3dummy, |
|
./pkg/bling/bling_airseaflux.F |
175 |
BLING_AIRSEAFLUX |
I i,j,klev,bi,bj,myIter,myThid ) |
|
./pkg/bling/bling_airseaflux.F |
177 |
BLING_AIRSEAFLUX |
pCO2(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_airseaflux.F |
184 |
BLING_AIRSEAFLUX |
DO i=imin,imax |
|
./pkg/bling/bling_airseaflux.F |
186 |
BLING_AIRSEAFLUX |
IF ( maskC(i,j,1,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/bling/bling_airseaflux.F |
188 |
BLING_AIRSEAFLUX |
SchmidtNoDIC(i,j) = |
|
./pkg/bling/bling_airseaflux.F |
190 |
BLING_AIRSEAFLUX |
& + sca2 * theta(i,j,1,bi,bj) |
|
./pkg/bling/bling_airseaflux.F |
191 |
BLING_AIRSEAFLUX |
& + sca3 * theta(i,j,1,bi,bj)*theta(i,j,1,bi,bj) |
|
./pkg/bling/bling_airseaflux.F |
192 |
BLING_AIRSEAFLUX |
& + sca4 * theta(i,j,1,bi,bj)*theta(i,j,1,bi,bj) |
|
./pkg/bling/bling_airseaflux.F |
193 |
BLING_AIRSEAFLUX |
& *theta(i,j,1,bi,bj) |
|
./pkg/bling/bling_airseaflux.F |
195 |
BLING_AIRSEAFLUX |
SchmidtNoDIC(i,j)=max(1.0 _d -2, SchmidtNoDIC(i,j)) |
|
./pkg/bling/bling_airseaflux.F |
199 |
BLING_AIRSEAFLUX |
pCO2sat(i,j) = apco2(i,j,bi,bj) |
|
./pkg/bling/bling_airseaflux.F |
201 |
BLING_AIRSEAFLUX |
pCO2sat(i,j) = bling_pCO2 |
|
./pkg/bling/bling_airseaflux.F |
207 |
BLING_AIRSEAFLUX |
pCO2sat(i,j) = pCO2sat(i,j)*(apressure(i,j,bi,bj)*0.00001) |
|
./pkg/bling/bling_airseaflux.F |
209 |
BLING_AIRSEAFLUX |
pCO2sat(i,j) = pCO2sat(i,j)*AtmosP(i,j,bi,bj) |
|
./pkg/bling/bling_airseaflux.F |
213 |
BLING_AIRSEAFLUX |
Kwexch(i,j) = Kwexch_Pre(i,j) |
|
./pkg/bling/bling_airseaflux.F |
214 |
BLING_AIRSEAFLUX |
& / sqrt(SchmidtNoDIC(i,j)/660.0 _d 0) |
|
./pkg/bling/bling_airseaflux.F |
218 |
BLING_AIRSEAFLUX |
FluxCO2(i,j,bi,bj) = |
|
./pkg/bling/bling_airseaflux.F |
219 |
BLING_AIRSEAFLUX |
& Kwexch(i,j)*( |
|
./pkg/bling/bling_airseaflux.F |
220 |
BLING_AIRSEAFLUX |
& ff(i,j,bi,bj)*pCO2sat(i,j) - |
|
./pkg/bling/bling_airseaflux.F |
221 |
BLING_AIRSEAFLUX |
& pCO2(i,j,bi,bj)*fugf(i,j,bi,bj) |
|
./pkg/bling/bling_airseaflux.F |
222 |
BLING_AIRSEAFLUX |
& *ak0(i,j,bi,bj) ) |
|
./pkg/bling/bling_airseaflux.F |
225 |
BLING_AIRSEAFLUX |
FluxCO2(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_airseaflux.F |
229 |
BLING_AIRSEAFLUX |
FluxCO2(i,j,bi,bj) = FluxCO2(i,j,bi,bj)/permil |
|
./pkg/bling/bling_airseaflux.F |
236 |
BLING_AIRSEAFLUX |
DO i=imin,imax |
|
./pkg/bling/bling_airseaflux.F |
237 |
BLING_AIRSEAFLUX |
SGDIC(i,j)= recip_drF(1)*recip_hFacC(i,j,1,bi,bj) |
|
./pkg/bling/bling_airseaflux.F |
238 |
BLING_AIRSEAFLUX |
& *FluxCO2(i,j,bi,bj) |
|
./pkg/bling/bling_airseaflux.F |
248 |
BLING_AIRSEAFLUX |
DO i=imin,imax |
|
./pkg/bling/bling_airseaflux.F |
249 |
BLING_AIRSEAFLUX |
IF (maskC(i,j,1,bi,bj).NE.0.) THEN |
|
./pkg/bling/bling_airseaflux.F |
250 |
BLING_AIRSEAFLUX |
ttemp = theta(i,j,1,bi,bj) |
|
./pkg/bling/bling_airseaflux.F |
251 |
BLING_AIRSEAFLUX |
stemp = salt(i,j,1,bi,bj) |
|
./pkg/bling/bling_airseaflux.F |
253 |
BLING_AIRSEAFLUX |
SchmidtNoO2(i,j) = |
|
./pkg/bling/bling_airseaflux.F |
263 |
BLING_AIRSEAFLUX |
Kwexch_o2(i,j) = Kwexch_Pre(i,j) |
|
./pkg/bling/bling_airseaflux.F |
264 |
BLING_AIRSEAFLUX |
& / sqrt(SchmidtNoO2(i,j)/660.0 _d 0) |
|
./pkg/bling/bling_airseaflux.F |
284 |
BLING_AIRSEAFLUX |
O2sat(i,j) = o2s/22391.6 _d 0 * 1. _d 3 |
|
./pkg/bling/bling_airseaflux.F |
287 |
BLING_AIRSEAFLUX |
O2sat_percent(i,j) = PTR_O2(i,j,1)/O2sat(i,j)*100 |
|
./pkg/bling/bling_airseaflux.F |
292 |
BLING_AIRSEAFLUX |
FluxO2(i,j) = Kwexch_o2(i,j)*( |
|
./pkg/bling/bling_airseaflux.F |
293 |
BLING_AIRSEAFLUX |
& (apressure(i,j,bi,bj)*0.00001) |
|
./pkg/bling/bling_airseaflux.F |
294 |
BLING_AIRSEAFLUX |
& *O2sat(i,j) - PTR_O2(i,j,1) ) |
|
./pkg/bling/bling_airseaflux.F |
296 |
BLING_AIRSEAFLUX |
FluxO2(i,j) = Kwexch_o2(i,j)* |
|
./pkg/bling/bling_airseaflux.F |
297 |
BLING_AIRSEAFLUX |
& (AtmosP(i,j,bi,bj)*O2sat(i,j) |
|
./pkg/bling/bling_airseaflux.F |
298 |
BLING_AIRSEAFLUX |
& - PTR_O2(i,j,1)) |
|
./pkg/bling/bling_airseaflux.F |
301 |
BLING_AIRSEAFLUX |
FluxO2(i,j) = 0. _d 0 |
|
./pkg/bling/bling_airseaflux.F |
309 |
BLING_AIRSEAFLUX |
DO i=imin,imax |
|
./pkg/bling/bling_airseaflux.F |
310 |
BLING_AIRSEAFLUX |
SGO2(i,j)= FluxO2(i,j) |
|
./pkg/bling/bling_airseaflux.F |
311 |
BLING_AIRSEAFLUX |
& *recip_drF(1) * recip_hFacC(i,j,1,bi,bj) |
|
./pkg/bling/bling_airseaflux.F |
75 |
BLING_AIRSEAFLUX |
INTEGER i,j,klev |
|
./pkg/bling/bling_carbon_chem.F |
1001 |
CARBON_COEFFS_PRESSURE_DEP |
aks(i,j,bi,bj)=exp(-4276.1*invtk + 141.328 - |
|
./pkg/bling/bling_carbon_chem.F |
1010 |
CARBON_COEFFS_PRESSURE_DEP |
akf(i,j,bi,bj)=exp(1590.2*invtk - 12.641 + 1.525*sqrtis + |
|
./pkg/bling/bling_carbon_chem.F |
1012 |
CARBON_COEFFS_PRESSURE_DEP |
& log(1.0 + (0.1400/96.062)*(scl)/aks(i,j,bi,bj))) |
|
./pkg/bling/bling_carbon_chem.F |
1016 |
CARBON_COEFFS_PRESSURE_DEP |
bt(i,j,bi,bj) = 0.000232 * scl/10.811 |
|
./pkg/bling/bling_carbon_chem.F |
1018 |
CARBON_COEFFS_PRESSURE_DEP |
st(i,j,bi,bj) = 0.14 * scl/96.062 |
|
./pkg/bling/bling_carbon_chem.F |
1020 |
CARBON_COEFFS_PRESSURE_DEP |
ft(i,j,bi,bj) = 0.000067 * scl/18.9984 |
|
./pkg/bling/bling_carbon_chem.F |
1071 |
CARBON_COEFFS_PRESSURE_DEP |
Ksp_TP_Calc(i,j,bi,bj) = Ksp_T_Calc*10**(xvalue) |
|
./pkg/bling/bling_carbon_chem.F |
1072 |
CARBON_COEFFS_PRESSURE_DEP |
Ksp_TP_Arag(i,j,bi,bj) = Ksp_T_Arag*10**(xvalue) |
|
./pkg/bling/bling_carbon_chem.F |
1077 |
CARBON_COEFFS_PRESSURE_DEP |
fugf(i,j,bi,bj)=0.d0 |
|
./pkg/bling/bling_carbon_chem.F |
1078 |
CARBON_COEFFS_PRESSURE_DEP |
ff(i,j,bi,bj)=0.d0 |
|
./pkg/bling/bling_carbon_chem.F |
1079 |
CARBON_COEFFS_PRESSURE_DEP |
ak0(i,j,bi,bj)= 0.d0 |
|
./pkg/bling/bling_carbon_chem.F |
1080 |
CARBON_COEFFS_PRESSURE_DEP |
ak1(i,j,bi,bj)= 0.d0 |
|
./pkg/bling/bling_carbon_chem.F |
1081 |
CARBON_COEFFS_PRESSURE_DEP |
ak2(i,j,bi,bj)= 0.d0 |
|
./pkg/bling/bling_carbon_chem.F |
1082 |
CARBON_COEFFS_PRESSURE_DEP |
akb(i,j,bi,bj)= 0.d0 |
|
./pkg/bling/bling_carbon_chem.F |
1083 |
CARBON_COEFFS_PRESSURE_DEP |
ak1p(i,j,bi,bj) = 0.d0 |
|
./pkg/bling/bling_carbon_chem.F |
1084 |
CARBON_COEFFS_PRESSURE_DEP |
ak2p(i,j,bi,bj) = 0.d0 |
|
./pkg/bling/bling_carbon_chem.F |
1085 |
CARBON_COEFFS_PRESSURE_DEP |
ak3p(i,j,bi,bj) = 0.d0 |
|
./pkg/bling/bling_carbon_chem.F |
1086 |
CARBON_COEFFS_PRESSURE_DEP |
aksi(i,j,bi,bj) = 0.d0 |
|
./pkg/bling/bling_carbon_chem.F |
1087 |
CARBON_COEFFS_PRESSURE_DEP |
akw(i,j,bi,bj) = 0.d0 |
|
./pkg/bling/bling_carbon_chem.F |
1088 |
CARBON_COEFFS_PRESSURE_DEP |
aks(i,j,bi,bj)= 0.d0 |
|
./pkg/bling/bling_carbon_chem.F |
1089 |
CARBON_COEFFS_PRESSURE_DEP |
akf(i,j,bi,bj)= 0.d0 |
|
./pkg/bling/bling_carbon_chem.F |
1090 |
CARBON_COEFFS_PRESSURE_DEP |
bt(i,j,bi,bj) = 0.d0 |
|
./pkg/bling/bling_carbon_chem.F |
1091 |
CARBON_COEFFS_PRESSURE_DEP |
st(i,j,bi,bj) = 0.d0 |
|
./pkg/bling/bling_carbon_chem.F |
1092 |
CARBON_COEFFS_PRESSURE_DEP |
ft(i,j,bi,bj) = 0.d0 |
|
./pkg/bling/bling_carbon_chem.F |
1093 |
CARBON_COEFFS_PRESSURE_DEP |
Ksp_TP_Calc(i,j,bi,bj) = 0.d0 |
|
./pkg/bling/bling_carbon_chem.F |
1094 |
CARBON_COEFFS_PRESSURE_DEP |
Ksp_TP_Arag(i,j,bi,bj) = 0.d0 |
|
./pkg/bling/bling_carbon_chem.F |
24 |
CALC_PCO2 |
I i,j,k,bi,bj,myIter,myThid ) |
|
./pkg/bling/bling_carbon_chem.F |
335 |
CALC_PCO2_APPROX |
I i,j,k,bi,bj,myIter,myThid ) |
|
./pkg/bling/bling_carbon_chem.F |
377 |
CALC_PCO2_APPROX |
INTEGER i,j,k,bi,bj,myIter |
|
./pkg/bling/bling_carbon_chem.F |
560 |
CARBON_COEFFS |
INTEGER i |
|
./pkg/bling/bling_carbon_chem.F |
574 |
CARBON_COEFFS |
do i=imin,imax |
|
./pkg/bling/bling_carbon_chem.F |
576 |
CARBON_COEFFS |
if (hFacC(i,j,1,bi,bj).gt.0. _d 0) then |
|
./pkg/bling/bling_carbon_chem.F |
577 |
CARBON_COEFFS |
t = ttemp(i,j) |
|
./pkg/bling/bling_carbon_chem.F |
578 |
CARBON_COEFFS |
s = stemp(i,j) |
|
./pkg/bling/bling_carbon_chem.F |
605 |
CARBON_COEFFS |
fugf(i,j,bi,bj) = exp( (B+2. _d 0*delta) * |
|
./pkg/bling/bling_carbon_chem.F |
606 |
CARBON_COEFFS |
& (apressure (i,j,bi,bj) * 0.00001) |
|
./pkg/bling/bling_carbon_chem.F |
609 |
CARBON_COEFFS |
fugf(i,j,bi,bj) = exp( (B+2. _d 0*delta) * P1atm / RT) |
|
./pkg/bling/bling_carbon_chem.F |
615 |
CARBON_COEFFS |
ff(i,j,bi,bj) = exp(-162.8301 _d 0 + 218.2968 _d 0/tk100 + |
|
./pkg/bling/bling_carbon_chem.F |
621 |
CARBON_COEFFS |
ak0(i,j,bi,bj) = exp(93.4517 _d 0/tk100 - 60.2409 _d 0 + |
|
./pkg/bling/bling_carbon_chem.F |
629 |
CARBON_COEFFS |
ak1(i,j,bi,bj)=10.**(-1. _d 0*(3670.7 _d 0*invtk - |
|
./pkg/bling/bling_carbon_chem.F |
62 |
CALC_PCO2 |
INTEGER i,j,k,bi,bj,myIter |
|
./pkg/bling/bling_carbon_chem.F |
632 |
CARBON_COEFFS |
ak2(i,j,bi,bj)=10.**(-1. _d 0*(1394.7 _d 0*invtk+ 4.777 _d 0- |
|
./pkg/bling/bling_carbon_chem.F |
637 |
CARBON_COEFFS |
akb(i,j,bi,bj)=exp((-8966.90 _d 0- 2890.53 _d 0*sqrts - |
|
./pkg/bling/bling_carbon_chem.F |
645 |
CARBON_COEFFS |
ak1p(i,j,bi,bj) = exp(-4576.752 _d 0*invtk + 115.525 _d 0 - |
|
./pkg/bling/bling_carbon_chem.F |
652 |
CARBON_COEFFS |
ak2p(i,j,bi,bj) = exp(-8814.715 _d 0*invtk + 172.0883 _d 0 - |
|
./pkg/bling/bling_carbon_chem.F |
659 |
CARBON_COEFFS |
ak3p(i,j,bi,bj) = exp(-3070.75 _d 0*invtk - 18.141 _d 0 + |
|
./pkg/bling/bling_carbon_chem.F |
665 |
CARBON_COEFFS |
aksi(i,j,bi,bj) = exp(-8904.2 _d 0*invtk + 117.385 _d 0 - |
|
./pkg/bling/bling_carbon_chem.F |
674 |
CARBON_COEFFS |
akw(i,j,bi,bj) = exp(-13847.26 _d 0*invtk + 148.9652 _d 0 - |
|
./pkg/bling/bling_carbon_chem.F |
681 |
CARBON_COEFFS |
aks(i,j,bi,bj)=exp(-4276.1 _d 0*invtk + 141.328 _d 0 - |
|
./pkg/bling/bling_carbon_chem.F |
690 |
CARBON_COEFFS |
akf(i,j,bi,bj)=exp(1590.2 _d 0*invtk - 12.641 _d 0 + |
|
./pkg/bling/bling_carbon_chem.F |
692 |
CARBON_COEFFS |
& log(1.0 _d 0 + (0.1400 _d 0/96.062 _d 0)*(scl)/aks(i,j,bi,bj))) |
|
./pkg/bling/bling_carbon_chem.F |
696 |
CARBON_COEFFS |
bt(i,j,bi,bj) = 0.000232 _d 0 * scl/10.811 _d 0 |
|
./pkg/bling/bling_carbon_chem.F |
698 |
CARBON_COEFFS |
st(i,j,bi,bj) = 0.14 _d 0 * scl/96.062 _d 0 |
|
./pkg/bling/bling_carbon_chem.F |
700 |
CARBON_COEFFS |
ft(i,j,bi,bj) = 0.000067 _d 0 * scl/18.9984 _d 0 |
|
./pkg/bling/bling_carbon_chem.F |
704 |
CARBON_COEFFS |
fugf(i,j,bi,bj)=0. _d 0 |
|
./pkg/bling/bling_carbon_chem.F |
705 |
CARBON_COEFFS |
ff(i,j,bi,bj)=0. _d 0 |
|
./pkg/bling/bling_carbon_chem.F |
706 |
CARBON_COEFFS |
ak0(i,j,bi,bj)= 0. _d 0 |
|
./pkg/bling/bling_carbon_chem.F |
707 |
CARBON_COEFFS |
ak1(i,j,bi,bj)= 0. _d 0 |
|
./pkg/bling/bling_carbon_chem.F |
708 |
CARBON_COEFFS |
ak2(i,j,bi,bj)= 0. _d 0 |
|
./pkg/bling/bling_carbon_chem.F |
709 |
CARBON_COEFFS |
akb(i,j,bi,bj)= 0. _d 0 |
|
./pkg/bling/bling_carbon_chem.F |
710 |
CARBON_COEFFS |
ak1p(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_carbon_chem.F |
711 |
CARBON_COEFFS |
ak2p(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_carbon_chem.F |
712 |
CARBON_COEFFS |
ak3p(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_carbon_chem.F |
713 |
CARBON_COEFFS |
aksi(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_carbon_chem.F |
714 |
CARBON_COEFFS |
akw(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_carbon_chem.F |
715 |
CARBON_COEFFS |
aks(i,j,bi,bj)= 0. _d 0 |
|
./pkg/bling/bling_carbon_chem.F |
716 |
CARBON_COEFFS |
akf(i,j,bi,bj)= 0. _d 0 |
|
./pkg/bling/bling_carbon_chem.F |
717 |
CARBON_COEFFS |
bt(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_carbon_chem.F |
718 |
CARBON_COEFFS |
st(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_carbon_chem.F |
719 |
CARBON_COEFFS |
ft(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_carbon_chem.F |
820 |
CARBON_COEFFS_PRESSURE_DEP |
INTEGER i |
|
./pkg/bling/bling_carbon_chem.F |
868 |
CARBON_COEFFS_PRESSURE_DEP |
do i=imin,imax |
|
./pkg/bling/bling_carbon_chem.F |
870 |
CARBON_COEFFS_PRESSURE_DEP |
if (hFacC(i,j,Klevel,bi,bj).gt.0.d0) then |
|
./pkg/bling/bling_carbon_chem.F |
871 |
CARBON_COEFFS_PRESSURE_DEP |
t = ttemp(i,j) |
|
./pkg/bling/bling_carbon_chem.F |
872 |
CARBON_COEFFS_PRESSURE_DEP |
s = stemp(i,j) |
|
./pkg/bling/bling_carbon_chem.F |
902 |
CARBON_COEFFS_PRESSURE_DEP |
fugf(i,j,bi,bj) = exp( (B+2. _d 0*delta) * |
|
./pkg/bling/bling_carbon_chem.F |
903 |
CARBON_COEFFS_PRESSURE_DEP |
& (apressure (i,j,bi,bj) * 0.00001) |
|
./pkg/bling/bling_carbon_chem.F |
906 |
CARBON_COEFFS_PRESSURE_DEP |
fugf(i,j,bi,bj) = exp( (B+2. _d 0*delta) * P1atm / RT) |
|
./pkg/bling/bling_carbon_chem.F |
912 |
CARBON_COEFFS_PRESSURE_DEP |
ff(i,j,bi,bj) = exp(-162.8301 + 218.2968/tk100 + |
|
./pkg/bling/bling_carbon_chem.F |
918 |
CARBON_COEFFS_PRESSURE_DEP |
ak0(i,j,bi,bj) = exp(93.4517/tk100 - 60.2409 + |
|
./pkg/bling/bling_carbon_chem.F |
926 |
CARBON_COEFFS_PRESSURE_DEP |
ak1(i,j,bi,bj)=10**(-1*(3670.7*invtk - |
|
./pkg/bling/bling_carbon_chem.F |
929 |
CARBON_COEFFS_PRESSURE_DEP |
ak2(i,j,bi,bj)=10**(-1*(1394.7*invtk + 4.777 - |
|
./pkg/bling/bling_carbon_chem.F |
935 |
CARBON_COEFFS_PRESSURE_DEP |
ak1(i,j,bi,bj) = ak1(i,j,bi,bj)* |
|
./pkg/bling/bling_carbon_chem.F |
942 |
CARBON_COEFFS_PRESSURE_DEP |
ak2(i,j,bi,bj) = ak2(i,j,bi,bj)* |
|
./pkg/bling/bling_carbon_chem.F |
947 |
CARBON_COEFFS_PRESSURE_DEP |
akb(i,j,bi,bj)=exp((-8966.90 - 2890.53*sqrts - 77.942*s + |
|
./pkg/bling/bling_carbon_chem.F |
961 |
CARBON_COEFFS_PRESSURE_DEP |
akb(i,j,bi,bj) = akb(i,j,bi,bj)*exp(pfactor) |
|
./pkg/bling/bling_carbon_chem.F |
965 |
CARBON_COEFFS_PRESSURE_DEP |
ak1p(i,j,bi,bj) = exp(-4576.752*invtk + 115.525 - |
|
./pkg/bling/bling_carbon_chem.F |
972 |
CARBON_COEFFS_PRESSURE_DEP |
ak2p(i,j,bi,bj) = exp(-8814.715*invtk + 172.0883 - |
|
./pkg/bling/bling_carbon_chem.F |
979 |
CARBON_COEFFS_PRESSURE_DEP |
ak3p(i,j,bi,bj) = exp(-3070.75*invtk - 18.141 + |
|
./pkg/bling/bling_carbon_chem.F |
985 |
CARBON_COEFFS_PRESSURE_DEP |
aksi(i,j,bi,bj) = exp(-8904.2*invtk + 117.385 - |
|
./pkg/bling/bling_carbon_chem.F |
994 |
CARBON_COEFFS_PRESSURE_DEP |
akw(i,j,bi,bj) = exp(-13847.26*invtk + 148.9652 - |
|
./pkg/bling/bling_carbonate_init.F |
116 |
BLING_CARBONATE_INIT |
DO i=1-Olx,sNx+OLx |
|
./pkg/bling/bling_carbonate_init.F |
117 |
BLING_CARBONATE_INIT |
pH(i,j,k,bi,bj) = 8. _d 0 |
|
./pkg/bling/bling_carbonate_init.F |
127 |
BLING_CARBONATE_INIT |
DO i=1-OLx,sNx+OLx |
|
./pkg/bling/bling_carbonate_init.F |
128 |
BLING_CARBONATE_INIT |
ak0(i,j,bi,bj)=0. _d 0 |
|
./pkg/bling/bling_carbonate_init.F |
129 |
BLING_CARBONATE_INIT |
ak1(i,j,bi,bj)=0. _d 0 |
|
./pkg/bling/bling_carbonate_init.F |
130 |
BLING_CARBONATE_INIT |
ak2(i,j,bi,bj)=0. _d 0 |
|
./pkg/bling/bling_carbonate_init.F |
131 |
BLING_CARBONATE_INIT |
akw(i,j,bi,bj)=0. _d 0 |
|
./pkg/bling/bling_carbonate_init.F |
132 |
BLING_CARBONATE_INIT |
akb(i,j,bi,bj)=0. _d 0 |
|
./pkg/bling/bling_carbonate_init.F |
133 |
BLING_CARBONATE_INIT |
akf(i,j,bi,bj)=0. _d 0 |
|
./pkg/bling/bling_carbonate_init.F |
134 |
BLING_CARBONATE_INIT |
ak1p(i,j,bi,bj)=0. _d 0 |
|
./pkg/bling/bling_carbonate_init.F |
135 |
BLING_CARBONATE_INIT |
ak2p(i,j,bi,bj)=0. _d 0 |
|
./pkg/bling/bling_carbonate_init.F |
136 |
BLING_CARBONATE_INIT |
ak3p(i,j,bi,bj)=0. _d 0 |
|
./pkg/bling/bling_carbonate_init.F |
137 |
BLING_CARBONATE_INIT |
aksi(i,j,bi,bj)=0. _d 0 |
|
./pkg/bling/bling_carbonate_init.F |
138 |
BLING_CARBONATE_INIT |
fugf(i,j,bi,bj)=0. _d 0 |
|
./pkg/bling/bling_carbonate_init.F |
139 |
BLING_CARBONATE_INIT |
ff(i,j,bi,bj)=0. _d 0 |
|
./pkg/bling/bling_carbonate_init.F |
140 |
BLING_CARBONATE_INIT |
ft(i,j,bi,bj)=0. _d 0 |
|
./pkg/bling/bling_carbonate_init.F |
141 |
BLING_CARBONATE_INIT |
st(i,j,bi,bj)=0. _d 0 |
|
./pkg/bling/bling_carbonate_init.F |
142 |
BLING_CARBONATE_INIT |
bt(i,j,bi,bj)=0. _d 0 |
|
./pkg/bling/bling_carbonate_init.F |
168 |
BLING_CARBONATE_INIT |
DO i=iMin,iMax |
|
./pkg/bling/bling_carbonate_init.F |
169 |
BLING_CARBONATE_INIT |
alktmp(i,j) = PTRACER(i,j,k,bi,bj,2) |
|
./pkg/bling/bling_carbonate_init.F |
170 |
BLING_CARBONATE_INIT |
& * maskC(i,j,k,bi,bj) |
|
./pkg/bling/bling_carbonate_init.F |
171 |
BLING_CARBONATE_INIT |
phostmp(i,j)= PTRACER(i,j,k,bi,bj,5) |
|
./pkg/bling/bling_carbonate_init.F |
172 |
BLING_CARBONATE_INIT |
& * maskC(i,j,k,bi,bj) |
|
./pkg/bling/bling_carbonate_init.F |
175 |
BLING_CARBONATE_INIT |
sitmp(i,j) = Silica(i,j,bi,bj) * maskC(i,j,k,bi,bj) |
|
./pkg/bling/bling_carbonate_init.F |
177 |
BLING_CARBONATE_INIT |
sitmp(i,j) = 0.03 * maskC(i,j,k,bi,bj) |
|
./pkg/bling/bling_carbonate_init.F |
179 |
BLING_CARBONATE_INIT |
dictmp(i,j) = PTRACER(i,j,k,bi,bj,1) |
|
./pkg/bling/bling_carbonate_init.F |
180 |
BLING_CARBONATE_INIT |
& * maskC(i,j,k,bi,bj) |
|
./pkg/bling/bling_carbonate_init.F |
181 |
BLING_CARBONATE_INIT |
thetatmp(i,j) = theta(i,j,k,bi,bj) |
|
./pkg/bling/bling_carbonate_init.F |
182 |
BLING_CARBONATE_INIT |
salttmp(i,j) = salt(i,j,k,bi,bj) |
|
./pkg/bling/bling_carbonate_init.F |
195 |
BLING_CARBONATE_INIT |
DO i=iMin,iMax |
|
./pkg/bling/bling_carbonate_init.F |
196 |
BLING_CARBONATE_INIT |
IF ( maskC(i,j,k,bi,bj) .NE. 0. _d 0) THEN |
|
./pkg/bling/bling_carbonate_init.F |
199 |
BLING_CARBONATE_INIT |
I thetatmp(i,j),salttmp(i,j), |
|
./pkg/bling/bling_carbonate_init.F |
200 |
BLING_CARBONATE_INIT |
I dictmp(i,j), phostmp(i,j), |
|
./pkg/bling/bling_carbonate_init.F |
201 |
BLING_CARBONATE_INIT |
I sitmp(i,j),alktmp(i,j), |
|
./pkg/bling/bling_carbonate_init.F |
202 |
BLING_CARBONATE_INIT |
I ak1(i,j,bi,bj),ak2(i,j,bi,bj), |
|
./pkg/bling/bling_carbonate_init.F |
203 |
BLING_CARBONATE_INIT |
I ak1p(i,j,bi,bj),ak2p(i,j,bi,bj),ak3p(i,j,bi,bj), |
|
./pkg/bling/bling_carbonate_init.F |
204 |
BLING_CARBONATE_INIT |
I aks(i,j,bi,bj),akb(i,j,bi,bj),akw(i,j,bi,bj), |
|
./pkg/bling/bling_carbonate_init.F |
205 |
BLING_CARBONATE_INIT |
I aksi(i,j,bi,bj),akf(i,j,bi,bj), |
|
./pkg/bling/bling_carbonate_init.F |
206 |
BLING_CARBONATE_INIT |
I ak0(i,j,bi,bj), fugf(i,j,bi,bj), |
|
./pkg/bling/bling_carbonate_init.F |
207 |
BLING_CARBONATE_INIT |
I ff(i,j,bi,bj), |
|
./pkg/bling/bling_carbonate_init.F |
208 |
BLING_CARBONATE_INIT |
I bt(i,j,bi,bj),st(i,j,bi,bj),ft(i,j,bi,bj), |
|
./pkg/bling/bling_carbonate_init.F |
209 |
BLING_CARBONATE_INIT |
U pH(i,j,k,bi,bj),pCO2(i,j,bi,bj),co3dummy, |
|
./pkg/bling/bling_carbonate_init.F |
210 |
BLING_CARBONATE_INIT |
I i,j,k,bi,bj, it , myThid ) |
|
./pkg/bling/bling_carbonate_init.F |
37 |
BLING_CARBONATE_INIT |
INTEGER i,j, k, it |
|
./pkg/bling/bling_carbonate_init.F |
93 |
BLING_CARBONATE_INIT |
DO i=1-Olx,sNx+Olx |
|
./pkg/bling/bling_carbonate_init.F |
94 |
BLING_CARBONATE_INIT |
SILICA(i,j,bi,bj)= bWght*silica0(i,j,bi,bj) |
|
./pkg/bling/bling_carbonate_init.F |
95 |
BLING_CARBONATE_INIT |
& + aWght*silica1(i,j,bi,bj) |
|
./pkg/bling/bling_carbonate_sys.F |
108 |
BLING_CARBONATE_SYS |
DO i=iMin,iMax |
|
./pkg/bling/bling_carbonate_sys.F |
110 |
BLING_CARBONATE_SYS |
IF ( hFacC(i,j,k,bi,bj) .gt. 0. _d 0) THEN |
|
./pkg/bling/bling_carbonate_sys.F |
115 |
BLING_CARBONATE_SYS |
calcium = 1.028 _d -2*salt(i,j,k,bi,bj)/35. _d 0 |
|
./pkg/bling/bling_carbonate_sys.F |
117 |
BLING_CARBONATE_SYS |
po4local = PTR_PO4(i,j,k) |
|
./pkg/bling/bling_carbonate_sys.F |
118 |
BLING_CARBONATE_SYS |
diclocal = PTR_DIC(i,j,k) |
|
./pkg/bling/bling_carbonate_sys.F |
119 |
BLING_CARBONATE_SYS |
alklocal = PTR_ALK(i,j,k) |
|
./pkg/bling/bling_carbonate_sys.F |
120 |
BLING_CARBONATE_SYS |
pHlocal = pH(i,j,k,bi,bj) |
|
./pkg/bling/bling_carbonate_sys.F |
131 |
BLING_CARBONATE_SYS |
I ttmp(i,j),stmp(i,j), |
|
./pkg/bling/bling_carbonate_sys.F |
134 |
BLING_CARBONATE_SYS |
I ak1(i,j,bi,bj),ak2(i,j,bi,bj), |
|
./pkg/bling/bling_carbonate_sys.F |
135 |
BLING_CARBONATE_SYS |
I ak1p(i,j,bi,bj),ak2p(i,j,bi,bj),ak3p(i,j,bi,bj), |
|
./pkg/bling/bling_carbonate_sys.F |
136 |
BLING_CARBONATE_SYS |
I aks(i,j,bi,bj),akb(i,j,bi,bj),akw(i,j,bi,bj), |
|
./pkg/bling/bling_carbonate_sys.F |
137 |
BLING_CARBONATE_SYS |
I aksi(i,j,bi,bj),akf(i,j,bi,bj), |
|
./pkg/bling/bling_carbonate_sys.F |
138 |
BLING_CARBONATE_SYS |
I ak0(i,j,bi,bj), fugf(i,j,bi,bj), ff(i,j,bi,bj), |
|
./pkg/bling/bling_carbonate_sys.F |
139 |
BLING_CARBONATE_SYS |
I bt(i,j,bi,bj),st(i,j,bi,bj),ft(i,j,bi,bj), |
|
./pkg/bling/bling_carbonate_sys.F |
141 |
BLING_CARBONATE_SYS |
I i,j,k,bi,bj,myIter,myThid ) |
|
./pkg/bling/bling_carbonate_sys.F |
144 |
BLING_CARBONATE_SYS |
pH(i,j,k,bi,bj) = pHlocal |
|
./pkg/bling/bling_carbonate_sys.F |
148 |
BLING_CARBONATE_SYS |
omegaC(i,j,k,bi,bj) = calcium * carbonate / |
|
./pkg/bling/bling_carbonate_sys.F |
149 |
BLING_CARBONATE_SYS |
& Ksp_TP_Calc(i,j,bi,bj) |
|
./pkg/bling/bling_carbonate_sys.F |
150 |
BLING_CARBONATE_SYS |
omegaAr(i,j,k,bi,bj) = calcium * carbonate / |
|
./pkg/bling/bling_carbonate_sys.F |
151 |
BLING_CARBONATE_SYS |
& Ksp_TP_Arag(i,j,bi,bj) |
|
./pkg/bling/bling_carbonate_sys.F |
155 |
BLING_CARBONATE_SYS |
pH(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_carbonate_sys.F |
156 |
BLING_CARBONATE_SYS |
omegaC(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_carbonate_sys.F |
157 |
BLING_CARBONATE_SYS |
omegaAr(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_carbonate_sys.F |
57 |
BLING_CARBONATE_SYS |
INTEGER i,j,k |
|
./pkg/bling/bling_carbonate_sys.F |
91 |
BLING_CARBONATE_SYS |
DO i=iMin,iMax |
|
./pkg/bling/bling_carbonate_sys.F |
92 |
BLING_CARBONATE_SYS |
ttmp(i,j) = theta(i,j,k,bi,bj) |
|
./pkg/bling/bling_carbonate_sys.F |
93 |
BLING_CARBONATE_SYS |
stmp(i,j) = salt(i,j,k,bi,bj) |
|
./pkg/bling/bling_dvm.F |
101 |
BLING_DVM |
Fe_burial(i,j) = 0. _d 0 |
|
./pkg/bling/bling_dvm.F |
119 |
BLING_DVM |
DO i=imin,imax |
|
./pkg/bling/bling_dvm.F |
139 |
BLING_DVM |
IF ( hFacC(i,j,k,bi,bj).gt.0. _d 0 ) THEN |
|
./pkg/bling/bling_dvm.F |
150 |
BLING_DVM |
temp_upper = temp_upper + theta(i,j,k,bi,bj)*drf(k) |
|
./pkg/bling/bling_dvm.F |
151 |
BLING_DVM |
o2_upper = o2_upper + PTR_O2(i,j,k) * drf(k)*1.0 _d 3 |
|
./pkg/bling/bling_dvm.F |
156 |
BLING_DVM |
temp_lower = temp_lower + theta(i,j,k,bi,bj)*drf(k) |
|
./pkg/bling/bling_dvm.F |
157 |
BLING_DVM |
o2_lower = o2_lower + PTR_O2(i,j,k) * drf(k)*1.0 _d 3 |
|
./pkg/bling/bling_dvm.F |
178 |
BLING_DVM |
& log10(max(chl(i,j,1,bi,bj),chl_min)))) |
|
./pkg/bling/bling_dvm.F |
179 |
BLING_DVM |
& + 0.36 _d 0*min(500. _d 0,max(epsln,mld(i,j))) |
|
./pkg/bling/bling_dvm.F |
188 |
BLING_DVM |
if ( irr_mem(i,j,1,bi,bj) .lt. 10. ) then |
|
./pkg/bling/bling_dvm.F |
190 |
BLING_DVM |
& irr_mem(i,j,1,bi,bj) / 10. _d 0 |
|
./pkg/bling/bling_dvm.F |
202 |
BLING_DVM |
IF ( (hFacC(i,j,k,bi,bj).gt.0. _d 0) .and. (tmp.eq.0)) THEN |
|
./pkg/bling/bling_dvm.F |
205 |
BLING_DVM |
if (PTR_O2(i,j,k+2) .lt. (5. _d 0*oxic_min)) tmp = 1 |
|
./pkg/bling/bling_dvm.F |
232 |
BLING_DVM |
IF ( (hFacC(i,j,k,bi,bj).gt.0. _d 0) .and. (tmp.eq.0)) THEN |
|
./pkg/bling/bling_dvm.F |
274 |
BLING_DVM |
if (PTR_O2(i,j,k+2) .lt. (5. _d 0*oxic_min)) tmp = 1 |
|
./pkg/bling/bling_dvm.F |
277 |
BLING_DVM |
dvm(i,j,k) = fdvm_migr + fdvm_stat |
|
./pkg/bling/bling_dvm.F |
286 |
BLING_DVM |
fdvmn_vint = fdvmn_vint + N_dvm(i,j,k) * drf(k) |
|
./pkg/bling/bling_dvm.F |
287 |
BLING_DVM |
fdvmp_vint = fdvmp_vint + P_dvm(i,j,k) * drf(k) |
|
./pkg/bling/bling_dvm.F |
288 |
BLING_DVM |
fdvmfe_vint = fdvmfe_vint + Fe_dvm(i,j,k) * drf(k) |
|
./pkg/bling/bling_dvm.F |
293 |
BLING_DVM |
N_remindvm(i,j,1) = fdvmn_vint * (1 - dvm(i,j,1)) / |
|
./pkg/bling/bling_dvm.F |
295 |
BLING_DVM |
P_remindvm(i,j,1) = fdvmp_vint * (1 - dvm(i,j,1)) / |
|
./pkg/bling/bling_dvm.F |
297 |
BLING_DVM |
Fe_remindvm(i,j,1) = fdvmfe_vint * (1 - dvm(i,j,1)) / |
|
./pkg/bling/bling_dvm.F |
301 |
BLING_DVM |
N_remindvm(i,j,k) = fdvmn_vint * |
|
./pkg/bling/bling_dvm.F |
302 |
BLING_DVM |
& (dvm(i,j,k-1) - dvm(i,j,k)) / (epsln + drf(k)) |
|
./pkg/bling/bling_dvm.F |
303 |
BLING_DVM |
P_remindvm(i,j,k) = fdvmp_vint * |
|
./pkg/bling/bling_dvm.F |
304 |
BLING_DVM |
& (dvm(i,j,k-1) - dvm(i,j,k)) / (epsln + drf(k)) |
|
./pkg/bling/bling_dvm.F |
305 |
BLING_DVM |
Fe_remindvm(i,j,k) = fdvmfe_vint * |
|
./pkg/bling/bling_dvm.F |
306 |
BLING_DVM |
& (dvm(i,j,k-1) - dvm(i,j,k)) / (epsln + drf(k)) |
|
./pkg/bling/bling_dvm.F |
69 |
BLING_DVM |
INTEGER i,j,k |
|
./pkg/bling/bling_dvm.F |
95 |
BLING_DVM |
DO i=imin,imax |
|
./pkg/bling/bling_dvm.F |
96 |
BLING_DVM |
N_remindvm(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_dvm.F |
97 |
BLING_DVM |
P_remindvm(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_dvm.F |
98 |
BLING_DVM |
Fe_remindvm(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_dvm.F |
99 |
BLING_DVM |
dvm(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_fields_load.F |
161 |
BLING_FIELDS_LOAD |
DO i=1-OLx,sNx+OLx |
|
./pkg/bling/bling_fields_load.F |
162 |
BLING_FIELDS_LOAD |
WIND(i,j,bi,bj) = bWght*dicwind0(i,j,bi,bj) |
|
./pkg/bling/bling_fields_load.F |
163 |
BLING_FIELDS_LOAD |
& + aWght*dicwind1(i,j,bi,bj) |
|
./pkg/bling/bling_fields_load.F |
170 |
BLING_FIELDS_LOAD |
DO i=1-OLx,sNx+OLx |
|
./pkg/bling/bling_fields_load.F |
171 |
BLING_FIELDS_LOAD |
AtmosP(i,j,bi,bj) = bWght*atmosp0(i,j,bi,bj) |
|
./pkg/bling/bling_fields_load.F |
172 |
BLING_FIELDS_LOAD |
& + aWght*atmosp1(i,j,bi,bj) |
|
./pkg/bling/bling_fields_load.F |
179 |
BLING_FIELDS_LOAD |
DO i=1-OLx,sNx+OLx |
|
./pkg/bling/bling_fields_load.F |
180 |
BLING_FIELDS_LOAD |
SILICA(i,j,bi,bj) = bWght*silica0(i,j,bi,bj) |
|
./pkg/bling/bling_fields_load.F |
181 |
BLING_FIELDS_LOAD |
& + aWght*silica1(i,j,bi,bj) |
|
./pkg/bling/bling_fields_load.F |
187 |
BLING_FIELDS_LOAD |
DO i=1-OLx,sNx+OLx |
|
./pkg/bling/bling_fields_load.F |
188 |
BLING_FIELDS_LOAD |
FIce(i,j,bi,bj) = bWght*ice0(i,j,bi,bj) |
|
./pkg/bling/bling_fields_load.F |
189 |
BLING_FIELDS_LOAD |
& + aWght*ice1(i,j,bi,bj) |
|
./pkg/bling/bling_fields_load.F |
196 |
BLING_FIELDS_LOAD |
DO i=1-OLx,sNx+OLx |
|
./pkg/bling/bling_fields_load.F |
197 |
BLING_FIELDS_LOAD |
InputFe(i,j,bi,bj) = bWght*feinput0(i,j,bi,bj) |
|
./pkg/bling/bling_fields_load.F |
198 |
BLING_FIELDS_LOAD |
& + aWght*feinput1(i,j,bi,bj) |
|
./pkg/bling/bling_fields_load.F |
213 |
BLING_FIELDS_LOAD |
DO i=1-OLx,sNx+OLx |
|
./pkg/bling/bling_fields_load.F |
214 |
BLING_FIELDS_LOAD |
FIce(i,j,bi,bj) = AREA(i,j,bi,bj) |
|
./pkg/bling/bling_fields_load.F |
222 |
BLING_FIELDS_LOAD |
DO i=1-OLx,sNx+OLx |
|
./pkg/bling/bling_fields_load.F |
223 |
BLING_FIELDS_LOAD |
FIce(i,j,bi,bj) = iceMask(i,j,bi,bj) |
|
./pkg/bling/bling_fields_load.F |
51 |
BLING_FIELDS_LOAD |
INTEGER bi, bj, i, j |
|
./pkg/bling/bling_ini_forcing.F |
38 |
BLING_INI_FORCING |
INTEGER bi,bj,i,j |
|
./pkg/bling/bling_ini_forcing.F |
78 |
BLING_INI_FORCING |
DO i=1-OLx,sNx+OLx |
|
./pkg/bling/bling_ini_forcing.F |
79 |
BLING_INI_FORCING |
WIND(i,j,bi,bj) = 5. _d 0*maskC(i,j,1,bi,bj) |
|
./pkg/bling/bling_ini_forcing.F |
80 |
BLING_INI_FORCING |
AtmosP(i,j,bi,bj) = 1. _d 0*maskC(i,j,1,bi,bj) |
|
./pkg/bling/bling_ini_forcing.F |
81 |
BLING_INI_FORCING |
SILICA(i,j,bi,bj) = 7.6838 _d -3*maskC(i,j,1,bi,bj) |
|
./pkg/bling/bling_ini_forcing.F |
82 |
BLING_INI_FORCING |
FIce(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_ini_forcing.F |
83 |
BLING_INI_FORCING |
FluxCO2(i,j,bi,bj)= 0. _d 0 |
|
./pkg/bling/bling_ini_forcing.F |
84 |
BLING_INI_FORCING |
InputFe(i,j,bi,bj)= 1. _d -11*maskC(i,j,1,bi,bj) |
|
./eesupp/src/mds_byteswapr4.F |
23 |
MDS_BYTESWAPR4 |
integer i |
|
./eesupp/src/mds_byteswapr4.F |
25 |
MDS_BYTESWAPR4 |
i32(i) = ishft(i.and. z'ff000000', -24) .or. |
|
./eesupp/src/mds_byteswapr4.F |
26 |
MDS_BYTESWAPR4 |
& ishft(i.and. z'00ff0000', -8) .or. |
|
./eesupp/src/mds_byteswapr4.F |
27 |
MDS_BYTESWAPR4 |
& ishft(i.and. z'0000ff00', 8) .or. |
|
./eesupp/src/mds_byteswapr4.F |
28 |
MDS_BYTESWAPR4 |
& ishft(i.and. z'000000ff', 24) |
|
./eesupp/src/mds_byteswapr4.F |
29 |
MDS_BYTESWAPR4 |
do i = 1,n |
|
./eesupp/src/mds_byteswapr4.F |
30 |
MDS_BYTESWAPR4 |
arr(i) = i32(arr(i)) |
|
./eesupp/src/mds_byteswapr4.F |
40 |
MDS_BYTESWAPR4 |
integer i |
|
./eesupp/src/mds_byteswapr4.F |
43 |
MDS_BYTESWAPR4 |
do i=1,4*n,4 |
|
./eesupp/src/mds_byteswapr4.F |
44 |
MDS_BYTESWAPR4 |
cc=arr(i:i) |
|
./eesupp/src/mds_byteswapr4.F |
45 |
MDS_BYTESWAPR4 |
arr(i:i)=arr(i+3:i+3) |
|
./eesupp/src/mds_byteswapr4.F |
46 |
MDS_BYTESWAPR4 |
arr(i+3:i+3)=cc |
|
./eesupp/src/mds_byteswapr4.F |
47 |
MDS_BYTESWAPR4 |
cc=arr(i+1:i+1) |
|
./eesupp/src/mds_byteswapr4.F |
48 |
MDS_BYTESWAPR4 |
arr(i+1:i+1)=arr(i+2:i+2) |
|
./eesupp/src/mds_byteswapr4.F |
49 |
MDS_BYTESWAPR4 |
arr(i+2:i+2)=cc |
|
./pkg/bling/bling_init_varia.F |
141 |
BLING_INIT_VARIA |
DO i=1-OLx,sNx+OLx |
|
./pkg/bling/bling_init_varia.F |
142 |
BLING_INIT_VARIA |
IF (maskC(i,j,k,bi,bj).EQ.0.) THEN |
|
./pkg/bling/bling_init_varia.F |
143 |
BLING_INIT_VARIA |
phyto_sm(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_init_varia.F |
144 |
BLING_INIT_VARIA |
phyto_lg(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_init_varia.F |
145 |
BLING_INIT_VARIA |
phyto_diaz(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_init_varia.F |
31 |
BLING_INIT_VARIA |
INTEGER i,j, bi,bj |
|
./pkg/bling/bling_init_varia.F |
41 |
BLING_INIT_VARIA |
DO i=1-Olx,sNx+Olx |
|
./pkg/bling/bling_init_varia.F |
43 |
BLING_INIT_VARIA |
omegaC(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_init_varia.F |
44 |
BLING_INIT_VARIA |
omegaAr(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_init_varia.F |
45 |
BLING_INIT_VARIA |
irr_mem(i,j,k,bi,bj) = 1. _d 0 |
|
./pkg/bling/bling_init_varia.F |
46 |
BLING_INIT_VARIA |
chl(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_init_varia.F |
47 |
BLING_INIT_VARIA |
poc(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_init_varia.F |
48 |
BLING_INIT_VARIA |
phyto_sm(i,j,k,bi,bj) = 4. _d -7 / permil |
|
./pkg/bling/bling_init_varia.F |
49 |
BLING_INIT_VARIA |
phyto_lg(i,j,k,bi,bj) = 4. _d -7 / permil |
|
./pkg/bling/bling_init_varia.F |
50 |
BLING_INIT_VARIA |
phyto_diaz(i,j,k,bi,bj) = 4. _d -7 / permil |
|
./pkg/bling/bling_init_varia.F |
52 |
BLING_INIT_VARIA |
Pc_2d(i,j,bi,bj) = Pc_0 |
|
./pkg/bling/bling_init_varia.F |
53 |
BLING_INIT_VARIA |
Pc_2d_diaz(i,j,bi,bj) = Pc_0_diaz |
|
./pkg/bling/bling_init_varia.F |
54 |
BLING_INIT_VARIA |
alpha_photo2d(i,j,bi,bj) = alpha_photo |
|
./pkg/bling/bling_init_varia.F |
55 |
BLING_INIT_VARIA |
k_Fe2d(i,j,bi,bj) = k_Fe |
|
./pkg/bling/bling_init_varia.F |
56 |
BLING_INIT_VARIA |
k_Fe_diaz2d(i,j,bi,bj) = k_Fe_diaz |
|
./pkg/bling/bling_init_varia.F |
57 |
BLING_INIT_VARIA |
gamma_POM2d(i,j,bi,bj) = gamma_POM |
|
./pkg/bling/bling_init_varia.F |
58 |
BLING_INIT_VARIA |
wsink0_2d(i,j,bi,bj) = wsink0 |
|
./pkg/bling/bling_init_varia.F |
59 |
BLING_INIT_VARIA |
phi_DOM2d(i,j,bi,bj) = phi_DOM |
|
./pkg/bling/bling_init_varia.F |
60 |
BLING_INIT_VARIA |
phi_sm2d(i,j,bi,bj) = phi_sm |
|
./pkg/bling/bling_init_varia.F |
61 |
BLING_INIT_VARIA |
phi_lg2d(i,j,bi,bj) = phi_lg |
|
./pkg/bling/bling_light.F |
150 |
BLING_LIGHT |
DO i=imin,imax |
|
./pkg/bling/bling_light.F |
154 |
BLING_LIGHT |
irr_surf(i,j) = max(epsln, |
|
./pkg/bling/bling_light.F |
155 |
BLING_LIGHT |
& -parfrac*Qsw(i,j,bi,bj)*maskC(i,j,1,bi,bj)) |
|
./pkg/bling/bling_light.F |
157 |
BLING_LIGHT |
irr_surf(i,j) = sfac(j) |
|
./pkg/bling/bling_light.F |
172 |
BLING_LIGHT |
IF (hFacC(i,j,k,bi,bj).gt.0) THEN |
|
./pkg/bling/bling_light.F |
176 |
BLING_LIGHT |
atten = k0*drF(1)/2. _d 0*hFacC(i,j,1,bi,bj) |
|
./pkg/bling/bling_light.F |
177 |
BLING_LIGHT |
irr_inst(i,j,1) = irr_surf(i,j)*exp(-atten) |
|
./pkg/bling/bling_light.F |
180 |
BLING_LIGHT |
atten = k0*drF(k)/2. _d 0*hFacC(i,j,k,bi,bj) |
|
./pkg/bling/bling_light.F |
181 |
BLING_LIGHT |
& + k0*drF(k-1)/2. _d 0*hFacC(i,j,k-1,bi,bj) |
|
./pkg/bling/bling_light.F |
182 |
BLING_LIGHT |
irr_inst(i,j,k) = |
|
./pkg/bling/bling_light.F |
183 |
BLING_LIGHT |
& irr_inst(i,j,k-1)*exp(-atten) |
|
./pkg/bling/bling_light.F |
188 |
BLING_LIGHT |
IF ((-rf(k+1) .le. mld(i,j)).and. |
|
./pkg/bling/bling_light.F |
190 |
BLING_LIGHT |
SumMLIrr = SumMLIrr+drF(k)*irr_inst(i,j,k) |
|
./pkg/bling/bling_light.F |
192 |
BLING_LIGHT |
irr_mix(i,j) = SumMLIrr/tmp_ML |
|
./pkg/bling/bling_light.F |
205 |
BLING_LIGHT |
DO i=imin,imax |
|
./pkg/bling/bling_light.F |
207 |
BLING_LIGHT |
IF (hFacC(i,j,k,bi,bj) .gt. 0. _d 0) THEN |
|
./pkg/bling/bling_light.F |
209 |
BLING_LIGHT |
irr_eff(i,j,k) = irr_inst(i,j,k) |
|
./pkg/bling/bling_light.F |
212 |
BLING_LIGHT |
IF ((-rf(k+1) .le. mld(i,j)).and. |
|
./pkg/bling/bling_light.F |
214 |
BLING_LIGHT |
irr_eff(i,j,k) = irr_mix(i,j) |
|
./pkg/bling/bling_light.F |
84 |
BLING_LIGHT |
integer i,j,k |
|
./pkg/bling/bling_light.F |
89 |
BLING_LIGHT |
DO i=imin,imax |
|
./pkg/bling/bling_light.F |
90 |
BLING_LIGHT |
irr_eff(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_main.F |
112 |
BLING_MAIN |
DO i=imin,imax |
|
./pkg/bling/bling_main.F |
114 |
BLING_MAIN |
G_DIC(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_main.F |
115 |
BLING_MAIN |
G_ALK(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_main.F |
116 |
BLING_MAIN |
G_NO3(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_main.F |
117 |
BLING_MAIN |
G_PO4(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_main.F |
118 |
BLING_MAIN |
G_FE(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_main.F |
119 |
BLING_MAIN |
G_O2(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_main.F |
120 |
BLING_MAIN |
G_DON(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_main.F |
121 |
BLING_MAIN |
G_DOP(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_main.F |
122 |
BLING_MAIN |
G_CaCO3(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_main.F |
123 |
BLING_MAIN |
NCP(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_main.F |
124 |
BLING_MAIN |
irr_eff(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_main.F |
125 |
BLING_MAIN |
bio_DIC(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_main.F |
126 |
BLING_MAIN |
bio_ALK(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_main.F |
127 |
BLING_MAIN |
bio_O2(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_main.F |
128 |
BLING_MAIN |
bio_NO3(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_main.F |
129 |
BLING_MAIN |
bio_PO4(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_main.F |
130 |
BLING_MAIN |
bio_Fe(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_main.F |
133 |
BLING_MAIN |
runoff_bgc(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_main.F |
135 |
BLING_MAIN |
surf_DIC(i,j) = 0. _d 0 |
|
./pkg/bling/bling_main.F |
136 |
BLING_MAIN |
surf_O2(i,j) = 0. _d 0 |
|
./pkg/bling/bling_main.F |
137 |
BLING_MAIN |
surf_Fe(i,j) = 0. _d 0 |
|
./pkg/bling/bling_main.F |
138 |
BLING_MAIN |
fluxO2(i,j) = 0. _d 0 |
|
./pkg/bling/bling_main.F |
197 |
BLING_MAIN |
DO i=imin,imax |
|
./pkg/bling/bling_main.F |
200 |
BLING_MAIN |
IF (hFacC(i,j,k,bi,bj) .gt. 0. _d 0) THEN |
|
./pkg/bling/bling_main.F |
202 |
BLING_MAIN |
G_ALK(i,j,k) = - G_NO3(i,j,k) |
|
./pkg/bling/bling_main.F |
203 |
BLING_MAIN |
& + 2. _d 0*G_CaCO3(i,j,k) |
|
./pkg/bling/bling_main.F |
205 |
BLING_MAIN |
G_DIC(i,j,k) = -NCP(i,j,k) + G_CaCO3(i,j,k) |
|
./pkg/bling/bling_main.F |
208 |
BLING_MAIN |
bio_DIC(i,j,k) = G_DIC(i,j,k) |
|
./pkg/bling/bling_main.F |
209 |
BLING_MAIN |
bio_ALK(i,j,k) = G_ALK(i,j,k) |
|
./pkg/bling/bling_main.F |
210 |
BLING_MAIN |
bio_O2(i,j,k) = G_O2(i,j,k) |
|
./pkg/bling/bling_main.F |
211 |
BLING_MAIN |
bio_NO3(i,j,k) = G_NO3(i,j,k) |
|
./pkg/bling/bling_main.F |
212 |
BLING_MAIN |
bio_PO4(i,j,k) = G_PO4(i,j,k) |
|
./pkg/bling/bling_main.F |
213 |
BLING_MAIN |
bio_Fe(i,j,k) = G_Fe(i,j,k) |
|
./pkg/bling/bling_main.F |
227 |
BLING_MAIN |
DO i=imin,imax |
|
./pkg/bling/bling_main.F |
228 |
BLING_MAIN |
G_DIC(i,j,1) = G_DIC(i,j,1) + runoff_bgc(i,j,1) |
|
./pkg/bling/bling_main.F |
229 |
BLING_MAIN |
& + surf_DIC(i,j) |
|
./pkg/bling/bling_main.F |
230 |
BLING_MAIN |
G_ALK(i,j,1) = G_ALK(i,j,1) + runoff_bgc(i,j,2) |
|
./pkg/bling/bling_main.F |
231 |
BLING_MAIN |
G_O2(i,j,1) = G_O2(i,j,1) + runoff_bgc(i,j,3) |
|
./pkg/bling/bling_main.F |
232 |
BLING_MAIN |
& + surf_O2(i,j) |
|
./pkg/bling/bling_main.F |
233 |
BLING_MAIN |
G_NO3(i,j,1) = G_NO3(i,j,1) + runoff_bgc(i,j,4) |
|
./pkg/bling/bling_main.F |
234 |
BLING_MAIN |
G_PO4(i,j,1) = G_PO4(i,j,1) + runoff_bgc(i,j,5) |
|
./pkg/bling/bling_main.F |
235 |
BLING_MAIN |
surf_Fe(i,j) = alpfe*InputFe(i,j,bi,bj)*recip_drF(1) |
|
./pkg/bling/bling_main.F |
236 |
BLING_MAIN |
& * recip_hFacC(i,j,1,bi,bj) |
|
./pkg/bling/bling_main.F |
237 |
BLING_MAIN |
G_FE(i,j,1) = G_FE(i,j,1) + runoff_bgc(i,j,6) |
|
./pkg/bling/bling_main.F |
238 |
BLING_MAIN |
& + alpfe*InputFe(i,j,bi,bj)*recip_drF(1) |
|
./pkg/bling/bling_main.F |
239 |
BLING_MAIN |
& * recip_hFacC(i,j,1,bi,bj) |
|
./pkg/bling/bling_main.F |
240 |
BLING_MAIN |
G_DON(i,j,1) = G_DON(i,j,1) + runoff_bgc(i,j,7) |
|
./pkg/bling/bling_main.F |
241 |
BLING_MAIN |
G_DOP(i,j,1) = G_DOP(i,j,1) + runoff_bgc(i,j,8) |
|
./pkg/bling/bling_main.F |
250 |
BLING_MAIN |
DO i=imin,imax |
|
./pkg/bling/bling_main.F |
251 |
BLING_MAIN |
PTR_DIC(i,j,k)=PTR_DIC(i,j,k)+G_DIC(i,j,k)*PTRACERS_dTLev(k) |
|
./pkg/bling/bling_main.F |
252 |
BLING_MAIN |
PTR_ALK(i,j,k)=PTR_ALK(i,j,k)+G_ALK(i,j,k)*PTRACERS_dTLev(k) |
|
./pkg/bling/bling_main.F |
253 |
BLING_MAIN |
PTR_O2 (i,j,k)=PTR_O2 (i,j,k)+G_O2 (i,j,k)*PTRACERS_dTLev(k) |
|
./pkg/bling/bling_main.F |
254 |
BLING_MAIN |
PTR_NO3(i,j,k)=PTR_NO3(i,j,k)+G_NO3(i,j,k)*PTRACERS_dTLev(k) |
|
./pkg/bling/bling_main.F |
255 |
BLING_MAIN |
PTR_PO4(i,j,k)=PTR_PO4(i,j,k)+G_PO4(i,j,k)*PTRACERS_dTLev(k) |
|
./pkg/bling/bling_main.F |
256 |
BLING_MAIN |
PTR_FE (i,j,k)=PTR_FE (i,j,k)+G_FE (i,j,k)*PTRACERS_dTLev(k) |
|
./pkg/bling/bling_main.F |
257 |
BLING_MAIN |
PTR_DON(i,j,k)=PTR_DON(i,j,k)+G_DON(i,j,k)*PTRACERS_dTLev(k) |
|
./pkg/bling/bling_main.F |
258 |
BLING_MAIN |
PTR_DOP(i,j,k)=PTR_DOP(i,j,k)+G_DOP(i,j,k)*PTRACERS_dTLev(k) |
|
./pkg/bling/bling_main.F |
83 |
BLING_MAIN |
INTEGER i,j,k |
|
./pkg/bling/bling_min_val.F |
30 |
BLING_MIN_VAL |
INTEGER i,j,k |
|
./pkg/bling/bling_min_val.F |
33 |
BLING_MIN_VAL |
DO i=1,sNx |
|
./pkg/bling/bling_min_val.F |
35 |
BLING_MIN_VAL |
PTR(i,j,k) = max( min_val*maskC(i,j,k,bi,bj), PTR(i,j,k) ) |
|
./pkg/bling/bling_mixedlayer.F |
100 |
BLING_MIXEDLAYER |
IF (delta_dens(i,j,k) .LT. 0.03 _d 0) THEN |
|
./pkg/bling/bling_mixedlayer.F |
101 |
BLING_MIXEDLAYER |
SumMLDepth(i,j) = SumMLDepth(i,j)+drF(k) |
|
./pkg/bling/bling_mixedlayer.F |
53 |
BLING_MIXEDLAYER |
integer i,j,k |
|
./pkg/bling/bling_mixedlayer.F |
60 |
BLING_MIXEDLAYER |
DO i=imin,imax |
|
./pkg/bling/bling_mixedlayer.F |
61 |
BLING_MIXEDLAYER |
SumMLDepth(i,j) = drf(1) |
|
./pkg/bling/bling_mixedlayer.F |
74 |
BLING_MIXEDLAYER |
DO i=imin,imax |
|
./pkg/bling/bling_mixedlayer.F |
76 |
BLING_MIXEDLAYER |
delta_dens(i,j,1) = 0. _d 0 |
|
./pkg/bling/bling_mixedlayer.F |
78 |
BLING_MIXEDLAYER |
delta_dens(i,j,k) = 9999. _d 0 |
|
./pkg/bling/bling_mixedlayer.F |
94 |
BLING_MIXEDLAYER |
DO i=imin,imax |
|
./pkg/bling/bling_mixedlayer.F |
98 |
BLING_MIXEDLAYER |
IF (hFacC(i,j,k,bi,bj) .gt. 0. _d 0) THEN |
|
./pkg/bling/bling_mixedlayer.F |
99 |
BLING_MIXEDLAYER |
delta_dens(i,j,k) = dens_z(i,j)-dens_surf(i,j) |
|
./pkg/bling/bling_production.F |
146 |
BLING_PROD |
INTEGER i,j,k |
|
./pkg/bling/bling_production.F |
211 |
BLING_PROD |
DO i=imin,imax |
|
./pkg/bling/bling_production.F |
212 |
BLING_PROD |
mld(i,j) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
217 |
BLING_PROD |
DO i=imin,imax |
|
./pkg/bling/bling_production.F |
218 |
BLING_PROD |
G_NO3(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
219 |
BLING_PROD |
G_PO4(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
220 |
BLING_PROD |
G_Fe(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
221 |
BLING_PROD |
G_O2(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
222 |
BLING_PROD |
G_DON(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
223 |
BLING_PROD |
G_DOP(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
224 |
BLING_PROD |
G_CaCO3(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
225 |
BLING_PROD |
N_uptake(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
226 |
BLING_PROD |
N_fix(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
227 |
BLING_PROD |
N_den_pelag(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
228 |
BLING_PROD |
N_den_benthic(i,j,k)= 0. _d 0 |
|
./pkg/bling/bling_production.F |
229 |
BLING_PROD |
P_uptake(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
230 |
BLING_PROD |
Fe_uptake(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
231 |
BLING_PROD |
N_dvm(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
232 |
BLING_PROD |
P_dvm(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
233 |
BLING_PROD |
Fe_dvm(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
234 |
BLING_PROD |
CaCO3_uptake(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
235 |
BLING_PROD |
DON_prod(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
236 |
BLING_PROD |
DOP_prod(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
237 |
BLING_PROD |
O2_prod(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
238 |
BLING_PROD |
mu_diaz(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
239 |
BLING_PROD |
irr_eff(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
240 |
BLING_PROD |
irr_inst(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
241 |
BLING_PROD |
irrk(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
242 |
BLING_PROD |
NO3_lim(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
243 |
BLING_PROD |
PO4_lim(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
244 |
BLING_PROD |
Fe_lim(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
245 |
BLING_PROD |
Fe_lim_diaz(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
246 |
BLING_PROD |
light_lim(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
247 |
BLING_PROD |
PtoN(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
248 |
BLING_PROD |
FetoN(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
249 |
BLING_PROD |
NPP(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
250 |
BLING_PROD |
N_reminp(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
251 |
BLING_PROD |
P_reminp(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
252 |
BLING_PROD |
Fe_reminsum(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
253 |
BLING_PROD |
N_remindvm(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
254 |
BLING_PROD |
P_remindvm(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
278 |
BLING_PROD |
DO i=imin,imax |
|
./pkg/bling/bling_production.F |
280 |
BLING_PROD |
Phy_lg_local(i,j,k) = PTR_PHY(i,j,k)*phyto_lg(i,j,k,bi,bj) |
|
./pkg/bling/bling_production.F |
281 |
BLING_PROD |
Phy_sm_local(i,j,k) = PTR_PHY(i,j,k)*phyto_sm(i,j,k,bi,bj) |
|
./pkg/bling/bling_production.F |
282 |
BLING_PROD |
Phy_diaz_local(i,j,k) = PTR_PHY(i,j,k)*phyto_diaz(i,j,k,bi,bj) |
|
./pkg/bling/bling_production.F |
284 |
BLING_PROD |
Phy_lg_local(i,j,k) = phyto_lg(i,j,k,bi,bj) |
|
./pkg/bling/bling_production.F |
285 |
BLING_PROD |
Phy_sm_local(i,j,k) = phyto_sm(i,j,k,bi,bj) |
|
./pkg/bling/bling_production.F |
286 |
BLING_PROD |
Phy_diaz_local(i,j,k) = phyto_diaz(i,j,k,bi,bj) |
|
./pkg/bling/bling_production.F |
317 |
BLING_PROD |
DO i=imin,imax |
|
./pkg/bling/bling_production.F |
326 |
BLING_PROD |
IF (hFacC(i,j,k,bi,bj).gt.0. _d 0) THEN |
|
./pkg/bling/bling_production.F |
327 |
BLING_PROD |
IF ((-rf(k+1) .le. mld(i,j)).and. |
|
./pkg/bling/bling_production.F |
329 |
BLING_PROD |
tmp_p_sm_ML = tmp_p_sm_ML+Phy_sm_local(i,j,k)*drF(k) |
|
./pkg/bling/bling_production.F |
330 |
BLING_PROD |
& *hFacC(i,j,k,bi,bj) |
|
./pkg/bling/bling_production.F |
331 |
BLING_PROD |
tmp_p_lg_ML = tmp_p_lg_ML+Phy_lg_local(i,j,k)*drF(k) |
|
./pkg/bling/bling_production.F |
332 |
BLING_PROD |
& *hFacC(i,j,k,bi,bj) |
|
./pkg/bling/bling_production.F |
333 |
BLING_PROD |
tmp_p_diaz_ML = tmp_p_diaz_ML+Phy_diaz_local(i,j,k)*drF(k) |
|
./pkg/bling/bling_production.F |
334 |
BLING_PROD |
& *hFacC(i,j,k,bi,bj) |
|
./pkg/bling/bling_production.F |
343 |
BLING_PROD |
IF (hFacC(i,j,k,bi,bj).gt.0. _d 0) THEN |
|
./pkg/bling/bling_production.F |
344 |
BLING_PROD |
IF ((-rf(k+1) .le. mld(i,j)).and. |
|
./pkg/bling/bling_production.F |
347 |
BLING_PROD |
Phy_lg_local(i,j,k) = max(1. _d -8,tmp_p_lg_ML/tmp_ML) |
|
./pkg/bling/bling_production.F |
348 |
BLING_PROD |
Phy_sm_local(i,j,k) = max(1. _d -8,tmp_p_sm_ML/tmp_ML) |
|
./pkg/bling/bling_production.F |
349 |
BLING_PROD |
Phy_diaz_local(i,j,k) = max(1. _d -8,tmp_p_diaz_ML/tmp_ML) |
|
./pkg/bling/bling_production.F |
372 |
BLING_PROD |
DO i=imin,imax |
|
./pkg/bling/bling_production.F |
374 |
BLING_PROD |
irr_mem(i,j,k,bi,bj) = irr_mem(i,j,k,bi,bj) + |
|
./pkg/bling/bling_production.F |
375 |
BLING_PROD |
& (irr_eff(i,j,k) - irr_mem(i,j,k,bi,bj))* |
|
./pkg/bling/bling_production.F |
387 |
BLING_PROD |
DO i=imin,imax |
|
./pkg/bling/bling_production.F |
389 |
BLING_PROD |
IF (hFacC(i,j,k,bi,bj) .gt. 0. _d 0) THEN |
|
./pkg/bling/bling_production.F |
402 |
BLING_PROD |
NO3_lim(i,j,k) = PTR_NO3(i,j,k)/(PTR_NO3(i,j,k)+k_NO3) |
|
./pkg/bling/bling_production.F |
404 |
BLING_PROD |
PO4_lim(i,j,k) = PTR_PO4(i,j,k)/(PTR_PO4(i,j,k)+k_PO4) |
|
./pkg/bling/bling_production.F |
408 |
BLING_PROD |
Fe_lim(i,j,k) = PTR_FE(i,j,k) |
|
./pkg/bling/bling_production.F |
409 |
BLING_PROD |
& / (PTR_FE(i,j,k)+k_Fe2d(i,j,bi,bj)) |
|
./pkg/bling/bling_production.F |
411 |
BLING_PROD |
Fe_lim_diaz(i,j,k) = PTR_FE(i,j,k) |
|
./pkg/bling/bling_production.F |
412 |
BLING_PROD |
& / (PTR_FE(i,j,k)+k_Fe_diaz2d(i,j,bi,bj)) |
|
./pkg/bling/bling_production.F |
421 |
BLING_PROD |
expkT(i,j,k) = exp(kappa_eppley * theta(i,j,k,bi,bj)) |
|
./pkg/bling/bling_production.F |
426 |
BLING_PROD |
Pc_m = Pc_2d(i,j,bi,bj) * expkT(i,j,k) |
|
./pkg/bling/bling_production.F |
427 |
BLING_PROD |
& * min(NO3_lim(i,j,k), PO4_lim(i,j,k), Fe_lim(i,j,k)) |
|
./pkg/bling/bling_production.F |
428 |
BLING_PROD |
& * maskC(i,j,k,bi,bj) |
|
./pkg/bling/bling_production.F |
430 |
BLING_PROD |
Pc_m_diaz = Pc_2d_diaz(i,j,bi,bj) |
|
./pkg/bling/bling_production.F |
431 |
BLING_PROD |
& * exp(kappa_eppley_diaz * theta(i,j,k,bi,bj)) |
|
./pkg/bling/bling_production.F |
432 |
BLING_PROD |
& * min(PO4_lim(i,j,k), Fe_lim_diaz(i,j,k)) |
|
./pkg/bling/bling_production.F |
433 |
BLING_PROD |
& * maskC(i,j,k,bi,bj) |
|
./pkg/bling/bling_production.F |
437 |
BLING_PROD |
Pc_m = max(Pc_m ,maskC(i,j,k,bi,bj)*1. _d -15) |
|
./pkg/bling/bling_production.F |
438 |
BLING_PROD |
Pc_m_diaz = max(Pc_m_diaz,maskC(i,j,k,bi,bj)*1. _d -15) |
|
./pkg/bling/bling_production.F |
450 |
BLING_PROD |
& (theta_Fe_max_hi-theta_Fe_max_lo)*Fe_lim(i,j,k) |
|
./pkg/bling/bling_production.F |
452 |
BLING_PROD |
theta_Fe(i,j,k) = theta_Fe_max |
|
./pkg/bling/bling_production.F |
453 |
BLING_PROD |
& / (1. _d 0 + alpha_photo2d(i,j,bi,bj) |
|
./pkg/bling/bling_production.F |
455 |
BLING_PROD |
& *irr_mem(i,j,k,bi,bj)/(epsln + 2. _d 0*Pc_m)) |
|
./pkg/bling/bling_production.F |
458 |
BLING_PROD |
IF ( theta_Fe(i,j,k) .EQ.0. ) THEN |
|
./pkg/bling/bling_production.F |
459 |
BLING_PROD |
thFe_inv(i,j,k) = 0. |
|
./pkg/bling/bling_production.F |
461 |
BLING_PROD |
thFe_inv(i,j,k) = 1./theta_Fe(i,j,k) |
|
./pkg/bling/bling_production.F |
471 |
BLING_PROD |
irrk(i,j,k) = Pc_m |
|
./pkg/bling/bling_production.F |
472 |
BLING_PROD |
& /(epsln + alpha_photo2d(i,j,bi,bj)*theta_Fe_max) |
|
./pkg/bling/bling_production.F |
473 |
BLING_PROD |
& + irr_mem(i,j,k,bi,bj)/2. _d 0 |
|
./pkg/bling/bling_production.F |
476 |
BLING_PROD |
mu(i,j,k) = Pc_m * ( 1. _d 0 - exp(-irr_eff(i,j,k) |
|
./pkg/bling/bling_production.F |
477 |
BLING_PROD |
& /(epsln + irrk(i,j,k)))) |
|
./pkg/bling/bling_production.F |
479 |
BLING_PROD |
mu_diaz(i,j,k) = Pc_m_diaz * ( 1. _d 0 - exp(-irr_eff(i,j,k) |
|
./pkg/bling/bling_production.F |
480 |
BLING_PROD |
& /(epsln + irrk(i,j,k)))) |
|
./pkg/bling/bling_production.F |
482 |
BLING_PROD |
light_lim(i,j,k) = ( 1. _d 0 - exp(-irr_eff(i,j,k) |
|
./pkg/bling/bling_production.F |
483 |
BLING_PROD |
& /(epsln + irrk(i,j,k)))) |
|
./pkg/bling/bling_production.F |
487 |
BLING_PROD |
IF (theta(i,j,k,bi,bj) .lt. 14) THEN |
|
./pkg/bling/bling_production.F |
488 |
BLING_PROD |
mu_diaz(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
492 |
BLING_PROD |
PtoN(i,j,k) = PtoN_min + (PtoN_max - PtoN_min) * |
|
./pkg/bling/bling_production.F |
493 |
BLING_PROD |
& PTR_PO4(i,j,k) / (k_PtoN + PTR_PO4(i,j,k)) |
|
./pkg/bling/bling_production.F |
495 |
BLING_PROD |
FetoN(i,j,k) = FetoN_min + (FetoN_max - FetoN_min) * |
|
./pkg/bling/bling_production.F |
496 |
BLING_PROD |
& PTR_FE(i,j,k) / (k_FetoN + PTR_FE(i,j,k)) |
|
./pkg/bling/bling_production.F |
499 |
BLING_PROD |
N_uptake(i,j,k) = mu(i,j,k)*(Phy_sm_local(i,j,k) |
|
./pkg/bling/bling_production.F |
500 |
BLING_PROD |
& + Phy_lg_local(i,j,k)) |
|
./pkg/bling/bling_production.F |
502 |
BLING_PROD |
N_fix(i,j,k) = mu_diaz(i,j,k) * Phy_diaz_local(i,j,k) |
|
./pkg/bling/bling_production.F |
504 |
BLING_PROD |
P_uptake(i,j,k) = (N_uptake(i,j,k) + |
|
./pkg/bling/bling_production.F |
505 |
BLING_PROD |
& N_fix(i,j,k)) * PtoN(i,j,k) |
|
./pkg/bling/bling_production.F |
507 |
BLING_PROD |
Fe_uptake(i,j,k) = (N_uptake(i,j,k) + |
|
./pkg/bling/bling_production.F |
508 |
BLING_PROD |
& N_fix(i,j,k)) * FetoN(i,j,k) |
|
./pkg/bling/bling_production.F |
517 |
BLING_PROD |
CaCO3_uptake(i,j,k) = Phy_sm_local(i,j,k)*phi_sm2d(i,j,bi,bj) |
|
./pkg/bling/bling_production.F |
518 |
BLING_PROD |
& * mu(i,j,k) * CatoN |
|
./pkg/bling/bling_production.F |
527 |
BLING_PROD |
DO i=imin,imax |
|
./pkg/bling/bling_production.F |
529 |
BLING_PROD |
IF (hFacC(i,j,k,bi,bj) .gt. 0. _d 0) THEN |
|
./pkg/bling/bling_production.F |
531 |
BLING_PROD |
Phy_lg_local(i,j,k) = Phy_lg_local(i,j,k) + |
|
./pkg/bling/bling_production.F |
532 |
BLING_PROD |
& Phy_lg_local(i,j,k)*(mu(i,j,k) - lambda_0 |
|
./pkg/bling/bling_production.F |
533 |
BLING_PROD |
& *expkT(i,j,k) * |
|
./pkg/bling/bling_production.F |
534 |
BLING_PROD |
& (Phy_lg_local(i,j,k)/pivotal)**(1. / 3.)) |
|
./pkg/bling/bling_production.F |
537 |
BLING_PROD |
Phy_sm_local(i,j,k) = Phy_sm_local(i,j,k) + |
|
./pkg/bling/bling_production.F |
538 |
BLING_PROD |
& Phy_sm_local(i,j,k)*(mu(i,j,k) - lambda_0 |
|
./pkg/bling/bling_production.F |
539 |
BLING_PROD |
& *expkT(i,j,k) * (Phy_sm_local(i,j,k)/pivotal) ) |
|
./pkg/bling/bling_production.F |
542 |
BLING_PROD |
Phy_diaz_local(i,j,k) = Phy_diaz_local(i,j,k) + |
|
./pkg/bling/bling_production.F |
543 |
BLING_PROD |
& Phy_diaz_local(i,j,k)*(mu_diaz(i,j,k) - lambda_0 |
|
./pkg/bling/bling_production.F |
544 |
BLING_PROD |
& *expkT(i,j,k) * (Phy_diaz_local(i,j,k)/pivotal) ) |
|
./pkg/bling/bling_production.F |
559 |
BLING_PROD |
DO i=imin,imax |
|
./pkg/bling/bling_production.F |
561 |
BLING_PROD |
IF (hFacC(i,j,k,bi,bj) .gt. 0. _d 0) THEN |
|
./pkg/bling/bling_production.F |
565 |
BLING_PROD |
PTR_PHY(i,j,k) = Phy_lg_local(i,j,k) + Phy_sm_local(i,j,k) |
|
./pkg/bling/bling_production.F |
566 |
BLING_PROD |
& + Phy_diaz_local(i,j,k) |
|
./pkg/bling/bling_production.F |
568 |
BLING_PROD |
phyto_lg(i,j,k,bi,bj) = Phy_lg_local(i,j,k)/PTR_PHY(i,j,k) |
|
./pkg/bling/bling_production.F |
569 |
BLING_PROD |
phyto_sm(i,j,k,bi,bj) = Phy_sm_local(i,j,k)/PTR_PHY(i,j,k) |
|
./pkg/bling/bling_production.F |
570 |
BLING_PROD |
phyto_diaz(i,j,k,bi,bj) = Phy_diaz_local(i,j,k)/PTR_PHY(i,j,k) |
|
./pkg/bling/bling_production.F |
573 |
BLING_PROD |
phyto_lg(i,j,k,bi,bj) = Phy_lg_local(i,j,k) |
|
./pkg/bling/bling_production.F |
574 |
BLING_PROD |
phyto_sm(i,j,k,bi,bj) = Phy_sm_local(i,j,k) |
|
./pkg/bling/bling_production.F |
575 |
BLING_PROD |
phyto_diaz(i,j,k,bi,bj) = Phy_diaz_local(i,j,k) |
|
./pkg/bling/bling_production.F |
581 |
BLING_PROD |
chl(i,j,k,bi,bj) = max(chl_min, CtoN * 12.01 * 1. _d 3 * |
|
./pkg/bling/bling_production.F |
582 |
BLING_PROD |
& theta_Fe(i,j,k) * |
|
./pkg/bling/bling_production.F |
583 |
BLING_PROD |
& (Phy_lg_local(i,j,k) + Phy_sm_local(i,j,k) |
|
./pkg/bling/bling_production.F |
584 |
BLING_PROD |
& + Phy_diaz_local(i,j,k))) |
|
./pkg/bling/bling_production.F |
593 |
BLING_PROD |
DO i=imin,imax |
|
./pkg/bling/bling_production.F |
595 |
BLING_PROD |
IF (hFacC(i,j,k,bi,bj) .gt. 0. _d 0) THEN |
|
./pkg/bling/bling_production.F |
618 |
BLING_PROD |
frac_exp = (phi_sm2d(i,j,bi,bj) + phi_lg2d(i,j,bi,bj) * |
|
./pkg/bling/bling_production.F |
619 |
BLING_PROD |
& (mu(i,j,k)/(epsln + lambda_0*expkT(i,j,k)))**2.)/ |
|
./pkg/bling/bling_production.F |
620 |
BLING_PROD |
& (1. + (mu(i,j,k)/(epsln + lambda_0*expkT(i,j,k)))**2.)* |
|
./pkg/bling/bling_production.F |
621 |
BLING_PROD |
& exp(kappa_remin * theta(i,j,k,bi,bj)) |
|
./pkg/bling/bling_production.F |
624 |
BLING_PROD |
N_spm(i,j,k) = frac_exp * (1.0 - phi_dvm) * |
|
./pkg/bling/bling_production.F |
625 |
BLING_PROD |
& (N_uptake(i,j,k) + N_fix(i,j,k)) |
|
./pkg/bling/bling_production.F |
627 |
BLING_PROD |
P_spm(i,j,k) = frac_exp * (1.0 - phi_dvm) * |
|
./pkg/bling/bling_production.F |
628 |
BLING_PROD |
& P_uptake(i,j,k) |
|
./pkg/bling/bling_production.F |
630 |
BLING_PROD |
Fe_spm(i,j,k) = frac_exp * (1.0 - phi_dvm) * |
|
./pkg/bling/bling_production.F |
631 |
BLING_PROD |
& Fe_uptake(i,j,k) |
|
./pkg/bling/bling_production.F |
633 |
BLING_PROD |
N_dvm(i,j,k) = frac_exp * |
|
./pkg/bling/bling_production.F |
634 |
BLING_PROD |
& (N_uptake(i,j,k) + N_fix(i,j,k)) - N_spm(i,j,k) |
|
./pkg/bling/bling_production.F |
636 |
BLING_PROD |
P_dvm(i,j,k) = frac_exp * P_uptake(i,j,k) - |
|
./pkg/bling/bling_production.F |
637 |
BLING_PROD |
& P_spm(i,j,k) |
|
./pkg/bling/bling_production.F |
639 |
BLING_PROD |
Fe_dvm(i,j,k) = frac_exp * Fe_uptake(i,j,k) - |
|
./pkg/bling/bling_production.F |
640 |
BLING_PROD |
& Fe_spm(i,j,k) |
|
./pkg/bling/bling_production.F |
642 |
BLING_PROD |
N_spm(i,j,k) = frac_exp * (N_uptake(i,j,k) + N_fix(i,j,k)) |
|
./pkg/bling/bling_production.F |
643 |
BLING_PROD |
P_spm(i,j,k) = frac_exp *P_uptake(i,j,k) |
|
./pkg/bling/bling_production.F |
644 |
BLING_PROD |
Fe_spm(i,j,k) = frac_exp * Fe_uptake(i,j,k) |
|
./pkg/bling/bling_production.F |
646 |
BLING_PROD |
N_dvm(i,j,k) = 0 |
|
./pkg/bling/bling_production.F |
647 |
BLING_PROD |
P_dvm(i,j,k) = 0 |
|
./pkg/bling/bling_production.F |
648 |
BLING_PROD |
Fe_dvm(i,j,k) = 0 |
|
./pkg/bling/bling_production.F |
654 |
BLING_PROD |
DON_prod(i,j,k) = phi_DOM2d(i,j,bi,bj)*(N_uptake(i,j,k) |
|
./pkg/bling/bling_production.F |
655 |
BLING_PROD |
& + N_fix(i,j,k) - N_spm(i,j,k) |
|
./pkg/bling/bling_production.F |
656 |
BLING_PROD |
& - N_dvm(i,j,k)) |
|
./pkg/bling/bling_production.F |
658 |
BLING_PROD |
DOP_prod(i,j,k) = phi_DOM2d(i,j,bi,bj)*(P_uptake(i,j,k) |
|
./pkg/bling/bling_production.F |
659 |
BLING_PROD |
& - P_spm(i,j,k) - P_dvm(i,j,k)) |
|
./pkg/bling/bling_production.F |
661 |
BLING_PROD |
N_recycle(i,j,k) = N_uptake(i,j,k) + N_fix(i,j,k) |
|
./pkg/bling/bling_production.F |
662 |
BLING_PROD |
& - N_spm(i,j,k) - DON_prod(i,j,k) |
|
./pkg/bling/bling_production.F |
663 |
BLING_PROD |
& - N_dvm(i,j,k) |
|
./pkg/bling/bling_production.F |
665 |
BLING_PROD |
P_recycle(i,j,k) = P_uptake(i,j,k) |
|
./pkg/bling/bling_production.F |
666 |
BLING_PROD |
& - P_spm(i,j,k) - DOP_prod(i,j,k) |
|
./pkg/bling/bling_production.F |
667 |
BLING_PROD |
& - P_dvm(i,j,k) |
|
./pkg/bling/bling_production.F |
669 |
BLING_PROD |
Fe_recycle(i,j,k) = Fe_uptake(i,j,k) |
|
./pkg/bling/bling_production.F |
670 |
BLING_PROD |
& - Fe_spm(i,j,k) - Fe_dvm(i,j,k) |
|
./pkg/bling/bling_production.F |
706 |
BLING_PROD |
DO i=imin,imax |
|
./pkg/bling/bling_production.F |
708 |
BLING_PROD |
IF (hFacC(i,j,k,bi,bj) .gt. 0. _d 0) THEN |
|
./pkg/bling/bling_production.F |
713 |
BLING_PROD |
DON_remin(i,j,k) = MAX(maskC(i,j,k,bi,bj)*gamma_DON |
|
./pkg/bling/bling_production.F |
714 |
BLING_PROD |
& *PTR_DON(i,j,k),0. _d 0) |
|
./pkg/bling/bling_production.F |
715 |
BLING_PROD |
DOP_remin(i,j,k) = MAX(maskC(i,j,k,bi,bj)*gamma_DOP |
|
./pkg/bling/bling_production.F |
716 |
BLING_PROD |
& *PTR_DOP(i,j,k),0. _d 0) |
|
./pkg/bling/bling_production.F |
718 |
BLING_PROD |
DON_remin(i,j,k) = maskC(i,j,k,bi,bj)*gamma_DON |
|
./pkg/bling/bling_production.F |
719 |
BLING_PROD |
& *PTR_DON(i,j,k) |
|
./pkg/bling/bling_production.F |
720 |
BLING_PROD |
DOP_remin(i,j,k) = maskC(i,j,k,bi,bj)*gamma_DOP |
|
./pkg/bling/bling_production.F |
721 |
BLING_PROD |
& *PTR_DOP(i,j,k) |
|
./pkg/bling/bling_production.F |
727 |
BLING_PROD |
IF (PTR_O2(i,j,k) .lt. oxic_min) THEN |
|
./pkg/bling/bling_production.F |
728 |
BLING_PROD |
IF (PTR_NO3(i,j,k) .gt. oxic_min) THEN |
|
./pkg/bling/bling_production.F |
729 |
BLING_PROD |
N_den_pelag(i,j,k) = max(epsln, (NO3toN * |
|
./pkg/bling/bling_production.F |
730 |
BLING_PROD |
& ((1. _d 0 - phi_DOM2d(i,j,bi,bj)) |
|
./pkg/bling/bling_production.F |
731 |
BLING_PROD |
& * (N_reminp(i,j,k) |
|
./pkg/bling/bling_production.F |
732 |
BLING_PROD |
& + N_remindvm(i,j,k)) + DON_remin(i,j,k) + |
|
./pkg/bling/bling_production.F |
733 |
BLING_PROD |
& N_recycle(i,j,k))) - N_den_benthic(i,j,k)) |
|
./pkg/bling/bling_production.F |
738 |
BLING_PROD |
O2_prod(i,j,k) = O2toN * N_uptake(i,j,k) |
|
./pkg/bling/bling_production.F |
739 |
BLING_PROD |
& + (O2toN - 1.25 _d 0) * N_fix(i,j,k) |
|
./pkg/bling/bling_production.F |
750 |
BLING_PROD |
G_PO4(i,j,k) = -P_uptake(i,j,k) + P_recycle(i,j,k) |
|
./pkg/bling/bling_production.F |
751 |
BLING_PROD |
& + (1. _d 0 - phi_DOM2d(i,j,bi,bj)) |
|
./pkg/bling/bling_production.F |
752 |
BLING_PROD |
& * (P_reminp(i,j,k) |
|
./pkg/bling/bling_production.F |
753 |
BLING_PROD |
& + P_remindvm(i,j,k)) + DOP_remin(i,j,k) |
|
./pkg/bling/bling_production.F |
755 |
BLING_PROD |
G_NO3(i,j,k) = -N_uptake(i,j,k) |
|
./pkg/bling/bling_production.F |
756 |
BLING_PROD |
IF (PTR_O2(i,j,k) .lt. oxic_min) THEN |
|
./pkg/bling/bling_production.F |
758 |
BLING_PROD |
G_NO3(i,j,k) = G_NO3(i,j,k) |
|
./pkg/bling/bling_production.F |
759 |
BLING_PROD |
& - N_den_pelag(i,j,k) - N_den_benthic(i,j,k) |
|
./pkg/bling/bling_production.F |
762 |
BLING_PROD |
G_NO3(i,j,k) = G_NO3(i,j,k) |
|
./pkg/bling/bling_production.F |
763 |
BLING_PROD |
& + N_recycle(i,j,k) |
|
./pkg/bling/bling_production.F |
764 |
BLING_PROD |
& + (1. _d 0 - phi_DOM2d(i,j,bi,bj)) |
|
./pkg/bling/bling_production.F |
765 |
BLING_PROD |
& * (N_reminp(i,j,k) + N_remindvm(i,j,k)) |
|
./pkg/bling/bling_production.F |
766 |
BLING_PROD |
& + DON_remin(i,j,k) |
|
./pkg/bling/bling_production.F |
773 |
BLING_PROD |
G_FE(i,j,k) = -Fe_uptake(i,j,k) + Fe_reminsum(i,j,k) |
|
./pkg/bling/bling_production.F |
774 |
BLING_PROD |
& + Fe_remindvm(i,j,k) + Fe_recycle(i,j,k) |
|
./pkg/bling/bling_production.F |
779 |
BLING_PROD |
G_DON(i,j,k) = DON_prod(i,j,k) + phi_DOM2d(i,j,bi,bj) |
|
./pkg/bling/bling_production.F |
780 |
BLING_PROD |
& * (N_reminp(i,j,k) + N_remindvm(i,j,k)) |
|
./pkg/bling/bling_production.F |
781 |
BLING_PROD |
& - DON_remin(i,j,k) |
|
./pkg/bling/bling_production.F |
783 |
BLING_PROD |
G_DOP(i,j,k) = DOP_prod(i,j,k) + phi_DOM2d(i,j,bi,bj) |
|
./pkg/bling/bling_production.F |
784 |
BLING_PROD |
& * (P_reminp(i,j,k) + P_remindvm(i,j,k)) |
|
./pkg/bling/bling_production.F |
785 |
BLING_PROD |
& - DOP_remin(i,j,k) |
|
./pkg/bling/bling_production.F |
796 |
BLING_PROD |
G_O2(i,j,k) = O2_prod(i,j,k) |
|
./pkg/bling/bling_production.F |
798 |
BLING_PROD |
IF (PTR_O2(i,j,k) .gt. oxic_min) THEN |
|
./pkg/bling/bling_production.F |
799 |
BLING_PROD |
G_O2(i,j,k) = G_O2(i,j,k) |
|
./pkg/bling/bling_production.F |
800 |
BLING_PROD |
& -O2toN * ((1. _d 0 - phi_DOM2d(i,j,bi,bj)) |
|
./pkg/bling/bling_production.F |
801 |
BLING_PROD |
& * (N_reminp(i,j,k) + N_remindvm(i,j,k)) |
|
./pkg/bling/bling_production.F |
802 |
BLING_PROD |
& + DON_remin(i,j,k) + N_recycle(i,j,k)) |
|
./pkg/bling/bling_production.F |
805 |
BLING_PROD |
ELSEIF (PTR_NO3(i,j,k) .lt. oxic_min) THEN |
|
./pkg/bling/bling_production.F |
806 |
BLING_PROD |
G_O2(i,j,k) = G_O2(i,j,k) |
|
./pkg/bling/bling_production.F |
807 |
BLING_PROD |
& -O2toN * ((1. _d 0 - phi_DOM2d(i,j,bi,bj)) |
|
./pkg/bling/bling_production.F |
808 |
BLING_PROD |
& * (N_reminp(i,j,k) + N_remindvm(i,j,k)) |
|
./pkg/bling/bling_production.F |
809 |
BLING_PROD |
& + DON_remin(i,j,k) + N_recycle(i,j,k)) |
|
./pkg/bling/bling_production.F |
810 |
BLING_PROD |
& + N_den_benthic(i,j,k) * 1.25 _d 0 |
|
./pkg/bling/bling_production.F |
813 |
BLING_PROD |
G_CaCO3(i,j,k) = CaCO3_diss(i,j,k) - CaCO3_uptake(i,j,k) |
|
./pkg/bling/bling_production.F |
817 |
BLING_PROD |
POC_flux(i,j,k) = CtoN * N_spm(i,j,k) |
|
./pkg/bling/bling_production.F |
819 |
BLING_PROD |
NPP(i,j,k) = (N_uptake(i,j,k) + N_fix(i,j,k)) * CtoN |
|
./pkg/bling/bling_production.F |
821 |
BLING_PROD |
NCP(i,j,k) = (N_uptake(i,j,k) + N_fix(i,j,k) |
|
./pkg/bling/bling_production.F |
822 |
BLING_PROD |
& - N_recycle(i,j,k) |
|
./pkg/bling/bling_production.F |
823 |
BLING_PROD |
& - (1. _d 0 - phi_DOM2d(i,j,bi,bj)) |
|
./pkg/bling/bling_production.F |
824 |
BLING_PROD |
& * (N_reminp(i,j,k) + N_remindvm(i,j,k)) |
|
./pkg/bling/bling_production.F |
825 |
BLING_PROD |
& - DON_remin(i,j,k) ) * CtoN |
|
./pkg/bling/bling_production.F |
829 |
BLING_PROD |
Phy_lg_local(i,j,k) = Phy_lg_local(i,j,k) * CtoN |
|
./pkg/bling/bling_production.F |
830 |
BLING_PROD |
Phy_sm_local(i,j,k) = Phy_sm_local(i,j,k) * CtoN |
|
./pkg/bling/bling_production.F |
831 |
BLING_PROD |
Phy_diaz_local(i,j,k) = Phy_diaz_local(i,j,k) * CtoN |
|
./pkg/bling/bling_production.F |
835 |
BLING_PROD |
poc(i,j,k,bi,bj) = (Phy_lg_local(i,j,k) + Phy_sm_local(i,j,k) + |
|
./pkg/bling/bling_production.F |
836 |
BLING_PROD |
& Phy_diaz_local(i,j,k) ) * 3.33333 _d 0 |
|
./pkg/bling/bling_remineralization.F |
114 |
BLING_REMIN |
DO i=imin,imax |
|
./pkg/bling/bling_remineralization.F |
115 |
BLING_REMIN |
Fe_ads_org(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_remineralization.F |
116 |
BLING_REMIN |
Fe_ads_inorg(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_remineralization.F |
117 |
BLING_REMIN |
N_reminp(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_remineralization.F |
118 |
BLING_REMIN |
P_reminp(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_remineralization.F |
119 |
BLING_REMIN |
Fe_reminp(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_remineralization.F |
120 |
BLING_REMIN |
Fe_reminsum(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_remineralization.F |
121 |
BLING_REMIN |
N_den_benthic(i,j,k)= 0. _d 0 |
|
./pkg/bling/bling_remineralization.F |
122 |
BLING_REMIN |
CaCO3_diss(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_remineralization.F |
127 |
BLING_REMIN |
DO i=imin,imax |
|
./pkg/bling/bling_remineralization.F |
128 |
BLING_REMIN |
Fe_burial(i,j) = 0. _d 0 |
|
./pkg/bling/bling_remineralization.F |
129 |
BLING_REMIN |
NO3_sed(i,j) = 0. _d 0 |
|
./pkg/bling/bling_remineralization.F |
130 |
BLING_REMIN |
PO4_sed(i,j) = 0. _d 0 |
|
./pkg/bling/bling_remineralization.F |
131 |
BLING_REMIN |
O2_sed(i,j) = 0. _d 0 |
|
./pkg/bling/bling_remineralization.F |
141 |
BLING_REMIN |
DO i=imin,imax |
|
./pkg/bling/bling_remineralization.F |
152 |
BLING_REMIN |
Fe_ads_org(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_remineralization.F |
157 |
BLING_REMIN |
IF (hFacC(i,j,k+1,bi,bj).GT.0) bttmlyr = 0 |
|
./pkg/bling/bling_remineralization.F |
161 |
BLING_REMIN |
IF ( hFacC(i,j,k,bi,bj).gt.0. _d 0 ) THEN |
|
./pkg/bling/bling_remineralization.F |
166 |
BLING_REMIN |
wsink = wsink0_2d(i,j,bi,bj) |
|
./pkg/bling/bling_remineralization.F |
168 |
BLING_REMIN |
wsink = wsinkacc * (depth_l - wsink0z) + wsink0_2d(i,j,bi,bj) |
|
./pkg/bling/bling_remineralization.F |
173 |
BLING_REMIN |
zremin = gamma_POM2d(i,j,bi,bj) * ( PTR_O2(i,j,k)**2 / |
|
./pkg/bling/bling_remineralization.F |
174 |
BLING_REMIN |
& (k_O2**2 + PTR_O2(i,j,k)**2) * (1-remin_min) |
|
./pkg/bling/bling_remineralization.F |
180 |
BLING_REMIN |
& omegaC(i,j,k,bi,bj) + epsln )) |
|
./pkg/bling/bling_remineralization.F |
183 |
BLING_REMIN |
PONflux_l = (PONflux_u+N_spm(i,j,k)*drF(k) |
|
./pkg/bling/bling_remineralization.F |
184 |
BLING_REMIN |
& *hFacC(i,j,k,bi,bj))/(1+zremin*drF(k) |
|
./pkg/bling/bling_remineralization.F |
185 |
BLING_REMIN |
& *hFacC(i,j,k,bi,bj)) |
|
./pkg/bling/bling_remineralization.F |
187 |
BLING_REMIN |
POPflux_l = (POPflux_u+P_spm(i,j,k)*drF(k) |
|
./pkg/bling/bling_remineralization.F |
188 |
BLING_REMIN |
& *hFacC(i,j,k,bi,bj))/(1+zremin*drF(k) |
|
./pkg/bling/bling_remineralization.F |
189 |
BLING_REMIN |
& *hFacC(i,j,k,bi,bj)) |
|
./pkg/bling/bling_remineralization.F |
192 |
BLING_REMIN |
CaCO3flux_l = (caco3flux_u+CaCO3_uptake(i,j,k)*drF(k) |
|
./pkg/bling/bling_remineralization.F |
193 |
BLING_REMIN |
& *hFacC(i,j,k,bi,bj))/(1+zremin_caco3*drF(k) |
|
./pkg/bling/bling_remineralization.F |
194 |
BLING_REMIN |
& *hFacC(i,j,k,bi,bj)) |
|
./pkg/bling/bling_remineralization.F |
202 |
BLING_REMIN |
N_reminp(i,j,k) = (PONflux_u + N_spm(i,j,k)*drF(k) |
|
./pkg/bling/bling_remineralization.F |
205 |
BLING_REMIN |
P_reminp(i,j,k) = (POPflux_u + P_spm(i,j,k)*drF(k) |
|
./pkg/bling/bling_remineralization.F |
208 |
BLING_REMIN |
CaCO3_diss(i,j,k) = (CaCO3flux_u + CaCO3_uptake(i,j,k) |
|
./pkg/bling/bling_remineralization.F |
211 |
BLING_REMIN |
Fe_sed(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_remineralization.F |
218 |
BLING_REMIN |
N_reminp(i,j,k) = PONflux_u*recip_drF(k) |
|
./pkg/bling/bling_remineralization.F |
219 |
BLING_REMIN |
& *recip_hFacC(i,j,k,bi,bj) + N_spm(i,j,k) |
|
./pkg/bling/bling_remineralization.F |
221 |
BLING_REMIN |
P_reminp(i,j,k) = POPflux_u*recip_drF(k) |
|
./pkg/bling/bling_remineralization.F |
222 |
BLING_REMIN |
& *recip_hFacC(i,j,k,bi,bj) + P_spm(i,j,k) |
|
./pkg/bling/bling_remineralization.F |
224 |
BLING_REMIN |
CaCO3_diss(i,j,k) = CaCO3flux_u*recip_drF(k) |
|
./pkg/bling/bling_remineralization.F |
225 |
BLING_REMIN |
& *recip_hFacC(i,j,k,bi,bj) + CaCO3_uptake(i,j,k) |
|
./pkg/bling/bling_remineralization.F |
234 |
BLING_REMIN |
Fe_sed(i,j,k) = max(epsln, FetoC_sed * POC_sed * recip_drF(k) |
|
./pkg/bling/bling_remineralization.F |
235 |
BLING_REMIN |
& *recip_hFacC(i,j,k,bi,bj)) |
|
./pkg/bling/bling_remineralization.F |
252 |
BLING_REMIN |
N_den_benthic(i,j,k) = min (POC_sed * NO3toN / CtoN, |
|
./pkg/bling/bling_remineralization.F |
256 |
BLING_REMIN |
& PTR_NO3(i,j,k) / (k_no3 + PTR_NO3(i,j,k)) ) * |
|
./pkg/bling/bling_remineralization.F |
280 |
BLING_REMIN |
NO3_sed(i,j) = PONflux_l*drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/bling/bling_remineralization.F |
281 |
BLING_REMIN |
& - N_den_benthic(i,j,k) / NO3toN |
|
./pkg/bling/bling_remineralization.F |
283 |
BLING_REMIN |
PO4_sed(i,j) = POPflux_l*drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/bling/bling_remineralization.F |
290 |
BLING_REMIN |
O2_sed(i,j) = -(O2toN * PONflux_l*drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/bling/bling_remineralization.F |
291 |
BLING_REMIN |
& - N_den_benthic(i,j,k)* 1.25) |
|
./pkg/bling/bling_remineralization.F |
300 |
BLING_REMIN |
& *(irr_inst(i,j,k)**2 |
|
./pkg/bling/bling_remineralization.F |
301 |
BLING_REMIN |
& /(kFe_eq_lig_irr**2+irr_inst(i,j,k)**2)) |
|
./pkg/bling/bling_remineralization.F |
302 |
BLING_REMIN |
& *max(epsln,min(1. _d 0,(PTR_FE(i,j,k) |
|
./pkg/bling/bling_remineralization.F |
304 |
BLING_REMIN |
& (PTR_FE(i,j,k)+epsln)*1.2 _d 0)) |
|
./pkg/bling/bling_remineralization.F |
308 |
BLING_REMIN |
FreeFe = (-(1+lig_stability*(ligand-PTR_FE(i,j,k))) |
|
./pkg/bling/bling_remineralization.F |
309 |
BLING_REMIN |
& +((1+lig_stability*(ligand-PTR_FE(i,j,k)))**2+4* |
|
./pkg/bling/bling_remineralization.F |
310 |
BLING_REMIN |
& lig_stability*PTR_FE(i,j,k))**(0.5))/(2* |
|
./pkg/bling/bling_remineralization.F |
317 |
BLING_REMIN |
IF (PTR_O2(i,j,k) .LT. oxic_min) THEN |
|
./pkg/bling/bling_remineralization.F |
324 |
BLING_REMIN |
Fe_ads_inorg(i,j,k) = |
|
./pkg/bling/bling_remineralization.F |
331 |
BLING_REMIN |
Fe_ads_org(i,j,k) = |
|
./pkg/bling/bling_remineralization.F |
340 |
BLING_REMIN |
PFEflux_l = (PFEflux_u+(Fe_spm(i,j,k)+Fe_ads_inorg(i,j,k) |
|
./pkg/bling/bling_remineralization.F |
341 |
BLING_REMIN |
& +Fe_ads_org(i,j,k))*drF(k) |
|
./pkg/bling/bling_remineralization.F |
342 |
BLING_REMIN |
& *hFacC(i,j,k,bi,bj))/(1+zremin*drF(k) |
|
./pkg/bling/bling_remineralization.F |
343 |
BLING_REMIN |
& *hFacC(i,j,k,bi,bj)) |
|
./pkg/bling/bling_remineralization.F |
349 |
BLING_REMIN |
Fe_burial(i,j) = PFEflux_l |
|
./pkg/bling/bling_remineralization.F |
351 |
BLING_REMIN |
IF ( PTR_O2(i,j,k) .LT. oxic_min ) THEN |
|
./pkg/bling/bling_remineralization.F |
355 |
BLING_REMIN |
Fe_reminp(i,j,k) = (PFEflux_u+(Fe_spm(i,j,k) |
|
./pkg/bling/bling_remineralization.F |
356 |
BLING_REMIN |
& +Fe_ads_inorg(i,j,k) |
|
./pkg/bling/bling_remineralization.F |
357 |
BLING_REMIN |
& +Fe_ads_org(i,j,k))*drF(k) |
|
./pkg/bling/bling_remineralization.F |
358 |
BLING_REMIN |
& *hFacC(i,j,k,bi,bj)-PFEflux_l)*recip_drF(k) |
|
./pkg/bling/bling_remineralization.F |
359 |
BLING_REMIN |
& *recip_hFacC(i,j,k,bi,bj) |
|
./pkg/bling/bling_remineralization.F |
367 |
BLING_REMIN |
Fe_reminsum(i,j,k) = Fe_reminp(i,j,k) + Fe_sed(i,j,k) |
|
./pkg/bling/bling_remineralization.F |
368 |
BLING_REMIN |
& - Fe_ads_org(i,j,k) - Fe_ads_inorg(i,j,k) |
|
./pkg/bling/bling_remineralization.F |
81 |
BLING_REMIN |
INTEGER i,j,k |
|
./eesupp/src/mds_byteswapr8.F |
23 |
MDS_BYTESWAPR8 |
integer i |
|
./eesupp/src/mds_byteswapr8.F |
33 |
MDS_BYTESWAPR8 |
do i=1,n |
|
./eesupp/src/mds_byteswapr8.F |
34 |
MDS_BYTESWAPR8 |
arr(i) = i64(arr(i)) |
|
./eesupp/src/mds_byteswapr8.F |
44 |
MDS_BYTESWAPR8 |
integer i |
|
./eesupp/src/mds_byteswapr8.F |
47 |
MDS_BYTESWAPR8 |
do i=1,8*n,8 |
|
./eesupp/src/mds_byteswapr8.F |
48 |
MDS_BYTESWAPR8 |
cc=arr(i:i) |
|
./eesupp/src/mds_byteswapr8.F |
49 |
MDS_BYTESWAPR8 |
arr(i:i)=arr(i+7:i+7) |
|
./eesupp/src/mds_byteswapr8.F |
50 |
MDS_BYTESWAPR8 |
arr(i+7:i+7)=cc |
|
./eesupp/src/mds_byteswapr8.F |
51 |
MDS_BYTESWAPR8 |
cc=arr(i+1:i+1) |
|
./eesupp/src/mds_byteswapr8.F |
52 |
MDS_BYTESWAPR8 |
arr(i+1:i+1)=arr(i+6:i+6) |
|
./eesupp/src/mds_byteswapr8.F |
53 |
MDS_BYTESWAPR8 |
arr(i+6:i+6)=cc |
|
./eesupp/src/mds_byteswapr8.F |
54 |
MDS_BYTESWAPR8 |
cc=arr(i+2:i+2) |
|
./eesupp/src/mds_byteswapr8.F |
55 |
MDS_BYTESWAPR8 |
arr(i+2:i+2)=arr(i+5:i+5) |
|
./eesupp/src/mds_byteswapr8.F |
56 |
MDS_BYTESWAPR8 |
arr(i+5:i+5)=cc |
|
./eesupp/src/mds_byteswapr8.F |
57 |
MDS_BYTESWAPR8 |
cc=arr(i+3:i+3) |
|
./eesupp/src/mds_byteswapr8.F |
58 |
MDS_BYTESWAPR8 |
arr(i+3:i+3)=arr(i+4:i+4) |
|
./eesupp/src/mds_byteswapr8.F |
59 |
MDS_BYTESWAPR8 |
arr(i+4:i+4)=cc |
|
./pkg/bling/bling_sgs.F |
50 |
BLING_SGS |
INTEGER i,j,k |
|
./pkg/bulk_force/bulkf_ave.F |
38 |
BULKF_AVE |
INTEGER i,j |
|
./pkg/bulk_force/bulkf_ave.F |
42 |
BULKF_AVE |
DO i = 1,sNx |
|
./pkg/bulk_force/bulkf_ave.F |
43 |
BULKF_AVE |
BULK_Qnet_Ave(i,j,bi,bj) = BULK_Qnet_Ave(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_ave.F |
44 |
BULKF_AVE |
& +Qnet(i,j,bi,bj)*deltaTclock |
|
./pkg/bulk_force/bulkf_ave.F |
48 |
BULKF_AVE |
BULK_EmPmR_Ave(i,j,bi,bj) = BULK_EmPmR_Ave(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_ave.F |
49 |
BULKF_AVE |
& +EmPmR(i,j,bi,bj)*deltaTclock |
|
./pkg/bulk_force/bulkf_ave.F |
50 |
BULKF_AVE |
BULK_fu_Ave(i,j,bi,bj) = BULK_fu_Ave(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_ave.F |
51 |
BULKF_AVE |
& +fu(i,j,bi,bj)*deltaTclock |
|
./pkg/bulk_force/bulkf_ave.F |
52 |
BULKF_AVE |
BULK_fv_Ave(i,j,bi,bj) = BULK_fv_Ave(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_ave.F |
53 |
BULKF_AVE |
& +fv(i,j,bi,bj)*deltaTclock |
|
./pkg/bulk_force/bulkf_ave.F |
54 |
BULKF_AVE |
BULK_latent_Ave(i,j,bi,bj) = BULK_latent_Ave(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_ave.F |
55 |
BULKF_AVE |
& +flh(i,j,bi,bj)*deltaTclock |
|
./pkg/bulk_force/bulkf_ave.F |
56 |
BULKF_AVE |
BULK_sensible_Ave(i,j,bi,bj) = BULK_sensible_Ave(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_ave.F |
57 |
BULKF_AVE |
& +fsh(i,j,bi,bj)*deltaTclock |
|
./pkg/bulk_force/bulkf_ave.F |
58 |
BULKF_AVE |
BULK_evap_Ave(i,j,bi,bj) = BULK_evap_Ave(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_ave.F |
59 |
BULKF_AVE |
& +evap(i,j,bi,bj)*deltaTclock |
|
./pkg/bulk_force/bulkf_ave.F |
60 |
BULKF_AVE |
BULK_flwup_Ave(i,j,bi,bj) = BULK_flwup_Ave(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_ave.F |
61 |
BULKF_AVE |
& +flwup(i,j,bi,bj)*deltaTclock |
|
./pkg/bulk_force/bulkf_ave.F |
62 |
BULKF_AVE |
BULK_flwupnet_Ave(i,j,bi,bj) = BULK_flwupnet_Ave(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_ave.F |
63 |
BULKF_AVE |
& +flwupnet(i,j,bi,bj)*deltaTclock |
|
./pkg/bulk_force/bulkf_ave.F |
64 |
BULKF_AVE |
BULK_solar_Ave(i,j,bi,bj) = BULK_solar_Ave(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_ave.F |
65 |
BULKF_AVE |
& +fswnet(i,j,bi,bj)*deltaTclock |
|
./pkg/bulk_force/bulkf_ave.F |
66 |
BULKF_AVE |
BULK_ssq_Ave(i,j,bi,bj) = BULK_ssq_Ave(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_ave.F |
67 |
BULKF_AVE |
& +savssq(i,j,bi,bj)*deltaTclock |
|
./pkg/bulk_force/bulkf_fields_load.F |
123 |
BULKF_FIELDS_LOAD |
INTEGER bi, bj, i, j |
|
./pkg/bulk_force/bulkf_fields_load.F |
134 |
BULKF_FIELDS_LOAD |
DO i = 1-Olx,sNx+Olx |
|
./pkg/bulk_force/bulkf_fields_load.F |
135 |
BULKF_FIELDS_LOAD |
tair0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
136 |
BULKF_FIELDS_LOAD |
tair1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
137 |
BULKF_FIELDS_LOAD |
qair0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
138 |
BULKF_FIELDS_LOAD |
qair1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
139 |
BULKF_FIELDS_LOAD |
rain0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
140 |
BULKF_FIELDS_LOAD |
rain1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
141 |
BULKF_FIELDS_LOAD |
solar0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
142 |
BULKF_FIELDS_LOAD |
solar1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
143 |
BULKF_FIELDS_LOAD |
flwdwn0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
144 |
BULKF_FIELDS_LOAD |
flwdwn1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
145 |
BULKF_FIELDS_LOAD |
cloud0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
146 |
BULKF_FIELDS_LOAD |
cloud1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
147 |
BULKF_FIELDS_LOAD |
wspeed0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
148 |
BULKF_FIELDS_LOAD |
wspeed1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
149 |
BULKF_FIELDS_LOAD |
uwind0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
150 |
BULKF_FIELDS_LOAD |
uwind1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
151 |
BULKF_FIELDS_LOAD |
vwind0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
152 |
BULKF_FIELDS_LOAD |
vwind1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
153 |
BULKF_FIELDS_LOAD |
runoff0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
154 |
BULKF_FIELDS_LOAD |
runoff1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
155 |
BULKF_FIELDS_LOAD |
snow0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
156 |
BULKF_FIELDS_LOAD |
snow1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
158 |
BULKF_FIELDS_LOAD |
thAir0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
159 |
BULKF_FIELDS_LOAD |
thAir1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
161 |
BULKF_FIELDS_LOAD |
qnetch0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
162 |
BULKF_FIELDS_LOAD |
qnetch1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
163 |
BULKF_FIELDS_LOAD |
empch0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
164 |
BULKF_FIELDS_LOAD |
empch1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
302 |
BULKF_FIELDS_LOAD |
DO i=1-Olx,sNx+Olx |
|
./pkg/bulk_force/bulkf_fields_load.F |
303 |
BULKF_FIELDS_LOAD |
empch0(i,j,bi,bj) = empch0(i,j,bi,bj)*rhoConstFresh |
|
./pkg/bulk_force/bulkf_fields_load.F |
304 |
BULKF_FIELDS_LOAD |
empch1(i,j,bi,bj) = empch1(i,j,bi,bj)*rhoConstFresh |
|
./pkg/bulk_force/bulkf_fields_load.F |
364 |
BULKF_FIELDS_LOAD |
DO i=1-Olx,sNx+Olx |
|
./pkg/bulk_force/bulkf_fields_load.F |
367 |
BULKF_FIELDS_LOAD |
TAIR(i,j,bi,bj) = bWght*tair0(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
368 |
BULKF_FIELDS_LOAD |
& +aWght*tair1(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
372 |
BULKF_FIELDS_LOAD |
QAIR(i,j,bi,bj) =(bWght*qair0(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
373 |
BULKF_FIELDS_LOAD |
& +aWght*qair1(i,j,bi,bj) ) |
|
./pkg/bulk_force/bulkf_fields_load.F |
374 |
BULKF_FIELDS_LOAD |
SOLAR(i,j,bi,bj) = bWght*solar0(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
375 |
BULKF_FIELDS_LOAD |
& +aWght*solar1(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
376 |
BULKF_FIELDS_LOAD |
FLWDWN(i,j,bi,bj) = bWght*flwdwn0(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
377 |
BULKF_FIELDS_LOAD |
& +aWght*flwdwn1(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
378 |
BULKF_FIELDS_LOAD |
CLOUD(i,j,bi,bj) = bWght*cloud0(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
379 |
BULKF_FIELDS_LOAD |
& +aWght*cloud1(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
380 |
BULKF_FIELDS_LOAD |
WSPEED(i,j,bi,bj) = bWght*wspeed0(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
381 |
BULKF_FIELDS_LOAD |
& +aWght*wspeed1(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
382 |
BULKF_FIELDS_LOAD |
UWIND(i,j,bi,bj) = bWght*uwind0(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
383 |
BULKF_FIELDS_LOAD |
& +aWght*uwind1(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
384 |
BULKF_FIELDS_LOAD |
VWIND(i,j,bi,bj) = bWght*vwind0(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
385 |
BULKF_FIELDS_LOAD |
& +aWght*vwind1(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
386 |
BULKF_FIELDS_LOAD |
RAIN(i,j,bi,bj) = bWght*rain0(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
387 |
BULKF_FIELDS_LOAD |
& +aWght*rain1(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
388 |
BULKF_FIELDS_LOAD |
RUNOFF(i,j,bi,bj) = bWght*runoff0(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
389 |
BULKF_FIELDS_LOAD |
& +aWght*runoff1(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
394 |
BULKF_FIELDS_LOAD |
Qnetch(i,j,bi,bj) = bWght*qnetch0(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
395 |
BULKF_FIELDS_LOAD |
& +aWght*qnetch1(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
396 |
BULKF_FIELDS_LOAD |
EmPch(i,j,bi,bj) = bWght*empch0(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
397 |
BULKF_FIELDS_LOAD |
& +aWght*empch1(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
403 |
BULKF_FIELDS_LOAD |
DO i=1-Olx,sNx+Olx |
|
./pkg/bulk_force/bulkf_fields_load.F |
404 |
BULKF_FIELDS_LOAD |
thAir(i,j,bi,bj) = bWght*thAir0(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
405 |
BULKF_FIELDS_LOAD |
& + aWght*thAir1(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_flux_adjust.F |
53 |
BULKF_FLUX_ADJUST |
INTEGER i,j |
|
./pkg/bulk_force/bulkf_flux_adjust.F |
57 |
BULKF_FLUX_ADJUST |
DO i = iMin, iMax |
|
./pkg/bulk_force/bulkf_flux_adjust.F |
58 |
BULKF_FLUX_ADJUST |
IF ( adjustMask(i,j) ) Qnet(i,j,bi,bj) = Qnetch(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_flux_adjust.F |
65 |
BULKF_FLUX_ADJUST |
DO i = iMin, iMax |
|
./pkg/bulk_force/bulkf_flux_adjust.F |
66 |
BULKF_FLUX_ADJUST |
IF ( adjustMask(i,j) ) EmPmR(i,j,bi,bj) = EmPch(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_forcing.F |
100 |
BULKF_FORCING |
evap(i,j,bi,bj) = EVPloc(1) * 1. _d -3 / rhoFW |
|
./pkg/bulk_force/bulkf_forcing.F |
109 |
BULKF_FORCING |
I uwind(i,j,bi,bj),vwind(i,j,bi,bj),wspeed(i,j,bi,bj), |
|
./pkg/bulk_force/bulkf_forcing.F |
110 |
BULKF_FORCING |
I Tair(i,j,bi,bj), Qair(i,j,bi,bj), |
|
./pkg/bulk_force/bulkf_forcing.F |
111 |
BULKF_FORCING |
I cloud(i,j,bi,bj),theta(i,j,ks,bi,bj), |
|
./pkg/bulk_force/bulkf_forcing.F |
112 |
BULKF_FORCING |
O flwup(i,j,bi,bj), flh(i,j,bi,bj), |
|
./pkg/bulk_force/bulkf_forcing.F |
113 |
BULKF_FORCING |
O fsh(i,j,bi,bj), df0dT, |
|
./pkg/bulk_force/bulkf_forcing.F |
114 |
BULKF_FORCING |
O ustress(i,j,bi,bj), vstress(i,j,bi,bj), |
|
./pkg/bulk_force/bulkf_forcing.F |
115 |
BULKF_FORCING |
O evp, savssq(i,j,bi,bj), dEvdT, |
|
./pkg/bulk_force/bulkf_forcing.F |
121 |
BULKF_FORCING |
evap(i,j,bi,bj) = evp/rhoFW |
|
./pkg/bulk_force/bulkf_forcing.F |
125 |
BULKF_FORCING |
I uwind(i,j,bi,bj), vwind(i,j,bi,bj), |
|
./pkg/bulk_force/bulkf_forcing.F |
126 |
BULKF_FORCING |
I wspeed(i,j,bi,bj), Tair(i,j,bi,bj), |
|
./pkg/bulk_force/bulkf_forcing.F |
127 |
BULKF_FORCING |
I Qair(i,j,bi,bj), theta(i,j,ks,bi,bj), |
|
./pkg/bulk_force/bulkf_forcing.F |
128 |
BULKF_FORCING |
O flwup(i,j,bi,bj), flh(i,j,bi,bj), |
|
./pkg/bulk_force/bulkf_forcing.F |
129 |
BULKF_FORCING |
O fsh(i,j,bi,bj), df0dT, |
|
./pkg/bulk_force/bulkf_forcing.F |
130 |
BULKF_FORCING |
O ustress(i,j,bi,bj), vstress(i,j,bi,bj), |
|
./pkg/bulk_force/bulkf_forcing.F |
131 |
BULKF_FORCING |
O evp, savssq(i,j,bi,bj), dEvdT, |
|
./pkg/bulk_force/bulkf_forcing.F |
132 |
BULKF_FORCING |
I iceornot, i,j,bi,bj,myThid ) |
|
./pkg/bulk_force/bulkf_forcing.F |
135 |
BULKF_FORCING |
evap(i,j,bi,bj) = evp/rhoFW |
|
./pkg/bulk_force/bulkf_forcing.F |
140 |
BULKF_FORCING |
flwupnet(i,j,bi,bj)=flwup(i,j,bi,bj)-flwdwn(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_forcing.F |
142 |
BULKF_FORCING |
fswnet(i,j,bi,bj) = solar(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_forcing.F |
145 |
BULKF_FORCING |
ustress(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_forcing.F |
146 |
BULKF_FORCING |
vstress(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_forcing.F |
147 |
BULKF_FORCING |
fsh(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_forcing.F |
148 |
BULKF_FORCING |
flh(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_forcing.F |
149 |
BULKF_FORCING |
flwup(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_forcing.F |
150 |
BULKF_FORCING |
evap(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_forcing.F |
151 |
BULKF_FORCING |
fswnet(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_forcing.F |
152 |
BULKF_FORCING |
savssq(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_forcing.F |
160 |
BULKF_FORCING |
DO i = 1-OLx+1,sNx+OLx |
|
./pkg/bulk_force/bulkf_forcing.F |
161 |
BULKF_FORCING |
fu(i,j,bi,bj) = maskW(i,j,1,bi,bj) |
|
./pkg/bulk_force/bulkf_forcing.F |
162 |
BULKF_FORCING |
& *(ustress(i,j,bi,bj)+ustress(i-1,j,bi,bj))*0.5 _d 0 |
|
./pkg/bulk_force/bulkf_forcing.F |
166 |
BULKF_FORCING |
DO i = 1-OLx,sNx+OLx |
|
./pkg/bulk_force/bulkf_forcing.F |
167 |
BULKF_FORCING |
fv(i,j,bi,bj) = maskS(i,j,1,bi,bj) |
|
./pkg/bulk_force/bulkf_forcing.F |
168 |
BULKF_FORCING |
& *(vstress(i,j,bi,bj)+vstress(i,j-1,bi,bj))*0.5 _d 0 |
|
./pkg/bulk_force/bulkf_forcing.F |
175 |
BULKF_FORCING |
DO i = 1-OLx,sNx+OLx |
|
./pkg/bulk_force/bulkf_forcing.F |
176 |
BULKF_FORCING |
IF ( maskC(i,j,ks,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/bulk_force/bulkf_forcing.F |
179 |
BULKF_FORCING |
hfl = hfl + fsh(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_forcing.F |
180 |
BULKF_FORCING |
hfl = hfl + flh(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_forcing.F |
181 |
BULKF_FORCING |
hfl = hfl - flwupnet(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_forcing.F |
182 |
BULKF_FORCING |
hfl = hfl + fswnet(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_forcing.F |
184 |
BULKF_FORCING |
Qnet(i,j,bi,bj) = -hfl |
|
./pkg/bulk_force/bulkf_forcing.F |
185 |
BULKF_FORCING |
Qsw (i,j,bi,bj) = -fswnet(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_forcing.F |
187 |
BULKF_FORCING |
dFdT(i,j,bi,bj) = df0dT |
|
./pkg/bulk_force/bulkf_forcing.F |
190 |
BULKF_FORCING |
EmPmR(i,j,bi,bj) = (evap(i,j,bi,bj)-rain(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_forcing.F |
191 |
BULKF_FORCING |
& - runoff(i,j,bi,bj))*rhoConstFresh |
|
./pkg/bulk_force/bulkf_forcing.F |
197 |
BULKF_FORCING |
Qnet(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_forcing.F |
198 |
BULKF_FORCING |
Qsw (i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_forcing.F |
199 |
BULKF_FORCING |
EmPmR(i,j,bi,bj)= 0. _d 0 |
|
./pkg/bulk_force/bulkf_forcing.F |
201 |
BULKF_FORCING |
dFdT(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_forcing.F |
233 |
BULKF_FORCING |
DO i = 1-OLx,sNx+OLx |
|
./pkg/bulk_force/bulkf_forcing.F |
234 |
BULKF_FORCING |
IF ( Tair(i,j,bi,bj).LE.Tf0kel ) THEN |
|
./pkg/bulk_force/bulkf_forcing.F |
235 |
BULKF_FORCING |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_forcing.F |
236 |
BULKF_FORCING |
& + Lfresh*rain(i,j,bi,bj)*rhoConstFresh |
|
./pkg/bulk_force/bulkf_forcing.F |
239 |
BULKF_FORCING |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_forcing.F |
241 |
BULKF_FORCING |
& *( Tair(i,j,bi,bj) - Tf0kel - temp_EvPrRn ) |
|
./pkg/bulk_force/bulkf_forcing.F |
242 |
BULKF_FORCING |
& *rain(i,j,bi,bj)*rhoConstFresh |
|
./pkg/bulk_force/bulkf_forcing.F |
249 |
BULKF_FORCING |
DO i = 1-OLx,sNx+OLx |
|
./pkg/bulk_force/bulkf_forcing.F |
255 |
BULKF_FORCING |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_forcing.F |
256 |
BULKF_FORCING |
& + ( theta(i,j,ks,bi,bj) - temp_EvPrRn ) |
|
./pkg/bulk_force/bulkf_forcing.F |
257 |
BULKF_FORCING |
& *( evap(i,j,bi,bj) - runoff(i,j,bi,bj) ) |
|
./pkg/bulk_force/bulkf_forcing.F |
259 |
BULKF_FORCING |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj)*maskC(i,j,ks,bi,bj) |
|
./pkg/bulk_force/bulkf_forcing.F |
63 |
BULKF_FORCING |
INTEGER i,j |
|
./pkg/bulk_force/bulkf_forcing.F |
82 |
BULKF_FORCING |
DO i = 1-OLx,sNx+OLx |
|
./pkg/bulk_force/bulkf_forcing.F |
83 |
BULKF_FORCING |
IF ( maskC(i,j,ks,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/bulk_force/bulkf_forcing.F |
88 |
BULKF_FORCING |
I theta(i,j,ks,bi,bj), flwdwn(i,j,bi,bj), |
|
./pkg/bulk_force/bulkf_forcing.F |
89 |
BULKF_FORCING |
I thAir(i,j,bi,bj), Tair(i,j,bi,bj), |
|
./pkg/bulk_force/bulkf_forcing.F |
90 |
BULKF_FORCING |
I Qair(i,j,bi,bj), wspeed(i,j,bi,bj), |
|
./pkg/bulk_force/bulkf_forcing.F |
95 |
BULKF_FORCING |
flwup(i,j,bi,bj)= ocean_emissivity*SLRU(1) |
|
./pkg/bulk_force/bulkf_forcing.F |
97 |
BULKF_FORCING |
fsh(i,j,bi,bj) = -SHF(1) |
|
./pkg/bulk_force/bulkf_forcing.F |
98 |
BULKF_FORCING |
flh(i,j,bi,bj) = -Lvap*EVPloc(1) |
|
./pkg/bulk_force/bulkf_formula_lay.F |
13 |
BULKF_FORMULA_LAY |
I iceornot, i,j,bi,bj,myThid ) |
|
./pkg/bulk_force/bulkf_formula_lay.F |
57 |
BULKF_FORMULA_LAY |
INTEGER i,j, bi,bj !current grid point indices |
|
./pkg/bulk_force/bulkf_init_varia.F |
39 |
BULKF_INIT_VARIA |
INTEGER i, j |
|
./pkg/bulk_force/bulkf_init_varia.F |
45 |
BULKF_INIT_VARIA |
DO i=1-Olx,sNx+Olx |
|
./pkg/bulk_force/bulkf_init_varia.F |
46 |
BULKF_INIT_VARIA |
Tair (i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
47 |
BULKF_INIT_VARIA |
Qair (i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
48 |
BULKF_INIT_VARIA |
Solar (i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
49 |
BULKF_INIT_VARIA |
flwdwn(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
50 |
BULKF_INIT_VARIA |
cloud (i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
51 |
BULKF_INIT_VARIA |
wspeed(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
52 |
BULKF_INIT_VARIA |
uwind (i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
53 |
BULKF_INIT_VARIA |
vwind (i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
54 |
BULKF_INIT_VARIA |
runoff(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
56 |
BULKF_INIT_VARIA |
thAir (i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
58 |
BULKF_INIT_VARIA |
qnetch(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
59 |
BULKF_INIT_VARIA |
empch (i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
65 |
BULKF_INIT_VARIA |
DO i=1-Olx,sNx+Olx |
|
./pkg/bulk_force/bulkf_init_varia.F |
66 |
BULKF_INIT_VARIA |
BULK_Qnet_Ave (i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
67 |
BULKF_INIT_VARIA |
BULK_EmPmR_Ave (i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
68 |
BULKF_INIT_VARIA |
BULK_fu_Ave (i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
69 |
BULKF_INIT_VARIA |
BULK_fv_Ave (i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
70 |
BULKF_INIT_VARIA |
BULK_latent_Ave (i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
71 |
BULKF_INIT_VARIA |
BULK_sensible_Ave(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
72 |
BULKF_INIT_VARIA |
BULK_evap_Ave (i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
73 |
BULKF_INIT_VARIA |
BULK_flwup_Ave (i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
74 |
BULKF_INIT_VARIA |
BULK_flwupnet_Ave(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
75 |
BULKF_INIT_VARIA |
BULK_solar_Ave (i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
76 |
BULKF_INIT_VARIA |
BULK_ssq_Ave (i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
82 |
BULKF_INIT_VARIA |
DO i=1-Olx,sNx+Olx |
|
./pkg/bulk_force/bulkf_init_varia.F |
83 |
BULKF_INIT_VARIA |
CONS_Qnet (i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
84 |
BULKF_INIT_VARIA |
CONS_EmPmR(i,j,bi,bj) = 0. _d 0 |
|
./pkg/cal/cal_daysformonth.F |
140 |
CAL_DAYSFORMONTH |
do i = 2,imonth-1 |
|
./pkg/cal/cal_daysformonth.F |
167 |
CAL_DAYSFORMONTH |
do i = 2,nummonths-1 |
|
./pkg/cal/cal_daysformonth.F |
49 |
CAL_DAYSFORMONTH |
integer i |
|
./pkg/cal/cal_set.F |
144 |
CAL_SET |
DO i=1,nMonthYear |
|
./pkg/cal/cal_set.F |
147 |
CAL_SET |
nDayMonth(i,1) = 30+j |
|
./pkg/cal/cal_set.F |
148 |
CAL_SET |
nDayMonth(i,2) = 30+j |
|
./pkg/cal/cal_set.F |
175 |
CAL_SET |
DO i=1,nMonthYear |
|
./pkg/cal/cal_set.F |
176 |
CAL_SET |
nDayMonth(i,1) = 30 |
|
./pkg/cal/cal_set.F |
177 |
CAL_SET |
nDayMonth(i,2) = 30 |
|
./pkg/cal/cal_set.F |
76 |
CAL_SET |
INTEGER i,j,k |
|
./eesupp/src/nml_change_syntax.F |
101 |
NML_CHANGE_SYNTAX |
IF ( record(i:i).EQ.'"' .AND. sngQ ) THEN |
|
./eesupp/src/nml_change_syntax.F |
105 |
NML_CHANGE_SYNTAX |
IF ( record(i:i).EQ.'=' .AND. i0.EQ.0 |
|
./eesupp/src/nml_change_syntax.F |
106 |
NML_CHANGE_SYNTAX |
& .AND. sngQ .AND. dblQ ) i0 = i |
|
./eesupp/src/nml_change_syntax.F |
109 |
NML_CHANGE_SYNTAX |
DO i=1,i0 |
|
./eesupp/src/nml_change_syntax.F |
110 |
NML_CHANGE_SYNTAX |
IF ( record(i:i).EQ.'(' .AND. i1.EQ.0 ) i1 = -i |
|
./eesupp/src/nml_change_syntax.F |
111 |
NML_CHANGE_SYNTAX |
IF ( record(i:i).EQ.':' .AND. i1.LT.0 ) THEN |
|
./eesupp/src/nml_change_syntax.F |
112 |
NML_CHANGE_SYNTAX |
IF ( i2.EQ.0 ) i2 = i |
|
./eesupp/src/nml_change_syntax.F |
125 |
NML_CHANGE_SYNTAX |
IF ( record(i:i).EQ.',' .AND. i1.LT.0 ) THEN |
|
./eesupp/src/nml_change_syntax.F |
127 |
NML_CHANGE_SYNTAX |
IF ( i3.EQ.0 .AND. i2.GE.1 ) i3 = i |
|
./eesupp/src/nml_change_syntax.F |
129 |
NML_CHANGE_SYNTAX |
IF ( record(i:i).EQ.')' .AND. i1.LT.0 ) THEN |
|
./eesupp/src/nml_change_syntax.F |
131 |
NML_CHANGE_SYNTAX |
i4 = i |
|
./eesupp/src/nml_change_syntax.F |
160 |
NML_CHANGE_SYNTAX |
i = i1+is |
|
./eesupp/src/nml_change_syntax.F |
161 |
NML_CHANGE_SYNTAX |
IF ( record(i:i).EQ.'-' .OR. record(i:i).EQ.'+' ) is = is+1 |
|
./eesupp/src/nml_change_syntax.F |
164 |
NML_CHANGE_SYNTAX |
DO i=i1+is,i1+ie |
|
./eesupp/src/nml_change_syntax.F |
165 |
NML_CHANGE_SYNTAX |
n = ICHAR(record(i:i)) |
|
./eesupp/src/nml_change_syntax.F |
178 |
NML_CHANGE_SYNTAX |
i = i2+is |
|
./eesupp/src/nml_change_syntax.F |
179 |
NML_CHANGE_SYNTAX |
IF ( record(i:i).EQ.'-' .OR. record(i:i).EQ.'+' ) is = is+1 |
|
./eesupp/src/nml_change_syntax.F |
182 |
NML_CHANGE_SYNTAX |
DO i=i2+is,i2+ie |
|
./eesupp/src/nml_change_syntax.F |
183 |
NML_CHANGE_SYNTAX |
n = ICHAR(record(i:i)) |
|
./eesupp/src/nml_change_syntax.F |
196 |
NML_CHANGE_SYNTAX |
DO i=i2,i3-1 |
|
./eesupp/src/nml_change_syntax.F |
197 |
NML_CHANGE_SYNTAX |
record(i:i) = ' ' |
|
./eesupp/src/nml_change_syntax.F |
217 |
NML_CHANGE_SYNTAX |
DO i=i2,i4-1 |
|
./eesupp/src/nml_change_syntax.F |
218 |
NML_CHANGE_SYNTAX |
record(i:i) = ' ' |
|
./eesupp/src/nml_change_syntax.F |
66 |
NML_CHANGE_SYNTAX |
INTEGER i, n, ii |
|
./eesupp/src/nml_change_syntax.F |
96 |
NML_CHANGE_SYNTAX |
DO i=1,il |
|
./eesupp/src/nml_change_syntax.F |
97 |
NML_CHANGE_SYNTAX |
IF ( record(i:i).EQ."'" .AND. dblQ ) THEN |
|
./pkg/cd_code/cd_code_scheme.F |
102 |
CD_CODE_SCHEME |
pf(i,j) = |
|
./pkg/cd_code/cd_code_scheme.F |
103 |
CD_CODE_SCHEME |
& ab15*( etaN(i,j,bi,bj)*Bo_surf(i,j,bi,bj) ) |
|
./pkg/cd_code/cd_code_scheme.F |
104 |
CD_CODE_SCHEME |
& +ab05*(etaNm1(i,j,bi,bj)*Bo_surf(i,j,bi,bj) ) |
|
./pkg/cd_code/cd_code_scheme.F |
106 |
CD_CODE_SCHEME |
pf(i,j) = Bo_surf(i,j,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
107 |
CD_CODE_SCHEME |
& *( ab15*etaN(i,j,bi,bj) + ab05*etaNm1(i,j,bi,bj) ) |
|
./pkg/cd_code/cd_code_scheme.F |
117 |
CD_CODE_SCHEME |
DO i=1-OLx,sNx+OLx |
|
./pkg/cd_code/cd_code_scheme.F |
118 |
CD_CODE_SCHEME |
af(i,j) = |
|
./pkg/cd_code/cd_code_scheme.F |
119 |
CD_CODE_SCHEME |
& ( gvFld(i,j) |
|
./pkg/cd_code/cd_code_scheme.F |
120 |
CD_CODE_SCHEME |
& -( _recip_dyC(i,j,bi,bj)*(pf(i,j)-pf(i,j-1)) |
|
./pkg/cd_code/cd_code_scheme.F |
121 |
CD_CODE_SCHEME |
& +phyFac*dPhiHydY(i,j) ) |
|
./pkg/cd_code/cd_code_scheme.F |
122 |
CD_CODE_SCHEME |
& )*_maskS(i,j,k,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
124 |
CD_CODE_SCHEME |
& *maskInC(i,j-1,bi,bj)*maskInC(i,j,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
130 |
CD_CODE_SCHEME |
DO i=iMin,iMax |
|
./pkg/cd_code/cd_code_scheme.F |
131 |
CD_CODE_SCHEME |
vf(i,j) = |
|
./pkg/cd_code/cd_code_scheme.F |
132 |
CD_CODE_SCHEME |
& ( (af(i,j)+af(i-1,j+1)) |
|
./pkg/cd_code/cd_code_scheme.F |
133 |
CD_CODE_SCHEME |
& +(af(i-1,j)+af(i,j+1)) )*0.25 _d 0 |
|
./pkg/cd_code/cd_code_scheme.F |
134 |
CD_CODE_SCHEME |
& *_maskW(i,j,k,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
135 |
CD_CODE_SCHEME |
& -( _fCori( i, j,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
136 |
CD_CODE_SCHEME |
& +_fCori(i-1,j,bi,bj) )*0.5 _d 0 |
|
./pkg/cd_code/cd_code_scheme.F |
138 |
CD_CODE_SCHEME |
& *uVel(i,j,k,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
140 |
CD_CODE_SCHEME |
& *( ab15*uVel(i,j,k,bi,bj) + ab05*uNM1(i,j,k,bi,bj) ) |
|
./pkg/cd_code/cd_code_scheme.F |
146 |
CD_CODE_SCHEME |
DO i=iMin,iMax |
|
./pkg/cd_code/cd_code_scheme.F |
147 |
CD_CODE_SCHEME |
vVelD(i,j,k,bi,bj) = vVelD(i,j,k,bi,bj) + deltaTmom*vf(i,j) |
|
./pkg/cd_code/cd_code_scheme.F |
152 |
CD_CODE_SCHEME |
DO i=iMin,iMax |
|
./pkg/cd_code/cd_code_scheme.F |
153 |
CD_CODE_SCHEME |
vVelD(i,j,k,bi,bj) = ( rCD*vVelD(i,j,k,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
156 |
CD_CODE_SCHEME |
& (vVel(i,j,k,bi,bj)+vVel(i-1,j+1,k,bi,bj)) |
|
./pkg/cd_code/cd_code_scheme.F |
157 |
CD_CODE_SCHEME |
& +(vVel(i-1,j,k,bi,bj)+vVel(i,j+1,k,bi,bj)) |
|
./pkg/cd_code/cd_code_scheme.F |
160 |
CD_CODE_SCHEME |
& (vNM1(i,j,k,bi,bj)+vNM1(i-1,j+1,k,bi,bj)) |
|
./pkg/cd_code/cd_code_scheme.F |
161 |
CD_CODE_SCHEME |
& +(vNM1(i-1,j,k,bi,bj)+vNM1(i,j+1,k,bi,bj)) |
|
./pkg/cd_code/cd_code_scheme.F |
163 |
CD_CODE_SCHEME |
& ) )*_maskW(i,j,k,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
168 |
CD_CODE_SCHEME |
DO i=iMin,iMax |
|
./pkg/cd_code/cd_code_scheme.F |
169 |
CD_CODE_SCHEME |
guCor(i,j) = |
|
./pkg/cd_code/cd_code_scheme.F |
170 |
CD_CODE_SCHEME |
& ( _fCori( i, j,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
171 |
CD_CODE_SCHEME |
& +_fCori(i-1,j,bi,bj) )*0.5 _d 0 |
|
./pkg/cd_code/cd_code_scheme.F |
172 |
CD_CODE_SCHEME |
& *vVelD(i,j,k,bi,bj)*cfFacMom |
|
./pkg/cd_code/cd_code_scheme.F |
179 |
CD_CODE_SCHEME |
DO i=1-OLx+1,sNx+OLx |
|
./pkg/cd_code/cd_code_scheme.F |
180 |
CD_CODE_SCHEME |
af(i,j) = |
|
./pkg/cd_code/cd_code_scheme.F |
181 |
CD_CODE_SCHEME |
& ( guFld(i,j) |
|
./pkg/cd_code/cd_code_scheme.F |
182 |
CD_CODE_SCHEME |
& -( _recip_dxC(i,j,bi,bj)*(pf(i,j)-pf(i-1,j)) |
|
./pkg/cd_code/cd_code_scheme.F |
183 |
CD_CODE_SCHEME |
& +phxFac*dPhiHydX(i,j) ) |
|
./pkg/cd_code/cd_code_scheme.F |
184 |
CD_CODE_SCHEME |
& )*_maskW(i,j,k,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
186 |
CD_CODE_SCHEME |
& *maskInC(i-1,j,bi,bj)*maskInC(i,j,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
192 |
CD_CODE_SCHEME |
DO i=iMin,iMax |
|
./pkg/cd_code/cd_code_scheme.F |
193 |
CD_CODE_SCHEME |
vf(i,j) = |
|
./pkg/cd_code/cd_code_scheme.F |
194 |
CD_CODE_SCHEME |
& ( (af(i,j)+af(i+1,j-1)) |
|
./pkg/cd_code/cd_code_scheme.F |
195 |
CD_CODE_SCHEME |
& +(af(i+1,j)+af(i,j-1)) )*0.25 _d 0 |
|
./pkg/cd_code/cd_code_scheme.F |
196 |
CD_CODE_SCHEME |
& *_maskS(i,j,k,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
197 |
CD_CODE_SCHEME |
& +( _fCori(i, j, bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
198 |
CD_CODE_SCHEME |
& +_fCori(i,j-1,bi,bj) )*0.5 _d 0 |
|
./pkg/cd_code/cd_code_scheme.F |
200 |
CD_CODE_SCHEME |
& *vVel(i,j,k,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
202 |
CD_CODE_SCHEME |
& *( ab15*vVel(i,j,k,bi,bj) + ab05*vNM1(i,j,k,bi,bj) ) |
|
./pkg/cd_code/cd_code_scheme.F |
208 |
CD_CODE_SCHEME |
DO i=iMin,iMax |
|
./pkg/cd_code/cd_code_scheme.F |
209 |
CD_CODE_SCHEME |
uVelD(i,j,k,bi,bj) = uVelD(i,j,k,bi,bj) + deltaTmom*vf(i,j) |
|
./pkg/cd_code/cd_code_scheme.F |
214 |
CD_CODE_SCHEME |
DO i=iMin,iMax |
|
./pkg/cd_code/cd_code_scheme.F |
215 |
CD_CODE_SCHEME |
uVelD(i,j,k,bi,bj) = ( rCD*uVelD(i,j,k,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
218 |
CD_CODE_SCHEME |
& (uVel(i,j,k,bi,bj)+uVel(i+1,j-1,k,bi,bj)) |
|
./pkg/cd_code/cd_code_scheme.F |
219 |
CD_CODE_SCHEME |
& +(uVel(i,j-1,k,bi,bj)+uVel(i+1,j,k,bi,bj)) |
|
./pkg/cd_code/cd_code_scheme.F |
222 |
CD_CODE_SCHEME |
& (uNM1(i,j,k,bi,bj)+uNM1(i+1,j-1,k,bi,bj)) |
|
./pkg/cd_code/cd_code_scheme.F |
223 |
CD_CODE_SCHEME |
& +(uNM1(i,j-1,k,bi,bj)+uNM1(i+1,j,k,bi,bj)) |
|
./pkg/cd_code/cd_code_scheme.F |
225 |
CD_CODE_SCHEME |
& ) )*_maskS(i,j,k,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
230 |
CD_CODE_SCHEME |
DO i=iMin,iMax |
|
./pkg/cd_code/cd_code_scheme.F |
231 |
CD_CODE_SCHEME |
gvCor(i,j) = |
|
./pkg/cd_code/cd_code_scheme.F |
232 |
CD_CODE_SCHEME |
& -( _fCori(i, j, bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
233 |
CD_CODE_SCHEME |
& +_fCori(i,j-1,bi,bj) )*0.5 _d 0 |
|
./pkg/cd_code/cd_code_scheme.F |
234 |
CD_CODE_SCHEME |
& *uVelD(i,j,k,bi,bj)*cfFacMom |
|
./pkg/cd_code/cd_code_scheme.F |
240 |
CD_CODE_SCHEME |
DO i=1-OLx,sNx+OLx |
|
./pkg/cd_code/cd_code_scheme.F |
241 |
CD_CODE_SCHEME |
uNM1(i,j,k,bi,bj) = uVel(i,j,k,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
242 |
CD_CODE_SCHEME |
vNM1(i,j,k,bi,bj) = vVel(i,j,k,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
59 |
CD_CODE_SCHEME |
INTEGER i,j |
|
./pkg/cd_code/cd_code_scheme.F |
99 |
CD_CODE_SCHEME |
DO i=1-OLx,sNx+OLx |
|
./pkg/cfc/cfc11_forcing.F |
121 |
CFC11_FORCING |
DO i=1-OLx,sNx+OLx |
|
./pkg/cfc/cfc11_forcing.F |
123 |
CFC11_FORCING |
AtmosCFC11(i,j)=ACFC11north |
|
./pkg/cfc/cfc11_forcing.F |
128 |
CFC11_FORCING |
AtmosCFC11(i,j)=a1*ACFC11south + |
|
./pkg/cfc/cfc11_forcing.F |
132 |
CFC11_FORCING |
AtmosCFC11(i,j)=ACFC11south |
|
./pkg/cfc/cfc11_forcing.F |
143 |
CFC11_FORCING |
DO i=1-OLx,sNx+OLx |
|
./pkg/cfc/cfc11_forcing.F |
144 |
CFC11_FORCING |
weight = ( yC(i,j,bi,bj) - atmCFC_ySouthBnd )*recip_dLat |
|
./pkg/cfc/cfc11_forcing.F |
146 |
CFC11_FORCING |
AtmosCFC11(i,j)= weight * ACFC11north |
|
./pkg/cfc/cfc11_forcing.F |
162 |
CFC11_FORCING |
DO i=iMin,iMax |
|
./pkg/cfc/cfc11_forcing.F |
163 |
CFC11_FORCING |
gCFC11(i,j,1) = gCFC11(i,j,1) |
|
./pkg/cfc/cfc11_forcing.F |
165 |
CFC11_FORCING |
& + fluxCFC11(i,j)*recip_drF(1)*recip_hFacC(i,j,1,bi,bj) |
|
./pkg/cfc/cfc11_forcing.F |
70 |
CFC11_FORCING |
INTEGER i, j |
|
./pkg/cfc/cfc11_surfforcing.F |
101 |
CFC11_SURFFORCING |
fluxCFC11(i,j) = 0. _d 0 |
|
./pkg/cfc/cfc11_surfforcing.F |
56 |
CFC11_SURFFORCING |
INTEGER i,j,k |
|
./pkg/cfc/cfc11_surfforcing.F |
69 |
CFC11_SURFFORCING |
DO i=iMin,iMax |
|
./pkg/cfc/cfc11_surfforcing.F |
70 |
CFC11_SURFFORCING |
IF ( maskC(i,j,k,bi,bj).NE.zeroRS ) THEN |
|
./pkg/cfc/cfc11_surfforcing.F |
72 |
CFC11_SURFFORCING |
SchmidtNocfc11(i,j) = |
|
./pkg/cfc/cfc11_surfforcing.F |
74 |
CFC11_SURFFORCING |
& + sca_11_2 * theta(i,j,k,bi,bj) |
|
./pkg/cfc/cfc11_surfforcing.F |
75 |
CFC11_SURFFORCING |
& + sca_11_3 * theta(i,j,k,bi,bj)*theta(i,j,k,bi,bj) |
|
./pkg/cfc/cfc11_surfforcing.F |
76 |
CFC11_SURFFORCING |
& + sca_11_4 * theta(i,j,k,bi,bj)*theta(i,j,k,bi,bj) |
|
./pkg/cfc/cfc11_surfforcing.F |
77 |
CFC11_SURFFORCING |
& *theta(i,j,k,bi,bj) |
|
./pkg/cfc/cfc11_surfforcing.F |
79 |
CFC11_SURFFORCING |
ttemp=( theta(i,j,k,bi,bj) + 273.16 _d 0)* 0.01 _d 0 |
|
./pkg/cfc/cfc11_surfforcing.F |
81 |
CFC11_SURFFORCING |
SolCFC11(i,j) = |
|
./pkg/cfc/cfc11_surfforcing.F |
86 |
CFC11_SURFFORCING |
& + Salt(i,j,k,bi,bj)* ttemp2 ) |
|
./pkg/cfc/cfc11_surfforcing.F |
88 |
CFC11_SURFFORCING |
SolCFC11(i,j) = 1000. _d 0 * SolCFC11(i,j) |
|
./pkg/cfc/cfc11_surfforcing.F |
90 |
CFC11_SURFFORCING |
SolCFC11(i,j) = 1. _d -12 * SolCFC11(i,j) |
|
./pkg/cfc/cfc11_surfforcing.F |
92 |
CFC11_SURFFORCING |
Csat(i,j) = SolCFC11(i,j)*AtmosP(i,j,bi,bj) |
|
./pkg/cfc/cfc11_surfforcing.F |
93 |
CFC11_SURFFORCING |
& *AtmosCFC11(i,j) |
|
./pkg/cfc/cfc11_surfforcing.F |
94 |
CFC11_SURFFORCING |
Kwexch(i,j) = (1. _d 0 - fIce(i,j,bi,bj)) |
|
./pkg/cfc/cfc11_surfforcing.F |
95 |
CFC11_SURFFORCING |
& * pisVel(i,j,bi,bj) |
|
./pkg/cfc/cfc11_surfforcing.F |
96 |
CFC11_SURFFORCING |
& / SQRT(SchmidtNoCFC11(i,j)/660. _d 0) |
|
./pkg/cfc/cfc11_surfforcing.F |
97 |
CFC11_SURFFORCING |
fluxCFC11(i,j) = |
|
./pkg/cfc/cfc11_surfforcing.F |
98 |
CFC11_SURFFORCING |
& Kwexch(i,j)*(Csat(i,j) - pTr_CFC11(i,j,1)) |
|
./pkg/cfc/cfc12_forcing.F |
122 |
CFC12_FORCING |
DO i=1-OLx,sNx+OLx |
|
./pkg/cfc/cfc12_forcing.F |
124 |
CFC12_FORCING |
AtmosCFC12(i,j)=ACFC12north |
|
./pkg/cfc/cfc12_forcing.F |
129 |
CFC12_FORCING |
AtmosCFC12(i,j)=a1*ACFC12south + |
|
./pkg/cfc/cfc12_forcing.F |
133 |
CFC12_FORCING |
AtmosCFC12(i,j)=ACFC12south |
|
./pkg/cfc/cfc12_forcing.F |
144 |
CFC12_FORCING |
DO i=1-OLx,sNx+OLx |
|
./pkg/cfc/cfc12_forcing.F |
145 |
CFC12_FORCING |
weight = ( yC(i,j,bi,bj) - atmCFC_ySouthBnd )*recip_dLat |
|
./pkg/cfc/cfc12_forcing.F |
147 |
CFC12_FORCING |
AtmosCFC12(i,j)= weight * ACFC12north |
|
./pkg/cfc/cfc12_forcing.F |
163 |
CFC12_FORCING |
DO i=iMin,iMax |
|
./pkg/cfc/cfc12_forcing.F |
164 |
CFC12_FORCING |
gCFC12(i,j,1) = gCFC12(i,j,1) |
|
./pkg/cfc/cfc12_forcing.F |
166 |
CFC12_FORCING |
& + fluxCFC12(i,j)*recip_drF(1)*recip_hFacC(i,j,1,bi,bj) |
|
./pkg/cfc/cfc12_forcing.F |
71 |
CFC12_FORCING |
INTEGER i, j |
|
./pkg/cfc/cfc12_surfforcing.F |
101 |
CFC12_SURFFORCING |
fluxCFC12(i,j) = 0. _d 0 |
|
./pkg/cfc/cfc12_surfforcing.F |
56 |
CFC12_SURFFORCING |
INTEGER i,j,k |
|
./pkg/cfc/cfc12_surfforcing.F |
69 |
CFC12_SURFFORCING |
DO i=iMin,iMax |
|
./pkg/cfc/cfc12_surfforcing.F |
70 |
CFC12_SURFFORCING |
IF ( maskC(i,j,k,bi,bj).NE.zeroRS ) THEN |
|
./pkg/cfc/cfc12_surfforcing.F |
72 |
CFC12_SURFFORCING |
SchmidtNocfc12(i,j) = |
|
./pkg/cfc/cfc12_surfforcing.F |
74 |
CFC12_SURFFORCING |
& + sca_12_2 * theta(i,j,k,bi,bj) |
|
./pkg/cfc/cfc12_surfforcing.F |
75 |
CFC12_SURFFORCING |
& + sca_12_3 * theta(i,j,k,bi,bj)*theta(i,j,k,bi,bj) |
|
./pkg/cfc/cfc12_surfforcing.F |
76 |
CFC12_SURFFORCING |
& + sca_12_4 * theta(i,j,k,bi,bj)*theta(i,j,k,bi,bj) |
|
./pkg/cfc/cfc12_surfforcing.F |
77 |
CFC12_SURFFORCING |
& *theta(i,j,k,bi,bj) |
|
./pkg/cfc/cfc12_surfforcing.F |
79 |
CFC12_SURFFORCING |
ttemp=( theta(i,j,k,bi,bj) + 273.16 _d 0)* 0.01 _d 0 |
|
./pkg/cfc/cfc12_surfforcing.F |
81 |
CFC12_SURFFORCING |
SolCFC12(i,j) = |
|
./pkg/cfc/cfc12_surfforcing.F |
86 |
CFC12_SURFFORCING |
& + Salt(i,j,k,bi,bj)* ttemp2 ) |
|
./pkg/cfc/cfc12_surfforcing.F |
88 |
CFC12_SURFFORCING |
SolCFC12(i,j) = 1000. _d 0 * SolCFC12(i,j) |
|
./pkg/cfc/cfc12_surfforcing.F |
90 |
CFC12_SURFFORCING |
SolCFC12(i,j) = 1. _d -12 * SolCFC12(i,j) |
|
./pkg/cfc/cfc12_surfforcing.F |
92 |
CFC12_SURFFORCING |
Csat(i,j) = SolCFC12(i,j)*AtmosP(i,j,bi,bj) |
|
./pkg/cfc/cfc12_surfforcing.F |
93 |
CFC12_SURFFORCING |
& *AtmosCFC12(i,j) |
|
./pkg/cfc/cfc12_surfforcing.F |
94 |
CFC12_SURFFORCING |
Kwexch(i,j) = (1. _d 0 - fIce(i,j,bi,bj)) |
|
./pkg/cfc/cfc12_surfforcing.F |
95 |
CFC12_SURFFORCING |
& * pisVel(i,j,bi,bj) |
|
./pkg/cfc/cfc12_surfforcing.F |
96 |
CFC12_SURFFORCING |
& / SQRT(SchmidtNoCFC12(i,j)/660. _d 0) |
|
./pkg/cfc/cfc12_surfforcing.F |
97 |
CFC12_SURFFORCING |
fluxCFC12(i,j) = |
|
./pkg/cfc/cfc12_surfforcing.F |
98 |
CFC12_SURFFORCING |
& Kwexch(i,j)*(Csat(i,j) - pTr_CFC12(i,j,1)) |
|
./pkg/cfc/cfc_atmos.F |
40 |
CFC_ATMOS |
INTEGER iUnit, i, it, iL |
|
./pkg/cfc/cfc_atmos.F |
72 |
CFC_ATMOS |
DO i =1,6 |
|
./pkg/cfc/cfc_atmos.F |
78 |
CFC_ATMOS |
READ(iUnit,*,END=1001) (tmpVar(i),i=1,5) |
|
./pkg/cfc/cfc_fields_load.F |
171 |
CFC_FIELDS_LOAD |
DO i=1-OLx,sNx+OLx |
|
./pkg/cfc/cfc_fields_load.F |
174 |
CFC_FIELDS_LOAD |
locWind(i,j) = sh(i,j,bi,bj) |
|
./pkg/cfc/cfc_fields_load.F |
184 |
CFC_FIELDS_LOAD |
DO i=1-OLx,sNx+OLx |
|
./pkg/cfc/cfc_fields_load.F |
185 |
CFC_FIELDS_LOAD |
locWind(i,j) = bWght*wind0(i,j,bi,bj) |
|
./pkg/cfc/cfc_fields_load.F |
186 |
CFC_FIELDS_LOAD |
& + aWght*wind1(i,j,bi,bj) |
|
./pkg/cfc/cfc_fields_load.F |
191 |
CFC_FIELDS_LOAD |
DO i=1-OLx,sNx+OLx |
|
./pkg/cfc/cfc_fields_load.F |
192 |
CFC_FIELDS_LOAD |
locWind(i,j) = 5. _d 0*maskC(i,j,1,bi,bj) |
|
./pkg/cfc/cfc_fields_load.F |
200 |
CFC_FIELDS_LOAD |
DO i=1-OLx,sNx+OLx |
|
./pkg/cfc/cfc_fields_load.F |
201 |
CFC_FIELDS_LOAD |
pisVel(i,j,bi,bj)=(0.31 _d 0*locWind(i,j)**2)/3.6 _d 5 |
|
./pkg/cfc/cfc_fields_load.F |
208 |
CFC_FIELDS_LOAD |
DO i=1-OLx,sNx+OLx |
|
./pkg/cfc/cfc_fields_load.F |
209 |
CFC_FIELDS_LOAD |
ATMOSP(i,j,bi,bj) = bWght*atmosp0(i,j,bi,bj) |
|
./pkg/cfc/cfc_fields_load.F |
210 |
CFC_FIELDS_LOAD |
& + aWght*atmosp1(i,j,bi,bj) |
|
./pkg/cfc/cfc_fields_load.F |
215 |
CFC_FIELDS_LOAD |
DO i=1-OLx,sNx+OLx |
|
./pkg/cfc/cfc_fields_load.F |
216 |
CFC_FIELDS_LOAD |
ATMOSP(i,j,bi,bj) = maskC(i,j,1,bi,bj) |
|
./pkg/cfc/cfc_fields_load.F |
224 |
CFC_FIELDS_LOAD |
DO i=1-OLx,sNx+OLx |
|
./pkg/cfc/cfc_fields_load.F |
225 |
CFC_FIELDS_LOAD |
FIce(I,J,bi,bj) = iceMask(i,j,bi,bj) |
|
./pkg/cfc/cfc_fields_load.F |
232 |
CFC_FIELDS_LOAD |
DO i=1-OLx,sNx+OLx |
|
./pkg/cfc/cfc_fields_load.F |
240 |
CFC_FIELDS_LOAD |
DO i=1-OLx,sNx+OLx |
|
./pkg/cfc/cfc_fields_load.F |
241 |
CFC_FIELDS_LOAD |
FIce(i,j,bi,bj) = bWght*ice0(i,j,bi,bj) |
|
./pkg/cfc/cfc_fields_load.F |
242 |
CFC_FIELDS_LOAD |
& + aWght*ice1(i,j,bi,bj) |
|
./pkg/cfc/cfc_fields_load.F |
247 |
CFC_FIELDS_LOAD |
DO i=1-OLx,sNx+OLx |
|
./pkg/cfc/cfc_fields_load.F |
248 |
CFC_FIELDS_LOAD |
FIce(i,j,bi,bj) = 0. _d 0 |
|
./pkg/cfc/cfc_fields_load.F |
53 |
CFC_FIELDS_LOAD |
INTEGER bi, bj, i, j |
|
./pkg/cheapaml/cheapaml.F |
120 |
CHEAPAML |
DO i = 1-OLx,sNx+OLx |
|
./pkg/cheapaml/cheapaml.F |
121 |
CHEAPAML |
Qnet(i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml.F |
122 |
CHEAPAML |
EmPmR(i,j,bi,bj)= 0. _d 0 |
|
./pkg/cheapaml/cheapaml.F |
143 |
CHEAPAML |
DO i=1-OLx,sNx+OLx |
|
./pkg/cheapaml/cheapaml.F |
144 |
CHEAPAML |
gTair(i,j,bi,bj)=0. _d 0 |
|
./pkg/cheapaml/cheapaml.F |
145 |
CHEAPAML |
uTrans(i,j)=uWind(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
146 |
CHEAPAML |
vTrans(i,j)=vWind(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
181 |
CHEAPAML |
DO i=1-OLx,sNx+OLx |
|
./pkg/cheapaml/cheapaml.F |
182 |
CHEAPAML |
gqair(i,j,bi,bj)=0. _d 0 |
|
./pkg/cheapaml/cheapaml.F |
183 |
CHEAPAML |
uTrans(i,j)=uWind(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
184 |
CHEAPAML |
vTrans(i,j)=vWind(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
220 |
CHEAPAML |
DO i=1-OLx,sNx+OLx |
|
./pkg/cheapaml/cheapaml.F |
221 |
CHEAPAML |
gCheaptracer(i,j,bi,bj)=0. _d 0 |
|
./pkg/cheapaml/cheapaml.F |
222 |
CHEAPAML |
uTrans(i,j)=uWind(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
223 |
CHEAPAML |
vTrans(i,j)=vWind(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
302 |
CHEAPAML |
DO i = 1-OLx, sNx+OLx |
|
./pkg/cheapaml/cheapaml.F |
303 |
CHEAPAML |
surfDrag(i,j,bi,bj) = 0. |
|
./pkg/cheapaml/cheapaml.F |
310 |
CHEAPAML |
DO i = 1-OLx, sNx+OLx |
|
./pkg/cheapaml/cheapaml.F |
311 |
CHEAPAML |
uRelWind(i,j) = uWind(i,j,bi,bj)-uVel(i,j,1,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
312 |
CHEAPAML |
vRelWind(i,j) = vWind(i,j,bi,bj)-vVel(i,j,1,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
317 |
CHEAPAML |
DO i = iMin,iMax |
|
./pkg/cheapaml/cheapaml.F |
318 |
CHEAPAML |
windSq(i,j) = ( uRelWind( i ,j)*uRelWind( i ,j) |
|
./pkg/cheapaml/cheapaml.F |
319 |
CHEAPAML |
& + uRelWind(i+1,j)*uRelWind(i+1,j) |
|
./pkg/cheapaml/cheapaml.F |
320 |
CHEAPAML |
& + vRelWind(i, j )*vRelWind(i, j ) |
|
./pkg/cheapaml/cheapaml.F |
321 |
CHEAPAML |
& + vRelWind(i,j+1)*vRelWind(i,j+1) |
|
./pkg/cheapaml/cheapaml.F |
324 |
CHEAPAML |
windSq(i,j) = uRelWind(i,j)*uRelWind(i,j) |
|
./pkg/cheapaml/cheapaml.F |
325 |
CHEAPAML |
& + vRelWind(i,j)*vRelWind(i,j) |
|
./pkg/cheapaml/cheapaml.F |
331 |
CHEAPAML |
DO i = iMin,iMax |
|
./pkg/cheapaml/cheapaml.F |
332 |
CHEAPAML |
windSq(i,j) = ( uWind( i ,j,bi,bj)*uWind( i ,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
333 |
CHEAPAML |
& + uWind(i+1,j,bi,bj)*uWind(i+1,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
334 |
CHEAPAML |
& + vWind(i, j ,bi,bj)*vWind(i, j,bi,bj ) |
|
./pkg/cheapaml/cheapaml.F |
335 |
CHEAPAML |
& + vWind(i,j+1,bi,bj)*vWind(i,j+1,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
338 |
CHEAPAML |
windSq(i,j) = uWind(i,j,bi,bj)*uWind(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
339 |
CHEAPAML |
& + vWind(i,j,bi,bj)*vWind(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
358 |
CHEAPAML |
DO i = iMin,iMax |
|
./pkg/cheapaml/cheapaml.F |
360 |
CHEAPAML |
I i, j, bi, bj, 0, |
|
./pkg/cheapaml/cheapaml.F |
364 |
CHEAPAML |
O surfDrag(i,j,bi,bj), |
|
./pkg/cheapaml/cheapaml.F |
367 |
CHEAPAML |
Qnet(i,j,bi,bj) = ( |
|
./pkg/cheapaml/cheapaml.F |
368 |
CHEAPAML |
& -solar(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
369 |
CHEAPAML |
& +xolw0 - cheapdlongwave(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
372 |
CHEAPAML |
& )*maskC(i,j,1,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
373 |
CHEAPAML |
EmPmR(i,j,bi,bj) = evp_0 |
|
./pkg/cheapaml/cheapaml.F |
374 |
CHEAPAML |
icFrac = iceFrac(i,j) |
|
./pkg/cheapaml/cheapaml.F |
377 |
CHEAPAML |
Qsw(i,j,bi,bj) = - ( icFrac*Qsw(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
378 |
CHEAPAML |
& + opFrac*solar(i,j,bi,bj) ) |
|
./pkg/cheapaml/cheapaml.F |
379 |
CHEAPAML |
fsha(i,j) = icFrac*fsha(i,j) + opFrac*fsha0 |
|
./pkg/cheapaml/cheapaml.F |
380 |
CHEAPAML |
flha(i,j) = icFrac*flha(i,j) + opFrac*flha0 |
|
./pkg/cheapaml/cheapaml.F |
381 |
CHEAPAML |
evp(i,j) = icFrac*evp(i,j) + opFrac*evp_0 |
|
./pkg/cheapaml/cheapaml.F |
382 |
CHEAPAML |
xolw(i,j) = icFrac*xolw(i,j) + opFrac*xolw0 |
|
./pkg/cheapaml/cheapaml.F |
383 |
CHEAPAML |
ssqt(i,j) = icFrac*ssqt(i,j) + opFrac*ssqt0 |
|
./pkg/cheapaml/cheapaml.F |
384 |
CHEAPAML |
q100(i,j) = icFrac*q100(i,j) + opFrac*q100_0 |
|
./pkg/cheapaml/cheapaml.F |
385 |
CHEAPAML |
cdq(i,j) = icFrac*cdq(i,j) + opFrac*cdq_0 |
|
./pkg/cheapaml/cheapaml.F |
390 |
CHEAPAML |
DO i = iMin,iMax |
|
./pkg/cheapaml/cheapaml.F |
393 |
CHEAPAML |
I i, j, bi, bj, |
|
./pkg/cheapaml/cheapaml.F |
394 |
CHEAPAML |
O fsha(i,j), flha(i,j), evp(i,j), |
|
./pkg/cheapaml/cheapaml.F |
395 |
CHEAPAML |
O xolw(i,j), ssqt(i,j), q100(i,j) ) |
|
./pkg/cheapaml/cheapaml.F |
398 |
CHEAPAML |
I i, j, bi, bj, 0, |
|
./pkg/cheapaml/cheapaml.F |
400 |
CHEAPAML |
O fsha(i,j), flha(i,j), evp(i,j), xolw(i,j), |
|
./pkg/cheapaml/cheapaml.F |
401 |
CHEAPAML |
O ssqt(i,j), q100(i,j), cdq(i,j), |
|
./pkg/cheapaml/cheapaml.F |
402 |
CHEAPAML |
O surfDrag(i,j,bi,bj), |
|
./pkg/cheapaml/cheapaml.F |
407 |
CHEAPAML |
EmPmR(i,j,bi,bj) = evp(i,j) |
|
./pkg/cheapaml/cheapaml.F |
414 |
CHEAPAML |
DO i = iMin,iMax |
|
./pkg/cheapaml/cheapaml.F |
417 |
CHEAPAML |
ttt = Tair(i,j,bi,bj)-gamma_blk*(CheapHgrid(i,j,bi,bj)-zt) |
|
./pkg/cheapaml/cheapaml.F |
419 |
CHEAPAML |
xalwu = stefan*(0.5*Tair(i,j,bi,bj)+0.5*ttt+celsius2K)**4 |
|
./pkg/cheapaml/cheapaml.F |
422 |
CHEAPAML |
xalwd = stefan*(Tair(i,j,bi,bj)+celsius2K)**4*0.5 _d 0 |
|
./pkg/cheapaml/cheapaml.F |
424 |
CHEAPAML |
xflu = ( -solar(i,j,bi,bj) + xalwu + flha(i,j) |
|
./pkg/cheapaml/cheapaml.F |
425 |
CHEAPAML |
& )*xef*maskC(i,j,1,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
427 |
CHEAPAML |
xfld = ( -solar(i,j,bi,bj) - xalwd + xolw(i,j) |
|
./pkg/cheapaml/cheapaml.F |
428 |
CHEAPAML |
& + fsha(i,j) + flha(i,j) |
|
./pkg/cheapaml/cheapaml.F |
429 |
CHEAPAML |
& )*xef*maskC(i,j,1,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
432 |
CHEAPAML |
xlwnet = xolw(i,j)-cheapdlongwave(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
437 |
CHEAPAML |
xlwnet = 0.98 _d 0*stefan*(theta(i,j,1,bi,bj)+celsius2K)**4 |
|
./pkg/cheapaml/cheapaml.F |
438 |
CHEAPAML |
& *(0.39 _d 0 - 0.05 _d 0*SQRT(ABS(qair(i,j,bi,bj)) |
|
./pkg/cheapaml/cheapaml.F |
440 |
CHEAPAML |
& *( oneRL - (halfRL+ABS(yG(i,j,bi,bj))/230. _d 0) |
|
./pkg/cheapaml/cheapaml.F |
441 |
CHEAPAML |
& *cheapclouds(i,j,bi,bj)**2 ) |
|
./pkg/cheapaml/cheapaml.F |
442 |
CHEAPAML |
& + 4.0*0.98 _d 0*stefan*(theta(i,j,1,bi,bj)+celsius2K)**3 |
|
./pkg/cheapaml/cheapaml.F |
443 |
CHEAPAML |
& *(theta(i,j,1,bi,bj)-Tair(i,j,bi,bj)) |
|
./pkg/cheapaml/cheapaml.F |
455 |
CHEAPAML |
gTair(i,j,bi,bj)= (xfld-xflu)/CheapHgrid(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
457 |
CHEAPAML |
Qnet(i,j,bi,bj) = ( |
|
./pkg/cheapaml/cheapaml.F |
458 |
CHEAPAML |
& -solar(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
463 |
CHEAPAML |
& +fsha(i,j) |
|
./pkg/cheapaml/cheapaml.F |
464 |
CHEAPAML |
& +flha(i,j) |
|
./pkg/cheapaml/cheapaml.F |
465 |
CHEAPAML |
& )*maskC(i,j,1,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
466 |
CHEAPAML |
Qsw(i,j,bi,bj) = -solar(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
471 |
CHEAPAML |
q=q100(i,j) |
|
./pkg/cheapaml/cheapaml.F |
476 |
CHEAPAML |
ts=Tair(i,j,bi,bj)+gamma_blk*zt+celsius2K |
|
./pkg/cheapaml/cheapaml.F |
477 |
CHEAPAML |
pt=p0*(1-gamma_blk*CheapHgrid(i,j,bi,bj)/ts) |
|
./pkg/cheapaml/cheapaml.F |
485 |
CHEAPAML |
IF ( wWind(i,j,bi,bj).GT.0. .AND. |
|
./pkg/cheapaml/cheapaml.F |
486 |
CHEAPAML |
& q.GT.ssqt(i,j)*0.7 _d 0 ) THEN |
|
./pkg/cheapaml/cheapaml.F |
488 |
CHEAPAML |
& + ( (q-ssqt(i,j)*0.7 _d 0)*dm/cheap_pr2 ) |
|
./pkg/cheapaml/cheapaml.F |
489 |
CHEAPAML |
& *(wWind(i,j,bi,bj)/0.75 _d -5)**2 |
|
./pkg/cheapaml/cheapaml.F |
493 |
CHEAPAML |
IF (q.GT.0.0214 _d 0 .AND. q.GT.ssqt(i,j)*0.9 _d 0) THEN |
|
./pkg/cheapaml/cheapaml.F |
494 |
CHEAPAML |
precip = precip + ((q-ssqt(i,j)*0.9 _d 0)*dm/cheap_pr1) |
|
./pkg/cheapaml/cheapaml.F |
497 |
CHEAPAML |
cheapPrecip(i,j,bi,bj) = precip*1200/CheapHgrid(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
500 |
CHEAPAML |
entrain = cdq(i,j)*q*0.25 |
|
./pkg/cheapaml/cheapaml.F |
503 |
CHEAPAML |
gqair(i,j,bi,bj) = (evp(i,j)-entrain)/CheapHgrid(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
504 |
CHEAPAML |
& /rhoa*maskC(i,j,1,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
505 |
CHEAPAML |
EmPmR(i,j,bi,bj) = ( EmPmR(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
506 |
CHEAPAML |
& -cheapPrecip(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
507 |
CHEAPAML |
& )*maskC(i,j,1,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
523 |
CHEAPAML |
DO i=1-OLx,sNx+OLx |
|
./pkg/cheapaml/cheapaml.F |
524 |
CHEAPAML |
dtemp=tr(i,j,bi,bj)-Tair(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
525 |
CHEAPAML |
Tair(i,j,bi,bj)=Tair(i,j,bi,bj)+dtemp*xrelf(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
538 |
CHEAPAML |
DO i=1-OLx,sNx+OLx |
|
./pkg/cheapaml/cheapaml.F |
539 |
CHEAPAML |
dq=qr(i,j,bi,bj)-qair(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
540 |
CHEAPAML |
qair(i,j,bi,bj)=qair(i,j,bi,bj)+dq*xrelf(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
541 |
CHEAPAML |
IF (qair(i,j,bi,bj).LT.0.0) qair(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/cheapaml/cheapaml.F |
54 |
CHEAPAML |
INTEGER i,j, nt, startAB |
|
./pkg/cheapaml/cheapaml.F |
550 |
CHEAPAML |
DO i=1-OLx,sNx+OLx |
|
./pkg/cheapaml/cheapaml.F |
551 |
CHEAPAML |
dtr=CheaptracerR(i,j,bi,bj)-Cheaptracer(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
552 |
CHEAPAML |
Cheaptracer(i,j,bi,bj) = Cheaptracer(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
553 |
CHEAPAML |
& + dtr*xrelf(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
633 |
CHEAPAML |
DO i = 1-OLx+1,sNx+OLx |
|
./pkg/cheapaml/cheapaml.F |
634 |
CHEAPAML |
fu(i,j,bi,bj) = maskW(i,j,1,bi,bj)*0.5 _d 0 |
|
./pkg/cheapaml/cheapaml.F |
635 |
CHEAPAML |
& *( surfDrag(i-1,j,bi,bj) + surfDrag(i,j,bi,bj) ) |
|
./pkg/cheapaml/cheapaml.F |
636 |
CHEAPAML |
& *( uWind(i,j,bi,bj)-uVel(i,j,1,bi,bj) ) |
|
./pkg/cheapaml/cheapaml.F |
637 |
CHEAPAML |
fv(i,j,bi,bj) = maskS(i,j,1,bi,bj)*0.5 _d 0 |
|
./pkg/cheapaml/cheapaml.F |
638 |
CHEAPAML |
& *( surfDrag(i,j-1,bi,bj) + surfDrag(i,j,bi,bj) ) |
|
./pkg/cheapaml/cheapaml.F |
639 |
CHEAPAML |
& *( vWind(i,j,bi,bj)-vVel(i,j,1,bi,bj) ) |
|
./pkg/cheapaml/cheapaml.F |
644 |
CHEAPAML |
DO i = 1-OLx+1,sNx+OLx |
|
./pkg/cheapaml/cheapaml.F |
645 |
CHEAPAML |
fu(i,j,bi,bj) = maskW(i,j,1,bi,bj)*0.5 _d 0 |
|
./pkg/cheapaml/cheapaml.F |
646 |
CHEAPAML |
& *( surfDrag(i-1,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
647 |
CHEAPAML |
& *( uWind(i-1,j,bi,bj)-uVel(i-1,j,1,bi,bj) ) |
|
./pkg/cheapaml/cheapaml.F |
648 |
CHEAPAML |
& + surfDrag(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
649 |
CHEAPAML |
& *( uWind(i,j,bi,bj) - uVel(i,j,1,bi,bj) ) ) |
|
./pkg/cheapaml/cheapaml.F |
653 |
CHEAPAML |
DO i = 1-OLx,sNx+OLx |
|
./pkg/cheapaml/cheapaml.F |
654 |
CHEAPAML |
fv(i,j,bi,bj) = maskS(i,j,1,bi,bj)*0.5 _d 0 |
|
./pkg/cheapaml/cheapaml.F |
655 |
CHEAPAML |
& *( surfDrag(i,j-1,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
656 |
CHEAPAML |
& *( vWind(i,j-1,bi,bj)-vVel(i,j-1,1,bi,bj) ) |
|
./pkg/cheapaml/cheapaml.F |
657 |
CHEAPAML |
& + surfDrag(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
658 |
CHEAPAML |
& *( vWind(i,j,bi,bj) - vVel(i,j,1,bi,bj) ) ) |
|
./pkg/cheapaml/cheapaml.F |
665 |
CHEAPAML |
DO i = 1-OLx+1,sNx+OLx |
|
./pkg/cheapaml/cheapaml.F |
666 |
CHEAPAML |
fu(i,j,bi,bj) = maskW(i,j,1,bi,bj)*0.5 _d 0 |
|
./pkg/cheapaml/cheapaml.F |
667 |
CHEAPAML |
& *( surfDrag(i-1,j,bi,bj) + surfDrag(i,j,bi,bj) ) |
|
./pkg/cheapaml/cheapaml.F |
668 |
CHEAPAML |
& *uWind(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
669 |
CHEAPAML |
fv(i,j,bi,bj) = maskS(i,j,1,bi,bj)*0.5 _d 0 |
|
./pkg/cheapaml/cheapaml.F |
670 |
CHEAPAML |
& *( surfDrag(i,j-1,bi,bj) + surfDrag(i,j,bi,bj) ) |
|
./pkg/cheapaml/cheapaml.F |
671 |
CHEAPAML |
& *vWind(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
676 |
CHEAPAML |
DO i = 1-OLx+1,sNx+OLx |
|
./pkg/cheapaml/cheapaml.F |
677 |
CHEAPAML |
fu(i,j,bi,bj) = maskW(i,j,1,bi,bj)*0.5 _d 0 |
|
./pkg/cheapaml/cheapaml.F |
678 |
CHEAPAML |
& *( surfDrag(i-1,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
679 |
CHEAPAML |
& *uWind(i-1,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
680 |
CHEAPAML |
& + surfDrag(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
681 |
CHEAPAML |
& *uWind(i,j,bi,bj)) |
|
./pkg/cheapaml/cheapaml.F |
685 |
CHEAPAML |
DO i = 1-OLx,sNx+OLx |
|
./pkg/cheapaml/cheapaml.F |
686 |
CHEAPAML |
fv(i,j,bi,bj) = maskS(i,j,1,bi,bj)*0.5 _d 0 |
|
./pkg/cheapaml/cheapaml.F |
687 |
CHEAPAML |
& *( surfDrag(i,j-1,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
688 |
CHEAPAML |
& *vWind(i,j-1,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
689 |
CHEAPAML |
& + surfDrag(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
690 |
CHEAPAML |
& *vWind(i,j,bi,bj)) |
|
./pkg/cheapaml/cheapaml.F |
700 |
CHEAPAML |
DO i = 1-OLx+1,sNx+OLx |
|
./pkg/cheapaml/cheapaml.F |
701 |
CHEAPAML |
fu(i,j,bi,bj) = maskW(i,j,1,bi,bj)*0.5 _d 0 |
|
./pkg/cheapaml/cheapaml.F |
702 |
CHEAPAML |
& *( ustress(i,j,bi,bj) + ustress(i-1,j,bi,bj) ) |
|
./pkg/cheapaml/cheapaml.F |
706 |
CHEAPAML |
DO i = 1-OLx,sNx+OLx |
|
./pkg/cheapaml/cheapaml.F |
707 |
CHEAPAML |
fv(i,j,bi,bj) = maskS(i,j,1,bi,bj)*0.5 _d 0 |
|
./pkg/cheapaml/cheapaml.F |
708 |
CHEAPAML |
& *( vstress(i,j,bi,bj) + vstress(i,j-1,bi,bj) ) |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
107 |
CHEAPAML_COARE3_FLUX |
q=qair(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
113 |
CHEAPAML_COARE3_FLUX |
cwave=gravity*wavesp(i,j,bi,bj)/twoPI |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
114 |
CHEAPAML_COARE3_FLUX |
lwave=cwave*wavesp(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
123 |
CHEAPAML_COARE3_FLUX |
u = windSq(i,j) |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
182 |
CHEAPAML_COARE3_FLUX |
zo=1200. _d 0*wavesh(i,j,bi,bj)*(wavesh(i,j,bi,bj)/lwave)**4.5 |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
18 |
CHEAPAML_COARE3_FLUX |
I i,j,bi,bj, iceOrNot, |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
192 |
CHEAPAML_COARE3_FLUX |
& ' , in: i,j,bi,bj,thid=', i, j, bi, bj, myThid |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
42 |
CHEAPAML_COARE3_FLUX |
INTEGER i,j,bi,bj |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
79 |
CHEAPAML_COARE3_FLUX |
tsw = tSurf(i,j) |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
80 |
CHEAPAML_COARE3_FLUX |
Tas = Tair(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_copy_edges.F |
45 |
CHEAPAML_COPY_EDGES |
INTEGER i, j, iG, jG |
|
./pkg/cheapaml/cheapaml_copy_edges.F |
57 |
CHEAPAML_COPY_EDGES |
DO i=1-OLx,1 |
|
./pkg/cheapaml/cheapaml_copy_edges.F |
58 |
CHEAPAML_COPY_EDGES |
trcFld(i,j) = refFld(i,j) |
|
./pkg/cheapaml/cheapaml_copy_edges.F |
65 |
CHEAPAML_COPY_EDGES |
DO i=sNx,sNx+OLx |
|
./pkg/cheapaml/cheapaml_copy_edges.F |
66 |
CHEAPAML_COPY_EDGES |
trcFld(i,j) = refFld(i,j) |
|
./pkg/cheapaml/cheapaml_copy_edges.F |
76 |
CHEAPAML_COPY_EDGES |
DO i=1-OLx,sNx+OLx |
|
./pkg/cheapaml/cheapaml_copy_edges.F |
77 |
CHEAPAML_COPY_EDGES |
trcFld(i,j) = refFld(i,j) |
|
./pkg/cheapaml/cheapaml_copy_edges.F |
84 |
CHEAPAML_COPY_EDGES |
DO i=1-OLx,sNx+OLx |
|
./pkg/cheapaml/cheapaml_copy_edges.F |
85 |
CHEAPAML_COPY_EDGES |
trcFld(i,j) = refFld(i,j) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
103 |
CHEAPAML_FIELDS_LOAD |
INTEGER i, j, iG, jG |
|
./pkg/cheapaml/cheapaml_fields_load.F |
131 |
CHEAPAML_FIELDS_LOAD |
DO i=1-OLx,sNx+OLx |
|
./pkg/cheapaml/cheapaml_fields_load.F |
132 |
CHEAPAML_FIELDS_LOAD |
trair0 (i,j,bi,bj) = 0. |
|
./pkg/cheapaml/cheapaml_fields_load.F |
133 |
CHEAPAML_FIELDS_LOAD |
trair1 (i,j,bi,bj) = 0. |
|
./pkg/cheapaml/cheapaml_fields_load.F |
134 |
CHEAPAML_FIELDS_LOAD |
qrair0 (i,j,bi,bj) = 0. |
|
./pkg/cheapaml/cheapaml_fields_load.F |
135 |
CHEAPAML_FIELDS_LOAD |
qrair1 (i,j,bi,bj) = 0. |
|
./pkg/cheapaml/cheapaml_fields_load.F |
136 |
CHEAPAML_FIELDS_LOAD |
solar0 (i,j,bi,bj) = 0. |
|
./pkg/cheapaml/cheapaml_fields_load.F |
137 |
CHEAPAML_FIELDS_LOAD |
solar1 (i,j,bi,bj) = 0. |
|
./pkg/cheapaml/cheapaml_fields_load.F |
138 |
CHEAPAML_FIELDS_LOAD |
uWind0 (i,j,bi,bj) = 0. |
|
./pkg/cheapaml/cheapaml_fields_load.F |
139 |
CHEAPAML_FIELDS_LOAD |
uWind1 (i,j,bi,bj) = 0. |
|
./pkg/cheapaml/cheapaml_fields_load.F |
140 |
CHEAPAML_FIELDS_LOAD |
vWind0 (i,j,bi,bj) = 0. |
|
./pkg/cheapaml/cheapaml_fields_load.F |
141 |
CHEAPAML_FIELDS_LOAD |
vWind1 (i,j,bi,bj) = 0. |
|
./pkg/cheapaml/cheapaml_fields_load.F |
142 |
CHEAPAML_FIELDS_LOAD |
cheaph0 (i,j,bi,bj) = 0. |
|
./pkg/cheapaml/cheapaml_fields_load.F |
143 |
CHEAPAML_FIELDS_LOAD |
cheaph1 (i,j,bi,bj) = 0. |
|
./pkg/cheapaml/cheapaml_fields_load.F |
144 |
CHEAPAML_FIELDS_LOAD |
cheapcl0(i,j,bi,bj) = 0.5 |
|
./pkg/cheapaml/cheapaml_fields_load.F |
145 |
CHEAPAML_FIELDS_LOAD |
cheapcl1(i,j,bi,bj) = 0.5 |
|
./pkg/cheapaml/cheapaml_fields_load.F |
146 |
CHEAPAML_FIELDS_LOAD |
cheaplw0(i,j,bi,bj) = 0. |
|
./pkg/cheapaml/cheapaml_fields_load.F |
147 |
CHEAPAML_FIELDS_LOAD |
cheaplw1(i,j,bi,bj) = 0. |
|
./pkg/cheapaml/cheapaml_fields_load.F |
148 |
CHEAPAML_FIELDS_LOAD |
cheappr0(i,j,bi,bj) = 0. |
|
./pkg/cheapaml/cheapaml_fields_load.F |
149 |
CHEAPAML_FIELDS_LOAD |
cheappr1(i,j,bi,bj) = 0. |
|
./pkg/cheapaml/cheapaml_fields_load.F |
150 |
CHEAPAML_FIELDS_LOAD |
ustress0(i,j,bi,bj) = 0. |
|
./pkg/cheapaml/cheapaml_fields_load.F |
151 |
CHEAPAML_FIELDS_LOAD |
ustress1(i,j,bi,bj) = 0. |
|
./pkg/cheapaml/cheapaml_fields_load.F |
152 |
CHEAPAML_FIELDS_LOAD |
vstress0(i,j,bi,bj) = 0. |
|
./pkg/cheapaml/cheapaml_fields_load.F |
153 |
CHEAPAML_FIELDS_LOAD |
vstress1(i,j,bi,bj) = 0. |
|
./pkg/cheapaml/cheapaml_fields_load.F |
154 |
CHEAPAML_FIELDS_LOAD |
wavesh0 (i,j,bi,bj) = 0. |
|
./pkg/cheapaml/cheapaml_fields_load.F |
155 |
CHEAPAML_FIELDS_LOAD |
wavesh1 (i,j,bi,bj) = 0. |
|
./pkg/cheapaml/cheapaml_fields_load.F |
156 |
CHEAPAML_FIELDS_LOAD |
wavesp0 (i,j,bi,bj) = 0. |
|
./pkg/cheapaml/cheapaml_fields_load.F |
157 |
CHEAPAML_FIELDS_LOAD |
wavesp1 (i,j,bi,bj) = 0. |
|
./pkg/cheapaml/cheapaml_fields_load.F |
160 |
CHEAPAML_FIELDS_LOAD |
CheaptracerR0 (i,j,bi,bj) = 0. |
|
./pkg/cheapaml/cheapaml_fields_load.F |
161 |
CHEAPAML_FIELDS_LOAD |
CheaptracerR1 (i,j,bi,bj) = 0. |
|
./pkg/cheapaml/cheapaml_fields_load.F |
188 |
CHEAPAML_FIELDS_LOAD |
DO i=1,sNx |
|
./pkg/cheapaml/cheapaml_fields_load.F |
189 |
CHEAPAML_FIELDS_LOAD |
Solar(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/cheapaml/cheapaml_fields_load.F |
206 |
CHEAPAML_FIELDS_LOAD |
DO i=1,sNx |
|
./pkg/cheapaml/cheapaml_fields_load.F |
207 |
CHEAPAML_FIELDS_LOAD |
TR(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/cheapaml/cheapaml_fields_load.F |
224 |
CHEAPAML_FIELDS_LOAD |
DO i=1,sNx |
|
./pkg/cheapaml/cheapaml_fields_load.F |
225 |
CHEAPAML_FIELDS_LOAD |
qr(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/cheapaml/cheapaml_fields_load.F |
242 |
CHEAPAML_FIELDS_LOAD |
DO i=1,sNx |
|
./pkg/cheapaml/cheapaml_fields_load.F |
243 |
CHEAPAML_FIELDS_LOAD |
uWind(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/cheapaml/cheapaml_fields_load.F |
263 |
CHEAPAML_FIELDS_LOAD |
DO i=1,sNx |
|
./pkg/cheapaml/cheapaml_fields_load.F |
264 |
CHEAPAML_FIELDS_LOAD |
vWind(i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_fields_load.F |
331 |
CHEAPAML_FIELDS_LOAD |
DO i=1,sNx |
|
./pkg/cheapaml/cheapaml_fields_load.F |
332 |
CHEAPAML_FIELDS_LOAD |
CheaptracerR(i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_fields_load.F |
386 |
CHEAPAML_FIELDS_LOAD |
DO i=1-OLx,sNx+OLx |
|
./pkg/cheapaml/cheapaml_fields_load.F |
387 |
CHEAPAML_FIELDS_LOAD |
TR(i,j,bi,bj) = bWght*trair0(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
388 |
CHEAPAML_FIELDS_LOAD |
& + aWght*trair1(i,j,bi,bj) !+273.15 |
|
./pkg/cheapaml/cheapaml_fields_load.F |
389 |
CHEAPAML_FIELDS_LOAD |
qr(i,j,bi,bj) = bWght*qrair0(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
390 |
CHEAPAML_FIELDS_LOAD |
& + aWght*qrair1(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
391 |
CHEAPAML_FIELDS_LOAD |
uWind(i,j,bi,bj) = bWght*uWind0(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
392 |
CHEAPAML_FIELDS_LOAD |
& + aWght*uWind1(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
393 |
CHEAPAML_FIELDS_LOAD |
vWind(i,j,bi,bj) = bWght*vWind0(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
394 |
CHEAPAML_FIELDS_LOAD |
& + aWght*vWind1(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
395 |
CHEAPAML_FIELDS_LOAD |
solar(i,j,bi,bj) = bWght*solar0(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
396 |
CHEAPAML_FIELDS_LOAD |
& + aWght*solar1(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
398 |
CHEAPAML_FIELDS_LOAD |
ustress(i,j,bi,bj) = bWght*ustress0(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
399 |
CHEAPAML_FIELDS_LOAD |
& + aWght*ustress1(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
400 |
CHEAPAML_FIELDS_LOAD |
vstress(i,j,bi,bj) = bWght*vstress0(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
401 |
CHEAPAML_FIELDS_LOAD |
& + aWght*vstress1(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
404 |
CHEAPAML_FIELDS_LOAD |
CheapHgrid(i,j,bi,bj) = bWght*cheaph0(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
405 |
CHEAPAML_FIELDS_LOAD |
& + aWght*cheaph1(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
408 |
CHEAPAML_FIELDS_LOAD |
cheapclouds(i,j,bi,bj) = bWght*cheapcl0(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
409 |
CHEAPAML_FIELDS_LOAD |
& + aWght*cheapcl1(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
412 |
CHEAPAML_FIELDS_LOAD |
cheapdlongwave(i,j,bi,bj) = bWght*cheaplw0(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
413 |
CHEAPAML_FIELDS_LOAD |
& + aWght*cheaplw1(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
416 |
CHEAPAML_FIELDS_LOAD |
cheapPrecip(i,j,bi,bj) = bWght*cheappr0(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
417 |
CHEAPAML_FIELDS_LOAD |
& + aWght*cheappr1(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
420 |
CHEAPAML_FIELDS_LOAD |
CheaptracerR(i,j,bi,bj) = bWght*CheaptracerR0(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
421 |
CHEAPAML_FIELDS_LOAD |
& + aWght*CheaptracerR1(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
425 |
CHEAPAML_FIELDS_LOAD |
wavesh(i,j,bi,bj) = bWght*wavesh0(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
426 |
CHEAPAML_FIELDS_LOAD |
& + aWght*wavesh1(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
429 |
CHEAPAML_FIELDS_LOAD |
wavesp(i,j,bi,bj) = bWght*wavesp0(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
430 |
CHEAPAML_FIELDS_LOAD |
& + aWght*wavesp1(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
433 |
CHEAPAML_FIELDS_LOAD |
u = uWind(i,j,bi,bj)**2 + vWind(i,j,bi,bj)**2 |
|
./pkg/cheapaml/cheapaml_fields_load.F |
435 |
CHEAPAML_FIELDS_LOAD |
wavesp(i,j,bi,bj) = 0.729 _d 0 * u |
|
./pkg/cheapaml/cheapaml_fields_load.F |
436 |
CHEAPAML_FIELDS_LOAD |
wavesh(i,j,bi,bj) = 0.018 _d 0 * u*u*(1. + .015 _d 0 *u) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
454 |
CHEAPAML_FIELDS_LOAD |
DO i=1,sNx |
|
./pkg/cheapaml/cheapaml_fields_load.F |
457 |
CHEAPAML_FIELDS_LOAD |
Solar(i,j,bi,bj) = local |
|
./pkg/cheapaml/cheapaml_fields_load.F |
471 |
CHEAPAML_FIELDS_LOAD |
DO i=1,sNx |
|
./pkg/cheapaml/cheapaml_fields_load.F |
472 |
CHEAPAML_FIELDS_LOAD |
local = solar(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
474 |
CHEAPAML_FIELDS_LOAD |
TR(i,j,bi,bj) = local |
|
./pkg/cheapaml/cheapaml_fields_load.F |
490 |
CHEAPAML_FIELDS_LOAD |
DO i=1,sNx |
|
./pkg/cheapaml/cheapaml_fields_load.F |
491 |
CHEAPAML_FIELDS_LOAD |
local = Tr(i,j,bi,bj) + celsius2K |
|
./pkg/cheapaml/cheapaml_fields_load.F |
493 |
CHEAPAML_FIELDS_LOAD |
qr(i,j,bi,bj) = 0.8 _d 0*ssqa |
|
./pkg/cheapaml/cheapaml_fields_load.F |
507 |
CHEAPAML_FIELDS_LOAD |
DO i=1,sNx |
|
./pkg/cheapaml/cheapaml_fields_load.F |
514 |
CHEAPAML_FIELDS_LOAD |
uWind(i,j,bi,bj) = local |
|
./pkg/cheapaml/cheapaml_fields_load.F |
527 |
CHEAPAML_FIELDS_LOAD |
DO i=1,sNx |
|
./pkg/cheapaml/cheapaml_fields_load.F |
528 |
CHEAPAML_FIELDS_LOAD |
vWind(i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_fields_load.F |
558 |
CHEAPAML_FIELDS_LOAD |
DO i=1,sNx |
|
./pkg/cheapaml/cheapaml_fields_load.F |
559 |
CHEAPAML_FIELDS_LOAD |
CheaptracerR(i,j,bi,bj)=290. _d 0 |
|
./pkg/cheapaml/cheapaml_fields_load.F |
577 |
CHEAPAML_FIELDS_LOAD |
DO i=1,sNx |
|
./pkg/cheapaml/cheapaml_fields_load.F |
578 |
CHEAPAML_FIELDS_LOAD |
u = uWind(i,j,bi,bj)**2 + vWind(i,j,bi,bj)**2 |
|
./pkg/cheapaml/cheapaml_fields_load.F |
580 |
CHEAPAML_FIELDS_LOAD |
wavesp(i,j,bi,bj)=0.729 _d 0 * u |
|
./pkg/cheapaml/cheapaml_fields_load.F |
581 |
CHEAPAML_FIELDS_LOAD |
wavesh(i,j,bi,bj)=0.018 _d 0 * u*u*(1. + .015 _d 0 *u) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
600 |
CHEAPAML_FIELDS_LOAD |
DO i=1,sNx |
|
./pkg/cheapaml/cheapaml_fields_load.F |
601 |
CHEAPAML_FIELDS_LOAD |
Cheapclouds(i,j,bi,bj)=0.5 |
|
./pkg/cheapaml/cheapaml_fields_load.F |
628 |
CHEAPAML_FIELDS_LOAD |
DO i=1,sNx |
|
./pkg/cheapaml/cheapaml_fields_load.F |
629 |
CHEAPAML_FIELDS_LOAD |
CheapPrecip(i,j,bi,bj)=0.0 |
|
./pkg/cheapaml/cheapaml_fields_load.F |
651 |
CHEAPAML_FIELDS_LOAD |
DO i=1-OLx,sNx+OLx |
|
./pkg/cheapaml/cheapaml_fields_load.F |
652 |
CHEAPAML_FIELDS_LOAD |
iG=myXGlobalLo-1+(bi-1)*sNx+i |
|
./pkg/cheapaml/cheapaml_fields_load.F |
656 |
CHEAPAML_FIELDS_LOAD |
Tr(i,j,bi,bj)=Tr(1,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
657 |
CHEAPAML_FIELDS_LOAD |
qr(i,j,bi,bj)=qr(1,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
658 |
CHEAPAML_FIELDS_LOAD |
uWind(i,j,bi,bj)=uWind(2,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
659 |
CHEAPAML_FIELDS_LOAD |
vWind(i,j,bi,bj)=vWind(1,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
660 |
CHEAPAML_FIELDS_LOAD |
Solar(i,j,bi,bj)=Solar(1,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
662 |
CHEAPAML_FIELDS_LOAD |
ustress(i,j,bi,bj)=ustress(1,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
663 |
CHEAPAML_FIELDS_LOAD |
vstress(i,j,bi,bj)=vstress(1,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
666 |
CHEAPAML_FIELDS_LOAD |
CheaptracerR(i,j,bi,bj)=CheaptracerR(1,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
669 |
CHEAPAML_FIELDS_LOAD |
wavesp(i,j,bi,bj)=wavesp(1,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
670 |
CHEAPAML_FIELDS_LOAD |
wavesh(i,j,bi,bj)=wavesh(1,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
673 |
CHEAPAML_FIELDS_LOAD |
Cheapclouds(i,j,bi,bj)=Cheapclouds(1,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
676 |
CHEAPAML_FIELDS_LOAD |
Cheapdlongwave(i,j,bi,bj)=Cheapdlongwave(1,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
681 |
CHEAPAML_FIELDS_LOAD |
uWind(i,j,bi,bj)=uWind(2,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
685 |
CHEAPAML_FIELDS_LOAD |
Tr(i,j,bi,bj)=Tr(sNx,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
686 |
CHEAPAML_FIELDS_LOAD |
qr(i,j,bi,bj)=qr(sNx,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
687 |
CHEAPAML_FIELDS_LOAD |
uWind(i,j,bi,bj)=uWind(sNx,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
688 |
CHEAPAML_FIELDS_LOAD |
vWind(i,j,bi,bj)=vWind(sNx,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
689 |
CHEAPAML_FIELDS_LOAD |
Solar(i,j,bi,bj)=Solar(sNx,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
691 |
CHEAPAML_FIELDS_LOAD |
ustress(i,j,bi,bj)=ustress(sNx,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
692 |
CHEAPAML_FIELDS_LOAD |
vstress(i,j,bi,bj)=vstress(sNx,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
695 |
CHEAPAML_FIELDS_LOAD |
CheaptracerR(i,j,bi,bj)=CheaptracerR(sNx,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
698 |
CHEAPAML_FIELDS_LOAD |
wavesp(i,j,bi,bj)=wavesp(sNx,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
699 |
CHEAPAML_FIELDS_LOAD |
wavesh(i,j,bi,bj)=wavesh(sNx,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
702 |
CHEAPAML_FIELDS_LOAD |
Cheapclouds(i,j,bi,bj)=Cheapclouds(sNx,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
705 |
CHEAPAML_FIELDS_LOAD |
Cheapdlongwave(i,j,bi,bj)=Cheapdlongwave(sNx,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
710 |
CHEAPAML_FIELDS_LOAD |
Tr(i,j,bi,bj)=Tr(i,1,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
711 |
CHEAPAML_FIELDS_LOAD |
qr(i,j,bi,bj)=qr(i,1,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
712 |
CHEAPAML_FIELDS_LOAD |
uWind(i,j,bi,bj)=uWind(i,1,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
713 |
CHEAPAML_FIELDS_LOAD |
vWind(i,j,bi,bj)=vWind(i,2,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
714 |
CHEAPAML_FIELDS_LOAD |
Solar(i,j,bi,bj)=Solar(i,1,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
716 |
CHEAPAML_FIELDS_LOAD |
ustress(i,j,bi,bj)=ustress(i,1,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
717 |
CHEAPAML_FIELDS_LOAD |
vstress(i,j,bi,bj)=vstress(i,1,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
720 |
CHEAPAML_FIELDS_LOAD |
CheaptracerR(i,j,bi,bj)=CheaptracerR(i,1,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
723 |
CHEAPAML_FIELDS_LOAD |
Cheapclouds(i,j,bi,bj)=Cheapclouds(i,1,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
726 |
CHEAPAML_FIELDS_LOAD |
Cheapdlongwave(i,j,bi,bj)=Cheapdlongwave(i,1,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
729 |
CHEAPAML_FIELDS_LOAD |
wavesp(i,j,bi,bj)=wavesp(i,1,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
730 |
CHEAPAML_FIELDS_LOAD |
wavesh(i,j,bi,bj)=wavesh(i,1,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
735 |
CHEAPAML_FIELDS_LOAD |
vWind(i,j,bi,bj)=vWind(i,2,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
739 |
CHEAPAML_FIELDS_LOAD |
Tr(i,j,bi,bj)=Tr(i,sNy,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
740 |
CHEAPAML_FIELDS_LOAD |
qr(i,j,bi,bj)=qr(i,sNy,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
741 |
CHEAPAML_FIELDS_LOAD |
uWind(i,j,bi,bj)=uWind(i,sNy,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
742 |
CHEAPAML_FIELDS_LOAD |
vWind(i,j,bi,bj)=vWind(i,sNy,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
743 |
CHEAPAML_FIELDS_LOAD |
Solar(i,j,bi,bj)=Solar(i,sNy,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
745 |
CHEAPAML_FIELDS_LOAD |
ustress(i,j,bi,bj)=ustress(i,sNy,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
746 |
CHEAPAML_FIELDS_LOAD |
vstress(i,j,bi,bj)=vstress(i,sNy,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
749 |
CHEAPAML_FIELDS_LOAD |
CheaptracerR(i,j,bi,bj)=CheaptracerR(i,sNy,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
752 |
CHEAPAML_FIELDS_LOAD |
wavesp(i,j,bi,bj)=wavesp(i,sNy,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
753 |
CHEAPAML_FIELDS_LOAD |
wavesh(i,j,bi,bj)=wavesh(i,sNy,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
756 |
CHEAPAML_FIELDS_LOAD |
Cheapclouds(i,j,bi,bj)=Cheapclouds(i,sNy,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
759 |
CHEAPAML_FIELDS_LOAD |
Cheapdlongwave(i,j,bi,bj)=Cheapdlongwave(i,sNy,bi,bj) |
|
./pkg/cheapaml/cheapaml_gad_c2_adv_r.F |
48 |
CHEAPAML_GAD_C2_ADV_R |
INTEGER i,j |
|
./pkg/cheapaml/cheapaml_gad_c2_adv_r.F |
54 |
CHEAPAML_GAD_C2_ADV_R |
DO i=1,sNx |
|
./pkg/cheapaml/cheapaml_gad_c2_adv_r.F |
55 |
CHEAPAML_GAD_C2_ADV_R |
wT(i,j) = rTrans(i,j)* |
|
./pkg/cheapaml/cheapaml_gad_c2_adv_r.F |
56 |
CHEAPAML_GAD_C2_ADV_R |
& (Tracer(i,j)+Tracer(i,j))*0.5 _d 0 |
|
./eesupp/src/reset_halo.F |
114 |
RESET_HALO_RS |
INTEGER ii, i, j |
|
./eesupp/src/reset_halo.F |
124 |
RESET_HALO_RS |
DO i=1-OLx,sNx+OLx |
|
./eesupp/src/reset_halo.F |
125 |
RESET_HALO_RS |
glFld(i,j,k,bi,bj) = fixVal |
|
./eesupp/src/reset_halo.F |
129 |
RESET_HALO_RS |
i = ii |
|
./eesupp/src/reset_halo.F |
130 |
RESET_HALO_RS |
IF ( ii.GE.1 ) i= ii+sNx |
|
./eesupp/src/reset_halo.F |
131 |
RESET_HALO_RS |
glFld(i,j,k,bi,bj) = fixVal |
|
./eesupp/src/reset_halo.F |
47 |
RESET_HALO_RL |
INTEGER ii, i, j |
|
./eesupp/src/reset_halo.F |
57 |
RESET_HALO_RL |
DO i=1-OLx,sNx+OLx |
|
./eesupp/src/reset_halo.F |
58 |
RESET_HALO_RL |
glFld(i,j,k,bi,bj) = fixVal |
|
./eesupp/src/reset_halo.F |
62 |
RESET_HALO_RL |
i = ii |
|
./eesupp/src/reset_halo.F |
63 |
RESET_HALO_RL |
IF ( ii.GE.1 ) i= ii+sNx |
|
./eesupp/src/reset_halo.F |
64 |
RESET_HALO_RL |
glFld(i,j,k,bi,bj) = fixVal |
|
./pkg/cheapaml/cheapaml_gad_dst3fl_adv_r.F |
53 |
CHEAPAML_GAD_DST3FL_ADV_R |
INTEGER i,j |
|
./pkg/cheapaml/cheapaml_gad_dst3fl_adv_r.F |
67 |
CHEAPAML_GAD_DST3FL_ADV_R |
DO i=1,sNx |
|
./pkg/cheapaml/cheapaml_gad_dst3fl_adv_r.F |
69 |
CHEAPAML_GAD_DST3FL_ADV_R |
wLoc = rTrans(i,j) |
|
./pkg/cheapaml/cheapaml_gad_dst3fl_adv_r.F |
85 |
CHEAPAML_GAD_DST3FL_ADV_R |
wT(i,j)= |
|
./pkg/cheapaml/cheapaml_gad_dst3fl_adv_r.F |
86 |
CHEAPAML_GAD_DST3FL_ADV_R |
& 0.5*(rTrans(i,j)+ABS(rTrans(i,j))) |
|
./pkg/cheapaml/cheapaml_gad_dst3fl_adv_r.F |
87 |
CHEAPAML_GAD_DST3FL_ADV_R |
& *( tracer(i,j ) + psiM*Rj ) |
|
./pkg/cheapaml/cheapaml_gad_dst3fl_adv_r.F |
88 |
CHEAPAML_GAD_DST3FL_ADV_R |
& +0.5*(rTrans(i,j)-ABS(rTrans(i,j))) |
|
./pkg/cheapaml/cheapaml_gad_dst3fl_adv_r.F |
89 |
CHEAPAML_GAD_DST3FL_ADV_R |
& *( tracer(i,j) - psiP*Rj ) |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
119 |
CHEAPAML_INIT_FIXED |
relaxMask(i,j,bi,bj) = xmf*cheapaml_taurelax |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
130 |
CHEAPAML_INIT_FIXED |
DO i=1,sNx |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
131 |
CHEAPAML_INIT_FIXED |
IF( maskC(i,j,1,bi,bj).EQ.0. _d 0) THEN |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
132 |
CHEAPAML_INIT_FIXED |
relaxMask(i,j,bi,bj)=cheapaml_taurelax |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
134 |
CHEAPAML_INIT_FIXED |
ELSEIF( relaxMask(i,j,bi,bj).EQ.0. _d 0) THEN |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
135 |
CHEAPAML_INIT_FIXED |
relaxMask(i,j,bi,bj)=cheapaml_taurelaxocean |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
147 |
CHEAPAML_INIT_FIXED |
DO i=1-OLx,sNx+OLx |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
148 |
CHEAPAML_INIT_FIXED |
IF (relaxMask(i,j,bi,bj).NE.0.) THEN |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
149 |
CHEAPAML_INIT_FIXED |
xgs(i,j,bi,bj)=1. _d 0/relaxMask(i,j,bi,bj)/8.64 _d 4 |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
151 |
CHEAPAML_INIT_FIXED |
xgs(i,j,bi,bj)=0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
153 |
CHEAPAML_INIT_FIXED |
xrelf(i,j,bi,bj)= xgs(i,j,bi,bj)*deltaT |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
154 |
CHEAPAML_INIT_FIXED |
& /(1. _d 0+xgs(i,j,bi,bj)*deltaT) |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
182 |
CHEAPAML_INIT_FIXED |
DO i=1,sNx |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
183 |
CHEAPAML_INIT_FIXED |
relaxMask(i,j,bi,bj) = 0. |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
191 |
CHEAPAML_INIT_FIXED |
DO i=1,sNx |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
193 |
CHEAPAML_INIT_FIXED |
iG = myXGlobalLo-1+(bi-1)*sNx+i |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
205 |
CHEAPAML_INIT_FIXED |
relaxMask(i,j,bi,bj) = xmf |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
211 |
CHEAPAML_INIT_FIXED |
DO i=1,sNx |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
212 |
CHEAPAML_INIT_FIXED |
relaxMask(i,j,bi,bj) = MAX( relaxMask(i,j,bi,bj), |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
213 |
CHEAPAML_INIT_FIXED |
& (oneRL - maskC(i,j,1,bi,bj)) ) |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
226 |
CHEAPAML_INIT_FIXED |
DO i=1-OLx,sNx+OLx |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
227 |
CHEAPAML_INIT_FIXED |
xgs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
233 |
CHEAPAML_INIT_FIXED |
DO i=1-OLx,sNx+OLx |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
234 |
CHEAPAML_INIT_FIXED |
xgs(i,j,bi,bj) = relaxMask(i,j,bi,bj)*tmpVar |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
242 |
CHEAPAML_INIT_FIXED |
DO i=1-OLx,sNx+OLx |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
243 |
CHEAPAML_INIT_FIXED |
xgs(i,j,bi,bj) = MAX( xgs(i,j,bi,bj), tmpVar ) |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
249 |
CHEAPAML_INIT_FIXED |
DO i=1-OLx,sNx+OLx |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
250 |
CHEAPAML_INIT_FIXED |
tmpVar = xgs(i,j,bi,bj)*deltaT |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
251 |
CHEAPAML_INIT_FIXED |
xrelf(i,j,bi,bj)= tmpVar/( oneRL + tmpVar ) |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
43 |
CHEAPAML_INIT_FIXED |
INTEGER i, j |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
64 |
CHEAPAML_INIT_FIXED |
DO i=1-OLx,sNx+OLx |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
65 |
CHEAPAML_INIT_FIXED |
relaxMask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
66 |
CHEAPAML_INIT_FIXED |
xgs (i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
67 |
CHEAPAML_INIT_FIXED |
xrelf (i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
95 |
CHEAPAML_INIT_FIXED |
DO i=1,sNx |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
97 |
CHEAPAML_INIT_FIXED |
iG=myXGlobalLo-1+(bi-1)*sNx+i |
|
./pkg/cheapaml/cheapaml_init_varia.F |
103 |
CHEAPAML_INIT_VARIA |
DO i=1,sNx |
|
./pkg/cheapaml/cheapaml_init_varia.F |
105 |
CHEAPAML_INIT_VARIA |
iG = myXGlobalLo-1+(bi-1)*sNx+i |
|
./pkg/cheapaml/cheapaml_init_varia.F |
109 |
CHEAPAML_INIT_VARIA |
Tair(i,j,bi,bj) = localt |
|
./pkg/cheapaml/cheapaml_init_varia.F |
132 |
CHEAPAML_INIT_VARIA |
DO i=1,sNx |
|
./pkg/cheapaml/cheapaml_init_varia.F |
133 |
CHEAPAML_INIT_VARIA |
local= Tair(i,j,bi,bj)+celsius2K |
|
./pkg/cheapaml/cheapaml_init_varia.F |
135 |
CHEAPAML_INIT_VARIA |
qair(i,j,bi,bj)=0.8 _d 0*ssqa |
|
./pkg/cheapaml/cheapaml_init_varia.F |
158 |
CHEAPAML_INIT_VARIA |
DO i=1,sNx |
|
./pkg/cheapaml/cheapaml_init_varia.F |
159 |
CHEAPAML_INIT_VARIA |
Cheaptracer(i,j,bi,bj)=290.0 _d 0 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
184 |
CHEAPAML_INIT_VARIA |
DO i=1-OLx,sNx+OLx |
|
./pkg/cheapaml/cheapaml_init_varia.F |
185 |
CHEAPAML_INIT_VARIA |
cheapHgrid(i,j,bi,bj) = cheapaml_h |
|
./pkg/cheapaml/cheapaml_init_varia.F |
214 |
CHEAPAML_INIT_VARIA |
DO i=1-OLx,sNx+OLx |
|
./pkg/cheapaml/cheapaml_init_varia.F |
215 |
CHEAPAML_INIT_VARIA |
iG=myXGlobalLo-1+(bi-1)*sNx+i |
|
./pkg/cheapaml/cheapaml_init_varia.F |
217 |
CHEAPAML_INIT_VARIA |
Tair(i,j,bi,bj)=Tair(1,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
218 |
CHEAPAML_INIT_VARIA |
qair(i,j,bi,bj)=qair(1,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
219 |
CHEAPAML_INIT_VARIA |
Cheaptracer(i,j,bi,bj)=Cheaptracer(1,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
220 |
CHEAPAML_INIT_VARIA |
CheapHgrid(i,j,bi,bj)=CheapHgrid(1,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
222 |
CHEAPAML_INIT_VARIA |
Tair(i,j,bi,bj)=Tair(sNx,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
223 |
CHEAPAML_INIT_VARIA |
qair(i,j,bi,bj)=qair(sNx,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
224 |
CHEAPAML_INIT_VARIA |
Cheaptracer(i,j,bi,bj)=Cheaptracer(sNx,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
225 |
CHEAPAML_INIT_VARIA |
CheapHgrid(i,j,bi,bj)=CheapHgrid(sNx,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
227 |
CHEAPAML_INIT_VARIA |
Tair(i,j,bi,bj)=Tair(i,1,bi,bj) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
228 |
CHEAPAML_INIT_VARIA |
qair(i,j,bi,bj)=qair(i,1,bi,bj) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
229 |
CHEAPAML_INIT_VARIA |
Cheaptracer(i,j,bi,bj)=Cheaptracer(i,1,bi,bj) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
230 |
CHEAPAML_INIT_VARIA |
CheapHgrid(i,j,bi,bj)=CheapHgrid(i,1,bi,bj) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
232 |
CHEAPAML_INIT_VARIA |
Tair(i,j,bi,bj)=Tair(i,sNy,bi,bj) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
233 |
CHEAPAML_INIT_VARIA |
qair(i,j,bi,bj)=qair(i,sNy,bi,bj) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
234 |
CHEAPAML_INIT_VARIA |
Cheaptracer(i,j,bi,bj)=Cheaptracer(i,sNy,bi,bj) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
235 |
CHEAPAML_INIT_VARIA |
CheapHgrid(i,j,bi,bj)=CheapHgrid(i,sNy,bi,bj) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
41 |
CHEAPAML_INIT_VARIA |
INTEGER i, j |
|
./pkg/cheapaml/cheapaml_init_varia.F |
59 |
CHEAPAML_INIT_VARIA |
DO i=1-OLx,sNx+OLx |
|
./pkg/cheapaml/cheapaml_init_varia.F |
60 |
CHEAPAML_INIT_VARIA |
Tr (i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
61 |
CHEAPAML_INIT_VARIA |
qr (i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
62 |
CHEAPAML_INIT_VARIA |
Tair (i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
63 |
CHEAPAML_INIT_VARIA |
gTairm (i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
64 |
CHEAPAML_INIT_VARIA |
qair (i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
65 |
CHEAPAML_INIT_VARIA |
gqairm (i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
66 |
CHEAPAML_INIT_VARIA |
uWind (i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
67 |
CHEAPAML_INIT_VARIA |
vWind (i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
68 |
CHEAPAML_INIT_VARIA |
wWind (i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
69 |
CHEAPAML_INIT_VARIA |
solar (i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
70 |
CHEAPAML_INIT_VARIA |
ustress (i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
71 |
CHEAPAML_INIT_VARIA |
vstress (i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
72 |
CHEAPAML_INIT_VARIA |
wavesh (i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
73 |
CHEAPAML_INIT_VARIA |
wavesp (i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
74 |
CHEAPAML_INIT_VARIA |
cheapPrecip (i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
75 |
CHEAPAML_INIT_VARIA |
CheapHgrid (i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
77 |
CHEAPAML_INIT_VARIA |
Cheapclouds (i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
78 |
CHEAPAML_INIT_VARIA |
Cheapdlongwave(i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
79 |
CHEAPAML_INIT_VARIA |
Cheaptracer (i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
80 |
CHEAPAML_INIT_VARIA |
CheaptracerR (i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
81 |
CHEAPAML_INIT_VARIA |
gCheaptracerm (i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
100 |
CHEAPAML_LANL_FLUX |
if (ICEMASK(i,j,bi,bj).gt.0. _d 0) then |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
101 |
CHEAPAML_LANL_FLUX |
if (snowheight(i,j,bi,bj).gt.3. _d -1) then |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
112 |
CHEAPAML_LANL_FLUX |
uw=uwind(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
113 |
CHEAPAML_LANL_FLUX |
vw=vwind(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
117 |
CHEAPAML_LANL_FLUX |
ustress(i,j,bi,bj)= rhoa*cheapaml_BulkCdn*uss*uw |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
118 |
CHEAPAML_LANL_FLUX |
vstress(i,j,bi,bj)= rhoa*cheapaml_BulkCdn*uss*vw |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
11 |
CHEAPAML_LANL_FLUX |
I i,j,bi,bj, |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
121 |
CHEAPAML_LANL_FLUX |
ustress(i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
122 |
CHEAPAML_LANL_FLUX |
vstress(i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
127 |
CHEAPAML_LANL_FLUX |
to=theta(i,j,1,bi,bj) |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
128 |
CHEAPAML_LANL_FLUX |
t=Tair(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
132 |
CHEAPAML_LANL_FLUX |
ttt=tta-( cheaphgrid(i,j,bi,bj)- zref)*gamma_blk |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
133 |
CHEAPAML_LANL_FLUX |
pt=p0*(1-gamma_blk*cheaphgrid(i,j,bi,bj)/ttas) |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
143 |
CHEAPAML_LANL_FLUX |
q=qair(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
35 |
CHEAPAML_LANL_FLUX |
INTEGER i,j,bi,bj |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
98 |
CHEAPAML_LANL_FLUX |
if (maskC(i,j,1,bi,bj).ne.0. _d 0) then |
|
./pkg/cheapaml/cheapaml_seaice.F |
137 |
CHEAPAML_SEAICE |
DO i = 1-OLx, sNx+OLx |
|
./pkg/cheapaml/cheapaml_seaice.F |
138 |
CHEAPAML_SEAICE |
uRelWind(i,j) = uWind(i,j) |
|
./pkg/cheapaml/cheapaml_seaice.F |
139 |
CHEAPAML_SEAICE |
vRelWind(i,j) = vWind(i,j) |
|
./pkg/cheapaml/cheapaml_seaice.F |
145 |
CHEAPAML_SEAICE |
DO i = 1-OLx, sNx+OLx |
|
./pkg/cheapaml/cheapaml_seaice.F |
146 |
CHEAPAML_SEAICE |
uRelWind(i,j) = uRelWind(i,j)-uIce(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_seaice.F |
147 |
CHEAPAML_SEAICE |
vRelWind(i,j) = vRelWind(i,j)-vIce(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_seaice.F |
153 |
CHEAPAML_SEAICE |
DO i = iMin,iMax |
|
./pkg/cheapaml/cheapaml_seaice.F |
154 |
CHEAPAML_SEAICE |
windSq(i,j) = ( uRelWind( i ,j)*uRelWind( i ,j) |
|
./pkg/cheapaml/cheapaml_seaice.F |
155 |
CHEAPAML_SEAICE |
& + uRelWind(i+1,j)*uRelWind(i+1,j) |
|
./pkg/cheapaml/cheapaml_seaice.F |
156 |
CHEAPAML_SEAICE |
& + vRelWind(i, j )*vRelWind(i, j ) |
|
./pkg/cheapaml/cheapaml_seaice.F |
157 |
CHEAPAML_SEAICE |
& + vRelWind(i,j+1)*vRelWind(i,j+1) |
|
./pkg/cheapaml/cheapaml_seaice.F |
173 |
CHEAPAML_SEAICE |
DO i = iMin, iMax |
|
./pkg/cheapaml/cheapaml_seaice.F |
174 |
CHEAPAML_SEAICE |
IF (iceMask(i,j,bi,bj).GT.0. _d 0) THEN |
|
./pkg/cheapaml/cheapaml_seaice.F |
176 |
CHEAPAML_SEAICE |
netSW(i,j) = swDown(i,j) |
|
./pkg/cheapaml/cheapaml_seaice.F |
177 |
CHEAPAML_SEAICE |
& *(1. _d 0 - siceAlb(i,j,bi,bj)) |
|
./pkg/cheapaml/cheapaml_seaice.F |
179 |
CHEAPAML_SEAICE |
netSW(i,j) = swDown(i,j) |
|
./pkg/cheapaml/cheapaml_seaice.F |
188 |
CHEAPAML_SEAICE |
DO i = iMin, iMax |
|
./pkg/cheapaml/cheapaml_seaice.F |
190 |
CHEAPAML_SEAICE |
IF ( snowHeight(i,j,bi,bj).GT.3. _d -1 ) THEN |
|
./pkg/cheapaml/cheapaml_seaice.F |
195 |
CHEAPAML_SEAICE |
Tsurf(i,j) = 0. |
|
./pkg/cheapaml/cheapaml_seaice.F |
197 |
CHEAPAML_SEAICE |
I i, j, bi, bj, iceOrNot, |
|
./pkg/cheapaml/cheapaml_seaice.F |
199 |
CHEAPAML_SEAICE |
O fsha0(i,j), flha(i,j), evp_0(i,j), xolw0(i,j), |
|
./pkg/cheapaml/cheapaml_seaice.F |
200 |
CHEAPAML_SEAICE |
O ssqt(i,j), q100(i,j), cdq(i,j), cdu, |
|
./pkg/cheapaml/cheapaml_seaice.F |
203 |
CHEAPAML_SEAICE |
sFlx(i,j,0) = lwDown(i,j)- xolw0(i,j) |
|
./pkg/cheapaml/cheapaml_seaice.F |
204 |
CHEAPAML_SEAICE |
& - fsha0(i,j) - evp_0(i,j)*LatentHeat |
|
./pkg/cheapaml/cheapaml_seaice.F |
206 |
CHEAPAML_SEAICE |
Tsurf(i,j) = Tsrf(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_seaice.F |
208 |
CHEAPAML_SEAICE |
I i, j, bi, bj, iceOrNot, |
|
./pkg/cheapaml/cheapaml_seaice.F |
210 |
CHEAPAML_SEAICE |
O fsha(i,j), flha(i,j), evp(i,j), xolw(i,j), |
|
./pkg/cheapaml/cheapaml_seaice.F |
211 |
CHEAPAML_SEAICE |
O ssqt(i,j), q100(i,j), cdq(i,j), cdu, |
|
./pkg/cheapaml/cheapaml_seaice.F |
212 |
CHEAPAML_SEAICE |
O dShdTs(i,j), dEvdTs(i,j), dLwdTs(i,j), dumArg(4), |
|
./pkg/cheapaml/cheapaml_seaice.F |
214 |
CHEAPAML_SEAICE |
sFlx(i,j,1) = lwDown(i,j)- xolw(i,j) |
|
./pkg/cheapaml/cheapaml_seaice.F |
215 |
CHEAPAML_SEAICE |
& - fsha(i,j) - evp(i,j)*LatentHeat |
|
./pkg/cheapaml/cheapaml_seaice.F |
216 |
CHEAPAML_SEAICE |
sFlx(i,j,2) = -dLwdTs(i,j) |
|
./pkg/cheapaml/cheapaml_seaice.F |
217 |
CHEAPAML_SEAICE |
& - dShdTs(i,j) - dEvdTs(i,j)*LatentHeat |
|
./pkg/cheapaml/cheapaml_seaice.F |
231 |
CHEAPAML_SEAICE |
DO i = iMin, iMax |
|
./pkg/cheapaml/cheapaml_seaice.F |
232 |
CHEAPAML_SEAICE |
iceFrac(i,j) = iceMask(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_seaice.F |
233 |
CHEAPAML_SEAICE |
sw2oce (i,j) = icFlxSW(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_seaice.F |
234 |
CHEAPAML_SEAICE |
IF ( dTsurf(i,j) .GT. 999. ) THEN |
|
./pkg/cheapaml/cheapaml_seaice.F |
236 |
CHEAPAML_SEAICE |
Tsurf(i,j)= 0. |
|
./pkg/cheapaml/cheapaml_seaice.F |
237 |
CHEAPAML_SEAICE |
fsha(i,j) = fsha0(i,j) |
|
./pkg/cheapaml/cheapaml_seaice.F |
238 |
CHEAPAML_SEAICE |
flha(i,j) = evp_0(i,j)*LatentHeat |
|
./pkg/cheapaml/cheapaml_seaice.F |
239 |
CHEAPAML_SEAICE |
evp(i,j) = evp_0(i,j) |
|
./pkg/cheapaml/cheapaml_seaice.F |
240 |
CHEAPAML_SEAICE |
xolw(i,j) = xolw0(i,j) |
|
./pkg/cheapaml/cheapaml_seaice.F |
242 |
CHEAPAML_SEAICE |
Tsurf(i,j)= Tsurf(i,j)+ dTsurf(i,j) |
|
./pkg/cheapaml/cheapaml_seaice.F |
243 |
CHEAPAML_SEAICE |
fsha(i,j) = fsha(i,j) + dTsurf(i,j)*dShdTs(i,j) |
|
./pkg/cheapaml/cheapaml_seaice.F |
244 |
CHEAPAML_SEAICE |
evp(i,j) = evp(i,j) + dTsurf(i,j)*dEvdTs(i,j) |
|
./pkg/cheapaml/cheapaml_seaice.F |
245 |
CHEAPAML_SEAICE |
flha(i,j) = evp(i,j)*LatentHeat |
|
./pkg/cheapaml/cheapaml_seaice.F |
246 |
CHEAPAML_SEAICE |
xolw(i,j) = xolw(i,j) + dTsurf(i,j)*dLwdTs(i,j) |
|
./pkg/cheapaml/cheapaml_seaice.F |
252 |
CHEAPAML_SEAICE |
DO i = iMin, iMax |
|
./pkg/cheapaml/cheapaml_seaice.F |
254 |
CHEAPAML_SEAICE |
icFrac = iceMask(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_seaice.F |
257 |
CHEAPAML_SEAICE |
icFlxAtm(i,j,bi,bj) = netSW(i,j) |
|
./pkg/cheapaml/cheapaml_seaice.F |
258 |
CHEAPAML_SEAICE |
& + lwDown(i,j)- xolw(i,j) |
|
./pkg/cheapaml/cheapaml_seaice.F |
259 |
CHEAPAML_SEAICE |
& - fsha(i,j) - evp(i,j)*LVapor |
|
./pkg/cheapaml/cheapaml_seaice.F |
260 |
CHEAPAML_SEAICE |
icFrwAtm(i,j,bi,bj) = evp(i,j) |
|
./pkg/cheapaml/cheapaml_seaice.F |
96 |
CHEAPAML_SEAICE |
INTEGER i, j |
|
./pkg/cheapaml/cheapaml_timestep.F |
39 |
CHEAPAML_TIMESTEP |
INTEGER i,j |
|
./pkg/cheapaml/cheapaml_timestep.F |
46 |
CHEAPAML_TIMESTEP |
DO i=iMin,iMax |
|
./pkg/cheapaml/cheapaml_timestep.F |
47 |
CHEAPAML_TIMESTEP |
tracer(i,j,bi,bj) = tracer(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_timestep.F |
48 |
CHEAPAML_TIMESTEP |
& + deltaTloc*gTracer(i,j,bi,bj) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
111 |
GAD_2D_CALC_RHS |
DO i=1-OLx,sNx+OLx |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
112 |
GAD_2D_CALC_RHS |
df(i,j) = 0. _d 0 |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
119 |
GAD_2D_CALC_RHS |
DO i=1-OLx,sNx+OLx |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
120 |
GAD_2D_CALC_RHS |
localT(i,j)=tracer(i,j,bi,bj) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
124 |
GAD_2D_CALC_RHS |
DO i=1-OLx,sNx+OLx-1 |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
125 |
GAD_2D_CALC_RHS |
localW(i,j)=-(recip_dxC(i,j,bi,bj) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
126 |
GAD_2D_CALC_RHS |
& *(uVel(i+1,j,bi,bj)-uVel(i,j,bi,bj)) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
127 |
GAD_2D_CALC_RHS |
& + (vVel(i,j+1,bi,bj)-vVel(i,j,bi,bj))*recip_dyC(i,j,bi,bj) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
129 |
GAD_2D_CALC_RHS |
wvel(i,j,bi,bj) = localW(i,j)/2. _d 0 /zu |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
135 |
GAD_2D_CALC_RHS |
DO i=1-OLx,sNx+OLx |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
136 |
GAD_2D_CALC_RHS |
fZon(i,j) = 0. _d 0 |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
137 |
GAD_2D_CALC_RHS |
af(i,j) = 0. _d 0 |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
144 |
GAD_2D_CALC_RHS |
DO i=1,sNx |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
145 |
GAD_2D_CALC_RHS |
iG=myXGlobalLo-1+(bi-1)*sNx+i |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
147 |
GAD_2D_CALC_RHS |
IF (uVel(i,j,bi,bj).LT.0. _d 0) THEN |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
149 |
GAD_2D_CALC_RHS |
localT(ii,j)=localT(i,j) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
153 |
GAD_2D_CALC_RHS |
IF (uVel(i+1,j,bi,bj).GT.0. _d 0) THEN |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
155 |
GAD_2D_CALC_RHS |
localT(ii,j)=localT(i,j) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
166 |
GAD_2D_CALC_RHS |
DO i=1-OLx,sNx+OLx |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
169 |
GAD_2D_CALC_RHS |
maskLocW(i,j)=1. _d 0 |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
183 |
GAD_2D_CALC_RHS |
DO i=1-OLx,sNx+OLx |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
184 |
GAD_2D_CALC_RHS |
fZon(i,j)=fZon(i,j)+af(i,j) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
193 |
GAD_2D_CALC_RHS |
DO i=1-OLx,sNx+OLx |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
194 |
GAD_2D_CALC_RHS |
df(i,j) = 0. _d 0 |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
200 |
GAD_2D_CALC_RHS |
DO i=1-OLx,sNx+OLx |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
201 |
GAD_2D_CALC_RHS |
fZon(i,j) = fZon(i,j) + df(i,j) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
208 |
GAD_2D_CALC_RHS |
DO i=1,sNx |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
209 |
GAD_2D_CALC_RHS |
iG=myXGlobalLo-1+(bi-1)*sNx+i |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
211 |
GAD_2D_CALC_RHS |
IF (uVel(i,j,bi,bj).LT.0. _d 0) THEN |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
217 |
GAD_2D_CALC_RHS |
IF (uVel(i+1,j,bi,bj).GT.0. _d 0) THEN |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
229 |
GAD_2D_CALC_RHS |
DO i=1-OLx,sNx+OLx |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
230 |
GAD_2D_CALC_RHS |
fMer(i,j) = 0. _d 0 |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
231 |
GAD_2D_CALC_RHS |
af(i,j) = 0. _d 0 |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
232 |
GAD_2D_CALC_RHS |
df(i,j) = 0. _d 0 |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
242 |
GAD_2D_CALC_RHS |
DO i=1,sNx |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
244 |
GAD_2D_CALC_RHS |
IF (vVel(i,j,bi,bj).LT.0. _d 0) THEN |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
246 |
GAD_2D_CALC_RHS |
localT(i,jj)=localT(i,j) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
250 |
GAD_2D_CALC_RHS |
IF (vVel(i,j+1,bi,bj).GT.0. _d 0) THEN |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
252 |
GAD_2D_CALC_RHS |
localT(i,jj)=localT(i,j) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
263 |
GAD_2D_CALC_RHS |
DO i=1-OLx,sNx+OLx |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
266 |
GAD_2D_CALC_RHS |
maskLocS(i,j)= 1. _d 0 |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
280 |
GAD_2D_CALC_RHS |
DO i=1-OLx,sNx+OLx |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
281 |
GAD_2D_CALC_RHS |
fMer(i,j) = fMer(i,j) + af(i,j) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
290 |
GAD_2D_CALC_RHS |
DO i=1-OLx,sNx+OLx |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
291 |
GAD_2D_CALC_RHS |
df(i,j) = 0. _d 0 |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
297 |
GAD_2D_CALC_RHS |
DO i=1-OLx,sNx+OLx |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
298 |
GAD_2D_CALC_RHS |
fMer(i,j) = fMer(i,j) + df(i,j) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
304 |
GAD_2D_CALC_RHS |
DO i=1-OLx,sNx+OLx |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
305 |
GAD_2D_CALC_RHS |
fVer(i,j) = 0. _d 0 |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
306 |
GAD_2D_CALC_RHS |
af(i,j) = 0. _d 0 |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
330 |
GAD_2D_CALC_RHS |
DO i=1-OLx,sNx+OLx-1 |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
331 |
GAD_2D_CALC_RHS |
fVer(i,j) = fVer(i,j) + af(i,j) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
339 |
GAD_2D_CALC_RHS |
DO i=1-OLx,sNx+OLx-1 |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
340 |
GAD_2D_CALC_RHS |
gTracer(i,j,bi,bj)= |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
341 |
GAD_2D_CALC_RHS |
& -(recip_dxC(i,j,bi,bj) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
342 |
GAD_2D_CALC_RHS |
& *(fZon(i+1,j)-fZon(i,j)) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
343 |
GAD_2D_CALC_RHS |
& +recip_dyC(i,j,bi,bj) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
344 |
GAD_2D_CALC_RHS |
& *(fMer(i,j+1)-fMer(i,j)) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
345 |
GAD_2D_CALC_RHS |
& +1. _d 0/2. _d 0/zu*fVer(i,j) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
98 |
GAD_2D_CALC_RHS |
INTEGER i,j,iG,jG, ii, jj |
|
./eesupp/src/scatter_xz.F |
18 |
SCATTER_XZ |
INTEGER iG, i, bi, bj |
|
./eesupp/src/scatter_xz.F |
36 |
SCATTER_XZ |
DO i=1,sNx |
|
./eesupp/src/scatter_xz.F |
37 |
SCATTER_XZ |
iG = myXGlobalLo-1+(bi-1)*sNx+i |
|
./eesupp/src/scatter_xz.F |
38 |
SCATTER_XZ |
local(i,bi,bj) = global(iG) |
|
./eesupp/src/scatter_xz.F |
55 |
SCATTER_XZ |
DO i=1,sNx |
|
./eesupp/src/scatter_xz.F |
56 |
SCATTER_XZ |
iG = mpi_myXGlobalLo(npe+1)-1+(bi-1)*sNx+i |
|
./eesupp/src/scatter_xz.F |
57 |
SCATTER_XZ |
local(i,bi,bj) = global(iG) |
|
./eesupp/src/scatter_xz.F |
66 |
SCATTER_XZ |
DO i=1,sNx |
|
./eesupp/src/scatter_xz.F |
67 |
SCATTER_XZ |
iG = mpi_myXGlobalLo(npe+1)-1+(bi-1)*sNx+i |
|
./eesupp/src/scatter_xz.F |
68 |
SCATTER_XZ |
temp(i,bi,bj) = global(iG) |
|
./pkg/cheapaml/gad_c2_2d_adv_x.F |
45 |
GAD_C2_2D_ADV_X |
INTEGER i,j |
|
./pkg/cheapaml/gad_c2_2d_adv_x.F |
50 |
GAD_C2_2D_ADV_X |
DO i=1-Olx+1,sNx+Olx |
|
./pkg/cheapaml/gad_c2_2d_adv_x.F |
51 |
GAD_C2_2D_ADV_X |
uT(i,j) = |
|
./pkg/cheapaml/gad_c2_2d_adv_x.F |
52 |
GAD_C2_2D_ADV_X |
& uVel(i,j,bi,bj)*(Tracer(i,j)+Tracer(i-1,j))*0.5 _d 0 |
|
./pkg/cheapaml/gad_c2_2d_adv_y.F |
45 |
GAD_C2_2D_ADV_Y |
INTEGER i,j |
|
./pkg/cheapaml/gad_c2_2d_adv_y.F |
48 |
GAD_C2_2D_ADV_Y |
DO i=1-Olx,sNx+Olx |
|
./pkg/cheapaml/gad_c2_2d_adv_y.F |
49 |
GAD_C2_2D_ADV_Y |
vT(i,1-Oly)=0. |
|
./pkg/cheapaml/gad_c2_2d_adv_y.F |
52 |
GAD_C2_2D_ADV_Y |
DO i=1-Olx,sNx+Olx |
|
./pkg/cheapaml/gad_c2_2d_adv_y.F |
53 |
GAD_C2_2D_ADV_Y |
vT(i,j) = |
|
./pkg/cheapaml/gad_c2_2d_adv_y.F |
54 |
GAD_C2_2D_ADV_Y |
& vVel(i,j,bi,bj)*(Tracer(i,j)+Tracer(i,j-1))*0.5 _d 0 |
|
./pkg/cheapaml/gad_diff_2d_x.F |
45 |
GAD_DIFF_2D_X |
INTEGER i,j |
|
./pkg/cheapaml/gad_diff_2d_x.F |
50 |
GAD_DIFF_2D_X |
DO i=1-Olx+1,sNx+Olx |
|
./pkg/cheapaml/gad_diff_2d_x.F |
51 |
GAD_DIFF_2D_X |
dfx(i,j) = -diffKh |
|
./pkg/cheapaml/gad_diff_2d_x.F |
52 |
GAD_DIFF_2D_X |
& *_recip_dxC(i,j,bi,bj) |
|
./pkg/cheapaml/gad_diff_2d_x.F |
53 |
GAD_DIFF_2D_X |
& *(Tracer(i,j)-Tracer(i-1,j)) |
|
./pkg/cheapaml/gad_diff_2d_y.F |
46 |
GAD_DIFF_2D_Y |
INTEGER i,j,jG |
|
./pkg/cheapaml/gad_diff_2d_y.F |
49 |
GAD_DIFF_2D_Y |
DO i=1-Olx,sNx+Olx |
|
./pkg/cheapaml/gad_diff_2d_y.F |
50 |
GAD_DIFF_2D_Y |
dfy(i,1-Oly)=0. |
|
./pkg/cheapaml/gad_diff_2d_y.F |
53 |
GAD_DIFF_2D_Y |
DO i=1-Olx,sNx+Olx |
|
./pkg/cheapaml/gad_diff_2d_y.F |
54 |
GAD_DIFF_2D_Y |
dfy(i,j) = -diffKh |
|
./pkg/cheapaml/gad_diff_2d_y.F |
55 |
GAD_DIFF_2D_Y |
$ *_recip_dyC(i,j,bi,bj) |
|
./pkg/cheapaml/gad_diff_2d_y.F |
56 |
GAD_DIFF_2D_Y |
$ *(Tracer(i,j)-Tracer(i,j-1)) |
|
./pkg/cheapaml/gad_diff_2d_y.F |
61 |
GAD_DIFF_2D_Y |
if(jG.eq.ny.or.jG.eq.1)dfy(i,j)=0.d0 |
|
./pkg/chronos/chronos.F |
304 |
GET_TIME |
integer nsecf,i,nsegm,nsegd,iday,iday2,nday |
|
./pkg/chronos/chronos.F |
418 |
INTERP_TIME |
integer i,nsecf |
|
./pkg/chronos/chronos.F |
580 |
TIC_TIME |
integer i,nsecf,iday,iday0,nsec,nsec0,ntime |
|
./pkg/chronos/chronos.F |
737 |
ASTRO |
integer i,nsecf,k,km,kp |
|
./pkg/compon_communic/comprecv_i4vec.F |
21 |
COMPRECV_I4VEC |
integer i, j |
|
./pkg/compon_communic/comprecv_i4vec.F |
62 |
COMPRECV_I4VEC |
do i=1,length |
|
./pkg/compon_communic/comprecv_i4vec.F |
63 |
COMPRECV_I4VEC |
vecFld(i) = ibuf(i+1) |
|
./pkg/compon_communic/comprecv_r4.F |
20 |
COMPRECV_R4 |
integer i,j,ij,nx,ny |
|
./pkg/compon_communic/comprecv_r4.F |
71 |
COMPRECV_R4 |
do i=1,Ni |
|
./pkg/compon_communic/comprecv_r4.F |
72 |
COMPRECV_R4 |
ij=HEADER_SIZE+i+Ni*(j-1) |
|
./pkg/compon_communic/comprecv_r4.F |
73 |
COMPRECV_R4 |
arr(i,j)=r4buf(ij) |
|
./pkg/compon_communic/comprecv_r4tiles.F |
20 |
COMPRECV_R4TILES |
integer i,j,ij,nx,ny,k,bibj,bi,bj |
|
./pkg/compon_communic/comprecv_r4tiles.F |
78 |
COMPRECV_R4TILES |
do i=1,Ni |
|
./pkg/compon_communic/comprecv_r4tiles.F |
79 |
COMPRECV_R4TILES |
ij=HEADER_SIZE+i+Ni*(j-1) |
|
./pkg/compon_communic/comprecv_r4tiles.F |
80 |
COMPRECV_R4TILES |
arr(i,j,k,bi,bj)=r4buf(ij) |
|
./pkg/compon_communic/comprecv_r8.F |
20 |
COMPRECV_R8 |
integer i,j,ij,nx,ny |
|
./pkg/compon_communic/comprecv_r8.F |
71 |
COMPRECV_R8 |
do i=1,Ni |
|
./pkg/compon_communic/comprecv_r8.F |
72 |
COMPRECV_R8 |
ij=HEADER_SIZE+i+Ni*(j-1) |
|
./pkg/compon_communic/comprecv_r8.F |
73 |
COMPRECV_R8 |
arr(i,j)=r8buf(ij) |
|
./pkg/compon_communic/comprecv_r8tiles.F |
20 |
COMPRECV_R8TILES |
integer i,j,ij,nx,ny,k,bibj,bi,bj |
|
./pkg/compon_communic/comprecv_r8tiles.F |
78 |
COMPRECV_R8TILES |
do i=1,Ni |
|
./pkg/compon_communic/comprecv_r8tiles.F |
79 |
COMPRECV_R8TILES |
ij=HEADER_SIZE+i+Ni*(j-1) |
|
./pkg/compon_communic/comprecv_r8tiles.F |
80 |
COMPRECV_R8TILES |
arr(i,j,k,bi,bj)=r8buf(ij) |
|
./pkg/compon_communic/compsend_i4vec.F |
20 |
COMPSEND_I4VEC |
integer i |
|
./pkg/compon_communic/compsend_i4vec.F |
29 |
COMPSEND_I4VEC |
do i=1,length |
|
./pkg/compon_communic/compsend_i4vec.F |
30 |
COMPSEND_I4VEC |
ibuf(i+1) = vecFld(i) |
|
./pkg/compon_communic/compsend_r4.F |
19 |
COMPSEND_R4 |
integer i,j,ij,Io,Jo |
|
./pkg/compon_communic/compsend_r4.F |
36 |
COMPSEND_R4 |
do i=1,Ni |
|
./pkg/compon_communic/compsend_r4.F |
37 |
COMPSEND_R4 |
ij=HEADER_SIZE+i+Ni*(j-1) |
|
./pkg/compon_communic/compsend_r4.F |
38 |
COMPSEND_R4 |
r4buf(ij)=arr(i,j) |
|
./pkg/compon_communic/compsend_r4tiles.F |
19 |
COMPSEND_R4TILES |
integer i,j,ij,bi,bj,k,bibj |
|
./pkg/compon_communic/compsend_r4tiles.F |
46 |
COMPSEND_R4TILES |
do i=1,Ni |
|
./pkg/compon_communic/compsend_r4tiles.F |
47 |
COMPSEND_R4TILES |
ij=HEADER_SIZE+i+Ni*(j-1) |
|
./pkg/compon_communic/compsend_r4tiles.F |
48 |
COMPSEND_R4TILES |
r4buf(ij)=arr(i,j,k,bi,bj) |
|
./pkg/compon_communic/compsend_r8.F |
19 |
COMPSEND_R8 |
integer i,j,ij,Io,Jo |
|
./pkg/compon_communic/compsend_r8.F |
36 |
COMPSEND_R8 |
do i=1,Ni |
|
./pkg/compon_communic/compsend_r8.F |
37 |
COMPSEND_R8 |
ij=HEADER_SIZE+i+Ni*(j-1) |
|
./pkg/compon_communic/compsend_r8.F |
38 |
COMPSEND_R8 |
r8buf(ij)=arr(i,j) |
|
./pkg/compon_communic/compsend_r8tiles.F |
19 |
COMPSEND_R8TILES |
integer i,j,ij,bi,bj,k,bibj |
|
./pkg/compon_communic/compsend_r8tiles.F |
46 |
COMPSEND_R8TILES |
do i=1,Ni |
|
./pkg/compon_communic/compsend_r8tiles.F |
47 |
COMPSEND_R8TILES |
ij=HEADER_SIZE+i+Ni*(j-1) |
|
./pkg/compon_communic/compsend_r8tiles.F |
48 |
COMPSEND_R8TILES |
r8buf(ij)=arr(i,j,k,bi,bj) |
|
./pkg/compon_communic/couprecv_i4vec.F |
25 |
COUPRECV_I4VEC |
integer i, j, n, ndiff |
|
./pkg/compon_communic/couprecv_i4vec.F |
84 |
COUPRECV_I4VEC |
do i=1,length |
|
./pkg/compon_communic/couprecv_i4vec.F |
85 |
COUPRECV_I4VEC |
vecFld(i) = ibuf(i+1) |
|
./pkg/compon_communic/couprecv_i4vec.F |
89 |
COUPRECV_I4VEC |
do i=1,length |
|
./pkg/compon_communic/couprecv_i4vec.F |
90 |
COUPRECV_I4VEC |
if ( vecFld(i) .ne. ibuf(i+1) ) ndiff = ndiff + 1 |
|
./pkg/compon_communic/couprecv_r4.F |
23 |
COUPRECV_R4 |
integer i,j,ij,n |
|
./pkg/compon_communic/couprecv_r4.F |
92 |
COUPRECV_R4 |
do i=1,Ni |
|
./pkg/compon_communic/couprecv_r4.F |
93 |
COUPRECV_R4 |
ij=HEADER_SIZE+i+Ni*(j-1) |
|
./pkg/compon_communic/couprecv_r4.F |
94 |
COUPRECV_R4 |
arr(Io+i-1,Jo+j-1)=r4buf(ij) |
|
./pkg/compon_communic/couprecv_r4tiles.F |
105 |
COUPRECV_R4TILES |
do i=1,Ni |
|
./pkg/compon_communic/couprecv_r4tiles.F |
106 |
COUPRECV_R4TILES |
ij=HEADER_SIZE+i+Ni*(j-1) |
|
./pkg/compon_communic/couprecv_r4tiles.F |
107 |
COUPRECV_R4TILES |
arr(Io+i-1,Jo+j-1)=r4buf(ij) |
|
./pkg/compon_communic/couprecv_r4tiles.F |
23 |
COUPRECV_R4TILES |
integer i,j,ij,n,bibj |
|
./pkg/compon_communic/couprecv_r8.F |
23 |
COUPRECV_R8 |
integer i,j,ij,n |
|
./pkg/compon_communic/couprecv_r8.F |
92 |
COUPRECV_R8 |
do i=1,Ni |
|
./pkg/compon_communic/couprecv_r8.F |
93 |
COUPRECV_R8 |
ij=HEADER_SIZE+i+Ni*(j-1) |
|
./pkg/compon_communic/couprecv_r8.F |
94 |
COUPRECV_R8 |
arr(Io+i-1,Jo+j-1)=r8buf(ij) |
|
./pkg/compon_communic/couprecv_r8tiles.F |
105 |
COUPRECV_R8TILES |
do i=1,Ni |
|
./pkg/compon_communic/couprecv_r8tiles.F |
106 |
COUPRECV_R8TILES |
ij=HEADER_SIZE+i+Ni*(j-1) |
|
./pkg/compon_communic/couprecv_r8tiles.F |
107 |
COUPRECV_R8TILES |
arr(Io+i-1,Jo+j-1)=r8buf(ij) |
|
./pkg/compon_communic/couprecv_r8tiles.F |
23 |
COUPRECV_R8TILES |
integer i,j,ij,n,bibj |
|
./pkg/compon_communic/coupsend_i4vec.F |
24 |
COUPSEND_I4VEC |
integer i, n |
|
./pkg/compon_communic/coupsend_i4vec.F |
47 |
COUPSEND_I4VEC |
do i=1,length |
|
./pkg/compon_communic/coupsend_i4vec.F |
48 |
COUPSEND_I4VEC |
ibuf(i+1) = vecFld(i) |
|
./pkg/compon_communic/coupsend_r4.F |
24 |
COUPSEND_R4 |
integer i,j,ij,n |
|
./pkg/compon_communic/coupsend_r4.F |
58 |
COUPSEND_R4 |
do i=1,Ni |
|
./pkg/compon_communic/coupsend_r4.F |
59 |
COUPSEND_R4 |
ij=HEADER_SIZE+i+Ni*(j-1) |
|
./pkg/compon_communic/coupsend_r4.F |
60 |
COUPSEND_R4 |
r4buf(ij)=arr(Io+i-1,Jo+j-1) |
|
./pkg/compon_communic/coupsend_r4tiles.F |
24 |
COUPSEND_R4TILES |
integer i,j,ij,n,bibj |
|
./pkg/compon_communic/coupsend_r4tiles.F |
61 |
COUPSEND_R4TILES |
do i=1,Ni |
|
./pkg/compon_communic/coupsend_r4tiles.F |
62 |
COUPSEND_R4TILES |
ij=HEADER_SIZE+i+Ni*(j-1) |
|
./pkg/compon_communic/coupsend_r4tiles.F |
63 |
COUPSEND_R4TILES |
r4buf(ij)=arr(Io+i-1,Jo+j-1) |
|
./pkg/compon_communic/coupsend_r8.F |
24 |
COUPSEND_R8 |
integer i,j,ij,n |
|
./pkg/compon_communic/coupsend_r8.F |
58 |
COUPSEND_R8 |
do i=1,Ni |
|
./pkg/compon_communic/coupsend_r8.F |
59 |
COUPSEND_R8 |
ij=HEADER_SIZE+i+Ni*(j-1) |
|
./pkg/compon_communic/coupsend_r8.F |
60 |
COUPSEND_R8 |
r8buf(ij)=arr(Io+i-1,Jo+j-1) |
|
./pkg/compon_communic/coupsend_r8tiles.F |
24 |
COUPSEND_R8TILES |
integer i,j,ij,n,bibj |
|
./pkg/compon_communic/coupsend_r8tiles.F |
61 |
COUPSEND_R8TILES |
do i=1,Ni |
|
./pkg/compon_communic/coupsend_r8tiles.F |
62 |
COUPSEND_R8TILES |
ij=HEADER_SIZE+i+Ni*(j-1) |
|
./pkg/compon_communic/coupsend_r8tiles.F |
63 |
COUPSEND_R8TILES |
r8buf(ij)=arr(Io+i-1,Jo+j-1) |
|
./eesupp/src/timers.F |
322 |
TIMER_CONTROL |
do i=1,nevents |
|
./eesupp/src/timers.F |
323 |
TIMER_CONTROL |
values(i,iTimer,myThreadId) = values(i,iTimer,myThreadId) + |
|
./eesupp/src/timers.F |
324 |
TIMER_CONTROL |
$ values2(i,iTimer,myThreadId) - values1(i,iTimer,myThreadId) |
|
./eesupp/src/timers.F |
328 |
TIMER_CONTROL |
do i=1,nevents |
|
./eesupp/src/timers.F |
329 |
TIMER_CONTROL |
i_result(i,iTimer,myThreadId) = i_result(i,iTimer |
|
./eesupp/src/timers.F |
330 |
TIMER_CONTROL |
$ ,myThreadId) + i_result2(i,iTimer,myThreadId) - |
|
./eesupp/src/timers.F |
331 |
TIMER_CONTROL |
$ i_result1(i,iTimer,myThreadId) |
|
./eesupp/src/timers.F |
373 |
TIMER_CONTROL |
do i = 1,nevents |
|
./eesupp/src/timers.F |
384 |
TIMER_CONTROL |
call PAPIF_EVENT_NAME_TO_CODE(EventName, EventCode(i), Check) |
|
./eesupp/src/timers.F |
390 |
TIMER_CONTROL |
do i = 1,nevents |
|
./eesupp/src/timers.F |
391 |
TIMER_CONTROL |
call PAPIF_ADD_EVENT(EventSet, EventCode(i), Check) |
|
./eesupp/src/timers.F |
393 |
TIMER_CONTROL |
CALL PAPIF_EVENT_CODE_TO_NAME(EventCode(i), EventName, |
|
./eesupp/src/timers.F |
423 |
TIMER_CONTROL |
do i = 1,nevents |
|
./eesupp/src/timers.F |
424 |
TIMER_CONTROL |
read(pclunit,*) pcl_counter_list(i) |
|
./eesupp/src/timers.F |
425 |
TIMER_CONTROL |
if ((pcl_counter_list(i) .ge. PCL_MFLOPS) .or. |
|
./eesupp/src/timers.F |
426 |
TIMER_CONTROL |
$ (pcl_counter_list(i) .lt. 1)) then |
|
./eesupp/src/timers.F |
427 |
TIMER_CONTROL |
if ((pcl_counter_list(i) .ge. PCL_MFLOPS) .and. |
|
./eesupp/src/timers.F |
428 |
TIMER_CONTROL |
$ (pcl_counter_list(i) .le. nmaxevents)) then |
|
./eesupp/src/timers.F |
431 |
TIMER_CONTROL |
$ pcl_counter_name(pcl_counter_list(i)) |
|
./eesupp/src/timers.F |
435 |
TIMER_CONTROL |
$ pcl_counter_list(i) |
|
./eesupp/src/timers.F |
445 |
TIMER_CONTROL |
do i = 1,nevents |
|
./eesupp/src/timers.F |
447 |
TIMER_CONTROL |
res = PCLquery(descr, pcl_counter_list, i, flags) |
|
./eesupp/src/timers.F |
450 |
TIMER_CONTROL |
$ , pcl_counter_name(pcl_counter_list(i)) |
|
./eesupp/src/timers.F |
457 |
TIMER_CONTROL |
do i = 1,5 |
|
./eesupp/src/timers.F |
460 |
TIMER_CONTROL |
if ((res .ne. PCL_SUCCESS) .and. (i .lt. 5)) then |
|
./eesupp/src/timers.F |
461 |
TIMER_CONTROL |
pcl_counter_list(nevents+1) = alt_counter_list(i+1) |
|
./eesupp/src/timers.F |
463 |
TIMER_CONTROL |
if (i .lt. 5) then |
|
./eesupp/src/timers.F |
517 |
TIMER_CONTROL |
do i = 1,nevents |
|
./eesupp/src/timers.F |
518 |
TIMER_CONTROL |
call PAPIF_EVENT_CODE_TO_NAME(EventCode(i), EventName, Check) |
|
./eesupp/src/timers.F |
520 |
TIMER_CONTROL |
$ values(i,iTimer,myThreadId)/timerUser(iTimer,myThreadId) |
|
./eesupp/src/timers.F |
521 |
TIMER_CONTROL |
$ ,values(i,iTimer,myThreadId)/timerWall(iTimer,myThreadId |
|
./eesupp/src/timers.F |
522 |
TIMER_CONTROL |
$ ),1.D0*values(i,iTimer,myThreadId) |
|
./eesupp/src/timers.F |
528 |
TIMER_CONTROL |
do i = 1,nevents |
|
./eesupp/src/timers.F |
529 |
TIMER_CONTROL |
WRITE(msgBuffer,71) pcl_counter_name(pcl_counter_list(i)), |
|
./eesupp/src/timers.F |
530 |
TIMER_CONTROL |
$ i_result(i,iTimer,myThreadId)/timerUser(iTimer |
|
./eesupp/src/timers.F |
531 |
TIMER_CONTROL |
$ ,myThreadId),i_result(i,iTimer,myThreadId) |
|
./eesupp/src/timers.F |
532 |
TIMER_CONTROL |
$ /timerWall(iTimer,myThreadId),1.D0*i_result(i,iTimer |
|
./eesupp/src/write_utils.F |
181 |
WRITE_1D_RL |
INTEGER i, j, ic, i1, i2, nCount |
|
./eesupp/src/write_utils.F |
193 |
WRITE_1D_RL |
DO i= 2,lFld |
|
./eesupp/src/write_utils.F |
194 |
WRITE_1D_RL |
IF ( fld(i).NE.prev ) nCount = nCount + 1 |
|
./eesupp/src/write_utils.F |
195 |
WRITE_1D_RL |
prev = fld(i) |
|
./eesupp/src/write_utils.F |
701 |
WRITE_COPY1D_R4 |
INTEGER i |
|
./eesupp/src/write_utils.F |
704 |
WRITE_COPY1D_R4 |
DO i=1,lFld |
|
./eesupp/src/write_utils.F |
705 |
WRITE_COPY1D_R4 |
tmpBufRL(i) = fld(i) |
|
./eesupp/src/write_utils.F |
757 |
WRITE_COPY1D_R8 |
INTEGER i |
|
./eesupp/src/write_utils.F |
760 |
WRITE_COPY1D_R8 |
DO i=1,lFld |
|
./eesupp/src/write_utils.F |
761 |
WRITE_COPY1D_R8 |
tmpBufRL(i) = fld(i) |
|
./eesupp/src/write_utils.F |
813 |
WRITE_COPY1D_RS |
INTEGER i |
|
./eesupp/src/write_utils.F |
816 |
WRITE_COPY1D_RS |
DO i=1,lFld |
|
./eesupp/src/write_utils.F |
817 |
WRITE_COPY1D_RS |
tmpBufRL(i) = fld(i) |
|
./eesupp/src/write_utils.F |
876 |
WRITE_XY_XLINE_RS |
INTEGER bi, bj, i, j |
|
./eesupp/src/write_utils.F |
956 |
WRITE_XY_YLINE_RS |
INTEGER bi, bj, i, j |
|
./pkg/cost/cost_accumulate_mean.F |
33 |
COST_ACCUMULATE_MEAN |
integer i, j, k |
|
./pkg/cost/cost_accumulate_mean.F |
48 |
COST_ACCUMULATE_MEAN |
do i=1,sNx |
|
./pkg/cost/cost_accumulate_mean.F |
49 |
COST_ACCUMULATE_MEAN |
cMeanTheta(i,j,k,bi,bj) = cMeanTheta(i,j,k,bi,bj) |
|
./pkg/cost/cost_accumulate_mean.F |
50 |
COST_ACCUMULATE_MEAN |
& + theta(i,j,k,bi,bj) |
|
./pkg/cost/cost_accumulate_mean.F |
52 |
COST_ACCUMULATE_MEAN |
cMeanUVel(i,j,k,bi,bj) = cMeanUVel(i,j,k,bi,bj) |
|
./pkg/cost/cost_accumulate_mean.F |
53 |
COST_ACCUMULATE_MEAN |
& + uVel(i,j,k,bi,bj) |
|
./pkg/cost/cost_accumulate_mean.F |
55 |
COST_ACCUMULATE_MEAN |
cMeanVVel(i,j,k,bi,bj) = cMeanVVel(i,j,k,bi,bj) |
|
./pkg/cost/cost_accumulate_mean.F |
56 |
COST_ACCUMULATE_MEAN |
& + vVel(i,j,k,bi,bj) |
|
./pkg/cost/cost_accumulate_mean.F |
59 |
COST_ACCUMULATE_MEAN |
cMeanThetaUVel(i,j,k,bi,bj) = |
|
./pkg/cost/cost_accumulate_mean.F |
60 |
COST_ACCUMULATE_MEAN |
& cMeanThetaUVel(i,j,k,bi,bj) |
|
./pkg/cost/cost_accumulate_mean.F |
61 |
COST_ACCUMULATE_MEAN |
& + (theta(i,j,k,bi,bj)+theta(i-1,j,k,bi,bj)) |
|
./pkg/cost/cost_accumulate_mean.F |
62 |
COST_ACCUMULATE_MEAN |
& /2.*uvel(i,j,k,bi,bj) |
|
./pkg/cost/cost_accumulate_mean.F |
63 |
COST_ACCUMULATE_MEAN |
& *maskW(i,j,k,bi,bj)*maskC(i,j,k,bi,bj) |
|
./pkg/cost/cost_accumulate_mean.F |
65 |
COST_ACCUMULATE_MEAN |
cMeanThetaVVel(i,j,k,bi,bj) = |
|
./pkg/cost/cost_accumulate_mean.F |
66 |
COST_ACCUMULATE_MEAN |
& cMeanThetaVVel(i,j,k,bi,bj) |
|
./pkg/cost/cost_accumulate_mean.F |
67 |
COST_ACCUMULATE_MEAN |
& + (theta(i,j,k,bi,bj)+theta(i,j-1,k,bi,bj)) |
|
./pkg/cost/cost_accumulate_mean.F |
68 |
COST_ACCUMULATE_MEAN |
& /2.*vvel(i,j,k,bi,bj) |
|
./pkg/cost/cost_accumulate_mean.F |
69 |
COST_ACCUMULATE_MEAN |
& *maskS(i,j,k,bi,bj)*maskC(i,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
102 |
COST_ATLANTIC_HEAT |
& + cMeanVVel(i,j,k,bi,bj)*dxG(i,j,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
103 |
COST_ATLANTIC_HEAT |
& *maskS(i,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
106 |
COST_ATLANTIC_HEAT |
& + cMeanThetaVVel(i,j,k,bi,bj)*dxG(i,j,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
107 |
COST_ATLANTIC_HEAT |
& *maskS(i,j,k,bi,bj)*maskC(i,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
110 |
COST_ATLANTIC_HEAT |
& maskS(i,j,k,bi,bj)*maskC(i,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
112 |
COST_ATLANTIC_HEAT |
& maskS(i,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
140 |
COST_ATLANTIC_HEAT |
do i=1,sNx |
|
./pkg/cost/cost_atlantic_heat.F |
141 |
COST_ATLANTIC_HEAT |
ig = myXGlobalLo-1+(bi-1)*sNx+i |
|
./pkg/cost/cost_atlantic_heat.F |
154 |
COST_ATLANTIC_HEAT |
& + cMeanUVel(i,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
155 |
COST_ATLANTIC_HEAT |
& *maskW(i,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
156 |
COST_ATLANTIC_HEAT |
& *maskC(i,j,k,bi,bj)*maskC(i-1,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
158 |
COST_ATLANTIC_HEAT |
& 0.5*( cMeanTheta(i,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
159 |
COST_ATLANTIC_HEAT |
& +cMeanTheta(i-,j,k,bi,bj) ) |
|
./pkg/cost/cost_atlantic_heat.F |
160 |
COST_ATLANTIC_HEAT |
& *maskW(i,j,k,bi,bj)*dyG(i,j,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
161 |
COST_ATLANTIC_HEAT |
& *maskC(i,j,k,bi,bj)*maskC(i-1,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
162 |
COST_ATLANTIC_HEAT |
countT(k) = countT(k) + maskW(i,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
163 |
COST_ATLANTIC_HEAT |
& *maskC(i,j,k,bi,bj)*maskC(i-1,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
164 |
COST_ATLANTIC_HEAT |
countU(k) = countU(k) + maskW(i,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
165 |
COST_ATLANTIC_HEAT |
& *maskC(i,j,k,bi,bj)*maskC(i-1,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
32 |
COST_ATLANTIC_HEAT |
integer i, j, k |
|
./pkg/cost/cost_atlantic_heat.F |
73 |
COST_ATLANTIC_HEAT |
do i=1,sNx |
|
./pkg/cost/cost_atlantic_heat.F |
74 |
COST_ATLANTIC_HEAT |
ig = myXGlobalLo-1+(bi-1)*sNx+i |
|
./pkg/cost/cost_atlantic_heat.F |
79 |
COST_ATLANTIC_HEAT |
& + (vVel(i,j,k,bi,bj) * maskS(i,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
82 |
COST_ATLANTIC_HEAT |
locfc = locfc + sum*dxG(i,j,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
97 |
COST_ATLANTIC_HEAT |
do i=1,sNx |
|
./pkg/cost/cost_atlantic_heat.F |
98 |
COST_ATLANTIC_HEAT |
ig = myXGlobalLo-1+(bi-1)*sNx+i |
|
./pkg/cost/cost_dependent_init.F |
36 |
COST_DEPENDENT_INIT |
integer i,j,k |
|
./pkg/cost/cost_dependent_init.F |
68 |
COST_DEPENDENT_INIT |
do i=1,sNx |
|
./pkg/cost/cost_dependent_init.F |
69 |
COST_DEPENDENT_INIT |
objf_vector(i,bi,bj) = 0. _d 0 |
|
./pkg/cost/cost_dependent_init.F |
70 |
COST_DEPENDENT_INIT |
adobjf_vector(i,bi,bj) = 1. _d 0 |
|
./pkg/cost/cost_dependent_init.F |
75 |
COST_DEPENDENT_INIT |
do i=1,sNx |
|
./pkg/cost/cost_dependent_init.F |
77 |
COST_DEPENDENT_INIT |
objf_state_final(i,j,bi,bj,k) = 0. _d 0 |
|
./pkg/cost/cost_dependent_init.F |
79 |
COST_DEPENDENT_INIT |
objf_state_final(i,j,bi,bj,4*Nr+1) = 0. _d 0 |
|
./pkg/cost/cost_init_varia.F |
40 |
COST_INIT_VARIA |
integer i,j,k |
|
./pkg/cost/cost_init_varia.F |
69 |
COST_INIT_VARIA |
do i=1,sNx |
|
./pkg/cost/cost_init_varia.F |
70 |
COST_INIT_VARIA |
objf_vector(i,bi,bj) = 0. _d 0 |
|
./pkg/cost/cost_init_varia.F |
77 |
COST_INIT_VARIA |
do i=1,sNx |
|
./pkg/cost/cost_init_varia.F |
78 |
COST_INIT_VARIA |
cMeanTheta(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/cost/cost_init_varia.F |
79 |
COST_INIT_VARIA |
cMeanUVel(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/cost/cost_init_varia.F |
80 |
COST_INIT_VARIA |
cMeanVVel(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/cost/cost_init_varia.F |
81 |
COST_INIT_VARIA |
cMeanThetaUVel(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/cost/cost_init_varia.F |
82 |
COST_INIT_VARIA |
cMeanThetaVVel(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/cost/cost_init_varia.F |
90 |
COST_INIT_VARIA |
do i=1,sNx |
|
./pkg/cost/cost_init_varia.F |
92 |
COST_INIT_VARIA |
objf_state_final(i,j,bi,bj,k) = 0. _d 0 |
|
./pkg/cost/cost_init_varia.F |
94 |
COST_INIT_VARIA |
objf_state_final(i,j,bi,bj,4*Nr+1) = 0. _d 0 |
|
./pkg/cost/cost_state_final.F |
28 |
COST_STATE_FINAL |
integer i, j, k |
|
./pkg/cost/cost_state_final.F |
34 |
COST_STATE_FINAL |
DO i=1,sNx |
|
./pkg/cost/cost_state_final.F |
36 |
COST_STATE_FINAL |
objf_state_final(i,j,bi,bj,0*Nr+k) = theta(i,j,k,bi,bj) |
|
./pkg/cost/cost_state_final.F |
37 |
COST_STATE_FINAL |
objf_state_final(i,j,bi,bj,1*Nr+k) = salt(i,j,k,bi,bj) |
|
./pkg/cost/cost_state_final.F |
38 |
COST_STATE_FINAL |
objf_state_final(i,j,bi,bj,2*Nr+k) = uvel(i,j,k,bi,bj) |
|
./pkg/cost/cost_state_final.F |
39 |
COST_STATE_FINAL |
objf_state_final(i,j,bi,bj,3*Nr+k) = vvel(i,j,k,bi,bj) |
|
./pkg/cost/cost_state_final.F |
41 |
COST_STATE_FINAL |
objf_state_final(i,j,bi,bj,4*Nr+1) = etan(i,j,bi,bj) |
|
./pkg/cost/cost_test.F |
33 |
COST_TEST |
integer i, j, k |
|
./pkg/cost/cost_test.F |
64 |
COST_TEST |
do i=1,sNx |
|
./pkg/cost/cost_test.F |
65 |
COST_TEST |
ig = myXGlobalLo-1+(bi-1)*sNx+i |
|
./pkg/cost/cost_test.F |
70 |
COST_TEST |
& 'COST ',ig,jg,kLocOut,' TILE ',i,j,bi,bj |
|
./pkg/cost/cost_test.F |
71 |
COST_TEST |
objf_test(bi,bj) = theta(i,j,kLocOut,bi,bj) |
|
./pkg/cost/cost_test.F |
74 |
COST_TEST |
& theta(i,j,kLocOut,bi,bj) |
|
./pkg/cost/cost_test.F |
79 |
COST_TEST |
& theta(i,j,kLocOut,bi,bj)**2 |
|
./pkg/cost/cost_tracer.F |
43 |
COST_TRACER |
integer i, j, k |
|
./pkg/cost/cost_tracer.F |
53 |
COST_TRACER |
DO i=1,sNx |
|
./pkg/cost/cost_tracer.F |
55 |
COST_TRACER |
locfc = locfc + hFacC(i,j,k,bi,bj)* |
|
./pkg/cost/cost_tracer.F |
56 |
COST_TRACER |
& lambdaTr1ClimRelax*ptracer(i,j,k,bi,bj,1)* |
|
./pkg/cost/cost_tracer.F |
57 |
COST_TRACER |
& rA(i,j,bi,bj)*drF(k)*dTtracerLev(k) |
|
./pkg/cost/cost_vector.F |
32 |
COST_VECTOR |
integer i, j, k |
|
./pkg/cost/cost_vector.F |
64 |
COST_VECTOR |
do i=1,sNx |
|
./pkg/cost/cost_vector.F |
65 |
COST_VECTOR |
ig = myXGlobalLo-1+(bi-1)*sNx+i |
|
./pkg/cost/cost_vector.F |
70 |
COST_VECTOR |
& + vVel(i,j,k,bi,bj) * maskS(i,j,k,bi,bj) |
|
./pkg/cost/cost_vector.F |
74 |
COST_VECTOR |
objf_vector(i,bi,bj) = sum*dxG(i,j,bi,bj) |
|
./pkg/cost/cost_vector.F |
81 |
COST_VECTOR |
do i = 1,sNx |
|
./pkg/cost/cost_vector.F |
83 |
COST_VECTOR |
& objf_vector(i,bi,bj) |
|
./pkg/ctrl/adctrl_bound.F |
132 |
ADCTRL_BOUND_2D |
INTEGER bi,bj,i,j |
|
./pkg/ctrl/adctrl_bound.F |
157 |
ADCTRL_BOUND_2D |
DO i = 1,sNx |
|
./pkg/ctrl/adctrl_bound.F |
158 |
ADCTRL_BOUND_2D |
IF (maskFld3d(i,j,1,bi,bj).NE.0.) THEN |
|
./pkg/ctrl/adctrl_bound.F |
159 |
ADCTRL_BOUND_2D |
xCur=fieldCur(i,j,bi,bj) |
|
./pkg/ctrl/adctrl_bound.F |
160 |
ADCTRL_BOUND_2D |
adxCur=adjFieldCur(i,j,bi,bj) |
|
./pkg/ctrl/adctrl_bound.F |
163 |
ADCTRL_BOUND_2D |
adjFieldCur(i,j,bi,bj)=abs(adxCur)* |
|
./pkg/ctrl/adctrl_bound.F |
168 |
ADCTRL_BOUND_2D |
adjFieldCur(i,j,bi,bj)=abs(adxCur)* |
|
./pkg/ctrl/adctrl_bound.F |
42 |
ADCTRL_BOUND_3D |
INTEGER bi,bj,i,j,k |
|
./pkg/ctrl/adctrl_bound.F |
68 |
ADCTRL_BOUND_3D |
DO i = 1,sNx |
|
./pkg/ctrl/adctrl_bound.F |
69 |
ADCTRL_BOUND_3D |
IF (maskFld3d(i,j,k,bi,bj).NE.0.) THEN |
|
./pkg/ctrl/adctrl_bound.F |
70 |
ADCTRL_BOUND_3D |
xCur=fieldCur(i,j,k,bi,bj) |
|
./pkg/ctrl/adctrl_bound.F |
71 |
ADCTRL_BOUND_3D |
adxCur=adjFieldCur(i,j,k,bi,bj) |
|
./pkg/ctrl/adctrl_bound.F |
74 |
ADCTRL_BOUND_3D |
adjFieldCur(i,j,k,bi,bj)=abs(adxCur)* |
|
./pkg/ctrl/adctrl_bound.F |
79 |
ADCTRL_BOUND_3D |
adjFieldCur(i,j,k,bi,bj)=abs(adxCur)* |
|
./pkg/ctrl/ctrl_bound.F |
101 |
CTRL_BOUND_2D |
INTEGER bi,bj,i,j |
|
./pkg/ctrl/ctrl_bound.F |
110 |
CTRL_BOUND_2D |
DO i = 1-OLx,sNx+OLx |
|
./pkg/ctrl/ctrl_bound.F |
111 |
CTRL_BOUND_2D |
IF (maskFld3d(i,j,1,bi,bj).NE.0.) THEN |
|
./pkg/ctrl/ctrl_bound.F |
112 |
CTRL_BOUND_2D |
IF (fieldCur(i,j,bi,bj).GT.boundsVec(4)) THEN |
|
./pkg/ctrl/ctrl_bound.F |
113 |
CTRL_BOUND_2D |
fieldCur(i,j,bi,bj)=boundsVec(4) |
|
./pkg/ctrl/ctrl_bound.F |
115 |
CTRL_BOUND_2D |
IF (fieldCur(i,j,bi,bj).LT.boundsVec(1)) THEN |
|
./pkg/ctrl/ctrl_bound.F |
116 |
CTRL_BOUND_2D |
fieldCur(i,j,bi,bj)=boundsVec(1) |
|
./pkg/ctrl/ctrl_bound.F |
41 |
CTRL_BOUND_3D |
INTEGER bi,bj,i,j,k |
|
./pkg/ctrl/ctrl_bound.F |
51 |
CTRL_BOUND_3D |
DO i = 1,sNx |
|
./pkg/ctrl/ctrl_bound.F |
52 |
CTRL_BOUND_3D |
IF (maskFld3d(i,j,k,bi,bj).NE.0.) THEN |
|
./pkg/ctrl/ctrl_bound.F |
53 |
CTRL_BOUND_3D |
IF (fieldCur(i,j,k,bi,bj).GT.boundsVec(4)) THEN |
|
./pkg/ctrl/ctrl_bound.F |
54 |
CTRL_BOUND_3D |
fieldCur(i,j,k,bi,bj)=boundsVec(4) |
|
./pkg/ctrl/ctrl_bound.F |
56 |
CTRL_BOUND_3D |
IF (fieldCur(i,j,k,bi,bj).LT.boundsVec(1)) THEN |
|
./pkg/ctrl/ctrl_bound.F |
57 |
CTRL_BOUND_3D |
fieldCur(i,j,k,bi,bj)=boundsVec(1) |
|
./lsopt/dgscale.F |
26 |
DGSCALE |
integer i |
|
./lsopt/dgscale.F |
36 |
DGSCALE |
do i = 1, nn |
|
./lsopt/dgscale.F |
37 |
DGSCALE |
r1 = r1 + gold(i)*gold(i)*diag(i) |
|
./lsopt/dgscale.F |
50 |
DGSCALE |
do i = 1, nn |
|
./lsopt/dgscale.F |
52 |
DGSCALE |
if (diag(i).LE.0) then |
|
./lsopt/dgscale.F |
54 |
DGSCALE |
diag(i) = rmin |
|
./lsopt/dgscale.F |
57 |
DGSCALE |
den = den + xdiff(i)*xdiff(i) / diag(i) |
|
./lsopt/dgscale.F |
60 |
DGSCALE |
do i = 1, nn |
|
./lsopt/dgscale.F |
61 |
DGSCALE |
diag(i) = 1./ |
|
./lsopt/dgscale.F |
62 |
DGSCALE |
$ (1./diag(i)+gold(i)**2-(xdiff(i)/diag(i))**2/den) |
|
./lsopt/dgscale.F |
63 |
DGSCALE |
if (diag(i).le.0.) then |
|
./lsopt/dgscale.F |
64 |
DGSCALE |
diag(i) = rmin |
|
./pkg/ctrl/ctrl_cost_gen.F |
152 |
CTRL_COST_GEN2D |
do i = imin,imax |
|
./pkg/ctrl/ctrl_cost_gen.F |
153 |
CTRL_COST_GEN2D |
xx_mean(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_cost_gen.F |
184 |
CTRL_COST_GEN2D |
do i = imin,imax |
|
./pkg/ctrl/ctrl_cost_gen.F |
185 |
CTRL_COST_GEN2D |
if (xx_gen_mask(i,j,kk,bi,bj) .ne. 0. _d 0) then |
|
./pkg/ctrl/ctrl_cost_gen.F |
187 |
CTRL_COST_GEN2D |
tmpx = tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_cost_gen.F |
189 |
CTRL_COST_GEN2D |
fctile = fctile + xx_gen_weight(i,j,bi,bj)*tmpx*tmpx |
|
./pkg/ctrl/ctrl_cost_gen.F |
193 |
CTRL_COST_GEN2D |
if ( xx_gen_weight(i,j,bi,bj) .ne. 0. _d 0 ) |
|
./pkg/ctrl/ctrl_cost_gen.F |
226 |
CTRL_COST_GEN2D |
do i = imin,imax |
|
./pkg/ctrl/ctrl_cost_gen.F |
227 |
CTRL_COST_GEN2D |
xx_mean(i,j,bi,bj) = xx_mean(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_cost_gen.F |
228 |
CTRL_COST_GEN2D |
& + tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_cost_gen.F |
245 |
CTRL_COST_GEN2D |
do i = imin,imax |
|
./pkg/ctrl/ctrl_cost_gen.F |
246 |
CTRL_COST_GEN2D |
xx_mean(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_cost_gen.F |
247 |
CTRL_COST_GEN2D |
& = xx_mean(i,j,bi,bj)/float(nrec) |
|
./pkg/ctrl/ctrl_cost_gen.F |
248 |
CTRL_COST_GEN2D |
tmpx = xx_mean(i,j,bi,bj)/xx_gen_wmean |
|
./pkg/ctrl/ctrl_cost_gen.F |
249 |
CTRL_COST_GEN2D |
if (xx_gen_mask(i,j,kk,bi,bj) .ne. 0. _d 0) then |
|
./pkg/ctrl/ctrl_cost_gen.F |
251 |
CTRL_COST_GEN2D |
if ( ABS(R_low(i,j,bi,bj)) .LT. 100. _d 0) |
|
./pkg/ctrl/ctrl_cost_gen.F |
252 |
CTRL_COST_GEN2D |
& tmpx = tmpx*ABS(R_low(i,j,bi,bj))/100. _d 0 |
|
./pkg/ctrl/ctrl_cost_gen.F |
253 |
CTRL_COST_GEN2D |
fctilem = fctilem + cosphi(i,j,bi,bj)*tmpx*tmpx |
|
./pkg/ctrl/ctrl_cost_gen.F |
254 |
CTRL_COST_GEN2D |
if ( cosphi(i,j,bi,bj) .ne. 0. _d 0) |
|
./pkg/ctrl/ctrl_cost_gen.F |
288 |
CTRL_COST_GEN2D |
do i = imin,imax |
|
./pkg/ctrl/ctrl_cost_gen.F |
289 |
CTRL_COST_GEN2D |
if (xx_gen_mask(i,j,kk,bi,bj) .ne. 0. _d 0) then |
|
./pkg/ctrl/ctrl_cost_gen.F |
292 |
CTRL_COST_GEN2D |
tmpx = tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_cost_gen.F |
293 |
CTRL_COST_GEN2D |
& - xx_mean(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_cost_gen.F |
297 |
CTRL_COST_GEN2D |
if ( ABS(R_low(i,j,bi,bj)) .LT. 100. _d 0 ) |
|
./pkg/ctrl/ctrl_cost_gen.F |
298 |
CTRL_COST_GEN2D |
& tmpx = tmpx*ABS(R_low(i,j,bi,bj))/100. _d 0 |
|
./pkg/ctrl/ctrl_cost_gen.F |
299 |
CTRL_COST_GEN2D |
fctile = fctile + xx_gen_weight(i,j,bi,bj)*tmpx*tmpx |
|
./pkg/ctrl/ctrl_cost_gen.F |
300 |
CTRL_COST_GEN2D |
& * cosphi(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_cost_gen.F |
302 |
CTRL_COST_GEN2D |
fctile = fctile + xx_gen_weight(i,j,bi,bj)*tmpx*tmpx |
|
./pkg/ctrl/ctrl_cost_gen.F |
305 |
CTRL_COST_GEN2D |
tmpx = tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_cost_gen.F |
309 |
CTRL_COST_GEN2D |
if ( xx_gen_weight(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_cost_gen.F |
310 |
CTRL_COST_GEN2D |
& *cosphi(i,j,bi,bj) .ne. 0. _d 0 ) |
|
./pkg/ctrl/ctrl_cost_gen.F |
312 |
CTRL_COST_GEN2D |
if ( xx_gen_weight(i,j,bi,bj) .ne. 0. _d 0 ) |
|
./pkg/ctrl/ctrl_cost_gen.F |
354 |
CTRL_COST_GEN2D |
do i = imin,imax |
|
./pkg/ctrl/ctrl_cost_gen.F |
355 |
CTRL_COST_GEN2D |
if (xx_gen_mask(i,j,kk,bi,bj) .ne. 0. _d 0) then |
|
./pkg/ctrl/ctrl_cost_gen.F |
357 |
CTRL_COST_GEN2D |
& ( tmpfld2d(i+2,j,bi,bj)-tmpfld2d(i+1,j,bi,bj) ) |
|
./pkg/ctrl/ctrl_cost_gen.F |
358 |
CTRL_COST_GEN2D |
& *maskW(i+1,j,kk,bi,bj)*maskW(i+2,j,kk,bi,bj) |
|
./pkg/ctrl/ctrl_cost_gen.F |
359 |
CTRL_COST_GEN2D |
& + ( tmpfld2d(i+1,j,bi,bj)-tmpfld2d(i,j,bi,bj) ) |
|
./pkg/ctrl/ctrl_cost_gen.F |
360 |
CTRL_COST_GEN2D |
& *maskW(i+1,j,kk,bi,bj) |
|
./pkg/ctrl/ctrl_cost_gen.F |
361 |
CTRL_COST_GEN2D |
& + ( tmpfld2d(i,j+2,bi,bj)-tmpfld2d(i,j+1,bi,bj) ) |
|
./pkg/ctrl/ctrl_cost_gen.F |
362 |
CTRL_COST_GEN2D |
& *maskS(i,j+1,kk,bi,bj)*maskS(i,j+2,kk,bi,bj) |
|
./pkg/ctrl/ctrl_cost_gen.F |
363 |
CTRL_COST_GEN2D |
& + ( tmpfld2d(i,j+1,bi,bj)-tmpfld2d(i,j,bi,bj) ) |
|
./pkg/ctrl/ctrl_cost_gen.F |
364 |
CTRL_COST_GEN2D |
& *maskS(i,j+1,kk,bi,bj) |
|
./pkg/ctrl/ctrl_cost_gen.F |
366 |
CTRL_COST_GEN2D |
if ( ABS(R_low(i,j,bi,bj)) .LT. 100. _d 0 ) |
|
./pkg/ctrl/ctrl_cost_gen.F |
367 |
CTRL_COST_GEN2D |
& tmpx = tmpx*ABS(R_low(i,j,bi,bj))/100. _d 0 |
|
./pkg/ctrl/ctrl_cost_gen.F |
369 |
CTRL_COST_GEN2D |
& + xx_gen_weight(i,j,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_cost_gen.F |
372 |
CTRL_COST_GEN2D |
& + xx_gen_weight(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_cost_gen.F |
377 |
CTRL_COST_GEN2D |
if ( xx_gen_weight(i,j,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_cost_gen.F |
380 |
CTRL_COST_GEN2D |
if ( xx_gen_weight(i,j,bi,bj) .ne. 0. _d 0 ) |
|
./pkg/ctrl/ctrl_cost_gen.F |
458 |
CTRL_COST_GEN3D |
integer i,j,k |
|
./pkg/ctrl/ctrl_cost_gen.F |
526 |
CTRL_COST_GEN3D |
do i = imin,imax |
|
./pkg/ctrl/ctrl_cost_gen.F |
527 |
CTRL_COST_GEN3D |
if (xx_gen_mask(i,j,k,bi,bj) .ne. 0. _d 0) then |
|
./pkg/ctrl/ctrl_cost_gen.F |
528 |
CTRL_COST_GEN3D |
tmpx = tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_cost_gen.F |
531 |
CTRL_COST_GEN3D |
& + xx_gen_weight(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_cost_gen.F |
536 |
CTRL_COST_GEN3D |
if ( xx_gen_weight(i,j,k,bi,bj) .ne. 0. _d 0 ) |
|
./pkg/ctrl/ctrl_cost_gen.F |
91 |
CTRL_COST_GEN2D |
integer i,j,kk |
|
./pkg/ctrl/ctrl_depth_ini.F |
106 |
CTRL_DEPTH_INI |
do i = 1-olx,snx+olx |
|
./pkg/ctrl/ctrl_depth_ini.F |
107 |
CTRL_DEPTH_INI |
xx_r_low(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_depth_ini.F |
122 |
CTRL_DEPTH_INI |
do i = imin,imax |
|
./pkg/ctrl/ctrl_depth_ini.F |
123 |
CTRL_DEPTH_INI |
xx_r_low(i,j,bi,bj) = r_low(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_depth_ini.F |
124 |
CTRL_DEPTH_INI |
& + fac*tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_depth_ini.F |
41 |
CTRL_DEPTH_INI |
integer i,j,k |
|
./pkg/ctrl/ctrl_depth_ini.F |
95 |
CTRL_DEPTH_INI |
do i = 1-olx,snx+olx |
|
./pkg/ctrl/ctrl_depth_ini.F |
96 |
CTRL_DEPTH_INI |
tmpfld2d(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_get_gen.F |
270 |
CTRL_GET_GEN |
do i = 1,snx |
|
./pkg/ctrl/ctrl_get_gen.F |
271 |
CTRL_GET_GEN |
genfld(i,j,bi,bj) = genfld (i,j,bi,bj) |
|
./pkg/ctrl/ctrl_get_gen.F |
272 |
CTRL_GET_GEN |
& + gensign*genfac *xx_gen0(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_get_gen.F |
273 |
CTRL_GET_GEN |
& + gensign*(1. _d 0 - genfac)*xx_gen1(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_get_gen.F |
274 |
CTRL_GET_GEN |
genfld(i,j,bi,bj) = |
|
./pkg/ctrl/ctrl_get_gen.F |
275 |
CTRL_GET_GEN |
& genmask(i,j,k,bi,bj)*( genfld (i,j,bi,bj) - |
|
./pkg/ctrl/ctrl_get_gen.F |
68 |
CTRL_GET_GEN |
integer i,j,k |
|
./pkg/ctrl/ctrl_getobcse.F |
133 |
CTRL_GETOBCSE |
i = OB_Ie(j,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
134 |
CTRL_GETOBCSE |
IF ( i.EQ.OB_indexNone ) i = 1 |
|
./pkg/ctrl/ctrl_getobcse.F |
139 |
CTRL_GETOBCSE |
nz = nz + maskW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
141 |
CTRL_GETOBCSE |
nz = nz + maskS(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
160 |
CTRL_GETOBCSE |
& *recip_hFacW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
163 |
CTRL_GETOBCSE |
& *recip_hFacS(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
202 |
CTRL_GETOBCSE |
i = OB_Ie(j,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
203 |
CTRL_GETOBCSE |
IF ( i.EQ.OB_indexNone ) i = 1 |
|
./pkg/ctrl/ctrl_getobcse.F |
208 |
CTRL_GETOBCSE |
nz = nz + maskW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
210 |
CTRL_GETOBCSE |
nz = nz + maskS(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
229 |
CTRL_GETOBCSE |
& *recip_hFacW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
232 |
CTRL_GETOBCSE |
& *recip_hFacS(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
254 |
CTRL_GETOBCSE |
i = OB_Ie(j,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
255 |
CTRL_GETOBCSE |
IF ( i.EQ.OB_indexNone ) i = 1 |
|
./pkg/ctrl/ctrl_getobcse.F |
261 |
CTRL_GETOBCSE |
& *maskW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
267 |
CTRL_GETOBCSE |
& *maskW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
273 |
CTRL_GETOBCSE |
& *maskW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
279 |
CTRL_GETOBCSE |
& *maskS(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
55 |
CTRL_GETOBCSE |
integer i,j,k |
|
./pkg/ctrl/ctrl_getobcsn.F |
137 |
CTRL_GETOBCSN |
do i = imin,imax |
|
./pkg/ctrl/ctrl_getobcsn.F |
138 |
CTRL_GETOBCSN |
j = OB_Jn(i,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
144 |
CTRL_GETOBCSN |
nz = nz + maskS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
146 |
CTRL_GETOBCSN |
nz = nz + maskW(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
155 |
CTRL_GETOBCSN |
& modesv(k,nk,nz)*tmpfldxz(i,nk,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
164 |
CTRL_GETOBCSN |
tmpfldxz(i,k,bi,bj) = tmpz(k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
165 |
CTRL_GETOBCSN |
& *recip_hFacS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
167 |
CTRL_GETOBCSN |
tmpfldxz(i,k,bi,bj) = tmpz(k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
168 |
CTRL_GETOBCSN |
& *recip_hFacW(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
175 |
CTRL_GETOBCSN |
do i = imin,imax |
|
./pkg/ctrl/ctrl_getobcsn.F |
176 |
CTRL_GETOBCSN |
xx_obcsn1(i,k,bi,bj,iobcs) = tmpfldxz (i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
189 |
CTRL_GETOBCSN |
do i = imin,imax |
|
./pkg/ctrl/ctrl_getobcsn.F |
190 |
CTRL_GETOBCSN |
xx_obcsn0(i,k,bi,bj,iobcs) = xx_obcsn1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsn.F |
191 |
CTRL_GETOBCSN |
tmpfldxz (i,k,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_getobcsn.F |
206 |
CTRL_GETOBCSN |
do i = imin,imax |
|
./pkg/ctrl/ctrl_getobcsn.F |
207 |
CTRL_GETOBCSN |
j = OB_Jn(i,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
213 |
CTRL_GETOBCSN |
nz = nz + maskS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
215 |
CTRL_GETOBCSN |
nz = nz + maskW(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
224 |
CTRL_GETOBCSN |
& modesv(k,nk,nz)*tmpfldxz(i,nk,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
233 |
CTRL_GETOBCSN |
tmpfldxz(i,k,bi,bj) = tmpz(k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
234 |
CTRL_GETOBCSN |
& *recip_hFacS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
236 |
CTRL_GETOBCSN |
tmpfldxz(i,k,bi,bj) = tmpz(k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
237 |
CTRL_GETOBCSN |
& *recip_hFacW(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
244 |
CTRL_GETOBCSN |
do i = imin,imax |
|
./pkg/ctrl/ctrl_getobcsn.F |
245 |
CTRL_GETOBCSN |
xx_obcsn1 (i,k,bi,bj,iobcs) = tmpfldxz (i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
259 |
CTRL_GETOBCSN |
do i = 1,snx |
|
./pkg/ctrl/ctrl_getobcsn.F |
263 |
CTRL_GETOBCSN |
OBNt(i,k,bi,bj) = OBNt (i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
264 |
CTRL_GETOBCSN |
& + obcsnfac *xx_obcsn0(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsn.F |
265 |
CTRL_GETOBCSN |
& + (1. _d 0 - obcsnfac)*xx_obcsn1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsn.F |
266 |
CTRL_GETOBCSN |
OBNt(i,k,bi,bj) = OBNt(i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
267 |
CTRL_GETOBCSN |
& *maskS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
269 |
CTRL_GETOBCSN |
OBNs(i,k,bi,bj) = OBNs (i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
270 |
CTRL_GETOBCSN |
& + obcsnfac *xx_obcsn0(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsn.F |
271 |
CTRL_GETOBCSN |
& + (1. _d 0 - obcsnfac)*xx_obcsn1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsn.F |
272 |
CTRL_GETOBCSN |
OBNs(i,k,bi,bj) = OBNs(i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
273 |
CTRL_GETOBCSN |
& *maskS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
275 |
CTRL_GETOBCSN |
OBNu(i,k,bi,bj) = OBNu (i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
276 |
CTRL_GETOBCSN |
& + obcsnfac *xx_obcsn0(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsn.F |
277 |
CTRL_GETOBCSN |
& + (1. _d 0 - obcsnfac)*xx_obcsn1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsn.F |
278 |
CTRL_GETOBCSN |
OBNu(i,k,bi,bj) = OBNu(i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
279 |
CTRL_GETOBCSN |
& *maskW(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
281 |
CTRL_GETOBCSN |
OBNv(i,k,bi,bj) = OBNv (i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
282 |
CTRL_GETOBCSN |
& + obcsnfac *xx_obcsn0(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsn.F |
283 |
CTRL_GETOBCSN |
& + (1. _d 0 - obcsnfac)*xx_obcsn1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsn.F |
284 |
CTRL_GETOBCSN |
OBNv(i,k,bi,bj) = OBNv(i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
285 |
CTRL_GETOBCSN |
& *maskS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
56 |
CTRL_GETOBCSN |
integer i,j,k |
|
./pkg/ctrl/ctrl_getobcss.F |
133 |
CTRL_GETOBCSS |
do i = imin,imax |
|
./pkg/ctrl/ctrl_getobcss.F |
134 |
CTRL_GETOBCSS |
j = OB_Js(i,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
140 |
CTRL_GETOBCSS |
nz = nz + maskS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
142 |
CTRL_GETOBCSS |
nz = nz + maskW(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
151 |
CTRL_GETOBCSS |
& modesv(k,nk,nz)*tmpfldxz(i,nk,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
160 |
CTRL_GETOBCSS |
tmpfldxz(i,k,bi,bj) = tmpz(k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
161 |
CTRL_GETOBCSS |
& *recip_hFacS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
163 |
CTRL_GETOBCSS |
tmpfldxz(i,k,bi,bj) = tmpz(k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
164 |
CTRL_GETOBCSS |
& *recip_hFacW(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
171 |
CTRL_GETOBCSS |
do i = imin,imax |
|
./pkg/ctrl/ctrl_getobcss.F |
172 |
CTRL_GETOBCSS |
xx_obcss1(i,k,bi,bj,iobcs) = tmpfldxz (i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
185 |
CTRL_GETOBCSS |
do i = imin,imax |
|
./pkg/ctrl/ctrl_getobcss.F |
186 |
CTRL_GETOBCSS |
xx_obcss0(i,k,bi,bj,iobcs) = xx_obcss1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcss.F |
187 |
CTRL_GETOBCSS |
tmpfldxz (i,k,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_getobcss.F |
202 |
CTRL_GETOBCSS |
do i = imin,imax |
|
./pkg/ctrl/ctrl_getobcss.F |
203 |
CTRL_GETOBCSS |
j = OB_Js(i,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
209 |
CTRL_GETOBCSS |
nz = nz + maskS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
211 |
CTRL_GETOBCSS |
nz = nz + maskW(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
220 |
CTRL_GETOBCSS |
& modesv(k,nk,nz)*tmpfldxz(i,nk,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
229 |
CTRL_GETOBCSS |
tmpfldxz(i,k,bi,bj) = tmpz(k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
230 |
CTRL_GETOBCSS |
& *recip_hFacS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
232 |
CTRL_GETOBCSS |
tmpfldxz(i,k,bi,bj) = tmpz(k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
233 |
CTRL_GETOBCSS |
& *recip_hFacW(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
240 |
CTRL_GETOBCSS |
do i = imin,imax |
|
./pkg/ctrl/ctrl_getobcss.F |
241 |
CTRL_GETOBCSS |
xx_obcss1 (i,k,bi,bj,iobcs) = tmpfldxz (i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
254 |
CTRL_GETOBCSS |
do i = 1,snx |
|
./pkg/ctrl/ctrl_getobcss.F |
258 |
CTRL_GETOBCSS |
OBSt(i,k,bi,bj) = OBSt (i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
259 |
CTRL_GETOBCSS |
& + obcssfac *xx_obcss0(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcss.F |
260 |
CTRL_GETOBCSS |
& + (1. _d 0 - obcssfac)*xx_obcss1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcss.F |
261 |
CTRL_GETOBCSS |
OBSt(i,k,bi,bj) = OBSt(i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
262 |
CTRL_GETOBCSS |
& *maskS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
264 |
CTRL_GETOBCSS |
OBSs(i,k,bi,bj) = OBSs (i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
265 |
CTRL_GETOBCSS |
& + obcssfac *xx_obcss0(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcss.F |
266 |
CTRL_GETOBCSS |
& + (1. _d 0 - obcssfac)*xx_obcss1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcss.F |
267 |
CTRL_GETOBCSS |
OBSs(i,k,bi,bj) = OBSs(i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
268 |
CTRL_GETOBCSS |
& *maskS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
270 |
CTRL_GETOBCSS |
OBSu(i,k,bi,bj) = OBSu (i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
271 |
CTRL_GETOBCSS |
& + obcssfac *xx_obcss0(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcss.F |
272 |
CTRL_GETOBCSS |
& + (1. _d 0 - obcssfac)*xx_obcss1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcss.F |
273 |
CTRL_GETOBCSS |
OBSu(i,k,bi,bj) = OBSu(i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
274 |
CTRL_GETOBCSS |
& *maskW(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
276 |
CTRL_GETOBCSS |
OBSv(i,k,bi,bj) = OBSv (i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
277 |
CTRL_GETOBCSS |
& + obcssfac *xx_obcss0(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcss.F |
278 |
CTRL_GETOBCSS |
& + (1. _d 0 - obcssfac)*xx_obcss1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcss.F |
279 |
CTRL_GETOBCSS |
OBSv(i,k,bi,bj) = OBSv(i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
280 |
CTRL_GETOBCSS |
& *maskS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
57 |
CTRL_GETOBCSS |
integer i,j,k |
|
./pkg/ctrl/ctrl_getobcsw.F |
133 |
CTRL_GETOBCSW |
i = OB_Iw(j,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
134 |
CTRL_GETOBCSW |
IF ( i.EQ.OB_indexNone ) i = 1 |
|
./pkg/ctrl/ctrl_getobcsw.F |
139 |
CTRL_GETOBCSW |
nz = nz + maskW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
141 |
CTRL_GETOBCSW |
nz = nz + maskS(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
160 |
CTRL_GETOBCSW |
& *recip_hFacW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
163 |
CTRL_GETOBCSW |
& *recip_hFacS(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
202 |
CTRL_GETOBCSW |
i = OB_Iw(j,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
203 |
CTRL_GETOBCSW |
IF ( i.EQ.OB_indexNone ) i = 1 |
|
./pkg/ctrl/ctrl_getobcsw.F |
208 |
CTRL_GETOBCSW |
nz = nz + maskW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
210 |
CTRL_GETOBCSW |
nz = nz + maskS(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
229 |
CTRL_GETOBCSW |
& *recip_hFacW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
232 |
CTRL_GETOBCSW |
& *recip_hFacS(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
254 |
CTRL_GETOBCSW |
i = OB_Iw(j,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
255 |
CTRL_GETOBCSW |
IF ( i.EQ.OB_indexNone ) i = 1 |
|
./pkg/ctrl/ctrl_getobcsw.F |
261 |
CTRL_GETOBCSW |
& *maskW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
267 |
CTRL_GETOBCSW |
& *maskW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
273 |
CTRL_GETOBCSW |
& *maskW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
279 |
CTRL_GETOBCSW |
& *maskS(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
56 |
CTRL_GETOBCSW |
integer i,j,k |
|
./lsopt/dostore.F |
19 |
DOSTORE |
do i = 1, n |
|
./lsopt/dostore.F |
20 |
DOSTORE |
tmpx(i) = x(i) |
|
./lsopt/dostore.F |
25 |
DOSTORE |
do i = 1, n |
|
./lsopt/dostore.F |
26 |
DOSTORE |
x(i) = tmpx(i) |
|
./lsopt/dostore.F |
5 |
DOSTORE |
integer n, i, j |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
104 |
CTRL_HFACC_INI |
do i = imin,imax |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
105 |
CTRL_HFACC_INI |
hFacC(i,j,k,bi,bj) = 0. |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
106 |
CTRL_HFACC_INI |
tmpfld3d(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
129 |
CTRL_HFACC_INI |
do i = imin,imax |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
130 |
CTRL_HFACC_INI |
hFacC(i,j,k,bi,bj) = hFacC(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
131 |
CTRL_HFACC_INI |
& fac*tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
144 |
CTRL_HFACC_INI |
do i = imin,imax |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
145 |
CTRL_HFACC_INI |
k = k_lowC(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
147 |
CTRL_HFACC_INI |
hFacC(i,j,k,bi,bj) = hFacC(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
148 |
CTRL_HFACC_INI |
& + fac*tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
41 |
CTRL_HFACC_INI |
integer i,j,k |
|
./pkg/ctrl/ctrl_init.F |
115 |
CTRL_INIT |
do i=1-olx,sNx+olx |
|
./pkg/ctrl/ctrl_init.F |
116 |
CTRL_INIT |
loctmp3d(i,j,k,bi,bj) = 1. _d 0 |
|
./pkg/ctrl/ctrl_init.F |
412 |
CTRL_INIT |
read(dUnit,rec=j) ((modesv(k,i,j), k=1,Nr), i=1,Nr) |
|
./pkg/ctrl/ctrl_init.F |
55 |
CTRL_INIT |
integer i,j,k |
|
./pkg/ctrl/ctrl_init.F |
939 |
CTRL_INIT |
do i = 1, dic_n_control |
|
./pkg/ctrl/ctrl_init.F |
940 |
CTRL_INIT |
xx_dic(i) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init.F |
950 |
CTRL_INIT |
do i = imin,imax |
|
./pkg/ctrl/ctrl_init.F |
951 |
CTRL_INIT |
wareaunit (i,j,bi,bj) = 1.0 |
|
./pkg/ctrl/ctrl_init.F |
953 |
CTRL_INIT |
whflux (i,j,bi,bj) = maskC(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init.F |
954 |
CTRL_INIT |
wsflux (i,j,bi,bj) = maskC(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init.F |
955 |
CTRL_INIT |
wtauu (i,j,bi,bj) = maskW(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init.F |
956 |
CTRL_INIT |
wtauv (i,j,bi,bj) = maskS(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init.F |
957 |
CTRL_INIT |
watemp (i,j,bi,bj) = maskC(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init.F |
958 |
CTRL_INIT |
waqh (i,j,bi,bj) = maskC(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init.F |
959 |
CTRL_INIT |
wprecip (i,j,bi,bj) = maskC(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init.F |
960 |
CTRL_INIT |
wswflux (i,j,bi,bj) = maskC(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init.F |
961 |
CTRL_INIT |
wswdown (i,j,bi,bj) = maskC(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init.F |
962 |
CTRL_INIT |
wuwind (i,j,bi,bj) = maskC(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init.F |
963 |
CTRL_INIT |
wvwind (i,j,bi,bj) = maskC(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init.F |
964 |
CTRL_INIT |
wlwflux (i,j,bi,bj) = maskC(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init.F |
965 |
CTRL_INIT |
wlwdown (i,j,bi,bj) = maskC(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init.F |
966 |
CTRL_INIT |
wevap (i,j,bi,bj) = maskC(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init.F |
967 |
CTRL_INIT |
wsnowprecip(i,j,bi,bj) = maskC(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init.F |
968 |
CTRL_INIT |
wapressure(i,j,bi,bj) = maskC(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init.F |
969 |
CTRL_INIT |
wrunoff (i,j,bi,bj) = maskC(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init.F |
970 |
CTRL_INIT |
wsst (i,j,bi,bj) = maskC(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init.F |
971 |
CTRL_INIT |
wsss (i,j,bi,bj) = maskC(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
40 |
CTRL_INIT_OBCS_VARIABLES |
integer i,j,k |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
65 |
CTRL_INIT_OBCS_VARIABLES |
do i = imin,imax |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
66 |
CTRL_INIT_OBCS_VARIABLES |
xx_obcsn0(i,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
67 |
CTRL_INIT_OBCS_VARIABLES |
xx_obcsn1(i,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
80 |
CTRL_INIT_OBCS_VARIABLES |
do i = imin,imax |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
81 |
CTRL_INIT_OBCS_VARIABLES |
xx_obcss0(i,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
82 |
CTRL_INIT_OBCS_VARIABLES |
xx_obcss1(i,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_rec.F |
61 |
CTRL_INIT_REC |
integer i |
|
./pkg/ctrl/ctrl_init_rec.F |
82 |
CTRL_INIT_REC |
do i = 1,4 |
|
./pkg/ctrl/ctrl_init_rec.F |
83 |
CTRL_INIT_REC |
fldstartdate(i) = 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
103 |
CTRL_INIT_VARIABLES |
do i = imin,imax |
|
./pkg/ctrl/ctrl_init_variables.F |
104 |
CTRL_INIT_VARIABLES |
xx_tauu0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
105 |
CTRL_INIT_VARIABLES |
xx_tauu1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
116 |
CTRL_INIT_VARIABLES |
do i = imin,imax |
|
./pkg/ctrl/ctrl_init_variables.F |
117 |
CTRL_INIT_VARIABLES |
xx_tauv0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
118 |
CTRL_INIT_VARIABLES |
xx_tauv1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
129 |
CTRL_INIT_VARIABLES |
do i = imin,imax |
|
./pkg/ctrl/ctrl_init_variables.F |
130 |
CTRL_INIT_VARIABLES |
xx_uwind0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
131 |
CTRL_INIT_VARIABLES |
xx_uwind1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
142 |
CTRL_INIT_VARIABLES |
do i = imin,imax |
|
./pkg/ctrl/ctrl_init_variables.F |
143 |
CTRL_INIT_VARIABLES |
xx_vwind0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
144 |
CTRL_INIT_VARIABLES |
xx_vwind1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
155 |
CTRL_INIT_VARIABLES |
do i = imin,imax |
|
./pkg/ctrl/ctrl_init_variables.F |
156 |
CTRL_INIT_VARIABLES |
xx_atemp0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
157 |
CTRL_INIT_VARIABLES |
xx_atemp1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
168 |
CTRL_INIT_VARIABLES |
do i = imin,imax |
|
./pkg/ctrl/ctrl_init_variables.F |
169 |
CTRL_INIT_VARIABLES |
xx_aqh0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
170 |
CTRL_INIT_VARIABLES |
xx_aqh1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
181 |
CTRL_INIT_VARIABLES |
do i = imin,imax |
|
./pkg/ctrl/ctrl_init_variables.F |
182 |
CTRL_INIT_VARIABLES |
xx_precip0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
183 |
CTRL_INIT_VARIABLES |
xx_precip1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
194 |
CTRL_INIT_VARIABLES |
do i = imin,imax |
|
./pkg/ctrl/ctrl_init_variables.F |
195 |
CTRL_INIT_VARIABLES |
xx_swflux0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
196 |
CTRL_INIT_VARIABLES |
xx_swflux1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
207 |
CTRL_INIT_VARIABLES |
do i = imin,imax |
|
./pkg/ctrl/ctrl_init_variables.F |
208 |
CTRL_INIT_VARIABLES |
xx_swdown0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
209 |
CTRL_INIT_VARIABLES |
xx_swdown1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
220 |
CTRL_INIT_VARIABLES |
do i = imin,imax |
|
./pkg/ctrl/ctrl_init_variables.F |
221 |
CTRL_INIT_VARIABLES |
xx_lwflux0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
222 |
CTRL_INIT_VARIABLES |
xx_lwflux1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
233 |
CTRL_INIT_VARIABLES |
do i = imin,imax |
|
./pkg/ctrl/ctrl_init_variables.F |
234 |
CTRL_INIT_VARIABLES |
xx_lwdown0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
235 |
CTRL_INIT_VARIABLES |
xx_lwdown1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
246 |
CTRL_INIT_VARIABLES |
do i = imin,imax |
|
./pkg/ctrl/ctrl_init_variables.F |
247 |
CTRL_INIT_VARIABLES |
xx_evap0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
248 |
CTRL_INIT_VARIABLES |
xx_evap1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
259 |
CTRL_INIT_VARIABLES |
do i = imin,imax |
|
./pkg/ctrl/ctrl_init_variables.F |
260 |
CTRL_INIT_VARIABLES |
xx_snowprecip0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
261 |
CTRL_INIT_VARIABLES |
xx_snowprecip1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
272 |
CTRL_INIT_VARIABLES |
do i = imin,imax |
|
./pkg/ctrl/ctrl_init_variables.F |
273 |
CTRL_INIT_VARIABLES |
xx_apressure0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
274 |
CTRL_INIT_VARIABLES |
xx_apressure1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
285 |
CTRL_INIT_VARIABLES |
do i = imin,imax |
|
./pkg/ctrl/ctrl_init_variables.F |
286 |
CTRL_INIT_VARIABLES |
xx_runoff0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
287 |
CTRL_INIT_VARIABLES |
xx_runoff1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
298 |
CTRL_INIT_VARIABLES |
do i = imin,imax |
|
./pkg/ctrl/ctrl_init_variables.F |
299 |
CTRL_INIT_VARIABLES |
xx_sst0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
300 |
CTRL_INIT_VARIABLES |
xx_sst1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
311 |
CTRL_INIT_VARIABLES |
do i = imin,imax |
|
./pkg/ctrl/ctrl_init_variables.F |
312 |
CTRL_INIT_VARIABLES |
xx_sss0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
313 |
CTRL_INIT_VARIABLES |
xx_sss1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
324 |
CTRL_INIT_VARIABLES |
do i = imin,imax |
|
./pkg/ctrl/ctrl_init_variables.F |
325 |
CTRL_INIT_VARIABLES |
xx_shifwflx0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
326 |
CTRL_INIT_VARIABLES |
xx_shifwflx1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
337 |
CTRL_INIT_VARIABLES |
do i = imin,imax |
|
./pkg/ctrl/ctrl_init_variables.F |
338 |
CTRL_INIT_VARIABLES |
bottomDragFld(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
349 |
CTRL_INIT_VARIABLES |
do i = imin,imax |
|
./pkg/ctrl/ctrl_init_variables.F |
351 |
CTRL_INIT_VARIABLES |
xx_atemp_mean (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
354 |
CTRL_INIT_VARIABLES |
xx_aqh_mean (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
357 |
CTRL_INIT_VARIABLES |
xx_uwind_mean (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
360 |
CTRL_INIT_VARIABLES |
xx_vwind_mean (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
363 |
CTRL_INIT_VARIABLES |
xx_precip_mean(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
366 |
CTRL_INIT_VARIABLES |
xx_swdown_mean(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
44 |
CTRL_INIT_VARIABLES |
integer i,j,k |
|
./pkg/ctrl/ctrl_init_variables.F |
77 |
CTRL_INIT_VARIABLES |
do i = imin,imax |
|
./pkg/ctrl/ctrl_init_variables.F |
78 |
CTRL_INIT_VARIABLES |
xx_hflux0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
79 |
CTRL_INIT_VARIABLES |
xx_hflux1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
90 |
CTRL_INIT_VARIABLES |
do i = imin,imax |
|
./pkg/ctrl/ctrl_init_variables.F |
91 |
CTRL_INIT_VARIABLES |
xx_sflux0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
92 |
CTRL_INIT_VARIABLES |
xx_sflux1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_wet.F |
115 |
CTRL_INIT_WET |
do i = imin,imax |
|
./pkg/ctrl/ctrl_init_wet.F |
117 |
CTRL_INIT_WET |
if (maskC(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_init_wet.F |
121 |
CTRL_INIT_WET |
if (maskS(i,j,k,bi,bj) .eq. 1.) then |
|
./pkg/ctrl/ctrl_init_wet.F |
125 |
CTRL_INIT_WET |
if (maskW(i,j,k,bi,bj) .eq. 1.) then |
|
./pkg/ctrl/ctrl_init_wet.F |
130 |
CTRL_INIT_WET |
if (hFacV(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_init_wet.F |
136 |
CTRL_INIT_WET |
if (maskSHI(i,j,k,bi,bj) .eq. 1.) then |
|
./pkg/ctrl/ctrl_init_wet.F |
182 |
CTRL_INIT_WET |
do i = 1,maxcvars |
|
./pkg/ctrl/ctrl_init_wet.F |
184 |
CTRL_INIT_WET |
if ( ncvarindex(i) .ne. -1 ) then |
|
./pkg/ctrl/ctrl_init_wet.F |
188 |
CTRL_INIT_WET |
do k = 1,ncvarnrmax(i) |
|
./pkg/ctrl/ctrl_init_wet.F |
189 |
CTRL_INIT_WET |
if ( ncvargrd(i) .eq. 'c' ) then |
|
./pkg/ctrl/ctrl_init_wet.F |
191 |
CTRL_INIT_WET |
& ncvarrecs(i)*nwetctile(bi,bj,k) |
|
./pkg/ctrl/ctrl_init_wet.F |
192 |
CTRL_INIT_WET |
else if ( ncvargrd(i) .eq. 's' ) then |
|
./pkg/ctrl/ctrl_init_wet.F |
194 |
CTRL_INIT_WET |
& ncvarrecs(i)*nwetstile(bi,bj,k) |
|
./pkg/ctrl/ctrl_init_wet.F |
195 |
CTRL_INIT_WET |
else if ( ncvargrd(i) .eq. 'w' ) then |
|
./pkg/ctrl/ctrl_init_wet.F |
197 |
CTRL_INIT_WET |
& ncvarrecs(i)*nwetwtile(bi,bj,k) |
|
./pkg/ctrl/ctrl_init_wet.F |
198 |
CTRL_INIT_WET |
else if ( ncvargrd(i) .eq. 'v' ) then |
|
./pkg/ctrl/ctrl_init_wet.F |
200 |
CTRL_INIT_WET |
& ncvarrecs(i)*nwetvtile(bi,bj,k) |
|
./pkg/ctrl/ctrl_init_wet.F |
203 |
CTRL_INIT_WET |
else if ( ncvargrd(i) .eq. 'i') then |
|
./pkg/ctrl/ctrl_init_wet.F |
205 |
CTRL_INIT_WET |
& ncvarrecs(i)*nwetitile(bi,bj,k) |
|
./pkg/ctrl/ctrl_init_wet.F |
207 |
CTRL_INIT_WET |
else if ( ncvargrd(i) .eq. 'm' ) then |
|
./pkg/ctrl/ctrl_init_wet.F |
212 |
CTRL_INIT_WET |
if ( i .eq. 11 ) then |
|
./pkg/ctrl/ctrl_init_wet.F |
215 |
CTRL_INIT_WET |
& (ncvarrecs(i)/nobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
218 |
CTRL_INIT_WET |
else if ( i .eq. 12 ) then |
|
./pkg/ctrl/ctrl_init_wet.F |
221 |
CTRL_INIT_WET |
& (ncvarrecs(i)/nobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
224 |
CTRL_INIT_WET |
else if ( i .eq. 13 ) then |
|
./pkg/ctrl/ctrl_init_wet.F |
227 |
CTRL_INIT_WET |
& (ncvarrecs(i)/nobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
230 |
CTRL_INIT_WET |
else if ( i .eq. 14 ) then |
|
./pkg/ctrl/ctrl_init_wet.F |
233 |
CTRL_INIT_WET |
& (ncvarrecs(i)/nobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
241 |
CTRL_INIT_WET |
print*,' control variable = ',ncvarindex(i) |
|
./pkg/ctrl/ctrl_init_wet.F |
242 |
CTRL_INIT_WET |
print*,' grid location = ',ncvargrd(i) |
|
./pkg/ctrl/ctrl_init_wet.F |
282 |
CTRL_INIT_WET |
do i = 1, maxcvars |
|
./pkg/ctrl/ctrl_init_wet.F |
284 |
CTRL_INIT_WET |
& 'ctrl-wet 6: no recs for i = ', i, ncvarrecs(i) |
|
./pkg/ctrl/ctrl_init_wet.F |
37 |
CTRL_INIT_WET |
integer i,j,k |
|
./pkg/ctrl/ctrl_map_forcing.F |
122 |
CTRL_MAP_FORCING |
do i = imin,imax |
|
./pkg/ctrl/ctrl_map_forcing.F |
124 |
CTRL_MAP_FORCING |
fu(i,j,bi,bj) = fu(i,j,bi,bj) + |
|
./pkg/ctrl/ctrl_map_forcing.F |
125 |
CTRL_MAP_FORCING |
& xx_tauu0(i,j,bi,bj) + |
|
./pkg/ctrl/ctrl_map_forcing.F |
126 |
CTRL_MAP_FORCING |
& tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_forcing.F |
128 |
CTRL_MAP_FORCING |
fu(i,j,bi,bj) = fu(i,j,bi,bj) + tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_forcing.F |
147 |
CTRL_MAP_FORCING |
do i = imin,imax |
|
./pkg/ctrl/ctrl_map_forcing.F |
149 |
CTRL_MAP_FORCING |
fv(i,j,bi,bj) = fv(i,j,bi,bj) + |
|
./pkg/ctrl/ctrl_map_forcing.F |
150 |
CTRL_MAP_FORCING |
& xx_tauv0(i,j,bi,bj) + |
|
./pkg/ctrl/ctrl_map_forcing.F |
151 |
CTRL_MAP_FORCING |
& tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_forcing.F |
153 |
CTRL_MAP_FORCING |
fv(i,j,bi,bj) = fv(i,j,bi,bj) + tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_forcing.F |
172 |
CTRL_MAP_FORCING |
do i = imin,imax |
|
./pkg/ctrl/ctrl_map_forcing.F |
174 |
CTRL_MAP_FORCING |
empmr(i,j,bi,bj) = empmr(i,j,bi,bj) + |
|
./pkg/ctrl/ctrl_map_forcing.F |
175 |
CTRL_MAP_FORCING |
& xx_sflux0(i,j,bi,bj) + |
|
./pkg/ctrl/ctrl_map_forcing.F |
176 |
CTRL_MAP_FORCING |
& tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_forcing.F |
178 |
CTRL_MAP_FORCING |
empmr(i,j,bi,bj) = empmr(i,j,bi,bj) + tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_forcing.F |
197 |
CTRL_MAP_FORCING |
do i = imin,imax |
|
./pkg/ctrl/ctrl_map_forcing.F |
199 |
CTRL_MAP_FORCING |
qnet(i,j,bi,bj) = qnet(i,j,bi,bj) + |
|
./pkg/ctrl/ctrl_map_forcing.F |
200 |
CTRL_MAP_FORCING |
& xx_hflux0(i,j,bi,bj) + |
|
./pkg/ctrl/ctrl_map_forcing.F |
201 |
CTRL_MAP_FORCING |
& tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_forcing.F |
203 |
CTRL_MAP_FORCING |
qnet(i,j,bi,bj) = qnet(i,j,bi,bj) + tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_forcing.F |
222 |
CTRL_MAP_FORCING |
do i = imin,imax |
|
./pkg/ctrl/ctrl_map_forcing.F |
223 |
CTRL_MAP_FORCING |
sss(i,j,bi,bj) = sss(i,j,bi,bj) + tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_forcing.F |
241 |
CTRL_MAP_FORCING |
do i = imin,imax |
|
./pkg/ctrl/ctrl_map_forcing.F |
242 |
CTRL_MAP_FORCING |
sst(i,j,bi,bj) = sst(i,j,bi,bj) + tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_forcing.F |
260 |
CTRL_MAP_FORCING |
do i = imin,imax |
|
./pkg/ctrl/ctrl_map_forcing.F |
262 |
CTRL_MAP_FORCING |
Qnetm(i,j,bi,bj) = Qnetm(i,j,bi,bj) + |
|
./pkg/ctrl/ctrl_map_forcing.F |
263 |
CTRL_MAP_FORCING |
& xx_hfluxm(i,j,bi,bj) + |
|
./pkg/ctrl/ctrl_map_forcing.F |
264 |
CTRL_MAP_FORCING |
& tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_forcing.F |
266 |
CTRL_MAP_FORCING |
Qnetm(i,j,bi,bj) = Qnetm(i,j,bi,bj) + tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_forcing.F |
304 |
CTRL_MAP_FORCING |
do i = 1-olx,snx+olx |
|
./pkg/ctrl/ctrl_map_forcing.F |
305 |
CTRL_MAP_FORCING |
tmpUE(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_map_forcing.F |
306 |
CTRL_MAP_FORCING |
tmpVN(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_map_forcing.F |
307 |
CTRL_MAP_FORCING |
tmpUX(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_map_forcing.F |
308 |
CTRL_MAP_FORCING |
tmpVY(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_map_forcing.F |
317 |
CTRL_MAP_FORCING |
DO i = 1,sNx |
|
./pkg/ctrl/ctrl_map_forcing.F |
320 |
CTRL_MAP_FORCING |
& (i,j,bi,bj)=tmpUE(i,j,bi,bj)+xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/ctrl/ctrl_map_forcing.F |
322 |
CTRL_MAP_FORCING |
& (i,j,bi,bj)=tmpVN(i,j,bi,bj)+xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/ctrl/ctrl_map_forcing.F |
337 |
CTRL_MAP_FORCING |
DO i = 1,snx |
|
./pkg/ctrl/ctrl_map_forcing.F |
338 |
CTRL_MAP_FORCING |
fu(i,j,bi,bj)=fu(i,j,bi,bj)+tmpUX(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_forcing.F |
339 |
CTRL_MAP_FORCING |
fv(i,j,bi,bj)=fv(i,j,bi,bj)+tmpVY(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_forcing.F |
342 |
CTRL_MAP_FORCING |
& (i,j,bi,bj)=Qnet(i,j,bi,bj)+xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/ctrl/ctrl_map_forcing.F |
344 |
CTRL_MAP_FORCING |
& (i,j,bi,bj)=EmPmR(i,j,bi,bj)+xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/ctrl/ctrl_map_forcing.F |
346 |
CTRL_MAP_FORCING |
& (i,j,bi,bj)=Qsw(i,j,bi,bj)+xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/ctrl/ctrl_map_forcing.F |
348 |
CTRL_MAP_FORCING |
& (i,j,bi,bj)=SST(i,j,bi,bj)+xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/ctrl/ctrl_map_forcing.F |
350 |
CTRL_MAP_FORCING |
& (i,j,bi,bj)=SSS(i,j,bi,bj)+xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/ctrl/ctrl_map_forcing.F |
352 |
CTRL_MAP_FORCING |
& (i,j,bi,bj)=pLoad(i,j,bi,bj)+xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/ctrl/ctrl_map_forcing.F |
354 |
CTRL_MAP_FORCING |
& (i,j,bi,bj)=saltFlux(i,j,bi,bj)+xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/ctrl/ctrl_map_forcing.F |
356 |
CTRL_MAP_FORCING |
& (i,j,bi,bj)=fu(i,j,bi,bj)+xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/ctrl/ctrl_map_forcing.F |
358 |
CTRL_MAP_FORCING |
& (i,j,bi,bj)=fv(i,j,bi,bj)+xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/ctrl/ctrl_map_forcing.F |
51 |
CTRL_MAP_FORCING |
integer i,j |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
103 |
CTRL_MAP_GENTIM2D |
do i = 1,sNx |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
105 |
CTRL_MAP_GENTIM2D |
xx_gentim2d(i,j,bi,bj,iarr)=xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
106 |
CTRL_MAP_GENTIM2D |
& +xx_gentim2d_loc(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
108 |
CTRL_MAP_GENTIM2D |
xx_gentim2d(i,j,bi,bj,iarr)=xx_gentim2d_loc(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
122 |
CTRL_MAP_GENTIM2D |
do i = 1,sNx |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
124 |
CTRL_MAP_GENTIM2D |
& maskC(i,j,1,bi,bj)*rA(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
125 |
CTRL_MAP_GENTIM2D |
& *xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
138 |
CTRL_MAP_GENTIM2D |
& LOCsumGlob/globalArea*maskC(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
47 |
CTRL_MAP_GENTIM2D |
integer i,j,k |
|
./lsopt/hessupd.F |
100 |
HESSUPD |
do i = 1, nn |
|
./lsopt/hessupd.F |
101 |
HESSUPD |
dd(i) = dd(i) + r*xdiff(i) |
|
./lsopt/hessupd.F |
47 |
HESSUPD |
integer jfin, i, j, jp |
|
./lsopt/hessupd.F |
76 |
HESSUPD |
do i = 1, nn |
|
./lsopt/hessupd.F |
77 |
HESSUPD |
dd(i) = dd(i) - r*xdiff(i) |
|
./lsopt/hessupd.F |
86 |
HESSUPD |
do i = 1, nn |
|
./lsopt/hessupd.F |
87 |
HESSUPD |
dd(i) = dd(i)*xdiff(i) |
|
./pkg/ctrl/ctrl_map_ini.F |
120 |
CTRL_MAP_INI |
do i = imin,imax |
|
./pkg/ctrl/ctrl_map_ini.F |
122 |
CTRL_MAP_INI |
IF (abs(tmpfld3d(i,j,k,bi,bj)).gt. |
|
./pkg/ctrl/ctrl_map_ini.F |
124 |
CTRL_MAP_INI |
$ tmpfld3d(i,j,k,bi,bj)= |
|
./pkg/ctrl/ctrl_map_ini.F |
125 |
CTRL_MAP_INI |
$ sign(2.0/sqrt(wtheta(k,bi,bj)),tmpfld3d(i,j,k,bi,bj)) |
|
./pkg/ctrl/ctrl_map_ini.F |
127 |
CTRL_MAP_INI |
theta(i,j,k,bi,bj) = theta(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
128 |
CTRL_MAP_INI |
& fac*tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
130 |
CTRL_MAP_INI |
if(theta(i,j,k,bi,bj).lt.-2.0) |
|
./pkg/ctrl/ctrl_map_ini.F |
131 |
CTRL_MAP_INI |
& theta(i,j,k,bi,bj)= -2.0 |
|
./pkg/ctrl/ctrl_map_ini.F |
154 |
CTRL_MAP_INI |
do i = imin,imax |
|
./pkg/ctrl/ctrl_map_ini.F |
156 |
CTRL_MAP_INI |
IF (abs(tmpfld3d(i,j,k,bi,bj)).gt. |
|
./pkg/ctrl/ctrl_map_ini.F |
158 |
CTRL_MAP_INI |
$ tmpfld3d(i,j,k,bi,bj)= |
|
./pkg/ctrl/ctrl_map_ini.F |
159 |
CTRL_MAP_INI |
$ sign(2.0/sqrt(wsalt(k,bi,bj)),tmpfld3d(i,j,k,bi,bj)) |
|
./pkg/ctrl/ctrl_map_ini.F |
161 |
CTRL_MAP_INI |
salt(i,j,k,bi,bj) = salt(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
162 |
CTRL_MAP_INI |
& fac*tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
185 |
CTRL_MAP_INI |
do i = imin,imax |
|
./pkg/ctrl/ctrl_map_ini.F |
187 |
CTRL_MAP_INI |
ptracer(i,j,k,bi,bj,1) = ptracer(i,j,k,bi,bj,1) + |
|
./pkg/ctrl/ctrl_map_ini.F |
188 |
CTRL_MAP_INI |
& fac*xx_tr1(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
189 |
CTRL_MAP_INI |
& fac*tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
191 |
CTRL_MAP_INI |
ptracer(i,j,k,bi,bj,1) = ptracer(i,j,k,bi,bj,1) + |
|
./pkg/ctrl/ctrl_map_ini.F |
192 |
CTRL_MAP_INI |
& fac*tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
213 |
CTRL_MAP_INI |
do i = imin,imax |
|
./pkg/ctrl/ctrl_map_ini.F |
215 |
CTRL_MAP_INI |
theta(i,j,1,bi,bj) = theta(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
216 |
CTRL_MAP_INI |
& + tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
234 |
CTRL_MAP_INI |
do i = imin,imax |
|
./pkg/ctrl/ctrl_map_ini.F |
236 |
CTRL_MAP_INI |
salt(i,j,1,bi,bj) = salt(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
237 |
CTRL_MAP_INI |
& + tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
257 |
CTRL_MAP_INI |
do i = imin,imax |
|
./pkg/ctrl/ctrl_map_ini.F |
258 |
CTRL_MAP_INI |
diffkr(i,j,k,bi,bj) = diffkr(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
259 |
CTRL_MAP_INI |
& tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
281 |
CTRL_MAP_INI |
do i = imin,imax |
|
./pkg/ctrl/ctrl_map_ini.F |
283 |
CTRL_MAP_INI |
kapGM(i,j,k,bi,bj) = kapGM(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
284 |
CTRL_MAP_INI |
& xx_kapgm(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
285 |
CTRL_MAP_INI |
& tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
287 |
CTRL_MAP_INI |
kapGM(i,j,k,bi,bj) = kapGM(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
288 |
CTRL_MAP_INI |
& tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
311 |
CTRL_MAP_INI |
do i = imin,imax |
|
./pkg/ctrl/ctrl_map_ini.F |
312 |
CTRL_MAP_INI |
kapRedi(i,j,k,bi,bj) = kapRedi(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
313 |
CTRL_MAP_INI |
& tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
335 |
CTRL_MAP_INI |
do i = imin,imax |
|
./pkg/ctrl/ctrl_map_ini.F |
336 |
CTRL_MAP_INI |
EfluxY(i,j,k,bi,bj) = EfluxY(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
337 |
CTRL_MAP_INI |
& - fac*tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
338 |
CTRL_MAP_INI |
& *maskS(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
362 |
CTRL_MAP_INI |
do i = imin,imax |
|
./pkg/ctrl/ctrl_map_ini.F |
363 |
CTRL_MAP_INI |
EfluxP(i,j,k,bi,bj) = EfluxP(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
364 |
CTRL_MAP_INI |
& + fCori(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
365 |
CTRL_MAP_INI |
& *fac*tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
366 |
CTRL_MAP_INI |
& *hFacV(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
389 |
CTRL_MAP_INI |
do i = imin,imax |
|
./pkg/ctrl/ctrl_map_ini.F |
390 |
CTRL_MAP_INI |
bottomDragFld(i,j,bi,bj) = bottomDragFld(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
391 |
CTRL_MAP_INI |
& + tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
410 |
CTRL_MAP_INI |
do i = imin,imax |
|
./pkg/ctrl/ctrl_map_ini.F |
411 |
CTRL_MAP_INI |
eddyPsiX(i,j,k,bi,bj) = eddyPsiX(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
412 |
CTRL_MAP_INI |
& tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
429 |
CTRL_MAP_INI |
do i = imin,imax |
|
./pkg/ctrl/ctrl_map_ini.F |
430 |
CTRL_MAP_INI |
eddyPsiY(i,j,k,bi,bj) = eddyPsiY(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
431 |
CTRL_MAP_INI |
& tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
451 |
CTRL_MAP_INI |
do i = imin,imax |
|
./pkg/ctrl/ctrl_map_ini.F |
453 |
CTRL_MAP_INI |
uVel(i,j,k,bi,bj) = uVel(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
454 |
CTRL_MAP_INI |
& fac*xx_uvel(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
456 |
CTRL_MAP_INI |
uVel(i,j,k,bi,bj) = uVel(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
457 |
CTRL_MAP_INI |
& fac*tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
478 |
CTRL_MAP_INI |
do i = imin,imax |
|
./pkg/ctrl/ctrl_map_ini.F |
480 |
CTRL_MAP_INI |
vVel(i,j,k,bi,bj) = vVel(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
481 |
CTRL_MAP_INI |
& fac*xx_vvel(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
483 |
CTRL_MAP_INI |
vVel(i,j,k,bi,bj) = vVel(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
484 |
CTRL_MAP_INI |
& fac*tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
504 |
CTRL_MAP_INI |
do i = imin,imax |
|
./pkg/ctrl/ctrl_map_ini.F |
506 |
CTRL_MAP_INI |
etaN(i,j,bi,bj) = etaN(i,j,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
507 |
CTRL_MAP_INI |
& fac*xx_etan(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
509 |
CTRL_MAP_INI |
etaN(i,j,bi,bj) = etaN(i,j,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
510 |
CTRL_MAP_INI |
& fac*tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
511 |
CTRL_MAP_INI |
etaH(i,j,bi,bj) = etaH(i,j,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
512 |
CTRL_MAP_INI |
& fac*tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
531 |
CTRL_MAP_INI |
do i = imin,imax |
|
./pkg/ctrl/ctrl_map_ini.F |
532 |
CTRL_MAP_INI |
lambdaThetaClimRelax(i,j,bi,bj) = |
|
./pkg/ctrl/ctrl_map_ini.F |
533 |
CTRL_MAP_INI |
& lambdaThetaClimRelax(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
534 |
CTRL_MAP_INI |
& + tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
552 |
CTRL_MAP_INI |
do i = imin,imax |
|
./pkg/ctrl/ctrl_map_ini.F |
553 |
CTRL_MAP_INI |
lambdaSaltClimRelax(i,j,bi,bj) = |
|
./pkg/ctrl/ctrl_map_ini.F |
554 |
CTRL_MAP_INI |
& lambdaSaltClimRelax(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
555 |
CTRL_MAP_INI |
& + tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
64 |
CTRL_MAP_INI |
integer i,j,k |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
112 |
CTRL_MAP_INI_ECCO |
do i = imin,imax |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
113 |
CTRL_MAP_INI_ECCO |
tmpfld2d(i,j,bi,bj) = 1. |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
124 |
CTRL_MAP_INI_ECCO |
do i = imin,imax |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
125 |
CTRL_MAP_INI_ECCO |
tmpfld3d(i,j,k,bi,bj)=1. |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
298 |
CTRL_MAP_INI_ECCO |
do i = 1,sNx |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
299 |
CTRL_MAP_INI_ECCO |
xx_gentim2d(i,j,bi,bj,k)=0. _d 0 |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
71 |
CTRL_MAP_INI_ECCO |
integer i,j,k |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
106 |
CTRL_MAP_INI_GEN3D |
DO i = 1-OLx,sNx+OLx |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
107 |
CTRL_MAP_INI_GEN3D |
xxFld3d(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
108 |
CTRL_MAP_INI_GEN3D |
wFld3d(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
137 |
CTRL_MAP_INI_GEN3D |
do i = imin,imax |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
138 |
CTRL_MAP_INI_GEN3D |
if ( (maskFld3d(i,j,k,bi,bj).NE.0.).AND. |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
139 |
CTRL_MAP_INI_GEN3D |
& (wFld3d(i,j,k,bi,bj).GT.0.) ) then |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
140 |
CTRL_MAP_INI_GEN3D |
tmpMax=boundsVec(5)/sqrt(wFld3d(i,j,k,bi,bj)) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
141 |
CTRL_MAP_INI_GEN3D |
if ( abs(xxFld3d(i,j,k,bi,bj)).GT.tmpMax ) then |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
142 |
CTRL_MAP_INI_GEN3D |
xxFld3d(i,j,k,bi,bj)=sign(tmpMax,xxFld3d(i,j,k,bi,bj)) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
144 |
CTRL_MAP_INI_GEN3D |
xxFld3d(i,j,k,bi,bj)=xxFld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
168 |
CTRL_MAP_INI_GEN3D |
do i = imin,imax |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
169 |
CTRL_MAP_INI_GEN3D |
paramFld3d(i,j,k,bi,bj) = paramFld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
170 |
CTRL_MAP_INI_GEN3D |
& + xxFld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
190 |
CTRL_MAP_INI_GEN3D |
do i = imin,imax |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
192 |
CTRL_MAP_INI_GEN3D |
if ( (maskFld3d(i,j,k,bi,bj).NE.0.) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
193 |
CTRL_MAP_INI_GEN3D |
& .AND. (wFld3d(i,j,k,bi,bj).GT.0.) ) then |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
194 |
CTRL_MAP_INI_GEN3D |
xxFld3d(i,j,k,bi,bj)=xxFld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
195 |
CTRL_MAP_INI_GEN3D |
& /sqrt( wFld3d(i,j,k,bi,bj) ) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
197 |
CTRL_MAP_INI_GEN3D |
xxFld3d(i,j,k,bi,bj)=0. |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
199 |
CTRL_MAP_INI_GEN3D |
paramFld3d(i,j,k,bi,bj) = paramFld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
200 |
CTRL_MAP_INI_GEN3D |
& + xxFld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
276 |
CTRL_MAP_INI_GEN2D |
integer i,j,k |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
319 |
CTRL_MAP_INI_GEN2D |
DO i = 1-OLx,sNx+OLx |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
320 |
CTRL_MAP_INI_GEN2D |
xxFld2d(i,j,bi,bj)=0. _d 0 |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
321 |
CTRL_MAP_INI_GEN2D |
wFld2d(i,j,bi,bj)=0. _d 0 |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
348 |
CTRL_MAP_INI_GEN2D |
do i = imin,imax |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
349 |
CTRL_MAP_INI_GEN2D |
if ( (maskFld3d(i,j,1,bi,bj).NE.0.).AND. |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
350 |
CTRL_MAP_INI_GEN2D |
& (wFld2d(i,j,bi,bj).GT.0.) ) then |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
351 |
CTRL_MAP_INI_GEN2D |
tmpMax=boundsVec(5)/sqrt(wFld2d(i,j,bi,bj)) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
352 |
CTRL_MAP_INI_GEN2D |
if ( abs(xxFld2d(i,j,bi,bj)).GT.tmpMax ) then |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
353 |
CTRL_MAP_INI_GEN2D |
xxFld2d(i,j,bi,bj)=sign(tmpMax,xxFld2d(i,j,bi,bj)) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
355 |
CTRL_MAP_INI_GEN2D |
xxFld2d(i,j,bi,bj)=xxFld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
377 |
CTRL_MAP_INI_GEN2D |
do i = imin,imax |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
378 |
CTRL_MAP_INI_GEN2D |
paramFld2d(i,j,bi,bj) = paramFld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
379 |
CTRL_MAP_INI_GEN2D |
& + xxFld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
397 |
CTRL_MAP_INI_GEN2D |
do i = imin,imax |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
399 |
CTRL_MAP_INI_GEN2D |
if ( (maskFld3d(i,j,1,bi,bj).NE.0.) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
400 |
CTRL_MAP_INI_GEN2D |
& .AND. (wFld2d(i,j,bi,bj).GT.0.) ) then |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
401 |
CTRL_MAP_INI_GEN2D |
xxFld2d(i,j,bi,bj)=xxFld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
402 |
CTRL_MAP_INI_GEN2D |
& /sqrt( wFld2d(i,j,bi,bj) ) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
404 |
CTRL_MAP_INI_GEN2D |
xxFld2d(i,j,bi,bj)=0. |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
406 |
CTRL_MAP_INI_GEN2D |
paramFld2d(i,j,bi,bj) = paramFld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
407 |
CTRL_MAP_INI_GEN2D |
& + xxFld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
62 |
CTRL_MAP_INI_GEN3D |
integer i,j,k |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
197 |
CTRL_MAP_GENARR2D |
integer i,j |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
223 |
CTRL_MAP_GENARR2D |
DO i = 1-OLx,sNx+OLx |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
224 |
CTRL_MAP_GENARR2D |
xx_gen(i,j,bi,bj)=0. _d 0 |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
279 |
CTRL_MAP_GENARR2D |
DO i = 1,sNx |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
282 |
CTRL_MAP_GENARR2D |
if ( (maskC(i,j,1,bi,bj).NE.0.).AND. |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
283 |
CTRL_MAP_GENARR2D |
& (wgenarr2d(i,j,bi,bj,iarr).GT.0.) ) then |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
284 |
CTRL_MAP_GENARR2D |
xx_gen(i,j,bi,bj)=xx_gen(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
285 |
CTRL_MAP_GENARR2D |
& /sqrt( wgenarr2d(i,j,bi,bj,iarr) ) |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
287 |
CTRL_MAP_GENARR2D |
xx_gen(i,j,bi,bj)=0. |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
291 |
CTRL_MAP_GENARR2D |
fld(i,j,bi,bj)=fld(i,j,bi,bj)+xx_gen(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
352 |
CTRL_MAP_GENARR3D |
integer i,j,k |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
380 |
CTRL_MAP_GENARR3D |
DO i = 1-OLx,sNx+OLx |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
381 |
CTRL_MAP_GENARR3D |
xx_gen(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
450 |
CTRL_MAP_GENARR3D |
DO i = 1,sNx |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
454 |
CTRL_MAP_GENARR3D |
if ( (localmask(i,j,k,bi,bj).NE.0.).AND. |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
456 |
CTRL_MAP_GENARR3D |
if ( (maskC(i,j,k,bi,bj).NE.0.).AND. |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
458 |
CTRL_MAP_GENARR3D |
& (wgenarr3d(i,j,k,bi,bj,iarr).GT.0.) ) then |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
459 |
CTRL_MAP_GENARR3D |
xx_gen(i,j,k,bi,bj)=xx_gen(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
460 |
CTRL_MAP_GENARR3D |
& /sqrt( wgenarr3d(i,j,k,bi,bj,iarr) ) |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
462 |
CTRL_MAP_GENARR3D |
xx_gen(i,j,k,bi,bj)=0. |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
466 |
CTRL_MAP_GENARR3D |
fld(i,j,k,bi,bj)=fld(i,j,k,bi,bj)+xx_gen(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
325 |
CTRL_MAP_INI_GENTIM2D |
DO i = 1,sNx |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
326 |
CTRL_MAP_INI_GENTIM2D |
if ((maskC(i,j,1,bi,bj).NE.0.).AND. |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
327 |
CTRL_MAP_INI_GENTIM2D |
& (wgentim2d(i,j,bi,bj,iarr).GT.0.)) then |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
328 |
CTRL_MAP_INI_GENTIM2D |
xx_gen(i,j,bi,bj)=xx_gen(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
329 |
CTRL_MAP_INI_GENTIM2D |
& /sqrt(wgentim2d(i,j,bi,bj,iarr)) |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
331 |
CTRL_MAP_INI_GENTIM2D |
xx_gen(i,j,bi,bj)=0. _d 0 |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
76 |
CTRL_MAP_INI_GENTIM2D |
integer i,j,k2 |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
89 |
CTRL_MAP_INI_GENTIM2D |
DO i = 1-OLx,sNx+OLx |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
90 |
CTRL_MAP_INI_GENTIM2D |
xx_gen(i,j,bi,bj)=0. _d 0 |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
100 |
CTRL_MASK_SET_XZ |
j = OB_J(i,bi,bj) |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
104 |
CTRL_MASK_SET_XZ |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
106 |
CTRL_MASK_SET_XZ |
maskxz(i,k,bi,bj,iobcs) = 1 |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
111 |
CTRL_MASK_SET_XZ |
if (maskW(i,j,k,bi,bj) .eq. 1.) then |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
113 |
CTRL_MASK_SET_XZ |
maskxz(i,k,bi,bj,iobcs) = 1 |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
132 |
CTRL_MASK_SET_XZ |
do i = imin,imax |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
133 |
CTRL_MASK_SET_XZ |
gg(i,k,bi,bj) = maskxz(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
42 |
CTRL_MASK_SET_XZ |
integer i,j,k |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
87 |
CTRL_MASK_SET_XZ |
do i = 1-olx,snx+olx |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
88 |
CTRL_MASK_SET_XZ |
maskxz(i,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
99 |
CTRL_MASK_SET_XZ |
do i = imin,imax |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
101 |
CTRL_MASK_SET_YZ |
i = OB_I(j,bi,bj) |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
102 |
CTRL_MASK_SET_YZ |
if ( i .NE. iNone ) then |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
105 |
CTRL_MASK_SET_YZ |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
112 |
CTRL_MASK_SET_YZ |
if (maskS(i,j,k,bi,bj) .eq. 1.) then |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
42 |
CTRL_MASK_SET_YZ |
integer i,j,k |
|
./pkg/ctrl/ctrl_pack.F |
264 |
CTRL_PACK |
write(cunit) (ncvarindex(i), i=1,maxcvars) |
|
./pkg/ctrl/ctrl_pack.F |
265 |
CTRL_PACK |
write(cunit) (ncvarrecs(i), i=1,maxcvars) |
|
./pkg/ctrl/ctrl_pack.F |
266 |
CTRL_PACK |
write(cunit) (ncvarxmax(i), i=1,maxcvars) |
|
./pkg/ctrl/ctrl_pack.F |
267 |
CTRL_PACK |
write(cunit) (ncvarymax(i), i=1,maxcvars) |
|
./pkg/ctrl/ctrl_pack.F |
268 |
CTRL_PACK |
write(cunit) (ncvarnrmax(i), i=1,maxcvars) |
|
./pkg/ctrl/ctrl_pack.F |
269 |
CTRL_PACK |
write(cunit) (ncvargrd(i), i=1,maxcvars) |
|
./pkg/ctrl/ctrl_pack.F |
84 |
CTRL_PACK |
integer i, j, k |
|
./pkg/ctrl/ctrl_readparms.F |
46 |
CTRL_READPARMS |
integer i,j,k |
|
./pkg/ctrl/ctrl_set_globfld_xy.F |
47 |
CTRL_SET_GLOBFLD_XY |
integer i,j,k |
|
./pkg/ctrl/ctrl_set_globfld_xy.F |
74 |
CTRL_SET_GLOBFLD_XY |
do i = imin,imax |
|
./pkg/ctrl/ctrl_set_globfld_xy.F |
75 |
CTRL_SET_GLOBFLD_XY |
globfld2d(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_globfld_xy.F |
85 |
CTRL_SET_GLOBFLD_XY |
do i = imin,imax |
|
./pkg/ctrl/ctrl_set_globfld_xy.F |
86 |
CTRL_SET_GLOBFLD_XY |
globfld3d(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_globfld_xyz.F |
42 |
CTRL_SET_GLOBFLD_XYZ |
integer i,j,k |
|
./pkg/ctrl/ctrl_set_globfld_xyz.F |
69 |
CTRL_SET_GLOBFLD_XYZ |
do i = imin,imax |
|
./pkg/ctrl/ctrl_set_globfld_xyz.F |
70 |
CTRL_SET_GLOBFLD_XYZ |
globfld3d(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_globfld_xz.F |
47 |
CTRL_SET_GLOBFLD_XZ |
integer i,j,k |
|
./pkg/ctrl/ctrl_set_globfld_xz.F |
74 |
CTRL_SET_GLOBFLD_XZ |
do i = imin,imax |
|
./pkg/ctrl/ctrl_set_globfld_xz.F |
75 |
CTRL_SET_GLOBFLD_XZ |
globfldxz(i,k,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_globfld_xz.F |
85 |
CTRL_SET_GLOBFLD_XZ |
do i = imin,imax |
|
./pkg/ctrl/ctrl_set_globfld_xz.F |
86 |
CTRL_SET_GLOBFLD_XZ |
globfld3d(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_globfld_yz.F |
47 |
CTRL_SET_GLOBFLD_YZ |
integer i,j,k |
|
./pkg/ctrl/ctrl_set_globfld_yz.F |
86 |
CTRL_SET_GLOBFLD_YZ |
do i = imin,imax |
|
./pkg/ctrl/ctrl_set_globfld_yz.F |
87 |
CTRL_SET_GLOBFLD_YZ |
globfld3d(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
103 |
CTRL_SET_PACK_XY |
do i = imin,imax |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
104 |
CTRL_SET_PACK_XY |
globfld3d (i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
105 |
CTRL_SET_PACK_XY |
globmsk (i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
106 |
CTRL_SET_PACK_XY |
globfldtmp2(i,bi,ip,j,bj,jp) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
107 |
CTRL_SET_PACK_XY |
globfldtmp3(i,bi,ip,j,bj,jp) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
161 |
CTRL_SET_PACK_XY |
do i = imin,imax |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
162 |
CTRL_SET_PACK_XY |
weightfld2d(i,bi,ip,j,bj,jp) = 1. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
194 |
CTRL_SET_PACK_XY |
do i = imin,imax |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
195 |
CTRL_SET_PACK_XY |
if (globmsk(i,bi,ip,j,bj,jp,1) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
198 |
CTRL_SET_PACK_XY |
globfldtmp3(i,bi,ip,j,bj,jp) = |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
199 |
CTRL_SET_PACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
205 |
CTRL_SET_PACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) * |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
206 |
CTRL_SET_PACK_XY |
& sqrt(weightfld2d(i,bi,ip,j,bj,jp)) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
210 |
CTRL_SET_PACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) / |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
211 |
CTRL_SET_PACK_XY |
& sqrt(weightfld2d(i,bi,ip,j,bj,jp)) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
217 |
CTRL_SET_PACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
221 |
CTRL_SET_PACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
228 |
CTRL_SET_PACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
232 |
CTRL_SET_PACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
237 |
CTRL_SET_PACK_XY |
globfldtmp2(i,bi,ip,j,bj,jp) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
288 |
CTRL_SET_PACK_XY |
do i = imin,imax |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
289 |
CTRL_SET_PACK_XY |
if (globmsk(i,bi,ip,j,bj,jp,k) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
292 |
CTRL_SET_PACK_XY |
globfldtmp3(i,bi,ip,j,bj,jp) = |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
293 |
CTRL_SET_PACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
299 |
CTRL_SET_PACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) * |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
300 |
CTRL_SET_PACK_XY |
& sqrt(weightfld2d(i,bi,ip,j,bj,jp)) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
304 |
CTRL_SET_PACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) / |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
305 |
CTRL_SET_PACK_XY |
& sqrt(weightfld2d(i,bi,ip,j,bj,jp)) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
311 |
CTRL_SET_PACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
315 |
CTRL_SET_PACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
322 |
CTRL_SET_PACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
326 |
CTRL_SET_PACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
331 |
CTRL_SET_PACK_XY |
globfldtmp2(i,bi,ip,j,bj,jp) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
376 |
CTRL_SET_PACK_XY |
integer i,j,k |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
459 |
CTRL_SET_PACK_XY |
DO i=1,sNx |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
460 |
CTRL_SET_PACK_XY |
if (msk3d(i,j,1,bi,bj).EQ.0. _d 0) then |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
461 |
CTRL_SET_PACK_XY |
fld2dDim(i,j,bi,bj)=0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
462 |
CTRL_SET_PACK_XY |
fld2dNodim(i,j,bi,bj)=0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
466 |
CTRL_SET_PACK_XY |
fld2dNodim(i,j,bi,bj) = |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
467 |
CTRL_SET_PACK_XY |
& fld2dDim(i,j,bi,bj) / PrecondScalar |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
469 |
CTRL_SET_PACK_XY |
fld2dNodim(i,j,bi,bj) = |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
470 |
CTRL_SET_PACK_XY |
& fld2dDim(i,j,bi,bj) * PrecondScalar |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
475 |
CTRL_SET_PACK_XY |
fld2dNodim(i,j,bi,bj) = fld2dDim(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
478 |
CTRL_SET_PACK_XY |
fld2dNodim(i,j,bi,bj) = fld2dDim(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
483 |
CTRL_SET_PACK_XY |
fld2dNodim(i,j,bi,bj) = |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
484 |
CTRL_SET_PACK_XY |
& fld2dDim(i,j,bi,bj) * sqrt(wei2d(i,j,bi,bj)) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
487 |
CTRL_SET_PACK_XY |
fld2dNodim(i,j,bi,bj) = |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
488 |
CTRL_SET_PACK_XY |
& fld2dDim(i,j,bi,bj) / sqrt(wei2d(i,j,bi,bj)) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
49 |
CTRL_SET_PACK_XY |
integer i,j,k |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
541 |
CTRL_SET_PACK_XY |
DO i=1,Nx |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
542 |
CTRL_SET_PACK_XY |
if (msk2d_buf_glo(i,j) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
544 |
CTRL_SET_PACK_XY |
cbuff(cbuffindex) = fld2d_buf_glo(i,j) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
113 |
CTRL_SET_PACK_XYZ |
do i = imin,imax |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
114 |
CTRL_SET_PACK_XYZ |
globfld3d (i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
115 |
CTRL_SET_PACK_XYZ |
globmsk (i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
116 |
CTRL_SET_PACK_XYZ |
globfldtmp2(i,bi,ip,j,bj,jp) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
117 |
CTRL_SET_PACK_XYZ |
globfldtmp3(i,bi,ip,j,bj,jp) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
172 |
CTRL_SET_PACK_XYZ |
do i = imin,imax |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
173 |
CTRL_SET_PACK_XYZ |
weightfld3d(i,bi,ip,j,bj,jp,k) = 1. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
211 |
CTRL_SET_PACK_XYZ |
do i = imin,imax |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
212 |
CTRL_SET_PACK_XYZ |
if (globmsk(i,bi,ip,j,bj,jp,k) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
215 |
CTRL_SET_PACK_XYZ |
globfldtmp3(i,bi,ip,j,bj,jp) = |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
216 |
CTRL_SET_PACK_XYZ |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
222 |
CTRL_SET_PACK_XYZ |
& * globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
224 |
CTRL_SET_PACK_XYZ |
& * sqrt(weightfld3d(i,bi,ip,j,bj,jp,k)) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
230 |
CTRL_SET_PACK_XYZ |
& * globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
232 |
CTRL_SET_PACK_XYZ |
& / sqrt(weightfld3d(i,bi,ip,j,bj,jp,k)) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
238 |
CTRL_SET_PACK_XYZ |
globfldtmp2(i,bi,ip,j,bj,jp) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
241 |
CTRL_SET_PACK_XYZ |
cbuff(cbuffindex) = globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
244 |
CTRL_SET_PACK_XYZ |
cbuff(cbuffindex) = globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
289 |
CTRL_SET_PACK_XYZ |
integer i,j,k |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
380 |
CTRL_SET_PACK_XYZ |
DO i=1,sNx |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
381 |
CTRL_SET_PACK_XYZ |
if (msk3d(i,j,k,bi,bj).EQ.0. _d 0) then |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
382 |
CTRL_SET_PACK_XYZ |
fld3dDim(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
383 |
CTRL_SET_PACK_XYZ |
fld3dNodim(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
386 |
CTRL_SET_PACK_XYZ |
fld3dNodim(i,j,k,bi,bj)=fld3dDim(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
389 |
CTRL_SET_PACK_XYZ |
fld3dNodim(i,j,k,bi,bj) = fld3dDim(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
392 |
CTRL_SET_PACK_XYZ |
fld3dNodim(i,j,k,bi,bj) = |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
393 |
CTRL_SET_PACK_XYZ |
& fld3dDim(i,j,k,bi,bj) / delZnorm |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
395 |
CTRL_SET_PACK_XYZ |
& * sqrt(wei3d(i,j,k,bi,bj)) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
400 |
CTRL_SET_PACK_XYZ |
fld3dNodim(i,j,k,bi,bj) = |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
401 |
CTRL_SET_PACK_XYZ |
& fld3dDim(i,j,k,bi,bj) * delZnorm |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
403 |
CTRL_SET_PACK_XYZ |
& / sqrt(wei3d(i,j,k,bi,bj)) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
460 |
CTRL_SET_PACK_XYZ |
DO i=1,Nx |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
461 |
CTRL_SET_PACK_XYZ |
if (msk2d_buf_glo(i,j) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
463 |
CTRL_SET_PACK_XYZ |
cbuff(cbuffindex) = fld2d_buf_glo(i,j) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
53 |
CTRL_SET_PACK_XYZ |
integer i,j,k |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
103 |
CTRL_SET_PACK_XZ |
do i = imin,imax |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
104 |
CTRL_SET_PACK_XZ |
globfldxz (i,bi,ip,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
105 |
CTRL_SET_PACK_XZ |
globfldtmp2(i,bi,ip,bj,jp) = 0. |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
106 |
CTRL_SET_PACK_XZ |
globfldtmp3(i,bi,ip,bj,jp) = 0. |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
108 |
CTRL_SET_PACK_XZ |
globmskxz(i,bi,ip,bj,jp,k,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
123 |
CTRL_SET_PACK_XZ |
do i = imin,imax |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
124 |
CTRL_SET_PACK_XZ |
globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
201 |
CTRL_SET_PACK_XZ |
do i = imin,imax |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
204 |
CTRL_SET_PACK_XZ |
if (globmskxz(i,bi,ip,bj,jp,k,iobcs) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
207 |
CTRL_SET_PACK_XZ |
globfldtmp3(i,bi,ip,bj,jp) = |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
208 |
CTRL_SET_PACK_XZ |
& globfld3d(i,bi,ip,jj,bj,jp,kk) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
213 |
CTRL_SET_PACK_XZ |
& globfld3d(i,bi,ip,jj,bj,jp,kk) * |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
215 |
CTRL_SET_PACK_XZ |
& sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
221 |
CTRL_SET_PACK_XZ |
& globfld3d(i,bi,ip,jj,bj,jp,kk) / |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
223 |
CTRL_SET_PACK_XZ |
& sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
229 |
CTRL_SET_PACK_XZ |
globfldtmp2(i,bi,ip,bj,jp) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
232 |
CTRL_SET_PACK_XZ |
cbuff(cbuffindex) = globfld3d(i,bi,ip,jj,bj,jp,kk) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
276 |
CTRL_SET_PACK_XZ |
do i = imin,imax |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
277 |
CTRL_SET_PACK_XZ |
if (globmskxz(i,bi,ip,bj,jp,k,iobcs) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
280 |
CTRL_SET_PACK_XZ |
globfldtmp3(i,bi,ip,bj,jp) = |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
281 |
CTRL_SET_PACK_XZ |
& globfldxz(i,bi,ip,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
286 |
CTRL_SET_PACK_XZ |
& globfldxz(i,bi,ip,bj,jp,k) * |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
288 |
CTRL_SET_PACK_XZ |
& sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
294 |
CTRL_SET_PACK_XZ |
& globfldxz(i,bi,ip,bj,jp,k) / |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
296 |
CTRL_SET_PACK_XZ |
& sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
302 |
CTRL_SET_PACK_XZ |
globfldtmp2(i,bi,ip,bj,jp) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
305 |
CTRL_SET_PACK_XZ |
cbuff(cbuffindex) = globfldxz(i,bi,ip,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
56 |
CTRL_SET_PACK_XZ |
integer i,j,k |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
123 |
CTRL_SET_PACK_YZ |
do i = imin,imax |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
124 |
CTRL_SET_PACK_YZ |
globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
191 |
CTRL_SET_PACK_YZ |
do i=1,snx |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
192 |
CTRL_SET_PACK_YZ |
iobcs= mod((irec-1)*snx+i-1,nobcs)+1 |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
205 |
CTRL_SET_PACK_YZ |
ii=mod ( (i-1)*nr*sny+(k-1)*sny+j-1 , snx ) + 1 |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
206 |
CTRL_SET_PACK_YZ |
jj=mod( ((i-1)*nr*sny+(k-1)*sny+j-1)/snx , sny ) + 1 |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
207 |
CTRL_SET_PACK_YZ |
kk=int((i-1)*nr*sny+(k-1)*sny+j-1)/(snx*sny) + 1 |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
56 |
CTRL_SET_PACK_YZ |
integer i,j,k |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
104 |
CTRL_SET_UNPACK_XY |
do i = imin,imax |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
105 |
CTRL_SET_UNPACK_XY |
globfld3d (i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
106 |
CTRL_SET_UNPACK_XY |
globmsk (i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
107 |
CTRL_SET_UNPACK_XY |
globfldtmp2(i,bi,ip,j,bj,jp) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
108 |
CTRL_SET_UNPACK_XY |
globfldtmp3(i,bi,ip,j,bj,jp) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
162 |
CTRL_SET_UNPACK_XY |
do i = imin,imax |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
163 |
CTRL_SET_UNPACK_XY |
weightfld2d(i,bi,ip,j,bj,jp) = 1. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
218 |
CTRL_SET_UNPACK_XY |
do i = imin,imax |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
219 |
CTRL_SET_UNPACK_XY |
if ( globmsk(i,bi,ip,j,bj,jp,1) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
221 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
223 |
CTRL_SET_UNPACK_XY |
globfldtmp2(i,bi,ip,j,bj,jp) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
227 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
230 |
CTRL_SET_UNPACK_XY |
globfldtmp2(i,bi,ip,j,bj,jp) = |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
236 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
237 |
CTRL_SET_UNPACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
239 |
CTRL_SET_UNPACK_XY |
& / sqrt(weightfld2d(i,bi,ip,j,bj,jp)) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
243 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
244 |
CTRL_SET_UNPACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
246 |
CTRL_SET_UNPACK_XY |
& * sqrt(weightfld2d(i,bi,ip,j,bj,jp)) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
252 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
253 |
CTRL_SET_UNPACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
256 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
257 |
CTRL_SET_UNPACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
262 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
265 |
CTRL_SET_UNPACK_XY |
globfldtmp3(i,bi,ip,j,bj,jp) = |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
266 |
CTRL_SET_UNPACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
328 |
CTRL_SET_UNPACK_XY |
do i = imin,imax |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
329 |
CTRL_SET_UNPACK_XY |
if ( globmsk(i,bi,ip,j,bj,jp,k) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
331 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
333 |
CTRL_SET_UNPACK_XY |
globfldtmp2(i,bi,ip,j,bj,jp) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
337 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
340 |
CTRL_SET_UNPACK_XY |
globfldtmp2(i,bi,ip,j,bj,jp) = |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
346 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
347 |
CTRL_SET_UNPACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
349 |
CTRL_SET_UNPACK_XY |
& / sqrt(weightfld2d(i,bi,ip,j,bj,jp)) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
353 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
354 |
CTRL_SET_UNPACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
356 |
CTRL_SET_UNPACK_XY |
& * sqrt(weightfld2d(i,bi,ip,j,bj,jp)) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
362 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
363 |
CTRL_SET_UNPACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
366 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
367 |
CTRL_SET_UNPACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
372 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
375 |
CTRL_SET_UNPACK_XY |
globfldtmp3(i,bi,ip,j,bj,jp) = |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
376 |
CTRL_SET_UNPACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
410 |
CTRL_SET_UNPACK_XY |
integer i,j,k |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
50 |
CTRL_SET_UNPACK_XY |
integer i,j,k |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
537 |
CTRL_SET_UNPACK_XY |
DO i=1,Nx |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
538 |
CTRL_SET_UNPACK_XY |
if (msk2d_buf_glo(i,j) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
540 |
CTRL_SET_UNPACK_XY |
fld2d_buf_glo(i,j) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
563 |
CTRL_SET_UNPACK_XY |
DO i=1,sNx |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
564 |
CTRL_SET_UNPACK_XY |
if (msk3d(i,j,1,bi,bj).EQ.0. _d 0) then |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
565 |
CTRL_SET_UNPACK_XY |
fld2dDim(i,j,bi,bj)=0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
566 |
CTRL_SET_UNPACK_XY |
fld2dNodim(i,j,bi,bj)=0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
570 |
CTRL_SET_UNPACK_XY |
fld2dNodim(i,j,bi,bj)=phtmpadmtlm(nveccount) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
574 |
CTRL_SET_UNPACK_XY |
fld2dDim(i,j,bi,bj) = |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
575 |
CTRL_SET_UNPACK_XY |
& fld2dNodim(i,j,bi,bj) * precondScalar |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
577 |
CTRL_SET_UNPACK_XY |
fld2dDim(i,j,bi,bj) = |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
578 |
CTRL_SET_UNPACK_XY |
& fld2dNodim(i,j,bi,bj) / precondScalar |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
583 |
CTRL_SET_UNPACK_XY |
fld2dDim(i,j,bi,bj) = fld2dNodim(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
586 |
CTRL_SET_UNPACK_XY |
fld2dDim(i,j,bi,bj) = fld2dNodim(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
591 |
CTRL_SET_UNPACK_XY |
fld2dDim(i,j,bi,bj) = |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
592 |
CTRL_SET_UNPACK_XY |
& fld2dNodim(i,j,bi,bj) / sqrt(wei2d(i,j,bi,bj)) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
595 |
CTRL_SET_UNPACK_XY |
fld2dDim(i,j,bi,bj) = |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
596 |
CTRL_SET_UNPACK_XY |
& fld2dNodim(i,j,bi,bj) * sqrt(wei2d(i,j,bi,bj)) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
115 |
CTRL_SET_UNPACK_XYZ |
do i = imin,imax |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
116 |
CTRL_SET_UNPACK_XYZ |
globfld3d (i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
117 |
CTRL_SET_UNPACK_XYZ |
globmsk (i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
118 |
CTRL_SET_UNPACK_XYZ |
globfldtmp2(i,bi,ip,j,bj,jp) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
119 |
CTRL_SET_UNPACK_XYZ |
globfldtmp3(i,bi,ip,j,bj,jp) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
181 |
CTRL_SET_UNPACK_XYZ |
do i = imin,imax |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
182 |
CTRL_SET_UNPACK_XYZ |
weightfld3d(i,bi,ip,j,bj,jp,k) = 1. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
242 |
CTRL_SET_UNPACK_XYZ |
do i = imin,imax |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
243 |
CTRL_SET_UNPACK_XYZ |
if ( globmsk(i,bi,ip,j,bj,jp,k) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
245 |
CTRL_SET_UNPACK_XYZ |
globfld3d(i,bi,ip,j,bj,jp,k) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
247 |
CTRL_SET_UNPACK_XYZ |
globfldtmp2(i,bi,ip,j,bj,jp) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
251 |
CTRL_SET_UNPACK_XYZ |
globfld3d(i,bi,ip,j,bj,jp,k) = |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
254 |
CTRL_SET_UNPACK_XYZ |
globfldtmp2(i,bi,ip,j,bj,jp) = |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
261 |
CTRL_SET_UNPACK_XYZ |
globfld3d(i,bi,ip,j,bj,jp,k) = delZnorm |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
262 |
CTRL_SET_UNPACK_XYZ |
& * globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
264 |
CTRL_SET_UNPACK_XYZ |
& / sqrt(weightfld3d(i,bi,ip,j,bj,jp,k)) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
269 |
CTRL_SET_UNPACK_XYZ |
globfld3d(i,bi,ip,j,bj,jp,k) = 1/delZnorm |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
270 |
CTRL_SET_UNPACK_XYZ |
& * globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
272 |
CTRL_SET_UNPACK_XYZ |
& * sqrt(weightfld3d(i,bi,ip,j,bj,jp,k)) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
280 |
CTRL_SET_UNPACK_XYZ |
globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
283 |
CTRL_SET_UNPACK_XYZ |
globfldtmp3(i,bi,ip,j,bj,jp) = |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
284 |
CTRL_SET_UNPACK_XYZ |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
318 |
CTRL_SET_UNPACK_XYZ |
integer i,j,k |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
447 |
CTRL_SET_UNPACK_XYZ |
DO i=1,Nx |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
448 |
CTRL_SET_UNPACK_XYZ |
if (msk2d_buf_glo(i,j) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
450 |
CTRL_SET_UNPACK_XYZ |
fld2d_buf_glo(i,j) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
478 |
CTRL_SET_UNPACK_XYZ |
DO i=1,sNx |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
479 |
CTRL_SET_UNPACK_XYZ |
if (msk3d(i,j,k,bi,bj).EQ.0. _d 0) then |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
480 |
CTRL_SET_UNPACK_XYZ |
fld3dDim(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
481 |
CTRL_SET_UNPACK_XYZ |
fld3dNodim(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
485 |
CTRL_SET_UNPACK_XYZ |
fld3dNodim(i,j,k,bi,bj)=phtmpadmtlm(nveccount) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
488 |
CTRL_SET_UNPACK_XYZ |
fld3dDim(i,j,k,bi,bj)=fld3dNodim(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
491 |
CTRL_SET_UNPACK_XYZ |
fld3dDim(i,j,k,bi,bj) = fld3dNodim(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
494 |
CTRL_SET_UNPACK_XYZ |
fld3dDim(i,j,k,bi,bj) = |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
495 |
CTRL_SET_UNPACK_XYZ |
& fld3dNodim(i,j,k,bi,bj) * delZnorm |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
497 |
CTRL_SET_UNPACK_XYZ |
& / sqrt(wei3d(i,j,k,bi,bj)) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
502 |
CTRL_SET_UNPACK_XYZ |
fld3dDim(i,j,k,bi,bj) = |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
503 |
CTRL_SET_UNPACK_XYZ |
& fld3dNodim(i,j,k,bi,bj) / delZnorm |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
505 |
CTRL_SET_UNPACK_XYZ |
& * sqrt(wei3d(i,j,k,bi,bj)) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
53 |
CTRL_SET_UNPACK_XYZ |
integer i,j,k |
|
./lsopt/lsline.F |
160 |
LSLINE |
do i = 1, nn |
|
./lsopt/lsline.F |
161 |
LSLINE |
xx(i) = xdiff(i) |
|
./lsopt/lsline.F |
238 |
LSLINE |
do i = 1, nn |
|
./lsopt/lsline.F |
239 |
LSLINE |
z = xx(i) + tact*dd(i) |
|
./lsopt/lsline.F |
240 |
LSLINE |
if ((z.ne.xx(i)) .and. (z.ne.xdiff(i))) go to 950 |
|
./lsopt/lsline.F |
255 |
LSLINE |
do i = 1, nn |
|
./lsopt/lsline.F |
256 |
LSLINE |
xx(i) = xx(i) + tg*dd(i) |
|
./lsopt/lsline.F |
267 |
LSLINE |
do i = 1, nn |
|
./lsopt/lsline.F |
268 |
LSLINE |
xdiff(i) = xx(i) + tact*dd(i) |
|
./lsopt/lsline.F |
281 |
LSLINE |
do i = 1, nn |
|
./lsopt/lsline.F |
282 |
LSLINE |
xx(i) = xx(i) + tg*dd(i) |
|
./lsopt/lsline.F |
80 |
LSLINE |
integer i, indic |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
108 |
CTRL_SET_UNPACK_XZ |
do i = imin,imax |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
109 |
CTRL_SET_UNPACK_XZ |
globfldxz (i,bi,ip,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
110 |
CTRL_SET_UNPACK_XZ |
globfldtmp2(i,bi,ip,bj,jp) = 0. |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
111 |
CTRL_SET_UNPACK_XZ |
globfldtmp3(i,bi,ip,bj,jp) = 0. |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
113 |
CTRL_SET_UNPACK_XZ |
globmskxz(i,bi,ip,bj,jp,k,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
128 |
CTRL_SET_UNPACK_XZ |
do i = imin,imax |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
129 |
CTRL_SET_UNPACK_XZ |
globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
230 |
CTRL_SET_UNPACK_XZ |
do i = imin,imax |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
231 |
CTRL_SET_UNPACK_XZ |
if ( globmskxz(i,bi,ip,bj,jp,k,iobcs) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
233 |
CTRL_SET_UNPACK_XZ |
globfld3d(i,bi,ip,jj,bj,jp,kk) = |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
236 |
CTRL_SET_UNPACK_XZ |
globfldtmp2(i,bi,ip,bj,jp) = |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
240 |
CTRL_SET_UNPACK_XZ |
globfld3d(i,bi,ip,jj,bj,jp,kk) = |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
241 |
CTRL_SET_UNPACK_XZ |
& globfld3d(i,bi,ip,jj,bj,jp,kk)/ |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
243 |
CTRL_SET_UNPACK_XZ |
& sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
249 |
CTRL_SET_UNPACK_XZ |
globfld3d(i,bi,ip,jj,bj,jp,kk) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
252 |
CTRL_SET_UNPACK_XZ |
globfldtmp3(i,bi,ip,bj,jp) = |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
253 |
CTRL_SET_UNPACK_XZ |
& globfld3d(i,bi,ip,jj,bj,jp,kk) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
315 |
CTRL_SET_UNPACK_XZ |
do i = imin,imax |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
316 |
CTRL_SET_UNPACK_XZ |
if ( globmskxz(i,bi,ip,bj,jp,k,iobcs) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
318 |
CTRL_SET_UNPACK_XZ |
globfldxz(i,bi,ip,bj,jp,k) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
320 |
CTRL_SET_UNPACK_XZ |
globfldtmp2(i,bi,ip,bj,jp) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
323 |
CTRL_SET_UNPACK_XZ |
globfldxz(i,bi,ip,bj,jp,k) = |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
324 |
CTRL_SET_UNPACK_XZ |
& globfldxz(i,bi,ip,bj,jp,k)/ |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
326 |
CTRL_SET_UNPACK_XZ |
& sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
332 |
CTRL_SET_UNPACK_XZ |
globfldxz(i,bi,ip,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
335 |
CTRL_SET_UNPACK_XZ |
globfldtmp3(i,bi,ip,bj,jp) = |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
336 |
CTRL_SET_UNPACK_XZ |
& globfldxz(i,bi,ip,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
57 |
CTRL_SET_UNPACK_XZ |
integer i,j,k |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
128 |
CTRL_SET_UNPACK_YZ |
do i = imin,imax |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
129 |
CTRL_SET_UNPACK_YZ |
globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
192 |
CTRL_SET_UNPACK_YZ |
do i=1,snx |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
193 |
CTRL_SET_UNPACK_YZ |
iobcs= mod((irec-1)*snx+i-1,nobcs)+1 |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
228 |
CTRL_SET_UNPACK_YZ |
ii=mod((i-1)*nr*sny+(k-1)*sny+j-1,snx)+1 |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
229 |
CTRL_SET_UNPACK_YZ |
jj=mod(((i-1)*nr*sny+(k-1)*sny+j-1)/snx,sny)+1 |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
230 |
CTRL_SET_UNPACK_YZ |
kk=int((i-1)*nr*sny+(k-1)*sny+j-1)/(snx*sny)+1 |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
57 |
CTRL_SET_UNPACK_YZ |
integer i,j,k |
|
./pkg/ctrl/ctrl_smooth.F |
27 |
CTRL_SMOOTH |
integer i, j, im1, ip1, jm1, jp1 |
|
./pkg/ctrl/ctrl_smooth.F |
44 |
CTRL_SMOOTH |
DO i = imin, imax |
|
./pkg/ctrl/ctrl_smooth.F |
45 |
CTRL_SMOOTH |
im1 = i-1 |
|
./pkg/ctrl/ctrl_smooth.F |
46 |
CTRL_SMOOTH |
ip1 = i+1 |
|
./pkg/ctrl/ctrl_smooth.F |
48 |
CTRL_SMOOTH |
& p25 * mask(i ,j ,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
51 |
CTRL_SMOOTH |
& mask(i ,jm1,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
52 |
CTRL_SMOOTH |
& mask(i ,jp1,k,bi,bj) ) + |
|
./pkg/ctrl/ctrl_smooth.F |
58 |
CTRL_SMOOTH |
fld_tmp(i,j) = ( |
|
./pkg/ctrl/ctrl_smooth.F |
59 |
CTRL_SMOOTH |
& p25 * fld(i ,j,bi,bj )*mask(i ,j ,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
62 |
CTRL_SMOOTH |
& fld(i ,jm1,bi,bj)*mask(i ,jm1,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
63 |
CTRL_SMOOTH |
& fld(i ,jp1,bi,bj)*mask(i ,jp1,k,bi,bj))+ |
|
./pkg/ctrl/ctrl_smooth.F |
70 |
CTRL_SMOOTH |
fld_tmp(i,j) = fld(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_smooth.F |
77 |
CTRL_SMOOTH |
DO i = imin, imax |
|
./pkg/ctrl/ctrl_smooth.F |
78 |
CTRL_SMOOTH |
fld(i,j,bi,bj) = fld_tmp(i,j) |
|
./pkg/ctrl/ctrl_summary.F |
182 |
CTRL_SUMMARY |
& (xx_hfluxstartdate(i), i=1,2), |
|
./pkg/ctrl/ctrl_summary.F |
188 |
CTRL_SUMMARY |
& (timeint(i), i=1,2) |
|
./pkg/ctrl/ctrl_summary.F |
223 |
CTRL_SUMMARY |
& (xx_sfluxstartdate(i), i=1,2), |
|
./pkg/ctrl/ctrl_summary.F |
229 |
CTRL_SUMMARY |
& (timeint(i), i=1,2) |
|
./pkg/ctrl/ctrl_summary.F |
264 |
CTRL_SUMMARY |
& (xx_tauustartdate(i), i=1,2), |
|
./pkg/ctrl/ctrl_summary.F |
270 |
CTRL_SUMMARY |
& (timeint(i), i=1,2) |
|
./pkg/ctrl/ctrl_summary.F |
305 |
CTRL_SUMMARY |
& (xx_hfluxstartdate(i), i=1,2), |
|
./pkg/ctrl/ctrl_summary.F |
311 |
CTRL_SUMMARY |
& (timeint(i), i=1,2) |
|
./pkg/ctrl/ctrl_summary.F |
46 |
CTRL_SUMMARY |
integer i,k |
|
./pkg/ctrl/ctrl_summary.F |
490 |
CTRL_SUMMARY |
&' period = ',(timeint(i), i=1,2) |
|
./pkg/ctrl/ctrl_swapffields.F |
113 |
CTRL_SWAPFFIELDS_3D |
INTEGER i, j, k |
|
./pkg/ctrl/ctrl_swapffields.F |
121 |
CTRL_SWAPFFIELDS_3D |
DO i = 1,sNx |
|
./pkg/ctrl/ctrl_swapffields.F |
122 |
CTRL_SWAPFFIELDS_3D |
ffld0(i,j,k,bi,bj) = ffld1(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_swapffields.F |
123 |
CTRL_SWAPFFIELDS_3D |
ffld1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_swapffields.F |
167 |
CTRL_SWAPFFIELDS_XZ |
INTEGER i, k |
|
./pkg/ctrl/ctrl_swapffields.F |
174 |
CTRL_SWAPFFIELDS_XZ |
DO i = 1,sNx |
|
./pkg/ctrl/ctrl_swapffields.F |
175 |
CTRL_SWAPFFIELDS_XZ |
ffld0(i,k,bi,bj) = ffld1(i,k,bi,bj) |
|
./pkg/ctrl/ctrl_swapffields.F |
176 |
CTRL_SWAPFFIELDS_XZ |
ffld1(i,k,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_swapffields.F |
54 |
CTRL_SWAPFFIELDS |
INTEGER i, j |
|
./pkg/ctrl/ctrl_swapffields.F |
61 |
CTRL_SWAPFFIELDS |
DO i = 1,sNx |
|
./pkg/ctrl/ctrl_swapffields.F |
62 |
CTRL_SWAPFFIELDS |
ffld0(i,j,bi,bj) = ffld1(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_swapffields.F |
71 |
CTRL_SWAPFFIELDS |
DO i = 1,sNx |
|
./pkg/ctrl/ctrl_swapffields.F |
72 |
CTRL_SWAPFFIELDS |
ffld1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_unpack.F |
270 |
CTRL_UNPACK |
read(cunit) (filencvarindex(i), i=1,maxcvars) |
|
./pkg/ctrl/ctrl_unpack.F |
271 |
CTRL_UNPACK |
read(cunit) (filencvarrecs(i), i=1,maxcvars) |
|
./pkg/ctrl/ctrl_unpack.F |
272 |
CTRL_UNPACK |
read(cunit) (filencvarxmax(i), i=1,maxcvars) |
|
./pkg/ctrl/ctrl_unpack.F |
273 |
CTRL_UNPACK |
read(cunit) (filencvarymax(i), i=1,maxcvars) |
|
./pkg/ctrl/ctrl_unpack.F |
274 |
CTRL_UNPACK |
read(cunit) (filencvarnrmax(i), i=1,maxcvars) |
|
./pkg/ctrl/ctrl_unpack.F |
275 |
CTRL_UNPACK |
read(cunit) (filencvargrd(i), i=1,maxcvars) |
|
./pkg/ctrl/ctrl_unpack.F |
87 |
CTRL_UNPACK |
integer i, j, k |
|
./lsopt/lsopt_top.F |
268 |
LSOPT_TOP |
do i = 1, nn |
|
./lsopt/lsopt_top.F |
269 |
LSOPT_TOP |
xdiff(i) = 1. |
|
./lsopt/lsopt_top.F |
405 |
LSOPT_TOP |
do i = 1, nn |
|
./lsopt/lsopt_top.F |
406 |
LSOPT_TOP |
gold(i) = gg(i) |
|
./lsopt/lsopt_top.F |
490 |
LSOPT_TOP |
do i = 1, nn |
|
./lsopt/lsopt_top.F |
491 |
LSOPT_TOP |
xdiff(i) = tact*dd(i) |
|
./lsopt/lsopt_top.F |
497 |
LSOPT_TOP |
do i = 1, nn |
|
./lsopt/lsopt_top.F |
498 |
LSOPT_TOP |
gold(i) = gg(i)-gold(i) |
|
./lsopt/lsopt_top.F |
78 |
LSOPT_TOP |
integer i, iiter, ifunc |
|
./pkg/debug/debug_cs_corner_uv.F |
108 |
DEBUG_CS_CORNER_UV |
DO i=1,nSx |
|
./pkg/debug/debug_cs_corner_uv.F |
110 |
DEBUG_CS_CORNER_UV |
n1 = i + (j-1)*nSx |
|
./pkg/debug/debug_cs_corner_uv.F |
113 |
DEBUG_CS_CORNER_UV |
t1 = W2_myTileList(i,j) |
|
./pkg/debug/debug_cs_corner_uv.F |
152 |
DEBUG_CS_CORNER_UV |
n1 = i |
|
./pkg/debug/debug_cs_corner_uv.F |
71 |
DEBUG_CS_CORNER_UV |
INTEGER ic, i, j |
|
./pkg/debug/debug_fld_stats_rl.F |
114 |
DEBUG_FLD_STATS_RL |
DO i=1,sNx |
|
./pkg/debug/debug_fld_stats_rl.F |
115 |
DEBUG_FLD_STATS_RL |
tmpVal = arr(i,j,k,bi,bj) |
|
./pkg/debug/debug_fld_stats_rl.F |
47 |
DEBUG_FLD_STATS_RL |
INTEGER bi,bj,i,j,k |
|
./pkg/debug/debug_fld_stats_rl.F |
73 |
DEBUG_FLD_STATS_RL |
DO i=1,sNx |
|
./pkg/debug/debug_fld_stats_rl.F |
74 |
DEBUG_FLD_STATS_RL |
tmpVal = arr(i,j,k,bi,bj) |
|
./pkg/debug/debug_fld_stats_rs.F |
114 |
DEBUG_FLD_STATS_RS |
DO i=1,sNx |
|
./pkg/debug/debug_fld_stats_rs.F |
115 |
DEBUG_FLD_STATS_RS |
tmpVal = arr(i,j,k,bi,bj) |
|
./pkg/debug/debug_fld_stats_rs.F |
47 |
DEBUG_FLD_STATS_RS |
INTEGER bi,bj,i,j,k |
|
./pkg/debug/debug_fld_stats_rs.F |
73 |
DEBUG_FLD_STATS_RS |
DO i=1,sNx |
|
./pkg/debug/debug_fld_stats_rs.F |
74 |
DEBUG_FLD_STATS_RS |
tmpVal = arr(i,j,k,bi,bj) |
|
./lsopt/lsupdxx.F |
113 |
LSUPDXX |
do i = 1, nn |
|
./lsopt/lsupdxx.F |
114 |
LSUPDXX |
tmin = max( tmin, abs(dd(i)) ) |
|
./lsopt/lsupdxx.F |
140 |
LSUPDXX |
do i = 1, nn |
|
./lsopt/lsupdxx.F |
141 |
LSUPDXX |
xdiff(i) = xx(i) + tact*dd(i) |
|
./lsopt/lsupdxx.F |
46 |
LSUPDXX |
integer i |
|
./lsopt/lsupdxx.F |
70 |
LSUPDXX |
do i = 1, nn |
|
./lsopt/lsupdxx.F |
71 |
LSUPDXX |
dd(i) = -gg(i)*preco |
|
./lsopt/lsupdxx.F |
85 |
LSUPDXX |
do i = 1, nn |
|
./lsopt/lsupdxx.F |
86 |
LSUPDXX |
dd(i) = -gg(i) |
|
./pkg/debug/fill_in_corners_rl.F |
37 |
FILL_IN_CORNERS_RL |
INTEGER i, j, k |
|
./pkg/debug/fill_in_corners_rl.F |
46 |
FILL_IN_CORNERS_RL |
DO i=1-Olx,0 |
|
./pkg/debug/fill_in_corners_rl.F |
47 |
FILL_IN_CORNERS_RL |
ii = i + sNx+Olx |
|
./pkg/debug/fill_in_corners_rl.F |
48 |
FILL_IN_CORNERS_RL |
fld(i,j,k,bi,bj) = spvFld |
|
./pkg/debug/fill_in_corners_rl.F |
50 |
FILL_IN_CORNERS_RL |
fld(i,jj,k,bi,bj) = spvFld |
|
./pkg/debug/write_fullarray_rl.F |
100 |
WRITE_FULLARRAY_RL |
& i=1-Olx,sNx+Olx), |
|
./pkg/debug/write_fullarray_rl.F |
133 |
WRITE_FULLARRAY_RL |
WRITE(dUnit,rec=kRec) (( fld(i,j,k,1,1), |
|
./pkg/debug/write_fullarray_rl.F |
134 |
WRITE_FULLARRAY_RL |
& i=1-Olx,sNx+Olx), |
|
./pkg/debug/write_fullarray_rl.F |
50 |
WRITE_FULLARRAY_RL |
INTEGER i,j,k,bi,bj,iG,jG |
|
./pkg/debug/write_fullarray_rl.F |
99 |
WRITE_FULLARRAY_RL |
WRITE(dUnit,rec=kRec) (( fld(i,j,k,bi,bj), |
|
./pkg/debug/write_fullarray_rs.F |
100 |
WRITE_FULLARRAY_RS |
& i=1-Olx,sNx+Olx), |
|
./pkg/debug/write_fullarray_rs.F |
133 |
WRITE_FULLARRAY_RS |
WRITE(dUnit,rec=kRec) (( fld(i,j,k,1,1), |
|
./pkg/debug/write_fullarray_rs.F |
134 |
WRITE_FULLARRAY_RS |
& i=1-Olx,sNx+Olx), |
|
./pkg/debug/write_fullarray_rs.F |
50 |
WRITE_FULLARRAY_RS |
INTEGER i,j,k,bi,bj,iG,jG |
|
./pkg/debug/write_fullarray_rs.F |
99 |
WRITE_FULLARRAY_RS |
WRITE(dUnit,rec=kRec) (( fld(i,j,k,bi,bj), |
|
./pkg/diagnostics/diag_calc_psivel.F |
106 |
DIAG_CALC_PSIVEL |
DO i=1,sNx+1 |
|
./pkg/diagnostics/diag_calc_psivel.F |
107 |
DIAG_CALC_PSIVEL |
kPsi(i,j) = .FALSE. |
|
./pkg/diagnostics/diag_calc_psivel.F |
108 |
DIAG_CALC_PSIVEL |
psiVel(i,j,bi,bj) = 0. |
|
./pkg/diagnostics/diag_calc_psivel.F |
116 |
DIAG_CALC_PSIVEL |
DO i=1,sNx |
|
./pkg/diagnostics/diag_calc_psivel.F |
117 |
DIAG_CALC_PSIVEL |
IF ( OBCS_insideMask(i,j,bi,bj).EQ.1. |
|
./pkg/diagnostics/diag_calc_psivel.F |
118 |
DIAG_CALC_PSIVEL |
& .AND. (i+j).LE.ijCnt ) THEN |
|
./pkg/diagnostics/diag_calc_psivel.F |
119 |
DIAG_CALC_PSIVEL |
is = i |
|
./pkg/diagnostics/diag_calc_psivel.F |
121 |
DIAG_CALC_PSIVEL |
ijCnt = i+j |
|
./pkg/diagnostics/diag_calc_psivel.F |
137 |
DIAG_CALC_PSIVEL |
DO i=1,sNx |
|
./pkg/diagnostics/diag_calc_psivel.F |
138 |
DIAG_CALC_PSIVEL |
IF ( OBCS_insideMask(i,j-1,bi,bj).EQ.1. .OR. |
|
./pkg/diagnostics/diag_calc_psivel.F |
139 |
DIAG_CALC_PSIVEL |
& OBCS_insideMask(i, j ,bi,bj).EQ.1. ) THEN |
|
./pkg/diagnostics/diag_calc_psivel.F |
140 |
DIAG_CALC_PSIVEL |
IF ( kPsi(i,j) .AND. .NOT.kPsi(i+1,j) ) THEN |
|
./pkg/diagnostics/diag_calc_psivel.F |
142 |
DIAG_CALC_PSIVEL |
kPsi(i+1,j) = .TRUE. |
|
./pkg/diagnostics/diag_calc_psivel.F |
143 |
DIAG_CALC_PSIVEL |
psiVel(i+1,j,bi,bj) = psiVel(i,j,bi,bj) |
|
./pkg/diagnostics/diag_calc_psivel.F |
144 |
DIAG_CALC_PSIVEL |
& + vTrans(i,j,bi,bj) |
|
./pkg/diagnostics/diag_calc_psivel.F |
146 |
DIAG_CALC_PSIVEL |
IF ( .NOT.kPsi(i,j) .AND. kPsi(i+1,j) ) THEN |
|
./pkg/diagnostics/diag_calc_psivel.F |
148 |
DIAG_CALC_PSIVEL |
kPsi(i,j) = .TRUE. |
|
./pkg/diagnostics/diag_calc_psivel.F |
149 |
DIAG_CALC_PSIVEL |
psiVel(i,j,bi,bj) = psiVel(i+1,j,bi,bj) |
|
./pkg/diagnostics/diag_calc_psivel.F |
150 |
DIAG_CALC_PSIVEL |
& - vTrans(i,j,bi,bj) |
|
./pkg/diagnostics/diag_calc_psivel.F |
156 |
DIAG_CALC_PSIVEL |
DO i=1,sNx+1 |
|
./pkg/diagnostics/diag_calc_psivel.F |
157 |
DIAG_CALC_PSIVEL |
IF ( OBCS_insideMask(i-1,j,bi,bj).EQ.1. .OR. |
|
./pkg/diagnostics/diag_calc_psivel.F |
158 |
DIAG_CALC_PSIVEL |
& OBCS_insideMask( i ,j,bi,bj).EQ.1. ) THEN |
|
./pkg/diagnostics/diag_calc_psivel.F |
159 |
DIAG_CALC_PSIVEL |
IF ( kPsi(i,j) .AND. .NOT.kPsi(i,j+1) ) THEN |
|
./pkg/diagnostics/diag_calc_psivel.F |
161 |
DIAG_CALC_PSIVEL |
kPsi(i,j+1) = .TRUE. |
|
./pkg/diagnostics/diag_calc_psivel.F |
162 |
DIAG_CALC_PSIVEL |
psiVel(i,j+1,bi,bj) = psiVel(i,j,bi,bj) |
|
./pkg/diagnostics/diag_calc_psivel.F |
163 |
DIAG_CALC_PSIVEL |
& - uTrans(i,j,bi,bj) |
|
./pkg/diagnostics/diag_calc_psivel.F |
165 |
DIAG_CALC_PSIVEL |
IF ( .NOT.kPsi(i,j) .AND. kPsi(i,j+1) ) THEN |
|
./pkg/diagnostics/diag_calc_psivel.F |
167 |
DIAG_CALC_PSIVEL |
kPsi(i,j) = .TRUE. |
|
./pkg/diagnostics/diag_calc_psivel.F |
168 |
DIAG_CALC_PSIVEL |
psiVel(i,j,bi,bj) = psiVel(i,j+1,bi,bj) |
|
./pkg/diagnostics/diag_calc_psivel.F |
169 |
DIAG_CALC_PSIVEL |
& + uTrans(i,j,bi,bj) |
|
./pkg/diagnostics/diag_calc_psivel.F |
186 |
DIAG_CALC_PSIVEL |
DO i=sNx+1,1,-1 |
|
./pkg/diagnostics/diag_calc_psivel.F |
188 |
DIAG_CALC_PSIVEL |
IF ( kPsi(i,j) .AND. jx.EQ.0 ) THEN |
|
./pkg/diagnostics/diag_calc_psivel.F |
189 |
DIAG_CALC_PSIVEL |
ix = i |
|
./pkg/diagnostics/diag_calc_psivel.F |
198 |
DIAG_CALC_PSIVEL |
DO i=1,sNx |
|
./pkg/diagnostics/diag_calc_psivel.F |
199 |
DIAG_CALC_PSIVEL |
IF ( kPsi(i,j) .AND. iy.EQ.0 ) THEN |
|
./pkg/diagnostics/diag_calc_psivel.F |
200 |
DIAG_CALC_PSIVEL |
iy = i |
|
./pkg/diagnostics/diag_calc_psivel.F |
222 |
DIAG_CALC_PSIVEL |
DO i=1,sNx |
|
./pkg/diagnostics/diag_calc_psivel.F |
223 |
DIAG_CALC_PSIVEL |
psiVel(i+1,j,bi,bj) = psiVel(i,j,bi,bj) |
|
./pkg/diagnostics/diag_calc_psivel.F |
224 |
DIAG_CALC_PSIVEL |
& + vTrans(i,j,bi,bj) |
|
./pkg/diagnostics/diag_calc_psivel.F |
228 |
DIAG_CALC_PSIVEL |
DO i=1,sNx+1 |
|
./pkg/diagnostics/diag_calc_psivel.F |
229 |
DIAG_CALC_PSIVEL |
psiVel(i,j+1,bi,bj) = psiVel(i,j,bi,bj) |
|
./pkg/diagnostics/diag_calc_psivel.F |
230 |
DIAG_CALC_PSIVEL |
& - uTrans(i,j,bi,bj) |
|
./pkg/diagnostics/diag_calc_psivel.F |
249 |
DIAG_CALC_PSIVEL |
DO i=1,sNx+1 |
|
./pkg/diagnostics/diag_calc_psivel.F |
250 |
DIAG_CALC_PSIVEL |
psiVel(i,j,bi,bj) = psiVel(i,j,bi,bj) + psiOri(bi,bj) |
|
./pkg/diagnostics/diag_calc_psivel.F |
266 |
DIAG_CALC_PSIVEL |
DO i=1,sNx+1 |
|
./pkg/diagnostics/diag_calc_psivel.F |
267 |
DIAG_CALC_PSIVEL |
psiVel(i,j,bi,bj) = psiVel(i,j,bi,bj) + offSet |
|
./pkg/diagnostics/diag_calc_psivel.F |
65 |
DIAG_CALC_PSIVEL |
INTEGER i, j |
|
./pkg/diagnostics/diag_cg2d.F |
115 |
DIAG_CG2D |
DO i = 1-OLx,sNx+OLx |
|
./pkg/diagnostics/diag_cg2d.F |
116 |
DIAG_CG2D |
aC2d(i,j,bi,bj) = 0. |
|
./pkg/diagnostics/diag_cg2d.F |
120 |
DIAG_CG2D |
DO i=1,sNx |
|
./pkg/diagnostics/diag_cg2d.F |
121 |
DIAG_CG2D |
aC2d(i,j,bi,bj) = -( ( aW2d(i,j,bi,bj)+aW2d(i+1,j,bi,bj) ) |
|
./pkg/diagnostics/diag_cg2d.F |
122 |
DIAG_CG2D |
& +( aS2d(i,j,bi,bj)+aS2d(i,j+1,bi,bj) ) |
|
./pkg/diagnostics/diag_cg2d.F |
134 |
DIAG_CG2D |
DO i=1,sNx+1 |
|
./pkg/diagnostics/diag_cg2d.F |
135 |
DIAG_CG2D |
IF ( aC2d(i,j,bi,bj) .EQ. 0. ) THEN |
|
./pkg/diagnostics/diag_cg2d.F |
136 |
DIAG_CG2D |
pC(i,j,bi,bj) = 1. _d 0 |
|
./pkg/diagnostics/diag_cg2d.F |
138 |
DIAG_CG2D |
pC(i,j,bi,bj) = 1. _d 0 / aC2d(i,j,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
140 |
DIAG_CG2D |
pW_tmp = aC2d(i,j,bi,bj)+aC2d(i-1,j,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
142 |
DIAG_CG2D |
pW(i,j,bi,bj) = 0. |
|
./pkg/diagnostics/diag_cg2d.F |
144 |
DIAG_CG2D |
pW(i,j,bi,bj) = -aW2d(i,j,bi,bj)*offDiagFactor |
|
./pkg/diagnostics/diag_cg2d.F |
147 |
DIAG_CG2D |
pS_tmp = aC2d(i,j,bi,bj)+aC2d(i,j-1,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
149 |
DIAG_CG2D |
pS(i,j,bi,bj) = 0. |
|
./pkg/diagnostics/diag_cg2d.F |
151 |
DIAG_CG2D |
pS(i,j,bi,bj) = -aS2d(i,j,bi,bj)*offDiagFactor |
|
./pkg/diagnostics/diag_cg2d.F |
171 |
DIAG_CG2D |
DO i=0,sNx+1 |
|
./pkg/diagnostics/diag_cg2d.F |
172 |
DIAG_CG2D |
r2d(i,j,bi,bj) = 0. |
|
./pkg/diagnostics/diag_cg2d.F |
173 |
DIAG_CG2D |
s2d(i,j,bi,bj) = 0. |
|
./pkg/diagnostics/diag_cg2d.F |
174 |
DIAG_CG2D |
x2dm(i,j,bi,bj) = x2d(i,j,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
180 |
DIAG_CG2D |
DO i=1,sNx |
|
./pkg/diagnostics/diag_cg2d.F |
181 |
DIAG_CG2D |
r2d(i,j,bi,bj) = b2d(i,j,bi,bj) - |
|
./pkg/diagnostics/diag_cg2d.F |
182 |
DIAG_CG2D |
& (aW2d(i ,j ,bi,bj)*x2d(i-1,j ,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
183 |
DIAG_CG2D |
& +aW2d(i+1,j ,bi,bj)*x2d(i+1,j ,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
184 |
DIAG_CG2D |
& +aS2d(i ,j ,bi,bj)*x2d(i ,j-1,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
185 |
DIAG_CG2D |
& +aS2d(i ,j+1,bi,bj)*x2d(i ,j+1,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
186 |
DIAG_CG2D |
& +aC2d(i ,j ,bi,bj)*x2d(i ,j ,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
189 |
DIAG_CG2D |
& + r2d(i,j,bi,bj)*r2d(i,j,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
190 |
DIAG_CG2D |
sumRHStile(bi,bj) = sumRHStile(bi,bj) + b2d(i,j,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
239 |
DIAG_CG2D |
DO i=1,sNx |
|
./pkg/diagnostics/diag_cg2d.F |
240 |
DIAG_CG2D |
q2d(i,j,bi,bj) = |
|
./pkg/diagnostics/diag_cg2d.F |
241 |
DIAG_CG2D |
& pC(i ,j ,bi,bj)*r2d(i ,j ,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
242 |
DIAG_CG2D |
& +pW(i ,j ,bi,bj)*r2d(i-1,j ,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
243 |
DIAG_CG2D |
& +pW(i+1,j ,bi,bj)*r2d(i+1,j ,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
244 |
DIAG_CG2D |
& +pS(i ,j ,bi,bj)*r2d(i ,j-1,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
245 |
DIAG_CG2D |
& +pS(i ,j+1,bi,bj)*r2d(i ,j+1,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
247 |
DIAG_CG2D |
& +q2d(i,j,bi,bj)*r2d(i,j,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
260 |
DIAG_CG2D |
DO i=1,sNx |
|
./pkg/diagnostics/diag_cg2d.F |
261 |
DIAG_CG2D |
s2d(i,j,bi,bj) = q2d(i,j,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
262 |
DIAG_CG2D |
& + cgBeta*s2d(i,j,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
277 |
DIAG_CG2D |
DO i=1,sNx |
|
./pkg/diagnostics/diag_cg2d.F |
278 |
DIAG_CG2D |
q2d(i,j,bi,bj) = |
|
./pkg/diagnostics/diag_cg2d.F |
279 |
DIAG_CG2D |
& aW2d(i ,j ,bi,bj)*s2d(i-1,j ,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
280 |
DIAG_CG2D |
& +aW2d(i+1,j ,bi,bj)*s2d(i+1,j ,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
281 |
DIAG_CG2D |
& +aS2d(i ,j ,bi,bj)*s2d(i ,j-1,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
282 |
DIAG_CG2D |
& +aS2d(i ,j+1,bi,bj)*s2d(i ,j+1,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
283 |
DIAG_CG2D |
& +aC2d(i ,j ,bi,bj)*s2d(i ,j ,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
285 |
DIAG_CG2D |
& + s2d(i,j,bi,bj)*q2d(i,j,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
299 |
DIAG_CG2D |
DO i=1,sNx |
|
./pkg/diagnostics/diag_cg2d.F |
300 |
DIAG_CG2D |
x2d(i,j,bi,bj)=x2d(i,j,bi,bj)+alpha*s2d(i,j,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
301 |
DIAG_CG2D |
r2d(i,j,bi,bj)=r2d(i,j,bi,bj)-alpha*q2d(i,j,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
303 |
DIAG_CG2D |
& + r2d(i,j,bi,bj)*r2d(i,j,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
327 |
DIAG_CG2D |
DO i=1,sNx |
|
./pkg/diagnostics/diag_cg2d.F |
328 |
DIAG_CG2D |
x2dm(i,j,bi,bj) = x2d(i,j,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
359 |
DIAG_CG2D |
DO i=1,sNx |
|
./pkg/diagnostics/diag_cg2d.F |
360 |
DIAG_CG2D |
x2d(i,j,bi,bj) = x2dm(i,j,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
81 |
DIAG_CG2D |
INTEGER i, j, it2d |
|
./pkg/diagnostics/diag_vegtile_fill.F |
157 |
DIAG_VEGTILE_FILL |
i = 1 + MOD(ij,sNx) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
159 |
DIAG_VEGTILE_FILL |
qdiag(i,j,kd,bi,bj) = undef |
|
./pkg/diagnostics/diag_vegtile_fill.F |
160 |
DIAG_VEGTILE_FILL |
ELSEIF ( qdiag(i,j,kd,bi,bj).NE.undef ) THEN |
|
./pkg/diagnostics/diag_vegtile_fill.F |
161 |
DIAG_VEGTILE_FILL |
qdiag(i,j,kd,bi,bj) = qdiag(i,j,kd,bi,bj) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
169 |
DIAG_VEGTILE_FILL |
i = 1 + MOD(ij,sNx) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
170 |
DIAG_VEGTILE_FILL |
qdiag(i,j,kd,bi,bj) = qdiag(i,j,kd,bi,bj) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
64 |
DIAG_VEGTILE_FILL |
INTEGER ivt, ij, i |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
103 |
DIAGNOSTICS_CALC_PHIVEL |
DO i = 1-OLx,sNx+OLx |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
104 |
DIAGNOSTICS_CALC_PHIVEL |
b2d(i,j,bi,bj) = 0. |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
105 |
DIAGNOSTICS_CALC_PHIVEL |
x2d(i,j,bi,bj) = 0. |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
112 |
DIAGNOSTICS_CALC_PHIVEL |
DO i = 1,sNx+1 |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
113 |
DIAGNOSTICS_CALC_PHIVEL |
aW2d(i,j,bi,bj) = dyG(i,j,bi,bj)*recip_dxC(i,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
114 |
DIAGNOSTICS_CALC_PHIVEL |
& *drF(k)*hFacW(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
115 |
DIAGNOSTICS_CALC_PHIVEL |
& *maskInW(i,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
116 |
DIAGNOSTICS_CALC_PHIVEL |
aS2d(i,j,bi,bj) = dxG(i,j,bi,bj)*recip_dyC(i,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
117 |
DIAGNOSTICS_CALC_PHIVEL |
& *drF(k)*hFacS(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
118 |
DIAGNOSTICS_CALC_PHIVEL |
& *maskInS(i,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
119 |
DIAGNOSTICS_CALC_PHIVEL |
a2dMax = MAX(a2dMax,aW2d(i,j,bi,bj)) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
120 |
DIAGNOSTICS_CALC_PHIVEL |
a2dMax = MAX(a2dMax,aS2d(i,j,bi,bj)) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
126 |
DIAGNOSTICS_CALC_PHIVEL |
DO i = 1,sNx+1 |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
127 |
DIAGNOSTICS_CALC_PHIVEL |
uTrans(i,j,bi,bj) = dyG(i,j,bi,bj)*drF(k) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
128 |
DIAGNOSTICS_CALC_PHIVEL |
& *qtmp1(i,j,ks,bi,bj)*maskInW(i,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
129 |
DIAGNOSTICS_CALC_PHIVEL |
vTrans(i,j,bi,bj) = dxG(i,j,bi,bj)*drF(k) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
130 |
DIAGNOSTICS_CALC_PHIVEL |
& *qtmp2(i,j,ks,bi,bj)*maskInS(i,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
141 |
DIAGNOSTICS_CALC_PHIVEL |
DO i = 1,sNx |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
142 |
DIAGNOSTICS_CALC_PHIVEL |
b2d(i,j,bi,bj) = ( |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
143 |
DIAGNOSTICS_CALC_PHIVEL |
& ( uTrans(i+1,j,bi,bj) - uTrans(i,j,bi,bj) ) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
144 |
DIAGNOSTICS_CALC_PHIVEL |
& + ( vTrans(i,j+1,bi,bj) - vTrans(i,j,bi,bj) ) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
145 |
DIAGNOSTICS_CALC_PHIVEL |
& )*maskInC(i,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
182 |
DIAGNOSTICS_CALC_PHIVEL |
DO i = 1,sNx |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
212 |
DIAGNOSTICS_CALC_PHIVEL |
DO i = 1,sNx+1 |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
213 |
DIAGNOSTICS_CALC_PHIVEL |
aW2d(i,j,bi,bj) = aW2d(i,j,bi,bj)*a2dNorm |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
214 |
DIAGNOSTICS_CALC_PHIVEL |
aS2d(i,j,bi,bj) = aS2d(i,j,bi,bj)*a2dNorm |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
215 |
DIAGNOSTICS_CALC_PHIVEL |
b2d(i,j,bi,bj) = b2d(i,j,bi,bj) *b2dNorm |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
255 |
DIAGNOSTICS_CALC_PHIVEL |
DO i = 1-OLx,sNx+OLx |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
256 |
DIAGNOSTICS_CALC_PHIVEL |
x2d(i,j,bi,bj) = x2d(i,j,bi,bj)*x2dNorm |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
267 |
DIAGNOSTICS_CALC_PHIVEL |
DO i = 1,sNx+1 |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
268 |
DIAGNOSTICS_CALC_PHIVEL |
uTrans(i,j,bi,bj) = uTrans(i,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
269 |
DIAGNOSTICS_CALC_PHIVEL |
& - ( x2d(i,j,bi,bj) - x2d(i-1,j,bi,bj) ) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
270 |
DIAGNOSTICS_CALC_PHIVEL |
& *recip_dxC(i,j,bi,bj)*dyG(i,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
271 |
DIAGNOSTICS_CALC_PHIVEL |
& *drF(k)*hFacW(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
272 |
DIAGNOSTICS_CALC_PHIVEL |
& *maskInW(i,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
273 |
DIAGNOSTICS_CALC_PHIVEL |
vTrans(i,j,bi,bj) = vTrans(i,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
274 |
DIAGNOSTICS_CALC_PHIVEL |
& - ( x2d(i,j,bi,bj) - x2d(i,j-1,bi,bj) ) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
275 |
DIAGNOSTICS_CALC_PHIVEL |
& *recip_dyC(i,j,bi,bj)*dxG(i,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
276 |
DIAGNOSTICS_CALC_PHIVEL |
& *drF(k)*hFacS(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
277 |
DIAGNOSTICS_CALC_PHIVEL |
& *maskInS(i,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
321 |
DIAGNOSTICS_CALC_PHIVEL |
DO i = 1,sNx+1 |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
322 |
DIAGNOSTICS_CALC_PHIVEL |
qtmp1(i,j,ks,bi,bj) = x2d(i,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
323 |
DIAGNOSTICS_CALC_PHIVEL |
qtmp2(i,j,ks,bi,bj) = psiVel(i,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
67 |
DIAGNOSTICS_CALC_PHIVEL |
INTEGER i, j, k |
|
./pkg/diagnostics/diagnostics_clear.F |
80 |
DIAGNOSTICS_CLRDIAG |
INTEGER i,j,k |
|
./pkg/diagnostics/diagnostics_clear.F |
93 |
DIAGNOSTICS_CLRDIAG |
DO i = 1-OLx,sNx+OLx |
|
./pkg/diagnostics/diagnostics_clear.F |
94 |
DIAGNOSTICS_CLRDIAG |
qdiag(i,j,kl,bi,bj) = 0.0 |
|
./pkg/diagnostics/diagnostics_fill_field.F |
347 |
DIAGNOSTICS_HF_CUMUL |
INTEGER i, j |
|
./pkg/diagnostics/diagnostics_fill_field.F |
357 |
DIAGNOSTICS_HF_CUMUL |
DO i = 1,iRun |
|
./pkg/diagnostics/diagnostics_fill_field.F |
358 |
DIAGNOSTICS_HF_CUMUL |
tmpFld(i,j) = scaleFact*inpFldRL(i,j,k,ti,tj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
363 |
DIAGNOSTICS_HF_CUMUL |
DO i = 1,iRun |
|
./pkg/diagnostics/diagnostics_fill_field.F |
364 |
DIAGNOSTICS_HF_CUMUL |
tmpFld(i,j) = scaleFact*inpFldRS(i,j,k,ti,tj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
373 |
DIAGNOSTICS_HF_CUMUL |
DO i = 1,iRun |
|
./pkg/diagnostics/diagnostics_fill_field.F |
374 |
DIAGNOSTICS_HF_CUMUL |
tmpFld(i,j) = tmpFld(i,j)*tmpFld(i,j) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
381 |
DIAGNOSTICS_HF_CUMUL |
DO i = 1,iRun |
|
./pkg/diagnostics/diagnostics_fill_field.F |
382 |
DIAGNOSTICS_HF_CUMUL |
cumFld(i,j) = cumFld(i,j) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
383 |
DIAGNOSTICS_HF_CUMUL |
& + tmpFld(i,j)*hFacC(i,j,km,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
388 |
DIAGNOSTICS_HF_CUMUL |
DO i = 1,iRun |
|
./pkg/diagnostics/diagnostics_fill_field.F |
389 |
DIAGNOSTICS_HF_CUMUL |
cumFld(i,j) = cumFld(i,j) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
390 |
DIAGNOSTICS_HF_CUMUL |
& + tmpFld(i,j)*hFacW(i,j,km,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
395 |
DIAGNOSTICS_HF_CUMUL |
DO i = 1,iRun |
|
./pkg/diagnostics/diagnostics_fill_field.F |
396 |
DIAGNOSTICS_HF_CUMUL |
cumFld(i,j) = cumFld(i,j) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
397 |
DIAGNOSTICS_HF_CUMUL |
& + tmpFld(i,j)*hFacS(i,j,km,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
402 |
DIAGNOSTICS_HF_CUMUL |
DO i = 1,iRun |
|
./pkg/diagnostics/diagnostics_fill_field.F |
403 |
DIAGNOSTICS_HF_CUMUL |
cumFld(i,j) = cumFld(i,j) + tmpFld(i,j) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
472 |
DIAGNOSTICS_CUMULATE |
INTEGER i, j, l |
|
./pkg/diagnostics/diagnostics_fill_field.F |
485 |
DIAGNOSTICS_CUMULATE |
DO i = 1,iRun |
|
./pkg/diagnostics/diagnostics_fill_field.F |
486 |
DIAGNOSTICS_CUMULATE |
cumFld(i,j) = cumFld(i,j) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
487 |
DIAGNOSTICS_CUMULATE |
& + tmpFact*inpFldRL(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
488 |
DIAGNOSTICS_CUMULATE |
& *inpFldRL(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
489 |
DIAGNOSTICS_CUMULATE |
& *frcFldRL(i,j,l,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
494 |
DIAGNOSTICS_CUMULATE |
DO i = 1,iRun |
|
./pkg/diagnostics/diagnostics_fill_field.F |
495 |
DIAGNOSTICS_CUMULATE |
cumFld(i,j) = cumFld(i,j) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
496 |
DIAGNOSTICS_CUMULATE |
& + tmpFact*inpFldRL(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
497 |
DIAGNOSTICS_CUMULATE |
& *inpFldRL(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
498 |
DIAGNOSTICS_CUMULATE |
& *frcFldRS(i,j,l,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
503 |
DIAGNOSTICS_CUMULATE |
DO i = 1,iRun |
|
./pkg/diagnostics/diagnostics_fill_field.F |
504 |
DIAGNOSTICS_CUMULATE |
cumFld(i,j) = cumFld(i,j) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
505 |
DIAGNOSTICS_CUMULATE |
& + tmpFact*inpFldRS(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
506 |
DIAGNOSTICS_CUMULATE |
& *inpFldRS(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
507 |
DIAGNOSTICS_CUMULATE |
& *frcFldRL(i,j,l,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
512 |
DIAGNOSTICS_CUMULATE |
DO i = 1,iRun |
|
./pkg/diagnostics/diagnostics_fill_field.F |
513 |
DIAGNOSTICS_CUMULATE |
cumFld(i,j) = cumFld(i,j) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
514 |
DIAGNOSTICS_CUMULATE |
& + tmpFact*inpFldRS(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
515 |
DIAGNOSTICS_CUMULATE |
& *inpFldRS(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
516 |
DIAGNOSTICS_CUMULATE |
& *frcFldRS(i,j,l,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
528 |
DIAGNOSTICS_CUMULATE |
DO i = 1,iRun |
|
./pkg/diagnostics/diagnostics_fill_field.F |
529 |
DIAGNOSTICS_CUMULATE |
cumFld(i,j) = cumFld(i,j) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
530 |
DIAGNOSTICS_CUMULATE |
& + tmpFact*inpFldRL(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
531 |
DIAGNOSTICS_CUMULATE |
& *frcFldRL(i,j,l,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
536 |
DIAGNOSTICS_CUMULATE |
DO i = 1,iRun |
|
./pkg/diagnostics/diagnostics_fill_field.F |
537 |
DIAGNOSTICS_CUMULATE |
cumFld(i,j) = cumFld(i,j) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
538 |
DIAGNOSTICS_CUMULATE |
& + tmpFact*inpFldRL(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
539 |
DIAGNOSTICS_CUMULATE |
& *frcFldRS(i,j,l,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
544 |
DIAGNOSTICS_CUMULATE |
DO i = 1,iRun |
|
./pkg/diagnostics/diagnostics_fill_field.F |
545 |
DIAGNOSTICS_CUMULATE |
cumFld(i,j) = cumFld(i,j) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
546 |
DIAGNOSTICS_CUMULATE |
& + tmpFact*inpFldRS(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
547 |
DIAGNOSTICS_CUMULATE |
& *frcFldRL(i,j,l,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
552 |
DIAGNOSTICS_CUMULATE |
DO i = 1,iRun |
|
./pkg/diagnostics/diagnostics_fill_field.F |
553 |
DIAGNOSTICS_CUMULATE |
cumFld(i,j) = cumFld(i,j) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
554 |
DIAGNOSTICS_CUMULATE |
& + tmpFact*inpFldRS(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
555 |
DIAGNOSTICS_CUMULATE |
& *frcFldRS(i,j,l,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
566 |
DIAGNOSTICS_CUMULATE |
DO i = 1,iRun |
|
./pkg/diagnostics/diagnostics_fill_field.F |
567 |
DIAGNOSTICS_CUMULATE |
cumFld(i,j) = cumFld(i,j) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
568 |
DIAGNOSTICS_CUMULATE |
& + tmpFact*inpFldRL(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
569 |
DIAGNOSTICS_CUMULATE |
& *inpFldRL(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
574 |
DIAGNOSTICS_CUMULATE |
DO i = 1,iRun |
|
./pkg/diagnostics/diagnostics_fill_field.F |
575 |
DIAGNOSTICS_CUMULATE |
cumFld(i,j) = cumFld(i,j) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
576 |
DIAGNOSTICS_CUMULATE |
& + tmpFact*inpFldRS(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
577 |
DIAGNOSTICS_CUMULATE |
& *inpFldRS(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
588 |
DIAGNOSTICS_CUMULATE |
DO i = 1,iRun |
|
./pkg/diagnostics/diagnostics_fill_field.F |
593 |
DIAGNOSTICS_CUMULATE |
cumFld(i,j) = cumFld(i,j) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
594 |
DIAGNOSTICS_CUMULATE |
& + tmpFact*inpFldRL(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
599 |
DIAGNOSTICS_CUMULATE |
DO i = 1,iRun |
|
./pkg/diagnostics/diagnostics_fill_field.F |
600 |
DIAGNOSTICS_CUMULATE |
cumFld(i,j) = cumFld(i,j) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
601 |
DIAGNOSTICS_CUMULATE |
& + tmpFact*inpFldRS(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
115 |
DIAGNOSTICS_FILL_STATE |
DO i = 1,sNx |
|
./pkg/diagnostics/diagnostics_fill_state.F |
117 |
DIAGNOSTICS_FILL_STATE |
& *(uVel(i,j,k,bi,bj)+uVel(i+1,j,k,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
119 |
DIAGNOSTICS_FILL_STATE |
& *(vVel(i,j,k,bi,bj)+vVel(i,j+1,k,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
120 |
DIAGNOSTICS_FILL_STATE |
tmpU(i,j) = angleCosC(i,j,bi,bj)*uBarC |
|
./pkg/diagnostics/diagnostics_fill_state.F |
121 |
DIAGNOSTICS_FILL_STATE |
& -angleSinC(i,j,bi,bj)*vBarC |
|
./pkg/diagnostics/diagnostics_fill_state.F |
122 |
DIAGNOSTICS_FILL_STATE |
tmpV(i,j) = angleSinC(i,j,bi,bj)*uBarC |
|
./pkg/diagnostics/diagnostics_fill_state.F |
123 |
DIAGNOSTICS_FILL_STATE |
& +angleCosC(i,j,bi,bj)*vBarC |
|
./pkg/diagnostics/diagnostics_fill_state.F |
124 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = tmpU(i,j)*tmpV(i,j) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
140 |
DIAGNOSTICS_FILL_STATE |
DO i = 1,sNx+1 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
141 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = 0.25 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
142 |
DIAGNOSTICS_FILL_STATE |
& *(uVel(i,j-1,k,bi,bj)+uVel(i,j,k,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
143 |
DIAGNOSTICS_FILL_STATE |
& *(vVel(i-1,j,k,bi,bj)+vVel(i,j,k,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
158 |
DIAGNOSTICS_FILL_STATE |
DO i = 1,sNx+1 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
159 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = 0.25 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
160 |
DIAGNOSTICS_FILL_STATE |
& *(uVel(i,j,km1,bi,bj)+uVel(i,j,k,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
161 |
DIAGNOSTICS_FILL_STATE |
& *(wVel(i-1,j,k,bi,bj)*rA(i-1,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
162 |
DIAGNOSTICS_FILL_STATE |
& +wVel( i ,j,k,bi,bj)*rA( i ,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
163 |
DIAGNOSTICS_FILL_STATE |
& )*recip_rAw(i,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
178 |
DIAGNOSTICS_FILL_STATE |
DO i = 1,sNx |
|
./pkg/diagnostics/diagnostics_fill_state.F |
179 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = 0.25 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
180 |
DIAGNOSTICS_FILL_STATE |
& *(vVel(i,j,km1,bi,bj)+vVel(i,j,k,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
181 |
DIAGNOSTICS_FILL_STATE |
& *(wVel(i,j-1,k,bi,bj)*rA(i,j-1,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
182 |
DIAGNOSTICS_FILL_STATE |
& +wVel(i, j ,k,bi,bj)*rA(i, j ,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
183 |
DIAGNOSTICS_FILL_STATE |
& )*recip_rAs(i,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
199 |
DIAGNOSTICS_FILL_STATE |
DO i = 1,sNx+1 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
200 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = uVel(i,j,k,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
201 |
DIAGNOSTICS_FILL_STATE |
& *(theta(i,j,k,bi,bj)+theta(i-1,j,k,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
215 |
DIAGNOSTICS_FILL_STATE |
DO i = 1,sNx |
|
./pkg/diagnostics/diagnostics_fill_state.F |
216 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = vVel(i,j,k,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
217 |
DIAGNOSTICS_FILL_STATE |
& *(theta(i,j,k,bi,bj)+theta(i,j-1,k,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
232 |
DIAGNOSTICS_FILL_STATE |
DO i = 1,sNx |
|
./pkg/diagnostics/diagnostics_fill_state.F |
233 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = wVel(i,j,k,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
234 |
DIAGNOSTICS_FILL_STATE |
& *(theta(i,j,k,bi,bj)+theta(i,j,km1,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
248 |
DIAGNOSTICS_FILL_STATE |
DO i = 1,sNx+1 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
249 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = uVel(i,j,k,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
250 |
DIAGNOSTICS_FILL_STATE |
& *(salt(i,j,k,bi,bj)+salt(i-1,j,k,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
264 |
DIAGNOSTICS_FILL_STATE |
DO i = 1,sNx |
|
./pkg/diagnostics/diagnostics_fill_state.F |
265 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = vVel(i,j,k,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
266 |
DIAGNOSTICS_FILL_STATE |
& *(salt(i,j,k,bi,bj)+salt(i,j-1,k,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
281 |
DIAGNOSTICS_FILL_STATE |
DO i = 1,sNx |
|
./pkg/diagnostics/diagnostics_fill_state.F |
282 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = wVel(i,j,k,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
283 |
DIAGNOSTICS_FILL_STATE |
& *(salt(i,j,k,bi,bj)+salt(i,j,km1,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
297 |
DIAGNOSTICS_FILL_STATE |
DO i = 1,sNx+1 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
298 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = uVel(i,j,k,bi,bj)*hFacW(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
299 |
DIAGNOSTICS_FILL_STATE |
& *0.5 _d 0*(totPhiHyd(i,j,k,bi,bj)+totPhiHyd(i-1,j,k,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
313 |
DIAGNOSTICS_FILL_STATE |
DO i = 1,sNx |
|
./pkg/diagnostics/diagnostics_fill_state.F |
314 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = vVel(i,j,k,bi,bj)*hFacS(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
315 |
DIAGNOSTICS_FILL_STATE |
& *0.5 _d 0*(totPhiHyd(i,j,k,bi,bj)+totPhiHyd(i,j-1,k,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
328 |
DIAGNOSTICS_FILL_STATE |
DO i = 1,sNx |
|
./pkg/diagnostics/diagnostics_fill_state.F |
329 |
DIAGNOSTICS_FILL_STATE |
tmp1k(i,j,bi,bj) = R_low(i,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
334 |
DIAGNOSTICS_FILL_STATE |
DO i = 1,sNx |
|
./pkg/diagnostics/diagnostics_fill_state.F |
335 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = tmp1k(i,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
336 |
DIAGNOSTICS_FILL_STATE |
& + (rF(k+1)-rC(k))*hFacC(i,j,k,bi,bj)*rkSign |
|
./pkg/diagnostics/diagnostics_fill_state.F |
339 |
DIAGNOSTICS_FILL_STATE |
tmp1k(i,j,bi,bj) = tmp1k(i,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
340 |
DIAGNOSTICS_FILL_STATE |
& + drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
365 |
DIAGNOSTICS_FILL_STATE |
DO i = 1,sNx |
|
./pkg/diagnostics/diagnostics_fill_state.F |
366 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = tmpFac*theta(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
386 |
DIAGNOSTICS_FILL_STATE |
DO i = 1,sNx |
|
./pkg/diagnostics/diagnostics_fill_state.F |
387 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = tmpFac*salt(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
418 |
DIAGNOSTICS_FILL_STATE |
DO i = 1,sNx |
|
./pkg/diagnostics/diagnostics_fill_state.F |
420 |
DIAGNOSTICS_FILL_STATE |
dummy1 = theta(i,j,k,bi,bj) * ((rC(k)/100.)/1000.)**kappa |
|
./pkg/diagnostics/diagnostics_fill_state.F |
423 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = hFacC(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
424 |
DIAGNOSTICS_FILL_STATE |
& *salt(i,j,k,bi,bj)*100. / dummy3 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
495 |
DIAGNOSTICS_FILL_STATE |
DO i = 1,sNx |
|
./pkg/diagnostics/diagnostics_fill_state.F |
496 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = salt(i,j,k,bi,bj)-35. _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
514 |
DIAGNOSTICS_FILL_STATE |
DO i = 1,sNx+1 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
515 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
516 |
DIAGNOSTICS_FILL_STATE |
& = uVel(i,j,k,bi,bj)*hFacW(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
530 |
DIAGNOSTICS_FILL_STATE |
DO i = 1,sNx |
|
./pkg/diagnostics/diagnostics_fill_state.F |
531 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
532 |
DIAGNOSTICS_FILL_STATE |
& = vVel(i,j,k,bi,bj)*hFacS(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
548 |
DIAGNOSTICS_FILL_STATE |
DO i = 1,sNx+1 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
549 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = uVel(i,j,k,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
550 |
DIAGNOSTICS_FILL_STATE |
& *(theta(i,j,k,bi,bj)+theta(i-1,j,k,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
551 |
DIAGNOSTICS_FILL_STATE |
& * hFacW(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
565 |
DIAGNOSTICS_FILL_STATE |
DO i = 1,sNx |
|
./pkg/diagnostics/diagnostics_fill_state.F |
566 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = vVel(i,j,k,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
567 |
DIAGNOSTICS_FILL_STATE |
& *(theta(i,j,k,bi,bj)+theta(i,j-1,k,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
568 |
DIAGNOSTICS_FILL_STATE |
& * hFacS(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
583 |
DIAGNOSTICS_FILL_STATE |
DO i = 1,sNx |
|
./pkg/diagnostics/diagnostics_fill_state.F |
584 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = wVel(i,j,k,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
585 |
DIAGNOSTICS_FILL_STATE |
& *(theta(i,j,k,bi,bj)+theta(i,j,km1,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
599 |
DIAGNOSTICS_FILL_STATE |
DO i = 1,sNx+1 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
600 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = uVel(i,j,k,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
601 |
DIAGNOSTICS_FILL_STATE |
& *(salt(i,j,k,bi,bj)+salt(i-1,j,k,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
602 |
DIAGNOSTICS_FILL_STATE |
& * hFacW(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
616 |
DIAGNOSTICS_FILL_STATE |
DO i = 1,sNx |
|
./pkg/diagnostics/diagnostics_fill_state.F |
617 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = vVel(i,j,k,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
618 |
DIAGNOSTICS_FILL_STATE |
& *(salt(i,j,k,bi,bj)+salt(i,j-1,k,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
619 |
DIAGNOSTICS_FILL_STATE |
& * hFacS(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
61 |
DIAGNOSTICS_FILL_STATE |
INTEGER i,j,k,bi,bj |
|
./pkg/diagnostics/diagnostics_fill_state.F |
634 |
DIAGNOSTICS_FILL_STATE |
DO i = 1,sNx |
|
./pkg/diagnostics/diagnostics_fill_state.F |
635 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = wVel(i,j,k,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
636 |
DIAGNOSTICS_FILL_STATE |
& *(salt(i,j,k,bi,bj)+salt(i,j,km1,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
669 |
DIAGNOSTICS_FILL_STATE |
DO i = 1,sNx |
|
./pkg/diagnostics/diagnostics_fill_state.F |
670 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = tmpFac*theta(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
690 |
DIAGNOSTICS_FILL_STATE |
DO i = 1,sNx |
|
./pkg/diagnostics/diagnostics_fill_state.F |
691 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = tmpFac*salt(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
73 |
DIAGNOSTICS_FILL_STATE |
DO i = 1,sNx |
|
./pkg/diagnostics/diagnostics_fill_state.F |
74 |
DIAGNOSTICS_FILL_STATE |
tmp1k(i,j,bi,bj) = Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_init_varia.F |
30 |
DIAGNOSTICS_INIT_VARIA |
INTEGER i,j,k,bi,bj |
|
./pkg/diagnostics/diagnostics_init_varia.F |
45 |
DIAGNOSTICS_INIT_VARIA |
DO i = 1-OLx,sNx+OLx |
|
./pkg/diagnostics/diagnostics_init_varia.F |
46 |
DIAGNOSTICS_INIT_VARIA |
qdiag(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/diagnostics/diagnostics_init_varia.F |
64 |
DIAGNOSTICS_INIT_VARIA |
DO i = 0,nStats |
|
./pkg/diagnostics/diagnostics_init_varia.F |
65 |
DIAGNOSTICS_INIT_VARIA |
qSdiag(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
104 |
DIAGNOSTICS_INTERP_P2P |
DO i=1,ijm |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
107 |
DIAGNOSTICS_INTERP_P2P |
IF ( pk.LE.pkz(i,1) .AND. pk.GE.pktop ) THEN |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
108 |
DIAGNOSTICS_INTERP_P2P |
temp = ( pk-pkz(i,1) ) / ( pkz(i,2)-pkz(i,1) ) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
110 |
DIAGNOSTICS_INTERP_P2P |
IF ( qinp(i,1).NE.undef .AND. |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
111 |
DIAGNOSTICS_INTERP_P2P |
& qinp(i,2).NE.undef ) THEN |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
112 |
DIAGNOSTICS_INTERP_P2P |
qprs(i) = qinp(i,2)*temp + qinp(i,1)*(1.-temp) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
113 |
DIAGNOSTICS_INTERP_P2P |
ELSEIF ( qinp(i,1).NE.undef ) THEN |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
114 |
DIAGNOSTICS_INTERP_P2P |
qprs(i) = qinp(i,1) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
121 |
DIAGNOSTICS_INTERP_P2P |
IF ( pk.GE.pkz(i,lm) .AND. pk.LE.pksrf(i) ) THEN |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
122 |
DIAGNOSTICS_INTERP_P2P |
temp = ( pk-pkz(i,lm) ) / ( pkz(i,lm-1)-pkz(i,lm) ) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
124 |
DIAGNOSTICS_INTERP_P2P |
IF ( qinp(i,lm) .NE.undef .AND. |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
125 |
DIAGNOSTICS_INTERP_P2P |
& qinp(i,lm-1).NE.undef ) THEN |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
126 |
DIAGNOSTICS_INTERP_P2P |
qprs(i) = qinp(i,lm-1)*temp + qinp(i,lm)*(1.-temp) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
127 |
DIAGNOSTICS_INTERP_P2P |
ELSEIF ( qinp(i,lm) .NE.undef ) THEN |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
128 |
DIAGNOSTICS_INTERP_P2P |
qprs(i) = qinp(i,lm) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
143 |
DIAGNOSTICS_INTERP_P2P |
DO i=2,ijm |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
144 |
DIAGNOSTICS_INTERP_P2P |
IF ( pkz(i,L+1).LT.pkmin ) pkmin = pkz(i,L+1) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
145 |
DIAGNOSTICS_INTERP_P2P |
IF ( pkz(i,L) .GT.pkmax ) pkmax = pkz(i,L) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
149 |
DIAGNOSTICS_INTERP_P2P |
DO i=1,ijm |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
150 |
DIAGNOSTICS_INTERP_P2P |
IF ( pk.LE.pkz(i,L) .AND. pk.GE.pkz(i,L+1) ) THEN |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
151 |
DIAGNOSTICS_INTERP_P2P |
temp = ( pk-pkz(i,L) ) / ( pkz(i,L+1)-pkz(i,L) ) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
153 |
DIAGNOSTICS_INTERP_P2P |
IF ( qinp(i,L) .NE.undef .AND. |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
154 |
DIAGNOSTICS_INTERP_P2P |
& qinp(i,L+1).NE.undef ) THEN |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
155 |
DIAGNOSTICS_INTERP_P2P |
qprs(i) = qinp(i,L+1)*temp + qinp(i,L)*(1.-temp) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
156 |
DIAGNOSTICS_INTERP_P2P |
ELSEIF ( qinp(i,L+1).NE.undef .AND. temp.GE.0.5 ) THEN |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
157 |
DIAGNOSTICS_INTERP_P2P |
qprs(i) = qinp(i,L+1) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
158 |
DIAGNOSTICS_INTERP_P2P |
ELSEIF ( qinp(i,L) .NE.undef .AND. temp.LE.0.5 ) THEN |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
159 |
DIAGNOSTICS_INTERP_P2P |
qprs(i) = qinp(i,L) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
167 |
DIAGNOSTICS_INTERP_P2P |
DO i=1,ijm |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
170 |
DIAGNOSTICS_INTERP_P2P |
IF ( pk.LE.pkz(i,lm) .AND. pk.GE.pktop ) THEN |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
171 |
DIAGNOSTICS_INTERP_P2P |
temp = ( pk-pkz(i,lm) ) / ( pkz(i,lm-1)-pkz(i,lm) ) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
173 |
DIAGNOSTICS_INTERP_P2P |
IF ( qinp(i,lm) .NE.undef .AND. |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
174 |
DIAGNOSTICS_INTERP_P2P |
& qinp(i,lm-1).NE.undef ) THEN |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
175 |
DIAGNOSTICS_INTERP_P2P |
qprs(i) = qinp(i,lm-1)*temp + qinp(i,lm)*(1.-temp) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
176 |
DIAGNOSTICS_INTERP_P2P |
ELSEIF ( qinp(i,lm) .NE.undef ) THEN |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
177 |
DIAGNOSTICS_INTERP_P2P |
qprs(i) = qinp(i,lm) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
184 |
DIAGNOSTICS_INTERP_P2P |
IF ( pk.GE.pkz(i,1) .AND. pk.LE.pksrf(i) ) THEN |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
185 |
DIAGNOSTICS_INTERP_P2P |
temp = ( pk-pkz(i,1) ) / ( pkz(i,2)-pkz(i,1) ) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
187 |
DIAGNOSTICS_INTERP_P2P |
IF ( qinp(i,1).NE.undef .AND. |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
188 |
DIAGNOSTICS_INTERP_P2P |
& qinp(i,2).NE.undef ) THEN |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
189 |
DIAGNOSTICS_INTERP_P2P |
qprs(i) = qinp(i,2)*temp + qinp(i,1)*(1.-temp) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
190 |
DIAGNOSTICS_INTERP_P2P |
ELSEIF ( qinp(i,1).NE.undef ) THEN |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
191 |
DIAGNOSTICS_INTERP_P2P |
qprs(i) = qinp(i,1) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
60 |
DIAGNOSTICS_INTERP_P2P |
INTEGER i,l |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
67 |
DIAGNOSTICS_INTERP_P2P |
DO i=1,ijm |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
68 |
DIAGNOSTICS_INTERP_P2P |
qprs(i) = undef |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
80 |
DIAGNOSTICS_INTERP_P2P |
DO i=2,ijm |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
81 |
DIAGNOSTICS_INTERP_P2P |
IF ( pkz(i,L) .LT.pkmin ) pkmin = pkz(i,L) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
82 |
DIAGNOSTICS_INTERP_P2P |
IF ( pkz(i,L+1).GT.pkmax ) pkmax = pkz(i,L+1) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
86 |
DIAGNOSTICS_INTERP_P2P |
DO i=1,ijm |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
87 |
DIAGNOSTICS_INTERP_P2P |
IF ( pk.GE.pkz(i,L) .AND. pk.LE.pkz(i,L+1) ) THEN |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
88 |
DIAGNOSTICS_INTERP_P2P |
temp = ( pk-pkz(i,L) ) / ( pkz(i,L+1)-pkz(i,L) ) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
90 |
DIAGNOSTICS_INTERP_P2P |
IF ( qinp(i,L) .NE.undef .AND. |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
91 |
DIAGNOSTICS_INTERP_P2P |
& qinp(i,L+1).NE.undef ) THEN |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
92 |
DIAGNOSTICS_INTERP_P2P |
qprs(i) = qinp(i,L+1)*temp + qinp(i,L)*(1.-temp) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
93 |
DIAGNOSTICS_INTERP_P2P |
ELSEIF ( qinp(i,L+1).NE.undef .AND. temp.GE.0.5 ) THEN |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
94 |
DIAGNOSTICS_INTERP_P2P |
qprs(i) = qinp(i,L+1) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
95 |
DIAGNOSTICS_INTERP_P2P |
ELSEIF ( qinp(i,L) .NE.undef .AND. temp.LE.0.5 ) THEN |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
96 |
DIAGNOSTICS_INTERP_P2P |
qprs(i) = qinp(i,L) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
131 |
DIAGNOSTICS_INTERP_VERT |
DO i = 1-OLx,sNx+OLx |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
132 |
DIAGNOSTICS_INTERP_VERT |
qtmpsrf(i,j,bi,bj) = Ro_surf(i,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
137 |
DIAGNOSTICS_INTERP_VERT |
DO i = 1-OLx,sNx+OLx |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
138 |
DIAGNOSTICS_INTERP_VERT |
qtmp2(i,j,k,bi,bj) = rC(k) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
153 |
DIAGNOSTICS_INTERP_VERT |
DO i = 1,sNx |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
154 |
DIAGNOSTICS_INTERP_VERT |
pksrf(i,j) = qtmpsrf(i,j,bi,bj)**kappa |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
161 |
DIAGNOSTICS_INTERP_VERT |
DO i = 1,sNx |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
162 |
DIAGNOSTICS_INTERP_VERT |
qinp(i,j,k) = qtmp1(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
163 |
DIAGNOSTICS_INTERP_VERT |
pkz(i,j,k) = qtmp2(i,j,k,bi,bj)**kappa |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
174 |
DIAGNOSTICS_INTERP_VERT |
DO i = 1,sNx |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
175 |
DIAGNOSTICS_INTERP_VERT |
IF (maskC(i,j,kLev,bi,bj).NE.0.) THEN |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
176 |
DIAGNOSTICS_INTERP_VERT |
qinp(i,j,k)= qtmp1(i,j,kLev,bi,bj) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
178 |
DIAGNOSTICS_INTERP_VERT |
qinp(i,j,k)= undefRL |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
180 |
DIAGNOSTICS_INTERP_VERT |
pkz(i,j,k) = qtmp2(i,j,kLev,bi,bj)**kappa |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
195 |
DIAGNOSTICS_INTERP_VERT |
DO i = 1,sNx |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
196 |
DIAGNOSTICS_INTERP_VERT |
IF (qprs(i,j).EQ.undefRL) THEN |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
197 |
DIAGNOSTICS_INTERP_VERT |
qtmp1(i,j,k,bi,bj) = 0. |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
199 |
DIAGNOSTICS_INTERP_VERT |
qtmp1(i,j,k,bi,bj) = qprs(i,j) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
66 |
DIAGNOSTICS_INTERP_VERT |
INTEGER i, j, k |
|
./pkg/diagnostics/diagnostics_list_check.F |
50 |
DIAGNOSTICS_LIST_CHECK |
INTEGER n,m,m1,i |
|
./pkg/diagnostics/diagnostics_list_check.F |
64 |
DIAGNOSTICS_LIST_CHECK |
DO i=1,ndiagt |
|
./pkg/diagnostics/diagnostics_list_check.F |
65 |
DIAGNOSTICS_LIST_CHECK |
IF ( diagName.EQ.cdiag(i) ) found = .TRUE. |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
150 |
DIAGNOSTICS_MNC_SET |
DO i = 1,3 |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
152 |
DIAGNOSTICS_MNC_SET |
WRITE(dn(1),'(3a,i6.6)') 'Z',ctmp(i:i),'d',nlevels(listId) |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
164 |
DIAGNOSTICS_MNC_SET |
IF (i .EQ. 1) THEN |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
171 |
DIAGNOSTICS_MNC_SET |
ELSEIF (i .EQ. 2) THEN |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
178 |
DIAGNOSTICS_MNC_SET |
ELSEIF (i .EQ. 3) THEN |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
254 |
DIAGNOSTICS_MNC_OUT |
INTEGER i, j, k |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
369 |
DIAGNOSTICS_MNC_OUT |
DO i = 1-OLx,sNx+OLx |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
370 |
DIAGNOSTICS_MNC_OUT |
IF ( maskC(i,j,klev,bi,bj) .EQ. 0. ) |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
371 |
DIAGNOSTICS_MNC_OUT |
& qtmp(i,j,k,bi,bj) = misValLoc |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
73 |
DIAGNOSTICS_MNC_SET |
INTEGER i, j |
|
./pkg/diagnostics/diagnostics_out.F |
131 |
DIAGNOSTICS_OUT |
i = INT( timeRec(1) ) |
|
./pkg/diagnostics/diagnostics_out.F |
133 |
DIAGNOSTICS_OUT |
tmpLoc = FLOAT(i) |
|
./pkg/diagnostics/diagnostics_out.F |
134 |
DIAGNOSTICS_OUT |
IF ( timeRec(1).NE.tmpLoc ) i = i - 1 |
|
./pkg/diagnostics/diagnostics_out.F |
136 |
DIAGNOSTICS_OUT |
timeRec(1) = phase(listId) + freq(listId)*FLOAT(i) |
|
./pkg/diagnostics/diagnostics_out.F |
142 |
DIAGNOSTICS_OUT |
i = NINT( timeRec(1) ) |
|
./pkg/diagnostics/diagnostics_out.F |
144 |
DIAGNOSTICS_OUT |
tmpLoc = FLOAT(i) - 0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_out.F |
145 |
DIAGNOSTICS_OUT |
IF ( timeRec(1).EQ.tmpLoc ) i = i - 1 |
|
./pkg/diagnostics/diagnostics_out.F |
146 |
DIAGNOSTICS_OUT |
timeRec(1) = baseTime + deltaTClock*FLOAT(i) |
|
./pkg/diagnostics/diagnostics_out.F |
246 |
DIAGNOSTICS_OUT |
DO i = 1-OLx,sNx+OLx |
|
./pkg/diagnostics/diagnostics_out.F |
247 |
DIAGNOSTICS_OUT |
qtmp1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/diagnostics/diagnostics_out.F |
65 |
DIAGNOSTICS_OUT |
INTEGER i, j, k, lm |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
46 |
DIAGNOSTICS_READ_PICKUP |
INTEGER i, ii |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
62 |
DIAGNOSTICS_READ_PICKUP |
DO i = 1,NLEN |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
63 |
DIAGNOSTICS_READ_PICKUP |
dn_blnk(i:i) = ' ' |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
65 |
DIAGNOSTICS_READ_PICKUP |
DO i = 1,MAX_LEN_FNAM |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
66 |
DIAGNOSTICS_READ_PICKUP |
diag_mnc_bn(i:i) = ' ' |
|
./pkg/diagnostics/diagnostics_set_calc.F |
113 |
DIAGNOSTICS_SET_CALC |
DO i = 1,sNx+1 |
|
./pkg/diagnostics/diagnostics_set_calc.F |
114 |
DIAGNOSTICS_SET_CALC |
dxLoc = xG(i,j,bi,bj)-xPsi0 |
|
./pkg/diagnostics/diagnostics_set_calc.F |
115 |
DIAGNOSTICS_SET_CALC |
dyLoc = yG(i,j,bi,bj)-yPsi0 |
|
./pkg/diagnostics/diagnostics_set_calc.F |
118 |
DIAGNOSTICS_SET_CALC |
IF ( d2Loc.EQ.d2Min .AND. kPsi(i,j,bi,bj) ) THEN |
|
./pkg/diagnostics/diagnostics_set_calc.F |
122 |
DIAGNOSTICS_SET_CALC |
xyLoc = xy0 + i + (j-1)*xLine |
|
./pkg/diagnostics/diagnostics_set_calc.F |
128 |
DIAGNOSTICS_SET_CALC |
iPsi0(bi,bj) = i |
|
./pkg/diagnostics/diagnostics_set_calc.F |
39 |
DIAGNOSTICS_SET_CALC |
INTEGER i, j |
|
./pkg/diagnostics/diagnostics_set_calc.F |
63 |
DIAGNOSTICS_SET_CALC |
DO i = 1,sNx+1 |
|
./pkg/diagnostics/diagnostics_set_calc.F |
64 |
DIAGNOSTICS_SET_CALC |
kPsi(i,j,bi,bj) = .TRUE. |
|
./pkg/diagnostics/diagnostics_set_calc.F |
69 |
DIAGNOSTICS_SET_CALC |
DO i = 1,sNx+1 |
|
./pkg/diagnostics/diagnostics_set_calc.F |
70 |
DIAGNOSTICS_SET_CALC |
kPsi(i,j,bi,bj) = OBCS_insideMask( i , j ,bi,bj).EQ.oneRS |
|
./pkg/diagnostics/diagnostics_set_calc.F |
71 |
DIAGNOSTICS_SET_CALC |
& .OR. OBCS_insideMask(i-1, j ,bi,bj).EQ.oneRS |
|
./pkg/diagnostics/diagnostics_set_calc.F |
72 |
DIAGNOSTICS_SET_CALC |
& .OR. OBCS_insideMask( i ,j-1,bi,bj).EQ.oneRS |
|
./pkg/diagnostics/diagnostics_set_calc.F |
73 |
DIAGNOSTICS_SET_CALC |
& .OR. OBCS_insideMask(i-1,j-1,bi,bj).EQ.oneRS |
|
./pkg/diagnostics/diagnostics_set_calc.F |
85 |
DIAGNOSTICS_SET_CALC |
DO i = 1,sNx+1 |
|
./pkg/diagnostics/diagnostics_set_calc.F |
86 |
DIAGNOSTICS_SET_CALC |
dxLoc = xG(i,j,bi,bj)-xPsi0 |
|
./pkg/diagnostics/diagnostics_set_calc.F |
87 |
DIAGNOSTICS_SET_CALC |
dyLoc = yG(i,j,bi,bj)-yPsi0 |
|
./pkg/diagnostics/diagnostics_set_calc.F |
91 |
DIAGNOSTICS_SET_CALC |
& .AND. kPsi(i,j,bi,bj) ) d2Min = d2Loc |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
109 |
DIAGNOSTICS_SET_POINTERS |
WRITE(msgBuf,'(21A)') ' Fields: ',(' ',flds(i,ld),i=md,j) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
203 |
DIAGNOSTICS_SET_POINTERS |
DO i=1,nActive(j) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
204 |
DIAGNOSTICS_SET_POINTERS |
IF ( mdiag(md,ld).EQ.0 .AND. (k*jdiag(i,j)).EQ.mate ) THEN |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
209 |
DIAGNOSTICS_SET_POINTERS |
& mdiag(md,ld) = ABS(idiag(i,j)) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
38 |
DIAGNOSTICS_SET_POINTERS |
INTEGER i, j, k, k1, k2, kLev |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
55 |
DIAGNOSTICS_SET_POINTERS |
DO i=1,ndiagt |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
56 |
DIAGNOSTICS_SET_POINTERS |
IF ( nd.EQ.0 .AND. flds(md,ld).EQ.cdiag(i) ) nd = i |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
64 |
DIAGNOSTICS_SET_POINTERS |
DO i=1,nfields(ld) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
65 |
DIAGNOSTICS_SET_POINTERS |
IF ( j.EQ.0 .AND. flds(i,ld).EQ.cdiag(mate) ) j = i |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
85 |
DIAGNOSTICS_SET_POINTERS |
DO i=j,md-2 |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
86 |
DIAGNOSTICS_SET_POINTERS |
flds(i,ld) = flds(i+1,ld) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
95 |
DIAGNOSTICS_SET_POINTERS |
DO i=j,md+1,-1 |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
96 |
DIAGNOSTICS_SET_POINTERS |
flds(i,ld) = flds(i-1,ld) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
112 |
DIAGNOSTICS_SUM_LEVELS |
DO i = 1-OLx,sNx+OLx |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
113 |
DIAGNOSTICS_SUM_LEVELS |
tmpFld(i,j) = tmpFld(i,j) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
114 |
DIAGNOSTICS_SUM_LEVELS |
& + tmpFac*fld3d(i,j,kLev,bi,bj) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
119 |
DIAGNOSTICS_SUM_LEVELS |
DO i = 1-OLx,sNx+OLx |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
120 |
DIAGNOSTICS_SUM_LEVELS |
fld3d(i,j,1,bi,bj) = tmpFld(i,j) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
136 |
DIAGNOSTICS_SUM_LEVELS |
DO i = 1-OLx,sNx+OLx |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
137 |
DIAGNOSTICS_SUM_LEVELS |
tmpFld(i,j) = tmpFld(i,j) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
138 |
DIAGNOSTICS_SUM_LEVELS |
& + tmpFac*fld3d(i,j,kLev,bi,bj) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
139 |
DIAGNOSTICS_SUM_LEVELS |
& *hFacC(i,j,kLev,bi,bj) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
152 |
DIAGNOSTICS_SUM_LEVELS |
DO i = 1-OLx,sNx+OLx |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
153 |
DIAGNOSTICS_SUM_LEVELS |
tmpFld(i,j) = tmpFld(i,j) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
154 |
DIAGNOSTICS_SUM_LEVELS |
& + tmpFac*fld3d(i,j,kLev,bi,bj) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
155 |
DIAGNOSTICS_SUM_LEVELS |
& *hFacW(i,j,kLev,bi,bj) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
168 |
DIAGNOSTICS_SUM_LEVELS |
DO i = 1-OLx,sNx+OLx |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
169 |
DIAGNOSTICS_SUM_LEVELS |
tmpFld(i,j) = tmpFld(i,j) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
170 |
DIAGNOSTICS_SUM_LEVELS |
& + tmpFac*fld3d(i,j,kLev,bi,bj) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
171 |
DIAGNOSTICS_SUM_LEVELS |
& *hFacS(i,j,kLev,bi,bj) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
184 |
DIAGNOSTICS_SUM_LEVELS |
DO i = 2-OLx,sNx+OLx |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
186 |
DIAGNOSTICS_SUM_LEVELS |
& hFacW( i, j, kLev,bi,bj), |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
187 |
DIAGNOSTICS_SUM_LEVELS |
& hFacW( i,j-1,kLev,bi,bj), |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
188 |
DIAGNOSTICS_SUM_LEVELS |
& hFacS( i, j, kLev,bi,bj), |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
189 |
DIAGNOSTICS_SUM_LEVELS |
& hFacS(i-1,j, kLev,bi,bj) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
191 |
DIAGNOSTICS_SUM_LEVELS |
tmpFld(i,j) = tmpFld(i,j) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
192 |
DIAGNOSTICS_SUM_LEVELS |
& + tmpFac*fld3d(i,j,kLev,bi,bj) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
201 |
DIAGNOSTICS_SUM_LEVELS |
DO i = 1-OLx,sNx+OLx |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
202 |
DIAGNOSTICS_SUM_LEVELS |
fld3d(i,j,1,bi,bj) = tmpFld(i,j) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
57 |
DIAGNOSTICS_SUM_LEVELS |
INTEGER i, j, k |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
78 |
DIAGNOSTICS_SUM_LEVELS |
DO i = 1-OLx,sNx+OLx |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
79 |
DIAGNOSTICS_SUM_LEVELS |
tmpFld(i,j) = 0. _d 0 |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
89 |
DIAGNOSTICS_SUM_LEVELS |
DO i = 1-OLx,sNx+OLx |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
90 |
DIAGNOSTICS_SUM_LEVELS |
tmpFld(i,j) = tmpFld(i,j) + fld3d(i,j,kLev,bi,bj) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
95 |
DIAGNOSTICS_SUM_LEVELS |
DO i = 1-OLx,sNx+OLx |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
96 |
DIAGNOSTICS_SUM_LEVELS |
fld3d(i,j,1,bi,bj) = tmpFld(i,j) |
|
./pkg/diagnostics/diagnostics_utils.F |
138 |
DIAGNOSTICS_GET_DIAG |
INTEGER i, j, ipnt, ipCt |
|
./pkg/diagnostics/diagnostics_utils.F |
162 |
DIAGNOSTICS_GET_DIAG |
DO i = 1,sNx+1 |
|
./pkg/diagnostics/diagnostics_utils.F |
163 |
DIAGNOSTICS_GET_DIAG |
IF ( qdiag(i,j,ipnt,bi,bj) .LE. undefRL ) THEN |
|
./pkg/diagnostics/diagnostics_utils.F |
164 |
DIAGNOSTICS_GET_DIAG |
qtmp(i,j,k) = qdiag(i,j,ipnt,bi,bj)*factor |
|
./pkg/diagnostics/diagnostics_utils.F |
166 |
DIAGNOSTICS_GET_DIAG |
qtmp(i,j,k) = undefRL |
|
./pkg/diagnostics/diagnostics_utils.F |
172 |
DIAGNOSTICS_GET_DIAG |
DO i = 1,sNx+1 |
|
./pkg/diagnostics/diagnostics_utils.F |
173 |
DIAGNOSTICS_GET_DIAG |
qtmp(i,j,k) = qdiag(i,j,ipnt,bi,bj)*factor |
|
./pkg/diagnostics/diagnostics_utils.F |
185 |
DIAGNOSTICS_GET_DIAG |
DO i = 1,sNx+1 |
|
./pkg/diagnostics/diagnostics_utils.F |
186 |
DIAGNOSTICS_GET_DIAG |
IF ( qdiag(i,j,ipCt,bi,bj) .NE. 0. ) THEN |
|
./pkg/diagnostics/diagnostics_utils.F |
187 |
DIAGNOSTICS_GET_DIAG |
qtmp(i,j,k) = qdiag(i,j,ipnt,bi,bj) |
|
./pkg/diagnostics/diagnostics_utils.F |
188 |
DIAGNOSTICS_GET_DIAG |
& / qdiag(i,j,ipCt,bi,bj) |
|
./pkg/diagnostics/diagnostics_utils.F |
190 |
DIAGNOSTICS_GET_DIAG |
qtmp(i,j,k) = undefRL |
|
./pkg/diagnostics/diagnostics_utils.F |
493 |
DIAGNOSTICS_SETKLEV |
INTEGER i,j,n,nbc |
|
./pkg/diagnostics/diagnostics_utils.F |
499 |
DIAGNOSTICS_SETKLEV |
DO i=1,n |
|
./pkg/diagnostics/diagnostics_utils.F |
500 |
DIAGNOSTICS_SETKLEV |
IF (diagUnitsInPieces(i:i) .NE. ' ' ) THEN |
|
./pkg/diagnostics/diagnostics_utils.F |
502 |
DIAGNOSTICS_SETKLEV |
IF ( j.LE.16 ) DIAGS_MK_UNITS(j:j) = diagUnitsInPieces(i:i) |
|
./pkg/diagnostics/diagnostics_utils.F |
511 |
DIAGNOSTICS_SETKLEV |
DO i=1,n |
|
./pkg/diagnostics/diagnostics_utils.F |
512 |
DIAGNOSTICS_SETKLEV |
IF ( diagUnitsInPieces(i:i) .NE. ' ' ) THEN |
|
./pkg/diagnostics/diagnostics_utils.F |
514 |
DIAGNOSTICS_SETKLEV |
& diagUnitsInPieces(i:i).EQ.'^' ) THEN |
|
./pkg/diagnostics/diagnostics_utils.F |
515 |
DIAGNOSTICS_SETKLEV |
IF ( diagUnitsInPieces(i-1:i-1).EQ.'m' ) THEN |
|
./pkg/diagnostics/diagnostics_utils.F |
519 |
DIAGNOSTICS_SETKLEV |
IF ( j.LE.16 ) DIAGS_MK_UNITS(j:j) = diagUnitsInPieces(i:i) |
|
./pkg/diagnostics/diagnostics_utils.F |
523 |
DIAGNOSTICS_SETKLEV |
IF ( j.LE.16 ) DIAGS_MK_UNITS(j:j) = diagUnitsInPieces(i:i) |
|
./pkg/diagnostics/diagnostics_utils.F |
574 |
DIAGNOSTICS_SETKLEV |
INTEGER i,j,n |
|
./pkg/diagnostics/diagnostics_utils.F |
584 |
DIAGNOSTICS_SETKLEV |
DO i=1,n |
|
./pkg/diagnostics/diagnostics_utils.F |
585 |
DIAGNOSTICS_SETKLEV |
IF (diagTitleInPieces(i:i) .NE. ' ' ) THEN |
|
./pkg/diagnostics/diagnostics_utils.F |
591 |
DIAGNOSTICS_SETKLEV |
IF ( j.LE.80 ) DIAGS_MK_TITLE(j:j) = diagTitleInPieces(i:i) |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
57 |
DIAGNOSTICS_WRITE_PICKUP |
INTEGER i, ii |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
76 |
DIAGNOSTICS_WRITE_PICKUP |
DO i = 1,NLEN |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
77 |
DIAGNOSTICS_WRITE_PICKUP |
dn_blnk(i:i) = ' ' |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
79 |
DIAGNOSTICS_WRITE_PICKUP |
DO i = 1,MAX_LEN_FNAM |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
80 |
DIAGNOSTICS_WRITE_PICKUP |
diag_mnc_bn(i:i) = ' ' |
|
./pkg/diagnostics/diagstats_ascii_out.F |
42 |
DIAGSTATS_ASCII_OUT |
INTEGER i, j, k, kLev, nUnit |
|
./pkg/diagnostics/diagstats_ascii_out.F |
78 |
DIAGSTATS_ASCII_OUT |
& k, (statGlob(i,k,j),i=1,nStats), statGlob(0,k,j) |
|
./pkg/diagnostics/diagstats_calc.F |
103 |
DIAGSTATS_CALC |
DO i = 1,iRun |
|
./pkg/diagnostics/diagstats_calc.F |
104 |
DIAGSTATS_CALC |
tmpFld(i,j) = scaleFact*inpArr(i,j) |
|
./pkg/diagnostics/diagstats_calc.F |
105 |
DIAGSTATS_CALC |
tmpFld(i,j) = tmpFld(i,j)*tmpFld(i,j) |
|
./pkg/diagnostics/diagstats_calc.F |
110 |
DIAGSTATS_CALC |
DO i = 1,iRun |
|
./pkg/diagnostics/diagstats_calc.F |
111 |
DIAGSTATS_CALC |
tmpFld(i,j) = scaleFact*inpArr(i,j) |
|
./pkg/diagnostics/diagstats_calc.F |
120 |
DIAGSTATS_CALC |
DO i = 1,iRun |
|
./pkg/diagnostics/diagstats_calc.F |
121 |
DIAGSTATS_CALC |
inside(i,j) = arrMask(i,j).NE.0. |
|
./pkg/diagnostics/diagstats_calc.F |
122 |
DIAGSTATS_CALC |
& .AND. arrhFac(i,j).NE.0. |
|
./pkg/diagnostics/diagstats_calc.F |
123 |
DIAGSTATS_CALC |
& .AND. frcArr(i,j) .NE.0. |
|
./pkg/diagnostics/diagstats_calc.F |
124 |
DIAGSTATS_CALC |
tmpVol(i,j) = arrArea(i,j)*arrhFac(i,j)*frcArr(i,j) |
|
./pkg/diagnostics/diagstats_calc.F |
129 |
DIAGSTATS_CALC |
DO i = 1,iRun |
|
./pkg/diagnostics/diagstats_calc.F |
130 |
DIAGSTATS_CALC |
inside(i,j) = arrMask(i,j).NE.0. |
|
./pkg/diagnostics/diagstats_calc.F |
131 |
DIAGSTATS_CALC |
& .AND. arrhFac(i,j).NE.0. |
|
./pkg/diagnostics/diagstats_calc.F |
132 |
DIAGSTATS_CALC |
& .AND. frcArr(i,j) .NE.0. |
|
./pkg/diagnostics/diagstats_calc.F |
133 |
DIAGSTATS_CALC |
tmpVol(i,j) = arrArea(i,j)*frcArr(i,j) |
|
./pkg/diagnostics/diagstats_calc.F |
138 |
DIAGSTATS_CALC |
DO i = 1,iRun |
|
./pkg/diagnostics/diagstats_calc.F |
139 |
DIAGSTATS_CALC |
inside(i,j) = arrMask(i,j).NE.0. |
|
./pkg/diagnostics/diagstats_calc.F |
140 |
DIAGSTATS_CALC |
& .AND. arrhFac(i,j).NE.0. |
|
./pkg/diagnostics/diagstats_calc.F |
141 |
DIAGSTATS_CALC |
tmpVol(i,j) = arrArea(i,j)*arrhFac(i,j) |
|
./pkg/diagnostics/diagstats_calc.F |
146 |
DIAGSTATS_CALC |
DO i = 1,iRun |
|
./pkg/diagnostics/diagstats_calc.F |
147 |
DIAGSTATS_CALC |
inside(i,j) = arrMask(i,j).NE.0. |
|
./pkg/diagnostics/diagstats_calc.F |
148 |
DIAGSTATS_CALC |
& .AND. arrhFac(i,j).NE.0. |
|
./pkg/diagnostics/diagstats_calc.F |
149 |
DIAGSTATS_CALC |
tmpVol(i,j) = arrArea(i,j) |
|
./pkg/diagnostics/diagstats_calc.F |
157 |
DIAGSTATS_CALC |
DO i = 1,iRun |
|
./pkg/diagnostics/diagstats_calc.F |
158 |
DIAGSTATS_CALC |
inside(i,j) = inside(i,j) .AND. inpArr(i,j).NE.specialVal |
|
./pkg/diagnostics/diagstats_calc.F |
165 |
DIAGSTATS_CALC |
DO i = 1,iRun |
|
./pkg/diagnostics/diagstats_calc.F |
166 |
DIAGSTATS_CALC |
inside(i,j) = inside(i,j) .AND. regMask(i,j).EQ.regMskVal |
|
./pkg/diagnostics/diagstats_calc.F |
171 |
DIAGSTATS_CALC |
DO i = 1,iRun |
|
./pkg/diagnostics/diagstats_calc.F |
172 |
DIAGSTATS_CALC |
inside(i,j) = inside(i,j) .AND.( regMask(i,j).EQ.regMskVal |
|
./pkg/diagnostics/diagstats_calc.F |
173 |
DIAGSTATS_CALC |
& .OR. regMask(i-1,j).EQ.regMskVal ) |
|
./pkg/diagnostics/diagstats_calc.F |
178 |
DIAGSTATS_CALC |
DO i = 1,iRun |
|
./pkg/diagnostics/diagstats_calc.F |
179 |
DIAGSTATS_CALC |
inside(i,j) = inside(i,j) .AND.( regMask(i,j).EQ.regMskVal |
|
./pkg/diagnostics/diagstats_calc.F |
180 |
DIAGSTATS_CALC |
& .OR. regMask(i,j-1).EQ.regMskVal ) |
|
./pkg/diagnostics/diagstats_calc.F |
187 |
DIAGSTATS_CALC |
DO i = 1,iRun |
|
./pkg/diagnostics/diagstats_calc.F |
188 |
DIAGSTATS_CALC |
IF ( inside(i,j) ) THEN |
|
./pkg/diagnostics/diagstats_calc.F |
189 |
DIAGSTATS_CALC |
statArr(im) = tmpFld(i,j) |
|
./pkg/diagnostics/diagstats_calc.F |
190 |
DIAGSTATS_CALC |
statArr(0) = statArr(0) + tmpVol(i,j) |
|
./pkg/diagnostics/diagstats_calc.F |
191 |
DIAGSTATS_CALC |
statArr(1) = statArr(1) + tmpVol(i,j)*tmpFld(i,j) |
|
./pkg/diagnostics/diagstats_calc.F |
192 |
DIAGSTATS_CALC |
statArr(2) = statArr(2) + tmpVol(i,j)*tmpFld(i,j)*tmpFld(i,j) |
|
./pkg/diagnostics/diagstats_calc.F |
198 |
DIAGSTATS_CALC |
DO i = 1,iRun |
|
./pkg/diagnostics/diagstats_calc.F |
199 |
DIAGSTATS_CALC |
IF ( inside(i,j) ) THEN |
|
./pkg/diagnostics/diagstats_calc.F |
200 |
DIAGSTATS_CALC |
statArr(im) = MIN(tmpFld(i,j),statArr(im)) |
|
./pkg/diagnostics/diagstats_calc.F |
201 |
DIAGSTATS_CALC |
statArr(ix) = MAX(tmpFld(i,j),statArr(ix)) |
|
./pkg/diagnostics/diagstats_calc.F |
216 |
DIAGSTATS_CALC |
DO i = 1,iRun |
|
./pkg/diagnostics/diagstats_calc.F |
217 |
DIAGSTATS_CALC |
IF ( arrMask(i,j).NE.0. .AND. frcArr(i,j).NE.0. |
|
./pkg/diagnostics/diagstats_calc.F |
218 |
DIAGSTATS_CALC |
& .AND. arrhFac(i,j).NE.0. |
|
./pkg/diagnostics/diagstats_calc.F |
219 |
DIAGSTATS_CALC |
& .AND. inpArr(i,j).NE.specialVal ) |
|
./pkg/diagnostics/diagstats_calc.F |
220 |
DIAGSTATS_CALC |
& arrMaskL(i,j) = 1. _d 0 |
|
./pkg/diagnostics/diagstats_calc.F |
232 |
DIAGSTATS_CALC |
DO i = 1,iRun |
|
./pkg/diagnostics/diagstats_calc.F |
233 |
DIAGSTATS_CALC |
IF ( arrMask(i,j).NE.0. .AND. frcArr(i,j).NE.0. |
|
./pkg/diagnostics/diagstats_calc.F |
234 |
DIAGSTATS_CALC |
& .AND. arrhFac(i,j).NE.0. ) |
|
./pkg/diagnostics/diagstats_calc.F |
235 |
DIAGSTATS_CALC |
& arrMaskL(i,j) = 1. _d 0 |
|
./pkg/diagnostics/diagstats_calc.F |
247 |
DIAGSTATS_CALC |
DO i = 1,iRun |
|
./pkg/diagnostics/diagstats_calc.F |
248 |
DIAGSTATS_CALC |
IF ( arrMask(i,j).NE.0. |
|
./pkg/diagnostics/diagstats_calc.F |
249 |
DIAGSTATS_CALC |
& .AND. arrhFac(i,j).NE.0. |
|
./pkg/diagnostics/diagstats_calc.F |
250 |
DIAGSTATS_CALC |
& .AND. inpArr(i,j).NE.specialVal ) |
|
./pkg/diagnostics/diagstats_calc.F |
251 |
DIAGSTATS_CALC |
& arrMaskL(i,j) = 1. _d 0 |
|
./pkg/diagnostics/diagstats_calc.F |
263 |
DIAGSTATS_CALC |
DO i = 1,iRun |
|
./pkg/diagnostics/diagstats_calc.F |
264 |
DIAGSTATS_CALC |
IF ( arrMask(i,j).NE.0. |
|
./pkg/diagnostics/diagstats_calc.F |
265 |
DIAGSTATS_CALC |
& .AND. arrhFac(i,j).NE.0. ) |
|
./pkg/diagnostics/diagstats_calc.F |
266 |
DIAGSTATS_CALC |
& arrMaskL(i,j) = 1. _d 0 |
|
./pkg/diagnostics/diagstats_calc.F |
280 |
DIAGSTATS_CALC |
DO i = 1,iRun |
|
./pkg/diagnostics/diagstats_calc.F |
281 |
DIAGSTATS_CALC |
IF ( regMask(i,j).NE.regMskVal ) arrMaskL(i,j) = 0. _d 0 |
|
./pkg/diagnostics/diagstats_calc.F |
286 |
DIAGSTATS_CALC |
DO i = 1,iRun |
|
./pkg/diagnostics/diagstats_calc.F |
287 |
DIAGSTATS_CALC |
IF ( regMask(i,j).NE.regMskVal .AND. |
|
./pkg/diagnostics/diagstats_calc.F |
288 |
DIAGSTATS_CALC |
& regMask(i-1,j).NE.regMskVal ) arrMaskL(i,j) = 0. _d 0 |
|
./pkg/diagnostics/diagstats_calc.F |
293 |
DIAGSTATS_CALC |
DO i = 1,iRun |
|
./pkg/diagnostics/diagstats_calc.F |
294 |
DIAGSTATS_CALC |
IF ( regMask(i,j).NE.regMskVal .AND. |
|
./pkg/diagnostics/diagstats_calc.F |
295 |
DIAGSTATS_CALC |
& regMask(i,j-1).NE.regMskVal ) arrMaskL(i,j) = 0. _d 0 |
|
./pkg/diagnostics/diagstats_calc.F |
304 |
DIAGSTATS_CALC |
DO i = 1,iRun |
|
./pkg/diagnostics/diagstats_calc.F |
305 |
DIAGSTATS_CALC |
tmpFld(i,j) = inpArr(i,j)*scaleFact |
|
./pkg/diagnostics/diagstats_calc.F |
77 |
DIAGSTATS_CALC |
INTEGER i, j, n |
|
./pkg/diagnostics/diagstats_clear.F |
70 |
DIAGSTATS_CLRDIAG |
INTEGER i,j,k |
|
./pkg/diagnostics/diagstats_clear.F |
80 |
DIAGSTATS_CLRDIAG |
DO i = 0,nStats |
|
./pkg/diagnostics/diagstats_clear.F |
81 |
DIAGSTATS_CLRDIAG |
qSdiag(i,j,k,bi,bj) = 0. |
|
./pkg/diagnostics/diagstats_fill.F |
370 |
DIAGSTATS_TO_RL |
INTEGER i, j, kFr |
|
./pkg/diagnostics/diagstats_fill.F |
374 |
DIAGSTATS_TO_RL |
DO i=1,iRun |
|
./pkg/diagnostics/diagstats_fill.F |
375 |
DIAGSTATS_TO_RL |
outFldRL(i,j) = inpFldRL(i,j,kIn,biIn,bjIn) |
|
./pkg/diagnostics/diagstats_fill.F |
380 |
DIAGSTATS_TO_RL |
DO i=1,iRun |
|
./pkg/diagnostics/diagstats_fill.F |
381 |
DIAGSTATS_TO_RL |
outFldRL(i,j) = inpFldRS(i,j,kIn,biIn,bjIn) |
|
./pkg/diagnostics/diagstats_fill.F |
390 |
DIAGSTATS_TO_RL |
DO i=1,iRun |
|
./pkg/diagnostics/diagstats_fill.F |
391 |
DIAGSTATS_TO_RL |
outFrcRL(i,j) = inpFrcRL(i,j,kFr,biIn,bjIn) |
|
./pkg/diagnostics/diagstats_fill.F |
396 |
DIAGSTATS_TO_RL |
DO i=1,iRun |
|
./pkg/diagnostics/diagstats_fill.F |
397 |
DIAGSTATS_TO_RL |
outFrcRL(i,j) = inpFrcRS(i,j,kFr,biIn,bjIn) |
|
./pkg/diagnostics/diagstats_global.F |
113 |
DIAGSTATS_GLOBAL |
DO i=0,iv |
|
./pkg/diagnostics/diagstats_global.F |
114 |
DIAGSTATS_GLOBAL |
_GLOBAL_SUM_RL(qtmp1(i,k),myThid) |
|
./pkg/diagnostics/diagstats_global.F |
131 |
DIAGSTATS_GLOBAL |
DO i=0,1 |
|
./pkg/diagnostics/diagstats_global.F |
132 |
DIAGSTATS_GLOBAL |
_GLOBAL_SUM_RL(qtmp2(i,k),myThid) |
|
./pkg/diagnostics/diagstats_global.F |
141 |
DIAGSTATS_GLOBAL |
DO i=0,nStats |
|
./pkg/diagnostics/diagstats_global.F |
142 |
DIAGSTATS_GLOBAL |
qtmp1(i,0) = qtmp1(i,k) |
|
./pkg/diagnostics/diagstats_global.F |
145 |
DIAGSTATS_GLOBAL |
DO i=0,iv |
|
./pkg/diagnostics/diagstats_global.F |
146 |
DIAGSTATS_GLOBAL |
qtmp1(i,0) = qtmp1(i,0) + qtmp1(i,k) |
|
./pkg/diagnostics/diagstats_global.F |
157 |
DIAGSTATS_GLOBAL |
DO i=0,1 |
|
./pkg/diagnostics/diagstats_global.F |
158 |
DIAGSTATS_GLOBAL |
qtmp2(i,0) = qtmp2(i,k) |
|
./pkg/diagnostics/diagstats_global.F |
161 |
DIAGSTATS_GLOBAL |
DO i=0,1 |
|
./pkg/diagnostics/diagstats_global.F |
162 |
DIAGSTATS_GLOBAL |
qtmp2(i,0) = qtmp2(i,0) + qtmp2(i,k) |
|
./pkg/diagnostics/diagstats_global.F |
174 |
DIAGSTATS_GLOBAL |
DO i=1,nStats |
|
./pkg/diagnostics/diagstats_global.F |
175 |
DIAGSTATS_GLOBAL |
qtmp1(i,k) = undef |
|
./pkg/diagnostics/diagstats_global.F |
178 |
DIAGSTATS_GLOBAL |
DO i=1,iv |
|
./pkg/diagnostics/diagstats_global.F |
179 |
DIAGSTATS_GLOBAL |
qtmp1(i,k) = qtmp1(i,k) / qtmp1(0,k) |
|
./pkg/diagnostics/diagstats_global.F |
194 |
DIAGSTATS_GLOBAL |
DO i=1,nStats |
|
./pkg/diagnostics/diagstats_global.F |
195 |
DIAGSTATS_GLOBAL |
qtmp1(i,k) = undef |
|
./pkg/diagnostics/diagstats_global.F |
198 |
DIAGSTATS_GLOBAL |
DO i=1,iv |
|
./pkg/diagnostics/diagstats_global.F |
199 |
DIAGSTATS_GLOBAL |
qtmp1(i,k) = undef |
|
./pkg/diagnostics/diagstats_global.F |
202 |
DIAGSTATS_GLOBAL |
DO i=1,iv |
|
./pkg/diagnostics/diagstats_global.F |
203 |
DIAGSTATS_GLOBAL |
qtmp1(i,k) = qtmp1(i,k) / qtmp2(1,kCnt) |
|
./pkg/diagnostics/diagstats_global.F |
50 |
DIAGSTATS_GLOBAL |
INTEGER i, k, kd, kCnt, klev, kMlev |
|
./pkg/diagnostics/diagstats_global.F |
57 |
DIAGSTATS_GLOBAL |
DO i=0,nStats |
|
./pkg/diagnostics/diagstats_global.F |
58 |
DIAGSTATS_GLOBAL |
qtmp1(i,k) = 0. |
|
./pkg/diagnostics/diagstats_global.F |
59 |
DIAGSTATS_GLOBAL |
qtmp2(i,k) = 0. |
|
./pkg/diagnostics/diagstats_global.F |
77 |
DIAGSTATS_GLOBAL |
DO i=0,nStats |
|
./pkg/diagnostics/diagstats_global.F |
78 |
DIAGSTATS_GLOBAL |
qtmp1(i,k) = qSdiag(i,jReg,kd,bi,bj) |
|
./pkg/diagnostics/diagstats_global.F |
81 |
DIAGSTATS_GLOBAL |
DO i=0,iv |
|
./pkg/diagnostics/diagstats_global.F |
82 |
DIAGSTATS_GLOBAL |
qtmp1(i,k) = qtmp1(i,k) + qSdiag(i,jReg,kd,bi,bj) |
|
./pkg/diagnostics/diagstats_global.F |
94 |
DIAGSTATS_GLOBAL |
DO i=0,1 |
|
./pkg/diagnostics/diagstats_global.F |
95 |
DIAGSTATS_GLOBAL |
qtmp2(i,k) = qSdiag(i,jReg,kd,bi,bj) |
|
./pkg/diagnostics/diagstats_global.F |
98 |
DIAGSTATS_GLOBAL |
DO i=0,1 |
|
./pkg/diagnostics/diagstats_global.F |
99 |
DIAGSTATS_GLOBAL |
qtmp2(i,k) = qtmp2(i,k) + qSdiag(i,jReg,kd,bi,bj) |
|
./pkg/diagnostics/diagstats_local.F |
241 |
DIAGSTATS_LOCAL |
DO i=0,iv |
|
./pkg/diagnostics/diagstats_local.F |
242 |
DIAGSTATS_LOCAL |
statFld(i,n) = statFld(i,n) + statLoc(i) |
|
./pkg/diagnostics/diagstats_local.F |
245 |
DIAGSTATS_LOCAL |
DO i=1,iv |
|
./pkg/diagnostics/diagstats_local.F |
246 |
DIAGSTATS_LOCAL |
statFld(i,n) = statFld(i,n) + statLoc(i) |
|
./pkg/diagnostics/diagstats_local.F |
86 |
DIAGSTATS_LOCAL |
INTEGER i, n, kFr, kRegMsk, lReg |
|
./pkg/diagnostics/diagstats_mnc_out.F |
143 |
DIAGSTATS_MNC_OUT |
DO i = 1,3 |
|
./pkg/diagnostics/diagstats_mnc_out.F |
145 |
DIAGSTATS_MNC_OUT |
WRITE(dn(1),'(3a,i6.6)') 'Z',ctmp(i:i),'d',nlevels(listId) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
157 |
DIAGSTATS_MNC_OUT |
IF (i .EQ. 1) THEN |
|
./pkg/diagnostics/diagstats_mnc_out.F |
164 |
DIAGSTATS_MNC_OUT |
ELSEIF (i .EQ. 2) THEN |
|
./pkg/diagnostics/diagstats_mnc_out.F |
171 |
DIAGSTATS_MNC_OUT |
ELSEIF (i .EQ. 3) THEN |
|
./pkg/diagnostics/diagstats_mnc_out.F |
240 |
DIAGSTATS_MNC_OUT |
DO i = 1,MAX_LEN_FNAM |
|
./pkg/diagnostics/diagstats_mnc_out.F |
241 |
DIAGSTATS_MNC_OUT |
tnam(i:i) = ' ' |
|
./pkg/diagnostics/diagstats_mnc_out.F |
55 |
DIAGSTATS_MNC_OUT |
INTEGER i, j, k |
|
./pkg/diagnostics/diagstats_mnc_out.F |
95 |
DIAGSTATS_MNC_OUT |
DO i = 1,MAX_LEN_FNAM |
|
./pkg/diagnostics/diagstats_mnc_out.F |
96 |
DIAGSTATS_MNC_OUT |
diag_mnc_bn(i:i) = ' ' |
|
./pkg/diagnostics/diagstats_mnc_out.F |
98 |
DIAGSTATS_MNC_OUT |
DO i = 1,NLEN |
|
./pkg/diagnostics/diagstats_mnc_out.F |
99 |
DIAGSTATS_MNC_OUT |
dn_blnk(i:i) = ' ' |
|
./pkg/diagnostics/diagstats_others_calc.F |
113 |
DIAGSTATS_LM_CALC |
DO i=1-OLx,sNx+OLx |
|
./pkg/diagnostics/diagstats_others_calc.F |
114 |
DIAGSTATS_LM_CALC |
tmp_hFac(i,j) = dpphys(i,j,kl,bi,bj) |
|
./pkg/diagnostics/diagstats_others_calc.F |
86 |
DIAGSTATS_LM_CALC |
INTEGER i,j |
|
./pkg/diagnostics/diagstats_set_regions.F |
107 |
DIAGSTATS_SET_REGIONS |
DO i=1-Olx,sNx+Olx |
|
./pkg/diagnostics/diagstats_set_regions.F |
108 |
DIAGSTATS_SET_REGIONS |
diagSt_regMask(i,j,k,bi,bj) = tmpVar(i,j,bi,bj) |
|
./pkg/diagnostics/diagstats_set_regions.F |
197 |
DIAGSTATS_SET_REGIONS |
DO i=1-Olx,1-Olx |
|
./pkg/diagnostics/diagstats_set_regions.F |
198 |
DIAGSTATS_SET_REGIONS |
diagSt_regMask(i,j,1,bi,bj) = 0. |
|
./pkg/diagnostics/diagstats_set_regions.F |
38 |
DIAGSTATS_SET_REGIONS |
INTEGER i, j |
|
./pkg/diagnostics/diagstats_set_regions.F |
59 |
DIAGSTATS_SET_REGIONS |
DO i=1-Olx,sNx+Olx |
|
./pkg/diagnostics/diagstats_set_regions.F |
60 |
DIAGSTATS_SET_REGIONS |
diagSt_regMask(i,j,k,bi,bj) = 0. |
|
./pkg/dic/alk_surfforcing.F |
49 |
ALK_SURFFORCING |
INTEGER i,j |
|
./pkg/dic/alk_surfforcing.F |
53 |
ALK_SURFFORCING |
DO i=imin,imax |
|
./pkg/dic/alk_surfforcing.F |
54 |
ALK_SURFFORCING |
IF (maskC(i,j,1,bi,bj).NE.0. _d 0) THEN |
|
./pkg/dic/alk_surfforcing.F |
61 |
ALK_SURFFORCING |
GALK(i,j)=gsm_ALK*surfaceForcingS(i,j,bi,bj)* |
|
./pkg/dic/alk_surfforcing.F |
68 |
ALK_SURFFORCING |
GALK(i,j)=0. _d 0 |
|
./pkg/dic/bio_export.F |
102 |
BIO_EXPORT |
DO i=iMin,iMax |
|
./pkg/dic/bio_export.F |
105 |
BIO_EXPORT |
kall = k0+kchl*CHL(i,j,bi,bj) |
|
./pkg/dic/bio_export.F |
107 |
BIO_EXPORT |
atten = kall*drF(k)*hFacC(i,j,k,bi,bj)*.5 _d 0 |
|
./pkg/dic/bio_export.F |
109 |
BIO_EXPORT |
& +( kall*drF(k-1)*hFacC(i,j,k-1,bi,bj)*.5 _d 0 ) |
|
./pkg/dic/bio_export.F |
110 |
BIO_EXPORT |
lit(i,j)=lit(i,j)*exp(-atten) |
|
./pkg/dic/bio_export.F |
114 |
BIO_EXPORT |
IF (lit(i,j).LT.0. _d 0.OR.lit(i,j).GT.350. _d 0) THEN |
|
./pkg/dic/bio_export.F |
115 |
BIO_EXPORT |
print*,'QQ lit',i,j,lit(i,j) |
|
./pkg/dic/bio_export.F |
119 |
BIO_EXPORT |
tmppo4=max(0. _d 0, PTR_PO4(i,j,k)) |
|
./pkg/dic/bio_export.F |
120 |
BIO_EXPORT |
lit(i,j)=max(0. _d 0,lit(i,j)) |
|
./pkg/dic/bio_export.F |
122 |
BIO_EXPORT |
tmppo4=PTR_PO4(i,j,k) |
|
./pkg/dic/bio_export.F |
127 |
BIO_EXPORT |
tmpfe=max(0. _d 0,PTR_FE(i,j,k)) |
|
./pkg/dic/bio_export.F |
129 |
BIO_EXPORT |
tmpfe=PTR_FE(i,j,k) |
|
./pkg/dic/bio_export.F |
148 |
BIO_EXPORT |
bioac(i,j,k)=alpha(i,j,bi,bj)* |
|
./pkg/dic/bio_export.F |
149 |
BIO_EXPORT |
& lit(i,j)/(lit(i,j)+lit0)*maskC(i,j,k,bi,bj)* |
|
./pkg/dic/bio_export.F |
57 |
BIO_EXPORT |
INTEGER i,j,k |
|
./pkg/dic/bio_export.F |
82 |
BIO_EXPORT |
DO i=iMin,iMax |
|
./pkg/dic/bio_export.F |
84 |
BIO_EXPORT |
lit(i,j)=PAR(i,j,bi,bj) |
|
./pkg/dic/bio_export.F |
86 |
BIO_EXPORT |
lit(i,j)=-parfrac*Qsw(i,j,bi,bj)*maskC(i,j,1,bi,bj) |
|
./pkg/dic/bio_export.F |
88 |
BIO_EXPORT |
lit(i,j)=sfac(j) |
|
./pkg/dic/bio_export.F |
93 |
BIO_EXPORT |
lit(i,j)=lit(i,j)*(1. _d 0 - FIce(i,j,bi,bj)) |
|
./pkg/dic/calcite_saturation.F |
109 |
CALCITE_SATURATION |
I theta(i,j,k,bi,bj),salt(i,j,k,bi,bj), |
|
./pkg/dic/calcite_saturation.F |
112 |
CALCITE_SATURATION |
I ak1(i,j,bi,bj),ak2(i,j,bi,bj), |
|
./pkg/dic/calcite_saturation.F |
113 |
CALCITE_SATURATION |
I ak1p(i,j,bi,bj),ak2p(i,j,bi,bj),ak3p(i,j,bi,bj), |
|
./pkg/dic/calcite_saturation.F |
114 |
CALCITE_SATURATION |
I aks(i,j,bi,bj),akb(i,j,bi,bj),akw(i,j,bi,bj), |
|
./pkg/dic/calcite_saturation.F |
115 |
CALCITE_SATURATION |
I aksi(i,j,bi,bj),akf(i,j,bi,bj), |
|
./pkg/dic/calcite_saturation.F |
116 |
CALCITE_SATURATION |
I ak0(i,j,bi,bj), fugf(i,j,bi,bj), ff(i,j,bi,bj), |
|
./pkg/dic/calcite_saturation.F |
117 |
CALCITE_SATURATION |
I bt(i,j,bi,bj),st(i,j,bi,bj),ft(i,j,bi,bj), |
|
./pkg/dic/calcite_saturation.F |
119 |
CALCITE_SATURATION |
I i,j,k,bi,bj,myIter,myThid ) |
|
./pkg/dic/calcite_saturation.F |
128 |
CALCITE_SATURATION |
omegaC(i,j,k,bi,bj) = calcium * carbonate / |
|
./pkg/dic/calcite_saturation.F |
129 |
CALCITE_SATURATION |
& Ksp_TP_Calc(i,j,bi,bj) |
|
./pkg/dic/calcite_saturation.F |
156 |
CALCITE_SATURATION |
omegaC(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/dic/calcite_saturation.F |
82 |
CALCITE_SATURATION |
DO i=imin,imax |
|
./pkg/dic/calcite_saturation.F |
84 |
CALCITE_SATURATION |
if ( hFacC(i,j,k,bi,bj) .gt. 0. _d 0 ) then |
|
./pkg/dic/calcite_saturation.F |
86 |
CALCITE_SATURATION |
calcium = 1.028 _d -2*salt(i,j,k,bi,bj)/35. _d 0 |
|
./pkg/dic/calcite_saturation.F |
90 |
CALCITE_SATURATION |
po4local = PTR_PO4(i,j,k) |
|
./pkg/dic/calcite_saturation.F |
91 |
CALCITE_SATURATION |
diclocal = PTR_DIC(i,j,k) |
|
./pkg/dic/calcite_saturation.F |
92 |
CALCITE_SATURATION |
alklocal = PTR_ALK(i,j,k) |
|
./pkg/dic/car_flux.F |
103 |
CAR_FLUX |
DO i=imin,imax |
|
./pkg/dic/car_flux.F |
104 |
CAR_FLUX |
IF ( caexport(i,j) .NE. 0. _d 0 ) THEN |
|
./pkg/dic/car_flux.F |
107 |
CAR_FLUX |
depth_l = -rF(ko) + drF(ko) * _hFacC(i,j,ko,bi,bj) |
|
./pkg/dic/car_flux.F |
110 |
CAR_FLUX |
flux_l = caexport(i,j)*reminFac |
|
./pkg/dic/car_flux.F |
111 |
CAR_FLUX |
& *maskC(i,j,kop1,bi,bj) |
|
./pkg/dic/car_flux.F |
113 |
CAR_FLUX |
cflux(i,j,ko)=cflux(i,j,ko) + (flux_u(i,j)-flux_l) |
|
./pkg/dic/car_flux.F |
114 |
CAR_FLUX |
& *recip_drF(ko) * _recip_hFacC(i,j,ko,bi,bj) |
|
./pkg/dic/car_flux.F |
116 |
CAR_FLUX |
flux_u(i,j) = flux_l |
|
./pkg/dic/car_flux.F |
128 |
CAR_FLUX |
DO i=imin,imax |
|
./pkg/dic/car_flux.F |
129 |
CAR_FLUX |
cflux(i,j,ko)=cflux(i,j,ko) + (flux_u(i,j)-flux_l) |
|
./pkg/dic/car_flux.F |
130 |
CAR_FLUX |
& *recip_drF(ko) * _recip_hFacC(i,j,ko,bi,bj) |
|
./pkg/dic/car_flux.F |
64 |
CAR_FLUX |
DO i=imin,imax |
|
./pkg/dic/car_flux.F |
65 |
CAR_FLUX |
caexport(i,j) = 0. _d 0 |
|
./pkg/dic/car_flux.F |
66 |
CAR_FLUX |
IF (hFacC(i,j,k,bi,bj).GT.0. _d 0) THEN |
|
./pkg/dic/car_flux.F |
70 |
CAR_FLUX |
cflux(i,j,k)=cflux(i,j,k) + CAR_S(i,j,k) |
|
./pkg/dic/car_flux.F |
71 |
CAR_FLUX |
ELSEIF ( _hFacC(i,j,k+1,bi,bj).EQ.0. _d 0 ) THEN |
|
./pkg/dic/car_flux.F |
72 |
CAR_FLUX |
cflux(i,j,k)=cflux(i,j,k) + CAR_S(i,j,k) |
|
./pkg/dic/car_flux.F |
75 |
CAR_FLUX |
caexport(i,j) = CAR_S(i,j,k)*drF(k) * _hFacC(i,j,k,bi,bj) |
|
./pkg/dic/car_flux.F |
85 |
CAR_FLUX |
DO i=imin,imax |
|
./pkg/dic/car_flux.F |
86 |
CAR_FLUX |
flux_u(i,j) = caexport(i,j) |
|
./pkg/dic/car_flux_omega_top.F |
103 |
CAR_FLUX_OMEGA_TOP |
if (omegaC(i,j,ko,bi,bj) .gt. 1.0) then |
|
./pkg/dic/car_flux_omega_top.F |
107 |
CAR_FLUX_OMEGA_TOP |
if (ko.eq.Nr.or.hFacC(i,j,ko+1,bi,bj).eq.0.d0) then |
|
./pkg/dic/car_flux_omega_top.F |
110 |
CAR_FLUX_OMEGA_TOP |
cflux(i,j,1)=cflux(i,j,1)+ |
|
./pkg/dic/car_flux_omega_top.F |
111 |
CAR_FLUX_OMEGA_TOP |
& ( (flux_l)/(drF(1)*hFacC(i,j,1,bi,bj)) ) |
|
./pkg/dic/car_flux_omega_top.F |
121 |
CAR_FLUX_OMEGA_TOP |
KierRate = 7.177* ((1.0-omegaC(i,j,ko,bi,bj))**4.54) |
|
./pkg/dic/car_flux_omega_top.F |
132 |
CAR_FLUX_OMEGA_TOP |
& hFacC(i,j,ko,bi,bj)/WsinkPIC |
|
./pkg/dic/car_flux_omega_top.F |
143 |
CAR_FLUX_OMEGA_TOP |
if (ko.eq.Nr.or.hFacC(i,j,ko+1,bi,bj).eq.0.d0) |
|
./pkg/dic/car_flux_omega_top.F |
148 |
CAR_FLUX_OMEGA_TOP |
cflux(i,j,ko)=cflux(i,j,ko) + |
|
./pkg/dic/car_flux_omega_top.F |
149 |
CAR_FLUX_OMEGA_TOP |
& ( (flux_u-flux_l)/(drF(ko)*hFacC(i,j,ko,bi,bj)) ) |
|
./pkg/dic/car_flux_omega_top.F |
159 |
CAR_FLUX_OMEGA_TOP |
if (iflx.eq.1.and.omegaC(i,j,k,bi,bj) .gt. 1.d0) then |
|
./pkg/dic/car_flux_omega_top.F |
161 |
CAR_FLUX_OMEGA_TOP |
cflux(i,j,1)=cflux(i,j,1) |
|
./pkg/dic/car_flux_omega_top.F |
162 |
CAR_FLUX_OMEGA_TOP |
& +bioac(i,j,k)*(1.0-DOPfraction)* |
|
./pkg/dic/car_flux_omega_top.F |
163 |
CAR_FLUX_OMEGA_TOP |
& R_CP*rain_ratio(i,j,bi,bj) |
|
./pkg/dic/car_flux_omega_top.F |
164 |
CAR_FLUX_OMEGA_TOP |
& *drF(k)*hFacC(i,j,k,bi,bj)/ |
|
./pkg/dic/car_flux_omega_top.F |
165 |
CAR_FLUX_OMEGA_TOP |
& (drF(1)*hFacC(i,j,1,bi,bj) ) |
|
./pkg/dic/car_flux_omega_top.F |
168 |
CAR_FLUX_OMEGA_TOP |
cflux(i,j,k)=cflux(i,j,k) |
|
./pkg/dic/car_flux_omega_top.F |
169 |
CAR_FLUX_OMEGA_TOP |
& +bioac(i,j,k)*(1.0-DOPfraction)* |
|
./pkg/dic/car_flux_omega_top.F |
170 |
CAR_FLUX_OMEGA_TOP |
& R_CP*rain_ratio(i,j,bi,bj) |
|
./pkg/dic/car_flux_omega_top.F |
81 |
CAR_FLUX_OMEGA_TOP |
DO i=imin,imax |
|
./pkg/dic/car_flux_omega_top.F |
84 |
CAR_FLUX_OMEGA_TOP |
cflux(i,j,k)=0.d0 |
|
./pkg/dic/car_flux_omega_top.F |
87 |
CAR_FLUX_OMEGA_TOP |
if (hFacC(i,j,k,bi,bj).gt.0.d0) then |
|
./pkg/dic/car_flux_omega_top.F |
88 |
CAR_FLUX_OMEGA_TOP |
caexport(i,j)= R_CP*rain_ratio(i,j,bi,bj)*bioac(i,j,k)* |
|
./pkg/dic/car_flux_omega_top.F |
89 |
CAR_FLUX_OMEGA_TOP |
& (1.0-DOPfraction)*drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/dic/car_flux_omega_top.F |
93 |
CAR_FLUX_OMEGA_TOP |
if (hFacC(i,j,ko,bi,bj).gt.0.d0) then |
|
./pkg/dic/car_flux_omega_top.F |
95 |
CAR_FLUX_OMEGA_TOP |
flux_u = caexport(i,j) |
|
./pkg/dic/carbon_chem.F |
1039 |
CARBON_COEFFS_PRESSURE_DEP |
Ksp_TP_Calc(i,j,bi,bj) = Ksp_T_Calc*10**(xvalue) |
|
./pkg/dic/carbon_chem.F |
1046 |
CARBON_COEFFS_PRESSURE_DEP |
ff(i,j,bi,bj)=0.d0 |
|
./pkg/dic/carbon_chem.F |
1047 |
CARBON_COEFFS_PRESSURE_DEP |
ak0(i,j,bi,bj)= 0.d0 |
|
./pkg/dic/carbon_chem.F |
1048 |
CARBON_COEFFS_PRESSURE_DEP |
ak1(i,j,bi,bj)= 0.d0 |
|
./pkg/dic/carbon_chem.F |
1049 |
CARBON_COEFFS_PRESSURE_DEP |
ak2(i,j,bi,bj)= 0.d0 |
|
./pkg/dic/carbon_chem.F |
1050 |
CARBON_COEFFS_PRESSURE_DEP |
akb(i,j,bi,bj)= 0.d0 |
|
./pkg/dic/carbon_chem.F |
1051 |
CARBON_COEFFS_PRESSURE_DEP |
ak1p(i,j,bi,bj) = 0.d0 |
|
./pkg/dic/carbon_chem.F |
1052 |
CARBON_COEFFS_PRESSURE_DEP |
ak2p(i,j,bi,bj) = 0.d0 |
|
./pkg/dic/carbon_chem.F |
1053 |
CARBON_COEFFS_PRESSURE_DEP |
ak3p(i,j,bi,bj) = 0.d0 |
|
./pkg/dic/carbon_chem.F |
1054 |
CARBON_COEFFS_PRESSURE_DEP |
aksi(i,j,bi,bj) = 0.d0 |
|
./pkg/dic/carbon_chem.F |
1055 |
CARBON_COEFFS_PRESSURE_DEP |
akw(i,j,bi,bj) = 0.d0 |
|
./pkg/dic/carbon_chem.F |
1056 |
CARBON_COEFFS_PRESSURE_DEP |
aks(i,j,bi,bj)= 0.d0 |
|
./pkg/dic/carbon_chem.F |
1057 |
CARBON_COEFFS_PRESSURE_DEP |
akf(i,j,bi,bj)= 0.d0 |
|
./pkg/dic/carbon_chem.F |
1058 |
CARBON_COEFFS_PRESSURE_DEP |
bt(i,j,bi,bj) = 0.d0 |
|
./pkg/dic/carbon_chem.F |
1059 |
CARBON_COEFFS_PRESSURE_DEP |
st(i,j,bi,bj) = 0.d0 |
|
./pkg/dic/carbon_chem.F |
1060 |
CARBON_COEFFS_PRESSURE_DEP |
ft(i,j,bi,bj) = 0.d0 |
|
./pkg/dic/carbon_chem.F |
1061 |
CARBON_COEFFS_PRESSURE_DEP |
Ksp_TP_Calc(i,j,bi,bj) = 0.d0 |
|
./pkg/dic/carbon_chem.F |
29 |
CALC_PCO2 |
I i,j,k,bi,bj,myIter,myThid ) |
|
./pkg/dic/carbon_chem.F |
348 |
CALC_PCO2_APPROX |
I i,j,k,bi,bj,myIter,myThid ) |
|
./pkg/dic/carbon_chem.F |
391 |
CALC_PCO2_APPROX |
INTEGER i,j,k,bi,bj,myIter |
|
./pkg/dic/carbon_chem.F |
572 |
CARBON_COEFFS |
INTEGER i |
|
./pkg/dic/carbon_chem.F |
586 |
CARBON_COEFFS |
do i=imin,imax |
|
./pkg/dic/carbon_chem.F |
588 |
CARBON_COEFFS |
if (hFacC(i,j,1,bi,bj).gt.0. _d 0) then |
|
./pkg/dic/carbon_chem.F |
589 |
CARBON_COEFFS |
t = ttemp(i,j) |
|
./pkg/dic/carbon_chem.F |
590 |
CARBON_COEFFS |
s = stemp(i,j) |
|
./pkg/dic/carbon_chem.F |
615 |
CARBON_COEFFS |
fugf(i,j,bi,bj) = exp( (B+2. _d 0*delta) * P1atm / RT) |
|
./pkg/dic/carbon_chem.F |
619 |
CARBON_COEFFS |
ff(i,j,bi,bj) = exp(-162.8301 _d 0 + 218.2968 _d 0/tk100 + |
|
./pkg/dic/carbon_chem.F |
625 |
CARBON_COEFFS |
ak0(i,j,bi,bj) = exp(93.4517 _d 0/tk100 - 60.2409 _d 0 + |
|
./pkg/dic/carbon_chem.F |
633 |
CARBON_COEFFS |
ak1(i,j,bi,bj)=10.**(-1. _d 0*(3670.7 _d 0*invtk - |
|
./pkg/dic/carbon_chem.F |
636 |
CARBON_COEFFS |
ak2(i,j,bi,bj)=10.**(-1. _d 0*(1394.7 _d 0*invtk+ 4.777 _d 0- |
|
./pkg/dic/carbon_chem.F |
641 |
CARBON_COEFFS |
akb(i,j,bi,bj)=exp((-8966.90 _d 0- 2890.53 _d 0*sqrts - |
|
./pkg/dic/carbon_chem.F |
649 |
CARBON_COEFFS |
ak1p(i,j,bi,bj) = exp(-4576.752 _d 0*invtk + 115.525 _d 0 - |
|
./pkg/dic/carbon_chem.F |
656 |
CARBON_COEFFS |
ak2p(i,j,bi,bj) = exp(-8814.715 _d 0*invtk + 172.0883 _d 0 - |
|
./pkg/dic/carbon_chem.F |
663 |
CARBON_COEFFS |
ak3p(i,j,bi,bj) = exp(-3070.75 _d 0*invtk - 18.141 _d 0 + |
|
./pkg/dic/carbon_chem.F |
669 |
CARBON_COEFFS |
aksi(i,j,bi,bj) = exp(-8904.2 _d 0*invtk + 117.385 _d 0 - |
|
./pkg/dic/carbon_chem.F |
678 |
CARBON_COEFFS |
akw(i,j,bi,bj) = exp(-13847.26 _d 0*invtk + 148.9652 _d 0 - |
|
./pkg/dic/carbon_chem.F |
67 |
CALC_PCO2 |
INTEGER i,j,k,bi,bj,myIter |
|
./pkg/dic/carbon_chem.F |
685 |
CARBON_COEFFS |
aks(i,j,bi,bj)=exp(-4276.1 _d 0*invtk + 141.328 _d 0 - |
|
./pkg/dic/carbon_chem.F |
694 |
CARBON_COEFFS |
akf(i,j,bi,bj)=exp(1590.2 _d 0*invtk - 12.641 _d 0 + |
|
./pkg/dic/carbon_chem.F |
696 |
CARBON_COEFFS |
& log(1.0 _d 0 + (0.1400 _d 0/96.062 _d 0)*(scl)/aks(i,j,bi,bj))) |
|
./pkg/dic/carbon_chem.F |
700 |
CARBON_COEFFS |
bt(i,j,bi,bj) = 0.000232 _d 0 * scl/10.811 _d 0 |
|
./pkg/dic/carbon_chem.F |
702 |
CARBON_COEFFS |
st(i,j,bi,bj) = 0.14 _d 0 * scl/96.062 _d 0 |
|
./pkg/dic/carbon_chem.F |
704 |
CARBON_COEFFS |
ft(i,j,bi,bj) = 0.000067 _d 0 * scl/18.9984 _d 0 |
|
./pkg/dic/carbon_chem.F |
708 |
CARBON_COEFFS |
fugf(i,j,bi,bj)=0. _d 0 |
|
./pkg/dic/carbon_chem.F |
709 |
CARBON_COEFFS |
ff(i,j,bi,bj)=0. _d 0 |
|
./pkg/dic/carbon_chem.F |
710 |
CARBON_COEFFS |
ak0(i,j,bi,bj)= 0. _d 0 |
|
./pkg/dic/carbon_chem.F |
711 |
CARBON_COEFFS |
ak1(i,j,bi,bj)= 0. _d 0 |
|
./pkg/dic/carbon_chem.F |
712 |
CARBON_COEFFS |
ak2(i,j,bi,bj)= 0. _d 0 |
|
./pkg/dic/carbon_chem.F |
713 |
CARBON_COEFFS |
akb(i,j,bi,bj)= 0. _d 0 |
|
./pkg/dic/carbon_chem.F |
714 |
CARBON_COEFFS |
ak1p(i,j,bi,bj) = 0. _d 0 |
|
./pkg/dic/carbon_chem.F |
715 |
CARBON_COEFFS |
ak2p(i,j,bi,bj) = 0. _d 0 |
|
./pkg/dic/carbon_chem.F |
716 |
CARBON_COEFFS |
ak3p(i,j,bi,bj) = 0. _d 0 |
|
./pkg/dic/carbon_chem.F |
717 |
CARBON_COEFFS |
aksi(i,j,bi,bj) = 0. _d 0 |
|
./pkg/dic/carbon_chem.F |
718 |
CARBON_COEFFS |
akw(i,j,bi,bj) = 0. _d 0 |
|
./pkg/dic/carbon_chem.F |
719 |
CARBON_COEFFS |
aks(i,j,bi,bj)= 0. _d 0 |
|
./pkg/dic/carbon_chem.F |
720 |
CARBON_COEFFS |
akf(i,j,bi,bj)= 0. _d 0 |
|
./pkg/dic/carbon_chem.F |
721 |
CARBON_COEFFS |
bt(i,j,bi,bj) = 0. _d 0 |
|
./pkg/dic/carbon_chem.F |
722 |
CARBON_COEFFS |
st(i,j,bi,bj) = 0. _d 0 |
|
./pkg/dic/carbon_chem.F |
723 |
CARBON_COEFFS |
ft(i,j,bi,bj) = 0. _d 0 |
|
./pkg/dic/carbon_chem.F |
815 |
CARBON_COEFFS_PRESSURE_DEP |
INTEGER i |
|
./pkg/dic/carbon_chem.F |
866 |
CARBON_COEFFS_PRESSURE_DEP |
do i=imin,imax |
|
./pkg/dic/carbon_chem.F |
868 |
CARBON_COEFFS_PRESSURE_DEP |
if (hFacC(i,j,Klevel,bi,bj).gt.0.d0) then |
|
./pkg/dic/carbon_chem.F |
869 |
CARBON_COEFFS_PRESSURE_DEP |
t = ttemp(i,j) |
|
./pkg/dic/carbon_chem.F |
870 |
CARBON_COEFFS_PRESSURE_DEP |
s = stemp(i,j) |
|
./pkg/dic/carbon_chem.F |
888 |
CARBON_COEFFS_PRESSURE_DEP |
ff(i,j,bi,bj) = exp(-162.8301 + 218.2968/tk100 + |
|
./pkg/dic/carbon_chem.F |
894 |
CARBON_COEFFS_PRESSURE_DEP |
ak0(i,j,bi,bj) = exp(93.4517/tk100 - 60.2409 + |
|
./pkg/dic/carbon_chem.F |
902 |
CARBON_COEFFS_PRESSURE_DEP |
ak1(i,j,bi,bj)=10**(-1*(3670.7*invtk - |
|
./pkg/dic/carbon_chem.F |
905 |
CARBON_COEFFS_PRESSURE_DEP |
ak2(i,j,bi,bj)=10**(-1*(1394.7*invtk + 4.777 - |
|
./pkg/dic/carbon_chem.F |
911 |
CARBON_COEFFS_PRESSURE_DEP |
ak1(i,j,bi,bj) = ak1(i,j,bi,bj)* |
|
./pkg/dic/carbon_chem.F |
918 |
CARBON_COEFFS_PRESSURE_DEP |
ak2(i,j,bi,bj) = ak2(i,j,bi,bj)* |
|
./pkg/dic/carbon_chem.F |
923 |
CARBON_COEFFS_PRESSURE_DEP |
akb(i,j,bi,bj)=exp((-8966.90 - 2890.53*sqrts - 77.942*s + |
|
./pkg/dic/carbon_chem.F |
937 |
CARBON_COEFFS_PRESSURE_DEP |
akb(i,j,bi,bj) = akb(i,j,bi,bj)*exp(pfactor) |
|
./pkg/dic/carbon_chem.F |
941 |
CARBON_COEFFS_PRESSURE_DEP |
ak1p(i,j,bi,bj) = exp(-4576.752*invtk + 115.525 - |
|
./pkg/dic/carbon_chem.F |
948 |
CARBON_COEFFS_PRESSURE_DEP |
ak2p(i,j,bi,bj) = exp(-8814.715*invtk + 172.0883 - |
|
./pkg/dic/carbon_chem.F |
955 |
CARBON_COEFFS_PRESSURE_DEP |
ak3p(i,j,bi,bj) = exp(-3070.75*invtk - 18.141 + |
|
./pkg/dic/carbon_chem.F |
961 |
CARBON_COEFFS_PRESSURE_DEP |
aksi(i,j,bi,bj) = exp(-8904.2*invtk + 117.385 - |
|
./pkg/dic/carbon_chem.F |
970 |
CARBON_COEFFS_PRESSURE_DEP |
akw(i,j,bi,bj) = exp(-13847.26*invtk + 148.9652 - |
|
./pkg/dic/carbon_chem.F |
977 |
CARBON_COEFFS_PRESSURE_DEP |
aks(i,j,bi,bj)=exp(-4276.1*invtk + 141.328 - |
|
./pkg/dic/carbon_chem.F |
986 |
CARBON_COEFFS_PRESSURE_DEP |
akf(i,j,bi,bj)=exp(1590.2*invtk - 12.641 + 1.525*sqrtis + |
|
./pkg/dic/carbon_chem.F |
988 |
CARBON_COEFFS_PRESSURE_DEP |
& log(1.0 + (0.1400/96.062)*(scl)/aks(i,j,bi,bj))) |
|
./pkg/dic/carbon_chem.F |
992 |
CARBON_COEFFS_PRESSURE_DEP |
bt(i,j,bi,bj) = 0.000232 * scl/10.811 |
|
./pkg/dic/carbon_chem.F |
994 |
CARBON_COEFFS_PRESSURE_DEP |
st(i,j,bi,bj) = 0.14 * scl/96.062 |
|
./pkg/dic/carbon_chem.F |
996 |
CARBON_COEFFS_PRESSURE_DEP |
ft(i,j,bi,bj) = 0.000067 * scl/18.9984 |
|
./pkg/dic/dic_atmos.F |
105 |
DIC_ATMOS |
DO i=1,sNx |
|
./pkg/dic/dic_atmos.F |
107 |
DIC_ATMOS |
& + fluxCO2(i,j,bi,bj)*rA(i,j,bi,bj) |
|
./pkg/dic/dic_atmos.F |
108 |
DIC_ATMOS |
& *maskC(i,j,1,bi,bj)*dTtracerLev(1) |
|
./pkg/dic/dic_atmos.F |
113 |
DIC_ATMOS |
DO i=1,sNx |
|
./pkg/dic/dic_atmos.F |
115 |
DIC_ATMOS |
& + ( pTracer(i,j,k,bi,bj,1) |
|
./pkg/dic/dic_atmos.F |
117 |
DIC_ATMOS |
& +R_cp*pTracer(i,j,k,bi,bj,4) |
|
./pkg/dic/dic_atmos.F |
119 |
DIC_ATMOS |
& ) * rA(i,j,bi,bj) |
|
./pkg/dic/dic_atmos.F |
120 |
DIC_ATMOS |
& *drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/dic/dic_atmos.F |
199 |
DIC_ATMOS |
DO i=1-OLx,sNx+OLx |
|
./pkg/dic/dic_atmos.F |
200 |
DIC_ATMOS |
AtmospCO2(i,j,bi,bj) = atm_pCO2 |
|
./pkg/dic/dic_atmos.F |
49 |
DIC_ATMOS |
INTEGER bi, bj, i,j,k |
|
./pkg/dic/dic_biotic_forcing.F |
103 |
DIC_BIOTIC_FORCING |
INTEGER i,j,k |
|
./pkg/dic/dic_biotic_forcing.F |
128 |
DIC_BIOTIC_FORCING |
DO i=1-OLx,sNx+OLx |
|
./pkg/dic/dic_biotic_forcing.F |
129 |
DIC_BIOTIC_FORCING |
RDOP(i,j,k) =0. _d 0 |
|
./pkg/dic/dic_biotic_forcing.F |
130 |
DIC_BIOTIC_FORCING |
GDIC(i,j,k) =0. _d 0 |
|
./pkg/dic/dic_biotic_forcing.F |
131 |
DIC_BIOTIC_FORCING |
GALK(i,j,k) =0. _d 0 |
|
./pkg/dic/dic_biotic_forcing.F |
132 |
DIC_BIOTIC_FORCING |
GPO4(i,j,k) =0. _d 0 |
|
./pkg/dic/dic_biotic_forcing.F |
133 |
DIC_BIOTIC_FORCING |
GDOP(i,j,k) =0. _d 0 |
|
./pkg/dic/dic_biotic_forcing.F |
134 |
DIC_BIOTIC_FORCING |
CAR(i,j,k) =0. _d 0 |
|
./pkg/dic/dic_biotic_forcing.F |
135 |
DIC_BIOTIC_FORCING |
BIOac(i,j,k) =0. _d 0 |
|
./pkg/dic/dic_biotic_forcing.F |
136 |
DIC_BIOTIC_FORCING |
pflux(i,j,k) =0. _d 0 |
|
./pkg/dic/dic_biotic_forcing.F |
137 |
DIC_BIOTIC_FORCING |
exportflux(i,j,k)=0. _d 0 |
|
./pkg/dic/dic_biotic_forcing.F |
138 |
DIC_BIOTIC_FORCING |
cflux(i,j,k) =0. _d 0 |
|
./pkg/dic/dic_biotic_forcing.F |
139 |
DIC_BIOTIC_FORCING |
CAR_S(i,j,k) =0. _d 0 |
|
./pkg/dic/dic_biotic_forcing.F |
141 |
DIC_BIOTIC_FORCING |
GO2(i,j,k) =0. _d 0 |
|
./pkg/dic/dic_biotic_forcing.F |
144 |
DIC_BIOTIC_FORCING |
GFE(i,j,k) =0. _d 0 |
|
./pkg/dic/dic_biotic_forcing.F |
152 |
DIC_BIOTIC_FORCING |
DO i=1-OLx,sNx+OLx |
|
./pkg/dic/dic_biotic_forcing.F |
153 |
DIC_BIOTIC_FORCING |
SURA(i,j) =0. _d 0 |
|
./pkg/dic/dic_biotic_forcing.F |
154 |
DIC_BIOTIC_FORCING |
SURC(i,j) =0. _d 0 |
|
./pkg/dic/dic_biotic_forcing.F |
155 |
DIC_BIOTIC_FORCING |
SURO(i,j) =0. _d 0 |
|
./pkg/dic/dic_biotic_forcing.F |
228 |
DIC_BIOTIC_FORCING |
DO i=iMin,iMax |
|
./pkg/dic/dic_biotic_forcing.F |
229 |
DIC_BIOTIC_FORCING |
CAR_S(i,j,k)=BIOac(i,j,k)*R_CP*rain_ratio(i,j,bi,bj)* |
|
./pkg/dic/dic_biotic_forcing.F |
274 |
DIC_BIOTIC_FORCING |
DO i=iMin,iMax |
|
./pkg/dic/dic_biotic_forcing.F |
276 |
DIC_BIOTIC_FORCING |
RDOP(i,j,k)= MAX(maskC(i,j,k,bi,bj)*KDOPRemin*PTR_DOP(i,j,k) |
|
./pkg/dic/dic_biotic_forcing.F |
279 |
DIC_BIOTIC_FORCING |
RDOP(i,j,k)= maskC(i,j,k,bi,bj)*KDOPRemin*PTR_DOP(i,j,k) |
|
./pkg/dic/dic_biotic_forcing.F |
281 |
DIC_BIOTIC_FORCING |
GPO4(i,j,k)=-BIOac(i,j,k)+pflux(i,j,k) + RDOP(i,j,k) |
|
./pkg/dic/dic_biotic_forcing.F |
283 |
DIC_BIOTIC_FORCING |
car(i,j,k) = cflux(i,j,k) - CAR_S(i,j,k) |
|
./pkg/dic/dic_biotic_forcing.F |
285 |
DIC_BIOTIC_FORCING |
GDOP(i,j,k)=+BIOac(i,j,k)*DOPfraction - RDOP(i,j,k) |
|
./pkg/dic/dic_biotic_forcing.F |
287 |
DIC_BIOTIC_FORCING |
GALK(i,j,k)=+2. _d 0 *car(i,j,k)-R_NP*GPO4(i,j,k) |
|
./pkg/dic/dic_biotic_forcing.F |
289 |
DIC_BIOTIC_FORCING |
GDIC(i,j,k)=car(i,j,k)+R_CP*GPO4(i,j,k) |
|
./pkg/dic/dic_biotic_forcing.F |
292 |
DIC_BIOTIC_FORCING |
if (PTR_O2(i,j,k).GT.O2crit) then |
|
./pkg/dic/dic_biotic_forcing.F |
293 |
DIC_BIOTIC_FORCING |
GO2(i,j,k)= R_OP*GPO4(i,j,k) |
|
./pkg/dic/dic_biotic_forcing.F |
295 |
DIC_BIOTIC_FORCING |
GO2(i,j,k)= 0. _d 0 |
|
./pkg/dic/dic_biotic_forcing.F |
299 |
DIC_BIOTIC_FORCING |
GFE(i,j,k) = R_FeP*GPO4(i,j,k) |
|
./pkg/dic/dic_biotic_forcing.F |
300 |
DIC_BIOTIC_FORCING |
& -Kscav*freefe(i,j,k) |
|
./pkg/dic/dic_biotic_forcing.F |
307 |
DIC_BIOTIC_FORCING |
DO i=iMin,iMax |
|
./pkg/dic/dic_biotic_forcing.F |
308 |
DIC_BIOTIC_FORCING |
GALK(i,j,1)=GALK(i,j,1)+SURA(i,j) |
|
./pkg/dic/dic_biotic_forcing.F |
309 |
DIC_BIOTIC_FORCING |
GDIC(i,j,1)=GDIC(i,j,1)+SURC(i,j) |
|
./pkg/dic/dic_biotic_forcing.F |
311 |
DIC_BIOTIC_FORCING |
GO2(i,j,1) =GO2(i,j,1)+SURO(i,j) |
|
./pkg/dic/dic_biotic_forcing.F |
314 |
DIC_BIOTIC_FORCING |
GFE(i,j,1)=GFE(i,j,1)+alpfe* |
|
./pkg/dic/dic_biotic_forcing.F |
315 |
DIC_BIOTIC_FORCING |
& InputFe(i,j,bi,bj)*recip_drF(1) |
|
./pkg/dic/dic_biotic_forcing.F |
316 |
DIC_BIOTIC_FORCING |
& *recip_hFacC(i,j,1,bi,bj) |
|
./pkg/dic/dic_biotic_forcing.F |
319 |
DIC_BIOTIC_FORCING |
kBottom = MAX(kLowC(i,j,bi,bj),1) |
|
./pkg/dic/dic_biotic_forcing.F |
320 |
DIC_BIOTIC_FORCING |
GFE(i,j,kBottom)=GFE(i,j,kBottom) |
|
./pkg/dic/dic_biotic_forcing.F |
321 |
DIC_BIOTIC_FORCING |
& +( fesedflux_pcm*pflux(i,j,kBottom) + FeIntSec ) |
|
./pkg/dic/dic_biotic_forcing.F |
322 |
DIC_BIOTIC_FORCING |
& *recip_drF(kBottom)*recip_hFacC(i,j,kBottom,bi,bj) |
|
./pkg/dic/dic_biotic_forcing.F |
331 |
DIC_BIOTIC_FORCING |
DO i=iMin,iMax |
|
./pkg/dic/dic_biotic_forcing.F |
332 |
DIC_BIOTIC_FORCING |
GDIC(i,j,k) = GDIC(i,j,k)*maskInC(i,j,bi,bj) |
|
./pkg/dic/dic_biotic_forcing.F |
333 |
DIC_BIOTIC_FORCING |
GALK(i,j,k) = GALK(i,j,k)*maskInC(i,j,bi,bj) |
|
./pkg/dic/dic_biotic_forcing.F |
334 |
DIC_BIOTIC_FORCING |
GPO4(i,j,k) = GPO4(i,j,k)*maskInC(i,j,bi,bj) |
|
./pkg/dic/dic_biotic_forcing.F |
335 |
DIC_BIOTIC_FORCING |
GDOP(i,j,k) = GDOP(i,j,k)*maskInC(i,j,bi,bj) |
|
./pkg/dic/dic_biotic_forcing.F |
337 |
DIC_BIOTIC_FORCING |
GO2(i,j,k) = GO2(i,j,k)*maskInC(i,j,bi,bj) |
|
./pkg/dic/dic_biotic_forcing.F |
340 |
DIC_BIOTIC_FORCING |
GFE(i,j,k) = GFE(i,j,k)*maskInC(i,j,bi,bj) |
|
./pkg/dic/dic_biotic_forcing.F |
350 |
DIC_BIOTIC_FORCING |
DO i=iMin,iMax |
|
./pkg/dic/dic_biotic_forcing.F |
351 |
DIC_BIOTIC_FORCING |
PTR_DIC(i,j,k)= |
|
./pkg/dic/dic_biotic_forcing.F |
352 |
DIC_BIOTIC_FORCING |
& PTR_DIC(i,j,k)+GDIC(i,j,k)*PTRACERS_dTLev(k) |
|
./pkg/dic/dic_biotic_forcing.F |
353 |
DIC_BIOTIC_FORCING |
PTR_ALK(i,j,k)= |
|
./pkg/dic/dic_biotic_forcing.F |
354 |
DIC_BIOTIC_FORCING |
& PTR_ALK(i,j,k)+GALK(i,j,k)*PTRACERS_dTLev(k) |
|
./pkg/dic/dic_biotic_forcing.F |
355 |
DIC_BIOTIC_FORCING |
PTR_PO4(i,j,k)= |
|
./pkg/dic/dic_biotic_forcing.F |
356 |
DIC_BIOTIC_FORCING |
& PTR_PO4(i,j,k)+GPO4(i,j,k)*PTRACERS_dTLev(k) |
|
./pkg/dic/dic_biotic_forcing.F |
357 |
DIC_BIOTIC_FORCING |
PTR_DOP(i,j,k)= |
|
./pkg/dic/dic_biotic_forcing.F |
358 |
DIC_BIOTIC_FORCING |
& PTR_DOP(i,j,k)+GDOP(i,j,k)*PTRACERS_dTLev(k) |
|
./pkg/dic/dic_biotic_forcing.F |
360 |
DIC_BIOTIC_FORCING |
PTR_O2(i,j,k)= |
|
./pkg/dic/dic_biotic_forcing.F |
361 |
DIC_BIOTIC_FORCING |
& PTR_O2(i,j,k)+GO2(i,j,k)*PTRACERS_dTLev(k) |
|
./pkg/dic/dic_biotic_forcing.F |
364 |
DIC_BIOTIC_FORCING |
PTR_FE(i,j,k)= |
|
./pkg/dic/dic_biotic_forcing.F |
365 |
DIC_BIOTIC_FORCING |
& PTR_FE(i,j,k)+GFE(i,j,k)*PTRACERS_dTLev(k) |
|
./pkg/dic/dic_biotic_forcing.F |
389 |
DIC_BIOTIC_FORCING |
DO i=iMin,iMax |
|
./pkg/dic/dic_biotic_forcing.F |
390 |
DIC_BIOTIC_FORCING |
BIOave(i,j,k,bi,bj) =BIOave(i,j,k,bi,bj)+ |
|
./pkg/dic/dic_biotic_forcing.F |
391 |
DIC_BIOTIC_FORCING |
& BIOac(i,j,k)*deltaTClock |
|
./pkg/dic/dic_biotic_forcing.F |
392 |
DIC_BIOTIC_FORCING |
CARave(i,j,k,bi,bj) =CARave(i,j,k,bi,bj)+ |
|
./pkg/dic/dic_biotic_forcing.F |
393 |
DIC_BIOTIC_FORCING |
& CAR(i,j,k)*deltaTClock |
|
./pkg/dic/dic_biotic_forcing.F |
394 |
DIC_BIOTIC_FORCING |
OmegaCave(i,j,k,bi,bj)=OmegaCave(i,j,k,bi,bj)+ |
|
./pkg/dic/dic_biotic_forcing.F |
395 |
DIC_BIOTIC_FORCING |
& OmegaC(i,j,k,bi,bj)*deltaTClock |
|
./pkg/dic/dic_biotic_forcing.F |
396 |
DIC_BIOTIC_FORCING |
pfluxave(i,j,k,bi,bj) =pfluxave(i,j,k,bi,bj) + |
|
./pkg/dic/dic_biotic_forcing.F |
397 |
DIC_BIOTIC_FORCING |
& pflux(i,j,k)*deltaTClock |
|
./pkg/dic/dic_biotic_forcing.F |
398 |
DIC_BIOTIC_FORCING |
epfluxave(i,j,k,bi,bj)=epfluxave(i,j,k,bi,bj) + |
|
./pkg/dic/dic_biotic_forcing.F |
399 |
DIC_BIOTIC_FORCING |
& exportflux(i,j,k)*deltaTClock |
|
./pkg/dic/dic_biotic_forcing.F |
400 |
DIC_BIOTIC_FORCING |
cfluxave(i,j,k,bi,bj) =cfluxave(i,j,k,bi,bj) + |
|
./pkg/dic/dic_biotic_forcing.F |
401 |
DIC_BIOTIC_FORCING |
& cflux(i,j,k)*deltaTClock |
|
./pkg/dic/dic_biotic_forcing.F |
406 |
DIC_BIOTIC_FORCING |
DO i=iMin,iMax |
|
./pkg/dic/dic_biotic_forcing.F |
407 |
DIC_BIOTIC_FORCING |
SURave(i,j,bi,bj) =SURave(i,j,bi,bj)+ |
|
./pkg/dic/dic_biotic_forcing.F |
408 |
DIC_BIOTIC_FORCING |
& SURC(i,j)*deltaTClock |
|
./pkg/dic/dic_biotic_forcing.F |
410 |
DIC_BIOTIC_FORCING |
SUROave(i,j,bi,bj) =SUROave(i,j,bi,bj)+ |
|
./pkg/dic/dic_biotic_forcing.F |
411 |
DIC_BIOTIC_FORCING |
& SURO(i,j)*deltaTClock |
|
./pkg/dic/dic_biotic_forcing.F |
413 |
DIC_BIOTIC_FORCING |
pCO2ave(i,j,bi,bj) =pCO2ave(i,j,bi,bj)+ |
|
./pkg/dic/dic_biotic_forcing.F |
414 |
DIC_BIOTIC_FORCING |
& pCO2(i,j,bi,bj)*deltaTClock |
|
./pkg/dic/dic_biotic_forcing.F |
415 |
DIC_BIOTIC_FORCING |
pHave(i,j,bi,bj) =pHave(i,j,bi,bj)+ |
|
./pkg/dic/dic_biotic_forcing.F |
416 |
DIC_BIOTIC_FORCING |
& pH(i,j,bi,bj)*deltaTClock |
|
./pkg/dic/dic_biotic_forcing.F |
417 |
DIC_BIOTIC_FORCING |
fluxCO2ave(i,j,bi,bj)=fluxCO2ave(i,j,bi,bj)+ |
|
./pkg/dic/dic_biotic_forcing.F |
418 |
DIC_BIOTIC_FORCING |
& fluxCO2(i,j,bi,bj)*deltaTClock |
|
./pkg/dic/dic_cost.F |
40 |
DIC_COST |
INTEGER i, j, bi, bj |
|
./pkg/dic/dic_cost.F |
48 |
DIC_COST |
DO i=1,sNx |
|
./pkg/dic/dic_cost.F |
51 |
DIC_COST |
& + FluxCO2(i,j,bi,bj)*rA(i,j,bi,bj) |
|
./pkg/dic/dic_cost.F |
52 |
DIC_COST |
& *maskC(i,j,1,bi,bj)*dTtracerLev(1) |
|
./pkg/dic/dic_fields_load.F |
174 |
DIC_FIELDS_LOAD |
DO i=1-OLx,sNx+OLx |
|
./pkg/dic/dic_fields_load.F |
175 |
DIC_FIELDS_LOAD |
WIND(i,j,bi,bj) = bWght*dicwind0(i,j,bi,bj) |
|
./pkg/dic/dic_fields_load.F |
176 |
DIC_FIELDS_LOAD |
& + aWght*dicwind1(i,j,bi,bj) |
|
./pkg/dic/dic_fields_load.F |
187 |
DIC_FIELDS_LOAD |
DO i=1-OLx,sNx+OLx |
|
./pkg/dic/dic_fields_load.F |
188 |
DIC_FIELDS_LOAD |
AtmosP(i,j,bi,bj) = bWght*atmosp0(i,j,bi,bj) |
|
./pkg/dic/dic_fields_load.F |
189 |
DIC_FIELDS_LOAD |
& + aWght*atmosp1(i,j,bi,bj) |
|
./pkg/dic/dic_fields_load.F |
196 |
DIC_FIELDS_LOAD |
DO i=1-OLx,sNx+OLx |
|
./pkg/dic/dic_fields_load.F |
197 |
DIC_FIELDS_LOAD |
SILICA(i,j,bi,bj) = bWght*silica0(i,j,bi,bj) |
|
./pkg/dic/dic_fields_load.F |
198 |
DIC_FIELDS_LOAD |
& + aWght*silica1(i,j,bi,bj) |
|
./pkg/dic/dic_fields_load.F |
204 |
DIC_FIELDS_LOAD |
DO i=1-OLx,sNx+OLx |
|
./pkg/dic/dic_fields_load.F |
205 |
DIC_FIELDS_LOAD |
fIce(i,j,bi,bj) = bWght*ice0(i,j,bi,bj) |
|
./pkg/dic/dic_fields_load.F |
206 |
DIC_FIELDS_LOAD |
& + aWght*ice1(i,j,bi,bj) |
|
./pkg/dic/dic_fields_load.F |
214 |
DIC_FIELDS_LOAD |
DO i=1-OLx,sNx+OLx |
|
./pkg/dic/dic_fields_load.F |
215 |
DIC_FIELDS_LOAD |
PAR(i,j,bi,bj) = bWght*par0(i,j,bi,bj) |
|
./pkg/dic/dic_fields_load.F |
216 |
DIC_FIELDS_LOAD |
& + aWght*par1(i,j,bi,bj) |
|
./pkg/dic/dic_fields_load.F |
230 |
DIC_FIELDS_LOAD |
DO i=1-OLx,sNx+OLx |
|
./pkg/dic/dic_fields_load.F |
231 |
DIC_FIELDS_LOAD |
CHL(i,j,bi,bj) = chlinput(i,j,bi,bj) |
|
./pkg/dic/dic_fields_load.F |
239 |
DIC_FIELDS_LOAD |
DO i=1-OLx,sNx+OLx |
|
./pkg/dic/dic_fields_load.F |
240 |
DIC_FIELDS_LOAD |
InputFe(i,j,bi,bj) = bWght*feinput0(i,j,bi,bj) |
|
./pkg/dic/dic_fields_load.F |
241 |
DIC_FIELDS_LOAD |
& + aWght*feinput1(i,j,bi,bj) |
|
./pkg/dic/dic_fields_load.F |
36 |
DIC_FIELDS_LOAD |
INTEGER bi, bj, i, j |
|
./pkg/dic/dic_fields_update.F |
50 |
DIC_FIELDS_UPDATE |
INTEGER i, j |
|
./pkg/dic/dic_fields_update.F |
58 |
DIC_FIELDS_UPDATE |
DO i=1-OLx,sNx+OLx |
|
./pkg/dic/dic_fields_update.F |
59 |
DIC_FIELDS_UPDATE |
fIce(i,j,bi,bj) = iceMask(i,j,bi,bj) |
|
./pkg/dic/dic_fields_update.F |
66 |
DIC_FIELDS_UPDATE |
DO i=1-OLx,sNx+OLx |
|
./pkg/dic/dic_fields_update.F |
67 |
DIC_FIELDS_UPDATE |
fIce(i,j,bi,bj) = AREA(i,j,bi,bj) |
|
./pkg/dic/dic_fields_update.F |
75 |
DIC_FIELDS_UPDATE |
DO i=1-OLx,sNx+OLx |
|
./pkg/dic/dic_fields_update.F |
76 |
DIC_FIELDS_UPDATE |
fIce(i,j,bi,bj) = sIceFrac_cpl(i,j,bi,bj) |
|
./pkg/dic/dic_fields_update.F |
87 |
DIC_FIELDS_UPDATE |
DO i=1-OLx,sNx+OLx |
|
./pkg/dic/dic_fields_update.F |
88 |
DIC_FIELDS_UPDATE |
AtmospCO2(i,j,bi,bj) = airCO2(i,j,bi,bj) |
|
./pkg/dic/dic_fields_update.F |
94 |
DIC_FIELDS_UPDATE |
DO i=1-OLx,sNx+OLx |
|
./pkg/dic/dic_fields_update.F |
95 |
DIC_FIELDS_UPDATE |
wind(i,j,bi,bj) = surfWSpeed(i,j,bi,bj) |
|
./pkg/dic/dic_ini_atmos.F |
110 |
DIC_INI_ATMOS |
DO i=1,sNx |
|
./pkg/dic/dic_ini_atmos.F |
112 |
DIC_INI_ATMOS |
& + ( pTracer(i,j,k,bi,bj,1) |
|
./pkg/dic/dic_ini_atmos.F |
114 |
DIC_INI_ATMOS |
& +R_cp*pTracer(i,j,k,bi,bj,4) |
|
./pkg/dic/dic_ini_atmos.F |
116 |
DIC_INI_ATMOS |
& ) * rA(i,j,bi,bj) |
|
./pkg/dic/dic_ini_atmos.F |
117 |
DIC_INI_ATMOS |
& *drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/dic/dic_ini_atmos.F |
178 |
DIC_INI_ATMOS |
DO i=1-OLx,sNx+OLx |
|
./pkg/dic/dic_ini_atmos.F |
179 |
DIC_INI_ATMOS |
AtmospCO2(i,j,bi,bj) = atm_pCO2 |
|
./pkg/dic/dic_ini_atmos.F |
49 |
DIC_INI_ATMOS |
INTEGER bi, bj, i,j,k |
|
./pkg/dic/dic_ini_forcing.F |
33 |
DIC_INI_FORCING |
INTEGER bi,bj,i,j |
|
./pkg/dic/dic_ini_forcing.F |
78 |
DIC_INI_FORCING |
DO i=1-OLx,sNx+OLx |
|
./pkg/dic/dic_ini_forcing.F |
79 |
DIC_INI_FORCING |
WIND(i,j,bi,bj) = 5. _d 0*maskC(i,j,1,bi,bj) |
|
./pkg/dic/dic_ini_forcing.F |
80 |
DIC_INI_FORCING |
AtmosP(i,j,bi,bj) = 1. _d 0*maskC(i,j,1,bi,bj) |
|
./pkg/dic/dic_ini_forcing.F |
81 |
DIC_INI_FORCING |
SILICA(i,j,bi,bj) = 7.6838 _d -3*maskC(i,j,1,bi,bj) |
|
./pkg/dic/dic_ini_forcing.F |
82 |
DIC_INI_FORCING |
FIce(i,j,bi,bj) = 0. _d 0 |
|
./pkg/dic/dic_ini_forcing.F |
83 |
DIC_INI_FORCING |
FluxCO2(i,j,bi,bj)= 0. _d 0 |
|
./pkg/dic/dic_ini_forcing.F |
85 |
DIC_INI_FORCING |
PAR(i,j,bi,bj) = 100. _d 0*maskC(i,j,1,bi,bj) |
|
./pkg/dic/dic_ini_forcing.F |
89 |
DIC_INI_FORCING |
CHL(i,j,bi,bj) = 1. _d -2*maskC(i,j,1,bi,bj) |
|
./pkg/dic/dic_ini_forcing.F |
92 |
DIC_INI_FORCING |
InputFe(i,j,bi,bj)= 1. _d -11*maskC(i,j,1,bi,bj) |
|
./pkg/dic/dic_init_varia.F |
33 |
DIC_INIT_VARIA |
INTEGER i,j, bi,bj |
|
./pkg/dic/dic_init_varia.F |
59 |
DIC_INIT_VARIA |
DO i=1-OLx,sNx+OLx |
|
./pkg/dic/dic_init_varia.F |
60 |
DIC_INIT_VARIA |
alpha(i,j,bi,bj) = alphaUniform |
|
./pkg/dic/dic_init_varia.F |
61 |
DIC_INIT_VARIA |
rain_ratio(i,j,bi,bj) = rainRatioUniform |
|
./pkg/dic/dic_init_varia.F |
66 |
DIC_INIT_VARIA |
DO i=1-OLx,sNx+OLx |
|
./pkg/dic/dic_init_varia.F |
67 |
DIC_INIT_VARIA |
omegaC(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/dic/dic_set_control.F |
104 |
DIC_SET_CONTROL |
DO i = 1, sNx |
|
./pkg/dic/dic_set_control.F |
105 |
DIC_SET_CONTROL |
feload(i,j,bi,bj) = feload(i,j,bi,bj)*(1. _d 0 +xx_dic(1)) |
|
./pkg/dic/dic_set_control.F |
106 |
DIC_SET_CONTROL |
rain_ratio(i,j,bi,bj) = |
|
./pkg/dic/dic_set_control.F |
107 |
DIC_SET_CONTROL |
& rain_ratio(i,j,bi,bj)*(1. _d 0 +xx_dic(2)) |
|
./pkg/dic/dic_set_control.F |
42 |
DIC_SET_CONTROL |
INTEGER i, j |
|
./pkg/dic/dic_set_control.F |
80 |
DIC_SET_CONTROL |
DO i = 1, sNx |
|
./pkg/dic/dic_set_control.F |
81 |
DIC_SET_CONTROL |
alpha (i,j,bi,bj) = alpha(i,j,bi,bj) |
|
./pkg/dic/dic_set_control.F |
82 |
DIC_SET_CONTROL |
& + fac*tmpfld2d(i,j,bi,bj) |
|
./pkg/dic/dic_store_fluxco2.F |
45 |
DIC_STORE_FLUXCO2 |
INTEGER i,j,bi,bj |
|
./pkg/dic/dic_store_fluxco2.F |
51 |
DIC_STORE_FLUXCO2 |
DO i=1,sNx |
|
./pkg/dic/dic_store_fluxco2.F |
52 |
DIC_STORE_FLUXCO2 |
fluxCO2cpl(i,j,bi,bj) = fluxCO2(i,j,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
100 |
DIC_SURFFORCING |
surfphos(i,j) = PTR_PO4(i,j,klev) |
|
./pkg/dic/dic_surfforcing.F |
101 |
DIC_SURFFORCING |
& * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
104 |
DIC_SURFFORCING |
surfalk(i,j) = 2.366595 _d 0 * salt(i,j,kLev,bi,bj)/gsm_s |
|
./pkg/dic/dic_surfforcing.F |
105 |
DIC_SURFFORCING |
& * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
106 |
DIC_SURFFORCING |
surfphos(i,j) = 5.1225 _d -4 * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
109 |
DIC_SURFFORCING |
surfsi(i,j) = SILICA(i,j,bi,bj) * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
111 |
DIC_SURFFORCING |
surftemp(i,j) = max(-4. _d 0, |
|
./pkg/dic/dic_surfforcing.F |
112 |
DIC_SURFFORCING |
& min(50. _d 0, theta(i,j,kLev,bi,bj))) |
|
./pkg/dic/dic_surfforcing.F |
113 |
DIC_SURFFORCING |
surfsalt(i,j) = max(4. _d 0, |
|
./pkg/dic/dic_surfforcing.F |
114 |
DIC_SURFFORCING |
& min(50. _d 0, salt(i,j,kLev,bi,bj))) |
|
./pkg/dic/dic_surfforcing.F |
115 |
DIC_SURFFORCING |
surfdic(i,j) = max(0.4 _d 0, |
|
./pkg/dic/dic_surfforcing.F |
116 |
DIC_SURFFORCING |
& min(10. _d 0, PTR_CO2(i,j,kLev))) |
|
./pkg/dic/dic_surfforcing.F |
118 |
DIC_SURFFORCING |
surftemp(i,j) = theta(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
119 |
DIC_SURFFORCING |
surfsalt(i,j) = salt(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
120 |
DIC_SURFFORCING |
surfdic(i,j) = PTR_CO2(i,j,kLev) |
|
./pkg/dic/dic_surfforcing.F |
131 |
DIC_SURFFORCING |
DO i=iMin,iMax |
|
./pkg/dic/dic_surfforcing.F |
140 |
DIC_SURFFORCING |
AtmosP(i,j,bi,bj)= 1. _d 0 + pLoad(i,j,bi,bj)/Pa2Atm |
|
./pkg/dic/dic_surfforcing.F |
145 |
DIC_SURFFORCING |
pisvel(i,j)=0.337 _d 0 *wind(i,j,bi,bj)**2/3.6 _d 5 |
|
./pkg/dic/dic_surfforcing.F |
146 |
DIC_SURFFORCING |
Kwexch_Pre(i,j,bi,bj) = pisvel(i,j) |
|
./pkg/dic/dic_surfforcing.F |
147 |
DIC_SURFFORCING |
& * (1. _d 0 - FIce(i,j,bi,bj)) |
|
./pkg/dic/dic_surfforcing.F |
156 |
DIC_SURFFORCING |
DO i=iMin,iMax |
|
./pkg/dic/dic_surfforcing.F |
158 |
DIC_SURFFORCING |
IF ( maskC(i,j,kLev,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/dic/dic_surfforcing.F |
160 |
DIC_SURFFORCING |
I surftemp(i,j),surfsalt(i,j), |
|
./pkg/dic/dic_surfforcing.F |
161 |
DIC_SURFFORCING |
I surfdic(i,j), surfphos(i,j), |
|
./pkg/dic/dic_surfforcing.F |
162 |
DIC_SURFFORCING |
I surfsi(i,j),surfalk(i,j), |
|
./pkg/dic/dic_surfforcing.F |
163 |
DIC_SURFFORCING |
I ak1(i,j,bi,bj),ak2(i,j,bi,bj), |
|
./pkg/dic/dic_surfforcing.F |
164 |
DIC_SURFFORCING |
I ak1p(i,j,bi,bj),ak2p(i,j,bi,bj),ak3p(i,j,bi,bj), |
|
./pkg/dic/dic_surfforcing.F |
165 |
DIC_SURFFORCING |
I aks(i,j,bi,bj),akb(i,j,bi,bj),akw(i,j,bi,bj), |
|
./pkg/dic/dic_surfforcing.F |
166 |
DIC_SURFFORCING |
I aksi(i,j,bi,bj),akf(i,j,bi,bj), |
|
./pkg/dic/dic_surfforcing.F |
167 |
DIC_SURFFORCING |
I ak0(i,j,bi,bj), fugf(i,j,bi,bj), |
|
./pkg/dic/dic_surfforcing.F |
168 |
DIC_SURFFORCING |
I ff(i,j,bi,bj), |
|
./pkg/dic/dic_surfforcing.F |
169 |
DIC_SURFFORCING |
I bt(i,j,bi,bj),st(i,j,bi,bj),ft(i,j,bi,bj), |
|
./pkg/dic/dic_surfforcing.F |
170 |
DIC_SURFFORCING |
U pH(i,j,bi,bj),pCO2(i,j,bi,bj),co3dummy, |
|
./pkg/dic/dic_surfforcing.F |
171 |
DIC_SURFFORCING |
I i,j,kLev,bi,bj,myIter,myThid ) |
|
./pkg/dic/dic_surfforcing.F |
173 |
DIC_SURFFORCING |
pCO2(i,j,bi,bj)=0. _d 0 |
|
./pkg/dic/dic_surfforcing.F |
179 |
DIC_SURFFORCING |
DO i=iMin,iMax |
|
./pkg/dic/dic_surfforcing.F |
181 |
DIC_SURFFORCING |
IF ( maskC(i,j,kLev,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/dic/dic_surfforcing.F |
183 |
DIC_SURFFORCING |
SchmidtNoDIC(i,j) = |
|
./pkg/dic/dic_surfforcing.F |
185 |
DIC_SURFFORCING |
& + sca2 * theta(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
186 |
DIC_SURFFORCING |
& + sca3 * theta(i,j,kLev,bi,bj)*theta(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
187 |
DIC_SURFFORCING |
& + sca4 * theta(i,j,kLev,bi,bj)*theta(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
188 |
DIC_SURFFORCING |
& *theta(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
190 |
DIC_SURFFORCING |
SchmidtNoDIC(i,j)=max(1.0 _d -2, SchmidtNoDIC(i,j)) |
|
./pkg/dic/dic_surfforcing.F |
194 |
DIC_SURFFORCING |
pCO2sat(i,j) = |
|
./pkg/dic/dic_surfforcing.F |
195 |
DIC_SURFFORCING |
& AtmosP(i,j,bi,bj)*AtmospCO2(i,j,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
198 |
DIC_SURFFORCING |
Kwexch(i,j) = Kwexch_Pre(i,j,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
199 |
DIC_SURFFORCING |
& / sqrt(SchmidtNoDIC(i,j)/660.0 _d 0) |
|
./pkg/dic/dic_surfforcing.F |
206 |
DIC_SURFFORCING |
FluxCO2(i,j,bi,bj) = |
|
./pkg/dic/dic_surfforcing.F |
207 |
DIC_SURFFORCING |
& Kwexch(i,j)*( |
|
./pkg/dic/dic_surfforcing.F |
208 |
DIC_SURFFORCING |
& ak0(i,j,bi,bj)*pCO2sat(i,j) - |
|
./pkg/dic/dic_surfforcing.F |
209 |
DIC_SURFFORCING |
& ff(i,j,bi,bj)*pCO2(i,j,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
215 |
DIC_SURFFORCING |
FluxCO2(i,j,bi,bj) = |
|
./pkg/dic/dic_surfforcing.F |
216 |
DIC_SURFFORCING |
& Kwexch(i,j)*( |
|
./pkg/dic/dic_surfforcing.F |
217 |
DIC_SURFFORCING |
& ff(i,j,bi,bj)*pCO2sat(i,j) - |
|
./pkg/dic/dic_surfforcing.F |
218 |
DIC_SURFFORCING |
& pCO2(i,j,bi,bj)*fugf(i,j,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
219 |
DIC_SURFFORCING |
& *ak0(i,j,bi,bj) ) |
|
./pkg/dic/dic_surfforcing.F |
223 |
DIC_SURFFORCING |
FluxCO2(i,j,bi,bj) = 0. _d 0 |
|
./pkg/dic/dic_surfforcing.F |
226 |
DIC_SURFFORCING |
FluxCO2(i,j,bi,bj) = FluxCO2(i,j,bi,bj)/permil |
|
./pkg/dic/dic_surfforcing.F |
229 |
DIC_SURFFORCING |
IF (maskC(i,j,kLev,bi,bj).NE.0. _d 0) THEN |
|
./pkg/dic/dic_surfforcing.F |
237 |
DIC_SURFFORCING |
VirtualFlux(i,j)=gsm_DIC*surfaceForcingS(i,j,bi,bj)/gsm_s |
|
./pkg/dic/dic_surfforcing.F |
243 |
DIC_SURFFORCING |
VirtualFlux(i,j)=0. _d 0 |
|
./pkg/dic/dic_surfforcing.F |
251 |
DIC_SURFFORCING |
DO i=iMin,iMax |
|
./pkg/dic/dic_surfforcing.F |
252 |
DIC_SURFFORCING |
GDC(i,j)= recip_drF(kLev)*recip_hFacC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
253 |
DIC_SURFFORCING |
& *(FluxCO2(i,j,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
255 |
DIC_SURFFORCING |
& + VirtualFlux(i,j) |
|
./pkg/dic/dic_surfforcing.F |
48 |
DIC_SURFFORCING |
INTEGER i,j, kLev |
|
./pkg/dic/dic_surfforcing.F |
86 |
DIC_SURFFORCING |
DO i=iMin,iMax |
|
./pkg/dic/dic_surfforcing.F |
91 |
DIC_SURFFORCING |
surfalk(i,j) = max(0.4 _d 0, |
|
./pkg/dic/dic_surfforcing.F |
92 |
DIC_SURFFORCING |
& min(10. _d 0,PTR_ALK(i,j,klev))) |
|
./pkg/dic/dic_surfforcing.F |
93 |
DIC_SURFFORCING |
& * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
94 |
DIC_SURFFORCING |
surfphos(i,j) = max(1.0 _d -11, |
|
./pkg/dic/dic_surfforcing.F |
95 |
DIC_SURFFORCING |
& min(1. _d -1,PTR_PO4(i,j,klev))) |
|
./pkg/dic/dic_surfforcing.F |
96 |
DIC_SURFFORCING |
& * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
98 |
DIC_SURFFORCING |
surfalk(i,j) = PTR_ALK(i,j,klev) |
|
./pkg/dic/dic_surfforcing.F |
99 |
DIC_SURFFORCING |
& * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
102 |
DIC_SURFFORCING_INIT |
DO i=1-OLx,sNx+OLx |
|
./pkg/dic/dic_surfforcing_init.F |
103 |
DIC_SURFFORCING_INIT |
SILICA(i,j,bi,bj)= bWght*silica0(i,j,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
104 |
DIC_SURFFORCING_INIT |
& + aWght*silica1(i,j,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
124 |
DIC_SURFFORCING_INIT |
DO i=1-OLx,sNx+OLx |
|
./pkg/dic/dic_surfforcing_init.F |
125 |
DIC_SURFFORCING_INIT |
pH(i,j,bi,bj) = 8. _d 0 |
|
./pkg/dic/dic_surfforcing_init.F |
134 |
DIC_SURFFORCING_INIT |
DO i=1-OLx,sNx+OLx |
|
./pkg/dic/dic_surfforcing_init.F |
135 |
DIC_SURFFORCING_INIT |
ak0(i,j,bi,bj)=0. _d 0 |
|
./pkg/dic/dic_surfforcing_init.F |
136 |
DIC_SURFFORCING_INIT |
ak1(i,j,bi,bj)=0. _d 0 |
|
./pkg/dic/dic_surfforcing_init.F |
137 |
DIC_SURFFORCING_INIT |
ak2(i,j,bi,bj)=0. _d 0 |
|
./pkg/dic/dic_surfforcing_init.F |
138 |
DIC_SURFFORCING_INIT |
akw(i,j,bi,bj)=0. _d 0 |
|
./pkg/dic/dic_surfforcing_init.F |
139 |
DIC_SURFFORCING_INIT |
akb(i,j,bi,bj)=0. _d 0 |
|
./pkg/dic/dic_surfforcing_init.F |
140 |
DIC_SURFFORCING_INIT |
akf(i,j,bi,bj)=0. _d 0 |
|
./pkg/dic/dic_surfforcing_init.F |
141 |
DIC_SURFFORCING_INIT |
ak1p(i,j,bi,bj)=0. _d 0 |
|
./pkg/dic/dic_surfforcing_init.F |
142 |
DIC_SURFFORCING_INIT |
ak2p(i,j,bi,bj)=0. _d 0 |
|
./pkg/dic/dic_surfforcing_init.F |
143 |
DIC_SURFFORCING_INIT |
ak3p(i,j,bi,bj)=0. _d 0 |
|
./pkg/dic/dic_surfforcing_init.F |
144 |
DIC_SURFFORCING_INIT |
aksi(i,j,bi,bj)=0. _d 0 |
|
./pkg/dic/dic_surfforcing_init.F |
145 |
DIC_SURFFORCING_INIT |
fugf(i,j,bi,bj)=0. _d 0 |
|
./pkg/dic/dic_surfforcing_init.F |
146 |
DIC_SURFFORCING_INIT |
ff(i,j,bi,bj)=0. _d 0 |
|
./pkg/dic/dic_surfforcing_init.F |
147 |
DIC_SURFFORCING_INIT |
ft(i,j,bi,bj)=0. _d 0 |
|
./pkg/dic/dic_surfforcing_init.F |
148 |
DIC_SURFFORCING_INIT |
st(i,j,bi,bj)=0. _d 0 |
|
./pkg/dic/dic_surfforcing_init.F |
149 |
DIC_SURFFORCING_INIT |
bt(i,j,bi,bj)=0. _d 0 |
|
./pkg/dic/dic_surfforcing_init.F |
170 |
DIC_SURFFORCING_INIT |
DO i=iMin,iMax |
|
./pkg/dic/dic_surfforcing_init.F |
174 |
DIC_SURFFORCING_INIT |
surfalk(i,j) = max(0.4 _d 0, |
|
./pkg/dic/dic_surfforcing_init.F |
175 |
DIC_SURFFORCING_INIT |
& min(10. _d 0,PTRACER(i,j,kLev,bi,bj,2))) |
|
./pkg/dic/dic_surfforcing_init.F |
176 |
DIC_SURFFORCING_INIT |
& * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
177 |
DIC_SURFFORCING_INIT |
surfphos(i,j) = max(1.0 _d -11, |
|
./pkg/dic/dic_surfforcing_init.F |
178 |
DIC_SURFFORCING_INIT |
& min(1. _d -1,PTRACER(i,j,kLev,bi,bj,3))) |
|
./pkg/dic/dic_surfforcing_init.F |
179 |
DIC_SURFFORCING_INIT |
& * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
181 |
DIC_SURFFORCING_INIT |
surfalk(i,j) = PTRACER(i,j,kLev,bi,bj,2) |
|
./pkg/dic/dic_surfforcing_init.F |
182 |
DIC_SURFFORCING_INIT |
& * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
183 |
DIC_SURFFORCING_INIT |
surfphos(i,j)= PTRACER(i,j,kLev,bi,bj,3) |
|
./pkg/dic/dic_surfforcing_init.F |
184 |
DIC_SURFFORCING_INIT |
& * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
187 |
DIC_SURFFORCING_INIT |
surfalk(i,j) = 2.366595 _d 0 *salt(i,j,kLev,bi,bj)/35. _d 0 |
|
./pkg/dic/dic_surfforcing_init.F |
188 |
DIC_SURFFORCING_INIT |
& * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
189 |
DIC_SURFFORCING_INIT |
surfphos(i,j)= 5.1225 _d -4 * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
192 |
DIC_SURFFORCING_INIT |
surfsi(i,j) = Silica(i,j,bi,bj) * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
194 |
DIC_SURFFORCING_INIT |
surftemp(i,j) = max(-4. _d 0, |
|
./pkg/dic/dic_surfforcing_init.F |
195 |
DIC_SURFFORCING_INIT |
& min(50. _d 0, theta(i,j,kLev,bi,bj))) |
|
./pkg/dic/dic_surfforcing_init.F |
196 |
DIC_SURFFORCING_INIT |
surfsalt(i,j) = max(4. _d 0, |
|
./pkg/dic/dic_surfforcing_init.F |
197 |
DIC_SURFFORCING_INIT |
& min(50. _d 0, salt(i,j,kLev,bi,bj))) |
|
./pkg/dic/dic_surfforcing_init.F |
198 |
DIC_SURFFORCING_INIT |
surfdic(i,j) = max(0.4 _d 0, |
|
./pkg/dic/dic_surfforcing_init.F |
199 |
DIC_SURFFORCING_INIT |
& min(10. _d 0, PTRACER(i,j,kLev,bi,bj,1))) |
|
./pkg/dic/dic_surfforcing_init.F |
201 |
DIC_SURFFORCING_INIT |
surftemp(i,j) = theta(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
202 |
DIC_SURFFORCING_INIT |
surfsalt(i,j) = salt(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
203 |
DIC_SURFFORCING_INIT |
surfdic(i,j) = PTRACER(i,j,kLev,bi,bj,1) |
|
./pkg/dic/dic_surfforcing_init.F |
204 |
DIC_SURFFORCING_INIT |
& * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
223 |
DIC_SURFFORCING_INIT |
DO i=iMin,iMax |
|
./pkg/dic/dic_surfforcing_init.F |
224 |
DIC_SURFFORCING_INIT |
IF ( maskC(i,j,kLev,bi,bj) .NE. 0. _d 0) THEN |
|
./pkg/dic/dic_surfforcing_init.F |
230 |
DIC_SURFFORCING_INIT |
I surftemp(i,j),surfsalt(i,j), |
|
./pkg/dic/dic_surfforcing_init.F |
231 |
DIC_SURFFORCING_INIT |
I surfdic(i,j), surfphos(i,j), |
|
./pkg/dic/dic_surfforcing_init.F |
232 |
DIC_SURFFORCING_INIT |
I surfsi(i,j),surfalk(i,j), |
|
./pkg/dic/dic_surfforcing_init.F |
233 |
DIC_SURFFORCING_INIT |
I ak1(i,j,bi,bj),ak2(i,j,bi,bj), |
|
./pkg/dic/dic_surfforcing_init.F |
234 |
DIC_SURFFORCING_INIT |
I ak1p(i,j,bi,bj),ak2p(i,j,bi,bj),ak3p(i,j,bi,bj), |
|
./pkg/dic/dic_surfforcing_init.F |
235 |
DIC_SURFFORCING_INIT |
I aks(i,j,bi,bj),akb(i,j,bi,bj),akw(i,j,bi,bj), |
|
./pkg/dic/dic_surfforcing_init.F |
236 |
DIC_SURFFORCING_INIT |
I aksi(i,j,bi,bj),akf(i,j,bi,bj), |
|
./pkg/dic/dic_surfforcing_init.F |
237 |
DIC_SURFFORCING_INIT |
I ak0(i,j,bi,bj), fugf(i,j,bi,bj), |
|
./pkg/dic/dic_surfforcing_init.F |
238 |
DIC_SURFFORCING_INIT |
I ff(i,j,bi,bj), |
|
./pkg/dic/dic_surfforcing_init.F |
239 |
DIC_SURFFORCING_INIT |
I bt(i,j,bi,bj),st(i,j,bi,bj),ft(i,j,bi,bj), |
|
./pkg/dic/dic_surfforcing_init.F |
240 |
DIC_SURFFORCING_INIT |
U pH(i,j,bi,bj),pCO2(i,j,bi,bj),co3dummy, |
|
./pkg/dic/dic_surfforcing_init.F |
241 |
DIC_SURFFORCING_INIT |
I i,j,kLev,bi,bj, it , myThid ) |
|
./pkg/dic/dic_surfforcing_init.F |
38 |
DIC_SURFFORCING_INIT |
INTEGER i,j, kLev, it |
|
./pkg/dic/fe_chem.F |
100 |
FE_CHEM |
freefe(i,j,k) = |
|
./pkg/dic/fe_chem.F |
105 |
FE_CHEM |
freefe(i,j,k) = MIN(freefe(i,j,k),freefemax) |
|
./pkg/dic/fe_chem.F |
107 |
FE_CHEM |
fe(i,j,k) = FeL+freefe(i,j,k) |
|
./pkg/dic/fe_chem.F |
46 |
FE_CHEM |
INTEGER i,j,k |
|
./pkg/dic/fe_chem.F |
61 |
FE_CHEM |
DO i=1-OLx,sNx+OLx |
|
./pkg/dic/fe_chem.F |
62 |
FE_CHEM |
freefe(i,j,k) = 0. _d 0 |
|
./pkg/dic/fe_chem.F |
72 |
FE_CHEM |
DO i=iMin,iMax |
|
./pkg/dic/fe_chem.F |
73 |
FE_CHEM |
IF ( maskC(i,j,k,bi,bj).GT.0. ) THEN |
|
./pkg/dic/fe_chem.F |
76 |
FE_CHEM |
tmpfe =MAX( 0. _d 0 , fe(i,j,k) ) |
|
./pkg/dic/fe_chem.F |
78 |
FE_CHEM |
tmpfe = fe(i,j,k) |
|
./pkg/dic/fe_chem.F |
91 |
FE_CHEM |
freefe(i,j,k) = tmpfe -FeL |
|
./pkg/dic/fe_chem.F |
93 |
FE_CHEM |
freefe(i,j,k) = 0. _d 0 |
|
./pkg/dic/fe_chem.F |
97 |
FE_CHEM |
thx=freefe(i,j,k) |
|
./pkg/dic/o2_surfforcing.F |
107 |
O2_SURFFORCING |
O2sat(i,j) = o2s/22391.6 _d 0 * 1. _d 3 |
|
./pkg/dic/o2_surfforcing.F |
110 |
O2_SURFFORCING |
FluxO2(i,j) = Kwexch(i,j)* |
|
./pkg/dic/o2_surfforcing.F |
111 |
O2_SURFFORCING |
& (AtmosP(i,j,bi,bj)*O2sat(i,j) |
|
./pkg/dic/o2_surfforcing.F |
112 |
O2_SURFFORCING |
& - PTR_O2(i,j,K)) |
|
./pkg/dic/o2_surfforcing.F |
114 |
O2_SURFFORCING |
FluxO2(i,j) = 0. _d 0 |
|
./pkg/dic/o2_surfforcing.F |
123 |
O2_SURFFORCING |
DO i=imin,imax |
|
./pkg/dic/o2_surfforcing.F |
124 |
O2_SURFFORCING |
SGO2(i,j)= FluxO2(i,j) |
|
./pkg/dic/o2_surfforcing.F |
125 |
O2_SURFFORCING |
& *recip_drF(K) * recip_hFacC(i,j,K,bi,bj) |
|
./pkg/dic/o2_surfforcing.F |
71 |
O2_SURFFORCING |
DO i=imin,imax |
|
./pkg/dic/o2_surfforcing.F |
72 |
O2_SURFFORCING |
IF (maskC(i,j,k,bi,bj).NE.0.) THEN |
|
./pkg/dic/o2_surfforcing.F |
73 |
O2_SURFFORCING |
ttemp = theta(i,j,k,bi,bj) |
|
./pkg/dic/o2_surfforcing.F |
74 |
O2_SURFFORCING |
stemp = salt(i,j,k,bi,bj) |
|
./pkg/dic/o2_surfforcing.F |
76 |
O2_SURFFORCING |
SchmidtNoO2(i,j) = |
|
./pkg/dic/o2_surfforcing.F |
86 |
O2_SURFFORCING |
Kwexch(i,j) = Kwexch_Pre(i,j,bi,bj) |
|
./pkg/dic/o2_surfforcing.F |
87 |
O2_SURFFORCING |
& / sqrt(SchmidtNoO2(i,j)/660.0 _d 0) |
|
./pkg/dic/phos_flux.F |
107 |
PHOS_FLUX |
DO i=imin,imax |
|
./pkg/dic/phos_flux.F |
108 |
PHOS_FLUX |
IF ( bexport(i,j) .NE. 0. _d 0 ) THEN |
|
./pkg/dic/phos_flux.F |
111 |
PHOS_FLUX |
depth_l = -rF(ko) + drF(ko) * _hFacC(i,j,ko,bi,bj) |
|
./pkg/dic/phos_flux.F |
116 |
PHOS_FLUX |
flux_l = bexport(i,j)*reminFac |
|
./pkg/dic/phos_flux.F |
117 |
PHOS_FLUX |
& *maskC(i,j,kop1,bi,bj) |
|
./pkg/dic/phos_flux.F |
119 |
PHOS_FLUX |
pflux(i,j,ko)=pflux(i,j,ko) + (flux_u(i,j)-flux_l) |
|
./pkg/dic/phos_flux.F |
120 |
PHOS_FLUX |
& *recip_drF(ko) * _recip_hFacC(i,j,ko,bi,bj) |
|
./pkg/dic/phos_flux.F |
121 |
PHOS_FLUX |
exportflux(i,j,ko)=exportflux(i,j,ko)+flux_u(i,j) |
|
./pkg/dic/phos_flux.F |
123 |
PHOS_FLUX |
flux_u(i,j) = flux_l |
|
./pkg/dic/phos_flux.F |
135 |
PHOS_FLUX |
DO i=imin,imax |
|
./pkg/dic/phos_flux.F |
136 |
PHOS_FLUX |
pflux(i,j,ko)=pflux(i,j,ko) + (flux_u(i,j)-flux_l) |
|
./pkg/dic/phos_flux.F |
137 |
PHOS_FLUX |
& *recip_drF(ko) * _recip_hFacC(i,j,ko,bi,bj) |
|
./pkg/dic/phos_flux.F |
138 |
PHOS_FLUX |
exportflux(i,j,ko)=exportflux(i,j,ko)+flux_u(i,j) |
|
./pkg/dic/phos_flux.F |
65 |
PHOS_FLUX |
DO i=imin,imax |
|
./pkg/dic/phos_flux.F |
66 |
PHOS_FLUX |
bexport(i,j) = 0. _d 0 |
|
./pkg/dic/phos_flux.F |
67 |
PHOS_FLUX |
IF ( _hFacC(i,j,k,bi,bj).gt.0. _d 0 ) THEN |
|
./pkg/dic/phos_flux.F |
71 |
PHOS_FLUX |
pflux(i,j,k)=pflux(i,j,k)+BIOac(i,j,k)*(1. _d 0-DOPfraction) |
|
./pkg/dic/phos_flux.F |
72 |
PHOS_FLUX |
ELSEIF (hFacC(i,j,k+1,bi,bj).EQ.0. _d 0) THEN |
|
./pkg/dic/phos_flux.F |
73 |
PHOS_FLUX |
pflux(i,j,k)=pflux(i,j,k)+BIOac(i,j,k)*(1. _d 0-DOPfraction) |
|
./pkg/dic/phos_flux.F |
76 |
PHOS_FLUX |
bexport(i,j)=BIOac(i,j,k)*(1. _d 0-DOPfraction) |
|
./pkg/dic/phos_flux.F |
77 |
PHOS_FLUX |
& *drF(k) * _hFacC(i,j,k,bi,bj) |
|
./pkg/dic/phos_flux.F |
87 |
PHOS_FLUX |
DO i=imin,imax |
|
./pkg/dic/phos_flux.F |
88 |
PHOS_FLUX |
flux_u(i,j) = bexport(i,j) |
|
./pkg/down_slope/dwnslp_calc_rho.F |
58 |
DWNSLP_CALC_RHO |
INTEGER i,j,kl |
|
./pkg/down_slope/dwnslp_calc_rho.F |
64 |
DWNSLP_CALC_RHO |
DO i=1-OLx,sNx+OLx |
|
./pkg/down_slope/dwnslp_calc_rho.F |
71 |
DWNSLP_CALC_RHO |
kl = MIN( MAX(k,kSurfC(i,j,bi,bj)), MAX(kLowC(i,j,bi,bj),1) ) |
|
./pkg/down_slope/dwnslp_calc_rho.F |
72 |
DWNSLP_CALC_RHO |
tLoc(i,j) = tFld(i,j,kl,bi,bj) |
|
./pkg/down_slope/dwnslp_calc_rho.F |
73 |
DWNSLP_CALC_RHO |
sLoc(i,j) = sFld(i,j,kl,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
107 |
DWNSLP_INIT_FIXED |
DO i=1,sNx |
|
./pkg/down_slope/dwnslp_init_fixed.F |
108 |
DWNSLP_INIT_FIXED |
IF ( kSurfS(i,j,bi,bj).LE.Nr ) THEN |
|
./pkg/down_slope/dwnslp_init_fixed.F |
110 |
DWNSLP_INIT_FIXED |
IF ( kSurfC(i,j,bi,bj).LT.kSurfC(i,j-1,bi,bj) ) THEN |
|
./pkg/down_slope/dwnslp_init_fixed.F |
114 |
DWNSLP_INIT_FIXED |
& 1 + (i+OLx-1) + (j+OLy-1)*xSize |
|
./pkg/down_slope/dwnslp_init_fixed.F |
119 |
DWNSLP_INIT_FIXED |
IF ( kSurfC(i,j,bi,bj).GT.kSurfC(i,j-1,bi,bj) ) THEN |
|
./pkg/down_slope/dwnslp_init_fixed.F |
123 |
DWNSLP_INIT_FIXED |
& 1 + (i+OLx-1) + (j-1+OLy-1)*xSize |
|
./pkg/down_slope/dwnslp_init_fixed.F |
138 |
DWNSLP_INIT_FIXED |
DO i=1,sNx+1 |
|
./pkg/down_slope/dwnslp_init_fixed.F |
139 |
DWNSLP_INIT_FIXED |
IF ( kSurfW(i,j,bi,bj).LE.Nr ) THEN |
|
./pkg/down_slope/dwnslp_init_fixed.F |
141 |
DWNSLP_INIT_FIXED |
IF ( kLowC(i,j,bi,bj).GT.kLowC(i-1,j,bi,bj) ) THEN |
|
./pkg/down_slope/dwnslp_init_fixed.F |
145 |
DWNSLP_INIT_FIXED |
& 1 + (i+OLx-1) + (j+OLy-1)*xSize |
|
./pkg/down_slope/dwnslp_init_fixed.F |
150 |
DWNSLP_INIT_FIXED |
IF ( kLowC(i,j,bi,bj).LT.kLowC(i-1,j,bi,bj) ) THEN |
|
./pkg/down_slope/dwnslp_init_fixed.F |
154 |
DWNSLP_INIT_FIXED |
& 1 + (i-1+OLx-1) + (j+OLy-1)*xSize |
|
./pkg/down_slope/dwnslp_init_fixed.F |
166 |
DWNSLP_INIT_FIXED |
DO i=1,sNx |
|
./pkg/down_slope/dwnslp_init_fixed.F |
167 |
DWNSLP_INIT_FIXED |
IF ( kSurfS(i,j,bi,bj).LE.Nr ) THEN |
|
./pkg/down_slope/dwnslp_init_fixed.F |
169 |
DWNSLP_INIT_FIXED |
IF ( kLowC(i,j,bi,bj).GT.kLowC(i,j-1,bi,bj) ) THEN |
|
./pkg/down_slope/dwnslp_init_fixed.F |
173 |
DWNSLP_INIT_FIXED |
& 1 + (i+OLx-1) + (j+OLy-1)*xSize |
|
./pkg/down_slope/dwnslp_init_fixed.F |
178 |
DWNSLP_INIT_FIXED |
IF ( kLowC(i,j,bi,bj).LT.kLowC(i,j-1,bi,bj) ) THEN |
|
./pkg/down_slope/dwnslp_init_fixed.F |
182 |
DWNSLP_INIT_FIXED |
& 1 + (i+OLx-1) + (j-1+OLy-1)*xSize |
|
./pkg/down_slope/dwnslp_init_fixed.F |
228 |
DWNSLP_INIT_FIXED |
i= MAX(ideep,ishelf) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
242 |
DWNSLP_INIT_FIXED |
DWNSLP_Gamma(n,bi,bj) = DWNSLP_slope*dyG(i,j,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
243 |
DWNSLP_INIT_FIXED |
& *MIN( drF(kshelf)*hFacW(i,j,kshelf,bi,bj), drFlowMin ) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
246 |
DWNSLP_INIT_FIXED |
DWNSLP_Gamma(n,bi,bj) = DWNSLP_slope*dxG(i,j,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
247 |
DWNSLP_INIT_FIXED |
& *MIN( drF(kshelf)*hFacS(i,j,kshelf,bi,bj), drFlowMin ) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
262 |
DWNSLP_INIT_FIXED |
DWNSLP_Gamma(n,bi,bj) = dz_bottom*recip_dxC(i,j,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
263 |
DWNSLP_INIT_FIXED |
& *dyG(i,j,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
264 |
DWNSLP_INIT_FIXED |
& *MIN( drF(kshelf)*hFacW(i,j,kshelf,bi,bj), drFlowMin ) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
267 |
DWNSLP_INIT_FIXED |
DWNSLP_Gamma(n,bi,bj) = dz_bottom*recip_dyC(i,j,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
268 |
DWNSLP_INIT_FIXED |
& *dxG(i,j,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
269 |
DWNSLP_INIT_FIXED |
& *MIN( drF(kshelf)*hFacS(i,j,kshelf,bi,bj), drFlowMin ) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
43 |
DWNSLP_INIT_FIXED |
INTEGER i, j, k |
|
./pkg/down_slope/dwnslp_init_fixed.F |
79 |
DWNSLP_INIT_FIXED |
DO i=1,sNx+1 |
|
./pkg/down_slope/dwnslp_init_fixed.F |
80 |
DWNSLP_INIT_FIXED |
IF ( kSurfW(i,j,bi,bj).LE.Nr ) THEN |
|
./pkg/down_slope/dwnslp_init_fixed.F |
82 |
DWNSLP_INIT_FIXED |
IF ( kSurfC(i,j,bi,bj).LT.kSurfC(i-1,j,bi,bj) ) THEN |
|
./pkg/down_slope/dwnslp_init_fixed.F |
86 |
DWNSLP_INIT_FIXED |
& 1 + (i+OLx-1) + (j+OLy-1)*xSize |
|
./pkg/down_slope/dwnslp_init_fixed.F |
91 |
DWNSLP_INIT_FIXED |
IF ( kSurfC(i,j,bi,bj).GT.kSurfC(i-1,j,bi,bj) ) THEN |
|
./pkg/down_slope/dwnslp_init_fixed.F |
95 |
DWNSLP_INIT_FIXED |
& 1 + (i-1+OLx-1) + (j+OLy-1)*xSize |
|
./pkg/ebm/ebm_area_t.F |
44 |
EBM_AREA_T |
INTEGER i, j, k, bi, bj |
|
./pkg/ebm/ebm_area_t.F |
75 |
EBM_AREA_T |
DO i = 1, sNx |
|
./pkg/ebm/ebm_area_t.F |
76 |
EBM_AREA_T |
IF ( yC(i,j,bi,bj) .GE. -latBnd(3) .AND. |
|
./pkg/ebm/ebm_area_t.F |
77 |
EBM_AREA_T |
& yC(i,j,bi,bj) .LE. -latBnd(2) ) THEN |
|
./pkg/ebm/ebm_area_t.F |
79 |
EBM_AREA_T |
& + maskC(i,j,k,bi,bj)*theta(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
81 |
EBM_AREA_T |
& + maskC(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
82 |
EBM_AREA_T |
ELSEIF ( yC(i,j,bi,bj) .GT. -latBnd(2) .AND. |
|
./pkg/ebm/ebm_area_t.F |
83 |
EBM_AREA_T |
& yC(i,j,bi,bj) .LT. -latBnd(1) ) THEN |
|
./pkg/ebm/ebm_area_t.F |
85 |
EBM_AREA_T |
& + maskC(i,j,k,bi,bj)*theta(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
87 |
EBM_AREA_T |
& + maskC(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
88 |
EBM_AREA_T |
ELSEIF ( yC(i,j,bi,bj) .GT. latBnd(1) .AND. |
|
./pkg/ebm/ebm_area_t.F |
89 |
EBM_AREA_T |
& yC(i,j,bi,bj) .LT. latBnd(2) ) THEN |
|
./pkg/ebm/ebm_area_t.F |
91 |
EBM_AREA_T |
& + maskC(i,j,k,bi,bj)*theta(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
93 |
EBM_AREA_T |
& + maskC(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
94 |
EBM_AREA_T |
ELSEIF ( yC(i,j,bi,bj) .GE. latBnd(2) .AND. |
|
./pkg/ebm/ebm_area_t.F |
95 |
EBM_AREA_T |
& yC(i,j,bi,bj) .LT. latBnd(3) ) THEN |
|
./pkg/ebm/ebm_area_t.F |
97 |
EBM_AREA_T |
& + maskC(i,j,k,bi,bj)*theta(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
99 |
EBM_AREA_T |
& + maskC(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_atmosphere.F |
102 |
EBM_ATMOSPHERE |
DO i=1-oLx,sNx+oLx |
|
./pkg/ebm/ebm_atmosphere.F |
103 |
EBM_ATMOSPHERE |
S(i,j,bj) = 0.0 |
|
./pkg/ebm/ebm_atmosphere.F |
104 |
EBM_ATMOSPHERE |
P2(i,j,bj) = 0.0 |
|
./pkg/ebm/ebm_atmosphere.F |
105 |
EBM_ATMOSPHERE |
P4(i,j,bj) = 0.0 |
|
./pkg/ebm/ebm_atmosphere.F |
226 |
EBM_ATMOSPHERE |
DO i=1,sNx |
|
./pkg/ebm/ebm_atmosphere.F |
228 |
EBM_ATMOSPHERE |
S(i,j,bj) = SIN(yC(i,j,bi,bj)*deg2rad) |
|
./pkg/ebm/ebm_atmosphere.F |
230 |
EBM_ATMOSPHERE |
P2(i,j,bj) = 0.5*(3.*S(i,j,bj)**2 - 1.) |
|
./pkg/ebm/ebm_atmosphere.F |
231 |
EBM_ATMOSPHERE |
P4(i,j,bj) = 0.12 _d 0 * |
|
./pkg/ebm/ebm_atmosphere.F |
232 |
EBM_ATMOSPHERE |
& (35.*S(i,j,bj)**4 - 30.*S(i,j,bj)**2 + 3.) |
|
./pkg/ebm/ebm_atmosphere.F |
242 |
EBM_ATMOSPHERE |
DO i=1,sNx |
|
./pkg/ebm/ebm_atmosphere.F |
244 |
EBM_ATMOSPHERE |
IF (yC(i,j,bi,bj) .LT. 0.) THEN |
|
./pkg/ebm/ebm_atmosphere.F |
250 |
EBM_ATMOSPHERE |
SW(j,bj) = 0.25 _d 0 *Q0*(1. _d 0 + Q2*P2(i,j,bj))* |
|
./pkg/ebm/ebm_atmosphere.F |
251 |
EBM_ATMOSPHERE |
& (1. _d 0 - A0 - A2*P2(i,j,bj) - A4*P4(i,j,bj) ) |
|
./pkg/ebm/ebm_atmosphere.F |
253 |
EBM_ATMOSPHERE |
T(j,bj) = T0(no_so) + T2(no_so)*P2(i,j,bj) |
|
./pkg/ebm/ebm_atmosphere.F |
270 |
EBM_ATMOSPHERE |
Qnet(i,j,bi,bj) = -1.0 _d 0 *( SW(j,bj) - LW(j,bj) - |
|
./pkg/ebm/ebm_atmosphere.F |
272 |
EBM_ATMOSPHERE |
& 0.000728 _d 4 - 0.00678 _d 4*S(i,j,bj) + |
|
./pkg/ebm/ebm_atmosphere.F |
273 |
EBM_ATMOSPHERE |
& 0.0955 _d 4*S(i,j,bj)**2 + 0.0769 _d 4*S(i,j,bj)**3 - |
|
./pkg/ebm/ebm_atmosphere.F |
274 |
EBM_ATMOSPHERE |
& 0.8508 _d 4*S(i,j,bj)**4 - 0.3581 _d 4*S(i,j,bj)**5 + |
|
./pkg/ebm/ebm_atmosphere.F |
275 |
EBM_ATMOSPHERE |
& 2.9240 _d 4*S(i,j,bj)**6 + 0.8311 _d 4*S(i,j,bj)**7 - |
|
./pkg/ebm/ebm_atmosphere.F |
276 |
EBM_ATMOSPHERE |
& 4.9548 _d 4*S(i,j,bj)**8 - 0.8808 _d 4*S(i,j,bj)**9 + |
|
./pkg/ebm/ebm_atmosphere.F |
277 |
EBM_ATMOSPHERE |
& 4.0644 _d 4*S(i,j,bj)**10 +0.3409 _d 4*S(i,j,bj)**11 - |
|
./pkg/ebm/ebm_atmosphere.F |
278 |
EBM_ATMOSPHERE |
& 1.2893 _d 4*S(i,j,bj)**12 ) |
|
./pkg/ebm/ebm_atmosphere.F |
290 |
EBM_ATMOSPHERE |
Qnet(i,j,bi,bj) = (-90. _d 0 /ReCountX(j,bj))* |
|
./pkg/ebm/ebm_atmosphere.F |
292 |
EBM_ATMOSPHERE |
& Hd35(no_so)*(3.054 _d 1 - 3.763 _d 1*S(i,j,bj) + |
|
./pkg/ebm/ebm_atmosphere.F |
293 |
EBM_ATMOSPHERE |
& 1.892 _d 2*S(i,j,bj)**2 + 3.041 _d 2*S(i,j,bj)**3 - |
|
./pkg/ebm/ebm_atmosphere.F |
294 |
EBM_ATMOSPHERE |
& 1.540 _d 3*S(i,j,bj)**4 - 9.586 _d 2*S(i,j,bj)**5 + |
|
./pkg/ebm/ebm_atmosphere.F |
295 |
EBM_ATMOSPHERE |
& 2.939 _d 3*S(i,j,bj)**6 + 1.219 _d 3*S(i,j,bj)**7 - |
|
./pkg/ebm/ebm_atmosphere.F |
296 |
EBM_ATMOSPHERE |
& 2.550 _d 3*S(i,j,bj)**8 - 5.396 _d 2*S(i,j,bj)**9 + |
|
./pkg/ebm/ebm_atmosphere.F |
297 |
EBM_ATMOSPHERE |
& 8.119 _d 2*S(i,j,bj)**10) |
|
./pkg/ebm/ebm_atmosphere.F |
300 |
EBM_ATMOSPHERE |
Qnet(i,j,bi,bj) = 0. |
|
./pkg/ebm/ebm_atmosphere.F |
306 |
EBM_ATMOSPHERE |
EmPmR(i,j,bi,bj) = -1. _d -3*Fw35(no_so) |
|
./pkg/ebm/ebm_atmosphere.F |
307 |
EBM_ATMOSPHERE |
& *(-0.8454 _d 5*S(i,j,bj)**14 + 0.5367 _d 5*S(i,j,bj)**13 |
|
./pkg/ebm/ebm_atmosphere.F |
308 |
EBM_ATMOSPHERE |
& +3.3173 _d 5*S(i,j,bj)**12 - 1.8965 _d 5*S(i,j,bj)**11 |
|
./pkg/ebm/ebm_atmosphere.F |
309 |
EBM_ATMOSPHERE |
& -5.1701 _d 5*S(i,j,bj)**10 |
|
./pkg/ebm/ebm_atmosphere.F |
310 |
EBM_ATMOSPHERE |
& +2.6240 _d 5*S(i,j,bj)**9 + 4.077 _d 5*S(i,j,bj)**8 |
|
./pkg/ebm/ebm_atmosphere.F |
311 |
EBM_ATMOSPHERE |
& -1.791 _d 5*S(i,j,bj)**7 |
|
./pkg/ebm/ebm_atmosphere.F |
312 |
EBM_ATMOSPHERE |
& -1.7231 _d 5*S(i,j,bj)**6 + 0.6229 _d 5*S(i,j,bj)**5 |
|
./pkg/ebm/ebm_atmosphere.F |
313 |
EBM_ATMOSPHERE |
& +0.3824 _d 5*S(i,j,bj)**4 |
|
./pkg/ebm/ebm_atmosphere.F |
314 |
EBM_ATMOSPHERE |
& -0.1017 _d 5*S(i,j,bj)**3 - 0.0387 _d 5*S(i,j,bj)**2 |
|
./pkg/ebm/ebm_atmosphere.F |
315 |
EBM_ATMOSPHERE |
& +0.00562 _d 5*S(i,j,bj) + 0.0007743 _d 5) |
|
./pkg/ebm/ebm_atmosphere.F |
325 |
EBM_ATMOSPHERE |
IF (yC(i,j,bi,bj) .LT. -40.) THEN |
|
./pkg/ebm/ebm_atmosphere.F |
327 |
EBM_ATMOSPHERE |
EmPmR(i,j,bi,bj) = -1. _d -3*(Fw35(no_so)* |
|
./pkg/ebm/ebm_atmosphere.F |
328 |
EBM_ATMOSPHERE |
& (-6.5 _d 0 + 35.3 _d 0 + 71.7 _d 0*S(i,j,bj) |
|
./pkg/ebm/ebm_atmosphere.F |
329 |
EBM_ATMOSPHERE |
& - 1336.3 _d 0*S(i,j,bj)**2 - 425.8 _d 0*S(i,j,bj)**3 |
|
./pkg/ebm/ebm_atmosphere.F |
330 |
EBM_ATMOSPHERE |
& + 5434.8 _d 0*S(i,j,bj)**4 + 707.9 _d 0*S(i,j,bj)**5 |
|
./pkg/ebm/ebm_atmosphere.F |
331 |
EBM_ATMOSPHERE |
& - 6987.7 _d 0*S(i,j,bj)**6 - 360.4 _d 0*S(i,j,bj)**7 |
|
./pkg/ebm/ebm_atmosphere.F |
332 |
EBM_ATMOSPHERE |
& + 2855.0 _d 0*S(i,j,bj)**8) |
|
./pkg/ebm/ebm_atmosphere.F |
336 |
EBM_ATMOSPHERE |
IF (xC(i,j,bi,bj) .GT. 284. |
|
./pkg/ebm/ebm_atmosphere.F |
337 |
EBM_ATMOSPHERE |
& .OR. xC(i,j,bi,bj) .LT. 28.) THEN |
|
./pkg/ebm/ebm_atmosphere.F |
338 |
EBM_ATMOSPHERE |
EmPmR(i,j,bi,bj) = -1. _d -3*(Fw35(no_so)* |
|
./pkg/ebm/ebm_atmosphere.F |
339 |
EBM_ATMOSPHERE |
& (-6.5 _d 0 -2.878 _d 0 + 3.157 _d 2*S(i,j,bj) - |
|
./pkg/ebm/ebm_atmosphere.F |
340 |
EBM_ATMOSPHERE |
& 2.388 _d 3*S(i,j,bj)**2 - 4.101 _d 3*S(i,j,bj)**3 + |
|
./pkg/ebm/ebm_atmosphere.F |
341 |
EBM_ATMOSPHERE |
& 1.963 _d 4*S(i,j,bj)**4 + 1.534 _d 4*S(i,j,bj)**5 - |
|
./pkg/ebm/ebm_atmosphere.F |
342 |
EBM_ATMOSPHERE |
& 6.556 _d 4*S(i,j,bj)**6 - 2.478 _d 4*S(i,j,bj)**7 + |
|
./pkg/ebm/ebm_atmosphere.F |
343 |
EBM_ATMOSPHERE |
& 1.083 _d 5*S(i,j,bj)**8 + 1.85 _d 4*S(i,j,bj)**9 - |
|
./pkg/ebm/ebm_atmosphere.F |
344 |
EBM_ATMOSPHERE |
& 8.703 _d 4*S(i,j,bj)**10 - 5.276 _d 3*S(i,j,bj)**11 + |
|
./pkg/ebm/ebm_atmosphere.F |
345 |
EBM_ATMOSPHERE |
& 2.703 _d 4*S(i,j,bj)**12) |
|
./pkg/ebm/ebm_atmosphere.F |
349 |
EBM_ATMOSPHERE |
EmPmR(i,j,bi,bj) = -1. _d -3*(Fw35(no_so) |
|
./pkg/ebm/ebm_atmosphere.F |
350 |
EBM_ATMOSPHERE |
& *(-6.5 _d 0 +51.89 _d 0 + 4.916 _d 2*S(i,j,bj) - |
|
./pkg/ebm/ebm_atmosphere.F |
351 |
EBM_ATMOSPHERE |
& 1.041 _d 3*S(i,j,bj)**2 - 7.546 _d 3*S(i,j,bj)**3 + |
|
./pkg/ebm/ebm_atmosphere.F |
352 |
EBM_ATMOSPHERE |
& 2.335 _d 3*S(i,j,bj)**4 + 3.449 _d 4*S(i,j,bj)**5 + |
|
./pkg/ebm/ebm_atmosphere.F |
353 |
EBM_ATMOSPHERE |
& 6.702 _d 3*S(i,j,bj)**6 - 6.601 _d 4*S(i,j,bj)**7 - |
|
./pkg/ebm/ebm_atmosphere.F |
354 |
EBM_ATMOSPHERE |
& 2.594 _d 4*S(i,j,bj)**8 + 5.652 _d 4*S(i,j,bj)**9 + |
|
./pkg/ebm/ebm_atmosphere.F |
355 |
EBM_ATMOSPHERE |
& 2.738 _d 4*S(i,j,bj)**10 - 1.795 _d 4*S(i,j,bj)**11 - |
|
./pkg/ebm/ebm_atmosphere.F |
356 |
EBM_ATMOSPHERE |
& 9.486 _d 3*S(i,j,bj)**12) |
|
./pkg/ebm/ebm_atmosphere.F |
361 |
EBM_ATMOSPHERE |
EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj) |
|
./pkg/ebm/ebm_atmosphere.F |
362 |
EBM_ATMOSPHERE |
& - Run(i,j,bi,bj)*scale_runoff |
|
./pkg/ebm/ebm_atmosphere.F |
363 |
EBM_ATMOSPHERE |
EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj)*rhoConstFresh |
|
./pkg/ebm/ebm_atmosphere.F |
55 |
EBM_ATMOSPHERE |
INTEGER i, j, bi, bj |
|
./pkg/ebm/ebm_ini_vars.F |
40 |
EBM_INI_VARS |
INTEGER bi,bj,i,j |
|
./pkg/ebm/ebm_ini_vars.F |
46 |
EBM_INI_VARS |
DO i=1-OLx,sNx+OLx |
|
./pkg/ebm/ebm_ini_vars.F |
47 |
EBM_INI_VARS |
Run (i,j,bi,bj) = 0. |
|
./pkg/ebm/ebm_ini_vars.F |
48 |
EBM_INI_VARS |
winPert(i,j,bi,bj) = 0. |
|
./pkg/ebm/ebm_load_climatology.F |
45 |
EBM_LOAD_CLIMATOLOGY |
INTEGER bi,bj,i,j |
|
./pkg/ebm/ebm_load_climatology.F |
70 |
EBM_LOAD_CLIMATOLOGY |
DO i=1,sNx |
|
./pkg/ebm/ebm_load_climatology.F |
74 |
EBM_LOAD_CLIMATOLOGY |
distY = (yC(i,j,bi,bj)- 0. )/lY |
|
./pkg/ebm/ebm_load_climatology.F |
77 |
EBM_LOAD_CLIMATOLOGY |
fu(i,j,bi,bj) = tauX |
|
./pkg/ebm/ebm_wind_perturb.F |
104 |
EBM_WIND_PERTURB |
DO i = iMin, iMax |
|
./pkg/ebm/ebm_wind_perturb.F |
114 |
EBM_WIND_PERTURB |
winPert(i,j,bi,bj) = maskW(i,j,k,bi,bj)* |
|
./pkg/ebm/ebm_wind_perturb.F |
115 |
EBM_WIND_PERTURB |
& (1.0/1.66)*(0.75*winPert(i,j,bi,bj) + |
|
./pkg/ebm/ebm_wind_perturb.F |
117 |
EBM_WIND_PERTURB |
& ((y(j)-ya(j))*temp2(i,INT(ya2(j)))+ |
|
./pkg/ebm/ebm_wind_perturb.F |
118 |
EBM_WIND_PERTURB |
& (6.0-y(j)+ya(j))*temp2(i,INT(ya(j))))) |
|
./pkg/ebm/ebm_wind_perturb.F |
132 |
EBM_WIND_PERTURB |
DO i = 1-OLx, sNx+OLx |
|
./pkg/ebm/ebm_wind_perturb.F |
133 |
EBM_WIND_PERTURB |
fu(i,j,bi,bj) = fu(i,j,bi,bj) |
|
./pkg/ebm/ebm_wind_perturb.F |
134 |
EBM_WIND_PERTURB |
& + winPert(i,j,bi,bj)*rUnit2mass |
|
./pkg/ebm/ebm_wind_perturb.F |
135 |
EBM_WIND_PERTURB |
& *drF(1)*hFacW(i,j,1,bi,bj) |
|
./pkg/ebm/ebm_wind_perturb.F |
36 |
EBM_WIND_PERTURB |
INTEGER i, j, bi, bj |
|
./pkg/ebm/ebm_wind_perturb.F |
61 |
EBM_WIND_PERTURB |
DO i = 1-OLx, sNx+OLx |
|
./pkg/ebm/ebm_wind_perturb.F |
62 |
EBM_WIND_PERTURB |
x(i) = 0.0 |
|
./pkg/ebm/ebm_wind_perturb.F |
63 |
EBM_WIND_PERTURB |
xa(i) = 0.0 |
|
./pkg/ebm/ebm_wind_perturb.F |
64 |
EBM_WIND_PERTURB |
xa2(i) = 0.0 |
|
./pkg/ebm/ebm_wind_perturb.F |
66 |
EBM_WIND_PERTURB |
DO i = 1-OLx, sNx+OLx |
|
./pkg/ebm/ebm_wind_perturb.F |
68 |
EBM_WIND_PERTURB |
temp(i,j) = 0.0 |
|
./pkg/ebm/ebm_wind_perturb.F |
69 |
EBM_WIND_PERTURB |
temp2(i,j) = 0.0 |
|
./pkg/ebm/ebm_wind_perturb.F |
83 |
EBM_WIND_PERTURB |
DO i = iMin, iMax |
|
./pkg/ebm/ebm_wind_perturb.F |
84 |
EBM_WIND_PERTURB |
temp(i,j) = 1.73*(2.0*temp(i,j) - 1.0) |
|
./pkg/ebm/ebm_wind_perturb.F |
89 |
EBM_WIND_PERTURB |
DO i = iMin, iMax |
|
./pkg/ebm/ebm_wind_perturb.F |
90 |
EBM_WIND_PERTURB |
x(i) = i |
|
./pkg/ebm/ebm_wind_perturb.F |
91 |
EBM_WIND_PERTURB |
xa(i) = x(i) - MOD(x(i),10.0) |
|
./pkg/ebm/ebm_wind_perturb.F |
92 |
EBM_WIND_PERTURB |
xa2(i) = xa(i)+10.0 |
|
./pkg/ebm/ebm_wind_perturb.F |
93 |
EBM_WIND_PERTURB |
if ( xa2(i) .gt. sNx+Olx ) then |
|
./pkg/ebm/ebm_wind_perturb.F |
94 |
EBM_WIND_PERTURB |
xa2(i) = 0.0 |
|
./pkg/ebm/ebm_wind_perturb.F |
96 |
EBM_WIND_PERTURB |
temp2(i,j) = 0.1*( (x(i)-xa(i))*temp(INT(xa2(i)),j)+ |
|
./pkg/ebm/ebm_wind_perturb.F |
97 |
EBM_WIND_PERTURB |
& (10.0-x(i)+xa(i))*temp(INT(xa(i)),j) ) |
|
./pkg/ebm/ebm_zonalmean.F |
102 |
EBM_ZONALMEAN |
DO i = 1-OLx, sNx+OLx |
|
./pkg/ebm/ebm_zonalmean.F |
103 |
EBM_ZONALMEAN |
SST(i,j,bi,bj) = ZonalMeanSST(j,bj) |
|
./pkg/ebm/ebm_zonalmean.F |
45 |
EBM_ZONALMEAN |
INTEGER i, j, k, bi, bj |
|
./pkg/ebm/ebm_zonalmean.F |
63 |
EBM_ZONALMEAN |
DO i = 1,sNx |
|
./pkg/ebm/ebm_zonalmean.F |
65 |
EBM_ZONALMEAN |
& + maskC(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_zonalmean.F |
67 |
EBM_ZONALMEAN |
& + maskC(i,j,k,bi,bj)*theta(i,j,k,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
214 |
COST_AVERAGESFIELDS |
do i = imin,imax |
|
./pkg/ecco/cost_averagesfields.F |
221 |
COST_AVERAGESFIELDS |
& genprecipGloH=xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/ecco/cost_averagesfields.F |
226 |
COST_AVERAGESFIELDS |
etanLeads(i,j,bi,bj)=etan(i,j,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
228 |
COST_AVERAGESFIELDS |
& +sIceLoad(i,j,bi,bj)*recip_rhoConst |
|
./pkg/ecco/cost_averagesfields.F |
346 |
COST_AVERAGESFIELDS |
do i = imin,imax |
|
./pkg/ecco/cost_averagesfields.F |
347 |
COST_AVERAGESFIELDS |
ubar(i,j,k,bi,bj) = uVel(i,j,k,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
348 |
COST_AVERAGESFIELDS |
vbar(i,j,k,bi,bj) = vVel(i,j,k,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
359 |
COST_AVERAGESFIELDS |
do i = imin,imax |
|
./pkg/ecco/cost_averagesfields.F |
360 |
COST_AVERAGESFIELDS |
ubar(i,j,k,bi,bj) = (ubar (i,j,k,bi,bj) + |
|
./pkg/ecco/cost_averagesfields.F |
361 |
COST_AVERAGESFIELDS |
& uVel(i,j,k,bi,bj) )/ |
|
./pkg/ecco/cost_averagesfields.F |
363 |
COST_AVERAGESFIELDS |
vbar(i,j,k,bi,bj) = (vbar (i,j,k,bi,bj) + |
|
./pkg/ecco/cost_averagesfields.F |
364 |
COST_AVERAGESFIELDS |
& vVel(i,j,k,bi,bj) )/ |
|
./pkg/ecco/cost_averagesfields.F |
397 |
COST_AVERAGESFIELDS |
do i = imin,imax |
|
./pkg/ecco/cost_averagesfields.F |
398 |
COST_AVERAGESFIELDS |
ubar(i,j,k,bi,bj) = ubar (i,j,k,bi,bj) + |
|
./pkg/ecco/cost_averagesfields.F |
399 |
COST_AVERAGESFIELDS |
& uVel (i,j,k,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
400 |
COST_AVERAGESFIELDS |
vbar(i,j,k,bi,bj) = vbar (i,j,k,bi,bj) + |
|
./pkg/ecco/cost_averagesfields.F |
401 |
COST_AVERAGESFIELDS |
& vVel (i,j,k,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
420 |
COST_AVERAGESFIELDS |
do i = imin,imax |
|
./pkg/ecco/cost_averagesfields.F |
421 |
COST_AVERAGESFIELDS |
tauxbar(i,j,bi,bj) = ustress(i,j,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
422 |
COST_AVERAGESFIELDS |
tauybar(i,j,bi,bj) = vstress(i,j,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
431 |
COST_AVERAGESFIELDS |
do i = imin,imax |
|
./pkg/ecco/cost_averagesfields.F |
432 |
COST_AVERAGESFIELDS |
tauxbar(i,j,bi,bj) = (tauxbar (i,j,bi,bj) + |
|
./pkg/ecco/cost_averagesfields.F |
433 |
COST_AVERAGESFIELDS |
& ustress(i,j,bi,bj) )/ |
|
./pkg/ecco/cost_averagesfields.F |
435 |
COST_AVERAGESFIELDS |
tauybar(i,j,bi,bj) = (tauybar (i,j,bi,bj) + |
|
./pkg/ecco/cost_averagesfields.F |
436 |
COST_AVERAGESFIELDS |
& vstress(i,j,bi,bj) )/ |
|
./pkg/ecco/cost_averagesfields.F |
466 |
COST_AVERAGESFIELDS |
do i = imin,imax |
|
./pkg/ecco/cost_averagesfields.F |
467 |
COST_AVERAGESFIELDS |
tauxbar(i,j,bi,bj) = tauxbar (i,j,bi,bj) + |
|
./pkg/ecco/cost_averagesfields.F |
468 |
COST_AVERAGESFIELDS |
& ustress (i,j,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
469 |
COST_AVERAGESFIELDS |
tauybar(i,j,bi,bj) = tauybar (i,j,bi,bj) + |
|
./pkg/ecco/cost_averagesfields.F |
470 |
COST_AVERAGESFIELDS |
& vstress (i,j,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
601 |
COST_AVERAGESFIELDS |
do i = imin,imax |
|
./pkg/ecco/cost_averagesfields.F |
602 |
COST_AVERAGESFIELDS |
iestau(i,j,bi,bj) = 0.0 |
|
./pkg/ecco/cost_averagesfields.F |
611 |
COST_AVERAGESFIELDS |
do i = imin,imax |
|
./pkg/ecco/cost_averagesfields.F |
612 |
COST_AVERAGESFIELDS |
csmm(i,j,k,bi,bj) = 0.0 |
|
./pkg/ecco/cost_averagesfields.F |
622 |
COST_AVERAGESFIELDS |
do i = imin,imax |
|
./pkg/ecco/cost_averagesfields.F |
623 |
COST_AVERAGESFIELDS |
if (hFacC(i,j,k,bi,bj).gt.0.0) then |
|
./pkg/ecco/cost_averagesfields.F |
624 |
COST_AVERAGESFIELDS |
prmm = totPhiHyd(i,j,k,bi,bj)/gravity |
|
./pkg/ecco/cost_averagesfields.F |
626 |
COST_AVERAGESFIELDS |
tmpmm = SW_TEMP(SALT(i,j,k,bi,bj), |
|
./pkg/ecco/cost_averagesfields.F |
627 |
COST_AVERAGESFIELDS |
& THETA(i,j,k,bi,bj),prmm,0. _d 0) |
|
./pkg/ecco/cost_averagesfields.F |
629 |
COST_AVERAGESFIELDS |
& totPhiHyd(i,j,k,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
633 |
COST_AVERAGESFIELDS |
salmm = SALT(i,j,k,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
649 |
COST_AVERAGESFIELDS |
csmm(i,j,k,bi,bj) = c0mm+vtmm+vsmm+vpmm+vstpmm |
|
./pkg/ecco/cost_averagesfields.F |
661 |
COST_AVERAGESFIELDS |
do i = imin,imax |
|
./pkg/ecco/cost_averagesfields.F |
662 |
COST_AVERAGESFIELDS |
if (csmm(i,j,k,bi,bj).ne.0.0) then |
|
./pkg/ecco/cost_averagesfields.F |
663 |
COST_AVERAGESFIELDS |
iestau(i,j,bi,bj) = iestau(i,j,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
664 |
COST_AVERAGESFIELDS |
& + 2*drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
665 |
COST_AVERAGESFIELDS |
& /csmm(i,j,k,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
667 |
COST_AVERAGESFIELDS |
iestau(i,j,bi,bj) = iestau(i,j,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
668 |
COST_AVERAGESFIELDS |
& + 2*etaN(i,j,bi,j) |
|
./pkg/ecco/cost_averagesfields.F |
669 |
COST_AVERAGESFIELDS |
& /csmm(i,j,k,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
741 |
COST_AVERAGESFIELDS |
do i = imin,imax |
|
./pkg/ecco/cost_averagesfields.F |
742 |
COST_AVERAGESFIELDS |
ig = myXGlobalLo-1+(bi-1)*sNx+i |
|
./pkg/ecco/cost_averagesfields.F |
745 |
COST_AVERAGESFIELDS |
& +vVel(i,j,k,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
746 |
COST_AVERAGESFIELDS |
& *_dxG(i,j,bi,bj)*drF(k)*_hFacS(i,j,k,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
80 |
COST_AVERAGESFIELDS |
integer i,j |
|
./pkg/ecco/cost_averagesgeneric.F |
119 |
COST_AVERAGESGENERIC |
do i = imin,imax |
|
./pkg/ecco/cost_averagesgeneric.F |
120 |
COST_AVERAGESGENERIC |
localbar(i,j,k,bi,bj) = localfld(i,j,k,bi,bj) |
|
./pkg/ecco/cost_averagesgeneric.F |
153 |
COST_AVERAGESGENERIC |
do i = imin,imax |
|
./pkg/ecco/cost_averagesgeneric.F |
154 |
COST_AVERAGESGENERIC |
localbar(i,j,k,bi,bj) = localfld(i,j,k,bi,bj) |
|
./pkg/ecco/cost_averagesgeneric.F |
166 |
COST_AVERAGESGENERIC |
do i = imin,imax |
|
./pkg/ecco/cost_averagesgeneric.F |
167 |
COST_AVERAGESGENERIC |
localbar(i,j,k,bi,bj) = |
|
./pkg/ecco/cost_averagesgeneric.F |
168 |
COST_AVERAGESGENERIC |
& (localbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_averagesgeneric.F |
169 |
COST_AVERAGESGENERIC |
& +localfld(i,j,k,bi,bj))/ |
|
./pkg/ecco/cost_averagesgeneric.F |
204 |
COST_AVERAGESGENERIC |
do i = imin,imax |
|
./pkg/ecco/cost_averagesgeneric.F |
205 |
COST_AVERAGESGENERIC |
localbar(i,j,k,bi,bj) = |
|
./pkg/ecco/cost_averagesgeneric.F |
206 |
COST_AVERAGESGENERIC |
& localbar(i,j,k,bi,bj) + localfld(i,j,k,bi,bj) |
|
./pkg/ecco/cost_averagesgeneric.F |
56 |
COST_AVERAGESGENERIC |
integer i,j,k |
|
./pkg/ecco/cost_averagesinit.F |
106 |
COST_AVERAGESINIT |
do i = imin,imax |
|
./pkg/ecco/cost_averagesinit.F |
107 |
COST_AVERAGESINIT |
psbar(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
117 |
COST_AVERAGESINIT |
do i = imin,imax |
|
./pkg/ecco/cost_averagesinit.F |
118 |
COST_AVERAGESINIT |
bpbar(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
128 |
COST_AVERAGESINIT |
do i = imin,imax |
|
./pkg/ecco/cost_averagesinit.F |
129 |
COST_AVERAGESINIT |
iestaubar(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
139 |
COST_AVERAGESINIT |
do i = imin,imax |
|
./pkg/ecco/cost_averagesinit.F |
140 |
COST_AVERAGESINIT |
sigmaRbar(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
156 |
COST_AVERAGESINIT |
do i = imin,imax |
|
./pkg/ecco/cost_averagesinit.F |
157 |
COST_AVERAGESINIT |
tbar(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
168 |
COST_AVERAGESINIT |
do i = imin,imax |
|
./pkg/ecco/cost_averagesinit.F |
169 |
COST_AVERAGESINIT |
tbar(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
181 |
COST_AVERAGESINIT |
do i = imin,imax |
|
./pkg/ecco/cost_averagesinit.F |
182 |
COST_AVERAGESINIT |
sstbar(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
195 |
COST_AVERAGESINIT |
do i = imin,imax |
|
./pkg/ecco/cost_averagesinit.F |
196 |
COST_AVERAGESINIT |
sbar(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
207 |
COST_AVERAGESINIT |
do i = imin,imax |
|
./pkg/ecco/cost_averagesinit.F |
208 |
COST_AVERAGESINIT |
sbar(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
221 |
COST_AVERAGESINIT |
do i = imin,imax |
|
./pkg/ecco/cost_averagesinit.F |
222 |
COST_AVERAGESINIT |
ubar(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
223 |
COST_AVERAGESINIT |
vbar(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
235 |
COST_AVERAGESINIT |
do i = imin,imax |
|
./pkg/ecco/cost_averagesinit.F |
236 |
COST_AVERAGESINIT |
wbar(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
247 |
COST_AVERAGESINIT |
do i = imin,imax |
|
./pkg/ecco/cost_averagesinit.F |
248 |
COST_AVERAGESINIT |
tauxbar(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
249 |
COST_AVERAGESINIT |
tauybar(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
259 |
COST_AVERAGESINIT |
do i = imin,imax |
|
./pkg/ecco/cost_averagesinit.F |
260 |
COST_AVERAGESINIT |
hfluxmeanbar(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
269 |
COST_AVERAGESINIT |
do i = imin,imax |
|
./pkg/ecco/cost_averagesinit.F |
270 |
COST_AVERAGESINIT |
sfluxmeanbar(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
281 |
COST_AVERAGESINIT |
do i = imin,imax |
|
./pkg/ecco/cost_averagesinit.F |
282 |
COST_AVERAGESINIT |
smrareabar(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
283 |
COST_AVERAGESINIT |
smrsstbar(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
284 |
COST_AVERAGESINIT |
smrsssbar(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
57 |
COST_AVERAGESINIT |
integer i,j,k,kk |
|
./pkg/ecco/cost_averagesinit.F |
82 |
COST_AVERAGESINIT |
do i = imin,imax |
|
./pkg/ecco/cost_averagesinit.F |
83 |
COST_AVERAGESINIT |
gencost_barfld(i,j,bi,bj,k) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
84 |
COST_AVERAGESINIT |
gencost_modfld(i,j,bi,bj,k) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
92 |
COST_AVERAGESINIT |
do i = imin,imax |
|
./pkg/ecco/cost_averagesinit.F |
94 |
COST_AVERAGESINIT |
gencost_bar3d(i,j,k,bi,bj,kk) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
95 |
COST_AVERAGESINIT |
gencost_mod3d(i,j,k,bi,bj,kk) = 0. _d 0 |
|
./pkg/ecco/cost_bp_read.F |
125 |
COST_BP_READ |
do i = imin,imax |
|
./pkg/ecco/cost_bp_read.F |
126 |
COST_BP_READ |
localobs(i,j,bi,bj) = spval |
|
./pkg/ecco/cost_bp_read.F |
139 |
COST_BP_READ |
do i = imin,imax |
|
./pkg/ecco/cost_bp_read.F |
145 |
COST_BP_READ |
if (localobs(i,j,bi,bj) .le. spval) then |
|
./pkg/ecco/cost_bp_read.F |
146 |
COST_BP_READ |
localmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_bp_read.F |
148 |
COST_BP_READ |
localmask(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/cost_bp_read.F |
150 |
COST_BP_READ |
localobs(i,j,bi,bj) = localobs(i,j,bi,bj)* |
|
./pkg/ecco/cost_bp_read.F |
151 |
COST_BP_READ |
& localmask(i,j,bi,bj) |
|
./pkg/ecco/cost_bp_read.F |
152 |
COST_BP_READ |
nobs = nobs + int(localmask(i,j,bi,bj)) |
|
./pkg/ecco/cost_bp_read.F |
54 |
COST_BP_READ |
integer i,j,k |
|
./pkg/ecco/cost_gencost_boxmean.F |
143 |
COST_GENCOST_BOXMEAN |
do i = 1,sNx |
|
./pkg/ecco/cost_gencost_boxmean.F |
146 |
COST_GENCOST_BOXMEAN |
& +gencost_mskTemporal*mybar(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_boxmean.F |
150 |
COST_GENCOST_BOXMEAN |
& +gencost_mskTemporal*mybar(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_boxmean.F |
50 |
COST_GENCOST_BOXMEAN |
integer i,j,k |
|
./pkg/ecco/cost_gencost_bpv4.F |
111 |
COST_GENCOST_BPV4 |
do i = 1,snx |
|
./pkg/ecco/cost_gencost_bpv4.F |
112 |
COST_GENCOST_BPV4 |
bpdifmean(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_bpv4.F |
113 |
COST_GENCOST_BPV4 |
bpdifanom(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_bpv4.F |
114 |
COST_GENCOST_BPV4 |
bpdatmean(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_bpv4.F |
115 |
COST_GENCOST_BPV4 |
bpdatanom(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_bpv4.F |
116 |
COST_GENCOST_BPV4 |
bpcount(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_bpv4.F |
117 |
COST_GENCOST_BPV4 |
locwbp(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_bpv4.F |
118 |
COST_GENCOST_BPV4 |
locbpbar(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_bpv4.F |
119 |
COST_GENCOST_BPV4 |
locbpdat(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_bpv4.F |
120 |
COST_GENCOST_BPV4 |
locbpmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_bpv4.F |
134 |
COST_GENCOST_BPV4 |
do i = 1,snx |
|
./pkg/ecco/cost_gencost_bpv4.F |
135 |
COST_GENCOST_BPV4 |
locwbp(i,j,bi,bj) = gencost_weight(i,j,bi,bj,kgen) |
|
./pkg/ecco/cost_gencost_bpv4.F |
173 |
COST_GENCOST_BPV4 |
do i = 1,snx |
|
./pkg/ecco/cost_gencost_bpv4.F |
174 |
COST_GENCOST_BPV4 |
if ( (locbpmask(i,j,bi,bj).NE. 0. _d 0).AND. |
|
./pkg/ecco/cost_gencost_bpv4.F |
175 |
COST_GENCOST_BPV4 |
& (maskc(i,j,1,bi,bj).NE. 0. _d 0) ) then |
|
./pkg/ecco/cost_gencost_bpv4.F |
176 |
COST_GENCOST_BPV4 |
bpdifmean(i,j,bi,bj) = bpdifmean(i,j,bi,bj) + |
|
./pkg/ecco/cost_gencost_bpv4.F |
177 |
COST_GENCOST_BPV4 |
& ( fac*locbpbar(i,j,bi,bj) - locbpdat(i,j,bi,bj) ) |
|
./pkg/ecco/cost_gencost_bpv4.F |
178 |
COST_GENCOST_BPV4 |
bpdatmean(i,j,bi,bj) = bpdatmean(i,j,bi,bj) + |
|
./pkg/ecco/cost_gencost_bpv4.F |
179 |
COST_GENCOST_BPV4 |
& locbpdat(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_bpv4.F |
180 |
COST_GENCOST_BPV4 |
bpcount(i,j,bi,bj) = bpcount(i,j,bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_gencost_bpv4.F |
192 |
COST_GENCOST_BPV4 |
do i = 1,snx |
|
./pkg/ecco/cost_gencost_bpv4.F |
193 |
COST_GENCOST_BPV4 |
if (bpcount(i,j,bi,bj).GT. 0. _d 0) then |
|
./pkg/ecco/cost_gencost_bpv4.F |
194 |
COST_GENCOST_BPV4 |
bpdifmean(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_bpv4.F |
195 |
COST_GENCOST_BPV4 |
& bpdifmean(i,j,bi,bj)/bpcount(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_bpv4.F |
196 |
COST_GENCOST_BPV4 |
bpdatmean(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_bpv4.F |
197 |
COST_GENCOST_BPV4 |
& bpdatmean(i,j,bi,bj)/bpcount(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_bpv4.F |
227 |
COST_GENCOST_BPV4 |
do i = 1,snx |
|
./pkg/ecco/cost_gencost_bpv4.F |
228 |
COST_GENCOST_BPV4 |
if ( (locbpmask(i,j,bi,bj).NE. 0. _d 0).AND. |
|
./pkg/ecco/cost_gencost_bpv4.F |
229 |
COST_GENCOST_BPV4 |
& (maskc(i,j,1,bi,bj).NE. 0. _d 0) ) then |
|
./pkg/ecco/cost_gencost_bpv4.F |
230 |
COST_GENCOST_BPV4 |
bpdifanom(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_bpv4.F |
231 |
COST_GENCOST_BPV4 |
& ( fac*locbpbar(i,j,bi,bj) - locbpdat(i,j,bi,bj) ) |
|
./pkg/ecco/cost_gencost_bpv4.F |
232 |
COST_GENCOST_BPV4 |
& - bpdifmean(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_bpv4.F |
233 |
COST_GENCOST_BPV4 |
bpdatanom(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_bpv4.F |
234 |
COST_GENCOST_BPV4 |
& locbpdat(i,j,bi,bj) - bpdatmean(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_bpv4.F |
236 |
COST_GENCOST_BPV4 |
bpdifanom(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_bpv4.F |
237 |
COST_GENCOST_BPV4 |
bpdatanom(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_bpv4.F |
251 |
COST_GENCOST_BPV4 |
do i = 1,snx |
|
./pkg/ecco/cost_gencost_bpv4.F |
252 |
COST_GENCOST_BPV4 |
if ( (locbpmask(i,j,bi,bj).NE. 0. _d 0).AND. |
|
./pkg/ecco/cost_gencost_bpv4.F |
253 |
COST_GENCOST_BPV4 |
& (maskc(i,j,1,bi,bj).NE. 0. _d 0) ) then |
|
./pkg/ecco/cost_gencost_bpv4.F |
254 |
COST_GENCOST_BPV4 |
offset = offset + RA(i,j,bi,bj)*bpdifanom(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_bpv4.F |
255 |
COST_GENCOST_BPV4 |
offset_sum = offset_sum + RA(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_bpv4.F |
268 |
COST_GENCOST_BPV4 |
do i = 1,snx |
|
./pkg/ecco/cost_gencost_bpv4.F |
270 |
COST_GENCOST_BPV4 |
& (locbpmask(i,j,bi,bj).NE. 0. _d 0).AND. |
|
./pkg/ecco/cost_gencost_bpv4.F |
271 |
COST_GENCOST_BPV4 |
& (maskc(i,j,1,bi,bj).NE. 0. _d 0)) then |
|
./pkg/ecco/cost_gencost_bpv4.F |
272 |
COST_GENCOST_BPV4 |
bpdifanom(i,j,bi,bj) = bpdifanom(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_bpv4.F |
313 |
COST_GENCOST_BPV4 |
do i = 1,snx |
|
./pkg/ecco/cost_gencost_bpv4.F |
315 |
COST_GENCOST_BPV4 |
if ( (locwbp(i,j,bi,bj).NE. 0. _d 0).AND. |
|
./pkg/ecco/cost_gencost_bpv4.F |
316 |
COST_GENCOST_BPV4 |
& (locbpmask(i,j,bi,bj).NE. 0. _d 0).AND. |
|
./pkg/ecco/cost_gencost_bpv4.F |
317 |
COST_GENCOST_BPV4 |
& (maskc(i,j,1,bi,bj).NE. 0. _d 0) ) then |
|
./pkg/ecco/cost_gencost_bpv4.F |
318 |
COST_GENCOST_BPV4 |
junk = bpdifanom(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_bpv4.F |
320 |
COST_GENCOST_BPV4 |
& + junk*junk*locwbp(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_bpv4.F |
48 |
COST_GENCOST_BPV4 |
integer i,j |
|
./pkg/ecco/cost_gencost_customize.F |
100 |
COST_GENCOST_CUSTOMIZE |
& -angleSinC(i,j,bi,bj)*vBarC |
|
./pkg/ecco/cost_gencost_customize.F |
101 |
COST_GENCOST_CUSTOMIZE |
mertau(i,j,bi,bj) = angleSinC(i,j,bi,bj)*uBarC |
|
./pkg/ecco/cost_gencost_customize.F |
102 |
COST_GENCOST_CUSTOMIZE |
& +angleCosC(i,j,bi,bj)*vBarC |
|
./pkg/ecco/cost_gencost_customize.F |
121 |
COST_GENCOST_CUSTOMIZE |
do i = imin,imax |
|
./pkg/ecco/cost_gencost_customize.F |
124 |
COST_GENCOST_CUSTOMIZE |
gencost_modfld(i,j,bi,bj,k) = |
|
./pkg/ecco/cost_gencost_customize.F |
125 |
COST_GENCOST_CUSTOMIZE |
& m_eta(i,j,bi,bj)*maskC(i,j,1,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
127 |
COST_GENCOST_CUSTOMIZE |
gencost_modfld(i,j,bi,bj,k) = |
|
./pkg/ecco/cost_gencost_customize.F |
128 |
COST_GENCOST_CUSTOMIZE |
& gencost_storefld(i,j,bi,bj,k) |
|
./pkg/ecco/cost_gencost_customize.F |
130 |
COST_GENCOST_CUSTOMIZE |
gencost_modfld(i,j,bi,bj,k) = |
|
./pkg/ecco/cost_gencost_customize.F |
131 |
COST_GENCOST_CUSTOMIZE |
& gencost_storefld(i,j,bi,bj,k) |
|
./pkg/ecco/cost_gencost_customize.F |
133 |
COST_GENCOST_CUSTOMIZE |
gencost_modfld(i,j,bi,bj,k) = |
|
./pkg/ecco/cost_gencost_customize.F |
134 |
COST_GENCOST_CUSTOMIZE |
& THETA(i,j,1,bi,bj)*maskC(i,j,1,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
136 |
COST_GENCOST_CUSTOMIZE |
gencost_modfld(i,j,bi,bj,k) = |
|
./pkg/ecco/cost_gencost_customize.F |
137 |
COST_GENCOST_CUSTOMIZE |
& SALT(i,j,1,bi,bj)*maskC(i,j,1,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
139 |
COST_GENCOST_CUSTOMIZE |
gencost_modfld(i,j,bi,bj,k) = |
|
./pkg/ecco/cost_gencost_customize.F |
140 |
COST_GENCOST_CUSTOMIZE |
& (phiHydLow(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
146 |
COST_GENCOST_CUSTOMIZE |
& )*maskC(i,j,1,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
150 |
COST_GENCOST_CUSTOMIZE |
gencost_modfld(i,j,bi,bj,k) = |
|
./pkg/ecco/cost_gencost_customize.F |
151 |
COST_GENCOST_CUSTOMIZE |
& geothermalFlux(i,j,bi,bj)*maskC(i,j,1,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
155 |
COST_GENCOST_CUSTOMIZE |
gencost_modfld(i,j,bi,bj,k) = |
|
./pkg/ecco/cost_gencost_customize.F |
156 |
COST_GENCOST_CUSTOMIZE |
& zontau(i,j,bi,bj)*maskC(i,j,1,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
158 |
COST_GENCOST_CUSTOMIZE |
gencost_modfld(i,j,bi,bj,k) = |
|
./pkg/ecco/cost_gencost_customize.F |
159 |
COST_GENCOST_CUSTOMIZE |
& mertau(i,j,bi,bj)*maskC(i,j,1,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
161 |
COST_GENCOST_CUSTOMIZE |
gencost_modfld(i,j,bi,bj,k) = |
|
./pkg/ecco/cost_gencost_customize.F |
162 |
COST_GENCOST_CUSTOMIZE |
& zonwind(i,j,bi,bj)*maskC(i,j,1,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
164 |
COST_GENCOST_CUSTOMIZE |
gencost_modfld(i,j,bi,bj,k) = |
|
./pkg/ecco/cost_gencost_customize.F |
165 |
COST_GENCOST_CUSTOMIZE |
& merwind(i,j,bi,bj)*maskC(i,j,1,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
168 |
COST_GENCOST_CUSTOMIZE |
gencost_modfld(i,j,bi,bj,k) = |
|
./pkg/ecco/cost_gencost_customize.F |
169 |
COST_GENCOST_CUSTOMIZE |
& atemp(i,j,bi,bj)*maskC(i,j,1,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
171 |
COST_GENCOST_CUSTOMIZE |
gencost_modfld(i,j,bi,bj,k) = |
|
./pkg/ecco/cost_gencost_customize.F |
172 |
COST_GENCOST_CUSTOMIZE |
& aqh(i,j,bi,bj)*maskC(i,j,1,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
174 |
COST_GENCOST_CUSTOMIZE |
gencost_modfld(i,j,bi,bj,k) = |
|
./pkg/ecco/cost_gencost_customize.F |
175 |
COST_GENCOST_CUSTOMIZE |
& precip(i,j,bi,bj)*maskC(i,j,1,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
179 |
COST_GENCOST_CUSTOMIZE |
gencost_modfld(i,j,bi,bj,k) = |
|
./pkg/ecco/cost_gencost_customize.F |
180 |
COST_GENCOST_CUSTOMIZE |
& swdown(i,j,bi,bj)*maskC(i,j,1,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
182 |
COST_GENCOST_CUSTOMIZE |
gencost_modfld(i,j,bi,bj,k) = |
|
./pkg/ecco/cost_gencost_customize.F |
183 |
COST_GENCOST_CUSTOMIZE |
& lwdown(i,j,bi,bj)*maskC(i,j,1,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
186 |
COST_GENCOST_CUSTOMIZE |
gencost_modfld(i,j,bi,bj,k) = |
|
./pkg/ecco/cost_gencost_customize.F |
187 |
COST_GENCOST_CUSTOMIZE |
& wspeed(i,j,bi,bj)*maskC(i,j,1,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
192 |
COST_GENCOST_CUSTOMIZE |
gencost_modfld(i,j,bi,bj,k) = |
|
./pkg/ecco/cost_gencost_customize.F |
193 |
COST_GENCOST_CUSTOMIZE |
& bottomDragFld(i,j,bi,bj)*maskC(i,j,1,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
199 |
COST_GENCOST_CUSTOMIZE |
gencost_modfld(i,j,bi,bj,k) = |
|
./pkg/ecco/cost_gencost_customize.F |
200 |
COST_GENCOST_CUSTOMIZE |
& area(i,j,bi,bj)*maskC(i,j,1,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
202 |
COST_GENCOST_CUSTOMIZE |
gencost_modfld(i,j,bi,bj,k) = |
|
./pkg/ecco/cost_gencost_customize.F |
203 |
COST_GENCOST_CUSTOMIZE |
& theta(i,j,1,bi,bj)*maskC(i,j,1,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
206 |
COST_GENCOST_CUSTOMIZE |
gencost_modfld(i,j,bi,bj,k) = |
|
./pkg/ecco/cost_gencost_customize.F |
207 |
COST_GENCOST_CUSTOMIZE |
& heff(i,j,bi,bj)*maskC(i,j,1,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
209 |
COST_GENCOST_CUSTOMIZE |
gencost_modfld(i,j,bi,bj,k) = |
|
./pkg/ecco/cost_gencost_customize.F |
210 |
COST_GENCOST_CUSTOMIZE |
& hsnow(i,j,bi,bj)*maskC(i,j,1,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
216 |
COST_GENCOST_CUSTOMIZE |
gencost_mod3d(i,j,k2,bi,bj,kk) = |
|
./pkg/ecco/cost_gencost_customize.F |
217 |
COST_GENCOST_CUSTOMIZE |
& theta(i,j,k2,bi,bj)*maskC(i,j,k2,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
222 |
COST_GENCOST_CUSTOMIZE |
gencost_mod3d(i,j,k2,bi,bj,kk) = |
|
./pkg/ecco/cost_gencost_customize.F |
223 |
COST_GENCOST_CUSTOMIZE |
& salt(i,j,k2,bi,bj)*maskC(i,j,k2,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
229 |
COST_GENCOST_CUSTOMIZE |
gencost_mod3d(i,j,k2,bi,bj,kk) = |
|
./pkg/ecco/cost_gencost_customize.F |
230 |
COST_GENCOST_CUSTOMIZE |
& pTracer(i,j,k2,bi,bj,itr)*maskC(i,j,k2,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
236 |
COST_GENCOST_CUSTOMIZE |
gencost_mod3d(i,j,k2,bi,bj,kk) = |
|
./pkg/ecco/cost_gencost_customize.F |
237 |
COST_GENCOST_CUSTOMIZE |
& m_UE(i,j,k2,bi,bj)*maskC(i,j,k2,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
242 |
COST_GENCOST_CUSTOMIZE |
gencost_mod3d(i,j,k2,bi,bj,kk) = |
|
./pkg/ecco/cost_gencost_customize.F |
243 |
COST_GENCOST_CUSTOMIZE |
& m_VN(i,j,k2,bi,bj)*maskC(i,j,k2,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
248 |
COST_GENCOST_CUSTOMIZE |
gencost_mod3d(i,j,k2,bi,bj,kk) = trVol(i,j,k2,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
253 |
COST_GENCOST_CUSTOMIZE |
gencost_mod3d(i,j,k2,bi,bj,kk) = trHeat(i,j,k2,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
258 |
COST_GENCOST_CUSTOMIZE |
gencost_mod3d(i,j,k2,bi,bj,kk) = trSalt(i,j,k2,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
264 |
COST_GENCOST_CUSTOMIZE |
gencost_mod3d(i,j,k2,bi,bj,kk) = |
|
./pkg/ecco/cost_gencost_customize.F |
265 |
COST_GENCOST_CUSTOMIZE |
& diffkr(i,j,k2,bi,bj)*maskC(i,j,k2,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
273 |
COST_GENCOST_CUSTOMIZE |
gencost_mod3d(i,j,k2,bi,bj,kk) = |
|
./pkg/ecco/cost_gencost_customize.F |
274 |
COST_GENCOST_CUSTOMIZE |
& kapgm(i,j,k2,bi,bj)*maskC(i,j,k2,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
281 |
COST_GENCOST_CUSTOMIZE |
gencost_mod3d(i,j,k2,bi,bj,kk) = |
|
./pkg/ecco/cost_gencost_customize.F |
282 |
COST_GENCOST_CUSTOMIZE |
& kapredi(i,j,k2,bi,bj)*maskC(i,j,k2,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
60 |
COST_GENCOST_CUSTOMIZE |
integer i,j,k |
|
./pkg/ecco/cost_gencost_customize.F |
94 |
COST_GENCOST_CUSTOMIZE |
do i = imin,imax |
|
./pkg/ecco/cost_gencost_customize.F |
96 |
COST_GENCOST_CUSTOMIZE |
& *(ustress(i,j,bi,bj)+ustress(i+1,j,bi,bj)) |
|
./pkg/ecco/cost_gencost_customize.F |
98 |
COST_GENCOST_CUSTOMIZE |
& *(vstress(i,j,bi,bj)+vstress(i,j+1,bi,bj)) |
|
./pkg/ecco/cost_gencost_customize.F |
99 |
COST_GENCOST_CUSTOMIZE |
zontau(i,j,bi,bj) = angleCosC(i,j,bi,bj)*uBarC |
|
./pkg/ecco/cost_gencost_glbmean.F |
116 |
COST_GENCOST_GLBMEAN |
do i = 1,snx |
|
./pkg/ecco/cost_gencost_glbmean.F |
117 |
COST_GENCOST_GLBMEAN |
locbarmean(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_glbmean.F |
118 |
COST_GENCOST_GLBMEAN |
locbaranom(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_glbmean.F |
119 |
COST_GENCOST_GLBMEAN |
loccount(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_glbmean.F |
120 |
COST_GENCOST_GLBMEAN |
locbar(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_glbmean.F |
184 |
COST_GENCOST_GLBMEAN |
do i = 1,snx |
|
./pkg/ecco/cost_gencost_glbmean.F |
185 |
COST_GENCOST_GLBMEAN |
if ( maskc(i,j,1,bi,bj).NE. 0. _d 0 ) then |
|
./pkg/ecco/cost_gencost_glbmean.F |
186 |
COST_GENCOST_GLBMEAN |
locbarmean(i,j,bi,bj) = locbarmean(i,j,bi,bj) + |
|
./pkg/ecco/cost_gencost_glbmean.F |
187 |
COST_GENCOST_GLBMEAN |
& fac*locbar(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_glbmean.F |
188 |
COST_GENCOST_GLBMEAN |
loccount(i,j,bi,bj) = loccount(i,j,bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_gencost_glbmean.F |
201 |
COST_GENCOST_GLBMEAN |
do i = 1,snx |
|
./pkg/ecco/cost_gencost_glbmean.F |
202 |
COST_GENCOST_GLBMEAN |
if (loccount(i,j,bi,bj).GT. 0. _d 0) then |
|
./pkg/ecco/cost_gencost_glbmean.F |
203 |
COST_GENCOST_GLBMEAN |
locbarmean(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_glbmean.F |
204 |
COST_GENCOST_GLBMEAN |
& locbarmean(i,j,bi,bj)/loccount(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_glbmean.F |
227 |
COST_GENCOST_GLBMEAN |
do i = 1,snx |
|
./pkg/ecco/cost_gencost_glbmean.F |
228 |
COST_GENCOST_GLBMEAN |
if ( maskc(i,j,1,bi,bj).NE. 0. _d 0) then |
|
./pkg/ecco/cost_gencost_glbmean.F |
229 |
COST_GENCOST_GLBMEAN |
locbaranom(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_glbmean.F |
230 |
COST_GENCOST_GLBMEAN |
& fac*locbar(i,j,bi,bj) - locbarmean(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_glbmean.F |
232 |
COST_GENCOST_GLBMEAN |
locbaranom(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_glbmean.F |
246 |
COST_GENCOST_GLBMEAN |
do i = 1,snx |
|
./pkg/ecco/cost_gencost_glbmean.F |
247 |
COST_GENCOST_GLBMEAN |
if ( maskc(i,j,1,bi,bj).NE. 0. _d 0) then |
|
./pkg/ecco/cost_gencost_glbmean.F |
249 |
COST_GENCOST_GLBMEAN |
& RA(i,j,bi,bj)*locbaranom(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_glbmean.F |
250 |
COST_GENCOST_GLBMEAN |
locbarglbmean_sum = locbarglbmean_sum + RA(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_glbmean.F |
49 |
COST_GENCOST_GLBMEAN |
integer i,j |
|
./pkg/ecco/cost_gencost_seaicev4.F |
407 |
GET_EXCONC_DECONC |
integer i,j,k |
|
./pkg/ecco/cost_gencost_seaicev4.F |
466 |
GET_EXCONC_DECONC |
do i = imin,imax |
|
./pkg/ecco/cost_gencost_seaicev4.F |
468 |
GET_EXCONC_DECONC |
if ( (concbar(i,j,k,bi,bj) .LE. 0.).AND. |
|
./pkg/ecco/cost_gencost_seaicev4.F |
469 |
GET_EXCONC_DECONC |
& (localobs(i,j,k,bi,bj) .GT. 0.) ) then |
|
./pkg/ecco/cost_gencost_seaicev4.F |
471 |
GET_EXCONC_DECONC |
localfldmsk(i,j,k,bi,bj) = localmask(i,j,k,bi,bj) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
474 |
GET_EXCONC_DECONC |
localfldweight(i,j,k,bi,bj) = localnormsq |
|
./pkg/ecco/cost_gencost_seaicev4.F |
476 |
GET_EXCONC_DECONC |
localfld(i,j,k,bi,bj) = |
|
./pkg/ecco/cost_gencost_seaicev4.F |
477 |
GET_EXCONC_DECONC |
& (deconcbar(i,j,k,bi,bj)-SEAICE_freeze)*const1 |
|
./pkg/ecco/cost_gencost_seaicev4.F |
502 |
GET_EXCONC_DECONC |
do i = imin,imax |
|
./pkg/ecco/cost_gencost_seaicev4.F |
504 |
GET_EXCONC_DECONC |
if ((localobs(i,j,k,bi,bj) .LE. SEAICE_cutoff_area).AND. |
|
./pkg/ecco/cost_gencost_seaicev4.F |
505 |
GET_EXCONC_DECONC |
& (exconcbar(i,j,k,bi,bj) .GT. SEAICE_cutoff_heff)) then |
|
./pkg/ecco/cost_gencost_seaicev4.F |
507 |
GET_EXCONC_DECONC |
localfldmsk(i,j,k,bi,bj) = localmask(i,j,k,bi,bj) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
509 |
GET_EXCONC_DECONC |
localfldweight(i,j,k,bi,bj) = localnormsq |
|
./pkg/ecco/cost_gencost_seaicev4.F |
511 |
GET_EXCONC_DECONC |
localfld(i,j,k,bi,bj) = |
|
./pkg/ecco/cost_gencost_seaicev4.F |
512 |
GET_EXCONC_DECONC |
& ( (deconcbar(i,j,k,bi,bj)-SEAICE_freeze)*const1 |
|
./pkg/ecco/cost_gencost_seaicev4.F |
514 |
GET_EXCONC_DECONC |
& - max(exconcbar(i,j,k,bi,bj),epsilonHEFF)* |
|
./pkg/ecco/cost_gencost_seaicev4.F |
516 |
GET_EXCONC_DECONC |
& - exconcbar(i,j,k,bi,bj)* |
|
./pkg/ecco/cost_gencost_seaicev4.F |
73 |
COST_GENCOST_SEAICEV4 |
integer i,j,k |
|
./pkg/ecco/cost_gencost_sshv4.F |
1000 |
COST_GENCOST_SSHV4 |
& etaday(i,j,bi,bj)-ersob(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1001 |
COST_GENCOST_SSHV4 |
& -mean_psMslaobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1002 |
COST_GENCOST_SSHV4 |
anom_slaobs(i,j,bi,bj)= anom_slaobs(i,j,bi,bj)+ |
|
./pkg/ecco/cost_gencost_sshv4.F |
1003 |
COST_GENCOST_SSHV4 |
& ersob(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1004 |
COST_GENCOST_SSHV4 |
anom_psMslaobs_NUM(i,j,bi,bj)= |
|
./pkg/ecco/cost_gencost_sshv4.F |
1005 |
COST_GENCOST_SSHV4 |
& anom_psMslaobs_NUM(i,j,bi,bj)+1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1007 |
COST_GENCOST_SSHV4 |
& anom_psMslaobs_MSK(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1009 |
COST_GENCOST_SSHV4 |
if ( gfoma(i,j,bi,bj)*mean_psMslaobs_MSK(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1011 |
COST_GENCOST_SSHV4 |
anom_psMslaobs(i,j,bi,bj)= anom_psMslaobs(i,j,bi,bj)+ |
|
./pkg/ecco/cost_gencost_sshv4.F |
1012 |
COST_GENCOST_SSHV4 |
& etaday(i,j,bi,bj)-gfoob(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1013 |
COST_GENCOST_SSHV4 |
& -mean_psMslaobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1014 |
COST_GENCOST_SSHV4 |
anom_slaobs(i,j,bi,bj)= anom_slaobs(i,j,bi,bj)+ |
|
./pkg/ecco/cost_gencost_sshv4.F |
1015 |
COST_GENCOST_SSHV4 |
& gfoob(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1016 |
COST_GENCOST_SSHV4 |
anom_psMslaobs_NUM(i,j,bi,bj)= |
|
./pkg/ecco/cost_gencost_sshv4.F |
1017 |
COST_GENCOST_SSHV4 |
& anom_psMslaobs_NUM(i,j,bi,bj)+1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1019 |
COST_GENCOST_SSHV4 |
& anom_psMslaobs_MSK(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1031 |
COST_GENCOST_SSHV4 |
do i = imin,imax |
|
./pkg/ecco/cost_gencost_sshv4.F |
1032 |
COST_GENCOST_SSHV4 |
if ( ( anom_psMslaobs_NUM(i,j,bi,bj) .NE. 0. ).AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
1033 |
COST_GENCOST_SSHV4 |
& ( maskc(i,j,1,bi,bj) .NE. 0. ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1035 |
COST_GENCOST_SSHV4 |
anom_psMslaobs(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
1036 |
COST_GENCOST_SSHV4 |
& anom_psMslaobs(i,j,bi,bj) / |
|
./pkg/ecco/cost_gencost_sshv4.F |
1037 |
COST_GENCOST_SSHV4 |
& anom_psMslaobs_NUM(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1038 |
COST_GENCOST_SSHV4 |
anom_slaobs(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
1039 |
COST_GENCOST_SSHV4 |
& anom_slaobs(i,j,bi,bj) / |
|
./pkg/ecco/cost_gencost_sshv4.F |
1040 |
COST_GENCOST_SSHV4 |
& anom_psMslaobs_NUM(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1042 |
COST_GENCOST_SSHV4 |
anom_psMslaobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1043 |
COST_GENCOST_SSHV4 |
anom_slaobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1060 |
COST_GENCOST_SSHV4 |
do i = imin,imax |
|
./pkg/ecco/cost_gencost_sshv4.F |
1061 |
COST_GENCOST_SSHV4 |
if ( ( anom_psMslaobs_NUM(i,j,bi,bj) .NE. 0. ).AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
1062 |
COST_GENCOST_SSHV4 |
& ( maskc(i,j,1,bi,bj) .NE. 0. ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1064 |
COST_GENCOST_SSHV4 |
slaoffset=slaoffset+RA(i,j,bi,bj)* |
|
./pkg/ecco/cost_gencost_sshv4.F |
1065 |
COST_GENCOST_SSHV4 |
& anom_psMslaobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1066 |
COST_GENCOST_SSHV4 |
slaoffset_sum=slaoffset_sum+RA(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1070 |
COST_GENCOST_SSHV4 |
& gencost_weight(i,j,bi,bj,igen_lsc) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1108 |
COST_GENCOST_SSHV4 |
do i = imin,imax |
|
./pkg/ecco/cost_gencost_sshv4.F |
1109 |
COST_GENCOST_SSHV4 |
if ( ( anom_psMslaobs_NUM(i,j,bi,bj) .NE. 0. ).AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
1110 |
COST_GENCOST_SSHV4 |
& ( maskc(i,j,1,bi,bj) .NE. 0. ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1112 |
COST_GENCOST_SSHV4 |
anom_psMslaobs(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
1113 |
COST_GENCOST_SSHV4 |
& anom_psMslaobs(i,j,bi,bj) - slaoffset |
|
./pkg/ecco/cost_gencost_sshv4.F |
1114 |
COST_GENCOST_SSHV4 |
anom_slaobs(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
1115 |
COST_GENCOST_SSHV4 |
& anom_slaobs(i,j,bi,bj) - slaoffset |
|
./pkg/ecco/cost_gencost_sshv4.F |
1117 |
COST_GENCOST_SSHV4 |
anom_psMslaobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1118 |
COST_GENCOST_SSHV4 |
anom_slaobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1168 |
COST_GENCOST_SSHV4 |
do i = imin,imax |
|
./pkg/ecco/cost_gencost_sshv4.F |
1169 |
COST_GENCOST_SSHV4 |
if ( (gencost_weight(i,j,bi,bj,igen_lsc).GT.0.).AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
1170 |
COST_GENCOST_SSHV4 |
& (anom_psMslaobs_MSK(i,j,bi,bj).GT.0.) ) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
1171 |
COST_GENCOST_SSHV4 |
junk = anom_psMslaobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1172 |
COST_GENCOST_SSHV4 |
anom_slaobs_SUB(i,j,bi,bj) = anom_slaobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1173 |
COST_GENCOST_SSHV4 |
anom_psMslaobs_SUB(i,j,bi,bj) = anom_psMslaobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1176 |
COST_GENCOST_SSHV4 |
anom_slaobs_SUB(i,j,bi,bj)= 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1177 |
COST_GENCOST_SSHV4 |
anom_psMslaobs_SUB(i,j,bi,bj)= 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1180 |
COST_GENCOST_SSHV4 |
& + junk*junk*gencost_weight(i,j,bi,bj,igen_lsc) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1181 |
COST_GENCOST_SSHV4 |
if ( (gencost_weight(i,j,bi,bj,igen_lsc).GT.0.).AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
1182 |
COST_GENCOST_SSHV4 |
& (anom_psMslaobs_MSK(i,j,bi,bj).GT.0.) ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1236 |
COST_GENCOST_SSHV4 |
do i = imin,imax |
|
./pkg/ecco/cost_gencost_sshv4.F |
1237 |
COST_GENCOST_SSHV4 |
tpma(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1238 |
COST_GENCOST_SSHV4 |
tpob(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1239 |
COST_GENCOST_SSHV4 |
ersma(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1240 |
COST_GENCOST_SSHV4 |
ersob(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1241 |
COST_GENCOST_SSHV4 |
gfoma(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1242 |
COST_GENCOST_SSHV4 |
gfoob(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1267 |
COST_GENCOST_SSHV4 |
do i = imin,imax |
|
./pkg/ecco/cost_gencost_sshv4.F |
1268 |
COST_GENCOST_SSHV4 |
anom_psMtpobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1269 |
COST_GENCOST_SSHV4 |
anom_psMersobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1270 |
COST_GENCOST_SSHV4 |
anom_psMgfoobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1271 |
COST_GENCOST_SSHV4 |
anom_tpobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1272 |
COST_GENCOST_SSHV4 |
anom_ersobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1273 |
COST_GENCOST_SSHV4 |
anom_gfoobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1282 |
COST_GENCOST_SSHV4 |
do i = imin,imax |
|
./pkg/ecco/cost_gencost_sshv4.F |
1283 |
COST_GENCOST_SSHV4 |
if ( tpma(i,j,bi,bj)*mean_psMslaobs_MSK(i,j,bi,bj).NE.0. ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1285 |
COST_GENCOST_SSHV4 |
anom_psMtpobs(i,j,bi,bj)= |
|
./pkg/ecco/cost_gencost_sshv4.F |
1286 |
COST_GENCOST_SSHV4 |
& etaday(i,j,bi,bj) - tpob(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1287 |
COST_GENCOST_SSHV4 |
& - mean_psMslaobs(i,j,bi,bj) - slaoffset |
|
./pkg/ecco/cost_gencost_sshv4.F |
1288 |
COST_GENCOST_SSHV4 |
& - anom_psMslaobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1289 |
COST_GENCOST_SSHV4 |
anom_tpobs(i,j,bi,bj)=tpob(i,j,bi,bj) - slaoffset |
|
./pkg/ecco/cost_gencost_sshv4.F |
1290 |
COST_GENCOST_SSHV4 |
& - anom_slaobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1292 |
COST_GENCOST_SSHV4 |
if ( ersma(i,j,bi,bj)*mean_psMslaobs_MSK(i,j,bi,bj).NE.0. ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1294 |
COST_GENCOST_SSHV4 |
anom_psMersobs(i,j,bi,bj)= |
|
./pkg/ecco/cost_gencost_sshv4.F |
1295 |
COST_GENCOST_SSHV4 |
& etaday(i,j,bi,bj) - ersob(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1296 |
COST_GENCOST_SSHV4 |
& - mean_psMslaobs(i,j,bi,bj) - slaoffset |
|
./pkg/ecco/cost_gencost_sshv4.F |
1297 |
COST_GENCOST_SSHV4 |
& - anom_psMslaobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1298 |
COST_GENCOST_SSHV4 |
anom_ersobs(i,j,bi,bj)=ersob(i,j,bi,bj) - slaoffset |
|
./pkg/ecco/cost_gencost_sshv4.F |
1299 |
COST_GENCOST_SSHV4 |
& - anom_slaobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1301 |
COST_GENCOST_SSHV4 |
if ( gfoma(i,j,bi,bj)*mean_psMslaobs_MSK(i,j,bi,bj).NE.0. ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1303 |
COST_GENCOST_SSHV4 |
anom_psMgfoobs(i,j,bi,bj)= |
|
./pkg/ecco/cost_gencost_sshv4.F |
1304 |
COST_GENCOST_SSHV4 |
& etaday(i,j,bi,bj) - gfoob(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1305 |
COST_GENCOST_SSHV4 |
& - mean_psMslaobs(i,j,bi,bj) - slaoffset |
|
./pkg/ecco/cost_gencost_sshv4.F |
1306 |
COST_GENCOST_SSHV4 |
& - anom_psMslaobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1307 |
COST_GENCOST_SSHV4 |
anom_gfoobs(i,j,bi,bj)=gfoob(i,j,bi,bj) - slaoffset |
|
./pkg/ecco/cost_gencost_sshv4.F |
1308 |
COST_GENCOST_SSHV4 |
& - anom_slaobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1345 |
COST_GENCOST_SSHV4 |
do i = imin,imax |
|
./pkg/ecco/cost_gencost_sshv4.F |
1347 |
COST_GENCOST_SSHV4 |
junkweight = mean_psMslaobs_MSK(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1348 |
COST_GENCOST_SSHV4 |
& *gencost_weight(i,j,bi,bj,igen_tp) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1349 |
COST_GENCOST_SSHV4 |
& *tpma(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1350 |
COST_GENCOST_SSHV4 |
junk = anom_psMtpobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1357 |
COST_GENCOST_SSHV4 |
junkweight = mean_psMslaobs_MSK(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1358 |
COST_GENCOST_SSHV4 |
& *gencost_weight(i,j,bi,bj,igen_ers) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1359 |
COST_GENCOST_SSHV4 |
& *ersma(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1360 |
COST_GENCOST_SSHV4 |
junk = anom_psMersobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1367 |
COST_GENCOST_SSHV4 |
junkweight = mean_psMslaobs_MSK(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1368 |
COST_GENCOST_SSHV4 |
& *gencost_weight(i,j,bi,bj,igen_gfo) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1369 |
COST_GENCOST_SSHV4 |
& *gfoma(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1370 |
COST_GENCOST_SSHV4 |
junk = anom_psMgfoobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
256 |
COST_GENCOST_SSHV4 |
do i = imin,imax |
|
./pkg/ecco/cost_gencost_sshv4.F |
257 |
COST_GENCOST_SSHV4 |
mdtma(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
258 |
COST_GENCOST_SSHV4 |
mdtob(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
259 |
COST_GENCOST_SSHV4 |
tpma(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
260 |
COST_GENCOST_SSHV4 |
tpob(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
261 |
COST_GENCOST_SSHV4 |
ersma(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
262 |
COST_GENCOST_SSHV4 |
ersob(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
263 |
COST_GENCOST_SSHV4 |
gfoma(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
264 |
COST_GENCOST_SSHV4 |
gfoob(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
350 |
COST_GENCOST_SSHV4 |
do i = imin,imax |
|
./pkg/ecco/cost_gencost_sshv4.F |
351 |
COST_GENCOST_SSHV4 |
if ( (maskC(i,j,1,bi,bj) .eq. 0.).OR. |
|
./pkg/ecco/cost_gencost_sshv4.F |
353 |
COST_GENCOST_SSHV4 |
& (R_low(i,j,bi,bj).GT.-200.).OR. |
|
./pkg/ecco/cost_gencost_sshv4.F |
355 |
COST_GENCOST_SSHV4 |
& (mdtob(i,j,bi,bj) .lt. spval ).OR. |
|
./pkg/ecco/cost_gencost_sshv4.F |
356 |
COST_GENCOST_SSHV4 |
& (mdtob(i,j,bi,bj) .eq. 0. _d 0) ) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
357 |
COST_GENCOST_SSHV4 |
mdtma(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
358 |
COST_GENCOST_SSHV4 |
mdtob(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
360 |
COST_GENCOST_SSHV4 |
mdtma(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
361 |
COST_GENCOST_SSHV4 |
mdtob(i,j,bi,bj) = mdtob(i,j,bi,bj)*factor |
|
./pkg/ecco/cost_gencost_sshv4.F |
373 |
COST_GENCOST_SSHV4 |
do i = imin,imax |
|
./pkg/ecco/cost_gencost_sshv4.F |
374 |
COST_GENCOST_SSHV4 |
mean_slaobs_mdt(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
375 |
COST_GENCOST_SSHV4 |
mean_slaobs_NUM(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
387 |
COST_GENCOST_SSHV4 |
do i = imin,imax |
|
./pkg/ecco/cost_gencost_sshv4.F |
388 |
COST_GENCOST_SSHV4 |
tpma(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
389 |
COST_GENCOST_SSHV4 |
tpob(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
390 |
COST_GENCOST_SSHV4 |
ersma(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
391 |
COST_GENCOST_SSHV4 |
ersob(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
392 |
COST_GENCOST_SSHV4 |
gfoma(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
393 |
COST_GENCOST_SSHV4 |
gfoob(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
415 |
COST_GENCOST_SSHV4 |
do i = imin,imax |
|
./pkg/ecco/cost_gencost_sshv4.F |
416 |
COST_GENCOST_SSHV4 |
if ( tpma(i,j,bi,bj)*mdtma(i,j,bi,bj)* |
|
./pkg/ecco/cost_gencost_sshv4.F |
417 |
COST_GENCOST_SSHV4 |
& gencost_weight(i,j,bi,bj,igen_tp) .NE. 0. ) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
418 |
COST_GENCOST_SSHV4 |
mean_slaobs_mdt(i,j,bi,bj)= mean_slaobs_mdt(i,j,bi,bj)+ |
|
./pkg/ecco/cost_gencost_sshv4.F |
419 |
COST_GENCOST_SSHV4 |
& tpob(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
420 |
COST_GENCOST_SSHV4 |
mean_slaobs_NUM(i,j,bi,bj)= mean_slaobs_NUM(i,j,bi,bj)+1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
422 |
COST_GENCOST_SSHV4 |
if ( ersma(i,j,bi,bj)*mdtma(i,j,bi,bj)* |
|
./pkg/ecco/cost_gencost_sshv4.F |
423 |
COST_GENCOST_SSHV4 |
& gencost_weight(i,j,bi,bj,igen_ers) .NE. 0. ) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
424 |
COST_GENCOST_SSHV4 |
mean_slaobs_mdt(i,j,bi,bj)= mean_slaobs_mdt(i,j,bi,bj)+ |
|
./pkg/ecco/cost_gencost_sshv4.F |
425 |
COST_GENCOST_SSHV4 |
& ersob(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
426 |
COST_GENCOST_SSHV4 |
mean_slaobs_NUM(i,j,bi,bj)= mean_slaobs_NUM(i,j,bi,bj)+1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
428 |
COST_GENCOST_SSHV4 |
if ( gfoma(i,j,bi,bj)*mdtma(i,j,bi,bj)* |
|
./pkg/ecco/cost_gencost_sshv4.F |
429 |
COST_GENCOST_SSHV4 |
& gencost_weight(i,j,bi,bj,igen_gfo) .NE. 0. ) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
430 |
COST_GENCOST_SSHV4 |
mean_slaobs_mdt(i,j,bi,bj)= mean_slaobs_mdt(i,j,bi,bj)+ |
|
./pkg/ecco/cost_gencost_sshv4.F |
431 |
COST_GENCOST_SSHV4 |
& gfoob(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
432 |
COST_GENCOST_SSHV4 |
mean_slaobs_NUM(i,j,bi,bj)= mean_slaobs_NUM(i,j,bi,bj)+1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
445 |
COST_GENCOST_SSHV4 |
do i = imin,imax |
|
./pkg/ecco/cost_gencost_sshv4.F |
446 |
COST_GENCOST_SSHV4 |
if ( ( mean_slaobs_NUM(i,j,bi,bj) .NE. 0. ).AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
447 |
COST_GENCOST_SSHV4 |
& ( maskc(i,j,1,bi,bj) .NE. 0. ).AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
448 |
COST_GENCOST_SSHV4 |
& ( mdtma(i,j,bi,bj) .NE. 0. ) ) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
449 |
COST_GENCOST_SSHV4 |
mean_slaobs_mdt(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
450 |
COST_GENCOST_SSHV4 |
& mean_slaobs_mdt(i,j,bi,bj) / |
|
./pkg/ecco/cost_gencost_sshv4.F |
451 |
COST_GENCOST_SSHV4 |
& mean_slaobs_NUM(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
453 |
COST_GENCOST_SSHV4 |
mean_slaobs_mdt(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
486 |
COST_GENCOST_SSHV4 |
do i = imin,imax |
|
./pkg/ecco/cost_gencost_sshv4.F |
487 |
COST_GENCOST_SSHV4 |
if ( ( mdtma(i,j,bi,bj) .NE. 0. ).AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
488 |
COST_GENCOST_SSHV4 |
& ( maskc(i,j,1,bi,bj) .NE. 0. ).AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
490 |
COST_GENCOST_SSHV4 |
mdtob(i,j,bi,bj) = mdtob(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
491 |
COST_GENCOST_SSHV4 |
& -mean_slaobs_mdt(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
511 |
COST_GENCOST_SSHV4 |
do i = imin,imax |
|
./pkg/ecco/cost_gencost_sshv4.F |
513 |
COST_GENCOST_SSHV4 |
psmean(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
514 |
COST_GENCOST_SSHV4 |
mean_psMslaobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
515 |
COST_GENCOST_SSHV4 |
mean_psMtpobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
516 |
COST_GENCOST_SSHV4 |
mean_psMersobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
517 |
COST_GENCOST_SSHV4 |
mean_psMgfoobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
518 |
COST_GENCOST_SSHV4 |
mean_psMssh_all(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
519 |
COST_GENCOST_SSHV4 |
mean_slaobs_model(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
521 |
COST_GENCOST_SSHV4 |
mean_psMtpobs_NUM(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
522 |
COST_GENCOST_SSHV4 |
mean_psMersobs_NUM(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
523 |
COST_GENCOST_SSHV4 |
mean_psMgfoobs_NUM(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
524 |
COST_GENCOST_SSHV4 |
mean_psMssh_all_NUM(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
525 |
COST_GENCOST_SSHV4 |
mean_psMslaobs_MSK(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
553 |
COST_GENCOST_SSHV4 |
do i = imin,imax |
|
./pkg/ecco/cost_gencost_sshv4.F |
554 |
COST_GENCOST_SSHV4 |
tpma(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
555 |
COST_GENCOST_SSHV4 |
tpob(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
556 |
COST_GENCOST_SSHV4 |
ersma(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
557 |
COST_GENCOST_SSHV4 |
ersob(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
558 |
COST_GENCOST_SSHV4 |
gfoma(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
559 |
COST_GENCOST_SSHV4 |
gfoob(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
584 |
COST_GENCOST_SSHV4 |
do i = imin,imax |
|
./pkg/ecco/cost_gencost_sshv4.F |
585 |
COST_GENCOST_SSHV4 |
psmean(i,j,bi,bj) = psmean(i,j,bi,bj) + |
|
./pkg/ecco/cost_gencost_sshv4.F |
586 |
COST_GENCOST_SSHV4 |
& etaday(i,j,bi,bj) / float(ndaysrec) |
|
./pkg/ecco/cost_gencost_sshv4.F |
587 |
COST_GENCOST_SSHV4 |
if ( tpma(i,j,bi,bj)* |
|
./pkg/ecco/cost_gencost_sshv4.F |
588 |
COST_GENCOST_SSHV4 |
& gencost_weight(i,j,bi,bj,igen_tp) .NE. 0. ) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
589 |
COST_GENCOST_SSHV4 |
mean_slaobs_model(i,j,bi,bj)= |
|
./pkg/ecco/cost_gencost_sshv4.F |
590 |
COST_GENCOST_SSHV4 |
& mean_slaobs_model(i,j,bi,bj)+tpob(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
591 |
COST_GENCOST_SSHV4 |
mean_psMtpobs(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
592 |
COST_GENCOST_SSHV4 |
& mean_psMtpobs(i,j,bi,bj) + |
|
./pkg/ecco/cost_gencost_sshv4.F |
593 |
COST_GENCOST_SSHV4 |
& etaday(i,j,bi,bj)-tpob(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
594 |
COST_GENCOST_SSHV4 |
mean_psMtpobs_NUM(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
595 |
COST_GENCOST_SSHV4 |
& mean_psMtpobs_NUM(i,j,bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
597 |
COST_GENCOST_SSHV4 |
if ( ersma(i,j,bi,bj)* |
|
./pkg/ecco/cost_gencost_sshv4.F |
598 |
COST_GENCOST_SSHV4 |
& gencost_weight(i,j,bi,bj,igen_ers) .NE. 0. ) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
599 |
COST_GENCOST_SSHV4 |
mean_slaobs_model(i,j,bi,bj)= |
|
./pkg/ecco/cost_gencost_sshv4.F |
600 |
COST_GENCOST_SSHV4 |
& mean_slaobs_model(i,j,bi,bj)+ersob(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
601 |
COST_GENCOST_SSHV4 |
mean_psMersobs(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
602 |
COST_GENCOST_SSHV4 |
& mean_psMersobs(i,j,bi,bj) + |
|
./pkg/ecco/cost_gencost_sshv4.F |
603 |
COST_GENCOST_SSHV4 |
& etaday(i,j,bi,bj)-ersob(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
604 |
COST_GENCOST_SSHV4 |
mean_psMersobs_NUM(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
605 |
COST_GENCOST_SSHV4 |
& mean_psMersobs_NUM(i,j,bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
607 |
COST_GENCOST_SSHV4 |
if ( gfoma(i,j,bi,bj)* |
|
./pkg/ecco/cost_gencost_sshv4.F |
608 |
COST_GENCOST_SSHV4 |
& gencost_weight(i,j,bi,bj,igen_gfo) .NE. 0. ) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
609 |
COST_GENCOST_SSHV4 |
mean_slaobs_model(i,j,bi,bj)= |
|
./pkg/ecco/cost_gencost_sshv4.F |
610 |
COST_GENCOST_SSHV4 |
& mean_slaobs_model(i,j,bi,bj)+gfoob(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
611 |
COST_GENCOST_SSHV4 |
mean_psMgfoobs(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
612 |
COST_GENCOST_SSHV4 |
& mean_psMgfoobs(i,j,bi,bj) + |
|
./pkg/ecco/cost_gencost_sshv4.F |
613 |
COST_GENCOST_SSHV4 |
& etaday(i,j,bi,bj)-gfoob(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
614 |
COST_GENCOST_SSHV4 |
mean_psMgfoobs_NUM(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
615 |
COST_GENCOST_SSHV4 |
& mean_psMgfoobs_NUM(i,j,bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
630 |
COST_GENCOST_SSHV4 |
do i = imin,imax |
|
./pkg/ecco/cost_gencost_sshv4.F |
631 |
COST_GENCOST_SSHV4 |
if ( ( mean_psMtpobs_NUM(i,j,bi,bj) .NE. 0. ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
633 |
COST_GENCOST_SSHV4 |
mean_psMssh_all(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
634 |
COST_GENCOST_SSHV4 |
& mean_psMssh_all(i,j,bi,bj) + |
|
./pkg/ecco/cost_gencost_sshv4.F |
635 |
COST_GENCOST_SSHV4 |
& mean_psMtpobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
636 |
COST_GENCOST_SSHV4 |
mean_psMssh_all_NUM(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
637 |
COST_GENCOST_SSHV4 |
& mean_psMssh_all_NUM(i,j,bi,bj) + |
|
./pkg/ecco/cost_gencost_sshv4.F |
638 |
COST_GENCOST_SSHV4 |
& mean_psMtpobs_NUM(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
639 |
COST_GENCOST_SSHV4 |
mean_psMtpobs(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
640 |
COST_GENCOST_SSHV4 |
& mean_psMtpobs(i,j,bi,bj) / |
|
./pkg/ecco/cost_gencost_sshv4.F |
641 |
COST_GENCOST_SSHV4 |
& mean_psMtpobs_NUM(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
643 |
COST_GENCOST_SSHV4 |
if ( ( mean_psMersobs_NUM(i,j,bi,bj) .NE. 0. ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
645 |
COST_GENCOST_SSHV4 |
mean_psMssh_all(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
646 |
COST_GENCOST_SSHV4 |
& mean_psMssh_all(i,j,bi,bj) + |
|
./pkg/ecco/cost_gencost_sshv4.F |
647 |
COST_GENCOST_SSHV4 |
& mean_psMersobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
648 |
COST_GENCOST_SSHV4 |
mean_psMssh_all_NUM(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
649 |
COST_GENCOST_SSHV4 |
& mean_psMssh_all_NUM(i,j,bi,bj) + |
|
./pkg/ecco/cost_gencost_sshv4.F |
650 |
COST_GENCOST_SSHV4 |
& mean_psMersobs_NUM(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
651 |
COST_GENCOST_SSHV4 |
mean_psMersobs(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
652 |
COST_GENCOST_SSHV4 |
& mean_psMersobs(i,j,bi,bj) / |
|
./pkg/ecco/cost_gencost_sshv4.F |
653 |
COST_GENCOST_SSHV4 |
& mean_psMersobs_NUM(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
655 |
COST_GENCOST_SSHV4 |
if ( ( mean_psMgfoobs_NUM(i,j,bi,bj) .NE. 0. ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
657 |
COST_GENCOST_SSHV4 |
mean_psMssh_all(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
658 |
COST_GENCOST_SSHV4 |
& mean_psMssh_all(i,j,bi,bj) + |
|
./pkg/ecco/cost_gencost_sshv4.F |
659 |
COST_GENCOST_SSHV4 |
& mean_psMgfoobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
660 |
COST_GENCOST_SSHV4 |
mean_psMssh_all_NUM(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
661 |
COST_GENCOST_SSHV4 |
& mean_psMssh_all_NUM(i,j,bi,bj) + |
|
./pkg/ecco/cost_gencost_sshv4.F |
662 |
COST_GENCOST_SSHV4 |
& mean_psMgfoobs_NUM(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
663 |
COST_GENCOST_SSHV4 |
mean_psMgfoobs(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
664 |
COST_GENCOST_SSHV4 |
& mean_psMgfoobs(i,j,bi,bj) / |
|
./pkg/ecco/cost_gencost_sshv4.F |
665 |
COST_GENCOST_SSHV4 |
& mean_psMgfoobs_NUM(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
668 |
COST_GENCOST_SSHV4 |
if ( ( mean_psMssh_all_NUM(i,j,bi,bj) .GT. 0 ).AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
669 |
COST_GENCOST_SSHV4 |
& ( maskc(i,j,1,bi,bj) .NE. 0. ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
66 |
COST_GENCOST_SSHV4 |
integer i,j,k |
|
./pkg/ecco/cost_gencost_sshv4.F |
671 |
COST_GENCOST_SSHV4 |
mean_psMslaobs(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
672 |
COST_GENCOST_SSHV4 |
& mean_psMssh_all(i,j,bi,bj) / |
|
./pkg/ecco/cost_gencost_sshv4.F |
673 |
COST_GENCOST_SSHV4 |
& mean_psMssh_all_NUM(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
674 |
COST_GENCOST_SSHV4 |
mean_psMslaobs_MSK(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
676 |
COST_GENCOST_SSHV4 |
mean_psMslaobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
677 |
COST_GENCOST_SSHV4 |
mean_psMslaobs_MSK(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
680 |
COST_GENCOST_SSHV4 |
if ( ( mean_psMssh_all_NUM(i,j,bi,bj) .GT. num0 ).AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
681 |
COST_GENCOST_SSHV4 |
& ( maskc(i,j,1,bi,bj) .NE. 0. ) .AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
682 |
COST_GENCOST_SSHV4 |
& ( mdtma(i,j,bi,bj) .NE. 0. ).AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
684 |
COST_GENCOST_SSHV4 |
mean_slaobs_model(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
685 |
COST_GENCOST_SSHV4 |
& mean_slaobs_model(i,j,bi,bj) / |
|
./pkg/ecco/cost_gencost_sshv4.F |
686 |
COST_GENCOST_SSHV4 |
& mean_psMssh_all_NUM(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
687 |
COST_GENCOST_SSHV4 |
mean_psMssh_all(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
688 |
COST_GENCOST_SSHV4 |
& mean_psMssh_all(i,j,bi,bj) / |
|
./pkg/ecco/cost_gencost_sshv4.F |
689 |
COST_GENCOST_SSHV4 |
& mean_psMssh_all_NUM(i,j,bi,bj)-mdtob(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
690 |
COST_GENCOST_SSHV4 |
mean_psMssh_all_MSK(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
691 |
COST_GENCOST_SSHV4 |
offset=offset+RA(i,j,bi,bj)*mean_psMssh_all(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
692 |
COST_GENCOST_SSHV4 |
offset_sum=offset_sum+RA(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
693 |
COST_GENCOST_SSHV4 |
elseif ( ( mdtma(i,j,bi,bj) .NE. 0. ) .AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
694 |
COST_GENCOST_SSHV4 |
& ( maskc(i,j,1,bi,bj) .NE. 0. ).AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
696 |
COST_GENCOST_SSHV4 |
mean_slaobs_model(i,j,bi,bj) = 0.d0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
697 |
COST_GENCOST_SSHV4 |
mean_psMssh_all(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
698 |
COST_GENCOST_SSHV4 |
mean_psMssh_all_MSK(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
699 |
COST_GENCOST_SSHV4 |
offset=offset+RA(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
700 |
COST_GENCOST_SSHV4 |
& *( psmean(i,j,bi,bj) -mdtob(i,j,bi,bj) ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
701 |
COST_GENCOST_SSHV4 |
offset_sum=offset_sum+RA(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
702 |
COST_GENCOST_SSHV4 |
num0array(i,j,bi,bj)=0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
704 |
COST_GENCOST_SSHV4 |
mean_slaobs_model(i,j,bi,bj) = 0.d0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
705 |
COST_GENCOST_SSHV4 |
mean_psMssh_all(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
706 |
COST_GENCOST_SSHV4 |
mean_psMssh_all_MSK(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
707 |
COST_GENCOST_SSHV4 |
num0array(i,j,bi,bj)=0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
725 |
COST_GENCOST_SSHV4 |
do i = imin,imax |
|
./pkg/ecco/cost_gencost_sshv4.F |
726 |
COST_GENCOST_SSHV4 |
num0total=num0total+num0array(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
774 |
COST_GENCOST_SSHV4 |
do i = imin,imax |
|
./pkg/ecco/cost_gencost_sshv4.F |
776 |
COST_GENCOST_SSHV4 |
if ( (mean_psMssh_all_NUM(i,j,bi,bj) .GT. num0) .AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
777 |
COST_GENCOST_SSHV4 |
& ( mdtma(i,j,bi,bj) .NE. 0. ) .AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
778 |
COST_GENCOST_SSHV4 |
& ( maskc(i,j,1,bi,bj) .NE. 0. ) .AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
781 |
COST_GENCOST_SSHV4 |
mean_psMssh_all(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
782 |
COST_GENCOST_SSHV4 |
& mean_psMssh_all(i,j,bi,bj) - offset |
|
./pkg/ecco/cost_gencost_sshv4.F |
783 |
COST_GENCOST_SSHV4 |
mean_psMssh_all_MSK(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
785 |
COST_GENCOST_SSHV4 |
elseif ( ( mdtma(i,j,bi,bj) .NE. 0. ) .AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
786 |
COST_GENCOST_SSHV4 |
& ( maskc(i,j,1,bi,bj) .NE. 0. ) .AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
789 |
COST_GENCOST_SSHV4 |
mean_psMssh_all(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
790 |
COST_GENCOST_SSHV4 |
& psmean(i,j,bi,bj) -mdtob(i,j,bi,bj) - offset |
|
./pkg/ecco/cost_gencost_sshv4.F |
791 |
COST_GENCOST_SSHV4 |
mean_psMssh_all_MSK(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
794 |
COST_GENCOST_SSHV4 |
mean_psMssh_all(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
795 |
COST_GENCOST_SSHV4 |
mean_psMssh_all_MSK(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
798 |
COST_GENCOST_SSHV4 |
if ( maskc(i,j,1,bi,bj) .NE. 0. ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
799 |
COST_GENCOST_SSHV4 |
& psmean(i,j,bi,bj)=psmean(i,j,bi,bj)-offset |
|
./pkg/ecco/cost_gencost_sshv4.F |
859 |
COST_GENCOST_SSHV4 |
do i = imin,imax |
|
./pkg/ecco/cost_gencost_sshv4.F |
860 |
COST_GENCOST_SSHV4 |
if (mean_psMssh_all_MSK(i,j,bi,bj).NE.0. _d 0) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
861 |
COST_GENCOST_SSHV4 |
junk = mean_psMssh_all(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
862 |
COST_GENCOST_SSHV4 |
junkweight = gencost_weight(i,j,bi,bj,igen_mdt) |
|
./pkg/ecco/cost_gencost_sshv4.F |
863 |
COST_GENCOST_SSHV4 |
& * mdtma(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
872 |
COST_GENCOST_SSHV4 |
diagnosfld(i,j,bi,bj) = junk*junk*junkweight |
|
./pkg/ecco/cost_gencost_sshv4.F |
919 |
COST_GENCOST_SSHV4 |
do i = imin,imax |
|
./pkg/ecco/cost_gencost_sshv4.F |
920 |
COST_GENCOST_SSHV4 |
anom_psMslaobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
921 |
COST_GENCOST_SSHV4 |
anom_psMslaobs_MSK(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
922 |
COST_GENCOST_SSHV4 |
anom_psMslaobs_SUB(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
923 |
COST_GENCOST_SSHV4 |
anom_slaobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
924 |
COST_GENCOST_SSHV4 |
anom_slaobs_SUB(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
925 |
COST_GENCOST_SSHV4 |
anom_psMslaobs_NUM(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
953 |
COST_GENCOST_SSHV4 |
do i = imin,imax |
|
./pkg/ecco/cost_gencost_sshv4.F |
954 |
COST_GENCOST_SSHV4 |
tpma(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
955 |
COST_GENCOST_SSHV4 |
tpob(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
956 |
COST_GENCOST_SSHV4 |
ersma(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
957 |
COST_GENCOST_SSHV4 |
ersob(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
958 |
COST_GENCOST_SSHV4 |
gfoma(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
959 |
COST_GENCOST_SSHV4 |
gfoob(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
984 |
COST_GENCOST_SSHV4 |
do i = imin,imax |
|
./pkg/ecco/cost_gencost_sshv4.F |
985 |
COST_GENCOST_SSHV4 |
if ( tpma(i,j,bi,bj)*mean_psMslaobs_MSK(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
987 |
COST_GENCOST_SSHV4 |
anom_psMslaobs(i,j,bi,bj)= anom_psMslaobs(i,j,bi,bj)+ |
|
./pkg/ecco/cost_gencost_sshv4.F |
988 |
COST_GENCOST_SSHV4 |
& etaday(i,j,bi,bj)-tpob(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
989 |
COST_GENCOST_SSHV4 |
& -mean_psMslaobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
990 |
COST_GENCOST_SSHV4 |
anom_slaobs(i,j,bi,bj)= anom_slaobs(i,j,bi,bj)+ |
|
./pkg/ecco/cost_gencost_sshv4.F |
991 |
COST_GENCOST_SSHV4 |
& tpob(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
992 |
COST_GENCOST_SSHV4 |
anom_psMslaobs_NUM(i,j,bi,bj)= |
|
./pkg/ecco/cost_gencost_sshv4.F |
993 |
COST_GENCOST_SSHV4 |
& anom_psMslaobs_NUM(i,j,bi,bj)+1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
995 |
COST_GENCOST_SSHV4 |
& anom_psMslaobs_MSK(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
997 |
COST_GENCOST_SSHV4 |
if ( ersma(i,j,bi,bj)*mean_psMslaobs_MSK(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
999 |
COST_GENCOST_SSHV4 |
anom_psMslaobs(i,j,bi,bj)= anom_psMslaobs(i,j,bi,bj)+ |
|
./pkg/ecco/cost_gencost_sstv4.F |
175 |
COST_GENCOST_SSTV4 |
do i = imin,imax |
|
./pkg/ecco/cost_gencost_sstv4.F |
176 |
COST_GENCOST_SSTV4 |
anom_sst(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sstv4.F |
177 |
COST_GENCOST_SSTV4 |
obs_sst(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sstv4.F |
178 |
COST_GENCOST_SSTV4 |
nb_sst(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sstv4.F |
179 |
COST_GENCOST_SSTV4 |
msk_sst(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sstv4.F |
242 |
COST_GENCOST_SSTV4 |
do i = imin,imax |
|
./pkg/ecco/cost_gencost_sstv4.F |
243 |
COST_GENCOST_SSTV4 |
tmp_sst(i,j,bi,bj) = spval |
|
./pkg/ecco/cost_gencost_sstv4.F |
254 |
COST_GENCOST_SSTV4 |
do i = imin,imax |
|
./pkg/ecco/cost_gencost_sstv4.F |
255 |
COST_GENCOST_SSTV4 |
if ( (tmp_sst(i,j,bi,bj).GT.spval).AND. |
|
./pkg/ecco/cost_gencost_sstv4.F |
256 |
COST_GENCOST_SSTV4 |
& (maskc(i,j,1,bi,bj).EQ.1.) ) then |
|
./pkg/ecco/cost_gencost_sstv4.F |
257 |
COST_GENCOST_SSTV4 |
anom_sst(i,j,bi,bj)= anom_sst(i,j,bi,bj)+ |
|
./pkg/ecco/cost_gencost_sstv4.F |
258 |
COST_GENCOST_SSTV4 |
& mybar(i,j,bi,bj)-tmp_sst(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sstv4.F |
259 |
COST_GENCOST_SSTV4 |
obs_sst(i,j,bi,bj)= obs_sst(i,j,bi,bj)+ |
|
./pkg/ecco/cost_gencost_sstv4.F |
260 |
COST_GENCOST_SSTV4 |
& tmp_sst(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sstv4.F |
261 |
COST_GENCOST_SSTV4 |
nb_sst(i,j,bi,bj)=nb_sst(i,j,bi,bj)+1. _d 0 |
|
./pkg/ecco/cost_gencost_sstv4.F |
274 |
COST_GENCOST_SSTV4 |
do i = imin,imax |
|
./pkg/ecco/cost_gencost_sstv4.F |
275 |
COST_GENCOST_SSTV4 |
if ( nb_sst(i,j,bi,bj) .NE. 0. ) then |
|
./pkg/ecco/cost_gencost_sstv4.F |
276 |
COST_GENCOST_SSTV4 |
obs_sst(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sstv4.F |
277 |
COST_GENCOST_SSTV4 |
& obs_sst(i,j,bi,bj)/nb_sst(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sstv4.F |
278 |
COST_GENCOST_SSTV4 |
anom_sst(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sstv4.F |
279 |
COST_GENCOST_SSTV4 |
& anom_sst(i,j,bi,bj)/nb_sst(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sstv4.F |
280 |
COST_GENCOST_SSTV4 |
msk_sst(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/cost_gencost_sstv4.F |
327 |
COST_GENCOST_SSTV4 |
do i = imin,imax |
|
./pkg/ecco/cost_gencost_sstv4.F |
328 |
COST_GENCOST_SSTV4 |
junk = anom_sst(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sstv4.F |
329 |
COST_GENCOST_SSTV4 |
junkweight = gencost_weight(i,j,bi,bj,kgen_lsc)* |
|
./pkg/ecco/cost_gencost_sstv4.F |
330 |
COST_GENCOST_SSTV4 |
& maskc(i,j,1,bi,bj) |
|
./pkg/ecco/cost_gencost_sstv4.F |
334 |
COST_GENCOST_SSTV4 |
if ( (junkweight.GT.0.).AND.(nb_sst(i,j,bi,bj).GT.0.) ) |
|
./pkg/ecco/cost_gencost_sstv4.F |
400 |
COST_GENCOST_SSTV4 |
do i = imin,imax |
|
./pkg/ecco/cost_gencost_sstv4.F |
401 |
COST_GENCOST_SSTV4 |
tmp_sst(i,j,bi,bj) = spval |
|
./pkg/ecco/cost_gencost_sstv4.F |
412 |
COST_GENCOST_SSTV4 |
do i = imin,imax |
|
./pkg/ecco/cost_gencost_sstv4.F |
413 |
COST_GENCOST_SSTV4 |
if ( (tmp_sst(i,j,bi,bj).GT.spval).AND. |
|
./pkg/ecco/cost_gencost_sstv4.F |
414 |
COST_GENCOST_SSTV4 |
& (maskc(i,j,1,bi,bj).EQ.1.) ) then |
|
./pkg/ecco/cost_gencost_sstv4.F |
415 |
COST_GENCOST_SSTV4 |
anom_sst(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sstv4.F |
416 |
COST_GENCOST_SSTV4 |
& mybar(i,j,bi,bj)-tmp_sst(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sstv4.F |
417 |
COST_GENCOST_SSTV4 |
msk_sst(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/cost_gencost_sstv4.F |
419 |
COST_GENCOST_SSTV4 |
anom_sst(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sstv4.F |
420 |
COST_GENCOST_SSTV4 |
msk_sst(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sstv4.F |
438 |
COST_GENCOST_SSTV4 |
do i = imin,imax |
|
./pkg/ecco/cost_gencost_sstv4.F |
439 |
COST_GENCOST_SSTV4 |
junk = anom_sst(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sstv4.F |
440 |
COST_GENCOST_SSTV4 |
junkweight = gencost_weight(i,j,bi,bj,kgen)* |
|
./pkg/ecco/cost_gencost_sstv4.F |
441 |
COST_GENCOST_SSTV4 |
& maskc(i,j,1,bi,bj)*msk_sst(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sstv4.F |
51 |
COST_GENCOST_SSTV4 |
integer i,j,k |
|
./pkg/ecco/cost_gencost_transp.F |
66 |
COST_GENCOST_TRANSP |
integer i,j,k |
|
./pkg/ecco/cost_obcs_ageos.F |
163 |
COST_OBCS_AGEOS |
do i = 1-olx,snx+olx |
|
./pkg/ecco/cost_obcs_ageos.F |
164 |
COST_OBCS_AGEOS |
maskxzageos(i,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_obcs_ageos.F |
165 |
COST_OBCS_AGEOS |
xzdvel1(i,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_obcs_ageos.F |
166 |
COST_OBCS_AGEOS |
xzdvel2(i,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_obcs_ageos.F |
167 |
COST_OBCS_AGEOS |
xzgrdrho(i,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_obcs_ageos.F |
182 |
COST_OBCS_AGEOS |
do i = 1-olx,snx+olx |
|
./pkg/ecco/cost_obcs_ageos.F |
183 |
COST_OBCS_AGEOS |
rholoc(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_obcs_ageos.F |
230 |
COST_OBCS_AGEOS |
do i = imin, imax |
|
./pkg/ecco/cost_obcs_ageos.F |
231 |
COST_OBCS_AGEOS |
j = OB_Jn(i,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
234 |
COST_OBCS_AGEOS |
maskxzageos(i,k,bi,bj) = 0. |
|
./pkg/ecco/cost_obcs_ageos.F |
236 |
COST_OBCS_AGEOS |
maskxzageos(i,k,bi,bj) = |
|
./pkg/ecco/cost_obcs_ageos.F |
237 |
COST_OBCS_AGEOS |
& hfacC(i,j+jp1,k,bi,bj)*hfacC(i+1,j+jp1,k,bi,bj) * |
|
./pkg/ecco/cost_obcs_ageos.F |
238 |
COST_OBCS_AGEOS |
& hfacC(i-1,j+jp1,k,bi,bj)*hfacC(i,j+jp1,k+1,bi,bj)* |
|
./pkg/ecco/cost_obcs_ageos.F |
239 |
COST_OBCS_AGEOS |
& hfacC(i-1,j+jp1,k+1,bi,bj)*hfacC(i+1,j+jp1,k+1,bi,bj)* |
|
./pkg/ecco/cost_obcs_ageos.F |
240 |
COST_OBCS_AGEOS |
& hfacS(i,j+jp1,k,bi,bj)*hfacS(i,j+jp1,k+1,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
259 |
COST_OBCS_AGEOS |
do i = imin, imax |
|
./pkg/ecco/cost_obcs_ageos.F |
260 |
COST_OBCS_AGEOS |
j = OB_Jn(i,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
262 |
COST_OBCS_AGEOS |
xzgrdrho(i,k,bi,bj) = |
|
./pkg/ecco/cost_obcs_ageos.F |
263 |
COST_OBCS_AGEOS |
& (rholoc(i-1,j+jp1,bi,bj)-rholoc(i+1,j+jp1,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
264 |
COST_OBCS_AGEOS |
& /(2.*dxc(i,j+jp1,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
272 |
COST_OBCS_AGEOS |
do i = imin,imax |
|
./pkg/ecco/cost_obcs_ageos.F |
273 |
COST_OBCS_AGEOS |
j = OB_Jn(i,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
275 |
COST_OBCS_AGEOS |
xzdvel1(i,k,bi,bj) = vbar(i,j+jp1,k ,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
276 |
COST_OBCS_AGEOS |
& - vbar(i,j+jp1,k+1,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
277 |
COST_OBCS_AGEOS |
xzdvel2(i,k,bi,bj)=((xzgrdrho(i,k,bi,bj)*delz(k)/2.)+ |
|
./pkg/ecco/cost_obcs_ageos.F |
278 |
COST_OBCS_AGEOS |
& (xzgrdrho(i,k+1,bi,bj)*delz(k+1)/2.)) |
|
./pkg/ecco/cost_obcs_ageos.F |
282 |
COST_OBCS_AGEOS |
& maskxzageos(i,k,bi,bj)* |
|
./pkg/ecco/cost_obcs_ageos.F |
283 |
COST_OBCS_AGEOS |
& (xzdvel2(i,k,bi,bj) - xzdvel1(i,k,bi,bj))* |
|
./pkg/ecco/cost_obcs_ageos.F |
284 |
COST_OBCS_AGEOS |
& (xzdvel2(i,k,bi,bj) - xzdvel1(i,k,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
285 |
COST_OBCS_AGEOS |
if (maskxzageos(i,k,bi,bj) .ne. 0) then |
|
./pkg/ecco/cost_obcs_ageos.F |
299 |
COST_OBCS_AGEOS |
do i = imin, imax |
|
./pkg/ecco/cost_obcs_ageos.F |
300 |
COST_OBCS_AGEOS |
j = OB_Js(i,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
302 |
COST_OBCS_AGEOS |
maskxzageos(i,k,bi,bj) = 0. |
|
./pkg/ecco/cost_obcs_ageos.F |
305 |
COST_OBCS_AGEOS |
maskxzageos(i,k,bi,bj) = |
|
./pkg/ecco/cost_obcs_ageos.F |
306 |
COST_OBCS_AGEOS |
& hfacC(i,j+jp1,k,bi,bj)*hfacC(i+1,j+jp1,k,bi,bj) * |
|
./pkg/ecco/cost_obcs_ageos.F |
307 |
COST_OBCS_AGEOS |
& hfacC(i-1,j+jp1,k,bi,bj)*hfacC(i,j+jp1,k+1,bi,bj)* |
|
./pkg/ecco/cost_obcs_ageos.F |
308 |
COST_OBCS_AGEOS |
& hfacC(i-1,j+jp1,k+1,bi,bj)*hfacC(i+1,j+jp1,k+1,bi,bj)* |
|
./pkg/ecco/cost_obcs_ageos.F |
309 |
COST_OBCS_AGEOS |
& hfacS(i,j+jp1,k,bi,bj)*hfacS(i,j+jp1,k+1,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
329 |
COST_OBCS_AGEOS |
do i = imin, imax |
|
./pkg/ecco/cost_obcs_ageos.F |
330 |
COST_OBCS_AGEOS |
j = OB_Js(i,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
332 |
COST_OBCS_AGEOS |
xzgrdrho(i,k,bi,bj) = |
|
./pkg/ecco/cost_obcs_ageos.F |
333 |
COST_OBCS_AGEOS |
& (rholoc(i-1,j+jp1,bi,bj)-rholoc(i+1,j+jp1,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
334 |
COST_OBCS_AGEOS |
& /(2.*dxc(i,j+jp1,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
340 |
COST_OBCS_AGEOS |
do i = imin,imax |
|
./pkg/ecco/cost_obcs_ageos.F |
341 |
COST_OBCS_AGEOS |
j = OB_Js(i,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
344 |
COST_OBCS_AGEOS |
xzdvel1(i,k,bi,bj) = vbar(i,j+jp1,k ,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
345 |
COST_OBCS_AGEOS |
& - vbar(i,j+jp1,k+1,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
348 |
COST_OBCS_AGEOS |
xzdvel2(i,k,bi,bj) =((xzgrdrho(i,k,bi,bj)*delz(k)/2.)+ |
|
./pkg/ecco/cost_obcs_ageos.F |
349 |
COST_OBCS_AGEOS |
& (xzgrdrho(i,k+1,bi,bj)*delz(k+1)/2.)) |
|
./pkg/ecco/cost_obcs_ageos.F |
354 |
COST_OBCS_AGEOS |
& maskxzageos(i,k,bi,bj)* |
|
./pkg/ecco/cost_obcs_ageos.F |
355 |
COST_OBCS_AGEOS |
& (xzdvel2(i,k,bi,bj) - xzdvel1(i,k,bi,bj))* |
|
./pkg/ecco/cost_obcs_ageos.F |
356 |
COST_OBCS_AGEOS |
& (xzdvel2(i,k,bi,bj) - xzdvel1(i,k,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
369 |
COST_OBCS_AGEOS |
i = OB_Iw(j,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
371 |
COST_OBCS_AGEOS |
if ( i.eq.OB_indexNone ) then |
|
./pkg/ecco/cost_obcs_ageos.F |
375 |
COST_OBCS_AGEOS |
& hfacC(i+ip1,j,k,bi,bj)*hfacC(i+ip1,j+1,k,bi,bj) * |
|
./pkg/ecco/cost_obcs_ageos.F |
376 |
COST_OBCS_AGEOS |
& hfacC(i+ip1,j-1,k,bi,bj)*hfacC(i+ip1,j,k+1,bi,bj)* |
|
./pkg/ecco/cost_obcs_ageos.F |
377 |
COST_OBCS_AGEOS |
& hfacC(i+ip1,j-1,k+1,bi,bj)*hfacC(i+ip1,j+1,k+1,bi,bj)* |
|
./pkg/ecco/cost_obcs_ageos.F |
378 |
COST_OBCS_AGEOS |
& hfacW(i+ip1,j,k,bi,bj)*hfacW(i+ip1,j,k+1,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
397 |
COST_OBCS_AGEOS |
i = OB_Iw(j,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
398 |
COST_OBCS_AGEOS |
if ( i.eq.OB_indexNone ) i = 1 |
|
./pkg/ecco/cost_obcs_ageos.F |
401 |
COST_OBCS_AGEOS |
& (rholoc(i+ip1,j+1,bi,bj)-rholoc(i+ip1,j-1,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
402 |
COST_OBCS_AGEOS |
& /(2.*dyc(i+ip1,j,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
409 |
COST_OBCS_AGEOS |
i = OB_Iw(j,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
410 |
COST_OBCS_AGEOS |
if ( i.eq.OB_indexNone ) i = 1 |
|
./pkg/ecco/cost_obcs_ageos.F |
412 |
COST_OBCS_AGEOS |
yzdvel1(j,k,bi,bj) = ubar(i+ip1,j,k ,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
413 |
COST_OBCS_AGEOS |
& - ubar(i+ip1,j,k+1,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
436 |
COST_OBCS_AGEOS |
i = OB_Ie(j,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
437 |
COST_OBCS_AGEOS |
if ( i.eq.OB_indexNone ) then |
|
./pkg/ecco/cost_obcs_ageos.F |
442 |
COST_OBCS_AGEOS |
& hfacC(i+ip1,j,k,bi,bj)*hfacC(i+ip1,j+1,k,bi,bj) * |
|
./pkg/ecco/cost_obcs_ageos.F |
443 |
COST_OBCS_AGEOS |
& hfacC(i+ip1,j-1,k,bi,bj)*hfacC(i+ip1,j,k+1,bi,bj)* |
|
./pkg/ecco/cost_obcs_ageos.F |
444 |
COST_OBCS_AGEOS |
& hfacC(i+ip1,j-1,k+1,bi,bj)*hfacC(i+ip1,j+1,k+1,bi,bj)* |
|
./pkg/ecco/cost_obcs_ageos.F |
445 |
COST_OBCS_AGEOS |
& hfacW(i+ip1,j,k,bi,bj)*hfacW(i+ip1,j,k+1,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
464 |
COST_OBCS_AGEOS |
i = OB_Ie(j,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
465 |
COST_OBCS_AGEOS |
if ( i.eq.OB_indexNone ) i = 1 |
|
./pkg/ecco/cost_obcs_ageos.F |
468 |
COST_OBCS_AGEOS |
& (rholoc(i+ip1,,j+1,bi,bj)-rholoc(i+ip1,j-1,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
469 |
COST_OBCS_AGEOS |
& /(2.*dyc(i+ip1,j,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
476 |
COST_OBCS_AGEOS |
i = OB_Ie(j,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
477 |
COST_OBCS_AGEOS |
if ( i.eq.OB_indexNone ) i = 1 |
|
./pkg/ecco/cost_obcs_ageos.F |
479 |
COST_OBCS_AGEOS |
yzdvel1(j,k,bi,bj) = ubar(i+ip1,j,k ,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
480 |
COST_OBCS_AGEOS |
& - ubar(i+ip1,j,k+1,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
66 |
COST_OBCS_AGEOS |
integer i,j,k |
|
./pkg/ecco/cost_obcsn.F |
177 |
COST_OBCSN |
do i = imin,imax |
|
./pkg/ecco/cost_obcsn.F |
180 |
COST_OBCSN |
tmpx = tmpfield(i,k,bi,bj) |
|
./pkg/ecco/cost_obcsn.F |
183 |
COST_OBCSN |
& *tmpx*tmpx*maskxz(i,k,bi,bj) |
|
./pkg/ecco/cost_obcsn.F |
186 |
COST_OBCSN |
if (wobcsn(k,iobcs)*maskxz(i,k,bi,bj).ne.0.) |
|
./pkg/ecco/cost_obcsn.F |
78 |
COST_OBCSN |
integer i,k |
|
./pkg/ecco/cost_obcss.F |
179 |
COST_OBCSS |
do i = imin,imax |
|
./pkg/ecco/cost_obcss.F |
182 |
COST_OBCSS |
tmpx = tmpfield(i,k,bi,bj) |
|
./pkg/ecco/cost_obcss.F |
185 |
COST_OBCSS |
& *tmpx*tmpx*maskxz(i,k,bi,bj) |
|
./pkg/ecco/cost_obcss.F |
188 |
COST_OBCSS |
if (wobcss(k,iobcs)*maskxz(i,k,bi,bj).ne.0.) |
|
./pkg/ecco/cost_obcss.F |
78 |
COST_OBCSS |
integer i,k |
|
./pkg/ecco/cost_obcsvol.F |
216 |
COST_OBCSVOL |
do i = imin,imax |
|
./pkg/ecco/cost_obcsvol.F |
220 |
COST_OBCSVOL |
tmpx = tmpfldxz(i,1,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
221 |
COST_OBCSVOL |
if (maskS(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcsvol.F |
223 |
COST_OBCSVOL |
fctile = fctile - tmpx* drF(k) *dxg(i,j,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
224 |
COST_OBCSVOL |
& * _hFacS(i,j,k,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
258 |
COST_OBCSVOL |
do i = imin,imax |
|
./pkg/ecco/cost_obcsvol.F |
262 |
COST_OBCSVOL |
tmpx = tmpfldxz(i,1,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
263 |
COST_OBCSVOL |
if (maskS(i,j+1,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcsvol.F |
265 |
COST_OBCSVOL |
fctile = fctile + tmpx* drF(k) *dxg(i,j+1,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
266 |
COST_OBCSVOL |
& * _hFacS(i,j+1,k,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
302 |
COST_OBCSVOL |
i = OB_Iw(j,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
303 |
COST_OBCSVOL |
IF ( i.EQ.OB_indexNone ) i = 1 |
|
./pkg/ecco/cost_obcsvol.F |
306 |
COST_OBCSVOL |
if (maskW(i+1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcsvol.F |
308 |
COST_OBCSVOL |
fctile = fctile + tmpy* drF(k) *dyg(i+1,j,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
309 |
COST_OBCSVOL |
& * _hFacW(i+1,j,k,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
345 |
COST_OBCSVOL |
i = OB_Ie(j,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
346 |
COST_OBCSVOL |
IF ( i.EQ.OB_indexNone ) i = 1 |
|
./pkg/ecco/cost_obcsvol.F |
349 |
COST_OBCSVOL |
if (maskW(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcsvol.F |
351 |
COST_OBCSVOL |
fctile = fctile - tmpy* drF(k) *dyg(i,j,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
352 |
COST_OBCSVOL |
& * _hFacW(i,j,k,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
65 |
COST_OBCSVOL |
integer i,j,k |
|
./pkg/ecco/cost_sla_read.F |
128 |
COST_SLA_READ |
do i = imin,imax |
|
./pkg/ecco/cost_sla_read.F |
129 |
COST_SLA_READ |
sla_obs(i,j,bi,bj) = spval |
|
./pkg/ecco/cost_sla_read.F |
141 |
COST_SLA_READ |
do i = imin,imax |
|
./pkg/ecco/cost_sla_read.F |
142 |
COST_SLA_READ |
if (_hFacC(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/cost_sla_read.F |
143 |
COST_SLA_READ |
sla_mask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sla_read.F |
145 |
COST_SLA_READ |
sla_mask(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/cost_sla_read.F |
147 |
COST_SLA_READ |
if (sla_obs(i,j,bi,bj) .le. spval) then |
|
./pkg/ecco/cost_sla_read.F |
148 |
COST_SLA_READ |
sla_mask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sla_read.F |
150 |
COST_SLA_READ |
if (abs(sla_obs(i,j,bi,bj)) .lt. 1.d-8 ) then |
|
./pkg/ecco/cost_sla_read.F |
151 |
COST_SLA_READ |
sla_mask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sla_read.F |
155 |
COST_SLA_READ |
if ( R_low(i,j,bi,bj) .GT. -200. ) then |
|
./pkg/ecco/cost_sla_read.F |
156 |
COST_SLA_READ |
sla_mask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sla_read.F |
160 |
COST_SLA_READ |
if ( abs(YC(i,j,bi,bj)) .GT. 66. ) then |
|
./pkg/ecco/cost_sla_read.F |
161 |
COST_SLA_READ |
sla_mask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sla_read.F |
165 |
COST_SLA_READ |
sla_mask(i,j,bi,bj) = sla_mask(i,j,bi,bj)*frame(i,j) |
|
./pkg/ecco/cost_sla_read.F |
166 |
COST_SLA_READ |
sla_obs(i,j,bi,bj) = sla_mask(i,j,bi,bj)*factor* |
|
./pkg/ecco/cost_sla_read.F |
167 |
COST_SLA_READ |
& ( sla_obs(i,j,bi,bj) - |
|
./pkg/ecco/cost_sla_read.F |
44 |
COST_SLA_READ |
integer i,j,k |
|
./pkg/ecco/cost_sla_read_yd.F |
119 |
COST_SLA_READ_YD |
do i = imin,imax |
|
./pkg/ecco/cost_sla_read_yd.F |
121 |
COST_SLA_READ_YD |
if (_hFacC(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/cost_sla_read_yd.F |
122 |
COST_SLA_READ_YD |
sla_mask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sla_read_yd.F |
124 |
COST_SLA_READ_YD |
sla_mask(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/cost_sla_read_yd.F |
126 |
COST_SLA_READ_YD |
if (sla_obs(i,j,bi,bj) .le. spval) then |
|
./pkg/ecco/cost_sla_read_yd.F |
127 |
COST_SLA_READ_YD |
sla_mask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sla_read_yd.F |
129 |
COST_SLA_READ_YD |
if (abs(sla_obs(i,j,bi,bj)) .lt. 1.d-8 ) then |
|
./pkg/ecco/cost_sla_read_yd.F |
130 |
COST_SLA_READ_YD |
sla_mask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sla_read_yd.F |
134 |
COST_SLA_READ_YD |
if ( R_low(i,j,bi,bj) .GT. -200. ) then |
|
./pkg/ecco/cost_sla_read_yd.F |
135 |
COST_SLA_READ_YD |
sla_mask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sla_read_yd.F |
139 |
COST_SLA_READ_YD |
if ( abs(YC(i,j,bi,bj)) .GT. 66. ) then |
|
./pkg/ecco/cost_sla_read_yd.F |
140 |
COST_SLA_READ_YD |
sla_mask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sla_read_yd.F |
144 |
COST_SLA_READ_YD |
sla_mask(i,j,bi,bj) = sla_mask(i,j,bi,bj)*frame(i,j) |
|
./pkg/ecco/cost_sla_read_yd.F |
145 |
COST_SLA_READ_YD |
sla_obs(i,j,bi,bj) = sla_mask(i,j,bi,bj)*factor* |
|
./pkg/ecco/cost_sla_read_yd.F |
146 |
COST_SLA_READ_YD |
& sla_obs(i,j,bi,bj) |
|
./pkg/ecco/cost_sla_read_yd.F |
158 |
COST_SLA_READ_YD |
do i = imin,imax |
|
./pkg/ecco/cost_sla_read_yd.F |
159 |
COST_SLA_READ_YD |
sla_obs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sla_read_yd.F |
160 |
COST_SLA_READ_YD |
sla_mask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sla_read_yd.F |
53 |
COST_SLA_READ_YD |
integer i,j,k |
|
./pkg/ecco/cost_ssh.F |
110 |
COST_SSH |
do i = imin, imax |
|
./pkg/ecco/cost_ssh.F |
111 |
COST_SSH |
wwwtp(i,j) = 0. _d 0 |
|
./pkg/ecco/cost_ssh.F |
112 |
COST_SSH |
wwwers(i,j) = 0. _d 0 |
|
./pkg/ecco/cost_ssh.F |
113 |
COST_SSH |
wwwgfo(i,j) = 0. _d 0 |
|
./pkg/ecco/cost_ssh.F |
133 |
COST_SSH |
do i = imin,imax |
|
./pkg/ecco/cost_ssh.F |
134 |
COST_SSH |
psmean(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_ssh.F |
149 |
COST_SSH |
do i = imin,imax |
|
./pkg/ecco/cost_ssh.F |
150 |
COST_SSH |
mdtmask(i,j,bi,bj)=maskC(i,j,1,bi,bj) |
|
./pkg/ecco/cost_ssh.F |
151 |
COST_SSH |
if (mdt(i,j,bi,bj) .lt. -9990. _d 0) then |
|
./pkg/ecco/cost_ssh.F |
152 |
COST_SSH |
mdtmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_ssh.F |
154 |
COST_SSH |
if ( R_low(i,j,bi,bj) .GT. -200. ) then |
|
./pkg/ecco/cost_ssh.F |
155 |
COST_SSH |
mdtmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_ssh.F |
157 |
COST_SSH |
mdt(i,j,bi,bj) = mdt(i,j,bi,bj)* |
|
./pkg/ecco/cost_ssh.F |
158 |
COST_SSH |
& mdtmask(i,j,bi,bj)*0.01 _d 0 |
|
./pkg/ecco/cost_ssh.F |
176 |
COST_SSH |
do i = imin,imax |
|
./pkg/ecco/cost_ssh.F |
177 |
COST_SSH |
psmean(i,j,bi,bj) = psmean(i,j,bi,bj) + |
|
./pkg/ecco/cost_ssh.F |
178 |
COST_SSH |
& psbar(i,j,bi,bj)/ |
|
./pkg/ecco/cost_ssh.F |
196 |
COST_SSH |
do i = 1,snx |
|
./pkg/ecco/cost_ssh.F |
198 |
COST_SSH |
& mdtmask(i,j,bi,bj)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_ssh.F |
199 |
COST_SSH |
& (mdt(i,j,bi,bj) - psmean(i,j,bi,bj)) |
|
./pkg/ecco/cost_ssh.F |
201 |
COST_SSH |
& mdtmask(i,j,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh.F |
234 |
COST_SSH |
do i = 1,snx |
|
./pkg/ecco/cost_ssh.F |
235 |
COST_SSH |
prof_etan_mean(i,j,bi,bj)=offset+psmean(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh.F |
254 |
COST_SSH |
do i = imin,imax |
|
./pkg/ecco/cost_ssh.F |
255 |
COST_SSH |
junk = psmean(i,j,bi,bj) - mdt(i,j,bi,bj) + offset |
|
./pkg/ecco/cost_ssh.F |
257 |
COST_SSH |
& * wp(i,j,bi,bj)*mdtmask(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh.F |
258 |
COST_SSH |
if ( wp(i,j,bi,bj)*mdtmask(i,j,bi,bj) .ne. 0. ) |
|
./pkg/ecco/cost_ssh.F |
306 |
COST_SSH |
do i = imin,imax |
|
./pkg/ecco/cost_ssh.F |
308 |
COST_SSH |
wwwtp(i,j) = wtp(i,j,bi,bj) *cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh.F |
310 |
COST_SSH |
junk = ((psbar(i,j,bi,bj) - psmean(i,j,bi,bj)) - |
|
./pkg/ecco/cost_ssh.F |
311 |
COST_SSH |
& tpobs(i,j,bi,bj)) |
|
./pkg/ecco/cost_ssh.F |
312 |
COST_SSH |
& *tpmask(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh.F |
314 |
COST_SSH |
& + junk*junk*wwwtp(i,j) |
|
./pkg/ecco/cost_ssh.F |
315 |
COST_SSH |
if ( wwwtp(i,j)*junk .ne. 0. ) |
|
./pkg/ecco/cost_ssh.F |
318 |
COST_SSH |
if (mdtmask(i,j,bi,bj)*tpmask(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh.F |
319 |
COST_SSH |
& *wp(i,j,bi,bj)*wwwtp(i,j) .ne.0.) then |
|
./pkg/ecco/cost_ssh.F |
320 |
COST_SSH |
junk = ( psbar(i,j,bi,bj) - |
|
./pkg/ecco/cost_ssh.F |
321 |
COST_SSH |
& (tpobs(i,j,bi,bj)+mdt(i,j,bi,bj)-offset) ) |
|
./pkg/ecco/cost_ssh.F |
323 |
COST_SSH |
& +junk*junk/( 1/wp(i,j,bi,bj)+1/wwwtp(i,j) ) |
|
./pkg/ecco/cost_ssh.F |
333 |
COST_SSH |
do i = imin,imax |
|
./pkg/ecco/cost_ssh.F |
335 |
COST_SSH |
wwwers(i,j) = wers(i,j,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh.F |
337 |
COST_SSH |
junk = ((psbar(i,j,bi,bj) - psmean(i,j,bi,bj)) - |
|
./pkg/ecco/cost_ssh.F |
338 |
COST_SSH |
& ersobs(i,j,bi,bj)) |
|
./pkg/ecco/cost_ssh.F |
339 |
COST_SSH |
& *ersmask(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh.F |
341 |
COST_SSH |
& + junk*junk*wwwers(i,j) |
|
./pkg/ecco/cost_ssh.F |
342 |
COST_SSH |
if ( wwwers(i,j)*junk .ne. 0. ) |
|
./pkg/ecco/cost_ssh.F |
345 |
COST_SSH |
if (mdtmask(i,j,bi,bj)*ersmask(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh.F |
346 |
COST_SSH |
& *wp(i,j,bi,bj)*wwwers(i,j) .ne.0.) then |
|
./pkg/ecco/cost_ssh.F |
347 |
COST_SSH |
junk = ( psbar(i,j,bi,bj) - |
|
./pkg/ecco/cost_ssh.F |
348 |
COST_SSH |
& (ersobs(i,j,bi,bj)+mdt(i,j,bi,bj)-offset) ) |
|
./pkg/ecco/cost_ssh.F |
350 |
COST_SSH |
& +junk*junk/( 1/wp(i,j,bi,bj)+1/wwwers(i,j) ) |
|
./pkg/ecco/cost_ssh.F |
360 |
COST_SSH |
do i = imin,imax |
|
./pkg/ecco/cost_ssh.F |
362 |
COST_SSH |
wwwgfo(i,j) = wgfo(i,j,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh.F |
364 |
COST_SSH |
junk = ((psbar(i,j,bi,bj) - psmean(i,j,bi,bj)) - |
|
./pkg/ecco/cost_ssh.F |
365 |
COST_SSH |
& gfoobs(i,j,bi,bj)) |
|
./pkg/ecco/cost_ssh.F |
366 |
COST_SSH |
& *gfomask(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh.F |
368 |
COST_SSH |
& + junk*junk*wwwgfo(i,j) |
|
./pkg/ecco/cost_ssh.F |
369 |
COST_SSH |
if ( wwwgfo(i,j)*junk .ne. 0. ) |
|
./pkg/ecco/cost_ssh.F |
372 |
COST_SSH |
if (mdtmask(i,j,bi,bj)*gfomask(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh.F |
373 |
COST_SSH |
& *wp(i,j,bi,bj)*wwwgfo(i,j) .ne.0.) then |
|
./pkg/ecco/cost_ssh.F |
374 |
COST_SSH |
junk = ( psbar(i,j,bi,bj) - |
|
./pkg/ecco/cost_ssh.F |
375 |
COST_SSH |
& (gfoobs(i,j,bi,bj)+mdt(i,j,bi,bj)-offset) ) |
|
./pkg/ecco/cost_ssh.F |
377 |
COST_SSH |
& +junk*junk/( 1/wp(i,j,bi,bj)+1/wwwgfo(i,j) ) |
|
./pkg/ecco/cost_ssh.F |
67 |
COST_SSH |
integer i,j |
|
./pkg/ecco/ecco_check.F |
54 |
ECCO_CHECK |
INTEGER bi, bj, i, j, k |
|
./pkg/ecco/ecco_check.F |
66 |
ECCO_CHECK |
do i = 1-OLx,sNx+OLx |
|
./pkg/ecco/ecco_check.F |
67 |
ECCO_CHECK |
eccoVol_0(i,j,k,bi,bj)= |
|
./pkg/ecco/ecco_check.F |
68 |
ECCO_CHECK |
& hFacC(i,j,k,bi,bj)*drF(k)*rA(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
138 |
ECCO_COST_INIT_BARFILES |
do i = imin,imax |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
139 |
ECCO_COST_INIT_BARFILES |
tmpfld2d(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
148 |
ECCO_COST_INIT_BARFILES |
do i = imin,imax |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
149 |
ECCO_COST_INIT_BARFILES |
tmpfld3d(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
60 |
ECCO_COST_INIT_BARFILES |
integer i,j,k |
|
./pkg/ecco/ecco_cost_init_fixed.F |
74 |
ECCO_COST_INIT_FIXED |
integer i,j,kk,k2 |