pkg/ecco/cost_store_averagesflags.F

C $Header: /u/gcmpack/MITgcm/pkg/ecco/cost_store_averagesflags.F,v 1.4 2012/08/10 19:45:27 jmc Exp $
C $Name:  $

#include "ECCO_OPTIONS.h"

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

c     ==================================================================
c     SUBROUTINE cost_store_averagesflags
c     ==================================================================

      implicit none

c     == global variables ==

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

c     == routine arguments ==

      logical lflag
      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 ( lflag ) then
         IF (myProcId .eq. 0) THEN
            _BEGIN_MASTER( mythid )
            open(unit=76,file='costaveragesflags')
            write(76,*)
     &           sum1day, dayrec, sum1mon, monrec, sum1year,yearrec,
     &           restartdaydate, restartmondate,  restartyeardate
            close(76)
            _END_MASTER( mythid )
         ENDIF
      endif

      end
1	C $Header: /u/gcmpack/MITgcm/pkg/ecco/cost_store_averagesflags.F,v 1.4 2012/08/10 19:45:27 jmc Exp $
2	C $Name: $
3
4	#include "ECCO_OPTIONS.h"
5
6	subroutine cost_store_averagesflags(
7	& lflag, first, last,
8	& sum1day, dayrec, restartdaydate,
9	& sum1mon, monrec, restartmondate,
10	& sum1year,yearrec, restartyeardate,
11	& mythid )
12
13	c ==================================================================
14	c SUBROUTINE cost_store_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 lflag
28	logical first
29	logical last
30	integer sum1day
31	integer dayrec
32	integer sum1mon
33	integer monrec
34	integer sum1year
35	integer yearrec
36	_RL restartdaydate(4)
37	_RL restartmondate(4)
38	_RL restartyeardate(4)
39	integer mythid
40
41
42	if ( lflag ) then
43	IF (myProcId .eq. 0) THEN
44	_BEGIN_MASTER( mythid )
45	open(unit=76,file='costaveragesflags')
46	write(76,*)
47	& sum1day, dayrec, sum1mon, monrec, sum1year,yearrec,
48	& restartdaydate, restartmondate, restartyeardate
49	close(76)
50	_END_MASTER( mythid )
51	ENDIF
52	endif
53
54	end