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

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

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

revision 1.8 by dimitri, Mon Aug 4 22:53:42 2003 UTC revision 1.9 by dimitri, Wed Sep 24 04:52:39 2003 UTC
# Line 128  cswdptr - add-- Line 128  cswdptr - add--
128  cswdptr - end add ---  cswdptr - end add ---
129         IF ( forcing_In_AB )         IF ( forcing_In_AB )
130       &   CALL PTRACERS_FORCING(       &   CALL PTRACERS_FORCING(
131       I                        bi,bj,k,iTracer,       I                        bi,bj,iMin,iMax,jMin,jMax,k,iTracer,
132       U                        gPtr(1-Olx,1-Oly,1,1,1,iTracer),       U                        gPtr(1-Olx,1-Oly,1,1,1,iTracer),
133       I                        myIter,myTime,myThid)       I                        myIter,myTime,myThid)
134  cswdptr --add---  cswdptr --add---
# Line 152  cswdptr - add-- Line 152  cswdptr - add--
152  cswdptr - end add ---  cswdptr - end add ---
153         IF ( .NOT.forcing_In_AB )         IF ( .NOT.forcing_In_AB )
154       &   CALL PTRACERS_FORCING(       &   CALL PTRACERS_FORCING(
155       I                        bi,bj,k,iTracer,       I                        bi,bj,iMin,iMax,jMin,jMax,k,iTracer,
156       U                        gPtr(1-Olx,1-Oly,1,1,1,iTracer),       U                        gPtr(1-Olx,1-Oly,1,1,1,iTracer),
157       I                        myIter,myTime,myThid)       I                        myIter,myTime,myThid)
158  cswdptr - add--  cswdptr - add--
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22