| File |
Line number |
Procedure |
Code |
|
./pkg/ptracers/ptracers_implicit.F |
105 |
PTRACERS_IMPLICIT |
I kappaRk, wVel, pTracer(1-Olx,1-Oly,1,1,1,iTracer), |
|
./pkg/ptracers/ptracers_advection.F |
89 |
PTRACERS_ADVECTION |
I uVel, vVel, wVel, |
|
./pkg/ptracers/ptracers_diagnostics_fill.F |
100 |
PTRACERS_DIAGNOSTICS_FILL |
dummy(i,j,K,bi,bj) = wVel(i,j,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 |
49 |
NO PROCEDURE |
_RL wVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
143 |
DIAGNOSTICS_FILL_STATE |
& *(wVel(i-1,j,K,bi,bj)*rA(i-1,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
144 |
DIAGNOSTICS_FILL_STATE |
& +wVel( i ,j,K,bi,bj)*rA( i ,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
163 |
DIAGNOSTICS_FILL_STATE |
& *(wVel(i,j-1,K,bi,bj)*rA(i,j-1,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
164 |
DIAGNOSTICS_FILL_STATE |
& +wVel(i, j ,K,bi,bj)*rA(i, j ,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
215 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,K,bi,bj) = wVel(i,j,K,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
264 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,K,bi,bj) = wVel(i,j,K,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
514 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(wVel, 'WVELMASS',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
557 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,K,bi,bj) = wVel(i,j,K,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
608 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,K,bi,bj) = wVel(i,j,K,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
83 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(wVel, 'WVEL ',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
89 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_SCALE_FILL(wVel,tmpFac,2, |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
101 |
MOM_CALC_RTRANS |
& 0.5 _d 0*( wVel(i,j-1,k,bi,bj)*rA(i,j-1,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
102 |
MOM_CALC_RTRANS |
& +wVel(i, j ,k,bi,bj)*rA(i, j ,bi,bj) ) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
98 |
MOM_CALC_RTRANS |
& 0.5 _d 0*( wVel(i-1,j,k,bi,bj)*rA(i-1,j,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
99 |
MOM_CALC_RTRANS |
& +wVel( i ,j,k,bi,bj)*rA( i ,j,bi,bj) ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
323 |
MOM_FLUXFORM |
CALL MOM_U_ADV_WU( bi,bj,k,uVel,wVel,rTransU, |
|
./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 |
367 |
MOM_FLUXFORM |
I bi,bj,k+1,uVel,wVel,rTransU, |
|
./pkg/mom_fluxform/mom_fluxform.F |
528 |
MOM_FLUXFORM |
CALL MOM_U_METRIC_NH(bi,bj,k,uFld,wVel,mT,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
570 |
MOM_FLUXFORM |
I bi,bj,k+1,vVel,wVel,rTransV, |
|
./pkg/mom_fluxform/mom_fluxform.F |
730 |
MOM_FLUXFORM |
CALL MOM_V_METRIC_NH(bi,bj,k,vFld,wVel,mT,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
788 |
MOM_FLUXFORM |
CALL MOM_U_CORIOLIS_NH(bi,bj,k,wVel,cf,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
796 |
MOM_FLUXFORM |
CALL MOM_V_CORIOLIS_NH(bi,bj,k,wVel,cf,myThid) |
|
./pkg/flt/flt_runga2.F |
122 |
FLT_RUNGA2 |
call FLT_TRILINEAR(zz,yy,zz,ww,wVel,4,bi,bj) |
|
./pkg/flt/flt_runga2.F |
161 |
FLT_RUNGA2 |
call FLT_TRILINEAR(xt,yt,zt,w1,wVel,4,bi,bj) |
|
./model/src/integr_continuity.F |
199 |
INTEGR_CONTINUITY |
O wVel, |
|
./model/src/integr_continuity.F |
208 |
INTEGR_CONTINUITY |
wVel(i,j,k,bi,bj) = wVel(i,j,k,bi,bj) |
|
./model/src/integr_continuity.F |
218 |
INTEGR_CONTINUITY |
IF ( useOBCS ) CALL OBCS_APPLY_W( bi, bj, k, wVel, myThid ) |
|
./model/src/do_fields_blocking_exchanges.F |
54 |
DO_FIELDS_BLOCKING_EXCHANGES |
& _EXCH_XYZ_R8( wVel , myThid ) |
|
./model/src/ini_dynvars.F |
53 |
INI_DYNVARS |
wVel(I,J,K,bi,bj)=0. _d 0 |
|
./model/src/tracers_iigw_correction.F |
69 |
TRACERS_IIGW_CORRECTION |
dWp1(i,j) = ( wVel(i,j,kp1,bi,bj) |
|
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
60 |
INI_VEL |
wVel(i,j,k,bi,bj)=0. |
|
./verification/advect_xy/code/ini_vel.F |
40 |
INI_VEL |
wVel(i,j,k,bi,bj)=0. |
|
./verification/advect_xy/code/ini_vel.F |
73 |
INI_VEL |
O wVel, |
|
./verification/advect_xy/code/ini_vel.F |
81 |
INI_VEL |
_EXCH_XYZ_R8(wVel,myThid) |
|
./model/src/do_stagger_fields_exchanges.F |
38 |
DO_STAGGER_FIELDS_EXCHANGES |
& _EXCH_XYZ_R8( wVel , myThid ) |
|
./verification/rotating_tank/code/checkpoint.F |
118 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr,wVel, 7,myThid) |
|
./verification/rotating_tank/code/checkpoint.F |
318 |
WRITE_CHECKPOINT |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr,wVel, 7,myIter,myThid) |
|
./verification/OpenAD/code/gad_fluxlimit_adv_r.F |
12 |
GAD_FLUXLIMIT_ADV_R |
I rTrans, wVel, |
|
./verification/OpenAD/code/gad_fluxlimit_adv_r.F |
47 |
GAD_FLUXLIMIT_ADV_R |
_RL wVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/dynamics.F |
662 |
DYNAMICS |
CALL DEBUG_STATS_RL(Nr,wVel,'Wvel (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 |
31 |
OBCS_CALC |
_RL wVel (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 |
31 |
OBCS_CALC |
_RL wVel (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, |
|
./model/src/timestep_wvel.F |
107 |
TIMESTEP_WVEL |
gW(i,j,k,bi,bj) = wVel(i,j,k,bi,bj) |
|
./model/src/timestep_wvel.F |
62 |
TIMESTEP_WVEL |
gW(i,j,k,bi,bj) = wVel(i,j,k,bi,bj) |
|
./model/src/timestep_wvel.F |
73 |
TIMESTEP_WVEL |
gW(i,j,k,bi,bj) = wVel(i,j,k,bi,bj) |
|
./model/src/timestep_wvel.F |
81 |
TIMESTEP_WVEL |
wVel(i,j,k,bi,bj) = wVel(i,j,k,bi,bj) |
|
./model/src/timestep_wvel.F |
97 |
TIMESTEP_WVEL |
CALL OBCS_APPLY_W( bi, bj, k, wVel, myThid ) |
|
./verification/advect_cs/code/ini_vel.F |
50 |
INI_VEL |
wVel(i,j,k,bi,bj)=0. |
|
./verification/advect_cs/code/ini_vel.F |
83 |
INI_VEL |
O wVel, |
|
./verification/advect_cs/code/ini_vel.F |
91 |
INI_VEL |
_EXCH_XYZ_R8(wVel,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 |
440 |
THERMODYNAMICS |
wFld(i,j) = wVel(i,j,k,bi,bj) |
|
./model/src/thermodynamics.F |
654 |
THERMODYNAMICS |
I kappaRk, wVel, theta, |
|
./model/src/thermodynamics.F |
698 |
THERMODYNAMICS |
I kappaRk, wVel, salt, |
|
./model/src/thermodynamics.F |
747 |
THERMODYNAMICS |
CALL DEBUG_STATS_RL(Nr,wVel,'Wvel (THERMODYNAMICS)',myThid) |
|
./model/src/momentum_correction_step.F |
185 |
MOMENTUM_CORRECTION_STEP |
& _EXCH_XYZ_R8( wVel , myThid ) |
|
./model/src/diags_rho.F |
90 |
DIAGS_RHO |
tmpFld(i,j) = wVel(i,j,k,bi,bj)*rhoK(i,j) |
|
./model/src/diags_rho.F |
96 |
DIAGS_RHO |
tmpFld(i,j) = wVel(i,j,k,bi,bj) |
|
./model/src/calc_gw.F |
180 |
CALC_GW |
& (wVel(i,j,k,bi,bj)-wVel(i-1,j,k,bi,bj)) |
|
./model/src/calc_gw.F |
194 |
CALC_GW |
& (wVel(i,j,k,bi,bj)-wVel(i,j-1,k,bi,bj)) |
|
./model/src/calc_gw.F |
241 |
CALC_GW |
& *(wVel(i,j,k,bi,bj)-wVel(i-1,j,k,bi,bj)) |
|
./model/src/calc_gw.F |
261 |
CALC_GW |
& *(wVel(i,j,k,bi,bj)-wVel(i,j-1,k,bi,bj)) |
|
./model/src/calc_gw.F |
290 |
CALC_GW |
& - viscLoc*( wVel(i,j,kp1,bi,bj)*wOverRide |
|
./model/src/calc_gw.F |
291 |
CALC_GW |
& -wVel(i,j, k ,bi,bj) )*rkSign |
|
./model/src/calc_gw.F |
321 |
CALC_GW |
I wVel, del2w, |
|
./model/src/calc_gw.F |
346 |
CALC_GW |
& uTrans*(wVel(i,j,k,bi,bj)+wVel(i-1,j,k,bi,bj))*halfRL |
|
./model/src/calc_gw.F |
359 |
CALC_GW |
& vTrans*(wVel(i,j,k,bi,bj)+wVel(i,j-1,k,bi,bj))*halfRL |
|
./model/src/calc_gw.F |
365 |
CALC_GW |
tmp_WbarZ = halfRL*( wVel(i,j, k ,bi,bj) |
|
./model/src/calc_gw.F |
366 |
CALC_GW |
& +wVel(i,j,kp1,bi,bj)*wOverRide ) |
|
./model/src/initialise_varia.F |
332 |
INITIALISE_VARIA |
_EXCH_XYZ_R8(wVel,myThid) |
|
./model/src/solve_for_pressure.F |
410 |
SOLVE_FOR_PRESSURE |
& -wVel(i,j,kp1,bi,bj)*maskKp1 |
|
./model/src/solve_for_pressure.F |
425 |
SOLVE_FOR_PRESSURE |
& +( wVel(i,j,k ,bi,bj)*maskC(i,j,k-1,bi,bj) |
|
./model/src/solve_for_pressure.F |
426 |
SOLVE_FOR_PRESSURE |
& -wVel(i,j,kp1,bi,bj)*maskKp1 |
|
./model/src/write_state.F |
109 |
WRITE_STATE |
CALL WRITE_REC_XYZ_RL( 'W',wVel,iRec,myIter,myThid) |
|
./model/src/write_state.F |
132 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL( 'W.',suff,wVel,myIter,myThid) |
|
./model/src/write_state.F |
177 |
WRITE_STATE |
CALL MNC_CW_RL_W(pf,'state',0,0,'W', wVel, myThid) |
|
./model/src/do_oceanic_phys.F |
416 |
DO_OCEANIC_PHYS |
I uVel, vVel, wVel, theta, salt, |
|
./pkg/opps/opps_calc.F |
12 |
OPPS_CALC |
I wVel, |
|
./pkg/opps/opps_calc.F |
140 |
OPPS_CALC |
Wd(k)= - .5*(wVel(K)+wVel(K+1)) |
|
./pkg/opps/opps_calc.F |
82 |
OPPS_CALC |
_RL tracerEnv(Nr,nTracer),wVel(Nr) |
|
./pkg/opps/opps_interface.F |
119 |
OPPS_INTERFACE |
wVelLoc(K) = wVel(I,J,K,bi,bj) |
|
./pkg/mom_common/mom_v_implicit_r.F |
125 |
MOM_V_IMPLICIT_R |
& wVel(i, j ,k,bi,bj)*rA(i, j ,bi,bj) |
|
./pkg/mom_common/mom_v_implicit_r.F |
127 |
MOM_V_IMPLICIT_R |
& + wVel(i,j-1,k,bi,bj)*rA(i,j-1,bi,bj) |
|
./pkg/mom_common/mom_u_implicit_r.F |
125 |
MOM_U_IMPLICIT_R |
& wVel( i ,j,k,bi,bj)*rA( i ,j,bi,bj) |
|
./pkg/mom_common/mom_u_implicit_r.F |
127 |
MOM_U_IMPLICIT_R |
& + wVel(i-1,j,k,bi,bj)*rA(i-1,j,bi,bj) |
|
./pkg/timeave/timeave_statvars.F |
110 |
TIMEAVE_STATVARS |
CALL TIMEAVE_CUMULATE(wVeltave, wVel, Nr, DDTT, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
125 |
TIMEAVE_STATVARS |
CALL TIMEAVE_CUMUL_2V(WTtave, theta, wVel, Nr, 3, |
|
./pkg/timeave/timeave_statvars.F |
127 |
TIMEAVE_STATVARS |
CALL TIMEAVE_CUMUL_2V(WStave, salt, wVel, Nr, 3, |
|
./pkg/monitor/mon_surfcor.F |
108 |
MON_SURFCOR |
& + rA(i,j,bi,bj)*wVel(i,j,ks,bi,bj)*tmpVal |
|
./pkg/monitor/mon_surfcor.F |
125 |
MON_SURFCOR |
& - ddPI*rA(i,j,bi,bj)*wVel(i,j,k,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
85 |
MON_SURFCOR |
& rA(i,j,bi,bj)*wVel(i,j,ks,bi,bj)*theta(i,j,ks,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
88 |
MON_SURFCOR |
& + rA(i,j,bi,bj)*wVel(i,j,ks,bi,bj)* salt(i,j,ks,bi,bj) |
|
./pkg/monitor/monitor.F |
114 |
MONITOR |
CALL MON_PRINTSTATS_RL(Nr,wVel,'_wvel', |
|
./pkg/monitor/monitor.F |
127 |
MONITOR |
CALL MON_ADVCFLW('_wvel',wVel,recip_drc,dT,myThid) |
|
./pkg/monitor/monitor.F |
128 |
MONITOR |
CALL MON_ADVCFLW2('_W_hf',wVel,recip_hFacC, |
|
./pkg/obcs/orlanski_north.F |
185 |
ORLANSKI_NORTH |
CL=-(wVel(I,J_obc-1,K,bi,bj)-WN_STORE_1(I,K,bi,bj))/ |
|
./pkg/obcs/orlanski_north.F |
196 |
ORLANSKI_NORTH |
OBNw(I,K,bi,bj)=wVel(I,J_obc,K,bi,bj)- |
|
./pkg/obcs/orlanski_north.F |
198 |
ORLANSKI_NORTH |
& (ab1*(wVel(I,J_obc,K,bi,bj)-wVel(I,J_obc-1,K,bi,bj))+ |
|
./pkg/obcs/orlanski_north.F |
239 |
ORLANSKI_NORTH |
WN_STORE_2(I,K,bi,bj)=wVel(I,J_obc-1,K,bi,bj) - |
|
./pkg/obcs/orlanski_north.F |
240 |
ORLANSKI_NORTH |
& wVel(I,J_obc-2,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
241 |
ORLANSKI_NORTH |
WN_STORE_1(I,K,bi,bj)=wVel(I,J_obc-1,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
242 |
ORLANSKI_NORTH |
WN_STORE_4(I,K,bi,bj)=wVel(I,J_obc,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
73 |
ORLANSKI_NORTH |
_RL wVel (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 |
185 |
ORLANSKI_SOUTH |
CL=(wVel(I,J_obc+1,K,bi,bj)-WS_STORE_1(I,K,bi,bj))/ |
|
./pkg/obcs/orlanski_south.F |
196 |
ORLANSKI_SOUTH |
OBSw(I,K,bi,bj)=wVel(I,J_obc,K,bi,bj)+ |
|
./pkg/obcs/orlanski_south.F |
198 |
ORLANSKI_SOUTH |
& (ab1*(wVel(I,J_obc+1,K,bi,bj)-wVel(I,J_obc,K,bi,bj))+ |
|
./pkg/obcs/orlanski_south.F |
239 |
ORLANSKI_SOUTH |
WS_STORE_2(I,K,bi,bj)=wVel(I,J_obc+2,K,bi,bj) - |
|
./pkg/obcs/orlanski_south.F |
240 |
ORLANSKI_SOUTH |
& wVel(I,J_obc+1,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
241 |
ORLANSKI_SOUTH |
WS_STORE_1(I,K,bi,bj)=wVel(I,J_obc+1,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
242 |
ORLANSKI_SOUTH |
WS_STORE_4(I,K,bi,bj)=wVel(I,J_obc,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
73 |
ORLANSKI_SOUTH |
_RL wVel (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/obcs_init_variables.F |
230 |
OBCS_INIT_VARIABLES |
& uVel, vVel, wVel, theta, salt, myThid ) |
|
./pkg/obcs/orlanski_west.F |
220 |
ORLANSKI_WEST |
CL=(wVel(I_obc+1,J,K,bi,bj)-WW_STORE_1(J,K,bi,bj))/ |
|
./pkg/obcs/orlanski_west.F |
237 |
ORLANSKI_WEST |
OBWw(J,K,bi,bj)=wVel(I_obc,J,K,bi,bj)+ |
|
./pkg/obcs/orlanski_west.F |
239 |
ORLANSKI_WEST |
& (ab1*(wVel(I_obc+1,J,K,bi,bj)-wVel(I_obc,J,K,bi,bj))+ |
|
./pkg/obcs/orlanski_west.F |
280 |
ORLANSKI_WEST |
WW_STORE_2(J,K,bi,bj)=wVel(I_obc+2,J,K,bi,bj) - |
|
./pkg/obcs/orlanski_west.F |
281 |
ORLANSKI_WEST |
& wVel(I_obc+1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
282 |
ORLANSKI_WEST |
WW_STORE_1(J,K,bi,bj)=wVel(I_obc+1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
283 |
ORLANSKI_WEST |
WW_STORE_4(J,K,bi,bj)=wVel(I_obc,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
84 |
ORLANSKI_WEST |
_RL wVel (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/obcs/orlanski_east.F |
218 |
ORLANSKI_EAST |
CL=-(wVel(I_obc-1,J,K,bi,bj)-WE_STORE_1(J,K,bi,bj))/ |
|
./pkg/obcs/orlanski_east.F |
235 |
ORLANSKI_EAST |
OBEw(J,K,bi,bj)=wVel(I_obc,J,K,bi,bj)- |
|
./pkg/obcs/orlanski_east.F |
237 |
ORLANSKI_EAST |
& (ab1*(wVel(I_obc,J,K,bi,bj)-wVel(I_obc-1,J,K,bi,bj))+ |
|
./pkg/obcs/orlanski_east.F |
278 |
ORLANSKI_EAST |
WE_STORE_2(J,K,bi,bj)=wVel(I_obc-1,J,K,bi,bj) - |
|
./pkg/obcs/orlanski_east.F |
279 |
ORLANSKI_EAST |
& wVel(I_obc-2,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
280 |
ORLANSKI_EAST |
WE_STORE_1(J,K,bi,bj)=wVel(I_obc-1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
281 |
ORLANSKI_EAST |
WE_STORE_4(J,K,bi,bj)=wVel(I_obc,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
82 |
ORLANSKI_EAST |
_RL wVel (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/obcs_calc.F |
105 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./pkg/obcs/obcs_calc.F |
140 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./pkg/obcs/obcs_calc.F |
175 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./pkg/obcs/obcs_calc.F |
36 |
OBCS_CALC |
_RL wVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_calc.F |
70 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./pkg/obcs/obcs_calc.F |
7 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./pkg/mom_vecinv/mom_vecinv.F |
607 |
MOM_VECINV |
CALL MOM_VI_U_VERTSHEAR(bi,bj,K,uVel,wVel,uCf,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
613 |
MOM_VECINV |
CALL MOM_VI_V_VERTSHEAR(bi,bj,K,vVel,wVel,vCf,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
660 |
MOM_VECINV |
CALL MOM_U_CORIOLIS_NH(bi,bj,k,wVel,uCf,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
668 |
MOM_VECINV |
CALL MOM_V_CORIOLIS_NH(bi,bj,k,wVel,vCf,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
679 |
MOM_VECINV |
CALL MOM_U_METRIC_NH(bi,bj,k,uFld,wVel,uCf,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
685 |
MOM_VECINV |
CALL MOM_V_METRIC_NH(bi,bj,k,vFld,wVel,vCf,myThid) |
|
./pkg/generic_advdiff/gad_advection.F |
15 |
GAD_ADVECTION |
I uVel, vVel, wVel, tracer, |
|
./pkg/generic_advdiff/gad_advection.F |
744 |
GAD_ADVECTION |
wFld(i,j) = wVel(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
745 |
GAD_ADVECTION |
rTrans(i,j) = wVel(i,j,k,bi,bj)*rA(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
75 |
GAD_ADVECTION |
_RL wVel (1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
11 |
GAD_IMPLICIT_R |
I kappaRX, wVel, tracer, |
|
./pkg/generic_advdiff/gad_implicit_r.F |
193 |
GAD_IMPLICIT_R |
wFld(i,j) = wVel(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
43 |
GAD_IMPLICIT_R |
_RL wVel (1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |