From 3e49247d150c72de5f0b05acc03373430d95e881 Mon Sep 17 00:00:00 2001 From: Michele Guerini Rocco Date: Tue, 19 Apr 2022 23:09:24 +0200 Subject: [PATCH] src/main.f90: fix typo --- src/main.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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)