7 hdummy_atype, hdummy_file, hdummy_filetype )
44 USE modi_open_namelist
45 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(OUT) :: kdummy_nbr
61 CHARACTER(LEN=20),
DIMENSION(1000),
INTENT(OUT) :: hdummy_name
63 CHARACTER(LEN=3),
DIMENSION(1000),
INTENT(OUT) :: hdummy_area
73 CHARACTER(LEN=3),
DIMENSION(1000),
INTENT(OUT) :: hdummy_atype
75 CHARACTER(LEN=28),
DIMENSION(1000),
INTENT(OUT) :: hdummy_file
76 CHARACTER(LEN=6),
DIMENSION(1000),
INTENT(OUT) :: hdummy_filetype
91 CHARACTER(LEN=20),
DIMENSION(1000) :: cdummy_name
93 CHARACTER(LEN=3),
DIMENSION(1000) :: cdummy_area
103 CHARACTER(LEN=3),
DIMENSION(1000) :: cdummy_atype
105 CHARACTER(LEN=28),
DIMENSION(1000) :: cdummy_file
106 CHARACTER(LEN=6),
DIMENSION(1000) :: cdummy_filetype
107 REAL(KIND=JPRB) :: zhook_handle
109 namelist/nam_dummy_pgd/ ndummy_nbr, cdummy_name, cdummy_area, &
110 cdummy_atype, cdummy_file, cdummy_filetype
116 IF (lhook) CALL dr_hook(
'READ_NAM_PGD_DUMMY',0,zhook_handle)
121 cdummy_filetype =
" "
134 CALL
posnam(ilunam,
'NAM_DUMMY_PGD',gfound,iluout)
135 IF (gfound)
READ(unit=ilunam,nml=nam_dummy_pgd)
144 kdummy_nbr = ndummy_nbr
145 hdummy_name(:) = cdummy_name(:)
146 hdummy_area(:) = cdummy_area(:)
147 hdummy_atype(:) = cdummy_atype(:)
148 hdummy_file(:) = cdummy_file(:)
149 hdummy_filetype(:) = cdummy_filetype(:)
150 IF (lhook) CALL dr_hook(
'READ_NAM_PGD_DUMMY',1,zhook_handle)
subroutine read_nam_pgd_dummy(HPROGRAM, KDUMMY_NBR, HDUMMY_NAME, HDUMMY_AREA, HDUMMY_ATYPE, HDUMMY_FILE, HDUMMY_FILETYPE)
subroutine close_namelist(HPROGRAM, KLUNAM)
subroutine posnam(KULNAM, HDNAML, OFOUND, KLUOUT)
subroutine get_luout(HPROGRAM, KLUOUT)
subroutine open_namelist(HPROGRAM, KLUNAM, HFILE)