reporting current time for most module inits

2013-02-25 16:34:59 +00:00 · 2013-02-25 16:34:59 +00:00 · 07ff1f7c93
parent 6b6d4b76d8
commit 07ff1f7c93
27 changed files with 85 additions and 19 deletions
--- a/code/CPFEM.f90
+++ b/code/CPFEM.f90
@ -121,7 +121,8 @@ subroutine CPFEM_init
                                                  debug_levelBasic, &
                                                  debug_levelExtensive
  use IO, only:                                   IO_read_jobBinaryFile,&
-                                                  IO_read_jobBinaryIntFile
+                                                  IO_read_jobBinaryIntFile, &
+                                                  IO_timeStamp
  use FEsolving, only:                            parallelExecution, &
                                                  symmetricSolver, &
                                                  restartRead, &
@ -209,6 +210,7 @@ subroutine CPFEM_init

  write(6,'(/,a)') '<<<+-  CPFEM init  -+>>>'
  write(6,'(a)') '$Id$'
+  write(6,'(a16,a)')   ' Current time : ',IO_timeStamp()
 #include "compilation_info.f90"
  if (iand(debug_level(debug_CPFEM), debug_levelBasic) /= 0) then
    write(6,'(a32,1x,6(i8,1x))') 'CPFEM_cs:              ', shape(CPFEM_cs)
--- a/code/DAMASK_abaqus_exp.f
+++ b/code/DAMASK_abaqus_exp.f
@ -60,9 +60,13 @@ contains
 !--------------------
 subroutine DAMASK_interface_init()
 !--------------------
+  use IO, only: IO_timeStamp
+  
  write(6,*)
  write(6,*) '<<<+-  DAMASK_abaqus init  -+>>>'
  write(6,*) '$Id$'
+  write(6,'(a16,a)')   ' Current time : ',IO_timeStamp()
+#include "compilation_info.f90"  
  write(6,*)

 end subroutine DAMASK_interface_init
--- a/code/DAMASK_abaqus_std.f
+++ b/code/DAMASK_abaqus_std.f
@ -60,9 +60,13 @@ contains
 !--------------------
 subroutine DAMASK_interface_init()
 !--------------------
+  use IO, only: IO_timeStamp
+  
  write(6,*)
  write(6,*) '<<<+-  DAMASK_abaqus init  -+>>>'
  write(6,*) '$Id$'
+  write(6,'(a16,a)')   ' Current time : ',IO_timeStamp()
+#include "compilation_info.f90"  
  write(6,*)

 end subroutine DAMASK_interface_init
--- a/code/DAMASK_marc.f90
+++ b/code/DAMASK_marc.f90
@ -78,12 +78,15 @@ contains

 subroutine DAMASK_interface_init

+use IO, only: IO_timeStamp
+
 implicit none

 !$OMP CRITICAL (write2out)
 write(6,*)
 write(6,*) '<<<+-  DAMASK_marc init  -+>>>'
 write(6,*) '$Id$'
+ write(6,'(a16,a)')   ' Current time : ',IO_timeStamp()
 #include "compilation_info.f90"
 !$OMP END CRITICAL (write2out)

--- a/code/DAMASK_spectral_solverAL.f90
+++ b/code/DAMASK_spectral_solverAL.f90
@ -78,7 +78,8 @@ subroutine AL_init(temperature)
 use, intrinsic :: iso_fortran_env                                                                  ! to get compiler_version and compiler_options (at least for gfortran >4.6 at the moment)
 use IO, only: &
   IO_read_JobBinaryFile, &
-   IO_write_JobBinaryFile
+   IO_write_JobBinaryFile, &
+   IO_timeStamp
 use FEsolving, only: &
   restartInc
 use DAMASK_interface, only: &
@ -120,6 +121,7 @@ subroutine AL_init(temperature)
 call Utilities_init()
 write(6,'(/,a)') ' <<<+-  DAMASK_spectral_solverAL init  -+>>>'
 write(6,'(a)') ' $Id: DAMASK_spectral_SolverAL.f90 1654 2012-08-03 09:25:48Z MPIE\m.diehl $'
+ write(6,'(a16,a)')   ' Current time : ',IO_timeStamp()
 #include "compilation_info.f90"
 
 allocate (F_lastInc  (3,3,  res(1),  res(2),res(3)),  source = 0.0_pReal)
