Commits

Anonymous committed 2d1ad86

Added output of processor id

  • Participants
  • Parent commits ebed37e

Comments (0)

Files changed (2)

File src/pflotran/init.F90

            realization%output_option%output_variable_list, &
            'Permeability X',OUTPUT_GENERIC,'m^2',PERMEABILITY)
   endif
+  if (realization%output_option%print_iproc) then
+    output_variable => OutputVariableCreate('Processor ID',OUTPUT_DISCRETE,'', &
+                                            PROCESSOR_ID)
+    output_variable%plot_only = PETSC_TRUE ! toggle output off for observation
+    output_variable%iformat = 1 ! integer
+    call OutputVariableAddToList( &
+           realization%output_option%output_variable_list,output_variable)
+  endif
 
   ! write material ids
   output_variable => OutputVariableCreate('Material ID',OUTPUT_DISCRETE,'', &
               output_option%print_final = PETSC_FALSE
             case('NO_INITIAL','NO_PRINT_INITIAL')
               output_option%print_initial = PETSC_FALSE
+            case('PROCESSOR_ID')
+              output_option%print_iproc = PETSC_TRUE
             case('PERMEABILITY')
               output_option%print_permeability = PETSC_TRUE
             case('POROSITY')

File src/pflotran/output_aux.F90

     
     PetscBool :: print_permeability
     PetscBool :: print_porosity
+    PetscBool :: print_iproc
 
     PetscInt :: xmf_vert_len
     
   output_option%plot_name = ""
   output_option%print_permeability = PETSC_FALSE
   output_option%print_porosity = PETSC_FALSE
+  output_option%print_iproc = PETSC_FALSE
   output_option%aveg_var_time = 0.d0
   output_option%aveg_var_dtime = 0.d0