/[MITgcm]/MITgcm/pkg/ptracers/ptracers_forcing.F
ViewVC logotype

Diff of /MITgcm/pkg/ptracers/ptracers_forcing.F

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

revision 1.10 by stephd, Mon Dec 19 19:11:28 2005 UTC revision 1.11 by jmc, Tue Jan 9 22:26:03 2007 UTC
# Line 13  C !INTERFACE: ========================== Line 13  C !INTERFACE: ==========================
13       I                            myIter,myTime,myThid )       I                            myIter,myTime,myThid )
14    
15  C !DESCRIPTION:  C !DESCRIPTION:
16  C     Adds sources and sinks of passive tracers to the tendancy arrays  C     Adds sources and sinks of passive tracers to the tendency arrays
17    
18  C !USES: ===============================================================  C !USES: ===============================================================
19        IMPLICIT NONE        IMPLICIT NONE
# Line 33  C  bi,bj                :: tile indices Line 33  C  bi,bj                :: tile indices
33  C  iMin iMax jMin jMax  :: working range of tile for applying forcing  C  iMin iMax jMin jMax  :: working range of tile for applying forcing
34  C  k                    :: vertical level number  C  k                    :: vertical level number
35  C  iTracer              :: tracer number  C  iTracer              :: tracer number
36  C  gPtracer             :: the tendancy array  C  gPtracer             :: the tendency array
37  C  myIter               :: time-step number  C  myIter               :: time-step number
38  C  myTime               :: model time  C  myTime               :: model time
39  C  myThid               :: thread number  C  myThid               :: thread number
# Line 45  C  myThid               :: thread number Line 45  C  myThid               :: thread number
45        INTEGER myThid        INTEGER myThid
46    
47  C !OUTPUT PARAMETERS: ==================================================  C !OUTPUT PARAMETERS: ==================================================
48  C  gPtracer             :: updates tendancy array  C  gPtracer             :: updates tendency array
49    
50  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
51    
# Line 65  CEOP Line 65  CEOP
65  C--   Surface forcing term is surfaceForcingPtr, previously computed  C--   Surface forcing term is surfaceForcingPtr, previously computed
66  C     by PTRACERS_FORCING because it is needed by KPP_TRANSPORT_PTR.  C     by PTRACERS_FORCING because it is needed by KPP_TRANSPORT_PTR.
67    
68  #ifdef ALLOW_GCHEM  #ifdef ALLOW_GCHEM
69        IF ( useGCHEM )        IF ( useGCHEM )
70       &     CALL GCHEM_ADD_TENDENCY(       &     CALL GCHEM_ADD_TENDENCY(
71       I                        bi,bj,iMin,iMax,jMin,jMax,k,       I                        bi,bj,iMin,iMax,jMin,jMax,k,
72       I                        iTracer,       I                        iTracer,
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22