52 USE modi_get_surf_size_n
56 USE yomhook
,ONLY : lhook, dr_hook
57 USE parkind1
,ONLY : jprb
59 USE modi_write_cover_tex_water
72 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
73 REAL(KIND=JPRB) :: zhook_handle
102 IF (lhook) CALL dr_hook(
'PGD_WATFLUX',0,zhook_handle)
106 ALLOCATE(w%LCOVER (jpcover))
107 ALLOCATE(w%XZS (wg%NDIM))
108 ALLOCATE(wg%XLAT (wg%NDIM))
109 ALLOCATE(wg%XLON (wg%NDIM))
110 ALLOCATE(wg%XMESH_SIZE (wg%NDIM))
113 hprogram,
'WATER ', &
114 wg%CGRID, wg%XGRID_PAR, &
115 w%LCOVER, w%XCOVER, w%XZS, &
116 wg%XLAT, wg%XLON, wg%XMESH_SIZE )
119 CALL write_cover_tex_water
120 IF (lhook) CALL dr_hook(
'PGD_WATFLUX',1,zhook_handle)
subroutine get_surf_size_n(DTCO, U, HTYPE, KL)
subroutine pack_pgd(DTCO, U, HPROGRAM, HSURF, HGRID, PGRID_PAR, OCOVER, PCOVER, PZS, PLAT, PLON, PMESH_SIZE, PDIR)
subroutine pgd_watflux(DTCO, U, WG, W, HPROGRAM)