/[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.9 by jmc, Thu Dec 2 23:39:09 2004 UTC revision 1.10 by edhill, Tue Dec 7 22:14:35 2004 UTC
# Line 154  c             Short wave radiative flux. Line 154  c             Short wave radiative flux.
154    
155  #ifdef ALLOW_RUNOFF  #ifdef ALLOW_RUNOFF
156  c             Runoff.  c             Runoff.
157                if ( (runoff(i,j,bi,bj) .LT. -5.E-8 .OR.                if ( (runoff(i,j,bi,bj) .LT. 0. .OR.
158       &             runoff(i,j,bi,bj) .GT. 1.E-6 ) .AND.       &             runoff(i,j,bi,bj) .GT. 1.E-6 ) .AND.
159       &             hFacC(i,j,1,bi,bj) .NE. 0. ) then       &             hFacC(i,j,1,bi,bj) .NE. 0. ) then
160                   print *, 'EXF WARNING: runoff out of range for i,j= ',                   print *, 'EXF WARNING: runoff out of range for i,j= ',
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22