fixed error code for bad warm Nperp

2015-12-04 15:47:05 +00:00 · 2015-12-04 15:47:05 +00:00 · 7654679ae1
commit 7654679ae1
parent 1cd0503476
1 changed files with 1 additions and 1 deletions
--- a/src/errcodes.f90
+++ b/src/errcodes.f90
@ -57,7 +57,7 @@ contains

    ierrs=ibits(ierr,pnprre,lnprre)
    if(ierrs/=0) &
-      print*,i,'    IERR = ', ierrs*2**pconv,'  Nwarm = ',anprre,anprim, &
+      print*,i,'    IERR = ', ierrs*2**pnprre,'  Nwarm = ',anprre,anprim, &
        ': Re(Nwarm)<0 or Nwarm**2 invalid.'

    ierrs=ibits(ierr,palph,lalph)