Lines Matching refs:numTpoints
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
1048 ImpConvCoef(j,:) = ValueListImp(j-1,:)/numTpoints
1052 ImpConvCoef(numTpoints+2,:) =
1053 & ValueListImp(numTpoints+1,:)/numTpoints
1055 ImpConvCoef(numTpoints+1,:)= ImpConvCoef(numTpoints+1,:)
1056 & - ImpConvCoef(numTpoints+2,:)*(1.0-alfi)/alfi
1057 ImpConvCoef(numTpoints+2,:)= ImpConvCoef(numTpoints+2,:)/alfi