7 hprogram,hgrid,pgrid_par,plat,plon,pmesh_size,kresp,pdir)
47 USE modi_read_gridtype
51 USE yomhook
,ONLY : lhook, dr_hook
52 USE parkind1
,ONLY : jprb
61 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
62 CHARACTER(LEN=10),
INTENT(OUT) :: hgrid
63 REAL,
DIMENSION(:),
POINTER :: pgrid_par
64 REAL,
DIMENSION(:),
INTENT(OUT) :: plat
65 REAL,
DIMENSION(:),
INTENT(OUT) :: plon
66 REAL,
DIMENSION(:),
INTENT(OUT) :: pmesh_size
67 INTEGER,
INTENT(OUT) :: kresp
68 REAL,
DIMENSION(:),
INTENT(OUT),
OPTIONAL :: pdir
76 REAL(KIND=JPRB) :: zhook_handle
82 IF (lhook) CALL dr_hook(
'READ_GRID',0,zhook_handle)
90 hprogram,
'GRID_TYPE',hgrid,kresp)
98 hprogram,hgrid,igrid_par,
SIZE(plat),.false.)
100 ALLOCATE(pgrid_par(igrid_par))
102 hprogram,hgrid,igrid_par,
SIZE(plat),.true.,pgrid_par,kresp)
113 IF (present(pdir)) pdir(:) = 0.
116 hprogram,
'LON', plon,kresp)
117 IF (kresp/=0 .AND. lhook) CALL dr_hook(
'READ_GRID',1,zhook_handle)
120 hprogram,
'LAT', plat,kresp)
121 IF (kresp/=0 .AND. lhook) CALL dr_hook(
'READ_GRID',1,zhook_handle)
124 hprogram,
'MESH_SIZE',pmesh_size,kresp)
125 IF (kresp/=0 .AND. lhook) CALL dr_hook(
'READ_GRID',1,zhook_handle)
129 IF (present(pdir))
THEN
130 CALL
latlon_grid(hgrid,
SIZE(pgrid_par),
SIZE(plat),iluout,pgrid_par,plat,plon,pmesh_size,pdir)
132 CALL
latlon_grid(hgrid,
SIZE(pgrid_par),
SIZE(plat),iluout,pgrid_par,plat,plon,pmesh_size)
137 IF (lassim) lread_all = gread_all
139 IF (lhook) CALL dr_hook(
'READ_GRID',1,zhook_handle)
subroutine read_grid(HPROGRAM, HGRID, PGRID_PAR, PLAT, PLON, PMESH_SIZE, KRESP, PDIR)
subroutine read_gridtype(HPROGRAM, HGRID, KGRID_PAR, KLU, OREAD, PGRID_PAR, KRESP, HDIR)
subroutine latlon_grid(HGRID, KGRID_PAR, KL, KLUOUT, PGRID_PAR, PLAT, PLON, PMESH_SIZE, PDIR)
subroutine get_luout(HPROGRAM, KLUOUT)