/[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.11 by dimitri, Tue Dec 7 22:43:05 2004 UTC revision 1.12 by dimitri, Fri Dec 10 15:41:59 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. 1100. .AND.                if ( ( hflux(i,j,bi,bj) .GT. 1300. .OR.
66         &               hflux(i,j,bi,bj) .LT. -500. ) .AND.
67       &              hFacC(i,j,1,bi,bj) .NE. 0. ) then       &              hFacC(i,j,1,bi,bj) .NE. 0. ) then
68                   print *, 'EXF WARNING: hflux out of range for i,j= ',                   print *, 'EXF WARNING: hflux out of range for i,j= ',
69       &                i, j, hflux(i,j,bi,bj)       &                i, j, hflux(i,j,bi,bj)
# Line 133  c             2-m specific humidity Line 134  c             2-m specific humidity
134  c  c
135  c             precipitation rate  c             precipitation rate
136                if ( (precip(i,j,bi,bj) .LT. 0. .OR.                if ( (precip(i,j,bi,bj) .LT. 0. .OR.
137       &             precip(i,j,bi,bj) .GT. 0.1 ) .AND.       &             precip(i,j,bi,bj) .GT. 1.E-6 ) .AND.
138       &             hFacC(i,j,1,bi,bj) .NE. 0. ) then       &             hFacC(i,j,1,bi,bj) .NE. 0. ) then
139                   print *, 'EXF WARNING: precip out of range for i,j= ',                   print *, 'EXF WARNING: precip out of range for i,j= ',
140       &                i, j, precip(i,j,bi,bj)       &                i, j, precip(i,j,bi,bj)
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22