read_config.f

Go to the documentation of this file.

!                   **********************
                    SUBROUTINE read_config
!                   **********************
!
     &(chaine,ncar)
!
!***********************************************************************
! BIEF   V6P1                                   21/08/2010
!***********************************************************************
!
!brief    READS LANGUAGE AND LOGICAL UNIT OF OUTPUTS IN A FILE WRITTEN
!         BY PERL OR PYTHON LAUNCHING SCRIPTS
!
!history  J-M HERVOUET (LNH)
!+
!+        V5P1
!+
!
!history  N.DURAND (HRW), S.E.BOURBAN (HRW)
!+        13/07/2010
!+        V6P0
!+   Translation of French comments within the FORTRAN sources into
!+   English comments
!
!history  N.DURAND (HRW), S.E.BOURBAN (HRW)
!+        21/08/2010
!+        V6P0
!+   Creation of DOXYGEN tags for automated documentation and
!+   cross-referencing of the FORTRAN sources
!
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!| CHAINE         |-->| FULL ADDRESS OF TEMPORARY DIRECTORY
!| NCAR           |-->| LENGTH OF STRING CHAINE
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
      USE declarations_special
      IMPLICIT NONE
!
!+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
!
      CHARACTER(LEN=PATH_LEN), INTENT(IN)    :: CHAINE
      INTEGER      , INTENT(IN)    :: NCAR
!
!+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
!
      LOGICAL YACONFIG
      INTEGER NC
      CHARACTER(LEN=257) CONFIG
      INTEGER ID
!
!-----------------------------------------------------------------------
!
      IF(ncar.GT.0) THEN
        config(1:ncar+6)=chaine(1:ncar) // 'CONFIG'
        nc=ncar+6
      ELSE
        config(1:6)='CONFIG'
        nc=6
      ENDIF
!
      yaconfig=.false.
      INQUIRE(file=config(1:nc),exist=yaconfig)
      IF(yaconfig) THEN
!
        CALL get_free_id(id)
        OPEN(id,file=config(1:nc), form='FORMATTED')
        READ(id,*) lng
!
!       DO NOT OVERLOAD LU IN PARALLEL MODE (WINNT)
!       (KEEP THE REDIRECTION ON CHANNEL 95 MADE BY P_INIT)
!       IF(LU.NE.95) READ(ID,*) LU
        CLOSE(id)
!
      ELSE
!
        WRITE(lu,*) 'READ_CONFIG: FILE CONFIG NOT FOUND: ',
     &              config(1:nc)
        WRITE(lu,*) 'DEFAULTS VALUES OF LU AND LNG: ',lu,' AND ',lng
!
      ENDIF
!
!-----------------------------------------------------------------------
!
      RETURN
      END