master/eesmf_configfileiomod.dir/tempOUT.F90

!     ************************************************************************
!     ** Overloads of EEsmf_ReadConfig                                      **
!     ************************************************************************
!BOPI
! !IROUTINE: EEsmf_ReadConfigReal :: Reads a token from .rc file as returning 
!                                 :: token as a real.
! !INTERFACE:
      SUBROUTINE EEsmf_ReadConfigReal ( cf, 
     &                                        label, 
     &                                        default, 
     &                                        index, 
     &                                        rVal, 
     &                                        rc)
! !RETURN VALUE:
      REAL, INTENT(OUT)     :: rVal
! !ARGUMENTS:
      TYPE(ESMF_Config)                        :: cf
      CHARACTER*(*),     INTENT(IN)            :: label
      REAL,        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 = 0.
      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 = ',  rVal 
       PRINT *, ' return code    = ', rc
       PRINT *, 'End EESMF_Read_config summary'
      ENDIF
      
      END SUBROUTINE EEsmf_ReadConfigReal
1	! ************************************************************************
2	! Overloads of EEsmf_ReadConfig
3	! ************************************************************************
4	!BOPI
5	! !IROUTINE: EEsmf_ReadConfigReal :: Reads a token from .rc file as returning
6	! :: token as a real.
7	! !INTERFACE:
8	SUBROUTINE EEsmf_ReadConfigReal ( cf,
9	& label,
10	& default,
11	& index,
12	& rVal,
13	& rc)
14	! !RETURN VALUE:
15	REAL, INTENT(OUT) :: rVal
16	! !ARGUMENTS:
17	TYPE(ESMF_Config) :: cf
18	CHARACTER(), INTENT(IN) :: label
19	REAL, 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 = 0.
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 = ', rVal
70	PRINT *, ' return code = ', rc
71	PRINT *, 'End EESMF_Read_config summary'
72	ENDIF
73
74	END SUBROUTINE EEsmf_ReadConfigReal