6 SUBROUTINE get_mesh_dim(HGRID,KGRID_PAR,KL,PGRID_PAR,PDX,PDY,PMESHSIZE)
37 USE yomhook
,ONLY : lhook, dr_hook
38 USE parkind1
,ONLY : jprb
40 USE modi_get_mesh_dim_conf_proj
41 USE modi_get_mesh_dim_gauss
42 USE modi_get_mesh_dim_ign
43 USE modi_get_mesh_dim_lonlat_reg
44 USE modi_get_mesh_dim_lonlatval
45 USE modi_get_mesh_dim_lonlat_rot
51 CHARACTER(LEN=10),
INTENT(IN) :: hgrid
52 INTEGER,
INTENT(IN) :: kgrid_par
53 INTEGER,
INTENT(IN) :: kl
54 REAL,
DIMENSION(KGRID_PAR),
INTENT(IN) :: pgrid_par
55 REAL,
DIMENSION(KL),
INTENT(OUT) :: pdx
56 REAL,
DIMENSION(KL),
INTENT(OUT) :: pdy
57 REAL,
DIMENSION(KL),
INTENT(IN) :: pmeshsize
58 REAL(KIND=JPRB) :: zhook_handle
65 IF (lhook) CALL dr_hook(
'GET_MESH_DIM',0,zhook_handle)
87 pdx(:) = sqrt(pmeshsize)
88 pdy(:) = sqrt(pmeshsize)
91 IF (lhook) CALL dr_hook(
'GET_MESH_DIM',1,zhook_handle)
subroutine get_mesh_dim_gauss(KGRID_PAR, KL, PGRID_PAR, PMESHSIZE, PDX, PDY)
subroutine get_mesh_dim_lonlat_rot(KGRID_PAR, KL, PGRID_PAR, PDX, PDY)
subroutine get_mesh_dim_ign(KGRID_PAR, KL, PGRID_PAR, PDX, PDY)
subroutine get_mesh_dim(HGRID, KGRID_PAR, KL, PGRID_PAR, PDX, PDY, PMESHSIZE)
subroutine get_mesh_dim_lonlat_reg(KGRID_PAR, KL, PGRID_PAR, PDX, PDY)
subroutine get_mesh_dim_conf_proj(KGRID_PAR, KL, PGRID_PAR, PDX, PDY)
subroutine get_mesh_dim_lonlatval(KGRID_PAR, KL, PGRID_PAR, PDX, PDY)