7 kluout,pcorner_lat,pcorner_lon)
40 USE modi_get_mesh_corner_conf_proj
41 USE modi_get_mesh_corner_gauss
42 USE modi_get_mesh_corner_ign
43 USE modi_get_mesh_corner_lonlat_reg
44 USE modi_get_mesh_corner_lonlatval
48 USE yomhook
,ONLY : lhook, dr_hook
49 USE parkind1
,ONLY : jprb
59 INTEGER,
INTENT(IN) :: kluout
60 REAL,
DIMENSION(:,:),
INTENT(OUT) :: pcorner_lat
61 REAL,
DIMENSION(:,:),
INTENT(OUT) :: pcorner_lon
68 REAL(KIND=JPRB) :: zhook_handle
75 IF (lhook) CALL dr_hook(
'GET_MESH_CORNER',0,zhook_handle)
77 il =
SIZE(pcorner_lat,1)
78 ic =
SIZE(pcorner_lat,2)
80 SELECT CASE (ug%CGRID)
93 WRITE(kluout,*)
'error in grid cell corner computations (routine GET_MESH_CORNER)'
94 WRITE(kluout,*)
'It is impossible to retrieve geographical coordinates (latitude, longitude)'
95 WRITE(kluout,*)
'for the following grid type: CGRID = ', ug%CGRID
96 CALL
abor1_sfx(
'GET_MESH_CORNER: IMPOSSIBLE TO CALCULATE GRID CELL CORNER')
100 IF (lhook) CALL dr_hook(
'GET_MESH_CORNER',1,zhook_handle)
subroutine get_mesh_corner_gauss(KGRID_PAR, KL, KC, PGRID_PAR, PCORNER_LAT, PCORNER_LON)
subroutine get_mesh_corner_lonlatval(KGRID_PAR, KL, KC, PGRID_PAR, PCORNER_LAT, PCORNER_LON)
subroutine get_mesh_corner(UG, KLUOUT, PCORNER_LAT, PCORNER_LON)
subroutine get_mesh_corner_ign(KGRID_PAR, KL, KC, PGRID_PAR, PCORNER_LAT, PCORNER_LON)
subroutine abor1_sfx(YTEXT)
subroutine get_mesh_corner_conf_proj(KGRID_PAR, KL, KC, PGRID_PAR, PCORNER_LAT, PCORNER_LON)
subroutine get_mesh_corner_lonlat_reg(KGRID_PAR, KL, KC, PGRID_PAR, PCORNER_LAT, PCORNER_LON)