/[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.8 by jmc, Sun Aug 6 01:29:12 2006 UTC revision 1.9 by jmc, Mon Nov 5 18:55:44 2007 UTC
# Line 14  C Line 14  C
14  #undef STEPH_GRAD  #undef STEPH_GRAD
15    
16  CStartOfInterFace  CStartOfInterFace
17        SUBROUTINE CFC11_FORCING( PTR_CFC11, GCFC11,        SUBROUTINE CFC11_FORCING( PTR_CFC11, GCFC11,
18       &                            bi,bj,imin,imax,jmin,jmax,       &                            bi,bj,imin,imax,jmin,jmax,
19       &                             myIter,myTime,myThid)       &                             myIter,myTime,myThid)
20    
21  C     /==========================================================\  C     /==========================================================\
22  C     | SUBROUTINE CFC11_FORCING                                   |  C     | SUBROUTINE CFC11_FORCING                                   |
23  C     | o Calculate the changes to CFC11 through air-sea  fluxes   |    C     | o Calculate the changes to CFC11 through air-sea  fluxes   |
24  C     |==========================================================|  C     |==========================================================|
25        IMPLICIT NONE        IMPLICIT NONE
26    
# Line 30  C     == GLobal variables == Line 30  C     == GLobal variables ==
30  #include "PARAMS.h"  #include "PARAMS.h"
31  #include "GRID.h"  #include "GRID.h"
32  #include "CFC.h"  #include "CFC.h"
 c#include "GCHEM.h"  
33  #include "PTRACERS_SIZE.h"  #include "PTRACERS_SIZE.h"
34  #include "PTRACERS.h"  #include "PTRACERS_PARAMS.h"
35    
36  C     == Routine arguments ==  C     == Routine arguments ==
37        INTEGER myIter        INTEGER myIter
# Line 56  C     == Local variables == Line 55  C     == Local variables ==
55         _RL a1, a2         _RL a1, a2
56  #endif  #endif
57         _RL yNorth, ySouth         _RL yNorth, ySouth
58          
59    
60           DO j=1-OLy,sNy+OLy           DO j=1-OLy,sNy+OLy
61            DO i=1-OLx,sNx+OLx            DO i=1-OLx,sNx+OLx
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22