quad1_long[grid_field(3)%r0(1)]=0.002        ! inner  x
quad1_short[grid_field(3)%r0(1)]=0.002       ! inner  x
quad1_long[grid_field(3)%r0(2)]=0.0            ! inner  y
quad1_short[grid_field(3)%r0(2)]=0.0           ! inner y
quad1_long[grid_field(4)%r0(1)]=0.002        ! bottom x
quad1_short[grid_field(4)%r0(1)]=0.002       ! bottom x
quad1_long[grid_field(4)%r0(2)]=0.0            ! bottom y
quad1_short[grid_field(4)%r0(2)]=0.0           ! bottom y
quad1_long[grid_field(5)%r0(1)]=0.002        ! outer x
quad1_short[grid_field(5)%r0(1)]=0.002       ! outer x
quad1_long[grid_field(5)%r0(2)]=0.0            ! outer y
quad1_short[grid_field(5)%r0(2)]=0.0          ! outer y
quad1_long[grid_field(6)%r0(1)]=0.002       ! top x
quad1_short[grid_field(6)%r0(1)]=0.002      ! top x
quad1_long[grid_field(6)%r0(2)]=0.0           ! top y
quad1_short[grid_field(6)%r0(2)]=0.0          ! top y

quad2_long[grid_field(3)%r0(1)]=0.0
quad2_short[grid_field(3)%r0(1)]=0.0
quad2_long[grid_field(3)%r0(2)]=0.0
quad2_short[grid_field(3)%r0(2)]=0.0
quad2_long[grid_field(4)%r0(1)]=0.0
quad2_short[grid_field(4)%r0(1)]=0.0
quad2_long[grid_field(4)%r0(2)]=0.0
quad2_short[grid_field(4)%r0(2)]=0.0
quad2_long[grid_field(5)%r0(1)]=0.0
quad2_short[grid_field(5)%r0(1)]=0.0
quad2_long[grid_field(5)%r0(2)]=0.0
quad2_short[grid_field(5)%r0(2)]=0.0
quad2_long[grid_field(6)%r0(1)]=0.0
quad2_short[grid_field(6)%r0(1)]=0.0
quad2_long[grid_field(6)%r0(2)]=0.0
quad2_short[grid_field(6)%r0(2)]=0.0

quad3_long[grid_field(3)%r0(1)]=0.0
quad3_short[grid_field(3)%r0(1)]=0.0
quad3_long[grid_field(3)%r0(2)]=0.0
quad3_short[grid_field(3)%r0(2)]=0.0
quad3_long[grid_field(4)%r0(1)]=0.0
quad3_short[grid_field(4)%r0(1)]=0.0
quad3_long[grid_field(4)%r0(2)]=0.0
quad3_short[grid_field(4)%r0(2)]=0.0
quad3_long[grid_field(5)%r0(1)]=0.0
quad3_short[grid_field(5)%r0(1)]=0.0
quad3_long[grid_field(5)%r0(2)]=0.0
quad3_short[grid_field(5)%r0(2)]=0.0
quad3_long[grid_field(6)%r0(1)]=0.0
quad3_short[grid_field(6)%r0(1)]=0.0
quad3_long[grid_field(6)%r0(2)]=0.0
quad3_short[grid_field(6)%r0(2)]=0.0

quad4_long[grid_field(3)%r0(1)]=0.0
quad4_short[grid_field(3)%r0(1)]=0.0
quad4_long[grid_field(3)%r0(2)]=0.0
quad4_short[grid_field(3)%r0(2)]=0.0
quad4_long[grid_field(4)%r0(1)]=0.0
quad4_short[grid_field(4)%r0(1)]=0.0
quad4_long[grid_field(4)%r0(2)]=0.0
quad4_short[grid_field(4)%r0(2)]=0.0
quad4_long[grid_field(5)%r0(1)]=0.0
quad4_short[grid_field(5)%r0(1)]=0.0
quad4_long[grid_field(5)%r0(2)]=0.0
quad4_short[grid_field(5)%r0(2)]=0.0
quad4_long[grid_field(6)%r0(1)]=0.0
quad4_short[grid_field(6)%r0(1)]=0.0
quad4_long[grid_field(6)%r0(2)]=0.0
quad4_short[grid_field(6)%r0(2)]=0.0