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
53 REAL,
DIMENSION(KL) :: zlon
54 REAL,
DIMENSION(KL) :: zlat
56 REAL,
DIMENSION(KL) :: zdlon
57 REAL,
DIMENSION(KL) :: zdlat
59 REAL(KIND=JPRB) :: zhook_handle
63 IF (lhook) CALL dr_hook(
'GET_MESH_CORNER_LONLATVAL',0,zhook_handle)
71 CALL
abor1_sfx(
'GET_GRIDTYPE_LONLATVAL: WRONG NUMBER OF POINT')
84 pcorner_lon(:,1) = zlon(:)-zdlon(:)/2.
85 pcorner_lat(:,1) = zlat(:)-zdlat(:)/2.
87 pcorner_lon(:,3) = zlon(:)+zdlon(:)/2.
88 pcorner_lat(:,3) = zlat(:)+zdlat(:)/2.
90 pcorner_lon(:,2) = pcorner_lon(:,3)
91 pcorner_lat(:,2) = pcorner_lat(:,1)
93 pcorner_lon(:,4) = pcorner_lon(:,1)
94 pcorner_lat(:,4) = pcorner_lat(:,3)
96 IF (lhook) CALL dr_hook(
'GET_MESH_CORNER_LONLATVAL',1,zhook_handle)
subroutine get_mesh_corner_lonlatval(KGRID_PAR, KL, KC, PGRID_PAR, PCORNER_LAT, PCORNER_LON)
subroutine abor1_sfx(YTEXT)
subroutine get_gridtype_lonlatval(PGRID_PAR, KL, PX, PY, PDX, PDY)