/[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.4 by heimbach, Tue Jun 24 16:07:07 2003 UTC revision 1.10 by jmc, Fri Aug 10 19:38:57 2012 UTC
# Line 1  Line 1 
1  #include "CTRL_CPPOPTIONS.h"  C
2    C $Header$
3    C $Name$
4    
5    #include "CTRL_OPTIONS.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 24  c     == global variables == Line 26  c     == global variables ==
26  #include "PARAMS.h"  #include "PARAMS.h"
27  #include "GRID.h"  #include "GRID.h"
28    
 #include "ecco.h"  
29  #include "ctrl.h"  #include "ctrl.h"
 #include "cost.h"  
   
 #ifdef ALLOW_ECCO_OPTIMIZATION  
30  #include "optim.h"  #include "optim.h"
 #endif  
31    
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        character*( 80)   fname(3)
       character*( 80) adfname  
36        integer mythid        integer mythid
37    
38  c     == local variables ==  c     == local variables ==
39    
 #ifndef ALLOW_ECCO_OPTIMIZATION  
       integer optimcycle  
 #endif  
   
40        integer ii        integer ii
41        integer il        integer il
42    
# Line 55  c     == external == Line 47  c     == external ==
47    
48  c     == end of interface ==  c     == end of interface ==
49    
 #ifndef ALLOW_ECCO_OPTIMIZATION  
       optimcycle = 0  
 #endif  
   
50  c--   Only the master thread will do I/O.  c--   Only the master thread will do I/O.
51        _BEGIN_MASTER( mythid )        _BEGIN_MASTER( mythid )
52    
53        il=ilnblnk( xx_fname )        il=ilnblnk( xx_fname )
54    
55        write(  fname(1:80),'(80a)') ' '        write(fname(1)(1:80),'(80a)') ' '
56        write(adfname(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: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(adfname(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.4  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22