| File |
Line number |
Procedure |
Code |
|
./pkg/flt/flt_runga2.F |
115 |
FLT_RUNGA2 |
CALL FLT_TRILINEAR(ix,jy,kz,ww,wVel,4,bi,bj,myThid) |
|
./pkg/flt/flt_runga2.F |
152 |
FLT_RUNGA2 |
CALL FLT_TRILINEAR(itx,jty,ktz,w1,wVel,4,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
117 |
FLT_RUNGA4 |
CALL FLT_TRILINEAR(ix,jy,kz,w1,wVel,4,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
156 |
FLT_RUNGA4 |
CALL FLT_TRILINEAR(itx1,jty1,ktz1,w2,wVel, |
|
./pkg/flt/flt_runga4.F |
206 |
FLT_RUNGA4 |
CALL FLT_TRILINEAR(itx2,jty2,ktz2,w3,wVel, |
|
./pkg/flt/flt_runga4.F |
256 |
FLT_RUNGA4 |
CALL FLT_TRILINEAR(itx3,jty3,ktz3,w4,wVel, |
|
./model/src/apply_forcing.F |
589 |
APPLY_FORCING_T |
tmpVar(i,j) = wVel(i,j,kc,bi,bj)*delPI*atm_Rq |
|
./model/src/apply_forcing.F |
602 |
APPLY_FORCING_T |
& + wVel(i,j,kp,bi,bj)*delPI*atm_Rq |
|
./pkg/longstep/longstep_average.F |
92 |
LONGSTEP_AVERAGE |
CALL LONGSTEP_FILL_3D(LS_wVelCount, LS_wVel, wVel, Nr, myThid) |
|
./model/src/calc_gw.F |
296 |
CALC_GW |
wFld(i,j) = wVel(i,j,k,bi,bj) |
|
./model/src/calc_gw.F |
369 |
CALC_GW |
& *(wVel(i,j,k,bi,bj)-wVel(i-1,j,k,bi,bj)) |
|
./model/src/calc_gw.F |
387 |
CALC_GW |
& *(wVel(i,j,k,bi,bj)-wVel(i,j-1,k,bi,bj)) |
|
./model/src/calc_gw.F |
414 |
CALC_GW |
& - viscLoc*( wVel(i,j,kp1,bi,bj)*mskP1 |
|
./model/src/calc_gw.F |
415 |
CALC_GW |
& -wVel(i,j, k ,bi,bj) )*rkSign |
|
./model/src/calc_gw.F |
432 |
CALC_GW |
& - viscLoc*( wVel(i,j, k ,bi,bj) |
|
./model/src/calc_gw.F |
433 |
CALC_GW |
& -wVel(i,j,k-1,bi,bj) )*rkSign |
|
./model/src/calc_gw.F |
462 |
CALC_GW |
I wVel, del2w, |
|
./model/src/calc_gw.F |
532 |
CALC_GW |
& ( wVel(i,j, k ,bi,bj)*rVel2wUnit( k ) |
|
./model/src/calc_gw.F |
533 |
CALC_GW |
& +wVel(i,j,kp1,bi,bj)*rVel2wUnit(kp1)*mskP1 ) |
|
./model/src/calc_gw.F |
536 |
CALC_GW |
& ( wVel(i,j, k ,bi,bj)*deepFac2F( k )*rhoFacF( k ) |
|
./model/src/calc_gw.F |
537 |
CALC_GW |
& +wVel(i,j,kp1,bi,bj)*deepFac2F(kp1)*rhoFacF(kp1) |
|
./model/src/calc_gw.F |
548 |
CALC_GW |
tmp_WbarZ = wVel(i,j,k,bi,bj)*rVel2wUnit(k) |
|
./model/src/calc_gw.F |
549 |
CALC_GW |
rTrans = wVel(i,j,k,bi,bj)*deepFac2F(k)*rhoFacF(k) |
|
./model/src/calc_gw.F |
577 |
CALC_GW |
& + wVel(i,j,k,bi,bj)*mass2rUnit*0.5 _d 0 |
|
./pkg/mom_common/mom_calc_3d_strain.F |
103 |
MOM_CALC_3D_STRAIN |
& *( maskp1*wVel( i , j ,kp1,bi,bj)-wVel( i , j , k ,bi,bj) ) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
135 |
MOM_CALC_3D_STRAIN |
& *( wVel( i , j , k ,bi,bj)-wVel(i-1, j , k ,bi,bj) ) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
145 |
MOM_CALC_3D_STRAIN |
& *( wVel( i , j , k ,bi,bj)-wVel( i ,j-1, k ,bi,bj) ) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
157 |
MOM_CALC_3D_STRAIN |
& *( wVel( i , j , k ,bi,bj)-wVel(i-1, j , k ,bi,bj) ) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
168 |
MOM_CALC_3D_STRAIN |
& *( wVel( i , j , k ,bi,bj)-wVel( i ,j-1, k ,bi,bj) ) |
|
./pkg/mom_common/mom_u_implicit_r.F |
149 |
MOM_U_IMPLICIT_R |
& wVel( i ,j,k,bi,bj)*rA( i ,j,bi,bj) |
|
./pkg/mom_common/mom_u_implicit_r.F |
151 |
MOM_U_IMPLICIT_R |
& + wVel(i-1,j,k,bi,bj)*rA(i-1,j,bi,bj) |
|
./pkg/mom_common/mom_v_implicit_r.F |
149 |
MOM_V_IMPLICIT_R |
& wVel(i, j ,k,bi,bj)*rA(i, j ,bi,bj) |
|
./pkg/mom_common/mom_v_implicit_r.F |
151 |
MOM_V_IMPLICIT_R |
& + wVel(i,j-1,k,bi,bj)*rA(i,j-1,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
100 |
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 |
101 |
MOM_CALC_RTRANS |
& +wVel( i ,j,k,bi,bj)*rA( i ,j,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
104 |
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 |
105 |
MOM_CALC_RTRANS |
& +wVel(i, j ,k,bi,bj)*rA(i, j ,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
362 |
MOM_FLUXFORM |
CALL MOM_U_ADV_WU( bi,bj,k,uVel,wVel,rTransU, |
|
./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 |
418 |
MOM_FLUXFORM |
I bi,bj,k+1,uBnd,wVel,rTransU, |
|
./pkg/mom_fluxform/mom_fluxform.F |
432 |
MOM_FLUXFORM |
I bi,bj,k+1,uVel,wVel,rTransU, |
|
./pkg/mom_fluxform/mom_fluxform.F |
615 |
MOM_FLUXFORM |
CALL MOM_U_METRIC_NH( bi,bj,k,uFld,wVel,mT,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
652 |
MOM_FLUXFORM |
CALL MOM_V_ADV_WV( bi,bj,k+1,vBnd,wVel,rTransV, |
|
./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 |
847 |
MOM_FLUXFORM |
CALL MOM_V_METRIC_NH( bi,bj,k,vFld,wVel,mT,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
901 |
MOM_FLUXFORM |
CALL MOM_U_CORIOLIS_NH( bi,bj,k,wVel,cf,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
909 |
MOM_FLUXFORM |
CALL MOM_V_CORIOLIS_NH( bi,bj,k,wVel,cf,myThid ) |
|
./pkg/mom_vecinv/mom_vecinv.F |
757 |
MOM_VECINV |
CALL MOM_VI_U_VERTSHEAR(bi,bj,k,uVel,wVel,uCf,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
763 |
MOM_VECINV |
CALL MOM_VI_V_VERTSHEAR(bi,bj,k,vVel,wVel,vCf,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
810 |
MOM_VECINV |
CALL MOM_U_CORIOLIS_NH(bi,bj,k,wVel,uCf,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
818 |
MOM_VECINV |
CALL MOM_V_CORIOLIS_NH(bi,bj,k,wVel,vCf,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
829 |
MOM_VECINV |
CALL MOM_U_METRIC_NH(bi,bj,k,uFld,wVel,uCf,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
835 |
MOM_VECINV |
CALL MOM_V_METRIC_NH(bi,bj,k,vFld,wVel,vCf,myThid) |
|
./pkg/monitor/mon_ke.F |
113 |
MON_KE |
& ( wVel(i,j, k, bi,bj)*wVel(i,j, k, bi,bj)*msk_1 |
|
./pkg/monitor/mon_ke.F |
115 |
MON_KE |
& +wVel(i,j,kp1,bi,bj)*wVel(i,j,kp1,bi,bj)*mskp1 |
|
./pkg/monitor/mon_surfcor.F |
115 |
MON_SURFCOR |
& *wVel(i,j,ks,bi,bj)*tmpVal |
|
./pkg/monitor/mon_surfcor.F |
132 |
MON_SURFCOR |
& - ddPI*rA(i,j,bi,bj)*wVel(i,j,k,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
90 |
MON_SURFCOR |
& *wVel(i,j,ks,bi,bj)*theta(i,j,ks,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
94 |
MON_SURFCOR |
& *wVel(i,j,ks,bi,bj)*salt(i,j,ks,bi,bj) |
|
./pkg/monitor/monitor.F |
115 |
MONITOR |
CALL MON_WRITESTATS_RL( Nr, wVel, '_wvel', |
|
./pkg/monitor/monitor.F |
164 |
MONITOR |
CALL MON_ADVCFLW( '_wvel', wVel, recip_drC, dT, myThid ) |
|
./pkg/monitor/monitor.F |
165 |
MONITOR |
CALL MON_ADVCFLW2('_W_hf', wVel, recip_hFacC, |
|
./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 |
48 |
OBCS_CALC |
_RL wVel (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_init_variables.F |
427 |
OBCS_INIT_VARIABLES |
& uVel, vVel, wVel, theta, salt, myThid ) |
|
./pkg/obcs/orlanski_east.F |
221 |
ORLANSKI_EAST |
CL=-(wVel(I_obc-1,J,K,bi,bj)-WE_STORE_1(J,K,bi,bj))/ |
|
./pkg/obcs/orlanski_east.F |
238 |
ORLANSKI_EAST |
OBEw(J,K,bi,bj)=wVel(I_obc,J,K,bi,bj)- |
|
./pkg/obcs/orlanski_east.F |
240 |
ORLANSKI_EAST |
& (ab1*(wVel(I_obc,J,K,bi,bj)-wVel(I_obc-1,J,K,bi,bj))+ |
|
./pkg/obcs/orlanski_east.F |
283 |
ORLANSKI_EAST |
WE_STORE_2(J,K,bi,bj)=wVel(I_obc-1,J,K,bi,bj) - |
|
./pkg/obcs/orlanski_east.F |
284 |
ORLANSKI_EAST |
& wVel(I_obc-2,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
285 |
ORLANSKI_EAST |
WE_STORE_1(J,K,bi,bj)=wVel(I_obc-1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
286 |
ORLANSKI_EAST |
WE_STORE_4(J,K,bi,bj)=wVel(I_obc,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
84 |
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/orlanski_north.F |
188 |
ORLANSKI_NORTH |
CL=-(wVel(I,J_obc-1,K,bi,bj)-WN_STORE_1(I,K,bi,bj))/ |
|
./pkg/obcs/orlanski_north.F |
199 |
ORLANSKI_NORTH |
OBNw(I,K,bi,bj)=wVel(I,J_obc,K,bi,bj)- |
|
./pkg/obcs/orlanski_north.F |
201 |
ORLANSKI_NORTH |
& (ab1*(wVel(I,J_obc,K,bi,bj)-wVel(I,J_obc-1,K,bi,bj))+ |
|
./pkg/obcs/orlanski_north.F |
244 |
ORLANSKI_NORTH |
WN_STORE_2(I,K,bi,bj)=wVel(I,J_obc-1,K,bi,bj) - |
|
./pkg/obcs/orlanski_north.F |
245 |
ORLANSKI_NORTH |
& wVel(I,J_obc-2,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
246 |
ORLANSKI_NORTH |
WN_STORE_1(I,K,bi,bj)=wVel(I,J_obc-1,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
247 |
ORLANSKI_NORTH |
WN_STORE_4(I,K,bi,bj)=wVel(I,J_obc,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
75 |
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 |
188 |
ORLANSKI_SOUTH |
CL=(wVel(I,J_obc+1,K,bi,bj)-WS_STORE_1(I,K,bi,bj))/ |
|
./pkg/obcs/orlanski_south.F |
199 |
ORLANSKI_SOUTH |
OBSw(I,K,bi,bj)=wVel(I,J_obc,K,bi,bj)+ |
|
./pkg/obcs/orlanski_south.F |
201 |
ORLANSKI_SOUTH |
& (ab1*(wVel(I,J_obc+1,K,bi,bj)-wVel(I,J_obc,K,bi,bj))+ |
|
./pkg/obcs/orlanski_south.F |
244 |
ORLANSKI_SOUTH |
WS_STORE_2(I,K,bi,bj)=wVel(I,J_obc+2,K,bi,bj) - |
|
./pkg/obcs/orlanski_south.F |
245 |
ORLANSKI_SOUTH |
& wVel(I,J_obc+1,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
246 |
ORLANSKI_SOUTH |
WS_STORE_1(I,K,bi,bj)=wVel(I,J_obc+1,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
247 |
ORLANSKI_SOUTH |
WS_STORE_4(I,K,bi,bj)=wVel(I,J_obc,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
75 |
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/orlanski_west.F |
223 |
ORLANSKI_WEST |
CL=(wVel(I_obc+1,J,K,bi,bj)-WW_STORE_1(J,K,bi,bj))/ |
|
./pkg/obcs/orlanski_west.F |
240 |
ORLANSKI_WEST |
OBWw(J,K,bi,bj)=wVel(I_obc,J,K,bi,bj)+ |
|
./pkg/obcs/orlanski_west.F |
242 |
ORLANSKI_WEST |
& (ab1*(wVel(I_obc+1,J,K,bi,bj)-wVel(I_obc,J,K,bi,bj))+ |
|
./pkg/obcs/orlanski_west.F |
285 |
ORLANSKI_WEST |
WW_STORE_2(J,K,bi,bj)=wVel(I_obc+2,J,K,bi,bj) - |
|
./pkg/obcs/orlanski_west.F |
286 |
ORLANSKI_WEST |
& wVel(I_obc+1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
287 |
ORLANSKI_WEST |
WW_STORE_1(J,K,bi,bj)=wVel(I_obc+1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
288 |
ORLANSKI_WEST |
WW_STORE_4(J,K,bi,bj)=wVel(I_obc,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
86 |
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/offline/offline_fields_load.F |
373 |
OFFLINE_FIELDS_LOAD |
wVel(i,j,k,bi,bj) = bWght*wvel0(i,j,k,bi,bj) |
|
./pkg/offline/offline_get_diffus.F |
86 |
OFFLINE_GET_DIFFUS |
wVel(i,j,k,bi,bj) = bWght*wvel0(i,j,k,bi,bj) |
|
./pkg/opps/opps_calc.F |
144 |
OPPS_CALC |
Wd(k)= - .5*(wVel(K)+wVel(K+1)) |
|
./pkg/opps/opps_calc.F |
20 |
OPPS_CALC |
I wVel, |
|
./pkg/opps/opps_calc.F |
84 |
OPPS_CALC |
_RL tracerEnv(Nr,nTracer),wVel(Nr) |
|
./pkg/opps/opps_interface.F |
110 |
OPPS_INTERFACE |
wVelLoc(K) = wVel(I,J,K,bi,bj) |
|
./model/src/do_fields_blocking_exchanges.F |
59 |
DO_FIELDS_BLOCKING_EXCHANGES |
& _EXCH_XYZ_RL( wVel , 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 ) |
|
./model/src/do_oceanic_phys.F |
920 |
DO_OCEANIC_PHYS |
I rhoKm1, wVel, |
|
./model/src/do_stagger_fields_exchanges.F |
45 |
DO_STAGGER_FIELDS_EXCHANGES |
& CALL EXCH_3D_RL( wVel, Nr, myThid ) |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
159 |
PTRACERS_DIAGNOSTICS_STATE |
dummy(i,j,k,bi,bj) = wVel(i,j,k,bi,bj) * |
|
./model/src/dynamics.F |
707 |
DYNAMICS |
CALL DEBUG_STATS_RL(Nr,wVel,'Wvel (DYNAMICS)',myThid) |
|
./model/src/external_forcing.F |
461 |
EXTERNAL_FORCING_T |
tmpVar(i,j) = wVel(i,j,kc,bi,bj)*delPI*atm_Rq |
|
./model/src/external_forcing.F |
474 |
EXTERNAL_FORCING_T |
& + wVel(i,j,kp,bi,bj)*delPI*atm_Rq |
|
./model/src/ini_dynvars.F |
56 |
INI_DYNVARS |
wVel (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/timeave/timeave_statvars.F |
119 |
TIMEAVE_STATVARS |
CALL TIMEAVE_CUMULATE(wVeltave, wVel, Nr, DDTT, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
134 |
TIMEAVE_STATVARS |
CALL TIMEAVE_CUMUL_2V(WTtave, theta, wVel, Nr, 3, |
|
./pkg/timeave/timeave_statvars.F |
136 |
TIMEAVE_STATVARS |
CALL TIMEAVE_CUMUL_2V(WStave, salt, wVel, Nr, 3, |
|
./model/src/integr_continuity.F |
261 |
INTEGR_CONTINUITY |
O wVel, |
|
./model/src/integr_continuity.F |
270 |
INTEGR_CONTINUITY |
wVel(i,j,k,bi,bj) = wVel(i,j,k,bi,bj) |
|
./model/src/integr_continuity.F |
283 |
INTEGR_CONTINUITY |
wVel(i,j,k,bi,bj) = wVel(i,j,k,bi,bj)*maskInC(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
289 |
INTEGR_CONTINUITY |
& CALL OBCS_APPLY_W( bi, bj, k, wVel, myThid ) |
|
./model/src/integr_continuity.F |
305 |
INTEGR_CONTINUITY |
& _EXCH_XYZ_RL( wVel , myThid ) |
|
./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 |
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 |
99 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./model/src/post_cg3d.F |
75 |
POST_CG3D |
& *( wVel(i,j,ks,bi,bj) - dPhiNH(i,j,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 |
35 |
OBCS_CALC |
_RL wVel (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/pre_cg3d.F |
130 |
PRE_CG3D |
& + locGamma*wVel(i,j,ks,bi,bj) ) |
|
./model/src/pre_cg3d.F |
203 |
PRE_CG3D |
& -wVel(i,j,kp1,bi,bj)*wFacKp |
|
./model/src/pre_cg3d.F |
221 |
PRE_CG3D |
& +( wVel(i,j, k ,bi,bj)*wFacKm*maskC(i,j,k-1,bi,bj) |
|
./model/src/pre_cg3d.F |
222 |
PRE_CG3D |
& -wVel(i,j,kp1,bi,bj)*wFacKp |
|
./verification/rotating_tank/code/apply_forcing.F |
592 |
APPLY_FORCING_T |
tmpVar(i,j) = wVel(i,j,kc,bi,bj)*delPI*atm_Rq |
|
./verification/rotating_tank/code/apply_forcing.F |
605 |
APPLY_FORCING_T |
& + wVel(i,j,kp,bi,bj)*delPI*atm_Rq |
|
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
60 |
INI_VEL |
wVel(i,j,k,bi,bj)=0. |
|
./model/src/thermodynamics.F |
143 |
THERMODYNAMICS |
CALL CALC_WSURF_TR( theta, salt, wVel, |
|
./model/src/thermodynamics.F |
148 |
THERMODYNAMICS |
CALL LAYERS_WSURF_TR( theta, salt, wVel, |
|
./model/src/thermodynamics.F |
163 |
THERMODYNAMICS |
CALL PTRACERS_CALC_WSURF_TR(wVel,myTime,myIter,myThid) |
|
./model/src/thermodynamics.F |
260 |
THERMODYNAMICS |
wFld(i,j,k) = wVel(i,j,k,bi,bj) |
|
./model/src/thermodynamics.F |
395 |
THERMODYNAMICS |
CALL DEBUG_STATS_RL(Nr,wVel,'Wvel (THERMODYNAMICS)',myThid) |
|
./model/src/timestep_wvel.F |
102 |
TIMESTEP_WVEL |
wVel(i,j,k,bi,bj) = wVel(i,j,k,bi,bj) |
|
./model/src/timestep_wvel.F |
117 |
TIMESTEP_WVEL |
gW(i,j,k,bi,bj) = wVel(i,j,k,bi,bj) |
|
./model/src/timestep_wvel.F |
93 |
TIMESTEP_WVEL |
gW(i,j,k,bi,bj) = wVel(i,j,k,bi,bj) |
|
./model/src/tracers_iigw_correction.F |
69 |
TRACERS_IIGW_CORRECTION |
dWp1(i,j) = ( wVel(i,j,kp1,bi,bj) |
|
./model/src/write_state.F |
109 |
WRITE_STATE |
CALL WRITE_REC_XYZ_RL( 'W',wVel,iRec,myIter,myThid) |
|
./model/src/write_state.F |
139 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL( 'W.',suff,wVelv,myIter,myThid) |
|
./model/src/write_state.F |
150 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL( 'W.',suff,wVel,myIter,myThid) |
|
./model/src/write_state.F |
197 |
WRITE_STATE |
CALL MNC_CW_RL_W(pf,'state',0,0,'W', wVel, myThid) |
|
./pkg/autodiff/addummy_in_stepping.F |
643 |
ADDUMMY_IN_STEPPING |
CALL COPY_ADVAR_OUTP( dumRS, wVeld, var3Du, Nr, 12, myThid ) |
|
./pkg/autodiff/autodiff_restore.F |
151 |
AUTODIFF_RESTORE |
wVel(I,J,K,bi,bj) = StoreDynVars3D(I,J,K,bi,bj,9) |
|
./pkg/autodiff/autodiff_store.F |
161 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,9) = wVel(I,J,K,bi,bj) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
17 |
GAD_2D_CALC_RHS |
O wVel, |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
83 |
GAD_2D_CALC_RHS |
_RL wVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
103 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_SCALE_FILL( wVel, oneRL, 2, |
|
./pkg/diagnostics/diagnostics_fill_state.F |
161 |
DIAGNOSTICS_FILL_STATE |
& *(wVel(i-1,j,k,bi,bj)*rA(i-1,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
162 |
DIAGNOSTICS_FILL_STATE |
& +wVel( i ,j,k,bi,bj)*rA( i ,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
181 |
DIAGNOSTICS_FILL_STATE |
& *(wVel(i,j-1,k,bi,bj)*rA(i,j-1,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
182 |
DIAGNOSTICS_FILL_STATE |
& +wVel(i, j ,k,bi,bj)*rA(i, j ,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
233 |
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 |
282 |
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 |
541 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(wVel, 'WVELMASS',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
584 |
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 |
635 |
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 |
97 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(wVel, 'WVEL ',0,Nr,0,1,1,myThid) |
|
./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 |
51 |
NO PROCEDURE |
_RL wVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |