[Dart-dev] DART/branches Revision: 11085

[dart at ucar.edu]

nancy at ucar.edu
2017-02-09 16:13:27 -0700 (Thu, 09 Feb 2017)
86
fixed another i4/i8 problem, and removed some
unused variables as an apology to tim.




Modified: DART/branches/rma_single_file/models/9var/model_mod.f90
===================================================================
--- DART/branches/rma_single_file/models/9var/model_mod.f90	2017-02-09 23:12:10 UTC (rev 11084)
+++ DART/branches/rma_single_file/models/9var/model_mod.f90	2017-02-09 23:13:27 UTC (rev 11085)
@@ -97,8 +97,9 @@
 ! Need reproducible sequence of noise added so that different runs
 ! can be cleanly compared
 
-logical :: first_ran_call = .true.
-! TJH type(random_seq_type) :: ran_seq
+!! used in code that is currently commented out.
+!!logical :: first_ran_call = .true.
+!!type(random_seq_type) :: ran_seq
 
 
 
@@ -542,7 +543,7 @@
 
 lctnfrac = lctn - int(lctn)
 expected_obs = (1.0_r8 - lctnfrac) * get_state(lower_index, state_handle) + &
-                    lctnfrac  * get_state(upper_index, state_handle)
+                         lctnfrac  * get_state(upper_index, state_handle)
 
 end subroutine model_interpolate
 
@@ -668,7 +669,6 @@
 character(len=NF90_MAX_NAME) :: str1
 
 integer             :: i
-type(location_type) :: lctn
 ierr = 0                      ! assume normal termination
 model_mod_writes_state_variables = .false. 
 
@@ -707,7 +707,7 @@
 ! Define the model size, state variable dimension ... whatever ...
 !--------------------------------------------------------------------
 call check(nf90_def_dim(ncid=ncFileID, name="location", &
-                        len=model_size, dimid = LocationDimID))
+                        len=int(model_size,i4), dimid = LocationDimID))
 
 !--------------------------------------------------------------------
 ! Define the Location Variable and add Attributes