45 USE modi_open_namelist
46 USE modi_close_namelist
51 USE modi_get_xyall_ign
53 USE yomhook
,ONLY : lhook, dr_hook
54 USE parkind1
,ONLY : jprb
61 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
62 INTEGER,
INTENT(INOUT) :: kgrid_par
63 INTEGER,
INTENT(OUT) :: kl
64 REAL,
DIMENSION(KGRID_PAR),
INTENT(OUT) :: pgrid_par
73 REAL,
DIMENSION(:),
ALLOCATABLE :: zx
74 REAL,
DIMENSION(:),
ALLOCATABLE :: zy
75 REAL,
DIMENSION(:),
ALLOCATABLE :: zdx
76 REAL,
DIMENSION(:),
ALLOCATABLE :: zdy
81 CHARACTER(LEN=3) :: clambert
83 REAL,
DIMENSION(100000) :: xx
84 REAL,
DIMENSION(100000) :: xy
85 REAL,
DIMENSION(100000) :: xdx
86 REAL,
DIMENSION(100000) :: xdy
94 REAL,
DIMENSION(:),
ALLOCATABLE :: zxall
95 REAL,
DIMENSION(:),
ALLOCATABLE :: zyall
99 REAL,
DIMENSION(:),
POINTER :: zgrid_par
101 INTEGER :: jcols, jrows, iindex
103 REAL(KIND=JPRB) :: zhook_handle
105 namelist/nam_ign/clambert,npoints,xx,xy,xdx,xdy, &
106 xx_llcorner, xy_llcorner, xcellsize, &
113 IF (lhook) CALL dr_hook(
'READ_NAM_GRID_IGN',0,zhook_handle)
129 CALL
posnam(ilunam,
'NAM_IGN',gfound,iluout)
130 IF (gfound)
READ(unit=ilunam,nml=nam_ign)
139 IF (xcellsize/=xundef)
THEN
141 WRITE(iluout,*)
'Initialisation of IGN Coordinates for a regular grid'
146 IF ( xx_llcorner/=xundef .AND. xy_llcorner/=xundef &
147 .AND. ncols>0 .AND. nrows>0 )
THEN
149 npoints = ncols * nrows
154 iindex = jcols + (jrows-1) * ncols
155 xx(iindex) = xx_llcorner + (jcols-0.5) * xcellsize
156 xy(iindex) = xy_llcorner + (jrows-0.5) * xcellsize
201 SELECT CASE (clambert)
221 ALLOCATE(zxall(kl*3))
222 ALLOCATE(zyall(kl*3))
231 idimx,idimy,zxall(1:idimx),zyall(1:idimy))
244 IF (kgrid_par==0)
THEN
245 kgrid_par =
SIZE(zgrid_par)
252 pgrid_par(:) = zgrid_par
255 DEALLOCATE(zgrid_par)
256 IF (lhook) CALL dr_hook(
'READ_NAM_GRID_IGN',1,zhook_handle)
subroutine get_xyall_ign(PX, PY, PDX, PDY, PXALL, PYALL, KDIMX, KDIMY)
subroutine close_namelist(HPROGRAM, KLUNAM)
subroutine posnam(KULNAM, HDNAML, OFOUND, KLUOUT)
subroutine get_luout(HPROGRAM, KLUOUT)
subroutine put_gridtype_ign(PGRID_PAR, KLAMBERT, PX, PY, PDX, PDY, KDIMX, KDIMY, PXALL, PYALL)
subroutine open_namelist(HPROGRAM, KLUNAM, HFILE)
subroutine read_nam_grid_ign(HPROGRAM, KGRID_PAR, KL, PGRID_PAR)