Changeset 2460 for XIOS3/dev/XIOS_ATTACHED/src/generate_fortran_interface.cpp

Timestamp:

01/26/23 16:14:49 (18 months ago)

Author:

ymipsl

Message:

Squeletton to had new transformations : redistribute_domain, redistribute_axis, redistribute_scalar

YM

File:

• XIOS3/dev/XIOS_ATTACHED/src/generate_fortran_interface.cpp (modified) (5 diffs)

XIOS3/dev/XIOS_ATTACHED/src/generate_fortran_interface.cpp

@@ -53 +53 @@
   CDuplicateScalarToAxis duplicateScalarToAxis;
   CReduceScalarToScalar reduceScalarToScalar;
+
+  CRedistributeDomain redistributeDomain ;
+  CRedistributeAxis   redistributeAxis ;
+  CRedistributeScalar redistributeScalar ;
   
   ostringstream oss;
@@ -329 +333 @@
   file.open((path+"ireorder_domain_attr.F90").c_str());
   reorderDomain.generateFortranInterface(file);
+  file.close();
+
+  file.open((path+"iredistribute_domain_attr.F90").c_str());
+  redistributeDomain.generateFortranInterface(file);
   file.close();
   
@@ -410 +418 @@
   file.close();
 
-
   file.open((path+"temporal_splitting_interface_attr.F90").c_str());
   temporalSplitting.generateFortran2003Interface(file);
@@ -435 +442 @@
   duplicateScalarToAxis.generateFortranInterface(file);
   file.close();
+
+  file.open((path+"iredistribute_axis_attr.F90").c_str());
+  redistributeAxis.generateFortranInterface(file);
+  file.close();
+
   /*!
     Scalar transformations
@@ -488 +500 @@
   file.close();
 
+  file.open((path+"iredistribute_scalar_attr.F90").c_str());
+  redistributeScalar.generateFortranInterface(file);
+  file.close();