| File |
Line number |
Procedure |
Code |
|
./pkg/mom_common/mom_u_bottomdrag.F |
49 |
MOM_U_BOTTOMDRAG |
INTEGER I,J,kDown,kDownC,kBottom |
|
./pkg/mom_common/mom_u_bottomdrag.F |
57 |
MOM_U_BOTTOMDRAG |
kDown = min(k+1,kBottom) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
58 |
MOM_U_BOTTOMDRAG |
kDownC = kDown |
|
./pkg/mom_common/mom_u_bottomdrag.F |
61 |
MOM_U_BOTTOMDRAG |
kDown = max(k-1,kBottom) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
70 |
MOM_U_BOTTOMDRAG |
maskDown=_maskW(i,j,kDown,bi,bj) |
|
./model/src/thermodynamics.F |
172 |
THERMODYNAMICS |
INTEGER k, km1, kup, kDown |
|
./model/src/thermodynamics.F |
364 |
THERMODYNAMICS |
kDown= 1+MOD(k,2) |
|
./model/src/thermodynamics.F |
449 |
THERMODYNAMICS |
I bi,bj,iMin,iMax,jMin,jMax, k,km1,kup,kDown, |
|
./model/src/thermodynamics.F |
464 |
THERMODYNAMICS |
I bi,bj,iMin,iMax,jMin,jMax, k,km1,kup,kDown, |
|
./model/src/dynamics.F |
161 |
DYNAMICS |
INTEGER k, km1, kp1, kup, kDown |
|
./model/src/dynamics.F |
345 |
DYNAMICS |
kDown= 1+MOD(k,2) |
|
./model/src/dynamics.F |
372 |
DYNAMICS |
I bi,bj,iMin,iMax,jMin,jMax,k,kup,kDown, |
|
./model/src/dynamics.F |
379 |
DYNAMICS |
I bi,bj,iMin,iMax,jMin,jMax,k,kup,kDown, |
|
./pkg/ptracers/ptracers_integrate.F |
100 |
PTRACERS_INTEGRATE |
I bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown, |
|
./pkg/ptracers/ptracers_integrate.F |
73 |
PTRACERS_INTEGRATE |
INTEGER kUp,kDown,km1 |
|
./pkg/ptracers/ptracers_integrate.F |
90 |
PTRACERS_INTEGRATE |
kDown= 1+MOD(k,2) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
11 |
GAD_CALC_RHS |
I bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
132 |
GAD_CALC_RHS |
fVerT(1,1,kDown) = fVerT(1,1,kDown) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
509 |
GAD_CALC_RHS |
& +(fVerT(i,j,kDown)-fVerT(i,j,kUp))*rkSign |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
79 |
GAD_CALC_RHS |
INTEGER k,kUp,kDown,kM1 |
|
./pkg/generic_advdiff/gad_advection.F |
124 |
GAD_ADVECTION |
INTEGER i,j,k,kup,kDown |
|
./pkg/generic_advdiff/gad_advection.F |
639 |
GAD_ADVECTION |
kDown= 1+MOD(k,2) |
|
./pkg/generic_advdiff/gad_advection.F |
723 |
GAD_ADVECTION |
& *( fVerT(i,j,kDown)-fVerT(i,j,kUp) |
|
./pkg/mom_fluxform/mom_fluxform.F |
35 |
MOM_FLUXFORM |
I bi,bj,iMin,iMax,jMin,jMax,k,kUp,kDown, |
|
./pkg/mom_fluxform/mom_fluxform.F |
371 |
MOM_FLUXFORM |
fVerU(i,j,kDown) = rVelDudrFac*aF(i,j) + ArDudrFac*vrF(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
388 |
MOM_FLUXFORM |
& -fVerU(i,j,kUp)*rkSign + fVerU(i,j,kDown)*rkSign |
|
./pkg/mom_fluxform/mom_fluxform.F |
532 |
MOM_FLUXFORM |
fVerV(i,j,kDown) = rVelDvdrFac*aF(i,j) + ArDvdrFac*vrF(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
549 |
MOM_FLUXFORM |
& -fVerV(i,j,kUp)*rkSign + fVerV(i,j,kDown)*rkSign |
|
./pkg/mom_fluxform/mom_fluxform.F |
70 |
MOM_FLUXFORM |
INTEGER k,kUp,kDown |
|
./pkg/mom_vecinv/mom_vecinv.F |
264 |
MOM_VECINV |
fVerU(i,j,kDown) = ArDudrFac*vrF(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
275 |
MOM_VECINV |
& fVerU(i,j,kDown) - fVerU(i,j,kUp) |
|
./pkg/mom_vecinv/mom_vecinv.F |
324 |
MOM_VECINV |
fVerV(i,j,kDown) = ArDvdrFac*vrF(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
335 |
MOM_VECINV |
& fVerV(i,j,kDown) - fVerV(i,j,kUp) |
|
./pkg/mom_vecinv/mom_vecinv.F |
60 |
MOM_VECINV |
INTEGER kUp,kDown |
|
./pkg/mom_vecinv/mom_vecinv.F |
7 |
MOM_VECINV |
I bi,bj,iMin,iMax,jMin,jMax,k,kUp,kDown, |
|
./model/src/calc_gt.F |
11 |
CALC_GT |
I bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown, |
|
./model/src/calc_gt.F |
78 |
CALC_GT |
INTEGER k,kUp,kDown,kM1 |
|
./model/src/calc_gt.F |
93 |
CALC_GT |
fVerT(1,1,kDown) = fVerT(1,1,kDown) |
|
./model/src/calc_gt.F |
98 |
CALC_GT |
I bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown, |