Changeset 7 for trunk/src

Timestamp:

03/07/11 11:49:01 (13 years ago)

Author:

jbrlod

Message:

rst write

Location:

trunk/src

Files:

• sinobad (modified) (previous)
• sinobad.d (modified) (2 diffs)
• sinobad.h (modified) (2 diffs)

trunk/src/sinobad.d

@@ -15 +15 @@
 #HAT_NAME -----------------------------------------HAT_NAME
 hat_name  sinobad
-
+ 
 #OPTION ----------------------------------------------OPTION
 #option o_parallel
@@ -24 +24 @@
 #option   O_DBG_TING
 option  O_EXTOBJ "../object/ncutil.o"
+option O_REAL double
 
 #TRAJECTOIRES (DIM) -----------------------------------TRAJ

trunk/src/sinobad.h

@@ -91 +91 @@
   printf("////////////////////////////////////////////////////////////////////////\n");
   printf("//                       NEMO/YAO PROJECT                             //\n");
-  printf("//                     M. Berrada  02-2009                            //\n");
+  printf("//                     M. Berrada 02-2009                            //\n");
   printf("//                  LOCEAN-IPSL.UPMC (Paris 6)                        //\n");
   printf("//====================================================================//\n");
+
+  //Vérification du type de réel utilisé
+#ifdef YFLOAT
+#ifndef YYFLOAT
+  printf("Incoherent real type between O_REAL option and ncutil.h\n");
+  exit(1);
+#endif
+#endif
+#ifdef YDOUBLE
+#ifndef YYDOUBLE
+  printf("Incoherent real type between O_REAL option and ncutil.h\n");
+  exit(1);
+#endif
+#endif
+
   for (int i=0;i<TA+TU;i++) tniter[i]=0;//nmax;// pour backward de solsor_dynspg_flt.h
   phy_cst();
@@ -844 +859 @@
       int dimid[4];
       strcpy(rest_file,argv[1]);
-      rest_file_id=Ouvre_nc_write(rest_file);
-      write_rst_global_att(rest_file_id);
-      define_dim(rest_file_id,dimid);
-      nc_close( rest_file_id); 
-    }
-}
+      rest_file_id=Ouvre_nc_write(rest_file); //Ouvre le fichier netcds pour l'écriture
+      write_rst_global_att(rest_file_id); //Ecrit les global attributes
+      define_dim(rest_file_id,dimid); //Définit les dimensions
+      write_rst_var(TU,rest_file_id,dimid); //Ecrit les variables
+      nc_close( rest_file_id); //ferme le fichier
+    }
+}