/[MITgcm]/MITgcm/pkg/kpp/kpp_routines.F
ViewVC logotype

Diff of /MITgcm/pkg/kpp/kpp_routines.F

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

revision 1.35 by jmc, Fri Oct 19 19:11:17 2007 UTC revision 1.36 by dimitri, Tue Dec 18 09:05:59 2007 UTC
# Line 408  c     compute bfsfc = plume fraction at Line 408  c     compute bfsfc = plume fraction at
408           do i = 1, imt           do i = 1, imt
409              worka(i) = zgrid(kl)              worka(i) = zgrid(kl)
410           enddo           enddo
411           call PLUMEFRAC(           call SALT_PLUME_FRAC(
412       I       imt, hbf,SPDepth,       I       imt, hbf,SPDepth,
413       U       worka,       U       worka,
414       I       myTime, myIter, myThid)       I       myTime, myIter, myThid)
# Line 519  CADJ &   , key = ikppkey, shape = (/ (sN Line 519  CADJ &   , key = ikppkey, shape = (/ (sN
519        do i = 1, imt        do i = 1, imt
520           worka(i) = hbl(i)           worka(i) = hbl(i)
521        enddo        enddo
522        call PLUMEFRAC(        call SALT_PLUME_FRAC(
523       I       imt,minusone,SPDepth,       I       imt,minusone,SPDepth,
524       U       worka,       U       worka,
525       I       myTime, myIter, myThid )       I       myTime, myIter, myThid )
# Line 604  CADJ &   , key = ikppkey, shape = (/ (sN Line 604  CADJ &   , key = ikppkey, shape = (/ (sN
604        do i = 1, imt        do i = 1, imt
605           worka(i) = hbl(i)           worka(i) = hbl(i)
606        enddo        enddo
607        call PLUMEFRAC(        call SALT_PLUME_FRAC(
608       I       imt,minusone,SPDepth,       I       imt,minusone,SPDepth,
609       U       worka,       U       worka,
610       I       myTime, myIter, myThid )       I       myTime, myIter, myThid )
Legend:
Removed from v.1.35  
changed lines
  Added in v.1.36
  ViewVC Help
Powered by ViewVC 1.1.22