46 USE yomhook
,ONLY : lhook, dr_hook
47 USE parkind1
,ONLY : jprb
54 INTEGER,
INTENT(IN) :: kgrid_par
55 INTEGER,
INTENT(IN) :: kl
56 REAL,
DIMENSION(KGRID_PAR),
INTENT(IN) :: pgrid_par
57 REAL,
DIMENSION(KL),
INTENT(OUT) :: plat
58 REAL,
DIMENSION(KL),
INTENT(OUT) :: plon
59 REAL,
DIMENSION(KL),
INTENT(OUT) :: pmesh_size
60 REAL,
DIMENSION(KL),
INTENT(OUT) :: pdir
76 REAL,
DIMENSION(:),
ALLOCATABLE :: zx
77 REAL,
DIMENSION(:),
ALLOCATABLE :: zy
78 REAL,
DIMENSION(:),
ALLOCATABLE :: zmap
79 REAL,
DIMENSION(:),
ALLOCATABLE :: zdx
80 REAL,
DIMENSION(:),
ALLOCATABLE :: zdy
81 REAL(KIND=JPRB) :: zhook_handle
88 IF (lhook) CALL dr_hook(
'LATLON_GRIDTYPE_CONF_PROJ',0,zhook_handle)
89 ALLOCATE(zx(
SIZE(plat)))
90 ALLOCATE(zy(
SIZE(plat)))
91 ALLOCATE(zdx(
SIZE(plat)))
92 ALLOCATE(zdy(
SIZE(plat)))
96 px=zx,py=zy,pdx=zdx,pdy=zdy )
113 ALLOCATE(zmap(
SIZE(plat)))
120 pmesh_size(:) = zdx(:) * zdy(:) / zmap(:)**2
128 pdir(:) = zrpk * (plon(:) - zlon0) - zbeta
130 WHERE (pdir(:) <0.) pdir = pdir + 360.
131 WHERE (pdir(:) >=360.) pdir = pdir - 360.
139 IF (lhook) CALL dr_hook(
'LATLON_GRIDTYPE_CONF_PROJ',1,zhook_handle)
subroutine map_factor_conf_proj(PLAT0, PRPK, PLAT, PMAP)
subroutine latlon_gridtype_conf_proj(KGRID_PAR, KL, PGRID_PAR, PLAT, PLON, PMESH_SIZE, PDIR)
subroutine latlon_conf_proj(PLAT0, PLON0, PRPK, PBETA, PLATOR, PLONOR, PX, PY, PLAT, PLON)
subroutine get_gridtype_conf_proj(PGRID_PAR, PLAT0, PLON0, PRPK, PBETA, PLATOR, PLONOR, KIMAX, KJMAX, PX, PY, PDX, PDY, KL)