[Dart-dev] [4004] DART/trunk/observations/AIRS/airs_obs_mod.f90: Convert vertical location coordinate value from

[nancy at ucar.edu]

An HTML attachment was scrubbed...
URL: http://mailman.ucar.edu/pipermail/dart-dev/attachments/20090814/cae968f2/attachment.html 
-------------- next part --------------
Modified: DART/trunk/observations/AIRS/airs_obs_mod.f90
===================================================================
--- DART/trunk/observations/AIRS/airs_obs_mod.f90	2009-08-12 21:12:28 UTC (rev 4003)
+++ DART/trunk/observations/AIRS/airs_obs_mod.f90	2009-08-14 20:00:18 UTC (rev 4004)
@@ -61,6 +61,8 @@
 
 logical :: DEBUG = .false.
 
+real(r8), parameter :: mb_to_hPa = 100.0  ! millibars to hectopascals
+
 ! the sizes of the Temperature arrays are:
 !   (AIRS_RET_STDPRESSURELAY, AIRS_RET_GEOXTRACK, AIRS_RET_GEOTRACK)
 ! the sizes of the MMR arrays are:
@@ -258,7 +260,7 @@
          obs_var = granule%TAirStdErr(ivert, icol, irow) * &
                    granule%TAirStdErr(ivert, icol, irow)
 
-         vloc = granule%pressStd(ivert)
+         vloc = granule%pressStd(ivert) * mb_to_hPa
 
          call real_obs(num_copies, num_qc, obs, olon, olat, vloc, obs_value, &
                        obs_var, tqc, AIRS_TEMPERATURE, which_vert, seconds, days)
@@ -297,7 +299,7 @@
 
          obs_value = Q(ivert, icol, irow)
          obs_var = Q_err(ivert, icol, irow) * Q_err(ivert, icol, irow)
-         vloc = granule%pressH2O(ivert)
+         vloc = granule%pressH2O(ivert) * mb_to_hPa
 
          call real_obs(num_copies, num_qc, obs, olon, olat, vloc, obs_value, &
                        obs_var, qqc, AIRS_SPECIFIC_HUMIDITY, which_vert, seconds, days)