subroutine sm(nlon)
  implicit none
  integer nlon
  write(*,*) "test = ", nlon
  write(*,*) nlon
  return
end subroutine sm
