42 USE yomhook
,ONLY : lhook, dr_hook
43 USE parkind1
,ONLY : jprb
45 USE modi_write_diag_misc_isba_n
46 USE modi_write_diag_pgd_isba_n
47 USE modi_write_diag_seb_isba_n
58 TYPE(isba_model_t
),
INTENT(INOUT) :: im
59 TYPE(dst_t),
INTENT(INOUT) :: dst
61 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
62 CHARACTER(LEN=3),
INTENT(IN) :: hwrite
63 REAL(KIND=JPRB) :: zhook_handle
70 IF (lhook) CALL dr_hook(
'WRITE_DIAG_ISBA_N',0,zhook_handle)
71 IF (hwrite/=
'PGD')
THEN
72 IF (im%DGI%XDIAG_TSTEP==xundef .OR. &
73 abs(nint(im%I%TTIME%TIME/im%DGI%XDIAG_TSTEP)*im%DGI%XDIAG_TSTEP-im%I%TTIME%TIME)<1.e-3 )
THEN
82 IF (im%DGI%XDIAG_TSTEP==xundef .OR. &
83 abs(nint(im%I%TTIME%TIME/im%DGI%XDIAG_TSTEP)*im%DGI%XDIAG_TSTEP-im%I%TTIME%TIME)<1.e-3 )
THEN
88 IF (lhook) CALL dr_hook(
'WRITE_DIAG_ISBA_N',1,zhook_handle)
subroutine write_diag_isba_n(DTCO, DGU, U, IM, DST, HPROGRAM, HWRITE)
subroutine write_diag_misc_isba_n(DTCO, DGU, U, DGI, DGMI, I, HPROGRAM)
subroutine write_diag_seb_isba_n(DTCO, DGU, U, CHI, DGEI, DGI, DST, GB, I, HPROGRAM)
subroutine write_diag_pgd_isba_n(DTCO, DGU, U, CHI, DGMI, I, HPROGRAM)