--- a/code/DAMASK_spectral_solverBasic.f90
+++ b/code/DAMASK_spectral_solverBasic.f90
@ -49,7 +49,8 @@ subroutine basic_init(temperature)
 use IO, only: &
   IO_read_JobBinaryFile, &
   IO_write_JobBinaryFile, &
-   IO_intOut
+   IO_intOut, &
+   IO_timeStamp
 use FEsolving, only: &
   restartInc
 use DAMASK_interface, only: &
@ -82,6 +83,7 @@ subroutine basic_init(temperature)
 call Utilities_Init()
 write(6,'(/,a)') ' <<<+-  DAMASK_spectral_solverBasic init  -+>>>'
 write(6,'(a)') ' $Id$'
+ write(6,'(a16,a)')   ' Current time : ',IO_timeStamp()
 #include "compilation_info.f90"
 write(6,'(a,3(f12.5)/)') ' scaledDim  x y z:',      scaledDim

--- a/code/DAMASK_spectral_solverBasicPETSc.f90
+++ b/code/DAMASK_spectral_solverBasicPETSc.f90
@ -76,7 +76,8 @@ subroutine basicPETSc_init(temperature)
 use, intrinsic :: iso_fortran_env                                                                  ! to get compiler_version and compiler_options (at least for gfortran >4.6 at the moment)
 use IO, only: &
   IO_read_JobBinaryFile, &
-   IO_write_JobBinaryFile
+   IO_write_JobBinaryFile, &
+   IO_timeStamp
 use FEsolving, only: &
   restartInc
 use DAMASK_interface, only: &
@ -117,6 +118,7 @@ subroutine basicPETSc_init(temperature)
 call Utilities_init()
 write(6,'(/,a)') ' <<<+-  DAMASK_spectral_solverBasicPETSc init  -+>>>'
 write(6,'(a)') ' $Id: DAMASK_spectral_SolverBasicPETSC.f90 1654 2012-08-03 09:25:48Z MPIE\m.diehl $'
+ write(6,'(a16,a)')   ' Current time : ',IO_timeStamp()
 #include "compilation_info.f90"
 write(6,'(a,3(f12.5)/)') ' scaledDim  x y z:',      scaledDim

--- a/code/DAMASK_spectral_utilities.f90
+++ b/code/DAMASK_spectral_utilities.f90
@ -98,7 +98,8 @@ subroutine utilities_init()
 use, intrinsic :: iso_fortran_env                                                                  ! to get compiler_version and compiler_options (at least for gfortran >4.6 at the moment)
 use IO, only: &
   IO_error, &
-   IO_warning
+   IO_warning, &
+   IO_timeStamp
 use numerics, only: &                        
   DAMASK_NumThreadsInt, &
   fftw_planner_flag, &
@ -142,6 +143,7 @@ subroutine utilities_init()
   divergence                                                                                       !< field cotaining data for FFTW in real and fourier space when debugging divergence (in place)
 write(6,'(/,a)') ' <<<+-  DAMASK_spectral_utilities init  -+>>>'
 write(6,'(a)')   ' $Id$'
+ write(6,'(a16,a)')   ' Current time : ',IO_timeStamp()
 #include "compilation_info.f90"
 write(6,'(a)')   ''
 flush(6)
--- a/code/FEsolving.f90
+++ b/code/FEsolving.f90
@ -85,7 +85,8 @@ subroutine FE_init
   IO_open_inputFile, &
   IO_open_logFile, &
 #endif
-   IO_warning
+   IO_warning, &
+   IO_timeStamp
 use DAMASK_interface
 
 implicit none
@ -101,6 +102,7 @@ subroutine FE_init

 write(6,'(/,a)') ' <<<+-  FEsolving init  -+>>>'
 write(6,'(a)')   ' $Id$'
+ write(6,'(a16,a)')   ' Current time : ',IO_timeStamp()
 #include "compilation_info.f90"

 modelName = getSolverJobName()
--- a/code/IO.f90
+++ b/code/IO.f90
@ -66,7 +66,8 @@ module IO
   IO_continuousIntValues, &
   IO_error, &
   IO_warning, &
-   IO_intOut
+   IO_intOut, &
+   IO_timeStamp
 #ifndef Spectral
 public :: &
   IO_open_inputFile, &
@ -99,8 +100,9 @@ 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)

-  write(6,'(/,a)') ' <<<+-  IO init  -+>>>'
-  write(6,'(a)')   ' $Id$'
+ write(6,'(/,a)') ' <<<+-  IO init  -+>>>'
+ write(6,'(a)')   ' $Id$'
+ write(6,'(a16,a)')   ' Current time : ',IO_timeStamp()
 #include "compilation_info.f90"

 end subroutine IO_init
