| File |
Line number |
Procedure |
Code |
|
./pkg/ptracers/ptracers_integrate.F |
136 |
PTRACERS_INTEGRATE |
I bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown, |
|
./pkg/ptracers/ptracers_integrate.F |
82 |
PTRACERS_INTEGRATE |
INTEGER kUp,kDown,km1 |
|
./pkg/ptracers/ptracers_integrate.F |
95 |
PTRACERS_INTEGRATE |
kUp = 1+MOD(k+1,2) |
|
./pkg/shelfice/shelfice_v_drag.F |
53 |
SHELFICE_V_DRAG |
INTEGER I,J,kUp,kUpC,kTop |
|
./pkg/shelfice/shelfice_v_drag.F |
60 |
SHELFICE_V_DRAG |
kUp = k |
|
./pkg/shelfice/shelfice_v_drag.F |
61 |
SHELFICE_V_DRAG |
kUpC = kUp |
|
./pkg/shelfice/shelfice_v_drag.F |
64 |
SHELFICE_V_DRAG |
kUp = min(k+1,kTop) |
|
./pkg/shelfice/shelfice_v_drag.F |
65 |
SHELFICE_V_DRAG |
kUpC = kUp |
|
./pkg/shelfice/shelfice_v_drag.F |
70 |
SHELFICE_V_DRAG |
IF (k.EQ.kUp) rdrckp1=recip_drF(k) |
|
./pkg/shelfice/shelfice_v_drag.F |
73 |
SHELFICE_V_DRAG |
maskUp=_maskS(i,j,kUp,bi,bj) |
|
./pkg/shelfice/shelfice_u_drag.F |
53 |
SHELFICE_U_DRAG |
INTEGER I,J,kUp,kUpC,kTop |
|
./pkg/shelfice/shelfice_u_drag.F |
61 |
SHELFICE_U_DRAG |
kUp = k |
|
./pkg/shelfice/shelfice_u_drag.F |
62 |
SHELFICE_U_DRAG |
kUpC = kUp |
|
./pkg/shelfice/shelfice_u_drag.F |
65 |
SHELFICE_U_DRAG |
kUp = min(k+1,kTop) |
|
./pkg/shelfice/shelfice_u_drag.F |
66 |
SHELFICE_U_DRAG |
kUpC = kUp |
|
./pkg/shelfice/shelfice_u_drag.F |
69 |
SHELFICE_U_DRAG |
IF (k.EQ.kUp) rdrckp1=recip_drF(k) |
|
./pkg/shelfice/shelfice_u_drag.F |
74 |
SHELFICE_U_DRAG |
maskUp=_maskW(i,j,kUp,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
324 |
MOM_FLUXFORM |
O fVerU(1-OLx,1-OLy,kUp), myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
327 |
MOM_FLUXFORM |
O fVerV(1-OLx,1-OLy,kUp), myThid ) |
|
./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 |
383 |
MOM_FLUXFORM |
& +(fVerU(i,j,kDown) - fVerU(i,j,kUp))*rkSign*rVelDudrFac |
|
./pkg/mom_fluxform/mom_fluxform.F |
392 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(fVerU(1-Olx,1-Oly,kUp), |
|
./pkg/mom_fluxform/mom_fluxform.F |
586 |
MOM_FLUXFORM |
& +(fVerV(i,j,kDown) - fVerV(i,j,kUp))*rkSign*rVelDvdrFac |
|
./pkg/mom_fluxform/mom_fluxform.F |
595 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(fVerV(1-Olx,1-Oly,kUp), |
|
./pkg/mom_fluxform/mom_fluxform.F |
77 |
MOM_FLUXFORM |
INTEGER 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 |
147 |
CALC_GT |
I bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown, |
|
./model/src/calc_gt.F |
158 |
CALC_GT |
I bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown, |
|
./model/src/calc_gt.F |
85 |
CALC_GT |
INTEGER k,kUp,kDown,kM1 |
|
./model/src/calc_gs.F |
11 |
CALC_GS |
I bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown, |
|
./model/src/calc_gs.F |
148 |
CALC_GS |
I bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown, |
|
./model/src/calc_gs.F |
159 |
CALC_GS |
I bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown, |
|
./model/src/calc_gs.F |
86 |
CALC_GS |
INTEGER k,kUp,kDown,kM1 |
|
./pkg/mom_vecinv/mom_vecinv.F |
119 |
MOM_VECINV |
fVerU(1,1,kUp) = fVerU(1,1,kUp) |
|
./pkg/mom_vecinv/mom_vecinv.F |
120 |
MOM_VECINV |
fVerV(1,1,kUp) = fVerV(1,1,kUp) |
|
./pkg/mom_vecinv/mom_vecinv.F |
347 |
MOM_VECINV |
& fVerU(i,j,kDown) - fVerU(i,j,kUp) |
|
./pkg/mom_vecinv/mom_vecinv.F |
412 |
MOM_VECINV |
& fVerV(i,j,kDown) - fVerV(i,j,kUp) |
|
./pkg/mom_vecinv/mom_vecinv.F |
61 |
MOM_VECINV |
INTEGER kUp,kDown |
|
./pkg/mom_vecinv/mom_vecinv.F |
7 |
MOM_VECINV |
I bi,bj,iMin,iMax,jMin,jMax,k,kUp,kDown, |
|
./pkg/generic_advdiff/gad_advection.F |
126 |
GAD_ADVECTION |
INTEGER i,j,k,kUp,kDown |
|
./pkg/generic_advdiff/gad_advection.F |
698 |
GAD_ADVECTION |
kUp = 1+MOD(k+1,2) |
|
./pkg/generic_advdiff/gad_advection.F |
727 |
GAD_ADVECTION |
fVerT(i,j,kUp) = 0. |
|
./pkg/generic_advdiff/gad_advection.F |
747 |
GAD_ADVECTION |
fVerT(i,j,kUp) = 0. |
|
./pkg/generic_advdiff/gad_advection.F |
771 |
GAD_ADVECTION |
O fVerT(1-Olx,1-Oly,kUp), myThid ) |
|
./pkg/generic_advdiff/gad_advection.F |
775 |
GAD_ADVECTION |
O fVerT(1-Olx,1-Oly,kUp), myThid ) |
|
./pkg/generic_advdiff/gad_advection.F |
779 |
GAD_ADVECTION |
O fVerT(1-Olx,1-Oly,kUp), myThid ) |
|
./pkg/generic_advdiff/gad_advection.F |
783 |
GAD_ADVECTION |
O fVerT(1-Olx,1-Oly,kUp), myThid ) |
|
./pkg/generic_advdiff/gad_advection.F |
804 |
GAD_ADVECTION |
& *( fVerT(i,j,kDown)-fVerT(i,j,kUp) |
|
./pkg/generic_advdiff/gad_advection.F |
815 |
GAD_ADVECTION |
CALL DIAGNOSTICS_FILL( fVerT(1-Olx,1-Oly,kUp), |
|
./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 |
159 |
GAD_CALC_RHS |
fVerT(i,j,kUp) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
465 |
GAD_CALC_RHS |
fVerT(i,j,kUp) = fVerT(i,j,kUp) + af(i,j) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
518 |
GAD_CALC_RHS |
fVerT(i,j,kUp) = fVerT(i,j,kUp) + df(i,j)*maskUp(i,j) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
561 |
GAD_CALC_RHS |
fVerT(i,j,kUp) = fVerT(i,j,kUp) + df(i,j)*maskUp(i,j) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
574 |
GAD_CALC_RHS |
& +(fVerT(i,j,kDown)-fVerT(i,j,kUp))*rkSign |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
84 |
GAD_CALC_RHS |
INTEGER k,kUp,kDown,kM1 |