/[MITgcm]/MITgcm/pkg/exf/exf_wind.F
ViewVC logotype

Diff of /MITgcm/pkg/exf/exf_wind.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch 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)
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22