Lines Matching refs:idwal

79       integer :: ierror, numphavg, ivort, idwal, idebug, iphavg, irankN  local
113           read(72,*) idwal
134         call mpi_bcast(idwal,1,MPI_INTEGER,0,mpi_comm_world,ierr)
170         if(idwal .gt. 0) then
172           idwal = 1 ! security
525       if(idwal == 1 ) then
551           idwal = 0
779         if(idwal == 1) then
799         if(idwal == 1) then
889                   if(idwal==1) then
954                     if(idwal==1) then
1017                       if(idwal==1) then
1222       if(idwal == 1) then
1405       nsynciofieldswriterestart = 1+iybar+ierror+numphavg+ivort+idwal
1451       if(idwal == 1) then