SURFEX v7.3: /home/dasprezs/EXPORT_v7_3/src/SURFEX/read_pgd_arrange

Go to the documentation of this file.
00001 !     #########
00002       SUBROUTINE READ_PGD_ARRANGE_COVER(HPROGRAM,OWATER_TO_NATURE,OTOWN_TO_ROCK)
00003 !     ##########################################################################
00004 !!
00005 !!    PURPOSE
00006 !!    -------
00007 !!    initialyse change water (not lake) to nature and/or town to rock keys
00008 !!
00009 !!    METHOD
00010 !!    ------
00011 !!   
00012 !!    EXTERNAL
00013 !!    --------
00014 !!
00015 !!
00016 !!    IMPLICIT ARGUMENTS
00017 !!    ------------------
00018 !!
00019 !!
00020 !!    REFERENCE
00021 !!    ---------
00022 !!
00023 !!    AUTHOR
00024 !!    ------
00025 !!
00026 !!    B. Decharme                   Meteo-France
00027 !!
00028 !!    MODIFICATION
00029 !!    ------------
00030 !!
00031 !!    Original     05/03/09
00032 !----------------------------------------------------------------------------
00033 !
00034 !*    0.     DECLARATION
00035 !            -----------
00036 !
00037 USE MODI_OPEN_NAMELIST
00038 USE MODI_CLOSE_NAMELIST
00039 USE MODI_GET_LUOUT
00040 !
00041 USE MODE_POS_SURF
00042 !
00043 !
00044 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00045 USE PARKIND1  ,ONLY : JPRB
00046 !
00047 IMPLICIT NONE
00048 !
00049 !*    0.1    Declaration of dummy arguments
00050 !            ------------------------------
00051 !
00052  CHARACTER(LEN=6),  INTENT(IN)  :: HPROGRAM         ! program calling READ_PGD
00053 LOGICAL,           INTENT(OUT) :: OWATER_TO_NATURE ! T: Change Wetland treated as inland water into nature
00054 LOGICAL,           INTENT(OUT) :: OTOWN_TO_ROCK    ! T: Change Town into Rock 
00055 !
00056 !
00057 !*    0.2    Declaration of local variables
00058 !            ------------------------------
00059 !
00060 INTEGER           :: ILUOUT     ! logical unit
00061 INTEGER           :: ILUNAM     ! logical unit
00062 !
00063 LOGICAL           :: GFOUND
00064 !
00065 !
00066 !*    0.2    local namelist variables
00067 !            ------------------------
00068 !
00069 LOGICAL           :: LWATER_TO_NATURE
00070 LOGICAL           :: LTOWN_TO_ROCK
00071 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00072 !
00073 NAMELIST/NAM_PGD_ARRANGE_COVER/LWATER_TO_NATURE,LTOWN_TO_ROCK
00074 !
00075 !------------------------------------------------------------------------------
00076 !
00077 !*       1.    defaults
00078 ! 
00079 IF (LHOOK) CALL DR_HOOK('READ_PGD_ARRANGE_COVER',0,ZHOOK_HANDLE)
00080 LWATER_TO_NATURE = .FALSE.
00081 LTOWN_TO_ROCK    = .FALSE.
00082 !
00083 !------------------------------------------------------------------------------
00084 !
00085 !*       2.    opening of namelist
00086 ! 
00087  CALL GET_LUOUT(HPROGRAM,ILUOUT)
00088 !
00089  CALL OPEN_NAMELIST(HPROGRAM,ILUNAM)
00090 !
00091 !-------------------------------------------------------------------------------
00092 !
00093 !*       3.    reading of namelist
00094 ! 
00095  CALL POSNAM(ILUNAM,'NAM_PGD_ARRANGE_COVER',GFOUND,ILUOUT)
00096 IF (GFOUND) READ(UNIT=ILUNAM,NML=NAM_PGD_ARRANGE_COVER)
00097 !
00098 !-------------------------------------------------------------------------------
00099 !
00100 !*       4.    initialize keys
00101 ! 
00102 OWATER_TO_NATURE = LWATER_TO_NATURE
00103 OTOWN_TO_ROCK    = LTOWN_TO_ROCK
00104 !
00105 !------------------------------------------------------------------------------
00106 !
00107 !*       5.    close namelist file
00108 ! 
00109  CALL CLOSE_NAMELIST(HPROGRAM,ILUNAM)
00110 IF (LHOOK) CALL DR_HOOK('READ_PGD_ARRANGE_COVER',1,ZHOOK_HANDLE)
00111 !
00112 !-------------------------------------------------------------------------------
00113 !
00114 END SUBROUTINE READ_PGD_ARRANGE_COVER