/[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.4 by molod, Fri Oct 22 17:56:03 2004 UTC revision 1.5 by molod, Tue Oct 26 01:01:58 2004 UTC
# Line 71  C ************************************** Line 71  C **************************************
71         enddo         enddo
72        enddo        enddo
73    
       do L=1,lm  
        do j=1,jm  
        do i=1,im  
         dz(i,j,L) = cpog * (pekap(i,j,L+1)-pekap(i,j,L)) * t(i,j,L) *  
      .                (1.+virtcon*s(i,j,L))  
        enddo  
        enddo  
       enddo  
   
74        do j=1,jm        do j=1,jm
75        do i=1,im        do i=1,im
76         z(i,j,lm) = zsurf(i,j) +  0.5 * dz(i,j,lm)         z(i,j,lm) = zsurf(i,j) +  0.5 * dz(i,j,lm)
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22