@ -1384,6 +1386,20 @@ pure function IO_intOut(intToPrint)
 end function IO_intOut


+!--------------------------------------------------------------------------------------------------
+!> @brief returns time stamp
+!--------------------------------------------------------------------------------------------------
+function IO_timeStamp()
+  implicit none
+  character(len=10) :: IO_timeStamp
+  integer(pInt), dimension(8) :: values
+  
+  call DATE_AND_TIME(VALUES=values)
+  write(IO_timeStamp,'(i2.2,a1,i2.2,a1,i2.2)') values(5),':',values(6),':',values(7)
+
+end function IO_timeStamp
+
+
 !--------------------------------------------------------------------------------------------------
 !> @brief write error statements to standard out and terminate the Marc/spectral run with exit #9xxx
 !> in ABAQUS either time step is reduced or execution terminated
--- a/code/constitutive.f90
+++ b/code/constitutive.f90
@ -92,7 +92,8 @@ subroutine constitutive_init
   IO_open_file, &
   IO_open_jobFile_stat, &
   IO_write_jobFile, &
-   IO_write_jobBinaryIntFile
+   IO_write_jobBinaryIntFile, &
+   IO_timeStamp
 use mesh, only: &
   mesh_maxNips, &
   mesh_NcpElems, &
@ -155,6 +156,7 @@ subroutine constitutive_init
 write(6,*)
 write(6,*) '<<<+-  constitutive init  -+>>>'
 write(6,*) '$Id$'
+ write(6,'(a16,a)')   ' Current time : ',IO_timeStamp()
 #include "compilation_info.f90"
 
 !--------------------------------------------------------------------------------------------------
--- a/code/constitutive_dislotwin.f90
+++ b/code/constitutive_dislotwin.f90
@ -155,6 +155,7 @@ character(len=1024) :: line = ''
 write(6,*)
 write(6,*) '<<<+-  constitutive_',trim(constitutive_dislotwin_label),' init  -+>>>'
 write(6,*) '$Id$'
+write(6,'(a16,a)')   ' Current time : ',IO_timeStamp()
 #include "compilation_info.f90"

 maxNinstance = int(count(phase_plasticity == constitutive_dislotwin_label),pInt)
--- a/code/constitutive_j2.f90
+++ b/code/constitutive_j2.f90
@ -115,7 +115,8 @@ subroutine constitutive_j2_init(myFile)
   IO_stringPos, &
   IO_stringValue, &
   IO_floatValue, &
-   IO_error
+   IO_error, &
+   IO_timeStamp
 use material
 use debug, only: &
   debug_level, &
@ -136,6 +137,7 @@ subroutine constitutive_j2_init(myFile)
 write(6,*)
 write(6,*) '<<<+-  constitutive_',trim(constitutive_j2_label),' init  -+>>>'
 write(6,*) '$Id$'
+ write(6,'(a16,a)')   ' Current time : ',IO_timeStamp()
 #include "compilation_info.f90"
 
 maxNinstance = int(count(phase_plasticity == constitutive_j2_label),pInt)
--- a/code/constitutive_none.f90
+++ b/code/constitutive_none.f90
@ -85,7 +85,8 @@ subroutine constitutive_none_init(myFile)
   IO_stringPos, &
   IO_stringValue, &
   IO_floatValue, &
-   IO_error
+   IO_error, &
+   IO_timeStamp
 use material
 use debug, only: &
   debug_level, &
@ -105,6 +106,7 @@ subroutine constitutive_none_init(myFile)
 write(6,*)
 write(6,*) '<<<+-  constitutive_',trim(constitutive_none_label),' init  -+>>>'
 write(6,*) '$Id$'
+ write(6,'(a16,a)')   ' Current time : ',IO_timeStamp()
 #include "compilation_info.f90"
 
 maxNinstance = int(count(phase_plasticity == constitutive_none_label),pInt)
--- a/code/constitutive_nonlocal.f90
+++ b/code/constitutive_nonlocal.f90
@ -217,7 +217,8 @@ use IO,       only: IO_lc, &
                    IO_stringValue, &
                    IO_floatValue, &
                    IO_intValue, &
-                    IO_error
+                    IO_error, &
+                    IO_timeStamp
 use debug,    only: debug_level, &
                    debug_constitutive, &
                    debug_levelBasic
