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

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

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

revision 1.5 by jmc, Mon Nov 5 18:48:04 2007 UTC revision 1.6 by jahn, Fri Jun 26 23:10:10 2009 UTC
# Line 19  C !USES: =============================== Line 19  C !USES: ===============================
19        IMPLICIT NONE        IMPLICIT NONE
20  #include "SIZE.h"  #include "SIZE.h"
21  #include "EEPARAMS.h"  #include "EEPARAMS.h"
22    #ifdef ALLOW_LONGSTEP
23    #include "LONGSTEP_PARAMS.h"
24    #include "LONGSTEP.h"
25    #endif
26  #include "PTRACERS_SIZE.h"  #include "PTRACERS_SIZE.h"
27  #include "PTRACERS_PARAMS.h"  #include "PTRACERS_PARAMS.h"
28  #include "PTRACERS_FIELDS.h"  #include "PTRACERS_FIELDS.h"
# Line 103  CADJ &     key=iptrkey, byte=isbyte Line 107  CADJ &     key=iptrkey, byte=isbyte
107            CALL GAD_IMPLICIT_R(            CALL GAD_IMPLICIT_R(
108       I         PTRACERS_ImplVertAdv(iTracer),       I         PTRACERS_ImplVertAdv(iTracer),
109       I         PTRACERS_advScheme(iTracer), GAD_TR,       I         PTRACERS_advScheme(iTracer), GAD_TR,
110       I         kappaRk, wVel, pTracer(1-Olx,1-Oly,1,1,1,iTracer),       I         PTRACERS_dTLev, kappaRk,
111    #ifdef ALLOW_LONGSTEP
112         I         LS_wVel,
113    #else
114         I         wVel,
115    #endif
116         I         pTracer(1-Olx,1-Oly,1,1,1,iTracer),
117       U         gPtr(1-Olx,1-Oly,1,1,1,iTracer),       U         gPtr(1-Olx,1-Oly,1,1,1,iTracer),
118       I         bi, bj, myTime, myIter, myThid )       I         bi, bj, myTime, myIter, myThid )
119    
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22