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

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

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

revision 1.1 by adcroft, Mon Mar 4 19:01:29 2002 UTC revision 1.3 by jmc, Tue Jul 13 16:47:48 2004 UTC
# Line 17  C !USES: =============================== Line 17  C !USES: ===============================
17        IMPLICIT NONE        IMPLICIT NONE
18  #include "SIZE.h"  #include "SIZE.h"
19  #include "EEPARAMS.h"  #include "EEPARAMS.h"
20    #include "PTRACERS_SIZE.h"
21  #include "PTRACERS.h"  #include "PTRACERS.h"
22    
23  C !INPUT PARAMETERS: ===================================================  C !INPUT PARAMETERS: ===================================================
# Line 44  C Loop over tracers Line 45  C Loop over tracers
45    
46         CALL CONVECTIVELY_MIXTRACER(         CALL CONVECTIVELY_MIXTRACER(
47       I         bi,bj,k,weightA,weightB,       I         bi,bj,k,weightA,weightB,
48       U         pTracer(1-Olx,1-Oly,1,bi,bj,iTracer),       U         pTracer(1-Olx,1-Oly,1,1,1,iTracer),
49       I         myThid)       I         myThid)
50    
51  C End of tracer loop  C End of tracer loop
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22