| File |
Line number |
Procedure |
Code |
|
./pkg/ggl90/ggl90_calc_visc.F |
31 |
GGL90_CALC_VISC |
_RL KappaRU(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/ggl90/ggl90_calc_visc.F |
49 |
GGL90_CALC_VISC |
KappaRU(i,j,k) = KappaRU(i,j,k) + |
|
./pkg/ggl90/ggl90_calc_visc.F |
8 |
GGL90_CALC_VISC |
U KappaRU,KappaRV, |
|
./pkg/kl10/kl10_calc_visc.F |
32 |
KL10_CALC_VISC |
_RL KappaRU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/kl10/kl10_calc_visc.F |
44 |
KL10_CALC_VISC |
KappaRU(i,j,k) = max ( KappaRU(i,j,k), |
|
./pkg/kl10/kl10_calc_visc.F |
45 |
KL10_CALC_VISC |
& KappaRU(i,j,k) - viscArNr(k) + _maskW(i,j,k,bi,bj) * |
|
./pkg/kl10/kl10_calc_visc.F |
7 |
KL10_CALC_VISC |
U KappaRU,KappaRV, |
|
./pkg/kpp/kpp_calc_visc.F |
29 |
KPP_CALC_VISC |
_RL KappaRU(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/kpp/kpp_calc_visc.F |
42 |
KPP_CALC_VISC |
KappaRU(i,j,k) = max ( KappaRU(i,j,k), |
|
./pkg/kpp/kpp_calc_visc.F |
43 |
KPP_CALC_VISC |
& KappaRU(i,j,k) - viscArNr(1) + _maskW(i,j,k,bi,bj) * |
|
./pkg/kpp/kpp_calc_visc.F |
8 |
KPP_CALC_VISC |
U KappaRU,KappaRV, |
|
./model/src/calc_gw.F |
15 |
CALC_GW |
I bi, bj, KappaRU, KappaRV, |
|
./model/src/calc_gw.F |
408 |
CALC_GW |
viscLoc = ( KappaRU(i,j,k) +KappaRU(i+1,j,k) |
|
./model/src/calc_gw.F |
409 |
CALC_GW |
& +KappaRU(i,j,kp1)+KappaRU(i+1,j,kp1) |
|
./model/src/calc_gw.F |
428 |
CALC_GW |
viscLoc = ( KappaRU(i,j,k) + KappaRU(i+1,j,k) |
|
./model/src/calc_gw.F |
59 |
CALC_GW |
_RL KappaRU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
100 |
MOM_U_BOTTOMDRAG |
& KappaRU(i,j,kLowF)*recDrC*viscFac |
|
./pkg/mom_common/mom_u_bottomdrag.F |
15 |
MOM_U_BOTTOMDRAG |
I uFld, KE, KappaRU, |
|
./pkg/mom_common/mom_u_bottomdrag.F |
45 |
MOM_U_BOTTOMDRAG |
_RL KappaRU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/mom_common/mom_u_implicit_r.F |
101 |
MOM_U_IMPLICIT_R |
& *KappaRU(i,j,k+1)*recip_drC(k+1) |
|
./pkg/mom_common/mom_u_implicit_r.F |
216 |
MOM_U_IMPLICIT_R |
& -KappaRU(i,j,k)*rAw(i,j,bi,bj)*recip_drC(k) |
|
./pkg/mom_common/mom_u_rviscflux.F |
12 |
MOM_U_RVISCFLUX |
I uFld, KappaRU, |
|
./pkg/mom_common/mom_u_rviscflux.F |
38 |
MOM_U_RVISCFLUX |
_RL KappaRU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/mom_common/mom_u_rviscflux.F |
61 |
MOM_U_RVISCFLUX |
& -KappaRU(i,j,k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
42 |
MOM_FLUXFORM |
I KappaRU, KappaRV, |
|
./pkg/mom_fluxform/mom_fluxform.F |
527 |
MOM_FLUXFORM |
CALL MOM_U_RVISCFLUX( bi,bj, k, uVel,KappaRU,fVrUp,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
528 |
MOM_FLUXFORM |
CALL MOM_U_RVISCFLUX( bi,bj,k+1,uVel,KappaRU,fVrDw,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
577 |
MOM_FLUXFORM |
CALL MOM_U_BOTTOMDRAG( bi,bj,k,uFld,KE,KappaRU,vF,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
587 |
MOM_FLUXFORM |
CALL SHELFICE_U_DRAG( bi,bj,k,uFld,KE,KappaRU,vF,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
88 |
MOM_FLUXFORM |
_RL KappaRU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/calc_viscosity.F |
12 |
CALC_VISCOSITY |
O KappaRU, KappaRV, |
|
./model/src/calc_viscosity.F |
40 |
CALC_VISCOSITY |
_RL KappaRU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/calc_viscosity.F |
54 |
CALC_VISCOSITY |
KappaRU(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, |
|
./model/src/calc_viscosity.F |
90 |
CALC_VISCOSITY |
O KappaRU,KappaRV, |
|
./pkg/mom_vecinv/mom_vecinv.F |
14 |
MOM_VECINV |
I KappaRU, KappaRV, |
|
./pkg/mom_vecinv/mom_vecinv.F |
361 |
MOM_VECINV |
CALL MOM_U_RVISCFLUX(bi,bj,k+1,uVel,KappaRU,vrF,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
397 |
MOM_VECINV |
CALL MOM_U_BOTTOMDRAG(bi,bj,k,uFld,KE,KappaRU,vF,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
406 |
MOM_VECINV |
CALL SHELFICE_U_DRAG(bi,bj,k,uFld,KE,KappaRU,vF,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
75 |
MOM_VECINV |
_RL KappaRU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/my82/my82_calc_visc.F |
29 |
MY82_CALC_VISC |
_RL KappaRU(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/my82/my82_calc_visc.F |
41 |
MY82_CALC_VISC |
KappaRU(i,j,k) = max ( KappaRU(i,j,k), |
|
./pkg/my82/my82_calc_visc.F |
42 |
MY82_CALC_VISC |
& KappaRU(i,j,k) - viscArNr(k) + _maskW(i,j,k,bi,bj) * |
|
./pkg/my82/my82_calc_visc.F |
7 |
MY82_CALC_VISC |
U KappaRU,KappaRV, |
|
./pkg/pp81/pp81_calc_visc.F |
32 |
PP81_CALC_VISC |
_RL KappaRU(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/pp81/pp81_calc_visc.F |
44 |
PP81_CALC_VISC |
KappaRU(i,j,k) = max ( KappaRU(i,j,k), |
|
./pkg/pp81/pp81_calc_visc.F |
45 |
PP81_CALC_VISC |
& KappaRU(i,j,k) - viscArNr(k) + _maskW(i,j,k,bi,bj) * |
|
./pkg/pp81/pp81_calc_visc.F |
7 |
PP81_CALC_VISC |
U KappaRU,KappaRV, |
|
./model/src/dynamics.F |
153 |
DYNAMICS |
_RL KappaRU (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/dynamics.F |
372 |
DYNAMICS |
KappaRU(i,j,k) = 0. _d 0 |
|
./model/src/dynamics.F |
385 |
DYNAMICS |
O KappaRU, KappaRV, |
|
./model/src/dynamics.F |
528 |
DYNAMICS |
I KappaRU, KappaRV, |
|
./model/src/dynamics.F |
538 |
DYNAMICS |
I KappaRU, KappaRV, |
|
./model/src/dynamics.F |
595 |
DYNAMICS |
I -1, KappaRU, recip_hFacW(1-OLx,1-OLy,1,bi,bj), |
|
./model/src/dynamics.F |
627 |
DYNAMICS |
I 0, KappaRU, recip_hFacW(1-OLx,1-OLy,1,bi,bj), |
|
./model/src/dynamics.F |
652 |
DYNAMICS |
I bi,bj, KappaRU, KappaRV, |
|
./pkg/shelfice/shelfice_u_drag.F |
13 |
SHELFICE_U_DRAG |
I uFld, KE, KappaRU, |
|
./pkg/shelfice/shelfice_u_drag.F |
42 |
SHELFICE_U_DRAG |
_RL KappaRU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/shelfice/shelfice_u_drag.F |
79 |
SHELFICE_U_DRAG |
& - 2.*KappaRU(i,j,kUpC)*rdrckp1*viscFac |