| File |
Line number |
Procedure |
Code |
|
./pkg/ptracers/ptracers_advection.F |
89 |
PTRACERS_ADVECTION |
I uVel, vVel, wVel, |
|
./pkg/ptracers/ptracers_diagnostics_fill.F |
80 |
PTRACERS_DIAGNOSTICS_FILL |
& vVel(i,j,K,bi,bj)*hFacS(i,j,K,bi,bj) * |
|
./pkg/pp81/pp81_ri_number.F |
113 |
PP81_RI_NUMBER |
tempv= .5*( vVel(I,J,Km1,bi,bj)+vVel(I,J+1,Km1,bi,bj) |
|
./pkg/pp81/pp81_ri_number.F |
114 |
PP81_RI_NUMBER |
& - (vVel(I,J,K ,bi,bj)+vVel(I,J+1,K ,bi,bj)) ) |
|
./model/inc/DYNVARS.h |
36 |
NO PROCEDURE |
& uVel,vVel,wVel,theta,salt, |
|
./model/inc/DYNVARS.h |
42 |
NO PROCEDURE |
& uVel,vVel,wVel,theta,salt, |
|
./model/inc/DYNVARS.h |
48 |
NO PROCEDURE |
_RL vVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
103 |
DIAGNOSTICS_FILL_STATE |
& *(vVel(i,j,K,bi,bj)+vVel(i,j+1,K,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
125 |
DIAGNOSTICS_FILL_STATE |
& *(vVel(i-1,j,K,bi,bj)+vVel(i,j,K,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
162 |
DIAGNOSTICS_FILL_STATE |
& *(vVel(i,j,km1,bi,bj)+vVel(i,j,K,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
198 |
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 |
247 |
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 |
296 |
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 |
355 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,K,bi,bj) = -vVel(i,j,K,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
505 |
DIAGNOSTICS_FILL_STATE |
& = vVel(i,j,K,bi,bj)*hFacS(i,j,K,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
539 |
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 |
590 |
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 |
648 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,K,bi,bj) = vVel(i,j,K,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
82 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(vVel, 'VVEL ',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
87 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_SCALE_FILL(vVel,tmpFac,2, |
|
./pkg/aim_v23/aim_tendency_apply.F |
179 |
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 |
188 |
AIM_TENDENCY_APPLY_V |
& * 0.5 _d 0 * vVel(i,j,kLev,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
204 |
AIM_TENDENCY_APPLY_V |
& )* 0.5 _d 0 * vVel(i,j,kLev,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/mom_fluxform/mom_fluxform.F |
265 |
MOM_FLUXFORM |
vFld(i,j) = vVel(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
326 |
MOM_FLUXFORM |
CALL MOM_V_ADV_WV( bi,bj,k,vVel,wVel,rTransV, |
|
./pkg/mom_fluxform/mom_fluxform.F |
570 |
MOM_FLUXFORM |
I bi,bj,k+1,vVel,wVel,rTransV, |
|
./pkg/mom_fluxform/mom_fluxform.F |
608 |
MOM_FLUXFORM |
& *vVel(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
616 |
MOM_FLUXFORM |
& - rStarDhSDt(i,j,bi,bj)*vVel(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
650 |
MOM_FLUXFORM |
CALL MOM_V_RVISCFLUX(bi,bj, k, vVel,KappaRV,fVrUp,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
651 |
MOM_FLUXFORM |
CALL MOM_V_RVISCFLUX(bi,bj,k+1,vVel,KappaRV,fVrDw,myThid) |
|
./pkg/flt/flt_traj.F |
138 |
FLT_TRAJ |
call FLT_BILINEAR (xx,yy,vv,kp,vVel, 3,bi,bj) |
|
./pkg/flt/flt_runga2.F |
121 |
FLT_RUNGA2 |
call FLT_TRILINEAR(xx,yy,zz,vv,vVel,3,bi,bj) |
|
./pkg/flt/flt_runga2.F |
127 |
FLT_RUNGA2 |
call FLT_BILINEAR(xx,yy,vv,kp,vVel,3,bi,bj) |
|
./pkg/flt/flt_runga2.F |
160 |
FLT_RUNGA2 |
call FLT_TRILINEAR(xt,yt,zt,v1,vVel,3,bi,bj) |
|
./pkg/flt/flt_runga2.F |
165 |
FLT_RUNGA2 |
call FLT_BILINEAR(xt,yt,v1,kp,vVel,3,bi,bj) |
|
./pkg/flt/flt_up.F |
176 |
FLT_UP |
call FLT_BILINEAR (xx,yy,vv,k,vVel, 3,bi,bj) |
|
./model/src/do_the_model_io.F |
60 |
DO_THE_MODEL_IO |
CALL PLOT_FIELD_XYZRL( vVel , 'Current vVel ' , |
|
./model/src/do_fields_blocking_exchanges.F |
52 |
DO_FIELDS_BLOCKING_EXCHANGES |
CALL EXCH_UV_XYZ_RL(uVel,vVel,.TRUE.,myThid) |
|
./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 |
|
./model/src/tracers_correction_step.F |
119 |
TRACERS_CORRECTION_STEP |
CALL SALT_FILL( uVel,vVel,salt,1,myTime,myIter,myThid ) |
|
./model/src/ini_dynvars.F |
52 |
INI_DYNVARS |
vVel(I,J,K,bi,bj)=0. _d 0 |
|
./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/cd_code/cd_code_scheme.F |
140 |
CD_CODE_SCHEME |
& vVel(i ,j ,k,bi,bj)+vVel(i ,j+1,k,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
141 |
CD_CODE_SCHEME |
& +vVel(i-1,j ,k,bi,bj)+vVel(i-1,j+1,k,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
180 |
CD_CODE_SCHEME |
& *vVel(i,j,k,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
219 |
CD_CODE_SCHEME |
vNM1(i,j,k,bi,bj) = vVel(i,j,k,bi,bj) |
|
./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/advect_xy/code/ini_vel.F |
39 |
INI_VEL |
vVel(i,j,k,bi,bj)=1. |
|
./verification/advect_xy/code/ini_vel.F |
57 |
INI_VEL |
CALL READ_FLD_XYZ_RL( vVelInitFile, ' ', vVel, 0, myThid ) |
|
./verification/advect_xy/code/ini_vel.F |
68 |
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 |
72 |
INI_VEL |
I bi, bj, k, uVel, vVel, |
|
./verification/advect_xy/code/ini_vel.F |
80 |
INI_VEL |
CALL EXCH_UV_XYZ_RL(uVel,vVel,.TRUE.,myThid) |
|
./model/src/do_stagger_fields_exchanges.F |
36 |
DO_STAGGER_FIELDS_EXCHANGES |
CALL EXCH_UV_XYZ_RL(uVel,vVel,.TRUE.,myThid) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
133 |
EXTERNAL_FORCING_V |
& -kV*vVel(i,j,kLev,bi,bj) |
|
./verification/rotating_tank/code/checkpoint.F |
115 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr,vVel, 4,myThid) |
|
./verification/rotating_tank/code/checkpoint.F |
149 |
READ_CHECKPOINT |
CALL EXCH_UV_XYZ_RL(uVel,vVel,.TRUE.,myThid) |
|
./verification/rotating_tank/code/checkpoint.F |
282 |
WRITE_CHECKPOINT |
CALL WRITE_REC_XYZ_RL( 'vVel', vVel, 1,myIter, myThid) |
|
./verification/rotating_tank/code/checkpoint.F |
315 |
WRITE_CHECKPOINT |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr,vVel, 4,myIter,myThid) |
|
./verification/rotating_tank/code/checkpoint.F |
87 |
READ_CHECKPOINT |
CALL READ_REC_XYZ_RL( 'vVel', vVel, 1,myIter, myThid) |
|
./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 |
133 |
EXTERNAL_FORCING_V |
& -kV*vVel(i,j,kLev,bi,bj) |
|
./verification/OpenAD/code/gad_fluxlimit_adv_y.F |
12 |
GAD_FLUXLIMIT_ADV_Y |
I vTrans, vVel, |
|
./verification/OpenAD/code/gad_fluxlimit_adv_y.F |
45 |
GAD_FLUXLIMIT_ADV_Y |
_RL vVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/dynamics.F |
661 |
DYNAMICS |
CALL DEBUG_STATS_RL(Nr,vVel,'Vvel (DYNAMICS)',myThid) |
|
./verification/internal_wave/code/obcs_calc.F |
152 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./verification/internal_wave/code/obcs_calc.F |
172 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./verification/internal_wave/code/obcs_calc.F |
30 |
OBCS_CALC |
_RL vVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./verification/internal_wave/code/obcs_calc.F |
79 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./verification/internal_wave/code/obcs_calc.F |
7 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./verification/internal_wave/code/obcs_calc.F |
99 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./verification/dome/code/obcs_calc.F |
123 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./verification/dome/code/obcs_calc.F |
142 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./verification/dome/code/obcs_calc.F |
204 |
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 |
91 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
133 |
EXTERNAL_FORCING_V |
& -kV*vVel(i,j,kLev,bi,bj) |
|
./model/src/ini_vel.F |
51 |
INI_VEL |
vVel(i,j,k,bi,bj)=0. _d 0 |
|
./model/src/ini_vel.F |
68 |
INI_VEL |
CALL READ_FLD_XYZ_RL( vVelInitFile, ' ', vVel, 0, myThid ) |
|
./model/src/ini_vel.F |
74 |
INI_VEL |
CALL EXCH_UV_XYZ_RL(uVel,vVel,.TRUE.,myThid) |
|
./model/src/ini_vel.F |
83 |
INI_VEL |
vVel(i,j,k,bi,bj)=vVel(i,j,k,bi,bj)*_maskS(i,j,k,bi,bj) |
|
./model/src/checkpoint.F |
118 |
READ_CHECKPOINT |
CALL READ_REC_XYZ_RL( 'vVel', vVel, 1,myIter,myThid) |
|
./model/src/checkpoint.F |
152 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr,vVel, 4,myThid) |
|
./model/src/checkpoint.F |
179 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr,vVel, nj+1,myThid) |
|
./model/src/checkpoint.F |
200 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr,vVel, 3,myThid) |
|
./model/src/checkpoint.F |
245 |
READ_CHECKPOINT |
CALL MNC_CW_RL_R('D',fn,0,0,'V',vVel, myThid) |
|
./model/src/checkpoint.F |
284 |
READ_CHECKPOINT |
CALL EXCH_UV_XYZ_RL(uVel,vVel,.TRUE.,myThid) |
|
./model/src/checkpoint.F |
489 |
WRITE_CHECKPOINT_NOW |
CALL WRITE_REC_XYZ_RL( 'vVel', vVel, 1,myIter,myThid) |
|
./model/src/checkpoint.F |
522 |
WRITE_CHECKPOINT_NOW |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr,vVel, 4,myIter,myThid) |
|
./model/src/checkpoint.F |
541 |
WRITE_CHECKPOINT_NOW |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr,vVel, 3,myIter,myThid) |
|
./model/src/checkpoint.F |
607 |
WRITE_CHECKPOINT_NOW |
CALL MNC_CW_RL_W('D',fn,0,0,'V', vVel, myThid) |
|
./model/src/correction_step.F |
83 |
CORRECTION_STEP |
vVel(i,j,k,bi,bj)=( gV(i,j,k,bi,bj) |
|
./model/src/calc_phi_hyd.F |
172 |
CALC_PHI_HYD |
CALL MOM_QUASIHYDROSTATIC(bi,bj,k,uVel,vVel,alphaRho,myThid) |
|
./verification/advect_cs/code/ini_vel.F |
48 |
INI_VEL |
vVel(i,j,k,bi,bj)=0. |
|
./verification/advect_cs/code/ini_vel.F |
67 |
INI_VEL |
CALL READ_FLD_XYZ_RL( vVelInitFile, ' ', vVel, 0, myThid ) |
|
./verification/advect_cs/code/ini_vel.F |
78 |
INI_VEL |
vVel(i,j,k,bi,bj)=vVel(i,j,k,bi,bj)*_maskS(i,j,k,bi,bj) |
|
./verification/advect_cs/code/ini_vel.F |
82 |
INI_VEL |
I bi, bj, k, uVel, vVel, |
|
./verification/advect_cs/code/ini_vel.F |
90 |
INI_VEL |
CALL EXCH_UV_XYZ_RL(uVel,vVel,.TRUE.,myThid) |
|
./model/src/thermodynamics.F |
344 |
THERMODYNAMICS |
I uVel, vVel, wVel, theta, |
|
./model/src/thermodynamics.F |
356 |
THERMODYNAMICS |
I uVel, vVel, wVel, salt, |
|
./model/src/thermodynamics.F |
422 |
THERMODYNAMICS |
I uVel, vVel, |
|
./model/src/thermodynamics.F |
746 |
THERMODYNAMICS |
CALL DEBUG_STATS_RL(Nr,vVel,'Vvel (THERMODYNAMICS)',myThid) |
|
./model/src/momentum_correction_step.F |
111 |
MOMENTUM_CORRECTION_STEP |
CALL OBCS_APPLY_UV(bi,bj,K,uVel,vVel,myThid) |
|
./model/src/momentum_correction_step.F |
129 |
MOMENTUM_CORRECTION_STEP |
CALL SHAP_FILT_APPLY_UV( uVel, vVel, myTime, myIter, myThid ) |
|
./model/src/momentum_correction_step.F |
138 |
MOMENTUM_CORRECTION_STEP |
CALL ZONAL_FILT_APPLY_UV( uVel, vVel, myThid ) |
|
./model/src/momentum_correction_step.F |
175 |
MOMENTUM_CORRECTION_STEP |
CALL INTEGR_CONTINUITY( bi, bj, uVel, vVel, |
|
./model/src/diags_rho.F |
79 |
DIAGS_RHO |
tmpFld(i,j) = vVel(i,j,k,bi,bj)*_hFacS(i,j,k,bi,bj) |
|
./model/src/calc_gw.F |
354 |
CALC_GW |
& drF(k-1)*_hFacS(i,j,k-1,bi,bj)*vVel(i,j,k-1,bi,bj) |
|
./model/src/calc_gw.F |
355 |
CALC_GW |
& +drF( k )*_hFacS(i,j, k ,bi,bj)*vVel(i,j, k ,bi,bj) |
|
./model/src/calc_gw.F |
397 |
CALC_GW |
I uVel, vVel, |
|
./model/src/calc_gw.F |
409 |
CALC_GW |
I uVel, vVel, |
|
./model/src/initialise_varia.F |
254 |
INITIALISE_VARIA |
CALL INTEGR_CONTINUITY( bi, bj, uVel, vVel, |
|
./model/src/forward_step.F |
531 |
FORWARD_STEP |
CALL SHAP_FILT_APPLY_UV( uVel,vVel, |
|
./model/src/forward_step.F |
544 |
FORWARD_STEP |
CALL ZONAL_FILT_APPLY_UV( uVel, 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) |
|
./model/src/calc_div_ghat.F |
141 |
CALC_DIV_GHAT |
& + (1.-implicDiv2Dflow) * vVel(i,j,k,bi,bj) |
|
./model/src/timestep.F |
333 |
TIMESTEP |
gV(i,j,k,bi,bj) = vVel(i,j,k,bi,bj) |
|
./model/src/the_correction_step.F |
111 |
THE_CORRECTION_STEP |
CALL OBCS_APPLY_UV(bi,bj,K,uVel,vVel,myThid) |
|
./model/src/do_oceanic_phys.F |
416 |
DO_OCEANIC_PHYS |
I uVel, vVel, wVel, theta, salt, |
|
./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 |
89 |
CALC_COMMON_FACTORS |
vFld(i,j) = vVel(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
172 |
GGL90_CALC |
tempv= .5*( vVel(I,J,Km1,bi,bj)+vVel(I,J+1,Km1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
173 |
GGL90_CALC |
& - (vVel(I,J,K ,bi,bj)+vVel(I,J+1,K ,bi,bj)) ) |
|
./pkg/cost/cost_accumulate_mean.F |
56 |
COST_ACCUMULATE_MEAN |
& + vVel(i,j,k,bi,bj) |
|
./pkg/cost/cost_vector.F |
68 |
COST_VECTOR |
& + vVel(i,j,k,bi,bj) * maskS(i,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
76 |
COST_ATLANTIC_HEAT |
& + (vVel(i,j,k,bi,bj) * maskS(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
468 |
KPP_CALC |
& (vVel(i, j, 1,bi,bj)-vVel(i, j, 2,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
469 |
KPP_CALC |
& (vVel(i, j, 1,bi,bj)-vVel(i, j, 2,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
470 |
KPP_CALC |
& (vVel(i, jp1,1,bi,bj)-vVel(i, jp1,2,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
471 |
KPP_CALC |
& (vVel(i, jp1,1,bi,bj)-vVel(i, jp1,2,bi,bj)) ) |
|
./pkg/kpp/kpp_calc.F |
492 |
KPP_CALC |
& ( vVel(i,j,1,bi,bj) + vVel(i,jp1,1,bi,bj) ) |
|
./pkg/kpp/kpp_calc.F |
529 |
KPP_CALC |
$ (vRef(i,j) - vVel(i, j, k,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
530 |
KPP_CALC |
$ (vRef(i,j) - vVel(i, j, k,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
531 |
KPP_CALC |
$ (vRef(i,j) - vVel(i, jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
532 |
KPP_CALC |
$ (vRef(i,j) - vVel(i, jp1,k,bi,bj)) ) |
|
./pkg/kpp/kpp_calc.F |
543 |
KPP_CALC |
$ (vRef(i,j) - vVel(im1,j, k,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
544 |
KPP_CALC |
$ (vRef(i,j) - vVel(im1,j, k,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
545 |
KPP_CALC |
$ (vRef(i,j) - vVel(im1,jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
546 |
KPP_CALC |
$ (vRef(i,j) - vVel(im1,jp1,k,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
547 |
KPP_CALC |
$ (vRef(i,j) - vVel(ip1,j, k,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
548 |
KPP_CALC |
$ (vRef(i,j) - vVel(ip1,j, k,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
549 |
KPP_CALC |
$ (vRef(i,j) - vVel(ip1,jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
550 |
KPP_CALC |
$ (vRef(i,j) - vVel(ip1,jp1,k,bi,bj)) ) |
|
./pkg/kpp/kpp_calc.F |
570 |
KPP_CALC |
$ (vVel(i, j, 1,bi,bj)-vVel(i, j, k,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
571 |
KPP_CALC |
$ (vVel(i, j, 1,bi,bj)-vVel(i, j, k,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
572 |
KPP_CALC |
$ (vVel(i, jp1,1,bi,bj)-vVel(i, jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
573 |
KPP_CALC |
$ (vVel(i, jp1,1,bi,bj)-vVel(i, jp1,k,bi,bj)) ) |
|
./pkg/kpp/kpp_calc.F |
584 |
KPP_CALC |
$ (vVel(im1,j, 1,bi,bj)-vVel(im1,j, k,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
585 |
KPP_CALC |
$ (vVel(im1,j, 1,bi,bj)-vVel(im1,j, k,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
586 |
KPP_CALC |
$ (vVel(im1,jp1,1,bi,bj)-vVel(im1,jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
587 |
KPP_CALC |
$ (vVel(im1,jp1,1,bi,bj)-vVel(im1,jp1,k,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
588 |
KPP_CALC |
$ (vVel(ip1,j, 1,bi,bj)-vVel(ip1,j, k,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
589 |
KPP_CALC |
$ (vVel(ip1,j, 1,bi,bj)-vVel(ip1,j, k,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
590 |
KPP_CALC |
$ (vVel(ip1,jp1,1,bi,bj)-vVel(ip1,jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
591 |
KPP_CALC |
$ (vVel(ip1,jp1,1,bi,bj)-vVel(ip1,jp1,k,bi,bj)) ) |
|
./pkg/kpp/kpp_calc.F |
613 |
KPP_CALC |
$ (vVel(i, j, k,bi,bj)-vVel(i, j, kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
614 |
KPP_CALC |
$ (vVel(i, j, k,bi,bj)-vVel(i, j, kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
615 |
KPP_CALC |
$ (vVel(i, jp1,k,bi,bj)-vVel(i, jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
616 |
KPP_CALC |
$ (vVel(i, jp1,k,bi,bj)-vVel(i, jp1,kp1,bi,bj)) ) |
|
./pkg/kpp/kpp_calc.F |
627 |
KPP_CALC |
$ (vVel(im1,j, k,bi,bj)-vVel(im1,j, kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
628 |
KPP_CALC |
$ (vVel(im1,j, k,bi,bj)-vVel(im1,j, kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
629 |
KPP_CALC |
$ (vVel(im1,jp1,k,bi,bj)-vVel(im1,jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
630 |
KPP_CALC |
$ (vVel(im1,jp1,k,bi,bj)-vVel(im1,jp1,kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
631 |
KPP_CALC |
$ (vVel(ip1,j, k,bi,bj)-vVel(ip1,j, kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
632 |
KPP_CALC |
$ (vVel(ip1,j, k,bi,bj)-vVel(ip1,j, kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
633 |
KPP_CALC |
$ (vVel(ip1,jp1,k,bi,bj)-vVel(ip1,jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
634 |
KPP_CALC |
$ (vVel(ip1,jp1,k,bi,bj)-vVel(ip1,jp1,kp1,bi,bj)) ) |
|
./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/timeave/timeave_statvars.F |
109 |
TIMEAVE_STATVARS |
CALL TIMEAVE_CUMULATE(vVeltave, vVel, Nr, DDTT, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
119 |
TIMEAVE_STATVARS |
CALL TIMEAVE_CUMUL_2V(VVtave, vVel, vVel, Nr, 0, |
|
./pkg/timeave/timeave_statvars.F |
121 |
TIMEAVE_STATVARS |
CALL TIMEAVE_CUMUL_2V(UVtave, uVel, vVel, Nr, 12, |
|
./pkg/timeave/timeave_statvars.F |
139 |
TIMEAVE_STATVARS |
CALL TIMEAVE_CUMUL_1VFC(hVtave, vVel, hFacS, Nr, |
|
./pkg/timeave/timeave_statvars.F |
147 |
TIMEAVE_STATVARS |
CALL TIMEAVE_CUMUL_2VFC(VTtave, theta, vVel, hFacS, Nr, 2, |
|
./pkg/timeave/timeave_statvars.F |
151 |
TIMEAVE_STATVARS |
CALL TIMEAVE_CUMUL_2VFC(VStave, salt, vVel, hFacS, Nr, 2, |
|
./pkg/monitor/mon_ke.F |
70 |
MON_KE |
& +vVel(i, j ,k,bi,bj)*vVel(i, j ,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
72 |
MON_KE |
& +vVel(i,j+1,k,bi,bj)*vVel(i,j+1,k,bi,bj) |
|
./pkg/monitor/monitor.F |
112 |
MONITOR |
CALL MON_PRINTSTATS_RL(Nr,vVel,'_vvel', |
|
./pkg/monitor/monitor.F |
126 |
MONITOR |
CALL MON_ADVCFL('_vvel',vVel,recip_dyc,dT,myThid) |
|
./pkg/monitor/mon_vort3.F |
130 |
MON_VORT3 |
& vVel( i ,j,k,bi,bj)*dyC( i ,j,bi,bj) |
|
./pkg/monitor/mon_vort3.F |