Commits

Gautam Bisht  committed 2b1a398

Added #ifdef SCORPIO_WRITE within WriteHDF5FlowratesUGrid()

  • Participants
  • Parent commits 80f6210

Comments (0)

Files changed (1)

File src/pflotran/output_hdf5.F90

   ugrid => grid%unstructured_grid
   output_option =>realization_base%output_option
 
+#if defined(SCORPIO_WRITE)
+  write(*,*),'SCORPIO_WRITE'
+  option%io_buffer = 'WriteHDF5FlowratesUGrid not supported for SCORPIO_WRITE'
+  call printErrMsg(option)
+#else
   select case(option%iflowmode)
     case (RICHARDS_MODE)
       ndof=1
   call VecDestroy(global_flowrates_vec,ierr)
   call VecDestroy(natural_flowrates_vec,ierr)
   call UGridDMDestroy(ugdm)
+#endif
+! if defined(SCORPIO_WRITE)
   
 end subroutine WriteHDF5FlowratesUGrid