/[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.5 by edhill, Thu Oct 23 04:41:40 2003 UTC revision 1.6 by heimbach, Thu Oct 30 19:09:05 2003 UTC
# Line 2  C Line 2  C
2  C $Header$  C $Header$
3  C $Name$  C $Name$
4    
 #include "AD_CONFIG.h"  
5  #include "CTRL_CPPOPTIONS.h"  #include "CTRL_CPPOPTIONS.h"
6    
7          subroutine ctrl_set_fname( xx_fname, fname, mythid )
       subroutine ctrl_set_fname(  
      I     xx_fname,fname, adfname, mythid )  
8    
9  c     ==================================================================  c     ==================================================================
10  c     SUBROUTINE ctrl_set_fname  c     SUBROUTINE ctrl_set_fname
# Line 40  c     == global variables == Line 37  c     == global variables ==
37  c     == routine arguments ==  c     == routine arguments ==
38    
39        character*(MAX_LEN_FNAM) xx_fname        character*(MAX_LEN_FNAM) xx_fname
40        character*( 80)   fname        character*( 80)   fname(2)
       character*( 80) adfname  
41        integer mythid        integer mythid
42    
43  c     == local variables ==  c     == local variables ==
# Line 69  c--   Only the master thread will do I/O Line 65  c--   Only the master thread will do I/O
65    
66        il=ilnblnk( xx_fname )        il=ilnblnk( xx_fname )
67    
68        write(  fname(1:80),'(80a)') ' '        write(fname(1)(1:80),'(80a)') ' '
69        write(adfname(1:80),'(80a)') ' '        write(fname(2)(1:80),'(80a)') ' '
70    
71        if ( il .GT. 0 .AND. il .LE. 80 ) then        if ( il .GT. 0 .AND. il .LE. 80 ) then
72           write(fname(1:80),'(2a,i10.10)')           write(fname(1)(1:80),'(2a,i10.10)')
73       &        xx_fname(1:il) ,'.', optimcycle       &        xx_fname(1:il) ,'.', optimcycle
74           write(adfname(1:80),'(3a,i10.10)')           write(fname(2)(1:80),'(3a,i10.10)')
75       &        yadprefix, xx_fname(1:il), '.', optimcycle       &        yadprefix, xx_fname(1:il), '.', optimcycle
76        endif        endif
77    
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22