10 plat, plon, pmesh_size, pdir )
65 USE yomhook
,ONLY : lhook, dr_hook
66 USE parkind1
,ONLY : jprb
68 USE modi_get_surf_mask_n
70 USE modi_get_type_dim_n
82 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
83 CHARACTER(LEN=6),
INTENT(IN) :: hsurf
85 CHARACTER(LEN=10),
INTENT(OUT):: hgrid
86 REAL,
DIMENSION(:),
POINTER :: pgrid_par
87 LOGICAL,
DIMENSION(:),
INTENT(OUT):: ocover
88 REAL,
DIMENSION(:,:),
POINTER :: pcover
89 REAL,
DIMENSION(:),
INTENT(OUT):: pzs
90 REAL,
DIMENSION(:),
INTENT(OUT):: plat
91 REAL,
DIMENSION(:),
INTENT(OUT):: plon
92 REAL,
DIMENSION(:),
INTENT(OUT):: pmesh_size
93 REAL,
DIMENSION(:),
INTENT(OUT),
OPTIONAL :: pdir
103 INTEGER,
DIMENSION(:),
POINTER :: imask
104 REAL,
DIMENSION(SIZE(PLAT)) :: zdir
106 REAL,
DIMENSION(NL) :: zcover
107 LOGICAL,
DIMENSION(JPCOVER) :: gcover
108 REAL,
DIMENSION(NL) :: zzs
109 REAL(KIND=JPRB) :: zhook_handle
112 IF (lhook) CALL dr_hook(
'PACK_PGD',0,zhook_handle)
123 hsurf,il,imask,ilu,iluout)
130 CALL
pack_grid(imask,cgrid,hgrid,xgrid_par,pgrid_par)
137 CALL
latlon_grid(hgrid,
SIZE(pgrid_par),il,iluout,pgrid_par,plat,plon,pmesh_size,zdir)
139 IF (present(pdir)) pdir = zdir
147 hprogram,jpcover,gcover)
149 ALLOCATE(pcover(
SIZE(plat),count(gcover)))
151 DO jcover=1,count(gcover)
153 hprogram,jcover,zcover)
171 IF (lhook) CALL dr_hook(
'PACK_PGD',1,zhook_handle)
subroutine get_type_dim_n(DTCO, U, HTYPE, KDIM)
subroutine pack_pgd(DTCO, U, HPROGRAM, HSURF, HGRID, PGRID_PAR, OCOVER, PCOVER, PZS, PLAT, PLON, PMESH_SIZE, PDIR)
subroutine latlon_grid(HGRID, KGRID_PAR, KL, KLUOUT, PGRID_PAR, PLAT, PLON, PMESH_SIZE, PDIR)
subroutine get_surf_mask_n(DTCO, U, HTYPE, KDIM, KMASK, KLU, KLUOUT)
subroutine get_lcover_n(U, HPROGRAM, KCOVER, OCOVER)
subroutine get_cover_n(U, HPROGRAM, KCOVER, PCOVER)
subroutine pack_grid(KMASK, HGRID1, HGRID2, PGRID_PAR1, PGRID_PAR2)
subroutine get_luout(HPROGRAM, KLUOUT)
subroutine get_zs_n(U, HPROGRAM, KI, PZS)