[Dart-dev] [6174] DART/branches/development/observations/snow/snow_to_obs.f90: The specific type of these obs are MODIS_SNOWCOVER_FRAC

[nancy at ucar.edu]

Revision: 6174
Author:   nancy
Date:     2013-05-29 09:58:32 -0600 (Wed, 29 May 2013)
Log Message:
-----------
The specific type of these obs are MODIS_SNOWCOVER_FRAC
and not simply SNOWCOVER_FRAC.  

Modified Paths:
--------------
    DART/branches/development/observations/snow/snow_to_obs.f90

-------------- next part --------------
Modified: DART/branches/development/observations/snow/snow_to_obs.f90
===================================================================
--- DART/branches/development/observations/snow/snow_to_obs.f90	2013-05-29 15:57:44 UTC (rev 6173)
+++ DART/branches/development/observations/snow/snow_to_obs.f90	2013-05-29 15:58:32 UTC (rev 6174)
@@ -34,7 +34,7 @@
                               write_obs_seq, init_obs_sequence, get_num_obs, & 
                               set_copy_meta_data, set_qc_meta_data
 use obs_utilities_mod, only : create_3d_obs, add_obs_to_seq
-use      obs_kind_mod, only : SNOWCOVER_FRAC
+use      obs_kind_mod, only : MODIS_SNOWCOVER_FRAC
 
 implicit none
 
@@ -176,7 +176,7 @@
 
       ! make an obs derived type, and then add it to the sequence
       call create_3d_obs(lat, lon, vert, VERTISSURFACE, coverage(ix), &
-                         SNOWCOVER_FRAC, terr, oday, osec, qc, obs)
+                         MODIS_SNOWCOVER_FRAC, terr, oday, osec, qc, obs)
       call add_obs_to_seq(obs_seq, obs, time_obs, prev_obs, prev_time, first_obs)
    
       if (debug) print *, 'added snow obs to output seq'