inigrav_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/.
!||====================================================================
!||    inigrav                         ../starter/share/modules1/inigrav_mod.F
!||--- called by ------------------------------------------------------
!||    hm_read_inigrav                 ../starter/source/initial_conditions/inigrav/hm_read_inigrav.F
!||    iniebcs_dp                      ../starter/source/boundary_conditions/ebcs/iniebcs_dp.F
!||    iniebcs_nrf_tcar                ../starter/source/boundary_conditions/ebcs/iniebcs_nrf_tcar.F
!||    iniebcsp0                       ../starter/source/boundary_conditions/ebcs/iniebcsp0.F
!||    inigrav_load                    ../starter/source/initial_conditions/inigrav/inigrav_load.F
!||    inigrav_part_list               ../starter/source/initial_conditions/inigrav/inigrav_part_list.F
!||    lectur                          ../starter/source/starter/lectur.F
!||    st_qaprint_initial_conditions   ../starter/source/output/qaprint/st_qaprint_initial_conditions.F
!||====================================================================
      MODULE inigrav
#include "my_real.inc"
 
        INTEGER , DIMENSION(:,:), ALLOCATABLE :: inigrv
          my_real , DIMENSION(:,:), ALLOCATABLE :: linigrav 
        
        type t_inigrav_parts
          logical :: is_allocated = .false.
          integer,dimension(:),allocatable :: tagpart     ! 1:part is targeted with INIGRAV, 0:otherwise ; SIZE=1:NPART
          my_real,dimension(:,:),allocatable :: ng        ! gravity orientation
          my_real,dimension(:),allocatable :: grav0       ! gravity value
          
          contains
          procedure :: destroy => inigrav_part_list_destroy
                
        end type t_inigrav_parts 
       
        TYPE(t_inigrav_parts) :: inigrav_parts
 
      CONTAINS
      
!||====================================================================
!||    inigrav_part_list_destroy   ../starter/share/modules1/inigrav_mod.F
!||====================================================================
        subroutine inigrav_part_list_destroy(this)
           implicit none
           class(t_inigrav_parts), intent(inout) :: this
           if(allocated(this%TAGPART)) deallocate(this%TAGPART)
           if(allocated(this%NG)) deallocate(this%NG)
           if(allocated(this%GRAV0)) deallocate(this%GRAV0)
         end subroutine inigrav_part_list_destroy      
     
      END MODULE