--- 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 )