fixed order craterlist.in is read in crater_populate

MintonGroup · Jan 19, 2022 · 66816b7 · 66816b7
1 parent a0503df
commit 66816b7
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/examples/global-lunar-bombardment/craterlist.in b/examples/global-lunar-bombardment/craterlist.in
@@ -1,4 +1,4 @@
-#Dcrat(m)   vel(m/s)   ang(deg)  xoffset(km)  yoffset(km)  t(Ga)
+#Dcrat(m)   vel(m/s)   ang(deg)  xoffset(m)  yoffset(m)  t(Ga)
 2050000 18300.0 45.0 -2908888.89 -1848000.0 4.31
 690000 18300.0 45.0 889777.778 -157422.222 4.309
 264656 18300.0 45.0 1186318.17 -534322.694 4.308

diff --git a/src/crater/crater_populate.f90 b/src/crater/crater_populate.f90
@@ -163,8 +163,8 @@ subroutine crater_populate(user,surf,crater,domain,prod,production_list,vdist,nt
             user%testimp = rclist(1, rccount)
             user%testvel = rclist(2, rccount)
             user%testang = rclist(3, rccount)
-            user%testxoffset = rclist(5, rccount) !x-offset is longitude
-            user%testyoffset = rclist(4, rccount) !y-offset is latitude 
+            user%testxoffset = rclist(4, rccount)
+            user%testyoffset = rclist(5, rccount) 
          end if
       end if
       ! generate random crater