[Dart-dev] DART/branches Revision: 11272

[dart at ucar.edu]

hendric at ucar.edu
2017-03-09 14:30:32 -0700 (Thu, 09 Mar 2017)
68
commiting all changes from script to test how it effects an update




Added: DART/branches/rma_rearrange/COPYRIGHT
===================================================================
--- DART/branches/rma_rearrange/COPYRIGHT	                        (rev 0)
+++ DART/branches/rma_rearrange/COPYRIGHT	2017-03-09 21:30:32 UTC (rev 11272)
@@ -0,0 +1 @@
+copyright

Deleted: DART/branches/rma_rearrange/assimilation_code/location/location_test.f90
===================================================================
--- DART/branches/rma_rearrange/location/location_test.f90	2017-03-09 21:26:29 UTC (rev 11271)
+++ DART/branches/rma_rearrange/assimilation_code/location/location_test.f90	2017-03-09 21:30:32 UTC (rev 11272)
@@ -1,178 +0,0 @@
-! DART software - Copyright UCAR. This open source software is provided
-! by UCAR, "as is", without charge, subject to all terms of use at
-! http://www.image.ucar.edu/DAReS/DART/DART_download
-!
-! $Id$
-
-program location_test
-
-! Simple test program to exercise annulus location module.
-
-use     types_mod, only : r8
-use utilities_mod, only : open_file, close_file
-use  location_mod
-
-implicit none
-
-! version controlled file description for error handling, do not edit
-character(len=256), parameter :: source   = &
-   "$URL$"
-character(len=32 ), parameter :: revision = "$Revision$"
-character(len=128), parameter :: revdate  = "$Date$"
-
-type(location_type) :: loc0(6), loc1, loc2, loc3, loc4, locA(7), locB(5)
-integer             :: iunit, iunit1, iunit2, i
-real(r8)            :: loc2_val, lon, lat
-character(len=102)  :: testbuf
-
-print *, ''
-print *, 'reading in 6 locations to use in distance tests:'
-do i = 1, 6
-   call interactive_location(loc0(i))
-enddo
-
-print *, ''
-print *, 'testing distances between pairs of points:'
-do i = 1, 5
-   loc1 = loc0(i)
-   loc2 = loc0(i+1)
-   print *, 'prev location is ', get_location(loc1)
-   print *, 'this location is ', get_location(loc2)
-   print *, 'distance prev to this is ', get_dist(loc1, loc2)
-   print *, 'distance this to prev is ', get_dist(loc2, loc1)
-end do
-
-print *, ''
-print *, 'reading in 7 locations for file read/write tests:'
-
-! read in 7 different locs for the tests below
-do i = 1, 7
-   call interactive_location(locA(i))
-enddo
-
-loc1 = locA(1)
-loc2 = locA(2)
-
-print *, ''
-print *, 'location 1 is ', get_location(loc1)
-print *, 'location 2 is ', get_location(loc2)
-print *, 'distance   is ', get_dist(loc1, loc2)
-
-print *, ''
-print *, 'testing ascii file read/write:'
-
-! Open an output file
-iunit = open_file('location_test_file.txt', form='formatted', action='write')
-
-! Write these locations to the file
-call write_location(iunit, loc1)
-call write_location(iunit, loc2)
-
-do i = 1, 5
-   call write_location(iunit, locA(i))
-enddo
-
-call close_file(iunit)
-
-loc3 = set_location_missing()
-loc4 = set_location_missing()
-
-! Now read them back in and compute the distances between them
-iunit1 = open_file('location_test_file.txt', form='formatted', action='read')
-
-loc3 = read_location(iunit1)
-loc4 = read_location(iunit1)
-
-print *, ''
-print *, 'read-back location 1 is ', get_location(loc3)
-print *, 'read-back location 2 is ', get_location(loc4)
-print *, 'distance   is ', get_dist(loc3, loc4)