/[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.10 by edhill, Tue Dec 7 22:14:35 2004 UTC revision 1.11 by dimitri, Tue Dec 7 22:43:05 2004 UTC
# Line 62  c     == end of interface == Line 62  c     == end of interface ==
62              do i = imin,imax              do i = imin,imax
63  c  c
64  c             Heat flux.  c             Heat flux.
65                if ( ABS(hflux(i,j,bi,bj)) .GT. 1000. .AND.                if ( ABS(hflux(i,j,bi,bj)) .GT. 1100. .AND.
66       &              hFacC(i,j,1,bi,bj) .NE. 0. ) then       &              hFacC(i,j,1,bi,bj) .NE. 0. ) then
67                   print *, 'EXF WARNING: hflux out of range for i,j= ',                   print *, 'EXF WARNING: hflux out of range for i,j= ',
68       &                i, j, hflux(i,j,bi,bj)       &                i, j, hflux(i,j,bi,bj)
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22