| File |
Line number |
Procedure |
Code |
|
./pkg/generic_advdiff/gad_advection.F |
17 |
GAD_ADVECTION |
I uFld, vFld, wFld, tracer, |
|
./pkg/generic_advdiff/gad_advection.F |
291 |
GAD_ADVECTION |
uTrans(i,j) = uFld(i,j,k)*xA(i,j)*rhoFacC(k) |
|
./pkg/generic_advdiff/gad_advection.F |
406 |
GAD_ADVECTION |
I deltaTLev(k),uTrans,uFld(1-OLx,1-OLy,k), localTij, |
|
./pkg/generic_advdiff/gad_advection.F |
410 |
GAD_ADVECTION |
I uTrans, uFld(1-OLx,1-OLy,k), maskLocW, localTij, |
|
./pkg/generic_advdiff/gad_advection.F |
414 |
GAD_ADVECTION |
I uTrans, uFld(1-OLx,1-OLy,k), maskLocW, localTij, |
|
./pkg/generic_advdiff/gad_advection.F |
418 |
GAD_ADVECTION |
I uTrans, uFld(1-OLx,1-OLy,k), maskLocW, localTij, |
|
./pkg/generic_advdiff/gad_advection.F |
423 |
GAD_ADVECTION |
I uTrans, uFld(1-OLx,1-OLy,k), maskLocW, localTij, |
|
./pkg/generic_advdiff/gad_advection.F |
429 |
GAD_ADVECTION |
I deltaTLev(k), uFld(1-OLx,1-OLy,k), uTrans, localTij, |
|
./pkg/generic_advdiff/gad_advection.F |
435 |
GAD_ADVECTION |
I deltaTLev(k), uFld(1-OLx,1-OLy,k), uTrans, localTij, |
|
./pkg/generic_advdiff/gad_advection.F |
76 |
GAD_ADVECTION |
_RL uFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
12 |
GAD_CALC_RHS |
I xA, yA, maskUp, uFld, vFld, wFld, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
221 |
GAD_CALC_RHS |
I deltaTLev(k), uTrans, uFld, locABT, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
235 |
GAD_CALC_RHS |
I uTrans, uFld, maskLocW, locABT, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
254 |
GAD_CALC_RHS |
I uTrans, uFld, maskLocW, locABT, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
258 |
GAD_CALC_RHS |
I uTrans, uFld, maskLocW, locABT, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
263 |
GAD_CALC_RHS |
I uTrans, uFld, maskLocW, locABT, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
93 |
GAD_CALC_RHS |
_RL uFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/generic_advdiff/gad_dst2u1_adv_x.F |
12 |
GAD_DST2U1_ADV_X |
I deltaTloc, uTrans, uFld, |
|
./pkg/generic_advdiff/gad_dst2u1_adv_x.F |
44 |
GAD_DST2U1_ADV_X |
_RL uFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/generic_advdiff/gad_dst2u1_adv_x.F |
69 |
GAD_DST2U1_ADV_X |
uCFL = uFld(i,j) |
|
./pkg/generic_advdiff/gad_dst2u1_adv_x.F |
70 |
GAD_DST2U1_ADV_X |
IF ( calcCFL ) uCFL = ABS( uFld(i,j)*deltaTloc |
|
./pkg/generic_advdiff/gad_dst3_adv_x.F |
12 |
GAD_DST3_ADV_X |
I uTrans, uFld, |
|
./pkg/generic_advdiff/gad_dst3_adv_x.F |
47 |
GAD_DST3_ADV_X |
_RL uFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/generic_advdiff/gad_dst3_adv_x.F |
85 |
GAD_DST3_ADV_X |
uCFL = uFld(i,j) |
|
./pkg/generic_advdiff/gad_dst3_adv_x.F |
86 |
GAD_DST3_ADV_X |
IF ( calcCFL ) uCFL = ABS( uFld(i,j)*deltaTloc |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
29 |
GAD_DST3FL_ADV_X |
_RL uFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
61 |
GAD_DST3FL_ADV_X |
uCFL = uFld(i,j) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
62 |
GAD_DST3FL_ADV_X |
IF ( calcCFL ) uCFL = ABS( uFld(i,j)*deltaTloc |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
8 |
GAD_DST3FL_ADV_X |
I uTrans, uFld, |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F |
12 |
GAD_FLUXLIMIT_ADV_X |
I uTrans, uFld, |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F |
48 |
GAD_FLUXLIMIT_ADV_X |
_RL uFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F |
76 |
GAD_FLUXLIMIT_ADV_X |
uCFL = uFld(i,j) |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F |
77 |
GAD_FLUXLIMIT_ADV_X |
IF ( calcCFL ) uCFL = ABS( uFld(i,j)*deltaTloc |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
29 |
GAD_OS7MP_ADV_X |
_RL uFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
65 |
GAD_OS7MP_ADV_X |
uLoc = uFld(i,j) |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
8 |
GAD_OS7MP_ADV_X |
I uTrans, uFld, |
|
./pkg/generic_advdiff/gad_som_advect.F |
14 |
GAD_SOM_ADVECT |
I uFld, vFld, wFld, tracer, |
|
./pkg/generic_advdiff/gad_som_advect.F |
256 |
GAD_SOM_ADVECT |
uTrans(i,j) = uFld(i,j,k)*xA(i,j)*rhoFacC(k) |
|
./pkg/generic_advdiff/gad_som_advect.F |
55 |
GAD_SOM_ADVECT |
_RL uFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/gmredi/gmredi_residual_flow.F |
10 |
GMREDI_RESIDUAL_FLOW |
U uFld, vFld, wFld, |
|
./pkg/gmredi/gmredi_residual_flow.F |
38 |
GMREDI_RESIDUAL_FLOW |
_RL uFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/gmredi/gmredi_residual_flow.F |
69 |
GMREDI_RESIDUAL_FLOW |
uFld(i,j,k) = uFld(i,j,k) |
|
./model/src/calc_adv_flow.F |
110 |
CALC_ADV_FLOW |
uTrans(i,j) = uFld(i,j,k)*xA(i,j)*rhoFacC(k) |
|
./model/src/calc_adv_flow.F |
11 |
CALC_ADV_FLOW |
I uFld, vFld, wFld, |
|
./model/src/calc_adv_flow.F |
53 |
CALC_ADV_FLOW |
_RL uFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/longstep/longstep_thermodynamics.F |
207 |
LONGSTEP_THERMODYNAMICS |
uFld(i,j,k) = LS_uVel(i,j,k,bi,bj) |
|
./pkg/longstep/longstep_thermodynamics.F |
217 |
LONGSTEP_THERMODYNAMICS |
U uFld, vFld, wFld, |
|
./pkg/longstep/longstep_thermodynamics.F |
232 |
LONGSTEP_THERMODYNAMICS |
I uFld, vFld, wFld, |
|
./pkg/longstep/longstep_thermodynamics.F |
83 |
LONGSTEP_THERMODYNAMICS |
_RL uFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./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 |
56 |
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 |
57 |
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_calc_ke.F |
110 |
MOM_CALC_KE |
& ( uFld( i , j )*uFld( i , j )*_hFacW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
111 |
MOM_CALC_KE |
& +uFld(i+1, j )*uFld(i+1, j )*_hFacW(i+1,j,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_ke.F |
124 |
MOM_CALC_KE |
& uFld(i, j )*uFld(i, j ) |
|
./pkg/mom_common/mom_calc_ke.F |
126 |
MOM_CALC_KE |
& +uFld(i+1,j)*uFld(i+1,j) |
|
./pkg/mom_common/mom_calc_ke.F |
12 |
MOM_CALC_KE |
I uFld, vFld, |
|
./pkg/mom_common/mom_calc_ke.F |
36 |
MOM_CALC_KE |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_common/mom_calc_ke.F |
68 |
MOM_CALC_KE |
& ( uFld(i,j)+uFld(i+1, j ) )**2 |
|
./pkg/mom_common/mom_calc_ke.F |
83 |
MOM_CALC_KE |
& ( uFld( i , j )*uFld( i , j ) |
|
./pkg/mom_common/mom_calc_ke.F |
84 |
MOM_CALC_KE |
& +uFld(i+1, j )*uFld(i+1, j ) ) |
|
./pkg/mom_common/mom_calc_ke.F |
96 |
MOM_CALC_KE |
& ( uFld(i, j )*uFld(i, j )*rAw(i ,j, bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
97 |
MOM_CALC_KE |
& +uFld(i+1,j)*uFld(i+1,j)*rAw(i+1,j,bi,bj) ) |
|
./pkg/mom_common/mom_calc_relvort3.F |
120 |
MOM_CALC_RELVORT3 |
& -uFld(I,J)*dxC(I,J,bi,bj) ) |
|
./pkg/mom_common/mom_calc_relvort3.F |
121 |
MOM_CALC_RELVORT3 |
& + uFld(I,J-1)*dxC(I,J-1,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
135 |
MOM_CALC_RELVORT3 |
& -uFld(I-1,J)*dxC(I-1,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
161 |
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 |
169 |
MOM_CALC_RELVORT3 |
& +uFld(I,J-1)*dxC(I,J-1,bi,bj) ) |
|
./pkg/mom_common/mom_calc_relvort3.F |
170 |
MOM_CALC_RELVORT3 |
& - uFld(I,J)*dxC(I,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
175 |
MOM_CALC_RELVORT3 |
& (+uFld(I,J-1)*dxC(I,J-1,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
176 |
MOM_CALC_RELVORT3 |
& -uFld(I,J)*dxC(I,J,bi,bj) ) |
|
./pkg/mom_common/mom_calc_relvort3.F |
192 |
MOM_CALC_RELVORT3 |
& -uFld(I+1,J)*dxC(I+1,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
218 |
MOM_CALC_RELVORT3 |
& (+uFld(I,J-1)*dxC(I,J-1,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
220 |
MOM_CALC_RELVORT3 |
& -uFld(I,J)*dxC(I,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
225 |
MOM_CALC_RELVORT3 |
& (-uFld(I,J)*dxC(I,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
226 |
MOM_CALC_RELVORT3 |
& +uFld(I,J-1)*dxC(I,J-1,bi,bj) ) |
|
./pkg/mom_common/mom_calc_relvort3.F |
233 |
MOM_CALC_RELVORT3 |
& -uFld(I,J)*dxC(I,J,bi,bj) ) |
|
./pkg/mom_common/mom_calc_relvort3.F |
234 |
MOM_CALC_RELVORT3 |
& + uFld(I,J-1)*dxC(I,J-1,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
250 |
MOM_CALC_RELVORT3 |
& +uFld(I-1,J-1)*dxC(I-1,J-1,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
275 |
MOM_CALC_RELVORT3 |
& (-uFld(I,J)*dxC(I,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
277 |
MOM_CALC_RELVORT3 |
& + uFld(I,J-1)*dxC(I,J-1,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
282 |
MOM_CALC_RELVORT3 |
& (+uFld(I,J-1)*dxC(I,J-1,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
283 |
MOM_CALC_RELVORT3 |
& -uFld(I,J)*dxC(I,J,bi,bj) ) |
|
./pkg/mom_common/mom_calc_relvort3.F |
300 |
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 |
61 |
MOM_CALC_RELVORT3 |
& -( uFld(I,J)*dxC(I,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
62 |
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_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) |
|
./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_quasihydrostatic.F |
102 |
MOM_QUASIHYDROSTATIC |
& ( (uFld( i ,j,k,bi,bj)*uFld( i ,j,k,bi,bj) |
|
./pkg/mom_common/mom_quasihydrostatic.F |
103 |
MOM_QUASIHYDROSTATIC |
& +uFld(i+1,j,k,bi,bj)*uFld(i+1,j,k,bi,bj)) |
|
./pkg/mom_common/mom_quasihydrostatic.F |
12 |
MOM_QUASIHYDROSTATIC |
I uFld, vFld, |
|
./pkg/mom_common/mom_quasihydrostatic.F |
39 |
MOM_QUASIHYDROSTATIC |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mom_common/mom_quasihydrostatic.F |
89 |
MOM_QUASIHYDROSTATIC |
& (uFld(i,j,k,bi,bj)+uFld(i+1,j,k,bi,bj)) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
143 |
MOM_U_BOTDRAG_IMPL |
& ( uFld( i , j ,k)*uFld( i , j ,k)*_hFacW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
144 |
MOM_U_BOTDRAG_IMPL |
& +uFld(i+1, j ,k)*uFld(i+1, j ,k)*_hFacW(i+1,j,k,bi,bj) ) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
14 |
MOM_U_BOTDRAG_IMPL |
I uFld, vFld, kappaRU, |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
165 |
MOM_U_BOTDRAG_IMPL |
uSq = uFld(i,j,k)*uFld(i,j,k) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
186 |
MOM_U_BOTDRAG_IMPL |
uSq = uFld(i,j,k)*uFld(i,j,k) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
193 |
MOM_U_BOTDRAG_IMPL |
uSq = uFld(i,j,k)*uFld(i,j,k) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
42 |
MOM_U_BOTDRAG_IMPL |
_RL uFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
106 |
MOM_U_BOTTOMDRAG |
& )*uFld(i,j) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
119 |
MOM_U_BOTTOMDRAG |
& )*uFld(i,j) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
129 |
MOM_U_BOTTOMDRAG |
& )*uFld(i,j) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
143 |
MOM_U_BOTTOMDRAG |
& *uFld(i,j) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
151 |
MOM_U_BOTTOMDRAG |
uSq = uFld(i,j)*uFld(i,j) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
15 |
MOM_U_BOTTOMDRAG |
I uFld, vFld, KE, kappaRU, |
|
./pkg/mom_common/mom_u_bottomdrag.F |
161 |
MOM_U_BOTTOMDRAG |
& *uFld(i,j) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
172 |
MOM_U_BOTTOMDRAG |
uSq = uFld(i,j)*uFld(i,j) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
179 |
MOM_U_BOTTOMDRAG |
uSq = uFld(i,j)*uFld(i,j) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
185 |
MOM_U_BOTTOMDRAG |
& *uFld(i,j) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
44 |
MOM_U_BOTTOMDRAG |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_common/mom_u_metric_nh.F |
12 |
MOM_U_METRIC_NH |
I uFld, wFld, |
|
./pkg/mom_common/mom_u_metric_nh.F |
36 |
MOM_U_METRIC_NH |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_common/mom_u_metric_nh.F |
56 |
MOM_U_METRIC_NH |
uMetricTerms(i,j) = uFld(i,j)*recip_rSphere*recip_deepFacC(k) |
|
./pkg/mom_common/mom_u_rviscflux.F |
12 |
MOM_U_RVISCFLUX |
I uFld, KappaRU, |
|
./pkg/mom_common/mom_u_rviscflux.F |
37 |
MOM_U_RVISCFLUX |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mom_common/mom_u_rviscflux.F |
63 |
MOM_U_RVISCFLUX |
& *( uFld(i,j,k,bi,bj)-uFld(i,j,k-1,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
121 |
MOM_U_SIDEDRAG |
& *( viscAh_Z(i,j )*uFld(i,j)*cosFacU(j,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
128 |
MOM_U_SIDEDRAG |
& *( viscAh_Z(i,j )*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 |
133 |
MOM_U_SIDEDRAG |
& *( viscAh_Z(i,j+1)*uFld(i,j)*cosFacU(j,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
140 |
MOM_U_SIDEDRAG |
& *( viscAh_Z(i,j+1)*uFld(i,j) |
|
./pkg/mom_common/mom_u_sidedrag.F |
40 |
MOM_U_SIDEDRAG |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_common/mom_u_sidedrag.F |
89 |
MOM_U_SIDEDRAG |
& viscAh*uFld(i,j)*cosFacU(j,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
96 |
MOM_U_SIDEDRAG |
& Ahtmp*uFld(i,j) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
143 |
MOM_V_BOTDRAG_IMPL |
& ( uFld( i , j ,k)*uFld( i , j ,k)*_hFacW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
144 |
MOM_V_BOTDRAG_IMPL |
& +uFld(i+1, j ,k)*uFld(i+1, j ,k)*_hFacW(i+1,j,k,bi,bj) ) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
14 |
MOM_V_BOTDRAG_IMPL |
I uFld, vFld, kappaRV, |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
166 |
MOM_V_BOTDRAG_IMPL |
& + ( (uFld( i ,j-1,k)*uFld( i ,j-1,k)*hFacW( i ,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
167 |
MOM_V_BOTDRAG_IMPL |
& +uFld( i , j ,k)*uFld( i , j ,k)*hFacW( i , j ,k,bi,bj)) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
168 |
MOM_V_BOTDRAG_IMPL |
& + (uFld(i+1,j-1,k)*uFld(i+1,j-1,k)*hFacW(i+1,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
169 |
MOM_V_BOTDRAG_IMPL |
& +uFld(i+1, j ,k)*uFld(i+1, j ,k)*hFacW(i+1, j ,k,bi,bj)) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
187 |
MOM_V_BOTDRAG_IMPL |
& +( (uFld( i ,j-1,k)*uFld( i ,j-1,k)*hFacW( i ,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
188 |
MOM_V_BOTDRAG_IMPL |
& +uFld( i , j ,k)*uFld( i , j ,k)*hFacW( i , j ,k,bi,bj)) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
189 |
MOM_V_BOTDRAG_IMPL |
& + (uFld(i+1,j-1,k)*uFld(i+1,j-1,k)*hFacW(i+1,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
190 |
MOM_V_BOTDRAG_IMPL |
& +uFld(i+1, j ,k)*uFld(i+1, j ,k)*hFacW(i+1, j ,k,bi,bj)) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
42 |
MOM_V_BOTDRAG_IMPL |
_RL uFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
152 |
MOM_V_BOTTOMDRAG |
& + ( (uFld( i ,j-1)*uFld( i ,j-1)*hFacW( i ,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
153 |
MOM_V_BOTTOMDRAG |
& +uFld( i , j )*uFld( i , j )*hFacW( i , j ,k,bi,bj)) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
154 |
MOM_V_BOTTOMDRAG |
& + (uFld(i+1,j-1)*uFld(i+1,j-1)*hFacW(i+1,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
155 |
MOM_V_BOTTOMDRAG |
& +uFld(i+1, j )*uFld(i+1, j )*hFacW(i+1, j ,k,bi,bj)) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
15 |
MOM_V_BOTTOMDRAG |
I uFld, vFld, KE, kappaRV, |
|
./pkg/mom_common/mom_v_bottomdrag.F |
173 |
MOM_V_BOTTOMDRAG |
& +( (uFld( i ,j-1)*uFld( i ,j-1)*hFacW( i ,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
174 |
MOM_V_BOTTOMDRAG |
& +uFld( i , j )*uFld( i , j )*hFacW( i , j ,k,bi,bj)) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
175 |
MOM_V_BOTTOMDRAG |
& + (uFld(i+1,j-1)*uFld(i+1,j-1)*hFacW(i+1,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
176 |
MOM_V_BOTTOMDRAG |
& +uFld(i+1, j )*uFld(i+1, j )*hFacW(i+1, j ,k,bi,bj)) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
44 |
MOM_V_BOTTOMDRAG |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_common/mom_w_coriolis_nh.F |
12 |
MOM_W_CORIOLIS_NH |
I uFld, vFld, |
|
./pkg/mom_common/mom_w_coriolis_nh.F |
36 |
MOM_W_CORIOLIS_NH |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mom_common/mom_w_coriolis_nh.F |
58 |
MOM_W_CORIOLIS_NH |
& (uFld(i,j,k-1,bi,bj)+uFld(i+1,j,k-1,bi,bj)) |
|
./pkg/mom_common/mom_w_coriolis_nh.F |
59 |
MOM_W_CORIOLIS_NH |
& + (uFld(i,j, k ,bi,bj)+uFld(i+1,j, k ,bi,bj)) |
|
./pkg/mom_common/mom_w_metric_nh.F |
12 |
MOM_W_METRIC_NH |
I uFld, vFld, |
|
./pkg/mom_common/mom_w_metric_nh.F |
36 |
MOM_W_METRIC_NH |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mom_common/mom_w_metric_nh.F |
55 |
MOM_W_METRIC_NH |
& ( (uFld( i ,j,k-1,bi,bj)*uFld( i ,j,k-1,bi,bj) |
|
./pkg/mom_common/mom_w_metric_nh.F |
56 |
MOM_W_METRIC_NH |
& +uFld(i+1,j,k-1,bi,bj)*uFld(i+1,j,k-1,bi,bj)) |
|
./pkg/mom_common/mom_w_metric_nh.F |
60 |
MOM_W_METRIC_NH |
& + ( (uFld( i ,j, k ,bi,bj)*uFld( i ,j, k ,bi,bj) |
|
./pkg/mom_common/mom_w_metric_nh.F |
61 |
MOM_W_METRIC_NH |
& +uFld(i+1,j, k ,bi,bj)*uFld(i+1,j, k ,bi,bj)) |
|
./pkg/mom_fluxform/mom_fluxform.F |
140 |
MOM_FLUXFORM |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_fluxform/mom_fluxform.F |
294 |
MOM_FLUXFORM |
uFld(i,j) = uVel(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
303 |
MOM_FLUXFORM |
uTrans(i,j) = uFld(i,j)*xA(i,j)*rhoFacC(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
308 |
MOM_FLUXFORM |
CALL MOM_CALC_KE( bi,bj,k,2,uFld,vFld,KE,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
310 |
MOM_FLUXFORM |
CALL MOM_CALC_HDIV( bi,bj,k,2,uFld,vFld,hDiv,myThid ) |
|
./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 |
312 |
MOM_FLUXFORM |
CALL MOM_CALC_TENSION( bi,bj,k,uFld,vFld,tension,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 |
423 |
MOM_FLUXFORM |
CALL MOM_U_ADV_UU( bi,bj,k,uTrans,uFld,fZon,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
427 |
MOM_FLUXFORM |
CALL MOM_U_ADV_VU( bi,bj,k,vTrans,uFld,fMer,myThid ) |
|
./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 |
519 |
MOM_FLUXFORM |
CALL MOM_U_XVISCFLUX( bi,bj,k,uFld,v4F,fZon, |
|
./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 |
565 |
MOM_FLUXFORM |
I uFld, v4f, h0FacZ, |
|
./pkg/mom_fluxform/mom_fluxform.F |
579 |
MOM_FLUXFORM |
I uFld, vFld, KE, kappaRU, |
|
./pkg/mom_fluxform/mom_fluxform.F |
592 |
MOM_FLUXFORM |
I uFld, vFld, KE, kappaRU, |
|
./pkg/mom_fluxform/mom_fluxform.F |
615 |
MOM_FLUXFORM |
CALL MOM_U_METRIC_NH( bi,bj,k,uFld,wVel,mT,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
624 |
MOM_FLUXFORM |
CALL MOM_U_METRIC_SPHERE( bi,bj,k,uFld,vFld,mT,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
633 |
MOM_FLUXFORM |
CALL MOM_U_METRIC_CYLINDER( bi,bj,k,uFld,vFld,mT,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
811 |
MOM_FLUXFORM |
I uFld, vFld, KE, kappaRV, |
|
./pkg/mom_fluxform/mom_fluxform.F |
824 |
MOM_FLUXFORM |
I uFld, vFld, KE, kappaRV, |
|
./pkg/mom_fluxform/mom_fluxform.F |
856 |
MOM_FLUXFORM |
CALL MOM_V_METRIC_SPHERE( bi,bj,k,uFld,mT,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
865 |
MOM_FLUXFORM |
CALL MOM_V_METRIC_CYLINDER( bi,bj,k,uFld,vFld,mT,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
887 |
MOM_FLUXFORM |
CALL MOM_V_CORIOLIS( bi,bj,k,uFld,cf,myThid ) |
|
./pkg/mom_fluxform/mom_u_adv_uu.F |
12 |
MOM_U_ADV_UU |
I uTrans, uFld, |
|
./pkg/mom_fluxform/mom_u_adv_uu.F |
37 |
MOM_U_ADV_UU |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_fluxform/mom_u_adv_uu.F |
54 |
MOM_U_ADV_UU |
& *( uFld(i,j)*_maskW(i+1,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_u_adv_uu.F |
55 |
MOM_U_ADV_UU |
& + uFld(i+1,j)*_maskW(i,j,k,bi,bj) ) |
|
./pkg/mom_fluxform/mom_u_adv_uu.F |
57 |
MOM_U_ADV_UU |
& *( uFld(i,j) + uFld(i+1,j) ) |
|
./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 |
54 |
MOM_U_ADV_VU |
& *( uFld(i,j)*_maskW(i,j-1,k,bi,bj) |
|
./pkg/mom_fluxform/mom_u_adv_vu.F |
55 |
MOM_U_ADV_VU |
& + uFld(i,j-1)*_maskW(i,j,k,bi,bj) ) |
|
./pkg/mom_fluxform/mom_u_adv_vu.F |
57 |
MOM_U_ADV_VU |
& *( uFld(i,j) + uFld(i,j-1) ) |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
104 |
MOM_U_ADV_WU |
& *uFld(i,j,k,bi,bj) |
|
./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 |
55 |
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 |
73 |
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)*_maskW(i,j,k-1,bi,bj) |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
85 |
MOM_U_ADV_WU |
& +uFld(i,j,k-1,bi,bj)*_maskW(i,j,k,bi,bj) ) |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
87 |
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_del2u.F |
118 |
MOM_U_DEL2U |
& )*uFld(i,j)*sideDragFactor |
|
./pkg/mom_fluxform/mom_u_del2u.F |
12 |
MOM_U_DEL2U |
I uFld, hFacZ, h0FacZ, |
|
./pkg/mom_fluxform/mom_u_del2u.F |
35 |
MOM_U_DEL2U |
_RL uFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
58 |
MOM_U_DEL2U |
& *(uFld(i+1,j)-uFld(i,j)) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
76 |
MOM_U_DEL2U |
& *(uFld(i,j)-uFld(i,j-1)) |
|
./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_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*recip_deepFacC(k) |
|
./pkg/mom_fluxform/mom_u_xviscflux.F |
12 |
MOM_U_XVISCFLUX |
I uFld, del2u, |
|
./pkg/mom_fluxform/mom_u_xviscflux.F |
38 |
MOM_U_XVISCFLUX |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_fluxform/mom_u_xviscflux.F |
59 |
MOM_U_XVISCFLUX |
& -viscAh_D(i,j)*( 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 |
38 |
MOM_U_YVISCFLUX |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_fluxform/mom_u_yviscflux.F |
60 |
MOM_U_YVISCFLUX |
& -viscAh_Z(i,j)*( uFld(i,j)-uFld(i,j-1) ) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
12 |
MOM_UV_BOUNDARY |
I uFld, vFld, |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
135 |
MOM_UV_BOUNDARY |
& *(uFld(i-1,j,k,bi,bj)+uFld(i+1,j,k,bi,bj)) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
137 |
MOM_UV_BOUNDARY |
& *(uFld(i,j-1,k,bi,bj)+uFld(i,j+1,k,bi,bj)) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
139 |
MOM_UV_BOUNDARY |
& *(uFld(i,j,km1,bi,bj)*maskM1 |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
140 |
MOM_UV_BOUNDARY |
& +uFld(i,j,kp1,bi,bj)*maskP1) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
39 |
MOM_UV_BOUNDARY |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
70 |
MOM_UV_BOUNDARY |
uBnd(i,j) = uFld(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
95 |
MOM_UV_BOUNDARY |
uTrans(i,j) = uFld(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_v_coriolis.F |
11 |
MOM_V_CORIOLIS |
I bi,bj,k,uFld, |
|
./pkg/mom_fluxform/mom_v_coriolis.F |
35 |
MOM_V_CORIOLIS |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_fluxform/mom_v_coriolis.F |
55 |
MOM_V_CORIOLIS |
& *0.5*( uFld( i , j )+uFld(i+1, j ) ) |
|
./pkg/mom_fluxform/mom_v_coriolis.F |
57 |
MOM_V_CORIOLIS |
& *0.5*( uFld( i ,j-1)+uFld(i+1,j-1) ) ) |
|
./pkg/mom_fluxform/mom_v_coriolis.F |
66 |
MOM_V_CORIOLIS |
& *0.25*( uFld(i, j )+uFld(i+1, j ) |
|
./pkg/mom_fluxform/mom_v_coriolis.F |
67 |
MOM_V_CORIOLIS |
& +uFld(i,j-1)+uFld(i+1,j-1) |
|
./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_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_vecinv/mom_vecinv.F |
103 |
MOM_VECINV |
_RL uFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_vecinv/mom_vecinv.F |
247 |
MOM_VECINV |
uFld(i,j) = uVel(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vecinv.F |
271 |
MOM_VECINV |
CALL MOM_CALC_KE(bi,bj,k,selectKEscheme,uFld,vFld,KE,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 |
330 |
MOM_VECINV |
CALL MOM_CALC_HDIV(bi,bj,k,2,uFld,vFld,hDiv,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
333 |
MOM_VECINV |
CALL MOM_CALC_TENSION( bi,bj,k,uFld,vFld,tension,myThid ) |
|
./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 |
478 |
MOM_VECINV |
I uFld, del2u, h0FacZ, |
|
./pkg/mom_vecinv/mom_vecinv.F |
493 |
MOM_VECINV |
I uFld, vFld, KE, kappaRU, |
|
./pkg/mom_vecinv/mom_vecinv.F |
505 |
MOM_VECINV |
I uFld, vFld, KE, kappaRU, |
|
./pkg/mom_vecinv/mom_vecinv.F |
564 |
MOM_VECINV |
I uFld, vFld, KE, kappaRV, |
|
./pkg/mom_vecinv/mom_vecinv.F |
576 |
MOM_VECINV |
I uFld, vFld, KE, kappaRV, |
|
./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 |
696 |
MOM_VECINV |
& uFld,omega3,r_hFacZ, |
|
./pkg/mom_vecinv/mom_vecinv.F |
701 |
MOM_VECINV |
& uFld,vort3, 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_vecinv.F |
829 |
MOM_VECINV |
CALL MOM_U_METRIC_NH(bi,bj,k,uFld,wVel,uCf,myThid) |
|
./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 |
77 |
MOM_VI_CORIOLIS |
& (uFld( i , j )*dyG( i , j ,bi,bj)*_hFacW( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
78 |
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 |
79 |
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 |
80 |
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 |
93 |
MOM_VI_CORIOLIS |
& (uFld( i , j )*dyG( i , j ,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
94 |
MOM_VI_CORIOLIS |
& +uFld( i ,j-1)*dyG( i ,j-1,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
95 |
MOM_VI_CORIOLIS |
& +(uFld(i+1, j )*dyG(i+1, j ,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
96 |
MOM_VI_CORIOLIS |
& +uFld(i+1,j-1)*dyG(i+1,j-1,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
103 |
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 |
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 |
8 |
MOM_VI_U_VERTSHEAR |
I uFld,wFld, |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
96 |
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_v_coriolis.F |
119 |
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 |
120 |
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 |
122 |
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 |
123 |
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 |
12 |
MOM_VI_V_CORIOLIS |
I uFld, omega3, hFacZ, r_hFacZ, |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
154 |
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 |
160 |
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 |
166 |
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 |
172 |
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 |
35 |
MOM_VI_V_CORIOLIS |
_RL uFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
68 |
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 |
69 |
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 |
70 |
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 |
71 |
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 |
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_c4.F |
12 |
MOM_VI_V_CORIOLIS_C4 |
I uFld,omega3,r_hFacZ, |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
132 |
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 |
133 |
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 |
134 |
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 |
135 |
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 |
173 |
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 |
174 |
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 |
176 |
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 |
177 |
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 |
39 |
MOM_VI_V_CORIOLIS_C4 |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/monitor/mon_calc_advcfl.F |
18 |
MON_CALC_ADVCFL_TILE |
I uFld, vFld, wFld, dT_lev, |
|
./pkg/monitor/mon_calc_advcfl.F |
45 |
MON_CALC_ADVCFL_TILE |
_RL uFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,myNr) |
|
./pkg/monitor/mon_calc_advcfl.F |
78 |
MON_CALC_ADVCFL_TILE |
uTrans(i,j) = uFld(i,j,k)*dyG(i,j,bi,bj)*deepFacC(k) |
|
./pkg/obcs/obcs_adjust_uvice.F |
104 |
OBCS_ADJUST_UVICE |
uFld(I,OB_Js(I,bi,bj)+1,bi,bj) = |
|
./pkg/obcs/obcs_adjust_uvice.F |
106 |
OBCS_ADJUST_UVICE |
& uFld(I,OB_Js(I,bi,bj)+2,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
10 |
OBCS_ADJUST_UVICE |
U uFld, vFld, |
|
./pkg/obcs/obcs_adjust_uvice.F |
119 |
OBCS_ADJUST_UVICE |
uFld(I,OB_Js(I,bi,bj),bi,bj)=OBSuice(I,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
132 |
OBCS_ADJUST_UVICE |
& uFld(I,OB_Js(I,bi,bj)+1,bi,bj) = 0.5 _d 0 * |
|
./pkg/obcs/obcs_adjust_uvice.F |
133 |
OBCS_ADJUST_UVICE |
& ( uFld(I,OB_Js(I,bi,bj) ,bi,bj) + |
|
./pkg/obcs/obcs_adjust_uvice.F |
134 |
OBCS_ADJUST_UVICE |
& uFld(I,OB_Js(I,bi,bj)+2,bi,bj) ) * |
|
./pkg/obcs/obcs_adjust_uvice.F |
150 |
OBCS_ADJUST_UVICE |
uFld(OB_Ie(J,bi,bj),J,bi,bj) = |
|
./pkg/obcs/obcs_adjust_uvice.F |
152 |
OBCS_ADJUST_UVICE |
& uFld(OB_Ie(J,bi,bj)-1,J,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
158 |
OBCS_ADJUST_UVICE |
uFld(OB_Ie(J,bi,bj),J,bi,bj)= |
|
./pkg/obcs/obcs_adjust_uvice.F |
159 |
OBCS_ADJUST_UVICE |
& max(OBEuice(J,bi,bj),uFld(OB_Ie(J,bi,bj),J,bi,bj)) |
|
./pkg/obcs/obcs_adjust_uvice.F |
162 |
OBCS_ADJUST_UVICE |
uFld(OB_Ie(J,bi,bj),J,bi,bj)=OBEuice(J,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
170 |
OBCS_ADJUST_UVICE |
& uFld(OB_Ie(J,bi,bj)-1,J,bi,bj) = 0.5 _d 0 * |
|
./pkg/obcs/obcs_adjust_uvice.F |
171 |
OBCS_ADJUST_UVICE |
& ( uFld(OB_Ie(J,bi,bj) ,J,bi,bj) + |
|
./pkg/obcs/obcs_adjust_uvice.F |
172 |
OBCS_ADJUST_UVICE |
& uFld(OB_Ie(J,bi,bj)-2,J,bi,bj) ) * |
|
./pkg/obcs/obcs_adjust_uvice.F |
195 |
OBCS_ADJUST_UVICE |
uFld(OB_Iw(J,bi,bj)+1,J,bi,bj)= |
|
./pkg/obcs/obcs_adjust_uvice.F |
197 |
OBCS_ADJUST_UVICE |
& uFld(OB_Iw(J,bi,bj)+2,J,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
208 |
OBCS_ADJUST_UVICE |
uFld(OB_Iw(J,bi,bj)+1,J,bi,bj)= |
|
./pkg/obcs/obcs_adjust_uvice.F |
209 |
OBCS_ADJUST_UVICE |
& min(OBWuice(J,bi,bj),uFld(OB_Iw(J,bi,bj)+1,J,bi,bj)) |
|
./pkg/obcs/obcs_adjust_uvice.F |
212 |
OBCS_ADJUST_UVICE |
uFld(OB_Iw(J,bi,bj)+1,J,bi,bj)=OBWuice(J,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
220 |
OBCS_ADJUST_UVICE |
& uFld(OB_Iw(J,bi,bj)+2,J,bi,bj) = 0.5 _d 0 * |
|
./pkg/obcs/obcs_adjust_uvice.F |
221 |
OBCS_ADJUST_UVICE |
& ( uFld(OB_Iw(J,bi,bj)+1,J,bi,bj) + |
|
./pkg/obcs/obcs_adjust_uvice.F |
222 |
OBCS_ADJUST_UVICE |
& uFld(OB_Iw(J,bi,bj)+3,J,bi,bj) ) * |
|
./pkg/obcs/obcs_adjust_uvice.F |
242 |
OBCS_ADJUST_UVICE |
CALL EXCH_UV_XY_RL( uFld, vFld, .TRUE., myThid ) |
|
./pkg/obcs/obcs_adjust_uvice.F |
31 |
OBCS_ADJUST_UVICE |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/obcs/obcs_adjust_uvice.F |
54 |
OBCS_ADJUST_UVICE |
uFld(I,OB_Jn(I,bi,bj) ,bi,bj) = |
|
./pkg/obcs/obcs_adjust_uvice.F |
56 |
OBCS_ADJUST_UVICE |
& uFld(I,OB_Jn(I,bi,bj)-1,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
69 |
OBCS_ADJUST_UVICE |
uFld(I,OB_Jn(I,bi,bj),bi,bj) = OBNuice(I,bi,bj) * |
|
./pkg/obcs/obcs_adjust_uvice.F |
82 |
OBCS_ADJUST_UVICE |
& uFld(I,OB_Jn(I,bi,bj)-1,bi,bj) = 0.5 _d 0 * |
|
./pkg/obcs/obcs_adjust_uvice.F |
83 |
OBCS_ADJUST_UVICE |
& ( uFld(I,OB_Jn(I,bi,bj) ,bi,bj) + |
|
./pkg/obcs/obcs_adjust_uvice.F |
84 |
OBCS_ADJUST_UVICE |
& uFld(I,OB_Jn(I,bi,bj)-2,bi,bj) ) * |
|
./pkg/obcs/obcs_apply_uv.F |
104 |
OBCS_APPLY_UV |
uFld(i,Jobc,k,bi,bj) = OBSu(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
10 |
OBCS_APPLY_UV |
U uFld, vFld, |
|
./pkg/obcs/obcs_apply_uv.F |
187 |
OBCS_APPLY_UV |
uFld(Iobc,j,k,bi,bj) = OBEu(j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
189 |
OBCS_APPLY_UV |
uFld(Iobc+1,j,k,bi,bj) = OBEu(j,K,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
204 |
OBCS_APPLY_UV |
uFld(Iobc+1,j,k,bi,bj) = OBWu(j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
206 |
OBCS_APPLY_UV |
uFld(Iobc,j,k,bi,bj) = OBWu(j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
40 |
OBCS_APPLY_UV |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_apply_uv.F |
90 |
OBCS_APPLY_UV |
uFld(i,Jobc,k,bi,bj) = OBNu(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
13 |
OBCS_APPLY_UVICE |
U uFld, vFld, |
|
./pkg/obcs/obcs_apply_uvice.F |
174 |
OBCS_APPLY_UVICE |
uFld(Iobc,j,bi,bj) = OBEuice(j,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
177 |
OBCS_APPLY_UVICE |
& uFld(Iobc+1,j,bi,bj) = OBEuice(j,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
191 |
OBCS_APPLY_UVICE |
uFld(Iobc+1,j,bi,bj) = OBWuice(j,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
194 |
OBCS_APPLY_UVICE |
& uFld(Iobc,j,bi,bj) = OBWuice(j,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
205 |
OBCS_APPLY_UVICE |
CALL EXCH_UV_XY_RL( uFld, vFld,.TRUE.,myThid) |
|
./pkg/obcs/obcs_apply_uvice.F |
42 |
OBCS_APPLY_UVICE |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/obcs/obcs_apply_uvice.F |
83 |
OBCS_APPLY_UVICE |
uFld(i,Jobc,bi,bj) = OBNuice(i,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
96 |
OBCS_APPLY_UVICE |
uFld(i,Jobc,bi,bj) = OBSuice(i,bi,bj) |
|
./pkg/obcs/obcs_copy_uv_n.F |
111 |
OBCS_COPY_UV_N |
uFld(i,j,k) = uFld(Iobc+1,j,k) |
|
./pkg/obcs/obcs_copy_uv_n.F |
11 |
OBCS_COPY_UV_N |
U uFld, vFld, |
|
./pkg/obcs/obcs_copy_uv_n.F |
40 |
OBCS_COPY_UV_N |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,kSiz) |
|
./pkg/obcs/obcs_copy_uv_n.F |
95 |
OBCS_COPY_UV_N |
uFld(i,j,k) = uFld(Iobc,j,k) |
|
./pkg/obcs/obcs_save_uv_n.F |
102 |
OBCS_SAVE_UV_N |
OBEuStevens(j,k,bi,bj) = uFld(Iobc,j,k,bi,bj) |
|
./pkg/obcs/obcs_save_uv_n.F |
10 |
OBCS_SAVE_UV_N |
I uFld, vFld, |
|
./pkg/obcs/obcs_save_uv_n.F |
116 |
OBCS_SAVE_UV_N |
OBWuStevens(j,k,bi,bj) = uFld(Iobc+1,j,k,bi,bj) |
|
./pkg/obcs/obcs_save_uv_n.F |
44 |
OBCS_SAVE_UV_N |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/diags_rho.F |
104 |
DIAGS_RHO_G |
I rho3d, uFld, vFld, wFld, |
|
./model/src/diags_rho.F |
133 |
DIAGS_RHO_G |
_RL uFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/diags_rho.F |
169 |
DIAGS_RHO_G |
tmpFld(i,j) = uFld(i,j,k,bi,bj)*_hFacW(i,j,k,bi,bj) |
|
./pkg/ptracers/ptracers_integrate.F |
15 |
PTRACERS_INTEGRATE |
I uFld, vFld, wFld, |
|
./pkg/ptracers/ptracers_integrate.F |
242 |
PTRACERS_INTEGRATE |
I PTRACERS_dTLev, uFld, vFld, wFld, |
|
./pkg/ptracers/ptracers_integrate.F |
259 |
PTRACERS_INTEGRATE |
I PTRACERS_dTLev, uFld, vFld, wFld, |
|
./pkg/ptracers/ptracers_integrate.F |
287 |
PTRACERS_INTEGRATE |
I uFld, vFld, wFld, |
|
./pkg/ptracers/ptracers_integrate.F |
315 |
PTRACERS_INTEGRATE |
I xA, yA, maskUp, uFld(1-OLx,1-OLy,k), |
|
./pkg/ptracers/ptracers_integrate.F |
54 |
PTRACERS_INTEGRATE |
_RL uFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/seaice/seaice_advection.F |
20 |
SEAICE_ADVECTION |
I uFld, vFld, uTrans, vTrans, iceFld, r_hFld, |
|
./pkg/seaice/seaice_advection.F |
369 |
SEAICE_ADVECTION |
I SEAICE_deltaTtherm, uTrans, uFld, localTij, |
|
./pkg/seaice/seaice_advection.F |
379 |
SEAICE_ADVECTION |
I SEAICE_deltaTtherm, uTrans, uFld, maskLocW, localTij, |
|
./pkg/seaice/seaice_advection.F |
383 |
SEAICE_ADVECTION |
I SEAICE_deltaTtherm, uTrans, uFld, maskLocW, localTij, |
|
./pkg/seaice/seaice_advection.F |
387 |
SEAICE_ADVECTION |
I SEAICE_deltaTtherm, uTrans, uFld, maskLocW, localTij, |
|
./pkg/seaice/seaice_advection.F |
392 |
SEAICE_ADVECTION |
I SEAICE_deltaTtherm, uTrans, uFld, maskLocW, localTij, |
|
./pkg/seaice/seaice_advection.F |
87 |
SEAICE_ADVECTION |
_RL uFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/seaice/seaice_calc_strainrates.F |
103 |
SEAICE_CALC_STRAINRATES |
& (uFld(i+1,j,bi,bj)-uFld(i,j,bi,bj)) |
|
./pkg/seaice/seaice_calc_strainrates.F |
104 |
SEAICE_CALC_STRAINRATES |
uave(i,j) = 0.5 _d 0 * (uFld(i,j,bi,bj)+uFld(i+1,j,bi,bj)) |
|
./pkg/seaice/seaice_calc_strainrates.F |
135 |
SEAICE_CALC_STRAINRATES |
dudy(i,j) = ( uFld(i,j,bi,bj) - uFld(i ,j-1,bi,bj) ) |
|
./pkg/seaice/seaice_calc_strainrates.F |
137 |
SEAICE_CALC_STRAINRATES |
uave(i,j) = 0.5 _d 0 * (uFld(i,j,bi,bj)+uFld(i ,j-1,bi,bj)) |
|
./pkg/seaice/seaice_calc_strainrates.F |
18 |
SEAICE_CALC_STRAINRATES |
I uFld, vFld, |
|
./pkg/seaice/seaice_calc_strainrates.F |
193 |
SEAICE_CALC_STRAINRATES |
& - uFld(i,j-2,bi,bj)*_maskW(i,j-1,k,bi,bj) |
|
./pkg/seaice/seaice_calc_strainrates.F |
194 |
SEAICE_CALC_STRAINRATES |
& - uFld(i,j+1,bi,bj)*_maskW(i,j ,k,bi,bj) ) * hFacU |
|
./pkg/seaice/seaice_calc_strainrates.F |
58 |
SEAICE_CALC_STRAINRATES |
_RL uFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/seaice_lsr.F |
1013 |
SEAICE_RESIDUAL |
I AU, BU, CU, AV, BV, CV, uFld, vFld, |
|
./pkg/seaice/seaice_lsr.F |
1056 |
SEAICE_RESIDUAL |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/seaice_lsr.F |
1086 |
SEAICE_RESIDUAL |
& + uRt1(i,j,bi,bj)*uFld(i,j-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1087 |
SEAICE_RESIDUAL |
& + uRt2(i,j,bi,bj)*uFld(i,j+1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1088 |
SEAICE_RESIDUAL |
& - ( AU(i,j,bi,bj)*uFld(i-1,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1089 |
SEAICE_RESIDUAL |
& + BU(i,j,bi,bj)*uFld( i ,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1090 |
SEAICE_RESIDUAL |
& + CU(i,j,bi,bj)*uFld(i+1,j,bi,bj) |
|
./pkg/seaice/seaice_mom_advection.F |
136 |
SEAICE_MOM_ADVECTION |
uFld(i,j) = uIceLoc(i,j,bi,bj) |
|
./pkg/seaice/seaice_mom_advection.F |
152 |
SEAICE_MOM_ADVECTION |
CALL MOM_CALC_KE(bi,bj,k,SEAICEselectKEscheme,uFld,vFld,KE,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 |
204 |
SEAICE_MOM_ADVECTION |
& uFld,vort3,r_hFacZ, |
|
./pkg/seaice/seaice_mom_advection.F |
209 |
SEAICE_MOM_ADVECTION |
& uFld,vort3,hFacZ,r_hFacZ, |
|
./pkg/seaice/seaice_mom_advection.F |
73 |
SEAICE_MOM_ADVECTION |
_RL uFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
101 |
SHAP_FILT_APPLY_UV |
U uFld, vFld, Shap_tmpFld1, Shap_tmpFld2, |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
109 |
SHAP_FILT_APPLY_UV |
U uFld, vFld, Shap_tmpFld1, Shap_tmpFld2, |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
10 |
SHAP_FILT_APPLY_UV |
U uFld, vFld, |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
153 |
SHAP_FILT_APPLY_UV |
& Shap_tmpFld1(i ,j,k,bi,bj)*uFld(i ,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
155 |
SHAP_FILT_APPLY_UV |
& +Shap_tmpFld1(i+1,j,k,bi,bj)*uFld(i+1,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
42 |
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 |
76 |
SHAP_FILT_APPLY_UV |
_EXCH_XYZ_RL( uFld,myThid ) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
82 |
SHAP_FILT_APPLY_UV |
CALL SHAP_FILT_U( uFld,bi,bj,k,myTime,myThid ) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
88 |
SHAP_FILT_APPLY_UV |
_EXCH_XYZ_RL( uFld,myThid ) |
|
./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_computvort.F |
109 |
SHAP_FILT_COMPUTVORT |
& (+vFld(i,j) -uFld(i,j) ) +uFld(i,j-1) |
|
./pkg/shap_filt/shap_filt_computvort.F |
10 |
SHAP_FILT_COMPUTVORT |
I uFld, vFld, |
|
./pkg/shap_filt/shap_filt_computvort.F |
124 |
SHAP_FILT_COMPUTVORT |
& (-uFld(i,j) -vFld(i-1,j) ) +uFld(i,j-1) |
|
./pkg/shap_filt/shap_filt_computvort.F |
127 |
SHAP_FILT_COMPUTVORT |
& (-vFld(i-1,j) +uFld(i,j-1) ) -uFld(i,j) |
|
./pkg/shap_filt/shap_filt_computvort.F |
130 |
SHAP_FILT_COMPUTVORT |
& (+uFld(i,j-1) -uFld(i,j) ) -vFld(i-1,j) |
|
./pkg/shap_filt/shap_filt_computvort.F |
146 |
SHAP_FILT_COMPUTVORT |
& (+uFld(i,j-1) +vFld(i,j) ) -uFld(i,j) |
|
./pkg/shap_filt/shap_filt_computvort.F |
149 |
SHAP_FILT_COMPUTVORT |
& (-uFld(i,j) +uFld(i,j-1) ) +vFld(i,j) |
|
./pkg/shap_filt/shap_filt_computvort.F |
152 |
SHAP_FILT_COMPUTVORT |
& (+vFld(i,j) -uFld(i,j) ) +uFld(i,j-1) |
|
./pkg/shap_filt/shap_filt_computvort.F |
168 |
SHAP_FILT_COMPUTVORT |
& (-uFld(i,j) -vFld(i-1,j) ) +uFld(i,j-1) |
|
./pkg/shap_filt/shap_filt_computvort.F |
171 |
SHAP_FILT_COMPUTVORT |
& (+uFld(i,j-1) -uFld(i,j) ) -vFld(i-1,j) |
|
./pkg/shap_filt/shap_filt_computvort.F |
41 |
SHAP_FILT_COMPUTVORT |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/shap_filt/shap_filt_computvort.F |
74 |
SHAP_FILT_COMPUTVORT |
& - ( uFld(i,j)-uFld(i,j-1) ) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
127 |
SHAP_FILT_RELVORT3 |
& -uFld(I,J)*dxC(I,J,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
128 |
SHAP_FILT_RELVORT3 |
& + uFld(I,J-1)*dxC(I,J-1,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
143 |
SHAP_FILT_RELVORT3 |
& -uFld(I-1,J)*dxC(I-1,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
169 |
SHAP_FILT_RELVORT3 |
& (-uFld(I,J)*dxC(I,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
171 |
SHAP_FILT_RELVORT3 |
& + uFld(I,J-1)*dxC(I,J-1,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
177 |
SHAP_FILT_RELVORT3 |
& +uFld(I,J-1)*dxC(I,J-1,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
178 |
SHAP_FILT_RELVORT3 |
& - uFld(I,J)*dxC(I,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
183 |
SHAP_FILT_RELVORT3 |
& (+uFld(I,J-1)*dxC(I,J-1,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
184 |
SHAP_FILT_RELVORT3 |
& -uFld(I,J)*dxC(I,J,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
201 |
SHAP_FILT_RELVORT3 |
& -uFld(I+1,J)*dxC(I+1,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
227 |
SHAP_FILT_RELVORT3 |
& (+uFld(I,J-1)*dxC(I,J-1,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
229 |
SHAP_FILT_RELVORT3 |
& -uFld(I,J)*dxC(I,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
234 |
SHAP_FILT_RELVORT3 |
& (-uFld(I,J)*dxC(I,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
235 |
SHAP_FILT_RELVORT3 |
& +uFld(I,J-1)*dxC(I,J-1,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
242 |
SHAP_FILT_RELVORT3 |
& -uFld(I,J)*dxC(I,J,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
243 |
SHAP_FILT_RELVORT3 |
& + uFld(I,J-1)*dxC(I,J-1,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
260 |
SHAP_FILT_RELVORT3 |
& +uFld(I-1,J-1)*dxC(I-1,J-1,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
285 |
SHAP_FILT_RELVORT3 |
& (-uFld(I,J)*dxC(I,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
287 |
SHAP_FILT_RELVORT3 |
& + uFld(I,J-1)*dxC(I,J-1,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
292 |
SHAP_FILT_RELVORT3 |
& (+uFld(I,J-1)*dxC(I,J-1,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
293 |
SHAP_FILT_RELVORT3 |
& -uFld(I,J)*dxC(I,J,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
311 |
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 |
65 |
SHAP_FILT_RELVORT3 |
& -( uFld(I,J)*dxC(I,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
66 |
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_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_uv_s2.F |
10 |
SHAP_FILT_UV_S2 |
U uFld, vFld, tmpFldU, tmpFldV, |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
250 |
SHAP_FILT_UV_S2 |
uFld(i,j,k,bi,bj)=uFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
268 |
SHAP_FILT_UV_S2 |
& CALL EXCH_UV_3D_RL( uFld, vFld, .TRUE., kSize, 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 |
90 |
SHAP_FILT_UV_S2 |
tmpFldU(i,j,k,bi,bj)=uFld(i,j,k,bi,bj) |
|
./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_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/shelfice/shelfice_u_drag.F |
112 |
SHELFICE_U_DRAG |
& * uFld(i,j) |
|
./pkg/shelfice/shelfice_u_drag.F |
12 |
SHELFICE_U_DRAG |
I uFld, vFld, KE, kappaRU, |
|
./pkg/shelfice/shelfice_u_drag.F |
131 |
SHELFICE_U_DRAG |
& * uFld(i,j) |
|
./pkg/shelfice/shelfice_u_drag.F |
141 |
SHELFICE_U_DRAG |
uSq = uFld(i,j)*uFld(i,j) |
|
./pkg/shelfice/shelfice_u_drag.F |
152 |
SHELFICE_U_DRAG |
& * uFld(i,j) |
|
./pkg/shelfice/shelfice_u_drag.F |
165 |
SHELFICE_U_DRAG |
uSq = uFld(i,j)*uFld(i,j) |
|
./pkg/shelfice/shelfice_u_drag.F |
172 |
SHELFICE_U_DRAG |
uSq = uFld(i,j)*uFld(i,j) |
|
./pkg/shelfice/shelfice_u_drag.F |
179 |
SHELFICE_U_DRAG |
& * uFld(i,j) |
|
./pkg/shelfice/shelfice_u_drag.F |
40 |
SHELFICE_U_DRAG |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/shelfice/shelfice_u_drag.F |
81 |
SHELFICE_U_DRAG |
& * uFld(i,j) |
|
./pkg/shelfice/shelfice_v_drag.F |
12 |
SHELFICE_V_DRAG |
I uFld, vFld, KE, kappaRV, |
|
./pkg/shelfice/shelfice_v_drag.F |
142 |
SHELFICE_V_DRAG |
& + ( (uFld( i ,j-1)*uFld( i ,j-1)*hFacW( i ,j-1,k,bi,bj) |
|
./pkg/shelfice/shelfice_v_drag.F |
143 |
SHELFICE_V_DRAG |
& +uFld( i , j )*uFld( i , j )*hFacW( i , j ,k,bi,bj)) |
|
./pkg/shelfice/shelfice_v_drag.F |
144 |
SHELFICE_V_DRAG |
& + (uFld(i+1,j-1)*uFld(i+1,j-1)*hFacW(i+1,j-1,k,bi,bj) |
|
./pkg/shelfice/shelfice_v_drag.F |
145 |
SHELFICE_V_DRAG |
& +uFld(i+1, j )*uFld(i+1, j )*hFacW(i+1, j ,k,bi,bj)) |
|
./pkg/shelfice/shelfice_v_drag.F |
166 |
SHELFICE_V_DRAG |
& +( (uFld( i ,j-1)*uFld( i ,j-1)*hFacW( i ,j-1,k,bi,bj) |
|
./pkg/shelfice/shelfice_v_drag.F |
167 |
SHELFICE_V_DRAG |
& +uFld( i , j )*uFld( i , j )*hFacW( i , j ,k,bi,bj)) |
|
./pkg/shelfice/shelfice_v_drag.F |
168 |
SHELFICE_V_DRAG |
& + (uFld(i+1,j-1)*uFld(i+1,j-1)*hFacW(i+1,j-1,k,bi,bj) |
|
./pkg/shelfice/shelfice_v_drag.F |
169 |
SHELFICE_V_DRAG |
& +uFld(i+1, j )*uFld(i+1, j )*hFacW(i+1, j ,k,bi,bj)) |
|
./pkg/shelfice/shelfice_v_drag.F |
40 |
SHELFICE_V_DRAG |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/zonal_filt/zonal_filt_apply_uv.F |
11 |
ZONAL_FILT_APPLY_UV |
U uFld, vFld, |
|
./pkg/zonal_filt/zonal_filt_apply_uv.F |
30 |
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 |
51 |
ZONAL_FILT_APPLY_UV |
uFlow(i,j) = uFld(i,j,k,bi,bj)*hFacW(i,j,k,bi,bj) |
|
./pkg/zonal_filt/zonal_filt_apply_uv.F |
60 |
ZONAL_FILT_APPLY_UV |
uFld(i,j,k,bi,bj) = uFlow(i,j)*recip_hFacW(i,j,k,bi,bj) |
|
./pkg/zonal_filt/zonal_filt_apply_uv.F |
69 |
ZONAL_FILT_APPLY_UV |
U uFld( 1-OLx,1-OLy,1,bi,bj), |
|
./model/src/integr_continuity.F |
109 |
INTEGR_CONTINUITY |
uTrans(i,j) = uFld(i,j,k,bi,bj)*_dyG(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
11 |
INTEGR_CONTINUITY |
I uFld, vFld, |
|
./model/src/integr_continuity.F |
259 |
INTEGR_CONTINUITY |
I bi, bj, k, uFld, vFld, |
|
./model/src/integr_continuity.F |
43 |
INTEGR_CONTINUITY |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/integrate_for_w.F |
10 |
INTEGRATE_FOR_W |
I bi, bj, k, uFld, vFld, mFld, rStarDhDt, |
|
./model/src/integrate_for_w.F |
37 |
INTEGRATE_FOR_W |
_RL uFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/integrate_for_w.F |
66 |
INTEGRATE_FOR_W |
uTrans(i,j) = uFld(i,j,k,bi,bj) |
|
./model/src/salt_integrate.F |
18 |
SALT_INTEGRATE |
I uFld, vFld, wFld, |
|
./model/src/salt_integrate.F |
266 |
SALT_INTEGRATE |
I dTtracerLev, uFld, vFld, wFld, salt, |
|
./model/src/salt_integrate.F |
280 |
SALT_INTEGRATE |
I dTtracerLev, uFld, vFld, wFld, salt, |
|
./model/src/salt_integrate.F |
314 |
SALT_INTEGRATE |
I uFld, vFld, wFld, |
|
./model/src/salt_integrate.F |
343 |
SALT_INTEGRATE |
I xA, yA, maskUp, uFld(1-OLx,1-OLy,k), |
|
./model/src/salt_integrate.F |
358 |
SALT_INTEGRATE |
I xA, yA, maskUp, uFld(1-OLx,1-OLy,k), |
|
./model/src/salt_integrate.F |
82 |
SALT_INTEGRATE |
_RL uFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/solve_uv_tridiago.F |
13 |
SOLVE_UV_TRIDIAGO |
O uFld, vFld, |
|
./model/src/solve_uv_tridiago.F |
285 |
SOLVE_UV_TRIDIAGO |
uFld(i,j,k,bi,bj) = yy_U(i,j,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
58 |
SOLVE_UV_TRIDIAGO |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,kSize,nSx,nSy) |
|
./model/src/temp_integrate.F |
18 |
TEMP_INTEGRATE |
I uFld, vFld, wFld, |
|
./model/src/temp_integrate.F |
274 |
TEMP_INTEGRATE |
I dTtracerLev, uFld, vFld, wFld, theta, |
|
./model/src/temp_integrate.F |
288 |
TEMP_INTEGRATE |
I dTtracerLev, uFld, vFld, wFld, theta, |
|
./model/src/temp_integrate.F |
322 |
TEMP_INTEGRATE |
I uFld, vFld, wFld, |
|
./model/src/temp_integrate.F |
351 |
TEMP_INTEGRATE |
I xA, yA, maskUp, uFld(1-OLx,1-OLy,k), |
|
./model/src/temp_integrate.F |
366 |
TEMP_INTEGRATE |
I xA, yA, maskUp, uFld(1-OLx,1-OLy,k), |
|
./model/src/temp_integrate.F |
85 |
TEMP_INTEGRATE |
_RL uFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/thermodynamics.F |
258 |
THERMODYNAMICS |
uFld(i,j,k) = uVel(i,j,k,bi,bj) |
|
./model/src/thermodynamics.F |
268 |
THERMODYNAMICS |
U uFld, vFld, wFld, |
|
./model/src/thermodynamics.F |
275 |
THERMODYNAMICS |
I uFld, vFld, wFld, dTtracerLev, |
|
./model/src/thermodynamics.F |
321 |
THERMODYNAMICS |
I uFld, vFld, wFld, |
|
./model/src/thermodynamics.F |
332 |
THERMODYNAMICS |
I uFld, vFld, wFld, |
|
./model/src/thermodynamics.F |
348 |
THERMODYNAMICS |
I uFld, vFld, wFld, |
|
./model/src/thermodynamics.F |
95 |
THERMODYNAMICS |
_RL uFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./eesupp/src/fill_cs_corner_ag_rl.F |
136 |
FILL_CS_CORNER_AG_RL |
uFld( 1-i , 1-j ) = vFld( 1-j , i )*negOne |
|
./eesupp/src/fill_cs_corner_ag_rl.F |
137 |
FILL_CS_CORNER_AG_RL |
vFld( 1-i , 1-j ) = uFld( 1-j , i ) |
|
./eesupp/src/fill_cs_corner_ag_rl.F |
144 |
FILL_CS_CORNER_AG_RL |
uFld(sNx+i, 1-j ) = vFld(sNx+j, i ) |
|
./eesupp/src/fill_cs_corner_ag_rl.F |
145 |
FILL_CS_CORNER_AG_RL |
vFld(sNx+i, 1-j ) = uFld(sNx+j, i )*negOne |
|
./eesupp/src/fill_cs_corner_ag_rl.F |
14 |
FILL_CS_CORNER_AG_RL |
U uFld, vFld, |
|
./eesupp/src/fill_cs_corner_ag_rl.F |
152 |
FILL_CS_CORNER_AG_RL |
uFld( 1-i ,sNy+j) = vFld( 1-j , sNy+1-i ) |
|
./eesupp/src/fill_cs_corner_ag_rl.F |
153 |
FILL_CS_CORNER_AG_RL |
vFld( 1-i ,sNy+j) = uFld( 1-j , sNy+1-i )*negOne |
|
./eesupp/src/fill_cs_corner_ag_rl.F |
160 |
FILL_CS_CORNER_AG_RL |
uFld(sNx+i,sNy+j) = vFld(sNx+j, sNy+1-i )*negOne |
|
./eesupp/src/fill_cs_corner_ag_rl.F |
161 |
FILL_CS_CORNER_AG_RL |
vFld(sNx+i,sNy+j) = uFld(sNx+j, sNy+1-i ) |
|
./eesupp/src/fill_cs_corner_ag_rl.F |
210 |
FILL_CS_CORNER_AG_RL |
uFld( 1-i , 1-j ) = vFld( j , 1-i ) |
|
./eesupp/src/fill_cs_corner_ag_rl.F |
211 |
FILL_CS_CORNER_AG_RL |
vFld( 1-i , 1-j ) = uFld( j , 1-i )*negOne |
|
./eesupp/src/fill_cs_corner_ag_rl.F |
218 |
FILL_CS_CORNER_AG_RL |
uFld(sNx+i, 1-j ) = vFld(sNx+1-j, 1-i )*negOne |
|
./eesupp/src/fill_cs_corner_ag_rl.F |
219 |
FILL_CS_CORNER_AG_RL |
vFld(sNx+i, 1-j ) = uFld(sNx+1-j, 1-i ) |
|
./eesupp/src/fill_cs_corner_ag_rl.F |
226 |
FILL_CS_CORNER_AG_RL |
uFld( 1-i ,sNy+j) = vFld( j ,sNy+i)*negOne |
|
./eesupp/src/fill_cs_corner_ag_rl.F |
227 |
FILL_CS_CORNER_AG_RL |
vFld( 1-i ,sNy+j) = uFld( j ,sNy+i) |
|
./eesupp/src/fill_cs_corner_ag_rl.F |
234 |
FILL_CS_CORNER_AG_RL |
uFld(sNx+i,sNy+j) = vFld(sNx+1-j,sNy+i) |
|
./eesupp/src/fill_cs_corner_ag_rl.F |
235 |
FILL_CS_CORNER_AG_RL |
vFld(sNx+i,sNy+j) = uFld(sNx+1-j,sNy+i)*negOne |
|
./eesupp/src/fill_cs_corner_ag_rl.F |
51 |
FILL_CS_CORNER_AG_RL |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./eesupp/src/fill_cs_corner_uv_rl.F |
131 |
FILL_CS_CORNER_UV_RL |
uFld( 1-i , 1-j ) = negOne*vFld( 1-j , 1+i ) |
|
./eesupp/src/fill_cs_corner_uv_rl.F |
137 |
FILL_CS_CORNER_UV_RL |
vFld( 1-i , 1-j ) = negOne*uFld( 1+j , 1-i ) |
|
./eesupp/src/fill_cs_corner_uv_rl.F |
146 |
FILL_CS_CORNER_UV_RL |
uFld(sNx+i, 1-j ) = vFld(sNx+j, i ) |
|
./eesupp/src/fill_cs_corner_uv_rl.F |
14 |
FILL_CS_CORNER_UV_RL |
U uFld, vFld, |
|
./eesupp/src/fill_cs_corner_uv_rl.F |
152 |
FILL_CS_CORNER_UV_RL |
vFld(sNx+i, 1-j ) = uFld(sNx+1-j, 1-i ) |
|
./eesupp/src/fill_cs_corner_uv_rl.F |
161 |
FILL_CS_CORNER_UV_RL |
uFld( 1-i ,sNy+j) = vFld( 1-j , sNy+1-i ) |
|
./eesupp/src/fill_cs_corner_uv_rl.F |
167 |
FILL_CS_CORNER_UV_RL |
vFld( 1-i ,sNy+j) = uFld( j , sNy+i ) |
|
./eesupp/src/fill_cs_corner_uv_rl.F |
176 |
FILL_CS_CORNER_UV_RL |
uFld(sNx+i,sNy+j) = negOne*vFld(sNx+j, sNy+2-i ) |
|
./eesupp/src/fill_cs_corner_uv_rl.F |
182 |
FILL_CS_CORNER_UV_RL |
vFld(sNx+i,sNy+j) = negOne*uFld(sNx+2-j, sNy+i ) |
|
./eesupp/src/fill_cs_corner_uv_rl.F |
50 |
FILL_CS_CORNER_UV_RL |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./eesupp/src/fill_cs_corner_uv_rs.F |
129 |
FILL_CS_CORNER_UV_RS |
uFld( 1-i , 1-j ) = negOne*vFld( 1-j , 1+i ) |
|
./eesupp/src/fill_cs_corner_uv_rs.F |
135 |
FILL_CS_CORNER_UV_RS |
vFld( 1-i , 1-j ) = negOne*uFld( 1+j , 1-i ) |
|
./eesupp/src/fill_cs_corner_uv_rs.F |
144 |
FILL_CS_CORNER_UV_RS |
uFld(sNx+i, 1-j ) = vFld(sNx+j, 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 |
150 |
FILL_CS_CORNER_UV_RS |
vFld(sNx+i, 1-j ) = uFld(sNx+1-j, 1-i ) |
|
./eesupp/src/fill_cs_corner_uv_rs.F |
159 |
FILL_CS_CORNER_UV_RS |
uFld( 1-i ,sNy+j) = vFld( 1-j , sNy+1-i ) |
|
./eesupp/src/fill_cs_corner_uv_rs.F |
165 |
FILL_CS_CORNER_UV_RS |
vFld( 1-i ,sNy+j) = uFld( j , sNy+i ) |
|
./eesupp/src/fill_cs_corner_uv_rs.F |
174 |
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 |
180 |
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/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 |
84 |
DEBUG_CS_CORNER_UV |
tmpU(1,k,n1)= uFld(1,j) |
|
./pkg/debug/debug_cs_corner_uv.F |
85 |
DEBUG_CS_CORNER_UV |
tmpU(2,k,n1)= uFld(1,sNy+1-j) |
|
./pkg/debug/debug_cs_corner_uv.F |
86 |
DEBUG_CS_CORNER_UV |
tmpU(3,k,n1)= uFld(sNx+1,j) |
|
./pkg/debug/debug_cs_corner_uv.F |
87 |
DEBUG_CS_CORNER_UV |
tmpU(4,k,n1)= uFld(sNx+1,sNy+1-j) |
|
./pkg/debug/debug_cs_corner_uv.F |
8 |
DEBUG_CS_CORNER_UV |
I uFld, vFld, |