| File |
Line number |
Procedure |
Code |
|
./pkg/mom_common/mom_calc_hfacz.F |
100 |
MOM_CALC_HFACZ |
hFacZ(i,j) =0. |
|
./pkg/mom_common/mom_calc_hfacz.F |
12 |
MOM_CALC_HFACZ |
O hFacZ,r_hFacZ, |
|
./pkg/mom_common/mom_calc_hfacz.F |
140 |
MOM_CALC_HFACZ |
hFacZ(i,j) = |
|
./pkg/mom_common/mom_calc_hfacz.F |
157 |
MOM_CALC_HFACZ |
IF (hFacZ(i,j).EQ.0.) THEN |
|
./pkg/mom_common/mom_calc_hfacz.F |
160 |
MOM_CALC_HFACZ |
r_hFacZ(i,j)=1./hFacZ(i,j) |
|
./pkg/mom_common/mom_calc_hfacz.F |
183 |
MOM_CALC_HFACZ |
hFacZ(i,1-Oly)=0. |
|
./pkg/mom_common/mom_calc_hfacz.F |
186 |
MOM_CALC_HFACZ |
hFacZ(1-Olx,j)=0. |
|
./pkg/mom_common/mom_calc_hfacz.F |
205 |
MOM_CALC_HFACZ |
hFacZ(i,j) = 0.25 _d 0 * hFacZOpen |
|
./pkg/mom_common/mom_calc_hfacz.F |
224 |
MOM_CALC_HFACZ |
hFacZ(i,j) = 0.5 _d 0 * hFacZOpen |
|
./pkg/mom_common/mom_calc_hfacz.F |
234 |
MOM_CALC_HFACZ |
hFacZ(i,j)=hFacZOpen |
|
./pkg/mom_common/mom_calc_hfacz.F |
270 |
MOM_CALC_HFACZ |
hFacZ(i,j)=hFacZOpen |
|
./pkg/mom_common/mom_calc_hfacz.F |
283 |
MOM_CALC_HFACZ |
hFacZ(i,j) = hFacZOpen / 3. _d 0 |
|
./pkg/mom_common/mom_calc_hfacz.F |
295 |
MOM_CALC_HFACZ |
hFacZ(i,j)=hFacZOpen |
|
./pkg/mom_common/mom_calc_hfacz.F |
313 |
MOM_CALC_HFACZ |
hFacZ(i,j) = hFacZOpen / 3. _d 0 |
|
./pkg/mom_common/mom_calc_hfacz.F |
325 |
MOM_CALC_HFACZ |
hFacZ(i,j)=hFacZOpen |
|
./pkg/mom_common/mom_calc_hfacz.F |
343 |
MOM_CALC_HFACZ |
hFacZ(i,j) = hFacZOpen / 3. _d 0 |
|
./pkg/mom_common/mom_calc_hfacz.F |
354 |
MOM_CALC_HFACZ |
hFacZ(i,j)=hFacZOpen |
|
./pkg/mom_common/mom_calc_hfacz.F |
367 |
MOM_CALC_HFACZ |
hFacZ(i,j) = hFacZOpen / 3. _d 0 |
|
./pkg/mom_common/mom_calc_hfacz.F |
377 |
MOM_CALC_HFACZ |
IF (hFacZ(i,j).EQ.0.) THEN |
|
./pkg/mom_common/mom_calc_hfacz.F |
380 |
MOM_CALC_HFACZ |
r_hFacZ(i,j) = 1. _d 0/hFacZ(i,j) |
|
./pkg/mom_common/mom_calc_hfacz.F |
45 |
MOM_CALC_HFACZ |
_RS hFacZ(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./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 |
9 |
MOM_CALC_RELVORT3 |
I uFld, vFld, hFacZ, |
|
./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_visc.F |
100 |
MOM_CALC_VISC |
_RS hFacZ(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_common/mom_calc_visc.F |
11 |
MOM_CALC_VISC |
I hDiv,vort3,tension,strain,KE,hFacZ, |
|
./pkg/mom_common/mom_hdissip.F |
34 |
MOM_HDISSIP |
_RS hFacZ(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_common/mom_hdissip.F |
9 |
MOM_HDISSIP |
I hFacZ, |
|
./pkg/mom_common/mom_u_sidedrag.F |
12 |
MOM_U_SIDEDRAG |
I uFld, del2u, hFacZ, |
|
./pkg/mom_common/mom_u_sidedrag.F |
42 |
MOM_U_SIDEDRAG |
_RS hFacZ(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_common/mom_u_sidedrag.F |
76 |
MOM_U_SIDEDRAG |
hFacZClosedS = _hFacW(i,j,k,bi,bj) - hFacZ(i,j) |
|
./pkg/mom_common/mom_u_sidedrag.F |
77 |
MOM_U_SIDEDRAG |
hFacZClosedN = _hFacW(i,j,k,bi,bj) - hFacZ(i,j+1) |
|
./pkg/mom_common/mom_v_sidedrag.F |
12 |
MOM_V_SIDEDRAG |
I vFld, del2v, hFacZ, |
|
./pkg/mom_common/mom_v_sidedrag.F |
42 |
MOM_V_SIDEDRAG |
_RS hFacZ(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_common/mom_v_sidedrag.F |
76 |
MOM_V_SIDEDRAG |
hFacZClosedW = _hFacS(i,j,k,bi,bj) - hFacZ(i,j) |
|
./pkg/mom_common/mom_v_sidedrag.F |
77 |
MOM_V_SIDEDRAG |
hFacZClosedE = _hFacS(i,j,k,bi,bj) - hFacZ(i+1,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
121 |
MOM_FLUXFORM |
_RS hFacZ(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_fluxform/mom_fluxform.F |
251 |
MOM_FLUXFORM |
CALL MOM_CALC_HFACZ(bi,bj,k,hFacZ,r_hFacZ,myThid) |
|
./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 |
286 |
MOM_FLUXFORM |
CALL MOM_CALC_STRAIN(bi,bj,k,uFld,vFld,hFacZ,strain,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
289 |
MOM_FLUXFORM |
IF ( hFacZ(i,j).EQ.0. ) THEN |
|
./pkg/mom_fluxform/mom_fluxform.F |
367 |
MOM_FLUXFORM |
I hDiv,vort3,tension,strain,KE,hFacZ, |
|
./pkg/mom_fluxform/mom_fluxform.F |
468 |
MOM_FLUXFORM |
& CALL MOM_U_DEL2U(bi,bj,k,uFld,hFacZ,v4f,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
475 |
MOM_FLUXFORM |
CALL MOM_U_YVISCFLUX(bi,bj,k,uFld,v4F,hFacZ,fMer, |
|
./pkg/mom_fluxform/mom_fluxform.F |
518 |
MOM_FLUXFORM |
I uFld, v4f, hFacZ, |
|
./pkg/mom_fluxform/mom_fluxform.F |
683 |
MOM_FLUXFORM |
& CALL MOM_V_DEL2V(bi,bj,k,vFld,hFacZ,v4f,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
686 |
MOM_FLUXFORM |
CALL MOM_V_XVISCFLUX(bi,bj,k,vFld,v4f,hFacZ,fZon, |
|
./pkg/mom_fluxform/mom_fluxform.F |
733 |
MOM_FLUXFORM |
I vFld, v4f, hFacZ, |
|
./pkg/mom_fluxform/mom_u_del2u.F |
12 |
MOM_U_DEL2U |
I uFld, hFacZ, |
|
./pkg/mom_fluxform/mom_u_del2u.F |
34 |
MOM_U_DEL2U |
_RS hFacZ(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
67 |
MOM_U_DEL2U |
fMer(i,j) = drF(k)*hFacZ(i,j) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
95 |
MOM_U_DEL2U |
hFacZClosedS = _hFacW(i,j,k,bi,bj) - hFacZ(i,j) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
96 |
MOM_U_DEL2U |
hFacZClosedN = _hFacW(i,j,k,bi,bj) - hFacZ(i,j+1) |
|
./pkg/mom_fluxform/mom_u_yviscflux.F |
12 |
MOM_U_YVISCFLUX |
I uFld, del2u, hFacZ, |
|
./pkg/mom_fluxform/mom_u_yviscflux.F |
40 |
MOM_U_YVISCFLUX |
_RS hFacZ(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_fluxform/mom_u_yviscflux.F |
58 |
MOM_U_YVISCFLUX |
& _dxV(i,j,bi,bj)*drF(k)*hFacZ(i,j) |
|
./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 |
94 |
MOM_V_DEL2V |
hFacZClosedW = _hFacS(i,j,k,bi,bj) - hFacZ(i,j) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
95 |
MOM_V_DEL2V |
hFacZClosedE = _hFacS(i,j,k,bi,bj) - hFacZ(i+1,j) |
|
./pkg/mom_fluxform/mom_v_xviscflux.F |
12 |
MOM_V_XVISCFLUX |
I vFld, del2v, hFacZ, |
|
./pkg/mom_fluxform/mom_v_xviscflux.F |
40 |
MOM_V_XVISCFLUX |
_RS hFacZ(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_fluxform/mom_v_xviscflux.F |
58 |
MOM_V_XVISCFLUX |
& _dyU(i,j,bi,bj)*drF(k)*hFacZ(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
189 |
MOM_VECINV |
hFacZ(i,j) = 0. _d 0 |
|
./pkg/mom_vecinv/mom_vecinv.F |
217 |
MOM_VECINV |
CALL MOM_CALC_HFACZ(bi,bj,k,hFacZ,r_hFacZ,myThid) |
|
./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 |
248 |
MOM_VECINV |
CALL MOM_CALC_STRAIN(bi,bj,k,uFld,vFld,hFacZ,strain,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
253 |
MOM_VECINV |
IF ( hFacZ(i,j).EQ.0. ) THEN |
|
./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 |
275 |
MOM_VECINV |
& del2u,del2v,hFacZ,zStar,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
303 |
MOM_VECINV |
IF ( hFacZ(i,j).EQ.0. ) strain(i,j) = 0. _d 0 |
|
./pkg/mom_vecinv/mom_vecinv.F |
307 |
MOM_VECINV |
I hFacZ, |
|
./pkg/mom_vecinv/mom_vecinv.F |
315 |
MOM_VECINV |
I hFacZ,dStar,zStar, |
|
./pkg/mom_vecinv/mom_vecinv.F |
360 |
MOM_VECINV |
I uFld, del2u, hFacZ, |
|
./pkg/mom_vecinv/mom_vecinv.F |
425 |
MOM_VECINV |
I vFld, del2v, hFacZ, |
|
./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 |
495 |
MOM_VECINV |
CALL MOM_VI_U_CORIOLIS(bi,bj,K,vFld,omega3,hFacZ,r_hFacZ, |
|
./pkg/mom_vecinv/mom_vecinv.F |
497 |
MOM_VECINV |
CALL MOM_VI_V_CORIOLIS(bi,bj,K,uFld,omega3,hFacZ,r_hFacZ, |
|
./pkg/mom_vecinv/mom_vecinv.F |
500 |
MOM_VECINV |
CALL MOM_VI_CORIOLIS(bi,bj,k,uFld,vFld,hFacZ,r_hFacZ, |
|
./pkg/mom_vecinv/mom_vecinv.F |
548 |
MOM_VECINV |
CALL MOM_VI_U_CORIOLIS(bi,bj,K,vFld,omega3,hFacZ,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 |
567 |
MOM_VECINV |
CALL MOM_VI_V_CORIOLIS(bi,bj,K,uFld,omega3,hFacZ,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 |
78 |
MOM_VECINV |
_RS hFacZ (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./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/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 |
25 |
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 |
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 |
133 |
MOM_VI_HDISSIP |
Zip1=dxV( i ,j+1,bi,bj)*hFacZ( i ,j+1)*zStar( i ,j+1) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
134 |
MOM_VI_HDISSIP |
Zij1=dxV( i , j ,bi,bj)*hFacZ( i , j )*zStar( i , j ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
135 |
MOM_VI_HDISSIP |
Zpj1=dxV(i+1, j ,bi,bj)*hFacZ(i+1, j )*zStar(i+1, j ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
141 |
MOM_VI_HDISSIP |
Zip1=hFacZ( i ,j+1)*zStar( i ,j+1) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
142 |
MOM_VI_HDISSIP |
Zij1=hFacZ( i , j )*zStar( i , j ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
143 |
MOM_VI_HDISSIP |
Zpj1=hFacZ(i+1, j )*zStar(i+1, j ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
40 |
MOM_VI_HDISSIP |
_RS hFacZ(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 |
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/mom_vecinv/mom_vi_hdissip.F |
9 |
MOM_VI_HDISSIP |
I hFacZ,dStar,zStar, |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
11 |
MOM_VI_U_CORIOLIS |
I vFld, omega3, hFacZ, r_hFacZ, |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
37 |
MOM_VI_U_CORIOLIS |
_RS hFacZ (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
92 |
MOM_VI_U_CORIOLIS |
& (vFld( i , j )*dxG( i , j ,bi,bj)*hFacZ(i, j ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
93 |
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 |
94 |
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 |
95 |
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 |
96 |
MOM_VI_U_CORIOLIS |
& )/MAX( epsil, hFacZ(i,j)+hFacZ(i,j+1) ) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
11 |
MOM_VI_V_CORIOLIS |
I uFld, omega3, hFacZ, r_hFacZ, |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
37 |
MOM_VI_V_CORIOLIS |
_RS hFacZ (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
92 |
MOM_VI_V_CORIOLIS |
& (uFld( i , j )*dyG( i , j ,bi,bj)*hFacZ( i ,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
93 |
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 |
94 |
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 |
95 |
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 |
96 |
MOM_VI_V_CORIOLIS |
& )/MAX( epsil, hFacZ(i,j)+hFacZ(i+1,j) ) |
|
./pkg/monitor/mon_vort3.F |
111 |
MON_VORT3 |
hFacZ(i,j) = 1. + 0.125 _d 0* |
|
./pkg/monitor/mon_vort3.F |
128 |
MON_VORT3 |
hFacZ(i,j) = |
|
./pkg/monitor/mon_vort3.F |
151 |
MON_VORT3 |
hFacZ(i,jMax)=0. |
|
./pkg/monitor/mon_vort3.F |
155 |
MON_VORT3 |
hFacZ(iMax,j)=0. |
|
./pkg/monitor/mon_vort3.F |
192 |
MON_VORT3 |
hFacZ(i,j) = ( _hFacW(i,j-1,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
207 |
MON_VORT3 |
hFacZ(i,j) = ( _hFacW(i,j-1,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
222 |
MON_VORT3 |
hFacZ(i,j) = ( _hFacW(i,j-1,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
237 |
MON_VORT3 |
hFacZ(i,j) = ( _hFacW(i,j-1,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
253 |
MON_VORT3 |
hFacZ(i,j) = 0. |
|
./pkg/monitor/mon_vort3.F |
255 |
MON_VORT3 |
hFacZ(1,j) = hFacZ(1,j) + _hFacW(i,j-1,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
258 |
MON_VORT3 |
hFacZ(1,j) = hFacZ(1,j) + etaFld(i,j-1) |
|
./pkg/monitor/mon_vort3.F |
260 |
MON_VORT3 |
hFacZ(1,j) = sNx + hFacZ(1,j)*recip_drF(k) |
|
./pkg/monitor/mon_vort3.F |
262 |
MON_VORT3 |
hFacZ(1,j) = hFacZ(1,j) / FLOAT(sNx) |
|
./pkg/monitor/mon_vort3.F |
271 |
MON_VORT3 |
hFacZ(i,j) = 0. |
|
./pkg/monitor/mon_vort3.F |
273 |
MON_VORT3 |
hFacZ(1,j) = hFacZ(1,j) + _hFacW(i,j,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
276 |
MON_VORT3 |
hFacZ(1,j) = hFacZ(1,j) + etaFld(i,j) |
|
./pkg/monitor/mon_vort3.F |
278 |
MON_VORT3 |
hFacZ(1,j) = sNx + hFacZ(1,j)*recip_drF(k) |
|
./pkg/monitor/mon_vort3.F |
280 |
MON_VORT3 |
hFacZ(1,j) = hFacZ(1,j) / FLOAT(sNx) |
|
./pkg/monitor/mon_vort3.F |
289 |
MON_VORT3 |
IF (hFacZ(i,j).GT.0. _d 0) THEN |
|
./pkg/monitor/mon_vort3.F |
292 |
MON_VORT3 |
tmpVol = rAz(i,j,bi,bj)*drF(k)*hFacZ(i,j) |
|
./pkg/monitor/mon_vort3.F |
302 |
MON_VORT3 |
tmpVal = tmpVal / hFacZ(i,j) |
|
./pkg/monitor/mon_vort3.F |
47 |
MON_VORT3 |
_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_s2.F |
116 |
SHAP_FILT_UV_S2 |
& CALL MOM_CALC_HFACZ(bi,bj,k,hFacZ,r_hFacZ,myThid) |
|
./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 |
166 |
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) |
|
./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, |
|
./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, |