|
SURFEX v7.3
General documentation of Surfex
|
|
SURFEX v7.3
General documentation of Surfex
|
00001 ! ######### 00002 SUBROUTINE READ_PGD_COVER_GARDEN(HPROGRAM,OGARDEN) 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 !! A. Lemonsu 05/2009 Key for vegetation in TEB (TEB-Veg) 00034 !---------------------------------------------------------------------------- 00035 ! 00036 !* 0. DECLARATION 00037 ! ----------- 00038 ! 00039 USE MODI_OPEN_NAMELIST 00040 USE MODI_CLOSE_NAMELIST 00041 USE MODI_GET_LUOUT 00042 ! 00043 USE MODN_PGD_SCHEMES 00044 ! 00045 USE MODE_POS_SURF 00046 ! 00047 ! 00048 USE YOMHOOK ,ONLY : LHOOK, DR_HOOK 00049 USE PARKIND1 ,ONLY : JPRB 00050 ! 00051 IMPLICIT NONE 00052 ! 00053 !* 0.1 Declaration of dummy arguments 00054 ! ------------------------------ 00055 ! 00056 CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling READ_PGD 00057 LOGICAL, INTENT(OUT) :: OGARDEN ! T: Urban green areas 00058 ! 00059 ! 00060 !* 0.2 Declaration of local variables 00061 ! ------------------------------ 00062 ! 00063 INTEGER :: ILUOUT ! logical unit 00064 INTEGER :: ILUNAM ! logical unit 00065 ! 00066 LOGICAL :: GFOUND 00067 REAL(KIND=JPRB) :: ZHOOK_HANDLE 00068 ! 00069 ! 00070 !* 0.2 local namelist variables 00071 ! ------------------------ 00072 ! 00073 !------------------------------------------------------------------------------ 00074 ! 00075 !* 1. defaults 00076 ! 00077 IF (LHOOK) CALL DR_HOOK('READ_PGD_COVER_GARDEN',0,ZHOOK_HANDLE) 00078 ! 00079 LGARDEN = .FALSE. 00080 ! 00081 !------------------------------------------------------------------------------ 00082 ! 00083 !* 2. opening of namelist 00084 ! 00085 CALL GET_LUOUT(HPROGRAM,ILUOUT) 00086 ! 00087 CALL OPEN_NAMELIST(HPROGRAM,ILUNAM) 00088 ! 00089 !------------------------------------------------------------------------------- 00090 ! 00091 !* 3. reading of namelist 00092 ! 00093 CALL POSNAM(ILUNAM,'NAM_PGD_SCHEMES',GFOUND,ILUOUT) 00094 IF (GFOUND) READ(UNIT=ILUNAM,NML=NAM_PGD_SCHEMES) 00095 ! 00096 !------------------------------------------------------------------------------- 00097 ! 00098 !* 4. initialize keys 00099 ! 00100 OGARDEN = LGARDEN 00101 ! 00102 !------------------------------------------------------------------------------ 00103 ! 00104 !* 5. close namelist file 00105 ! 00106 CALL CLOSE_NAMELIST(HPROGRAM,ILUNAM) 00107 IF (LHOOK) CALL DR_HOOK('READ_PGD_COVER_GARDEN',1,ZHOOK_HANDLE) 00108 ! 00109 !------------------------------------------------------------------------------- 00110 ! 00111 END SUBROUTINE READ_PGD_COVER_GARDEN
1.8.0
