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

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

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