Initialise this module
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(ballstab_config_type), | intent(in), | optional | :: | ballstab_config_in |
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