/[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.45 by jmc, Thu Mar 8 17:08:36 2012 UTC revision 1.46 by jmc, Fri Jun 15 13:30:36 2012 UTC
# Line 89  C  GAD_TR               :: passive trace Line 89  C  GAD_TR               :: passive trace
89        LOGICAL calcAdvection        LOGICAL calcAdvection
90        INTEGER iterNb        INTEGER iterNb
91        _RL gTr_AB (1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL gTr_AB (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
92          _RL dummy(Nr)
93  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
94        CHARACTER*8 diagName        CHARACTER*8 diagName
95        CHARACTER*4 diagSufx        CHARACTER*4 diagSufx
# Line 155  C (advection, [explicit] diffusion, para Line 156  C (advection, [explicit] diffusion, para
156       I                   uTrans, vTrans, rTrans, rTransKp1,       I                   uTrans, vTrans, rTrans, rTransKp1,
157       I                   PTRACERS_diffKh(iTracer),       I                   PTRACERS_diffKh(iTracer),
158       I                   PTRACERS_diffK4(iTracer),       I                   PTRACERS_diffK4(iTracer),
159       I                   KappaRtr(1-OLx,1-OLy,iTracer),       I                   KappaRtr(1-OLx,1-OLy,iTracer), dummy,
160       I                   gpTrNm1(1-OLx,1-OLy,1,1,1,iTracer),       I                   gpTrNm1(1-OLx,1-OLy,1,1,1,iTracer),
161       I                   pTracer(1-OLx,1-OLy,1,1,1,iTracer),       I                   pTracer(1-OLx,1-OLy,1,1,1,iTracer),
162       I                   PTRACERS_dTLev, GAD_TR,       I                   PTRACERS_dTLev, GAD_TR,
163       I                   PTRACERS_advScheme(iTracer),       I                   PTRACERS_advScheme(iTracer),
164       I                   PTRACERS_advScheme(iTracer),       I                   PTRACERS_advScheme(iTracer),
165       I                   calcAdvection, PTRACERS_ImplVertAdv(iTracer),       I                   calcAdvection, PTRACERS_ImplVertAdv(iTracer),
166       I                   .FALSE.,       I                   .FALSE., .FALSE.,
167       I                   PTRACERS_useGMRedi(iTracer),       I                   PTRACERS_useGMRedi(iTracer),
168       I                   PTRACERS_useKPP(iTracer),       I                   PTRACERS_useKPP(iTracer),
169       U                   rFlx(1-OLx,1-OLy,1,iTracer),       U                   rFlx(1-OLx,1-OLy,1,iTracer),
Legend:
Removed from v.1.45  
changed lines
  Added in v.1.46
  ViewVC Help
Powered by ViewVC 1.1.22