Changeset 932 for XIOS/trunk/src/node/grid.cpp

Timestamp:

09/21/16 14:35:03 (8 years ago)

Author:

mhnguyen

Message:

Adding Fortran interface for high-dimension grid (up to 7)

+) Add check mask for high-dimension grid
+) Add Fortran interface for send_field, recv_field

Test
+) On Curie
+) Work

File:

• XIOS/trunk/src/node/grid.cpp (modified) (2 diffs)

XIOS/trunk/src/node/grid.cpp

@@ -353 +353 @@
           checkGridMask(mask_3d, domainMasks, axisMasks, axis_domain_order);
           break;
-//        case 4:
-//          checkGridMask(mask4, domainMasks, axisMasks, axis_domain_order);
-//          break;
-//        case 5:
-//          checkGridMask(mask5, domainMasks, axisMasks, axis_domain_order);
-//          break;
-//        case 6:
-//          checkGridMask(mask6, domainMasks, axisMasks, axis_domain_order);
-//          break;
-//        case 7:
-//          checkGridMask(mask7, domainMasks, axisMasks, axis_domain_order);
-//          break;
+        case 4:
+          checkGridMask(mask_4d, domainMasks, axisMasks, axis_domain_order);
+          break;
+        case 5:
+          checkGridMask(mask_5d, domainMasks, axisMasks, axis_domain_order);
+          break;
+        case 6:
+          checkGridMask(mask_6d, domainMasks, axisMasks, axis_domain_order);
+          break;
+        case 7:
+          checkGridMask(mask_7d, domainMasks, axisMasks, axis_domain_order);
+          break;
         default:
           break;
@@ -387 +387 @@
           modifyGridMask(mask_3d, indexToModify);
           break;
-
+        case 4:
+          modifyGridMask(mask_1d, indexToModify);
+          break;
+        case 5:
+          modifyGridMask(mask_2d, indexToModify);
+          break;
+        case 6:
+          modifyGridMask(mask_3d, indexToModify);
+          break;
+        case 7:
+          modifyGridMask(mask_3d, indexToModify);
+          break;
         default:
           break;