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
87 REAL(KIND=JPRB) :: zhook_handle
88 namelist/nam_lonlat_rot/xwest,xsouth,xdlon,xdlat,xpolon,xpolat,nlon,nlat
94 IF (lhook) CALL dr_hook(
'READ_NAM_GRID_LONLAT_ROT',0,zhook_handle)
104 CALL
posnam(ilunam,
'NAM_LONLAT_ROT',gfound,iluout)
105 IF (gfound)
READ(unit=ilunam,nml=nam_lonlat_rot)
125 nlon,nlat,zlon,zlat )
128 xwest,xsouth,xdlon,xdlat,xpolon,xpolat, &
129 nlon,nlat,kl,zlon,zlat )
138 IF (kgrid_par==0)
THEN
139 kgrid_par =
SIZE(zgrid_par)
146 pgrid_par(:) = zgrid_par
149 DEALLOCATE(zgrid_par)
150 IF (lhook) CALL dr_hook(
'READ_NAM_GRID_LONLAT_ROT',1,zhook_handle)
subroutine latlon_lonlat_rot(PWEST, PSOUTH, PDLON, PDLAT, PPOLON, PPOLAT, KLON, KLAT, PLON, PLAT)
subroutine close_namelist(HPROGRAM, KLUNAM)
subroutine posnam(KULNAM, HDNAML, OFOUND, KLUOUT)
subroutine read_nam_grid_lonlat_rot(HPROGRAM, KGRID_PAR, KL, PGRID_PAR)
subroutine get_luout(HPROGRAM, KLUOUT)
subroutine open_namelist(HPROGRAM, KLUNAM, HFILE)
subroutine put_gridtype_lonlat_rot(PGRID_PAR, PWEST, PSOUTH, PDLON, PDLAT, PPOLON, PPOLAT, KLON, KLAT, KL, PLON, PLAT)