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