/[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.4 by jmc, Tue Jan 9 22:27:12 2007 UTC
# Line 10  C !INTERFACE: ========================== Line 10  C !INTERFACE: ==========================
10        SUBROUTINE PTRACERS_CONVECT( bi,bj,k,weightA,weightB,myThid )        SUBROUTINE PTRACERS_CONVECT( bi,bj,k,weightA,weightB,myThid )
11    
12  C !DESCRIPTION:  C !DESCRIPTION:
13  C     Calculates tendancy for passive tracers and integrates forward  C     do passive tracers convection
 C     in time.  
14    
15  C !USES: ===============================================================  C !USES: ===============================================================
16        IMPLICIT NONE        IMPLICIT NONE
17  #include "SIZE.h"  #include "SIZE.h"
18  #include "EEPARAMS.h"  #include "EEPARAMS.h"
19    #include "PTRACERS_SIZE.h"
20  #include "PTRACERS.h"  #include "PTRACERS.h"
21    
22  C !INPUT PARAMETERS: ===================================================  C !INPUT PARAMETERS: ===================================================
# Line 44  C Loop over tracers Line 44  C Loop over tracers
44    
45         CALL CONVECTIVELY_MIXTRACER(         CALL CONVECTIVELY_MIXTRACER(
46       I         bi,bj,k,weightA,weightB,       I         bi,bj,k,weightA,weightB,
47       U         pTracer(1-Olx,1-Oly,1,bi,bj,iTracer),       U         pTracer(1-Olx,1-Oly,1,1,1,iTracer),
48       I         myThid)       I         myThid)
49    
50  C End of tracer loop  C End of tracer loop
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22