/[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.70 by jmc, Thu Jul 1 21:45:11 2004 UTC revision 1.71 by heimbach, Fri Jul 2 15:50:24 2004 UTC
# Line 520  C--     Compute KPP mixing coefficients Line 520  C--     Compute KPP mixing coefficients
520    
521  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
522  CADJ STORE KPPghat   (:,:,:,bi,bj)  CADJ STORE KPPghat   (:,:,:,bi,bj)
 CADJ &   , KPPdiffKzT(:,:,:,bi,bj)  
 CADJ &   , KPPdiffKzS(:,:,:,bi,bj)  
523  CADJ &   , KPPfrac   (:,:  ,bi,bj)  CADJ &   , KPPfrac   (:,:  ,bi,bj)
524  CADJ &                 = comlev1_bibj, key=itdkey, byte=isbyte  CADJ &                 = comlev1_bibj, key=itdkey, byte=isbyte
525  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
Legend:
Removed from v.1.70  
changed lines
  Added in v.1.71
  ViewVC Help
Powered by ViewVC 1.1.22