| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_obcs_ageos.F |
334 |
COST_OBCS_AGEOS |
ip1 = 1 |
|
./pkg/ecco/cost_obcs_ageos.F |
345 |
COST_OBCS_AGEOS |
& hfacC(i+ip1,j,k,bi,bj)*hfacC(i+ip1,j+1,k,bi,bj) * |
|
./pkg/ecco/cost_obcs_ageos.F |
346 |
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 |
347 |
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 |
348 |
COST_OBCS_AGEOS |
& hfacW(i+ip1,j,k,bi,bj)*hfacW(i+ip1,j,k+1,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
364 |
COST_OBCS_AGEOS |
& (rholoc(i+ip1,j+1,bi,bj)-rholoc(i+ip1,j-1,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
365 |
COST_OBCS_AGEOS |
& /(2.*dyc(i+ip1,j,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
374 |
COST_OBCS_AGEOS |
yzdvel1(j,k,bi,bj) = ubar(i+ip1,j,k ,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
375 |
COST_OBCS_AGEOS |
& - ubar(i+ip1,j,k+1,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
393 |
COST_OBCS_AGEOS |
ip1 = 0 |
|
./pkg/ecco/cost_obcs_ageos.F |
404 |
COST_OBCS_AGEOS |
& hfacC(i+ip1,j,k,bi,bj)*hfacC(i+ip1,j+1,k,bi,bj) * |
|
./pkg/ecco/cost_obcs_ageos.F |
405 |
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 |
406 |
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 |
407 |
COST_OBCS_AGEOS |
& hfacW(i+ip1,j,k,bi,bj)*hfacW(i+ip1,j,k+1,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
423 |
COST_OBCS_AGEOS |
& (rholoc(i+ip1,,j+1,bi,bj)-rholoc(i+ip1,j-1,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
424 |
COST_OBCS_AGEOS |
& /(2.*dyc(i+ip1,j,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
433 |
COST_OBCS_AGEOS |
yzdvel1(j,k,bi,bj) = ubar(i+ip1,j,k ,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
434 |
COST_OBCS_AGEOS |
& - ubar(i+ip1,j,k+1,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
68 |
COST_OBCS_AGEOS |
integer ip1, jp1 |
|
./pkg/ecco/cost_obcsvol.F |
266 |
COST_OBCSVOL |
ip1 = 1 |
|
./pkg/ecco/cost_obcsvol.F |
292 |
COST_OBCSVOL |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcsvol.F |
294 |
COST_OBCSVOL |
fctile = fctile + tmpy* delZ(k) *dyg(i+ip1,j,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
309 |
COST_OBCSVOL |
ip1 = 0 |
|
./pkg/ecco/cost_obcsvol.F |
335 |
COST_OBCSVOL |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcsvol.F |
337 |
COST_OBCSVOL |
fctile = fctile - tmpy* delZ(k) *dyg(i+ip1,j,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
63 |
COST_OBCSVOL |
integer ip1 |
|
./pkg/ecco/cost_obcsw.F |
128 |
COST_OBCSW |
if (maskS(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcsw.F |
165 |
COST_OBCSW |
if (maskS(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcsw.F |
201 |
COST_OBCSW |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcsw.F |
59 |
COST_OBCSW |
integer ip1 |
|
./pkg/ecco/cost_obcsw.F |
99 |
COST_OBCSW |
ip1 = 1 |
|
./pkg/ecco/cost_obcse.F |
128 |
COST_OBCSE |
if (maskS(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcse.F |
165 |
COST_OBCSE |
if (maskS(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcse.F |
201 |
COST_OBCSE |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcse.F |
59 |
COST_OBCSE |
integer ip1 |
|
./pkg/ecco/cost_obcse.F |
99 |
COST_OBCSE |
ip1 = 0 |
|
./verification/advect_cs/code/ini_vel.F |
25 |
INI_VEL |
INTEGER ip1,jp1 |
|
./verification/advect_cs/code/ini_vel.F |
45 |
INI_VEL |
ip1=MIN(i+1,sNx+Olx) |
|
./verification/advect_cs/code/ini_vel.F |
49 |
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 |
35 |
INI_VEL |
INTEGER ip1,jp1 |
|
./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 |
59 |
INI_VEL |
& +(psi(ip1,j,bi,bj)-psi(i,j,bi,bj))*recip_dxg(i,j,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
193 |
KPP_CALC |
integer i, j, k, kp1, im1, ip1, jm1, jp1 |
|
./pkg/kpp/kpp_calc.F |
358 |
KPP_CALC |
ip1 = i+1 |
|
./pkg/kpp/kpp_calc.F |
360 |
KPP_CALC |
& (surfaceForcingU(i,j,bi,bj) + surfaceForcingU(ip1,j,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
361 |
KPP_CALC |
& (surfaceForcingU(i,j,bi,bj) + surfaceForcingU(ip1,j,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
372 |
KPP_CALC |
ip1 = i+1 |
|
./pkg/kpp/kpp_calc.F |
430 |
KPP_CALC |
ip1 = i + 1 |
|
./pkg/kpp/kpp_calc.F |
461 |
KPP_CALC |
& (uVel(ip1,j, 1,bi,bj)-uVel(ip1,j, 2,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
462 |
KPP_CALC |
& (uVel(ip1,j, 1,bi,bj)-uVel(ip1,j, 2,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
485 |
KPP_CALC |
& ( uVel(i,j,1,bi,bj) + uVel(ip1,j,1,bi,bj) ) |
|
./pkg/kpp/kpp_calc.F |
490 |
KPP_CALC |
& surfaceForcingU(ip1,j,bi,bj) ) * p5 |
|
./pkg/kpp/kpp_calc.F |
518 |
KPP_CALC |
ip1 = i + 1 |
|
./pkg/kpp/kpp_calc.F |
522 |
KPP_CALC |
$ (uRef(i,j) - uVel(ip1,j, k,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
523 |
KPP_CALC |
$ (uRef(i,j) - uVel(ip1,j, k,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
532 |
KPP_CALC |
$ (uRef(i,j) - uVel(ip1,jm1,k,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
533 |
KPP_CALC |
$ (uRef(i,j) - uVel(ip1,jm1,k,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
536 |
KPP_CALC |
$ (uRef(i,j) - uVel(ip1,jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
537 |
KPP_CALC |
$ (uRef(i,j) - uVel(ip1,jp1,k,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
542 |
KPP_CALC |
$ (vRef(i,j) - vVel(ip1,j, k,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
543 |
KPP_CALC |
$ (vRef(i,j) - vVel(ip1,j, k,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
544 |
KPP_CALC |
$ (vRef(i,j) - vVel(ip1,jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
545 |
KPP_CALC |
$ (vRef(i,j) - vVel(ip1,jp1,k,bi,bj)) ) |
|
./pkg/kpp/kpp_calc.F |
559 |
KPP_CALC |
ip1 = i + 1 |
|
./pkg/kpp/kpp_calc.F |
563 |
KPP_CALC |
$ (uVel(ip1,j, 1,bi,bj)-uVel(ip1,j, k,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
564 |
KPP_CALC |
$ (uVel(ip1,j, 1,bi,bj)-uVel(ip1,j, k,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
573 |
KPP_CALC |
$ (uVel(ip1,jm1,1,bi,bj)-uVel(ip1,jm1,k,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
574 |
KPP_CALC |
$ (uVel(ip1,jm1,1,bi,bj)-uVel(ip1,jm1,k,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
577 |
KPP_CALC |
$ (uVel(ip1,jp1,1,bi,bj)-uVel(ip1,jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
578 |
KPP_CALC |
$ (uVel(ip1,jp1,1,bi,bj)-uVel(ip1,jp1,k,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
583 |
KPP_CALC |
$ (vVel(ip1,j, 1,bi,bj)-vVel(ip1,j, k,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
584 |
KPP_CALC |
$ (vVel(ip1,j, 1,bi,bj)-vVel(ip1,j, k,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
585 |
KPP_CALC |
$ (vVel(ip1,jp1,1,bi,bj)-vVel(ip1,jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
586 |
KPP_CALC |
$ (vVel(ip1,jp1,1,bi,bj)-vVel(ip1,jp1,k,bi,bj)) ) |
|
./pkg/kpp/kpp_calc.F |
602 |
KPP_CALC |
ip1 = i + 1 |
|
./pkg/kpp/kpp_calc.F |
606 |
KPP_CALC |
$ (uVel(ip1,j, k,bi,bj)-uVel(ip1,j, kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
607 |
KPP_CALC |
$ (uVel(ip1,j, k,bi,bj)-uVel(ip1,j, kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
616 |
KPP_CALC |
$ (uVel(ip1,jm1,k,bi,bj)-uVel(ip1,jm1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
617 |
KPP_CALC |
$ (uVel(ip1,jm1,k,bi,bj)-uVel(ip1,jm1,kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
620 |
KPP_CALC |
$ (uVel(ip1,jp1,k,bi,bj)-uVel(ip1,jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
621 |
KPP_CALC |
$ (uVel(ip1,jp1,k,bi,bj)-uVel(ip1,jp1,kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
626 |
KPP_CALC |
$ (vVel(ip1,j, k,bi,bj)-vVel(ip1,j, kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
627 |
KPP_CALC |
$ (vVel(ip1,j, k,bi,bj)-vVel(ip1,j, kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
628 |
KPP_CALC |
$ (vVel(ip1,jp1,k,bi,bj)-vVel(ip1,jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
629 |
KPP_CALC |
$ (vVel(ip1,jp1,k,bi,bj)-vVel(ip1,jp1,kp1,bi,bj)) ) |
|
./pkg/kpp/kpp_routines.F |
1007 |
SMOOTH_HORIZ |
integer i, j, im1, ip1, jm1, jp1 |
|
./pkg/kpp/kpp_routines.F |
1022 |
SMOOTH_HORIZ |
ip1 = i+1 |
|
./pkg/kpp/kpp_routines.F |
1026 |
SMOOTH_HORIZ |
& maskC(ip1,j ,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1031 |
SMOOTH_HORIZ |
& maskC(ip1,jm1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1032 |
SMOOTH_HORIZ |
& maskC(ip1,jp1,k,bi,bj) ) |
|
./pkg/kpp/kpp_routines.F |
1037 |
SMOOTH_HORIZ |
& fld(ip1,j )*maskC(ip1,j ,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1042 |
SMOOTH_HORIZ |
& fld(ip1,jm1)*maskC(ip1,jm1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1043 |
SMOOTH_HORIZ |
& fld(ip1,jp1)*maskC(ip1,jp1,k,bi,bj))) |
|
./pkg/kpp/kpp_routines.F |
926 |
KPP_SMOOTH_HORIZ |
integer i, j, im1, ip1, jm1, jp1 |
|
./pkg/kpp/kpp_routines.F |
941 |
KPP_SMOOTH_HORIZ |
ip1 = i+1 |
|
./pkg/kpp/kpp_routines.F |
945 |
KPP_SMOOTH_HORIZ |
& maskC(ip1,j ,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
950 |
KPP_SMOOTH_HORIZ |
& maskC(ip1,jm1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
951 |
KPP_SMOOTH_HORIZ |
& maskC(ip1,jp1,k,bi,bj) ) |
|
./pkg/kpp/kpp_routines.F |
956 |
KPP_SMOOTH_HORIZ |
& fld(ip1,j )*maskC(ip1,j ,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
961 |
KPP_SMOOTH_HORIZ |
& fld(ip1,jm1)*maskC(ip1,jm1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
962 |
KPP_SMOOTH_HORIZ |
& fld(ip1,jp1)*maskC(ip1,jp1,k,bi,bj))) |
|
./pkg/fizhi/fizhi_fillnegs.F |
194 |
TRACER_FILL |
do ip1=1,im |
|
./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 |
232 |
TRACER_FILL |
if( array(1).gt.0 ) pq(ip1,j,L) = pq(ip1,j,L) * fact |
|
./pkg/fizhi/fizhi_fillnegs.F |
243 |
TRACER_FILL |
if( imax.eq.1 ) pq(ip1,j,L) = pq(ip1,j,L) + |
|
./pkg/fizhi/fizhi_fillnegs.F |
244 |
TRACER_FILL |
. pq(i,j,L)*d2p(i,j)/d2p(ip1,j) |
|
./pkg/fizhi/fizhi_fillnegs.F |
261 |
TRACER_FILL |
i = ip1 |
|
./pkg/fizhi/fizhi_fillnegs.F |
89 |
TRACER_FILL |
integer i,j,l,im1,ip1,imax,m |
|
./pkg/ctrl/ctrl_obcsvol.F |
237 |
CTRL_OBCSVOL |
ip1 = 1 |
|
./pkg/ctrl/ctrl_obcsvol.F |
255 |
CTRL_OBCSVOL |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_obcsvol.F |
260 |
CTRL_OBCSVOL |
tmpflux = tmpflux + tmpy* delR(k)*dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
261 |
CTRL_OBCSVOL |
tmparea = tmparea + delR(k)*dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
273 |
CTRL_OBCSVOL |
ip1 = 0 |
|
./pkg/ctrl/ctrl_obcsvol.F |
291 |
CTRL_OBCSVOL |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_obcsvol.F |
296 |
CTRL_OBCSVOL |
tmpflux = tmpflux - tmpy* delR(k)*dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
297 |
CTRL_OBCSVOL |
tmparea = tmparea + delR(k) *dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
395 |
CTRL_OBCSVOL |
ip1 = 1 |
|
./pkg/ctrl/ctrl_obcsvol.F |
413 |
CTRL_OBCSVOL |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_obcsvol.F |
418 |
CTRL_OBCSVOL |
tmpflux = tmpflux + tmpy* delR(k)*dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
419 |
CTRL_OBCSVOL |
tmparea = tmparea + delR(k)*dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
431 |
CTRL_OBCSVOL |
ip1 = 0 |
|
./pkg/ctrl/ctrl_obcsvol.F |
449 |
CTRL_OBCSVOL |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_obcsvol.F |
454 |
CTRL_OBCSVOL |
tmpflux = tmpflux - tmpy* delR(k)*dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
455 |
CTRL_OBCSVOL |
tmparea = tmparea + delR(k) *dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
60 |
CTRL_OBCSVOL |
integer ip1 |
|
./pkg/ctrl/ctrl_getobcsw.F |
153 |
CTRL_GETOBCSW |
& maskW(i+ip1,j,k,bi,bj) * delR(k) + utop |
|
./pkg/ctrl/ctrl_getobcsw.F |
155 |
CTRL_GETOBCSW |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_getobcsw.F |
274 |
CTRL_GETOBCSW |
& maskW(i+ip1,j,k,bi,bj) * delR(k) + utop |
|
./pkg/ctrl/ctrl_getobcsw.F |
276 |
CTRL_GETOBCSW |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_getobcsw.F |
350 |
CTRL_GETOBCSW |
& *maskW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
356 |
CTRL_GETOBCSW |
& *maskW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
362 |
CTRL_GETOBCSW |
& *maskW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
60 |
CTRL_GETOBCSW |
integer ip1 |
|
./pkg/ctrl/ctrl_getobcsw.F |
97 |
CTRL_GETOBCSW |
ip1 = 1 |
|
./pkg/ctrl/ctrl_smooth.F |
25 |
CTRL_SMOOTH |
integer i, j, im1, ip1, jm1, jp1 |
|
./pkg/ctrl/ctrl_smooth.F |
46 |
CTRL_SMOOTH |
ip1 = i+1 |
|
./pkg/ctrl/ctrl_smooth.F |
50 |
CTRL_SMOOTH |
& mask(ip1,j ,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
55 |
CTRL_SMOOTH |
& mask(ip1,jm1,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
56 |
CTRL_SMOOTH |
& mask(ip1,jp1,k,bi,bj) ) |
|
./pkg/ctrl/ctrl_smooth.F |
61 |
CTRL_SMOOTH |
& fld(ip1,j ,bi,bj )*mask(ip1,j ,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
66 |
CTRL_SMOOTH |
& fld(ip1,jm1,bi,bj)*mask(ip1,jm1,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
67 |
CTRL_SMOOTH |
& fld(ip1,jp1,bi,bj)*mask(ip1,jp1,k,bi,bj))) |
|
./pkg/ctrl/ctrl_getobcse.F |
153 |
CTRL_GETOBCSE |
& maskW(i+ip1,j,k,bi,bj) * delR(k) + utop |
|
./pkg/ctrl/ctrl_getobcse.F |
155 |
CTRL_GETOBCSE |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_getobcse.F |
271 |
CTRL_GETOBCSE |
& maskW(i+ip1,j,k,bi,bj) * delR(k) + utop |
|
./pkg/ctrl/ctrl_getobcse.F |
273 |
CTRL_GETOBCSE |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_getobcse.F |
347 |
CTRL_GETOBCSE |
& *maskW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
353 |
CTRL_GETOBCSE |
& *maskW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
359 |
CTRL_GETOBCSE |
& *maskW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
66 |
CTRL_GETOBCSE |
integer ip1 |
|
./pkg/ctrl/ctrl_getobcse.F |
96 |
CTRL_GETOBCSE |
ip1 = 0 |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
106 |
CTRL_MASK_SET_YZ |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
34 |
CTRL_MASK_SET_YZ |
integer ip1 |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
6 |
CTRL_MASK_SET_YZ |
& ip1, OB_I, nwetobcs, ymaskobcs, mythid ) |
|
./pkg/ctrl/ctrl_volflux.F |
265 |
CTRL_VOLFLUX |
ip1 = 1 |
|
./pkg/ctrl/ctrl_volflux.F |
287 |
CTRL_VOLFLUX |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_volflux.F |
300 |
CTRL_VOLFLUX |
tmparea = tmparea + delR(k) * dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
306 |
CTRL_VOLFLUX |
tmpflux = tmpflux + tmpy* delR(k)*dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
323 |
CTRL_VOLFLUX |
ip1 = 0 |
|
./pkg/ctrl/ctrl_volflux.F |
349 |
CTRL_VOLFLUX |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_volflux.F |
363 |
CTRL_VOLFLUX |
tmparea = tmparea + delR(k) * dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
371 |
CTRL_VOLFLUX |
tmpflux = tmpflux - tmpy* delR(k)*dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
375 |
CTRL_VOLFLUX |
tmparea = tmparea + delR(k) *dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
66 |
CTRL_VOLFLUX |
integer ip1 |
|
./pkg/ctrl/ctrl_obcsbal.F |
63 |
CTRL_OBCSBAL |
integer ip1 |