60 USE modi_read_pgd_seaflux_par_n
64 USE yomhook
,ONLY : lhook, dr_hook
65 USE parkind1
,ONLY : jprb
67 USE modi_get_type_dim_n
81 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
88 CHARACTER(LEN=12) :: yrecfm
91 REAL(KIND=JPRB) :: zhook_handle
97 IF (lhook) CALL dr_hook(
'READ_PGD_SEAFLUX_N',0,zhook_handle)
108 ALLOCATE(s%LCOVER(jpcover))
112 ALLOCATE(s%XCOVER(sg%NDIM,jpcover))
114 hprogram,
'COVER',s%XCOVER(:,:),s%LCOVER,iresp)
118 ALLOCATE(s%XZS(sg%NDIM))
123 hprogram,yrecfm,iversion,iresp)
127 ALLOCATE(s%XSEABATHY(sg%NDIM))
128 IF (iversion<=3)
THEN
129 s%XSEABATHY(:) = -300.
133 hprogram,yrecfm,s%XSEABATHY(:),iresp)
138 ALLOCATE(sg%XLAT (sg%NDIM))
139 ALLOCATE(sg%XLON (sg%NDIM))
140 ALLOCATE(sg%XMESH_SIZE(sg%NDIM))
142 hprogram,sg%CGRID,sg%XGRID_PAR,sg%XLAT,sg%XLON,sg%XMESH_SIZE,iresp)
149 dts%LSST_DATA = .false.
153 hprogram,yrecfm,dts%LSST_DATA,iresp)
158 IF (lhook) CALL dr_hook(
'READ_PGD_SEAFLUX_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_seaflux_par_n(DTCO, U, DTS, SG, HPROGRAM, KSIZE, HDIR)
subroutine read_pgd_seaflux_n(DTCO, DTS, SG, S, U, HPROGRAM)