1 ! 2 !vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvC 3 ! C 4 ! Module name: OUT_ARRAY (ARRAY, MESSAGE) C 5 ! Purpose: print out a 3D array to standard output C 6 ! C 7 ! Author: P.Nicoletti Date: 02-DEC-91 C 8 ! Reviewer: W. Rogers, M. Syamlal, S. Venkatesan Date: 31-JAN-92 C 9 ! C 10 ! Revision Number: C 11 ! Purpose: C 12 ! Author: Date: dd-mmm-yy C 13 ! Reviewer: Date: dd-mmm-yy C 14 ! C 15 ! Literature/Document References: C 16 ! C 17 ! Variables referenced: KMAX2 C 18 ! Variables modified: None C 19 ! C 20 ! Local variables: IJK, K C 21 ! C 22 !^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^C 23 ! 24 SUBROUTINE OUT_ARRAY(ARRAY, MESSAGE) 25 !...Translated by Pacific-Sierra Research VAST-90 2.06G5 12:17:31 12/09/98 26 !...Switches: -xf 27 ! 28 !----------------------------------------------- 29 ! M o d u l e s 30 !----------------------------------------------- 31 USE param 32 USE param1 33 USE geometry 34 USE fldvar 35 USE physprop 36 USE indices 37 USE funits 38 USE compar 39 USE functions 40 USE in_binary_512 41 IMPLICIT NONE 42 !----------------------------------------------- 43 ! G l o b a l P a r a m e t e r s 44 !----------------------------------------------- 45 !----------------------------------------------- 46 ! D u m m y A r g u m e n t s 47 !----------------------------------------------- 48 ! 49 ! array to print out 50 DOUBLE PRECISION ARRAY(*) 51 ! 52 ! message to print out 53 CHARACTER(LEN=*) :: MESSAGE 54 ! 55 ! local variables 56 ! 57 ! pointer into array (points to start of a k-plane) 58 INTEGER IJK 59 ! 60 ! loop counter 61 INTEGER K 62 63 double precision, allocatable :: array1(:) 64 ! 65 !----------------------------------------------- 66 ! 67 !//d call lock_tmp_array 68 69 allocate (array1(ijkmax2)) 70 71 call convert_to_io_dp(array,array1,ijkmax2) 72 73 !!/SP 74 IF(CYCLIC_Z) then 75 DO K = 2, KMAX1 76 IJK = FUNIJK_IO(1,1,K) 77 WRITE (UNIT_OUT, 1100) MESSAGE, K 78 CALL OUT_ARRAY_K (ARRAY1(IJK)) 79 END DO 80 ELSE 81 DO K = 1, KMAX2 82 IJK = FUNIJK_IO(1,1,K) 83 WRITE (UNIT_OUT, 1100) MESSAGE, K 84 CALL OUT_ARRAY_K (ARRAY1(IJK)) 85 END DO 86 ENDIF 87 1100 FORMAT(/,1X,A,' at K = ',I4,/) 88 89 90 deallocate (array1) 91 92 !//d call unlock_tmp_array 93 ! 94 RETURN 95 END SUBROUTINE OUT_ARRAY 96 97 !// Comments on the modifications for DMP version implementation 98 !// 001 Include header file and common declarations for parallelization 99 !// 020 New local variables for parallelization, array1(ijkmax2) 100