51 USE modi_init_io_surf_n
52 USE modi_writesurf_pgd_isba_n
53 USE modi_end_io_surf_n
56 USE yomhook
,ONLY : lhook, dr_hook
57 USE parkind1
,ONLY : jprb
70 TYPE(isba_grid_t
),
INTENT(INOUT) :: ig
71 TYPE(isba_t
),
INTENT(INOUT) :: i
73 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
74 REAL(KIND=JPRB) :: zhook_handle
84 IF (lhook) CALL dr_hook(
'WRITE_PGD_ISBA_N',0,zhook_handle)
86 hprogram,
'NATURE',
'ISBA ',
'WRITE')
100 IF (lhook) CALL dr_hook(
'WRITE_PGD_ISBA_N',1,zhook_handle)
subroutine init_io_surf_n(DTCO, DGU, U, HPROGRAM, HMASK, HSCHEME, HACTION)
subroutine writesurf_pgd_isba_n(DGU, DTI, DTZ, IG, I, U, HPROGRAM)
subroutine write_pgd_isba_n(DTCO, DGU, U, DTI, DTZ, IG, I, HPROGRAM)
subroutine end_io_surf_n(HPROGRAM)