/[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.51 by edhill, Thu Oct 9 04:19:18 2003 UTC revision 1.52 by heimbach, Fri Oct 10 22:56:08 2003 UTC
# Line 529  CADJ &                 = comlev1_bibj, k Line 529  CADJ &                 = comlev1_bibj, k
529  #endif  /* ALLOW_KPP */  #endif  /* ALLOW_KPP */
530    
531  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
 CADJ STORE KappaRT(:,:,:)     = comlev1_bibj, key=itdkey, byte=isbyte  
 CADJ STORE KappaRS(:,:,:)     = comlev1_bibj, key=itdkey, byte=isbyte  
532  CADJ STORE theta(:,:,:,bi,bj) = comlev1_bibj, key=itdkey, byte=isbyte  CADJ STORE theta(:,:,:,bi,bj) = comlev1_bibj, key=itdkey, byte=isbyte
533  CADJ STORE salt (:,:,:,bi,bj) = comlev1_bibj, key=itdkey, byte=isbyte  CADJ STORE salt (:,:,:,bi,bj) = comlev1_bibj, key=itdkey, byte=isbyte
534  CADJ STORE uvel (:,:,:,bi,bj) = comlev1_bibj, key=itdkey, byte=isbyte  CADJ STORE uvel (:,:,:,bi,bj) = comlev1_bibj, key=itdkey, byte=isbyte
# Line 654  CADJ STORE rTrans(:,:)    = comlev1_bibj Line 652  CADJ STORE rTrans(:,:)    = comlev1_bibj
652    
653  #endif /* ALLOW_GMREDI */  #endif /* ALLOW_GMREDI */
654    
 #ifdef ALLOW_AUTODIFF_TAMC  
 CADJ STORE KappaRT(:,:,k)    = comlev1_bibj_k, key=kkey, byte=isbyte  
 CADJ STORE KappaRS(:,:,k)    = comlev1_bibj_k, key=kkey, byte=isbyte  
 #endif /* ALLOW_AUTODIFF_TAMC */  
   
655  #ifdef  INCLUDE_CALC_DIFFUSIVITY_CALL  #ifdef  INCLUDE_CALC_DIFFUSIVITY_CALL
656  C--      Calculate the total vertical diffusivity  C--      Calculate the total vertical diffusivity
657           CALL CALC_DIFFUSIVITY(           CALL CALC_DIFFUSIVITY(
# Line 666  C--      Calculate the total vertical di Line 659  C--      Calculate the total vertical di
659       I        maskUp,       I        maskUp,
660       O        KappaRT,KappaRS,       O        KappaRT,KappaRS,
661       I        myThid)       I        myThid)
662    # ifdef ALLOW_AUTODIFF_TAMC
663    CADJ STORE KappaRT(:,:,k)    = comlev1_bibj_k, key=kkey, byte=isbyte
664    CADJ STORE KappaRS(:,:,k)    = comlev1_bibj_k, key=kkey, byte=isbyte
665    # endif /* ALLOW_AUTODIFF_TAMC */
666  #endif  #endif
667    
668            iMin = 1-OLx+2            iMin = 1-OLx+2
# Line 767  C--     Implicit diffusion Line 764  C--     Implicit diffusion
764    
765           IF (tempStepping) THEN           IF (tempStepping) THEN
766  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
767    CADJ STORE KappaRT(:,:,:) = comlev1_bibj , key=itdkey, byte=isbyte
768  CADJ STORE gT(:,:,:,bi,bj) = comlev1_bibj , key=itdkey, byte=isbyte  CADJ STORE gT(:,:,:,bi,bj) = comlev1_bibj , key=itdkey, byte=isbyte
769  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
770              CALL IMPLDIFF(              CALL IMPLDIFF(
# Line 778  CADJ STORE gT(:,:,:,bi,bj) = comlev1_bib Line 776  CADJ STORE gT(:,:,:,bi,bj) = comlev1_bib
776    
777           IF (saltStepping) THEN           IF (saltStepping) THEN
778  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
779    CADJ STORE KappaRS(:,:,:) = comlev1_bibj , key=itdkey, byte=isbyte
780  CADJ STORE gS(:,:,:,bi,bj) = comlev1_bibj , key=itdkey, byte=isbyte  CADJ STORE gS(:,:,:,bi,bj) = comlev1_bibj , key=itdkey, byte=isbyte
781  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
782              CALL IMPLDIFF(              CALL IMPLDIFF(
Legend:
Removed from v.1.51  
changed lines
  Added in v.1.52
  ViewVC Help
Powered by ViewVC 1.1.22