51 USE modi_write_pgd_watflux_n
52 USE modi_write_pgd_flake_n
55 USE yomhook
,ONLY : lhook, dr_hook
56 USE parkind1
,ONLY : jprb
70 TYPE(flake_t),
INTENT(INOUT) :: f
73 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
74 REAL(KIND=JPRB) :: zhook_handle
85 IF (lhook) CALL dr_hook(
'WRITE_PGD_INLAND_WATER_N',0,zhook_handle)
86 IF (u%CWATER==
'WATFLX')
THEN
89 ELSE IF (u%CWATER==
'FLAKE ')
THEN
93 IF (lhook) CALL dr_hook(
'WRITE_PGD_INLAND_WATER_N',1,zhook_handle)
subroutine write_pgd_flake_n(DTCO, DGU, U, FG, F, HPROGRAM)
subroutine write_pgd_watflux_n(DTCO, DGU, U, WG, W, HPROGRAM)
subroutine write_pgd_inland_water_n(DTCO, DGU, U, WG, W, FG, F, HPROGRAM)