/[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.4 by dimitri, Sat Nov 27 15:41:50 2004 UTC revision 1.5 by dimitri, Tue Nov 30 21:27:15 2004 UTC
# Line 142  c             precipitation rate Line 142  c             precipitation rate
142    
143  #ifdef SHORTWAVE_HEATING  #ifdef SHORTWAVE_HEATING
144  c             Short wave radiative flux.  c             Short wave radiative flux.
145                if ( (swflux(i,j,bi,bj) .GT. 0. .OR.                if ( (swflux(i,j,bi,bj) .GT. 1. .OR.
146       &             swflux(i,j,bi,bj) .LT. -500. ) .AND.       &             swflux(i,j,bi,bj) .LT. -500. ) .AND.
147       &             hFacC(i,j,1,bi,bj) .NE. 0. ) then       &             hFacC(i,j,1,bi,bj) .NE. 0. ) then
148                   print *, 'EXF WARNING: swflux out of range for i,j= ',                   print *, 'EXF WARNING: swflux out of range for i,j= ',
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22