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

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

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

revision 1.30 by molod, Tue Feb 22 22:51:42 2005 UTC revision 1.31 by molod, Thu Feb 24 21:05:23 2005 UTC
# Line 568  c     print * Line 568  c     print *
568  c     stop  c     stop
569  c     endif  c     endif
570    
571    c Zero out velocities at the bottom edge of the model
572    c ---------------------------------------------------
573          do i =1,istrip
574           u(i,nlay+1) = 0.
575           v(i,nlay+1) = 0.
576          enddo
577    
578  c convert temperature of level nlay+1 to theta & value of sh at ground  c convert temperature of level nlay+1 to theta & value of sh at ground
579  c --------------------------------------------------------------------  c --------------------------------------------------------------------
580        do i =1,istrip        do i =1,istrip
Legend:
Removed from v.1.30  
changed lines
  Added in v.1.31
  ViewVC Help
Powered by ViewVC 1.1.22