/[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.65 by dimitri, Sun Jan 25 00:31:52 2004 UTC revision 1.66 by heimbach, Wed Feb 18 22:23:18 2004 UTC
# Line 435  C--     Calculate future values on open Line 435  C--     Calculate future values on open
435          ENDIF          ENDIF
436  #endif  /* ALLOW_OBCS */  #endif  /* ALLOW_OBCS */
437    
438    #ifndef ALLOW_AUTODIFF_TAMC
439          IF ( buoyancyRelation(1:7) .EQ. 'OCEANIC' ) THEN          IF ( buoyancyRelation(1:7) .EQ. 'OCEANIC' ) THEN
440    #endif
441  C--     Determines forcing terms based on external fields  C--     Determines forcing terms based on external fields
442  C       relaxation terms, etc.  C       relaxation terms, etc.
443  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
# Line 445  C       relaxation terms, etc. Line 447  C       relaxation terms, etc.
447          CALL EXTERNAL_FORCING_SURF(          CALL EXTERNAL_FORCING_SURF(
448       I             bi, bj, iMin, iMax, jMin, jMax,       I             bi, bj, iMin, iMax, jMin, jMax,
449       I             myTime, myIter, myThid )       I             myTime, myIter, myThid )
450    #ifndef ALLOW_AUTODIFF_TAMC
451            ENDIF
452    #endif
453    
454  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
455  cph needed for KPP  cph needed for KPP
# Line 461  CADJ STORE surfacetendencyTice(:,:,bi,bj Line 466  CADJ STORE surfacetendencyTice(:,:,bi,bj
466  CADJ &     = comlev1_bibj, key=itdkey, byte=isbyte  CADJ &     = comlev1_bibj, key=itdkey, byte=isbyte
467  # endif  # endif
468  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
         ENDIF  
469    
470  C--     Attention: by defining "SINGLE_LAYER_MODE" in CPP_OPTIONS.h  C--     Attention: by defining "SINGLE_LAYER_MODE" in CPP_OPTIONS.h
471  C--     MOST of THERMODYNAMICS will be disabled  C--     MOST of THERMODYNAMICS will be disabled
# Line 640  C--       kDown  Cycles through 2,1 to p Line 644  C--       kDown  Cycles through 2,1 to p
644               rTransKp1(i,j) = kp1Msk*rTrans(i,j)               rTransKp1(i,j) = kp1Msk*rTrans(i,j)
645              ENDDO              ENDDO
646             ENDDO             ENDDO
647    #ifdef ALLOW_AUTODIFF_TAMC
648    CADJ STORE rTransKp1(:,:) = comlev1_bibj_k, key=kkey, byte=isbyte
649    #endif
650    
651  C--       Get temporary terms used by tendency routines  C--       Get temporary terms used by tendency routines
652            CALL CALC_COMMON_FACTORS (            CALL CALC_COMMON_FACTORS (
# Line 673  C--   Residual transp = Bolus transp + E Line 680  C--   Residual transp = Bolus transp + E
680       &                    rTrans, bi, bj, k, myThid)       &                    rTrans, bi, bj, k, myThid)
681            ENDIF            ENDIF
682    
683  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
684    CADJ STORE rTrans(:,:)    = comlev1_bibj_k, key=kkey, byte=isbyte
685  #ifdef GM_BOLUS_ADVEC  #ifdef GM_BOLUS_ADVEC
686  CADJ STORE uTrans(:,:)    = comlev1_bibj_k, key=kkey, byte=isbyte  CADJ STORE uTrans(:,:)    = comlev1_bibj_k, key=kkey, byte=isbyte
687  CADJ STORE vTrans(:,:)    = comlev1_bibj_k, key=kkey, byte=isbyte  CADJ STORE vTrans(:,:)    = comlev1_bibj_k, key=kkey, byte=isbyte
 CADJ STORE rTrans(:,:)    = comlev1_bibj_k, key=kkey, byte=isbyte  
688  #endif  #endif
689  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
690    
Legend:
Removed from v.1.65  
changed lines
  Added in v.1.66
  ViewVC Help
Powered by ViewVC 1.1.22