| 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 |
202 |
KPP_CALC |
integer i, j, k, kp1, km1, im1, ip1, jm1, jp1 |
|
./pkg/kpp/kpp_calc.F |
430 |
KPP_CALC |
ip1 = i + 1 |
|
./pkg/kpp/kpp_calc.F |
434 |
KPP_CALC |
& (uVel(ip1,j, k,bi,bj)-uVel(ip1,j, kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
435 |
KPP_CALC |
& (uVel(ip1,j, k,bi,bj)-uVel(ip1,j, kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
444 |
KPP_CALC |
& (uVel(ip1,jm1,k,bi,bj)-uVel(ip1,jm1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
445 |
KPP_CALC |
& (uVel(ip1,jm1,k,bi,bj)-uVel(ip1,jm1,kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
448 |
KPP_CALC |
& (uVel(ip1,jp1,k,bi,bj)-uVel(ip1,jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
449 |
KPP_CALC |
& (uVel(ip1,jp1,k,bi,bj)-uVel(ip1,jp1,kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
454 |
KPP_CALC |
& (vVel(ip1,j, k,bi,bj)-vVel(ip1,j, kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
455 |
KPP_CALC |
& (vVel(ip1,j, k,bi,bj)-vVel(ip1,j, kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
456 |
KPP_CALC |
& (vVel(ip1,jp1,k,bi,bj)-vVel(ip1,jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
457 |
KPP_CALC |
& (vVel(ip1,jp1,k,bi,bj)-vVel(ip1,jp1,kp1,bi,bj)) ) |
|
./pkg/kpp/kpp_forcing_surf.F |
132 |
KPP_FORCING_SURF |
integer i, j, k, im1, ip1, jm1, jp1 |
|
./pkg/kpp/kpp_forcing_surf.F |
173 |
KPP_FORCING_SURF |
ip1 = i+1 |
|
./pkg/kpp/kpp_forcing_surf.F |
175 |
KPP_FORCING_SURF |
& (surfForcU(i,j,bi,bj) + surfForcU(ip1,j,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
176 |
KPP_FORCING_SURF |
& (surfForcU(i,j,bi,bj) + surfForcU(ip1,j,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
187 |
KPP_FORCING_SURF |
ip1 = i+1 |
|
./pkg/kpp/kpp_forcing_surf.F |
202 |
KPP_FORCING_SURF |
ip1 = i+1 |
|
./pkg/kpp/kpp_forcing_surf.F |
219 |
KPP_FORCING_SURF |
ip1 = i+1 |
|
./pkg/kpp/kpp_forcing_surf.F |
272 |
KPP_FORCING_SURF |
ip1 = i + 1 |
|
./pkg/kpp/kpp_forcing_surf.F |
304 |
KPP_FORCING_SURF |
& (uVel(ip1,j, 1,bi,bj)-uVel(ip1,j, 2,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
305 |
KPP_FORCING_SURF |
& (uVel(ip1,j, 1,bi,bj)-uVel(ip1,j, 2,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
327 |
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 |
331 |
KPP_FORCING_SURF |
& surfForcU(ip1,j,bi,bj) ) * p5 *recip_drF(1) |
|
./pkg/kpp/kpp_forcing_surf.F |
357 |
KPP_FORCING_SURF |
ip1 = i + 1 |
|
./pkg/kpp/kpp_forcing_surf.F |
361 |
KPP_FORCING_SURF |
$ (uRef(i,j) - uVel(ip1,j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
362 |
KPP_FORCING_SURF |
$ (uRef(i,j) - uVel(ip1,j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
371 |
KPP_FORCING_SURF |
$ (uRef(i,j) - uVel(ip1,jm1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
372 |
KPP_FORCING_SURF |
$ (uRef(i,j) - uVel(ip1,jm1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
375 |
KPP_FORCING_SURF |
$ (uRef(i,j) - uVel(ip1,jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
376 |
KPP_FORCING_SURF |
$ (uRef(i,j) - uVel(ip1,jp1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
381 |
KPP_FORCING_SURF |
$ (vRef(i,j) - vVel(ip1,j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
382 |
KPP_FORCING_SURF |
$ (vRef(i,j) - vVel(ip1,j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
383 |
KPP_FORCING_SURF |
$ (vRef(i,j) - vVel(ip1,jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
384 |
KPP_FORCING_SURF |
$ (vRef(i,j) - vVel(ip1,jp1,k,bi,bj)) ) |
|
./pkg/kpp/kpp_forcing_surf.F |
398 |
KPP_FORCING_SURF |
ip1 = i + 1 |
|
./pkg/kpp/kpp_forcing_surf.F |
402 |
KPP_FORCING_SURF |
$ (uVel(ip1,j, 1,bi,bj)-uVel(ip1,j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
403 |
KPP_FORCING_SURF |
$ (uVel(ip1,j, 1,bi,bj)-uVel(ip1,j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
412 |
KPP_FORCING_SURF |
$ (uVel(ip1,jm1,1,bi,bj)-uVel(ip1,jm1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
413 |
KPP_FORCING_SURF |
$ (uVel(ip1,jm1,1,bi,bj)-uVel(ip1,jm1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
416 |
KPP_FORCING_SURF |
$ (uVel(ip1,jp1,1,bi,bj)-uVel(ip1,jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
417 |
KPP_FORCING_SURF |
$ (uVel(ip1,jp1,1,bi,bj)-uVel(ip1,jp1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
422 |
KPP_FORCING_SURF |
$ (vVel(ip1,j, 1,bi,bj)-vVel(ip1,j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
423 |
KPP_FORCING_SURF |
$ (vVel(ip1,j, 1,bi,bj)-vVel(ip1,j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
424 |
KPP_FORCING_SURF |
$ (vVel(ip1,jp1,1,bi,bj)-vVel(ip1,jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
425 |
KPP_FORCING_SURF |
$ (vVel(ip1,jp1,1,bi,bj)-vVel(ip1,jp1,k,bi,bj)) ) |
|
./pkg/kpp/kpp_routines.F |
1094 |
SMOOTH_HORIZ |
integer i, j, im1, ip1, jm1, jp1 |
|
./pkg/kpp/kpp_routines.F |
1109 |
SMOOTH_HORIZ |
ip1 = i+1 |
|
./pkg/kpp/kpp_routines.F |
1113 |
SMOOTH_HORIZ |
& maskC(ip1,j ,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1118 |
SMOOTH_HORIZ |
& maskC(ip1,jm1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1119 |
SMOOTH_HORIZ |
& maskC(ip1,jp1,k,bi,bj) ) |
|
./pkg/kpp/kpp_routines.F |
1124 |
SMOOTH_HORIZ |
& fld(ip1,j )*maskC(ip1,j ,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1129 |
SMOOTH_HORIZ |
& fld(ip1,jm1)*maskC(ip1,jm1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1130 |
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 |
155 |
CTRL_GETOBCSE |
& maskW(i+ip1,j,k,bi,bj) * delR(k) + utop |
|
./pkg/ctrl/ctrl_getobcse.F |
157 |
CTRL_GETOBCSE |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_getobcse.F |
273 |
CTRL_GETOBCSE |
& maskW(i+ip1,j,k,bi,bj) * delR(k) + utop |
|
./pkg/ctrl/ctrl_getobcse.F |
275 |
CTRL_GETOBCSE |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_getobcse.F |
349 |
CTRL_GETOBCSE |
& *maskW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
355 |
CTRL_GETOBCSE |
& *maskW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
361 |
CTRL_GETOBCSE |
& *maskW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
68 |
CTRL_GETOBCSE |
integer ip1 |
|
./pkg/ctrl/ctrl_getobcse.F |
98 |
CTRL_GETOBCSE |
ip1 = 0 |
|
./pkg/ctrl/ctrl_getobcsw.F |
155 |
CTRL_GETOBCSW |
& maskW(i+ip1,j,k,bi,bj) * delR(k) + utop |
|
./pkg/ctrl/ctrl_getobcsw.F |
157 |
CTRL_GETOBCSW |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_getobcsw.F |
276 |
CTRL_GETOBCSW |
& maskW(i+ip1,j,k,bi,bj) * delR(k) + utop |
|
./pkg/ctrl/ctrl_getobcsw.F |
278 |
CTRL_GETOBCSW |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_getobcsw.F |
352 |
CTRL_GETOBCSW |
& *maskW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
358 |
CTRL_GETOBCSW |
& *maskW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
364 |
CTRL_GETOBCSW |
& *maskW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
62 |
CTRL_GETOBCSW |
integer ip1 |
|
./pkg/ctrl/ctrl_getobcsw.F |
99 |
CTRL_GETOBCSW |
ip1 = 1 |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
108 |
CTRL_MASK_SET_YZ |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
36 |
CTRL_MASK_SET_YZ |
integer ip1 |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
8 |
CTRL_MASK_SET_YZ |
& ip1, OB_I, nwetobcs, ymaskobcs, mythid ) |
|
./pkg/ctrl/ctrl_obcsbal.F |
65 |
CTRL_OBCSBAL |
integer ip1 |
|
./pkg/ctrl/ctrl_obcsvol.F |
239 |
CTRL_OBCSVOL |
ip1 = 1 |
|
./pkg/ctrl/ctrl_obcsvol.F |
257 |
CTRL_OBCSVOL |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_obcsvol.F |
262 |
CTRL_OBCSVOL |
tmpflux = tmpflux + tmpy* delR(k)*dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
263 |
CTRL_OBCSVOL |
tmparea = tmparea + delR(k)*dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
275 |
CTRL_OBCSVOL |
ip1 = 0 |
|
./pkg/ctrl/ctrl_obcsvol.F |
293 |
CTRL_OBCSVOL |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_obcsvol.F |
298 |
CTRL_OBCSVOL |
tmpflux = tmpflux - tmpy* delR(k)*dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
299 |
CTRL_OBCSVOL |
tmparea = tmparea + delR(k) *dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
397 |
CTRL_OBCSVOL |
ip1 = 1 |
|
./pkg/ctrl/ctrl_obcsvol.F |
415 |
CTRL_OBCSVOL |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_obcsvol.F |
420 |
CTRL_OBCSVOL |
tmpflux = tmpflux + tmpy* delR(k)*dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
421 |
CTRL_OBCSVOL |
tmparea = tmparea + delR(k)*dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
433 |
CTRL_OBCSVOL |
ip1 = 0 |
|
./pkg/ctrl/ctrl_obcsvol.F |
451 |
CTRL_OBCSVOL |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_obcsvol.F |
456 |
CTRL_OBCSVOL |
tmpflux = tmpflux - tmpy* delR(k)*dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
457 |
CTRL_OBCSVOL |
tmparea = tmparea + delR(k) *dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
62 |
CTRL_OBCSVOL |
integer ip1 |
|
./pkg/ctrl/ctrl_smooth.F |
28 |
CTRL_SMOOTH |
integer i, j, im1, ip1, jm1, jp1 |
|
./pkg/ctrl/ctrl_smooth.F |
49 |
CTRL_SMOOTH |
ip1 = i+1 |
|
./pkg/ctrl/ctrl_smooth.F |
53 |
CTRL_SMOOTH |
& mask(ip1,j ,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
58 |
CTRL_SMOOTH |
& mask(ip1,jm1,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
59 |
CTRL_SMOOTH |
& mask(ip1,jp1,k,bi,bj) ) |
|
./pkg/ctrl/ctrl_smooth.F |
64 |
CTRL_SMOOTH |
& fld(ip1,j ,bi,bj )*mask(ip1,j ,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
69 |
CTRL_SMOOTH |
& fld(ip1,jm1,bi,bj)*mask(ip1,jm1,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
70 |
CTRL_SMOOTH |
& fld(ip1,jp1,bi,bj)*mask(ip1,jp1,k,bi,bj))) |
|
./pkg/ctrl/ctrl_volflux.F |
267 |
CTRL_VOLFLUX |
ip1 = 1 |
|
./pkg/ctrl/ctrl_volflux.F |
289 |
CTRL_VOLFLUX |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_volflux.F |
302 |
CTRL_VOLFLUX |
tmparea = tmparea + delR(k) * dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
308 |
CTRL_VOLFLUX |
tmpflux = tmpflux + tmpy* delR(k)*dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
325 |
CTRL_VOLFLUX |
ip1 = 0 |
|
./pkg/ctrl/ctrl_volflux.F |
351 |
CTRL_VOLFLUX |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_volflux.F |
365 |
CTRL_VOLFLUX |
tmparea = tmparea + delR(k) * dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
373 |
CTRL_VOLFLUX |
tmpflux = tmpflux - tmpy* delR(k)*dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
377 |
CTRL_VOLFLUX |
tmparea = tmparea + delR(k) *dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
68 |
CTRL_VOLFLUX |
integer ip1 |
|
./pkg/ecco/cost_obcs_ageos.F |
348 |
COST_OBCS_AGEOS |
ip1 = 1 |
|
./pkg/ecco/cost_obcs_ageos.F |
359 |
COST_OBCS_AGEOS |
& hfacC(i+ip1,j,k,bi,bj)*hfacC(i+ip1,j+1,k,bi,bj) * |
|
./pkg/ecco/cost_obcs_ageos.F |
360 |
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 |
361 |
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 |
362 |
COST_OBCS_AGEOS |
& hfacW(i+ip1,j,k,bi,bj)*hfacW(i+ip1,j,k+1,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
382 |
COST_OBCS_AGEOS |
& (rholoc(i+ip1,j+1,bi,bj)-rholoc(i+ip1,j-1,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
383 |
COST_OBCS_AGEOS |
& /(2.*dyc(i+ip1,j,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
392 |
COST_OBCS_AGEOS |
yzdvel1(j,k,bi,bj) = ubar(i+ip1,j,k ,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
393 |
COST_OBCS_AGEOS |
& - ubar(i+ip1,j,k+1,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
411 |
COST_OBCS_AGEOS |
ip1 = 0 |
|
./pkg/ecco/cost_obcs_ageos.F |
422 |
COST_OBCS_AGEOS |
& hfacC(i+ip1,j,k,bi,bj)*hfacC(i+ip1,j+1,k,bi,bj) * |
|
./pkg/ecco/cost_obcs_ageos.F |
423 |
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 |
424 |
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 |
425 |
COST_OBCS_AGEOS |
& hfacW(i+ip1,j,k,bi,bj)*hfacW(i+ip1,j,k+1,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
445 |
COST_OBCS_AGEOS |
& (rholoc(i+ip1,,j+1,bi,bj)-rholoc(i+ip1,j-1,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
446 |
COST_OBCS_AGEOS |
& /(2.*dyc(i+ip1,j,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
455 |
COST_OBCS_AGEOS |
yzdvel1(j,k,bi,bj) = ubar(i+ip1,j,k ,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
456 |
COST_OBCS_AGEOS |
& - ubar(i+ip1,j,k+1,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
69 |
COST_OBCS_AGEOS |
integer ip1, jp1 |
|
./pkg/ecco/cost_obcse.F |
101 |
COST_OBCSE |
ip1 = 0 |
|
./pkg/ecco/cost_obcse.F |
130 |
COST_OBCSE |
if (maskS(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcse.F |
167 |
COST_OBCSE |
if (maskS(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcse.F |
203 |
COST_OBCSE |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcse.F |
61 |
COST_OBCSE |
integer ip1 |
|
./pkg/ecco/cost_obcsvol.F |
268 |
COST_OBCSVOL |
ip1 = 1 |
|
./pkg/ecco/cost_obcsvol.F |
294 |
COST_OBCSVOL |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcsvol.F |
296 |
COST_OBCSVOL |
fctile = fctile + tmpy* delZ(k) *dyg(i+ip1,j,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
311 |
COST_OBCSVOL |
ip1 = 0 |
|
./pkg/ecco/cost_obcsvol.F |
337 |
COST_OBCSVOL |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcsvol.F |
339 |
COST_OBCSVOL |
fctile = fctile - tmpy* delZ(k) *dyg(i+ip1,j,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
65 |
COST_OBCSVOL |
integer ip1 |
|
./pkg/ecco/cost_obcsw.F |
101 |
COST_OBCSW |
ip1 = 1 |
|
./pkg/ecco/cost_obcsw.F |
130 |
COST_OBCSW |
if (maskS(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcsw.F |
167 |
COST_OBCSW |
if (maskS(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcsw.F |
203 |
COST_OBCSW |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcsw.F |
61 |
COST_OBCSW |
integer ip1 |