42 USE modi_goto_wrapper_teb_patch
43 USE modi_write_diag_seb_teb_n
44 USE modi_write_diag_misc_teb_n
45 USE modi_write_diag_pgd_teb_n
46 USE modi_write_diag_pgd_grdn_n
48 USE yomhook
,ONLY : lhook, dr_hook
49 USE parkind1
,ONLY : jprb
63 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
64 CHARACTER(LEN=3),
INTENT(IN) :: hwrite
70 REAL(KIND=JPRB) :: zhook_handle
73 IF (lhook) CALL dr_hook(
'WRITE_DIAG_TEB_N',0,zhook_handle)
74 IF (hwrite/=
'PGD')
THEN
76 IF (tm%DGT%XDIAG_TSTEP==xundef .OR. &
77 abs(nint(tm%TOP%TTIME%TIME/tm%DGT%XDIAG_TSTEP)*tm%DGT%XDIAG_TSTEP-tm%TOP%TTIME%TIME)<1.e-3 )
THEN
80 DO jteb_patch=1,tm%TOP%NTEB_PATCH
82 gdm%TGD, gdm%TGDPE, grm%TGR, grm%TGRPE, jteb_patch)
91 IF (tm%DGT%XDIAG_TSTEP==xundef .OR. &
92 abs(nint(tm%TOP%TTIME%TIME/tm%DGT%XDIAG_TSTEP)*tm%DGT%XDIAG_TSTEP-tm%TOP%TTIME%TIME)<1.e-3 )
THEN
93 IF (
ASSOCIATED(tm%T%CUR%XBLD))
THEN
96 IF (tm%TOP%LGARDEN) CALL
write_diag_pgd_grdn_n(dtco, dgu, u, tm%DGMTO, gdm%TGDPE, gdm%TGDP, gdm%TVG, &
101 IF (lhook) CALL dr_hook(
'WRITE_DIAG_TEB_N',1,zhook_handle)
subroutine write_diag_teb_n(DTCO, DGU, U, TM, GDM, GRM, HPROGRAM, HWRITE)
subroutine goto_wrapper_teb_patch(B, DGCT, DGMT, T, TGD, TGDPE, TGR, TGRPE, KTO_PATCH)
subroutine write_diag_misc_teb_n(DTCO, DGU, U, DGCT, DGMT, DGMTO, T, TOP, HPROGRAM, KTEB_PATCH)
subroutine write_diag_pgd_grdn_n(DTCO, DGU, U, DGMTO, TGDPE, TGDP, TVG, HPROGRAM)
subroutine write_diag_seb_teb_n(DTCO, DGU, U, CHT, DGT, DGUT, HPROGRAM)
subroutine write_diag_pgd_teb_n(DTCO, DGU, U, B, BOP, T, TOP, TPN, HPROGRAM)