diff --git a/code/m_parameters.f90 b/code/m_parameters.f90 index c300213..3ef9081 100644 --- a/code/m_parameters.f90 +++ b/code/m_parameters.f90 @@ -113,11 +113,6 @@ subroutine read_intro prp=scp/lep -! hyp=l_0*pi/REAL(nyp) - hyp=l_0*pi/REAL(nyp-1) ! kwon - hxp=hyp - hzp=hyp - close (100) close (101) @@ -142,6 +137,11 @@ subroutine read_intro CLOSE(first_file) +! hyp=l_0*pi/REAL(nyp) + hyp=l_0*pi/REAL(nyp-1) ! kwon + hxp=hyp + hzp=hyp + end subroutine read_intro