45 USE yomhook
,ONLY : lhook, dr_hook
46 USE parkind1
,ONLY : jprb
54 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
55 INTEGER,
INTENT(IN) :: kdim_full
56 INTEGER,
INTENT(OUT) :: ksize_full
57 INTEGER,
INTENT(INOUT) :: kgrid_par
58 REAL,
DIMENSION(:),
POINTER :: pgrid_par
64 REAL(KIND=JPRB) :: zhook_handle
67 REAL :: zlat0, zlon0, zrpk, zbeta, zlator, zlonor
68 INTEGER :: iimax, ijmax
69 REAL,
DIMENSION(KDIM_FULL) :: zx, zy, zdx, zdy
72 INTEGER :: iimax_split, ijmax_split
73 REAL,
DIMENSION(:),
ALLOCATABLE :: zx_split, zy_split, zdx_split, zdy_split
76 IF (lhook) CALL dr_hook(
'SPLIT_GRID_CONF_PROJ',0,zhook_handle)
81 zlator,zlonor,iimax,ijmax, &
90 ksize_full = iimax_split * ijmax_split
92 ALLOCATE(zx_split(ksize_full))
93 ALLOCATE(zy_split(ksize_full))
94 ALLOCATE(zdx_split(ksize_full))
95 ALLOCATE(zdy_split(ksize_full))
106 zlator,zlonor,iimax_split,ijmax_split, &
107 zx_split,zy_split,zdx_split,zdy_split )
110 kgrid_par =
SIZE(pgrid_par)
112 DEALLOCATE(zx_split )
113 DEALLOCATE(zy_split )
114 DEALLOCATE(zdx_split)
115 DEALLOCATE(zdy_split)
117 IF (lhook) CALL dr_hook(
'SPLIT_GRID_CONF_PROJ',1,zhook_handle)
subroutine put_gridtype_conf_proj(PGRID_PAR, PLAT0, PLON0, PRPK, PBETA, PLATOR, PLONOR, KIMAX, KJMAX, PX, PY, PDX, PDY)
subroutine split_grid_conf_proj(HPROGRAM, KDIM_FULL, KSIZE_FULL, KGRID_PAR, PGRID_PAR)
subroutine split_grid_parametern0(HPROGRAM, HGRID, HREC, KFIELD, KFIELD_SPLIT)
subroutine get_gridtype_conf_proj(PGRID_PAR, PLAT0, PLON0, PRPK, PBETA, PLATOR, PLONOR, KIMAX, KJMAX, PX, PY, PDX, PDY, KL)
subroutine split_grid_parameterx1(HPROGRAM, HGRID, HREC, KDIM, KSIZE, PFIELD, PFIELD_SPLIT)