41 USE modi_write_diag_teb_n
44 USE yomhook
,ONLY : lhook, dr_hook
45 USE parkind1
,ONLY : jprb
60 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
61 CHARACTER(LEN=3),
INTENT(IN) :: hwrite
62 REAL(KIND=JPRB) :: zhook_handle
70 IF (lhook) CALL dr_hook(
'WRITE_DIAG_TOWN_N',0,zhook_handle)
71 IF (u%CTOWN==
'TEB ')
THEN
75 IF (lhook) CALL dr_hook(
'WRITE_DIAG_TOWN_N',1,zhook_handle)
subroutine write_diag_teb_n(DTCO, DGU, U, TM, GDM, GRM, HPROGRAM, HWRITE)
subroutine write_diag_town_n(DTCO, DGU, U, TM, GDM, GRM, HPROGRAM, HWRITE)