Commit 1b30c0e6 authored by Sebastian Heimann's avatar Sebastian Heimann
Browse files

increased maximum filename lengths

parent 28116d75
......@@ -121,7 +121,7 @@ c
enddo
enddo
c
do flen=80,1,-1
do flen=800,1,-1
if(grndir(flen:flen).ne.' ')goto 200
enddo
200 continue
......@@ -297,7 +297,7 @@ c
read(unit,*)latr(ir),lonr(ir),rname(ir),tred(ir)
enddo
c
do flen=80,1,-1
do flen=800,1,-1
if(outfile(flen:flen).ne.' ')goto 300
enddo
300 continue
......
......@@ -64,7 +64,7 @@ c
complex yp(0:ldegmax,4,0:ndmax),ys(0:ldegmax,4,0:ndmax)
complex yg(0:ldegmax,4,0:ndmax),yv(0:ldegmax,4,0:ndmax)
complex yw(0:ldegmax,4,0:ndmax)
character*80 grnfile(ngrnmax),
character*800 grnfile(ngrnmax),
& rgrnfile(ngrnmax),tgrnfile(ngrnmax),
& pgrnfile(ngrnmax),sgrnfile(ngrnmax),
& ggrnfile(ngrnmax),vgrnfile(ngrnmax),
......@@ -105,7 +105,7 @@ c
double complex ug(nfmax,nrmax),uv(nfmax,nrmax)
double complex uw(nfmax,nrmax)
character*10 rname(nrmax)
character*80 uxout,uyout,uzout,
character*800 uxout,uyout,uzout,
& vxout,vyout,vzout,
& axout,ayout,azout,
& sdout,grout,tvout,
......
......@@ -7,7 +7,7 @@ c work space
c
integer ig,ierr,runtime
integer time
character*80 inputfile
character*800 inputfile
c
c read input file file
c
......
Supports Markdown
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