7 horogtype, penv, oimp_zs,&
8 hslope, hslopefiletype, oexplicit_slope )
47 USE modi_open_namelist
48 USE modi_close_namelist
53 USE yomhook
,ONLY : lhook, dr_hook
54 USE parkind1
,ONLY : jprb
61 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
62 CHARACTER(LEN=28),
INTENT(OUT) :: hzs
63 CHARACTER(LEN=6),
INTENT(OUT) :: hfiletype
64 REAL,
INTENT(OUT) :: punif_zs
65 CHARACTER(LEN=3),
INTENT(OUT) :: horogtype
66 REAL,
INTENT(OUT) :: penv
67 LOGICAL,
INTENT(OUT) :: oimp_zs
68 CHARACTER(LEN=28),
INTENT(OUT),
OPTIONAL :: hslope
69 CHARACTER(LEN=6),
INTENT(OUT),
OPTIONAL :: hslopefiletype
70 LOGICAL,
INTENT(OUT),
OPTIONAL :: oexplicit_slope
83 CHARACTER(LEN=28) :: yzs
84 CHARACTER(LEN=6) :: yzsfiletype
85 CHARACTER(LEN=28) :: yslope
86 CHARACTER(LEN=6) :: yslopefiletype
88 CHARACTER(LEN=3) :: corogtype
95 LOGICAL :: lexplicit_slope
96 REAL(KIND=JPRB) :: zhook_handle
98 namelist/nam_zs/yzs, yzsfiletype, xunif_zs, corogtype, xenv, limp_zs , &
99 yslope, yslopefiletype, lexplicit_slope
106 IF (lhook) CALL dr_hook(
'READ_NAM_PGD_OROGRAPHY',0,zhook_handle)
116 lexplicit_slope=.false.
127 CALL
posnam(ilunam,
'NAM_ZS',gfound,iluout)
128 IF (gfound)
READ(unit=ilunam,nml=nam_zs)
135 hfiletype = yzsfiletype
136 IF (present(hslope))
THEN
138 hslopefiletype = yslopefiletype
141 horogtype = corogtype
144 IF (present(oexplicit_slope))
THEN
145 oexplicit_slope=lexplicit_slope
147 IF (lhook) CALL dr_hook(
'READ_NAM_PGD_OROGRAPHY',1,zhook_handle)
subroutine read_nam_pgd_orography(HPROGRAM, HZS, HFILETYPE, PUNIF_ZS, HOROGTYPE, PENV, OIMP_ZS, HSLOPE, HSLOPEFILETYPE, OEXPLICIT_SLOPE)
subroutine close_namelist(HPROGRAM, KLUNAM)
subroutine posnam(KULNAM, HDNAML, OFOUND, KLUOUT)
subroutine get_luout(HPROGRAM, KLUOUT)
subroutine open_namelist(HPROGRAM, KLUNAM, HFILE)