| File |
Line number |
Procedure |
Code |
|
./pkg/mom_common/mom_calc_hfacz.F |
102 |
MOM_CALC_HFACZ |
hFacZ(i,j) =0. |
|
./pkg/mom_common/mom_calc_hfacz.F |
139 |
MOM_CALC_HFACZ |
hFacZ(i,j) = |
|
./pkg/mom_common/mom_calc_hfacz.F |
154 |
MOM_CALC_HFACZ |
IF (hFacZ(i,j).EQ.0.) THEN |
|
./pkg/mom_common/mom_calc_hfacz.F |
157 |
MOM_CALC_HFACZ |
r_hFacZ(i,j) = 1. _d 0/hFacZ(i,j) |
|
./pkg/mom_common/mom_calc_hfacz.F |
15 |
MOM_CALC_HFACZ |
O hFacZ, r_hFacZ, |
|
./pkg/mom_common/mom_calc_hfacz.F |
178 |
MOM_CALC_HFACZ |
hFacZ(i,1-OLy)=0. |
|
./pkg/mom_common/mom_calc_hfacz.F |
181 |
MOM_CALC_HFACZ |
hFacZ(1-OLx,j)=0. |
|
./pkg/mom_common/mom_calc_hfacz.F |
200 |
MOM_CALC_HFACZ |
hFacZ(i,j) = 0.25 _d 0 * hFacZOpen |
|
./pkg/mom_common/mom_calc_hfacz.F |
219 |
MOM_CALC_HFACZ |
hFacZ(i,j) = 0.5 _d 0 * hFacZOpen |
|
./pkg/mom_common/mom_calc_hfacz.F |
229 |
MOM_CALC_HFACZ |
hFacZ(i,j)=hFacZOpen |
|
./pkg/mom_common/mom_calc_hfacz.F |
264 |
MOM_CALC_HFACZ |
hFacZ(i,j)=hFacZOpen |
|
./pkg/mom_common/mom_calc_hfacz.F |
277 |
MOM_CALC_HFACZ |
hFacZ(i,j) = hFacZOpen / 3. _d 0 |
|
./pkg/mom_common/mom_calc_hfacz.F |
289 |
MOM_CALC_HFACZ |
hFacZ(i,j)=hFacZOpen |
|
./pkg/mom_common/mom_calc_hfacz.F |
307 |
MOM_CALC_HFACZ |
hFacZ(i,j) = hFacZOpen / 3. _d 0 |
|
./pkg/mom_common/mom_calc_hfacz.F |
319 |
MOM_CALC_HFACZ |
hFacZ(i,j)=hFacZOpen |
|
./pkg/mom_common/mom_calc_hfacz.F |
337 |
MOM_CALC_HFACZ |
hFacZ(i,j) = hFacZOpen / 3. _d 0 |
|
./pkg/mom_common/mom_calc_hfacz.F |
348 |
MOM_CALC_HFACZ |
hFacZ(i,j)=hFacZOpen |
|
./pkg/mom_common/mom_calc_hfacz.F |
361 |
MOM_CALC_HFACZ |
hFacZ(i,j) = hFacZOpen / 3. _d 0 |
|
./pkg/mom_common/mom_calc_hfacz.F |
372 |
MOM_CALC_HFACZ |
IF (hFacZ(i,j).EQ.0.) THEN |
|
./pkg/mom_common/mom_calc_hfacz.F |
375 |
MOM_CALC_HFACZ |
r_hFacZ(i,j) = 1. _d 0/hFacZ(i,j) |
|
./pkg/mom_common/mom_calc_hfacz.F |
49 |
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 |
101 |
MOM_CALC_VISC |
_RS hFacZ(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_common/mom_calc_visc.F |
17 |
MOM_CALC_VISC |
I hDiv,vort3,tension,strain,KE,hFacZ, |
|
./pkg/mom_common/mom_hdissip.F |
30 |
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, |
|
./pkg/mom_common/mom_u_sidedrag.F |
110 |
MOM_U_SIDEDRAG |
hFacZClosedS = h0FacW(i,j,k,bi,bj) - hFacZ(i,j) |
|
./pkg/mom_common/mom_u_sidedrag.F |
111 |
MOM_U_SIDEDRAG |
hFacZClosedN = h0FacW(i,j,k,bi,bj) - hFacZ(i,j+1) |
|
./pkg/mom_common/mom_u_sidedrag.F |
113 |
MOM_U_SIDEDRAG |
hFacZClosedS = _hFacW(i,j,k,bi,bj) - hFacZ(i,j) |
|
./pkg/mom_common/mom_u_sidedrag.F |
114 |
MOM_U_SIDEDRAG |
hFacZClosedN = _hFacW(i,j,k,bi,bj) - hFacZ(i,j+1) |
|
./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 |
68 |
MOM_U_SIDEDRAG |
hFacZClosedS = h0FacW(i,j,k,bi,bj) - hFacZ(i,j) |
|
./pkg/mom_common/mom_u_sidedrag.F |
69 |
MOM_U_SIDEDRAG |
hFacZClosedN = h0FacW(i,j,k,bi,bj) - hFacZ(i,j+1) |
|
./pkg/mom_common/mom_u_sidedrag.F |
71 |
MOM_U_SIDEDRAG |
hFacZClosedS = _hFacW(i,j,k,bi,bj) - hFacZ(i,j) |
|
./pkg/mom_common/mom_u_sidedrag.F |
72 |
MOM_U_SIDEDRAG |
hFacZClosedN = _hFacW(i,j,k,bi,bj) - hFacZ(i,j+1) |
|
./pkg/mom_common/mom_v_sidedrag.F |
107 |
MOM_V_SIDEDRAG |
hFacZClosedW = h0FacS(i,j,k,bi,bj) - hFacZ(i,j) |
|
./pkg/mom_common/mom_v_sidedrag.F |
108 |
MOM_V_SIDEDRAG |
hFacZClosedE = h0FacS(i,j,k,bi,bj) - hFacZ(i+1,j) |
|
./pkg/mom_common/mom_v_sidedrag.F |
110 |
MOM_V_SIDEDRAG |
hFacZClosedW = _hFacS(i,j,k,bi,bj) - hFacZ(i,j) |
|
./pkg/mom_common/mom_v_sidedrag.F |
111 |
MOM_V_SIDEDRAG |
hFacZClosedE = _hFacS(i,j,k,bi,bj) - hFacZ(i+1,j) |
|
./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 |
68 |
MOM_V_SIDEDRAG |
hFacZClosedW = h0FacS(i,j,k,bi,bj) - hFacZ(i,j) |
|
./pkg/mom_common/mom_v_sidedrag.F |
69 |
MOM_V_SIDEDRAG |
hFacZClosedE = h0FacS(i,j,k,bi,bj) - hFacZ(i+1,j) |
|
./pkg/mom_common/mom_v_sidedrag.F |
71 |
MOM_V_SIDEDRAG |
hFacZClosedW = _hFacS(i,j,k,bi,bj) - hFacZ(i,j) |
|
./pkg/mom_common/mom_v_sidedrag.F |
72 |
MOM_V_SIDEDRAG |
hFacZClosedE = _hFacS(i,j,k,bi,bj) - hFacZ(i+1,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
133 |
MOM_FLUXFORM |
_RS hFacZ(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_fluxform/mom_fluxform.F |
265 |
MOM_FLUXFORM |
CALL MOM_CALC_HFACZ( bi,bj,k,hFacZ,r_hFacZ,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
275 |
MOM_FLUXFORM |
h0FacZ(i,j) = hFacZ(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
311 |
MOM_FLUXFORM |
CALL MOM_CALC_RELVORT3( bi,bj,k,uFld,vFld,hFacZ,vort3,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
313 |
MOM_FLUXFORM |
CALL MOM_CALC_STRAIN( bi,bj,k,uFld,vFld,hFacZ,strain,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
316 |
MOM_FLUXFORM |
IF ( hFacZ(i,j).EQ.0. ) THEN |
|
./pkg/mom_fluxform/mom_fluxform.F |
400 |
MOM_FLUXFORM |
I hDiv, vort3, tension, strain, KE, hFacZ, |
|
./pkg/mom_fluxform/mom_fluxform.F |
515 |
MOM_FLUXFORM |
& CALL MOM_U_DEL2U( bi, bj, k, uFld, hFacZ, h0FacZ, |
|
./pkg/mom_fluxform/mom_fluxform.F |
523 |
MOM_FLUXFORM |
CALL MOM_U_YVISCFLUX( bi,bj,k,uFld,v4F,hFacZ,fMer, |
|
./pkg/mom_fluxform/mom_fluxform.F |
747 |
MOM_FLUXFORM |
& CALL MOM_V_DEL2V( bi, bj, k, vFld, hFacZ, h0FacZ, |
|
./pkg/mom_fluxform/mom_fluxform.F |
751 |
MOM_FLUXFORM |
CALL MOM_V_XVISCFLUX( bi,bj,k,vFld,v4f,hFacZ,fZon, |
|
./pkg/mom_fluxform/mom_u_del2u.F |
12 |
MOM_U_DEL2U |
I uFld, hFacZ, h0FacZ, |
|
./pkg/mom_fluxform/mom_u_del2u.F |
36 |
MOM_U_DEL2U |
_RS hFacZ (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
73 |
MOM_U_DEL2U |
fMer(i,j) = drF(k)*hFacZ(i,j) |
|
./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, h0FacZ, |
|
./pkg/mom_fluxform/mom_v_del2v.F |
36 |
MOM_V_DEL2V |
_RS hFacZ (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
54 |
MOM_V_DEL2V |
fZon(i,j) = drF(k)*hFacZ(i,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 |
100 |
MOM_VECINV |
_RS hFacZ (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_vecinv/mom_vecinv.F |
213 |
MOM_VECINV |
hFacZ(i,j) = 0. _d 0 |
|
./pkg/mom_vecinv/mom_vecinv.F |
242 |
MOM_VECINV |
CALL MOM_CALC_HFACZ(bi,bj,k,hFacZ,r_hFacZ,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
273 |
MOM_VECINV |
CALL MOM_CALC_RELVORT3(bi,bj,k,uFld,vFld,hFacZ,vort3,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
288 |
MOM_VECINV |
IF ( hFacZ(i,j).EQ.zeroRS ) THEN |
|
./pkg/mom_vecinv/mom_vecinv.F |
308 |
MOM_VECINV |
h0FacZ(i,j) = hFacZ(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
334 |
MOM_VECINV |
CALL MOM_CALC_STRAIN( bi,bj,k,uFld,vFld,hFacZ,strain,myThid ) |
|
./pkg/mom_vecinv/mom_vecinv.F |
339 |
MOM_VECINV |
IF ( hFacZ(i,j).EQ.zeroRS ) THEN |
|
./pkg/mom_vecinv/mom_vecinv.F |
397 |
MOM_VECINV |
CALL MOM_VI_DEL2UV(bi,bj,k,hDiv,vort3,hFacZ, |
|
./pkg/mom_vecinv/mom_vecinv.F |
408 |
MOM_VECINV |
& del2u,del2v,hFacZ,zStar,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
428 |
MOM_VECINV |
I tension, strain, hFacZ, |
|
./pkg/mom_vecinv/mom_vecinv.F |
436 |
MOM_VECINV |
I hDiv, vort3, dStar, zStar, hFacZ, |
|
./pkg/mom_vecinv/mom_vecinv.F |
614 |
MOM_VECINV |
& vFld,omega3,hFacZ,r_hFacZ, |
|
./pkg/mom_vecinv/mom_vecinv.F |
617 |
MOM_VECINV |
& uFld,omega3,hFacZ,r_hFacZ, |
|
./pkg/mom_vecinv/mom_vecinv.F |
620 |
MOM_VECINV |
CALL MOM_VI_CORIOLIS(bi,bj,k,uFld,vFld,hFacZ,r_hFacZ, |
|
./pkg/mom_vecinv/mom_vecinv.F |
680 |
MOM_VECINV |
& vFld,omega3,hFacZ,r_hFacZ, |
|
./pkg/mom_vecinv/mom_vecinv.F |
684 |
MOM_VECINV |
& vFld,vort3, hFacZ,r_hFacZ, |
|
./pkg/mom_vecinv/mom_vecinv.F |
705 |
MOM_VECINV |
& uFld,omega3,hFacZ,r_hFacZ, |
|
./pkg/mom_vecinv/mom_vecinv.F |
709 |
MOM_VECINV |
& uFld,vort3, hFacZ,r_hFacZ, |
|
./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 |
120 |
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 |
95 |
MOM_VI_DEL2UV |
& ( hFacZ(i,j+1)*vort3(i,j+1) - hFacZ(i,j)*vort3(i,j) ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
136 |
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 |
137 |
MOM_VI_HDISSIP |
Zij1=dxV( i , j ,bi,bj)*hFacZ( i , j )*zStar( i , j ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
138 |
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 |
144 |
MOM_VI_HDISSIP |
Zip1=hFacZ( i ,j+1)*zStar( i ,j+1) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
145 |
MOM_VI_HDISSIP |
Zij1=hFacZ( i , j )*zStar( i , j ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
146 |
MOM_VI_HDISSIP |
Zpj1=hFacZ(i+1, j )*zStar(i+1, j ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
200 |
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 |
201 |
MOM_VI_HDISSIP |
Zij1=dxV( i , j ,bi,bj)*hFacZ( i , j )*zStar( i , j ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
202 |
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 |
208 |
MOM_VI_HDISSIP |
Zip1=hFacZ( i ,j+1)*zStar( i ,j+1) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
209 |
MOM_VI_HDISSIP |
Zij1=hFacZ( i , j )*zStar( i , j ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
210 |
MOM_VI_HDISSIP |
Zpj1=hFacZ(i+1, j )*zStar(i+1, j ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
31 |
MOM_VI_HDISSIP |
_RS hFacZ(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
58 |
MOM_VI_HDISSIP |
Zij=hFacZ( i , j )*vort3( i , j )*viscAh_Z(i,j) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
59 |
MOM_VI_HDISSIP |
Zip=hFacZ( i ,j+1)*vort3( i ,j+1)*viscAh_Z(i,j+1) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
60 |
MOM_VI_HDISSIP |
Zpj=hFacZ(i+1, j )*vort3(i+1, j )*viscAh_Z(i+1,j) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
88 |
MOM_VI_HDISSIP |
Zip=hFacZ( i ,j+1)*vort3( i ,j+1) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
89 |
MOM_VI_HDISSIP |
Zij=hFacZ( i , j )*vort3( i , j ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
8 |
MOM_VI_HDISSIP |
I hDiv, vort3, dStar, zStar, hFacZ, |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
90 |
MOM_VI_HDISSIP |
Zpj=hFacZ(i+1, j )*vort3(i+1, j ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
12 |
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 |
94 |
MOM_VI_U_CORIOLIS |
& (vFld( i , j )*dxG( i , j ,bi,bj)*hFacZ(i, j ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
95 |
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 |
96 |
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 |
97 |
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 |
98 |
MOM_VI_U_CORIOLIS |
& )/MAX( epsil, hFacZ(i,j)+hFacZ(i,j+1) ) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
12 |
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 |
94 |
MOM_VI_V_CORIOLIS |
& (uFld( i , j )*dyG( i , j ,bi,bj)*hFacZ( i ,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
95 |
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 |
96 |
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 |
97 |
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 |
98 |
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/seaice/seaice_mom_advection.F |
124 |
SEAICE_MOM_ADVECTION |
hFacZ(i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_mom_advection.F |
131 |
SEAICE_MOM_ADVECTION |
CALL MOM_CALC_HFACZ(bi,bj,k,hFacZ,r_hFacZ,myThid) |
|
./pkg/seaice/seaice_mom_advection.F |
154 |
SEAICE_MOM_ADVECTION |
CALL MOM_CALC_RELVORT3(bi,bj,k,uFld,vFld,hFacZ,vort3,myThid) |
|
./pkg/seaice/seaice_mom_advection.F |
192 |
SEAICE_MOM_ADVECTION |
& vFld,vort3,hFacZ,r_hFacZ, |
|
./pkg/seaice/seaice_mom_advection.F |
209 |
SEAICE_MOM_ADVECTION |
& uFld,vort3,hFacZ,r_hFacZ, |
|
./pkg/seaice/seaice_mom_advection.F |
71 |
SEAICE_MOM_ADVECTION |
_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, |