| 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 |
332 |
MOM_CALC_VISC |
IF ( viscAhRe_max.GT.0. .AND. KE(i,j).GT.0. ) THEN |
|
./pkg/mom_common/mom_calc_visc.F |
333 |
MOM_CALC_VISC |
Uscl=SQRT(KE(i,j)*L2)*viscAhRe_max |
|
./pkg/mom_common/mom_calc_visc.F |
337 |
MOM_CALC_VISC |
IF ( viscA4Re_max.GT.0. .AND. KE(i,j).GT.0. ) THEN |
|
./pkg/mom_common/mom_calc_visc.F |
338 |
MOM_CALC_VISC |
U4scl=SQRT(KE(i,j))*L3*viscA4Re_max |
|
./pkg/mom_common/mom_calc_visc.F |
441 |
MOM_CALC_VISC |
keZpt=0.25 _d 0*( (KE(i,j)+KE(i-1,j-1)) |
|
./pkg/mom_common/mom_calc_visc.F |
442 |
MOM_CALC_VISC |
& +(KE(i-1,j)+KE(i,j-1)) ) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
113 |
MOM_U_BOTTOMDRAG |
IF ( (KE(i,j)+KE(i-1,j)) .GT. 0. ) THEN |
|
./pkg/mom_common/mom_u_bottomdrag.F |
116 |
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, KE, KappaRU, |
|
./pkg/mom_common/mom_u_bottomdrag.F |
44 |
MOM_U_BOTTOMDRAG |
_RL KE(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
113 |
MOM_V_BOTTOMDRAG |
IF ( (KE(i,j)+KE(i,j-1)) .GT. 0. ) THEN |
|
./pkg/mom_common/mom_v_bottomdrag.F |
116 |
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 vFld, KE, KappaRV, |
|
./pkg/mom_common/mom_v_bottomdrag.F |
44 |
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 |
307 |
MOM_FLUXFORM |
CALL MOM_CALC_KE( bi,bj,k,2,uFld,vFld,KE,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
399 |
MOM_FLUXFORM |
I hDiv, vort3, tension, strain, KE, hFacZ, |
|
./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 |
803 |
MOM_FLUXFORM |
CALL MOM_V_BOTTOMDRAG( bi,bj,k,vFld,KE,KappaRV,vF,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
813 |
MOM_FLUXFORM |
CALL SHELFICE_V_DRAG( bi,bj,k,vFld,KE,KappaRV,vF,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
917 |
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 |
255 |
MOM_VECINV |
CALL MOM_CALC_KE(bi,bj,k,selectKEscheme,uFld,vFld,KE,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
321 |
MOM_VECINV |
I hDiv, vort3BC, tension, strainBC, KE, hfacZ, |
|
./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 |
456 |
MOM_VECINV |
CALL MOM_V_BOTTOMDRAG(bi,bj,k,vFld,KE,KappaRV,vF,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
465 |
MOM_VECINV |
CALL SHELFICE_V_DRAG(bi,bj,k,vFld,KE,KappaRV,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 |
729 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('KE','I10',1,KE, bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
743 |
MOM_VECINV |
CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj,'KE',KE, |
|
./pkg/mom_vecinv/mom_vecinv.F |
762 |
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/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)) .GT. 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)) .GT. 0. ) THEN |
|
./pkg/shelfice/shelfice_v_drag.F |
85 |
SHELFICE_V_DRAG |
& *bottomDragQuadratic*sqrt(KE(i,j)+KE(i,j-1)) |