7 hprogram,kgrid_par,klu,oread,ksize,pgrid_par,kresp,hdir)
50 USE yomhook
,ONLY : lhook, dr_hook
51 USE parkind1
,ONLY : jprb
62 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
63 INTEGER,
INTENT(INOUT) :: kgrid_par
64 INTEGER,
INTENT(IN) :: klu
65 LOGICAL,
INTENT(IN) :: oread
66 INTEGER,
INTENT(IN) :: ksize
67 REAL,
DIMENSION(KSIZE),
INTENT(OUT) :: pgrid_par
68 INTEGER,
INTENT(OUT) :: kresp
69 CHARACTER(LEN=1),
INTENT(IN) :: hdir
77 REAL,
DIMENSION(KLU) :: zx
78 REAL,
DIMENSION(KLU) :: zy
79 REAL,
DIMENSION(KLU) :: zdx
80 REAL,
DIMENSION(KLU) :: zdy
84 REAL,
DIMENSION(:),
POINTER :: zgrid_par=>null()
86 REAL(KIND=JPRB) :: zhook_handle
92 IF (lhook) CALL dr_hook(
'READ_GRIDTYPE_LONLATVAL',0,zhook_handle)
94 hprogram,
'XX',zx,kresp,hdir=hdir)
96 hprogram,
'XY',zy,kresp,hdir=hdir)
99 hprogram,
'DX',zdx,kresp,hdir=hdir)
101 hprogram,
'DY',zdy,kresp,hdir=hdir)
112 IF (
SIZE(pgrid_par) /=
SIZE(zgrid_par))
THEN
114 WRITE(iluout,*)
'size of PGRID_PAR =',
SIZE(pgrid_par)
115 WRITE(iluout,*)
'size of ZGRID_PAR =',
SIZE(zgrid_par)
116 CALL
abor1_sfx(
'READ_GRIDTYPE_IGN: SIZE OF PGRID_PAR IS NOT CORRECT')
119 pgrid_par = zgrid_par
121 kgrid_par =
SIZE(zgrid_par)
124 DEALLOCATE(zgrid_par)
125 IF (lhook) CALL dr_hook(
'READ_GRIDTYPE_LONLATVAL',1,zhook_handle)
subroutine put_gridtype_lonlatval(PGRID_PAR, PX, PY, PDX, PDY)
subroutine read_gridtype_lonlatval(HPROGRAM, KGRID_PAR, KLU, OREAD, KSIZE, PGRID_PAR, KRESP, HDIR)
subroutine abor1_sfx(YTEXT)
subroutine get_luout(HPROGRAM, KLUOUT)