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
56 REAL,
DIMENSION(KL) :: zx
57 REAL,
DIMENSION(KL) :: zy
58 REAL,
DIMENSION(KL) :: zdx
59 REAL,
DIMENSION(KL) :: zdy
60 REAL,
DIMENSION(KL,KC) :: zcx
61 REAL,
DIMENSION(KL,KC) :: zcy
63 REAL(KIND=JPRB) :: zhook_handle
67 IF (lhook) CALL dr_hook(
'GET_MESH_CORNER_IGN',0,zhook_handle)
75 CALL
abor1_sfx(
'GET_MESH_CORNER_IGN: WRONG NUMBER OF POINT')
90 zcx(:,1) = zx(:)-zdx(:)/2.
91 zcy(:,1) = zy(:)-zdy(:)/2.
93 zcx(:,3) = zx(:)+zdx(:)/2.
94 zcy(:,3) = zy(:)+zdy(:)/2.
103 CALL
latlon_ign(ilambert,zcx(:,jc),zcy(:,jc),pcorner_lat(:,jc),pcorner_lon(:,jc))
106 IF (lhook) CALL dr_hook(
'GET_MESH_CORNER_IGN',1,zhook_handle)
subroutine get_mesh_corner_ign(KGRID_PAR, KL, KC, PGRID_PAR, PCORNER_LAT, PCORNER_LON)
subroutine get_gridtype_ign(PGRID_PAR, KLAMBERT, KL, PX, PY, PDX, PDY, KDIMX, KDIMY, PXALL, PYALL)
subroutine latlon_ign(KLAMBERT, PX, PY, PLAT, PLON)
subroutine abor1_sfx(YTEXT)