| File |
Line number |
Procedure |
Code |
|
./pkg/mom_common/mom_calc_absvort3.F |
25 |
MOM_CALC_ABSVORT3 |
_RL vort3(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_common/mom_calc_absvort3.F |
48 |
MOM_CALC_ABSVORT3 |
& +vort3(i,j)*nonLinFac |
|
./pkg/mom_common/mom_calc_absvort3.F |
8 |
MOM_CALC_ABSVORT3 |
I vort3, |
|
./pkg/mom_common/mom_calc_relvort3.F |
10 |
MOM_CALC_RELVORT3 |
O vort3, |
|
./pkg/mom_common/mom_calc_relvort3.F |
117 |
MOM_CALC_RELVORT3 |
vort3(I,J)= |
|
./pkg/mom_common/mom_calc_relvort3.F |
131 |
MOM_CALC_RELVORT3 |
vort3(I-1,J)= |
|
./pkg/mom_common/mom_calc_relvort3.F |
140 |
MOM_CALC_RELVORT3 |
vort3(I,J-1)=vort3(I-1,J) |
|
./pkg/mom_common/mom_calc_relvort3.F |
159 |
MOM_CALC_RELVORT3 |
vort3(I,J)= |
|
./pkg/mom_common/mom_calc_relvort3.F |
166 |
MOM_CALC_RELVORT3 |
vort3(I,J)= |
|
./pkg/mom_common/mom_calc_relvort3.F |
173 |
MOM_CALC_RELVORT3 |
vort3(I,J)= |
|
./pkg/mom_common/mom_calc_relvort3.F |
188 |
MOM_CALC_RELVORT3 |
vort3(I+1,J)= |
|
./pkg/mom_common/mom_calc_relvort3.F |
197 |
MOM_CALC_RELVORT3 |
vort3(I,J-1)=vort3(I+1,J) |
|
./pkg/mom_common/mom_calc_relvort3.F |
216 |
MOM_CALC_RELVORT3 |
vort3(I,J)= |
|
./pkg/mom_common/mom_calc_relvort3.F |
223 |
MOM_CALC_RELVORT3 |
vort3(I,J)= |
|
./pkg/mom_common/mom_calc_relvort3.F |
230 |
MOM_CALC_RELVORT3 |
vort3(I,J)= |
|
./pkg/mom_common/mom_calc_relvort3.F |
245 |
MOM_CALC_RELVORT3 |
vort3(I-1,J)= |
|
./pkg/mom_common/mom_calc_relvort3.F |
254 |
MOM_CALC_RELVORT3 |
vort3(I,J+1)=vort3(I-1,J) |
|
./pkg/mom_common/mom_calc_relvort3.F |
273 |
MOM_CALC_RELVORT3 |
vort3(I,J)= |
|
./pkg/mom_common/mom_calc_relvort3.F |
280 |
MOM_CALC_RELVORT3 |
vort3(I,J)= |
|
./pkg/mom_common/mom_calc_relvort3.F |
295 |
MOM_CALC_RELVORT3 |
vort3(I+1,J)= |
|
./pkg/mom_common/mom_calc_relvort3.F |
304 |
MOM_CALC_RELVORT3 |
vort3(I,J+1)=vort3(I+1,J) |
|
./pkg/mom_common/mom_calc_relvort3.F |
33 |
MOM_CALC_RELVORT3 |
_RL vort3(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_common/mom_calc_relvort3.F |
48 |
MOM_CALC_RELVORT3 |
vort3(I,J) = 0. _d 0 |
|
./pkg/mom_common/mom_calc_relvort3.F |
57 |
MOM_CALC_RELVORT3 |
vort3(I,J)= |
|
./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 |
331 |
MOM_CALC_VISC |
vrtDx(i,j) = (vort3(i+1,j)-vort3(i,j)) |
|
./pkg/mom_common/mom_calc_visc.F |
339 |
MOM_CALC_VISC |
vrtDy(i,j) = (vort3(i,j+1)-vort3(i,j)) |
|
./pkg/mom_common/mom_calc_visc.F |
96 |
MOM_CALC_VISC |
_RL vort3(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_common/mom_hdissip.F |
30 |
MOM_HDISSIP |
_RL vort3(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_fluxform/mom_fluxform.F |
136 |
MOM_FLUXFORM |
_RL vort3(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_fluxform/mom_fluxform.F |
199 |
MOM_FLUXFORM |
vort3(i,j) = 0. |
|
./pkg/mom_fluxform/mom_fluxform.F |
284 |
MOM_FLUXFORM |
CALL MOM_CALC_RELVORT3(bi,bj,k,uFld,vFld,hFacZ,vort3,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
290 |
MOM_FLUXFORM |
vort3(i,j) = sideMaskFac*vort3(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
298 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(vort3, 'momVort3',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
367 |
MOM_FLUXFORM |
I hDiv,vort3,tension,strain,KE,hFacZ, |
|
./pkg/mom_vecinv/mom_vecinv.F |
176 |
MOM_VECINV |
vort3(i,j) = 0. |
|
./pkg/mom_vecinv/mom_vecinv.F |
233 |
MOM_VECINV |
CALL MOM_CALC_RELVORT3(bi,bj,k,uFld,vFld,hFacZ,vort3,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
254 |
MOM_VECINV |
vort3(i,j) = sideMaskFac*vort3(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
265 |
MOM_VECINV |
I hDiv,vort3,tension,strain,KE,hfacZ, |
|
./pkg/mom_vecinv/mom_vecinv.F |
270 |
MOM_VECINV |
CALL MOM_VI_DEL2UV(bi,bj,k,hDiv,vort3,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 |
460 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('Z3','I10',1,vort3, bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
464 |
MOM_VECINV |
CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj,'Z3',vort3, |
|
./pkg/mom_vecinv/mom_vecinv.F |
471 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(vort3, 'momVort3',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
481 |
MOM_VECINV |
IF ( hFacZ(i,j).EQ.0. ) vort3(i,j) = 0. |
|
./pkg/mom_vecinv/mom_vecinv.F |
485 |
MOM_VECINV |
& CALL MOM_CALC_ABSVORT3(bi,bj,k,vort3,omega3,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
545 |
MOM_VECINV |
CALL MOM_VI_U_CORIOLIS_C4(bi,bj,k,vFld,vort3, r_hFacZ, |
|
./pkg/mom_vecinv/mom_vecinv.F |
551 |
MOM_VECINV |
CALL MOM_VI_U_CORIOLIS(bi,bj,k,vFld,vort3, hFacZ,r_hFacZ, |
|
./pkg/mom_vecinv/mom_vecinv.F |
564 |
MOM_VECINV |
CALL MOM_VI_V_CORIOLIS_C4(bi,bj,K,uFld,vort3, r_hFacZ, |
|
./pkg/mom_vecinv/mom_vecinv.F |
570 |
MOM_VECINV |
CALL MOM_VI_V_CORIOLIS(bi,bj,k,uFld,vort3, hFacZ,r_hFacZ, |
|
./pkg/mom_vecinv/mom_vecinv.F |
90 |
MOM_VECINV |
_RL vort3 (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
117 |
MOM_VI_DEL2UV |
& ( hFacZ(i+1,j)*vort3(i+1,j) - hFacZ(i,j)*vort3(i,j) ) |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
24 |
MOM_VI_DEL2UV |
_RL vort3(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 |
96 |
MOM_VI_DEL2UV |
& ( hFacZ(i,j+1)*vort3(i,j+1) - hFacZ(i,j)*vort3(i,j) ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
36 |
MOM_VI_HDISSIP |
_RL vort3(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
69 |
MOM_VI_HDISSIP |
Zij=hFacZ( i , j )*vort3( i , j )*viscAh_Z(i,j) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
70 |
MOM_VI_HDISSIP |
Zip=hFacZ( i ,j+1)*vort3( i ,j+1)*viscAh_Z(i,j+1) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
71 |
MOM_VI_HDISSIP |
Zpj=hFacZ(i+1, j )*vort3(i+1, j )*viscAh_Z(i+1,j) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
8 |
MOM_VI_HDISSIP |
I hDiv,vort3,tension,strain,KE, |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
90 |
MOM_VI_HDISSIP |
Zip=hFacZ( i ,j+1)*vort3( i ,j+1) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
91 |
MOM_VI_HDISSIP |
Zij=hFacZ( i , j )*vort3( i , j ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
92 |
MOM_VI_HDISSIP |
Zpj=hFacZ(i+1, j )*vort3(i+1, j ) |
|
./pkg/monitor/mon_vort3.F |
135 |
MON_VORT3 |
vort3(i,j) = recip_rAz(i,j,bi,bj)*( |
|
./pkg/monitor/mon_vort3.F |
152 |
MON_VORT3 |
vort3(i,jMax)=0. |
|
./pkg/monitor/mon_vort3.F |
156 |
MON_VORT3 |
vort3(iMax,j)=0. |
|
./pkg/monitor/mon_vort3.F |
186 |
MON_VORT3 |
vort3(i,j)= |
|
./pkg/monitor/mon_vort3.F |
201 |
MON_VORT3 |
vort3(i,j)= |
|
./pkg/monitor/mon_vort3.F |
216 |
MON_VORT3 |
vort3(i,j)= |
|
./pkg/monitor/mon_vort3.F |
231 |
MON_VORT3 |
vort3(i,j)= |
|
./pkg/monitor/mon_vort3.F |
250 |
MON_VORT3 |
vort3(i,j) = 0. |
|
./pkg/monitor/mon_vort3.F |
251 |
MON_VORT3 |
vort3(1,j) = vort3(1,j) |
|
./pkg/monitor/mon_vort3.F |
263 |
MON_VORT3 |
vort3(1,j) = vort3(1,j)*recip_rAz(1,j,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
268 |
MON_VORT3 |
vort3(i,j) = 0. |
|
./pkg/monitor/mon_vort3.F |
269 |
MON_VORT3 |
vort3(1,j) = vort3(1,j) |
|
./pkg/monitor/mon_vort3.F |
281 |
MON_VORT3 |
vort3(1,j) = vort3(1,j)*recip_rAz(1,j,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
290 |
MON_VORT3 |
tmpVal = vort3(i,j) |
|
./pkg/monitor/mon_vort3.F |
46 |
MON_VORT3 |
_RL vort3(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
10 |
SHAP_FILT_RELVORT3 |
O vort3, |
|
./pkg/shap_filt/shap_filt_relvort3.F |
124 |
SHAP_FILT_RELVORT3 |
vort3(I,J)= |
|
./pkg/shap_filt/shap_filt_relvort3.F |
139 |
SHAP_FILT_RELVORT3 |
vort3(I-1,J)= |
|
./pkg/shap_filt/shap_filt_relvort3.F |
148 |
SHAP_FILT_RELVORT3 |
vort3(I,J-1)=vort3(I-1,J) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
167 |
SHAP_FILT_RELVORT3 |
vort3(I,J)= |
|
./pkg/shap_filt/shap_filt_relvort3.F |
174 |
SHAP_FILT_RELVORT3 |
vort3(I,J)= |
|
./pkg/shap_filt/shap_filt_relvort3.F |
181 |
SHAP_FILT_RELVORT3 |
vort3(I,J)= |
|
./pkg/shap_filt/shap_filt_relvort3.F |
197 |
SHAP_FILT_RELVORT3 |
vort3(I+1,J)= |
|
./pkg/shap_filt/shap_filt_relvort3.F |
206 |
SHAP_FILT_RELVORT3 |
vort3(I,J-1)=vort3(I+1,J) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
225 |
SHAP_FILT_RELVORT3 |
vort3(I,J)= |
|
./pkg/shap_filt/shap_filt_relvort3.F |
232 |
SHAP_FILT_RELVORT3 |
vort3(I,J)= |
|
./pkg/shap_filt/shap_filt_relvort3.F |
239 |
SHAP_FILT_RELVORT3 |
vort3(I,J)= |
|
./pkg/shap_filt/shap_filt_relvort3.F |
255 |
SHAP_FILT_RELVORT3 |
vort3(I-1,J)= |
|
./pkg/shap_filt/shap_filt_relvort3.F |
264 |
SHAP_FILT_RELVORT3 |
vort3(I,J+1)=vort3(I-1,J) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
283 |
SHAP_FILT_RELVORT3 |
vort3(I,J)= |
|
./pkg/shap_filt/shap_filt_relvort3.F |
290 |
SHAP_FILT_RELVORT3 |
vort3(I,J)= |
|
./pkg/shap_filt/shap_filt_relvort3.F |
306 |
SHAP_FILT_RELVORT3 |
vort3(I+1,J)= |
|
./pkg/shap_filt/shap_filt_relvort3.F |
315 |
SHAP_FILT_RELVORT3 |
vort3(I,J+1)=vort3(I+1,J) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
36 |
SHAP_FILT_RELVORT3 |
_RL vort3(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
52 |
SHAP_FILT_RELVORT3 |
vort3(I,J) = 0. _d 0 |
|
./pkg/shap_filt/shap_filt_relvort3.F |
61 |
SHAP_FILT_RELVORT3 |
vort3(I,J)= |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
128 |
SHAP_FILT_UV_S2 |
& hFacZ,vort3,myThid) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
133 |
SHAP_FILT_UV_S2 |
& hFacZ,vort3,myThid) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
146 |
SHAP_FILT_UV_S2 |
O vort3, |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
161 |
SHAP_FILT_UV_S2 |
vort3(i,j)= vort3(i,j)*rAz(i,j,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
166 |
SHAP_FILT_UV_S2 |
I bi,bj,k,hDiv,vort3,hFacZ, |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
212 |
SHAP_FILT_UV_S2 |
& -(vort3(i,j+1)-vort3(i,j)) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
228 |
SHAP_FILT_UV_S2 |
& +(vort3(i+1,j)-vort3(i,j)) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
71 |
SHAP_FILT_UV_S2 |
_RL vort3(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F |
25 |
MOM_VI_MASK_VORT3 |
_RL vort3(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F |
50 |
MOM_VI_MASK_VORT3 |
vort3(i,j)=0. |
|
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F |
9 |
MOM_VI_MASK_VORT3 |
U vort3, |