45 USE modi_rout_data_isba
46 USE modi_budget_coupl_rout
47 USE modi_write_discharge_file
48 USE modi_write_budget_coupl_rout
49 USE modi_prep_restart_coupl_topd
51 USE modd_topodyn, ONLY : xqtot, nnb_topd_step, xqb_run, xqb_dr
52 USE modd_coupling_topd, ONLY : lcoupl_topd, lbudget_topd, nnb_topd, ltopd_step, ntopd_step, &
53 nyear,nmonth,nday,nh,nm
56 USE yomhook
,ONLY : lhook, dr_hook
57 USE parkind1
,ONLY : jprb
66 TYPE(isba_grid_t
),
INTENT(INOUT) :: ig
67 TYPE(isba_t
),
INTENT(INOUT) :: i
71 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
72 INTEGER,
INTENT(IN) :: ki
77 CHARACTER(LEN=3) :: ystep
81 REAL,
DIMENSION(KI) :: zdg_full
82 REAL,
DIMENSION(KI) :: zwg2_full,zwg3_full,zdg2_full,zdg3_full
83 REAL(KIND=JPRB) :: zhook_handle
85 IF (lhook) CALL dr_hook(
'COUPLING_SURF_TOPD',0,zhook_handle)
89 IF ( .NOT.lcoupl_topd )
THEN
90 IF (lhook) CALL dr_hook(
'COUPLING_SURF_TOPD',1,zhook_handle)
94 IF ( ltopd_step )
THEN
98 IF (ntopd_step<10)
THEN
99 WRITE(ystep,
'(I1)') ntopd_step
100 ELSEIF (ntopd_step < 100)
THEN
101 WRITE(ystep,
'(I2)') ntopd_step
103 WRITE(ystep,
'(I3)') ntopd_step
106 write(iluout,*)
'pas de temps coupl ',ystep
108 IF (i%CRUNOFF==
'TOPD')
THEN
110 hprogram,ystep,ki,ntopd_step)
113 hprogram,ki,ntopd_step)
121 IF (lhook) CALL dr_hook(
'COUPLING_SURF_TOPD',1,zhook_handle)
subroutine coupling_surf_topd(DGEI, DGMI, IG, I, UG, U, HPROGRAM, KI)
subroutine budget_coupl_rout(DGEI, DGMI, I, U, KNI, KFORC_STEP)
subroutine rout_data_isba(DGEI, DGMI, IG, I, UG, U, HPROGRAM, KI, KSTEP)
subroutine coupl_topd(DGEI, DGMI, IG, I, UG, U, HPROGRAM, HSTEP, KI, KSTEP)
subroutine get_luout(HPROGRAM, KLUOUT)