43 USE modi_open_namelist
44 USE modi_close_namelist
52 USE yomhook
,ONLY : lhook, dr_hook
53 USE parkind1
,ONLY : jprb
60 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
61 LOGICAL,
INTENT(OUT) :: ogarden
71 REAL(KIND=JPRB) :: zhook_handle
81 IF (lhook) CALL dr_hook(
'READ_PGD_COVER_GARDEN',0,zhook_handle)
97 CALL
posnam(ilunam,
'NAM_PGD_SCHEMES',gfound,iluout)
98 IF (gfound)
READ(unit=ilunam,nml=nam_pgd_schemes)
111 IF (lhook) CALL dr_hook(
'READ_PGD_COVER_GARDEN',1,zhook_handle)
subroutine read_pgd_cover_garden(HPROGRAM, OGARDEN)
subroutine close_namelist(HPROGRAM, KLUNAM)
subroutine posnam(KULNAM, HDNAML, OFOUND, KLUOUT)
subroutine get_luout(HPROGRAM, KLUOUT)
subroutine open_namelist(HPROGRAM, KLUNAM, HFILE)