removed the dump to the eminusp file

src/euler_rain.f90

@@ -162,9 +162,9 @@
         e_minus_p(ix,0,n)=e_minus_p(ix,1,n)
 80      continue
 
-      write(89,'(i2,i8,1x,a11)') n,itime,' EminusP    '
-      do 85 jy=1,ny-2
-          write(89,*) (e_minus_p(ix,jy,n),ix=1,nx-2)
-85        continue
+!      write(89,'(i2,i8,1x,a11)') n,itime,' EminusP    '
+!      do 85 jy=1,ny-2
+!          write(89,*) (e_minus_p(ix,jy,n),ix=1,nx-2)
+!85        continue
 
       end

src/timemanager.f90

@@ -128,8 +128,8 @@ subroutine timemanager(metdata_format)
   !    +                 xm_depd(maxspec,maxpointspec_act)
 
 
-  open(89,file=path(2)(1:length(2))//'budget.dat')
-  open(90,file=path(2)(1:length(2))//'budget_nest.dat')
+!  open(89,file=path(2)(1:length(2))//'budget.dat')
+!  open(90,file=path(2)(1:length(2))//'budget_nest.dat')
 
   ! First output for time 0
   !************************
@@ -775,8 +775,8 @@ subroutine timemanager(metdata_format)
 !76           write(43,'(2i4,2e15.3)') ix,jy,waterfieldp(iistep,ix,jy),waterfielde(ix,jy)
       close(43)
 
-      close(89) ! Euler rain, water budget file
-      close(90) ! Euler rain, water budget file
+!      close(89) ! Euler rain, water budget file
+!      close(90) ! Euler rain, water budget file
   endif
 
   ! De-allocate memory and end