[Dart-dev] DART/branches Revision: 12982

[dart at ucar.edu]

hendric at ucar.edu
2019-02-12 09:50:11 -0700 (Tue, 12 Feb 2019)
87

removing unused variables, updating comments and removing unneeded print statements.




Modified: DART/branches/radiance/observations/forward_operators/obs_def_rttov_mod.f90
===================================================================
--- DART/branches/radiance/observations/forward_operators/obs_def_rttov_mod.f90	2019-02-12 15:55:12 UTC (rev 12981)
+++ DART/branches/radiance/observations/forward_operators/obs_def_rttov_mod.f90	2019-02-12 16:50:11 UTC (rev 12982)
@@ -368,10 +368,6 @@
 is_asciifile = ascii_file_format(fform)
 
 if (is_asciifile) then
-   !write(*, *) 'rttovSTRING', trim(rttovSTRING)
-   !write(*, *) 'sat_az, sat_ze, sun_az, sun_ze', sat_az, sat_ze, sun_az, sun_ze
-   !write(*, *) 'platform, sat_id, sensor, channel', platform, sat_id, sensor, channel
-   !write(*, *) 'key', key
    write(ifile, *) trim(rttovSTRING)
    write(ifile, *) sat_az, sat_ze, sun_az, sun_ze
    write(ifile, *) platform, sat_id, sensor, channel

Modified: DART/branches/radiance/observations/forward_operators/rttov_interface_mod.f90
===================================================================
--- DART/branches/radiance/observations/forward_operators/rttov_interface_mod.f90	2019-02-12 15:55:12 UTC (rev 12981)
+++ DART/branches/radiance/observations/forward_operators/rttov_interface_mod.f90	2019-02-12 16:50:11 UTC (rev 12982)
@@ -5,15 +5,15 @@
 
 module rttov_interface_mod
 
-use     location_mod, only : location_type, set_location, get_location, VERTISUNDEF, &
-                             VERTISHEIGHT, VERTISLEVEL, set_location_missing, &
-                             is_vertical, &
-                             VERTISHEIGHT
+use     location_mod,  only : location_type, set_location, get_location, VERTISUNDEF, &
+                              VERTISHEIGHT, VERTISLEVEL, set_location_missing, &
+                              is_vertical, &
+                              VERTISHEIGHT
 
-use    utilities_mod, only : register_module, error_handler, E_ERR, &
-                             nmlfileunit, check_namelist_read,      &
-                             find_namelist_in_file, do_nml_file, do_nml_term, &
-                             ascii_file_format
+use    utilities_mod,  only : register_module, error_handler, E_ERR, &
+                              nmlfileunit, check_namelist_read,      &
+                              find_namelist_in_file, do_nml_file, do_nml_term, &
+                              ascii_file_format
 
 ! example call to the forward operator for radiances.
 ! needs rttov libs, include files.
@@ -101,7 +101,6 @@
 
   !--------------------------
   !
-  INTEGER(KIND=jpim), PARAMETER :: iup   = 20   ! unit for input profile file
   INTEGER(KIND=jpim), PARAMETER :: ioout = 0    ! stdout for now
 
 !FIXME: this is in module global storage for now
@@ -212,11 +211,6 @@
 nprof         = nprofs
 nchannels     = nchans
 
-print*, 'coef_filename = ', trim(coef_filename)
-print*, 'prof_filename = ', trim(prof_filename)
-print*, 'nlevels       = ', nlevels
-print*, 'nprof         = ', nprof
-print*, 'nchannels     = ', nchannels
 
   ! --------------------------------------------------------------------------
   ! 1. Initialise RTTOV options structure
@@ -248,14 +242,9 @@
 
   opts % config % verbose            = .TRUE.  ! Enable printing of warnings
 
-  !========== Interactive inputs == end ==============
-  !===================================================
-
-
   ! --------------------------------------------------------------------------
   ! 2. Read coefficients
   ! --------------------------------------------------------------------------
-  print*, 'dart_rttov_setup::rttov_read_coefs', coef_filename
   CALL rttov_read_coefs(errorstatus, coefs, opts, file_coef=coef_filename)
   IF (errorstatus /= errorstatus_success) THEN
     WRITE(*,*) 'fatal error reading coefficients'
@@ -289,8 +278,6 @@
   ! in general one can simulate a different number of channels for each profile.
 
   nchanprof = nchannels * nprof
-  print*, 'dart_rttov_setup::rttov_alloc_direct'
-  print*, 'nlevels = ', nlevels
   ! Allocate structures for rttov_direct
   CALL rttov_alloc_direct( &
         errorstatus,             &
@@ -331,7 +318,7 @@
 
   !call dart_rttov_dump_results(nprof, nchannels)
 
-end subroutine
+end subroutine dart_rttov_setup
 
 !--------------------------------------------------------------------------
 
@@ -340,19 +327,16 @@
 ! FIXME:  HERE WE use the profiles from our FORWARD OPERATOR calls
 ! --------------------------------------------------------------------------