/[MITgcm]/MITgcm/pkg/gchem/gchem_calc_tendency.F
ViewVC logotype

Diff of /MITgcm/pkg/gchem/gchem_calc_tendency.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.2 by mlosch, Mon Nov 29 03:34:55 2004 UTC revision 1.3 by jmc, Mon Nov 5 19:05:01 2007 UTC
# Line 16  C this subroutine computes the tracer te Line 16  C this subroutine computes the tracer te
16  C bio-geogchemistry or ecosystem model and stores them on an array  C bio-geogchemistry or ecosystem model and stores them on an array
17  C gchemTendency, that will be incorporated into regular timestepping in  C gchemTendency, that will be incorporated into regular timestepping in
18  C in ptracers_intergrate.F  C in ptracers_intergrate.F
19  C The current example uses the CFC package, but his is meant to  C The current example uses the CFC package, but his is meant to
20  C be replaced by anything that the user provides.  C be replaced by anything that the user provides.
21    
22  C !USES: ===============================================================  C !USES: ===============================================================
# Line 27  C !USES: =============================== Line 27  C !USES: ===============================
27  #include "EEPARAMS.h"  #include "EEPARAMS.h"
28  #include "PARAMS.h"  #include "PARAMS.h"
29  #include "PTRACERS_SIZE.h"  #include "PTRACERS_SIZE.h"
30  #include "PTRACERS.h"  #include "PTRACERS_PARAMS.h"
31    #include "PTRACERS_FIELDS.h"
32  #include "GCHEM.h"  #include "GCHEM.h"
33  #include "GCHEM_FIELDS.h"  #include "GCHEM_FIELDS.h"
34    
# Line 49  C  k                    :: vertical leve Line 50  C  k                    :: vertical leve
50        INTEGER niter        INTEGER niter
51        INTEGER iTracer        INTEGER iTracer
52        INTEGER bi,bj,imin,imax,jmin,jmax,k        INTEGER bi,bj,imin,imax,jmin,jmax,k
53  #ifdef ALLOW_CFC  #ifdef ALLOW_CFC
54        INTEGER kLoc        INTEGER kLoc
55        _RL  PtrLoc(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr)        _RL  PtrLoc(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr)
56        _RL gPtrLoc(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr)        _RL gPtrLoc(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr)
# Line 66  C     gchemTendency is re-initialized he Line 67  C     gchemTendency is re-initialized he
67              gchemTendency(I,J,K,bi,bj,iTracer) = 0. _d 0              gchemTendency(I,J,K,bi,bj,iTracer) = 0. _d 0
68             ENDDO             ENDDO
69            ENDDO            ENDDO
70           ENDDO             ENDDO
71          ENDDO          ENDDO
72         ENDDO         ENDDO
73        ENDDO        ENDDO
# Line 91  C           DO I = 1-Olx, sNx+Olx Line 92  C           DO I = 1-Olx, sNx+Olx
92  C            gchemTendency(I,J,K,bi,bj,iTracer) = your specific model  C            gchemTendency(I,J,K,bi,bj,iTracer) = your specific model
93  C           ENDDO  C           ENDDO
94  C          ENDDO  C          ENDDO
95  C         ENDDO  C         ENDDO
96  C        ENDDO  C        ENDDO
97            
98  #ifdef ALLOW_CFC  #ifdef ALLOW_CFC
99  ccccccccccccccccccccccccc  ccccccccccccccccccccccccc
100  c chemical forcing      c  c chemical forcing      c
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22