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

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

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

revision 1.8 by jmc, Thu Oct 13 19:43:06 2005 UTC revision 1.9 by jmc, Sun Nov 6 22:01:37 2005 UTC
# Line 46  C     myThid - Thread number for this in Line 46  C     myThid - Thread number for this in
46        INTEGER myIter        INTEGER myIter
47        INTEGER myThid        INTEGER myThid
48    
49    #ifdef ALLOW_GENERIC_ADVDIFF
50  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
51  C     == Local variables  C     == Local variables
52        INTEGER iMin,iMax        INTEGER iMin,iMax
53        INTEGER jMin,jMax        INTEGER jMin,jMax
54        INTEGER bi,bj        INTEGER bi,bj
55        INTEGER k,i,j        INTEGER k
56    
57  CEOP  CEOP
58    
# Line 139  C--     Convectively adjust new fields t Line 140  C--     Convectively adjust new fields t
140  C--    End of 2nd bi,bj loop  C--    End of 2nd bi,bj loop
141         ENDDO         ENDDO
142        ENDDO        ENDDO
143  #endif  #endif /* ALLOW_OFFLINE */
144    
145    #endif /* ALLOW_GENERIC_ADVDIFF */
146    
147        RETURN        RETURN
148        END        END

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

  ViewVC Help
Powered by ViewVC 1.1.22