iliptranpar=60
itube=61
+! IONS
+ iion=401
#if defined(WHAM_RUN) || defined(CLUSTER)
!
! setting the mpi variables for WHAM
#ifdef WHAM_RUN
if (itype(i,1).ne.10) then
#else
- if (itype(i,1).ne.10 .and. itype(i,mnum).ne.ntyp1_molec(mnum)) then
+ if (itype(i,1).ne.10 .and. itype(i,mnum).ne.ntyp1_molec(mnum) .and. mnum.ne.5) then
#endif
nside=nside+1
ialph(i,1)=nvar+nside