master/eesmf_configfileiomod.dir/ReadConfig.proctemplate.F90

!     ************************************************************************
!     ** Overloads of EEsmf_ReadConfig                                      **
!     ************************************************************************
!BOPI
! !IROUTINE: EEsmf_ReadConfig<TypeSuff> :: Reads a token from .rc file as returning 
!                                 :: token as <TypeDescription>.
! !INTERFACE:
      SUBROUTINE EEsmf_ReadConfig<TypeSuff> ( cf, 
     &                                        label, 
     &                                        default, 
     &                                        index, 
     &                                        rVal, 
     &                                        rc)
! !RETURN VALUE:
      <TypeDecl>, INTENT(OUT)     :: rVal
! !ARGUMENTS:
      TYPE(ESMF_Config)                        :: cf
      CHARACTER*(*),     INTENT(IN)            :: label
      <TypeDecl>,        INTENT(IN), OPTIONAL  :: default
      INTEGER,           INTENT(IN), OPTIONAL  :: index
      INTEGER,           INTENT(OUT)           :: rc
!EOPI
! !LOCAL VARIABLES:
      INTEGER I, INDEX_TMP
      INTEGER traceLevel

      traceLevel = 0
      
      rVal = <TypeDefVal>
      rc = 0

      IF ( PRESENT(index) ) THEN
       INDEX_TMP = INDEX
      ELSE
       INDEX_TMP = 1
      ENDIF

      CALL ESMF_ConfigFindLabel( cf, label, rc ) 
      IF ( rc .NE. ESMF_SUCCESS ) THEN
       IF ( traceLevel .GT. 1 ) THEN
        PRINT *, 'EESMF_Read_config:: ESMF_ConfigFindLabel rc = ',rc
       ENDIF
       RETURN
      ENDIF

      DO I=1,INDEX_TMP
       IF ( PRESENT(default) ) THEN
         CALL ESMF_ConfigGetAttribute( cf, rVal, default=default, rc =rc ) 
         IF ( rc .NE. ESMF_SUCCESS ) THEN
          IF ( traceLevel .GT. 1 ) THEN
           PRINT *, 'EESMF_Read_config:: ESMF_ConfigGetAttribute(1) rc = ',rc
          ENDIF
          RETURN
         ENDIF
       ELSE
         CALL ESMF_ConfigGetAttribute( cf, rVal, rc =rc ) 
         IF ( rc .NE. ESMF_SUCCESS ) THEN
          IF ( traceLevel .GT. 1 ) THEN
           PRINT *, 'EESMF_Read_config:: ESMF_ConfigGetAttribute(1) rc = ',rc
          ENDIF
          RETURN
         ENDIF
       ENDIF
      ENDDO

      IF ( traceLevel .GT. 1 ) THEN
       PRINT *, 'Begin EESMF_Read_config summary'
       PRINT *, ' label = ', TRIM(label)
       PRINT *, ' returned value = ', <Trim1>rVal<Trim2>
       PRINT *, ' return code    = ', rc
       PRINT *, 'End EESMF_Read_config summary'
      ENDIF
      
      END SUBROUTINE EEsmf_ReadConfig<TypeSuff>
1	cnh	1.1	! ************************************************************************
2			! Overloads of EEsmf_ReadConfig
3			! ************************************************************************
4			!BOPI
5			! !IROUTINE: EEsmf_ReadConfig<TypeSuff> :: Reads a token from .rc file as returning
6			! :: token as <TypeDescription>.
7			! !INTERFACE:
8			SUBROUTINE EEsmf_ReadConfig<TypeSuff> ( cf,
9			& label,
10			& default,
11			& index,
12			& rVal,
13			& rc)
14			! !RETURN VALUE:
15			<TypeDecl>, INTENT(OUT) :: rVal
16			! !ARGUMENTS:
17			TYPE(ESMF_Config) :: cf
18			CHARACTER(), INTENT(IN) :: label
19			<TypeDecl>, INTENT(IN), OPTIONAL :: default
20			INTEGER, INTENT(IN), OPTIONAL :: index
21			INTEGER, INTENT(OUT) :: rc
22			!EOPI
23			! !LOCAL VARIABLES:
24			INTEGER I, INDEX_TMP
25			INTEGER traceLevel
26
27			traceLevel = 0
28
29			rVal = <TypeDefVal>
30			rc = 0
31
32			IF ( PRESENT(index) ) THEN
33			INDEX_TMP = INDEX
34			ELSE
35			INDEX_TMP = 1
36			ENDIF
37
38			CALL ESMF_ConfigFindLabel( cf, label, rc )
39			IF ( rc .NE. ESMF_SUCCESS ) THEN
40			IF ( traceLevel .GT. 1 ) THEN
41			PRINT *, 'EESMF_Read_config:: ESMF_ConfigFindLabel rc = ',rc
42			ENDIF
43			RETURN
44			ENDIF
45
46			DO I=1,INDEX_TMP
47			IF ( PRESENT(default) ) THEN
48			CALL ESMF_ConfigGetAttribute( cf, rVal, default=default, rc =rc )
49			IF ( rc .NE. ESMF_SUCCESS ) THEN
50			IF ( traceLevel .GT. 1 ) THEN
51			PRINT *, 'EESMF_Read_config:: ESMF_ConfigGetAttribute(1) rc = ',rc
52			ENDIF
53			RETURN
54			ENDIF
55			ELSE
56			CALL ESMF_ConfigGetAttribute( cf, rVal, rc =rc )
57			IF ( rc .NE. ESMF_SUCCESS ) THEN
58			IF ( traceLevel .GT. 1 ) THEN
59			PRINT *, 'EESMF_Read_config:: ESMF_ConfigGetAttribute(1) rc = ',rc
60			ENDIF
61			RETURN
62			ENDIF
63			ENDIF
64			ENDDO
65
66			IF ( traceLevel .GT. 1 ) THEN
67			PRINT *, 'Begin EESMF_Read_config summary'
68			PRINT *, ' label = ', TRIM(label)
69			PRINT *, ' returned value = ', <Trim1>rVal<Trim2>
70			PRINT *, ' return code = ', rc
71			PRINT *, 'End EESMF_Read_config summary'
72			ENDIF
73
74			END SUBROUTINE EEsmf_ReadConfig<TypeSuff>