| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/ecco_phys.F |
159 |
ECCO_PHYS |
U uVel, vVel, m_UE, m_VN, |
|
./pkg/ecco/ecco_phys.F |
194 |
ECCO_PHYS |
& uVel(i,j,k,bi,bj)*hFacW(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_phys.F |
322 |
ECCO_PHYS |
& +uVel(i,j,k,bi,bj)*tmpmskW |
|
./pkg/exf/exf_getffields.F |
151 |
EXF_GETFFIELDS |
& * (uVel(i,j,1,bi,bj)+uVel(i+1,j,1,bi,bj)) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
229 |
FIZHI_TENDENCY_APPLY_T |
& *uVel(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
231 |
FIZHI_TENDENCY_APPLY_T |
& *uVel(i+1,j,kLev,bi,bj)*uVel(i+1,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
247 |
FIZHI_TENDENCY_APPLY_T |
& *uVel(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
249 |
FIZHI_TENDENCY_APPLY_T |
& *uVel(i+1,j,kLev,bi,bj)*uVel(i+1,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
265 |
FIZHI_TENDENCY_APPLY_T |
& *uVel(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
267 |
FIZHI_TENDENCY_APPLY_T |
& *uVel(i+1,j,kLev,bi,bj)*uVel(i+1,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
60 |
FIZHI_TENDENCY_APPLY_U |
& - rayleighdrag*uVel(i,j,kLev,bi,bj) ) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
69 |
FIZHI_TENDENCY_APPLY_U |
& - rayleighdrag*uVel(i,j,kLev,bi,bj) ) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
80 |
FIZHI_TENDENCY_APPLY_U |
& maskW(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj) * 86400 |
|
./pkg/flt/flt_runga2.F |
113 |
FLT_RUNGA2 |
CALL FLT_TRILINEAR(ix,jy,kz,uu,uVel,1,bi,bj,myThid) |
|
./pkg/flt/flt_runga2.F |
120 |
FLT_RUNGA2 |
CALL FLT_BILINEAR(ix,jy,uu,uVel,kc,1,bi,bj,myThid) |
|
./pkg/flt/flt_runga2.F |
150 |
FLT_RUNGA2 |
CALL FLT_TRILINEAR(itx,jty,ktz,u1,uVel,1,bi,bj,myThid) |
|
./pkg/flt/flt_runga2.F |
157 |
FLT_RUNGA2 |
CALL FLT_BILINEAR(itx,jty,u1,uVel,kc,1,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
115 |
FLT_RUNGA4 |
CALL FLT_TRILINEAR(ix,jy,kz,u1,uVel,1,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
122 |
FLT_RUNGA4 |
CALL FLT_BILINEAR(ix,jy,u1,uVel,kc,1,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
152 |
FLT_RUNGA4 |
CALL FLT_TRILINEAR(itx1,jty1,ktz1,u2,uVel, |
|
./pkg/flt/flt_runga4.F |
162 |
FLT_RUNGA4 |
CALL FLT_BILINEAR(itx1,jty1,u2,uVel, |
|
./pkg/flt/flt_runga4.F |
202 |
FLT_RUNGA4 |
CALL FLT_TRILINEAR(itx2,jty2,ktz2,u3,uVel, |
|
./pkg/flt/flt_runga4.F |
212 |
FLT_RUNGA4 |
CALL FLT_BILINEAR(itx2,jty2,u3,uVel, |
|
./pkg/flt/flt_runga4.F |
252 |
FLT_RUNGA4 |
CALL FLT_TRILINEAR(itx3,jty3,ktz3,u4,uVel, |
|
./pkg/flt/flt_runga4.F |
262 |
FLT_RUNGA4 |
CALL FLT_BILINEAR(itx3,jty3,u4,uVel, |
|
./pkg/flt/flt_traj.F |
137 |
FLT_TRAJ |
CALL FLT_BILINEAR (ix,jy,uu,uVel, kp,1,bi,bj,myThid) |
|
./pkg/flt/flt_up.F |
136 |
FLT_UP |
CALL FLT_BILINEAR (ix,jy,uu,uVel, k,1,bi,bj,myThid) |
|
./pkg/generic_advdiff/salt_fill.F |
11 |
SALT_FILL |
I uVel, vVel, |
|
./pkg/generic_advdiff/salt_fill.F |
46 |
SALT_FILL |
_RL uVel (1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/ggl90/ggl90_calc.F |
438 |
GGL90_CALC |
tempU = ( uVel( i ,j,km1,bi,bj) - uVel( i ,j,k,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
439 |
GGL90_CALC |
tempUp = ( uVel(i+1,j,km1,bi,bj) - uVel(i+1,j,k,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
452 |
GGL90_CALC |
tempU = ( ( uVel(i,j,km1,bi,bj) + uVel(i+1,j,km1,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
453 |
GGL90_CALC |
& -( uVel(i,j,k ,bi,bj) + uVel(i+1,j,k ,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
808 |
GGL90_CALC |
& halfRL*( surfaceForcingU(i, j,bi,bj)*uVel(i ,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
809 |
GGL90_CALC |
& +surfaceForcingU(i+1,j,bi,bj)*uVel(i+1,j,k,bi,bj)) |
|
./pkg/gmredi/gmredi_k3d.F |
354 |
GMREDI_K3D |
uFldX(i,j,k) = uVel(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
973 |
GMREDI_K3D |
centreX = op5*(uVel(i,j,k,bi,bj)+uVel(i+1,j,k,bi,bj)) |
|
./pkg/gmredi/gmredi_residual_flow.F |
109 |
GMREDI_RESIDUAL_FLOW |
uEulerMean(i,j,k,bi,bj) = uVel(i,j,k,bi,bj) - ustar |
|
./pkg/kl10/kl10_calc.F |
191 |
KL10_CALC |
tempu = (uVel(I+di,J-1,Km1,bi,bj)-uVel(I+di,J |
|
./pkg/kpp/kpp_calc.F |
472 |
KPP_CALC |
& (uVel(i, j, k,bi,bj)-uVel(i, j, kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
473 |
KPP_CALC |
& (uVel(i, j, k,bi,bj)-uVel(i, j, kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
474 |
KPP_CALC |
& (uVel(ip1,j, k,bi,bj)-uVel(ip1,j, kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
475 |
KPP_CALC |
& (uVel(ip1,j, k,bi,bj)-uVel(ip1,j, kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
482 |
KPP_CALC |
& (uVel(i, jm1,k,bi,bj)-uVel(i, jm1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
483 |
KPP_CALC |
& (uVel(i, jm1,k,bi,bj)-uVel(i, jm1,kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
484 |
KPP_CALC |
& (uVel(ip1,jm1,k,bi,bj)-uVel(ip1,jm1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
485 |
KPP_CALC |
& (uVel(ip1,jm1,k,bi,bj)-uVel(ip1,jm1,kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
486 |
KPP_CALC |
& (uVel(i, jp1,k,bi,bj)-uVel(i, jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
487 |
KPP_CALC |
& (uVel(i, jp1,k,bi,bj)-uVel(i, jp1,kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
488 |
KPP_CALC |
& (uVel(ip1,jp1,k,bi,bj)-uVel(ip1,jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
489 |
KPP_CALC |
& (uVel(ip1,jp1,k,bi,bj)-uVel(ip1,jp1,kp1,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
330 |
KPP_FORCING_SURF |
& (uVel(i, j, 1,bi,bj)-uVel(i, j, 2,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
331 |
KPP_FORCING_SURF |
& (uVel(i, j, 1,bi,bj)-uVel(i, j, 2,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
332 |
KPP_FORCING_SURF |
& (uVel(ip1,j, 1,bi,bj)-uVel(ip1,j, 2,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
333 |
KPP_FORCING_SURF |
& (uVel(ip1,j, 1,bi,bj)-uVel(ip1,j, 2,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
355 |
KPP_FORCING_SURF |
uRef(i,j) = p5 * ( uVel(i,j,1,bi,bj) + uVel(ip1,j,1,bi,bj) ) |
|
./pkg/kpp/kpp_forcing_surf.F |
387 |
KPP_FORCING_SURF |
& (uRef(i,j) - uVel(i, j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
388 |
KPP_FORCING_SURF |
& (uRef(i,j) - uVel(i, j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
389 |
KPP_FORCING_SURF |
& (uRef(i,j) - uVel(ip1,j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
390 |
KPP_FORCING_SURF |
& (uRef(i,j) - uVel(ip1,j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
397 |
KPP_FORCING_SURF |
& (uRef(i,j) - uVel(i, jm1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
398 |
KPP_FORCING_SURF |
& (uRef(i,j) - uVel(i, jm1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
399 |
KPP_FORCING_SURF |
& (uRef(i,j) - uVel(ip1,jm1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
400 |
KPP_FORCING_SURF |
& (uRef(i,j) - uVel(ip1,jm1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
401 |
KPP_FORCING_SURF |
& (uRef(i,j) - uVel(i, jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
402 |
KPP_FORCING_SURF |
& (uRef(i,j) - uVel(i, jp1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
403 |
KPP_FORCING_SURF |
& (uRef(i,j) - uVel(ip1,jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
404 |
KPP_FORCING_SURF |
& (uRef(i,j) - uVel(ip1,jp1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
428 |
KPP_FORCING_SURF |
& (uVel(i, j, 1,bi,bj)-uVel(i, j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
429 |
KPP_FORCING_SURF |
& (uVel(i, j, 1,bi,bj)-uVel(i, j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
430 |
KPP_FORCING_SURF |
& (uVel(ip1,j, 1,bi,bj)-uVel(ip1,j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
431 |
KPP_FORCING_SURF |
& (uVel(ip1,j, 1,bi,bj)-uVel(ip1,j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
438 |
KPP_FORCING_SURF |
& (uVel(i, jm1,1,bi,bj)-uVel(i, jm1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
439 |
KPP_FORCING_SURF |
& (uVel(i, jm1,1,bi,bj)-uVel(i, jm1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
440 |
KPP_FORCING_SURF |
& (uVel(ip1,jm1,1,bi,bj)-uVel(ip1,jm1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
441 |
KPP_FORCING_SURF |
& (uVel(ip1,jm1,1,bi,bj)-uVel(ip1,jm1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
442 |
KPP_FORCING_SURF |
& (uVel(i, jp1,1,bi,bj)-uVel(i, jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
443 |
KPP_FORCING_SURF |
& (uVel(i, jp1,1,bi,bj)-uVel(i, jp1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
444 |
KPP_FORCING_SURF |
& (uVel(ip1,jp1,1,bi,bj)-uVel(ip1,jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
445 |
KPP_FORCING_SURF |
& (uVel(ip1,jp1,1,bi,bj)-uVel(ip1,jp1,k,bi,bj)) + |
|
./model/src/calc_div_ghat.F |
116 |
CALC_DIV_GHAT |
& + (1. _d 0-implicDiv2Dflow)* uVel(i,j,k,bi,bj) |
|
./pkg/layers/layers_calc.F |
125 |
LAYERS_CALC |
CALL LAYERS_FLUXCALC( uVel,vVel,theta,iLa, |
|
./pkg/layers/layers_calc.F |
145 |
LAYERS_CALC |
CALL LAYERS_FLUXCALC( uVel,vVel,salt,iLa, |
|
./pkg/layers/layers_calc.F |
204 |
LAYERS_CALC |
CALL LAYERS_FLUXCALC( uVel,vVel, prho, iLa, |
|
./pkg/layers/layers_fluxcalc.F |
19 |
LAYERS_FLUXCALC |
I uVel,vVel,tracer,iLa, |
|
./pkg/layers/layers_fluxcalc.F |
221 |
LAYERS_FLUXCALC |
& dzfac * uVel(i,j,kci,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
59 |
LAYERS_FLUXCALC |
_RL uVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr, nSx,nSy) |
|
./pkg/longstep/longstep_average.F |
88 |
LONGSTEP_AVERAGE |
CALL LONGSTEP_FILL_3D_FAC(LS_uVelCount, LS_uVel, uVel, hFacW, |
|
./model/src/calc_gw.F |
500 |
CALC_GW |
& drF(km1)*_hFacW(i,j,km1,bi,bj)*uVel(i,j,km1,bi,bj) |
|
./model/src/calc_gw.F |
502 |
CALC_GW |
& + drF( k )*_hFacW(i,j, k ,bi,bj)*uVel(i,j, k ,bi,bj) |
|
./model/src/calc_gw.F |
611 |
CALC_GW |
I uVel, vVel, |
|
./model/src/calc_gw.F |
623 |
CALC_GW |
I uVel, vVel, |
|
./model/src/calc_phi_hyd.F |
203 |
CALC_PHI_HYD |
CALL MOM_QUASIHYDROSTATIC(bi,bj,k,uVel,vVel,alphaRho,myThid) |
|
./model/src/calc_phi_hyd.F |
357 |
CALC_PHI_HYD |
CALL MOM_QUASIHYDROSTATIC(bi,bj,k,uVel,vVel,alphaRho,myThid) |
|
./model/src/calc_phi_hyd.F |
463 |
CALC_PHI_HYD |
CALL MOM_QUASIHYDROSTATIC(bi,bj,k,uVel,vVel,alphaRho,myThid) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
112 |
MOM_CALC_3D_STRAIN |
& *( uVel( i , j , k ,bi,bj)-uVel( i ,j-1, k ,bi,bj) ) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
133 |
MOM_CALC_3D_STRAIN |
& *( uVel( i , j , k ,bi,bj)*twoRL ) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
155 |
MOM_CALC_3D_STRAIN |
& *( uVel( i , j , k ,bi,bj)-uVel( i , j ,k-1 ,bi,bj) ) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
218 |
MOM_CALC_3D_STRAIN |
& *( 0. _d 0 - uVel( i , j ,k-1 ,bi,bj) ) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
87 |
MOM_CALC_3D_STRAIN |
& *( uVel(i+1, j , k ,bi,bj)-uVel( i , j , k ,bi,bj) ) |
|
./pkg/mom_common/mom_u_implicit_r.F |
133 |
MOM_U_IMPLICIT_R |
I uVel(1-OLx,1-OLy,1,bi,bj), |
|
./pkg/mom_common/mom_v_implicit_r.F |
133 |
MOM_V_IMPLICIT_R |
I uVel(1-OLx,1-OLy,1,bi,bj), |
|
./pkg/mom_fluxform/mom_fluxform.F |
294 |
MOM_FLUXFORM |
uFld(i,j) = uVel(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
337 |
MOM_FLUXFORM |
I uVel, vVel, |
|
./pkg/mom_fluxform/mom_fluxform.F |
362 |
MOM_FLUXFORM |
CALL MOM_U_ADV_WU( bi,bj,k,uVel,wVel,rTransU, |
|
./pkg/mom_fluxform/mom_fluxform.F |
381 |
MOM_FLUXFORM |
I uVel, vVel, |
|
./pkg/mom_fluxform/mom_fluxform.F |
432 |
MOM_FLUXFORM |
I bi,bj,k+1,uVel,wVel,rTransU, |
|
./pkg/mom_fluxform/mom_fluxform.F |
470 |
MOM_FLUXFORM |
& *uVel(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
478 |
MOM_FLUXFORM |
& - rStarDhWDt(i,j,bi,bj)*uVel(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
490 |
MOM_FLUXFORM |
& + uVel(i,j,k,bi,bj)*mass2rUnit*0.5 _d 0 |
|
./pkg/mom_fluxform/mom_fluxform.F |
528 |
MOM_FLUXFORM |
CALL MOM_U_RVISCFLUX( bi,bj, k, uVel,kappaRU,fVrUp,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
529 |
MOM_FLUXFORM |
CALL MOM_U_RVISCFLUX( bi,bj,k+1,uVel,kappaRU,fVrDw,myThid ) |
|
./pkg/mom_vecinv/mom_vecinv.F |
247 |
MOM_VECINV |
uFld(i,j) = uVel(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vecinv.F |
448 |
MOM_VECINV |
CALL MOM_U_RVISCFLUX(bi,bj,k+1,uVel,kappaRU,vrF,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
757 |
MOM_VECINV |
CALL MOM_VI_U_VERTSHEAR(bi,bj,k,uVel,wVel,uCf,myThid) |
|
./pkg/monitor/mon_ke.F |
200 |
MON_KE |
tmpVal = tmpVal*deltaTMom + uVel(i,j,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
97 |
MON_KE |
& uVel( i ,j,k,bi,bj)*uVel( i ,j,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
99 |
MON_KE |
& +uVel(i+1,j,k,bi,bj)*uVel(i+1,j,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
138 |
MON_VORT3 |
& -uVel(i, j ,k,bi,bj)*dxC(i, j ,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
139 |
MON_VORT3 |
& +uVel(i,j-1,k,bi,bj)*dxC(i,j-1,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
189 |
MON_VORT3 |
& -uVel(i,j,k,bi,bj)*dxC(i,j,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
190 |
MON_VORT3 |
& +uVel(i,j-1,k,bi,bj)*dxC(i,j-1,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
204 |
MON_VORT3 |
& -uVel(i,j,k,bi,bj)*dxC(i,j,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
205 |
MON_VORT3 |
& +uVel(i,j-1,k,bi,bj)*dxC(i,j-1,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
219 |
MON_VORT3 |
& -uVel(i,j,k,bi,bj)*dxC(i,j,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
220 |
MON_VORT3 |
& +uVel(i,j-1,k,bi,bj)*dxC(i,j-1,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
234 |
MON_VORT3 |
& -uVel(i,j,k,bi,bj)*dxC(i,j,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
235 |
MON_VORT3 |
& +uVel(i,j-1,k,bi,bj)*dxC(i,j-1,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
252 |
MON_VORT3 |
& + uVel(i,j-1,k,bi,bj)*dxC(i,j-1,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
270 |
MON_VORT3 |
& - uVel(i,j,k,bi,bj)*dxC(i,j,bi,bj) |
|
./pkg/monitor/monitor.F |
111 |
MONITOR |
CALL MON_WRITESTATS_RL( Nr, uVel, '_uvel', |
|
./pkg/monitor/monitor.F |
162 |
MONITOR |
CALL MON_ADVCFL( '_uvel', uVel, recip_dxC, dT, myThid ) |
|
./pkg/my82/my82_ri_number.F |
104 |
MY82_RI_NUMBER |
tempu= .5 _d 0*( uVel(I,J,Km1,bi,bj)+uVel(I+1,J,Km1,bi,bj) |
|
./pkg/my82/my82_ri_number.F |
105 |
MY82_RI_NUMBER |
& - (uVel(I,J,K ,bi,bj)+uVel(I+1,J,K ,bi,bj)) ) |
|
./pkg/obcs/obcs_calc.F |
11 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./pkg/obcs/obcs_calc.F |
146 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./pkg/obcs/obcs_calc.F |
196 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./pkg/obcs/obcs_calc.F |
230 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./pkg/obcs/obcs_calc.F |
46 |
OBCS_CALC |
_RL uVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_calc.F |
96 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./pkg/obcs/obcs_calc_stevens.F |
185 |
OBCS_CALC_STEVENS |
uMerBar = uMerBar + uVel(I-1,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
195 |
OBCS_CALC_STEVENS |
uMerPri(K) = (uVel(I-1,J,K,bi,bj)-uMerBar) |
|
./pkg/obcs/obcs_calc_stevens.F |
242 |
OBCS_CALC_STEVENS |
gFacM(J,K) = ABS(MIN(SIGN(1.D0,uVel(I,J,K,bi,bj)),0.D0)) |
|
./pkg/obcs/obcs_calc_stevens.F |
253 |
OBCS_CALC_STEVENS |
I uVel, cflMer, gFacM, pFac, aFac, |
|
./pkg/obcs/obcs_calc_stevens.F |
261 |
OBCS_CALC_STEVENS |
I uVel, cflMer, gFacM, pFac, aFac, |
|
./pkg/obcs/obcs_calc_stevens.F |
312 |
OBCS_CALC_STEVENS |
uMerBar = uMerBar + uVel(I+2,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
322 |
OBCS_CALC_STEVENS |
uMerPri(K) = (uVel(I+2,J,K,bi,bj)-uMerBar) |
|
./pkg/obcs/obcs_calc_stevens.F |
369 |
OBCS_CALC_STEVENS |
gFacM(J,K) = ABS(MAX(SIGN(1.D0,uVel(I+1,J,K,bi,bj)),0.D0)) |
|
./pkg/obcs/obcs_calc_stevens.F |
380 |
OBCS_CALC_STEVENS |
I uVel, cflMer, gFacM, pFac, aFac, |
|
./pkg/obcs/obcs_calc_stevens.F |
388 |
OBCS_CALC_STEVENS |
I uVel, cflMer, gFacM, pFac, aFac, |
|
./pkg/obcs/obcs_calc_stevens.F |
679 |
OBCS_STEVENS_CALC_TRACER_EAST |
I uVel, cflMer, gFacM, pFac, aFac, |
|
./pkg/obcs/obcs_calc_stevens.F |
712 |
OBCS_STEVENS_CALC_TRACER_EAST |
_RL uVel (1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_calc_stevens.F |
741 |
OBCS_STEVENS_CALC_TRACER_EAST |
& - ( aFac*MAX(0.D0,uVel(I,J,K,bi,bj)) + uPhase ) |
|
./pkg/obcs/obcs_calc_stevens.F |
760 |
OBCS_STEVENS_CALC_TRACER_WEST |
I uVel, cflMer, gFacM, pFac, aFac, |
|
./pkg/obcs/obcs_calc_stevens.F |
793 |
OBCS_STEVENS_CALC_TRACER_WEST |
_RL uVel (1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_calc_stevens.F |
823 |
OBCS_STEVENS_CALC_TRACER_WEST |
& - ( aFac*MIN(0.D0,uVel(I+1,J,K,bi,bj)) + uPhase ) |
|
./model/src/correction_step.F |
136 |
CORRECTION_STEP |
uVel(i,j,k,bi,bj)=( gU(i,j,k,bi,bj) |
|
./pkg/obcs/obcs_init_variables.F |
427 |
OBCS_INIT_VARIABLES |
& uVel, vVel, wVel, theta, salt, myThid ) |
|
./pkg/obcs/obcs_init_variables.F |
437 |
OBCS_INIT_VARIABLES |
CALL OBCS_APPLY_UV( bi, bj, 0, uVel, vVel, myThid ) |
|
./pkg/obcs/obcs_init_variables.F |
449 |
OBCS_INIT_VARIABLES |
CALL EXCH_UV_XYZ_RL(uVel,vVel,.TRUE.,myThid) |
|
./pkg/obcs/obcs_monitor.F |
110 |
OBCS_MONITOR |
I Nr, Nr, 1, uVel, hFacW, dyG, drF, maskInC, |
|
./pkg/obcs/obcs_sponge.F |
108 |
OBCS_SPONGE_U |
& + float(jsl)*uVel(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
122 |
OBCS_SPONGE_U |
& * ( uVel(i,j,k,bi,bj) - urelax ) |
|
./pkg/obcs/obcs_sponge.F |
143 |
OBCS_SPONGE_U |
& + float(isl)*uVel(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
157 |
OBCS_SPONGE_U |
& * ( uVel(i,j,k,bi,bj) - urelax ) |
|
./pkg/obcs/obcs_sponge.F |
178 |
OBCS_SPONGE_U |
& + float(isl)*uVel(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
192 |
OBCS_SPONGE_U |
& * ( uVel(i,j,k,bi,bj) - urelax ) |
|
./pkg/obcs/obcs_sponge.F |
73 |
OBCS_SPONGE_U |
& + float(jsl)*uVel(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
87 |
OBCS_SPONGE_U |
& * ( uVel(i,j,k,bi,bj) - urelax ) |
|
./pkg/obcs/orlanski_east.F |
115 |
ORLANSKI_EAST |
CL=-(uVel(I_obc-1,J,K,bi,bj)-UE_STORE_1(J,K,bi,bj))/ |
|
./pkg/obcs/orlanski_east.F |
132 |
ORLANSKI_EAST |
OBEu(J,K,bi,bj)=uVel(I_obc,J,K,bi,bj)- |
|
./pkg/obcs/orlanski_east.F |
134 |
ORLANSKI_EAST |
& (ab1*(uVel(I_obc,J,K,bi,bj)-uVel(I_obc-1,J,K,bi,bj)) + |
|
./pkg/obcs/orlanski_east.F |
249 |
ORLANSKI_EAST |
UE_STORE_2(J,K,bi,bj)=uVel(I_obc-1,J,K,bi,bj) - |
|
./pkg/obcs/orlanski_east.F |
250 |
ORLANSKI_EAST |
& uVel(I_obc-2,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
251 |
ORLANSKI_EAST |
UE_STORE_1(J,K,bi,bj)=uVel(I_obc-1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
252 |
ORLANSKI_EAST |
UE_STORE_4(J,K,bi,bj)=uVel(I_obc,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
82 |
ORLANSKI_EAST |
_RL uVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/orlanski_east.F |
8 |
ORLANSKI_EAST |
I uVel, vVel, wVel, theta, salt, |
|
./pkg/obcs/orlanski_north.F |
106 |
ORLANSKI_NORTH |
CL=-(uVel(I,J_obc-1,K,bi,bj)-UN_STORE_1(I,K,bi,bj))/ |
|
./pkg/obcs/orlanski_north.F |
117 |
ORLANSKI_NORTH |
OBNu(I,K,bi,bj)=uVel(I,J_obc,K,bi,bj)- |
|
./pkg/obcs/orlanski_north.F |
119 |
ORLANSKI_NORTH |
& (ab1*(uVel(I,J_obc,K,bi,bj)-uVel(I,J_obc-1,K,bi,bj)) + |
|
./pkg/obcs/orlanski_north.F |
210 |
ORLANSKI_NORTH |
UN_STORE_2(I,K,bi,bj)=uVel(I,J_obc-1,K,bi,bj) - |
|
./pkg/obcs/orlanski_north.F |
211 |
ORLANSKI_NORTH |
& uVel(I,J_obc-2,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
212 |
ORLANSKI_NORTH |
UN_STORE_1(I,K,bi,bj)=uVel(I,J_obc-1,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
213 |
ORLANSKI_NORTH |
UN_STORE_4(I,K,bi,bj)=uVel(I,J_obc,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
73 |
ORLANSKI_NORTH |
_RL uVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/orlanski_north.F |
7 |
ORLANSKI_NORTH |
I uVel, vVel, wVel, theta, salt, |
|
./pkg/obcs/orlanski_south.F |
106 |
ORLANSKI_SOUTH |
CL=(uVel(I,J_obc+1,K,bi,bj)-US_STORE_1(I,K,bi,bj))/ |
|
./pkg/obcs/orlanski_south.F |
117 |
ORLANSKI_SOUTH |
OBSu(I,K,bi,bj)=uVel(I,J_obc,K,bi,bj)+ |
|
./pkg/obcs/orlanski_south.F |
119 |
ORLANSKI_SOUTH |
& (ab1*(uVel(I,J_obc+1,K,bi,bj)-uVel(I,J_obc,K,bi,bj)) + |
|
./pkg/obcs/orlanski_south.F |
210 |
ORLANSKI_SOUTH |
US_STORE_2(I,K,bi,bj)=uVel(I,J_obc+2,K,bi,bj) - |
|
./pkg/obcs/orlanski_south.F |
211 |
ORLANSKI_SOUTH |
& uVel(I,J_obc+1,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
212 |
ORLANSKI_SOUTH |
US_STORE_1(I,K,bi,bj)=uVel(I,J_obc+1,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
213 |
ORLANSKI_SOUTH |
US_STORE_4(I,K,bi,bj)=uVel(I,J_obc,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
73 |
ORLANSKI_SOUTH |
_RL uVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/orlanski_south.F |
7 |
ORLANSKI_SOUTH |
I uVel, vVel, wVel, theta, salt, |
|
./pkg/obcs/orlanski_west.F |
117 |
ORLANSKI_WEST |
CL=(uVel(I_obc+2,J,K,bi,bj)-UW_STORE_1(J,K,bi,bj))/ |
|
./pkg/obcs/orlanski_west.F |
134 |
ORLANSKI_WEST |
OBWu(J,K,bi,bj)=uVel(I_obc+1,J,K,bi,bj)+ |
|
./pkg/obcs/orlanski_west.F |
136 |
ORLANSKI_WEST |
& (ab1*(uVel(I_obc+2,J,K,bi,bj)-uVel(I_obc+1,J,K,bi,bj))+ |
|
./pkg/obcs/orlanski_west.F |
251 |
ORLANSKI_WEST |
UW_STORE_2(J,K,bi,bj)=uVel(I_obc+3,J,K,bi,bj) - |
|
./pkg/obcs/orlanski_west.F |
252 |
ORLANSKI_WEST |
& uVel(I_obc+2,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
253 |
ORLANSKI_WEST |
UW_STORE_1(J,K,bi,bj)=uVel(I_obc+2,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
254 |
ORLANSKI_WEST |
UW_STORE_4(J,K,bi,bj)=uVel(I_obc+1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
84 |
ORLANSKI_WEST |
_RL uVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/orlanski_west.F |
8 |
ORLANSKI_WEST |
I uVel, vVel, wVel, theta, salt, |
|
./pkg/ocn_compon_interf/ocn_store_my_data.F |
101 |
OCN_STORE_MY_DATA |
& ( uVel(i , j,1,bi,bj)*uVel(i , j,1,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_store_my_data.F |
102 |
OCN_STORE_MY_DATA |
& + uVel(i+1,j,1,bi,bj)*uVel(i+1,j,1,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
369 |
OFFLINE_FIELDS_LOAD |
uVel(i,j,k,bi,bj) = bWght*uvel0(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
387 |
OFFLINE_FIELDS_LOAD |
uVel(i,j,k,bi,bj) = uVel(i,j,k,bi,bj) |
|
./model/src/do_fields_blocking_exchanges.F |
57 |
DO_FIELDS_BLOCKING_EXCHANGES |
& CALL EXCH_UV_XYZ_RL(uVel,vVel,.TRUE.,myThid) |
|
./model/src/do_oceanic_phys.F |
1170 |
DO_OCEANIC_PHYS |
I rhoInSitu, uVel, vVel, wVel, |
|
./model/src/do_oceanic_phys.F |
274 |
DO_OCEANIC_PHYS |
I uVel, vVel, wVel, theta, salt, myThid ) |
|
./pkg/pp81/pp81_ri_number.F |
108 |
PP81_RI_NUMBER |
tempu= .5*( uVel(I,J,Km1,bi,bj)+uVel(I+1,J,Km1,bi,bj) |
|
./pkg/pp81/pp81_ri_number.F |
109 |
PP81_RI_NUMBER |
& - (uVel(I,J,K ,bi,bj)+uVel(I+1,J,K ,bi,bj)) ) |
|
./model/src/do_stagger_fields_exchanges.F |
42 |
DO_STAGGER_FIELDS_EXCHANGES |
& CALL EXCH_UV_3D_RL( uVel, vVel, .TRUE., Nr, myThid ) |
|
./model/src/do_the_model_io.F |
113 |
DO_THE_MODEL_IO |
CALL PLOT_FIELD_XYZRL( uVel , 'Current uVel ', |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
94 |
PTRACERS_DIAGNOSTICS_STATE |
& uVel(i,j,k,bi,bj)*hFacW(i,j,k,bi,bj) * |
|
./model/src/dynamics.F |
410 |
DYNAMICS |
U uVel(1-OLx,1-OLy,1,bi,bj), |
|
./model/src/dynamics.F |
705 |
DYNAMICS |
CALL DEBUG_STATS_RL(Nr,uVel,'Uvel (DYNAMICS)',myThid) |
|
./pkg/rbcs/rbcs_add_tendency.F |
75 |
RBCS_ADD_TENDENCY |
& *( uVel(i,j,k,bi,bj)- RBCuVel(i,j,k,bi,bj) ) |
|
./model/src/forward_step.F |
909 |
FORWARD_STEP |
CALL SHAP_FILT_APPLY_UV( uVel,vVel, |
|
./model/src/forward_step.F |
922 |
FORWARD_STEP |
CALL ZONAL_FILT_APPLY_UV( uVel, vVel, myThid ) |
|
./model/src/forward_step.F |
972 |
FORWARD_STEP |
CALL INTEGR_CONTINUITY( uVel, vVel, myTime, myIter, myThid) |
|
./pkg/sbo/sbo_calc.F |
186 |
SBO_CALC |
U uVel, vVel, |
|
./pkg/seaice/dynsolver.F |
81 |
DYNSOLVER |
GWATX(I,J,bi,bj)=HALF*(uVel(i,j,KGEO(I,J,bi,bj),bi,bj) |
|
./pkg/seaice/dynsolver.F |
82 |
DYNSOLVER |
& +uVel(i,j-1,KGEO(I,J,bi,bj),bi,bj)) |
|
./pkg/seaice/seaice_calc_rhs.F |
106 |
SEAICE_CALC_RHS |
& ( uVel(I,J ,kSrf,bi,bj)+uVel(I+1,J ,kSrf,bi,bj)) |
|
./pkg/seaice/seaice_calc_rhs.F |
108 |
SEAICE_CALC_RHS |
& ( uVel(I,J-1,kSrf,bi,bj)+uVel(I+1,J-1,kSrf,bi,bj)) |
|
./pkg/seaice/seaice_calc_rhs.F |
94 |
SEAICE_CALC_RHS |
& COSWAT * uVel(I,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
784 |
SEAICE_EVP |
& COSWAT * uVel(I,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
798 |
SEAICE_EVP |
& (uVel(I ,J ,kSrf,bi,bj)-uIce(I ,J ,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
799 |
SEAICE_EVP |
& +uVel(I+1,J ,kSrf,bi,bj)-uIce(I+1,J ,bi,bj)) |
|
./pkg/seaice/seaice_evp.F |
801 |
SEAICE_EVP |
& (uVel(I ,J-1,kSrf,bi,bj)-uIce(I ,J-1,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
802 |
SEAICE_EVP |
& +uVel(I+1,J-1,kSrf,bi,bj)-uIce(I+1,J-1,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
148 |
SEAICE_GET_DYNFORCING |
& + 0.5 _d 0 * (uVel(i,j,ks,bi,bj)+uVel(i+1,j,ks,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
192 |
SEAICE_GET_DYNFORCING |
& +0.5 _d 0*(uVel(i,j,ks,bi,bj)+uVel(i+1,j,ks,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
200 |
SEAICE_GET_DYNFORCING |
& +0.5 _d 0*(uVel(i-1,j,ks,bi,bj)+uVel(i,j,ks,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
211 |
SEAICE_GET_DYNFORCING |
& +0.5 _d 0*(uVel(i,j,ks,bi,bj)+uVel(i+1,j,ks,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
219 |
SEAICE_GET_DYNFORCING |
& +0.5 _d 0*(uVel(i,j-1,ks,bi,bj)+uVel(i+1,j-1,ks,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
1162 |
SEAICE_GROWTH |
& 0.5 _d 0*(uVel(i,j,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1163 |
SEAICE_GROWTH |
& +uVel(i+1,j,kSurface,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
762 |
SEAICE_GROWTH |
& +0.5 _d 0*(uVel(i,j,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
763 |
SEAICE_GROWTH |
& +uVel(i+1,j,kSurface,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
382 |
SEAICE_LSR |
& COSWAT * uVel(I,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
396 |
SEAICE_LSR |
& (uVel(I ,J ,kSrf,bi,bj)-uIceC(I ,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
397 |
SEAICE_LSR |
& +uVel(I+1,J ,kSrf,bi,bj)-uIceC(I+1,J ,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
399 |
SEAICE_LSR |
& (uVel(I ,J-1,kSrf,bi,bj)-uIceC(I ,J-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
400 |
SEAICE_LSR |
& +uVel(I+1,J-1,kSrf,bi,bj)-uIceC(I+1,J-1,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
111 |
SEAICE_OCEAN_STRESS |
& 0.5 _d 0*(uIce(I ,J ,bi,bj)-uVel(I ,J ,kSrf,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
112 |
SEAICE_OCEAN_STRESS |
& +uIce(I+1,J ,bi,bj)-uVel(I+1,J ,kSrf,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
114 |
SEAICE_OCEAN_STRESS |
& 0.5 _d 0*(uIce(I ,J-1,bi,bj)-uVel(I ,J-1,kSrf,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
115 |
SEAICE_OCEAN_STRESS |
& +uIce(I+1,J-1,bi,bj)-uVel(I+1,J-1,kSrf,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
97 |
SEAICE_OCEAN_STRESS |
& ( uIce(I,J,bi,bj)-uVel(I,J,kSrf,bi,bj) ) |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
79 |
SEAICE_OCEANDRAG_COEFFS |
& ( ( uIceLoc(i ,j,bi,bj)-uVel(i ,j,kSrf,bi,bj) ) |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
80 |
SEAICE_OCEANDRAG_COEFFS |
& +( uIceLoc(i+1,j,bi,bj)-uVel(i+1,j,kSrf,bi,bj) ) |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
87 |
SEAICE_OCEANDRAG_COEFFS |
& ( ( uIceLoc(i ,j,bi,bj)-uVel(i ,j,kSrf,bi,bj) ) |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
89 |
SEAICE_OCEANDRAG_COEFFS |
& +( uIceLoc(i+1,J,bi,bj)-uVel(i+1,j,kSrf,bi,bj) ) |
|
./pkg/seaice/seaice_preconditioner.F |
622 |
SEAICE_PRECOND_RHSV |
& (uVel(I ,J ,k,bi,bj)-uIceLoc(I ,J ,bi,bj) |
|
./pkg/seaice/seaice_preconditioner.F |
623 |
SEAICE_PRECOND_RHSV |
& +uVel(I+1,J ,k,bi,bj)-uIceLoc(I+1,J ,bi,bj)) |
|
./pkg/seaice/seaice_preconditioner.F |
625 |
SEAICE_PRECOND_RHSV |
& (uVel(I ,J-1,k,bi,bj)-uIceLoc(I ,J-1,bi,bj) |
|
./pkg/seaice/seaice_preconditioner.F |
626 |
SEAICE_PRECOND_RHSV |
& +uVel(I+1,J-1,k,bi,bj)-uIceLoc(I+1,J-1,bi,bj)) |
|
./pkg/shap_filt/shap_filt_u.F |
101 |
SHAP_FILT_U |
uVel(i,j,k,bi,bj) = tmpFldX(i,j,N2) - tmpFldY(i,j,N2) |
|
./pkg/shap_filt/shap_filt_u.F |
107 |
SHAP_FILT_U |
uVel(i,j,k,bi,bj) = uVel(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_u.F |
22 |
SHAP_FILT_U |
_RL uVel(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/shap_filt/shap_filt_u.F |
37 |
SHAP_FILT_U |
tmpFldX(i,j,1) = uVel(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_u.F |
67 |
SHAP_FILT_U |
tmpFldX(i,j,N2) = uVel(i,j,k,bi,bj) - tmpFldX(i,j,N2) |
|
./pkg/shap_filt/shap_filt_u.F |
6 |
SHAP_FILT_U |
SUBROUTINE SHAP_FILT_U(uVel,bi,bj,K,myCurrentTime,myThid) |
|
./pkg/shap_filt/shap_filt_u.F |
74 |
SHAP_FILT_U |
tmpFldY(i,j,1) = uVel(i,j,k,bi,bj) |
|
./model/src/ini_dynvars.F |
54 |
INI_DYNVARS |
uVel (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
278 |
SHELFICE_THERMODYNAMICS |
& uVel( I, J,K,bi,bj)*uVel( I, J,K,bi,bj)*_hFacW( I, J,K,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
279 |
SHELFICE_THERMODYNAMICS |
& + uVel(I+1,J,K,bi,bj)*uVel(I+1,J,K,bi,bj)*_hFacW(I+1,J,K,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
295 |
SHELFICE_THERMODYNAMICS |
& ( uVel(I, J,K,bi,bj) * _hFacW(I, J,K,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
296 |
SHELFICE_THERMODYNAMICS |
& + uVel(I+1,J,K,bi,bj) * _hFacW(I+1,J,K,bi,bj) ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
326 |
SHELFICE_THERMODYNAMICS |
& ( uVel(I, J,Kp1,bi,bj) * _hFacW(I, J,Kp1,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
327 |
SHELFICE_THERMODYNAMICS |
& + uVel(I+1,J,Kp1,bi,bj) * _hFacW(I+1,J,Kp1,bi,bj) ) |
|
./pkg/thsice/thsice_get_ocean.F |
109 |
THSICE_GET_OCEAN |
& ( uVel(i,j,ks,bi,bj) * uVel(i,j,ks,bi,bj) |
|
./pkg/thsice/thsice_get_ocean.F |
110 |
THSICE_GET_OCEAN |
& + uVel(i+1,j,ks,bi,bj)*uVel(i+1,j,ks,bi,bj) |
|
./pkg/thsice/thsice_get_ocean.F |
120 |
THSICE_GET_OCEAN |
uRel1 = uVel( i, j,ks,bi,bj)-uIce( i, j,bi,bj) |
|
./pkg/thsice/thsice_get_ocean.F |
121 |
THSICE_GET_OCEAN |
uRel2 = uVel(i+1,j,ks,bi,bj)-uIce(i+1,j,bi,bj) |
|
./pkg/timeave/timeave_statvars.F |
117 |
TIMEAVE_STATVARS |
CALL TIMEAVE_CUMULATE(uVeltave, uVel, Nr, DDTT, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
126 |
TIMEAVE_STATVARS |
CALL TIMEAVE_CUMUL_2V(UUtave, uVel, uVel, Nr, 0, |
|
./pkg/timeave/timeave_statvars.F |
130 |
TIMEAVE_STATVARS |
CALL TIMEAVE_CUMUL_2V(UVtave, uVel, vVel, Nr, 12, |
|
./pkg/timeave/timeave_statvars.F |
146 |
TIMEAVE_STATVARS |
CALL TIMEAVE_CUMUL_1VFC(hUtave, uVel, hFacW, Nr, |
|
./pkg/timeave/timeave_statvars.F |
154 |
TIMEAVE_STATVARS |
CALL TIMEAVE_CUMUL_2VFC(UTtave, theta, uVel, hFacW, Nr, 1, |
|
./pkg/timeave/timeave_statvars.F |
158 |
TIMEAVE_STATVARS |
CALL TIMEAVE_CUMUL_2VFC(UStave, salt, uVel, hFacW, Nr, 1, |
|
./verification/OpenAD/code_ad_singlelayer/cost_test.F |
70 |
COST_TEST |
& *( uVel(i,j,k,bi,bj) ) |
|
./verification/OpenAD/code_ad_singlelayer/cost_test.F |
71 |
COST_TEST |
& *( uVel(i,j,k,bi,bj) ) |
|
./verification/advect_cs/code/ini_vel.F |
59 |
INI_VEL |
uVel(i,j,k,bi,bj)=0. _d 0 |
|
./verification/advect_cs/code/ini_vel.F |
73 |
INI_VEL |
& CALL READ_FLD_XYZ_RL( uVelInitFile, ' ', uVel, 0, myThid ) |
|
./verification/advect_cs/code/ini_vel.F |
78 |
INI_VEL |
CALL EXCH_UV_XYZ_RL(uVel,vVel,.TRUE.,myThid) |
|
./verification/advect_cs/code/ini_vel.F |
86 |
INI_VEL |
uVel(i,j,k,bi,bj)=uVel(i,j,k,bi,bj)*_maskW(i,j,k,bi,bj) |
|
./verification/advect_xy/code/ini_vel.F |
51 |
INI_VEL |
uVel(i,j,k,bi,bj)=1. _d 0 |
|
./verification/advect_xy/code/ini_vel.F |
63 |
INI_VEL |
& CALL READ_FLD_XYZ_RL( uVelInitFile, ' ', uVel, 0, myThid ) |
|
./verification/advect_xy/code/ini_vel.F |
68 |
INI_VEL |
CALL EXCH_UV_XYZ_RL(uVel,vVel,.TRUE.,myThid) |
|
./verification/advect_xy/code/ini_vel.F |
76 |
INI_VEL |
uVel(i,j,k,bi,bj)=uVel(i,j,k,bi,bj)*_maskW(i,j,k,bi,bj) |
|
./model/src/ini_vel.F |
51 |
INI_VEL |
uVel(i,j,k,bi,bj)=0. _d 0 |
|
./model/src/ini_vel.F |
62 |
INI_VEL |
& CALL READ_FLD_XYZ_RL( uVelInitFile, ' ', uVel, 0, myThid ) |
|
./model/src/ini_vel.F |
67 |
INI_VEL |
CALL EXCH_UV_XYZ_RL(uVel,vVel,.TRUE.,myThid) |
|
./model/src/ini_vel.F |
75 |
INI_VEL |
uVel(i,j,k,bi,bj)=uVel(i,j,k,bi,bj)*_maskW(i,j,k,bi,bj) |
|
./verification/bottom_ctrl_5x5/code_ad/cost_test.F |
58 |
COST_TEST |
& + uVel(I,J,K,BI,BJ) |
|
./model/src/initialise_varia.F |
248 |
INITIALISE_VARIA |
CALL INTEGR_CONTINUITY( uVel, vVel, |
|
./verification/dome/code/obcs_calc.F |
131 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./verification/dome/code/obcs_calc.F |
150 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./verification/dome/code/obcs_calc.F |
211 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./verification/dome/code/obcs_calc.F |
29 |
OBCS_CALC |
_RL uVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./verification/dome/code/obcs_calc.F |
7 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./verification/dome/code/obcs_calc.F |
99 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./model/src/momentum_correction_step.F |
113 |
MOMENTUM_CORRECTION_STEP |
CALL SHAP_FILT_APPLY_UV( uVel, vVel, myTime, myIter, myThid ) |
|
./model/src/momentum_correction_step.F |
122 |
MOMENTUM_CORRECTION_STEP |
CALL ZONAL_FILT_APPLY_UV( uVel, vVel, myThid ) |
|
./model/src/momentum_correction_step.F |
131 |
MOMENTUM_CORRECTION_STEP |
& CALL EXCH_UV_3D_RL( uVel, vVel, .TRUE., Nr, myThid ) |
|
./model/src/momentum_correction_step.F |
98 |
MOMENTUM_CORRECTION_STEP |
CALL OBCS_APPLY_UV( bi, bj, 0, uVel, vVel, myThid ) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
65 |
EXTERNAL_FORCING_U |
& -kV*uVel(i,j,kLev,bi,bj) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
98 |
APPLY_FORCING_U |
& - kV*uVel(i,j,k,bi,bj) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
98 |
APPLY_FORCING_U |
& - kV*uVel(i,j,k,bi,bj) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
98 |
APPLY_FORCING_U |
& - kV*uVel(i,j,k,bi,bj) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
98 |
APPLY_FORCING_U |
& - kV*uVel(i,j,k,bi,bj) |
|
./verification/internal_wave/code/obcs_calc.F |
110 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./verification/internal_wave/code/obcs_calc.F |
163 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./verification/internal_wave/code/obcs_calc.F |
183 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./verification/internal_wave/code/obcs_calc.F |
33 |
OBCS_CALC |
_RL uVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./verification/internal_wave/code/obcs_calc.F |
7 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./verification/internal_wave/code/obcs_calc.F |
90 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./model/src/read_pickup.F |
168 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, uVel, 1, myIter,myThid ) |
|
./model/src/read_pickup.F |
194 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, uVel, nj+1, myIter,myThid ) |
|
./model/src/read_pickup.F |
219 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, uVel, 1, myIter,myThid ) |
|
./model/src/read_pickup.F |
262 |
READ_PICKUP |
CALL READ_MFLDS_3D_RL( 'Uvel ', uVel, |
|
./model/src/read_pickup.F |
463 |
READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'U',uVel, myThid) |
|
./model/src/read_pickup.F |
510 |
READ_PICKUP |
CALL EXCH_UV_3D_RL( uVel, vVel, .TRUE., Nr, myThid ) |
|
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
56 |
INI_VEL |
uVel(i,j,k,bi,bj)=0. |
|
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
70 |
INI_VEL |
CALL READ_FLD_XYZ_RL( uVelInitFile, ' ', uVel, 0, myThid ) |
|
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
83 |
INI_VEL |
CALL EXCH_UV_XYZ_RL(uVel,vVel,.TRUE.,myThid) |
|
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
91 |
INI_VEL |
uVel(i,j,k,bi,bj)=uVel(i,j,k,bi,bj)*_maskW(i,j,k,bi,bj) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
98 |
APPLY_FORCING_U |
& - kV*uVel(i,j,k,bi,bj) |
|
./model/src/thermodynamics.F |
258 |
THERMODYNAMICS |
uFld(i,j,k) = uVel(i,j,k,bi,bj) |
|
./model/src/thermodynamics.F |
393 |
THERMODYNAMICS |
CALL DEBUG_STATS_RL(Nr,uVel,'Uvel (THERMODYNAMICS)',myThid) |
|
./model/src/timestep.F |
360 |
TIMESTEP |
gU(i,j,k,bi,bj) = uVel(i,j,k,bi,bj) |
|
./model/src/tracers_correction_step.F |
91 |
TRACERS_CORRECTION_STEP |
CALL SALT_FILL( uVel,vVel,salt,1,myTime,myIter,myThid ) |
|
./model/src/write_pickup.F |
112 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, uVel, -j, myIter, myThid ) |
|
./model/src/write_pickup.F |
368 |
WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'U', uVel, myThid) |
|
./model/src/write_state.F |
104 |
WRITE_STATE |
CALL WRITE_REC_XYZ_RL( 'U', uVel,iRec,myIter,myThid) |
|
./model/src/write_state.F |
134 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL( 'U.',suff,uVelv,myIter,myThid) |
|
./model/src/write_state.F |
145 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL( 'U.',suff,uVel,myIter,myThid) |
|
./model/src/write_state.F |
192 |
WRITE_STATE |
CALL MNC_CW_RL_W(pf,'state',0,0,'U', uVel, myThid) |
|
./pkg/aim_v23/aim_dyn2aim.F |
205 |
AIM_DYN2AIM |
& uVel(i,j,k,bi,bj)*uVel(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
206 |
AIM_DYN2AIM |
& + uVel(i+1,j,k,bi,bj)*uVel(i+1,j,k,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
101 |
AIM_TENDENCY_APPLY_U |
& -uVel(i,j,k,bi,bj)*uVel(i,j,k,bi,bj)/aim_dragStrato |
|
./pkg/aim_v23/aim_tendency_apply.F |
112 |
AIM_TENDENCY_APPLY_U |
& * 0.5 _d 0 * uVel(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
120 |
AIM_TENDENCY_APPLY_U |
aim_dKE(i,j) = uStr_tmp * uVel(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
135 |
AIM_TENDENCY_APPLY_U |
& )* 0.5 _d 0 * uVel(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
143 |
AIM_TENDENCY_APPLY_U |
aim_dKE(i,j) = uStr_tmp * uVel(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
98 |
AIM_TENDENCY_APPLY_U |
& -maskW(i,j,k,bi,bj)*uVel(i,j,k,bi,bj)/aim_dragStrato |
|
./pkg/atm2d/get_ocnvars.F |
108 |
GET_OCNVARS |
& ( uVel(i , j,1,1,1)*uVel(i , j,1,1,1) |
|
./pkg/atm2d/get_ocnvars.F |
109 |
GET_OCNVARS |
& + uVel(i+1,j,1,1,1)*uVel(i+1,j,1,1,1) |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
120 |
ATM_STORE_AIM_WNDSTR |
& * 0.5 _d 0 * uVel(i,j,ks,bi,bj) |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
89 |
ATM_STORE_AIM_WNDSTR |
& )* 0.5 _d 0 * uVel(i,j,ks,bi,bj) |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
122 |
ATM_PHYS_DYN2PHYS |
u3d(:,:,k) = ( uVel(1:sNx, 1:sNy,kc,bi,bj) |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
123 |
ATM_PHYS_DYN2PHYS |
& + uVel(2:sNx+1,1:sNy,kc,bi,bj) )*0.5 _d 0 |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
75 |
ATM_PHYS_TENDENCY_APPLY_U |
& - maskW(i,j,k,bi,bj)*uVel(i,j,k,bi,bj)*atmPhys_dampUVfac(k) |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
77 |
ATM_PHYS_TENDENCY_APPLY_U |
& - uVel(i,j,k,bi,bj)*uVel(i,j,k,bi,bj)*atmPhys_dampUVfac(k) |
|
./pkg/autodiff/addummy_in_stepping.F |
633 |
ADDUMMY_IN_STEPPING |
CALL COPY_AD_UV_OUTP( dumRS, dumRS, uVeld, vVeld, |
|
./pkg/autodiff/autodiff_restore.F |
149 |
AUTODIFF_RESTORE |
uVel(I,J,K,bi,bj) = StoreDynVars3D(I,J,K,bi,bj,7) |
|
./pkg/autodiff/autodiff_store.F |
159 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,7) = uVel(I,J,K,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
138 |
CD_CODE_SCHEME |
& *uVel(i,j,k,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
140 |
CD_CODE_SCHEME |
& *( ab15*uVel(i,j,k,bi,bj) + ab05*uNM1(i,j,k,bi,bj) ) |
|
./pkg/cd_code/cd_code_scheme.F |
218 |
CD_CODE_SCHEME |
& (uVel(i,j,k,bi,bj)+uVel(i+1,j-1,k,bi,bj)) |
|
./pkg/cd_code/cd_code_scheme.F |
219 |
CD_CODE_SCHEME |
& +(uVel(i,j-1,k,bi,bj)+uVel(i+1,j,k,bi,bj)) |
|
./pkg/cd_code/cd_code_scheme.F |
241 |
CD_CODE_SCHEME |
uNM1(i,j,k,bi,bj) = uVel(i,j,k,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
311 |
CHEAPAML |
uRelWind(i,j) = uWind(i,j,bi,bj)-uVel(i,j,1,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
636 |
CHEAPAML |
& *( uWind(i,j,bi,bj)-uVel(i,j,1,bi,bj) ) |
|
./pkg/cheapaml/cheapaml.F |
647 |
CHEAPAML |
& *( uWind(i-1,j,bi,bj)-uVel(i-1,j,1,bi,bj) ) |
|
./pkg/cheapaml/cheapaml.F |
649 |
CHEAPAML |
& *( uWind(i,j,bi,bj) - uVel(i,j,1,bi,bj) ) ) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
126 |
GAD_2D_CALC_RHS |
& *(uVel(i+1,j,bi,bj)-uVel(i,j,bi,bj)) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
13 |
GAD_2D_CALC_RHS |
I uVel, vVel, |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
147 |
GAD_2D_CALC_RHS |
IF (uVel(i,j,bi,bj).LT.0. _d 0) THEN |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
153 |
GAD_2D_CALC_RHS |
IF (uVel(i+1,j,bi,bj).GT.0. _d 0) THEN |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
179 |
GAD_2D_CALC_RHS |
CALL GAD_C2_2D_ADV_X(bi,bj,uVel,localT,af,myThid) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
211 |
GAD_2D_CALC_RHS |
IF (uVel(i,j,bi,bj).LT.0. _d 0) THEN |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
217 |
GAD_2D_CALC_RHS |
IF (uVel(i+1,j,bi,bj).GT.0. _d 0) THEN |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
70 |
GAD_2D_CALC_RHS |
_RL uVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/cheapaml/gad_c2_2d_adv_x.F |
12 |
GAD_C2_2D_ADV_X |
I uVel, |
|
./pkg/cheapaml/gad_c2_2d_adv_x.F |
52 |
GAD_C2_2D_ADV_X |
& uVel(i,j,bi,bj)*(Tracer(i,j)+Tracer(i-1,j))*0.5 _d 0 |
|
./pkg/cost/cost_accumulate_mean.F |
53 |
COST_ACCUMULATE_MEAN |
& + uVel(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
453 |
CTRL_MAP_INI |
uVel(i,j,k,bi,bj) = uVel(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
456 |
CTRL_MAP_INI |
uVel(i,j,k,bi,bj) = uVel(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
603 |
CTRL_MAP_INI |
_EXCH_XYZ_RL( uVel, mythid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
117 |
DIAGNOSTICS_FILL_STATE |
& *(uVel(i,j,k,bi,bj)+uVel(i+1,j,k,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
142 |
DIAGNOSTICS_FILL_STATE |
& *(uVel(i,j-1,k,bi,bj)+uVel(i,j,k,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
160 |
DIAGNOSTICS_FILL_STATE |
& *(uVel(i,j,km1,bi,bj)+uVel(i,j,k,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
200 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = uVel(i,j,k,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
249 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = uVel(i,j,k,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
298 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = uVel(i,j,k,bi,bj)*hFacW(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
354 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_SCALE_FILL( uVel, tmpFac, 1, |
|
./pkg/diagnostics/diagnostics_fill_state.F |
516 |
DIAGNOSTICS_FILL_STATE |
& = uVel(i,j,k,bi,bj)*hFacW(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
549 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = uVel(i,j,k,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
600 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = uVel(i,j,k,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
656 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_SCALE_FILL( uVel, tmpFac, 1, |
|
./pkg/diagnostics/diagnostics_fill_state.F |
95 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(uVel, 'UVEL ',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
99 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_SCALE_FILL( uVel, oneRL, 2, |
|
./pkg/ecco/cost_averagesfields.F |
347 |
COST_AVERAGESFIELDS |
ubar(i,j,k,bi,bj) = uVel(i,j,k,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
361 |
COST_AVERAGESFIELDS |
& uVel(i,j,k,bi,bj) )/ |
|
./pkg/ecco/cost_averagesfields.F |
399 |
COST_AVERAGESFIELDS |
& uVel (i,j,k,bi,bj) |
|
./model/inc/DYNVARS.h |
38 |
NO PROCEDURE |
& uVel,vVel,wVel,theta,salt, |
|
./model/inc/DYNVARS.h |
44 |
NO PROCEDURE |
& uVel,vVel,wVel,theta,salt, |
|
./model/inc/DYNVARS.h |
49 |
NO PROCEDURE |
_RL uVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |