From 3705f1d3a2dfa3d44f272d46cd34642797919003 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Thu, 3 Jun 2021 06:48:43 +0200 Subject: [PATCH] F,P, ... in loadcase are 2nd order tensors --- PRIVATE | 2 +- src/grid/DAMASK_grid.f90 | 5 ----- 2 files changed, 1 insertion(+), 6 deletions(-) diff --git a/PRIVATE b/PRIVATE index 5ecf7d74a..4e63593fa 160000 --- a/PRIVATE +++ b/PRIVATE @@ -1 +1 @@ -Subproject commit 5ecf7d74a79da155aed31e776963c7bc10eb9890 +Subproject commit 4e63593fa25bbb296fc734c82aff3353190565f7 diff --git a/src/grid/DAMASK_grid.f90 b/src/grid/DAMASK_grid.f90 index 06cd3d1cb..d1b90c42b 100644 --- a/src/grid/DAMASK_grid.f90 +++ b/src/grid/DAMASK_grid.f90 @@ -41,11 +41,6 @@ program DAMASK_grid integer(kind(FIELD_UNDEFINED_ID)), allocatable :: ID(:) -!-------------------------------------------------------------------------------------------------- -! variables related to information from load case and geom file - real(pReal), dimension(9) :: temp_valueVector !< temporarily from loadcase file when reading in tensors (initialize to 0.0) - logical, dimension(9) :: temp_maskVector !< temporarily from loadcase file when reading in tensors - !-------------------------------------------------------------------------------------------------- ! loop variables, convergence etc. real(pReal), dimension(3,3), parameter :: &