[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