| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_getclim.F |
186 |
EXF_GETCLIM |
& uvel(i,j,1,bi,bj) = climustr(i,j,bi,bj) |
|
./pkg/exf/exf_init_varia.F |
472 |
EXF_INIT_VARIA |
& uvel(i,j,1,bi,bj) = climustr(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_init_vars.F |
155 |
FIZHI_INIT_VARS |
call CTOA(myThid,uvel,vvel,maskW,maskS,im1,im2,jm1,jm2,Nr, |
|
./pkg/fizhi/fizhi_wrapper.F |
83 |
FIZHI_WRAPPER |
udynbef(i,j,L,bi,bj) = uvel(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
194 |
STEP_FIZHI_CORR |
udyntemp(i,j,L,bi,bj)=uvel(i,j,L,bi,bj)-udyntemp(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
347 |
STEP_FIZHI_CORR |
. (uvel(i,j,L,bi,bj)-udynbef(i,j,L,bi,bj))*dtinv - |
|
./pkg/generic_advdiff/gad_ppm_adv_x.F |
133 |
GAD_PPM_ADV_X |
& delT,uvel, |
|
./pkg/generic_advdiff/gad_ppm_adv_x.F |
37 |
GAD_PPM_ADV_X |
_RL uvel(1-OLx:sNx+OLx, |
|
./pkg/generic_advdiff/gad_ppm_adv_x.F |
7 |
GAD_PPM_ADV_X |
I calc_CFL,delT,uvel,ufac,fbar, |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
105 |
GAD_PPM_FLX_X |
uCFL = uvel(ix,iy) * delT |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
109 |
GAD_PPM_FLX_X |
uCFL = uvel(ix,iy) |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
35 |
GAD_PPM_FLX_X |
_RL uvel(1-OLx:sNx+OLx, |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
68 |
GAD_PPM_FLX_X |
if (uvel(ix,iy) .eq. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
74 |
GAD_PPM_FLX_X |
if (uvel(ix,iy) .gt. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
78 |
GAD_PPM_FLX_X |
uCFL = uvel(ix,iy) * delT |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
7 |
GAD_PPM_FLX_X |
& calc_CFL,delT,uvel, |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
82 |
GAD_PPM_FLX_X |
uCFL = uvel(ix,iy) |
|
./pkg/generic_advdiff/gad_pqm_adv_x.F |
131 |
GAD_PQM_ADV_X |
& delT,uvel, |
|
./pkg/generic_advdiff/gad_pqm_adv_x.F |
37 |
GAD_PQM_ADV_X |
_RL uvel(1-OLx:sNx+OLx, |
|
./pkg/generic_advdiff/gad_pqm_adv_x.F |
7 |
GAD_PQM_ADV_X |
I calc_CFL,delT,uvel,ufac,fbar, |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
111 |
GAD_PQM_FLX_X |
uCFL = uvel(ix,iy) * delT |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
115 |
GAD_PQM_FLX_X |
uCFL = uvel(ix,iy) |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
35 |
GAD_PQM_FLX_X |
_RL uvel(1-OLx:sNx+OLx, |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
68 |
GAD_PQM_FLX_X |
if (uvel(ix,iy) .eq. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
74 |
GAD_PQM_FLX_X |
if (uvel(ix,iy) .gt. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
78 |
GAD_PQM_FLX_X |
uCFL = uvel(ix,iy) * delT |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
7 |
GAD_PQM_FLX_X |
& calc_CFL,delT,uvel, |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
82 |
GAD_PQM_FLX_X |
uCFL = uvel(ix,iy) |
|
./pkg/openad/openad_dumpAdjoint.F |
110 |
OPENAD_DUMPADJOINT |
foo5=uveld |
|
./pkg/seaice/seaice_freedrift.F |
91 |
SEAICE_FREEDRIFT |
uvel_cntr=HALF*(uvel(i,j,kSrf,bi,bj)+uvel(i+1,j,kSrf,bi,bj)) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
135 |
FIZHI_INIT_VARS |
call CTOA(myThid,uvel,vvel,maskW,maskS,im1,im2,jm1,jm2,Nr, |
|
./verification/flt_example/extra/cvprofiles.F |
187 |
NO PROCEDURE |
allocate (uvel(npart,Nr,icount)) |
|
./verification/flt_example/extra/cvprofiles.F |
201 |
NO PROCEDURE |
if (.not. preflag) uvel(m,k,n) = spval |
|
./verification/flt_example/extra/cvprofiles.F |
289 |
NO PROCEDURE |
if (.not. preflag) uvel(ip,k,np) = SNGL(tmp(6+k)) |
|
./verification/flt_example/extra/cvprofiles.F |
294 |
NO PROCEDURE |
if (.not. preflag) uvel(ip,k,np) = spval |
|
./verification/flt_example/extra/cvprofiles.F |
636 |
NO PROCEDURE |
call NCVPT(ncid, VARid, corner, edges, uvel, iret) |
|
./verification/flt_example/extra/cvprofiles.F |
67 |
NO PROCEDURE |
real, dimension(:,:,:), allocatable :: uvel,vvel,temp,salt |
|
./pkg/autodiff/addummy_in_stepping.F |
461 |
ADDUMMY_IN_STEPPING |
foo3D = uveld |
|
./pkg/autodiff/addummy_in_stepping.F |
541 |
ADDUMMY_IN_STEPPING |
foo3D = uveld |
|
./pkg/cheapaml/gad_c2_2d_adv_x.F |
35 |
GAD_C2_2D_ADV_X |
_RL uvel(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/cost/cost_accumulate_mean.F |
62 |
COST_ACCUMULATE_MEAN |
& /2.*uvel(i,j,k,bi,bj) |
|
./pkg/cost/cost_state_final.F |
38 |
COST_STATE_FINAL |
objf_state_final(i,j,bi,bj,2*Nr+k) = uvel(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
170 |
CTRL_MAP_INI_ECCO |
& xx_uvel_dummy, boundsVec, uvel, maskw, paramSmooth, |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
177 |
CTRL_MAP_INI_ECCO |
CALL EXCH_UV_XYZ_RS(uvel,vvel,.TRUE.,myThid) |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
145 |
CTRL_MAP_INI_GENARR |
call CTRL_MAP_GENARR3D(uvel,igen_uvel0,myThid) |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
147 |
CTRL_MAP_INI_GENARR |
CALL EXCH_UV_XYZ_RL(uvel,vvel,.TRUE.,myThid) |