49 USE modi_init_io_surf_n
50 USE modi_writesurf_pgd_teb_n
51 USE modi_end_io_surf_n
52 USE modi_goto_wrapper_teb_patch
54 USE yomhook
,ONLY : lhook, dr_hook
55 USE parkind1
,ONLY : jprb
70 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
71 REAL(KIND=JPRB) :: zhook_handle
82 IF (lhook) CALL dr_hook(
'WRITE_PGD_TEB_N',0,zhook_handle)
84 hprogram,
'TOWN ',
'TEB ',
'WRITE')
90 gdm%TGD, gdm%TGDPE, grm%TGR, grm%TGRPE, 1)
99 IF (lhook) CALL dr_hook(
'WRITE_PGD_TEB_N',1,zhook_handle)
subroutine init_io_surf_n(DTCO, DGU, U, HPROGRAM, HMASK, HSCHEME, HACTION)
subroutine writesurf_pgd_teb_n(DGU, U, TM, GDM, GRM, HPROGRAM)
subroutine goto_wrapper_teb_patch(B, DGCT, DGMT, T, TGD, TGDPE, TGR, TGRPE, KTO_PATCH)
subroutine end_io_surf_n(HPROGRAM)
subroutine write_pgd_teb_n(DTCO, DGU, U, TM, GDM, GRM, HPROGRAM)