/[MITgcm]/MITgcm/pkg/generic_advdiff/gad_calc_rhs.F
ViewVC logotype

Diff of /MITgcm/pkg/generic_advdiff/gad_calc_rhs.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.46 by jmc, Wed Apr 4 01:39:06 2007 UTC revision 1.47 by jmc, Thu May 3 21:34:39 2007 UTC
# Line 559  C-    Set non local KPP transport term ( Line 559  C-    Set non local KPP transport term (
559         ENDDO         ENDDO
560         IF (tracerIdentity.EQ.GAD_TEMPERATURE) THEN         IF (tracerIdentity.EQ.GAD_TEMPERATURE) THEN
561          CALL KPP_TRANSPORT_T(          CALL KPP_TRANSPORT_T(
562       I     iMin,iMax,jMin,jMax,bi,bj,k,km1,       I           iMin,iMax,jMin,jMax,bi,bj,k,km1,
563       O     df )       O           df,
564         I           myTime, myIter, myThid )
565         ELSEIF (tracerIdentity.EQ.GAD_SALINITY) THEN         ELSEIF (tracerIdentity.EQ.GAD_SALINITY) THEN
566          CALL KPP_TRANSPORT_S(          CALL KPP_TRANSPORT_S(
567       I     iMin,iMax,jMin,jMax,bi,bj,k,km1,       I           iMin,iMax,jMin,jMax,bi,bj,k,km1,
568       O     df )       O           df,
569         I           myTime, myIter, myThid )
570  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
571         ELSEIF (tracerIdentity .GE. GAD_TR1) THEN         ELSEIF (tracerIdentity .GE. GAD_TR1) THEN
572          CALL KPP_TRANSPORT_PTR(          CALL KPP_TRANSPORT_PTR(
573       I     iMin,iMax,jMin,jMax,bi,bj,k,km1,       I           iMin,iMax,jMin,jMax,bi,bj,k,km1,
574       I     tracerIdentity-GAD_TR1+1,       I           tracerIdentity-GAD_TR1+1,
575       O     df )       O           df,
576         I           myTime, myIter, myThid )
577  #endif  #endif
578         ELSE         ELSE
579          PRINT*,'invalid tracer indentity: ', tracerIdentity          PRINT*,'invalid tracer indentity: ', tracerIdentity
Legend:
Removed from v.1.46  
changed lines
  Added in v.1.47
  ViewVC Help
Powered by ViewVC 1.1.22