1 !vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvC 2 ! C 3 ! Module name: SET_L_scale C 4 ! Purpose: Initialize length scale for turbulence model C 5 ! C 6 ! Author: W. Sams Date: 04-MAY-94 C 7 ! Reviewer: Date: dd-mmm-yy C 8 ! C 9 ! Literature/Document References: C 10 ! C 11 ! Variables referenced: C 12 ! C 13 ! Variables modified: L_scale0, L_scale C 14 ! C 15 ! Local variables: C 16 ! C 17 !^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^C 18 ! 19 SUBROUTINE SET_L_SCALE 20 !...Translated by Pacific-Sierra Research VAST-90 2.06G5 12:17:31 12/09/98 21 !...Switches: -xf 22 ! 23 ! Include param.inc file to specify parameter values 24 ! 25 !----------------------------------------------- 26 ! M o d u l e s 27 !----------------------------------------------- 28 USE param 29 USE param1 30 USE parallel 31 USE constant 32 USE visc_g 33 USE geometry 34 USE indices 35 USE compar 36 IMPLICIT NONE 37 !----------------------------------------------- 38 ! G l o b a l P a r a m e t e r s 39 !----------------------------------------------- 40 !----------------------------------------------- 41 ! L o c a l P a r a m e t e r s 42 !----------------------------------------------- 43 !----------------------------------------------- 44 ! L o c a l V a r i a b l e s 45 !----------------------------------------------- 46 INTEGER :: IJK 47 !----------------------------------------------- 48 ! 49 IJK = 1 50 51 ! IF (IJKMAX2 > 0) THEN 52 L_SCALE(IJKSTART3:IJKEND3) = L_SCALE0 53 ! IJK = IJKMAX3 + 1 54 ! ENDIF 55 RETURN 56 END SUBROUTINE SET_L_SCALE 57 58 !// Comments on the modifications for DMP version implementation 59 !// 001 Include header file and common declarations for parallelization 60 !// 120 Replaced the index for initialization : :IJKMAX2 --> L_SCALE(IJKSTART3:IJKEND3) 61