[Dart-dev] DART/branches Revision: 11927

[dart at ucar.edu]

thoar at ucar.edu
2017-09-05 14:47:21 -0600 (Tue, 05 Sep 2017)
90
Committing a clean copy before incorporating the most recent changes from the rma_trunk.




Modified: DART/branches/coamps/models/coamps_nest/model_mod.f90
===================================================================
--- DART/branches/coamps/models/coamps_nest/model_mod.f90	2017-08-30 22:48:37 UTC (rev 11926)
+++ DART/branches/coamps/models/coamps_nest/model_mod.f90	2017-09-05 20:47:21 UTC (rev 11927)
@@ -297,7 +297,7 @@
         character(len=*), parameter :: STATE_VEC_DEF_FILE = 'state.vars'
         character(len=*), parameter :: routine = 'static_init_model'
 
-integer :: ncid, i, nvars
+integer :: i, nvars
 integer(i8) :: model_size
 
         if (module_initialized) return ! only need to do this once
@@ -480,7 +480,6 @@
         real(r8),               intent(out) :: expected_obs(ens_size)
         integer,                intent(out) :: interp_status(ens_size)
 
-        integer :: which_vert
         logical :: interp_worked(ens_size)
         logical :: in_domain
 
@@ -860,7 +859,6 @@
 
         type(state_variable)           :: cur_var
         type(coamps_nest)              :: cur_nest
-        type(nest_point)               :: cur_point
         integer, dimension(3)          :: ijk
         integer                        :: index_loc
         real(kind=r8)                  :: lat, lon
@@ -920,8 +918,6 @@
 type(time_type)              :: read_model_time
 
 ! local variables
-integer :: ret   ! return code for netcdf
-integer :: ncid, VarID, numdims
 type(time_type) :: base_time
 integer, allocatable :: seconds(:)
 integer :: year, month, day, hour, minute, second
@@ -1000,8 +996,6 @@
         character(len=*), parameter :: routine = 'allocate_metadata_arrays'
         integer                     :: alloc_status
 
-        integer                     :: nvars
-
         allocate( all_vars(get_model_size()), stat=alloc_status )
         call check_alloc_status(alloc_status, routine, source, revision, &
                                 revdate, 'all_vars')