33 USE yomhook
,ONLY : lhook, dr_hook
34 USE parkind1
,ONLY : jprb
41 INTEGER,
INTENT(IN) :: kgrid_par
42 INTEGER,
INTENT(IN) :: kl
43 INTEGER,
INTENT(IN) :: kc
44 REAL,
DIMENSION(KGRID_PAR),
INTENT(IN) :: pgrid_par
45 REAL,
DIMENSION(KL,KC),
INTENT(OUT) :: pcorner_lat
46 REAL,
DIMENSION(KL,KC),
INTENT(OUT) :: pcorner_lon
61 REAL,
DIMENSION(KL) :: zx
62 REAL,
DIMENSION(KL) :: zy
63 REAL,
DIMENSION(KL) :: zdx
64 REAL,
DIMENSION(KL) :: zdy
66 REAL,
DIMENSION(KL,KC) :: zcx
67 REAL,
DIMENSION(KL,KC) :: zcy
69 REAL(KIND=JPRB) :: zhook_handle
73 IF (lhook) CALL dr_hook(
'GET_MESH_CORNER_CONF_PROJ',0,zhook_handle)
81 CALL
abor1_sfx(
'GET_MESH_CORNER_CONF_PROJ: WRONG NUMBER OF POINT')
85 zlonor,px=zx,py=zy,pdx=zdx,pdy=zdy )
98 zcx(:,1) = zx(:)-zdx(:)/2.
99 zcy(:,1) = zy(:)-zdy(:)/2.
101 zcx(:,3) = zx(:)+zdx(:)/2.
102 zcy(:,3) = zy(:)+zdy(:)/2.
112 zcy(:,jc),pcorner_lat(:,jc),pcorner_lon(:,jc) )
115 IF (lhook) CALL dr_hook(
'GET_MESH_CORNER_CONF_PROJ',1,zhook_handle)
subroutine abor1_sfx(YTEXT)
subroutine latlon_conf_proj(PLAT0, PLON0, PRPK, PBETA, PLATOR, PLONOR, PX, PY, PLAT, PLON)
subroutine get_mesh_corner_conf_proj(KGRID_PAR, KL, KC, PGRID_PAR, PCORNER_LAT, PCORNER_LON)
subroutine get_gridtype_conf_proj(PGRID_PAR, PLAT0, PLON0, PRPK, PBETA, PLATOR, PLONOR, KIMAX, KJMAX, PX, PY, PDX, PDY, KL)