43 USE modi_init_io_surf_n
45 USE modi_end_io_surf_n
48 USE yomhook
,ONLY : lhook, dr_hook
49 USE parkind1
,ONLY : jprb
62 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
69 CHARACTER(LEN=12) :: yrecfm
70 CHARACTER(LEN=100):: ycomment
73 REAL(KIND=JPRB) :: zhook_handle
79 IF (lhook) CALL dr_hook(
'WRITE_DIAG_CH_AGGR_n',0,zhook_handle)
81 hprogram,
'FULL ',
'SURF ',
'WRITE')
87 DO jspec=1,
SIZE(che%TSEMISS)
88 yrecfm =
"E_"//trim(che%TSEMISS(jspec)%CNAME)
89 ycomment =
"Emission data at time t (ppm*m/s)"
91 hprogram,yrecfm,che%TSEMISS(jspec)%XEMISDATA,iresp,hcomment=ycomment)
99 IF (lhook) CALL dr_hook(
'WRITE_DIAG_CH_AGGR_n',1,zhook_handle)
subroutine init_io_surf_n(DTCO, DGU, U, HPROGRAM, HMASK, HSCHEME, HACTION)
subroutine end_io_surf_n(HPROGRAM)
subroutine write_diag_ch_aggr_n(DTCO, DGU, U, CHE, HPROGRAM)