/[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.15 by dimitri, Wed Dec 29 22:49:55 2004 UTC revision 1.16 by dimitri, Tue Jan 4 04:18:35 2005 UTC
# Line 145  c             precipitation rate Line 145  c             precipitation rate
145  #ifdef SHORTWAVE_HEATING  #ifdef SHORTWAVE_HEATING
146  c             Short wave radiative flux.  c             Short wave radiative flux.
147                if ( (swflux(i,j,bi,bj) .GT. 1. .OR.                if ( (swflux(i,j,bi,bj) .GT. 1. .OR.
148       &             swflux(i,j,bi,bj) .LT. -800. ) .AND.       &             swflux(i,j,bi,bj) .LT. -1000. ) .AND.
149       &             hFacC(i,j,1,bi,bj) .NE. 0. ) then       &             hFacC(i,j,1,bi,bj) .NE. 0. ) then
150                   print *, 'EXF WARNING: swflux out of range for i,j= ',                   print *, 'EXF WARNING: swflux out of range for i,j= ',
151       &                i, j, swflux(i,j,bi,bj)       &                i, j, swflux(i,j,bi,bj)
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.22