/[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.42 by heimbach, Tue Jan 18 22:58:20 2011 UTC revision 1.43 by jmc, Mon May 23 00:34:36 2011 UTC
# Line 219  C Account for change in level thickness Line 219  C Account for change in level thickness
219    
220  C Integrate forward in time, storing in gPtr:  G=T+dt*G  C Integrate forward in time, storing in gPtr:  G=T+dt*G
221           CALL TIMESTEP_TRACER(           CALL TIMESTEP_TRACER(
222       I                        bi,bj,iMin,iMax,jMin,jMax,k,       I                        bi, bj, k, PTRACERS_dTLev(k),
      I                        PTRACERS_advScheme(iTracer),  
      I                        PTRACERS_dTLev(k),  
223       I                        pTracer(1-Olx,1-Oly,1,1,1,iTracer),       I                        pTracer(1-Olx,1-Oly,1,1,1,iTracer),
224       I                        gPtr(1-Olx,1-Oly,1,1,1,iTracer),       U                        gPtr(1-Olx,1-Oly,1,1,1,iTracer),
225       I                        myIter,myThid )       I                        myIter, myThid )
226    
227  C end of tracer loop  C end of tracer loop
228        ENDDO        ENDDO
Legend:
Removed from v.1.42  
changed lines
  Added in v.1.43
  ViewVC Help
Powered by ViewVC 1.1.22