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

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

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

revision 1.5 by heimbach, Mon Mar 6 19:16:53 2006 UTC revision 1.6 by gforget, Wed Mar 29 21:16:04 2006 UTC
# Line 87  c     == end of interface == Line 87  c     == end of interface ==
87        spval = -9990.        spval = -9990.
88    
89  cnew(  cnew(
90        daytime = FLOAT(secondsperday*(irec-1))        daytime = FLOAT(secondsperday*(irec-1)) + modelstart
91        dayiter = hoursperday*(irec-1)        dayiter = hoursperday*(irec-1)+modeliter0
92        call cal_getdate( dayiter, daytime, daydate, mythid )        call cal_getdate( dayiter, daytime, daydate, mythid )
93        call cal_convdate( daydate,yday,md,dd,sd,ld,wd,mythid )        call cal_convdate( daydate,yday,md,dd,sd,ld,wd,mythid )
94        ymod = ersstartdate(1)/10000        ymod = ersstartdate(1)/10000
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22