@ -262,6 +263,7 @@ character(len=1024) :: line = ''                                ! to start initi
 write(6,*)
 write(6,*) '<<<+-  constitutive_',trim(constitutive_nonlocal_label),' init  -+>>>'
 write(6,*) '$Id$'
+ write(6,'(a16,a)')   ' Current time : ',IO_timeStamp()
 #include "compilation_info.f90"

 maxNinstance = int(count(phase_plasticity == constitutive_nonlocal_label),pInt)
--- a/code/constitutive_phenopowerlaw.f90
+++ b/code/constitutive_phenopowerlaw.f90
@ -142,6 +142,7 @@ subroutine constitutive_phenopowerlaw_init(myFile)
 write(6,*)
 write(6,*) '<<<+-  constitutive_',trim(constitutive_phenopowerlaw_label),' init  -+>>>'
 write(6,*) '$Id$'
+ write(6,'(a16,a)')   ' Current time : ',IO_timeStamp()
 #include "compilation_info.f90"
 
 maxNinstance = int(count(phase_plasticity == constitutive_phenopowerlaw_label),pInt)
--- a/code/constitutive_titanmod.f90
+++ b/code/constitutive_titanmod.f90
@ -258,6 +258,7 @@ character(len=1024) :: line = ''
 write(6,*)
 write(6,*) '<<<+-  constitutive_',trim(constitutive_titanmod_label),' init  -+>>>'
 write(6,*) '$Id$'
+write(6,'(a16,a)')   ' Current time : ',IO_timeStamp()
 #include "compilation_info.f90"

 maxNinstance = count(phase_plasticity == constitutive_titanmod_label)
--- a/code/crystallite.f90
+++ b/code/crystallite.f90
@ -180,6 +180,7 @@ subroutine crystallite_init(Temperature)
 
 write(6,'(/,a)') ' <<<+-  crystallite init  -+>>>'
 write(6,'(a)')   ' $Id$'
+ write(6,'(a16,a)')   ' Current time : ',IO_timeStamp()
 #include "compilation_info.f90"
 
 
--- a/code/debug.f90
+++ b/code/debug.f90
@ -132,7 +132,8 @@ subroutine debug_init
                     IO_stringValue, &
                     IO_lc, &
                     IO_floatValue, &
-                     IO_intValue
+                     IO_intValue, &
+                     IO_timeStamp

 implicit none
 integer(pInt), parameter                 :: fileunit    = 300_pInt  
@ -145,6 +146,7 @@ subroutine debug_init

 write(6,'(/,a)') ' <<<+-  debug init  -+>>>'
 write(6,'(a)')   ' $Id$'
+ write(6,'(a16,a)')   ' Current time : ',IO_timeStamp()
 #include "compilation_info.f90"
 
 if (allocated(debug_StressLoopDistribution)) &
--- a/code/homogenization.f90
+++ b/code/homogenization.f90
@ -104,7 +104,8 @@ subroutine homogenization_init(Temperature)
   IO_open_file, &
   IO_open_jobFile_stat, &
   IO_write_jobFile, &
-   IO_write_jobBinaryIntFile 
+   IO_write_jobBinaryIntFile, &
+   IO_timeStamp 
 use mesh, only: &
   mesh_maxNips, &
   mesh_NcpElems, &
@ -250,6 +251,7 @@ subroutine homogenization_init(Temperature)
 
 write(6,'(/,a)') ' <<<+-  homogenization init  -+>>>'
 write(6,'(a)')   ' $Id$'
+ write(6,'(a16,a)')   ' Current time : ',IO_timeStamp()
 #include "compilation_info.f90"
 if (iand(debug_level(debug_homogenization), debug_levelBasic) /= 0_pInt) then
   write(6,'(a32,1x,7(i8,1x))') 'homogenization_state0:          ', shape(homogenization_state0)
--- a/code/homogenization_RGC.f90
+++ b/code/homogenization_RGC.f90
@ -113,6 +113,7 @@ subroutine homogenization_RGC_init(myFile)
 
 write(6,'(/,3a)') ' <<<+-  homogenization_',trim(homogenization_RGC_label),' init  -+>>>'
 write(6,'(a)')    ' $Id$'
+ write(6,'(a16,a)')   ' Current time : ',IO_timeStamp()
 #include "compilation_info.f90"

 maxNinstance = int(count(homogenization_type == homogenization_RGC_label),pInt)
