/[MITgcm]/MITgcm/pkg/ecco/cost_atlantic.F
ViewVC logotype

Diff of /MITgcm/pkg/ecco/cost_atlantic.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.3 by heimbach, Thu May 5 23:54:39 2005 UTC revision 1.4 by heimbach, Fri Jul 7 22:53:35 2006 UTC
# Line 63  c     == local variables == Line 63  c     == local variables ==
63        logical first        logical first
64        logical startofday        logical startofday
65        logical startofmonth        logical startofmonth
66          logical startofyear
67        logical inday        logical inday
68        logical inmonth        logical inmonth
69          logical inyear
70        logical last        logical last
71        logical endofday        logical endofday
72        logical endofmonth        logical endofmonth
73          logical endofyear
74    
75        _RL        p5        _RL        p5
76        parameter( p5 = 0.5 )        parameter( p5 = 0.5 )
# Line 104  c     == end of interface == Line 107  c     == end of interface ==
107  c--   Get the time flags and record numbers for the time averaging.  c--   Get the time flags and record numbers for the time averaging.
108    
109        call cost_AveragesFlags(        call cost_AveragesFlags(
110       I                         myiter,  mytime,     mythid,       I                    myiter,     mytime,       mythid,
111       O                         first,   startofday, startofmonth,       O                    first,      last,
112       O                         inday,   inmonth,       O                    startofday, startofmonth, startofyear,
113       O                         last,    endofday,   endofmonth,       O                    inday,      inmonth,      inyear,
114       O                         sum1day, dayrec,       O                    endofday,   endofmonth,   endofyear,
115       O                         sum1mon, monrec       O                    sum1day,    dayrec,
116       &                        )       O                    sum1mon,    monrec,
117         O                    sum1year,   yearrec
118         &                  )
119    
120  ce      print*,' cost_AveragesFields:       myiter = ', myiter  ce      print*,' cost_AveragesFields:       myiter = ', myiter
121  ce      print*,' cost_AveragesFields:       mytime = ', mytime  ce      print*,' cost_AveragesFields:       mytime = ', mytime
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22