Lines Matching refs:myrank
128 if(numpe.gt.0 .and. myrank.ne.master)iverbose=0
137 if (myrank .eq. master) then
271 if(myrank.eq.0) then
299 if(myrank.eq.master) write(*,*)
304 if(myrank.eq.master) write(*,*)
308 if(myrank.eq.master)
556 call write_field(myrank,'a','vorticity',9,vorticity,
562 if(myrank.eq.master) then
607 if((irscale.ge.0).and.(myrank.eq.master)) then
649 if(myrank.eq.0) then
654 call saveLesRestart( lesId, aperm , nshg, myrank, lstep,
657 if(myrank.eq.0) then
673 if(myrank.eq.0) then
676 call write_error(myrank, lstep, nshg, 10, rerr )
678 if(myrank.eq.0) then
687 call write_field(myrank,'a','ybar',4,
690 call write_field(myrank,'a','ybar',4,
695 call write_field(myrank,'a','wssbar',6,
701 if(myrank.eq.0) then
706 call write_phavg2(myrank,'a','phase_average',13,iphase,
709 call write_phavg2(myrank,'a','phase_average',13,iphase,
714 if(myrank.eq.0) then
724 if(myrank.eq.0) then
727 call write_field(myrank,'a','dwal',4,d2wall,'d',
730 if(myrank.eq.0) then
767 if(myrank.eq.0) then
795 if (myrank .eq. master) then
809 if(myrank.eq.0) then
815 & myrank.eq.irankfilesforce(isrf)) then
822 if(myrank.eq.0) then
842 if(myrank.eq.0) then
1111 & (myrank .eq. master)) then
1138 if ((irs .ge. 1) .and. (myrank .eq. master)) then
1154 & (myrank .eq. master)) then
1387 if (myrank .eq. 0) then
1410 if(myrank == 0) then
1423 if(myrank == iv_rank(jj)) then
1444 if (myrank == iv_rank(jj)) then
1590 if(myrank.eq.0) write(*,*) 'your input requests svLS but your cmake did not build for it'
1608 call readLesRestart( lesId, aperm, nshg, myrank, lstep,
1612 … if(myrank.eq.0) write(*,*) 'your input requests leslib but your cmake did not build for it'
1796 if(myrank .eq. iv_rank(jj)) then
1813 if(myrank .eq. iv_rank(jj)) then
1958 if(myrank.eq.master) then