| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_tendency_apply.F |
128 |
FIZHI_TENDENCY_APPLY_V |
. - rayleighdrag * maskS(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
136 |
FIZHI_TENDENCY_APPLY_V |
. - rayleighdrag * maskS(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj) ) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
147 |
FIZHI_TENDENCY_APPLY_V |
. maskS(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj) * 86400 |
|
./pkg/fizhi/fizhi_tendency_apply.F |
209 |
FIZHI_TENDENCY_APPLY_T |
. maskS(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj)+ |
|
./pkg/fizhi/fizhi_tendency_apply.F |
211 |
FIZHI_TENDENCY_APPLY_T |
. vVel(i,j+1,kLev,bi,bj)*vVel(i,j+1,kLev,bi,bj)) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
223 |
FIZHI_TENDENCY_APPLY_T |
. maskS(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj)+ |
|
./pkg/fizhi/fizhi_tendency_apply.F |
225 |
FIZHI_TENDENCY_APPLY_T |
. vVel(i,j+1,kLev,bi,bj)*vVel(i,j+1,kLev,bi,bj)) ) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
239 |
FIZHI_TENDENCY_APPLY_T |
. maskS(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj)+ |
|
./pkg/fizhi/fizhi_tendency_apply.F |
241 |
FIZHI_TENDENCY_APPLY_T |
. vVel(i,j+1,kLev,bi,bj)*vVel(i,j+1,kLev,bi,bj)) ) |
|
./pkg/flt/flt_runga2.F |
109 |
FLT_RUNGA2 |
CALL FLT_TRILINEAR(ix,jy,kz,vv,vVel,2,bi,bj,myThid) |
|
./pkg/flt/flt_runga2.F |
116 |
FLT_RUNGA2 |
CALL FLT_BILINEAR(ix,jy,vv,vVel,kc,2,bi,bj,myThid) |
|
./pkg/flt/flt_runga2.F |
146 |
FLT_RUNGA2 |
CALL FLT_TRILINEAR(itx,jty,ktz,v1,vVel,2,bi,bj,myThid) |
|
./pkg/flt/flt_runga2.F |
153 |
FLT_RUNGA2 |
CALL FLT_BILINEAR(itx,jty,v1,vVel,kc,2,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
111 |
FLT_RUNGA4 |
CALL FLT_TRILINEAR(ix,jy,kz,v1,vVel,2,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
118 |
FLT_RUNGA4 |
CALL FLT_BILINEAR(ix,jy,v1,vVel,kc,2,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
149 |
FLT_RUNGA4 |
CALL FLT_TRILINEAR(itx1,jty1,ktz1,v2,vVel, |
|
./pkg/flt/flt_runga4.F |
159 |
FLT_RUNGA4 |
CALL FLT_BILINEAR(itx1,jty1,v2,vVel, |
|
./pkg/flt/flt_runga4.F |
199 |
FLT_RUNGA4 |
CALL FLT_TRILINEAR(itx2,jty2,ktz2,v3,vVel, |
|
./pkg/flt/flt_runga4.F |
209 |
FLT_RUNGA4 |
CALL FLT_BILINEAR(itx2,jty2,v3,vVel, |
|
./pkg/flt/flt_runga4.F |
249 |
FLT_RUNGA4 |
CALL FLT_TRILINEAR(itx3,jty3,ktz3,v4,vVel, |
|
./pkg/flt/flt_runga4.F |
259 |
FLT_RUNGA4 |
CALL FLT_BILINEAR(itx3,jty3,v4,vVel, |
|
./pkg/flt/flt_traj.F |
150 |
FLT_TRAJ |
CALL FLT_BILINEAR (ix,jy,vv,vVel, kp,2,bi,bj,myThid) |
|
./pkg/flt/flt_up.F |
144 |
FLT_UP |
CALL FLT_BILINEAR (ix,jy,vv,vVel, k,2,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 |
75 |
GAD_ADVECTION |
_RL vVel (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 |
56 |
GAD_SOM_ADVECT |
_RL vVel (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 |
47 |
SALT_FILL |
_RL vVel (1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/ggl90/ggl90_calc.F |
399 |
GGL90_CALC |
tempV= .5 _d 0*( vVel(i,j,km1,bi,bj)+vVel(i,j+1,km1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
400 |
GGL90_CALC |
& -( vVel(i,j,k ,bi,bj)+vVel(i,j+1,k ,bi,bj)) ) |
|
./pkg/kpp/kpp_calc.F |
436 |
KPP_CALC |
& (vVel(i, j, k,bi,bj)-vVel(i, j, kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
437 |
KPP_CALC |
& (vVel(i, j, k,bi,bj)-vVel(i, j, kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
438 |
KPP_CALC |
& (vVel(i, jp1,k,bi,bj)-vVel(i, jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
439 |
KPP_CALC |
& (vVel(i, jp1,k,bi,bj)-vVel(i, jp1,kp1,bi,bj)) ) |
|
./pkg/kpp/kpp_calc.F |
450 |
KPP_CALC |
& (vVel(im1,j, k,bi,bj)-vVel(im1,j, kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
451 |
KPP_CALC |
& (vVel(im1,j, k,bi,bj)-vVel(im1,j, kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
452 |
KPP_CALC |
& (vVel(im1,jp1,k,bi,bj)-vVel(im1,jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
453 |
KPP_CALC |
& (vVel(im1,jp1,k,bi,bj)-vVel(im1,jp1,kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
454 |
KPP_CALC |
& (vVel(ip1,j, k,bi,bj)-vVel(ip1,j, kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
455 |
KPP_CALC |
& (vVel(ip1,j, k,bi,bj)-vVel(ip1,j, kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
456 |
KPP_CALC |
& (vVel(ip1,jp1,k,bi,bj)-vVel(ip1,jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
457 |
KPP_CALC |
& (vVel(ip1,jp1,k,bi,bj)-vVel(ip1,jp1,kp1,bi,bj)) ) |
|
./pkg/kpp/kpp_forcing_surf.F |
306 |
KPP_FORCING_SURF |
& (vVel(i, j, 1,bi,bj)-vVel(i, j, 2,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
307 |
KPP_FORCING_SURF |
& (vVel(i, j, 1,bi,bj)-vVel(i, j, 2,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
308 |
KPP_FORCING_SURF |
& (vVel(i, jp1,1,bi,bj)-vVel(i, jp1,2,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
309 |
KPP_FORCING_SURF |
& (vVel(i, jp1,1,bi,bj)-vVel(i, jp1,2,bi,bj)) ) |
|
./pkg/kpp/kpp_forcing_surf.F |
328 |
KPP_FORCING_SURF |
vRef(i,j) = p5 * ( vVel(i,j,1,bi,bj) + vVel(i,jp1,1,bi,bj) ) |
|
./pkg/kpp/kpp_forcing_surf.F |
363 |
KPP_FORCING_SURF |
$ (vRef(i,j) - vVel(i, j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
364 |
KPP_FORCING_SURF |
$ (vRef(i,j) - vVel(i, j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
365 |
KPP_FORCING_SURF |
$ (vRef(i,j) - vVel(i, jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
366 |
KPP_FORCING_SURF |
$ (vRef(i,j) - vVel(i, jp1,k,bi,bj)) ) |
|
./pkg/kpp/kpp_forcing_surf.F |
377 |
KPP_FORCING_SURF |
$ (vRef(i,j) - vVel(im1,j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
378 |
KPP_FORCING_SURF |
$ (vRef(i,j) - vVel(im1,j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
379 |
KPP_FORCING_SURF |
$ (vRef(i,j) - vVel(im1,jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
380 |
KPP_FORCING_SURF |
$ (vRef(i,j) - vVel(im1,jp1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
381 |
KPP_FORCING_SURF |
$ (vRef(i,j) - vVel(ip1,j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
382 |
KPP_FORCING_SURF |
$ (vRef(i,j) - vVel(ip1,j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
383 |
KPP_FORCING_SURF |
$ (vRef(i,j) - vVel(ip1,jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
384 |
KPP_FORCING_SURF |
$ (vRef(i,j) - vVel(ip1,jp1,k,bi,bj)) ) |
|
./pkg/kpp/kpp_forcing_surf.F |
404 |
KPP_FORCING_SURF |
$ (vVel(i, j, 1,bi,bj)-vVel(i, j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
405 |
KPP_FORCING_SURF |
$ (vVel(i, j, 1,bi,bj)-vVel(i, j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
406 |
KPP_FORCING_SURF |
$ (vVel(i, jp1,1,bi,bj)-vVel(i, jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
407 |
KPP_FORCING_SURF |
$ (vVel(i, jp1,1,bi,bj)-vVel(i, jp1,k,bi,bj)) ) |
|
./pkg/kpp/kpp_forcing_surf.F |
418 |
KPP_FORCING_SURF |
$ (vVel(im1,j, 1,bi,bj)-vVel(im1,j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
419 |
KPP_FORCING_SURF |
$ (vVel(im1,j, 1,bi,bj)-vVel(im1,j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
420 |
KPP_FORCING_SURF |
$ (vVel(im1,jp1,1,bi,bj)-vVel(im1,jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
421 |
KPP_FORCING_SURF |
$ (vVel(im1,jp1,1,bi,bj)-vVel(im1,jp1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
422 |
KPP_FORCING_SURF |
$ (vVel(ip1,j, 1,bi,bj)-vVel(ip1,j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
423 |
KPP_FORCING_SURF |
$ (vVel(ip1,j, 1,bi,bj)-vVel(ip1,j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
424 |
KPP_FORCING_SURF |
$ (vVel(ip1,jp1,1,bi,bj)-vVel(ip1,jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
425 |
KPP_FORCING_SURF |
$ (vVel(ip1,jp1,1,bi,bj)-vVel(ip1,jp1,k,bi,bj)) ) |
|
./pkg/layers/layers_calc.F |
234 |
LAYERS_CALC |
& + dZZf(kk) * vVel(i,j,kci,bi,bj) * hFacS(i,j,kci,bi,bj) |
|
./pkg/longstep/longstep_average.F |
90 |
LONGSTEP_AVERAGE |
CALL LONGSTEP_FILL_3D_FAC(LS_vVelCount, LS_vVel, vVel, hFacS, |
|
./model/src/calc_common_factors.F |
10 |
CALC_COMMON_FACTORS |
I uVel, vVel, |
|
./model/src/calc_common_factors.F |
49 |
CALC_COMMON_FACTORS |
_RL vVel (1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./model/src/calc_common_factors.F |
91 |
CALC_COMMON_FACTORS |
vFld(i,j) = vVel(i,j,k,bi,bj) |
|
./model/src/calc_div_ghat.F |
156 |
CALC_DIV_GHAT |
& + (1. _d 0-implicDiv2Dflow)* vVel(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
268 |
MOM_FLUXFORM |
vFld(i,j) = vVel(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
310 |
MOM_FLUXFORM |
I uVel, vVel, |
|
./pkg/mom_fluxform/mom_fluxform.F |
338 |
MOM_FLUXFORM |
CALL MOM_V_ADV_WV( bi,bj,k,vVel,wVel,rTransV, |
|
./pkg/mom_fluxform/mom_fluxform.F |
355 |
MOM_FLUXFORM |
I uVel, vVel, |
|
./pkg/mom_fluxform/mom_fluxform.F |
614 |
MOM_FLUXFORM |
I bi,bj,k+1,vVel,wVel,rTransV, |
|
./pkg/mom_fluxform/mom_fluxform.F |
653 |
MOM_FLUXFORM |
& *vVel(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
661 |
MOM_FLUXFORM |
& - rStarDhSDt(i,j,bi,bj)*vVel(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
695 |
MOM_FLUXFORM |
CALL MOM_V_RVISCFLUX(bi,bj, k, vVel,KappaRV,fVrUp,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
696 |
MOM_FLUXFORM |
CALL MOM_V_RVISCFLUX(bi,bj,k+1,vVel,KappaRV,fVrDw,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
223 |
MOM_VECINV |
vFld(i,j) = vVel(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vecinv.F |
398 |
MOM_VECINV |
CALL MOM_V_RVISCFLUX(bi,bj,k+1,vVel,KappaRV,vrF,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
617 |
MOM_VECINV |
CALL MOM_VI_V_VERTSHEAR(bi,bj,K,vVel,wVel,vCf,myThid) |
|
./model/src/calc_gw.F |
466 |
CALC_GW |
& drF(km1)*_hFacS(i,j,km1,bi,bj)*vVel(i,j,km1,bi,bj) |
|
./model/src/calc_gw.F |
468 |
CALC_GW |
& +drF( k )*_hFacS(i,j, k ,bi,bj)*vVel(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 |
86 |
MON_KE |
& +vVel(i, j ,k,bi,bj)*vVel(i, j ,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
88 |
MON_KE |
& +vVel(i,j+1,k,bi,bj)*vVel(i,j+1,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
136 |
MON_VORT3 |
& vVel( i ,j,k,bi,bj)*dyC( i ,j,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
137 |
MON_VORT3 |
& -vVel(i-1,j,k,bi,bj)*dyC(i-1,j,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
188 |
MON_VORT3 |
& vVel(i,j,k,bi,bj)*dyC(i,j,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
203 |
MON_VORT3 |
& -vVel(i-1,j,k,bi,bj)*dyC(i-1,j,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
218 |
MON_VORT3 |
& vVel(i,j,k,bi,bj)*dyC(i,j,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
233 |
MON_VORT3 |
& -vVel(i-1,j,k,bi,bj)*dyC(i-1,j,bi,bj) |
|
./pkg/monitor/monitor.F |
112 |
MONITOR |
CALL MON_WRITESTATS_RL( Nr, vVel, '_vvel', |
|
./pkg/monitor/monitor.F |
150 |
MONITOR |
CALL MON_ADVCFL( '_vvel', vVel, recip_dyC, 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 |
107 |
MY82_RI_NUMBER |
tempv= .5 _d 0*( vVel(I,J,Km1,bi,bj)+vVel(I,J+1,Km1,bi,bj) |
|
./pkg/my82/my82_ri_number.F |
108 |
MY82_RI_NUMBER |
& - (vVel(I,J,K ,bi,bj)+vVel(I,J+1,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 |
38 |
OBCS_CALC |
_RL vVel (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_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 |
249 |
OBCS_SPONGE_V |
& + float(jsl)*vVel(i,j,kLev,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
265 |
OBCS_SPONGE_V |
& * ( vVel(i,j,kLev,bi,bj) - vrelax ) |
|
./pkg/obcs/obcs_sponge.F |
283 |
OBCS_SPONGE_V |
& + float(jsl)*vVel(i,j,kLev,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
299 |
OBCS_SPONGE_V |
& * ( vVel(i,j,kLev,bi,bj) - vrelax ) |
|
./pkg/obcs/obcs_sponge.F |
317 |
OBCS_SPONGE_V |
& + float(isl)*vVel(i,j,kLev,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
333 |
OBCS_SPONGE_V |
& * ( vVel(i,j,kLev,bi,bj) - vrelax ) |
|
./pkg/obcs/obcs_sponge.F |
352 |
OBCS_SPONGE_V |
& + float(isl)*vVel(i,j,kLev,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
368 |
OBCS_SPONGE_V |
& * ( vVel(i,j,kLev,bi,bj) - vrelax ) |
|
./pkg/obcs/orlanski_east.F |
139 |
ORLANSKI_EAST |
CL=-(vVel(I_obc-1,J,K,bi,bj)-VE_STORE_1(J,K,bi,bj))/ |
|
./pkg/obcs/orlanski_east.F |
156 |
ORLANSKI_EAST |
OBEv(J,K,bi,bj)=vVel(I_obc,J,K,bi,bj)- |
|
./pkg/obcs/orlanski_east.F |
158 |
ORLANSKI_EAST |
& (ab1*(vVel(I_obc,J,K,bi,bj)-vVel(I_obc-1,J,K,bi,bj)) + |
|
./pkg/obcs/orlanski_east.F |
255 |
ORLANSKI_EAST |
VE_STORE_2(J,K,bi,bj)=vVel(I_obc-1,J,K,bi,bj) - |
|
./pkg/obcs/orlanski_east.F |
256 |
ORLANSKI_EAST |
& vVel(I_obc-2,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
257 |
ORLANSKI_EAST |
VE_STORE_1(J,K,bi,bj)=vVel(I_obc-1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
258 |
ORLANSKI_EAST |
VE_STORE_4(J,K,bi,bj)=vVel(I_obc,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
81 |
ORLANSKI_EAST |
_RL vVel (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 |
124 |
ORLANSKI_NORTH |
CL=-(vVel(I,J_obc-1,K,bi,bj)-VN_STORE_1(I,K,bi,bj))/ |
|
./pkg/obcs/orlanski_north.F |
135 |
ORLANSKI_NORTH |
OBNv(I,K,bi,bj)=vVel(I,J_obc,K,bi,bj)- |
|
./pkg/obcs/orlanski_north.F |
137 |
ORLANSKI_NORTH |
& (ab1*(vVel(I,J_obc,K,bi,bj)-vVel(I,J_obc-1,K,bi,bj)) + |
|
./pkg/obcs/orlanski_north.F |
216 |
ORLANSKI_NORTH |
VN_STORE_2(I,K,bi,bj)=vVel(I,J_obc-1,K,bi,bj) - |
|
./pkg/obcs/orlanski_north.F |
217 |
ORLANSKI_NORTH |
& vVel(I,J_obc-2,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
218 |
ORLANSKI_NORTH |
VN_STORE_1(I,K,bi,bj)=vVel(I,J_obc-1,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
219 |
ORLANSKI_NORTH |
VN_STORE_4(I,K,bi,bj)=vVel(I,J_obc,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
72 |
ORLANSKI_NORTH |
_RL vVel (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 |
124 |
ORLANSKI_SOUTH |
CL=(vVel(I,J_obc+2,K,bi,bj)-VS_STORE_1(I,K,bi,bj))/ |
|
./pkg/obcs/orlanski_south.F |
135 |
ORLANSKI_SOUTH |
OBSv(I,K,bi,bj)=vVel(I,J_obc+1,K,bi,bj)+ |
|
./pkg/obcs/orlanski_south.F |
137 |
ORLANSKI_SOUTH |
& (ab1*(vVel(I,J_obc+2,K,bi,bj)-vVel(I,J_obc+1,K,bi,bj))+ |
|
./pkg/obcs/orlanski_south.F |
216 |
ORLANSKI_SOUTH |
VS_STORE_2(I,K,bi,bj)=vVel(I,J_obc+3,K,bi,bj) - |
|
./pkg/obcs/orlanski_south.F |
217 |
ORLANSKI_SOUTH |
& vVel(I,J_obc+2,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
218 |
ORLANSKI_SOUTH |
VS_STORE_1(I,K,bi,bj)=vVel(I,J_obc+2,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
219 |
ORLANSKI_SOUTH |
VS_STORE_4(I,K,bi,bj)=vVel(I,J_obc+1,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
72 |
ORLANSKI_SOUTH |
_RL vVel (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 |
141 |
ORLANSKI_WEST |
CL=(vVel(I_obc+1,J,K,bi,bj)-VW_STORE_1(J,K,bi,bj))/ |
|
./pkg/obcs/orlanski_west.F |
158 |
ORLANSKI_WEST |
OBWv(J,K,bi,bj)=vVel(I_obc,J,K,bi,bj)+ |
|
./pkg/obcs/orlanski_west.F |
160 |
ORLANSKI_WEST |
& (ab1*(vVel(I_obc+1,J,K,bi,bj)-vVel(I_obc,J,K,bi,bj))+ |
|
./pkg/obcs/orlanski_west.F |
257 |
ORLANSKI_WEST |
VW_STORE_2(J,K,bi,bj)=vVel(I_obc+2,J,K,bi,bj) - |
|
./pkg/obcs/orlanski_west.F |
258 |
ORLANSKI_WEST |
& vVel(I_obc+1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
259 |
ORLANSKI_WEST |
VW_STORE_1(J,K,bi,bj)=vVel(I_obc+1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
260 |
ORLANSKI_WEST |
VW_STORE_4(J,K,bi,bj)=vVel(I_obc,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
83 |
ORLANSKI_WEST |
_RL vVel (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 |
98 |
OCN_STORE_MY_DATA |
& + vVel(i,j+1,1,bi,bj)*vVel(i,j+1,1,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_store_my_data.F |
99 |
OCN_STORE_MY_DATA |
& + vVel(i,j , 1,bi,bj)*vVel(i,j , 1,bi,bj) |
|
./pkg/pp81/pp81_ri_number.F |
111 |
PP81_RI_NUMBER |
tempv= .5*( vVel(I,J,Km1,bi,bj)+vVel(I,J+1,Km1,bi,bj) |
|
./pkg/pp81/pp81_ri_number.F |
112 |
PP81_RI_NUMBER |
& - (vVel(I,J,K ,bi,bj)+vVel(I,J+1,K ,bi,bj)) ) |
|
./pkg/profiles/profiles_interp.F |
177 |
PROFILES_INTERP |
tab_coeffs1(1,1)=vVel(prof_i,prof_j,k,bi,bj) !SO |
|
./pkg/profiles/profiles_interp.F |
178 |
PROFILES_INTERP |
tab_coeffs1(1,2)=vVel(prof_i+1,prof_j,k,bi,bj) !SE |
|
./pkg/profiles/profiles_interp.F |
179 |
PROFILES_INTERP |
tab_coeffs1(2,1)=vVel(prof_i,prof_j+1,k,bi,bj) !NO |
|
./pkg/profiles/profiles_interp.F |
180 |
PROFILES_INTERP |
tab_coeffs1(2,2)=vVel(prof_i+1,prof_j+1,k,bi,bj) !NZ |
|
./pkg/profiles/profiles_interp_gg.F |
83 |
PROFILES_INTERP_GG |
tab_coeffs1(q)=vVel(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 |
127 |
PTRACERS_DIAGNOSTICS_STATE |
& vVel(i,j,k,bi,bj)*hFacS(i,j,k,bi,bj) * |
|
./model/src/correction_step.F |
82 |
CORRECTION_STEP |
vVel(i,j,k,bi,bj)=( gV(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 |
81 |
DYNSOLVER |
GWATY(I,J,bi,bj)=HALF*(vVel(i,j,KGEO(I,J,bi,bj),bi,bj) |
|
./pkg/seaice/dynsolver.F |
82 |
DYNSOLVER |
& +vVel(i-1,j,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 |
433 |
SEAICE_EVP |
& +(vIceC(I,J ,bi,bj)-vVel(I,J ,kSrf,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
434 |
SEAICE_EVP |
& + vIceC(I,J+1,bi,bj)-vVel(I,J+1,kSrf,bi,bj))**2) |
|
./pkg/seaice/seaice_evp.F |
463 |
SEAICE_EVP |
& (vVel(I ,J ,kSrf,bi,bj)-vIceC(I ,J ,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
464 |
SEAICE_EVP |
& +vVel(I ,J+1,kSrf,bi,bj)-vIceC(I ,J+1,bi,bj)) |
|
./pkg/seaice/seaice_evp.F |
466 |
SEAICE_EVP |
& (vVel(I-1,J ,kSrf,bi,bj)-vIceC(I-1,J ,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
467 |
SEAICE_EVP |
& +vVel(I-1,J+1,kSrf,bi,bj)-vIceC(I-1,J+1,bi,bj)) |
|
./pkg/seaice/seaice_evp.F |
471 |
SEAICE_EVP |
& COSWAT * vVel(I,J,kSrf,bi,bj) |
|
./model/src/do_the_model_io.F |
61 |
DO_THE_MODEL_IO |
CALL PLOT_FIELD_XYZRL( vVel , 'Current vVel ', |
|
./pkg/seaice/seaice_get_dynforcing.F |
122 |
SEAICE_GET_DYNFORCING |
& + 0.5 _d 0 * (vVel(i,j,k,bi,bj)+vVel(i,j+1,k,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
167 |
SEAICE_GET_DYNFORCING |
& +0.5 _d 0*(vVel(i,j,k,bi,bj)+vVel(i,j+1,k,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
175 |
SEAICE_GET_DYNFORCING |
& +0.5 _d 0*(vVel(i-1,j,k,bi,bj)+vVel(i-1,j+1,k,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
185 |
SEAICE_GET_DYNFORCING |
& +0.5 _d 0*(vVel(i,j,k,bi,bj)+vVel(i,j+1,k,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
193 |
SEAICE_GET_DYNFORCING |
& +0.5 _d 0*(vVel(i,j-1,k,bi,bj)+vVel(i,j,k,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
540 |
SEAICE_GROWTH |
& +0.5 _d 0*(vVel(i,j,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
541 |
SEAICE_GROWTH |
& +vVel(i,j+1,kSurface,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
223 |
SEAICE_LSR |
& +(vIceC(I,J ,bi,bj)-vVel(I,J ,kSrf,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
224 |
SEAICE_LSR |
& +vIceC(I,J+1,bi,bj)-vVel(I,J+1,kSrf,bi,bj))**2) |
|
./pkg/seaice/seaice_lsr.F |
253 |
SEAICE_LSR |
& (vVel(I ,J ,kSrf,bi,bj)-vIceC(I ,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
254 |
SEAICE_LSR |
& +vVel(I ,J+1,kSrf,bi,bj)-vIceC(I ,J+1,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
256 |
SEAICE_LSR |
& (vVel(I-1,J ,kSrf,bi,bj)-vIceC(I-1,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
257 |
SEAICE_LSR |
& +vVel(I-1,J+1,kSrf,bi,bj)-vIceC(I-1,J+1,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
261 |
SEAICE_LSR |
& COSWAT * vVel(I,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
100 |
SEAICE_OCEAN_STRESS |
& +vIce(I ,J+1,bi,bj)-vVel(I ,J+1,kSrf,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
102 |
SEAICE_OCEAN_STRESS |
& 0.5 _d 0*(vIce(I-1,J ,bi,bj)-vVel(I-1,J ,kSrf,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
103 |
SEAICE_OCEAN_STRESS |
& +vIce(I-1,J+1,bi,bj)-vVel(I-1,J+1,kSrf,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
107 |
SEAICE_OCEAN_STRESS |
& ( vIce(I,J,bi,bj)-vVel(I,J,kSrf,bi,bj) ) |
|
./pkg/seaice/seaice_ocean_stress.F |
99 |
SEAICE_OCEAN_STRESS |
& 0.5 _d 0*(vIce(I ,J ,bi,bj)-vVel(I ,J ,kSrf,bi,bj) |
|
./model/src/dynamics.F |
695 |
DYNAMICS |
CALL DEBUG_STATS_RL(Nr,vVel,'Vvel (DYNAMICS)',myThid) |
|
./pkg/shap_filt/shap_filt_v.F |
101 |
SHAP_FILT_V |
vVel(i,j,k,bi,bj) = tmpFldX(i,j,N2) - tmpFldY(i,j,N2) |
|
./pkg/shap_filt/shap_filt_v.F |
107 |
SHAP_FILT_V |
vVel(i,j,k,bi,bj) = vVel(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_v.F |
22 |
SHAP_FILT_V |
_RL vVel(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/shap_filt/shap_filt_v.F |
45 |
SHAP_FILT_V |
tmpFldX(i,j,1) = vVel(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_v.F |
6 |
SHAP_FILT_V |
SUBROUTINE SHAP_FILT_V( vVel,bi,bj,K,myCurrentTime,myThid ) |
|
./pkg/shap_filt/shap_filt_v.F |
70 |
SHAP_FILT_V |
tmpFldX(i,j,N2) = vVel(i,j,k,bi,bj) - tmpFldX(i,j,N2) |
|
./pkg/shap_filt/shap_filt_v.F |
77 |
SHAP_FILT_V |
tmpFldY(i,j,1) = vVel(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 |
118 |
TIMEAVE_STATVARS |
CALL TIMEAVE_CUMULATE(vVeltave, vVel, Nr, DDTT, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
128 |
TIMEAVE_STATVARS |
CALL TIMEAVE_CUMUL_2V(VVtave, vVel, vVel, Nr, 0, |
|
./pkg/timeave/timeave_statvars.F |
130 |
TIMEAVE_STATVARS |
CALL TIMEAVE_CUMUL_2V(UVtave, uVel, vVel, Nr, 12, |
|
./pkg/timeave/timeave_statvars.F |
148 |
TIMEAVE_STATVARS |
CALL TIMEAVE_CUMUL_1VFC(hVtave, vVel, hFacS, Nr, |
|
./pkg/timeave/timeave_statvars.F |
156 |
TIMEAVE_STATVARS |
CALL TIMEAVE_CUMUL_2VFC(VTtave, theta, vVel, hFacS, Nr, 2, |
|
./pkg/timeave/timeave_statvars.F |
160 |
TIMEAVE_STATVARS |
CALL TIMEAVE_CUMUL_2VFC(VStave, salt, vVel, hFacS, Nr, 2, |
|
./verification/OpenAD/code_oad_all/write_state.F |
105 |
WRITE_STATE |
CALL WRITE_REC_XYZ_RL( 'V', vVel,iRec,myIter,myThid) |
|
./verification/OpenAD/code_oad_all/write_state.F |
128 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL( 'V.',suff,vVelv,myIter,myThid) |
|
./verification/OpenAD/code_oad_all/write_state.F |
173 |
WRITE_STATE |
CALL MNC_CW_RL_W(pf,'state',0,0,'V', vVel, myThid) |
|
./verification/advect_cs/code/ini_vel.F |
61 |
INI_VEL |
vVel(i,j,k,bi,bj)=0. _d 0 |
|
./verification/advect_cs/code/ini_vel.F |
76 |
INI_VEL |
& CALL READ_FLD_XYZ_RL( vVelInitFile, ' ', vVel, 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 |
87 |
INI_VEL |
vVel(i,j,k,bi,bj)=vVel(i,j,k,bi,bj)*_maskS(i,j,k,bi,bj) |
|
./verification/advect_xy/code/ini_vel.F |
52 |
INI_VEL |
vVel(i,j,k,bi,bj)=1. _d 0 |
|
./verification/advect_xy/code/ini_vel.F |
66 |
INI_VEL |
& CALL READ_FLD_XYZ_RL( vVelInitFile, ' ', vVel, 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 |
77 |
INI_VEL |
vVel(i,j,k,bi,bj)=vVel(i,j,k,bi,bj)*_maskS(i,j,k,bi,bj) |
|
./model/src/ini_dynvars.F |
52 |
INI_DYNVARS |
vVel(I,J,K,bi,bj)=0. _d 0 |
|
./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 |
30 |
OBCS_CALC |
_RL vVel (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 |
133 |
EXTERNAL_FORCING_V |
& -kV*vVel(i,j,kLev,bi,bj) |
|
./verification/hs94.1x64x5/code/external_forcing.F |
133 |
EXTERNAL_FORCING_V |
& -kV*vVel(i,j,kLev,bi,bj) |
|
./verification/hs94.1x64x5/code_ad/external_forcing.F |
133 |
EXTERNAL_FORCING_V |
& -kV*vVel(i,j,kLev,bi,bj) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
165 |
EXTERNAL_FORCING_V |
& -kV*vVel(i,j,kLev,bi,bj) |
|
./model/src/ini_vel.F |
52 |
INI_VEL |
vVel(i,j,k,bi,bj)=0. _d 0 |
|
./model/src/ini_vel.F |
65 |
INI_VEL |
& CALL READ_FLD_XYZ_RL( vVelInitFile, ' ', vVel, 0, myThid ) |
|
./model/src/ini_vel.F |
67 |
INI_VEL |
CALL EXCH_UV_XYZ_RL(uVel,vVel,.TRUE.,myThid) |
|
./model/src/ini_vel.F |
76 |
INI_VEL |
vVel(i,j,k,bi,bj)=vVel(i,j,k,bi,bj)*_maskS(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 |
29 |
OBCS_CALC |
_RL vVel (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 |
58 |
INI_VEL |
vVel(i,j,k,bi,bj)=0. |
|
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
77 |
INI_VEL |
CALL READ_FLD_XYZ_RL( vVelInitFile, ' ', vVel, 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 |
92 |
INI_VEL |
vVel(i,j,k,bi,bj)=vVel(i,j,k,bi,bj)*_maskS(i,j,k,bi,bj) |
|
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
133 |
EXTERNAL_FORCING_V |
& -kV*vVel(i,j,kLev,bi,bj) |
|
./model/src/read_pickup.F |
166 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, vVel, 4, myIter,myThid ) |
|
./model/src/read_pickup.F |
195 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, vVel, nj+1, myIter,myThid ) |
|
./model/src/read_pickup.F |
216 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, vVel, 3, myIter,myThid ) |
|
./model/src/read_pickup.F |
259 |
READ_PICKUP |
CALL READ_MFLDS_3D_RL( 'Vvel ', vVel, |
|
./model/src/read_pickup.F |
438 |
READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'V',vVel, 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 |
919 |
THERMODYNAMICS |
CALL DEBUG_STATS_RL(Nr,vVel,'Vvel (THERMODYNAMICS)',myThid) |
|
./model/src/timestep.F |
401 |
TIMESTEP |
gV(i,j,k,bi,bj) = vVel(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 |
115 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, vVel, -j, myIter, myThid ) |
|
./model/src/write_pickup.F |
340 |
WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'V', vVel, myThid) |
|
./model/src/write_state.F |
105 |
WRITE_STATE |
CALL WRITE_REC_XYZ_RL( 'V', vVel,iRec,myIter,myThid) |
|
./model/src/write_state.F |
128 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL( 'V.',suff,vVel,myIter,myThid) |
|
./model/src/write_state.F |
173 |
WRITE_STATE |
CALL MNC_CW_RL_W(pf,'state',0,0,'V', vVel, myThid) |
|
./pkg/aim_compon_interf/atm_store_tauy.F |
73 |
ATM_STORE_TAUY |
& )* 0.5 _d 0 * vVel(i,j,k,bi,bj) |
|
./pkg/aim_compon_interf/atm_store_tauy.F |
89 |
ATM_STORE_TAUY |
& * 0.5 _d 0 * vVel(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
194 |
AIM_DYN2AIM |
& + vVel(I,J,K,bi,bj)*vVel(I,J,K,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
195 |
AIM_DYN2AIM |
& + vVel(I,J+1,K,bi,bj)*vVel(I,J+1,K,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
203 |
AIM_TENDENCY_APPLY_V |
& -maskS(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj)/aim_dragStrato |
|
./pkg/aim_v23/aim_tendency_apply.F |
205 |
AIM_TENDENCY_APPLY_V |
& -maskS(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
206 |
AIM_TENDENCY_APPLY_V |
& *vVel(i,j,kLev,bi,bj)*hFacS(i,j,kLev,bi,bj)*drF(kLev) |
|
./pkg/aim_v23/aim_tendency_apply.F |
216 |
AIM_TENDENCY_APPLY_V |
& * 0.5 _d 0 * vVel(i,j,kLev,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
221 |
AIM_TENDENCY_APPLY_V |
aim_KEvStr(i,j,bi,bj) = vStr_tmp * vVel(i,j,kLev,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
233 |
AIM_TENDENCY_APPLY_V |
& )* 0.5 _d 0 * vVel(i,j,kLev,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
238 |
AIM_TENDENCY_APPLY_V |
aim_KEvStr(i,j,bi,bj) = vStr_tmp * vVel(i,j,kLev,bi,bj) |
|
./pkg/atm2d/get_ocnvars.F |
111 |
GET_OCNVARS |
& + vVel(i,j+1,1,1,1)*vVel(i,j+1,1,1,1) |
|
./pkg/atm2d/get_ocnvars.F |
112 |
GET_OCNVARS |
& + vVel(i,j , 1,1,1)*vVel(i,j , 1,1,1) |
|
./pkg/cd_code/cd_code_scheme.F |
148 |
CD_CODE_SCHEME |
& (vVel(i,j,k,bi,bj)+vVel(i-1,j+1,k,bi,bj)) |
|
./pkg/cd_code/cd_code_scheme.F |
149 |
CD_CODE_SCHEME |
& +(vVel(i-1,j,k,bi,bj)+vVel(i,j+1,k,bi,bj)) |
|
./pkg/cd_code/cd_code_scheme.F |
189 |
CD_CODE_SCHEME |
& *vVel(i,j,k,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
191 |
CD_CODE_SCHEME |
& *( ab15*vVel(i,j,k,bi,bj) + ab05*vNM1(i,j,k,bi,bj) ) |
|
./pkg/cd_code/cd_code_scheme.F |
231 |
CD_CODE_SCHEME |
vNM1(i,j,k,bi,bj) = vVel(i,j,k,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 |
CALL GAD_C2_2D_ADV_Y(bi,bj,vVel,localT,af,myThid) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
61 |
GAD_2D_CALC_RHS |
_RL vVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/cheapaml/gad_c2_2d_adv_y.F |
12 |
GAD_C2_2D_ADV_Y |
I vVel, |
|
./pkg/cheapaml/gad_c2_2d_adv_y.F |
35 |
GAD_C2_2D_ADV_Y |
_RL vVel(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/cheapaml/gad_c2_2d_adv_y.F |
54 |
GAD_C2_2D_ADV_Y |
& vVel(i,j,bi,bj)*(Tracer(i,j)+Tracer(i,j-1))*0.5 _d 0 |
|
./pkg/cost/cost_accumulate_mean.F |
56 |
COST_ACCUMULATE_MEAN |
& + vVel(i,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
79 |
COST_ATLANTIC_HEAT |
& + (vVel(i,j,k,bi,bj) * maskS(i,j,k,bi,bj) |
|
./pkg/cost/cost_vector.F |
70 |
COST_VECTOR |
& + vVel(i,j,k,bi,bj) * maskS(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
478 |
CTRL_MAP_INI |
vVel(i,j,k,bi,bj) = vVel(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
481 |
CTRL_MAP_INI |
vVel(i,j,k,bi,bj) = vVel(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
607 |
CTRL_MAP_INI |
_EXCH_XYZ_RL( vVel, mythid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
113 |
DIAGNOSTICS_FILL_STATE |
& *(vVel(i,j,K,bi,bj)+vVel(i,j+1,K,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
137 |
DIAGNOSTICS_FILL_STATE |
& *(vVel(i-1,j,K,bi,bj)+vVel(i,j,K,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
174 |
DIAGNOSTICS_FILL_STATE |
& *(vVel(i,j,km1,bi,bj)+vVel(i,j,K,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
210 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,K,bi,bj) = vVel(i,j,K,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
259 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,K,bi,bj) = vVel(i,j,K,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
308 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,K,bi,bj) = vVel(i,j,K,bi,bj)*hFacS(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
369 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,K,bi,bj) = -vVel(i,j,K,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
519 |
DIAGNOSTICS_FILL_STATE |
& = vVel(i,j,K,bi,bj)*hFacS(i,j,K,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
553 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,K,bi,bj) = vVel(i,j,K,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
604 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,K,bi,bj) = vVel(i,j,K,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
662 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,K,bi,bj) = vVel(i,j,K,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
90 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(vVel, 'VVEL ',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
95 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_SCALE_FILL(vVel,tmpFac,2, |
|
./pkg/ecco/cost_atlantic.F |
161 |
COST_ATLANTIC |
$ + theta(i,j-1,k,bi,bj))*vVel(i,j,k,bi,bj) |
|
./pkg/ecco/cost_atlantic.F |
205 |
COST_ATLANTIC |
$ + theta(i,j-1,k,bi,bj))*vVel(i,j,k,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
248 |
COST_AVERAGESFIELDS |
vbar(i,j,k,bi,bj) = vVel(i,j,k,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
264 |
COST_AVERAGESFIELDS |
& vVel(i,j,k,bi,bj) )/ |
|
./pkg/ecco/cost_averagesfields.F |
301 |
COST_AVERAGESFIELDS |
& vVel (i,j,k,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
532 |
COST_AVERAGESFIELDS |
& +vVel(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 |
49 |
NO PROCEDURE |
_RL vVel (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 |
144 |
EXF_GETFFIELDS |
& (vVel(i,j,1,bi,bj)+vVel(i,j+1,1,bi,bj)) |