logical nudge_tsoil
      integer isoil_nudge
      real Tsoil_nudge, tau_soil_nudge

      common /tsoilnudge/ nudge_tsoil, isoil_nudge, Tsoil_nudge,        &
     &                   tau_soil_nudge