Lines Matching refs:irankN
79 integer :: ierror, numphavg, ivort, idwal, idebug, iphavg, irankN local
679 irankN=maxPIDout
684 & numpe, 'and N =',irankN
694 write(*,926) myrank, (icountN(j),j=1,irankN)
718 do i=irankN+1,numpe
728 call MPI_ALLREDUCE (maxvID, maxvIDout, irankN,
736 if(myrank.eq.0) write(*,926) (maxvIDout(j),j=1,irankN)
753 if(myrank.lt.irankN) then
824 do irN = 0,irankN-1 ! every irN rank 1..N receives information from
1052 write(*,*)"Part ",irN,"out of N = ",irankN," updated from",
1109 do l=1,irankN
1143 do l=1,irankN
1169 do l=1,irankN
1194 do l=1,irankN
1414 if(irankN == 1) then ! 1 part reduction -> set to 1
1421 call Write_M2N_SolOnly(myrank,irankN,lstep,nshgN,ndof,qoldN)
1425 call Write_M2N_Field(myrank,irankN,'a','ybar',4,ybarN,'d',
1431 call Write_M2N_Field(myrank,irankN,'a','errors',6,errorsN,'d',
1438 call write_M2N_phavg2(myrank,irankN,'a','phase_average',13,
1446 call Write_M2N_Field(myrank,irankN,'a','vorticity',9,
1452 call Write_M2N_Field(myrank,irankN,'a','dwal',4,dwalN,'d',