quad1_long[grid_field(3)%r0(1)]= 0.0 !inner x quad1_long[grid_field(4)%r0(2)]= 0.0 !inner x quad1_long[grid_field(5)%r0(1)]= 0.0 !inner y quad1_long[grid_field(6)%r0(2)]= 0.0 ! inner y quad1_short[grid_field(3)%r0(1)]= 0.0 ! bottom x quad1_short[grid_field(4)%r0(2)]= 0.0 !bottom x quad1_short[grid_field(5)%r0(1)]= 0.0 !bottom y quad1_short[grid_field(6)%r0(2)]= 0.0 !bottom y quad2_long[grid_field(3)%r0(1)]= 0.0 ! outer x quad2_long[grid_field(4)%r0(2)]= 0.0 !outer x quad2_long[grid_field(5)%r0(1)]= 0.0 !outer y quad2_long[grid_field(6)%r0(2)]= 0.0 !outer y quad2_short[grid_field(3)%r0(1)]= 0.0 !top x quad2_short[grid_field(4)%r0(2)]= 0.0 ! top x quad2_short[grid_field(5)%r0(1)]= 0.0 ! top y quad2_short[grid_field(6)%r0(2)]= 0.0 ! top y quad3_long[grid_field(3)%r0(1)]= 0.0 quad3_long[grid_field(4)%r0(2)]= 0.0 quad3_long[grid_field(5)%r0(1)]= 0.0 quad3_long[grid_field(6)%r0(2)]= 0.0 quad3_short[grid_field(3)%r0(1)]= 0.0 quad3_short[grid_field(4)%r0(2)]= 0.0 quad3_short[grid_field(5)%r0(1)]= 0.0 quad3_short[grid_field(6)%r0(2)]= 0.0 quad4_long[grid_field(3)%r0(1)]= 0.0 quad4_long[grid_field(4)%r0(2)]= 0.0 quad4_long[grid_field(5)%r0(1)]= 0.0 quad4_long[grid_field(6)%r0(2)]= 0.0 quad4_short[grid_field(3)%r0(1)]= 0.0 quad4_short[grid_field(4)%r0(2)]= 0.0 quad4_short[grid_field(5)%r0(1)]= 0.0 quad4_short[grid_field(6)%r0(2)]= 0.0