| File |
Line number |
Procedure |
Code |
|
./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/kpp/kpp_calc.F |
214 |
KPP_CALC |
integer i, j, k, kp1, km1, im1, ip1, jm1, jp1 |
|
./pkg/kpp/kpp_calc.F |
470 |
KPP_CALC |
ip1 = i + 1 |
|
./pkg/kpp/kpp_calc.F |
474 |
KPP_CALC |
& (uVel(ip1,j, k,bi,bj)-uVel(ip1,j, kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
475 |
KPP_CALC |
& (uVel(ip1,j, k,bi,bj)-uVel(ip1,j, kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
484 |
KPP_CALC |
& (uVel(ip1,jm1,k,bi,bj)-uVel(ip1,jm1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
485 |
KPP_CALC |
& (uVel(ip1,jm1,k,bi,bj)-uVel(ip1,jm1,kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
488 |
KPP_CALC |
& (uVel(ip1,jp1,k,bi,bj)-uVel(ip1,jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
489 |
KPP_CALC |
& (uVel(ip1,jp1,k,bi,bj)-uVel(ip1,jp1,kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
494 |
KPP_CALC |
& (vVel(ip1,j, k,bi,bj)-vVel(ip1,j, kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
495 |
KPP_CALC |
& (vVel(ip1,j, k,bi,bj)-vVel(ip1,j, kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
496 |
KPP_CALC |
& (vVel(ip1,jp1,k,bi,bj)-vVel(ip1,jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
497 |
KPP_CALC |
& (vVel(ip1,jp1,k,bi,bj)-vVel(ip1,jp1,kp1,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 |
182 |
KPP_FORCING_SURF |
ip1 = i+1 |
|
./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 |
196 |
KPP_FORCING_SURF |
ip1 = i+1 |
|
./pkg/kpp/kpp_forcing_surf.F |
211 |
KPP_FORCING_SURF |
ip1 = i+1 |
|
./pkg/kpp/kpp_forcing_surf.F |
300 |
KPP_FORCING_SURF |
ip1 = i + 1 |
|
./pkg/kpp/kpp_forcing_surf.F |
332 |
KPP_FORCING_SURF |
& (uVel(ip1,j, 1,bi,bj)-uVel(ip1,j, 2,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
333 |
KPP_FORCING_SURF |
& (uVel(ip1,j, 1,bi,bj)-uVel(ip1,j, 2,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
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 |
359 |
KPP_FORCING_SURF |
& surfForcU(ip1,j,bi,bj) ) * p5 *recip_drF(1) |
|
./pkg/kpp/kpp_forcing_surf.F |
385 |
KPP_FORCING_SURF |
ip1 = i + 1 |
|
./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 |
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 |
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 |
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 |
426 |
KPP_FORCING_SURF |
ip1 = i + 1 |
|
./pkg/kpp/kpp_forcing_surf.F |
430 |
KPP_FORCING_SURF |
& (uVel(ip1,j, 1,bi,bj)-uVel(ip1,j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
431 |
KPP_FORCING_SURF |
& (uVel(ip1,j, 1,bi,bj)-uVel(ip1,j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
440 |
KPP_FORCING_SURF |
& (uVel(ip1,jm1,1,bi,bj)-uVel(ip1,jm1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
441 |
KPP_FORCING_SURF |
& (uVel(ip1,jm1,1,bi,bj)-uVel(ip1,jm1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
444 |
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 |
& (uVel(ip1,jp1,1,bi,bj)-uVel(ip1,jp1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
450 |
KPP_FORCING_SURF |
& (vVel(ip1,j, 1,bi,bj)-vVel(ip1,j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
451 |
KPP_FORCING_SURF |
& (vVel(ip1,j, 1,bi,bj)-vVel(ip1,j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
452 |
KPP_FORCING_SURF |
& (vVel(ip1,jp1,1,bi,bj)-vVel(ip1,jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
453 |
KPP_FORCING_SURF |
& (vVel(ip1,jp1,1,bi,bj)-vVel(ip1,jp1,k,bi,bj)) ) |
|
./pkg/kpp/kpp_routines.F |
1237 |
SMOOTH_HORIZ |
integer i, j, im1, ip1, jm1, jp1 |
|
./pkg/kpp/kpp_routines.F |
1252 |
SMOOTH_HORIZ |
ip1 = i+1 |
|
./pkg/kpp/kpp_routines.F |
1256 |
SMOOTH_HORIZ |
& maskC(ip1,j ,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1261 |
SMOOTH_HORIZ |
& maskC(ip1,jm1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1262 |
SMOOTH_HORIZ |
& maskC(ip1,jp1,k,bi,bj) ) |
|
./pkg/kpp/kpp_routines.F |
1267 |
SMOOTH_HORIZ |
& fld(ip1,j )*maskC(ip1,j ,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1272 |
SMOOTH_HORIZ |
& fld(ip1,jm1)*maskC(ip1,jm1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1273 |
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 |
58 |
INI_VEL |
ip1=MIN(i+1,sNx+Olx) |
|
./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/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/ctrl/ctrl_getobcse.F |
101 |
CTRL_GETOBCSE |
ip1 = 0 |
|
./pkg/ctrl/ctrl_getobcse.F |
139 |
CTRL_GETOBCSE |
nz = nz + maskW(i+ip1,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 |
208 |
CTRL_GETOBCSE |
nz = nz + maskW(i+ip1,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 |
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 |
69 |
CTRL_GETOBCSE |
integer ip1 |
|
./pkg/ctrl/ctrl_getobcsw.F |
102 |
CTRL_GETOBCSW |
ip1 = 1 |
|
./pkg/ctrl/ctrl_getobcsw.F |
139 |
CTRL_GETOBCSW |
nz = nz + maskW(i+ip1,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 |
208 |
CTRL_GETOBCSW |
nz = nz + maskW(i+ip1,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 |
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 |
63 |
CTRL_GETOBCSW |
integer ip1 |
|
./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 |
33 |
CTRL_MASK_SET_YZ |
integer ip1, iNone |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
7 |
CTRL_MASK_SET_YZ |
& ip1, iNone, OB_I, nwetobcs, ymaskobcs, mythid ) |
|
./pkg/ctrl/ctrl_smooth.F |
27 |
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/ecco/cost_obcs_ageos.F |
364 |
COST_OBCS_AGEOS |
ip1 = 1 |
|
./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 |
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 |
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 |
431 |
COST_OBCS_AGEOS |
ip1 = 0 |
|
./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 |
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 |
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 |
78 |
COST_OBCS_AGEOS |
integer ip1, jp1 |