| File |
Line number |
Procedure |
Code |
|
./pkg/mom_common/mom_calc_ke.F |
109 |
MOM_CALC_KE |
KE(i,j) = 0.25*( |
|
./pkg/mom_common/mom_calc_ke.F |
122 |
MOM_CALC_KE |
KE(i,j) = 0.25*( |
|
./pkg/mom_common/mom_calc_ke.F |
13 |
MOM_CALC_KE |
O KE, |
|
./pkg/mom_common/mom_calc_ke.F |
43 |
MOM_CALC_KE |
_RL KE(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_common/mom_calc_ke.F |
59 |
MOM_CALC_KE |
KE(i,j) = 0. |
|
./pkg/mom_common/mom_calc_ke.F |
67 |
MOM_CALC_KE |
KE(i,j) = 0.125*( |
|
./pkg/mom_common/mom_calc_ke.F |
82 |
MOM_CALC_KE |
KE(i,j) = 0.25*( |
|
./pkg/mom_common/mom_calc_ke.F |
95 |
MOM_CALC_KE |
KE(i,j) = 0.25*( |
|
./pkg/mom_common/mom_calc_visc.F |
100 |
MOM_CALC_VISC |
_RL KE(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_common/mom_calc_visc.F |
17 |
MOM_CALC_VISC |
I hDiv,vort3,tension,strain,KE,hFacZ, |
|
./pkg/mom_common/mom_calc_visc.F |
337 |
MOM_CALC_VISC |
IF ( viscAhRe_max.GT.0. .AND. KE(i,j).GT.0. ) THEN |
|
./pkg/mom_common/mom_calc_visc.F |
338 |
MOM_CALC_VISC |
Uscl=SQRT(KE(i,j)*L2)*viscAhRe_max |
|
./pkg/mom_common/mom_calc_visc.F |
342 |
MOM_CALC_VISC |
IF ( viscA4Re_max.GT.0. .AND. KE(i,j).GT.0. ) THEN |
|
./pkg/mom_common/mom_calc_visc.F |
343 |
MOM_CALC_VISC |
U4scl=SQRT(KE(i,j))*L3*viscA4Re_max |
|
./pkg/mom_common/mom_calc_visc.F |
446 |
MOM_CALC_VISC |
keZpt=0.25 _d 0*( (KE(i,j)+KE(i-1,j-1)) |
|
./pkg/mom_common/mom_calc_visc.F |
447 |
MOM_CALC_VISC |
& +(KE(i-1,j)+KE(i,j-1)) ) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
142 |
MOM_U_BOTDRAG_IMPL |
KE(i,j) = 0.25*( |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
153 |
MOM_U_BOTDRAG_IMPL |
IF ( (KE(i,j)+KE(i-1,j)) .GT. 0. ) THEN |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
156 |
MOM_U_BOTDRAG_IMPL |
& *bottomDragQuadratic*SQRT(KE(i,j)+KE(i-1,j))*dragFac |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
60 |
MOM_U_BOTDRAG_IMPL |
_RL KE(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
139 |
MOM_U_BOTTOMDRAG |
IF ( (KE(i,j)+KE(i-1,j)) .GT. 0. ) THEN |
|
./pkg/mom_common/mom_u_bottomdrag.F |
142 |
MOM_U_BOTTOMDRAG |
& *bottomDragQuadratic*SQRT(KE(i,j)+KE(i-1,j))*dragFac |
|
./pkg/mom_common/mom_u_bottomdrag.F |
15 |
MOM_U_BOTTOMDRAG |
I uFld, vFld, KE, kappaRU, |
|
./pkg/mom_common/mom_u_bottomdrag.F |
46 |
MOM_U_BOTTOMDRAG |
_RL KE(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
142 |
MOM_V_BOTDRAG_IMPL |
KE(i,j) = 0.25*( |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
153 |
MOM_V_BOTDRAG_IMPL |
IF ( (KE(i,j)+KE(i,j-1)) .GT. 0. ) THEN |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
156 |
MOM_V_BOTDRAG_IMPL |
& *bottomDragQuadratic*SQRT(KE(i,j)+KE(i,j-1))*dragFac |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
60 |
MOM_V_BOTDRAG_IMPL |
_RL KE(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
139 |
MOM_V_BOTTOMDRAG |
IF ( (KE(i,j)+KE(i,j-1)) .GT. 0. ) THEN |
|
./pkg/mom_common/mom_v_bottomdrag.F |
142 |
MOM_V_BOTTOMDRAG |
& *bottomDragQuadratic*SQRT(KE(i,j)+KE(i,j-1))*dragFac |
|
./pkg/mom_common/mom_v_bottomdrag.F |
15 |
MOM_V_BOTTOMDRAG |
I uFld, vFld, KE, kappaRV, |
|
./pkg/mom_common/mom_v_bottomdrag.F |
46 |
MOM_V_BOTTOMDRAG |
_RL KE(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_fluxform/mom_fluxform.F |
144 |
MOM_FLUXFORM |
_RL KE(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_fluxform/mom_fluxform.F |
308 |
MOM_FLUXFORM |
CALL MOM_CALC_KE( bi,bj,k,2,uFld,vFld,KE,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
400 |
MOM_FLUXFORM |
I hDiv, vort3, tension, strain, KE, hFacZ, |
|
./pkg/mom_fluxform/mom_fluxform.F |
579 |
MOM_FLUXFORM |
I uFld, vFld, KE, kappaRU, |
|
./pkg/mom_fluxform/mom_fluxform.F |
592 |
MOM_FLUXFORM |
I uFld, vFld, KE, kappaRU, |
|
./pkg/mom_fluxform/mom_fluxform.F |
811 |
MOM_FLUXFORM |
I uFld, vFld, KE, kappaRV, |
|
./pkg/mom_fluxform/mom_fluxform.F |
824 |
MOM_FLUXFORM |
I uFld, vFld, KE, kappaRV, |
|
./pkg/mom_fluxform/mom_fluxform.F |
930 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(KE, 'momKE ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
112 |
MOM_VECINV |
_RL KE (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_vecinv/mom_vecinv.F |
202 |
MOM_VECINV |
KE(i,j) = 0. |
|
./pkg/mom_vecinv/mom_vecinv.F |
271 |
MOM_VECINV |
CALL MOM_CALC_KE(bi,bj,k,selectKEscheme,uFld,vFld,KE,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
371 |
MOM_VECINV |
I hDiv, vort3BC, tension, strainBC, KE, hfacZ, |
|
./pkg/mom_vecinv/mom_vecinv.F |
493 |
MOM_VECINV |
I uFld, vFld, KE, kappaRU, |
|
./pkg/mom_vecinv/mom_vecinv.F |
505 |
MOM_VECINV |
I uFld, vFld, KE, kappaRU, |
|
./pkg/mom_vecinv/mom_vecinv.F |
564 |
MOM_VECINV |
I uFld, vFld, KE, kappaRV, |
|
./pkg/mom_vecinv/mom_vecinv.F |
576 |
MOM_VECINV |
I uFld, vFld, KE, kappaRV, |
|
./pkg/mom_vecinv/mom_vecinv.F |
778 |
MOM_VECINV |
CALL MOM_VI_U_GRAD_KE(bi,bj,k,KE,uCf,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
784 |
MOM_VECINV |
CALL MOM_VI_V_GRAD_KE(bi,bj,k,KE,vCf,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
875 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('KE','I10',1,KE, bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
889 |
MOM_VECINV |
CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj,'KE',KE, |
|
./pkg/mom_vecinv/mom_vecinv.F |
908 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(KE, 'momKE ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vi_u_grad_ke.F |
24 |
MOM_VI_U_GRAD_KE |
_RL KE(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_vecinv/mom_vi_u_grad_ke.F |
33 |
MOM_VI_U_GRAD_KE |
dKEdx(i,j)=-_recip_dxC(i,j,bi,bj)*(KE(i,j)-KE(i-1,j)) |
|
./pkg/mom_vecinv/mom_vi_u_grad_ke.F |
8 |
MOM_VI_U_GRAD_KE |
I KE, |
|
./pkg/mom_vecinv/mom_vi_v_grad_ke.F |
24 |
MOM_VI_V_GRAD_KE |
_RL KE(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_vecinv/mom_vi_v_grad_ke.F |
33 |
MOM_VI_V_GRAD_KE |
dKEdy(i,j)=-_recip_dyC(i,j,bi,bj)*(KE(i,j)-KE(i,j-1)) |
|
./pkg/mom_vecinv/mom_vi_v_grad_ke.F |
8 |
MOM_VI_V_GRAD_KE |
I KE, |
|
./pkg/seaice/seaice_mom_advection.F |
122 |
SEAICE_MOM_ADVECTION |
KE(i,j) = 0. |
|
./pkg/seaice/seaice_mom_advection.F |
152 |
SEAICE_MOM_ADVECTION |
CALL MOM_CALC_KE(bi,bj,k,SEAICEselectKEscheme,uFld,vFld,KE,myThid) |
|
./pkg/seaice/seaice_mom_advection.F |
233 |
SEAICE_MOM_ADVECTION |
CALL MOM_VI_U_GRAD_KE(bi,bj,k,KE,uCf,myThid) |
|
./pkg/seaice/seaice_mom_advection.F |
239 |
SEAICE_MOM_ADVECTION |
CALL MOM_VI_V_GRAD_KE(bi,bj,k,KE,vCf,myThid) |
|
./pkg/seaice/seaice_mom_advection.F |
263 |
SEAICE_MOM_ADVECTION |
CALL DIAGNOSTICS_FILL(KE, 'SImomKE ',k,1,2,bi,bj,myThid) |
|
./pkg/seaice/seaice_mom_advection.F |
75 |
SEAICE_MOM_ADVECTION |
_RL KE (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/shelfice/shelfice_u_drag.F |
125 |
SHELFICE_U_DRAG |
uSq = KE(i,j)+KE(i-1,j) |
|
./pkg/shelfice/shelfice_u_drag.F |
12 |
SHELFICE_U_DRAG |
I uFld, vFld, KE, kappaRU, |
|
./pkg/shelfice/shelfice_u_drag.F |
42 |
SHELFICE_U_DRAG |
_RL KE(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/shelfice/shelfice_v_drag.F |
125 |
SHELFICE_V_DRAG |
vSq = KE(i,j)+KE(i,j-1) |
|
./pkg/shelfice/shelfice_v_drag.F |
12 |
SHELFICE_V_DRAG |
I uFld, vFld, KE, kappaRV, |
|
./pkg/shelfice/shelfice_v_drag.F |
42 |
SHELFICE_V_DRAG |
_RL KE(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |