7 hprogram,hinifile,hinifiletype, &
8 hfile,hfiletype,oecoclimap)
59 USE yomhook
,ONLY : lhook, dr_hook
60 USE parkind1
,ONLY : jprb
72 TYPE(flake_t),
INTENT(INOUT) :: f
79 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
80 CHARACTER(LEN=28),
INTENT(IN) :: hinifile
81 CHARACTER(LEN=6),
INTENT(IN) :: hinifiletype
82 CHARACTER(LEN=28),
INTENT(IN) :: hfile
83 CHARACTER(LEN=6),
INTENT(IN) :: hfiletype
84 LOGICAL,
INTENT(IN) :: oecoclimap
85 REAL(KIND=JPRB) :: zhook_handle
94 IF (lhook) CALL dr_hook(
'ZOOM_PGD_INLAND_WATER',0,zhook_handle)
95 IF (u%CWATER==
'NONE ')
THEN
96 IF (lhook) CALL dr_hook(
'ZOOM_PGD_INLAND_WATER',1,zhook_handle)
98 ELSE IF (u%CWATER==
'FLUX ')
THEN
99 IF (lhook) CALL dr_hook(
'ZOOM_PGD_INLAND_WATER',1,zhook_handle)
101 ELSE IF (u%CWATER==
'WATFLX')
THEN
104 ELSE IF (u%CWATER==
'FLAKE ')
THEN
106 CALL
pgd_flake(dtco, fg, f, ug, u, uss, &
107 hprogram,oecoclimap,lrm_river)
109 IF (lhook) CALL dr_hook(
'ZOOM_PGD_INLAND_WATER',1,zhook_handle)
subroutine zoom_pgd_inland_water(DTCO, FG, F, UG, U, USS, WG, W, HPROGRAM, HINIFILE, HINIFILETYPE, HFILE, HFILETYPE, OECOCLIMAP)
subroutine pgd_flake(DTCO, FG, F, UG, U, USS, HPROGRAM, OECOCLIMAP, ORM_RIVER)
subroutine pgd_watflux(DTCO, U, WG, W, HPROGRAM)