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

Timestamp:

02/03/14 14:16:20 (10 years ago)

Author:

ymipsl

Message:

Enhancement : user defined global and field attribute can be output in the netcdfcf file.
A variable child element inclosed into a file element will be output as a global file attribute.
A variable child element inclosed into a field element will be output as a field attribute.

+ variable fortran interface added

YM

File:

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

XIOS/trunk/src/generate_fortran_interface.cpp

@@ -18 +18 @@
   CField field;
   CFieldGroup fieldgroup ;
+  CVariable variable;
+  CVariableGroup variablegroup ;
   CDomain domain ;
   CDomainGroup domaingroup ;
@@ -129 +131 @@
 
 
+  file.open((path+"variable_interface_attr.f90").c_str()); 
+  variable.generateFortran2003Interface(file) ;
+  file.close();
+  
+  file.open((path+"icvariable_attr.cpp").c_str()); 
+  variable.generateCInterface(file) ;
+  file.close();
+  
+  file.open((path+"ivariable_attr.F90").c_str()); 
+  variable.generateFortranInterface(file) ;
+  file.close();
+  
+  file.open((path+"variablegroup_interface_attr.f90").c_str()); 
+  variablegroup.generateFortran2003Interface(file) ;
+  file.close();
+  
+  file.open((path+"icvariablegroup_attr.cpp").c_str()); 
+  variablegroup.generateCInterface(file) ;
+  file.close();
+  
+  file.open((path+"ivariablegroup_attr.F90").c_str()); 
+  variablegroup.generateFortranInterface(file) ;
+  file.close();
+
+
+
   file.open((path+"file_interface_attr.f90").c_str()); 
   afile.generateFortran2003Interface(file) ;