/[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.13 by dimitri, Mon Dec 13 15:07:53 2004 UTC revision 1.14 by dimitri, Mon Dec 20 23:32:52 2004 UTC
# Line 134  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. 1.E-6 ) .AND.       &             precip(i,j,bi,bj) .GT. 2.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)
# 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. -500. ) .AND.       &             swflux(i,j,bi,bj) .LT. -800. ) .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.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22