Ignore:
Timestamp:
09/21/16 14:35:03 (5 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:
1 edited

Legend:

Unmodified
Added
Removed
  • XIOS/trunk/src/node/grid.cpp

    r927 r932  
    353353          checkGridMask(mask_3d, domainMasks, axisMasks, axis_domain_order); 
    354354          break; 
    355 //        case 4: 
    356 //          checkGridMask(mask4, domainMasks, axisMasks, axis_domain_order); 
    357 //          break; 
    358 //        case 5: 
    359 //          checkGridMask(mask5, domainMasks, axisMasks, axis_domain_order); 
    360 //          break; 
    361 //        case 6: 
    362 //          checkGridMask(mask6, domainMasks, axisMasks, axis_domain_order); 
    363 //          break; 
    364 //        case 7: 
    365 //          checkGridMask(mask7, domainMasks, axisMasks, axis_domain_order); 
    366 //          break; 
     355        case 4: 
     356          checkGridMask(mask_4d, domainMasks, axisMasks, axis_domain_order); 
     357          break; 
     358        case 5: 
     359          checkGridMask(mask_5d, domainMasks, axisMasks, axis_domain_order); 
     360          break; 
     361        case 6: 
     362          checkGridMask(mask_6d, domainMasks, axisMasks, axis_domain_order); 
     363          break; 
     364        case 7: 
     365          checkGridMask(mask_7d, domainMasks, axisMasks, axis_domain_order); 
     366          break; 
    367367        default: 
    368368          break; 
     
    387387          modifyGridMask(mask_3d, indexToModify); 
    388388          break; 
    389  
     389        case 4: 
     390          modifyGridMask(mask_1d, indexToModify); 
     391          break; 
     392        case 5: 
     393          modifyGridMask(mask_2d, indexToModify); 
     394          break; 
     395        case 6: 
     396          modifyGridMask(mask_3d, indexToModify); 
     397          break; 
     398        case 7: 
     399          modifyGridMask(mask_3d, indexToModify); 
     400          break; 
    390401        default: 
    391402          break; 
Note: See TracChangeset for help on using the changeset viewer.