mod_init_dataval.f

Go to the documentation of this file.

!                   ***********************
                    MODULE mod_init_dataval
!                   ***********************
!
!***********************************************************************
! PARTEL
!***********************************************************************
!
!BRIEF    Initialisation of data values
!
              IMPLICIT NONE
!
              CONTAINS
!***********************************************************************
      SUBROUTINE init_dataval
!***********************************************************************
     & (dataval, npoin, nvar, ntimestep, fformat, ninp, variable)
!
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!| DATAVAL        |-->| DATA ARRAY
!| NPOIN          |<--| Number of points
!| NVAR           |<--| Number of variables
!| NTIMESTEP      |<--| Number of time steps
!| FFORMAT        |<--| File format
!| NINP           |<--| Index of the file
!| VARIABLE       |<--| Name of the variables
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
        DOUBLE PRECISION, ALLOCATABLE, INTENT(OUT) :: DATAVAL(:,:,:)
        INTEGER, INTENT(IN) :: NPOIN, NVAR, NTIMESTEP, NINP
        CHARACTER(LEN=32), ALLOCATABLE, INTENT(IN) :: VARIABLE(:)
        CHARACTER(LEN=8), INTENT(IN) :: FFORMAT
!
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
        INTEGER :: IERR, ITIME, IVAR
!
        ALLOCATE(dataval(npoin,nvar,ntimestep),stat=ierr)
        CALL check_allocate(ierr,'PARTEL:DATAVAL')
!
        DO itime=1,ntimestep
          DO ivar=1,nvar
            ! READING VARIABLE VALUE FOR TIME ITIME-1 ON INPUT FILE
            CALL get_data_value(fformat,ninp,itime-1,
     &        variable(ivar)(1:16),dataval(:,ivar,itime),npoin,ierr)
            CALL check_call(ierr,'PARTEL:GET_DATA_VALUE:NINP')
          END DO
        END DO
      END SUBROUTINE
!
      END MODULE mod_init_dataval