[Dart-dev] DART/branches Revision: 11036

dart at ucar.edu dart at ucar.edu
Wed Feb 8 12:13:37 MST 2017


nancy at ucar.edu
2017-02-08 12:13:37 -0700 (Wed, 08 Feb 2017)
84
make clear the istatus is an array, and remove
confusing comment in inter routine.




Modified: DART/branches/rma_single_file/models/forced_lorenz_96/model_mod.f90
===================================================================
--- DART/branches/rma_single_file/models/forced_lorenz_96/model_mod.f90	2017-02-08 19:13:36 UTC (rev 11035)
+++ DART/branches/rma_single_file/models/forced_lorenz_96/model_mod.f90	2017-02-08 19:13:37 UTC (rev 11036)
@@ -285,11 +285,7 @@
 subroutine model_interpolate(state_handle, ens_size, location, itype, expected_val, istatus)
 !------------------------------------------------------------------
 !
-! Interpolates from state vector x to the location. It's not particularly
-! happy dumping all of this straight into the model. Eventually some
-! concept of a grid underlying models but above locations is going to
-! be more general. May want to wait on external infrastructure projects
-! for this?
+! Interpolates from state vector to the location.
 
 ! Argument itype is not used here because there is only one type of variable.
 ! Type is needed to allow swap consistency with more complex models.
@@ -310,7 +306,7 @@
 real(r8) :: lctn, lctnfrac
 
 ! All forward operators supported
-istatus = 0
+istatus(:) = 0
 
 ! Convert location to real
 lctn = get_location(location)


More information about the Dart-dev mailing list