Made erad logscale in the table

MintonGroup · Dec 12, 2016 · c8a6445 · c8a6445
1 parent 10db508
commit c8a6445
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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)