/[MITgcm]/MITgcm/pkg/cfc/cfc11_forcing.F
ViewVC logotype

Diff of /MITgcm/pkg/cfc/cfc11_forcing.F

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

revision 1.6 by ce107, Thu May 19 21:46:15 2005 UTC revision 1.7 by stephd, Tue Dec 6 17:01:06 2005 UTC
# Line 77  c       &write(0,*) 'myYear = ',myYear,l Line 77  c       &write(0,*) 'myYear = ',myYear,l
77       &                + ACFC11(thisYear,2)*aWght       &                + ACFC11(thisYear,2)*aWght
78         else         else
79           ACFC11north = ACFC11(maxYear,1)           ACFC11north = ACFC11(maxYear,1)
80           ACFC11south = ACFC11(maxYear,1)           ACFC11south = ACFC11(maxYear,2)
81         endif         endif
82  c      print*,'ACFC11north,ACFC11south', ACFC11north,ACFC11south,  c      print*,'ACFC11north,ACFC11south', ACFC11north,ACFC11south,
83  c    &                                   lastYear,thisYear  c    &                                   lastYear,thisYear
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22