Changeset 1301 for XIOS/dev/XIOS_DEV_CMIP6/src/generate_fortran_interface.cpp

Timestamp:

10/09/17 10:14:24 (7 years ago)

Author:

ymipsl

Message:

Add new transformation : reduce axis_to_axis
This a global reduction implying all process whih own the same source axis global point.

YM

File:

• XIOS/dev/XIOS_DEV_CMIP6/src/generate_fortran_interface.cpp (modified) (3 diffs)

XIOS/dev/XIOS_DEV_CMIP6/src/generate_fortran_interface.cpp

@@ -40 +40 @@
   CInverseAxis inverseAxis;
   CReduceDomainToAxis reduceDomainToAxis;
+  CReduceAxisToAxis reduceAxisToAxis;
   CExtractDomainToAxis extractDomainToAxis;
   CTemporalSplitting temporalSplitting;
@@ -342 +343 @@
   reduceDomainToAxis.generateFortran2003Interface(file);
   file.close();
+ 
+  file.open((path+"reduce_domain_to_axis_interface_attr.F90").c_str());
+  reduceDomainToAxis.generateFortran2003Interface(file);
+  file.close();
 
   file.open((path+"icreduce_domain_to_axis_attr.cpp").c_str());
@@ -349 +354 @@
   file.open((path+"ireduce_domain_to_axis_attr.F90").c_str());
   reduceDomainToAxis.generateFortranInterface(file);
+  file.close();
+
+  file.open((path+"reduce_axis_to_axis_interface_attr.F90").c_str());
+  reduceAxisToAxis.generateFortran2003Interface(file);
+  file.close();
+ 
+  file.open((path+"reduce_axis_to_axis_interface_attr.F90").c_str());
+  reduceAxisToAxis.generateFortran2003Interface(file);
+  file.close();
+
+  file.open((path+"icreduce_axis_to_axis_attr.cpp").c_str());
+  reduceAxisToAxis.generateCInterface(file);
+  file.close();
+
+  file.open((path+"ireduce_axis_to_axis_attr.F90").c_str());
+  reduceAxisToAxis.generateFortranInterface(file);
   file.close();