/[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.2 by stephd, Tue May 3 17:02:26 2005 UTC revision 1.3 by stephd, Tue May 3 19:15:52 2005 UTC
# Line 28  C     == GLobal variables == Line 28  C     == GLobal variables ==
28  #include "PARAMS.h"  #include "PARAMS.h"
29  #include "GRID.h"  #include "GRID.h"
30  #include "CFC.h"  #include "CFC.h"
31    #include "GCHEM.h"
32    
33  C     == Routine arguments ==  C     == Routine arguments ==
34        INTEGER myIter        INTEGER myIter
# Line 58  C     == Local variables == Line 59  C     == Local variables ==
59           ENDDO           ENDDO
60    
61  c find atmospheric CFC  c find atmospheric CFC
62         myYear=float(myIter-nIter0)*deltaTclock         myYear=float(myIter-tIter0)*deltaTclock
63       &                       /(360.d0*24.d0*3600.d0)       &                       /(360.d0*24.d0*3600.d0)
64         lastYear=1+int(myYear+0.5)         lastYear=1+int(myYear+0.5)
65         thisYear=lastYear+1         thisYear=lastYear+1
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22