integer leftOvers

      leftOvers = nTimeSteps

      if (leftOvers .lt. nchklev_1 ) then 

         uCheckLev1=leftOvers

      leftOvers = leftOvers - uCheckLev1

      if ((leftOvers/uCheckLev1) .lt. nchklev_2 ) then 

         uCheckLev2=(leftOvers/uCheckLev1)

      if (uCheckLev1*uCheckLev2 .gt. leftOvers) then 

         leftOvers=0

         leftOvers = leftOvers - uCheckLev1*uCheckLev2

      if ((leftOvers/(uCheckLev1*uCkeckLev2)) .lt. nchklev_3 ) then 

         uCheckLev3=(leftOvers/(uCheckLev1*uCkeckLev2))

      if (uCheckLev1*uCheckLev2*uCheckLev3 .gt. leftOvers) then 

         leftOvers=0

         leftOvers = leftOvers - uCheckLev1*uCheckLev2*uCheckLev3

      if ((leftOvers/(uCheckLev1*uCkeckLev2*uCkeckLev3)) 

     &(leftOvers/(uCheckLev1*uCkeckLev2*uCkeckLev3))

      leftOvers = leftOvers-uCheckLev1*uCheckLev2*uCheckLev3*uCheckLev4

      if (leftOvers .gt. 0) then