pkg/ecco/cost_restore_averagesflags.F

C $Header:  $
C $Name:  $

#include "COST_CPPOPTIONS.h"

      subroutine cost_restore_averagesflags(
     &           lcostrestart, first, last,
     &           sum1day, dayrec, restartdaydate,
     &           sum1mon, monrec, restartmondate,
     &           sum1year,yearrec, restartyeardate,
     &           mythid )

c     ==================================================================
c     SUBROUTINE cost_restore_averagesflags
c     ==================================================================

      implicit none

c     == global variables ==

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

c     == routine arguments ==

      logical lcostrestart
      logical first
      logical last
      integer sum1day
      integer dayrec
      integer sum1mon
      integer monrec
      integer sum1year
      integer yearrec
      _RL     restartdaydate(4)
      _RL     restartmondate(4)
      _RL     restartyeardate(4)
      integer mythid


      IF (myProcId .eq. 0) THEN
         _BEGIN_MASTER( mythid )
         open(unit=76,file='costaveragesflags')
         read(76,*)
     &        sum1day, dayrec, sum1mon, monrec, sum1year,yearrec,
     &        restartdaydate, restartmondate, restartyeardate
         close(76)
         _END_MASTER( mythid )
      ENDIF

      end
1	jmc	1.3	C $Header: $
2			C $Name: $
3	heimbach	1.1
4			#include "COST_CPPOPTIONS.h"
5
6			subroutine cost_restore_averagesflags(
7	jmc	1.3	& lcostrestart, first, last,
8	heimbach	1.2	& sum1day, dayrec, restartdaydate,
9			& sum1mon, monrec, restartmondate,
10			& sum1year,yearrec, restartyeardate,
11	heimbach	1.1	& mythid )
12
13			c ==================================================================
14			c SUBROUTINE cost_restore_averagesflags
15			c ==================================================================
16
17			implicit none
18
19			c == global variables ==
20
21			#include "EEPARAMS.h"
22			#include "SIZE.h"
23			#include "PARAMS.h"
24
25			c == routine arguments ==
26
27			logical lcostrestart
28			logical first
29			logical last
30			integer sum1day
31			integer dayrec
32			integer sum1mon
33			integer monrec
34	heimbach	1.2	integer sum1year
35			integer yearrec
36	heimbach	1.1	_RL restartdaydate(4)
37			_RL restartmondate(4)
38	heimbach	1.2	_RL restartyeardate(4)
39	heimbach	1.1	integer mythid
40
41
42			IF (myProcId .eq. 0) THEN
43			_BEGIN_MASTER( mythid )
44			open(unit=76,file='costaveragesflags')
45	jmc	1.3	read(76,*)
46	heimbach	1.2	& sum1day, dayrec, sum1mon, monrec, sum1year,yearrec,
47			& restartdaydate, restartmondate, restartyeardate
48	heimbach	1.1	close(76)
49			_END_MASTER( mythid )
50			ENDIF
51
52			end