[Dart-dev] DART/branches Revision: 12057

dart at ucar.edu dart at ucar.edu
Tue Nov 7 09:36:47 MST 2017


nancy at ucar.edu
2017-11-07 09:36:44 -0700 (Tue, 07 Nov 2017)
71
update the test case to match the regular quad eval
interface change.




Modified: DART/branches/recam/models/model_mod_tools/test_quad_reg_interp.f90
===================================================================
--- DART/branches/recam/models/model_mod_tools/test_quad_reg_interp.f90	2017-11-07 00:05:42 UTC (rev 12056)
+++ DART/branches/recam/models/model_mod_tools/test_quad_reg_interp.f90	2017-11-07 16:36:44 UTC (rev 12057)
@@ -176,6 +176,12 @@
 
 do i=1, nsx
    do j=1, nsy
+
+      !>@todo FIXME should this interface return an array of 4 index combinations 
+      !>so the calling code could do loops from 1 to 4 instead of making combinations
+      !>of lat/lon bot/top in the right order for eval?  locate can output already 
+      !>in the right combinations in the right order.
+
       call quad_lon_lat_locate(h, sample_lons(i,j), sample_lats(i,j), lon_bot, lat_bot, lon_top, lat_top, &
                                lon_fract, lat_fract, istatus)
       if (istatus /= 0) then
@@ -197,8 +203,7 @@
          cycle
       endif
 
-      call quad_lon_lat_evaluate(h, lon_bot, lat_bot, lon_top, lat_top, &
-                                 lon_fract, lat_fract, invals, outval, istatus)
+      call quad_lon_lat_evaluate(h, lon_fract, lat_fract, invals, outval, istatus)
 
       if (istatus == 0) then
          interp_data(i, j) = outval


More information about the Dart-dev mailing list