diff --git a/src/main.f90 b/src/main.f90
index 8e980f6..c889d76 100644
--- a/src/main.f90
+++ b/src/main.f90
@@ -99,7 +99,11 @@ program main_std
   dzmx=rtrp%dst*rtrp%nstep*0.01_wp_
   z0m=z0*0.01_wp_
   if (.not.allocated(rlim).or.rtrp%ipass<0) then
-    rtrp%ipass=abs(rtrp%ipass)
+    if (allocated(rlim)) deallocate(rlim)
+    if (allocated(zlim)) deallocate(zlim)
+    allocate(rlim(5))
+    allocate(zlim(5))
+    if (rtrp%ipass<0) rtrp%ipass = -rtrp%ipass
     if(eqp%iequil<2) then
       rmxm=(rv(1)+rv(2))*0.01_wp_
     else