module lask_param_mod

implicit none

  real,save,allocatable :: yearlask(:)
  real,save,allocatable :: oblask(:)
  real,save,allocatable :: exlask(:)
  real,save,allocatable :: lsplask(:)
  integer, save :: last_ilask

contains

  subroutine ini_lask_param_mod(nlask)
  
  implicit none
  integer,intent(in) :: nlask ! number of line
  
  allocate(yearlask(nlask))
  allocate(oblask(nlask))
  allocate(exlask(nlask))
  allocate(lsplask(nlask))
  
  end subroutine ini_lask_param_mod


  subroutine end_lask_param_mod

  implicit none

  if (allocated(yearlask)) deallocate(yearlask)
  if (allocated(oblask)) deallocate(oblask)
  if (allocated(exlask)) deallocate(exlask)
  if (allocated(lsplask)) deallocate(lsplask)

  end subroutine end_lask_param_mod
  
end module lask_param_mod