/[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.8 by heimbach, Tue Nov 16 05:42:12 2004 UTC revision 1.9 by heimbach, Fri Dec 2 18:43:03 2011 UTC
# Line 32  c     == global variables == Line 32  c     == global variables ==
32  c     == routine arguments ==  c     == routine arguments ==
33    
34        character*(MAX_LEN_FNAM) xx_fname        character*(MAX_LEN_FNAM) xx_fname
35        character*( 80)   fname(2)        character*( 80)   fname(3)
36        integer mythid        integer mythid
37    
38  c     == local variables ==  c     == local variables ==
# Line 54  c--   Only the master thread will do I/O Line 54  c--   Only the master thread will do I/O
54    
55        write(fname(1)(1:80),'(80a)') ' '        write(fname(1)(1:80),'(80a)') ' '
56        write(fname(2)(1:80),'(80a)') ' '        write(fname(2)(1:80),'(80a)') ' '
57          write(fname(3)(1:80),'(80a)') ' '
58    
59        if ( il .GT. 0 .AND. il .LE. 80 ) then        if ( il .GT. 0 .AND. il .LE. 80 ) then
60           write(fname(1)(1:80),'(2a,i10.10)')           write(fname(1)(1:80),'(2a,i10.10)')
61       &        xx_fname(1:il) ,'.', optimcycle       &        xx_fname(1:il) ,'.', optimcycle
62           write(fname(2)(1:80),'(3a,i10.10)')           write(fname(2)(1:80),'(3a,i10.10)')
63       &        yadprefix, xx_fname(1:il), '.', optimcycle       &        yadprefix, xx_fname(1:il), '.', optimcycle
64             write(fname(3)(1:80),'(3a,i10.10)')
65         &        'hn', xx_fname(1:il), '.', optimcycle
66        endif        endif
67    
68        _END_MASTER( mythid )        _END_MASTER( mythid )
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22