/[MITgcm]/MITgcm/pkg/ctrl/ctrl_set_fname.F
ViewVC logotype

Diff of /MITgcm/pkg/ctrl/ctrl_set_fname.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.1.2.1 by heimbach, Tue Feb 5 20:23:58 2002 UTC revision 1.1.2.2 by heimbach, Thu Apr 4 10:24:47 2002 UTC
# Line 69  c--   Only the master thread will do I/O Line 69  c--   Only the master thread will do I/O
69        write(adfname(1:80),'(80a)') ' '        write(adfname(1:80),'(80a)') ' '
70    
71        write(fname(1:80),'(2a,i10.10)')        write(fname(1:80),'(2a,i10.10)')
72       &     xx_fname(1:il),'.',optimcycle       &     xx_fname(1:il) ,'.', optimcycle
73        write(adfname(1:80),'(3a,i10.10)')        write(adfname(1:80),'(3a,i10.10)')
74       &     yadmark,xx_fname(1:il),'.',optimcycle       &     yadprefix, xx_fname(1:il), '.', optimcycle
75    
76        _END_MASTER( mythid )        _END_MASTER( mythid )
77    

Legend:
Removed from v.1.1.2.1  
changed lines
  Added in v.1.1.2.2

  ViewVC Help
Powered by ViewVC 1.1.22