Commit 5c925e8f authored by Stefan's avatar Stefan
Browse files

Print required lelr if too small

parent 8fec96ae
......@@ -1504,8 +1504,8 @@ c-----------------------------------------------------------------------
if (nid.eq.0) then
write(6,*) 'mesh metrics:'
write(6,'(A,1p3E9.2)') ' GLL grid spacing min/max :',
$ dxmin,dxmax,dxavg
write(6,'(A,1p2E9.2)') ' GLL grid spacing min/max :',
$ dxmin,dxmax
write(6,'(A,1p3E9.2)') ' scaled Jacobian min/max/avg:',
$ dsjmin,dsjmax,dsjavg
write(6,'(A,1p3E9.2)') ' aspect ratio min/max/avg:',
......
......@@ -2306,7 +2306,7 @@ c 4 7 10 13 23 33 53 62 68 74
if (nid.eq.0) write(6,*) 'WARNING: reading depreacted header!'
if (nelr.gt.lelr) then
write(6,*)nid,nelr,lelr,'parse_std_hdr06: inc. lelr in RESTART'
write(6,*) 'ERROR: increase lelr in SIZE to ', nelr
call exitt
endif
......@@ -2560,16 +2560,9 @@ c-----------------------------------------------------------------------
ifmpiio = .false.
#endif
if (ifmpiio) then
if (nelt.gt.lelr) then
write(6,*) 'ERROR: increase lelr in SIZE!', lelr, nelt
call exitt
endif
else
if (nelr.gt.lelr) then
write(6,*) 'ERROR: increase lelr in SIZE!', lelr, nelr
call exitt
endif
if (nelr.gt.lelr) then
write(6,*) 'ERROR: increase lelr in SIZE to ', nelr
call exitt
endif
if(.not.ifmpiio) then
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment