[Dart-dev] [9027] DART/trunk/obs_def/obs_def_CO_Nadir_mod.f90: real*8 changed to real( r8) in obs_def_CO_Nadir_mod.

[nancy at ucar.edu]

Revision: 9027
Author:   hkershaw
Date:     2015-11-10 09:46:01 -0700 (Tue, 10 Nov 2015)
Log Message:
-----------
real*8 changed to real(r8) in obs_def_CO_Nadir_mod.

Modified Paths:
--------------
    DART/trunk/obs_def/obs_def_CO_Nadir_mod.f90

-------------- next part --------------
Modified: DART/trunk/obs_def/obs_def_CO_Nadir_mod.f90
===================================================================
--- DART/trunk/obs_def/obs_def_CO_Nadir_mod.f90	2015-11-10 01:06:26 UTC (rev 9026)
+++ DART/trunk/obs_def/obs_def_CO_Nadir_mod.f90	2015-11-10 16:46:01 UTC (rev 9027)
@@ -549,9 +549,9 @@
 ! Allows passing of obs_def special information 
 
 integer,	 	intent(in)	:: key, co_nlevels
-real*8,dimension(10),	intent(in)	:: co_avgker	
-real*8,			intent(in)	:: co_prior
-real*8,			intent(in)	:: co_psurf
+real(r8),dimension(10),	intent(in)	:: co_avgker
+real(r8),			intent(in)	:: co_prior
+real(r8),			intent(in)	:: co_psurf
 character(len=129) 			:: msgstring
 
 if ( .not. module_initialized ) call initialize_module