allocate_idbase Subroutine

public subroutine allocate_idbase(id, filename, system, system_name)

This SUBROUTINE allocates a polymorphic object of class idbase to its dynamic type. The dynamic type is one among those that interpolate the ID from a grid

FT 09.02.2022

Arguments

Type IntentOptional Attributes Name
class(idbase), intent(inout), ALLOCATABLE :: id
character(len=*), intent(in) :: filename
character(len=5), intent(inout) :: system
character(len=5), intent(inout) :: system_name

Called by

proc~~allocate_idbase~~CalledByGraph proc~allocate_idbase allocate_idbase program~convergence_test convergence_test program~convergence_test->proc~allocate_idbase program~sphincs_id sphincs_id program~sphincs_id->proc~allocate_idbase

Contents

Source Code

allocate_idbase

Source Code

  SUBROUTINE allocate_idbase( id, filename, system, system_name )

    !*********************************************
    !
    !# This SUBROUTINE allocates a polymorphic
    !  object of class idbase to its dynamic type.
    !  The dynamic type is one among those that
    !  interpolate the ID from a grid
    !
    !  FT 09.02.2022
    !
    !*********************************************

    IMPLICIT NONE

    CLASS(idbase),    ALLOCATABLE, INTENT(INOUT):: id
    CHARACTER(LEN=*),              INTENT(IN)   :: filename
    CHARACTER(LEN=5),              INTENT(INOUT):: system
    CHARACTER(LEN=5),              INTENT(INOUT):: system_name

    IF( ALLOCATED(id) )THEN

      PRINT *, "** ERROR in allocate_idbase! ", &
               " The polymorphic allocatable argument 'id' ",&
               " is already allocated. This SUBROUTINE allocates and", &
               " initializes a polymorphic object of CLASS idbase, hence ", &
               " its argument of CLASS idbase should not be already allocated."
      PRINT *, "   Stopping..."
      PRINT *
      STOP

    ENDIF

    IF( filename(1:5) == ejecta_grid )THEN

      ALLOCATE( ejecta:: id )
      system= ejecta_grid
      system_name= "EJEC."

    ELSE

      PRINT *, "** ERROR! Unrecognized physical system ", system
      PRINT *
      PRINT *, "   Please specify the type of physical system in the first 5",&
               " characters of the name of the file containing the initial", &
               " data."
      PRINT *
      PRINT *, "   The 5-character names, and associated physical systems,", &
              " supported by this version of SPHINCS_ID, with flavour = 4, are:"
      PRINT *
      PRINT *, "   EJECT: Ejecta data on a uniform Cartesian grid"
      PRINT *
      STOP

    ENDIF

  END SUBROUTINE allocate_idbase