68 USE modi_init_coupl_topd
69 USE modi_init_budget_coupl_rout
71 USE yomhook
,ONLY : lhook, dr_hook
72 USE parkind1
,ONLY : jprb
81 TYPE(isba_t
),
INTENT(INOUT) :: i
85 CHARACTER(LEN=*),
INTENT(IN) :: hprogram
86 INTEGER,
INTENT(IN) :: ki
89 REAL(KIND=JPRB) :: zhook_handle
91 IF (lhook) CALL dr_hook(
'INIT_SURF_TOPD',0,zhook_handle)
94 IF (nproc>1) CALL
abor1_sfx(
'INIT_SURF_TOPD: TOPD CANNOT RUN WITH MORE THAN 1 MPI TASK')
95 IF (nblocktot>1) CALL
abor1_sfx(
"INIT_SURF_TOPD: TOPD CANNOT RUN WITH NUMEROUS OPENMP BLOCKS")
96 IF (i%TSNOW%SCHEME/=
'3-L') &
97 CALL
abor1_sfx(
"INIT_SURF_TOPD: coupling with topmodel only runs with TSNOW%SCHEME=3-L")
105 WRITE(iluout,*)
'Debut init_surf_topo_n'
107 IF (lcoupl_topd)
THEN
111 WRITE(iluout,*)
'NNCAT',nncat
121 WRITE(iluout,*)
'Couplage avec TOPMODEL active'
127 WRITE(iluout,*)
'Pas de couplage avec TOPMODEL'
131 IF (lhook) CALL dr_hook(
'INIT_SURF_TOPD',1,zhook_handle)
subroutine init_surf_topd(DGEI, I, UG, U, HPROGRAM, KI)
subroutine abor1_sfx(YTEXT)
subroutine get_luout(HPROGRAM, KLUOUT)
subroutine init_topd_ol(HPROGRAM)
subroutine init_coupl_topd(DGEI, I, UG, U, HPROGRAM, KI)