From c9a460929032fbff91d133840c36ade829ea3fc4 Mon Sep 17 00:00:00 2001 From: Pratheek Shanthraj Date: Sat, 22 Sep 2018 12:48:57 +0200 Subject: [PATCH] reading in BCs correctly --- src/DAMASK_FEM.f90 | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/src/DAMASK_FEM.f90 b/src/DAMASK_FEM.f90 index 98471845e..e31eef7f6 100644 --- a/src/DAMASK_FEM.f90 +++ b/src/DAMASK_FEM.f90 @@ -163,6 +163,16 @@ program DAMASK_FEM case(FIELD_MECH_ID) loadCases(i)%fieldBC(field)%nComponents = dimPlex !< X, Y (, Z) displacements allocate(loadCases(i)%fieldBC(field)%componentBC(loadCases(i)%fieldBC(field)%nComponents)) + do component = 1, loadCases(i)%fieldBC(field)%nComponents + select case (component) + case (1) + loadCases(i)%fieldBC(field)%componentBC(component)%ID = COMPONENT_MECH_X_ID + case (2) + loadCases(i)%fieldBC(field)%componentBC(component)%ID = COMPONENT_MECH_Y_ID + case (3) + loadCases(i)%fieldBC(field)%componentBC(component)%ID = COMPONENT_MECH_Z_ID + end select + enddo end select do component = 1, loadCases(i)%fieldBC(field)%nComponents allocate(loadCases(i)%fieldBC(field)%componentBC(component)%Value(mesh_Nboundaries), source = 0.0_pReal)