223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

corrected automatic determination of resolution

This commit is contained in:
Krishna Komerla 2012-05-08 15:12:43 +00:00
parent c752dd5474
commit fbd075dc6e
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
code/mesh.f90
View File

@ -3609,11 +3609,14 @@ function mesh_regrid(resNewInput) !use new_res=[0.0,0.0,0.0] for autom
! ----determine/calculate new resolution-------------- ! ----determine/calculate new resolution--------------
if (.not. present(resNewInput)) then if (.not. present(resNewInput)) then
resNew=res resNew = res
elseif(all(resNewInput==0.0_pReal)) then
!do automatic determination
else 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 endif
NpointsNew = resNew(1)*resNew(2)*resNew(3) NpointsNew = resNew(1)*resNew(2)*resNew(3)