anchor.diff:       yname = trim(yname)//"x"//trim(adjustl(trim(yres)))
   
   
  -     !Filename for log
  +     !Filename for log of Hollinsworth analysis
        WRITE(icname,'(I4.2)') ic
        icname=trim(adjustl(trim(icname)))
        WRITE(coriname,'(I4.1)') coriolis_mtd
  
positive.code: 
    ! Zero orography - modify below for TC 5
    phis = 0.0d0
  
  
    IF (ic == 1) THEN
  
  
negative.code:         "_href"//trim(hrefname)//trim(slicename)//&
              "_log"//trim(adjustl(trim(yname)))//".dat"
       END IF
  
       !Write values on log file
       if(linearstabtest) then !Hollingsworth test with linearizations
  