Changeset 1549 for XIOS/trunk/src/generate_fortran_interface.cpp

Timestamp:

06/25/18 12:12:42 (6 years ago)

Author:

oabramkina

Message:

Adding a new domain transformation "domain_extract".

For now it has only the functionalities of zoom.

File:

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

XIOS/trunk/src/generate_fortran_interface.cpp

@@ -36 +36 @@
   CExpandDomain expandDomain;
   CReorderDomain reorderDomain;
+  CExtractDomain extractDomain;
 
   CInterpolateAxis interpolateAxis;
@@ -315 +316 @@
   reorderDomain.generateFortranInterface(file);
 
+  file.open((path+"extract_domain_interface_attr.F90").c_str());
+  extractDomain.generateFortran2003Interface(file);
+  file.close();
+
+  file.open((path+"icextract_domain_attr.cpp").c_str());
+  extractDomain.generateCInterface(file);
+  file.close();
+
+  file.open((path+"iextract_domain_attr.F90").c_str());
+  extractDomain.generateFortranInterface(file);
+
   file.close();