/[MITgcm]/MITgcm/model/src/convectively_mixtracer.F
ViewVC logotype

Diff of /MITgcm/model/src/convectively_mixtracer.F

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

revision 1.1 by adcroft, Tue Feb 26 19:50:12 2002 UTC revision 1.2 by adcroft, Tue Feb 26 20:34:14 2002 UTC
# Line 18  C Mixing is represented by: Line 18  C Mixing is represented by:
18  C                       T(k-1) = T(k-1) + B * ( T(k) - T(k-1) )  C                       T(k-1) = T(k-1) + B * ( T(k) - T(k-1) )
19  C                       T(k)   = T(k)   + A * ( T(k-1) - T(k) )  C                       T(k)   = T(k)   + A * ( T(k-1) - T(k) )
20    
21  C     !USES:  C !USES:
22        IMPLICIT NONE        IMPLICIT NONE
 C     == Global data ==  
23  #include "SIZE.h"  #include "SIZE.h"
24  #include "EEPARAMS.h"  #include "EEPARAMS.h"
25    
26  C     !INPUT/OUTPUT PARAMETERS:  C !INPUT/OUTPUT PARAMETERS:
 C     == Routine arguments ==  
27  C     bi,bj,k - indices  C     bi,bj,k - indices
28  C     weightA - weight for level K  C     weightA - weight for level K
29  C     weightB - weight for level K+1  C     weightB - weight for level K+1
# Line 38  C     myThid  - thread number Line 36  C     myThid  - thread number
36    
37  #ifdef INCLUDE_CONVECT_CALL  #ifdef INCLUDE_CONVECT_CALL
38    
39  C     !LOCAL VARIABLES:  C !LOCAL VARIABLES:
 C     == Local variables ==  
40  C     i,j      :: Loop counter  C     i,j      :: Loop counter
41  C     delTrac  :: Difference between tracer in each layer  C     delTrac  :: Difference between tracer in each layer
42        INTEGER i,j        INTEGER i,j
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22