43 USE yomhook
,ONLY : lhook, dr_hook
44 USE parkind1
,ONLY : jprb
48 USE modi_read_nam_grid_cartesian
50 USE modi_read_nam_grid_conf_proj
52 USE modi_read_nam_grid_gauss
54 USE modi_read_nam_grid_ign
56 USE modi_read_nam_grid_lonlat_reg
58 USE modi_read_nam_grid_lonlatval
60 USE modi_read_nam_grid_lonlat_rot
66 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
67 CHARACTER(LEN=10),
INTENT(IN) :: hgrid
68 INTEGER,
INTENT(OUT) :: kgrid_par
69 REAL,
DIMENSION(:),
POINTER :: pgrid_par
70 INTEGER,
INTENT(OUT) :: kl
71 REAL(KIND=JPRB) :: zhook_handle
79 IF (lhook) CALL dr_hook(
'READ_NAM_GRIDTYPE',0,zhook_handle)
85 CASE (
'CONF PROJ ',
'LONLAT REG',
'CARTESIAN ',
'GAUSS ',
'IGN ',
'LONLATVAL ',
'LONLAT ROT')
87 ALLOCATE(pgrid_par(0))
88 IF (hgrid==
'CONF PROJ ')&
90 IF (hgrid==
'CARTESIAN ')&
92 IF (hgrid==
'LONLAT REG')&
98 IF (hgrid==
'LONLATVAL ')&
100 IF (hgrid==
'LONLAT ROT')&
102 DEALLOCATE(pgrid_par)
103 ALLOCATE(pgrid_par(kgrid_par))
104 IF (hgrid==
'CONF PROJ ')&
106 IF (hgrid==
'CARTESIAN ')&
108 IF (hgrid==
'LONLAT REG')&
110 IF (hgrid==
'GAUSS ')&
114 IF (hgrid==
'LONLATVAL ')&
116 IF (hgrid==
'LONLAT ROT')&
127 CALL
abor1_sfx(
'READ_NAM_GRIDTYPE: GRID TYPE NOT SUPPORTED, '//hgrid)
130 IF (lhook) CALL dr_hook(
'READ_NAM_GRIDTYPE',1,zhook_handle)
subroutine read_nam_grid_gauss(HPROGRAM, KGRID_PAR, KL, PGRID_PAR)
subroutine read_nam_grid_lonlatval(HPROGRAM, KGRID_PAR, KL, PGRID_PAR)
subroutine read_nam_grid_lonlat_reg(HPROGRAM, KGRID_PAR, KL, PGRID_PAR)
subroutine abor1_sfx(YTEXT)
subroutine read_nam_grid_conf_proj(HPROGRAM, KGRID_PAR, KL, PGRID_PAR)
subroutine read_nam_gridtype(HPROGRAM, HGRID, KGRID_PAR, PGRID_PAR, KL)
subroutine read_nam_grid_lonlat_rot(HPROGRAM, KGRID_PAR, KL, PGRID_PAR)
subroutine read_nam_grid_cartesian(HPROGRAM, KGRID_PAR, KL, PGRID_PAR)
subroutine read_nam_grid_ign(HPROGRAM, KGRID_PAR, KL, PGRID_PAR)