/[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.41 by ce107, Thu Jun 16 16:46:12 2005 UTC revision 1.42 by molod, Mon Jun 27 18:57:37 2005 UTC
# Line 1182  c -------------------------------------- Line 1182  c --------------------------------------
1182        if( (icethk(i).gt.0.).and.(tground(i).gt.tice) ) tground(i)=tice        if( (icethk(i).gt.0.).and.(tground(i).gt.tice) ) tground(i)=tice
1183        enddo        enddo
1184    
1185  c Update tcanopy and ecanopy from the land points of the  c Update tcanopy and ecanopy from the points of the
1186  c           tground and qground arrays  c           tground and qground arrays
1187  c ---------------------------------------------------------------------  c ---------------------------------------------------------------------
1188        do i =1,nchplnd        do i =1,nchptot
1189         tcanopy(i) = tground(i)         tcanopy(i) = tground(i)
1190         ecanopy(i) = qground(i)         ecanopy(i) = qground(i)
1191        enddo        enddo
Legend:
Removed from v.1.41  
changed lines
  Added in v.1.42
  ViewVC Help
Powered by ViewVC 1.1.22