Parse Chombo files from AstroBEAR

1. Initialize density using the position

Version 1

  SUBROUTINE ProblemGridInit(Info)
    TYPE(InfoDef) :: Info
    INTEGER :: i,j,k
    REAL(KIND=xPREC) :: pos(3)

    ! Loop over cells in patch
    DO i=1, Info%mX(1)
      DO j=1, Info%mX(2)
        DO k=1, Info%mX(3)
          Info%q(i,j,k,irho) = i*10+j 
          Info%q(i,j,k,imom(1:nDim)) = 0
        END DO
      END DO
    END DO
  END SUBROUTINE ProblemGridInit

2. Results

0 level AMR on 1 core		​chombo	​text
0 level AMR on 2 core		​chombo	​text
1 level AMR on 1 core		​chombo	​text
1 level AMR on 2 core		​chombo	​text

---

Version 2

  SUBROUTINE ProblemGridInit(Info)
    TYPE(InfoDef) :: Info
    INTEGER :: i,j,k
    REAL(KIND=xPREC) :: pos(3)

    ! Loop over cells in patch
    DO i=1, Info%mX(1)
      DO j=1, Info%mX(2)
        DO k=1, Info%mX(3)
          Info%q(i,j,k,irho) = MPI_ID*100+i*10+j 
          Info%q(i,j,k,imom(1:nDim)) = 0
        END DO
      END DO
    END DO
  END SUBROUTINE ProblemGridInit

2. Results

0 level AMR on 1 core		​chombo	​text
0 level AMR on 2 core		​chombo	​text
1 level AMR on 1 core		​chombo	​text
1 level AMR on 2 core		​chombo	​text