| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_tendency_apply.F |
206 |
FIZHI_TENDENCY_APPLY_T |
. (maskW(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj)+ |
|
./pkg/fizhi/fizhi_tendency_apply.F |
208 |
FIZHI_TENDENCY_APPLY_T |
. uVel(i+1,j,kLev,bi,bj)*uVel(i+1,j,kLev,bi,bj)+ |
|
./pkg/fizhi/fizhi_tendency_apply.F |
220 |
FIZHI_TENDENCY_APPLY_T |
. (maskW(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj)+ |
|
./pkg/fizhi/fizhi_tendency_apply.F |
222 |
FIZHI_TENDENCY_APPLY_T |
. uVel(i+1,j,kLev,bi,bj)*uVel(i+1,j,kLev,bi,bj)+ |
|
./pkg/fizhi/fizhi_tendency_apply.F |
236 |
FIZHI_TENDENCY_APPLY_T |
. (maskW(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj)+ |
|
./pkg/fizhi/fizhi_tendency_apply.F |
238 |
FIZHI_TENDENCY_APPLY_T |
. uVel(i+1,j,kLev,bi,bj)*uVel(i+1,j,kLev,bi,bj)+ |
|
./pkg/fizhi/fizhi_tendency_apply.F |
53 |
FIZHI_TENDENCY_APPLY_U |
. - rayleighdrag * maskW(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
61 |
FIZHI_TENDENCY_APPLY_U |
. - rayleighdrag * maskW(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj) ) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
72 |
FIZHI_TENDENCY_APPLY_U |
. maskW(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj) * 86400 |
|
./pkg/flt/flt_runga2.F |
108 |
FLT_RUNGA2 |
CALL FLT_TRILINEAR(ix,jy,kz,uu,uVel,1,bi,bj,myThid) |
|
./pkg/flt/flt_runga2.F |
115 |
FLT_RUNGA2 |
CALL FLT_BILINEAR(ix,jy,uu,uVel,kc,1,bi,bj,myThid) |
|
./pkg/flt/flt_runga2.F |
145 |
FLT_RUNGA2 |
CALL FLT_TRILINEAR(itx,jty,ktz,u1,uVel,1,bi,bj,myThid) |
|
./pkg/flt/flt_runga2.F |
152 |
FLT_RUNGA2 |
CALL FLT_BILINEAR(itx,jty,u1,uVel,kc,1,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
110 |
FLT_RUNGA4 |
CALL FLT_TRILINEAR(ix,jy,kz,u1,uVel,1,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
117 |
FLT_RUNGA4 |
CALL FLT_BILINEAR(ix,jy,u1,uVel,kc,1,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
147 |
FLT_RUNGA4 |
CALL FLT_TRILINEAR(itx1,jty1,ktz1,u2,uVel, |
|
./pkg/flt/flt_runga4.F |
157 |
FLT_RUNGA4 |
CALL FLT_BILINEAR(itx1,jty1,u2,uVel, |
|
./pkg/flt/flt_runga4.F |
197 |
FLT_RUNGA4 |
CALL FLT_TRILINEAR(itx2,jty2,ktz2,u3,uVel, |
|
./pkg/flt/flt_runga4.F |
207 |
FLT_RUNGA4 |
CALL FLT_BILINEAR(itx2,jty2,u3,uVel, |
|
./pkg/flt/flt_runga4.F |
247 |
FLT_RUNGA4 |
CALL FLT_TRILINEAR(itx3,jty3,ktz3,u4,uVel, |
|
./pkg/flt/flt_runga4.F |
257 |
FLT_RUNGA4 |
CALL FLT_BILINEAR(itx3,jty3,u4,uVel, |
|
./pkg/flt/flt_traj.F |
149 |
FLT_TRAJ |
CALL FLT_BILINEAR (ix,jy,uu,uVel, kp,1,bi,bj,myThid) |
|
./pkg/flt/flt_up.F |
143 |
FLT_UP |
CALL FLT_BILINEAR (ix,jy,uu,uVel, k,1,bi,bj,myThid) |
|
./pkg/generic_advdiff/gad_advection.F |
15 |
GAD_ADVECTION |
I uVel, vVel, wVel, tracer, |
|
./pkg/generic_advdiff/gad_advection.F |
259 |
GAD_ADVECTION |
I uVel, vVel, |
|
./pkg/generic_advdiff/gad_advection.F |
74 |
GAD_ADVECTION |
_RL uVel (1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/generic_advdiff/gad_som_advect.F |
14 |
GAD_SOM_ADVECT |
I uVel, vVel, wVel, tracer, |
|
./pkg/generic_advdiff/gad_som_advect.F |
251 |
GAD_SOM_ADVECT |
I uVel, vVel, |
|
./pkg/generic_advdiff/gad_som_advect.F |
55 |
GAD_SOM_ADVECT |
_RL uVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./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 |
396 |
GGL90_CALC |
tempU= .5 _d 0*( uVel(i,j,km1,bi,bj)+uVel(i+1,j,km1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
397 |
GGL90_CALC |
& -( uVel(i,j,k ,bi,bj)+uVel(i+1,j,k ,bi,bj)) ) |
|
./pkg/kpp/kpp_calc.F |
432 |
KPP_CALC |
& (uVel(i, j, k,bi,bj)-uVel(i, j, kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
433 |
KPP_CALC |
& (uVel(i, j, k,bi,bj)-uVel(i, j, kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
434 |
KPP_CALC |
& (uVel(ip1,j, k,bi,bj)-uVel(ip1,j, kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
435 |
KPP_CALC |
& (uVel(ip1,j, k,bi,bj)-uVel(ip1,j, kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
442 |
KPP_CALC |
& (uVel(i, jm1,k,bi,bj)-uVel(i, jm1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
443 |
KPP_CALC |
& (uVel(i, jm1,k,bi,bj)-uVel(i, jm1,kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
444 |
KPP_CALC |
& (uVel(ip1,jm1,k,bi,bj)-uVel(ip1,jm1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
445 |
KPP_CALC |
& (uVel(ip1,jm1,k,bi,bj)-uVel(ip1,jm1,kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
446 |
KPP_CALC |
& (uVel(i, jp1,k,bi,bj)-uVel(i, jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
447 |
KPP_CALC |
& (uVel(i, jp1,k,bi,bj)-uVel(i, jp1,kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
448 |
KPP_CALC |
& (uVel(ip1,jp1,k,bi,bj)-uVel(ip1,jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
449 |
KPP_CALC |
& (uVel(ip1,jp1,k,bi,bj)-uVel(ip1,jp1,kp1,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
302 |
KPP_FORCING_SURF |
& (uVel(i, j, 1,bi,bj)-uVel(i, j, 2,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
303 |
KPP_FORCING_SURF |
& (uVel(i, j, 1,bi,bj)-uVel(i, j, 2,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
304 |
KPP_FORCING_SURF |
& (uVel(ip1,j, 1,bi,bj)-uVel(ip1,j, 2,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
305 |
KPP_FORCING_SURF |
& (uVel(ip1,j, 1,bi,bj)-uVel(ip1,j, 2,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
327 |
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 |
359 |
KPP_FORCING_SURF |
$ (uRef(i,j) - uVel(i, j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
360 |
KPP_FORCING_SURF |
$ (uRef(i,j) - uVel(i, j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
361 |
KPP_FORCING_SURF |
$ (uRef(i,j) - uVel(ip1,j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
362 |
KPP_FORCING_SURF |
$ (uRef(i,j) - uVel(ip1,j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
369 |
KPP_FORCING_SURF |
$ (uRef(i,j) - uVel(i, jm1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
370 |
KPP_FORCING_SURF |
$ (uRef(i,j) - uVel(i, jm1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
371 |
KPP_FORCING_SURF |
$ (uRef(i,j) - uVel(ip1,jm1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
372 |
KPP_FORCING_SURF |
$ (uRef(i,j) - uVel(ip1,jm1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
373 |
KPP_FORCING_SURF |
$ (uRef(i,j) - uVel(i, jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
374 |
KPP_FORCING_SURF |
$ (uRef(i,j) - uVel(i, jp1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
375 |
KPP_FORCING_SURF |
$ (uRef(i,j) - uVel(ip1,jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
376 |
KPP_FORCING_SURF |
$ (uRef(i,j) - uVel(ip1,jp1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
400 |
KPP_FORCING_SURF |
$ (uVel(i, j, 1,bi,bj)-uVel(i, j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
401 |
KPP_FORCING_SURF |
$ (uVel(i, j, 1,bi,bj)-uVel(i, j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
402 |
KPP_FORCING_SURF |
$ (uVel(ip1,j, 1,bi,bj)-uVel(ip1,j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
403 |
KPP_FORCING_SURF |
$ (uVel(ip1,j, 1,bi,bj)-uVel(ip1,j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
410 |
KPP_FORCING_SURF |
$ (uVel(i, jm1,1,bi,bj)-uVel(i, jm1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
411 |
KPP_FORCING_SURF |
$ (uVel(i, jm1,1,bi,bj)-uVel(i, jm1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
412 |
KPP_FORCING_SURF |
$ (uVel(ip1,jm1,1,bi,bj)-uVel(ip1,jm1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
413 |
KPP_FORCING_SURF |
$ (uVel(ip1,jm1,1,bi,bj)-uVel(ip1,jm1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
414 |
KPP_FORCING_SURF |
$ (uVel(i, jp1,1,bi,bj)-uVel(i, jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
415 |
KPP_FORCING_SURF |
$ (uVel(i, jp1,1,bi,bj)-uVel(i, jp1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
416 |
KPP_FORCING_SURF |
$ (uVel(ip1,jp1,1,bi,bj)-uVel(ip1,jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
417 |
KPP_FORCING_SURF |
$ (uVel(ip1,jp1,1,bi,bj)-uVel(ip1,jp1,k,bi,bj)) + |
|
./pkg/layers/layers_calc.F |
163 |
LAYERS_CALC |
& dZZf(kk) * uVel(i,j,kci,bi,bj) * hFacW(i,j,kci,bi,bj) |
|
./pkg/longstep/longstep_average.F |
88 |
LONGSTEP_AVERAGE |
CALL LONGSTEP_FILL_3D_FAC(LS_uVelCount, LS_uVel, uVel, hFacW, |
|
./model/src/calc_common_factors.F |
10 |
CALC_COMMON_FACTORS |
I uVel, vVel, |
|
./model/src/calc_common_factors.F |
48 |
CALC_COMMON_FACTORS |
_RL uVel (1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./model/src/calc_common_factors.F |
90 |
CALC_COMMON_FACTORS |
uFld(i,j) = uVel(i,j,k,bi,bj) |
|
./model/src/calc_div_ghat.F |
113 |
CALC_DIV_GHAT |
& + (1. _d 0-implicDiv2Dflow)* uVel(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
267 |
MOM_FLUXFORM |
uFld(i,j) = uVel(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
310 |
MOM_FLUXFORM |
I uVel, vVel, |
|
./pkg/mom_fluxform/mom_fluxform.F |
335 |
MOM_FLUXFORM |
CALL MOM_U_ADV_WU( bi,bj,k,uVel,wVel,rTransU, |
|
./pkg/mom_fluxform/mom_fluxform.F |
355 |
MOM_FLUXFORM |
I uVel, vVel, |
|
./pkg/mom_fluxform/mom_fluxform.F |
398 |
MOM_FLUXFORM |
I bi,bj,k+1,uVel,wVel,rTransU, |
|
./pkg/mom_fluxform/mom_fluxform.F |
437 |
MOM_FLUXFORM |
& *uVel(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
445 |
MOM_FLUXFORM |
& - rStarDhWDt(i,j,bi,bj)*uVel(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
480 |
MOM_FLUXFORM |
CALL MOM_U_RVISCFLUX(bi,bj, k, uVel,KappaRU,fVrUp,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
481 |
MOM_FLUXFORM |
CALL MOM_U_RVISCFLUX(bi,bj,k+1,uVel,KappaRU,fVrDw,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
222 |
MOM_VECINV |
uFld(i,j) = uVel(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vecinv.F |
333 |
MOM_VECINV |
CALL MOM_U_RVISCFLUX(bi,bj,k+1,uVel,KappaRU,vrF,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
611 |
MOM_VECINV |
CALL MOM_VI_U_VERTSHEAR(bi,bj,K,uVel,wVel,uCf,myThid) |
|
./model/src/calc_gw.F |
451 |
CALC_GW |
& drF(km1)*_hFacW(i,j,km1,bi,bj)*uVel(i,j,km1,bi,bj) |
|
./model/src/calc_gw.F |
453 |
CALC_GW |
& + drF( k )*_hFacW(i,j, k ,bi,bj)*uVel(i,j, k ,bi,bj) |
|
./model/src/calc_gw.F |
547 |
CALC_GW |
I uVel, vVel, |
|
./model/src/calc_gw.F |
559 |
CALC_GW |
I uVel, vVel, |
|
./pkg/monitor/mon_ke.F |
82 |
MON_KE |
& uVel( i ,j,k,bi,bj)*uVel( i ,j,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
84 |
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 |
110 |
MONITOR |
CALL MON_WRITESTATS_RL( Nr, uVel, '_uvel', |
|
./pkg/monitor/monitor.F |
149 |
MONITOR |
CALL MON_ADVCFL( '_uvel', uVel, recip_dxC, dT, myThid ) |
|
./model/src/calc_phi_hyd.F |
189 |
CALC_PHI_HYD |
CALL MOM_QUASIHYDROSTATIC(bi,bj,k,uVel,vVel,alphaRho,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 |
141 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./pkg/obcs/obcs_calc.F |
193 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./pkg/obcs/obcs_calc.F |
228 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./pkg/obcs/obcs_calc.F |
37 |
OBCS_CALC |
_RL uVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_calc.F |
7 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./pkg/obcs/obcs_calc.F |
89 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./pkg/obcs/obcs_calc_stevens.F |
148 |
OBCS_CALC_STEVENS |
uMerBar(J) = uMerBar(J) + uVel(I-1,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
161 |
OBCS_CALC_STEVENS |
IF (I.NE.0) uMerPri(J,K) = (uVel(I-1,J,K,bi,bj)-uMerBar(J)) |
|
./pkg/obcs/obcs_calc_stevens.F |
222 |
OBCS_CALC_STEVENS |
gFac = ABS(MIN(SIGN(1.D0,uVel(I,J,K,bi,bj)),0.D0)) |
|
./pkg/obcs/obcs_calc_stevens.F |
226 |
OBCS_CALC_STEVENS |
& - ( aFac*MAX(0.D0,uVel(I,J,K,bi,bj)) + uPhase ) |
|
./pkg/obcs/obcs_calc_stevens.F |
255 |
OBCS_CALC_STEVENS |
gFac = ABS(MIN(SIGN(1.D0,uVel(I,J,K,bi,bj)),0.D0)) |
|
./pkg/obcs/obcs_calc_stevens.F |
259 |
OBCS_CALC_STEVENS |
& - ( aFac*MAX(0.D0,uVel(I,J,K,bi,bj)) + uPhase ) |
|
./pkg/obcs/obcs_calc_stevens.F |
295 |
OBCS_CALC_STEVENS |
uMerBar(J) = uMerBar(J) + uVel(I+2,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
308 |
OBCS_CALC_STEVENS |
IF (I.NE.0) uMerPri(J,K) = (uVel(I+2,J,K,bi,bj)-uMerBar(J)) |
|
./pkg/obcs/obcs_calc_stevens.F |
369 |
OBCS_CALC_STEVENS |
gFac = ABS(MAX(SIGN(1.D0,uVel(I+1,J,K,bi,bj)),0.D0)) |
|
./pkg/obcs/obcs_calc_stevens.F |
373 |
OBCS_CALC_STEVENS |
& - ( aFac*MIN(0.D0,uVel(I+1,J,K,bi,bj)) + uPhase ) |
|
./pkg/obcs/obcs_calc_stevens.F |
402 |
OBCS_CALC_STEVENS |
gFac = ABS(MAX(SIGN(1.D0,uVel(I+1,J,K,bi,bj)),0.D0)) |
|
./pkg/obcs/obcs_calc_stevens.F |
406 |
OBCS_CALC_STEVENS |
& - ( aFac*MIN(0.D0,uVel(I+1,J,K,bi,bj)) + uPhase ) |
|
./pkg/obcs/obcs_init_variables.F |
343 |
OBCS_INIT_VARIABLES |
& uVel, vVel, wVel, theta, salt, myThid ) |
|
./pkg/obcs/obcs_init_variables.F |
353 |
OBCS_INIT_VARIABLES |
CALL OBCS_APPLY_UV( bi, bj, 0, uVel, vVel, myThid ) |
|
./pkg/obcs/obcs_init_variables.F |
365 |
OBCS_INIT_VARIABLES |
CALL EXCH_UV_XYZ_RL(uVel,vVel,.TRUE.,myThid) |
|
./pkg/obcs/obcs_sponge.F |
115 |
OBCS_SPONGE_U |
& * ( uVel(i,j,kLev,bi,bj) - urelax ) |
|
./pkg/obcs/obcs_sponge.F |
133 |
OBCS_SPONGE_U |
& + float(isl)*uVel(i,j,kLev,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
149 |
OBCS_SPONGE_U |
& * ( uVel(i,j,kLev,bi,bj) - urelax ) |
|
./pkg/obcs/obcs_sponge.F |
167 |
OBCS_SPONGE_U |
& + float(isl)*uVel(i,j,kLev,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
183 |
OBCS_SPONGE_U |
& * ( uVel(i,j,kLev,bi,bj) - urelax ) |
|
./pkg/obcs/obcs_sponge.F |
65 |
OBCS_SPONGE_U |
& + float(jsl)*uVel(i,j,kLev,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
81 |
OBCS_SPONGE_U |
& * ( uVel(i,j,kLev,bi,bj) - urelax ) |
|
./pkg/obcs/obcs_sponge.F |
99 |
OBCS_SPONGE_U |
& + float(jsl)*uVel(i,j,kLev,bi,bj) ) |
|
./pkg/obcs/orlanski_east.F |
113 |
ORLANSKI_EAST |
CL=-(uVel(I_obc-1,J,K,bi,bj)-UE_STORE_1(J,K,bi,bj))/ |
|
./pkg/obcs/orlanski_east.F |
130 |
ORLANSKI_EAST |
OBEu(J,K,bi,bj)=uVel(I_obc,J,K,bi,bj)- |
|
./pkg/obcs/orlanski_east.F |
132 |
ORLANSKI_EAST |
& (ab1*(uVel(I_obc,J,K,bi,bj)-uVel(I_obc-1,J,K,bi,bj)) + |
|
./pkg/obcs/orlanski_east.F |
247 |
ORLANSKI_EAST |
UE_STORE_2(J,K,bi,bj)=uVel(I_obc-1,J,K,bi,bj) - |
|
./pkg/obcs/orlanski_east.F |
248 |
ORLANSKI_EAST |
& uVel(I_obc-2,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
249 |
ORLANSKI_EAST |
UE_STORE_1(J,K,bi,bj)=uVel(I_obc-1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
250 |
ORLANSKI_EAST |
UE_STORE_4(J,K,bi,bj)=uVel(I_obc,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
80 |
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 |
104 |
ORLANSKI_NORTH |
CL=-(uVel(I,J_obc-1,K,bi,bj)-UN_STORE_1(I,K,bi,bj))/ |
|
./pkg/obcs/orlanski_north.F |
115 |
ORLANSKI_NORTH |
OBNu(I,K,bi,bj)=uVel(I,J_obc,K,bi,bj)- |
|
./pkg/obcs/orlanski_north.F |
117 |
ORLANSKI_NORTH |
& (ab1*(uVel(I,J_obc,K,bi,bj)-uVel(I,J_obc-1,K,bi,bj)) + |
|
./pkg/obcs/orlanski_north.F |
208 |
ORLANSKI_NORTH |
UN_STORE_2(I,K,bi,bj)=uVel(I,J_obc-1,K,bi,bj) - |
|
./pkg/obcs/orlanski_north.F |
209 |
ORLANSKI_NORTH |
& uVel(I,J_obc-2,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
210 |
ORLANSKI_NORTH |
UN_STORE_1(I,K,bi,bj)=uVel(I,J_obc-1,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
211 |
ORLANSKI_NORTH |
UN_STORE_4(I,K,bi,bj)=uVel(I,J_obc,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
71 |
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 |
104 |
ORLANSKI_SOUTH |
CL=(uVel(I,J_obc+1,K,bi,bj)-US_STORE_1(I,K,bi,bj))/ |
|
./pkg/obcs/orlanski_south.F |
115 |
ORLANSKI_SOUTH |
OBSu(I,K,bi,bj)=uVel(I,J_obc,K,bi,bj)+ |
|
./pkg/obcs/orlanski_south.F |
117 |
ORLANSKI_SOUTH |
& (ab1*(uVel(I,J_obc+1,K,bi,bj)-uVel(I,J_obc,K,bi,bj)) + |
|
./pkg/obcs/orlanski_south.F |
208 |
ORLANSKI_SOUTH |
US_STORE_2(I,K,bi,bj)=uVel(I,J_obc+2,K,bi,bj) - |
|
./pkg/obcs/orlanski_south.F |
209 |
ORLANSKI_SOUTH |
& uVel(I,J_obc+1,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
210 |
ORLANSKI_SOUTH |
US_STORE_1(I,K,bi,bj)=uVel(I,J_obc+1,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
211 |
ORLANSKI_SOUTH |
US_STORE_4(I,K,bi,bj)=uVel(I,J_obc,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
71 |
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 |
115 |
ORLANSKI_WEST |
CL=(uVel(I_obc+2,J,K,bi,bj)-UW_STORE_1(J,K,bi,bj))/ |
|
./pkg/obcs/orlanski_west.F |
132 |
ORLANSKI_WEST |
OBWu(J,K,bi,bj)=uVel(I_obc+1,J,K,bi,bj)+ |
|
./pkg/obcs/orlanski_west.F |
134 |
ORLANSKI_WEST |
& (ab1*(uVel(I_obc+2,J,K,bi,bj)-uVel(I_obc+1,J,K,bi,bj))+ |
|
./pkg/obcs/orlanski_west.F |
249 |
ORLANSKI_WEST |
UW_STORE_2(J,K,bi,bj)=uVel(I_obc+3,J,K,bi,bj) - |
|
./pkg/obcs/orlanski_west.F |
250 |
ORLANSKI_WEST |
& uVel(I_obc+2,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
251 |
ORLANSKI_WEST |
UW_STORE_1(J,K,bi,bj)=uVel(I_obc+2,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
252 |
ORLANSKI_WEST |
UW_STORE_4(J,K,bi,bj)=uVel(I_obc+1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
82 |
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 |
96 |
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 |
97 |
OCN_STORE_MY_DATA |
& + uVel(i+1,j,1,bi,bj)*uVel(i+1,j,1,bi,bj) |
|
./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)) ) |
|
./pkg/profiles/profiles_interp.F |
168 |
PROFILES_INTERP |
tab_coeffs1(1,1)=uVel(prof_i,prof_j,k,bi,bj) !SO |
|
./pkg/profiles/profiles_interp.F |
169 |
PROFILES_INTERP |
tab_coeffs1(1,2)=uVel(prof_i+1,prof_j,k,bi,bj) !SE |
|
./pkg/profiles/profiles_interp.F |
170 |
PROFILES_INTERP |
tab_coeffs1(2,1)=uVel(prof_i,prof_j+1,k,bi,bj) !NO |
|
./pkg/profiles/profiles_interp.F |
171 |
PROFILES_INTERP |
tab_coeffs1(2,2)=uVel(prof_i+1,prof_j+1,k,bi,bj) !NZ |
|
./pkg/profiles/profiles_interp_gg.F |
80 |
PROFILES_INTERP_GG |
tab_coeffs1(q)=uVel(i_cur(q),j_cur(q),k,bi,bj) |
|
./pkg/ptracers/ptracers_advection.F |
100 |
PTRACERS_ADVECTION |
I uVel, vVel, wVel, |
|
./pkg/ptracers/ptracers_advection.F |
119 |
PTRACERS_ADVECTION |
I uVel, vVel, wVel, |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
94 |
PTRACERS_DIAGNOSTICS_STATE |
& uVel(i,j,k,bi,bj)*hFacW(i,j,k,bi,bj) * |
|
./model/src/correction_step.F |
69 |
CORRECTION_STEP |
uVel(i,j,k,bi,bj)=( gU(i,j,k,bi,bj) |
|
./model/src/do_fields_blocking_exchanges.F |
56 |
DO_FIELDS_BLOCKING_EXCHANGES |
CALL EXCH_UV_XYZ_RL(uVel,vVel,.TRUE.,myThid) |
|
./model/src/do_oceanic_phys.F |
158 |
DO_OCEANIC_PHYS |
I uVel, vVel, wVel, theta, salt, myThid ) |
|
./model/src/do_oceanic_phys.F |
792 |
DO_OCEANIC_PHYS |
I rhoInSitu, uVel, vVel, |
|
./pkg/seaice/dynsolver.F |
79 |
DYNSOLVER |
GWATX(I,J,bi,bj)=HALF*(uVel(i,j,KGEO(I,J,bi,bj),bi,bj) |
|
./pkg/seaice/dynsolver.F |
80 |
DYNSOLVER |
& +uVel(i,j-1,KGEO(I,J,bi,bj),bi,bj)) |
|
./model/src/do_stagger_fields_exchanges.F |
36 |
DO_STAGGER_FIELDS_EXCHANGES |
CALL EXCH_UV_XYZ_RL(uVel,vVel,.TRUE.,myThid) |
|
./pkg/seaice/seaice_evp.F |
431 |
SEAICE_EVP |
& ( uIceC(I ,J,bi,bj)-uVel(I ,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
432 |
SEAICE_EVP |
& + uIceC(I+1,J,bi,bj)-uVel(I+1,J,kSrf,bi,bj))**2 |
|
./pkg/seaice/seaice_evp.F |
460 |
SEAICE_EVP |
& COSWAT * uVel(I,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
474 |
SEAICE_EVP |
& (uVel(I ,J ,kSrf,bi,bj)-uIceC(I ,J ,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
475 |
SEAICE_EVP |
& +uVel(I+1,J ,kSrf,bi,bj)-uIceC(I+1,J ,bi,bj)) |
|
./pkg/seaice/seaice_evp.F |
477 |
SEAICE_EVP |
& (uVel(I ,J-1,kSrf,bi,bj)-uIceC(I ,J-1,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
478 |
SEAICE_EVP |
& +uVel(I+1,J-1,kSrf,bi,bj)-uIceC(I+1,J-1,bi,bj)) |
|
./model/src/do_the_model_io.F |
59 |
DO_THE_MODEL_IO |
CALL PLOT_FIELD_XYZRL( uVel , 'Current uVel ', |
|
./pkg/seaice/seaice_get_dynforcing.F |
119 |
SEAICE_GET_DYNFORCING |
& + 0.5 _d 0 * (uVel(i,j,k,bi,bj)+uVel(i+1,j,k,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
163 |
SEAICE_GET_DYNFORCING |
& +0.5 _d 0*(uVel(i,j,k,bi,bj)+uVel(i+1,j,k,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
171 |
SEAICE_GET_DYNFORCING |
& +0.5 _d 0*(uVel(i-1,j,k,bi,bj)+uVel(i,j,k,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
181 |
SEAICE_GET_DYNFORCING |
& +0.5 _d 0*(uVel(i,j,k,bi,bj)+uVel(i+1,j,k,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
189 |
SEAICE_GET_DYNFORCING |
& +0.5 _d 0*(uVel(i,j-1,k,bi,bj)+uVel(i+1,j-1,k,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
536 |
SEAICE_GROWTH |
& +0.5 _d 0*(uVel(i,j,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
537 |
SEAICE_GROWTH |
& +uVel(i+1,j,kSurface,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
221 |
SEAICE_LSR |
& (uIceC(I ,J,bi,bj)-uVel(I ,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
222 |
SEAICE_LSR |
& +uIceC(I+1,J,bi,bj)-uVel(I+1,J,kSrf,bi,bj))**2 |
|
./pkg/seaice/seaice_lsr.F |
250 |
SEAICE_LSR |
& COSWAT * uVel(I,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
264 |
SEAICE_LSR |
& (uVel(I ,J ,kSrf,bi,bj)-uIceC(I ,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
265 |
SEAICE_LSR |
& +uVel(I+1,J ,kSrf,bi,bj)-uIceC(I+1,J ,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
267 |
SEAICE_LSR |
& (uVel(I ,J-1,kSrf,bi,bj)-uIceC(I ,J-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
268 |
SEAICE_LSR |
& +uVel(I+1,J-1,kSrf,bi,bj)-uIceC(I+1,J-1,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
110 |
SEAICE_OCEAN_STRESS |
& 0.5 _d 0*(uIce(I ,J ,bi,bj)-uVel(I ,J ,kSrf,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
111 |
SEAICE_OCEAN_STRESS |
& +uIce(I+1,J ,bi,bj)-uVel(I+1,J ,kSrf,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
113 |
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 |
114 |
SEAICE_OCEAN_STRESS |
& +uIce(I+1,J-1,bi,bj)-uVel(I+1,J-1,kSrf,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
96 |
SEAICE_OCEAN_STRESS |
& ( uIce(I,J,bi,bj)-uVel(I,J,kSrf,bi,bj) ) |
|
./model/src/dynamics.F |
694 |
DYNAMICS |
CALL DEBUG_STATS_RL(Nr,uVel,'Uvel (DYNAMICS)',myThid) |
|
./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/forward_step.F |
768 |
FORWARD_STEP |
CALL SHAP_FILT_APPLY_UV( uVel,vVel, |
|
./model/src/forward_step.F |
781 |
FORWARD_STEP |
CALL ZONAL_FILT_APPLY_UV( uVel, vVel, myThid ) |
|
./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/OpenAD/code_oad_all/write_state.F |
104 |
WRITE_STATE |
CALL WRITE_REC_XYZ_RL( 'U', uVel,iRec,myIter,myThid) |
|
./verification/OpenAD/code_oad_all/write_state.F |
127 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL( 'U.',suff,uVelv,myIter,myThid) |
|
./verification/OpenAD/code_oad_all/write_state.F |
172 |
WRITE_STATE |
CALL MNC_CW_RL_W(pf,'state',0,0,'U', uVel, myThid) |
|
./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_dynvars.F |
51 |
INI_DYNVARS |
uVel(I,J,K,bi,bj)=0. _d 0 |
|
./verification/bottom_ctrl_5x5/code_ad/cost_test.F |
62 |
COST_TEST |
& + uVel(I,J,K,BI,BJ) |
|
./verification/dome/code/obcs_calc.F |
126 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./verification/dome/code/obcs_calc.F |
145 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./verification/dome/code/obcs_calc.F |
206 |
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 |
94 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./verification/hs94.128x64x5/code/external_forcing.F |
65 |
EXTERNAL_FORCING_U |
& -kV*uVel(i,j,kLev,bi,bj) |
|
./verification/hs94.1x64x5/code/external_forcing.F |
65 |
EXTERNAL_FORCING_U |
& -kV*uVel(i,j,kLev,bi,bj) |
|
./verification/hs94.1x64x5/code_ad/external_forcing.F |
65 |
EXTERNAL_FORCING_U |
& -kV*uVel(i,j,kLev,bi,bj) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
81 |
EXTERNAL_FORCING_U |
& -kV*uVel(i,j,kLev,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/internal_wave/code/obcs_calc.F |
101 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./verification/internal_wave/code/obcs_calc.F |
154 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./verification/internal_wave/code/obcs_calc.F |
174 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./verification/internal_wave/code/obcs_calc.F |
28 |
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 |
81 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./model/src/initialise_varia.F |
266 |
INITIALISE_VARIA |
CALL INTEGR_CONTINUITY( bi, bj, uVel, vVel, |
|
./model/src/momentum_correction_step.F |
118 |
MOMENTUM_CORRECTION_STEP |
CALL OBCS_APPLY_UV( bi, bj, 0, uVel, vVel, myThid ) |
|
./model/src/momentum_correction_step.F |
133 |
MOMENTUM_CORRECTION_STEP |
CALL SHAP_FILT_APPLY_UV( uVel, vVel, myTime, myIter, myThid ) |
|
./model/src/momentum_correction_step.F |
142 |
MOMENTUM_CORRECTION_STEP |
CALL ZONAL_FILT_APPLY_UV( uVel, vVel, myThid ) |
|
./model/src/momentum_correction_step.F |
179 |
MOMENTUM_CORRECTION_STEP |
CALL INTEGR_CONTINUITY( bi, bj, uVel, vVel, |
|
./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/external_forcing.F |
65 |
EXTERNAL_FORCING_U |
& -kV*uVel(i,j,kLev,bi,bj) |
|
./model/src/read_pickup.F |
163 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, uVel, 1, myIter,myThid ) |
|
./model/src/read_pickup.F |
189 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, uVel, nj+1, myIter,myThid ) |
|
./model/src/read_pickup.F |
214 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, uVel, 1, myIter,myThid ) |
|
./model/src/read_pickup.F |
257 |
READ_PICKUP |
CALL READ_MFLDS_3D_RL( 'Uvel ', uVel, |
|
./model/src/read_pickup.F |
437 |
READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'U',uVel, myThid) |
|
./model/src/read_pickup.F |
478 |
READ_PICKUP |
CALL EXCH_UV_3D_RL( uVel, vVel, .TRUE., Nr, myThid ) |
|
./model/src/thermodynamics.F |
381 |
THERMODYNAMICS |
I uVel, vVel, wVel, theta, |
|
./model/src/thermodynamics.F |
395 |
THERMODYNAMICS |
I uVel, vVel, wVel, theta, |
|
./model/src/thermodynamics.F |
407 |
THERMODYNAMICS |
I uVel, vVel, wVel, salt, |
|
./model/src/thermodynamics.F |
421 |
THERMODYNAMICS |
I uVel, vVel, wVel, salt, |
|
./model/src/thermodynamics.F |
498 |
THERMODYNAMICS |
I uVel, vVel, |
|
./model/src/thermodynamics.F |
918 |
THERMODYNAMICS |
CALL DEBUG_STATS_RL(Nr,uVel,'Uvel (THERMODYNAMICS)',myThid) |
|
./model/src/timestep.F |
389 |
TIMESTEP |
gU(i,j,k,bi,bj) = uVel(i,j,k,bi,bj) |
|
./model/src/tracers_correction_step.F |
120 |
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 |
339 |
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 |
127 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL( 'U.',suff,uVel,myIter,myThid) |
|
./model/src/write_state.F |
172 |
WRITE_STATE |
CALL MNC_CW_RL_W(pf,'state',0,0,'U', uVel, myThid) |
|
./pkg/aim_compon_interf/atm_store_taux.F |
73 |
ATM_STORE_TAUX |
& )* 0.5 _d 0 * uVel(i,j,k,bi,bj) |
|
./pkg/aim_compon_interf/atm_store_taux.F |
89 |
ATM_STORE_TAUX |
& * 0.5 _d 0 * uVel(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
192 |
AIM_DYN2AIM |
& uVel(I,J,K,bi,bj)*uVel(I,J,K,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
193 |
AIM_DYN2AIM |
& + uVel(I+1,J,K,bi,bj)*uVel(I+1,J,K,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
107 |
AIM_TENDENCY_APPLY_U |
& )* 0.5 _d 0 * uVel(i,j,kLev,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
112 |
AIM_TENDENCY_APPLY_U |
aim_KEuStr(i,j,bi,bj) = uStr_tmp * uVel(i,j,kLev,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
77 |
AIM_TENDENCY_APPLY_U |
& -maskW(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj)/aim_dragStrato |
|
./pkg/aim_v23/aim_tendency_apply.F |
79 |
AIM_TENDENCY_APPLY_U |
& -maskW(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
80 |
AIM_TENDENCY_APPLY_U |
& *uVel(i,j,kLev,bi,bj)*hFacW(i,j,kLev,bi,bj)*drF(kLev) |
|
./pkg/aim_v23/aim_tendency_apply.F |
90 |
AIM_TENDENCY_APPLY_U |
& * 0.5 _d 0 * uVel(i,j,kLev,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
95 |
AIM_TENDENCY_APPLY_U |
aim_KEuStr(i,j,bi,bj) = uStr_tmp * uVel(i,j,kLev,bi,bj) |
|
./pkg/atm2d/get_ocnvars.F |
109 |
GET_OCNVARS |
& ( uVel(i , j,1,1,1)*uVel(i , j,1,1,1) |
|
./pkg/atm2d/get_ocnvars.F |
110 |
GET_OCNVARS |
& + uVel(i+1,j,1,1,1)*uVel(i+1,j,1,1,1) |
|
./pkg/cd_code/cd_code_scheme.F |
130 |
CD_CODE_SCHEME |
& *uVel(i,j,k,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
132 |
CD_CODE_SCHEME |
& *( ab15*uVel(i,j,k,bi,bj) + ab05*uNM1(i,j,k,bi,bj) ) |
|
./pkg/cd_code/cd_code_scheme.F |
207 |
CD_CODE_SCHEME |
& (uVel(i,j,k,bi,bj)+uVel(i+1,j-1,k,bi,bj)) |
|
./pkg/cd_code/cd_code_scheme.F |
208 |
CD_CODE_SCHEME |
& +(uVel(i,j-1,k,bi,bj)+uVel(i+1,j,k,bi,bj)) |
|
./pkg/cd_code/cd_code_scheme.F |
230 |
CD_CODE_SCHEME |
uNM1(i,j,k,bi,bj) = uVel(i,j,k,bi,bj) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
115 |
GAD_2D_CALC_RHS |
CALL GAD_C2_2D_ADV_X(bi,bj,uVel,localT,af,myThid) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
13 |
GAD_2D_CALC_RHS |
I uVel, vVel, |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
60 |
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 |
451 |
CTRL_MAP_INI |
uVel(i,j,k,bi,bj) = uVel(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
454 |
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 |
111 |
DIAGNOSTICS_FILL_STATE |
& *(uVel(i,j,K,bi,bj)+uVel(i+1,j,K,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
136 |
DIAGNOSTICS_FILL_STATE |
& *(uVel(i,j-1,K,bi,bj)+uVel(i,j,K,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
154 |
DIAGNOSTICS_FILL_STATE |
& *(uVel(i,j,km1,bi,bj)+uVel(i,j,K,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
194 |
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 |
243 |
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 |
292 |
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 |
353 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,K,bi,bj) = -uVel(i,j,K,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
503 |
DIAGNOSTICS_FILL_STATE |
& = uVel(i,j,K,bi,bj)*hFacW(i,j,K,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
536 |
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 |
587 |
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 |
646 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,K,bi,bj) = uVel(i,j,K,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
89 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(uVel, 'UVEL ',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
93 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_SCALE_FILL(uVel,tmpFac,2, |
|
./pkg/ecco/cost_averagesfields.F |
247 |
COST_AVERAGESFIELDS |
ubar(i,j,k,bi,bj) = uVel(i,j,k,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
261 |
COST_AVERAGESFIELDS |
& uVel(i,j,k,bi,bj) )/ |
|
./pkg/ecco/cost_averagesfields.F |
299 |
COST_AVERAGESFIELDS |
& uVel (i,j,k,bi,bj) |
|
./model/inc/DYNVARS.h |
37 |
NO PROCEDURE |
& uVel,vVel,wVel,theta,salt, |
|
./model/inc/DYNVARS.h |
43 |
NO PROCEDURE |
& uVel,vVel,wVel,theta,salt, |
|
./model/inc/DYNVARS.h |
48 |
NO PROCEDURE |
_RL uVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/ecco/the_main_loop.F |
806 |
THE_MAIN_LOOP |
CALL SHAP_FILT_APPLY_UV( uVel,vVel, |
|
./pkg/ecco/the_main_loop.F |
819 |
THE_MAIN_LOOP |
CALL ZONAL_FILT_APPLY_UV( uVel, vVel, myThid ) |
|
./pkg/exf/exf_getffields.F |
142 |
EXF_GETFFIELDS |
& (uVel(i,j,1,bi,bj)+uVel(i+1,j,1,bi,bj)) |