/[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.83 by jmc, Fri Dec 3 15:39:11 2004 UTC revision 1.84 by jmc, Sat Dec 4 00:12:14 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          IF ( tempImplVertAdv ) THEN  c       IF ( tempImplVertAdv ) THEN
530            IF ( (dTtracerLev(1).NE.dTtracerLev(Nr)
531         &        .AND. tempStepping .AND. implicitDiffusion)
532         &   .OR.tempImplVertAdv ) THEN
533            CALL GAD_IMPLICIT_R(            CALL GAD_IMPLICIT_R(
534       I         tempImplVertAdv, tempAdvScheme, GAD_TEMPERATURE,       I         tempImplVertAdv, tempAdvScheme, GAD_TEMPERATURE,
535       I         kappaRk, wVel, theta,       I         kappaRk, wVel, theta,
# Line 542  CADJ STORE gT(:,:,:,bi,bj) = comlev1_bib Line 545  CADJ STORE gT(:,:,:,bi,bj) = comlev1_bib
545  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
546            CALL IMPLDIFF(            CALL IMPLDIFF(
547       I         bi, bj, iMin, iMax, jMin, jMax,       I         bi, bj, iMin, iMax, jMin, jMax,
548       I         deltaTtracer, kappaRk, recip_HFacC,       I         dTtracerLev(1), kappaRk, recip_hFacC,
549       U         gT,       U         gT,
550       I         myThid )       I         myThid )
551          ENDIF          ENDIF
# Line 574  c    I                        Nr, 3, del Line 577  c    I                        Nr, 3, del
577          ENDIF          ENDIF
578    
579  #ifdef INCLUDE_IMPLVERTADV_CODE  #ifdef INCLUDE_IMPLVERTADV_CODE
580          IF ( saltImplVertAdv ) THEN  c       IF ( saltImplVertAdv ) THEN
581            IF ( (dTtracerLev(1).NE.dTtracerLev(Nr)
582         &        .AND. saltStepping .AND. implicitDiffusion)
583         &   .OR.saltImplVertAdv ) THEN
584            CALL GAD_IMPLICIT_R(            CALL GAD_IMPLICIT_R(
585       I         saltImplVertAdv, saltAdvScheme, GAD_SALINITY,       I         saltImplVertAdv, saltAdvScheme, GAD_SALINITY,
586       I         kappaRk, wVel, salt,       I         kappaRk, wVel, salt,
# Line 590  CADJ STORE gS(:,:,:,bi,bj) = comlev1_bib Line 596  CADJ STORE gS(:,:,:,bi,bj) = comlev1_bib
596  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
597            CALL IMPLDIFF(            CALL IMPLDIFF(
598       I         bi, bj, iMin, iMax, jMin, jMax,       I         bi, bj, iMin, iMax, jMin, jMax,
599       I         deltaTtracer, kappaRk, recip_HFacC,       I         dTtracerLev(1), kappaRk, recip_hFacC,
600       U         gS,       U         gS,
601       I         myThid )       I         myThid )
602          ENDIF          ENDIF
Legend:
Removed from v.1.83  
changed lines
  Added in v.1.84
  ViewVC Help
Powered by ViewVC 1.1.22