--- MITgcm/pkg/ctrl/ctrl_set_fname.F	2002/07/13 02:47:32	1.2
+++ MITgcm/pkg/ctrl/ctrl_set_fname.F	2003/01/10 17:25:23	1.3
@@ -66,10 +66,12 @@
       write(  fname(1:80),'(80a)') ' '
       write(adfname(1:80),'(80a)') ' '
 
-      write(fname(1:80),'(2a,i10.10)')
-     &     xx_fname(1:il) ,'.', optimcycle
-      write(adfname(1:80),'(3a,i10.10)')
-     &     yadprefix, xx_fname(1:il), '.', optimcycle
+      if ( il .GT. 0 .AND. il .LE. 80 ) then
+         write(fname(1:80),'(2a,i10.10)')
+     &        xx_fname(1:il) ,'.', optimcycle
+         write(adfname(1:80),'(3a,i10.10)')
+     &        yadprefix, xx_fname(1:il), '.', optimcycle
+      endif
 
       _END_MASTER( mythid )