| File |
Line number |
Procedure |
Code |
|
./pkg/mom_common/mom_calc_strain.F |
12 |
MOM_CALC_STRAIN |
I uFld, vFld, hFacZ, |
|
./pkg/mom_common/mom_calc_strain.F |
41 |
MOM_CALC_STRAIN |
_RS hFacZ(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_common/mom_calc_strain.F |
70 |
MOM_CALC_STRAIN |
IF (hFacZ(i,j).EQ.0.) THEN |
|
./pkg/mom_common/mom_v_sidedrag.F |
12 |
MOM_V_SIDEDRAG |
I vFld, del2v, hFacZ, |
|
./pkg/mom_common/mom_v_sidedrag.F |
39 |
MOM_V_SIDEDRAG |
_RS hFacZ(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_common/mom_v_sidedrag.F |
58 |
MOM_V_SIDEDRAG |
hFacZClosedW = _hFacS(i,j,k,bi,bj) - hFacZ(i,j) |
|
./pkg/mom_common/mom_v_sidedrag.F |
59 |
MOM_V_SIDEDRAG |
hFacZClosedE = _hFacS(i,j,k,bi,bj) - hFacZ(i+1,j) |
|
./pkg/mom_common/mom_hdissip.F |
28 |
MOM_HDISSIP |
_RS hFacZ(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_common/mom_hdissip.F |
8 |
MOM_HDISSIP |
I tension,strain,hFacZ,viscAt,viscAs, |
|
./pkg/mom_common/mom_u_sidedrag.F |
12 |
MOM_U_SIDEDRAG |
I uFld, del2u, hFacZ, |
|
./pkg/mom_common/mom_u_sidedrag.F |
39 |
MOM_U_SIDEDRAG |
_RS hFacZ(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_common/mom_u_sidedrag.F |
58 |
MOM_U_SIDEDRAG |
hFacZClosedS = _hFacW(i,j,k,bi,bj) - hFacZ(i,j) |
|
./pkg/mom_common/mom_u_sidedrag.F |
59 |
MOM_U_SIDEDRAG |
hFacZClosedN = _hFacW(i,j,k,bi,bj) - hFacZ(i,j+1) |
|
./pkg/mom_common/mom_calc_hfacz.F |
12 |
MOM_CALC_HFACZ |
O hFacZ,r_hFacZ, |
|
./pkg/mom_common/mom_calc_hfacz.F |
33 |
MOM_CALC_HFACZ |
_RS hFacZ(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_common/mom_calc_hfacz.F |
45 |
MOM_CALC_HFACZ |
hFacZ(i,1-Oly)=0. |
|
./pkg/mom_common/mom_calc_hfacz.F |
50 |
MOM_CALC_HFACZ |
hFacZ(1-Olx,j)=0. |
|
./pkg/mom_common/mom_calc_hfacz.F |
57 |
MOM_CALC_HFACZ |
hFacZ(i,j)=hFacZOpen |
|
./pkg/mom_common/mom_calc_hfacz.F |
58 |
MOM_CALC_HFACZ |
IF (hFacZ(i,j).EQ.0.) THEN |
|
./pkg/mom_common/mom_calc_hfacz.F |
61 |
MOM_CALC_HFACZ |
r_hFacZ(i,j)=1./hFacZ(i,j) |
|
./pkg/mom_common/mom_calc_relvort3.F |
132 |
MOM_CALC_RELVORT3 |
IF (hFacZ(i,j).EQ.0. _d 0) vort3(i,j) = 0. _d 0 |
|
./pkg/mom_common/mom_calc_relvort3.F |
165 |
MOM_CALC_RELVORT3 |
IF (hFacZ(i,j).EQ.0. _d 0) vort3(i,j) = 0. _d 0 |
|
./pkg/mom_common/mom_calc_relvort3.F |
198 |
MOM_CALC_RELVORT3 |
IF (hFacZ(i,j).EQ.0. _d 0) vort3(i,j) = 0. _d 0 |
|
./pkg/mom_common/mom_calc_relvort3.F |
231 |
MOM_CALC_RELVORT3 |
IF (hFacZ(i,j).EQ.0. _d 0) vort3(i,j) = 0. _d 0 |
|
./pkg/mom_common/mom_calc_relvort3.F |
32 |
MOM_CALC_RELVORT3 |
_RS hFacZ(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_common/mom_calc_relvort3.F |
65 |
MOM_CALC_RELVORT3 |
IF (hFacZ(i,j).NE.0.) THEN |
|
./pkg/mom_common/mom_calc_relvort3.F |
9 |
MOM_CALC_RELVORT3 |
I uFld, vFld, hFacZ, |
|
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F |
23 |
MOM_VI_MASK_VORT3 |
_RS hFacZ(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F |
47 |
MOM_VI_MASK_VORT3 |
hFacZ(i,j)=hFacZOpen |
|
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F |
48 |
MOM_VI_MASK_VORT3 |
IF (hFacZ(i,j).EQ.0.) THEN |
|
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F |
52 |
MOM_VI_MASK_VORT3 |
r_hFacZ(i,j)=1./hFacZ(i,j) |
|
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F |
8 |
MOM_VI_MASK_VORT3 |
O hFacZ,r_hFacZ, |
|
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F |
25 |
MOM_VI_HFACZ_DISS |
_RS hFacZ(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F |
36 |
MOM_VI_HFACZ_DISS |
hFacZ(i,1-Oly)=0. |
|
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F |
41 |
MOM_VI_HFACZ_DISS |
hFacZ(1-Olx,j)=0. |
|
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F |
49 |
MOM_VI_HFACZ_DISS |
hFacZ(i,j)=0.5*hFacZOpen |
|
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F |
50 |
MOM_VI_HFACZ_DISS |
IF (hFacZ(i,j).EQ.0.) THEN |
|
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F |
53 |
MOM_VI_HFACZ_DISS |
r_hFacZ(i,j)=1./hFacZ(i,j) |
|
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F |
69 |
MOM_VI_HFACZ_DISS |
hFacZ(i,j)=hFacZOpen |
|
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F |
8 |
MOM_VI_HFACZ_DISS |
O hFacZ,r_hFacZ, |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
115 |
SHAP_FILT_UV_S2 |
CALL MOM_CALC_HFACZ(bi,bj,k,hFacZ,r_hFacZ,myThid) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
124 |
SHAP_FILT_UV_S2 |
& hFacZ,vort3,myThid) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
129 |
SHAP_FILT_UV_S2 |
& hFacZ,vort3,myThid) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
239 |
SHAP_FILT_UV_S2 |
CALL MOM_CALC_HFACZ(bi,bj,k,hFacZ,r_hFacZ,myThid) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
241 |
SHAP_FILT_UV_S2 |
I bi,bj,k,hDiv,vort3,hFacZ, |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
68 |
SHAP_FILT_UV_S2 |
_RS hFacZ(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
35 |
SHAP_FILT_RELVORT3 |
_RS hFacZ(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
9 |
SHAP_FILT_RELVORT3 |
I uFld, vFld, hFacZ, |
|
./pkg/shap_filt/shap_filt_uv_s2g.F |
102 |
SHAP_FILT_UV_S2G |
& hFacZ,vort3,myThid) |
|
./pkg/shap_filt/shap_filt_uv_s2g.F |
104 |
SHAP_FILT_UV_S2G |
I bi,bj,k,hDiv,vort3,hFacZ, |
|
./pkg/shap_filt/shap_filt_uv_s2g.F |
53 |
SHAP_FILT_UV_S2G |
_RS hFacZ(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/shap_filt/shap_filt_uv_s2g.F |
94 |
SHAP_FILT_UV_S2G |
CALL MOM_CALC_HFACZ(bi,bj,k,hFacZ,r_hFacZ,myThid) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
12 |
MOM_V_DEL2V |
I vFld, hFacZ, |
|
./pkg/mom_fluxform/mom_v_del2v.F |
34 |
MOM_V_DEL2V |
_RS hFacZ(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
51 |
MOM_V_DEL2V |
fZon(i,j) = drF(k)*hFacZ(i,j) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
86 |
MOM_V_DEL2V |
hFacZClosedW = _hFacS(i,j,k,bi,bj) - hFacZ(i,j) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
87 |
MOM_V_DEL2V |
hFacZClosedE = _hFacS(i,j,k,bi,bj) - hFacZ(i+1,j) |
|
./pkg/mom_fluxform/mom_u_yviscflux.F |
12 |
MOM_U_YVISCFLUX |
I uFld, del2u, hFacZ, |
|
./pkg/mom_fluxform/mom_u_yviscflux.F |
39 |
MOM_U_YVISCFLUX |
_RS hFacZ(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_fluxform/mom_u_yviscflux.F |
55 |
MOM_U_YVISCFLUX |
& _dxV(i,j,bi,bj)*drF(k)*hFacZ(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
115 |
MOM_FLUXFORM |
_RS hFacZ(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_fluxform/mom_fluxform.F |
237 |
MOM_FLUXFORM |
CALL MOM_CALC_HFACZ(bi,bj,k,hFacZ,r_hFacZ,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
272 |
MOM_FLUXFORM |
CALL MOM_CALC_STRAIN(bi,bj,k,uFld,vFld,hFacZ, |
|
./pkg/mom_fluxform/mom_fluxform.F |
320 |
MOM_FLUXFORM |
& CALL MOM_U_DEL2U(bi,bj,k,uFld,hFacZ,v4f,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
349 |
MOM_FLUXFORM |
& CALL MOM_U_YVISCFLUX(bi,bj,k,uFld,v4F,hFacZ,vF,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
418 |
MOM_FLUXFORM |
CALL MOM_U_SIDEDRAG(bi,bj,k,uFld,v4F,hFacZ,vF,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
481 |
MOM_FLUXFORM |
& CALL MOM_V_DEL2V(bi,bj,k,vFld,hFacZ,v4f,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
493 |
MOM_FLUXFORM |
& CALL MOM_V_XVISCFLUX(bi,bj,k,vFld,v4f,hFacZ,vf,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
579 |
MOM_FLUXFORM |
CALL MOM_V_SIDEDRAG(bi,bj,k,vFld,v4F,hFacZ,vF,myThid) |
|
./pkg/mom_fluxform/mom_v_xviscflux.F |
12 |
MOM_V_XVISCFLUX |
I vFld, del2v, hFacZ, |
|
./pkg/mom_fluxform/mom_v_xviscflux.F |
39 |
MOM_V_XVISCFLUX |
_RS hFacZ(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_fluxform/mom_v_xviscflux.F |
55 |
MOM_V_XVISCFLUX |
& _dyU(i,j,bi,bj)*drF(k)*hFacZ(i,j) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
12 |
MOM_U_DEL2U |
I uFld, hFacZ, |
|
./pkg/mom_fluxform/mom_u_del2u.F |
35 |
MOM_U_DEL2U |
_RS hFacZ(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
66 |
MOM_U_DEL2U |
fMer(i,j) = drF(k)*hFacZ(i,j) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
89 |
MOM_U_DEL2U |
hFacZClosedS = _hFacW(i,j,k,bi,bj) - hFacZ(i,j) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
90 |
MOM_U_DEL2U |
hFacZClosedN = _hFacW(i,j,k,bi,bj) - hFacZ(i,j+1) |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
29 |
MOM_VI_DEL2UV |
_RS hFacZ(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
8 |
MOM_VI_DEL2UV |
I hDiv,vort3,hFacZ, |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
92 |
MOM_VI_DEL2UV |
Zip= hFacZ( i ,j+1)*vort3( i ,j+1) |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
93 |
MOM_VI_DEL2UV |
Zij= hFacZ( i , j )*vort3( i , j ) |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
94 |
MOM_VI_DEL2UV |
Zpj= hFacZ(i+1, j )*vort3(i+1, j ) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
27 |
MOM_VI_V_CORIOLIS |
_RS hFacZ (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
81 |
MOM_VI_V_CORIOLIS |
& uFld( i , j )*dyG( i , j ,bi,bj)*hFacZ(i,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
82 |
MOM_VI_V_CORIOLIS |
& +uFld( i ,j-1)*dyG( i ,j-1,bi,bj)*hFacZ(i,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
83 |
MOM_VI_V_CORIOLIS |
& +uFld(i+1, j )*dyG(i+1, j ,bi,bj)*hFacZ(i+1,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
84 |
MOM_VI_V_CORIOLIS |
& +uFld(i+1,j-1)*dyG(i+1,j-1,bi,bj)*hFacZ(i+1,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
85 |
MOM_VI_V_CORIOLIS |
& )/MAX( epsil, hFacZ(i,j)+hFacZ(i+1,j) ) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
8 |
MOM_VI_V_CORIOLIS |
I uFld,omega3,hFacZ,r_hFacZ, |
|
./pkg/mom_vecinv/mom_vecinv.F |
184 |
MOM_VECINV |
CALL MOM_CALC_HFACZ(bi,bj,k,hFacZ,r_hFacZ,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
202 |
MOM_VECINV |
CALL MOM_CALC_RELVORT3(bi,bj,k,uFld,vFld,hFacZ,vort3,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
215 |
MOM_VECINV |
CALL MOM_VI_DEL2UV(bi,bj,k,hDiv,vort3,hFacZ, |
|
./pkg/mom_vecinv/mom_vecinv.F |
220 |
MOM_VECINV |
& bi,bj,k,del2u,del2v,hFacZ,zStar,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
230 |
MOM_VECINV |
CALL MOM_VI_HDISSIP(bi,bj,k,hDiv,vort3,hFacZ,dStar,zStar, |
|
./pkg/mom_vecinv/mom_vecinv.F |
240 |
MOM_VECINV |
CALL MOM_CALC_STRAIN(bi,bj,k,uFld,vFld,hFacZ, |
|
./pkg/mom_vecinv/mom_vecinv.F |
244 |
MOM_VECINV |
I tension,strain,hFacZ,viscAtension,viscAstrain, |
|
./pkg/mom_vecinv/mom_vecinv.F |
284 |
MOM_VECINV |
CALL MOM_U_SIDEDRAG(bi,bj,k,uFld,del2u,hFacZ,vF,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
344 |
MOM_VECINV |
CALL MOM_V_SIDEDRAG(bi,bj,k,vFld,del2v,hFacZ,vF,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
380 |
MOM_VECINV |
CALL MOM_VI_U_CORIOLIS(bi,bj,K,vFld,omega3,hFacZ,r_hFacZ, |
|
./pkg/mom_vecinv/mom_vecinv.F |
382 |
MOM_VECINV |
CALL MOM_VI_V_CORIOLIS(bi,bj,K,uFld,omega3,hFacZ,r_hFacZ, |
|
./pkg/mom_vecinv/mom_vecinv.F |
385 |
MOM_VECINV |
CALL MOM_VI_CORIOLIS(bi,bj,k,uFld,vFld,hFacZ,r_hFacZ, |
|
./pkg/mom_vecinv/mom_vecinv.F |
426 |
MOM_VECINV |
CALL MOM_VI_U_CORIOLIS(bi,bj,K,vFld,omega3,hFacZ,r_hFacZ, |
|
./pkg/mom_vecinv/mom_vecinv.F |
429 |
MOM_VECINV |
CALL MOM_VI_U_CORIOLIS(bi,bj,k,vFld,vort3, hFacZ,r_hFacZ, |
|
./pkg/mom_vecinv/mom_vecinv.F |
444 |
MOM_VECINV |
CALL MOM_VI_V_CORIOLIS(bi,bj,K,uFld,omega3,hFacZ,r_hFacZ, |
|
./pkg/mom_vecinv/mom_vecinv.F |
447 |
MOM_VECINV |
CALL MOM_VI_V_CORIOLIS(bi,bj,k,uFld,vort3, hFacZ,r_hFacZ, |
|
./pkg/mom_vecinv/mom_vecinv.F |
82 |
MOM_VECINV |
_RS hFacZ(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
27 |
MOM_VI_U_CORIOLIS |
_RS hFacZ (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
81 |
MOM_VI_U_CORIOLIS |
& vFld( i , j )*dxG( i , j ,bi,bj)*hFacZ(i,j) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
82 |
MOM_VI_U_CORIOLIS |
& +vFld(i-1, j )*dxG(i-1, j ,bi,bj)*hFacZ(i,j) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
83 |
MOM_VI_U_CORIOLIS |
& +vFld( i ,j+1)*dxG( i ,j+1,bi,bj)*hFacZ(i,j+1) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
84 |
MOM_VI_U_CORIOLIS |
& +vFld(i-1,j+1)*dxG(i-1,j+1,bi,bj)*hFacZ(i,j+1) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
85 |
MOM_VI_U_CORIOLIS |
& )/MAX( epsil, hFacZ(i,j)+hFacZ(i,j+1) ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
8 |
MOM_VI_U_CORIOLIS |
I vFld,omega3,hFacZ,r_hFacZ, |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
289 |
MOM_VI_HDISSIP |
Zip=hFacZ( i ,j+1)*vort3( i ,j+1) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
290 |
MOM_VI_HDISSIP |
Zij=hFacZ( i , j )*vort3( i , j ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
291 |
MOM_VI_HDISSIP |
Zpj=hFacZ(i+1, j )*vort3(i+1, j ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
345 |
MOM_VI_HDISSIP |
Zip=dxV( i ,j+1,bi,bj)*hFacZ( i ,j+1)*zStar( i ,j+1) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
346 |
MOM_VI_HDISSIP |
Zij=dxV( i , j ,bi,bj)*hFacZ( i , j )*zStar( i , j ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
347 |
MOM_VI_HDISSIP |
Zpj=dxV(i+1, j ,bi,bj)*hFacZ(i+1, j )*zStar(i+1, j ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
34 |
MOM_VI_HDISSIP |
_RS hFacZ(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
353 |
MOM_VI_HDISSIP |
Zip=hFacZ( i ,j+1)*zStar( i ,j+1) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
354 |
MOM_VI_HDISSIP |
Zij=hFacZ( i , j )*zStar( i , j ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
355 |
MOM_VI_HDISSIP |
Zpj=hFacZ(i+1, j )*zStar(i+1, j ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
8 |
MOM_VI_HDISSIP |
I hDiv,vort3,hFacZ,dStar,zStar, |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
27 |
MOM_VI_CORIOLIS |
_RS hFacZ(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
8 |
MOM_VI_CORIOLIS |
I uFld,vFld,hFacZ,r_hFacZ, |
|
./pkg/monitor/mon_vort3.F |
102 |
MON_VORT3 |
hFacZ(i,j) = 1. + 0.125 _d 0* |
|
./pkg/monitor/mon_vort3.F |
119 |
MON_VORT3 |
hFacZ(i,j) = |
|
./pkg/monitor/mon_vort3.F |
142 |
MON_VORT3 |
hFacZ(i,jMax)=0. |
|
./pkg/monitor/mon_vort3.F |
146 |
MON_VORT3 |
hFacZ(iMax,j)=0. |
|
./pkg/monitor/mon_vort3.F |
183 |
MON_VORT3 |
hFacZ(i,j) = ( _hFacW(i,j-1,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
198 |
MON_VORT3 |
hFacZ(i,j) = ( _hFacW(i,j-1,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
213 |
MON_VORT3 |
hFacZ(i,j) = ( _hFacW(i,j-1,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
228 |
MON_VORT3 |
hFacZ(i,j) = ( _hFacW(i,j-1,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
244 |
MON_VORT3 |
hFacZ(i,j) = 0. |
|
./pkg/monitor/mon_vort3.F |
246 |
MON_VORT3 |
hFacZ(1,j) = hFacZ(1,j) + _hFacW(i,j-1,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
249 |
MON_VORT3 |
hFacZ(1,j) = hFacZ(1,j) + etaFld(i,j-1) |
|
./pkg/monitor/mon_vort3.F |
251 |
MON_VORT3 |
hFacZ(1,j) = sNx + hFacZ(1,j)*recip_drF(k) |
|
./pkg/monitor/mon_vort3.F |
253 |
MON_VORT3 |
hFacZ(1,j) = hFacZ(1,j) / FLOAT(sNx) |
|
./pkg/monitor/mon_vort3.F |
262 |
MON_VORT3 |
hFacZ(i,j) = 0. |
|
./pkg/monitor/mon_vort3.F |
264 |
MON_VORT3 |
hFacZ(1,j) = hFacZ(1,j) + _hFacW(i,j,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
267 |
MON_VORT3 |
hFacZ(1,j) = hFacZ(1,j) + etaFld(i,j) |
|
./pkg/monitor/mon_vort3.F |
269 |
MON_VORT3 |
hFacZ(1,j) = sNx + hFacZ(1,j)*recip_drF(k) |
|
./pkg/monitor/mon_vort3.F |
271 |
MON_VORT3 |
hFacZ(1,j) = hFacZ(1,j) / FLOAT(sNx) |
|
./pkg/monitor/mon_vort3.F |
280 |
MON_VORT3 |
IF (hFacZ(i,j).GT.0. _d 0) THEN |
|
./pkg/monitor/mon_vort3.F |
283 |
MON_VORT3 |
tmpVol = rAz(i,j,bi,bj)*drF(k)*hFacZ(i,j) |
|
./pkg/monitor/mon_vort3.F |
293 |
MON_VORT3 |
tmpVal = tmpVal / hFacZ(i,j) |
|
./pkg/monitor/mon_vort3.F |
41 |
MON_VORT3 |
_RS hFacZ(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |