[Dart-dev] [3685] DART/trunk/obs_def/obs_def_altimeter_mod.f90: add r8 to several real constants

[nancy at ucar.edu]

An HTML attachment was scrubbed...
URL: http://mailman.ucar.edu/pipermail/dart-dev/attachments/20081204/779f200d/attachment.html
-------------- next part --------------
Modified: DART/trunk/obs_def/obs_def_altimeter_mod.f90
===================================================================
--- DART/trunk/obs_def/obs_def_altimeter_mod.f90	2008-12-01 23:09:51 UTC (rev 3684)
+++ DART/trunk/obs_def/obs_def_altimeter_mod.f90	2008-12-04 21:58:06 UTC (rev 3685)
@@ -97,7 +97,7 @@
 endif
 
 !  Compute the altimeter setting given surface pressure and height, altimeter is hPa
-altimeter_setting = compute_altimeter(psfc * 0.01, hsfc)
+altimeter_setting = compute_altimeter(psfc * 0.01_r8, hsfc)
 
 if (altimeter_setting < 880.0_r8 .or. altimeter_setting >= 1100.0_r8) then
    altimeter_setting = missing_r8
@@ -119,7 +119,7 @@
 
 real(r8) :: compute_altimeter !  (hPa)
 
-compute_altimeter = ((psfc - 0.3) ** k1 + k2 * hsfc) ** (1 / k1)
+compute_altimeter = ((psfc - 0.3_r8) ** k1 + k2 * hsfc) ** (1.0_r8 / k1)
 
 return
 end function compute_altimeter