6 SUBROUTINE prep_town (DTCO, UG, U, USS, IG, I, TM, GDM, GRM, &
7 hprogram,hatmfile,hatmfiletype,hpgdfile,hpgdfiletype)
46 USE yomhook
,ONLY : lhook, dr_hook
47 USE parkind1
,ONLY : jprb
58 TYPE(isba_grid_t
),
INTENT(INOUT) :: ig
59 TYPE(isba_t
),
INTENT(INOUT) :: i
64 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
65 CHARACTER(LEN=28),
INTENT(IN) :: hatmfile
66 CHARACTER(LEN=6),
INTENT(IN) :: hatmfiletype
67 CHARACTER(LEN=28),
INTENT(IN) :: hpgdfile
68 CHARACTER(LEN=6),
INTENT(IN) :: hpgdfiletype
69 REAL(KIND=JPRB) :: zhook_handle
76 IF (lhook) CALL dr_hook(
'PREP_TOWN',0,zhook_handle)
77 IF (u%CTOWN==
'TEB ')
THEN
78 CALL
prep_teb(dtco, ug, u, uss, ig, i, tm, gdm, grm, &
79 hprogram,hatmfile,hatmfiletype,hpgdfile,hpgdfiletype)
81 IF (lhook) CALL dr_hook(
'PREP_TOWN',1,zhook_handle)
subroutine prep_teb(DTCO, UG, U, USS, IG, I, TM, GDM, GRM, HPROGRAM, HATMFILE, HATMFILETYPE, HPGDFILE, HPGDFILETYPE)
subroutine prep_town(DTCO, UG, U, USS, IG, I, TM, GDM, GRM, HPROGRAM, HATMFILE, HATMFILETYPE, HPGDFILE, HPGDFILETYPE)