| File |
Line number |
Procedure |
Code |
|
./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 |
104 |
FIZHI_WRAPPER |
vdynbef(i,j,L,bi,bj) = vvel(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
195 |
STEP_FIZHI_CORR |
vdyntemp(i,j,L,bi,bj)=vvel(i,j,L,bi,bj)-vdyntemp(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
350 |
STEP_FIZHI_CORR |
. (vvel(i,j,L,bi,bj)-vdynbef(i,j,L,bi,bj))*dtinv - |
|
./pkg/sbo/sbo_calc.F |
245 |
SBO_CALC |
v =(vvel(i,j,kn0,bi,bj)+vvel(i,j+1,kn0,bi,bj))*0.5 _d 0 |
|
./pkg/seaice/seaice_freedrift.F |
94 |
SEAICE_FREEDRIFT |
vvel_cntr=HALF*(vvel(i,j,kSrf,bi,bj)+vvel(i,j+1,kSrf,bi,bj)) |
|
./pkg/thsice/thsice_main.F |
161 |
THSICE_MAIN |
& + vvel(i,j+1,1,bi,bj)*vvel(i,j+1,1,bi,bj) |
|
./pkg/thsice/thsice_main.F |
162 |
THSICE_MAIN |
& + vvel(i,j,1,bi,bj)*vvel(i,j,1,bi,bj) |
|
./verification/OpenAD/code_oad_all/openad_dumpAdjoint.F |
97 |
OPENAD_DUMPADJOINT |
foo5=vveld |
|
./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 |
188 |
NO PROCEDURE |
allocate (vvel(npart,Nr,icount)) |
|
./verification/flt_example/extra/cvprofiles.F |
202 |
NO PROCEDURE |
if (.not. preflag) vvel(m,k,n) = spval |
|
./verification/flt_example/extra/cvprofiles.F |
290 |
NO PROCEDURE |
if (.not. preflag) vvel(ip,k,np) = SNGL(tmp(6+1*Nr+k)) |
|
./verification/flt_example/extra/cvprofiles.F |
295 |
NO PROCEDURE |
if (.not. preflag) vvel(ip,k,np) = spval |
|
./verification/flt_example/extra/cvprofiles.F |
638 |
NO PROCEDURE |
call NCVPT(ncid, VARid, corner, edges, vvel, iret) |
|
./verification/flt_example/extra/cvprofiles.F |
67 |
NO PROCEDURE |
real, dimension(:,:,:), allocatable :: uvel,vvel,temp,salt |
|
./pkg/autodiff/autodiff_restore.F |
149 |
AUTODIFF_RESTORE |
vvel(I,J,K,bi,bj) = StoreDynVars3D(I,J,K,bi,bj,10) |
|
./pkg/autodiff/autodiff_store.F |
159 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,10) = vvel(I,J,K,bi,bj) |
|
./pkg/cost/cost_accumulate_mean.F |
68 |
COST_ACCUMULATE_MEAN |
& /2.*vvel(i,j,k,bi,bj) |
|
./pkg/cost/cost_state_final.F |
39 |
COST_STATE_FINAL |
objf_state_final(i,j,bi,bj,3*Nr+k) = vvel(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
181 |
CTRL_MAP_INI_ECCO |
& xx_vvel_dummy, boundsVec, vvel, masks, paramSmooth, |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
184 |
CTRL_MAP_INI_ECCO |
CALL EXCH_UV_XYZ_RS(uvel,vvel,.TRUE.,myThid) |
|
./pkg/exf/exf_getclim.F |
167 |
EXF_GETCLIM |
& vvel(i,j,1,bi,bj) = climvstr(i,j,bi,bj) |
|
./pkg/exf/exf_init.F |
396 |
EXF_INIT |
& vvel(i,j,1,bi,bj) = climvstr(i,j,bi,bj) |