/[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.20 by jmc, Mon Sep 22 22:13:11 2003 UTC revision 1.21 by dimitri, Wed Sep 24 04:52:38 2003 UTC
# Line 412  C *note* should update KPP_TRANSPORT_T t Line 412  C *note* should update KPP_TRANSPORT_T t
412       &         tracerIdentity .LE. (GAD_TR1+PTRACERS_numInUse-1)) THEN       &         tracerIdentity .LE. (GAD_TR1+PTRACERS_numInUse-1)) THEN
413          CALL KPP_TRANSPORT_PTR(          CALL KPP_TRANSPORT_PTR(
414       I     iMin,iMax,jMin,jMax,bi,bj,k,km1,       I     iMin,iMax,jMin,jMax,bi,bj,k,km1,
415       I     tracerIdentity,KappaRT,       I     tracerIdentity-GAD_TR1+1,KappaRT,
416       U     df )       U     df )
417  #endif  #endif
418         ELSE         ELSE
Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21
  ViewVC Help
Powered by ViewVC 1.1.22