Changes between Version 43 and Version 44 of ModulesOnAstroBear

Timestamp:

01/28/13 12:55:57 (12 years ago)

Author:

Baowei Liu

Comment:

—

ModulesOnAstroBear

@@ -288 +288 @@
             Info%q(i,j,k,ivx)=10d0
             IF (iE /= 0) Info%q(i,j,k, iE)=gamma7+50d0
-            IF (ivy /= 0) Info%q(1:Info%mX(1),1:Info%mX(2),1:Info%mX(3), ivy)=0d0
-            IF (ivz /= 0) Info%q(1:Info%mX(1),1:Info%mX(2),1:Info%mX(3), ivz)=0d0
+            IF (ivy /= 0) Info%q(i,j,k, ivy)=0d0
+            IF (ivz /= 0) Info%q(i,j,k, ivz)=0d0
           END IF                  
         END DO
@@ -368 +368 @@
             Info%q(i,j,k,ivx)=velocity
             IF (iE /= 0) Info%q(i,j,k, iE)=gamma7+half*velocity**2
-            IF (ivy /= 0) Info%q(1:Info%mX(1),1:Info%mX(2),1:Info%mX(3), ivy)=0d0
-            IF (ivz /= 0) Info%q(1:Info%mX(1),1:Info%mX(2),1:Info%mX(3), ivz)=0d0
+            IF (ivy /= 0) Info%q(i,j,k, ivy)=0d0
+            IF (ivz /= 0) Info%q(i,j,k, ivz)=0d0
           END IF                  
         END DO