/[MITgcm]/MITgcm/pkg/fizhi/fizhi_rayleigh.F
ViewVC logotype

Diff of /MITgcm/pkg/fizhi/fizhi_rayleigh.F

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

revision 1.5 by molod, Tue Oct 26 01:01:58 2004 UTC revision 1.6 by molod, Tue Oct 26 19:29:10 2004 UTC
# Line 88  C ************************************** Line 88  C **************************************
88        do L=1,lm        do L=1,lm
89         do j=1,jm         do j=1,jm
90         do i=1,im         do i=1,im
91          rf(i,j,L) = dampcoef*(1+tanh((z(i,j,L)-80000.)/5000.))/86400.          rf(i,j,L) = dampcoef*(1+tanh((z(i,j,L)-50000.)/5000.))/86400.
92          rfu(i,j,L) = - rf(i,j,L) * u(i,j,L)          rfu(i,j,L) = - rf(i,j,L) * u(i,j,L)
93          rfv(i,j,L) = - rf(i,j,L) * v(i,j,L)          rfv(i,j,L) = - rf(i,j,L) * v(i,j,L)
94          rft(i,j,L) = -(u(i,j,L)*rfu(i,j,L) + v(i,j,L)*rfv(i,j,L) )*cpinv          rft(i,j,L) = -(u(i,j,L)*rfu(i,j,L) + v(i,j,L)*rfv(i,j,L) )*cpinv
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22