55 USE yomhook
,ONLY : lhook, dr_hook
56 USE parkind1
,ONLY : jprb
70 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
76 CHARACTER(LEN=12) :: yrecfm
77 CHARACTER(LEN=100):: ycomment
78 REAL(KIND=JPRB) :: zhook_handle
82 IF (lhook) CALL dr_hook(
'WRITESURF_PGD_TSZ0_PAR_N',0,zhook_handle)
84 dtz%NTIME =
SIZE(dtz%XDATA_DTS)
85 yrecfm =
'ND_TSZ0_TIME'
88 hprogram,yrecfm,dtz%NTIME,iresp,hcomment=ycomment)
91 ycomment =
'X_Y_DATA_DTS'
93 hprogram,yrecfm,dtz%XDATA_DTS(:),iresp,hcomment=ycomment,hdir=
'-',hnam_dim=
"Nforc_tsz0 ")
96 ycomment =
'X_Y_DATA_DHUGRD'
98 hprogram,yrecfm,dtz%XDATA_DHUGRD(:),iresp,hcomment=ycomment,hdir=
'-',hnam_dim=
"Nforc_tsz0 ")
100 IF (lhook) CALL dr_hook(
'WRITESURF_PGD_TSZ0_PAR_N',1,zhook_handle)
subroutine writesurf_pgd_tsz0_par_n(DGU, U, DTZ, HPROGRAM)