63 USE yomhook
,ONLY : lhook, dr_hook
64 USE parkind1
,ONLY : jprb
66 USE modi_get_type_dim_n
76 TYPE(flake_t),
INTENT(INOUT) :: f
79 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
86 CHARACTER(LEN=12) :: yrecfm
88 REAL(KIND=JPRB) :: zhook_handle
93 IF (lhook) CALL dr_hook(
'READ_PGD_FLAKE_N',0,zhook_handle)
105 ALLOCATE(f%LCOVER(jpcover))
109 ALLOCATE(f%XCOVER(fg%NDIM,jpcover))
111 hprogram,
'COVER',f%XCOVER(:,:),f%LCOVER,iresp)
115 ALLOCATE(f%XZS(fg%NDIM))
118 hprogram,yrecfm,f%XZS(:),iresp)
122 ALLOCATE(fg%XLAT (fg%NDIM))
123 ALLOCATE(fg%XLON (fg%NDIM))
124 ALLOCATE(fg%XMESH_SIZE(fg%NDIM))
126 hprogram,fg%CGRID,fg%XGRID_PAR,fg%XLAT,fg%XLON,fg%XMESH_SIZE,iresp)
130 ALLOCATE(f%XWATER_DEPTH (fg%NDIM))
133 hprogram,yrecfm,f%XWATER_DEPTH(:),iresp)
135 ALLOCATE(f%XWATER_FETCH (fg%NDIM))
138 hprogram,yrecfm,f%XWATER_FETCH(:),iresp)
140 ALLOCATE(f%XT_BS (fg%NDIM))
143 hprogram,yrecfm,f%XT_BS(:),iresp)
145 ALLOCATE(f%XDEPTH_BS (fg%NDIM))
148 hprogram,yrecfm,f%XDEPTH_BS(:),iresp)
150 ALLOCATE(f%XEXTCOEF_WATER (fg%NDIM))
153 hprogram,yrecfm,f%XEXTCOEF_WATER(:),iresp)
155 IF (lhook) CALL dr_hook(
'READ_PGD_FLAKE_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_pgd_flake_n(DTCO, U, FG, F, HPROGRAM)
subroutine read_lcover(HPROGRAM, OCOVER)