--- MITgcm/pkg/ctrl/ctrl_set_fname.F	2003/10/23 04:41:40	1.5
+++ MITgcm/pkg/ctrl/ctrl_set_fname.F	2003/10/30 19:09:05	1.6
@@ -1,13 +1,10 @@
 C
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/ctrl/ctrl_set_fname.F,v 1.5 2003/10/23 04:41:40 edhill Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/ctrl/ctrl_set_fname.F,v 1.6 2003/10/30 19:09:05 heimbach Exp $
 C $Name:  $
 
-#include "AD_CONFIG.h"
 #include "CTRL_CPPOPTIONS.h"
 
-
-      subroutine ctrl_set_fname( 
-     I     xx_fname,fname, adfname, mythid )
+      subroutine ctrl_set_fname( xx_fname, fname, mythid )
 
 c     ==================================================================
 c     SUBROUTINE ctrl_set_fname
@@ -40,8 +37,7 @@
 c     == routine arguments ==
 
       character*(MAX_LEN_FNAM) xx_fname
-      character*( 80)   fname
-      character*( 80) adfname
+      character*( 80)   fname(2)
       integer mythid
 
 c     == local variables ==
@@ -69,13 +65,13 @@
 
       il=ilnblnk( xx_fname )
 
-      write(  fname(1:80),'(80a)') ' '
-      write(adfname(1:80),'(80a)') ' '
+      write(fname(1)(1:80),'(80a)') ' '
+      write(fname(2)(1:80),'(80a)') ' '
 
       if ( il .GT. 0 .AND. il .LE. 80 ) then
-         write(fname(1:80),'(2a,i10.10)')
+         write(fname(1)(1:80),'(2a,i10.10)')
      &        xx_fname(1:il) ,'.', optimcycle
-         write(adfname(1:80),'(3a,i10.10)')
+         write(fname(2)(1:80),'(3a,i10.10)')
      &        yadprefix, xx_fname(1:il), '.', optimcycle
       endif