/[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.5 by adcroft, Mon Jun 24 18:47:10 2002 UTC
# Line 21  C !USES: =============================== Line 21  C !USES: ===============================
21        IMPLICIT NONE        IMPLICIT NONE
22  #include "SIZE.h"  #include "SIZE.h"
23  #include "EEPARAMS.h"  #include "EEPARAMS.h"
24    #include "PARAMS.h"
25  #include "PTRACERS.h"  #include "PTRACERS.h"
26  #include "GAD.h"  #include "GAD.h"
27    
# Line 145  C Account for change in level thickness Line 146  C Account for change in level thickness
146       I                          bi,bj,K,       I                          bi,bj,K,
147       U                          gPtr(1-Olx,1-Oly,1,1,1,iTracer),       U                          gPtr(1-Olx,1-Oly,1,1,1,iTracer),
148       I                          myThid )       I                          myThid )
149            IF ( PTRACERS_advScheme(iTracer).EQ.ENUM_CENTERED_2ND
150         &   .OR.PTRACERS_advScheme(iTracer).EQ.ENUM_UPWIND_3RD
151         &   .OR.PTRACERS_advScheme(iTracer).EQ.ENUM_CENTERED_4TH )
152         &  CALL FREESURF_RESCALE_G(
153         I                          bi,bj,K,
154         U                          gPtrNm1(1-Olx,1-Oly,1,1,1,iTracer),
155         I                          myThid )
156        ENDIF        ENDIF
157  #endif /* NONLIN_FRSURF */  #endif /* NONLIN_FRSURF */
158    
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22