7 omeb_litter, omeb_gndres)
43 USE modi_open_namelist
44 USE modi_close_namelist
50 USE yomhook
,ONLY : lhook, dr_hook
51 USE parkind1
,ONLY : jprb
58 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
59 INTEGER,
INTENT(IN) :: kluout
61 LOGICAL,
DIMENSION(:),
INTENT(OUT) :: omeb_patch
62 LOGICAL ,
INTENT(OUT) :: oforc_measure
63 LOGICAL ,
INTENT(OUT) :: omeb_litter
64 LOGICAL ,
INTENT(OUT) :: omeb_gndres
77 LOGICAL,
DIMENSION(19) :: lmeb_patch
78 LOGICAL :: lforc_measure
79 LOGICAL :: lmeb_litter
80 LOGICAL :: lmeb_gndres
82 REAL(KIND=JPRB) :: zhook_handle
84 namelist/nam_meb_isba/lmeb_patch,lforc_measure,lmeb_litter,lmeb_gndres
91 IF (lhook) CALL dr_hook(
'READ_NAM_PGD_ISBA_MEB',0,zhook_handle)
93 lmeb_patch(:) =.false.
94 lforc_measure =.false.
105 CALL
posnam(ilunam,
'NAM_MEB_ISBA',gfound,kluout)
107 READ(unit=ilunam,nml=nam_meb_isba)
109 WRITE(iluout,*)
'*****************************************'
110 WRITE(iluout,*)
'* LMEB is activated in NAM_ISBA *'
111 WRITE(iluout,*)
'* But NAM_MEB_ISBA is not defined *'
112 WRITE(iluout,*)
'* Check your namelist *'
113 WRITE(iluout,*)
'*****************************************'
114 CALL
abor1_sfx(
'PGD_ISBA: NAM_MEB_ISBA and LMEB_PATCH not defined')
121 omeb_patch(:) = lmeb_patch(:)
123 oforc_measure = lforc_measure
124 omeb_litter = lmeb_litter
125 omeb_gndres = lmeb_gndres
128 IF (lhook) CALL dr_hook(
'READ_NAM_PGD_ISBA_MEB',1,zhook_handle)
subroutine abor1_sfx(YTEXT)
subroutine close_namelist(HPROGRAM, KLUNAM)
subroutine posnam(KULNAM, HDNAML, OFOUND, KLUOUT)
subroutine read_nam_pgd_isba_meb(HPROGRAM, KLUOUT, OMEB_PATCH, OFORC_MEASURE, OMEB_LITTER, OMEB_GNDRES)
subroutine open_namelist(HPROGRAM, KLUNAM, HFILE)