Searched refs:ucomp (Results 1 – 3 of 3) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | filtprep.f | 16 real*8, allocatable :: ucomp(:,:) variable
70 allocate ( ucomp(70,3) )
|
| /phasta/phSolver/incompressible/ |
| H A D | filters.f | 1703 ucomp = zero
2064 ucomp(:,:) = ucomp(:,:)+uir(:,:)
2131 ucomp(:,:) = ucomp(:,:)+ui(:,:)
2171 write(375,*)ucomp(i,1),ucomp(i,2),ucomp(i,3)
2194 write(*,*)'uit uic=', ucomp(32,1),u1
2396 ucomp = zero
2806 ucomp(:,:) = ucomp(:,:)+uir(:,:)
2872 ucomp(:,:) = ucomp(:,:)+ui(:,:)
2910 write(375,*)ucomp(i,1),ucomp(i,2),ucomp(i,3)
2941 write(*,*)'uit uic=', ucomp(32,1),u1
|
| H A D | advLES.f | 2523 ucomp = zero
2879 ucomp(:,:) = ucomp(:,:)+uir(:,:)
2946 ucomp(:,:) = ucomp(:,:)+ui(:,:)
2986 write(375,*)ucomp(i,1),ucomp(i,2),ucomp(i,3)
3009 write(*,*)'uit uic=', ucomp(32,1),u1
3214 ucomp = zero
3626 ucomp(:,:) = ucomp(:,:)+uir(:,:)
3692 ucomp(:,:) = ucomp(:,:)+ui(:,:)
3730 write(375,*)ucomp(i,1),ucomp(i,2),ucomp(i,3)
3761 write(*,*)'uit uic=', ucomp(32,1),u1
|