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:      ELSE
          slicename=""
       END IF
  
  
       WRITE(hrefname,'(F8.3)') phiref/gravity
       hrefname=trim(adjustl(trim(hrefname)))//"lintest"
  
       IF(adt .NE. hdt)then
          filename="dump/"//"eg_swe_ic"//trim(icname)//"_cor"//trim(coriname)//&
              "_href"//trim(hrefname)//trim(slicename)//&
  
negative.code:      yname = trim(yname)//"x"//trim(adjustl(trim(yres)))
  
  
       !Filename for log of Hollinsworth analysis
       WRITE(icname,'(I4.2)') ic
       icname=trim(adjustl(trim(icname)))
       WRITE(coriname,'(I4.1)') coriolis_mtd
  