Commit dff9f51c authored by Sabine's avatar Sabine
Browse files

removed the dump to the eminusp file

parent ad0a46eb
......@@ -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
......@@ -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
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment