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(KIND=JPRB) :: zhook_handle
57 IF (lhook) CALL dr_hook(
'GET_MESH_CORNER_GAUSS',0,zhook_handle)
65 CALL
abor1_sfx(
'GET_MESH_CORNER_GAUSS: WRONG NUMBER OF POINT')
79 platinf=pcorner_lat(:,1), &
80 plonsup=pcorner_lon(:,3), &
81 platsup=pcorner_lat(:,3) )
83 pcorner_lon(:,2)=pcorner_lon(:,3)
84 pcorner_lat(:,2)=pcorner_lat(:,1)
86 pcorner_lon(:,4)=pcorner_lon(:,1)
87 pcorner_lat(:,4)=pcorner_lat(:,3)
89 IF (lhook) CALL dr_hook(
'GET_MESH_CORNER_GAUSS',1,zhook_handle)
subroutine get_mesh_corner_gauss(KGRID_PAR, KL, KC, PGRID_PAR, PCORNER_LAT, PCORNER_LON)
subroutine get_gridtype_gauss(PGRID_PAR, KNLATI, PLAPO, PLOPO, PCODIL, KNLOPA, KL, PLAT, PLON, PLAT_XY, PLON_XY, PMESH_SIZE, PLONINF, PLATINF, PLONSUP, PLATSUP)
subroutine abor1_sfx(YTEXT)