7 hcool_coil, hheat_coil, oautosize,&
8 kroad_layer, kroof_layer, &
9 kwall_layer, kfloor_layer, &
10 ogreenroof, ohydro, osolar_panel )
55 USE modi_open_namelist
56 USE modi_close_namelist
61 USE yomhook
,ONLY : lhook, dr_hook
62 USE parkind1
,ONLY : jprb
69 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
70 INTEGER,
INTENT(OUT) :: kteb_patch
71 CHARACTER(LEN=3),
INTENT(OUT) :: hbem
72 CHARACTER(LEN=6),
INTENT(OUT) :: hcool_coil
73 CHARACTER(LEN=6),
INTENT(OUT) :: hheat_coil
74 LOGICAL,
INTENT(OUT) :: oautosize
75 INTEGER,
INTENT(OUT) :: kroad_layer
76 INTEGER,
INTENT(OUT) :: kroof_layer
77 INTEGER,
INTENT(OUT) :: kwall_layer
78 INTEGER,
INTENT(OUT) :: kfloor_layer
79 LOGICAL,
INTENT(OUT) :: ogreenroof
80 LOGICAL,
INTENT(OUT) :: ohydro
81 LOGICAL,
INTENT(OUT) :: osolar_panel
95 CHARACTER(LEN=3) :: cbem
96 CHARACTER(LEN=6) :: ccool_coil
97 CHARACTER(LEN=6) :: cheat_coil
99 INTEGER :: nroad_layer
100 INTEGER :: nroof_layer
101 INTEGER :: nwall_layer
102 INTEGER :: nfloor_layer
103 LOGICAL :: lgreenroof
105 LOGICAL :: lsolar_panel
107 REAL(KIND=JPRB) :: zhook_handle
109 namelist/nam_teb/ nteb_patch, cbem, ccool_coil, cheat_coil, lautosize, &
110 nroad_layer, nfloor_layer, nroof_layer, nwall_layer, &
111 lgreenroof, lhydro, lsolar_panel
118 IF (lhook) CALL dr_hook(
'READ_NAM_PGD_TEB',0,zhook_handle)
130 lsolar_panel = .false.
141 CALL
posnam(ilunam,
'NAM_TEB',gfound,iluout)
142 IF (gfound)
READ(unit=ilunam,nml=nam_teb)
148 kteb_patch = nteb_patch
150 hcool_coil = ccool_coil
151 hheat_coil = cheat_coil
152 oautosize = lautosize
153 kroad_layer = nroad_layer
154 kroof_layer = nroof_layer
155 kwall_layer = nwall_layer
156 kfloor_layer = nfloor_layer
158 ogreenroof = lgreenroof
160 osolar_panel = lsolar_panel
162 IF (lhook) CALL dr_hook(
'READ_NAM_PGD_TEB',1,zhook_handle)
subroutine read_nam_pgd_teb(HPROGRAM, KTEB_PATCH, HBEM, HCOOL_COIL, HHEAT_COIL, OAUTOSIZE, KROAD_LAYER, KROOF_LAYER, KWALL_LAYER, KFLOOR_LAYER, OGREENROOF, OHYDRO, OSOLAR_PANEL)
subroutine close_namelist(HPROGRAM, KLUNAM)
subroutine posnam(KULNAM, HDNAML, OFOUND, KLUOUT)
subroutine get_luout(HPROGRAM, KLUOUT)
subroutine open_namelist(HPROGRAM, KLUNAM, HFILE)