7 hprogram,kgrid_par,klu,oread,ksize,pgrid_par,kresp,hdir)
47 USE modi_get_xyall_ign
51 USE yomhook
,ONLY : lhook, dr_hook
52 USE parkind1
,ONLY : jprb
63 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
64 INTEGER,
INTENT(INOUT) :: kgrid_par
65 INTEGER,
INTENT(IN) :: klu
66 LOGICAL,
INTENT(IN) :: oread
67 INTEGER,
INTENT(IN) :: ksize
68 REAL,
DIMENSION(KSIZE),
INTENT(OUT) :: pgrid_par
69 INTEGER,
INTENT(OUT) :: kresp
70 CHARACTER(LEN=1),
INTENT(IN) :: hdir
79 REAL,
DIMENSION(KLU) :: zx
80 REAL,
DIMENSION(KLU) :: zy
81 REAL,
DIMENSION(KLU) :: zdx
82 REAL,
DIMENSION(KLU) :: zdy
84 REAL,
DIMENSION(KLU*3) :: zxall
85 REAL,
DIMENSION(KLU*3) :: zyall
90 REAL,
DIMENSION(:),
POINTER :: zgrid_par=>null()
92 REAL(KIND=JPRB) :: zhook_handle
98 IF (lhook) CALL dr_hook(
'READ_GRIDTYPE_IGN',0,zhook_handle)
100 hprogram,
'LAMBERT',ilambert,kresp,hdir=hdir)
108 hprogram,
'XX',zx,kresp,hdir=hdir)
110 hprogram,
'XY',zy,kresp,hdir=hdir)
113 hprogram,
'DX',zdx,kresp,hdir=hdir)
115 hprogram,
'DY',zdy,kresp,hdir=hdir)
125 idimx,idimy,zxall(1:idimx),zyall(1:idimy))
130 idimx,idimy,zxall,zyall)
141 IF (
SIZE(pgrid_par) /=
SIZE(zgrid_par))
THEN
143 WRITE(iluout,*)
'size of PGRID_PAR =',
SIZE(pgrid_par)
144 WRITE(iluout,*)
'size of ZGRID_PAR =',
SIZE(zgrid_par)
145 CALL
abor1_sfx(
'READ_GRIDTYPE_IGN: SIZE OF PGRID_PAR IS NOT CORRECT')
148 pgrid_par = zgrid_par
150 kgrid_par =
SIZE(zgrid_par)
153 DEALLOCATE(zgrid_par)
154 IF (lhook) CALL dr_hook(
'READ_GRIDTYPE_IGN',1,zhook_handle)
subroutine read_gridtype_ign(HPROGRAM, KGRID_PAR, KLU, OREAD, KSIZE, PGRID_PAR, KRESP, HDIR)
subroutine abor1_sfx(YTEXT)
subroutine get_xyall_ign(PX, PY, PDX, PDY, PXALL, PYALL, KDIMX, KDIMY)
subroutine get_luout(HPROGRAM, KLUOUT)
subroutine put_gridtype_ign(PGRID_PAR, KLAMBERT, PX, PY, PDX, PDY, KDIMX, KDIMY, PXALL, PYALL)