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

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

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

revision 1.1 by heimbach, Sat Feb 6 02:43:03 2010 UTC revision 1.4 by heimbach, Sun Jun 19 22:47:51 2011 UTC
# Line 40  c     == routine arguments == Line 40  c     == routine arguments ==
40        logical startofgen(NGENCOST)        logical startofgen(NGENCOST)
41        logical endofgen(NGENCOST)        logical endofgen(NGENCOST)
42        logical ingen(NGENCOST)        logical ingen(NGENCOST)
43        logical sum1gen(NGENCOST)        integer sum1gen(NGENCOST)
44        logical genrec(NGENCOST)        integer genrec(NGENCOST)
45    
46        integer mythid        integer mythid
47    
# Line 53  c     == local variables == Line 53  c     == local variables ==
53  c     == end of interface ==  c     == end of interface ==
54    
55        do num_var = 1, NGENCOST        do num_var = 1, NGENCOST
56           if ( gencost_datafile(num_var) .ne. ' ' ) then
57           if ( gencost_avgperiod(num_var) .EQ. 'day' .OR.           if ( gencost_avgperiod(num_var) .EQ. 'day' .OR.
58       &        gencost_avgperiod(num_var) .EQ. 'DAY' ) then       &        gencost_avgperiod(num_var) .EQ. 'DAY' ) then
59              startofgen(num_var) = startofday              startofgen(num_var) = startofday
# Line 74  c     == end of interface == Line 75  c     == end of interface ==
75              ingen(num_var)      = inyear              ingen(num_var)      = inyear
76              sum1gen(num_var)    = sum1year              sum1gen(num_var)    = sum1year
77              genrec(num_var)     = yearrec              genrec(num_var)     = yearrec
78    #ifndef ALLOW_GENCOST_FREEFORM
79           else           else
80              STOP 'gencost_avgperiod wrongly specified'              STOP 'gencost_avgperiod wrongly specified'
81    #endif
82           end if           end if
83           end if
84        end do        end do
85                
86  #endif /* ALLOW_GENCOST_CONTRIBUTION */  #endif /* ALLOW_GENCOST_CONTRIBUTION */
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22