/[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.19 by dimitri, Sat Mar 26 18:12:59 2005 UTC revision 1.20 by dimitri, Sat Apr 9 23:24:53 2005 UTC
# Line 81  c             Salt flux. Line 81  c             Salt flux.
81                endif                endif
82  c  c
83  c             Zonal wind stress.  c             Zonal wind stress.
84                if ( ABS(ustress(i,j,bi,bj)) .GT. 2.5 .AND.                if ( ABS(ustress(i,j,bi,bj)) .GT. 2.6 .AND.
85       &             hFacW(i,j,1,bi,bj) .NE. 0. ) then       &             hFacW(i,j,1,bi,bj) .NE. 0. ) then
86                   write(standardmessageunit,'(A,2(2X,I5),2X,D22.15)')                   write(standardmessageunit,'(A,2(2X,I5),2X,D22.15)')
87       &                'EXF WARNING: ustress out of range for i,j= ',       &                'EXF WARNING: ustress out of range for i,j= ',
Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20
  ViewVC Help
Powered by ViewVC 1.1.22