pkg/ctrl/ctrl_set_fname.F

C
C $Header: $
C $Name: $

#include "AD_CONFIG.h"
#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 "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)') ' '

      if ( il .GT. 0 .AND. il .LE. 80 ) then
         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
      endif

      _END_MASTER( mythid )

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