223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

cleaned up compilation for FEM

This commit is contained in:
Pratheek Shanthraj 2014-10-10 08:40:59 +00:00
parent 039b244359
commit 885a71c0b7
3 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
code/IO.f90
View File

@ -103,7 +103,7 @@ contains
subroutine IO_init
use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment)
#ifdef FEM
#include <finclude/petsc.h90>
#include <finclude/petscsys.h>
PetscInt :: worldrank
PetscErrorCode :: ierr
#endif

4
code/constitutive.f90
View File

@ -180,7 +180,7 @@ subroutine constitutive_init
! parse thermal from config file
if (.not. IO_open_jobFile_stat(FILEUNIT,material_localFileExt)) & ! no local material configuration present...
call IO_open_file(FILEUNIT,material_configFile) ! ... open material.config file
if (any(phase_thermal == LOCAL_THERMAL_ISOTHERMAL_ID)) call thermal_isothermal_init(FILEUNIT)
if (any(phase_thermal == LOCAL_THERMAL_isothermal_ID)) call thermal_isothermal_init(FILEUNIT)
if (any(phase_thermal == LOCAL_THERMAL_adiabatic_ID)) call thermal_adiabatic_init(FILEUNIT)
close(FILEUNIT)
@ -945,7 +945,7 @@ function constitutive_getAdiabaticTemperature(ipc, ip, el)
real(pReal) :: constitutive_getAdiabaticTemperature
select case (phase_thermal(material_phase(ipc,ip,el)))
case (LOCAL_THERMAL_ISOTHERMAL_ID)
case (LOCAL_THERMAL_isothermal_ID)
constitutive_getAdiabaticTemperature = lattice_referenceTemperature(material_phase(ipc,ip,el))
case (LOCAL_THERMAL_adiabatic_ID)

2
code/prec.f90
View File

@ -97,7 +97,7 @@ subroutine prec_init
implicit none
#ifdef FEM
#include <finclude/petsc.h90>
#include <finclude/petscsys.h>
PetscInt :: worldrank
PetscErrorCode :: ierr
#endif