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(OUT) :: hdir
79 REAL,
DIMENSION(KLU) :: zx
80 REAL,
DIMENSION(KLU) :: zy
81 REAL,
DIMENSION(KLU) :: zdx
82 REAL,
DIMENSION(KLU) :: zdy
86 REAL,
DIMENSION(:),
POINTER :: zgrid_par=>null()
88 REAL(KIND=JPRB) :: zhook_handle
91 IF (lhook) CALL dr_hook(
'READ_GRIDTYPE_CARTESIAN',0,zhook_handle)
93 hprogram,
'LAT0',zlat0,kresp,hdir=hdir)
95 hprogram,
'LON0',zlon0,kresp,hdir=hdir)
98 hprogram,
'IMAX ',iimax, kresp,hdir=hdir)
100 hprogram,
'JMAX ',ijmax, kresp,hdir=hdir)
103 hprogram,
'XX',zx,kresp,hdir=hdir)
105 hprogram,
'YY',zy,kresp,hdir=hdir)
108 hprogram,
'DX',zdx,kresp,hdir=hdir)
110 hprogram,
'DY',zdy,kresp,hdir=hdir)
123 IF (
SIZE(pgrid_par) /=
SIZE(zgrid_par))
THEN
125 WRITE(iluout,*)
'size of PGRID_PAR =',
SIZE(pgrid_par)
126 WRITE(iluout,*)
'size of ZGRID_PAR =',
SIZE(zgrid_par)
127 CALL
abor1_sfx(
'READ_GRIDTYPE_CARTESIAN: SIZE OF PGRID_PAR IS NOT CORRECT')
130 pgrid_par = zgrid_par
132 kgrid_par =
SIZE(zgrid_par)
135 DEALLOCATE(zgrid_par)
136 IF (lhook) CALL dr_hook(
'READ_GRIDTYPE_CARTESIAN',1,zhook_handle)
subroutine put_gridtype_cartesian(PGRID_PAR, PLAT0, PLON0, KIMAX, KJMAX, PX, PY, PDX, PDY)
subroutine abor1_sfx(YTEXT)
subroutine get_luout(HPROGRAM, KLUOUT)
subroutine read_gridtype_cartesian(HPROGRAM, KGRID_PAR, KLU, OREAD, KSIZE, PGRID_PAR, KRESP, HDIR)