--- a/code/homogenization_isostrain.f90
+++ b/code/homogenization_isostrain.f90
@ -74,6 +74,7 @@ subroutine homogenization_isostrain_init(myFile)
 write(6,*)
 write(6,*) '<<<+-  homogenization_',trim(homogenization_isostrain_label),' init  -+>>>'
 write(6,*) '$Id$'
+ write(6,'(a16,a)')   ' Current time : ',IO_timeStamp()
 #include "compilation_info.f90"


--- a/code/lattice.f90
+++ b/code/lattice.f90
@ -806,7 +806,8 @@ subroutine lattice_init
                     IO_open_jobFile_stat, &
                     IO_countSections, &
                     IO_countTagInPart, &
-                     IO_error
+                     IO_error, &
+                     IO_timeStamp
 use material, only: material_configfile, &
                     material_localFileExt, &
                     material_partPhase
@ -822,6 +823,7 @@ subroutine lattice_init
   write(6,*)
   write(6,*) '<<<+-  lattice init  -+>>>'
   write(6,*) '$Id$'
+   write(6,'(a16,a)')   ' Current time : ',IO_timeStamp()
 #include "compilation_info.f90"
 !$OMP END CRITICAL (write2out)

--- a/code/material.f90
+++ b/code/material.f90
@ -142,7 +142,8 @@ subroutine material_init
 use IO, only: &
   IO_error, &
   IO_open_file, &
-   IO_open_jobFile_stat
+   IO_open_jobFile_stat, &
+   IO_timeStamp
 use debug, only: &
   debug_level, &
   debug_material, &
@ -157,6 +158,7 @@ subroutine material_init
 
 write(6,'(/,a)') ' <<<+-  material init  -+>>>'
 write(6,'(a)') ' $Id$'
+ write(6,'(a16,a)')   ' Current time : ',IO_timeStamp()
 #include "compilation_info.f90"

 
--- a/code/math.f90
+++ b/code/math.f90
@ -258,7 +258,7 @@ subroutine math_init
 use, intrinsic :: iso_fortran_env                                                                  ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment)
 use prec,     only: tol_math_check
 use numerics, only: fixedSeed
- use IO,       only: IO_error
+ use IO,       only: IO_error, IO_timeStamp

 implicit none
 integer(pInt) :: i
@ -273,6 +273,7 @@ subroutine math_init

 write(6,'(/,a)') ' <<<+-  math init  -+>>>'
 write(6,'(a)')   ' $Id$'
+ write(6,'(a16,a)')   ' Current time : ',IO_timeStamp()
 #include "compilation_info.f90"

 call random_seed(size=randSize)
--- a/code/mesh.f90
+++ b/code/mesh.f90
@ -404,6 +404,7 @@ subroutine mesh_init(ip,el)
 use DAMASK_interface
 use, intrinsic :: iso_fortran_env                                                                  ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment)
 use IO, only: &
+   IO_timeStamp, &
 #ifdef Abaqus
   IO_abaqus_hasNoPart, &
 #endif
@ -430,6 +431,7 @@ subroutine mesh_init(ip,el)
 
 write(6,'(/,a)') ' <<<+-  mesh init  -+>>>'
 write(6,'(a)') ' $Id$'
+ write(6,'(a16,a)')   ' Current time : ',IO_timeStamp()
 #include "compilation_info.f90"

 if (allocated(mesh_mapFEtoCPelem))  deallocate(mesh_mapFEtoCPelem)
--- a/code/numerics.f90
+++ b/code/numerics.f90
@ -135,7 +135,8 @@ subroutine numerics_init
   IO_lc, &
   IO_floatValue, &
   IO_intValue, &
-   IO_warning
+   IO_warning, &
+   IO_timeStamp

 #ifndef Marc
 !$ use OMP_LIB, only: omp_set_num_threads                                                           ! Use the standard conforming module file for omp if not using MSC.Marc
@ -154,6 +155,7 @@ subroutine numerics_init

 write(6,'(/,a)') ' <<<+-  numerics init  -+>>>'
 write(6,'(a)')   ' $Id$'
+ write(6,'(a16,a)')   ' Current time : ',IO_timeStamp()
 #include "compilation_info.f90"

 !$ call GET_ENVIRONMENT_VARIABLE(NAME='DAMASK_NUM_THREADS',VALUE=DAMASK_NumThreadsString,STATUS=gotDAMASK_NUM_THREADS)   ! get environment variable DAMASK_NUM_THREADS...