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

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

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

revision 1.46 by atn, Fri Dec 21 02:54:34 2007 UTC revision 1.47 by dimitri, Thu Dec 27 21:26:49 2007 UTC
# Line 499  c     matching diffusivities at bottom o Line 499  c     matching diffusivities at bottom o
499       I     , maskC(1-Olx,1-Oly,1,bi,bj)       I     , maskC(1-Olx,1-Oly,1,bi,bj)
500       I     , bo, bosol       I     , bo, bosol
501  #ifdef ALLOW_SALT_PLUME  #ifdef ALLOW_SALT_PLUME
502       I     , boplume,SaltPlumeDepth       I     , boplume, SaltPlumeDepth(1-Olx,1-Oly,bi,bj)
503  #endif /* ALLOW_SALT_PLUME */  #endif /* ALLOW_SALT_PLUME */
504       I     , dbloc, Ritop, work2       I     , dbloc, Ritop, work2
505       I     , KPPdiffKzS(1-Olx,1-Oly,1,bi,bj)       I     , KPPdiffKzS(1-Olx,1-Oly,1,bi,bj)
# Line 591  C     the bottom of the mixing layer. Line 591  C     the bottom of the mixing layer.
591        IF ( useSALT_PLUME ) THEN        IF ( useSALT_PLUME ) THEN
592          DO j=1-OLy,sNy+OLy          DO j=1-OLy,sNy+OLy
593             DO i=1-OLx,sNx+OLx             DO i=1-OLx,sNx+OLx
594                  work2(i,j) = SaltPlumeDepth(i,j,bi,bj)
595                worka(i,j) = KPPhbl(i,j,bi,bj)                worka(i,j) = KPPhbl(i,j,bi,bj)
596             ENDDO             ENDDO
597          ENDDO          ENDDO
598          CALL SALT_PLUME_FRAC(          CALL SALT_PLUME_FRAC(
599       I       (sNx+2*OLx)*(sNy+2*OLy), minusone,SaltPlumeDepth,       I       (sNx+2*OLx)*(sNy+2*OLy), minusone, work2,
600       U       worka,       U       worka,
601       I       myTime, myIter, myThid )       I       myTime, myIter, myThid )
602          DO j=1-OLy,sNy+OLy          DO j=1-OLy,sNy+OLy
Legend:
Removed from v.1.46  
changed lines
  Added in v.1.47
  ViewVC Help
Powered by ViewVC 1.1.22