/[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.3 by stephd, Tue May 3 19:15:52 2005 UTC revision 1.4 by stephd, Thu May 5 17:20:33 2005 UTC
# Line 75  c       &write(0,*) 'myYear = ',myYear,l Line 75  c       &write(0,*) 'myYear = ',myYear,l
75           ACFC11south = ACFC11(lastYear,2)*bWght           ACFC11south = ACFC11(lastYear,2)*bWght
76       &                + ACFC11(thisYear,2)*aWght       &                + ACFC11(thisYear,2)*aWght
77         else         else
78           ACFC11north = ACFC11(thisYear,1)           ACFC11north = ACFC11(maxYear,1)
79           ACFC11south = ACFC11(thisYear,1)           ACFC11south = ACFC11(maxYear,1)
80         endif         endif
81  c      print*,'ACFC11north,ACFC11south', ACFC11north,ACFC11south,  c      print*,'ACFC11north,ACFC11south', ACFC11north,ACFC11south,
82  c    &                                   lastYear,thisYear  c    &                                   lastYear,thisYear
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22