[Dart-dev] DART/branches Revision: 12980

[dart at ucar.edu]

hendric at ucar.edu
2019-02-11 15:37:44 -0700 (Mon, 11 Feb 2019)
55

adding some comments to the individual profile data.




Modified: DART/branches/radiance/observations/forward_operators/rttov_interface_mod.f90
===================================================================
--- DART/branches/radiance/observations/forward_operators/rttov_interface_mod.f90	2019-02-11 22:12:08 UTC (rev 12979)
+++ DART/branches/radiance/observations/forward_operators/rttov_interface_mod.f90	2019-02-11 22:37:44 UTC (rev 12980)
@@ -364,6 +364,20 @@
 
   INTEGER(KIND=jpim), PARAMETER :: iup   = 20   ! unit for input profile file
 
+obsloc   = get_location(location)
+
+!>@ todo : fixme check that the units are the same
+lon      = obsloc(1) ! degree: 0 to 360
+lat      = obsloc(2) ! degree: -90 to 90
+height   = 100.0!obsloc(3) ! (m)
+
+if ( .not. is_vertical(location, "HEIGHT")) then
+   write(*, *) 'vertical location must be height;'
+   !call error_handler(E_ERR,'get_expected_gpsro_ref', string1, &
+   !                   source, revision, revdate)
+endif
+
+
   ! --------------------------------------------------------------------------
   ! 5. Read profile data
   ! --------------------------------------------------------------------------