52 USE modi_init_io_surf_n
53 USE modi_writesurf_teb_n
54 USE modi_writesurf_teb_conf_n
55 USE modi_end_io_surf_n
56 USE modi_writesurf_teb_canopy_n
57 USE modi_goto_wrapper_teb_patch
59 USE yomhook
,ONLY : lhook, dr_hook
60 USE parkind1
,ONLY : jprb
75 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
76 CHARACTER(LEN=3),
INTENT(IN) :: hwrite
82 REAL(KIND=JPRB) :: zhook_handle
88 IF (lhook) CALL dr_hook(
'WRITE_TEB_N',0,zhook_handle)
90 hprogram,
'TOWN ',
'TEB ',
'WRITE')
98 DO jpatch=1,tm%TOP%NTEB_PATCH
100 gdm%TGD, gdm%TGDPE, grm%TGR, grm%TGRPE, jpatch)
102 hprogram,jpatch,hwrite)
106 gdm%TGD, gdm%TGDPE, grm%TGR, grm%TGRPE, 1)
116 IF (lhook) CALL dr_hook(
'WRITE_TEB_N',1,zhook_handle)
subroutine init_io_surf_n(DTCO, DGU, U, HPROGRAM, HMASK, HSCHEME, HACTION)
subroutine writesurf_teb_conf_n(CHT, DGMTO, DGT, DGUT, T, TOP, HPROGRAM)
subroutine goto_wrapper_teb_patch(B, DGCT, DGMT, T, TGD, TGDPE, TGR, TGRPE, KTO_PATCH)
subroutine end_io_surf_n(HPROGRAM)
subroutine writesurf_teb_n(DGU, U, TM, GDM, GRM, HPROGRAM, KPATCH, HWRITE)
subroutine write_teb_n(DTCO, DGU, U, TM, GDM, GRM, HPROGRAM, HWRITE)
subroutine writesurf_teb_canopy_n(DGU, U, TCP, TOP, HPROGRAM, HWRITE)