7 hprogram,hatmfile,hatmfiletype,hpgdfile,hpgdfiletype)
49 USE yomhook
,ONLY : lhook, dr_hook
50 USE parkind1
,ONLY : jprb
58 TYPE(isba_canopy_t
),
INTENT(INOUT) :: icp
59 TYPE(isba_grid_t
),
INTENT(INOUT) :: ig
60 TYPE(isba_t
),
INTENT(INOUT) :: i
65 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
66 CHARACTER(LEN=28),
INTENT(IN) :: hatmfile
67 CHARACTER(LEN=6),
INTENT(IN) :: hatmfiletype
68 CHARACTER(LEN=28),
INTENT(IN) :: hpgdfile
69 CHARACTER(LEN=6),
INTENT(IN) :: hpgdfiletype
70 REAL(KIND=JPRB) :: zhook_handle
77 IF (lhook) CALL dr_hook(
'PREP_NATURE',0,zhook_handle)
78 IF (u%CNATURE==
'ISBA ' .OR. u%CNATURE==
'TSZ0 ' )
THEN
79 CALL
prep_isba(dtco, icp, ig, i, ug, u, uss, &
80 hprogram,hatmfile,hatmfiletype,hpgdfile,hpgdfiletype)
82 IF (lhook) CALL dr_hook(
'PREP_NATURE',1,zhook_handle)
subroutine prep_nature(DTCO, ICP, IG, I, UG, U, USS, HPROGRAM, HATMFILE, HATMFILETYPE, HPGDFILE, HPGDFILETYPE)
subroutine prep_isba(DTCO, ICP, IG, I, UG, U, USS, HPROGRAM, HATMFILE, HATMFILETYPE, HPGDFILE, HPGDFILETYPE)