7 hprogram,kgrid_par,klu,oread,ksize,pgrid_par,kresp,hdir)
49 USE yomhook
,ONLY : lhook, dr_hook
50 USE parkind1
,ONLY : jprb
61 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
62 INTEGER,
INTENT(INOUT) :: kgrid_par
63 INTEGER,
INTENT(IN) :: klu
64 LOGICAL,
INTENT(IN) :: oread
65 INTEGER,
INTENT(IN) :: ksize
66 REAL,
DIMENSION(KSIZE),
INTENT(OUT) :: pgrid_par
67 INTEGER,
INTENT(OUT) :: kresp
68 CHARACTER(LEN=1),
INTENT(IN) :: hdir
88 REAL,
DIMENSION(KLU) :: zx
89 REAL,
DIMENSION(KLU) :: zy
90 REAL,
DIMENSION(KLU) :: zdx
91 REAL,
DIMENSION(KLU) :: zdy
95 REAL,
DIMENSION(:),
POINTER :: zgrid_par=>null()
97 REAL(KIND=JPRB) :: zhook_handle
103 IF (lhook) CALL dr_hook(
'READ_GRIDTYPE_CONF_PROJ',0,zhook_handle)
106 hprogram,
'LAT0',zlat0,kresp,hdir=hdir)
108 hprogram,
'LON0',zlon0,kresp,hdir=hdir)
110 hprogram,
'RPK ',zrpk, kresp,hdir=hdir)
112 hprogram,
'BETA',zbeta,kresp,hdir=hdir)
120 hprogram,
'LATORI',zlatori,kresp,hdir=hdir)
122 hprogram,
'LONORI',zlonori,kresp,hdir=hdir)
124 hprogram,
'IMAX ',iimax, kresp,hdir=hdir)
126 hprogram,
'JMAX ',ijmax, kresp,hdir=hdir)
129 hprogram,
'XX',zx,kresp,hdir=hdir)
131 hprogram,
'YY',zy,kresp,hdir=hdir)
134 hprogram,
'DX',zdx,kresp,hdir=hdir)
136 hprogram,
'DY',zdy,kresp,hdir=hdir)
144 zlatori,zlonori,iimax,ijmax, &
149 IF (
SIZE(pgrid_par) /=
SIZE(zgrid_par))
THEN
151 WRITE(iluout,*)
'size of PGRID_PAR =',
SIZE(pgrid_par)
152 WRITE(iluout,*)
'size of ZGRID_PAR =',
SIZE(zgrid_par)
153 CALL
abor1_sfx(
'READ_GRIDTYPE_CONF_PROJ: SIZE OF PGRID_PAR IS NOT CORRECT')
156 pgrid_par = zgrid_par
158 kgrid_par =
SIZE(zgrid_par)
161 DEALLOCATE(zgrid_par)
162 IF (lhook) CALL dr_hook(
'READ_GRIDTYPE_CONF_PROJ',1,zhook_handle)
subroutine read_gridtype_conf_proj(HPROGRAM, KGRID_PAR, KLU, OREAD, KSIZE, PGRID_PAR, KRESP, HDIR)
subroutine put_gridtype_conf_proj(PGRID_PAR, PLAT0, PLON0, PRPK, PBETA, PLATOR, PLONOR, KIMAX, KJMAX, PX, PY, PDX, PDY)
subroutine abor1_sfx(YTEXT)
subroutine get_luout(HPROGRAM, KLUOUT)