pkg/ctrl/ctrl_set_fname.F

C
C $Header: /u/gcmpack/MITgcm/pkg/ctrl/ctrl_set_fname.F,v 1.5 2003/10/23 04:41:40 edhill Exp $
C $Name:  $

#include "CTRL_CPPOPTIONS.h"

      subroutine ctrl_set_fname( xx_fname, fname, 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(2)
      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)(1:80),'(80a)') ' '
      write(fname(2)(1:80),'(80a)') ' '

      if ( il .GT. 0 .AND. il .LE. 80 ) then
         write(fname(1)(1:80),'(2a,i10.10)')
     &        xx_fname(1:il) ,'.', optimcycle
         write(fname(2)(1:80),'(3a,i10.10)')
     &        yadprefix, xx_fname(1:il), '.', optimcycle
      endif

      _END_MASTER( mythid )

      end
1	C
2	C $Header: /u/gcmpack/MITgcm/pkg/ctrl/ctrl_set_fname.F,v 1.5 2003/10/23 04:41:40 edhill Exp $
3	C $Name: $
4
5	#include "CTRL_CPPOPTIONS.h"
6
7	subroutine ctrl_set_fname( xx_fname, fname, mythid )
8
9	c ==================================================================
10	c SUBROUTINE ctrl_set_fname
11	c ==================================================================
12	c
13	c o get filename for control variable and adjoint thereof
14	c o initialise adjoint field
15	c
16	c started: heimbach@mit.edu, 16-Aug-2001
17	c
18	c ==================================================================
19
20	implicit none
21
22	c == global variables ==
23
24	#include "EEPARAMS.h"
25	#include "SIZE.h"
26	#include "PARAMS.h"
27	#include "GRID.h"
28
29	#include "ecco.h"
30	#include "ctrl.h"
31	#include "cost.h"
32
33	#ifdef ALLOW_ECCO_OPTIMIZATION
34	#include "optim.h"
35	#endif
36
37	c == routine arguments ==
38
39	character*(MAX_LEN_FNAM) xx_fname
40	character*( 80) fname(2)
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)(1:80),'(80a)') ' '
69	write(fname(2)(1:80),'(80a)') ' '
70
71	if ( il .GT. 0 .AND. il .LE. 80 ) then
72	write(fname(1)(1:80),'(2a,i10.10)')
73	& xx_fname(1:il) ,'.', optimcycle
74	write(fname(2)(1:80),'(3a,i10.10)')
75	& yadprefix, xx_fname(1:il), '.', optimcycle
76	endif
77
78	_END_MASTER( mythid )
79
80	end