/[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.4 by stephd, Thu May 5 17:20:33 2005 UTC revision 1.5 by jmc, Sat May 14 22:53:02 2005 UTC
# Line 7  c modified to have carbonate and biologi Line 7  c modified to have carbonate and biologi
7  c modified for cfc: swd Sep 2003  c modified for cfc: swd Sep 2003
8  C  C
9    
 #include "CPP_OPTIONS.h"  
10  #include "GCHEM_OPTIONS.h"  #include "GCHEM_OPTIONS.h"
11    
12  CStartOfInterFace  CStartOfInterFace
# Line 29  C     == GLobal variables == Line 28  C     == GLobal variables ==
28  #include "GRID.h"  #include "GRID.h"
29  #include "CFC.h"  #include "CFC.h"
30  #include "GCHEM.h"  #include "GCHEM.h"
31    #include "PTRACERS_SIZE.h"
32    #include "PTRACERS.h"
33    
34  C     == Routine arguments ==  C     == Routine arguments ==
35        INTEGER myIter        INTEGER myIter
# Line 59  C     == Local variables == Line 60  C     == Local variables ==
60           ENDDO           ENDDO
61    
62  c find atmospheric CFC  c find atmospheric CFC
63         myYear=float(myIter-tIter0)*deltaTclock         myYear=float(myIter-PTRACERS_Iter0)*deltaTclock
64       &                       /(360.d0*24.d0*3600.d0)       &                       /(360.d0*24.d0*3600.d0)
65         lastYear=1+int(myYear+0.5)         lastYear=1+int(myYear+0.5)
66         thisYear=lastYear+1         thisYear=lastYear+1
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22