Lines Matching refs:nphasesincycle
189 if(nstepsincycle.eq.0) nphasesincycle = 0
190 if(nphasesincycle.ne.0) then
194 allocate(yphbar(nshg,irank2yphbar,nphasesincycle)) ! more space for vorticity
197 allocate(yphbar(nshg,irank2yphbar,nphasesincycle))
699 if(nphasesincycle .gt. 0) then
704 do iphase=1,nphasesincycle
707 & nphasesincycle,yphbar(:,:,iphase),'d',nshg,15,lstep)
710 & nphasesincycle,yphbar(:,:,iphase),'d',nshg,11,lstep)
752 if(nphasesincycle .gt. 0) then
1845 real*8 yphbar(nshg,irank2yphbar,nphasesincycle)
1867 if(nphasesincycle.eq.0 .or.
1933 if(nphasesincycle.ne.0 .and.
1941 nstepsbtwphase = nstepsincycle/nphasesincycle ! integer value