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
83 REAL,
DIMENSION(KLU) :: zlon
84 REAL,
DIMENSION(KLU) :: zlat
88 REAL,
DIMENSION(:),
POINTER :: zgrid_par=>null()
90 REAL(KIND=JPRB) :: zhook_handle
96 IF (lhook) CALL dr_hook(
'READ_GRIDTYPE_LONLAT_REG',0,zhook_handle)
98 hprogram,
'LONMIN',zlonmin,kresp,hdir=hdir)
100 hprogram,
'LONMAX',zlonmax,kresp,hdir=hdir)
102 hprogram,
'LATMIN',zlatmin,kresp,hdir=hdir)
104 hprogram,
'LATMAX',zlatmax,kresp,hdir=hdir)
106 hprogram,
'NLON',ilon,kresp,hdir=hdir)
108 hprogram,
'NLAT',ilat,kresp,hdir=hdir)
110 hprogram,
'REG_LON',zlon,kresp,hdir=hdir)
112 hprogram,
'REG_LAT',zlat,kresp,hdir=hdir)
120 zlatmin,zlatmax,ilon,ilat,klu,zlon,zlat )
124 IF (
SIZE(pgrid_par) /=
SIZE(zgrid_par))
THEN
126 WRITE(iluout,*)
'size of PGRID_PAR =',
SIZE(pgrid_par)
127 WRITE(iluout,*)
'size of ZGRID_PAR =',
SIZE(zgrid_par)
128 CALL
abor1_sfx(
'READ_GRIDTYPE_LONLAT_REG: SIZE OF PGRID_PAR IS NOT CORRECT')
131 pgrid_par = zgrid_par
133 kgrid_par =
SIZE(zgrid_par)
136 DEALLOCATE(zgrid_par)
137 IF (lhook) CALL dr_hook(
'READ_GRIDTYPE_LONLAT_REG',1,zhook_handle)
subroutine read_gridtype_lonlat_reg(HPROGRAM, KGRID_PAR, KLU, OREAD, KSIZE, PGRID_PAR, KRESP, HDIR)
subroutine abor1_sfx(YTEXT)
subroutine get_luout(HPROGRAM, KLUOUT)
subroutine put_gridtype_lonlat_reg(PGRID_PAR, PLONMIN, PLONMAX, PLATMIN, PLATMAX, KLON, KLAT, KL, PLON, PLAT)