Browse Source

bugfix

master
mmetz 5 days ago
parent
commit
30c5452213
  1. 6
      src/idsmodel.f

6
src/idsmodel.f

@ -53,7 +53,7 @@ c
allocate (smgrnfile(ng),stat=ierr)
if(ierr.ne.0)stop ' Error in idsmodel: smgrnfile not allocated!'
c
read(10,*)((deps(ig),smgrnfile(ig)),ig=1,ng)
read(10,*)(deps(ig),smgrnfile(ig),ig=1,ng)
do ig=1,ng
smgrnfile(ig)=smgrndir(1:ind)//smgrnfile(ig)
deps(ig)=deps(ig)*KM2M
@ -118,10 +118,10 @@ c
if(ierr.ne.0)stop ' Error in idsmodel: slwts not allocated!'
c
open(11,file=tptable,form='unformatted',status='old')
read(11)(((tp(ir,ig),tkftp(ir,ig),slwtp(ir,ig)),ir=1,nr),ig=1,ng)
read(11)((tp(ir,ig),tkftp(ir,ig),slwtp(ir,ig),ir=1,nr),ig=1,ng)
close(11)
open(12,file=tstable,form='unformatted',status='old')
read(12)(((ts(ir,ig),tkfts(ir,ig),slwts(ir,ig)),ir=1,nr),ig=1,ng)
read(12)((ts(ir,ig),tkfts(ir,ig),slwts(ir,ig),ir=1,nr),ig=1,ng)
close(12)
c
c empirical scaling laws

Loading…
Cancel
Save