| 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 |
198 |
ECCO_PHYS |
& vVel(i,j,k,bi,bj)*hFacS(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_phys.F |
323 |
ECCO_PHYS |
& +vVel(i,j,k,bi,bj)*tmpmskS |
|
./pkg/exf/exf_getffields.F |
153 |
EXF_GETFFIELDS |
& * (vVel(i,j,1,bi,bj)+vVel(i,j+1,1,bi,bj)) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
143 |
FIZHI_TENDENCY_APPLY_V |
& - rayleighdrag*vVel(i,j,kLev,bi,bj) ) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
152 |
FIZHI_TENDENCY_APPLY_V |
& - rayleighdrag*vVel(i,j,kLev,bi,bj) ) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
163 |
FIZHI_TENDENCY_APPLY_V |
& maskS(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj) * 86400 |
|
./pkg/fizhi/fizhi_tendency_apply.F |
233 |
FIZHI_TENDENCY_APPLY_T |
& *vVel(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
235 |
FIZHI_TENDENCY_APPLY_T |
& *vVel(i,j+1,kLev,bi,bj)*vVel(i,j+1,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
251 |
FIZHI_TENDENCY_APPLY_T |
& *vVel(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
253 |
FIZHI_TENDENCY_APPLY_T |
& *vVel(i,j+1,kLev,bi,bj)*vVel(i,j+1,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
269 |
FIZHI_TENDENCY_APPLY_T |
& *vVel(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
271 |
FIZHI_TENDENCY_APPLY_T |
& *vVel(i,j+1,kLev,bi,bj)*vVel(i,j+1,kLev,bi,bj) |
|
./pkg/flt/flt_runga2.F |
114 |
FLT_RUNGA2 |
CALL FLT_TRILINEAR(ix,jy,kz,vv,vVel,2,bi,bj,myThid) |
|
./pkg/flt/flt_runga2.F |
121 |
FLT_RUNGA2 |
CALL FLT_BILINEAR(ix,jy,vv,vVel,kc,2,bi,bj,myThid) |
|
./pkg/flt/flt_runga2.F |
151 |
FLT_RUNGA2 |
CALL FLT_TRILINEAR(itx,jty,ktz,v1,vVel,2,bi,bj,myThid) |
|
./pkg/flt/flt_runga2.F |
158 |
FLT_RUNGA2 |
CALL FLT_BILINEAR(itx,jty,v1,vVel,kc,2,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
116 |
FLT_RUNGA4 |
CALL FLT_TRILINEAR(ix,jy,kz,v1,vVel,2,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
123 |
FLT_RUNGA4 |
CALL FLT_BILINEAR(ix,jy,v1,vVel,kc,2,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
154 |
FLT_RUNGA4 |
CALL FLT_TRILINEAR(itx1,jty1,ktz1,v2,vVel, |
|
./pkg/flt/flt_runga4.F |
164 |
FLT_RUNGA4 |
CALL FLT_BILINEAR(itx1,jty1,v2,vVel, |
|
./pkg/flt/flt_runga4.F |
204 |
FLT_RUNGA4 |
CALL FLT_TRILINEAR(itx2,jty2,ktz2,v3,vVel, |
|
./pkg/flt/flt_runga4.F |
214 |
FLT_RUNGA4 |
CALL FLT_BILINEAR(itx2,jty2,v3,vVel, |
|
./pkg/flt/flt_runga4.F |
254 |
FLT_RUNGA4 |
CALL FLT_TRILINEAR(itx3,jty3,ktz3,v4,vVel, |
|
./pkg/flt/flt_runga4.F |
264 |
FLT_RUNGA4 |
CALL FLT_BILINEAR(itx3,jty3,v4,vVel, |
|
./pkg/flt/flt_traj.F |
138 |
FLT_TRAJ |
CALL FLT_BILINEAR (ix,jy,vv,vVel, kp,2,bi,bj,myThid) |
|
./pkg/flt/flt_up.F |
137 |
FLT_UP |
CALL FLT_BILINEAR (ix,jy,vv,vVel, k,2,bi,bj,myThid) |
|
./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 |
440 |
GGL90_CALC |
tempV = ( vVel(i, j ,km1,bi,bj) - vVel(i, j ,k,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
441 |
GGL90_CALC |
tempVp = ( vVel(i,j+1,km1,bi,bj) - vVel(i,j+1,k,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
455 |
GGL90_CALC |
tempV = ( ( vVel(i,j,km1,bi,bj) + vVel(i,j+1,km1,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
456 |
GGL90_CALC |
& -( vVel(i,j,k ,bi,bj) + vVel(i,j+1,k ,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
810 |
GGL90_CALC |
& + halfRL*( surfaceForcingV(i,j, bi,bj)*vVel(i,j ,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
811 |
GGL90_CALC |
& +surfaceForcingV(i,j+1,bi,bj)*vVel(i,j+1,k,bi,bj)) |
|
./pkg/gmredi/gmredi_k3d.F |
355 |
GMREDI_K3D |
vFldY(i,j,k) = vVel(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
988 |
GMREDI_K3D |
centreY = op5*(vVel(i,j,k,bi,bj)+vVel(i,j+1,k,bi,bj) ) |
|
./pkg/gmredi/gmredi_residual_flow.F |
117 |
GMREDI_RESIDUAL_FLOW |
vEulerMean(i,j,k,bi,bj) = vVel(i,j,k,bi,bj) - vstar |
|
./pkg/kl10/kl10_calc.F |
210 |
KL10_CALC |
tempu = (vVel(I-1,J+di,Km1,bi,bj)-vVel(I-1,J |
|
./pkg/kpp/kpp_calc.F |
476 |
KPP_CALC |
& (vVel(i, j, k,bi,bj)-vVel(i, j, kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
477 |
KPP_CALC |
& (vVel(i, j, k,bi,bj)-vVel(i, j, kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
478 |
KPP_CALC |
& (vVel(i, jp1,k,bi,bj)-vVel(i, jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
479 |
KPP_CALC |
& (vVel(i, jp1,k,bi,bj)-vVel(i, jp1,kp1,bi,bj)) ) |
|
./pkg/kpp/kpp_calc.F |
490 |
KPP_CALC |
& (vVel(im1,j, k,bi,bj)-vVel(im1,j, kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
491 |
KPP_CALC |
& (vVel(im1,j, k,bi,bj)-vVel(im1,j, kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
492 |
KPP_CALC |
& (vVel(im1,jp1,k,bi,bj)-vVel(im1,jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
493 |
KPP_CALC |
& (vVel(im1,jp1,k,bi,bj)-vVel(im1,jp1,kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
494 |
KPP_CALC |
& (vVel(ip1,j, k,bi,bj)-vVel(ip1,j, kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
495 |
KPP_CALC |
& (vVel(ip1,j, k,bi,bj)-vVel(ip1,j, kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
496 |
KPP_CALC |
& (vVel(ip1,jp1,k,bi,bj)-vVel(ip1,jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
497 |
KPP_CALC |
& (vVel(ip1,jp1,k,bi,bj)-vVel(ip1,jp1,kp1,bi,bj)) ) |
|
./pkg/kpp/kpp_forcing_surf.F |
334 |
KPP_FORCING_SURF |
& (vVel(i, j, 1,bi,bj)-vVel(i, j, 2,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
335 |
KPP_FORCING_SURF |
& (vVel(i, j, 1,bi,bj)-vVel(i, j, 2,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
336 |
KPP_FORCING_SURF |
& (vVel(i, jp1,1,bi,bj)-vVel(i, jp1,2,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
337 |
KPP_FORCING_SURF |
& (vVel(i, jp1,1,bi,bj)-vVel(i, jp1,2,bi,bj)) ) |
|
./pkg/kpp/kpp_forcing_surf.F |
356 |
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 |
391 |
KPP_FORCING_SURF |
& (vRef(i,j) - vVel(i, j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
392 |
KPP_FORCING_SURF |
& (vRef(i,j) - vVel(i, j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
393 |
KPP_FORCING_SURF |
& (vRef(i,j) - vVel(i, jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
394 |
KPP_FORCING_SURF |
& (vRef(i,j) - vVel(i, jp1,k,bi,bj)) ) |
|
./pkg/kpp/kpp_forcing_surf.F |
405 |
KPP_FORCING_SURF |
& (vRef(i,j) - vVel(im1,j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
406 |
KPP_FORCING_SURF |
& (vRef(i,j) - vVel(im1,j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
407 |
KPP_FORCING_SURF |
& (vRef(i,j) - vVel(im1,jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
408 |
KPP_FORCING_SURF |
& (vRef(i,j) - vVel(im1,jp1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
409 |
KPP_FORCING_SURF |
& (vRef(i,j) - vVel(ip1,j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
410 |
KPP_FORCING_SURF |
& (vRef(i,j) - vVel(ip1,j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
411 |
KPP_FORCING_SURF |
& (vRef(i,j) - vVel(ip1,jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
412 |
KPP_FORCING_SURF |
& (vRef(i,j) - vVel(ip1,jp1,k,bi,bj)) ) |
|
./pkg/kpp/kpp_forcing_surf.F |
432 |
KPP_FORCING_SURF |
& (vVel(i, j, 1,bi,bj)-vVel(i, j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
433 |
KPP_FORCING_SURF |
& (vVel(i, j, 1,bi,bj)-vVel(i, j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
434 |
KPP_FORCING_SURF |
& (vVel(i, jp1,1,bi,bj)-vVel(i, jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
435 |
KPP_FORCING_SURF |
& (vVel(i, jp1,1,bi,bj)-vVel(i, jp1,k,bi,bj)) ) |
|
./pkg/kpp/kpp_forcing_surf.F |
446 |
KPP_FORCING_SURF |
& (vVel(im1,j, 1,bi,bj)-vVel(im1,j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
447 |
KPP_FORCING_SURF |
& (vVel(im1,j, 1,bi,bj)-vVel(im1,j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
448 |
KPP_FORCING_SURF |
& (vVel(im1,jp1,1,bi,bj)-vVel(im1,jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
449 |
KPP_FORCING_SURF |
& (vVel(im1,jp1,1,bi,bj)-vVel(im1,jp1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
450 |
KPP_FORCING_SURF |
& (vVel(ip1,j, 1,bi,bj)-vVel(ip1,j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
451 |
KPP_FORCING_SURF |
& (vVel(ip1,j, 1,bi,bj)-vVel(ip1,j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
452 |
KPP_FORCING_SURF |
& (vVel(ip1,jp1,1,bi,bj)-vVel(ip1,jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
453 |
KPP_FORCING_SURF |
& (vVel(ip1,jp1,1,bi,bj)-vVel(ip1,jp1,k,bi,bj)) ) |
|
./model/src/calc_div_ghat.F |
159 |
CALC_DIV_GHAT |
& + (1. _d 0-implicDiv2Dflow)* vVel(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 |
310 |
LAYERS_FLUXCALC |
& VH(i,j,kloc,bi,bj) + dzfac * vVel(i,j,kci,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
60 |
LAYERS_FLUXCALC |
_RL vVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr, nSx,nSy) |
|
./pkg/longstep/longstep_average.F |
90 |
LONGSTEP_AVERAGE |
CALL LONGSTEP_FILL_3D_FAC(LS_vVelCount, LS_vVel, vVel, hFacS, |
|
./model/src/calc_gw.F |
515 |
CALC_GW |
& drF(km1)*_hFacS(i,j,km1,bi,bj)*vVel(i,j,km1,bi,bj) |
|
./model/src/calc_gw.F |
517 |
CALC_GW |
& +drF( k )*_hFacS(i,j, k ,bi,bj)*vVel(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 |
114 |
MOM_CALC_3D_STRAIN |
& *( vVel( i , j , k ,bi,bj)-vVel(i-1, j , k ,bi,bj) ) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
143 |
MOM_CALC_3D_STRAIN |
& *( vVel( i , j , k ,bi,bj)*twoRL ) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
166 |
MOM_CALC_3D_STRAIN |
& *( vVel( i , j , k ,bi,bj)-vVel( i , j ,k-1,bi,bj) ) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
228 |
MOM_CALC_3D_STRAIN |
& *( 0. _d 0 - vVel( i , j ,k-1,bi,bj) ) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
95 |
MOM_CALC_3D_STRAIN |
& *( vVel( i ,j+1, k ,bi,bj)-vVel( i , j , k ,bi,bj) ) |
|
./pkg/mom_common/mom_u_implicit_r.F |
134 |
MOM_U_IMPLICIT_R |
I vVel(1-OLx,1-OLy,1,bi,bj), |
|
./pkg/mom_common/mom_v_implicit_r.F |
134 |
MOM_V_IMPLICIT_R |
I vVel(1-OLx,1-OLy,1,bi,bj), |
|
./pkg/mom_fluxform/mom_fluxform.F |
295 |
MOM_FLUXFORM |
vFld(i,j) = vVel(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
337 |
MOM_FLUXFORM |
I uVel, vVel, |
|
./pkg/mom_fluxform/mom_fluxform.F |
365 |
MOM_FLUXFORM |
CALL MOM_V_ADV_WV( bi,bj,k,vVel,wVel,rTransV, |
|
./pkg/mom_fluxform/mom_fluxform.F |
381 |
MOM_FLUXFORM |
I uVel, vVel, |
|
./pkg/mom_fluxform/mom_fluxform.F |
665 |
MOM_FLUXFORM |
CALL MOM_V_ADV_WV( bi,bj,k+1,vVel,wVel,rTransV, |
|
./pkg/mom_fluxform/mom_fluxform.F |
703 |
MOM_FLUXFORM |
& *vVel(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
711 |
MOM_FLUXFORM |
& - rStarDhSDt(i,j,bi,bj)*vVel(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
723 |
MOM_FLUXFORM |
& + vVel(i,j,k,bi,bj)*mass2rUnit*0.5 _d 0 |
|
./pkg/mom_fluxform/mom_fluxform.F |
760 |
MOM_FLUXFORM |
CALL MOM_V_RVISCFLUX( bi,bj, k, vVel,KappaRV,fVrUp,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
761 |
MOM_FLUXFORM |
CALL MOM_V_RVISCFLUX( bi,bj,k+1,vVel,KappaRV,fVrDw,myThid ) |
|
./pkg/mom_vecinv/mom_vecinv.F |
248 |
MOM_VECINV |
vFld(i,j) = vVel(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vecinv.F |
521 |
MOM_VECINV |
CALL MOM_V_RVISCFLUX(bi,bj,k+1,vVel,kappaRV,vrF,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
763 |
MOM_VECINV |
CALL MOM_VI_V_VERTSHEAR(bi,bj,k,vVel,wVel,vCf,myThid) |
|
./pkg/monitor/mon_ke.F |
101 |
MON_KE |
& +vVel(i, j ,k,bi,bj)*vVel(i, j ,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
103 |
MON_KE |
& +vVel(i,j+1,k,bi,bj)*vVel(i,j+1,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
239 |
MON_KE |
tmpVal = tmpVal*deltaTMom + vVel(i,j,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 |
113 |
MONITOR |
CALL MON_WRITESTATS_RL( Nr, vVel, '_vvel', |
|
./pkg/monitor/monitor.F |
163 |
MONITOR |
CALL MON_ADVCFL( '_vvel', vVel, recip_dyC, dT, 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 |
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 |
47 |
OBCS_CALC |
_RL vVel (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 |
423 |
OBCS_CALC_STEVENS |
vZonBar = vZonBar + vVel(I,J-1,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
433 |
OBCS_CALC_STEVENS |
vZonPri(K) = (vVel(I,J-1,K,bi,bj)-vZonBar) |
|
./pkg/obcs/obcs_calc_stevens.F |
480 |
OBCS_CALC_STEVENS |
gFacZ(I,K) = ABS(MIN(SIGN(1.D0,vVel(I,J,K,bi,bj)),0.D0)) |
|
./pkg/obcs/obcs_calc_stevens.F |
491 |
OBCS_CALC_STEVENS |
I vVel, cflZon, gFacZ, pFac, aFac, |
|
./pkg/obcs/obcs_calc_stevens.F |
499 |
OBCS_CALC_STEVENS |
I vVel, cflZon, gFacZ, pFac, aFac, |
|
./pkg/obcs/obcs_calc_stevens.F |
535 |
OBCS_CALC_STEVENS |
vZonBar = vZonBar + vVel(I,J+2,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
545 |
OBCS_CALC_STEVENS |
vZonPri(K) = (vVel(I,J+2,K,bi,bj)-vZonBar) |
|
./pkg/obcs/obcs_calc_stevens.F |
592 |
OBCS_CALC_STEVENS |
gFacZ(I,K) = ABS(MAX(SIGN(1.D0,vVel(I,J+1,K,bi,bj)),0.D0)) |
|
./pkg/obcs/obcs_calc_stevens.F |
603 |
OBCS_CALC_STEVENS |
I vVel, cflZon, gFacZ, pFac, aFac, |
|
./pkg/obcs/obcs_calc_stevens.F |
611 |
OBCS_CALC_STEVENS |
I vVel, cflZon, gFacZ, pFac, aFac, |
|
./pkg/obcs/obcs_calc_stevens.F |
842 |
OBCS_STEVENS_CALC_TRACER_NORTH |
I vVel, cflZon, gFacZ, pFac, aFac, |
|
./pkg/obcs/obcs_calc_stevens.F |
875 |
OBCS_STEVENS_CALC_TRACER_NORTH |
_RL vVel (1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_calc_stevens.F |
905 |
OBCS_STEVENS_CALC_TRACER_NORTH |
& - ( aFac*MAX(0.D0,vVel(I,J,K,bi,bj)) + vPhase ) |
|
./pkg/obcs/obcs_calc_stevens.F |
924 |
OBCS_STEVENS_CALC_TRACER_SOUTH |
I vVel, cflZon, gFacZ, pFac, aFac, |
|
./pkg/obcs/obcs_calc_stevens.F |
957 |
OBCS_STEVENS_CALC_TRACER_SOUTH |
_RL vVel (1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_calc_stevens.F |
986 |
OBCS_STEVENS_CALC_TRACER_SOUTH |
& - ( aFac*MIN(0.D0,vVel(I,J+1,K,bi,bj)) + vPhase ) |
|
./model/src/correction_step.F |
148 |
CORRECTION_STEP |
vVel(i,j,k,bi,bj)=( gV(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 |
116 |
OBCS_MONITOR |
I Nr, Nr, 2, vVel, hFacS, dxG, drF, maskInC, |
|
./pkg/obcs/obcs_sponge.F |
267 |
OBCS_SPONGE_V |
& + float(jsl)*vVel(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
281 |
OBCS_SPONGE_V |
& * ( vVel(i,j,k,bi,bj) - vrelax ) |
|
./pkg/obcs/obcs_sponge.F |
302 |
OBCS_SPONGE_V |
& + float(jsl)*vVel(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
316 |
OBCS_SPONGE_V |
& * ( vVel(i,j,k,bi,bj) - vrelax ) |
|
./pkg/obcs/obcs_sponge.F |
337 |
OBCS_SPONGE_V |
& + float(isl)*vVel(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
351 |
OBCS_SPONGE_V |
& * ( vVel(i,j,k,bi,bj) - vrelax ) |
|
./pkg/obcs/obcs_sponge.F |
372 |
OBCS_SPONGE_V |
& + float(isl)*vVel(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
386 |
OBCS_SPONGE_V |
& * ( vVel(i,j,k,bi,bj) - vrelax ) |
|
./pkg/obcs/orlanski_east.F |
141 |
ORLANSKI_EAST |
CL=-(vVel(I_obc-1,J,K,bi,bj)-VE_STORE_1(J,K,bi,bj))/ |
|
./pkg/obcs/orlanski_east.F |
158 |
ORLANSKI_EAST |
OBEv(J,K,bi,bj)=vVel(I_obc,J,K,bi,bj)- |
|
./pkg/obcs/orlanski_east.F |
160 |
ORLANSKI_EAST |
& (ab1*(vVel(I_obc,J,K,bi,bj)-vVel(I_obc-1,J,K,bi,bj)) + |
|
./pkg/obcs/orlanski_east.F |
257 |
ORLANSKI_EAST |
VE_STORE_2(J,K,bi,bj)=vVel(I_obc-1,J,K,bi,bj) - |
|
./pkg/obcs/orlanski_east.F |
258 |
ORLANSKI_EAST |
& vVel(I_obc-2,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
259 |
ORLANSKI_EAST |
VE_STORE_1(J,K,bi,bj)=vVel(I_obc-1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
260 |
ORLANSKI_EAST |
VE_STORE_4(J,K,bi,bj)=vVel(I_obc,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
83 |
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 |
126 |
ORLANSKI_NORTH |
CL=-(vVel(I,J_obc-1,K,bi,bj)-VN_STORE_1(I,K,bi,bj))/ |
|
./pkg/obcs/orlanski_north.F |
137 |
ORLANSKI_NORTH |
OBNv(I,K,bi,bj)=vVel(I,J_obc,K,bi,bj)- |
|
./pkg/obcs/orlanski_north.F |
139 |
ORLANSKI_NORTH |
& (ab1*(vVel(I,J_obc,K,bi,bj)-vVel(I,J_obc-1,K,bi,bj)) + |
|
./pkg/obcs/orlanski_north.F |
218 |
ORLANSKI_NORTH |
VN_STORE_2(I,K,bi,bj)=vVel(I,J_obc-1,K,bi,bj) - |
|
./pkg/obcs/orlanski_north.F |
219 |
ORLANSKI_NORTH |
& vVel(I,J_obc-2,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
220 |
ORLANSKI_NORTH |
VN_STORE_1(I,K,bi,bj)=vVel(I,J_obc-1,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
221 |
ORLANSKI_NORTH |
VN_STORE_4(I,K,bi,bj)=vVel(I,J_obc,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
74 |
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 |
126 |
ORLANSKI_SOUTH |
CL=(vVel(I,J_obc+2,K,bi,bj)-VS_STORE_1(I,K,bi,bj))/ |
|
./pkg/obcs/orlanski_south.F |
137 |
ORLANSKI_SOUTH |
OBSv(I,K,bi,bj)=vVel(I,J_obc+1,K,bi,bj)+ |
|
./pkg/obcs/orlanski_south.F |
139 |
ORLANSKI_SOUTH |
& (ab1*(vVel(I,J_obc+2,K,bi,bj)-vVel(I,J_obc+1,K,bi,bj))+ |
|
./pkg/obcs/orlanski_south.F |
218 |
ORLANSKI_SOUTH |
VS_STORE_2(I,K,bi,bj)=vVel(I,J_obc+3,K,bi,bj) - |
|
./pkg/obcs/orlanski_south.F |
219 |
ORLANSKI_SOUTH |
& vVel(I,J_obc+2,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
220 |
ORLANSKI_SOUTH |
VS_STORE_1(I,K,bi,bj)=vVel(I,J_obc+2,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
221 |
ORLANSKI_SOUTH |
VS_STORE_4(I,K,bi,bj)=vVel(I,J_obc+1,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
74 |
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 |
143 |
ORLANSKI_WEST |
CL=(vVel(I_obc+1,J,K,bi,bj)-VW_STORE_1(J,K,bi,bj))/ |
|
./pkg/obcs/orlanski_west.F |
160 |
ORLANSKI_WEST |
OBWv(J,K,bi,bj)=vVel(I_obc,J,K,bi,bj)+ |
|
./pkg/obcs/orlanski_west.F |
162 |
ORLANSKI_WEST |
& (ab1*(vVel(I_obc+1,J,K,bi,bj)-vVel(I_obc,J,K,bi,bj))+ |
|
./pkg/obcs/orlanski_west.F |
259 |
ORLANSKI_WEST |
VW_STORE_2(J,K,bi,bj)=vVel(I_obc+2,J,K,bi,bj) - |
|
./pkg/obcs/orlanski_west.F |
260 |
ORLANSKI_WEST |
& vVel(I_obc+1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
261 |
ORLANSKI_WEST |
VW_STORE_1(J,K,bi,bj)=vVel(I_obc+1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
262 |
ORLANSKI_WEST |
VW_STORE_4(J,K,bi,bj)=vVel(I_obc,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
85 |
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 |
103 |
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 |
104 |
OCN_STORE_MY_DATA |
& + vVel(i,j , 1,bi,bj)*vVel(i,j , 1,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
371 |
OFFLINE_FIELDS_LOAD |
vVel(i,j,k,bi,bj) = bWght*vvel0(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
389 |
OFFLINE_FIELDS_LOAD |
vVel(i,j,k,bi,bj) = vVel(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 |
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)) ) |
|
./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 |
115 |
DO_THE_MODEL_IO |
CALL PLOT_FIELD_XYZRL( vVel , 'Current vVel ', |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
127 |
PTRACERS_DIAGNOSTICS_STATE |
& vVel(i,j,k,bi,bj)*hFacS(i,j,k,bi,bj) * |
|
./model/src/dynamics.F |
411 |
DYNAMICS |
U vVel(1-OLx,1-OLy,1,bi,bj), |
|
./model/src/dynamics.F |
706 |
DYNAMICS |
CALL DEBUG_STATS_RL(Nr,vVel,'Vvel (DYNAMICS)',myThid) |
|
./pkg/rbcs/rbcs_add_tendency.F |
85 |
RBCS_ADD_TENDENCY |
& *( vVel(i,j,k,bi,bj)- RBCvVel(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 |
83 |
DYNSOLVER |
GWATY(I,J,bi,bj)=HALF*(vVel(i,j,KGEO(I,J,bi,bj),bi,bj) |
|
./pkg/seaice/dynsolver.F |
84 |
DYNSOLVER |
& +vVel(i-1,j,KGEO(I,J,bi,bj),bi,bj)) |
|
./pkg/seaice/seaice_calc_rhs.F |
103 |
SEAICE_CALC_RHS |
& COSWAT * vVel(I,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_calc_rhs.F |
97 |
SEAICE_CALC_RHS |
& ( vVel(I ,J,kSrf,bi,bj)+vVel(I ,J+1,kSrf,bi,bj) ) |
|
./pkg/seaice/seaice_calc_rhs.F |
99 |
SEAICE_CALC_RHS |
& ( vVel(I-1,J,kSrf,bi,bj)+vVel(I-1,J+1,kSrf,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
787 |
SEAICE_EVP |
& (vVel(I ,J ,kSrf,bi,bj)-vIce(I ,J ,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
788 |
SEAICE_EVP |
& +vVel(I ,J+1,kSrf,bi,bj)-vIce(I ,J+1,bi,bj)) |
|
./pkg/seaice/seaice_evp.F |
790 |
SEAICE_EVP |
& (vVel(I-1,J ,kSrf,bi,bj)-vIce(I-1,J ,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
791 |
SEAICE_EVP |
& +vVel(I-1,J+1,kSrf,bi,bj)-vIce(I-1,J+1,bi,bj)) |
|
./pkg/seaice/seaice_evp.F |
795 |
SEAICE_EVP |
& COSWAT * vVel(I,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
151 |
SEAICE_GET_DYNFORCING |
& + 0.5 _d 0 * (vVel(i,j,ks,bi,bj)+vVel(i,j+1,ks,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
196 |
SEAICE_GET_DYNFORCING |
& +0.5 _d 0*(vVel(i,j,ks,bi,bj)+vVel(i,j+1,ks,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
204 |
SEAICE_GET_DYNFORCING |
& +0.5 _d 0*(vVel(i-1,j,ks,bi,bj)+vVel(i-1,j+1,ks,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
215 |
SEAICE_GET_DYNFORCING |
& +0.5 _d 0*(vVel(i,j,ks,bi,bj)+vVel(i,j+1,ks,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
223 |
SEAICE_GET_DYNFORCING |
& +0.5 _d 0*(vVel(i,j-1,ks,bi,bj)+vVel(i,j,ks,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
1167 |
SEAICE_GROWTH |
& 0.5 _d 0*(vVel(i,j,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1168 |
SEAICE_GROWTH |
& +vVel(i,j+1,kSurface,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
766 |
SEAICE_GROWTH |
& +0.5 _d 0*(vVel(i,j,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
767 |
SEAICE_GROWTH |
& +vVel(i,j+1,kSurface,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
385 |
SEAICE_LSR |
& (vVel(I ,J ,kSrf,bi,bj)-vIceC(I ,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
386 |
SEAICE_LSR |
& +vVel(I ,J+1,kSrf,bi,bj)-vIceC(I ,J+1,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
388 |
SEAICE_LSR |
& (vVel(I-1,J ,kSrf,bi,bj)-vIceC(I-1,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
389 |
SEAICE_LSR |
& +vVel(I-1,J+1,kSrf,bi,bj)-vIceC(I-1,J+1,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
393 |
SEAICE_LSR |
& COSWAT * vVel(I,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
100 |
SEAICE_OCEAN_STRESS |
& 0.5 _d 0*(vIce(I ,J ,bi,bj)-vVel(I ,J ,kSrf,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
101 |
SEAICE_OCEAN_STRESS |
& +vIce(I ,J+1,bi,bj)-vVel(I ,J+1,kSrf,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
103 |
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 |
104 |
SEAICE_OCEAN_STRESS |
& +vIce(I-1,J+1,bi,bj)-vVel(I-1,J+1,kSrf,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
108 |
SEAICE_OCEAN_STRESS |
& ( vIce(I,J,bi,bj)-vVel(I,J,kSrf,bi,bj) ) |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
82 |
SEAICE_OCEANDRAG_COEFFS |
& + ( ( vIceLoc(i, j ,bi,bj)-vVel(i, j ,kSrf,bi,bj) ) |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
83 |
SEAICE_OCEANDRAG_COEFFS |
& +( vIceLoc(i,j+1,bi,bj)-vVel(i,j+1,kSrf,bi,bj) ) |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
91 |
SEAICE_OCEANDRAG_COEFFS |
& + ( ( vIceLoc(i,j ,bi,bj)-vVel(i,j ,kSrf,bi,bj) ) |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
93 |
SEAICE_OCEANDRAG_COEFFS |
& +( vIceLoc(i,j+1,bi,bj)-vVel(i,j+1,kSrf,bi,bj) ) |
|
./pkg/seaice/seaice_preconditioner.F |
517 |
SEAICE_PRECOND_RHSU |
& (vVel(I ,J ,k,bi,bj)-vIceLoc(I ,J ,bi,bj) |
|
./pkg/seaice/seaice_preconditioner.F |
518 |
SEAICE_PRECOND_RHSU |
& +vVel(I ,J+1,k,bi,bj)-vIceLoc(I ,J+1,bi,bj)) |
|
./pkg/seaice/seaice_preconditioner.F |
520 |
SEAICE_PRECOND_RHSU |
& (vVel(I-1,J ,k,bi,bj)-vIceLoc(I-1,J ,bi,bj) |
|
./pkg/seaice/seaice_preconditioner.F |
521 |
SEAICE_PRECOND_RHSU |
& +vVel(I-1,J+1,k,bi,bj)-vIceLoc(I-1,J+1,bi,bj)) |
|
./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/ini_dynvars.F |
55 |
INI_DYNVARS |
vVel (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
284 |
SHELFICE_THERMODYNAMICS |
& vVel(I, J, K,bi,bj)*vVel(I, J, K,bi,bj)*_hFacS(I, J, K,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
285 |
SHELFICE_THERMODYNAMICS |
& + vVel(I,J+1,K,bi,bj)*vVel(I,J+1,K,bi,bj)*_hFacS(I,J+1,K,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
298 |
SHELFICE_THERMODYNAMICS |
& ( vVel(I,J, K,bi,bj) * _hFacS(I,J, K,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
299 |
SHELFICE_THERMODYNAMICS |
& + vVel(I,J+1,K,bi,bj) * _hFacS(I,J+1,K,bi,bj) ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
331 |
SHELFICE_THERMODYNAMICS |
& ( vVel(I,J, Kp1,bi,bj) * _hFacS(I,J, Kp1,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
332 |
SHELFICE_THERMODYNAMICS |
& + vVel(I,J+1,Kp1,bi,bj) * _hFacS(I,J+1,Kp1,bi,bj) ) |
|
./pkg/thsice/thsice_get_ocean.F |
111 |
THSICE_GET_OCEAN |
& + vVel(i,j+1,ks,bi,bj)*vVel(i,j+1,ks,bi,bj) |
|
./pkg/thsice/thsice_get_ocean.F |
112 |
THSICE_GET_OCEAN |
& + vVel(i,j,ks,bi,bj) * vVel(i,j,ks,bi,bj) |
|
./pkg/thsice/thsice_get_ocean.F |
122 |
THSICE_GET_OCEAN |
vRel1 = vVel(i, j, ks,bi,bj)-vIce(i, j, bi,bj) |
|
./pkg/thsice/thsice_get_ocean.F |
123 |
THSICE_GET_OCEAN |
vRel2 = vVel(i,j+1,ks,bi,bj)-vIce(i,j+1,bi,bj) |
|
./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/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_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) |
|
./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 |
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 |
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 |
133 |
EXTERNAL_FORCING_V |
& -kV*vVel(i,j,kLev,bi,bj) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
191 |
APPLY_FORCING_V |
& - kV*vVel(i,j,k,bi,bj) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
191 |
APPLY_FORCING_V |
& - kV*vVel(i,j,k,bi,bj) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
191 |
APPLY_FORCING_V |
& - kV*vVel(i,j,k,bi,bj) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
191 |
APPLY_FORCING_V |
& - kV*vVel(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 |
34 |
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 |
90 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./model/src/read_pickup.F |
171 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, vVel, 4, myIter,myThid ) |
|
./model/src/read_pickup.F |
200 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, vVel, nj+1, myIter,myThid ) |
|
./model/src/read_pickup.F |
221 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, vVel, 3, myIter,myThid ) |
|
./model/src/read_pickup.F |
264 |
READ_PICKUP |
CALL READ_MFLDS_3D_RL( 'Vvel ', vVel, |
|
./model/src/read_pickup.F |
464 |
READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'V',vVel, 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 |
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/apply_forcing.F |
191 |
APPLY_FORCING_V |
& - kV*vVel(i,j,k,bi,bj) |
|
./model/src/thermodynamics.F |
259 |
THERMODYNAMICS |
vFld(i,j,k) = vVel(i,j,k,bi,bj) |
|
./model/src/thermodynamics.F |
394 |
THERMODYNAMICS |
CALL DEBUG_STATS_RL(Nr,vVel,'Vvel (THERMODYNAMICS)',myThid) |
|
./model/src/timestep.F |
372 |
TIMESTEP |
gV(i,j,k,bi,bj) = vVel(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 |
115 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, vVel, -j, myIter, myThid ) |
|
./model/src/write_pickup.F |
369 |
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 |
135 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL( 'V.',suff,vVelv,myIter,myThid) |
|
./model/src/write_state.F |
146 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL( 'V.',suff,vVel,myIter,myThid) |
|
./model/src/write_state.F |
193 |
WRITE_STATE |
CALL MNC_CW_RL_W(pf,'state',0,0,'V', vVel, myThid) |
|
./pkg/aim_v23/aim_dyn2aim.F |
207 |
AIM_DYN2AIM |
& + vVel(i,j,k,bi,bj)*vVel(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
208 |
AIM_DYN2AIM |
& + vVel(i,j+1,k,bi,bj)*vVel(i,j+1,k,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
286 |
AIM_TENDENCY_APPLY_V |
& -maskS(i,j,k,bi,bj)*vVel(i,j,k,bi,bj)/aim_dragStrato |
|
./pkg/aim_v23/aim_tendency_apply.F |
289 |
AIM_TENDENCY_APPLY_V |
& -vVel(i,j,k,bi,bj)*vVel(i,j,k,bi,bj)/aim_dragStrato |
|
./pkg/aim_v23/aim_tendency_apply.F |
300 |
AIM_TENDENCY_APPLY_V |
& * 0.5 _d 0 * vVel(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
308 |
AIM_TENDENCY_APPLY_V |
aim_dKE(i,j) = vStr_tmp * vVel(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
323 |
AIM_TENDENCY_APPLY_V |
& )* 0.5 _d 0 * vVel(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
331 |
AIM_TENDENCY_APPLY_V |
aim_dKE(i,j) = vStr_tmp * vVel(i,j,k,bi,bj) |
|
./pkg/atm2d/get_ocnvars.F |
110 |
GET_OCNVARS |
& + vVel(i,j+1,1,1,1)*vVel(i,j+1,1,1,1) |
|
./pkg/atm2d/get_ocnvars.F |
111 |
GET_OCNVARS |
& + vVel(i,j , 1,1,1)*vVel(i,j , 1,1,1) |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
104 |
ATM_STORE_AIM_WNDSTR |
& )* 0.5 _d 0 * vVel(i,j,ks,bi,bj) |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
132 |
ATM_STORE_AIM_WNDSTR |
& * 0.5 _d 0 * vVel(i,j,ks,bi,bj) |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
124 |
ATM_PHYS_DYN2PHYS |
v3d(:,:,k) = ( vVel(1:sNx,1:sNy, kc,bi,bj) |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
125 |
ATM_PHYS_DYN2PHYS |
& + vVel(1:sNx,2:sNy+1,kc,bi,bj) )*0.5 _d 0 |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
163 |
ATM_PHYS_TENDENCY_APPLY_V |
& - maskS(i,j,k,bi,bj)*vVel(i,j,k,bi,bj)*atmPhys_dampUVfac(k) |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
165 |
ATM_PHYS_TENDENCY_APPLY_V |
& - vVel(i,j,k,bi,bj)*vVel(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 |
150 |
AUTODIFF_RESTORE |
vVel(I,J,K,bi,bj) = StoreDynVars3D(I,J,K,bi,bj,8) |
|
./pkg/autodiff/autodiff_store.F |
160 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,8) = vVel(I,J,K,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
156 |
CD_CODE_SCHEME |
& (vVel(i,j,k,bi,bj)+vVel(i-1,j+1,k,bi,bj)) |
|
./pkg/cd_code/cd_code_scheme.F |
157 |
CD_CODE_SCHEME |
& +(vVel(i-1,j,k,bi,bj)+vVel(i,j+1,k,bi,bj)) |
|
./pkg/cd_code/cd_code_scheme.F |
200 |
CD_CODE_SCHEME |
& *vVel(i,j,k,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
202 |
CD_CODE_SCHEME |
& *( ab15*vVel(i,j,k,bi,bj) + ab05*vNM1(i,j,k,bi,bj) ) |
|
./pkg/cd_code/cd_code_scheme.F |
242 |
CD_CODE_SCHEME |
vNM1(i,j,k,bi,bj) = vVel(i,j,k,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
312 |
CHEAPAML |
vRelWind(i,j) = vWind(i,j,bi,bj)-vVel(i,j,1,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
639 |
CHEAPAML |
& *( vWind(i,j,bi,bj)-vVel(i,j,1,bi,bj) ) |
|
./pkg/cheapaml/cheapaml.F |
656 |
CHEAPAML |
& *( vWind(i,j-1,bi,bj)-vVel(i,j-1,1,bi,bj) ) |
|
./pkg/cheapaml/cheapaml.F |
658 |
CHEAPAML |
& *( vWind(i,j,bi,bj) - vVel(i,j,1,bi,bj) ) ) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
127 |
GAD_2D_CALC_RHS |
& + (vVel(i,j+1,bi,bj)-vVel(i,j,bi,bj))*recip_dyC(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 |
244 |
GAD_2D_CALC_RHS |
IF (vVel(i,j,bi,bj).LT.0. _d 0) THEN |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
250 |
GAD_2D_CALC_RHS |
IF (vVel(i,j+1,bi,bj).GT.0. _d 0) THEN |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
276 |
GAD_2D_CALC_RHS |
CALL GAD_C2_2D_ADV_Y(bi,bj,vVel,localT,af,myThid) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
71 |
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 |
480 |
CTRL_MAP_INI |
vVel(i,j,k,bi,bj) = vVel(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
483 |
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 |
101 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_SCALE_FILL( vVel, oneRL, 2, |
|
./pkg/diagnostics/diagnostics_fill_state.F |
119 |
DIAGNOSTICS_FILL_STATE |
& *(vVel(i,j,k,bi,bj)+vVel(i,j+1,k,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
143 |
DIAGNOSTICS_FILL_STATE |
& *(vVel(i-1,j,k,bi,bj)+vVel(i,j,k,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
180 |
DIAGNOSTICS_FILL_STATE |
& *(vVel(i,j,km1,bi,bj)+vVel(i,j,k,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
216 |
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 |
265 |
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 |
314 |
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 |
356 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_SCALE_FILL( vVel, tmpFac, 1, |
|
./pkg/diagnostics/diagnostics_fill_state.F |
532 |
DIAGNOSTICS_FILL_STATE |
& = vVel(i,j,k,bi,bj)*hFacS(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
566 |
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 |
617 |
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 |
658 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_SCALE_FILL( vVel, tmpFac, 1, |
|
./pkg/diagnostics/diagnostics_fill_state.F |
96 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(vVel, 'VVEL ',0,Nr,0,1,1,myThid) |
|
./pkg/ecco/cost_averagesfields.F |
348 |
COST_AVERAGESFIELDS |
vbar(i,j,k,bi,bj) = vVel(i,j,k,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
364 |
COST_AVERAGESFIELDS |
& vVel(i,j,k,bi,bj) )/ |
|
./pkg/ecco/cost_averagesfields.F |
401 |
COST_AVERAGESFIELDS |
& vVel (i,j,k,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
745 |
COST_AVERAGESFIELDS |
& +vVel(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 |
50 |
NO PROCEDURE |
_RL vVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |