read_ref_date.f

Go to the documentation of this file.

      SUBROUTINE read_ref_date(LINE, DATE)

        USE declarations_special
        IMPLICIT NONE

        CHARACTER(LEN=*), INTENT(IN) :: line
        INTEGER, INTENT(OUT) :: date(6)

        INTEGER ierr

        ! Format of date 2012-12-31 12:00:00
        READ(line(10:13),*,iostat=ierr) date(1)
        IF (ierr.NE.0) THEN
          WRITE(lu,*) 'COULD NOT READ REFERENCE YEAR', line
          CALL plante(1)
          stop
        ENDIF
        READ(line(15:16),*,iostat=ierr) date(2)
        IF (ierr.NE.0) THEN
          WRITE(lu,*) 'COULD NOT READ REFERENCE MONTH'
          CALL plante(1)
          stop
        ENDIF
        READ(line(18:19),*,iostat=ierr) date(3)
        IF (ierr.NE.0) THEN
          WRITE(lu,*) 'COULD NOT READ REFERENCE DAY'
          CALL plante(1)
          stop
        ENDIF
        READ(line(21:22),*,iostat=ierr) date(4)
        IF (ierr.NE.0) THEN
          WRITE(lu,*) 'COULD NOT READ REFERENCE HOUR'
          CALL plante(1)
          stop
        ENDIF
        READ(line(24:25),*,iostat=ierr) date(5)
        IF (ierr.NE.0) THEN
          WRITE(lu,*) 'COULD NOT READ REFERENCE MINUTE'
          CALL plante(1)
          stop
        ENDIF
        READ(line(27:28),*,iostat=ierr) date(6)
        IF (ierr.NE.0) THEN
          WRITE(lu,*) 'COULD NOT READ REFERENCE SECONDS'
          CALL plante(1)
          stop
        ENDIF

      END SUBROUTINE read_ref_date