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
85 REAL,
DIMENSION(KLU) :: zlon
86 REAL,
DIMENSION(KLU) :: zlat
90 REAL,
DIMENSION(:),
POINTER :: zgrid_par=>null()
92 REAL(KIND=JPRB) :: zhook_handle
98 IF (lhook) CALL dr_hook(
'READ_GRIDTYPE_LONLAT_ROT',0,zhook_handle)
101 hprogram,
'WEST',zwest,kresp,hdir=hdir)
103 hprogram,
'SOUTH',zsouth,kresp,hdir=hdir)
105 hprogram,
'DLON',zdlon,kresp,hdir=hdir)
107 hprogram,
'DLAT',zdlat,kresp,hdir=hdir)
109 hprogram,
'POLON',zpolon,kresp,hdir=hdir)
111 hprogram,
'POLAT',zpolat,kresp,hdir=hdir)
113 hprogram,
'NLON',ilon,kresp,hdir=hdir)
115 hprogram,
'NLAT',ilat,kresp,hdir=hdir)
117 hprogram,
'REG_LON',zlon,kresp,hdir=hdir)
119 hprogram,
'REG_LAT',zlat,kresp,hdir=hdir)
127 zwest,zsouth,zdlon,zdlat,zpolon,zpolat, &
128 ilon,ilat,klu,zlon,zlat )
132 IF (
SIZE(pgrid_par) /=
SIZE(zgrid_par))
THEN
134 WRITE(iluout,*)
'size of PGRID_PAR =',
SIZE(pgrid_par)
135 WRITE(iluout,*)
'size of ZGRID_PAR =',
SIZE(zgrid_par)
136 CALL
abor1_sfx(
'READ_GRIDTYPE_LONLAT_ROT: SIZE OF PGRID_PAR IS NOT CORRECT')
139 pgrid_par = zgrid_par
141 kgrid_par =
SIZE(zgrid_par)
144 DEALLOCATE(zgrid_par)
145 IF (lhook) CALL dr_hook(
'READ_GRIDTYPE_LONLAT_ROT',1,zhook_handle)
subroutine read_gridtype_lonlat_rot(HPROGRAM, KGRID_PAR, KLU, OREAD, KSIZE, PGRID_PAR, KRESP, HDIR)
subroutine abor1_sfx(YTEXT)
subroutine get_luout(HPROGRAM, KLUOUT)
subroutine put_gridtype_lonlat_rot(PGRID_PAR, PWEST, PSOUTH, PDLON, PDLAT, PPOLON, PPOLAT, KLON, KLAT, KL, PLON, PLAT)