| File |
Line number |
Procedure |
Code |
|
./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) ) |
|
./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/admtlm/admtlm_dsvd.F |
172 |
ADMTLM_DSVD |
& v(ldv,maxncv), u(ldu, maxnev), |
|
./pkg/admtlm/admtlm_dsvd.F |
605 |
ADMTLM_DSVD |
call DCOPY( m, tmpvec2, 1, u(l,j), 1 ) |
|
./pkg/admtlm/admtlm_dsvd.F |
606 |
ADMTLM_DSVD |
temp = one / dnrm2( m, u(l,j), 1 ) |
|
./pkg/admtlm/admtlm_dsvd.F |
608 |
ADMTLM_DSVD |
print *, 'ph-print ', j, dnrm2( m, u(l,j), 1 ) |
|
./pkg/admtlm/admtlm_dsvd.F |
610 |
ADMTLM_DSVD |
call DSCAL(m , temp, u(l,j), 1 ) |
|
./pkg/admtlm/admtlm_dsvd.F |
634 |
ADMTLM_DSVD |
call DAXPY(m, -s(j,1), u(1,j), 1, tmpvec2, 1) |