| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_obcs_ageos.F |
216 |
COST_OBCS_AGEOS |
jp1 = 0 |
|
./pkg/ecco/cost_obcs_ageos.F |
227 |
COST_OBCS_AGEOS |
& hfacC(i,j+jp1,k,bi,bj)*hfacC(i+1,j+jp1,k,bi,bj) * |
|
./pkg/ecco/cost_obcs_ageos.F |
228 |
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 |
229 |
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 |
230 |
COST_OBCS_AGEOS |
& hfacS(i,j+jp1,k,bi,bj)*hfacS(i,j+jp1,k+1,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
244 |
COST_OBCS_AGEOS |
& (rholoc(i-1,j+jp1,bi,bj)-rholoc(i+1,j+jp1,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
245 |
COST_OBCS_AGEOS |
& /(2.*dxc(i,j+jp1,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
255 |
COST_OBCS_AGEOS |
xzdvel1(i,k,bi,bj) = vbar(i,j+jp1,k ,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
256 |
COST_OBCS_AGEOS |
& - vbar(i,j+jp1,k+1,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
275 |
COST_OBCS_AGEOS |
jp1 = 1 |
|
./pkg/ecco/cost_obcs_ageos.F |
286 |
COST_OBCS_AGEOS |
& hfacC(i,j+jp1,k,bi,bj)*hfacC(i+1,j+jp1,k,bi,bj) * |
|
./pkg/ecco/cost_obcs_ageos.F |
287 |
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 |
288 |
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 |
289 |
COST_OBCS_AGEOS |
& hfacS(i,j+jp1,k,bi,bj)*hfacS(i,j+jp1,k+1,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
304 |
COST_OBCS_AGEOS |
& (rholoc(i-1,j+jp1,bi,bj)-rholoc(i+1,j+jp1,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
305 |
COST_OBCS_AGEOS |
& /(2.*dxc(i,j+jp1,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
314 |
COST_OBCS_AGEOS |
xzdvel1(i,k,bi,bj) = vbar(i,j+jp1,k ,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
315 |
COST_OBCS_AGEOS |
& - vbar(i,j+jp1,k+1,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
68 |
COST_OBCS_AGEOS |
integer ip1, jp1 |
|
./pkg/ecco/cost_obcsn.F |
128 |
COST_OBCSN |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcsn.F |
165 |
COST_OBCSN |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcsn.F |
238 |
COST_OBCSN |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcsn.F |
59 |
COST_OBCSN |
integer jp1 |
|
./pkg/ecco/cost_obcsn.F |
99 |
COST_OBCSN |
jp1 = 0 |
|
./pkg/ecco/cost_obcsvol.F |
180 |
COST_OBCSVOL |
jp1 = 0 |
|
./pkg/ecco/cost_obcsvol.F |
207 |
COST_OBCSVOL |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcsvol.F |
209 |
COST_OBCSVOL |
fctile = fctile - tmpx* delZ(k) *dxg(i,j+jp1,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
223 |
COST_OBCSVOL |
jp1 = 1 |
|
./pkg/ecco/cost_obcsvol.F |
249 |
COST_OBCSVOL |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcsvol.F |
251 |
COST_OBCSVOL |
fctile = fctile + tmpx* delZ(k) *dxg(i,j+jp1,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
64 |
COST_OBCSVOL |
integer jp1 |
|
./pkg/ecco/cost_obcss.F |
128 |
COST_OBCSS |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcss.F |
165 |
COST_OBCSS |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcss.F |
238 |
COST_OBCSS |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcss.F |
59 |
COST_OBCSS |
integer jp1 |
|
./pkg/ecco/cost_obcss.F |
99 |
COST_OBCSS |
jp1 = 1 |
|
./verification/advect_cs/code/ini_vel.F |
25 |
INI_VEL |
INTEGER ip1,jp1 |
|
./verification/advect_cs/code/ini_vel.F |
43 |
INI_VEL |
jp1=MIN(j+1,sNy+Oly) |
|
./verification/advect_cs/code/ini_vel.F |
47 |
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 |
35 |
INI_VEL |
INTEGER ip1,jp1 |
|
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
53 |
INI_VEL |
jp1=MIN(j+1,sNy+Oly) |
|
./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) |
|
./pkg/kpp/kpp_calc.F |
193 |
KPP_CALC |
integer i, j, k, kp1, im1, ip1, jm1, jp1 |
|
./pkg/kpp/kpp_calc.F |
356 |
KPP_CALC |
jp1 = j + 1 |
|
./pkg/kpp/kpp_calc.F |
362 |
KPP_CALC |
& (surfaceForcingV(i,j,bi,bj) + surfaceForcingV(i,jp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
363 |
KPP_CALC |
& (surfaceForcingV(i,j,bi,bj) + surfaceForcingV(i,jp1,bi,bj)) |
|
./pkg/kpp/kpp_calc.F |
370 |
KPP_CALC |
jp1 = j + 1 |
|
./pkg/kpp/kpp_calc.F |
428 |
KPP_CALC |
jp1 = j + 1 |
|
./pkg/kpp/kpp_calc.F |
465 |
KPP_CALC |
& (vVel(i, jp1,1,bi,bj)-vVel(i, jp1,2,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
466 |
KPP_CALC |
& (vVel(i, jp1,1,bi,bj)-vVel(i, jp1,2,bi,bj)) ) |
|
./pkg/kpp/kpp_calc.F |
487 |
KPP_CALC |
& ( vVel(i,j,1,bi,bj) + vVel(i,jp1,1,bi,bj) ) |
|
./pkg/kpp/kpp_calc.F |
493 |
KPP_CALC |
& surfaceForcingV(i,jp1,bi,bj) ) * p5 |
|
./pkg/kpp/kpp_calc.F |
515 |
KPP_CALC |
jp1 = j + 1 |
|
./pkg/kpp/kpp_calc.F |
526 |
KPP_CALC |
$ (vRef(i,j) - vVel(i, jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
527 |
KPP_CALC |
$ (vRef(i,j) - vVel(i, jp1,k,bi,bj)) ) |
|
./pkg/kpp/kpp_calc.F |
534 |
KPP_CALC |
$ (uRef(i,j) - uVel(i, jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
535 |
KPP_CALC |
$ (uRef(i,j) - uVel(i, jp1,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 |
540 |
KPP_CALC |
$ (vRef(i,j) - vVel(im1,jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
541 |
KPP_CALC |
$ (vRef(i,j) - vVel(im1,jp1,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 |
556 |
KPP_CALC |
jp1 = j + 1 |
|
./pkg/kpp/kpp_calc.F |
567 |
KPP_CALC |
$ (vVel(i, jp1,1,bi,bj)-vVel(i, jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
568 |
KPP_CALC |
$ (vVel(i, jp1,1,bi,bj)-vVel(i, jp1,k,bi,bj)) ) |
|
./pkg/kpp/kpp_calc.F |
575 |
KPP_CALC |
$ (uVel(i, jp1,1,bi,bj)-uVel(i, jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
576 |
KPP_CALC |
$ (uVel(i, jp1,1,bi,bj)-uVel(i, jp1,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 |
581 |
KPP_CALC |
$ (vVel(im1,jp1,1,bi,bj)-vVel(im1,jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
582 |
KPP_CALC |
$ (vVel(im1,jp1,1,bi,bj)-vVel(im1,jp1,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 |
599 |
KPP_CALC |
jp1 = j + 1 |
|
./pkg/kpp/kpp_calc.F |
610 |
KPP_CALC |
$ (vVel(i, jp1,k,bi,bj)-vVel(i, jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
611 |
KPP_CALC |
$ (vVel(i, jp1,k,bi,bj)-vVel(i, jp1,kp1,bi,bj)) ) |
|
./pkg/kpp/kpp_calc.F |
618 |
KPP_CALC |
$ (uVel(i, jp1,k,bi,bj)-uVel(i, jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
619 |
KPP_CALC |
$ (uVel(i, jp1,k,bi,bj)-uVel(i, jp1,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 |
624 |
KPP_CALC |
$ (vVel(im1,jp1,k,bi,bj)-vVel(im1,jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
625 |
KPP_CALC |
$ (vVel(im1,jp1,k,bi,bj)-vVel(im1,jp1,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 |
1019 |
SMOOTH_HORIZ |
jp1 = j+1 |
|
./pkg/kpp/kpp_routines.F |
1028 |
SMOOTH_HORIZ |
& maskC(i ,jp1,k,bi,bj) ) + |
|
./pkg/kpp/kpp_routines.F |
1030 |
SMOOTH_HORIZ |
& maskC(im1,jp1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1032 |
SMOOTH_HORIZ |
& maskC(ip1,jp1,k,bi,bj) ) |
|
./pkg/kpp/kpp_routines.F |
1039 |
SMOOTH_HORIZ |
& fld(i ,jp1)*maskC(i ,jp1,k,bi,bj))+ |
|
./pkg/kpp/kpp_routines.F |
1041 |
SMOOTH_HORIZ |
& fld(im1,jp1)*maskC(im1,jp1,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 |
938 |
KPP_SMOOTH_HORIZ |
jp1 = j+1 |
|
./pkg/kpp/kpp_routines.F |
947 |
KPP_SMOOTH_HORIZ |
& maskC(i ,jp1,k,bi,bj) ) + |
|
./pkg/kpp/kpp_routines.F |
949 |
KPP_SMOOTH_HORIZ |
& maskC(im1,jp1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
951 |
KPP_SMOOTH_HORIZ |
& maskC(ip1,jp1,k,bi,bj) ) |
|
./pkg/kpp/kpp_routines.F |
958 |
KPP_SMOOTH_HORIZ |
& fld(i ,jp1)*maskC(i ,jp1,k,bi,bj))+ |
|
./pkg/kpp/kpp_routines.F |
960 |
KPP_SMOOTH_HORIZ |
& fld(im1,jp1)*maskC(im1,jp1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
962 |
KPP_SMOOTH_HORIZ |
& fld(ip1,jp1)*maskC(ip1,jp1,k,bi,bj))) |
|
./pkg/ctrl/ctrl_obcsvol.F |
166 |
CTRL_OBCSVOL |
jp1 = 0 |
|
./pkg/ctrl/ctrl_obcsvol.F |
183 |
CTRL_OBCSVOL |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_obcsvol.F |
188 |
CTRL_OBCSVOL |
tmpflux = tmpflux - tmpx* delR(k)*dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
189 |
CTRL_OBCSVOL |
tmparea = tmparea + delR(k) * dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
202 |
CTRL_OBCSVOL |
jp1 = 1 |
|
./pkg/ctrl/ctrl_obcsvol.F |
219 |
CTRL_OBCSVOL |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_obcsvol.F |
224 |
CTRL_OBCSVOL |
tmpflux = tmpflux + tmpx* delR(k)*dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
225 |
CTRL_OBCSVOL |
tmparea = tmparea + delR(k) * dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
325 |
CTRL_OBCSVOL |
jp1 = 0 |
|
./pkg/ctrl/ctrl_obcsvol.F |
341 |
CTRL_OBCSVOL |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_obcsvol.F |
346 |
CTRL_OBCSVOL |
tmpflux = tmpflux - tmpx* delR(k)*dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
347 |
CTRL_OBCSVOL |
tmparea = tmparea + delR(k) * dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
360 |
CTRL_OBCSVOL |
jp1 = 1 |
|
./pkg/ctrl/ctrl_obcsvol.F |
377 |
CTRL_OBCSVOL |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_obcsvol.F |
382 |
CTRL_OBCSVOL |
tmpflux = tmpflux + tmpx* delR(k)*dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
383 |
CTRL_OBCSVOL |
tmparea = tmparea + delR(k) * dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
61 |
CTRL_OBCSVOL |
integer jp1 |
|
./pkg/ctrl/ctrl_smooth.F |
25 |
CTRL_SMOOTH |
integer i, j, im1, ip1, jm1, jp1 |
|
./pkg/ctrl/ctrl_smooth.F |
43 |
CTRL_SMOOTH |
jp1 = j+1 |
|
./pkg/ctrl/ctrl_smooth.F |
52 |
CTRL_SMOOTH |
& mask(i ,jp1,k,bi,bj) ) + |
|
./pkg/ctrl/ctrl_smooth.F |
54 |
CTRL_SMOOTH |
& mask(im1,jp1,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
56 |
CTRL_SMOOTH |
& mask(ip1,jp1,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 |
65 |
CTRL_SMOOTH |
& fld(im1,jp1,bi,bj)*mask(im1,jp1,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_volflux.F |
166 |
CTRL_VOLFLUX |
jp1 = 0 |
|
./pkg/ctrl/ctrl_volflux.F |
185 |
CTRL_VOLFLUX |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_volflux.F |
196 |
CTRL_VOLFLUX |
tmparea = tmparea + delR(k) * dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
200 |
CTRL_VOLFLUX |
tmpflux = tmpflux -tmpx*delR(k)*dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
214 |
CTRL_VOLFLUX |
jp1 = 1 |
|
./pkg/ctrl/ctrl_volflux.F |
233 |
CTRL_VOLFLUX |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_volflux.F |
245 |
CTRL_VOLFLUX |
tmparea = tmparea + delR(k) * dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
250 |
CTRL_VOLFLUX |
tmpflux = tmpflux +tmpx*delR(k)*dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
67 |
CTRL_VOLFLUX |
integer jp1 |
|
./pkg/ctrl/ctrl_obcsbal.F |
64 |
CTRL_OBCSBAL |
integer jp1 |
|
./pkg/ctrl/ctrl_getobcss.F |
154 |
CTRL_GETOBCSS |
& maskS(i,j+jp1,k,bi,bj) * delR(k) + vtop |
|
./pkg/ctrl/ctrl_getobcss.F |
156 |
CTRL_GETOBCSS |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_getobcss.F |
273 |
CTRL_GETOBCSS |
& maskS(i,j+jp1,k,bi,bj) * delR(k) + vtop |
|
./pkg/ctrl/ctrl_getobcss.F |
275 |
CTRL_GETOBCSS |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_getobcss.F |
350 |
CTRL_GETOBCSS |
& *maskS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
356 |
CTRL_GETOBCSS |
& *maskS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
368 |
CTRL_GETOBCSS |
& *maskS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
68 |
CTRL_GETOBCSS |
integer jp1 |
|
./pkg/ctrl/ctrl_getobcss.F |
98 |
CTRL_GETOBCSS |
jp1 = 1 |
|
./pkg/ctrl/ctrl_getobcsn.F |
101 |
CTRL_GETOBCSN |
jp1 = 0 |
|
./pkg/ctrl/ctrl_getobcsn.F |
165 |
CTRL_GETOBCSN |
& maskS(i,j+jp1,k,bi,bj) * delR(k) + vtop |
|
./pkg/ctrl/ctrl_getobcsn.F |
167 |
CTRL_GETOBCSN |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_getobcsn.F |
296 |
CTRL_GETOBCSN |
& maskS(i,j+jp1,k,bi,bj) * delR(k) + vtop |
|
./pkg/ctrl/ctrl_getobcsn.F |
298 |
CTRL_GETOBCSN |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_getobcsn.F |
375 |
CTRL_GETOBCSN |
& *maskS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
382 |
CTRL_GETOBCSN |
& *maskS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
396 |
CTRL_GETOBCSN |
& *maskS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
60 |
CTRL_GETOBCSN |
integer jp1 |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
105 |
CTRL_MASK_SET_XZ |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
34 |
CTRL_MASK_SET_XZ |
integer jp1 |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
6 |
CTRL_MASK_SET_XZ |
& jp1, OB_J, nwetobcs, ymaskobcs, mythid ) |