| File |
Line number |
Procedure |
Code |
|
./pkg/shelfice/shelfice_v_drag.F |
13 |
SHELFICE_V_DRAG |
I vFld, KE, KappaRV, |
|
./pkg/shelfice/shelfice_v_drag.F |
41 |
SHELFICE_V_DRAG |
_RL KE(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/shelfice/shelfice_v_drag.F |
81 |
SHELFICE_V_DRAG |
IF ( (KE(i,j)+KE(i,j-1)) .NE. 0. ) THEN |
|
./pkg/shelfice/shelfice_v_drag.F |
84 |
SHELFICE_V_DRAG |
& *bottomDragQuadratic*sqrt(KE(i,j)+KE(i,j-1)) |
|
./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 KE(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/shelfice/shelfice_u_drag.F |
82 |
SHELFICE_U_DRAG |
IF ( (KE(i,j)+KE(i-1,j)) .NE. 0. ) THEN |
|
./pkg/shelfice/shelfice_u_drag.F |
85 |
SHELFICE_U_DRAG |
& *SHELFICEDragQuadratic*sqrt(KE(i,j)+KE(i-1,j)) |
|
./pkg/mom_fluxform/mom_fluxform.F |
131 |
MOM_FLUXFORM |
_RL KE(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_fluxform/mom_fluxform.F |
277 |
MOM_FLUXFORM |
CALL MOM_CALC_KE(bi,bj,k,2,uFld,vFld,KE,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
345 |
MOM_FLUXFORM |
I hDiv,vort3,tension,strain,KE,hFacZ, |
|
./pkg/mom_fluxform/mom_fluxform.F |
497 |
MOM_FLUXFORM |
CALL MOM_U_BOTTOMDRAG(bi,bj,k,uFld,KE,KappaRU,vF,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
507 |
MOM_FLUXFORM |
CALL SHELFICE_U_DRAG(bi,bj,k,uFld,KE,KappaRU,vF,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
699 |
MOM_FLUXFORM |
CALL MOM_V_BOTTOMDRAG(bi,bj,k,vFld,KE,KappaRV,vF,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
709 |
MOM_FLUXFORM |
CALL SHELFICE_V_DRAG(bi,bj,k,vFld,KE,KappaRU,vF,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
817 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(KE, 'momKE ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_hdissip.F |
33 |
MOM_HDISSIP |
_RL KE(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_common/mom_hdissip.F |
8 |
MOM_HDISSIP |
I hDiv,vort3,tension,strain,KE, |
|
./pkg/mom_common/mom_calc_visc.F |
11 |
MOM_CALC_VISC |
I hDiv,vort3,tension,strain,KE,hFacZ, |
|
./pkg/mom_common/mom_calc_visc.F |
333 |
MOM_CALC_VISC |
IF ( viscAhRe_max.GT.0. .AND. KE(i,j).GT.0. ) THEN |
|
./pkg/mom_common/mom_calc_visc.F |
334 |
MOM_CALC_VISC |
Uscl=sqrt(KE(i,j)*L2)*viscAhRe_max |
|
./pkg/mom_common/mom_calc_visc.F |
338 |
MOM_CALC_VISC |
IF ( viscA4Re_max.GT.0. .AND. KE(i,j).GT.0. ) THEN |
|
./pkg/mom_common/mom_calc_visc.F |
339 |
MOM_CALC_VISC |
U4scl=sqrt(KE(i,j))*L3*viscA4Re_max |
|
./pkg/mom_common/mom_calc_visc.F |
463 |
MOM_CALC_VISC |
keZpt=0.25 _d 0*( (KE(i,j)+KE(i-1,j-1)) |
|
./pkg/mom_common/mom_calc_visc.F |
464 |
MOM_CALC_VISC |
& +(KE(i-1,j)+KE(i,j-1)) ) |
|
./pkg/mom_common/mom_calc_visc.F |
89 |
MOM_CALC_VISC |
_RL KE(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
19 |
MOM_V_BOTTOMDRAG |
I vFld, KE, KappaRV, |
|
./pkg/mom_common/mom_v_bottomdrag.F |
45 |
MOM_V_BOTTOMDRAG |
_RL KE(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
90 |
MOM_V_BOTTOMDRAG |
IF ( (KE(i,j)+KE(i,j-1)) .NE. 0. ) THEN |
|
./pkg/mom_common/mom_v_bottomdrag.F |
93 |
MOM_V_BOTTOMDRAG |
& *bottomDragQuadratic*sqrt(KE(i,j)+KE(i,j-1)) |
|
./pkg/mom_common/mom_calc_ke.F |
101 |
MOM_CALC_KE |
KE(i,j) = 0.25*( |
|
./pkg/mom_common/mom_calc_ke.F |
114 |
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.125*( |
|
./pkg/mom_common/mom_calc_ke.F |
74 |
MOM_CALC_KE |
KE(i,j) = 0.25*( |
|
./pkg/mom_common/mom_calc_ke.F |
87 |
MOM_CALC_KE |
KE(i,j) = 0.25*( |
|
./pkg/mom_common/mom_u_bottomdrag.F |
12 |
MOM_U_BOTTOMDRAG |
I uFld, KE, KappaRU, |
|
./pkg/mom_common/mom_u_bottomdrag.F |
38 |
MOM_U_BOTTOMDRAG |
_RL KE(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
83 |
MOM_U_BOTTOMDRAG |
IF ( (KE(i,j)+KE(i-1,j)) .NE. 0. ) THEN |
|
./pkg/mom_common/mom_u_bottomdrag.F |
86 |
MOM_U_BOTTOMDRAG |
& *bottomDragQuadratic*sqrt(KE(i,j)+KE(i-1,j)) |
|
./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/mom_vecinv/mom_vi_hdissip.F |
39 |
MOM_VI_HDISSIP |
_RL KE(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
8 |
MOM_VI_HDISSIP |
I hDiv,vort3,tension,strain,KE, |
|
./pkg/mom_vecinv/mom_vecinv.F |
178 |
MOM_VECINV |
KE(i,j) = 0. |
|
./pkg/mom_vecinv/mom_vecinv.F |
229 |
MOM_VECINV |
CALL MOM_CALC_KE(bi,bj,k,selectKEscheme,uFld,vFld,KE,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
263 |
MOM_VECINV |
I hDiv,vort3,tension,strain,KE,hfacZ, |
|
./pkg/mom_vecinv/mom_vecinv.F |
304 |
MOM_VECINV |
CALL MOM_HDISSIP(bi,bj,k,hDiv,vort3,tension,strain,KE, |
|
./pkg/mom_vecinv/mom_vecinv.F |
312 |
MOM_VECINV |
CALL MOM_VI_HDISSIP(bi,bj,k,hDiv,vort3,tension,strain,KE, |
|
./pkg/mom_vecinv/mom_vecinv.F |
371 |
MOM_VECINV |
CALL MOM_U_BOTTOMDRAG(bi,bj,k,uFld,KE,KappaRU,vF,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
380 |
MOM_VECINV |
CALL SHELFICE_U_DRAG(bi,bj,k,uFld,KE,KappaRU,vF,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
436 |
MOM_VECINV |
CALL MOM_V_BOTTOMDRAG(bi,bj,k,vFld,KE,KappaRV,vF,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
445 |
MOM_VECINV |
CALL SHELFICE_V_DRAG(bi,bj,k,vFld,KE,KappaRU,vF,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
628 |
MOM_VECINV |
CALL MOM_VI_U_GRAD_KE(bi,bj,K,KE,uCf,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
634 |
MOM_VECINV |
CALL MOM_VI_V_GRAD_KE(bi,bj,K,KE,vCf,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
714 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('KE','I10',1,KE, bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
724 |
MOM_VECINV |
CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj,'KE',KE, |
|
./pkg/mom_vecinv/mom_vecinv.F |
740 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(KE, 'momKE ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
88 |
MOM_VECINV |
_RL KE (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |