From 7654679ae1f6ff016122cd5f8024f351f270fe03 Mon Sep 17 00:00:00 2001 From: Lorenzo Figini Date: Fri, 4 Dec 2015 15:47:05 +0000 Subject: [PATCH] fixed error code for bad warm Nperp --- src/errcodes.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/errcodes.f90 b/src/errcodes.f90 index f3a2d94..280399d 100644 --- 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)