/[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.86 by jmc, Sun Dec 5 22:23:17 2004 UTC revision 1.87 by jmc, Thu Dec 16 23:20:06 2004 UTC
# Line 526  C--     Implicit vertical advection & di Line 526  C--     Implicit vertical advection & di
526       I         myThid)       I         myThid)
527          ENDIF          ENDIF
528  #ifdef INCLUDE_IMPLVERTADV_CODE  #ifdef INCLUDE_IMPLVERTADV_CODE
529  c       IF ( tempImplVertAdv ) THEN          IF ( tempImplVertAdv ) THEN
         IF ( (dTtracerLev(1).NE.dTtracerLev(Nr)  
      &        .AND. tempStepping .AND. implicitDiffusion)  
      &   .OR.tempImplVertAdv ) THEN  
530            CALL GAD_IMPLICIT_R(            CALL GAD_IMPLICIT_R(
531       I         tempImplVertAdv, tempAdvScheme, GAD_TEMPERATURE,       I         tempImplVertAdv, tempAdvScheme, GAD_TEMPERATURE,
532       I         kappaRk, wVel, theta,       I         kappaRk, wVel, theta,
# Line 545  CADJ STORE gT(:,:,:,bi,bj) = comlev1_bib Line 542  CADJ STORE gT(:,:,:,bi,bj) = comlev1_bib
542  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
543            CALL IMPLDIFF(            CALL IMPLDIFF(
544       I         bi, bj, iMin, iMax, jMin, jMax,       I         bi, bj, iMin, iMax, jMin, jMax,
545       I         dTtracerLev(1), kappaRk, recip_hFacC,       I         GAD_TEMPERATURE, kappaRk, recip_hFacC,
546       U         gT,       U         gT,
547       I         myThid )       I         myThid )
548          ENDIF          ENDIF
# Line 577  c    I                        Nr, 3, del Line 574  c    I                        Nr, 3, del
574          ENDIF          ENDIF
575    
576  #ifdef INCLUDE_IMPLVERTADV_CODE  #ifdef INCLUDE_IMPLVERTADV_CODE
577  c       IF ( saltImplVertAdv ) THEN          IF ( saltImplVertAdv ) THEN
         IF ( (dTtracerLev(1).NE.dTtracerLev(Nr)  
      &        .AND. saltStepping .AND. implicitDiffusion)  
      &   .OR.saltImplVertAdv ) THEN  
578            CALL GAD_IMPLICIT_R(            CALL GAD_IMPLICIT_R(
579       I         saltImplVertAdv, saltAdvScheme, GAD_SALINITY,       I         saltImplVertAdv, saltAdvScheme, GAD_SALINITY,
580       I         kappaRk, wVel, salt,       I         kappaRk, wVel, salt,
# Line 596  CADJ STORE gS(:,:,:,bi,bj) = comlev1_bib Line 590  CADJ STORE gS(:,:,:,bi,bj) = comlev1_bib
590  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
591            CALL IMPLDIFF(            CALL IMPLDIFF(
592       I         bi, bj, iMin, iMax, jMin, jMax,       I         bi, bj, iMin, iMax, jMin, jMax,
593       I         dTtracerLev(1), kappaRk, recip_hFacC,       I         GAD_SALINITY, kappaRk, recip_hFacC,
594       U         gS,       U         gS,
595       I         myThid )       I         myThid )
596          ENDIF          ENDIF
Legend:
Removed from v.1.86  
changed lines
  Added in v.1.87
  ViewVC Help
Powered by ViewVC 1.1.22