[Dart-dev] DART/branches Revision: 12101

[dart at ucar.edu]

nancy at ucar.edu
2017-11-10 16:14:37 -0700 (Fri, 10 Nov 2017)
122
fix staggered lons so they don't return negative vals.
bump up the test number in MMC because things are going
further! 




Modified: DART/branches/recam/models/cam-fv/model_mod.f90
===================================================================
--- DART/branches/recam/models/cam-fv/model_mod.f90	2017-11-10 22:58:40 UTC (rev 12100)
+++ DART/branches/recam/models/cam-fv/model_mod.f90	2017-11-10 23:14:37 UTC (rev 12101)
@@ -309,6 +309,7 @@
 integer, intent(in) :: q
 type(location_type) :: get_location_from_index
 
+real(r8) :: slon_val
 
 select case (grid_stagger%qty_stagger(q))
   case (STAGGER_U)
@@ -317,7 +318,10 @@
                                           real(k,r8), VERTISLEVEL)
 
   case (STAGGER_V)
-   get_location_from_index = set_location(grid_data%slon%vals(i), &
+   slon_val = grid_data%slon%vals(i)
+   if (slon_val <   0) slon_val = slon_val + 360.0_r8
+   if (slon_val > 360) slon_val = slon_val - 360.0_r8
+   get_location_from_index = set_location(slon_val, &
                                           grid_data%lat%vals(j), &
                                           real(k,r8), VERTISLEVEL)
    

Modified: DART/branches/recam/models/cam-fv/work/input.nml
===================================================================
--- DART/branches/recam/models/cam-fv/work/input.nml	2017-11-10 22:58:40 UTC (rev 12100)
+++ DART/branches/recam/models/cam-fv/work/input.nml	2017-11-10 23:14:37 UTC (rev 12101)
@@ -545,8 +545,8 @@
    input_state_files     = 'caminput.nc'
    output_state_files    = 'mmc_output.nc'
    verbose               = .FALSE.
-   test1thru             = 4
-   loc_of_interest       = 320.0, 18.0, 5.0
+   test1thru             = 6
+   loc_of_interest       = 320.0, 18.0, 50000.0
    x_ind                 = 359435
    kind_of_interest      = 'QTY_U_WIND_COMPONENT'
    interp_test_lonrange  = 0.0, 359.0