| 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 |
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/sbo/sbo_calc.F |
244 |
SBO_CALC |
u =(uvel(i,j,kn0,bi,bj)+uvel(i+1,j,kn0,bi,bj))*0.5 _d 0 |
|
./pkg/seaice/seaice_ad_check_lev1_dir.h |
22 |
NO PROCEDURE |
cphCADJ STORE uvel = comlev1, key=ikey_dynamics, kind=isbyte |
|
./pkg/seaice/seaice_freedrift.F |
93 |
SEAICE_FREEDRIFT |
uvel_cntr=HALF*(uvel(i,j,kSrf,bi,bj)+uvel(i+1,j,kSrf,bi,bj)) |
|
./pkg/thsice/thsice_main.F |
159 |
THSICE_MAIN |
& ( uvel(i,j,1,bi,bj)*uvel(i,j,1,bi,bj) |
|
./pkg/thsice/thsice_main.F |
160 |
THSICE_MAIN |
& + uvel(i+1,j,1,bi,bj)*uvel(i+1,j,1,bi,bj) |
|
./verification/OpenAD/code_oad_all/openad_dumpAdjoint.F |
95 |
OPENAD_DUMPADJOINT |
foo5=uveld |
|
./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/autodiff_restore.F |
148 |
AUTODIFF_RESTORE |
uvel(I,J,K,bi,bj) = StoreDynVars3D(I,J,K,bi,bj,9) |
|
./pkg/autodiff/autodiff_store.F |
158 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,9) = uvel(I,J,K,bi,bj) |
|
./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 |
177 |
CTRL_MAP_INI_ECCO |
& xx_uvel_dummy, boundsVec, uvel, maskw, 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 |
164 |
EXF_GETCLIM |
& uvel(i,j,1,bi,bj) = climustr(i,j,bi,bj) |
|
./pkg/exf/exf_init.F |
393 |
EXF_INIT |
& uvel(i,j,1,bi,bj) = climustr(i,j,bi,bj) |