53 USE yomhook
,ONLY : lhook, dr_hook
54 USE parkind1
,ONLY : jprb
66 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
74 CHARACTER(LEN=12) :: yrecfm
75 CHARACTER(LEN=100):: ycomment
76 REAL(KIND=JPRB) :: zhook_handle
80 IF (lhook) CALL dr_hook(
'READ_PGD_TSZ0_PAR_N',0,zhook_handle)
83 hprogram,
'VERSION',iversion,iresp)
85 hprogram,
'BUG', ibugfix ,iresp)
87 IF (iversion.GT.7 .OR. (iversion==7 .AND. ibugfix.GT.1))
THEN
91 hprogram,yrecfm,dtz%NTIME,iresp,hcomment=ycomment)
96 ALLOCATE(dtz%XDATA_DTS (dtz%NTIME))
97 ALLOCATE(dtz%XDATA_DHUGRD(dtz%NTIME))
99 IF (iversion.GT.7 .OR. (iversion==7 .AND. ibugfix.GT.1))
THEN
102 ycomment =
'X_Y_DATA_DTS'
104 hprogram,yrecfm,dtz%XDATA_DTS(:),iresp,hcomment=ycomment,hdir=
'-')
107 ycomment =
'X_Y_DATA_DHUGRD'
109 hprogram,yrecfm,dtz%XDATA_DHUGRD(:),iresp,hcomment=ycomment,hdir=
'-')
113 dtz%XDATA_DTS (:) = 0.0
114 dtz%XDATA_DHUGRD(:) = 0.0
118 IF (lhook) CALL dr_hook(
'READ_PGD_TSZ0_PAR_N',1,zhook_handle)
subroutine read_pgd_tsz0_par_n(DTZ, HPROGRAM)