9 kyear,kmonth,kday,kh,km,pqtot)
58 USE yomhook
,ONLY : lhook, dr_hook
59 USE parkind1
,ONLY : jprb
65 CHARACTER(LEN=*),
INTENT(IN) :: hprogram
66 CHARACTER(LEN=*),
INTENT(IN) :: hfile
67 CHARACTER(LEN=*),
INTENT(IN) :: hform
68 INTEGER,
DIMENSION(:),
INTENT(IN) :: kyear
69 INTEGER,
DIMENSION(:),
INTENT(IN) :: kmonth
70 INTEGER,
DIMENSION(:),
INTENT(IN) :: kday
71 INTEGER,
DIMENSION(:),
INTENT(IN) :: kh
72 INTEGER,
DIMENSION(:),
INTENT(IN) :: km
73 REAL,
DIMENSION(:,:) ,
INTENT(IN) :: pqtot
81 CHARACTER(LEN=28) :: yfile
82 CHARACTER(LEN=40) :: yform
83 REAL(KIND=JPRB) :: zhook_handle
85 IF (lhook) CALL dr_hook(
'WRITE_DISCHARGE_FILE',0,zhook_handle)
91 yform=
'(I4,A1,I2,A1,I2,A1,I2,A1,I2,A1,F7.2)'
95 yfile = trim(ccat(jcat))//
'_'//trim(hfile)
97 CALL
open_file(hprogram,nunit,yfile,hform,haction=
'WRITE')
99 WRITE(nunit,*)
'YEAR;MO;DA;HO;MI;',ccat(jcat)
100 DO jj=1,nnb_topd_step
101 WRITE(nunit,yform) kyear(jj),
';',kmonth(jj),
';',kday(jj),
';',&
102 kh(jj) ,
';',km(jj) ,
';',pqtot(jcat,jj)
109 IF (lhook) CALL dr_hook(
'WRITE_DISCHARGE_FILE',1,zhook_handle)
subroutine close_file(HPROGRAM, KUNIT)
subroutine write_discharge_file(HPROGRAM, HFILE, HFORM, KYEAR, KMONTH, KDAY, KH, KM, PQTOT)
subroutine get_luout(HPROGRAM, KLUOUT)
subroutine open_file(HPROGRAM, KUNIT, HFILE, HFORM, HACTION, HACCESS, KRECL)