| File |
Line number |
Procedure |
Code |
|
./pkg/flt/flt_runga2.F |
110 |
FLT_RUNGA2 |
CALL FLT_TRILINEAR(ix,jy,kz,ww,wVel,4,bi,bj,myThid) |
|
./pkg/flt/flt_runga2.F |
147 |
FLT_RUNGA2 |
CALL FLT_TRILINEAR(itx,jty,ktz,w1,wVel,4,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
112 |
FLT_RUNGA4 |
CALL FLT_TRILINEAR(ix,jy,kz,w1,wVel,4,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
151 |
FLT_RUNGA4 |
CALL FLT_TRILINEAR(itx1,jty1,ktz1,w2,wVel, |
|
./pkg/flt/flt_runga4.F |
201 |
FLT_RUNGA4 |
CALL FLT_TRILINEAR(itx2,jty2,ktz2,w3,wVel, |
|
./pkg/flt/flt_runga4.F |
251 |
FLT_RUNGA4 |
CALL FLT_TRILINEAR(itx3,jty3,ktz3,w4,wVel, |
|
./pkg/generic_advdiff/gad_advection.F |
15 |
GAD_ADVECTION |
I uVel, vVel, wVel, tracer, |
|
./pkg/generic_advdiff/gad_advection.F |
759 |
GAD_ADVECTION |
wFld(i,j) = wVel(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
760 |
GAD_ADVECTION |
rTrans(i,j) = wVel(i,j,k,bi,bj)*rA(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
76 |
GAD_ADVECTION |
_RL wVel (1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
12 |
GAD_IMPLICIT_R |
I kappaRX, wVel, tracer, |
|
./pkg/generic_advdiff/gad_implicit_r.F |
195 |
GAD_IMPLICIT_R |
wFld(i,j) = wVel(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
45 |
GAD_IMPLICIT_R |
_RL wVel (1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/generic_advdiff/gad_som_advect.F |
14 |
GAD_SOM_ADVECT |
I uVel, vVel, wVel, tracer, |
|
./pkg/generic_advdiff/gad_som_advect.F |
559 |
GAD_SOM_ADVECT |
wFld(i,j) = wVel(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_som_advect.F |
560 |
GAD_SOM_ADVECT |
rTrans(i,j) = wVel(i,j,k,bi,bj)*rA(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_som_advect.F |
572 |
GAD_SOM_ADVECT |
wFld(i,j) = wVel(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_som_advect.F |
573 |
GAD_SOM_ADVECT |
rTrans(i,j) = wVel(i,j,k,bi,bj)*rA(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_som_advect.F |
57 |
GAD_SOM_ADVECT |
_RL wVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/longstep/longstep_average.F |
92 |
LONGSTEP_AVERAGE |
CALL LONGSTEP_FILL_3D(LS_wVelCount, LS_wVel, wVel, Nr, myThid) |
|
./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/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_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 |
335 |
MOM_FLUXFORM |
CALL MOM_U_ADV_WU( bi,bj,k,uVel,wVel,rTransU, |
|
./pkg/mom_fluxform/mom_fluxform.F |
338 |
MOM_FLUXFORM |
CALL MOM_V_ADV_WV( bi,bj,k,vVel,wVel,rTransV, |
|
./pkg/mom_fluxform/mom_fluxform.F |
384 |
MOM_FLUXFORM |
I bi,bj,k+1,uBnd,wVel,rTransU, |
|
./pkg/mom_fluxform/mom_fluxform.F |
398 |
MOM_FLUXFORM |
I bi,bj,k+1,uVel,wVel,rTransU, |
|
./pkg/mom_fluxform/mom_fluxform.F |
562 |
MOM_FLUXFORM |
CALL MOM_U_METRIC_NH(bi,bj,k,uFld,wVel,mT,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
600 |
MOM_FLUXFORM |
I bi,bj,k+1,vBnd,wVel,rTransV, |
|
./pkg/mom_fluxform/mom_fluxform.F |
614 |
MOM_FLUXFORM |
I bi,bj,k+1,vVel,wVel,rTransV, |
|
./pkg/mom_fluxform/mom_fluxform.F |
777 |
MOM_FLUXFORM |
CALL MOM_V_METRIC_NH(bi,bj,k,vFld,wVel,mT,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
835 |
MOM_FLUXFORM |
CALL MOM_U_CORIOLIS_NH(bi,bj,k,wVel,cf,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
843 |
MOM_FLUXFORM |
CALL MOM_V_CORIOLIS_NH(bi,bj,k,wVel,cf,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
611 |
MOM_VECINV |
CALL MOM_VI_U_VERTSHEAR(bi,bj,K,uVel,wVel,uCf,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
617 |
MOM_VECINV |
CALL MOM_VI_V_VERTSHEAR(bi,bj,K,vVel,wVel,vCf,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
664 |
MOM_VECINV |
CALL MOM_U_CORIOLIS_NH(bi,bj,k,wVel,uCf,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
672 |
MOM_VECINV |
CALL MOM_V_CORIOLIS_NH(bi,bj,k,wVel,vCf,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
683 |
MOM_VECINV |
CALL MOM_U_METRIC_NH(bi,bj,k,uFld,wVel,uCf,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
689 |
MOM_VECINV |
CALL MOM_V_METRIC_NH(bi,bj,k,vFld,wVel,vCf,myThid) |
|
./model/src/calc_gw.F |
269 |
CALC_GW |
wFld(i,j) = wVel(i,j,k,bi,bj) |
|
./model/src/calc_gw.F |
336 |
CALC_GW |
& *(wVel(i,j,k,bi,bj)-wVel(i-1,j,k,bi,bj)) |
|
./model/src/calc_gw.F |
354 |
CALC_GW |
& *(wVel(i,j,k,bi,bj)-wVel(i,j-1,k,bi,bj)) |
|
./model/src/calc_gw.F |
381 |
CALC_GW |
& - viscLoc*( wVel(i,j,kp1,bi,bj)*mskP1 |
|
./model/src/calc_gw.F |
382 |
CALC_GW |
& -wVel(i,j, k ,bi,bj) )*rkSign |
|
./model/src/calc_gw.F |
399 |
CALC_GW |
& - viscLoc*( wVel(i,j, k ,bi,bj) |
|
./model/src/calc_gw.F |
400 |
CALC_GW |
& -wVel(i,j,k-1,bi,bj) )*rkSign |
|
./model/src/calc_gw.F |
429 |
CALC_GW |
I wVel, del2w, |
|
./model/src/calc_gw.F |
483 |
CALC_GW |
& ( wVel(i,j, k ,bi,bj)*rVel2wUnit( k ) |
|
./model/src/calc_gw.F |
484 |
CALC_GW |
& +wVel(i,j,kp1,bi,bj)*rVel2wUnit(kp1)*mskP1 ) |
|
./model/src/calc_gw.F |
487 |
CALC_GW |
& ( wVel(i,j, k ,bi,bj)*deepFac2F( k )*rhoFacF( k ) |
|
./model/src/calc_gw.F |
488 |
CALC_GW |
& +wVel(i,j,kp1,bi,bj)*deepFac2F(kp1)*rhoFacF(kp1) |
|
./model/src/calc_gw.F |
499 |
CALC_GW |
tmp_WbarZ = wVel(i,j,k,bi,bj)*rVel2wUnit(k) |
|
./model/src/calc_gw.F |
500 |
CALC_GW |
rTrans = wVel(i,j,k,bi,bj)*deepFac2F(k)*rhoFacF(k) |
|
./pkg/monitor/mon_ke.F |
100 |
MON_KE |
& +wVel(i,j,kp1,bi,bj)*wVel(i,j,kp1,bi,bj)*mskp1 |
|
./pkg/monitor/mon_ke.F |
98 |
MON_KE |
& ( wVel(i,j, k, bi,bj)*wVel(i,j, k, bi,bj)*msk_1 |
|
./pkg/monitor/mon_surfcor.F |
110 |
MON_SURFCOR |
& + rA(i,j,bi,bj)*wVel(i,j,ks,bi,bj)*tmpVal |
|
./pkg/monitor/mon_surfcor.F |
127 |
MON_SURFCOR |
& - ddPI*rA(i,j,bi,bj)*wVel(i,j,k,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
87 |
MON_SURFCOR |
& rA(i,j,bi,bj)*wVel(i,j,ks,bi,bj)*theta(i,j,ks,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
90 |
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_WRITESTATS_RL( Nr, wVel, '_wvel', |
|
./pkg/monitor/monitor.F |
151 |
MONITOR |
CALL MON_ADVCFLW( '_wvel', wVel, recip_drC, dT, myThid ) |
|
./pkg/monitor/monitor.F |
152 |
MONITOR |
CALL MON_ADVCFLW2('_W_hf', wVel, recip_hFacC, |
|
./pkg/obcs/obcs_calc.F |
141 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./pkg/obcs/obcs_calc.F |
193 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./pkg/obcs/obcs_calc.F |
228 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./pkg/obcs/obcs_calc.F |
39 |
OBCS_CALC |
_RL wVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_calc.F |
7 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./pkg/obcs/obcs_calc.F |
89 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./pkg/obcs/obcs_init_variables.F |
343 |
OBCS_INIT_VARIABLES |
& uVel, vVel, wVel, theta, salt, myThid ) |
|
./pkg/obcs/orlanski_east.F |
219 |
ORLANSKI_EAST |
CL=-(wVel(I_obc-1,J,K,bi,bj)-WE_STORE_1(J,K,bi,bj))/ |
|
./pkg/obcs/orlanski_east.F |
236 |
ORLANSKI_EAST |
OBEw(J,K,bi,bj)=wVel(I_obc,J,K,bi,bj)- |
|
./pkg/obcs/orlanski_east.F |
238 |
ORLANSKI_EAST |
& (ab1*(wVel(I_obc,J,K,bi,bj)-wVel(I_obc-1,J,K,bi,bj))+ |
|
./pkg/obcs/orlanski_east.F |
281 |
ORLANSKI_EAST |
WE_STORE_2(J,K,bi,bj)=wVel(I_obc-1,J,K,bi,bj) - |
|
./pkg/obcs/orlanski_east.F |
282 |
ORLANSKI_EAST |
& wVel(I_obc-2,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
283 |
ORLANSKI_EAST |
WE_STORE_1(J,K,bi,bj)=wVel(I_obc-1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
284 |
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/orlanski_north.F |
186 |
ORLANSKI_NORTH |
CL=-(wVel(I,J_obc-1,K,bi,bj)-WN_STORE_1(I,K,bi,bj))/ |
|
./pkg/obcs/orlanski_north.F |
197 |
ORLANSKI_NORTH |
OBNw(I,K,bi,bj)=wVel(I,J_obc,K,bi,bj)- |
|
./pkg/obcs/orlanski_north.F |
199 |
ORLANSKI_NORTH |
& (ab1*(wVel(I,J_obc,K,bi,bj)-wVel(I,J_obc-1,K,bi,bj))+ |
|
./pkg/obcs/orlanski_north.F |
242 |
ORLANSKI_NORTH |
WN_STORE_2(I,K,bi,bj)=wVel(I,J_obc-1,K,bi,bj) - |
|
./pkg/obcs/orlanski_north.F |
243 |
ORLANSKI_NORTH |
& wVel(I,J_obc-2,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
244 |
ORLANSKI_NORTH |
WN_STORE_1(I,K,bi,bj)=wVel(I,J_obc-1,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
245 |
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 |
186 |
ORLANSKI_SOUTH |
CL=(wVel(I,J_obc+1,K,bi,bj)-WS_STORE_1(I,K,bi,bj))/ |
|
./pkg/obcs/orlanski_south.F |
197 |
ORLANSKI_SOUTH |
OBSw(I,K,bi,bj)=wVel(I,J_obc,K,bi,bj)+ |
|
./pkg/obcs/orlanski_south.F |
199 |
ORLANSKI_SOUTH |
& (ab1*(wVel(I,J_obc+1,K,bi,bj)-wVel(I,J_obc,K,bi,bj))+ |
|
./pkg/obcs/orlanski_south.F |
242 |
ORLANSKI_SOUTH |
WS_STORE_2(I,K,bi,bj)=wVel(I,J_obc+2,K,bi,bj) - |
|
./pkg/obcs/orlanski_south.F |
243 |
ORLANSKI_SOUTH |
& wVel(I,J_obc+1,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
244 |
ORLANSKI_SOUTH |
WS_STORE_1(I,K,bi,bj)=wVel(I,J_obc+1,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
245 |
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/orlanski_west.F |
221 |
ORLANSKI_WEST |
CL=(wVel(I_obc+1,J,K,bi,bj)-WW_STORE_1(J,K,bi,bj))/ |
|
./pkg/obcs/orlanski_west.F |
238 |
ORLANSKI_WEST |
OBWw(J,K,bi,bj)=wVel(I_obc,J,K,bi,bj)+ |
|
./pkg/obcs/orlanski_west.F |
240 |
ORLANSKI_WEST |
& (ab1*(wVel(I_obc+1,J,K,bi,bj)-wVel(I_obc,J,K,bi,bj))+ |
|
./pkg/obcs/orlanski_west.F |
283 |
ORLANSKI_WEST |
WW_STORE_2(J,K,bi,bj)=wVel(I_obc+2,J,K,bi,bj) - |
|
./pkg/obcs/orlanski_west.F |
284 |
ORLANSKI_WEST |
& wVel(I_obc+1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
285 |
ORLANSKI_WEST |
WW_STORE_1(J,K,bi,bj)=wVel(I_obc+1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
286 |
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/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 |
110 |
OPPS_INTERFACE |
wVelLoc(K) = wVel(I,J,K,bi,bj) |
|
./pkg/ptracers/ptracers_advection.F |
100 |
PTRACERS_ADVECTION |
I uVel, vVel, wVel, |
|
./pkg/ptracers/ptracers_advection.F |
119 |
PTRACERS_ADVECTION |
I uVel, vVel, wVel, |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
159 |
PTRACERS_DIAGNOSTICS_STATE |
dummy(i,j,k,bi,bj) = wVel(i,j,k,bi,bj) * |
|
./pkg/ptracers/ptracers_implicit.F |
117 |
PTRACERS_IMPLICIT |
I wVel, |
|
./model/src/do_fields_blocking_exchanges.F |
58 |
DO_FIELDS_BLOCKING_EXCHANGES |
& _EXCH_XYZ_RL( wVel , myThid ) |
|
./model/src/do_oceanic_phys.F |
158 |
DO_OCEANIC_PHYS |
I uVel, vVel, wVel, theta, salt, myThid ) |
|
./model/src/do_oceanic_phys.F |
559 |
DO_OCEANIC_PHYS |
I rhoKm1, wVel, |
|
./model/src/do_stagger_fields_exchanges.F |
38 |
DO_STAGGER_FIELDS_EXCHANGES |
& _EXCH_XYZ_RL( wVel , myThid ) |
|
./model/src/dynamics.F |
696 |
DYNAMICS |
CALL DEBUG_STATS_RL(Nr,wVel,'Wvel (DYNAMICS)',myThid) |
|
./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, |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
11 |
GAD_IMPLICIT_R |
I kappaRX, wVel, tracer, |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
193 |
GAD_IMPLICIT_R |
wFld(i,j) = wVel(i,j,k,bi,bj) |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
43 |
GAD_IMPLICIT_R |
_RL wVel (1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./verification/OpenAD/code_oad_all/write_state.F |
109 |
WRITE_STATE |
CALL WRITE_REC_XYZ_RL( 'W',wVel,iRec,myIter,myThid) |
|
./verification/OpenAD/code_oad_all/write_state.F |
132 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL( 'W.',suff,wVelv,myIter,myThid) |
|
./verification/OpenAD/code_oad_all/write_state.F |
177 |
WRITE_STATE |
CALL MNC_CW_RL_W(pf,'state',0,0,'W', wVel, myThid) |
|
./model/src/ini_dynvars.F |
53 |
INI_DYNVARS |
wVel(I,J,K,bi,bj)=0. _d 0 |
|
./verification/dome/code/obcs_calc.F |
126 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./verification/dome/code/obcs_calc.F |
145 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./verification/dome/code/obcs_calc.F |
206 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./verification/dome/code/obcs_calc.F |
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 |
94 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./verification/internal_wave/code/obcs_calc.F |
101 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./verification/internal_wave/code/obcs_calc.F |
154 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./verification/internal_wave/code/obcs_calc.F |
174 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./verification/internal_wave/code/obcs_calc.F |
30 |
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 |
81 |
OBCS_CALC |
& uVel, vVel, wVel, theta, salt, |
|
./model/src/initialise_varia.F |
318 |
INITIALISE_VARIA |
_EXCH_XYZ_RL(wVel,myThid) |
|
./model/src/integr_continuity.F |
231 |
INTEGR_CONTINUITY |
O wVel, |
|
./model/src/integr_continuity.F |
240 |
INTEGR_CONTINUITY |
wVel(i,j,k,bi,bj) = wVel(i,j,k,bi,bj) |
|
./model/src/integr_continuity.F |
250 |
INTEGR_CONTINUITY |
IF ( useOBCS ) CALL OBCS_APPLY_W( bi, bj, k, wVel, myThid ) |
|
./model/src/momentum_correction_step.F |
189 |
MOMENTUM_CORRECTION_STEP |
& _EXCH_XYZ_RL( wVel , myThid ) |
|
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
60 |
INI_VEL |
wVel(i,j,k,bi,bj)=0. |
|
./model/src/post_cg3d.F |
115 |
POST_CG3D |
& *wVel(i,j,1,bi,bj) |
|
./model/src/pre_cg3d.F |
108 |
PRE_CG3D |
& *wVel(i,j,1,bi,bj) |
|
./model/src/pre_cg3d.F |
214 |
PRE_CG3D |
& -wVel(i,j,kp1,bi,bj)*wFacKp |
|
./model/src/pre_cg3d.F |
232 |
PRE_CG3D |
& +( wVel(i,j, k ,bi,bj)*wFacKm*maskC(i,j,k-1,bi,bj) |
|
./model/src/pre_cg3d.F |
233 |
PRE_CG3D |
& -wVel(i,j,kp1,bi,bj)*wFacKp |
|
./model/src/thermodynamics.F |
222 |
THERMODYNAMICS |
CALL CALC_WSURF_TR(theta,salt,wVel, |
|
./model/src/thermodynamics.F |
381 |
THERMODYNAMICS |
I uVel, vVel, wVel, theta, |
|
./model/src/thermodynamics.F |
395 |
THERMODYNAMICS |
I uVel, vVel, wVel, theta, |
|
./model/src/thermodynamics.F |
407 |
THERMODYNAMICS |
I uVel, vVel, wVel, salt, |
|
./model/src/thermodynamics.F |
421 |
THERMODYNAMICS |
I uVel, vVel, wVel, salt, |
|
./model/src/thermodynamics.F |
517 |
THERMODYNAMICS |
wFld(i,j) = wVel(i,j,k,bi,bj) |
|
./model/src/thermodynamics.F |
822 |
THERMODYNAMICS |
I kappaRk, wVel, theta, |
|
./model/src/thermodynamics.F |
873 |
THERMODYNAMICS |
I kappaRk, wVel, salt, |
|
./model/src/thermodynamics.F |
920 |
THERMODYNAMICS |
CALL DEBUG_STATS_RL(Nr,wVel,'Wvel (THERMODYNAMICS)',myThid) |
|
./model/src/timestep_wvel.F |
114 |
TIMESTEP_WVEL |
CALL OBCS_APPLY_W( bi, bj, k, wVel, myThid ) |
|
./model/src/timestep_wvel.F |
124 |
TIMESTEP_WVEL |
gW(i,j,k,bi,bj) = wVel(i,j,k,bi,bj) |
|
./model/src/timestep_wvel.F |
89 |
TIMESTEP_WVEL |
gW(i,j,k,bi,bj) = wVel(i,j,k,bi,bj) |
|
./model/src/timestep_wvel.F |
98 |
TIMESTEP_WVEL |
wVel(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 |
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) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
155 |
DIAGNOSTICS_FILL_STATE |
& *(wVel(i-1,j,K,bi,bj)*rA(i-1,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
156 |
DIAGNOSTICS_FILL_STATE |
& +wVel( i ,j,K,bi,bj)*rA( i ,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
175 |
DIAGNOSTICS_FILL_STATE |
& *(wVel(i,j-1,K,bi,bj)*rA(i,j-1,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
176 |
DIAGNOSTICS_FILL_STATE |
& +wVel(i, j ,K,bi,bj)*rA(i, j ,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
227 |
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 |
276 |
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 |
528 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(wVel, 'WVELMASS',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
571 |
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 |
622 |
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 |
91 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(wVel, 'WVEL ',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
97 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_SCALE_FILL(wVel,tmpFac,2, |
|
./model/inc/DYNVARS.h |
37 |
NO PROCEDURE |
& uVel,vVel,wVel,theta,salt, |
|
./model/inc/DYNVARS.h |
43 |
NO PROCEDURE |
& uVel,vVel,wVel,theta,salt, |
|
./model/inc/DYNVARS.h |
50 |
NO PROCEDURE |
_RL wVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |