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

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

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

revision 1.54.2.13 by jmc, Wed Jan 31 16:14:04 2001 UTC revision 1.58 by adcroft, Fri Feb 2 21:04:48 2001 UTC
# Line 350  C--     Calculate iso-neutral slopes for Line 350  C--     Calculate iso-neutral slopes for
350       I             sigmaX, sigmaY, sigmaR,       I             sigmaX, sigmaY, sigmaR,
351       I             myThid )       I             myThid )
352            ENDDO            ENDDO
353    #ifdef ALLOW_AUTODIFF_TAMC
354            ELSE
355              DO k=1, Nr
356                CALL GMREDI_CALC_TENSOR_DUMMY(
357         I             bi, bj, iMin, iMax, jMin, jMax, k,
358         I             sigmaX, sigmaY, sigmaR,
359         I             myThid )
360              ENDDO
361    #endif /* ALLOW_AUTODIFF_TAMC */
362          ENDIF          ENDIF
363  #endif  /* ALLOW_GMREDI */  #endif  /* ALLOW_GMREDI */
364    
# Line 640  C--     End If implicitViscosity.AND.mom Line 649  C--     End If implicitViscosity.AND.mom
649    
650        RETURN        RETURN
651        END        END
   
   
 C--      Cumulative diagnostic calculations (ie. time-averaging)  
 #ifdef INCLUDE_DIAGNOSTICS_INTERFACE_CODE  
 c        IF (taveFreq.GT.0.) THEN  
 c         CALL DO_TIME_AVERAGES(  
 c    I                           myTime, myIter, bi, bj, k, kup, kDown,  
 c    I                           ConvectCount,  
 c    I                           myThid )  
 c        ENDIF  
 #endif  
   
Legend:
Removed from v.1.54.2.13  
changed lines
  Added in v.1.58
  ViewVC Help
Powered by ViewVC 1.1.22