| 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 |
126 |
MOM_CALC_RELVORT3 |
vort3(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 |
134 |
MOM_CALC_RELVORT3 |
vort3(I-1,J)= |
|
./pkg/mom_common/mom_calc_relvort3.F |
143 |
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 |
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 |
167 |
MOM_CALC_RELVORT3 |
vort3(I+1,J)= |
|
./pkg/mom_common/mom_calc_relvort3.F |
176 |
MOM_CALC_RELVORT3 |
vort3(I,J-1)=vort3(I+1,J) |
|
./pkg/mom_common/mom_calc_relvort3.F |
192 |
MOM_CALC_RELVORT3 |
vort3(I,J)= |
|
./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 |
200 |
MOM_CALC_RELVORT3 |
vort3(I-1,J)= |
|
./pkg/mom_common/mom_calc_relvort3.F |
209 |
MOM_CALC_RELVORT3 |
vort3(I,J+1)=vort3(I-1,J) |
|
./pkg/mom_common/mom_calc_relvort3.F |
225 |
MOM_CALC_RELVORT3 |
vort3(I,J)= |
|
./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 |
233 |
MOM_CALC_RELVORT3 |
vort3(I+1,J)= |
|
./pkg/mom_common/mom_calc_relvort3.F |
242 |
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 |
47 |
MOM_CALC_RELVORT3 |
vort3(I,J) = 0. _d 0 |
|
./pkg/mom_common/mom_calc_relvort3.F |
56 |
MOM_CALC_RELVORT3 |
vort3(I,J)= |
|
./pkg/mom_common/mom_calc_relvort3.F |
75 |
MOM_CALC_RELVORT3 |
vort3(I,J)=0. |
|
./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, |
|
./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 |
141 |
SHAP_FILT_UV_S2 |
vort3(i,j)=(tmpFldV(i,j,k,bi,bj)-tmpFldV(i-1,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
146 |
SHAP_FILT_UV_S2 |
IF (maskZ.LT.1.) vort3(i,j)=0. |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
175 |
SHAP_FILT_UV_S2 |
vort3(i,j)= |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
179 |
SHAP_FILT_UV_S2 |
vort3(i,j)=vort3(i,j)*4. _d 0 / 3. _d 0 |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
181 |
SHAP_FILT_UV_S2 |
vort3(i,j)=0. |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
191 |
SHAP_FILT_UV_S2 |
vort3(i,j)= |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
195 |
SHAP_FILT_UV_S2 |
vort3(i,j)=vort3(i,j)*4. _d 0 / 3. _d 0 |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
197 |
SHAP_FILT_UV_S2 |
vort3(i,j)=0. |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
207 |
SHAP_FILT_UV_S2 |
vort3(i,j)= |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
211 |
SHAP_FILT_UV_S2 |
vort3(i,j)=vort3(i,j)*4. _d 0 / 3. _d 0 |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
213 |
SHAP_FILT_UV_S2 |
vort3(i,j)=0. |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
223 |
SHAP_FILT_UV_S2 |
vort3(i,j)= |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
227 |
SHAP_FILT_UV_S2 |
vort3(i,j)=vort3(i,j)*4. _d 0 / 3. _d 0 |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
229 |
SHAP_FILT_UV_S2 |
vort3(i,j)=0. |
|
./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 |
269 |
SHAP_FILT_UV_S2 |
& -vort3(i,j+1)+vort3(i,j) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
276 |
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) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
10 |
SHAP_FILT_RELVORT3 |
O vort3, |
|
./pkg/shap_filt/shap_filt_relvort3.F |
133 |
SHAP_FILT_RELVORT3 |
vort3(I,J)= |
|
./pkg/shap_filt/shap_filt_relvort3.F |
141 |
SHAP_FILT_RELVORT3 |
vort3(I-1,J)= |
|
./pkg/shap_filt/shap_filt_relvort3.F |
150 |
SHAP_FILT_RELVORT3 |
vort3(I,J-1)=vort3(I-1,J) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
168 |
SHAP_FILT_RELVORT3 |
vort3(I,J)= |
|
./pkg/shap_filt/shap_filt_relvort3.F |
176 |
SHAP_FILT_RELVORT3 |
vort3(I+1,J)= |
|
./pkg/shap_filt/shap_filt_relvort3.F |
185 |
SHAP_FILT_RELVORT3 |
vort3(I,J-1)=vort3(I+1,J) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
203 |
SHAP_FILT_RELVORT3 |
vort3(I,J)= |
|
./pkg/shap_filt/shap_filt_relvort3.F |
211 |
SHAP_FILT_RELVORT3 |
vort3(I-1,J)= |
|
./pkg/shap_filt/shap_filt_relvort3.F |
220 |
SHAP_FILT_RELVORT3 |
vort3(I,J+1)=vort3(I-1,J) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
238 |
SHAP_FILT_RELVORT3 |
vort3(I,J)= |
|
./pkg/shap_filt/shap_filt_relvort3.F |
246 |
SHAP_FILT_RELVORT3 |
vort3(I+1,J)= |
|
./pkg/shap_filt/shap_filt_relvort3.F |
255 |
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 |
51 |
SHAP_FILT_RELVORT3 |
vort3(I,J) = 0. _d 0 |
|
./pkg/shap_filt/shap_filt_relvort3.F |
60 |
SHAP_FILT_RELVORT3 |
vort3(I,J)= |
|
./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 |
56 |
SHAP_FILT_UV_S2G |
_RL vort3(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
28 |
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 |
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_vecinv.F |
101 |
MOM_VECINV |
_RL vort3(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_vecinv/mom_vecinv.F |
149 |
MOM_VECINV |
vort3(i,j) = 0. |
|
./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 |
205 |
MOM_VECINV |
& CALL MOM_CALC_ABSVORT3(bi,bj,k,vort3,omega3,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 |
230 |
MOM_VECINV |
CALL MOM_VI_HDISSIP(bi,bj,k,hDiv,vort3,hFacZ,dStar,zStar, |
|
./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 |
429 |
MOM_VECINV |
CALL MOM_VI_U_CORIOLIS(bi,bj,k,vFld,vort3, hFacZ,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 |
447 |
MOM_VECINV |
CALL MOM_VI_V_CORIOLIS(bi,bj,k,uFld,vort3, hFacZ,r_hFacZ, |
|
./pkg/mom_vecinv/mom_vecinv.F |
554 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('Z3','I10',1,vort3,bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
569 |
MOM_VECINV |
CALL MNC_CW_RL_W_OFFSET('D','mom_vi',bi,bj,'Z3',vort3, |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
123 |
MOM_VI_HDISSIP |
grdVrt=abs((vort3(i+1,j)-vort3(i,j))*recip_DXG(i,j,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
125 |
MOM_VI_HDISSIP |
& abs((vort3(i,j+1)-vort3(i,j))*recip_DYG(i,j,bi,bj))) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
127 |
MOM_VI_HDISSIP |
& abs((vort3(i+1,j+1)-vort3(i,j+1))*recip_DXG(i,j+1,bi,bj))) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
129 |
MOM_VI_HDISSIP |
& abs((vort3(i+1,j+1)-vort3(i+1,j))*recip_DYG(i+1,j,bi,bj))) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
191 |
MOM_VI_HDISSIP |
& ((vort3(i+1,j)-vort3(i,j))*recip_DXG(i,j,bi,bj))**2 |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
192 |
MOM_VI_HDISSIP |
& +((vort3(i,j+1)-vort3(i,j))*recip_DYG(i,j,bi,bj))**2 |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
193 |
MOM_VI_HDISSIP |
& +((vort3(i-1,j)-vort3(i,j))*recip_DXG(i-1,j,bi,bj))**2 |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
194 |
MOM_VI_HDISSIP |
& +((vort3(i,j-1)-vort3(i,j))*recip_DYG(i,j-1,bi,bj))**2) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
217 |
MOM_VI_HDISSIP |
grdVrt=abs((vort3(i+1,j)-vort3(i,j))*recip_DXG(i,j,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
219 |
MOM_VI_HDISSIP |
& abs((vort3(i,j+1)-vort3(i,j))*recip_DYG(i,j,bi,bj))) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
221 |
MOM_VI_HDISSIP |
& abs((vort3(i-1,j)-vort3(i,j))*recip_DXG(i-1,j,bi,bj))) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
223 |
MOM_VI_HDISSIP |
& abs((vort3(i,j-1)-vort3(i,j))*recip_DYG(i,j-1,bi,bj))) |
|
./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 |
33 |
MOM_VI_HDISSIP |
_RL vort3(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
8 |
MOM_VI_HDISSIP |
I hDiv,vort3,hFacZ,dStar,zStar, |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
95 |
MOM_VI_HDISSIP |
& ((vort3(i+1,j)-vort3(i,j))*recip_DXG(i,j,bi,bj))**2 |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
96 |
MOM_VI_HDISSIP |
& +((vort3(i,j+1)-vort3(i,j))*recip_DYG(i,j,bi,bj))**2 |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
97 |
MOM_VI_HDISSIP |
& +((vort3(i+1,j+1)-vort3(i,j+1))*recip_DXG(i,j+1,bi,bj))**2 |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
98 |
MOM_VI_HDISSIP |
& +((vort3(i+1,j+1)-vort3(i+1,j))*recip_DYG(i+1,j,bi,bj))**2) |
|
./pkg/monitor/mon_vort3.F |
126 |
MON_VORT3 |
vort3(i,j) = recip_rAz(i,j,bi,bj)*( |
|
./pkg/monitor/mon_vort3.F |
143 |
MON_VORT3 |
vort3(i,jMax)=0. |
|
./pkg/monitor/mon_vort3.F |
147 |
MON_VORT3 |
vort3(iMax,j)=0. |
|
./pkg/monitor/mon_vort3.F |
177 |
MON_VORT3 |
vort3(i,j)= |
|
./pkg/monitor/mon_vort3.F |
192 |
MON_VORT3 |
vort3(I,J)= |
|
./pkg/monitor/mon_vort3.F |
207 |
MON_VORT3 |
vort3(i,j)= |
|
./pkg/monitor/mon_vort3.F |
222 |
MON_VORT3 |
vort3(i,j)= |
|
./pkg/monitor/mon_vort3.F |
241 |
MON_VORT3 |
vort3(i,j) = 0. |
|
./pkg/monitor/mon_vort3.F |
242 |
MON_VORT3 |
vort3(1,j) = vort3(1,j) |
|
./pkg/monitor/mon_vort3.F |
254 |
MON_VORT3 |
vort3(1,j) = vort3(1,j)*recip_rAz(1,j,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
259 |
MON_VORT3 |
vort3(i,j) = 0. |
|
./pkg/monitor/mon_vort3.F |
260 |
MON_VORT3 |
vort3(1,j) = vort3(1,j) |
|
./pkg/monitor/mon_vort3.F |
272 |
MON_VORT3 |
vort3(1,j) = vort3(1,j)*recip_rAz(1,j,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
281 |
MON_VORT3 |
tmpVal = vort3(i,j) |
|
./pkg/monitor/mon_vort3.F |
40 |
MON_VORT3 |
_RL vort3(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |