diff --git a/src/main.f90 b/src/main.f90 index aa1fda5..6f48fcf 100644 --- a/src/main.f90 +++ b/src/main.f90 @@ -360,7 +360,7 @@ contains call limiter_set_globals(data%equilibrium) end subroutine init_misc - + subroutine deinit_misc ! Free all memory allocated by the init_misc subroutine. use limiter, only : limiter_unset_globals=>unset_globals @@ -415,7 +415,7 @@ contains integer, dimension(:), pointer :: iiv=>null() ! ======== set environment BEGIN ======== - ! Compute X=ω/ω_ce and Y=(ω/ω_pe)² (with B=1) + ! Compute X=(ω_pe/ω)² and Y=ω_ce/ω (with B=1) call xgygcoeff(params%antenna%fghz, ak0, bres, xgcn) ! Compute the initial cartesian wavevector (anv0)