53 USE modd_topodyn, ONLY : ccat, nncat, nnb_topd_step, xtopd_step,&
55 xnul, xx0, xy0, nnpt,&
56 nx_step_rout, xspeedr,&
57 xspeedh, nnmc, nmesht, npmax,&
59 xtopd, xdriv, xdhil, xtime_topd,&
60 xdgrd, xspeedg, xtime_topd_drain,&
61 xqtot, xtanb, xslop, xdarea,&
62 xlambda, xconn, xqb_dr, xqb_run
70 USE yomhook
,ONLY : lhook, dr_hook
71 USE parkind1
,ONLY : jprb
77 CHARACTER(LEN=*),
INTENT(IN) :: hprogram
85 REAL,
DIMENSION(:),
ALLOCATABLE :: ztopd_read
87 REAL(KIND=JPRB) :: zhook_handle
89 IF (lhook) CALL dr_hook(
'INIT_TOPD_PGD',0,zhook_handle)
96 WRITE(iluout,*)
'INITIALISATION INIT_TOPD_PGD'
100 IF (lhook) CALL dr_hook(
'INIT_TOPD_PGD',1,zhook_handle)
subroutine init_topd(HPROGRAM)
subroutine init_topd_pgd(HPROGRAM)
subroutine get_luout(HPROGRAM, KLUOUT)