time_history_mod.F

Go to the documentation of this file.

Copyright>        OpenRadioss
Copyright>        Copyright (C) 1986-2025 Altair Engineering Inc.
Copyright>
Copyright>        This program is free software: you can redistribute it and/or modify
Copyright>        it under the terms of the GNU Affero General Public License as published by
Copyright>        the Free Software Foundation, either version 3 of the License, or
Copyright>        (at your option) any later version.
Copyright>
Copyright>        This program is distributed in the hope that it will be useful,
Copyright>        but WITHOUT ANY WARRANTY; without even the implied warranty of
Copyright>        MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
Copyright>        GNU Affero General Public License for more details.
Copyright>
Copyright>        You should have received a copy of the GNU Affero General Public License
Copyright>        along with this program.  If not, see <https://www.gnu.org/licenses/>.
Copyright>
Copyright>
Copyright>        Commercial Alternative: Altair Radioss Software
Copyright>
Copyright>        As an alternative to this open-source version, Altair also offers Altair Radioss
Copyright>        software under a commercial license.  Contact Altair to discuss further if the
Copyright>        commercial version may interest you: https://www.altair.com/radioss/.
!||====================================================================
!||    time_history_mod   ../common_source/modules/output/time_history_mod.F
!||--- called by ------------------------------------------------------
!||    init_th0           ../engine/source/output/th/init_th0.F
!||    output_mod         ../common_source/modules/output/output_mod.F90
!||    radioss2           ../engine/source/engine/radioss2.F
!||    read_th_restart    ../engine/source/output/th/read_th_restart.F
!||    write_th_buffer    ../starter/source/restart/ddsplit/write_th_buffer.F
!||    write_th_restart   ../engine/source/output/th/write_th_restart.F
!||--- uses       -----------------------------------------------------
!||    th_surf_mod        ../common_source/modules/interfaces/th_surf_mod.F
!||====================================================================
      MODULE time_history_mod
        USE th_surf_mod
#include "my_real.inc"
 
        TYPE th_
          INTEGER  nithgr
          ! Global Time History
          INTEGER, DIMENSION(:), ALLOCATABLE :: ithbuf
          INTEGER  sithbuf
          INTEGER, DIMENSION(:), ALLOCATABLE :: ithgrp
          INTEGER  sithgrp
          character (len=2048) :: th_filename
          INTEGER :: th_write_type
          !
          INTEGER, DIMENSION(:), ALLOCATABLE :: ithbufa
          INTEGER  sithbufa
          INTEGER, DIMENSION(:), ALLOCATABLE :: ithbufb
          INTEGER  sithbufb
          INTEGER, DIMENSION(:), ALLOCATABLE :: ithbufc
          INTEGER  sithbufc
          INTEGER, DIMENSION(:), ALLOCATABLE :: ithbufd
          INTEGER  sithbufd
          INTEGER, DIMENSION(:), ALLOCATABLE :: ithbufe
          INTEGER  sithbufe
          INTEGER, DIMENSION(:), ALLOCATABLE :: ithbuff
          INTEGER  sithbuff
          INTEGER, DIMENSION(:), ALLOCATABLE :: ithbufg
          INTEGER  sithbufg
          INTEGER, DIMENSION(:), ALLOCATABLE :: ithbufh
          INTEGER  sithbufh
          INTEGER, DIMENSION(:), ALLOCATABLE :: ithbufi
          INTEGER  sithbufi
 
          INTEGER, DIMENSION(:), ALLOCATABLE :: ithgrpa
          INTEGER  sithgrpa
          INTEGER, DIMENSION(:), ALLOCATABLE :: ithgrpb
          INTEGER  sithgrpb
          INTEGER, DIMENSION(:), ALLOCATABLE :: ithgrpc
          INTEGER  sithgrpc
          INTEGER, DIMENSION(:), ALLOCATABLE :: ithgrpd
          INTEGER  sithgrpd
          INTEGER, DIMENSION(:), ALLOCATABLE :: ithgrpe
          INTEGER  sithgrpe
          INTEGER, DIMENSION(:), ALLOCATABLE :: ithgrpf
          INTEGER  sithgrpf
          INTEGER, DIMENSION(:), ALLOCATABLE :: ithgrpg
          INTEGER  sithgrpg
          INTEGER, DIMENSION(:), ALLOCATABLE :: ithgrph
          INTEGER  sithgrph
          INTEGER, DIMENSION(:), ALLOCATABLE :: ithgrpi
          INTEGER  sithgrpi
          !
          REAL(kind=8) :: this    ! time of next TH file
          REAL(kind=8), dimension(9) :: this1 ! time of next TH files (aTH,bTH,...)
          REAL(kind=8) :: dthis   ! time step of TH file
          REAL(kind=8), dimension(9) :: dthis1 ! time step of TH files (aTH,bTH,...)
 
          TYPE (th_surf_) th_surf
          double precision :: wfext           !< external force work (global value) should be within th? 
          double precision :: wfext_md        !< specific to r2r method
          INTEGER  dump_thnms1_file
        END TYPE th_
 
 
      CONTAINS
 
