pkg/ctrl/ctrl_set_fname.F

C
C $Header: /u/gcmpack/MITgcm/pkg/ctrl/ctrl_set_fname.F,v 1.8 2004/11/16 05:42:12 heimbach 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 "ctrl.h"
#include "optim.h"

c     == routine arguments ==

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

c     == local variables ==

      integer ii
      integer il

c     == external ==

      integer  ilnblnk
      external ilnblnk

c     == end of interface ==

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)') ' '
      write(fname(3)(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
         write(fname(3)(1:80),'(3a,i10.10)')
     &        'hn', xx_fname(1:il), '.', optimcycle
      endif

      _END_MASTER( mythid )

      end
1	edhill	1.5	C
2	heimbach	1.9	C $Header: /u/gcmpack/MITgcm/pkg/ctrl/ctrl_set_fname.F,v 1.8 2004/11/16 05:42:12 heimbach Exp $
3	heimbach	1.6	C $Name: $
4	edhill	1.5
5	heimbach	1.2	#include "CTRL_CPPOPTIONS.h"
6
7	heimbach	1.6	subroutine ctrl_set_fname( xx_fname, fname, mythid )
8	heimbach	1.2
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 "ctrl.h"
30			#include "optim.h"
31
32			c == routine arguments ==
33
34			character*(MAX_LEN_FNAM) xx_fname
35	heimbach	1.9	character*( 80) fname(3)
36	heimbach	1.2	integer mythid
37
38			c == local variables ==
39
40			integer ii
41			integer il
42
43			c == external ==
44
45			integer ilnblnk
46			external ilnblnk
47
48			c == end of interface ==
49
50			c-- Only the master thread will do I/O.
51			_BEGIN_MASTER( mythid )
52
53			il=ilnblnk( xx_fname )
54
55	heimbach	1.6	write(fname(1)(1:80),'(80a)') ' '
56			write(fname(2)(1:80),'(80a)') ' '
57	heimbach	1.9	write(fname(3)(1:80),'(80a)') ' '
58	heimbach	1.2
59	heimbach	1.3	if ( il .GT. 0 .AND. il .LE. 80 ) then
60	heimbach	1.6	write(fname(1)(1:80),'(2a,i10.10)')
61	heimbach	1.3	& xx_fname(1:il) ,'.', optimcycle
62	heimbach	1.6	write(fname(2)(1:80),'(3a,i10.10)')
63	heimbach	1.3	& yadprefix, xx_fname(1:il), '.', optimcycle
64	heimbach	1.9	write(fname(3)(1:80),'(3a,i10.10)')
65			& 'hn', xx_fname(1:il), '.', optimcycle
66	heimbach	1.3	endif
67	heimbach	1.2
68			_END_MASTER( mythid )
69
70			end