From 70e298b1cd0054a8397c7608edd0bdac904b10fa Mon Sep 17 00:00:00 2001
From: ignis <ignis@postech.ac.kr>
Date: Fri, 19 Apr 2019 03:35:50 +0900
Subject: [PATCH] hxp, hyp, hzp calculation after reading nxp, nyp, nzp

---
 code/m_parameters.f90 | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

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