Merge pull request #1 from smullangi3/sickle-cell-pr

Author: sbryngelson

case/initcond.F90

@@ -154,7 +154,7 @@ subroutine Recenter_Cells_and_Walls
         rbc%x(:,:,1) = rbc%x(:,:,1) + 0.5*Lb(1)
         rbc%x(:,:,2) = rbc%x(:,:,2) + 0.5*Lb(2)
         print*,'Zc', sum(rbc%x(:,:,3))/real(rbc%nlat*rbc%nlon)
-   end do
+    end do
 
     ! walls
     ! find the bounding box
@@ -179,4 +179,4 @@ subroutine Recenter_Cells_and_Walls
 
 end subroutine Recenter_Cells_and_Walls
 
-end program InitCond
+end program InitCond

case_different_celltypes/D/.gittouch

@@ -0,0 +1,10 @@
+create cylinder radius 3.0 height 13.33
+
+curve 1 interval size 0.15
+curve 2 interval size 0.15
+surface 1 scheme trimesh
+
+mesh surface 1
+
+block 1 surface 1
+export mesh "cylinder_D_6.0_L_13.33.g" dimension 3 block 1 overwrite