/[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.21 by dimitri, Sat Apr 9 23:37:56 2005 UTC revision 1.22 by heimbach, Tue Jun 14 23:21:05 2005 UTC
# Line 123  c             2-m air temperature Line 123  c             2-m air temperature
123                if ( (atemp(i,j,bi,bj) .LT. 183 .OR.                if ( (atemp(i,j,bi,bj) .LT. 183 .OR.
124       &             atemp(i,j,bi,bj) .GT. 343 ) .AND.       &             atemp(i,j,bi,bj) .GT. 343 ) .AND.
125       &             hFacC(i,j,1,bi,bj) .NE. 0. ) then       &             hFacC(i,j,1,bi,bj) .NE. 0. ) then
126                   write(standardmessageunit,'(A,2(2X,I5),2X,D22.15)')                   write(standardmessageunit,'(2A,2(2X,I5),2X,D22.15)')
127       &                'EXF WARNING: atemp + exf_offset_atemp ',       &                'EXF WARNING: atemp + exf_offset_atemp ',
128       &                'out of range for i,j= ',       &                'out of range for i,j= ',
129       &                i, j, atemp(i,j,bi,bj)       &                i, j, atemp(i,j,bi,bj)
Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22
  ViewVC Help
Powered by ViewVC 1.1.22