/[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.2 by heimbach, Sat Jul 13 02:47:32 2002 UTC revision 1.7 by heimbach, Thu Nov 6 22:05:08 2003 UTC
# Line 1  Line 1 
1  #include "CTRL_CPPOPTIONS.h"  C
2    C $Header$
3    C $Name$
4    
5    #include "CTRL_CPPOPTIONS.h"
6    
7        subroutine ctrl_set_fname(        subroutine ctrl_set_fname( xx_fname, fname, mythid )
      I     xx_fname,fname, adfname, mythid )  
8    
9  c     ==================================================================  c     ==================================================================
10  c     SUBROUTINE ctrl_set_fname  c     SUBROUTINE ctrl_set_fname
# Line 25  c     == global variables == Line 27  c     == global variables ==
27  #include "GRID.h"  #include "GRID.h"
28    
29  #include "ctrl.h"  #include "ctrl.h"
 #include "cost.h"  
30    
31  #ifdef ALLOW_ECCO_OPTIMIZATION  #ifdef ALLOW_ECCO_OPTIMIZATION
32  #include "optim.h"  #include "optim.h"
# Line 34  c     == global variables == Line 35  c     == global variables ==
35  c     == routine arguments ==  c     == routine arguments ==
36    
37        character*(MAX_LEN_FNAM) xx_fname        character*(MAX_LEN_FNAM) xx_fname
38        character*( 80)   fname        character*( 80)   fname(2)
       character*( 80) adfname  
39        integer mythid        integer mythid
40    
41  c     == local variables ==  c     == local variables ==
# Line 63  c--   Only the master thread will do I/O Line 63  c--   Only the master thread will do I/O
63    
64        il=ilnblnk( xx_fname )        il=ilnblnk( xx_fname )
65    
66        write(  fname(1:80),'(80a)') ' '        write(fname(1)(1:80),'(80a)') ' '
67        write(adfname(1:80),'(80a)') ' '        write(fname(2)(1:80),'(80a)') ' '
68    
69        write(fname(1:80),'(2a,i10.10)')        if ( il .GT. 0 .AND. il .LE. 80 ) then
70       &     xx_fname(1:il) ,'.', optimcycle           write(fname(1)(1:80),'(2a,i10.10)')
71        write(adfname(1:80),'(3a,i10.10)')       &        xx_fname(1:il) ,'.', optimcycle
72       &     yadprefix, xx_fname(1:il), '.', optimcycle           write(fname(2)(1:80),'(3a,i10.10)')
73         &        yadprefix, xx_fname(1:il), '.', optimcycle
74          endif
75    
76        _END_MASTER( mythid )        _END_MASTER( mythid )
77    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22