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
70 REAL,
DIMENSION(:),
ALLOCATABLE :: zx
71 REAL,
DIMENSION(:),
ALLOCATABLE :: zy
72 REAL,
DIMENSION(:),
ALLOCATABLE :: zdx
73 REAL,
DIMENSION(:),
ALLOCATABLE :: zdy
85 REAL,
DIMENSION(:),
POINTER :: zgrid_par
88 REAL(KIND=JPRB) :: zhook_handle
90 namelist/nam_cartesian/xlat0, xlon0, nimax, njmax, xdx, xdy
96 IF (lhook) CALL dr_hook(
'READ_NAM_GRID_CARTESIAN',0,zhook_handle)
106 CALL
posnam(ilunam,
'NAM_CARTESIAN',gfound,iluout)
107 IF (gfound)
READ(unit=ilunam,nml=nam_cartesian)
128 jl = ji + (jj-1) * nimax
129 zx(jl) = float(ji) * xdx
130 zy(jl) = float(jj) * xdy
162 IF (kgrid_par==0)
THEN
163 kgrid_par =
SIZE(zgrid_par)
170 pgrid_par(:) = zgrid_par
173 DEALLOCATE(zgrid_par)
174 IF (lhook) CALL dr_hook(
'READ_NAM_GRID_CARTESIAN',1,zhook_handle)
subroutine put_gridtype_cartesian(PGRID_PAR, PLAT0, PLON0, KIMAX, KJMAX, PX, PY, PDX, PDY)
subroutine close_namelist(HPROGRAM, KLUNAM)
subroutine posnam(KULNAM, HDNAML, OFOUND, KLUOUT)
subroutine get_luout(HPROGRAM, KLUOUT)
subroutine read_nam_grid_cartesian(HPROGRAM, KGRID_PAR, KL, PGRID_PAR)
subroutine open_namelist(HPROGRAM, KLUNAM, HFILE)