[Dart-dev] [5600] DART/branches/development/observations/MADIS/convert_madis_rawin.f90 : remove print statements which were unintentionally left in.
nancy at ucar.edu
nancy at ucar.edu
Thu Mar 15 13:44:46 MDT 2012
Revision: 5600
Author: nancy
Date: 2012-03-15 13:44:45 -0600 (Thu, 15 Mar 2012)
Log Message:
-----------
remove print statements which were unintentionally left in.
Modified Paths:
--------------
DART/branches/development/observations/MADIS/convert_madis_rawin.f90
-------------- next part --------------
Modified: DART/branches/development/observations/MADIS/convert_madis_rawin.f90
===================================================================
--- DART/branches/development/observations/MADIS/convert_madis_rawin.f90 2012-03-15 19:42:29 UTC (rev 5599)
+++ DART/branches/development/observations/MADIS/convert_madis_rawin.f90 2012-03-15 19:44:45 UTC (rev 5600)
@@ -315,15 +315,12 @@
! more than a degree larger, skip it completely. if it is
! less, set them equal and continue.
if (tdew(k) > tair(k)) then
- print *, 'mand dew case', k, tdew(k), tair(k)
- print *, 'lat/lon/pres ', lat, lon, prespa
if (tdew(k) > tair(k) + 1.0_r8) goto 100
tdew(k) = tair(k)
endif
! tdew is the dewpoint depression
dptk = tair(k) - tdew(k)
- if (dptk <= 0.0) print *, dptk
if ( include_specific_humidity ) then
@@ -443,14 +440,12 @@
! more than a degree larger, skip it completely. if it is
! less, set them equal and continue.
if (tdew(k) > tair(k)) then
- print *, 'sign dew case', k, tdew(k), tair(k)
if (tdew(k) > tair(k) + 1.0_r8) goto 200
tdew(k) = tair(k)
endif
! tdew is the dewpoint depression
dptk = tair(k) - tdew(k)
- if (dptk <= 0.0) print *, dptk
if ( include_specific_humidity ) then
More information about the Dart-dev
mailing list