fix mem error

ESMCI · Jun 9, 2020 · 1c448af · 1c448af
1 parent 038b3a7
commit 1c448af
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 2 deletions.
diff --git a/src/clib/pio_darray.c b/src/clib/pio_darray.c
@@ -988,8 +988,19 @@ PIOc_read_darray(int ncid, int varid, int ioid, PIO_Offset arraylen,
     {
         if (!(tmparray = malloc(iodesc->piotype_size * iodesc->maplen)))
             return pio_err(ios, NULL, PIO_ENOMEM, __FILE__, __LINE__);
-        for (int m = 0; m < iodesc->maplen; m++)
+	if(iodesc->piotype_size == 1){
+	  for (int m = 0; m < iodesc->maplen; m++)
+            ((signed char *)array)[m] = -1;
+	}else if(iodesc->piotype_size == 2){
+	  for (int m = 0; m < iodesc->maplen; m++)
+            ((short *)array)[m] = -1;
+	}else if(iodesc->piotype_size == 4){
+	  for (int m = 0; m < iodesc->maplen; m++)
             ((int *)array)[m] = -1;
+	}else if(iodesc->piotype_size == 8){
+	  for (int m = 0; m < iodesc->maplen; m++)
+            ((double *)array)[m] = -1;
+	}
     }
     else
         tmparray = array;

diff --git a/src/flib/piodarray.F90.in b/src/flib/piodarray.F90.in
@@ -309,7 +309,6 @@ contains
   !<
   subroutine read_darray_{DIMS}d_{TYPE} (File,varDesc, ioDesc, array, iostat)
     use iso_c_binding
-!    use ifcore, only: tracebackqq
 
     type (File_desc_t), intent(inout) :: &
          File                   ! file information