42 USE modi_open_namelist
43 USE modi_close_namelist
48 USE yomhook
,ONLY : lhook, dr_hook
49 USE parkind1
,ONLY : jprb
56 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
57 INTEGER,
INTENT(INOUT) :: kgrid_par
58 INTEGER,
INTENT(OUT) :: kl
59 REAL,
DIMENSION(KGRID_PAR),
INTENT(OUT) :: pgrid_par
67 REAL,
DIMENSION(:),
ALLOCATABLE :: zx
68 REAL,
DIMENSION(:),
ALLOCATABLE :: zy
69 REAL,
DIMENSION(:),
ALLOCATABLE :: zdx
70 REAL,
DIMENSION(:),
ALLOCATABLE :: zdy
76 REAL,
DIMENSION(100000) :: xx
77 REAL,
DIMENSION(100000) :: xy
78 REAL,
DIMENSION(100000) :: xdx
79 REAL,
DIMENSION(100000) :: xdy
81 REAL,
DIMENSION(:),
POINTER :: zgrid_par
84 REAL(KIND=JPRB) :: zhook_handle
86 namelist/nam_lonlatval/npoints,xx,xy,xdx,xdy
92 IF (lhook) CALL dr_hook(
'READ_NAM_GRID_LONLATVAL',0,zhook_handle)
102 CALL
posnam(ilunam,
'NAM_LONLATVAL',gfound,iluout)
103 IF (gfound)
READ(unit=ilunam,nml=nam_lonlatval)
151 IF (kgrid_par==0)
THEN
152 kgrid_par =
SIZE(zgrid_par)
159 pgrid_par(:) = zgrid_par
162 DEALLOCATE(zgrid_par)
163 IF (lhook) CALL dr_hook(
'READ_NAM_GRID_LONLATVAL',1,zhook_handle)
subroutine put_gridtype_lonlatval(PGRID_PAR, PX, PY, PDX, PDY)
subroutine read_nam_grid_lonlatval(HPROGRAM, KGRID_PAR, KL, PGRID_PAR)
subroutine close_namelist(HPROGRAM, KLUNAM)
subroutine posnam(KULNAM, HDNAML, OFOUND, KLUOUT)
subroutine get_luout(HPROGRAM, KLUOUT)
subroutine open_namelist(HPROGRAM, KLUNAM, HFILE)