[Dart-dev] DART/branches Revision: 12249

[dart at ucar.edu]

thoar at ucar.edu
2017-12-29 11:19:17 -0700 (Fri, 29 Dec 2017)
35
removing comments - nothing more.




Modified: DART/branches/coamps/models/coamps_nest/coamps_domain_mod.f90
===================================================================
--- DART/branches/coamps/models/coamps_nest/coamps_domain_mod.f90	2017-12-29 00:00:08 UTC (rev 12248)
+++ DART/branches/coamps/models/coamps_nest/coamps_domain_mod.f90	2017-12-29 18:19:17 UTC (rev 12249)
@@ -346,8 +346,6 @@
 
         call coarse_point_to_nest_point(coarse_pt, nest_pt, in_domain)
 
-!       call dump_nest_point_info(nest_pt) ! TJH this could be too verbose 
-
         if (present(within_domain)) within_domain = in_domain
 
     end subroutine latlon_to_nest_point
@@ -797,10 +795,9 @@
                                  parent_nest = domain%nests(parent_nest_id))
     end do
 
-!>@todo TJH not needed now that initialize_nest() reads latlon from hdf5 file
-         do cur_nest_id = 1, domain%nest_count
-            call initialize_nest_latlon(domain%nests(cur_nest_id), domain%static_grid)
-         end do
+    do cur_nest_id = 1, domain%nest_count
+       call initialize_nest_latlon(domain%nests(cur_nest_id), domain%static_grid)
+    end do
 
   end subroutine initialize_nests
 

Modified: DART/branches/coamps/models/coamps_nest/coamps_nest_mod.f90
===================================================================
--- DART/branches/coamps/models/coamps_nest/coamps_nest_mod.f90	2017-12-29 00:00:08 UTC (rev 12248)
+++ DART/branches/coamps/models/coamps_nest/coamps_nest_mod.f90	2017-12-29 18:19:17 UTC (rev 12249)
@@ -44,7 +44,7 @@
     public :: coamps_nest
 
     public :: initialize_nest
-    public :: initialize_nest_latlon   ! candidate for removal
+    public :: initialize_nest_latlon
 
     public :: register_child_nest
     public :: register_parent_nest
@@ -1265,8 +1265,6 @@
     ! INOUT nest              The nest to add geographic data to
     !   IN  dtg               COAMPS date-time group
 
-! TJH initialize_nest_latlon probably not needed now that we can read from a file
-
     subroutine initialize_nest_latlon(nest, grid)
         type(coamps_nest), intent(inout) :: nest
         type(coamps_grid), intent(in)    :: grid

Modified: DART/branches/coamps/models/coamps_nest/coamps_util_mod.f90
===================================================================
--- DART/branches/coamps/models/coamps_nest/coamps_util_mod.f90	2017-12-29 00:00:08 UTC (rev 12248)
+++ DART/branches/coamps/models/coamps_nest/coamps_util_mod.f90	2017-12-29 18:19:17 UTC (rev 12249)
@@ -625,9 +625,6 @@
 
    allocate( chunk3D( dimlens(1), dimlens(2), dimlens(3) ) )
    call nc_get_variable(ncFileID, variable_name, chunk3D, context=routine) 
-
-!  chunk3D = 42.0_r8 ! TJH DEBUG
-   
 !  call nc_put_variable(hdf5unit, analysis_name, chunk3D, context=routine) 
 
    call write_hdf5_data(real(chunk3D, kind=hdf5_r4), analysis_name, hdf5_file_write, ierr)