[Dart-dev] [6234] DART/branches/development/observations: Removed an unusual construct that issued a gfortran compiler warning.

[nancy at ucar.edu]

Revision: 6234
Author:   thoar
Date:     2013-06-10 14:38:58 -0600 (Mon, 10 Jun 2013)
Log Message:
-----------
Removed an unusual construct that issued a gfortran compiler warning.
trying to use the syntax "z + -23" instead of just "z - 23".

Modified Paths:
--------------
    DART/branches/development/observations/AURA/convert_aura.f90
    DART/branches/development/observations/SABER/convert_saber_cdf.f90

-------------- next part --------------
Modified: DART/branches/development/observations/AURA/convert_aura.f90
===================================================================
--- DART/branches/development/observations/AURA/convert_aura.f90	2013-06-10 20:12:28 UTC (rev 6233)
+++ DART/branches/development/observations/AURA/convert_aura.f90	2013-06-10 20:38:58 UTC (rev 6234)
@@ -311,15 +311,16 @@
 
 end subroutine
 
+
 subroutine saber_error(pres,err)
-implicit none
 
-real(r8) :: pres,err
+real(r8), intent(in)  :: pres
+real(r8), intent(out) :: err
 
 ! NMP - simple function to calculate the error based on height
 !  function loosely based on Remsberg et al (2008JGR)
 
-err = 1.6718 + -0.4281*log(pres) + 0.0977*log(pres)**2
+err = 1.6718_r8 - 0.4281_r8*log(pres) + 0.0977_r8*log(pres)**2
 
 end subroutine
 

Modified: DART/branches/development/observations/SABER/convert_saber_cdf.f90
===================================================================
--- DART/branches/development/observations/SABER/convert_saber_cdf.f90	2013-06-10 20:12:28 UTC (rev 6233)
+++ DART/branches/development/observations/SABER/convert_saber_cdf.f90	2013-06-10 20:38:58 UTC (rev 6234)
@@ -301,15 +301,15 @@
 
 end subroutine
 
+
 subroutine saber_error(pres,err)
-implicit none
+real(r8), intent(in ) :: pres
+real(r8), intent(out) :: err
 
-real(r8) :: pres,err
-
 ! NMP - simple function to calculate the error based on height
 !  function loosely based on Remsberg et al (2008JGR)
 
-err = 1.6718 + -0.4281*log(pres) + 0.0977*log(pres)**2
+err = 1.6718_r8 - 0.4281_r8*log(pres) + 0.0977_r8*log(pres)**2
 
 end subroutine