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

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

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

revision 1.14 by jmc, Fri Nov 16 03:25:41 2001 UTC revision 1.15 by jmc, Sun Dec 16 18:46:22 2001 UTC
# Line 371  CADJ STORE sigmaR(:,:,:) = comlev1, key= Line 371  CADJ STORE sigmaR(:,:,:) = comlev1, key=
371  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
372  C--     Calculate iso-neutral slopes for the GM/Redi parameterisation  C--     Calculate iso-neutral slopes for the GM/Redi parameterisation
373          IF (useGMRedi) THEN          IF (useGMRedi) THEN
374            DO k=1,Nr            CALL GMREDI_CALC_TENSOR(
375              CALL GMREDI_CALC_TENSOR(       I             bi, bj, iMin, iMax, jMin, jMax,
      I             bi, bj, iMin, iMax, jMin, jMax, k,  
376       I             sigmaX, sigmaY, sigmaR,       I             sigmaX, sigmaY, sigmaR,
377       I             myThid )       I             myThid )
           ENDDO  
378  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
379          ELSE          ELSE
380            DO k=1, Nr            CALL GMREDI_CALC_TENSOR_DUMMY(
381              CALL GMREDI_CALC_TENSOR_DUMMY(       I             bi, bj, iMin, iMax, jMin, jMax,
      I             bi, bj, iMin, iMax, jMin, jMax, k,  
382       I             sigmaX, sigmaY, sigmaR,       I             sigmaX, sigmaY, sigmaR,
383       I             myThid )       I             myThid )
           ENDDO  
384  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
385          ENDIF          ENDIF
386    
Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15
  ViewVC Help
Powered by ViewVC 1.1.22