/[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.7 by mlosch, Tue Nov 23 20:21:14 2004 UTC revision 1.8 by mlosch, Sun Nov 28 23:50:04 2004 UTC
# Line 63  C     by PTRACERS_FORCING because it is Line 63  C     by PTRACERS_FORCING because it is
63    
64  #ifdef ALLOW_GCHEM  #ifdef ALLOW_GCHEM
65        IF ( useGCHEM )        IF ( useGCHEM )
66       &     CALL GCHEM_FORCING_INT(       &     CALL GCHEM_ADD_TENDENCY(
67       I                        bi,bj,iMin,iMax,jMin,jMax,k,       I                        bi,bj,iMin,iMax,jMin,jMax,k,
68       I                        iTracer,       I                        iTracer,
69       I                        myTime,myIter, myThid)       I                        myTime,myIter, myThid)
70  #else /* ALLOW_GCHEM */  #else /* ALLOW_GCHEM */
71         IF ( k .EQ. kSurface ) THEN         IF ( .NOT. useGCHEM .AND. k .EQ. kSurface ) THEN
72          DO j=jMin,jMax          DO j=jMin,jMax
73           DO i=iMin,iMax           DO i=iMin,iMax
74            gPtracer(i,j,k,bi,bj) = gPtracer(i,j,k,bi,bj)            gPtracer(i,j,k,bi,bj) = gPtracer(i,j,k,bi,bj)
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22