/[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.7 by dimitri, Thu Dec 2 19:27:35 2004 UTC revision 1.8 by dimitri, Thu Dec 2 20:50:58 2004 UTC
# Line 77  c             Salt flux. Line 77  c             Salt flux.
77                endif                endif
78  c  c
79  c             Zonal wind stress.  c             Zonal wind stress.
80                if ( ABS(ustress(i,j,bi,bj)) .GT. 2. .AND.                if ( ABS(ustress(i,j,bi,bj)) .GT. 2.5 .AND.
81       &             hFacW(i,j,1,bi,bj) .NE. 0. ) then       &             hFacW(i,j,1,bi,bj) .NE. 0. ) then
82                   print *, 'EXF WARNING: ustress out of range for i,j= ',                   print *, 'EXF WARNING: ustress out of range for i,j= ',
83       &                i, j, ustress(i,j,bi,bj)       &                i, j, ustress(i,j,bi,bj)
# Line 153  c             Short wave radiative flux. Line 153  c             Short wave radiative flux.
153    
154  #ifdef ALLOW_RUNOFF  #ifdef ALLOW_RUNOFF
155  c             Runoff.  c             Runoff.
156                if ( (runoff(i,j,bi,bj) .LT. 0. .OR.                if ( (runoff(i,j,bi,bj) .LT. -5.E-8 .OR.
157       &             runoff(i,j,bi,bj) .GT. 1.E-6 ) .AND.       &             runoff(i,j,bi,bj) .GT. 1.E-6 ) .AND.
158       &             hFacC(i,j,1,bi,bj) .NE. 0. ) then       &             hFacC(i,j,1,bi,bj) .NE. 0. ) then
159                   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.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22