add timers to break down free

Author: Jonathanlyj

src/drivers/ncmpio/ncmpio_close.c

@@ -217,7 +217,7 @@ ncmpio_close(void *ncdp)
                 MPI_File_seek(fh, 0, MPI_SEEK_END);
                 MPI_File_get_position(fh, &file_size);
                 /* truncate file size to header size, if larger than header */
-                if (file_size > ncp->xsz} {
+                if (file_size > ncp->xsz) {
                     mpireturn = MPI_File_set_size(fh, ncp->xsz);
                     if (mpireturn != MPI_SUCCESS) {
                         err = ncmpii_error_mpi2nc(mpireturn,"MPI_File_set_size");

src/drivers/ncmpio/ncmpio_dim.c

@@ -120,15 +120,19 @@ ncmpio_free_NC_dimarray(NC_dimarray *ncap)
     int i;
 
     assert(ncap != NULL);
-    // double start_time;
-    // double free_dim_array_time;
-    // double free_dim_extra_time;
-    // double free_dim_hash_time;
+    double start_time;
+    double free_dim_array_time;
+    double free_dim_hash_time;
+    start_time = MPI_Wtime();
+    int hash_size = ncap->hash_size;
+    int ndefined = ncap->ndefined;
+    int rank;
+    MPI_Comm_rank(MPI_COMM_WORLD, &rank);
     if (ncap->value != NULL) {
         /* when error is detected reading NC_DIMENSION tag, ncap->ndefined can
          * be > 0 and ncap->value is still NULL
          */
-        // start_time = MPI_Wtime();
+        
         for (i=0; i<ncap->ndefined; i++) {
             /* when error is detected reading dimension i, ncap->value[i] can
              * still be NULL
@@ -138,11 +142,12 @@ ncmpio_free_NC_dimarray(NC_dimarray *ncap)
             NCI_Free(ncap->value[i]);
         }
         NCI_Free(ncap->value);
-        // free_dim_array_time = MPI_Wtime() - start_time;
+        
 
     }
+    free_dim_array_time = MPI_Wtime() - start_time;
     ncap->ndefined = 0;
-    // start_time = MPI_Wtime();
+    start_time = MPI_Wtime();
 #ifndef SEARCH_NAME_LINEARLY
     /* free space allocated for dim name lookup table */
     if (ncap->nameT != NULL) {
@@ -152,8 +157,9 @@ ncmpio_free_NC_dimarray(NC_dimarray *ncap)
         ncap->hash_size = 0;
     }
 #endif
-    // free_dim_hash_time = MPI_Wtime() - start_time;
-    // printf("free_dim_array_time: %f, free_dim_hash_time: %f\n", free_dim_array_time, free_dim_hash_time);
+    free_dim_hash_time = MPI_Wtime() - start_time;
+    if (rank == 0)
+        printf("free_dim_array_time (%d dims): %f, free_dim_hash_time (%d hash size): %f\n", ndefined, free_dim_array_time, hash_size, free_dim_hash_time);
 }
 
 /*----< ncmpio_dup_NC_dimarray() >-------------------------------------------*/