6 SUBROUTINE pack_grid_ign(KMASK_SIZE,KMASK,KGRID_PAR1,PGRID_PAR1,KGRID_PAR2,OPACK,PGRID_PAR2)
35 USE modi_get_xyall_ign
39 USE yomhook
,ONLY : lhook, dr_hook
40 USE parkind1
,ONLY : jprb
47 INTEGER,
INTENT(IN) :: kmask_size
48 INTEGER,
DIMENSION(KMASK_SIZE),
INTENT(IN) :: kmask
49 INTEGER,
INTENT(IN) :: kgrid_par1
50 REAL,
DIMENSION(KGRID_PAR1),
INTENT(IN) :: pgrid_par1
51 INTEGER,
INTENT(INOUT) :: kgrid_par2
52 LOGICAL,
INTENT(IN) :: opack
53 REAL,
DIMENSION(KGRID_PAR2),
INTENT(OUT) :: pgrid_par2
59 REAL,
DIMENSION(:),
ALLOCATABLE :: zx1
60 REAL,
DIMENSION(:),
ALLOCATABLE :: zy1
61 REAL,
DIMENSION(:),
ALLOCATABLE :: zdx1
62 REAL,
DIMENSION(:),
ALLOCATABLE :: zdy1
63 REAL,
DIMENSION(:),
ALLOCATABLE :: zx2
64 REAL,
DIMENSION(:),
ALLOCATABLE :: zy2
65 REAL,
DIMENSION(:),
ALLOCATABLE :: zdx2
66 REAL,
DIMENSION(:),
ALLOCATABLE :: zdy2
68 REAL,
DIMENSION(:),
ALLOCATABLE :: zxall
69 REAL,
DIMENSION(:),
ALLOCATABLE :: zyall
74 REAL,
DIMENSION(:),
POINTER :: zgrid_par2
75 REAL(KIND=JPRB) :: zhook_handle
81 IF (lhook) CALL dr_hook(
'PACK_GRID_IGN',0,zhook_handle)
91 ALLOCATE(zx2(kmask_size))
92 ALLOCATE(zy2(kmask_size))
93 ALLOCATE(zdx2(kmask_size))
94 ALLOCATE(zdy2(kmask_size))
95 ALLOCATE(zxall(kmask_size*3))
96 ALLOCATE(zyall(kmask_size*3))
108 CALL
get_xyall_ign(zx2,zy2,zdx2,zdy2,zxall,zyall,idimx,idimy)
111 idimx,idimy,zxall(1:idimx),zyall(1:idimy))
117 pgrid_par2(:) = zgrid_par2(:)
119 kgrid_par2 =
SIZE(zgrid_par2(:))
122 DEALLOCATE(zgrid_par2)
127 IF (lhook) CALL dr_hook(
'PACK_GRID_IGN',1,zhook_handle)
subroutine pack_grid_ign(KMASK_SIZE, KMASK, KGRID_PAR1, PGRID_PAR1, KGRID_PAR2, OPACK, PGRID_PAR2)
subroutine get_gridtype_ign(PGRID_PAR, KLAMBERT, KL, PX, PY, PDX, PDY, KDIMX, KDIMY, PXALL, PYALL)
subroutine get_xyall_ign(PX, PY, PDX, PDY, PXALL, PYALL, KDIMX, KDIMY)
subroutine put_gridtype_ign(PGRID_PAR, KLAMBERT, PX, PY, PDX, PDY, KDIMX, KDIMY, PXALL, PYALL)