pkg/ctrl/ctrl_set_fname.F

#include "CTRL_CPPOPTIONS.h"


      subroutine ctrl_set_fname( 
     I     xx_fname,fname, adfname, mythid )

c     ==================================================================
c     SUBROUTINE ctrl_set_fname
c     ==================================================================
c
c     o get filename for control variable and adjoint thereof
c     o initialise adjoint field
c
c     started: heimbach@mit.edu, 16-Aug-2001
c
c     ==================================================================

      implicit none

c     == global variables ==

#include "EEPARAMS.h"
#include "SIZE.h"
#include "PARAMS.h"
#include "GRID.h"

#include "cal.h"
#include "ecco.h"
#include "ctrl.h"
#include "cost.h"

#ifdef ALLOW_ECCO_OPTIMIZATION
#include "optim.h"
#endif

c     == routine arguments ==

      character*(MAX_LEN_FNAM) xx_fname
      character*( 80)   fname
      character*( 80) adfname
      integer mythid

c     == local variables ==

#ifndef ALLOW_ECCO_OPTIMIZATION
      integer optimcycle
#endif

      integer ii
      integer il

c     == external ==

      integer  ilnblnk
      external ilnblnk

c     == end of interface ==

#ifndef ALLOW_ECCO_OPTIMIZATION
      optimcycle = 0
#endif

c--   Only the master thread will do I/O.
      _BEGIN_MASTER( mythid )

      il=ilnblnk( xx_fname )

      write(  fname(1:80),'(80a)') ' '
      write(adfname(1:80),'(80a)') ' '

      write(fname(1:80),'(2a,i10.10)')
     &     xx_fname(1:il) ,'.', optimcycle
      write(adfname(1:80),'(3a,i10.10)')
     &     yadprefix, xx_fname(1:il), '.', optimcycle

      _END_MASTER( mythid )

      end
1	heimbach	1.1.2.1	#include "CTRL_CPPOPTIONS.h"
2
3
4			subroutine ctrl_set_fname(
5			I xx_fname,fname, adfname, mythid )
6
7			c ==================================================================
8			c SUBROUTINE ctrl_set_fname
9			c ==================================================================
10			c
11			c o get filename for control variable and adjoint thereof
12			c o initialise adjoint field
13			c
14			c started: heimbach@mit.edu, 16-Aug-2001
15			c
16			c ==================================================================
17
18			implicit none
19
20			c == global variables ==
21
22			#include "EEPARAMS.h"
23			#include "SIZE.h"
24			#include "PARAMS.h"
25			#include "GRID.h"
26
27			#include "cal.h"
28			#include "ecco.h"
29			#include "ctrl.h"
30			#include "cost.h"
31
32			#ifdef ALLOW_ECCO_OPTIMIZATION
33			#include "optim.h"
34			#endif
35
36			c == routine arguments ==
37
38			character*(MAX_LEN_FNAM) xx_fname
39			character*( 80) fname
40			character*( 80) adfname
41			integer mythid
42
43			c == local variables ==
44
45			#ifndef ALLOW_ECCO_OPTIMIZATION
46			integer optimcycle
47			#endif
48
49			integer ii
50			integer il
51
52			c == external ==
53
54			integer ilnblnk
55			external ilnblnk
56
57			c == end of interface ==
58
59			#ifndef ALLOW_ECCO_OPTIMIZATION
60			optimcycle = 0
61			#endif
62
63			c-- Only the master thread will do I/O.
64			_BEGIN_MASTER( mythid )
65
66			il=ilnblnk( xx_fname )
67
68			write( fname(1:80),'(80a)') ' '
69			write(adfname(1:80),'(80a)') ' '
70
71			write(fname(1:80),'(2a,i10.10)')
72	heimbach	1.1.2.2	& xx_fname(1:il) ,'.', optimcycle
73	heimbach	1.1.2.1	write(adfname(1:80),'(3a,i10.10)')
74	heimbach	1.1.2.2	& yadprefix, xx_fname(1:il), '.', optimcycle
75	heimbach	1.1.2.1
76			_END_MASTER( mythid )
77
78			end