7 hprogram,hatmfile,hatmfiletype,hpgdfile,hpgdfiletype)
44 USE yomhook
,ONLY : lhook, dr_hook
45 USE parkind1
,ONLY : jprb
61 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
62 CHARACTER(LEN=28),
INTENT(IN) :: hatmfile
63 CHARACTER(LEN=6),
INTENT(IN) :: hatmfiletype
64 CHARACTER(LEN=28),
INTENT(IN) :: hpgdfile
65 CHARACTER(LEN=6),
INTENT(IN) :: hpgdfiletype
66 REAL(KIND=JPRB) :: zhook_handle
73 IF (lhook) CALL dr_hook(
'PREP_INLAND_WATER',0,zhook_handle)
74 IF (u%CWATER==
'WATFLX')
THEN
76 hprogram,hatmfile,hatmfiletype,hpgdfile,hpgdfiletype)
77 ELSE IF (u%CWATER==
'FLAKE ')
THEN
79 hprogram,hatmfile,hatmfiletype,hpgdfile,hpgdfiletype)
81 IF (lhook) CALL dr_hook(
'PREP_INLAND_WATER',1,zhook_handle)
subroutine prep_flake(DTCO, USS, FM, UG, U, HPROGRAM, HATMFILE, HATMFILETYPE, HPGDFILE, HPGDFILETYPE)
subroutine prep_inland_water(DTCO, USS, UG, U, FM, WM, HPROGRAM, HATMFILE, HATMFILETYPE, HPGDFILE, HPGDFILETYPE)
subroutine prep_watflux(DTCO, UG, U, WM, HPROGRAM, HATMFILE, HATMFILETYPE, HPGDFILE, HPGDFILETYPE)