Searched refs:vortmax (Results 1 – 1 of 1) sorted by relevance
97 real*8 vortmax, vortmaxg local216 …vortmax=maxval(abs(vortG(:,4))) !column 4 is the magnitude of the shear tensor - should actually …217 write(*,*) "vortmax = ", vortmax221 call MPI_ALLREDUCE(vortmax, vortmaxg, 1, 223 vortmax = vortmaxg233 if(abs(vortG(i,4)).ge.vortmax*0.01) yold(i,6)=evis_IC_BC