real_init_ballstab Subroutine

private subroutine real_init_ballstab(ballstab_config_in)

Uses

Initialise this module

Arguments

Type IntentOptional Attributes Name
type(ballstab_config_type), intent(in), optional :: ballstab_config_in

Contents

Source Code


Source Code

  subroutine real_init_ballstab(ballstab_config_in)
    use mp, only: proc0
    implicit none
    type(ballstab_config_type), intent(in), optional :: ballstab_config_in    

    if(initialised) return
    initialised = .true.

    !Get settings
    call read_parameters(ballstab_config_in)

    !Note only proc0 will be allowed to do any work
    if (.not.proc0) return
    
    !Verify parameters
    call verify_parameters

    !Create arrays
    call setup_arrays

  end subroutine real_init_ballstab