1 !vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv 2 ! 3 ! Subroutine: CFUPDATEOLD 4 ! Purpose: Update old arrays to store current time step information 5 ! before the new arrays are updated 6 ! 7 ! Author: Jay Boyalakuntla Date: 12-Jun-04 8 ! Reviewer: Date: 9 ! 10 !^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 11 12 SUBROUTINE CFUPDATEOLD 13 14 !----------------------------------------------- 15 ! Modules 16 !----------------------------------------------- 17 USE discretelement 18 USE run 19 IMPLICIT NONE 20 !----------------------------------------------- 21 ! Local variables 22 !----------------------------------------------- 23 ! Loop counters (no. particles) 24 INTEGER LL 25 !----------------------------------------------- 26 27 !!$omp parallel do if(max_pip .ge. 10000) default(shared) & 28 !!$omp private(ll) & 29 !!$omp schedule (guided,50) 30 DO LL = 1, MAX_PIP 31 IF(.NOT.PEA(LL,1) .or. pea(ll,4)) CYCLE 32 33 DES_POS_OLD(:,LL) = DES_POS_NEW(:,LL) 34 DES_VEL_OLD(:,LL) = DES_VEL_NEW(:,LL) 35 OMEGA_OLD(:,LL) = OMEGA_NEW(:,LL) 36 37 ENDDO 38 !!$omp end parallel do 39 40 RETURN 41 END SUBROUTINE CFUPDATEOLD 42