| File |
Line number |
Procedure |
Code |
|
./pkg/admtlm/admtlm_dsvd.F |
170 |
ADMTLM_DSVD |
& v(ldv,maxncv), u(ldu, maxnev), |
|
./pkg/admtlm/admtlm_dsvd.F |
600 |
ADMTLM_DSVD |
call DCOPY( m, tmpvec2, 1, u(l,j), 1 ) |
|
./pkg/admtlm/admtlm_dsvd.F |
601 |
ADMTLM_DSVD |
temp = one / dnrm2( m, u(l,j), 1 ) |
|
./pkg/admtlm/admtlm_dsvd.F |
603 |
ADMTLM_DSVD |
print *, 'ph-print ', j, dnrm2( m, u(l,j), 1 ) |
|
./pkg/admtlm/admtlm_dsvd.F |
605 |
ADMTLM_DSVD |
call DSCAL(m , temp, u(l,j), 1 ) |
|
./pkg/admtlm/admtlm_dsvd.F |
629 |
ADMTLM_DSVD |
call DAXPY(m, -s(j,1), u(1,j), 1, tmpvec2, 1) |
|
./pkg/flt/flt_bilinear.F |
106 |
FLT_BILINEAR |
u11 = u(nfx,nfy,kp,bi,bj) |
|
./pkg/flt/flt_bilinear.F |
107 |
FLT_BILINEAR |
u21 = u(nfxp,nfy,kp,bi,bj) |
|
./pkg/flt/flt_bilinear.F |
108 |
FLT_BILINEAR |
u22 = u(nfxp,nfyp,kp,bi,bj) |
|
./pkg/flt/flt_bilinear.F |
109 |
FLT_BILINEAR |
u12 = u(nfx,nfyp,kp,bi,bj) |
|
./pkg/flt/flt_bilinear.F |
113 |
FLT_BILINEAR |
u11 = u(nfx,nfy,kp,bi,bj)+u(nfx,nfy,kp-1,bi,bj) |
|
./pkg/flt/flt_bilinear.F |
114 |
FLT_BILINEAR |
u21 = u(nfxp,nfy,kp,bi,bj)+u(nfxp,nfy,kp-1,bi,bj) |
|
./pkg/flt/flt_bilinear.F |
115 |
FLT_BILINEAR |
u22 = u(nfxp,nfyp,kp,bi,bj)+u(nfxp,nfyp,kp-1,bi,bj) |
|
./pkg/flt/flt_bilinear.F |
116 |
FLT_BILINEAR |
u12 = u(nfx,nfyp,kp,bi,bj)+u(nfx,nfyp,kp-1,bi,bj) |
|
./pkg/flt/flt_bilinear.F |
11 |
FLT_BILINEAR |
I u, |
|
./pkg/flt/flt_bilinear.F |
134 |
FLT_TRILINEAR |
I u, |
|
./pkg/flt/flt_bilinear.F |
165 |
FLT_TRILINEAR |
_RL u (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/flt/flt_bilinear.F |
264 |
FLT_TRILINEAR |
u111 = u(nfx,nfy,nfz,bi,bj) |
|
./pkg/flt/flt_bilinear.F |
265 |
FLT_TRILINEAR |
u211 = u(nfxp,nfy,nfz,bi,bj) |
|
./pkg/flt/flt_bilinear.F |
266 |
FLT_TRILINEAR |
u221 = u(nfxp,nfyp,nfz,bi,bj) |
|
./pkg/flt/flt_bilinear.F |
267 |
FLT_TRILINEAR |
u121 = u(nfx,nfyp,nfz,bi,bj) |
|
./pkg/flt/flt_bilinear.F |
268 |
FLT_TRILINEAR |
u112 = u(nfx,nfy,nfzp,bi,bj) |
|
./pkg/flt/flt_bilinear.F |
269 |
FLT_TRILINEAR |
u212 = u(nfxp,nfy,nfzp,bi,bj) |
|
./pkg/flt/flt_bilinear.F |
270 |
FLT_TRILINEAR |
u222 = u(nfxp,nfyp,nfzp,bi,bj) |
|
./pkg/flt/flt_bilinear.F |
271 |
FLT_TRILINEAR |
u122 = u(nfx,nfyp,nfzp,bi,bj) |
|
./pkg/flt/flt_bilinear.F |
288 |
FLT_BILINEAR2D |
I u, |
|
./pkg/flt/flt_bilinear.F |
317 |
FLT_BILINEAR2D |
_RL u (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/flt/flt_bilinear.F |
36 |
FLT_BILINEAR |
_RL u (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/flt/flt_bilinear.F |
386 |
FLT_BILINEAR2D |
u11 = u(nfx,nfy,bi,bj) |
|
./pkg/flt/flt_bilinear.F |
387 |
FLT_BILINEAR2D |
u21 = u(nfxp,nfy,bi,bj) |
|
./pkg/flt/flt_bilinear.F |
388 |
FLT_BILINEAR2D |
u22 = u(nfxp,nfyp,bi,bj) |
|
./pkg/flt/flt_bilinear.F |
389 |
FLT_BILINEAR2D |
u12 = u(nfx,nfyp,bi,bj) |
|
./pkg/flt/flt_bilinear.F |
393 |
FLT_BILINEAR2D |
u11 = u(nfx,nfy,bi,bj)+u(nfx,nfy,bi,bj) |
|
./pkg/flt/flt_bilinear.F |
394 |
FLT_BILINEAR2D |
u21 = u(nfxp,nfy,bi,bj)+u(nfxp,nfy,bi,bj) |
|
./pkg/flt/flt_bilinear.F |
395 |
FLT_BILINEAR2D |
u22 = u(nfxp,nfyp,bi,bj)+u(nfxp,nfyp,bi,bj) |
|
./pkg/flt/flt_bilinear.F |
396 |
FLT_BILINEAR2D |
u12 = u(nfx,nfyp,bi,bj)+u(nfx,nfyp,bi,bj) |
|
./pkg/fizhi/fizhi_rayleigh.F |
41 |
RAYLEIGH |
_RL u(im,jm,lm),v(im,jm,lm),t(im,jm,lm),s(im,jm,lm) |
|
./pkg/fizhi/fizhi_rayleigh.F |
5 |
RAYLEIGH |
subroutine RAYLEIGH(myid,pres,pkap,pekap,zsurf,u,v,t,s,im,jm,lm, |
|
./pkg/fizhi/fizhi_rayleigh.F |
91 |
RAYLEIGH |
rfu(i,j,L) = - rf(i,j,L) * u(i,j,L) |
|
./pkg/fizhi/fizhi_rayleigh.F |
93 |
RAYLEIGH |
rft(i,j,L) = -(u(i,j,L)*rfu(i,j,L) + v(i,j,L)*rfv(i,j,L) )*cpinv |
|
./pkg/fizhi/fizhi_gwdrag.F |
295 |
GWDD |
SUBROUTINE GWDD ( ps,u,v,t,dudt,dvdt,xdrag,ydrag, |
|
./pkg/fizhi/fizhi_gwdrag.F |
342 |
GWDD |
_RL u(irun,Lm), v(irun,Lm), t(irun,Lm) |
|
./pkg/fizhi/fizhi_gwdrag.F |
414 |
GWDD |
ubar(i) = ubar(i) + u(i,Lm+1-L) * (ple(i,Lm+2-L)-ple(i,Lm+1-L)) |
|
./pkg/fizhi/fizhi_gwdrag.F |
491 |
GWDD |
velco = 0.5*( (u(i,Lm+1-L)*ubar(i) + v(i,Lm+1-L)*vbar(i)) |
|
./pkg/fizhi/fizhi_gwdrag.F |
492 |
GWDD |
. + (u(i,Lm+2-L)*ubar(i) + v(i,Lm+2-L)*vbar(i)) ) |
|
./pkg/fizhi/fizhi_gwdrag.F |
506 |
GWDD |
deluu = u(i,Lm+1-L)-u(i,Lm+2-L) |
|
./pkg/fizhi/fizhi_gwdrag.F |
582 |
GWDD |
velco = 0.5*( (u(i,Lm+1-L)*ubar(i) + v(i,Lm+1-L)*vbar(i)) |
|
./pkg/fizhi/fizhi_gwdrag.F |
583 |
GWDD |
. + (u(i,Lm+2-L)*ubar(i) + v(i,Lm+2-L)*vbar(i)) ) |
|
./pkg/fizhi/fizhi_gwdrag.F |
595 |
GWDD |
deluu = u(i,Lm+1-L)-u(i,Lm+2-L) |
|
./pkg/fizhi/do_fizhi.F |
104 |
DO_FIZHI |
_RL u(sNx,sNy,Nrphys),v(sNx,sNy,Nrphys),t(sNx,sNy,Nrphys) |
|
./pkg/fizhi/do_fizhi.F |
201 |
DO_FIZHI |
u(i,j,L) = uphy(i,j,L,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
233 |
DO_FIZHI |
. xlons,p(1,1,bi,bj),u,v,t,q,pl(1,1,1,bi,bj),ple(1,1,1,bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
306 |
DO_FIZHI |
call FIZHI_STEP_DIAG(myid,p,u,v,t,q,qq,pkl,dpres, |
|
./pkg/fizhi/fizhi_driver.F |
200 |
FIZHI_DRIVER |
. ptop,p,u,v,t,q,ntracer,ptracer,pl,ple,dpres,pkht,pkl, |
|
./pkg/fizhi/fizhi_driver.F |
216 |
FIZHI_DRIVER |
call GWDRAG (myid,p,pl,ple,dpres,pkl,u,v,t,q,phis_var, |
|
./pkg/fizhi/fizhi_driver.F |
222 |
FIZHI_DRIVER |
call RAYLEIGH(myid,pl,pkl,pkht,surfz,u,v,t,q,im,jm,lm, |
|
./pkg/fizhi/fizhi_driver.F |
243 |
FIZHI_DRIVER |
. p,pl,ple,dpres,pkht,pkl,u,v,t,q,bi,bj,ntracer,ptracer,qq, |
|
./pkg/fizhi/fizhi_driver.F |
58 |
FIZHI_DRIVER |
_RL u(im,jm,lm),v(im,jm,lm),t(im,jm,lm) |
|
./pkg/fizhi/fizhi_driver.F |
7 |
FIZHI_DRIVER |
. p,u,v,t,q,pl,ple,dpres,pkht,pkl,surfz,fracland,landtype,radswt, |
|
./pkg/fizhi/fizhi_turb.F |
199 |
TURBIO |
_RL u(istrip,nlay+1), v(istrip,nlay+1), th(istrip,nlay+1) |
|
./pkg/fizhi/fizhi_turb.F |
468 |
TURBIO |
call STRIP2TILE(uz,igrd,u,nchp,ijall,istrip,nlay,nn) |
|
./pkg/fizhi/fizhi_turb.F |
546 |
TURBIO |
u(i,nlay+1) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
617 |
TURBIO |
call TRBFLX(nn,th,thv,sh,u,v,qq,p,pe,pk,pke,dpstr,stwatr,stz0, |
|
./pkg/fizhi/fizhi_turb.F |
656 |
TURBIO |
wspeed(i) = sqrt(u(i,nlay)*u(i,nlay) + v(i,nlay)*v(i,nlay)) |
|
./pkg/fizhi/fizhi_turb.F |
946 |
TURBIO |
tends(i) = ( u(i,l)-tmpstrip(i) ) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
104 |
DO_FIZHI |
_RL u(sNx,sNy,Nrphys),v(sNx,sNy,Nrphys),t(sNx,sNy,Nrphys) |
|
./verification/fizhi-cs-aqualev20/code/do_fizhi.F |
104 |
DO_FIZHI |
_RL u(sNx,sNy,Nrphys),v(sNx,sNy,Nrphys),t(sNx,sNy,Nrphys) |
|
./verification/fizhi-cs-aqualev20/code/do_fizhi.F |
202 |
DO_FIZHI |
u(i,j,L) = uphy(i,j,L,bi,bj) |
|
./verification/fizhi-cs-aqualev20/code/do_fizhi.F |
234 |
DO_FIZHI |
. xlons,p(1,1,bi,bj),u,v,t,q,pl(1,1,1,bi,bj),ple(1,1,1,bi,bj), |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
199 |
TURBIO |
_RL u(istrip,nlay+1), v(istrip,nlay+1), th(istrip,nlay+1) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
468 |
TURBIO |
call STRIP2TILE(uz,igrd,u,nchp,ijall,istrip,nlay,nn) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
546 |
TURBIO |
u(i,nlay+1) = 0. |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
617 |
TURBIO |
call TRBFLX(nn,th,thv,sh,u,v,qq,p,pe,pk,pke,dpstr,stwatr,stz0, |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
656 |
TURBIO |
wspeed(i) = sqrt(u(i,nlay)*u(i,nlay) + v(i,nlay)*v(i,nlay)) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
946 |
TURBIO |
tends(i) = ( u(i,l)-tmpstrip(i) ) |
|
./pkg/sbo/sbo_calc.F |
164 |
SBO_CALC |
_RL s, t, u, v, density |
|
./pkg/sbo/sbo_calc.F |
244 |
SBO_CALC |
u =(uvel(I,J,Kn0,bi,bj)+uvel(I+1,J,Kn0,bi,bj))/2. |
|
./pkg/sbo/sbo_calc.F |
270 |
SBO_CALC |
xoamc = xoamc + ( v*sin(lon)-u*sin(lat)*cos(lon)) |
|
./pkg/sbo/sbo_calc.F |
272 |
SBO_CALC |
yoamc = yoamc + (-v*cos(lon)-u*sin(lat)*sin(lon)) |
|
./pkg/sbo/sbo_calc.F |
274 |
SBO_CALC |
zoamc = zoamc + u*cos(lat) |