!||====================================================================
!||    th_alloc          ../common_source/modules/output/time_history_mod.F
!||--- called by ------------------------------------------------------
!||    read_th_restart   ../engine/source/output/th/read_th_restart.F
!||--- uses       -----------------------------------------------------
!||    message_mod       ../engine/share/message_module/message_mod.F
!||====================================================================
        SUBROUTINE th_alloc(TH,
     .                         SITHGRP,  SITHBUF ,
     .                         SITHGRPA, SITHBUFA,
     .                         SITHGRPB, SITHBUFB,
     .                         SITHGRPC, SITHBUFC,
     .                         SITHGRPD, SITHBUFD,
     .                         SITHGRPE, SITHBUFE,
     .                         SITHGRPF, SITHBUFF,
     .                         SITHGRPG, SITHBUFG,
     .                         SITHGRPH, SITHBUFH,
     .                         SITHGRPI, SITHBUFI )
C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
          USE message_mod
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
          TYPE(th_),INTENT(INOUT)  :: TH
          INTEGER, INTENT(IN) :: SITHGRP,  SITHBUF
          INTEGER, INTENT(IN) :: SITHGRPA, SITHBUFA
          INTEGER, INTENT(IN) :: SITHGRPB, SITHBUFB
          INTEGER, INTENT(IN) :: SITHGRPC, SITHBUFC
          INTEGER, INTENT(IN) :: SITHGRPD, SITHBUFD
          INTEGER, INTENT(IN) :: SITHGRPE, SITHBUFE
          INTEGER, INTENT(IN) :: SITHGRPF, SITHBUFF
          INTEGER, INTENT(IN) :: SITHGRPG, SITHBUFG
          INTEGER, INTENT(IN) :: SITHGRPH, SITHBUFH
          INTEGER, INTENT(IN) :: SITHGRPI, SITHBUFI
C-----------------------------------------------
          ALLOCATE(th%ITHGRP (th%SITHGRP))
          ALLOCATE(th%ITHBUF (th%SITHBUF))
 
          ALLOCATE(th%ITHGRPA(th%SITHGRPA))
          ALLOCATE(th%ITHBUFA(th%SITHBUFA))
 
          ALLOCATE(th%ITHGRPB(th%SITHGRPB))
          ALLOCATE(th%ITHBUFB(th%SITHBUFB))
 
          ALLOCATE(th%ITHGRPC(th%SITHGRPC))
          ALLOCATE(th%ITHBUFC(th%SITHBUFC))
 
          ALLOCATE(th%ITHGRPD(th%SITHGRPD))
          ALLOCATE(th%ITHBUFD(th%SITHBUFD))
 
          ALLOCATE(th%ITHGRPE(th%SITHGRPE))
          ALLOCATE(th%ITHBUFE(th%SITHBUFE))
 
          ALLOCATE(th%ITHGRPF(th%SITHGRPF))
          ALLOCATE(th%ITHBUFF(th%SITHBUFF))
 
          ALLOCATE(th%ITHGRPG(th%SITHGRPG))
          ALLOCATE(th%ITHBUFG(th%SITHBUFG))
 
          ALLOCATE(th%ITHGRPH(th%SITHGRPH))
          ALLOCATE(th%ITHBUFH(th%SITHBUFH))
 
          ALLOCATE(th%ITHGRPI(th%SITHGRPI))
          ALLOCATE(th%ITHBUFI(th%SITHBUFI))
 
        END SUBROUTINE th_alloc
 
 
!||====================================================================
!||    th_clean   ../common_source/modules/output/time_history_mod.F
!||--- called by ------------------------------------------------------
!||    radioss2   ../engine/source/engine/radioss2.F
!||    starter0   ../starter/source/starter/starter0.F
!||====================================================================
        SUBROUTINE th_clean(TH )
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
          TYPE(th_),INTENT(INOUT)  :: TH
C-----------------------------------------------
          th%SITHGRP = 0
          th%SITHBUF = 0
 
          th%SITHGRPA = 0
          th%SITHBUFA = 0
 
          th%SITHGRPB = 0
          th%SITHBUFB = 0
 
          th%SITHGRPC = 0
          th%SITHBUFC = 0
 
          th%SITHGRPD = 0
          th%SITHBUFD = 0
 
          th%SITHGRPE = 0
          th%SITHBUFE = 0
 
          th%SITHGRPF = 0
          th%SITHBUFF = 0
 
          th%SITHGRPG = 0
          th%SITHBUFG = 0
 
          th%SITHGRPH = 0
          th%SITHBUFH = 0
 
          th%SITHGRPI = 0
          th%SITHBUFI = 0
 
 
          DEALLOCATE(th%ITHGRP)
          DEALLOCATE(th%ITHBUF)
 
          DEALLOCATE(th%ITHGRPA)
          DEALLOCATE(th%ITHBUFA)
 
          DEALLOCATE(th%ITHGRPB)
          DEALLOCATE(th%ITHBUFB)
 
          DEALLOCATE(th%ITHGRPC)
          DEALLOCATE(th%ITHBUFC)
 
          DEALLOCATE(th%ITHGRPD)
          DEALLOCATE(th%ITHBUFD)
 
          DEALLOCATE(th%ITHGRPE)
          DEALLOCATE(th%ITHBUFE)
 
          DEALLOCATE(th%ITHGRPF)
          DEALLOCATE(th%ITHBUFF)
 
          DEALLOCATE(th%ITHGRPG)
          DEALLOCATE(th%ITHBUFG)
 
          DEALLOCATE(th%ITHGRPH)
          DEALLOCATE(th%ITHBUFH)
 
          DEALLOCATE(th%ITHGRPI)
          DEALLOCATE(th%ITHBUFI)
 
        END SUBROUTINE th_clean
 
      END MODULE time_history_mod