out_bin_r.f

Go to the documentation of this file.

!vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvC
!                                                                      C
!  Module name: OUT_BIN_R                                              C
!  Purpose: write out a time-dependent restart variable (REAL)         C
!                                                                      C
!  Author: P. Nicoletti                               Date: 13-DEC-91  C
!  Reviewer: P. Nicoletti, W. Rogers, M. Syamlal      Date: 24-JAN-92  C
!                                                                      C
!  Revision Number:                                                    C
!  Purpose:                                                            C
!  Author:                                            Date: dd-mmm-yy  C
!  Reviewer:                                          Date: dd-mmm-yy  C
!                                                                      C
!  Literature/Document References:                                     C
!                                                                      C
!  Variables referenced:                                               C
!  Variables modified:                                                 C
!                                                                      C
!  Local variables: LC, ARRAY_REAL                                     C
!                                                                      C
!^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^C
!
      SUBROUTINE out_bin_r(IUNIT, ARRAY, IJKMAX2, NEXT_REC)
!...Translated by Pacific-Sierra Research VAST-90 2.06G5  12:17:31  12/09/98
!...Switches: -xf
!-----------------------------------------------
!   M o d u l e s
!-----------------------------------------------
      USE param
      IMPLICIT NONE
!-----------------------------------------------
!   D u m m y   A r g u m e n t s
!-----------------------------------------------
!
!                      double precision array to write out
      DOUBLE PRECISION ARRAY(*)
!
!                      unit number to write to
      INTEGER          IUNIT
!
!                      record pointer into file IUNIT
      INTEGER          NEXT_REC
!
!                      number of indices in ARRAY to write out
      INTEGER          IJKMAX2
!
! local variables
!
!                      single precision version of ARRAY
!//     REAL             ARRAY_REAL(DIMENSION_3)
!
      real, allocatable :: array_real(:)
!                      loop counter
      INTEGER          LC
!-----------------------------------------------
!
      allocate (array_real(ijkmax2))

      lc = 1
      IF (ijkmax2 > 0) THEN
         array_real(:ijkmax2) = sngl(array(:ijkmax2))
         lc = ijkmax2 + 1
      ENDIF
      CALL out_bin_512r (iunit, array_real, ijkmax2, next_rec)

      deallocate (array_real)
!
      RETURN
      END SUBROUTINE out_bin_r

!// Comments on the modifications for DMP version implementation
!// 001 Include header file and common declarations for parallelization
!// 020 New local variables for parallelization, array_real(ijkmax2)