Changes in / [1:3]

Location:

/trunk/src

Files:

• . (modified) (1 prop)
• Yworkdir (modified) (1 prop)
• Yworkdir/Y2sinobad.h (modified) (1 diff)
• Yworkdir/Ysinobad.cpp (modified) (1 diff)
• sinobad (modified) (previous)
• sinobad.d (modified) (1 diff)
• sinobad.h (modified) (3 diffs)

/trunk/src/Yworkdir/Y2sinobad.h

@@ -24092 +24092 @@
          else if (strcmp(argv[0], "true_target_in_tab") == 0)
                  true_target_in_tab(argc, argv);
+         else if (strcmp(argv[0], "xrst_save") == 0)
+                 xrst_save(argc, argv);
          else codret=0;
          return(codret);

/trunk/src/Yworkdir/Ysinobad.cpp

@@ -561 +561 @@
 #include "Y2sinobad.h" 
 #define PRJNAME  "sinobad" 
-#define VERREF   "YaoI V.9 01.11.2008 (release 01.11.2008)  -O3 " 
+#define VERREF   "YaoI V.9 01.11.2008 (release 01.11.2008)  " 
 
 //=============================================================================

/trunk/src/sinobad.d

@@ -788 +788 @@
 insert_fct  arg xistate_init
 insert_fct  arg true_target_in_tab
+insert_fct  arg xrst_save
 #insert_fct  arg load_shape_func
 #insert_fct  arg load_stdev_pca

/trunk/src/sinobad.h

@@ -81 +81 @@
 void xsolmat_init();
 void xistate_init(int argc, char *argv[]);
+void xrst_save(int argc, char *argv[]);
 
 //////////////////////////////////////////////////////////////
@@ -458 +459 @@
     }*/
 }
-
 //_____________________________________________________________________________
 void xtraqsr_init(){// init of solar radiation penetration
@@ -832 +832 @@
 
 
-
+void xrst_save(int argc, char *argv[]) {
+  if (argc!=2)
+    {
+      printf("\ncf file for saving restart not specified in command xrst_save\n");
+      exit(1);
+    }
+  else
+    {
+      char rest_file[200];
+      int rest_file_id;
+      strcpy(rest_file,argv[1]);
+      rest_file_id=Ouvre_nc_write(rest_file);
+      write_rst_global_att(rest_file_id);
+      nc_close( rest_file_id); 
+    }
+}