/[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.18 by heimbach, Fri Feb 11 17:24:41 2005 UTC revision 1.19 by dimitri, Sat Mar 26 18:12:59 2005 UTC
# Line 90  c             Zonal wind stress. Line 90  c             Zonal wind stress.
90                endif                endif
91  c  c
92  c             Meridional wind stress.  c             Meridional wind stress.
93                if ( ABS(vstress(i,j,bi,bj)) .GT. 2.2 .AND.                if ( ABS(vstress(i,j,bi,bj)) .GT. 2.3 .AND.
94       &             hFacS(i,j,1,bi,bj) .NE. 0. ) then       &             hFacS(i,j,1,bi,bj) .NE. 0. ) then
95                   write(standardmessageunit,'(A,2(2X,I5),2X,D22.15)')                   write(standardmessageunit,'(A,2(2X,I5),2X,D22.15)')
96       &                'EXF WARNING: vstress out of range for i,j= ',       &                'EXF WARNING: vstress out of range for i,j= ',
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19
  ViewVC Help
Powered by ViewVC 1.1.22