From c8a64452d55044bee081bad39b17ef0e4f0434df Mon Sep 17 00:00:00 2001 From: daminton Date: Mon, 12 Dec 2016 20:51:51 +0000 Subject: [PATCH] Made erad logscale in the table --- src/io/io_ejecta_table.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/io/io_ejecta_table.f90 b/src/io/io_ejecta_table.f90 index 7b61b964..11c12027 100644 --- a/src/io/io_ejecta_table.f90 +++ b/src/io/io_ejecta_table.f90 @@ -41,7 +41,7 @@ subroutine io_ejecta_table(crater,domain,ejb,ejtble,filename) write(LUN,'(A63)') '# "r (m)" "h (m)" "v (m/s)" "ang (deg)" "erad (m)"' do k=1,ejtble write(LUN,'(5(ES13.5E3,1X))') exp(ejb(k)%lrad),exp(ejb(k)%thick),sqrt(ejb(k)%vesq),ejb(k)%angle/DEG2RAD, & - ejb(k)%erad + exp(ejb(k)%erad) end do close(LUN)