/[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.7 by stephd, Tue Dec 6 17:01:06 2005 UTC revision 1.8 by jmc, Sun Aug 6 01:29:12 2006 UTC
# Line 1  Line 1 
1    C $Header$
2    C $Name$
3    
4  C modified for external_forcing_DIC.F  August 1999  C modified for external_forcing_DIC.F  August 1999
 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  
5  c  c
6  c modified swd Oct 01 and Feb 02, for use as package for c40_patch1  c modified swd Oct 01 and Feb 02, for use as package for c40_patch1
7  c modified to use with c44 and ptracers: swd May 2002  c modified to use with c44 and ptracers: swd May 2002
# Line 8  c modified for cfc: swd Sep 2003 Line 10  c modified for cfc: swd Sep 2003
10  C  C
11    
12  #include "GCHEM_OPTIONS.h"  #include "GCHEM_OPTIONS.h"
13    #define OCMIP_GRAD
14    #undef STEPH_GRAD
15    
16  CStartOfInterFace  CStartOfInterFace
17        SUBROUTINE CFC11_FORCING( PTR_CFC11, GCFC11,        SUBROUTINE CFC11_FORCING( PTR_CFC11, GCFC11,
# Line 22  C     |================================= Line 26  C     |=================================
26    
27  C     == GLobal variables ==  C     == GLobal variables ==
28  #include "SIZE.h"  #include "SIZE.h"
 #include "DYNVARS.h"  
29  #include "EEPARAMS.h"  #include "EEPARAMS.h"
30  #include "PARAMS.h"  #include "PARAMS.h"
31  #include "GRID.h"  #include "GRID.h"
32  #include "CFC.h"  #include "CFC.h"
33  #include "GCHEM.h"  c#include "GCHEM.h"
34  #include "PTRACERS_SIZE.h"  #include "PTRACERS_SIZE.h"
35  #include "PTRACERS.h"  #include "PTRACERS.h"
36    
# Line 49  C     == Local variables == Line 52  C     == Local variables ==
52         _RL dtinc, aWght, bWght         _RL dtinc, aWght, bWght
53         _RL ACFC11north, ACFC11south         _RL ACFC11north, ACFC11south
54         INTEGER maxYear         INTEGER maxYear
55    #ifdef STEPH_GRAD
56         _RL a1, a2         _RL a1, a2
57    #endif
58         _RL yNorth, ySouth         _RL yNorth, ySouth
59                
60    
# Line 59  C     == Local variables == Line 64  C     == Local variables ==
64            ENDDO            ENDDO
65           ENDDO           ENDDO
66    
67  c find atmospheric CFC  C find atmospheric CFC
68         myYear=float(myIter-PTRACERS_Iter0)*deltaTclock         myYear=float(myIter-PTRACERS_Iter0)*deltaTclock
69       &                       /(360.d0*24.d0*3600.d0)       &                       /(360.d0*24.d0*3600.d0)
70         lastYear=1+int(myYear+0.5)         lastYear=1+int(myYear+0.5)
# Line 81  c       &write(0,*) 'myYear = ',myYear,l Line 86  c       &write(0,*) 'myYear = ',myYear,l
86         endif         endif
87  c      print*,'ACFC11north,ACFC11south', ACFC11north,ACFC11south,  c      print*,'ACFC11north,ACFC11south', ACFC11north,ACFC11south,
88  c    &                                   lastYear,thisYear  c    &                                   lastYear,thisYear
89  c provide gradient between N and S values  C provide gradient between N and S values
90  #define OCMIP_GRAD  
91  #undef STEPH_GRAD  C STEPH'S INITIAL VERSION
 c STEPH'S INITIAL VERSION  
92  #ifdef STEPH_GRAD  #ifdef STEPH_GRAD
93         DO j=1-OLy,sNy+OLy         DO j=1-OLy,sNy+OLy
94            DO i=1-OLx,sNx+OLx            DO i=1-OLx,sNx+OLx
# Line 125  c OCMIP VERSION Line 129  c OCMIP VERSION
129  c         print*,'QQ cfc11', j, ATMOSCFC11(1,j,bi,bj)  c         print*,'QQ cfc11', j, ATMOSCFC11(1,j,bi,bj)
130         ENDDO         ENDDO
131  #endif  #endif
132  c cfc11 air-sea interaction  C cfc11 air-sea interaction
133         CALL CFC11_SURFFORCING( PTR_CFC11, SURCFC11,         CALL CFC11_SURFFORCING( PTR_CFC11, SURCFC11,
134       &                    bi,bj,imin,imax,jmin,jmax,       &                    bi,bj,imin,imax,jmin,jmax,
135       &                    myIter,myTime,myThid)       &                    myIter,myTime,myThid)
# Line 139  c cfc11 air-sea interaction Line 143  c cfc11 air-sea interaction
143  #endif  #endif
144  #endif  #endif
145    
 c  
146         RETURN         RETURN
147         END         END
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22