| File |
Line number |
Procedure |
Code |
|
./pkg/kpp/kpp_calc.F |
212 |
KPP_CALC |
integer i, j, k, kp1, km1, im1, ip1, jm1, jp1 |
|
./pkg/kpp/kpp_calc.F |
459 |
KPP_CALC |
jp1 = j + 1 |
|
./pkg/kpp/kpp_calc.F |
470 |
KPP_CALC |
& (vVel(i, jp1,k,bi,bj)-vVel(i, jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
471 |
KPP_CALC |
& (vVel(i, jp1,k,bi,bj)-vVel(i, jp1,kp1,bi,bj)) ) |
|
./pkg/kpp/kpp_calc.F |
478 |
KPP_CALC |
& (uVel(i, jp1,k,bi,bj)-uVel(i, jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
479 |
KPP_CALC |
& (uVel(i, jp1,k,bi,bj)-uVel(i, jp1,kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
480 |
KPP_CALC |
& (uVel(ip1,jp1,k,bi,bj)-uVel(ip1,jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
481 |
KPP_CALC |
& (uVel(ip1,jp1,k,bi,bj)-uVel(ip1,jp1,kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
484 |
KPP_CALC |
& (vVel(im1,jp1,k,bi,bj)-vVel(im1,jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
485 |
KPP_CALC |
& (vVel(im1,jp1,k,bi,bj)-vVel(im1,jp1,kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
488 |
KPP_CALC |
& (vVel(ip1,jp1,k,bi,bj)-vVel(ip1,jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
489 |
KPP_CALC |
& (vVel(ip1,jp1,k,bi,bj)-vVel(ip1,jp1,kp1,bi,bj)) ) |
|
./pkg/kpp/kpp_forcing_surf.F |
125 |
KPP_FORCING_SURF |
INTEGER i, j, k, im1, ip1, jm1, jp1 |
|
./pkg/kpp/kpp_forcing_surf.F |
177 |
KPP_FORCING_SURF |
jp1 = j + 1 |
|
./pkg/kpp/kpp_forcing_surf.F |
183 |
KPP_FORCING_SURF |
& (surfForcV(i,j,bi,bj) + surfForcV(i,jp1,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
184 |
KPP_FORCING_SURF |
& (surfForcV(i,j,bi,bj) + surfForcV(i,jp1,bi,bj)) |
|
./pkg/kpp/kpp_forcing_surf.F |
191 |
KPP_FORCING_SURF |
jp1 = j + 1 |
|
./pkg/kpp/kpp_forcing_surf.F |
206 |
KPP_FORCING_SURF |
jp1 = j + 1 |
|
./pkg/kpp/kpp_forcing_surf.F |
295 |
KPP_FORCING_SURF |
jp1 = j + 1 |
|
./pkg/kpp/kpp_forcing_surf.F |
333 |
KPP_FORCING_SURF |
& (vVel(i, jp1,1,bi,bj)-vVel(i, jp1,2,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
334 |
KPP_FORCING_SURF |
& (vVel(i, jp1,1,bi,bj)-vVel(i, jp1,2,bi,bj)) ) |
|
./pkg/kpp/kpp_forcing_surf.F |
353 |
KPP_FORCING_SURF |
vRef(i,j) = p5 * ( vVel(i,j,1,bi,bj) + vVel(i,jp1,1,bi,bj) ) |
|
./pkg/kpp/kpp_forcing_surf.F |
358 |
KPP_FORCING_SURF |
& surfForcV(i,jp1,bi,bj) ) * p5 *recip_drF(1) |
|
./pkg/kpp/kpp_forcing_surf.F |
379 |
KPP_FORCING_SURF |
jp1 = j + 1 |
|
./pkg/kpp/kpp_forcing_surf.F |
390 |
KPP_FORCING_SURF |
& (vRef(i,j) - vVel(i, jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
391 |
KPP_FORCING_SURF |
& (vRef(i,j) - vVel(i, jp1,k,bi,bj)) ) |
|
./pkg/kpp/kpp_forcing_surf.F |
398 |
KPP_FORCING_SURF |
& (uRef(i,j) - uVel(i, jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
399 |
KPP_FORCING_SURF |
& (uRef(i,j) - uVel(i, jp1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
400 |
KPP_FORCING_SURF |
& (uRef(i,j) - uVel(ip1,jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
401 |
KPP_FORCING_SURF |
& (uRef(i,j) - uVel(ip1,jp1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
404 |
KPP_FORCING_SURF |
& (vRef(i,j) - vVel(im1,jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
405 |
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(ip1,jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
409 |
KPP_FORCING_SURF |
& (vRef(i,j) - vVel(ip1,jp1,k,bi,bj)) ) |
|
./pkg/kpp/kpp_forcing_surf.F |
420 |
KPP_FORCING_SURF |
jp1 = j + 1 |
|
./pkg/kpp/kpp_forcing_surf.F |
431 |
KPP_FORCING_SURF |
& (vVel(i, jp1,1,bi,bj)-vVel(i, jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
432 |
KPP_FORCING_SURF |
& (vVel(i, jp1,1,bi,bj)-vVel(i, jp1,k,bi,bj)) ) |
|
./pkg/kpp/kpp_forcing_surf.F |
439 |
KPP_FORCING_SURF |
& (uVel(i, jp1,1,bi,bj)-uVel(i, jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
440 |
KPP_FORCING_SURF |
& (uVel(i, jp1,1,bi,bj)-uVel(i, jp1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
441 |
KPP_FORCING_SURF |
& (uVel(ip1,jp1,1,bi,bj)-uVel(ip1,jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
442 |
KPP_FORCING_SURF |
& (uVel(ip1,jp1,1,bi,bj)-uVel(ip1,jp1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
445 |
KPP_FORCING_SURF |
& (vVel(im1,jp1,1,bi,bj)-vVel(im1,jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
446 |
KPP_FORCING_SURF |
& (vVel(im1,jp1,1,bi,bj)-vVel(im1,jp1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
449 |
KPP_FORCING_SURF |
& (vVel(ip1,jp1,1,bi,bj)-vVel(ip1,jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
450 |
KPP_FORCING_SURF |
& (vVel(ip1,jp1,1,bi,bj)-vVel(ip1,jp1,k,bi,bj)) ) |
|
./pkg/kpp/kpp_routines.F |
1170 |
SMOOTH_HORIZ |
integer i, j, im1, ip1, jm1, jp1 |
|
./pkg/kpp/kpp_routines.F |
1182 |
SMOOTH_HORIZ |
jp1 = j+1 |
|
./pkg/kpp/kpp_routines.F |
1191 |
SMOOTH_HORIZ |
& maskC(i ,jp1,k,bi,bj) ) + |
|
./pkg/kpp/kpp_routines.F |
1193 |
SMOOTH_HORIZ |
& maskC(im1,jp1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1195 |
SMOOTH_HORIZ |
& maskC(ip1,jp1,k,bi,bj) ) |
|
./pkg/kpp/kpp_routines.F |
1202 |
SMOOTH_HORIZ |
& fld(i ,jp1)*maskC(i ,jp1,k,bi,bj))+ |
|
./pkg/kpp/kpp_routines.F |
1204 |
SMOOTH_HORIZ |
& fld(im1,jp1)*maskC(im1,jp1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1206 |
SMOOTH_HORIZ |
& fld(ip1,jp1)*maskC(ip1,jp1,k,bi,bj))) |
|
./verification/advect_cs/code/ini_vel.F |
37 |
INI_VEL |
INTEGER ip1,jp1 |
|
./verification/advect_cs/code/ini_vel.F |
56 |
INI_VEL |
jp1=MIN(j+1,sNy+Oly) |
|
./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/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/ctrl/ctrl_getobcsn.F |
106 |
CTRL_GETOBCSN |
jp1 = 0 |
|
./pkg/ctrl/ctrl_getobcsn.F |
143 |
CTRL_GETOBCSN |
nz = nz + maskS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
164 |
CTRL_GETOBCSN |
& *recip_hFacS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
212 |
CTRL_GETOBCSN |
nz = nz + maskS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
233 |
CTRL_GETOBCSN |
& *recip_hFacS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
266 |
CTRL_GETOBCSN |
& *maskS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
272 |
CTRL_GETOBCSN |
& *maskS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
284 |
CTRL_GETOBCSN |
& *maskS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
62 |
CTRL_GETOBCSN |
integer jp1 |
|
./pkg/ctrl/ctrl_getobcss.F |
102 |
CTRL_GETOBCSS |
jp1 = 1 |
|
./pkg/ctrl/ctrl_getobcss.F |
139 |
CTRL_GETOBCSS |
nz = nz + maskS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
160 |
CTRL_GETOBCSS |
& *recip_hFacS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
208 |
CTRL_GETOBCSS |
nz = nz + maskS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
229 |
CTRL_GETOBCSS |
& *recip_hFacS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
261 |
CTRL_GETOBCSS |
& *maskS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
267 |
CTRL_GETOBCSS |
& *maskS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
279 |
CTRL_GETOBCSS |
& *maskS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
70 |
CTRL_GETOBCSS |
integer jp1 |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
103 |
CTRL_MASK_SET_XZ |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
32 |
CTRL_MASK_SET_XZ |
integer jp1, jNone |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
7 |
CTRL_MASK_SET_XZ |
& jp1, jNone, OB_J, nwetobcs, ymaskobcs, mythid ) |
|
./pkg/ctrl/ctrl_smooth.F |
27 |
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/ecco/cost_obcs_ageos.F |
212 |
COST_OBCS_AGEOS |
jp1 = 0 |
|
./pkg/ecco/cost_obcs_ageos.F |
223 |
COST_OBCS_AGEOS |
& hfacC(i,j+jp1,k,bi,bj)*hfacC(i+1,j+jp1,k,bi,bj) * |
|
./pkg/ecco/cost_obcs_ageos.F |
224 |
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 |
225 |
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 |
226 |
COST_OBCS_AGEOS |
& hfacS(i,j+jp1,k,bi,bj)*hfacS(i,j+jp1,k+1,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
249 |
COST_OBCS_AGEOS |
& (rholoc(i-1,j+jp1,bi,bj)-rholoc(i+1,j+jp1,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
250 |
COST_OBCS_AGEOS |
& /(2.*dxc(i,j+jp1,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
261 |
COST_OBCS_AGEOS |
xzdvel1(i,k,bi,bj) = vbar(i,j+jp1,k ,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
262 |
COST_OBCS_AGEOS |
& - vbar(i,j+jp1,k+1,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
281 |
COST_OBCS_AGEOS |
jp1 = 1 |
|
./pkg/ecco/cost_obcs_ageos.F |
292 |
COST_OBCS_AGEOS |
& hfacC(i,j+jp1,k,bi,bj)*hfacC(i+1,j+jp1,k,bi,bj) * |
|
./pkg/ecco/cost_obcs_ageos.F |
293 |
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 |
294 |
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 |
295 |
COST_OBCS_AGEOS |
& hfacS(i,j+jp1,k,bi,bj)*hfacS(i,j+jp1,k+1,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
319 |
COST_OBCS_AGEOS |
& (rholoc(i-1,j+jp1,bi,bj)-rholoc(i+1,j+jp1,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
320 |
COST_OBCS_AGEOS |
& /(2.*dxc(i,j+jp1,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
330 |
COST_OBCS_AGEOS |
xzdvel1(i,k,bi,bj) = vbar(i,j+jp1,k ,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
331 |
COST_OBCS_AGEOS |
& - vbar(i,j+jp1,k+1,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
64 |
COST_OBCS_AGEOS |
integer ip1, jp1 |