/[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.3 by jmc, Sat Jun 15 03:37:44 2002 UTC revision 1.4 by jmc, Thu Jun 20 23:46:22 2002 UTC
# Line 145  C Account for change in level thickness Line 145  C Account for change in level thickness
145       I                          bi,bj,K,       I                          bi,bj,K,
146       U                          gPtr(1-Olx,1-Oly,1,1,1,iTracer),       U                          gPtr(1-Olx,1-Oly,1,1,1,iTracer),
147       I                          myThid )       I                          myThid )
148            IF ( PTRACERS_advScheme(iTracer).EQ.ENUM_CENTERED_2ND
149         &   .OR.PTRACERS_advScheme(iTracer).EQ.ENUM_UPWIND_3RD
150         &   .OR.PTRACERS_advScheme(iTracer).EQ.ENUM_CENTERED_4TH )
151         &  CALL FREESURF_RESCALE_G(
152         I                          bi,bj,K,
153         U                          gPtrNm1(1-Olx,1-Oly,1,1,1,iTracer),
154         I                          myThid )
155        ENDIF        ENDIF
156  #endif /* NONLIN_FRSURF */  #endif /* NONLIN_FRSURF */
157    
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22