50 USE modi_open_namelist
51 USE modi_close_namelist
55 USE yomhook
,ONLY : lhook, dr_hook
56 USE parkind1
,ONLY : jprb
68 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
84 INTEGER,
PARAMETER :: ntime_max = 37
86 REAL,
DIMENSION(NTIME_MAX) :: xunif_dts
87 REAL,
DIMENSION(NTIME_MAX) :: xunif_dhugrd
88 CHARACTER(LEN=28),
DIMENSION(NTIME_MAX) :: cfnam_dts
89 CHARACTER(LEN=28),
DIMENSION(NTIME_MAX) :: cfnam_dhugrd
90 CHARACTER(LEN=6),
DIMENSION(NTIME_MAX) :: cftyp_dts
91 CHARACTER(LEN=6),
DIMENSION(NTIME_MAX) :: cftyp_dhugrd
95 REAL(KIND=JPRB) :: zhook_handle
97 namelist/nam_data_tsz0/ntime, xunif_dts, xunif_dhugrd
103 IF (lhook) CALL dr_hook(
'PGD_TSZ0_PAR',0,zhook_handle)
105 xunif_dts(:) = -0.250
106 xunif_dhugrd(:) = 0.0
108 cfnam_dhugrd(:) =
' '
110 cftyp_dhugrd(:) =
' '
120 CALL
posnam(ilunam,
'NAM_DATA_TSZ0',gfound,iluout)
121 IF (gfound)
READ(unit=ilunam,nml=nam_data_tsz0)
125 IF (ntime > ntime_max)
THEN
126 WRITE(iluout,*)
'NTIME SHOULD NOT EXCEED',ntime_max
127 CALL
abor1_sfx(
'PGD_TSZ0_PAR: NTIME TOO BIG')
130 ALLOCATE(dtz%XDATA_DTS (ntime))
131 ALLOCATE(dtz%XDATA_DHUGRD (ntime))
139 dtz%XDATA_DTS (:) = xunif_dts(1)
140 dtz%XDATA_DHUGRD(:) = xunif_dhugrd(1)
143 dtz%XDATA_DTS (jtime) = xunif_dts(jtime)
144 dtz%XDATA_DHUGRD(jtime) = xunif_dhugrd(jtime)
148 IF (lhook) CALL dr_hook(
'PGD_TSZ0_PAR',1,zhook_handle)
subroutine pgd_tsz0_par(DTZ, HPROGRAM)
subroutine abor1_sfx(YTEXT)
subroutine close_namelist(HPROGRAM, KLUNAM)
subroutine posnam(KULNAM, HDNAML, OFOUND, KLUOUT)
subroutine get_luout(HPROGRAM, KLUOUT)
subroutine open_namelist(HPROGRAM, KLUNAM, HFILE)