Initialise module variables
subroutine init_physics_functions !! Initialise module variables implicit none vcritx = 0.0D0 end subroutine init_physics_functions