41 USE modi_open_namelist
42 USE modi_close_namelist
48 USE yomhook
,ONLY : lhook, dr_hook
49 USE parkind1
,ONLY : jprb
56 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
57 LOGICAL,
INTENT(OUT) :: owater_to_nature
58 LOGICAL,
INTENT(OUT) :: otown_to_rock
73 LOGICAL :: lwater_to_nature
74 LOGICAL :: ltown_to_rock
75 REAL(KIND=JPRB) :: zhook_handle
77 namelist/nam_pgd_arrange_cover/lwater_to_nature,ltown_to_rock
83 IF (lhook) CALL dr_hook(
'READ_PGD_ARRANGE_COVER',0,zhook_handle)
84 lwater_to_nature = .false.
85 ltown_to_rock = .false.
99 CALL
posnam(ilunam,
'NAM_PGD_ARRANGE_COVER',gfound,iluout)
100 IF (gfound)
READ(unit=ilunam,nml=nam_pgd_arrange_cover)
106 owater_to_nature = lwater_to_nature
107 otown_to_rock = ltown_to_rock
114 IF (lhook) CALL dr_hook(
'READ_PGD_ARRANGE_COVER',1,zhook_handle)
subroutine close_namelist(HPROGRAM, KLUNAM)
subroutine posnam(KULNAM, HDNAML, OFOUND, KLUOUT)
subroutine get_luout(HPROGRAM, KLUOUT)
subroutine read_pgd_arrange_cover(HPROGRAM, OWATER_TO_NATURE, OTOWN_TO_ROCK)
subroutine open_namelist(HPROGRAM, KLUNAM, HFILE)