Commit dff9f51c authored by Sabine's avatar Sabine
Browse files

removed the dump to the eminusp file

parent ad0a46eb
...@@ -162,9 +162,9 @@ ...@@ -162,9 +162,9 @@
e_minus_p(ix,0,n)=e_minus_p(ix,1,n) e_minus_p(ix,0,n)=e_minus_p(ix,1,n)
80 continue 80 continue
write(89,'(i2,i8,1x,a11)') n,itime,' EminusP ' ! write(89,'(i2,i8,1x,a11)') n,itime,' EminusP '
do 85 jy=1,ny-2 ! do 85 jy=1,ny-2
write(89,*) (e_minus_p(ix,jy,n),ix=1,nx-2) ! write(89,*) (e_minus_p(ix,jy,n),ix=1,nx-2)
85 continue !85 continue
end end
...@@ -128,8 +128,8 @@ subroutine timemanager(metdata_format) ...@@ -128,8 +128,8 @@ subroutine timemanager(metdata_format)
! + xm_depd(maxspec,maxpointspec_act) ! + xm_depd(maxspec,maxpointspec_act)
open(89,file=path(2)(1:length(2))//'budget.dat') ! open(89,file=path(2)(1:length(2))//'budget.dat')
open(90,file=path(2)(1:length(2))//'budget_nest.dat') ! open(90,file=path(2)(1:length(2))//'budget_nest.dat')
! First output for time 0 ! First output for time 0
!************************ !************************
...@@ -775,8 +775,8 @@ subroutine timemanager(metdata_format) ...@@ -775,8 +775,8 @@ subroutine timemanager(metdata_format)
!76 write(43,'(2i4,2e15.3)') ix,jy,waterfieldp(iistep,ix,jy),waterfielde(ix,jy) !76 write(43,'(2i4,2e15.3)') ix,jy,waterfieldp(iistep,ix,jy),waterfielde(ix,jy)
close(43) close(43)
close(89) ! Euler rain, water budget file ! close(89) ! Euler rain, water budget file
close(90) ! Euler rain, water budget file ! close(90) ! Euler rain, water budget file
endif endif
! De-allocate memory and end ! 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