istp/gray
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases 1 Wiki Activity

src/main.f90: fix typo

Browse Source
This commit is contained in:
Michele Guerini Rocco 2022-04-19 23:09:24 +02:00
parent a2d4c25bb2
commit 3e49247d15
Signed by: rnhmjoj
GPG Key ID: BFBAF4C975F76450
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/main.f90
View File

@ -360,7 +360,7 @@ contains
call limiter_set_globals(data%equilibrium) call limiter_set_globals(data%equilibrium)
end subroutine init_misc end subroutine init_misc
subroutine deinit_misc subroutine deinit_misc
! Free all memory allocated by the init_misc subroutine. ! Free all memory allocated by the init_misc subroutine.
use limiter, only : limiter_unset_globals=>unset_globals use limiter, only : limiter_unset_globals=>unset_globals
@ -415,7 +415,7 @@ contains
integer, dimension(:), pointer :: iiv=>null() integer, dimension(:), pointer :: iiv=>null()
! ======== set environment BEGIN ======== ! ======== 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) call xgygcoeff(params%antenna%fghz, ak0, bres, xgcn)
! Compute the initial cartesian wavevector (anv0) ! Compute the initial cartesian wavevector (anv0)