Lines Matching refs:lstep

131         lskeep=lstep 
143               fnamepold = trim(fnamepold)//trim(cname2(lstep))
226       lstep0 = lstep+1
227       nsteprcr = nstep(1)+lstep
300      &         'stopjob,lstep,istep', stopjob,lstep,istep
301            if(stopjob.eq.lstep) then
303              if ((irs .ge. 1) .and. (mod(lstep, ntout) .eq. 0)) then
318             if(itvn.gt.0) call BCint((lstep+1)*Delt(1), shp, shgl, 
332                call CalcHopRCR (Delt(itseq), lstep, numRCRSrfs) 
333                call CalcRCRConvCoef(lstep,numRCRSrfs)
521             lstep = lstep + 1
541         if (((irs .ge. 1) .and. (mod(lstep, ntout) .eq. 0)) .or.
557      &                       'd',nshg,5,lstep)
600               if ( mod(lstep-1,freq).eq.0) call dumpTimeSeries()
616             if ((irs .ge. 1) .and. (mod(lstep, ntout) .eq. 0)) then
617                if( (mod(lstep, ntoutv) .eq. 0) .and.
644         if (((irs .ge. 1) .and. (mod(lstep, ntout) .eq. 0)) .or.
654            call saveLesRestart( lesId,  aperm , nshg, myrank, lstep,
676             call write_error(myrank, lstep, nshg, 10, rerr )
688      &                  ybar,'d',nshg,17,lstep)
691      &                ybar,'d',nshg,13,lstep)
696      &             wallssVecBar,'d',nshg,3,lstep)
707      &              nphasesincycle,yphbar(:,:,iphase),'d',nshg,15,lstep)
710      &              nphasesincycle,yphbar(:,:,iphase),'d',nshg,11,lstep)
728      &                       nshg,1,lstep)
1109          if (((irs .ge. 1) .and. ((mod(lstep, ntout) .eq. 0) .or.
1120             fname1 = trim(fname1)//trim(cname2(lstep))//'.dat'
1134          QHistRCR(lstep+1,1:numSrfs) = NewQ(1:numSrfs)
1145                do j=1,lstep
1149             write(816,*) lstep+1, (QHistRCR(lstep+1,n),n=1, numSrfs)
1152             if (((irs .ge. 1) .and. ((mod(lstep, ntout) .eq. 0) .or.
1156                fname1 = trim(fname1)//trim(cname2(lstep))//'.dat'
1158                write(8166,*) lstep+1 
1159                do j=1,lstep+1
1252       if(lstep.eq.0) then
1426                  fvarts=trim(fvarts)//trim(cname2(lstep))
1608           call readLesRestart( lesId,  aperm, nshg, myrank, lstep,
1714               if (((irs .ge. 1) .and. (mod(lstep+1, ntout) .eq. 0)) .or.
1815 …                 write(ifile,555) lstep, (varts(jj,k),k=1,ndof) !Beware of format 555 - check ndof 
1818      &                       (mod(lstep, ntout) .eq. 0))) then