/[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.85 by dimitri, Sat Dec 4 05:59:50 2004 UTC revision 1.86 by jmc, Sun Dec 5 22:23:17 2004 UTC
# Line 603  CADJ STORE gS(:,:,:,bi,bj) = comlev1_bib Line 603  CADJ STORE gS(:,:,:,bi,bj) = comlev1_bib
603  #endif  #endif
604    
605  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
606          IF     ( usePTRACERS .AND. implicitDiffusion ) THEN          IF     ( usePTRACERS ) THEN
607  C--     Vertical diffusion (implicit) for passive tracers  C--     Vertical advection/diffusion (implicit) for passive tracers
608             CALL PTRACERS_IMPLDIFF( bi,bj,kappaRk,myThid )             CALL PTRACERS_IMPLICIT(
609         U                             kappaRk,
610         I                             bi, bj, myTime, myIter, myThid )
611          ENDIF          ENDIF
612  #endif /* ALLOW_PTRACERS */  #endif /* ALLOW_PTRACERS */
613    
Legend:
Removed from v.1.85  
changed lines
  Added in v.1.86
  ViewVC Help
Powered by ViewVC 1.1.22