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 | }}} |