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

Timestamp:

09/25/17 10:59:29 (7 years ago)

Author:

ymipsl

Message:

implement diurnal cycle transformation taken as a grid tranformation : scalar -> axis

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

@@ -41 +41 @@
   CReduceDomainToAxis reduceDomainToAxis;
   CExtractDomainToAxis extractDomainToAxis;
+  CTemporalSplitting temporalSplitting;
 
   CReduceAxisToScalar reduceAxisToScalar;
   CExtractAxisToScalar extractAxisToScalar;
   CReduceDomainToScalar reduceDomainToScalar;
-
+  
   ostringstream oss;
   ofstream file;
@@ -354 +355 @@
   file.close();
 
+  file.open((path+"temporal_splitting_interface_attr.F90").c_str());
+  temporalSplitting.generateFortran2003Interface(file);
+  file.close();
+
   file.open((path+"icextract_domain_to_axis_attr.cpp").c_str());
   extractDomainToAxis.generateCInterface(file);
   file.close();
 
+  file.open((path+"ictemporal_splitting_attr.cpp").c_str());
+  temporalSplitting.generateCInterface(file);
+  file.close();
+
   file.open((path+"iextract_domain_to_axis_attr.F90").c_str());
   extractDomainToAxis.generateFortranInterface(file);
+  file.close();
+
+  file.open((path+"itemporal_splitting_attr.F90").c_str());
+  temporalSplitting.generateFortranInterface(file);
   file.close();
 
@@ -394 +407 @@
   file.close();
 
+  file.open((path+"temporal_splitting_interface_attr.F90").c_str());
+  temporalSplitting.generateFortran2003Interface(file);
+  file.close();
+
   file.open((path+"icreduce_domain_to_scalar_attr.cpp").c_str());
   reduceDomainToScalar.generateCInterface(file);