7 hprogram,hgrid,kgrid_par,klu,oread,pgrid_par,kresp,hdir)
47 USE yomhook
,ONLY : lhook, dr_hook
48 USE parkind1
,ONLY : jprb
50 USE modi_read_gridtype_cartesian
52 USE modi_read_gridtype_conf_proj
54 USE modi_read_gridtype_gauss
56 USE modi_read_gridtype_ign
58 USE modi_read_gridtype_lonlat_reg
60 USE modi_read_gridtype_lonlatval
62 USE modi_read_gridtype_lonlat_rot
70 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
71 CHARACTER(LEN=10),
INTENT(IN) :: hgrid
72 INTEGER,
INTENT(INOUT) :: kgrid_par
73 INTEGER,
INTENT(IN) :: klu
74 LOGICAL,
INTENT(IN) :: oread
75 REAL,
DIMENSION(:),
OPTIONAL,
INTENT(OUT) :: pgrid_par
76 INTEGER,
OPTIONAL,
INTENT(OUT) :: kresp
77 CHARACTER(LEN=1),
OPTIONAL,
INTENT(IN) :: hdir
82 REAL,
DIMENSION(:),
ALLOCATABLE :: zgrid_par
85 CHARACTER(LEN=1) :: ydir
86 REAL(KIND=JPRB) :: zhook_handle
90 IF (lhook) CALL dr_hook(
'READ_GRIDTYPE',0,zhook_handle)
97 IF (present(hdir))
THEN
103 ALLOCATE(zgrid_par(igrid_par))
107 DEALLOCATE(zgrid_par)
108 IF (lhook) CALL dr_hook(
'READ_GRIDTYPE',1,zhook_handle)
113 hprogram,kgrid_par,klu,oread,igrid_par,zgrid_par,iresp,ydir)
117 hprogram,kgrid_par,klu,oread,igrid_par,zgrid_par,iresp,ydir)
121 hprogram,kgrid_par,klu,oread,igrid_par,zgrid_par,iresp,ydir)
125 hprogram,kgrid_par,klu,oread,igrid_par,zgrid_par,iresp,ydir)
129 hprogram,kgrid_par,klu,oread,igrid_par,zgrid_par,iresp,ydir)
133 hprogram,kgrid_par,klu,oread,igrid_par,zgrid_par,iresp,ydir)
137 hprogram,kgrid_par,klu,oread,igrid_par,zgrid_par,iresp,ydir)
141 IF (oread) pgrid_par = zgrid_par
143 IF (present(kresp)) kresp = iresp
145 DEALLOCATE(zgrid_par)
146 IF (lhook) CALL dr_hook(
'READ_GRIDTYPE',1,zhook_handle)
subroutine read_gridtype_lonlat_reg(HPROGRAM, KGRID_PAR, KLU, OREAD, KSIZE, PGRID_PAR, KRESP, HDIR)
subroutine read_gridtype_conf_proj(HPROGRAM, KGRID_PAR, KLU, OREAD, KSIZE, PGRID_PAR, KRESP, HDIR)
subroutine read_gridtype(HPROGRAM, HGRID, KGRID_PAR, KLU, OREAD, PGRID_PAR, KRESP, HDIR)
subroutine read_gridtype_lonlat_rot(HPROGRAM, KGRID_PAR, KLU, OREAD, KSIZE, PGRID_PAR, KRESP, HDIR)
subroutine read_gridtype_ign(HPROGRAM, KGRID_PAR, KLU, OREAD, KSIZE, PGRID_PAR, KRESP, HDIR)
subroutine read_gridtype_lonlatval(HPROGRAM, KGRID_PAR, KLU, OREAD, KSIZE, PGRID_PAR, KRESP, HDIR)
subroutine read_gridtype_gauss(HPROGRAM, KGRID_PAR, KLU, OREAD, KSIZE, PGRID_PAR, KRESP, HDIR)
subroutine read_gridtype_cartesian(HPROGRAM, KGRID_PAR, KLU, OREAD, KSIZE, PGRID_PAR, KRESP, HDIR)