40 USE modi_write_diag_seb_flake_n
43 USE yomhook
,ONLY : lhook, dr_hook
44 USE parkind1
,ONLY : jprb
46 USE modi_write_diag_misc_flake_n
58 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
59 CHARACTER(LEN=3),
INTENT(IN) :: hwrite
60 REAL(KIND=JPRB) :: zhook_handle
67 IF (lhook) CALL dr_hook(
'WRITE_DIAG_FLAKE_N',0,zhook_handle)
68 IF (hwrite/=
'PGD')
THEN
70 IF (fm%DGF%XDIAG_TSTEP==xundef .OR. &
71 abs(nint(fm%F%TTIME%TIME/fm%DGF%XDIAG_TSTEP)*fm%DGF%XDIAG_TSTEP-fm%F%TTIME%TIME)<1.e-3 )
THEN
79 IF (lhook) CALL dr_hook(
'WRITE_DIAG_FLAKE_N',1,zhook_handle)
subroutine write_diag_misc_flake_n(DTCO, DGU, U, DGMF, HPROGRAM)
subroutine write_diag_seb_flake_n(DTCO, DGU, U, CHF, DGF, HPROGRAM)
subroutine write_diag_flake_n(DTCO, DGU, U, FM, HPROGRAM, HWRITE)