| 50 | | CALL CreateLayout(GmGlobal, layout) |
| 51 | | CALL LoadLayout(layout, data, 'ISO512') |
| 52 | | layout%level = 2 |
| 53 | | layout%mB(:,1:nDim,:)=layout%mB(:,1:nDim,:)+256 !Shift everything by 256 level 3 cells = 1/4 of the grid |
| 54 | | CALL UnloadFieldFromLayout(layout, data, FieldID, lHydroPeriodic, levels(n)%gmbc(1)) |
| 55 | | CALL DestroyLayout(layout) |
| 56 | | DEALLOCATE(data) |
| | 50 | CALL CreateLayout(GmGlobal, layout) |
| | 51 | CALL LoadLayout(layout, data, 'ISO512') |
| | 52 | layout%level = 2 |
| | 53 | layout%mB(:,1:nDim,:)=layout%mB(:,1:nDim,:)+256 !Shift everything by 256 level 3 cells = 1/4 of the grid |
| | 54 | CALL UnloadFieldFromLayout(layout, data, FieldID, lHydroPeriodic, levels(n)%gmbc(1)) |
| | 55 | CALL DestroyLayout(layout) |
| | 56 | DEALLOCATE(data) |
| | 57 | }}} |