| File |
Line number |
Procedure |
Code |
|
./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_calc_visc.F |
11 |
MOM_CALC_VISC |
I hDiv,vort3,tension,strain,KE,hFacZ, |
|
./pkg/mom_common/mom_calc_visc.F |
371 |
MOM_CALC_VISC |
IF ( viscAhRe_max.GT.0. .AND. KE(i,j).GT.0. ) THEN |
|
./pkg/mom_common/mom_calc_visc.F |
372 |
MOM_CALC_VISC |
Uscl=SQRT(KE(i,j)*L2)*viscAhRe_max |
|
./pkg/mom_common/mom_calc_visc.F |
376 |
MOM_CALC_VISC |
IF ( viscA4Re_max.GT.0. .AND. KE(i,j).GT.0. ) THEN |
|
./pkg/mom_common/mom_calc_visc.F |
377 |
MOM_CALC_VISC |
U4scl=SQRT(KE(i,j))*L3*viscA4Re_max |
|
./pkg/mom_common/mom_calc_visc.F |
506 |
MOM_CALC_VISC |
keZpt=0.25 _d 0*( (KE(i,j)+KE(i-1,j-1)) |
|
./pkg/mom_common/mom_calc_visc.F |
507 |
MOM_CALC_VISC |
& +(KE(i-1,j)+KE(i,j-1)) ) |
|
./pkg/mom_common/mom_calc_visc.F |
99 |
MOM_CALC_VISC |
_RL KE(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./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_u_bottomdrag.F |
12 |
MOM_U_BOTTOMDRAG |
I uFld, KE, KappaRU, |
|
./pkg/mom_common/mom_u_bottomdrag.F |
41 |
MOM_U_BOTTOMDRAG |
_RL KE(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
90 |
MOM_U_BOTTOMDRAG |
IF ( (KE(i,j)+KE(i-1,j)) .NE. 0. ) THEN |
|
./pkg/mom_common/mom_u_bottomdrag.F |
93 |
MOM_U_BOTTOMDRAG |
& *bottomDragQuadratic*SQRT(KE(i,j)+KE(i-1,j))*dragFac |
|
./pkg/mom_common/mom_v_bottomdrag.F |
100 |
MOM_V_BOTTOMDRAG |
& *bottomDragQuadratic*SQRT(KE(i,j)+KE(i,j-1))*dragFac |
|
./pkg/mom_common/mom_v_bottomdrag.F |
19 |
MOM_V_BOTTOMDRAG |
I vFld, KE, KappaRV, |
|
./pkg/mom_common/mom_v_bottomdrag.F |
48 |
MOM_V_BOTTOMDRAG |
_RL KE(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
97 |
MOM_V_BOTTOMDRAG |
IF ( (KE(i,j)+KE(i,j-1)) .NE. 0. ) THEN |
|
./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 |
281 |
MOM_FLUXFORM |
CALL MOM_CALC_KE(bi,bj,k,2,uFld,vFld,KE,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
367 |
MOM_FLUXFORM |
I hDiv,vort3,tension,strain,KE,hFacZ, |
|
./pkg/mom_fluxform/mom_fluxform.F |
531 |
MOM_FLUXFORM |
CALL MOM_U_BOTTOMDRAG(bi,bj,k,uFld,KE,KappaRU,vF,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
541 |
MOM_FLUXFORM |
CALL SHELFICE_U_DRAG(bi,bj,k,uFld,KE,KappaRU,vF,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 |
756 |
MOM_FLUXFORM |
CALL SHELFICE_V_DRAG(bi,bj,k,vFld,KE,KappaRU,vF,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
864 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(KE, 'momKE ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
178 |
MOM_VECINV |
KE(i,j) = 0. |
|
./pkg/mom_vecinv/mom_vecinv.F |
231 |
MOM_VECINV |
CALL MOM_CALC_KE(bi,bj,k,selectKEscheme,uFld,vFld,KE,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
265 |
MOM_VECINV |
I hDiv,vort3,tension,strain,KE,hfacZ, |
|
./pkg/mom_vecinv/mom_vecinv.F |
306 |
MOM_VECINV |
CALL MOM_HDISSIP(bi,bj,k,hDiv,vort3,tension,strain,KE, |
|
./pkg/mom_vecinv/mom_vecinv.F |
314 |
MOM_VECINV |
CALL MOM_VI_HDISSIP(bi,bj,k,hDiv,vort3,tension,strain,KE, |
|
./pkg/mom_vecinv/mom_vecinv.F |
373 |
MOM_VECINV |
CALL MOM_U_BOTTOMDRAG(bi,bj,k,uFld,KE,KappaRU,vF,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
382 |
MOM_VECINV |
CALL SHELFICE_U_DRAG(bi,bj,k,uFld,KE,KappaRU,vF,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 |
447 |
MOM_VECINV |
CALL SHELFICE_V_DRAG(bi,bj,k,vFld,KE,KappaRU,vF,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
632 |
MOM_VECINV |
CALL MOM_VI_U_GRAD_KE(bi,bj,K,KE,uCf,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
638 |
MOM_VECINV |
CALL MOM_VI_V_GRAD_KE(bi,bj,K,KE,vCf,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
718 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('KE','I10',1,KE, bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
728 |
MOM_VECINV |
CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj,'KE',KE, |
|
./pkg/mom_vecinv/mom_vecinv.F |
744 |
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) |
|
./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_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/shelfice/shelfice_u_drag.F |
13 |
SHELFICE_U_DRAG |
I uFld, KE, KappaRU, |
|
./pkg/shelfice/shelfice_u_drag.F |
41 |
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/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 |
82 |
SHELFICE_V_DRAG |
IF ( (KE(i,j)+KE(i,j-1)) .NE. 0. ) THEN |
|
./pkg/shelfice/shelfice_v_drag.F |
85 |
SHELFICE_V_DRAG |
& *bottomDragQuadratic*sqrt(KE(i,j)+KE(i,j-1)) |