Searched refs:numTpoints (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/incompressible/ |
| H A D | itrdrv.f | 1005 subroutine CalcImpConvCoef (numISrfs, numTpoints) argument
1011 integer numISrfs, numTpoints local
1013 allocate (ConvCoef(numTpoints+2,3)) !same time discret. for all imp. BC
1014 do j=1,numTpoints+2
1015 ConvCoef(j,:)=0.5/numTpoints !dt/2 divided by period T=N*dt
1023 ConvCoef(numTpoints+1,1)=zero
1024 ConvCoef(numTpoints+2,2)=zero
1025 ConvCoef(numTpoints+2,1)=zero
1029 allocate (ImpConvCoef(numTpoints+2,numISrfs))
1047 do j=3,numTpoints+1
[all …]
|