pkg/ecco/cost_restore_averagesflags.F


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