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

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

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

revision 1.3 by heimbach, Thu Sep 1 22:45:26 2005 UTC revision 1.4 by heimbach, Fri Sep 2 21:11:19 2005 UTC
# Line 36  c     == global variables == Line 36  c     == global variables ==
36  #ifdef ALLOW_COST  #ifdef ALLOW_COST
37  # include "ecco_cost.h"  # include "ecco_cost.h"
38  # include "optim.h"  # include "optim.h"
39    # ifdef ALLOW_SEAICE
40    #  include "SEAICE_COST.h"
41    # endif
42  #endif  #endif
43    
44  c     == routine arguments ==  c     == routine arguments ==
# Line 160  c--   Loop over records for the second t Line 163  c--   Loop over records for the second t
163  cnew(  cnew(
164          if ( localperiod .EQ. 86400. ) then          if ( localperiod .EQ. 86400. ) then
165  c-- assume daily fields  c-- assume daily fields
166             obsrec = -1             obsrec = irec
167             daytime = FLOAT(secondsperday*(irec-1))             daytime = FLOAT(secondsperday*(irec-1))
168             dayiter = hoursperday*(irec-1)             dayiter = hoursperday*(irec-1)
169             call cal_getdate( dayiter, daytime, daydate, mythid )             call cal_getdate( dayiter, daytime, daydate, mythid )
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22