Parent Directory | Revision Log | Revision Graph | Patch
revision 1.1 by heimbach, Thu May 25 18:32:56 2006 UTC | revision 1.2 by mlosch, Tue May 30 22:47:08 2006 UTC | |
---|---|---|
# | Line 138 c-- set lower limit | Line 138 c-- set lower limit |
138 | c-- if wspeed available, overwrite sh, | c-- if wspeed available, overwrite sh, |
139 | c-- otherwise fill wspeed array for later use | c-- otherwise fill wspeed array for later use |
140 | if ( wspeedfile .NE. ' ' ) then | if ( wspeedfile .NE. ' ' ) then |
141 | us(i,j,bi,bj) = wspeed(i,j,bi,bj) | |
142 | sh(i,j,bi,bj) = max(wspeed(i,j,bi,bj),umin) | sh(i,j,bi,bj) = max(wspeed(i,j,bi,bj),umin) |
143 | else | else |
144 | wspeed(i,j,bi,bj) = sh(i,j,bi,bj) | wspeed(i,j,bi,bj) = sh(i,j,bi,bj) |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |