37 USE yomhook
,ONLY : lhook, dr_hook
38 USE parkind1
,ONLY : jprb
45 INTEGER,
INTENT(IN) :: kmask_size
46 INTEGER,
DIMENSION(KMASK_SIZE),
INTENT(IN) :: kmask
47 INTEGER,
INTENT(IN) :: kgrid_par1
48 REAL,
DIMENSION(KGRID_PAR1),
INTENT(IN) :: pgrid_par1
49 INTEGER,
INTENT(INOUT) :: kgrid_par2
50 LOGICAL,
INTENT(IN) :: opack
51 REAL,
DIMENSION(KGRID_PAR2),
INTENT(OUT) :: pgrid_par2
65 REAL,
DIMENSION(:),
ALLOCATABLE :: zlat1
66 REAL,
DIMENSION(:),
ALLOCATABLE :: zlon1
67 REAL,
DIMENSION(:),
ALLOCATABLE :: zlat2
68 REAL,
DIMENSION(:),
ALLOCATABLE :: zlon2
71 REAL,
DIMENSION(:),
POINTER :: zgrid_par2
72 REAL(KIND=JPRB) :: zhook_handle
78 IF (lhook) CALL dr_hook(
'PACK_GRID_LONLAT_ROT',0,zhook_handle)
80 zwest,zsouth,zdlon,zdlat,zpolon,zpolat, &
92 ALLOCATE(zlat2(kmask_size))
93 ALLOCATE(zlon2(kmask_size))
107 zwest,zsouth,zdlon,zdlat,zpolon,zpolat, &
108 ilon,ilat,kmask_size,zlon2,zlat2 )
115 pgrid_par2(:) = zgrid_par2(:)
117 kgrid_par2 =
SIZE(zgrid_par2(:))
120 DEALLOCATE(zgrid_par2)
121 IF (lhook) CALL dr_hook(
'PACK_GRID_LONLAT_ROT',1,zhook_handle)
subroutine get_gridtype_lonlat_rot(PGRID_PAR, PWEST, PSOUTH, PDLON, PDLAT, PPOLON, PPOLAT, KLON, KLAT, KL, PLON, PLAT)
subroutine pack_grid_lonlat_rot(KMASK_SIZE, KMASK, KGRID_PAR1, PGRID_PAR1, KGRID_PAR2, OPACK, PGRID_PAR2)
subroutine put_gridtype_lonlat_rot(PGRID_PAR, PWEST, PSOUTH, PDLON, PDLAT, PPOLON, PPOLAT, KLON, KLAT, KL, PLON, PLAT)