| File |
Line number |
Procedure |
Code |
|
./pkg/ggl90/ggl90_calc_visc.F |
32 |
GGL90_CALC_VISC |
_RL KappaRV(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/ggl90/ggl90_calc_visc.F |
56 |
GGL90_CALC_VISC |
KappaRV(i,j,k) = KappaRV(i,j,k) + _maskS(i,j,k,bi,bj) * |
|
./pkg/ggl90/ggl90_calc_visc.F |
8 |
GGL90_CALC_VISC |
U KappaRU,KappaRV, |
|
./pkg/kpp/kpp_calc_visc.F |
30 |
KPP_CALC_VISC |
_RL KappaRV(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/kpp/kpp_calc_visc.F |
50 |
KPP_CALC_VISC |
KappaRV(i,j,k) = max ( KappaRV(i,j,k), |
|
./pkg/kpp/kpp_calc_visc.F |
51 |
KPP_CALC_VISC |
& KappaRV(i,j,k) - viscArNr(1) + _maskS(i,j,k,bi,bj) * |
|
./pkg/kpp/kpp_calc_visc.F |
8 |
KPP_CALC_VISC |
U KappaRU,KappaRV, |
|
./pkg/mom_common/mom_v_bottomdrag.F |
19 |
MOM_V_BOTTOMDRAG |
I vFld, KE, KappaRV, |
|
./pkg/mom_common/mom_v_bottomdrag.F |
49 |
MOM_V_BOTTOMDRAG |
_RL KappaRV(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
90 |
MOM_V_BOTTOMDRAG |
& 2.*KappaRV(i,j,kDownC)*rdrckp1*viscFac |
|
./pkg/mom_common/mom_v_implicit_r.F |
101 |
MOM_V_IMPLICIT_R |
& *KappaRV(i,j,k+1)*recip_drC(k+1) |
|
./pkg/mom_common/mom_v_implicit_r.F |
216 |
MOM_V_IMPLICIT_R |
& -KappaRV(i,j,k)*rAs(i,j,bi,bj)*recip_drC(k) |
|
./pkg/mom_common/mom_v_rviscflux.F |
12 |
MOM_V_RVISCFLUX |
I vFld, KappaRV, |
|
./pkg/mom_common/mom_v_rviscflux.F |
38 |
MOM_V_RVISCFLUX |
_RL KappaRV(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/mom_common/mom_v_rviscflux.F |
61 |
MOM_V_RVISCFLUX |
& -KappaRV(i,j,k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
36 |
MOM_FLUXFORM |
I KappaRU, KappaRV, |
|
./pkg/mom_fluxform/mom_fluxform.F |
695 |
MOM_FLUXFORM |
CALL MOM_V_RVISCFLUX(bi,bj, k, vVel,KappaRV,fVrUp,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
696 |
MOM_FLUXFORM |
CALL MOM_V_RVISCFLUX(bi,bj,k+1,vVel,KappaRV,fVrDw,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
746 |
MOM_FLUXFORM |
CALL MOM_V_BOTTOMDRAG(bi,bj,k,vFld,KE,KappaRV,vF,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
79 |
MOM_FLUXFORM |
_RL KappaRV(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/mom_vecinv/mom_vecinv.F |
398 |
MOM_VECINV |
CALL MOM_V_RVISCFLUX(bi,bj,k+1,vVel,KappaRV,vrF,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
438 |
MOM_VECINV |
CALL MOM_V_BOTTOMDRAG(bi,bj,k,vFld,KE,KappaRV,vF,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
56 |
MOM_VECINV |
_RL KappaRV(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/mom_vecinv/mom_vecinv.F |
8 |
MOM_VECINV |
I KappaRU, KappaRV, |
|
./model/src/calc_gw.F |
12 |
CALC_GW |
I bi, bj, KappaRU, KappaRV, |
|
./model/src/calc_gw.F |
377 |
CALC_GW |
& +KappaRV(i,j,k) +KappaRV(i,j+1,k) |
|
./model/src/calc_gw.F |
378 |
CALC_GW |
& +KappaRV(i,j,kp1)+KappaRV(i,j+1,kp1) |
|
./model/src/calc_gw.F |
396 |
CALC_GW |
& +KappaRV(i,j,k) + KappaRV(i,j+1,k) |
|
./model/src/calc_gw.F |
49 |
CALC_GW |
_RL KappaRV(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/my82/my82_calc_visc.F |
30 |
MY82_CALC_VISC |
_RL KappaRV(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/my82/my82_calc_visc.F |
49 |
MY82_CALC_VISC |
KappaRV(i,j,k) = max ( KappaRV(i,j,k), |
|
./pkg/my82/my82_calc_visc.F |
50 |
MY82_CALC_VISC |
& KappaRV(i,j,k) - viscArNr(k) + _maskS(i,j,k,bi,bj) * |
|
./pkg/my82/my82_calc_visc.F |
7 |
MY82_CALC_VISC |
U KappaRU,KappaRV, |
|
./model/src/calc_viscosity.F |
12 |
CALC_VISCOSITY |
O KappaRU, KappaRV, |
|
./model/src/calc_viscosity.F |
41 |
CALC_VISCOSITY |
_RL KappaRV(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./model/src/calc_viscosity.F |
55 |
CALC_VISCOSITY |
KappaRV(i,j,k) = viscArNr(k) |
|
./model/src/calc_viscosity.F |
62 |
CALC_VISCOSITY |
O KappaRU,KappaRV, |
|
./model/src/calc_viscosity.F |
69 |
CALC_VISCOSITY |
O KappaRU,KappaRV, |
|
./model/src/calc_viscosity.F |
76 |
CALC_VISCOSITY |
O KappaRU,KappaRV, |
|
./model/src/calc_viscosity.F |
83 |
CALC_VISCOSITY |
O KappaRU,KappaRV, |
|
./pkg/pp81/pp81_calc_visc.F |
33 |
PP81_CALC_VISC |
_RL KappaRV(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/pp81/pp81_calc_visc.F |
52 |
PP81_CALC_VISC |
KappaRV(i,j,k) = max ( KappaRV(i,j,k), |
|
./pkg/pp81/pp81_calc_visc.F |
53 |
PP81_CALC_VISC |
& KappaRV(i,j,k) - viscArNr(k) + _maskS(i,j,k,bi,bj) * |
|
./pkg/pp81/pp81_calc_visc.F |
7 |
PP81_CALC_VISC |
U KappaRU,KappaRV, |
|
./model/src/dynamics.F |
190 |
DYNAMICS |
_RL KappaRV (1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./model/src/dynamics.F |
308 |
DYNAMICS |
KappaRV(i,j,k) = 0. _d 0 |
|
./model/src/dynamics.F |
381 |
DYNAMICS |
O KappaRU, KappaRV, |
|
./model/src/dynamics.F |
388 |
DYNAMICS |
KappaRV(i,j,k) = 0. _d 0 |
|
./model/src/dynamics.F |
527 |
DYNAMICS |
I KappaRU, KappaRV, |
|
./model/src/dynamics.F |
546 |
DYNAMICS |
I KappaRU, KappaRV, |
|
./model/src/dynamics.F |
598 |
DYNAMICS |
I -2, KappaRV,recip_HFacS, |
|
./model/src/dynamics.F |
629 |
DYNAMICS |
I 0, KappaRV,recip_HFacS, |
|
./model/src/dynamics.F |
646 |
DYNAMICS |
I bi,bj, KappaRU, KappaRV, |
|
./pkg/shelfice/shelfice_v_drag.F |
13 |
SHELFICE_V_DRAG |
I vFld, KE, KappaRV, |
|
./pkg/shelfice/shelfice_v_drag.F |
42 |
SHELFICE_V_DRAG |
_RL KappaRV(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/shelfice/shelfice_v_drag.F |
79 |
SHELFICE_V_DRAG |
& - 2.*KappaRV(i,j,kUpC)*rdrckp1*viscFac |