7 kgrid_par2,kl2,omodif,pgrid_par2 )
47 USE yomhook
,ONLY : lhook, dr_hook
48 USE parkind1
,ONLY : jprb
50 USE modi_regular_grid_spawn
57 INTEGER,
INTENT(IN) :: kluout
58 INTEGER,
INTENT(IN) :: klunam
59 INTEGER,
INTENT(IN) :: kl
60 INTEGER,
INTENT(IN) :: kgrid_par
61 REAL,
DIMENSION(KGRID_PAR),
INTENT(IN) :: pgrid_par
62 INTEGER,
INTENT(INOUT) :: kl2
63 INTEGER,
INTENT(INOUT) :: kgrid_par2
64 LOGICAL,
INTENT(IN) :: omodif
65 REAL,
DIMENSION(KGRID_PAR2),
INTENT(OUT) :: pgrid_par2
75 REAL,
DIMENSION(:),
ALLOCATABLE :: zx1
76 REAL,
DIMENSION(:),
ALLOCATABLE :: zy1
77 REAL,
DIMENSION(:),
ALLOCATABLE :: zdx1
78 REAL,
DIMENSION(:),
ALLOCATABLE :: zdy1
83 REAL,
DIMENSION(:),
ALLOCATABLE :: zx2
84 REAL,
DIMENSION(:),
ALLOCATABLE :: zy2
85 REAL,
DIMENSION(:),
ALLOCATABLE :: zdx2
86 REAL,
DIMENSION(:),
ALLOCATABLE :: zdy2
90 REAL,
DIMENSION(:),
POINTER :: zgrid_par
98 INTEGER :: ixsize = -999
99 INTEGER :: iysize = -999
100 INTEGER :: idxratio = 1
101 INTEGER :: idyratio = 1
102 REAL(KIND=JPRB) :: zhook_handle
105 namelist/nam_inifile_cartesian/ixor,iyor,ixsize,iysize,idxratio,idyratio
112 IF (lhook) CALL dr_hook(
'GRID_MODIF_CARTESIAN',0,zhook_handle)
113 CALL
posnam(klunam,
'NAM_INIFILE_CARTESIAN',gfound,kluout)
114 IF (gfound)
READ(unit=klunam,nml=nam_inifile_cartesian)
135 IF (ixsize==-999) ixsize=iimax1
136 IF (iysize==-999) iysize=ijmax1
145 iimax2=ixsize*idxratio
146 ijmax2=iysize*idyratio
148 kl2 = iimax2 * ijmax2
150 ALLOCATE(zx2(iimax2*ijmax2))
151 ALLOCATE(zy2(iimax2*ijmax2))
152 ALLOCATE(zdx2(iimax2*ijmax2))
153 ALLOCATE(zdy2(iimax2*ijmax2))
156 kl, iimax1,ijmax1,zx1,zy1,zdx1,zdy1, &
157 ixor, iyor, idxratio, idyratio, &
159 kl2, iimax2,ijmax2,zx2,zy2,zdx2,zdy2 )
182 IF (kgrid_par2==0)
THEN
183 kgrid_par2 =
SIZE(zgrid_par)
190 pgrid_par2(:) = zgrid_par
193 DEALLOCATE(zgrid_par)
194 IF (lhook) CALL dr_hook(
'GRID_MODIF_CARTESIAN',1,zhook_handle)
subroutine regular_grid_spawn(KLUOUT, KL1, KIMAX1, KJMAX1, PX1, PY1, PDX1, PDY1, KXOR, KYOR, KDXRATIO, KDYRATIO, KXSIZE, KYSIZE, KL2, KIMAX2, KJMAX2, PX2, PY2, PDX2, PDY2)
subroutine put_gridtype_cartesian(PGRID_PAR, PLAT0, PLON0, KIMAX, KJMAX, PX, PY, PDX, PDY)
subroutine grid_modif_cartesian(KLUOUT, KLUNAM, KGRID_PAR, KL, PGRID_PAR, KGRID_PAR2, KL2, OMODIF, PGRID_PAR2)
subroutine posnam(KULNAM, HDNAML, OFOUND, KLUOUT)
subroutine get_gridtype_cartesian(PGRID_PAR, PLAT0, PLON0, KIMAX, KJMAX, PX, PY, PDX, PDY, KL)