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 |
|
|
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 |
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 |