Parent Directory | Revision Log | Revision Graph | Patch
revision 1.16 by dimitri, Tue Jan 4 04:18:35 2005 UTC | revision 1.17 by dimitri, Sun Feb 6 17:26:23 2005 UTC | |
---|---|---|
# | Line 87 c Zonal wind stress. | Line 87 c Zonal wind stress. |
87 | endif | endif |
88 | c | c |
89 | c Meridional wind stress. | c Meridional wind stress. |
90 | if ( ABS(vstress(i,j,bi,bj)) .GT. 2. .AND. | if ( ABS(vstress(i,j,bi,bj)) .GT. 2.2 .AND. |
91 | & hFacS(i,j,1,bi,bj) .NE. 0. ) then | & hFacS(i,j,1,bi,bj) .NE. 0. ) then |
92 | print *, 'EXF WARNING: vstress out of range for i,j= ', | print *, 'EXF WARNING: vstress out of range for i,j= ', |
93 | & i, j, vstress(i,j,bi,bj) | & i, j, vstress(i,j,bi,bj) |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |