| File |
Line number |
Procedure |
Code |
|
./pkg/debug/debug_cs_corner_uv.F |
46 |
DEBUG_CS_CORNER_UV |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/debug/debug_cs_corner_uv.F |
78 |
DEBUG_CS_CORNER_UV |
tmpU(1,k,bi,bj)= uFld(j,1) |
|
./pkg/debug/debug_cs_corner_uv.F |
79 |
DEBUG_CS_CORNER_UV |
tmpU(2,k,bi,bj)= uFld(j,sNy) |
|
./pkg/debug/debug_cs_corner_uv.F |
80 |
DEBUG_CS_CORNER_UV |
tmpU(3,k,bi,bj)= uFld(sNx+j,1) |
|
./pkg/debug/debug_cs_corner_uv.F |
81 |
DEBUG_CS_CORNER_UV |
tmpU(4,k,bi,bj)= uFld(sNx+j,sNy) |
|
./pkg/debug/debug_cs_corner_uv.F |
8 |
DEBUG_CS_CORNER_UV |
I uFld, vFld, |
|
./pkg/obcs/obcs_apply_uv.F |
22 |
OBCS_APPLY_UV |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_apply_uv.F |
38 |
OBCS_APPLY_UV |
uFld(I,OB_Jn(I,bi,bj),K,bi,bj)=OBNu(I,K,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
51 |
OBCS_APPLY_UV |
uFld(I,OB_Js(I,bi,bj),K,bi,bj)=OBSu(I,K,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
65 |
OBCS_APPLY_UV |
uFld(OB_Ie(J,bi,bj),J,K,bi,bj)=OBEu(J,K,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
69 |
OBCS_APPLY_UV |
uFld(OB_Ie(J,bi,bj)+1,J,K,bi,bj)=OBEu(J,K,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
78 |
OBCS_APPLY_UV |
uFld(OB_Iw(J,bi,bj)+1,J,K,bi,bj)=OBWu(J,K,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
7 |
OBCS_APPLY_UV |
U uFld, vFld, |
|
./pkg/obcs/obcs_apply_uv.F |
82 |
OBCS_APPLY_UV |
uFld(OB_Iw(J,bi,bj),J,K,bi,bj)=OBWu(J,K,bi,bj) |
|
./pkg/zonal_filt/zonal_filt_apply_uv.F |
22 |
ZONAL_FILT_APPLY_UV |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/zonal_filt/zonal_filt_apply_uv.F |
36 |
ZONAL_FILT_APPLY_UV |
& uFld, hFacW, 1-1, sNy+1, k, k, bi, bj, 1, myThid) |
|
./pkg/zonal_filt/zonal_filt_apply_uv.F |
7 |
ZONAL_FILT_APPLY_UV |
U uFld, vFld, |
|
./pkg/mom_common/mom_calc_strain.F |
12 |
MOM_CALC_STRAIN |
I uFld, vFld, hFacZ, |
|
./pkg/mom_common/mom_calc_strain.F |
39 |
MOM_CALC_STRAIN |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_common/mom_calc_strain.F |
60 |
MOM_CALC_STRAIN |
& +dxc( i , j ,bi,bj)*uFld( i , j ) |
|
./pkg/mom_common/mom_calc_strain.F |
61 |
MOM_CALC_STRAIN |
& -dxc( i ,j-1,bi,bj)*uFld( i ,j-1) )*recip_rAz(i,j,bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
12 |
MOM_CALC_KE |
I uFld, vFld, |
|
./pkg/mom_common/mom_calc_ke.F |
34 |
MOM_CALC_KE |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_common/mom_calc_ke.F |
58 |
MOM_CALC_KE |
& ( uFld(i,j)+uFld(i+1, j ) )**2 |
|
./pkg/mom_common/mom_calc_ke.F |
73 |
MOM_CALC_KE |
& uFld( i , j )*uFld( i , j ) |
|
./pkg/mom_common/mom_calc_ke.F |
74 |
MOM_CALC_KE |
& +uFld(i+1, j )*uFld(i+1, j ) |
|
./pkg/mom_common/mom_calc_ke.F |
86 |
MOM_CALC_KE |
& uFld( i , j )*uFld( i , j )*hFacW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
87 |
MOM_CALC_KE |
& +uFld(i+1, j )*uFld(i+1, j )*hFacW(i+1,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hdiv.F |
25 |
MOM_CALC_HDIV |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_common/mom_calc_hdiv.F |
39 |
MOM_CALC_HDIV |
& uFld(i+1, j )*dyg(i+1, j ,bi,bj) |
|
./pkg/mom_common/mom_calc_hdiv.F |
40 |
MOM_CALC_HDIV |
& -uFld( i , j )*dyg( i , j ,bi,bj) |
|
./pkg/mom_common/mom_calc_hdiv.F |
53 |
MOM_CALC_HDIV |
& ( uFld(i+1, j )*dyg(i+1, j ,bi,bj)*hFacW(i+1, j ,K,bi,bj) |
|
./pkg/mom_common/mom_calc_hdiv.F |
54 |
MOM_CALC_HDIV |
& -uFld( i , j )*dyg( i , j ,bi,bj)*hFacW( i , j ,K,bi,bj) |
|
./pkg/mom_common/mom_calc_hdiv.F |
8 |
MOM_CALC_HDIV |
I uFld, vFld, |
|
./pkg/mom_common/mom_u_bottomdrag.F |
12 |
MOM_U_BOTTOMDRAG |
I uFld, KE, KappaRU, |
|
./pkg/mom_common/mom_u_bottomdrag.F |
37 |
MOM_U_BOTTOMDRAG |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
82 |
MOM_U_BOTTOMDRAG |
& )*(1.-maskDown)*uFld(i,j) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
87 |
MOM_U_BOTTOMDRAG |
& *(1.-maskDown)*uFld(i,j) |
|
./pkg/mom_common/mom_u_sidedrag.F |
12 |
MOM_U_SIDEDRAG |
I uFld, del2u, hFacZ, |
|
./pkg/mom_common/mom_u_sidedrag.F |
37 |
MOM_U_SIDEDRAG |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_common/mom_u_sidedrag.F |
75 |
MOM_U_SIDEDRAG |
& viscAh*uFld(i,j)*cosFacU(J,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
82 |
MOM_U_SIDEDRAG |
& Ahtmp*uFld(i,j) |
|
./pkg/mom_common/mom_calc_tension.F |
12 |
MOM_CALC_TENSION |
I uFld, vFld, |
|
./pkg/mom_common/mom_calc_tension.F |
36 |
MOM_CALC_TENSION |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_common/mom_calc_tension.F |
55 |
MOM_CALC_TENSION |
& ( dyg(i+1, j ,bi,bj)*uFld(i+1, j ) |
|
./pkg/mom_common/mom_calc_tension.F |
56 |
MOM_CALC_TENSION |
& -dyg( i , j ,bi,bj)*uFld( i , j ) |
|
./pkg/mom_common/mom_calc_relvort3.F |
129 |
MOM_CALC_RELVORT3 |
& -uFld(I,J)*dxc(I,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
130 |
MOM_CALC_RELVORT3 |
& +uFld(I,J-1)*dxc(I,J-1,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
138 |
MOM_CALC_RELVORT3 |
& -uFld(I-1,J)*dxc(I-1,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
162 |
MOM_CALC_RELVORT3 |
& -uFld(I,J)*dxc(I,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
163 |
MOM_CALC_RELVORT3 |
& +uFld(I,J-1)*dxc(I,J-1,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
171 |
MOM_CALC_RELVORT3 |
& -uFld(I+1,J)*dxc(I+1,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
195 |
MOM_CALC_RELVORT3 |
& -uFld(I,J)*dxc(I,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
196 |
MOM_CALC_RELVORT3 |
& +uFld(I,J-1)*dxc(I,J-1,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
205 |
MOM_CALC_RELVORT3 |
& +uFld(I-1,J-1)*dxc(I-1,J-1,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
228 |
MOM_CALC_RELVORT3 |
& -uFld(I,J)*dxc(I,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
229 |
MOM_CALC_RELVORT3 |
& +uFld(I,J-1)*dxc(I,J-1,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
238 |
MOM_CALC_RELVORT3 |
& +uFld(I+1,J-1)*dxc(I+1,J-1,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
30 |
MOM_CALC_RELVORT3 |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_common/mom_calc_relvort3.F |
60 |
MOM_CALC_RELVORT3 |
& -uFld(I,J)*dxc(I,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
61 |
MOM_CALC_RELVORT3 |
& +uFld(I,J-1)*dxc(I,J-1,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
9 |
MOM_CALC_RELVORT3 |
I uFld, vFld, hFacZ, |
|
./pkg/mom_common/mom_u_rviscflux.F |
12 |
MOM_U_RVISCFLUX |
I uFld, KappaRU, |
|
./pkg/mom_common/mom_u_rviscflux.F |
36 |
MOM_U_RVISCFLUX |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mom_common/mom_u_rviscflux.F |
58 |
MOM_U_RVISCFLUX |
& *( uFld(i,j,kp1,bi,bj)-uFld(i,j,k,bi,bj) |
|
./model/src/integrate_for_w.F |
10 |
INTEGRATE_FOR_W |
I bi,bj,k,uFld,vFld, |
|
./model/src/integrate_for_w.F |
35 |
INTEGRATE_FOR_W |
_RL uFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/integrate_for_w.F |
52 |
INTEGRATE_FOR_W |
uTrans(i,j) = uFld(i,j,k,bi,bj)* |
|
./verification/matrix_example/code/gad_dst3_adv_x.F |
41 |
GAD_DST3_ADV_X |
_RL uFld |
|
./verification/matrix_example/code/gad_dst3_adv_x.F |
61 |
GAD_DST3_ADV_X |
uFld = uTrans(i,j)*recip_dyG(i,j,bi,bj) |
|
./verification/matrix_example/code/gad_dst3_adv_x.F |
63 |
GAD_DST3_ADV_X |
cfl=abs(uFld*deltaTloc*recip_dxC(i,j,bi,bj)) |
|
./eesupp/src/fill_cs_corner_uv_rs.F |
127 |
FILL_CS_CORNER_UV_RS |
uFld( 1-i , 1-j ) = negOne*vFld( 1-j , 1+i ) |
|
./eesupp/src/fill_cs_corner_uv_rs.F |
133 |
FILL_CS_CORNER_UV_RS |
vFld( 1-i , 1-j ) = negOne*uFld( 1+j , 1-i ) |
|
./eesupp/src/fill_cs_corner_uv_rs.F |
142 |
FILL_CS_CORNER_UV_RS |
uFld(sNx+i, 1-j ) = vFld(sNx+j, i ) |
|
./eesupp/src/fill_cs_corner_uv_rs.F |
148 |
FILL_CS_CORNER_UV_RS |
vFld(sNx+i, 1-j ) = uFld(sNx+1-j, 1-i ) |
|
./eesupp/src/fill_cs_corner_uv_rs.F |
14 |
FILL_CS_CORNER_UV_RS |
U uFld, vFld, |
|
./eesupp/src/fill_cs_corner_uv_rs.F |
157 |
FILL_CS_CORNER_UV_RS |
uFld( 1-i ,sNy+j) = vFld( 1-j , sNy+1-i ) |
|
./eesupp/src/fill_cs_corner_uv_rs.F |
163 |
FILL_CS_CORNER_UV_RS |
vFld( 1-i ,sNy+j) = uFld( j , sNy+i ) |
|
./eesupp/src/fill_cs_corner_uv_rs.F |
172 |
FILL_CS_CORNER_UV_RS |
uFld(sNx+i,sNy+j) = negOne*vFld(sNx+j, sNy+2-i ) |
|
./eesupp/src/fill_cs_corner_uv_rs.F |
178 |
FILL_CS_CORNER_UV_RS |
vFld(sNx+i,sNy+j) = negOne*uFld(sNx+2-j, sNy+i ) |
|
./eesupp/src/fill_cs_corner_uv_rs.F |
48 |
FILL_CS_CORNER_UV_RS |
_RS uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
10 |
SHAP_FILT_UV_S2 |
U uFld, vFld, tmpFldU, tmpFldV, |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
299 |
SHAP_FILT_UV_S2 |
uFld(i,j,k,bi,bj)=uFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
316 |
SHAP_FILT_UV_S2 |
CALL EXCH_UV_XYZ_RL(uFld,vFld,.TRUE.,myThid) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
318 |
SHAP_FILT_UV_S2 |
CALL EXCH_UV_XY_RL(uFld,vFld,.TRUE.,myThid) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
46 |
SHAP_FILT_UV_S2 |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,kSize,nSx,nSy) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
87 |
SHAP_FILT_UV_S2 |
tmpFldU(i,j,k,bi,bj)=uFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
136 |
SHAP_FILT_RELVORT3 |
& -uFld(I,J)*dxc(I,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
137 |
SHAP_FILT_RELVORT3 |
& +uFld(I,J-1)*dxc(I,J-1,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
145 |
SHAP_FILT_RELVORT3 |
& -uFld(I-1,J)*dxc(I-1,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
171 |
SHAP_FILT_RELVORT3 |
& -uFld(I,J)*dxc(I,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
172 |
SHAP_FILT_RELVORT3 |
& +uFld(I,J-1)*dxc(I,J-1,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
180 |
SHAP_FILT_RELVORT3 |
& -uFld(I+1,J)*dxc(I+1,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
206 |
SHAP_FILT_RELVORT3 |
& -uFld(I,J)*dxc(I,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
207 |
SHAP_FILT_RELVORT3 |
& +uFld(I,J-1)*dxc(I,J-1,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
216 |
SHAP_FILT_RELVORT3 |
& +uFld(I-1,J-1)*dxc(I-1,J-1,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
241 |
SHAP_FILT_RELVORT3 |
& -uFld(I,J)*dxc(I,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
242 |
SHAP_FILT_RELVORT3 |
& +uFld(I,J-1)*dxc(I,J-1,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
251 |
SHAP_FILT_RELVORT3 |
& +uFld(I+1,J-1)*dxc(I+1,J-1,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
33 |
SHAP_FILT_RELVORT3 |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
64 |
SHAP_FILT_RELVORT3 |
& -uFld(I,J)*dxc(I,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
65 |
SHAP_FILT_RELVORT3 |
& +uFld(I,J-1)*dxc(I,J-1,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
9 |
SHAP_FILT_RELVORT3 |
I uFld, vFld, hFacZ, |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
10 |
SHAP_FILT_UV_S2C |
U uFld, vFld, tmpFldU, tmpFldV, |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
200 |
SHAP_FILT_UV_S2C |
uFld(i,j,k,bi,bj)=uFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
217 |
SHAP_FILT_UV_S2C |
CALL EXCH_UV_XYZ_RL(uFld,vFld,.TRUE.,myThid) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
219 |
SHAP_FILT_UV_S2C |
CALL EXCH_UV_XY_RL(uFld,vFld,.TRUE.,myThid) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
42 |
SHAP_FILT_UV_S2C |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,kSize,nSx,nSy) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
69 |
SHAP_FILT_UV_S2C |
tmpFldU(i,j,k,bi,bj)=uFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
10 |
SHAP_FILT_UV_S1 |
U uFld, vFld, tmpFldU, tmpFldV, |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
139 |
SHAP_FILT_UV_S1 |
tmpScal = uFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
140 |
SHAP_FILT_UV_S1 |
uFld(i,j,k,bi,bj) = uFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
268 |
SHAP_FILT_UV_S1 |
uFld(i,j,k,bi,bj) = uFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
283 |
SHAP_FILT_UV_S1 |
CALL EXCH_UV_XYZ_RL(uFld,vFld,.TRUE.,myThid) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
285 |
SHAP_FILT_UV_S1 |
CALL EXCH_UV_XY_RL(uFld,vFld,.TRUE.,myThid) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
42 |
SHAP_FILT_UV_S1 |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,kSize,nSx,nSy) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
70 |
SHAP_FILT_UV_S1 |
tmpFldU(i,j,k,bi,bj)=uFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
10 |
SHAP_FILT_APPLY_UV |
U uFld, vFld, |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
39 |
SHAP_FILT_APPLY_UV |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
63 |
SHAP_FILT_APPLY_UV |
_EXCH_XYZ_R8( uFld,myThid ) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
69 |
SHAP_FILT_APPLY_UV |
CALL SHAP_FILT_U( uFld,bi,bj,k,myTime,myThid ) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
75 |
SHAP_FILT_APPLY_UV |
_EXCH_XYZ_R8( uFld,myThid ) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
81 |
SHAP_FILT_APPLY_UV |
U uFld, vFld, Shap_tmpFld1, Shap_tmpFld2, |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
85 |
SHAP_FILT_APPLY_UV |
U uFld, vFld, Shap_tmpFld1, Shap_tmpFld2, |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
89 |
SHAP_FILT_APPLY_UV |
U uFld, vFld, Shap_tmpFld1, Shap_tmpFld2, |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
93 |
SHAP_FILT_APPLY_UV |
U uFld, vFld, Shap_tmpFld1, Shap_tmpFld2, |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
97 |
SHAP_FILT_APPLY_UV |
U uFld, vFld, Shap_tmpFld1, Shap_tmpFld2, |
|
./pkg/shap_filt/shap_filt_uv_s2g.F |
10 |
SHAP_FILT_UV_S2G |
U uFld, vFld, tmpFldU, tmpFldV, |
|
./pkg/shap_filt/shap_filt_uv_s2g.F |
143 |
SHAP_FILT_UV_S2G |
uFld(i,j,k,bi,bj)=uFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2g.F |
160 |
SHAP_FILT_UV_S2G |
CALL EXCH_UV_XYZ_RL(uFld,vFld,.TRUE.,myThid) |
|
./pkg/shap_filt/shap_filt_uv_s2g.F |
162 |
SHAP_FILT_UV_S2G |
CALL EXCH_UV_XY_RL(uFld,vFld,.TRUE.,myThid) |
|
./pkg/shap_filt/shap_filt_uv_s2g.F |
41 |
SHAP_FILT_UV_S2G |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,kSize,nSx,nSy) |
|
./pkg/shap_filt/shap_filt_uv_s2g.F |
68 |
SHAP_FILT_UV_S2G |
tmpFldU(i,j,k,bi,bj)=uFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
10 |
SHAP_FILT_UV_S4 |
U uFld, vFld, tmpFldU, tmpFldV, |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
138 |
SHAP_FILT_UV_S4 |
uFld(i,j,k,bi,bj)=uFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
140 |
SHAP_FILT_UV_S4 |
tmpFldU(i,j,k,bi,bj)=uFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
270 |
SHAP_FILT_UV_S4 |
uFld(i,j,k,bi,bj)=uFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
285 |
SHAP_FILT_UV_S4 |
CALL EXCH_UV_XYZ_RL(uFld,vFld,.TRUE.,myThid) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
287 |
SHAP_FILT_UV_S4 |
CALL EXCH_UV_XY_RL(uFld,vFld,.TRUE.,myThid) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
42 |
SHAP_FILT_UV_S4 |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,kSize,nSx,nSy) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
69 |
SHAP_FILT_UV_S4 |
tmpFldU(i,j,k,bi,bj)=uFld(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F |
61 |
GAD_FLUXLIMIT_ADV_X |
_RL uFld |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F |
73 |
GAD_FLUXLIMIT_ADV_X |
uFld = uTrans(i,j)*recip_dyG(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F |
97 |
GAD_FLUXLIMIT_ADV_X |
& +uTrans(i,j)*uFld*deltaT |
|
./pkg/generic_advdiff/gad_dst3_adv_x.F |
41 |
GAD_DST3_ADV_X |
_RL uFld |
|
./pkg/generic_advdiff/gad_dst3_adv_x.F |
61 |
GAD_DST3_ADV_X |
uFld = uTrans(i,j)*recip_dyG(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_dst3_adv_x.F |
63 |
GAD_DST3_ADV_X |
cfl=abs(uFld*deltaTloc*recip_dxC(i,j,bi,bj)) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
38 |
GAD_DST3FL_ADV_X |
_RL uFld |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
50 |
GAD_DST3FL_ADV_X |
uFld = uTrans(i,j)*recip_dyG(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
52 |
GAD_DST3FL_ADV_X |
cfl=abs(uFld*deltaT*recip_dxC(i,j,bi,bj)) |
|
./pkg/mom_fluxform/mom_u_xviscflux.F |
12 |
MOM_U_XVISCFLUX |
I uFld, del2u, |
|
./pkg/mom_fluxform/mom_u_xviscflux.F |
37 |
MOM_U_XVISCFLUX |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_fluxform/mom_u_xviscflux.F |
56 |
MOM_U_XVISCFLUX |
& -viscAh*(uFld(i+1,j)-uFld(i,j)) |
|
./pkg/mom_fluxform/mom_u_yviscflux.F |
12 |
MOM_U_YVISCFLUX |
I uFld, del2u, hFacZ, |
|
./pkg/mom_fluxform/mom_u_yviscflux.F |
37 |
MOM_U_YVISCFLUX |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_fluxform/mom_u_yviscflux.F |
57 |
MOM_U_YVISCFLUX |
& -viscAh*(uFld(i,j)-uFld(i,j-1)) |
|
./pkg/mom_fluxform/mom_u_metric_nh.F |
12 |
MOM_U_METRIC_NH |
I uFld, wFld, |
|
./pkg/mom_fluxform/mom_u_metric_nh.F |
36 |
MOM_U_METRIC_NH |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_fluxform/mom_u_metric_nh.F |
56 |
MOM_U_METRIC_NH |
uMetricTerms(i,j) = uFld(i,j)*recip_RSphere |
|
./pkg/mom_fluxform/mom_u_adv_uu.F |
12 |
MOM_U_ADV_UU |
I uTrans, uFld, |
|
./pkg/mom_fluxform/mom_u_adv_uu.F |
36 |
MOM_U_ADV_UU |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_fluxform/mom_u_adv_uu.F |
52 |
MOM_U_ADV_UU |
& *( uFld(i,j) + uFld(i+1,j) ) |
|
./pkg/mom_fluxform/mom_u_metric_cylinder.F |
12 |
MOM_U_METRIC_CYLINDER |
I uFld, vFld, |
|
./pkg/mom_fluxform/mom_u_metric_cylinder.F |
36 |
MOM_U_METRIC_CYLINDER |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_fluxform/mom_u_metric_cylinder.F |
57 |
MOM_U_METRIC_CYLINDER |
& uFld(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
121 |
MOM_FLUXFORM |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_fluxform/mom_fluxform.F |
253 |
MOM_FLUXFORM |
uFld(i,j) = uVel(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
261 |
MOM_FLUXFORM |
uTrans(i,j) = uFld(i,j)*xA(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
266 |
MOM_FLUXFORM |
CALL MOM_CALC_KE(bi,bj,k,3,uFld,vFld,KE,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
269 |
MOM_FLUXFORM |
CALL MOM_CALC_TENSION(bi,bj,k,uFld,vFld, |
|
./pkg/mom_fluxform/mom_fluxform.F |
272 |
MOM_FLUXFORM |
CALL MOM_CALC_STRAIN(bi,bj,k,uFld,vFld,hFacZ, |
|
./pkg/mom_fluxform/mom_fluxform.F |
320 |
MOM_FLUXFORM |
& CALL MOM_U_DEL2U(bi,bj,k,uFld,hFacZ,v4f,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
328 |
MOM_FLUXFORM |
& CALL MOM_U_ADV_UU(bi,bj,k,uTrans,uFld,aF,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
332 |
MOM_FLUXFORM |
& CALL MOM_U_XVISCFLUX(bi,bj,k,uFld,v4F,vF,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
345 |
MOM_FLUXFORM |
& CALL MOM_U_ADV_VU(bi,bj,k,vTrans,uFld,aF,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
349 |
MOM_FLUXFORM |
& CALL MOM_U_YVISCFLUX(bi,bj,k,uFld,v4F,hFacZ,vF,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
418 |
MOM_FLUXFORM |
CALL MOM_U_SIDEDRAG(bi,bj,k,uFld,v4F,hFacZ,vF,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
427 |
MOM_FLUXFORM |
CALL MOM_U_BOTTOMDRAG(bi,bj,k,uFld,KE,KappaRU,vF,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
444 |
MOM_FLUXFORM |
CALL MOM_U_METRIC_NH(bi,bj,k,uFld,wVel,mT,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
452 |
MOM_FLUXFORM |
CALL MOM_U_METRIC_SPHERE(bi,bj,k,uFld,vFld,mT,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
461 |
MOM_FLUXFORM |
CALL MOM_U_METRIC_CYLINDER(bi,bj,k,uFld,vFld,mT,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
613 |
MOM_FLUXFORM |
CALL MOM_V_METRIC_SPHERE(bi,bj,k,uFld,mT,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
621 |
MOM_FLUXFORM |
CALL MOM_V_METRIC_CYLINDER(bi,bj,k,uFld,vFld,mT,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
648 |
MOM_FLUXFORM |
CALL MOM_V_CORIOLIS(bi,bj,k,uFld,cf,myThid) |
|
./pkg/mom_fluxform/mom_v_metric_cylinder.F |
12 |
MOM_V_METRIC_CYLINDER |
I uFld, vFld, |
|
./pkg/mom_fluxform/mom_v_metric_cylinder.F |
36 |
MOM_V_METRIC_CYLINDER |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_fluxform/mom_v_metric_cylinder.F |
57 |
MOM_V_METRIC_CYLINDER |
& -0.25*(uFld(i,j) + uFld(i+1,j) + |
|
./pkg/mom_fluxform/mom_v_metric_cylinder.F |
58 |
MOM_V_METRIC_CYLINDER |
& uFld(i,j-1)+uFld(i+1,j-1)) |
|
./pkg/mom_fluxform/mom_v_metric_cylinder.F |
59 |
MOM_V_METRIC_CYLINDER |
& *0.25*(uFld(i,j) + uFld(i+1,j) + |
|
./pkg/mom_fluxform/mom_v_metric_cylinder.F |
60 |
MOM_V_METRIC_CYLINDER |
& uFld(i,j-1)+uFld(i+1,j-1))/radius |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
12 |
MOM_U_ADV_WU |
I uFld,wFld,rTrans, |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
37 |
MOM_U_ADV_WU |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
56 |
MOM_U_ADV_WU |
advectiveFluxWU(i,j) = rTrans(i,j)*uFld(i,j,k-1,bi,bj) |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
74 |
MOM_U_ADV_WU |
advectiveFluxWU(i,j) = rTrans(i,j)*uFld(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
84 |
MOM_U_ADV_WU |
& 0.5 _d 0*( uFld(i,j,k,bi,bj)+uFld(i,j,k-1,bi,bj) ) |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
98 |
MOM_U_ADV_WU |
& )*uFld(i,j,k,bi,bj) |
|
./model/src/integr_continuity.F |
11 |
INTEGR_CONTINUITY |
I bi, bj, uFld, vFld, |
|
./model/src/integr_continuity.F |
196 |
INTEGR_CONTINUITY |
I bi, bj, k, uFld, vFld, |
|
./model/src/integr_continuity.F |
46 |
INTEGR_CONTINUITY |
_RL uFld(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./model/src/integr_continuity.F |
85 |
INTEGR_CONTINUITY |
uTrans(i,j) = uFld(i,j,k,bi,bj)*_dyG(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_u_adv_vu.F |
12 |
MOM_U_ADV_VU |
I vTrans, uFld, |
|
./pkg/mom_fluxform/mom_u_adv_vu.F |
37 |
MOM_U_ADV_VU |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_fluxform/mom_u_adv_vu.F |
53 |
MOM_U_ADV_VU |
& *( uFld(i,j) + uFld(i,j-1) ) |
|
./pkg/mom_fluxform/mom_v_metric_sphere.F |
12 |
MOM_V_METRIC_SPHERE |
I uFld, |
|
./pkg/mom_fluxform/mom_v_metric_sphere.F |
35 |
MOM_V_METRIC_SPHERE |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_fluxform/mom_v_metric_sphere.F |
50 |
MOM_V_METRIC_SPHERE |
& *0.25*( uFld(i,j )+uFld(i+1,j ) |
|
./pkg/mom_fluxform/mom_v_metric_sphere.F |
51 |
MOM_V_METRIC_SPHERE |
& +uFld(i,j-1)+uFld(i+1,j-1) |
|
./pkg/mom_fluxform/mom_v_metric_sphere.F |
53 |
MOM_V_METRIC_SPHERE |
& *0.25*( uFld(i,j )+uFld(i+1,j ) |
|
./pkg/mom_fluxform/mom_v_metric_sphere.F |
54 |
MOM_V_METRIC_SPHERE |
& +uFld(i,j-1)+uFld(i+1,j-1) |
|
./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 |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
56 |
MOM_U_DEL2U |
& *(uFld(i+1,j)-uFld(i,j)) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
69 |
MOM_U_DEL2U |
& *(uFld(i,j)-uFld(i,j-1)) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
98 |
MOM_U_DEL2U |
& )*drF(k)*2.*uFld(i,j) |
|
./pkg/mom_fluxform/mom_v_coriolis.F |
11 |
MOM_V_CORIOLIS |
I bi,bj,k,uFld, |
|
./pkg/mom_fluxform/mom_v_coriolis.F |
36 |
MOM_V_CORIOLIS |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_fluxform/mom_v_coriolis.F |
56 |
MOM_V_CORIOLIS |
& *0.5*( uFld( i , j )+uFld(i+1, j ) ) |
|
./pkg/mom_fluxform/mom_v_coriolis.F |
58 |
MOM_V_CORIOLIS |
& *0.5*( uFld( i ,j-1)+uFld(i+1,j-1) ) ) |
|
./pkg/mom_fluxform/mom_v_coriolis.F |
67 |
MOM_V_CORIOLIS |
& *0.25*( uFld(i, j )+uFld(i+1, j ) |
|
./pkg/mom_fluxform/mom_v_coriolis.F |
68 |
MOM_V_CORIOLIS |
& +uFld(i,j-1)+uFld(i+1,j-1) |
|
./pkg/mom_fluxform/mom_u_metric_sphere.F |
12 |
MOM_U_METRIC_SPHERE |
I uFld, vFld, |
|
./pkg/mom_fluxform/mom_u_metric_sphere.F |
36 |
MOM_U_METRIC_SPHERE |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_fluxform/mom_u_metric_sphere.F |
52 |
MOM_U_METRIC_SPHERE |
& uFld(i,j)*recip_RSphere |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
25 |
MOM_VI_V_CORIOLIS |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
45 |
MOM_VI_V_CORIOLIS |
& uFld( i , j )*dyG( i , j ,bi,bj)*hFacW( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
46 |
MOM_VI_V_CORIOLIS |
& +uFld(i+1, j )*dyG(i+1, j ,bi,bj)*hFacW(i+1, j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
47 |
MOM_VI_V_CORIOLIS |
& +uFld( i ,j-1)*dyG( i ,j-1,bi,bj)*hFacW( i ,j-1,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
48 |
MOM_VI_V_CORIOLIS |
& +uFld(i+1,j-1)*dyG(i+1,j-1,bi,bj)*hFacW(i+1,j-1,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
61 |
MOM_VI_V_CORIOLIS |
& uFld( i , j )*dyG( i , j ,bi,bj)*hFacW( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
62 |
MOM_VI_V_CORIOLIS |
& +uFld( i ,j-1)*dyG( i ,j-1,bi,bj)*hFacW( i ,j-1,k,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
64 |
MOM_VI_V_CORIOLIS |
& uFld(i+1, j )*dyG(i+1, j ,bi,bj)*hFacW(i+1, j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
65 |
MOM_VI_V_CORIOLIS |
& +uFld(i+1,j-1)*dyG(i+1,j-1,bi,bj)*hFacW(i+1,j-1,k,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
81 |
MOM_VI_V_CORIOLIS |
& uFld( i , j )*dyG( i , j ,bi,bj)*hFacZ(i,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
82 |
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 |
83 |
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 |
84 |
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 |
8 |
MOM_VI_V_CORIOLIS |
I uFld,omega3,hFacZ,r_hFacZ, |
|
./pkg/mom_vecinv/mom_vecinv.F |
189 |
MOM_VECINV |
uFld(i,j) = uVel(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vecinv.F |
198 |
MOM_VECINV |
CALL MOM_CALC_KE(bi,bj,k,2,uFld,vFld,KE,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
200 |
MOM_VECINV |
CALL MOM_CALC_HDIV(bi,bj,k,2,uFld,vFld,hDiv,myThid) |
|
./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 |
237 |
MOM_VECINV |
CALL MOM_CALC_TENSION(bi,bj,k,uFld,vFld, |
|
./pkg/mom_vecinv/mom_vecinv.F |
240 |
MOM_VECINV |
CALL MOM_CALC_STRAIN(bi,bj,k,uFld,vFld,hFacZ, |
|
./pkg/mom_vecinv/mom_vecinv.F |
284 |
MOM_VECINV |
CALL MOM_U_SIDEDRAG(bi,bj,k,uFld,del2u,hFacZ,vF,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
294 |
MOM_VECINV |
CALL MOM_U_BOTTOMDRAG(bi,bj,k,uFld,KE,KappaRU,vF,myThid) |
|
./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 |
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 |
84 |
MOM_VECINV |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
25 |
MOM_VI_U_VERTSHEAR |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
74 |
MOM_VI_U_VERTSHEAR |
uZm=(uFld(I,J,K,bi,bj)-mask_Km1*uFld(I,J,Km1,bi,bj))*rkSign |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
81 |
MOM_VI_U_VERTSHEAR |
uZp=(mask_Kp1*uFld(I,J,Kp1,bi,bj)-uFld(I,J,K,bi,bj))*rkSign |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
8 |
MOM_VI_U_VERTSHEAR |
I uFld,wFld, |
|
./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 |
35 |
MOM_VI_V_CORIOLIS_C4 |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
63 |
MOM_VI_V_CORIOLIS_C4 |
& uFld( i , j )*dyG( i , j ,bi,bj)*hFacW( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
64 |
MOM_VI_V_CORIOLIS_C4 |
& +uFld( i ,j-1)*dyG( i ,j-1,bi,bj)*hFacW( i ,j-1,k,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
66 |
MOM_VI_V_CORIOLIS_C4 |
& uFld(i+1, j )*dyG(i+1, j ,bi,bj)*hFacW(i+1, j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
67 |
MOM_VI_V_CORIOLIS_C4 |
& +uFld(i+1,j-1)*dyG(i+1,j-1,bi,bj)*hFacW(i+1,j-1,k,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
91 |
MOM_VI_V_CORIOLIS_C4 |
& uFld( i , j )*dyG( i , j ,bi,bj)*hFacW( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
92 |
MOM_VI_V_CORIOLIS_C4 |
& +uFld(i+1, j )*dyG(i+1, j ,bi,bj)*hFacW(i+1, j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
93 |
MOM_VI_V_CORIOLIS_C4 |
& +uFld( i ,j-1)*dyG( i ,j-1,bi,bj)*hFacW( i ,j-1,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
94 |
MOM_VI_V_CORIOLIS_C4 |
& +uFld(i+1,j-1)*dyG(i+1,j-1,bi,bj)*hFacW(i+1,j-1,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
25 |
MOM_VI_CORIOLIS |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
76 |
MOM_VI_CORIOLIS |
& uFld( i , j )*dyG( i , j ,bi,bj)*hFacW( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
77 |
MOM_VI_CORIOLIS |
& +uFld( i ,j-1)*dyG( i ,j-1,bi,bj)*hFacW( i ,j-1,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
78 |
MOM_VI_CORIOLIS |
& +uFld(i+1, j )*dyG(i+1, j ,bi,bj)*hFacW(i+1, j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
79 |
MOM_VI_CORIOLIS |
& +uFld(i+1,j-1)*dyG(i+1,j-1,bi,bj)*hFacW(i+1,j-1,k,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
8 |
MOM_VI_CORIOLIS |
I uFld,vFld,hFacZ,r_hFacZ, |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
92 |
MOM_VI_CORIOLIS |
& uFld( i , j )*dyG( i , j ,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
93 |
MOM_VI_CORIOLIS |
& +uFld( i ,j-1)*dyG( i ,j-1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
94 |
MOM_VI_CORIOLIS |
& +uFld(i+1, j )*dyG(i+1, j ,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
95 |
MOM_VI_CORIOLIS |
& +uFld(i+1,j-1)*dyG(i+1,j-1,bi,bj) ) |