43 USE modi_open_namelist
44 USE modi_close_namelist
50 USE yomhook
,ONLY : lhook, dr_hook
51 USE parkind1
,ONLY : jprb
58 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
59 INTEGER,
INTENT(INOUT) :: kgrid_par
60 INTEGER,
INTENT(OUT) :: kl
61 REAL,
DIMENSION(KGRID_PAR),
INTENT(OUT) :: pgrid_par
71 REAL,
DIMENSION(:),
ALLOCATABLE :: zx
72 REAL,
DIMENSION(:),
ALLOCATABLE :: zy
73 REAL,
DIMENSION(:),
ALLOCATABLE :: zdx
74 REAL,
DIMENSION(:),
ALLOCATABLE :: zdy
75 REAL,
DIMENSION(1) :: zxor
76 REAL,
DIMENSION(1) :: zyor
77 REAL,
DIMENSION(1) :: zlator
78 REAL,
DIMENSION(1) :: zlonor
99 REAL,
DIMENSION(:),
POINTER :: zgrid_par
102 REAL(KIND=JPRB) :: zhook_handle
104 namelist/nam_conf_proj/xlat0, xlon0, xrpk, xbeta
105 namelist/nam_conf_proj_grid/nimax,njmax,xlatcen,xloncen,xdx,xdy
111 IF (lhook) CALL dr_hook(
'READ_NAM_GRID_CONF_PROJ',0,zhook_handle)
121 CALL
posnam(ilunam,
'NAM_CONF_PROJ',gfound,iluout)
122 IF (gfound)
READ(unit=ilunam,nml=nam_conf_proj)
129 CALL
posnam(ilunam,
'NAM_CONF_PROJ_GRID',gfound,iluout)
130 IF (gfound)
READ(unit=ilunam,nml=nam_conf_proj_grid)
151 jl = ji + (jj-1) * nimax
152 zx(jl) = float(ji) * xdx
153 zy(jl) = float(jj) * xdy
176 zxor = - float(nimax+1)/2.*xdx
177 zyor = - float(njmax+1)/2.*xdy
180 zxor,zyor,zlator,zlonor )
190 zlator(1),zlonor(1),nimax,njmax, &
202 IF (kgrid_par==0)
THEN
203 kgrid_par =
SIZE(zgrid_par)
210 pgrid_par(:) = zgrid_par
213 DEALLOCATE(zgrid_par)
214 IF (lhook) CALL dr_hook(
'READ_NAM_GRID_CONF_PROJ',1,zhook_handle)
subroutine put_gridtype_conf_proj(PGRID_PAR, PLAT0, PLON0, PRPK, PBETA, PLATOR, PLONOR, KIMAX, KJMAX, PX, PY, PDX, PDY)
subroutine latlon_conf_proj(PLAT0, PLON0, PRPK, PBETA, PLATOR, PLONOR, PX, PY, PLAT, PLON)
subroutine read_nam_grid_conf_proj(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)