anchor.diff:    ELSE
        slicename=""
     ENDIF
  -  IF(ic==8 .AND. .TRUE.)THEN !Hollingsworth test with linearizations
  -     WRITE(hrefname,'(F8.3)') phiref/gravity
  -     hrefname=trim(adjustl(trim(hrefname)))
  -  ENDIF
  +  !IF(ic==8 .AND. .TRUE.)THEN !Hollingsworth test with linearizations
  +  WRITE(hrefname,'(F8.3)') phiref/gravity
  +  hrefname=trim(adjustl(trim(hrefname)))
  +  !ENDIF
     filename="dump/"//"eg_swe_run_ic"//trim(icname)//"_cor"//trim(coriname)//&
       "_href"//trim(hrefname)//trim(slicename)//"_"//trim(adjustl(trim(ytitle)))//".dat"
     !filename="dump/"//"eg_swe_cor"//trim(coriname)//"ic"//trim(icname)//"_"//trim(ytitle)//".dat"
  
positive.code: ! treatment of phi.
  !
  ! Modified by P.Peixoto in Sept 2015 for output and input
  !------------------------------------------------
  
  MODULE version
  
negative.code: 
    ! Zero orography - modify below for TC 5
    phis = 0.0d0
  
    IF (ic == 1) THEN
  
  