get_data_var_list2.f

Go to the documentation of this file.

!                   *****************************
                    SUBROUTINE get_data_var_list2
!                   *****************************
!
     &(fformat,fid,nvar,varlist2,unitlist2,ierr)
!
!***********************************************************************
! HERMES   V7P0 01/05/2014
!***********************************************************************
!
!brief    For Python API we need string arrays as character array
!         So we are calling get_data_var_list and creating the array
!
!history  Y AUDOUIN (LNHE)
!+        15/02/2017
!+        V7P3
!+
!
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!| FFORMAT        |-->| FORMAT OF THE FILE
!| FID            |-->| FILE DESCRIPTOR
!| VARLIST2       |<->| LIST OF VARIABLE NAME
!| UNTILIST2      |<->| LIST OF VARIABLE UNIT
!| IERR           |<--| 0 IF NO ERROR DURING THE EXECUTION
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
      USE declarations_special
      IMPLICIT NONE
!
!+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
!
      CHARACTER(LEN=8),  INTENT(IN)  :: FFORMAT
      INTEGER,           INTENT(IN)  :: FID
      INTEGER,           INTENT(IN)  :: NVAR
      CHARACTER, INTENT(OUT) :: VARLIST2(nvar*16)
      CHARACTER, INTENT(OUT) :: UNITLIST2(nvar*16)
      INTEGER,           INTENT(OUT) :: IERR
!
!+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
!
      CHARACTER(LEN=16) :: VARLIST(nvar)
      CHARACTER(LEN=16) :: UNITLIST(nvar)
      INTEGER I, J

!
!+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
!
      CALL get_data_var_list(fformat,fid, nvar, varlist, unitlist, ierr)
      IF(ierr.NE.0) RETURN

      DO j=1,nvar
        DO i=1,16
          varlist2((j-1)*16+i) = varlist(j)(i:i)
          unitlist2((j-1)*16+i) = unitlist(j)(i:i)
        ENDDO
      ENDDO
!
!-----------------------------------------------------------------------
!
      RETURN
      END