61 USE yomhook
,ONLY : lhook, dr_hook
62 USE parkind1
,ONLY : jprb
64 USE modi_get_type_dim_n
77 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
84 CHARACTER(LEN=12) :: yrecfm
86 REAL(KIND=JPRB) :: zhook_handle
91 IF (lhook) CALL dr_hook(
'READ_PGD_WATFLUX_N',0,zhook_handle)
103 ALLOCATE(w%LCOVER(jpcover))
107 ALLOCATE(w%XCOVER(wg%NDIM,jpcover))
109 hprogram,
'COVER',w%XCOVER(:,:),w%LCOVER,iresp)
113 ALLOCATE(w%XZS(wg%NDIM))
116 hprogram,yrecfm,w%XZS(:),iresp)
120 ALLOCATE(wg%XLAT (wg%NDIM))
121 ALLOCATE(wg%XLON (wg%NDIM))
122 ALLOCATE(wg%XMESH_SIZE(wg%NDIM))
124 hprogram,wg%CGRID,wg%XGRID_PAR,wg%XLAT,wg%XLON,wg%XMESH_SIZE,iresp)
125 IF (lhook) CALL dr_hook(
'READ_PGD_WATFLUX_N',1,zhook_handle)
subroutine get_type_dim_n(DTCO, U, HTYPE, KDIM)
subroutine read_grid(HPROGRAM, HGRID, PGRID_PAR, PLAT, PLON, PMESH_SIZE, KRESP, PDIR)
subroutine, public read_surf_cov(HPROGRAM, HREC, PFIELD, OFLAG, KRESP, HCOMMENT, HDIR)
subroutine read_lcover(HPROGRAM, OCOVER)
subroutine read_pgd_watflux_n(DTCO, U, WG, W, HPROGRAM)