/[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.5 by edhill, Thu Oct 23 04:41:40 2003 UTC
# Line 1  Line 1 
1    C
2    C $Header$
3    C $Name$
4    
5    #include "AD_CONFIG.h"
6  #include "CTRL_CPPOPTIONS.h"  #include "CTRL_CPPOPTIONS.h"
7    
8    
# Line 24  c     == global variables == Line 29  c     == global variables ==
29  #include "PARAMS.h"  #include "PARAMS.h"
30  #include "GRID.h"  #include "GRID.h"
31    
32    #include "ecco.h"
33  #include "ctrl.h"  #include "ctrl.h"
34  #include "cost.h"  #include "cost.h"
35    
# Line 66  c--   Only the master thread will do I/O Line 72  c--   Only the master thread will do I/O
72        write(  fname(1:80),'(80a)') ' '        write(  fname(1:80),'(80a)') ' '
73        write(adfname(1:80),'(80a)') ' '        write(adfname(1:80),'(80a)') ' '
74    
75        write(fname(1:80),'(2a,i10.10)')        if ( il .GT. 0 .AND. il .LE. 80 ) then
76       &     xx_fname(1:il) ,'.', optimcycle           write(fname(1:80),'(2a,i10.10)')
77        write(adfname(1:80),'(3a,i10.10)')       &        xx_fname(1:il) ,'.', optimcycle
78       &     yadprefix, xx_fname(1:il), '.', optimcycle           write(adfname(1:80),'(3a,i10.10)')
79         &        yadprefix, xx_fname(1:il), '.', optimcycle
80          endif
81    
82        _END_MASTER( mythid )        _END_MASTER( mythid )
83    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22