[Dart-dev] DART/branches Revision: 12827

[dart at ucar.edu]

nancy at ucar.edu
2018-09-17 14:15:16 -0600 (Mon, 17 Sep 2018)
172
idiotic cut and paste error - was dimensioning the slat
array to be size 'slon' instead of slat items.   extra items
had NaNs in them which made things go bad in a hurry.




Modified: DART/branches/recam/models/cam-fv/model_mod.f90
===================================================================
--- DART/branches/recam/models/cam-fv/model_mod.f90	2018-09-14 22:31:41 UTC (rev 12826)
+++ DART/branches/recam/models/cam-fv/model_mod.f90	2018-09-17 20:15:16 UTC (rev 12827)
@@ -1877,7 +1877,7 @@
 call nc_add_attribute_to_variable(ncid, 'lat', 'units',     'degrees_north', routine)
 
 
-call nc_define_real_variable(     ncid, 'slat', (/ 'slon' /),                      routine)
+call nc_define_real_variable(     ncid, 'slat', (/ 'slat' /),                      routine)
 call nc_add_attribute_to_variable(ncid, 'slat', 'long_name', 'staggered latitude', routine)
 call nc_add_attribute_to_variable(ncid, 'slat', 'units',     'degrees_north',      routine)
 
@@ -2491,6 +2491,9 @@
 !>even though they provide full lon() and lat() arrays.  providing the deltas
 !>between each pair would be slightly faster inside the interp code.
 
+!print *, 'setting up interpolation: lon/lat sizes = ', grid%lon%nsize, grid%lat%nsize,  &
+!                                                       grid%slon%nsize, grid%slat%nsize
+
 ! mass points at cell centers
 call init_quad_interp(GRID_QUAD_IRREG_SPACED_REGULAR, grid%lon%nsize, grid%lat%nsize, &
                       QUAD_LOCATED_CELL_CENTERS, &