7 hprogram,oecoclimap,orm_river)
59 USE yomhook
,ONLY : lhook, dr_hook
60 USE parkind1
,ONLY : jprb
71 TYPE(flake_t),
INTENT(INOUT) :: f
78 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
79 LOGICAL,
INTENT(IN) :: oecoclimap
80 LOGICAL,
INTENT(IN) :: orm_river
85 REAL(KIND=JPRB) :: zhook_handle
92 IF (lhook) CALL dr_hook(
'PGD_INLAND_WATER',0,zhook_handle)
94 IF (u%CWATER==
'NONE ')
THEN
95 IF (lhook) CALL dr_hook(
'PGD_INLAND_WATER',1,zhook_handle)
97 ELSE IF (u%CWATER==
'FLUX ')
THEN
98 IF (lhook) CALL dr_hook(
'PGD_INLAND_WATER',1,zhook_handle)
100 ELSE IF (u%CWATER==
'WATFLX')
THEN
103 ELSE IF (u%CWATER==
'FLAKE ')
THEN
104 CALL
pgd_flake(dtco, fg, f, ug, u, uss, &
105 hprogram,oecoclimap,orm_river)
108 IF (lhook) CALL dr_hook(
'PGD_INLAND_WATER',1,zhook_handle)
subroutine pgd_inland_water(DTCO, FG, F, UG, U, USS, WG, W, HPROGRAM, OECOCLIMAP, ORM_RIVER)
subroutine pgd_flake(DTCO, FG, F, UG, U, USS, HPROGRAM, OECOCLIMAP, ORM_RIVER)
subroutine pgd_watflux(DTCO, U, WG, W, HPROGRAM)