1 !vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvC 2 ! C 3 ! Module name: OUT_BIN_R C 4 ! Purpose: write out a time-dependent restart variable (REAL) C 5 ! C 6 ! Author: P. Nicoletti Date: 13-DEC-91 C 7 ! Reviewer: P. Nicoletti, W. Rogers, M. Syamlal Date: 24-JAN-92 C 8 ! C 9 ! Revision Number: C 10 ! Purpose: C 11 ! Author: Date: dd-mmm-yy C 12 ! Reviewer: Date: dd-mmm-yy C 13 ! C 14 ! Literature/Document References: C 15 ! C 16 ! Variables referenced: C 17 ! Variables modified: C 18 ! C 19 ! Local variables: LC, ARRAY_REAL C 20 ! C 21 !^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^C 22 ! 23 SUBROUTINE OUT_BIN_R(IUNIT, ARRAY, IJKMAX2, NEXT_REC) 24 !...Translated by Pacific-Sierra Research VAST-90 2.06G5 12:17:31 12/09/98 25 !...Switches: -xf 26 !----------------------------------------------- 27 ! M o d u l e s 28 !----------------------------------------------- 29 USE param 30 IMPLICIT NONE 31 !----------------------------------------------- 32 ! D u m m y A r g u m e n t s 33 !----------------------------------------------- 34 ! 35 ! double precision array to write out 36 DOUBLE PRECISION ARRAY(*) 37 ! 38 ! unit number to write to 39 INTEGER IUNIT 40 ! 41 ! record pointer into file IUNIT 42 INTEGER NEXT_REC 43 ! 44 ! number of indices in ARRAY to write out 45 INTEGER IJKMAX2 46 ! 47 ! local variables 48 ! 49 ! single precision version of ARRAY 50 !// REAL ARRAY_REAL(DIMENSION_3) 51 ! 52 real, allocatable :: array_real(:) 53 ! loop counter 54 INTEGER LC 55 !----------------------------------------------- 56 ! 57 allocate (array_real(ijkmax2)) 58 59 LC = 1 60 IF (IJKMAX2 > 0) THEN 61 ARRAY_REAL(:IJKMAX2) = SNGL(ARRAY(:IJKMAX2)) 62 LC = IJKMAX2 + 1 63 ENDIF 64 CALL OUT_BIN_512R (IUNIT, ARRAY_REAL, IJKMAX2, NEXT_REC) 65 66 deallocate (array_real) 67 ! 68 RETURN 69 END SUBROUTINE OUT_BIN_R 70 71 !// Comments on the modifications for DMP version implementation 72 !// 001 Include header file and common declarations for parallelization 73 !// 020 New local variables for parallelization, array_real(ijkmax2) 74