/[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.21 by jmc, Sun Oct 17 23:05:09 2004 UTC revision 1.22 by heimbach, Thu Feb 10 05:41:44 2005 UTC
# Line 784  c            evaluate diffusivities and Line 784  c            evaluate diffusivities and
784  c    mixing due to internal waves, and shear and static instability  c    mixing due to internal waves, and shear and static instability
785    
786  #ifndef EXCLUDE_KPP_SHEAR_MIX  #ifndef EXCLUDE_KPP_SHEAR_MIX
787              diffus(i,ki,1) = viscAr + fcon * difmcon + fRi * difm0              if ( .NOT. inAdMode ) then
788              diffus(i,ki,2) = diffKrNrS(ki)+ fcon*difscon + fRi*difs0                 diffus(i,ki,1) = viscAr + fcon * difmcon + fRi * difm0
789              diffus(i,ki,3) = diffKrNrT(ki)+ fcon*difscon + fRi*difs0                 diffus(i,ki,2) = diffKrNrS(ki)+ fcon*difscon + fRi*difs0
790                   diffus(i,ki,3) = diffKrNrT(ki)+ fcon*difscon + fRi*difs0
791                else
792                   diffus(i,ki,1) = viscAr
793                   diffus(i,ki,2) = diffKrNrS(ki)
794                   diffus(i,ki,3) = diffKrNrT(ki)
795                endif
796  #else  #else
797              diffus(i,ki,1) = viscAr              diffus(i,ki,1) = viscAr
798              diffus(i,ki,2) = diffKrNrS(ki)              diffus(i,ki,2) = diffKrNrS(ki)
Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22
  ViewVC Help
Powered by ViewVC 1.1.22