From fbd075dc6e7ffe97d3a44e084cb4bdb479c236ab Mon Sep 17 00:00:00 2001
From: Krishna	Komerla <k.komerla@mpie.de>
Date: Tue, 8 May 2012 15:12:43 +0000
Subject: [PATCH] corrected automatic determination of resolution

---
 code/mesh.f90 | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/code/mesh.f90 b/code/mesh.f90
index e279d6918..6107096cf 100644
--- a/code/mesh.f90
+++ b/code/mesh.f90
@@ -3609,11 +3609,14 @@ function mesh_regrid(resNewInput)           !use new_res=[0.0,0.0,0.0] for autom
  
 ! ----determine/calculate new resolution--------------
  if (.not. present(resNewInput)) then
-  resNew=res
- elseif(all(resNewInput==0.0_pReal)) then
- !do automatic determination
+   resNew = res
  else
-  resNew=resNewInput
+   if(all(resNewInput==0.0_pReal)) then
+     mesh_regrid =[ 0,0,0]
+     return !no automatic determination right now
+   else
+     resNew = resNewInput
+   endif
  endif 
  NpointsNew = resNew(1)*resNew(2)*resNew(3)