/[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.36 by jmc, Mon Dec 17 22:03:15 2007 UTC revision 1.37 by jmc, Wed Jan 23 15:30:12 2008 UTC
# Line 194  C Account for change in level thickness Line 194  C Account for change in level thickness
194       I                          bi,bj,K,       I                          bi,bj,K,
195       U                          gPtr(1-Olx,1-Oly,1,1,1,iTracer),       U                          gPtr(1-Olx,1-Oly,1,1,1,iTracer),
196       I                          myThid )       I                          myThid )
197          IF ( PTRACERS_AdamsBashGtr(iTracer) ) THEN          IF ( PTRACERS_AdamsBashGtr(iTracer) )
198       &  CALL FREESURF_RESCALE_G(       &  CALL FREESURF_RESCALE_G(
199       I                          bi,bj,K,       I                          bi,bj,K,
200       U                          gpTrNm1(1-Olx,1-Oly,1,1,1,iTracer),       U                          gpTrNm1(1-Olx,1-Oly,1,1,1,iTracer),
Legend:
Removed from v.1.36  
changed lines
  Added in v.1.37
  ViewVC Help
Powered by ViewVC 1.1.22