| File |
Line number |
Procedure |
Code |
|
./pkg/mom_common/mom_calc_hfacz.F |
12 |
MOM_CALC_HFACZ |
O hFacZ,r_hFacZ, |
|
./pkg/mom_common/mom_calc_hfacz.F |
34 |
MOM_CALC_HFACZ |
_RS r_hFacZ(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_common/mom_calc_hfacz.F |
46 |
MOM_CALC_HFACZ |
r_hFacZ(i,1-Oly)=0. |
|
./pkg/mom_common/mom_calc_hfacz.F |
51 |
MOM_CALC_HFACZ |
r_hFacZ(1-Olx,j)=0. |
|
./pkg/mom_common/mom_calc_hfacz.F |
59 |
MOM_CALC_HFACZ |
r_hFacZ(i,j)=0. |
|
./pkg/mom_common/mom_calc_hfacz.F |
61 |
MOM_CALC_HFACZ |
r_hFacZ(i,j)=1./hFacZ(i,j) |
|
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F |
24 |
MOM_VI_MASK_VORT3 |
_RS r_hFacZ(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F |
49 |
MOM_VI_MASK_VORT3 |
r_hFacZ(i,j)=0. |
|
./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 |
26 |
MOM_VI_HFACZ_DISS |
_RS r_hFacZ(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F |
37 |
MOM_VI_HFACZ_DISS |
r_hFacZ(i,1-Oly)=0. |
|
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F |
42 |
MOM_VI_HFACZ_DISS |
r_hFacZ(1-Olx,j)=0. |
|
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F |
51 |
MOM_VI_HFACZ_DISS |
r_hFacZ(i,j)=0. |
|
./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 |
71 |
MOM_VI_HFACZ_DISS |
r_hFacZ(i,j)=0. |
|
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F |
73 |
MOM_VI_HFACZ_DISS |
r_hFacZ(i,j)=1./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 |
239 |
SHAP_FILT_UV_S2 |
CALL MOM_CALC_HFACZ(bi,bj,k,hFacZ,r_hFacZ,myThid) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
69 |
SHAP_FILT_UV_S2 |
_RS r_hFacZ(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/shap_filt/shap_filt_uv_s2g.F |
54 |
SHAP_FILT_UV_S2G |
_RS r_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_fluxform.F |
116 |
MOM_FLUXFORM |
_RS r_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_vecinv/mom_vi_u_coriolis_c4.F |
102 |
MOM_VI_U_CORIOLIS_C4 |
Rjp=omega3(i,j+2)*r_hFacZ(i,j+2) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
103 |
MOM_VI_U_CORIOLIS_C4 |
& -omega3(i,j+1)*r_hFacZ(i,j+1) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
104 |
MOM_VI_U_CORIOLIS_C4 |
Rjm=omega3(i,j)*r_hFacZ(i,j) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
105 |
MOM_VI_U_CORIOLIS_C4 |
& -omega3(i,j-1)*r_hFacZ(i,j-1) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
106 |
MOM_VI_U_CORIOLIS_C4 |
vort3u=0.5*(omega3(i,j)*r_hFacZ(i,j) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
107 |
MOM_VI_U_CORIOLIS_C4 |
& +omega3(i,j+1)*r_hFacZ(i,j+1) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
111 |
MOM_VI_U_CORIOLIS_C4 |
vort3u=0.5*(omega3(i,j)*r_hFacZ(i,j) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
112 |
MOM_VI_U_CORIOLIS_C4 |
& +omega3(i,j+1)*r_hFacZ(i,j+1)) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
11 |
MOM_VI_U_CORIOLIS_C4 |
I vFld,omega3,r_hFacZ, |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
37 |
MOM_VI_U_CORIOLIS_C4 |
_RS r_hFacZ(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
70 |
MOM_VI_U_CORIOLIS_C4 |
vort3u=vBarXm*r_hFacZ(i, j )*omega3(i, j ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
72 |
MOM_VI_U_CORIOLIS_C4 |
vort3u=vBarXp*r_hFacZ(i,j+1)*omega3(i,j+1) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
75 |
MOM_VI_U_CORIOLIS_C4 |
Rjp = omega3(i,j+1)*r_hFacZ(i,j+1) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
76 |
MOM_VI_U_CORIOLIS_C4 |
& -oneSixth*( omega3(i,j+2)*r_hFacZ(i,j+2) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
77 |
MOM_VI_U_CORIOLIS_C4 |
& -omega3(i, j )*r_hFacZ(i, j ) ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
78 |
MOM_VI_U_CORIOLIS_C4 |
Rjm = omega3(i,j)*r_hFacZ(i,j) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
79 |
MOM_VI_U_CORIOLIS_C4 |
& +oneSixth*( omega3(i,j+1)*r_hFacZ(i,j+1) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
80 |
MOM_VI_U_CORIOLIS_C4 |
& -omega3(i,j-1)*r_hFacZ(i,j-1) ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
83 |
MOM_VI_U_CORIOLIS_C4 |
vort3u=0.5*( vBarXm*r_hFacZ(i, j )*omega3(i, j ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
84 |
MOM_VI_U_CORIOLIS_C4 |
& + vBarXp*r_hFacZ(i,j+1)*omega3(i,j+1) ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
97 |
MOM_VI_U_CORIOLIS_C4 |
vort3u=omega3(i,j)*r_hFacZ(i,j) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
99 |
MOM_VI_U_CORIOLIS_C4 |
vort3u=omega3(i,j+1)*r_hFacZ(i,j+1) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
28 |
MOM_VI_V_CORIOLIS |
_RS r_hFacZ(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
51 |
MOM_VI_V_CORIOLIS |
vort3v=omega3(i,j)*r_hFacZ(i,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
53 |
MOM_VI_V_CORIOLIS |
vort3v=omega3(i+1,j)*r_hFacZ(i+1,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
56 |
MOM_VI_V_CORIOLIS |
vort3v=0.5*(omega3(i,j)*r_hFacZ(i,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
57 |
MOM_VI_V_CORIOLIS |
& +omega3(i+1,j)*r_hFacZ(i+1,j)) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
68 |
MOM_VI_V_CORIOLIS |
vort3v=Zm*r_hFacZ( i ,j)*omega3( i ,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
70 |
MOM_VI_V_CORIOLIS |
vort3v=Zp*r_hFacZ(i+1,j)*omega3(i+1,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
73 |
MOM_VI_V_CORIOLIS |
Zm=Zm*r_hFacZ( i ,j)*omega3( i ,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
74 |
MOM_VI_V_CORIOLIS |
Zp=Zp*r_hFacZ(i+1,j)*omega3(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 |
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 |
420 |
MOM_VECINV |
CALL MOM_VI_U_CORIOLIS_C4(bi,bj,k,vFld,omega3,r_hFacZ, |
|
./pkg/mom_vecinv/mom_vecinv.F |
423 |
MOM_VECINV |
CALL MOM_VI_U_CORIOLIS_C4(bi,bj,k,vFld,vort3, 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 |
438 |
MOM_VECINV |
CALL MOM_VI_V_CORIOLIS_C4(bi,bj,K,uFld,omega3,r_hFacZ, |
|
./pkg/mom_vecinv/mom_vecinv.F |
441 |
MOM_VECINV |
CALL MOM_VI_V_CORIOLIS_C4(bi,bj,K,uFld,vort3, 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 |
83 |
MOM_VECINV |
_RS r_hFacZ(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
28 |
MOM_VI_U_CORIOLIS |
_RS r_hFacZ(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
51 |
MOM_VI_U_CORIOLIS |
vort3u=omega3(I,J)*r_hFacZ(i,j) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
53 |
MOM_VI_U_CORIOLIS |
vort3u=omega3(I,J+1)*r_hFacZ(i,j+1) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
56 |
MOM_VI_U_CORIOLIS |
vort3u=0.5*(omega3(i,j)*r_hFacZ(i,j) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
57 |
MOM_VI_U_CORIOLIS |
& +omega3(i,j+1)*r_hFacZ(i,j+1)) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
68 |
MOM_VI_U_CORIOLIS |
vort3u=Zm*r_hFacZ(i, j )*omega3(i, j ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
70 |
MOM_VI_U_CORIOLIS |
vort3u=Zp*r_hFacZ(i,j+1)*omega3(i,j+1) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
73 |
MOM_VI_U_CORIOLIS |
Zm=Zm*r_hFacZ(i, j )*omega3(i, j ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
74 |
MOM_VI_U_CORIOLIS |
Zp=Zp*r_hFacZ(i,j+1)*omega3(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_v_coriolis_c4.F |
102 |
MOM_VI_V_CORIOLIS_C4 |
Rjp=omega3(i+2,j)*r_hFacZ(i+2,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
103 |
MOM_VI_V_CORIOLIS_C4 |
& -omega3(i+1,j)*r_hFacZ(i+1,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
104 |
MOM_VI_V_CORIOLIS_C4 |
Rjm=omega3(i,j)*r_hFacZ(i,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
105 |
MOM_VI_V_CORIOLIS_C4 |
& -omega3(i-1,j)*r_hFacZ(i-1,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
106 |
MOM_VI_V_CORIOLIS_C4 |
vort3v=0.5*(omega3(i,j)*r_hFacZ(i,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
107 |
MOM_VI_V_CORIOLIS_C4 |
& +omega3(i+1,j)*r_hFacZ(i+1,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
111 |
MOM_VI_V_CORIOLIS_C4 |
vort3v=0.5*(omega3(i,j)*r_hFacZ(i,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
112 |
MOM_VI_V_CORIOLIS_C4 |
& +omega3(i+1,j)*r_hFacZ(i+1,j)) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
11 |
MOM_VI_V_CORIOLIS_C4 |
I uFld,omega3,r_hFacZ, |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
37 |
MOM_VI_V_CORIOLIS_C4 |
_RS r_hFacZ(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
70 |
MOM_VI_V_CORIOLIS_C4 |
vort3v=uBarYm*r_hFacZ( i ,j)*omega3( i ,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
72 |
MOM_VI_V_CORIOLIS_C4 |
vort3v=uBarYp*r_hFacZ(i+1,j)*omega3(i+1,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
75 |
MOM_VI_V_CORIOLIS_C4 |
Rjp = omega3(i+1,j)*r_hFacZ(i+1,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
76 |
MOM_VI_V_CORIOLIS_C4 |
& -oneSixth*( omega3(i+2,j)*r_hFacZ(i+2,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
77 |
MOM_VI_V_CORIOLIS_C4 |
& -omega3( i ,j)*r_hFacZ( i ,j) ) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
78 |
MOM_VI_V_CORIOLIS_C4 |
Rjm = omega3(i,j)*r_hFacZ(i,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
79 |
MOM_VI_V_CORIOLIS_C4 |
& +oneSixth*( omega3(i+1,j)*r_hFacZ(i+1,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
80 |
MOM_VI_V_CORIOLIS_C4 |
& -omega3(i-1,j)*r_hFacZ(i-1,j) ) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
83 |
MOM_VI_V_CORIOLIS_C4 |
vort3v=0.5*( uBarYm*r_hFacZ( i ,j)*omega3( i ,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
84 |
MOM_VI_V_CORIOLIS_C4 |
& +uBarYp*r_hFacZ(i+1,j)*omega3(i+1,j) ) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
97 |
MOM_VI_V_CORIOLIS_C4 |
vort3v=omega3(i,j)*r_hFacZ(i,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
99 |
MOM_VI_V_CORIOLIS_C4 |
vort3v=omega3(i+1,j)*r_hFacZ(i+1,j) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
28 |
MOM_VI_CORIOLIS |
_RS r_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, |