trying to use variables as in the DAMASK paper

2019-04-30 22:47:49 +02:00 · 2019-04-30 22:47:49 +02:00 · eb7db3acbd
parent 8a9baf6d78
commit eb7db3acbd
1 changed files with 10 additions and 1 deletions
--- a/src/homogenization_mech_RGC.f90
+++ b/src/homogenization_mech_RGC.f90
@ -1125,7 +1125,16 @@ subroutine mech_RGC_results(instance,group)

  outputsLoop: do o = 1,size(prm%outputID)
    select case(prm%outputID(o))
-
+    
+      case (constitutivework_ID)
+        call results_writeDataset(group,stt%work,'W',&
+                                  'work density','J/m³')
+      case (magnitudemismatch_ID)
+        call results_writeDataset(group,dst%mismatch,'M',&
+                                  'average mismatch tensor','tbd')
+      case (penaltyenergy_ID)
+        call results_writeDataset(group,stt%penaltyEnergy,'R',&
+                                  'mismatch penalty density','tbd')

    end select
  enddo outputsLoop