7 hprogram,hwrite,oland_use)
51 USE modi_init_io_surf_n
52 USE modi_writesurf_isba_n
53 USE modi_writesurf_isba_conf_n
54 USE modi_end_io_surf_n
55 USE modi_writesurf_isba_canopy_n
58 USE yomhook
,ONLY : lhook, dr_hook
59 USE parkind1
,ONLY : jprb
70 TYPE(isba_model_t
),
INTENT(INOUT) :: im
71 TYPE(dst_t),
INTENT(INOUT) :: dst
73 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
74 CHARACTER(LEN=3),
INTENT(IN) :: hwrite
76 LOGICAL,
INTENT(IN) :: oland_use
81 REAL(KIND=JPRB) :: zhook_handle
86 IF (lhook) CALL dr_hook(
'WRITE_ISBA_N',0,zhook_handle)
88 hprogram,
'NATURE',
'ISBA ',
'WRITE')
108 IF (lhook) CALL dr_hook(
'WRITE_ISBA_N',1,zhook_handle)
subroutine init_io_surf_n(DTCO, DGU, U, HPROGRAM, HMASK, HSCHEME, HACTION)
subroutine writesurf_isba_conf_n(CHI, DGEI, DGI, DGMI, I, HPROGRAM)
subroutine writesurf_isba_n(DGU, U, CHI, DST, I, HPROGRAM, OLAND_USE)
subroutine write_isba_n(DTCO, DGU, U, IM, DST, HPROGRAM, HWRITE, OLAND_USE)
subroutine end_io_surf_n(HPROGRAM)
subroutine writesurf_isba_canopy_n(DGU, U, ICP, I, HPROGRAM, HWRITE)