42 USE modi_open_namelist
43 USE modi_close_namelist
49 USE yomhook
,ONLY : lhook, dr_hook
50 USE parkind1
,ONLY : jprb
57 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
58 INTEGER,
INTENT(INOUT) :: kgrid_par
59 INTEGER,
INTENT(OUT) :: kl
60 REAL,
DIMENSION(KGRID_PAR),
INTENT(OUT) :: pgrid_par
68 REAL,
DIMENSION(:),
ALLOCATABLE :: zlat
69 REAL,
DIMENSION(:),
ALLOCATABLE :: zlon
71 REAL,
DIMENSION(:),
POINTER :: zgrid_par
85 REAL(KIND=JPRB) :: zhook_handle
86 namelist/nam_lonlat_reg/xlonmin, xlonmax, xlatmin, xlatmax, nlon, nlat
92 IF (lhook) CALL dr_hook(
'READ_NAM_GRID_LONLAT_REG',0,zhook_handle)
102 CALL
posnam(ilunam,
'NAM_LONLAT_REG',gfound,iluout)
103 IF (gfound)
READ(unit=ilunam,nml=nam_lonlat_reg)
123 nlon,nlat,zlon,zlat )
126 nlon,nlat,kl,zlon,zlat )
135 IF (kgrid_par==0)
THEN
136 kgrid_par =
SIZE(zgrid_par)
143 pgrid_par(:) = zgrid_par
146 DEALLOCATE(zgrid_par)
147 IF (lhook) CALL dr_hook(
'READ_NAM_GRID_LONLAT_REG',1,zhook_handle)
subroutine latlon_lonlat_reg(PLONMIN, PLONMAX, PLATMIN, PLATMAX, KLON, KLAT, PLON, PLAT)
subroutine read_nam_grid_lonlat_reg(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)
subroutine put_gridtype_lonlat_reg(PGRID_PAR, PLONMIN, PLONMAX, PLATMIN, PLATMAX, KLON, KLAT, KL, PLON, PLAT)