[Dart-dev] DART/releases Revision: 11694

[dart at ucar.edu]

nancy at ucar.edu
2017-06-02 15:39:25 -0600 (Fri, 02 Jun 2017)
927
pushing rma_trunk changes to the Manhattan release.
changes include:

- bring the DART tutorial pdf slides up to date with the current release.
- include new GUIs with inflation options in DART_LAB
- added the lorenz_96_2scale model
- add useful attributes to the variables in the diagnostic files
- updates and minor bug fixes to the matlab diagnostic scripts
- updates to the default input.nmls for models
- updates to the cam-fv shell scripts to work with the cesm 2.0 framework
- updates to the cam-fv model_mod for support of cam-chem variables
- major bug fix in the simple_advection model_mod
- bug fix in the radar forward operator if the fall velocity is not in the state vector
- bug fix in the wrf model_mod for fields which have a vertical stagger
- fix to the makefiles for the GSI2DART observation converter
- added additional netcdf and location utility routines
- various fixes to documentation and test code





Index: DART/releases/Manhattan
===================================================================
--- DART/releases/Manhattan	2017-06-02 21:10:45 UTC (rev 11693)
+++ DART/releases/Manhattan	2017-06-02 21:39:25 UTC (rev 11694)

Property changes on: DART/releases/Manhattan
___________________________________________________________________
Modified: svn:mergeinfo
## -30,7 +30,7 ##
 /DART/branches/rma_sprint:8101-8172
 /DART/branches/rma_state_structure_test_dir:9478-9682
 /DART/branches/rma_state_structure_unit_test:9697-10274
-/DART/branches/rma_trunk:11355-11625
+/DART/branches/rma_trunk:11355-11693
 /DART/branches/rma_trunk_clamping:8792-8807
 /DART/branches/rma_trunk_filename:8017-8163
 /DART/branches/rma_trunk_get_state_fun:8574-8602
## -42,5 +42,6 ##
 /DART/branches/rma_trunk_read_transpose:9214-9256
 /DART/branches/rma_trunk_vert_loc:8538-8543
 /DART/branches/rma_types_kinds:11208-11242
+/DART/branches/rma_updates_nancy:11621-11682
 /DART/branches/trunk_with_cam_style:9473-9540
 /DART/trunk:6306-9556
\ No newline at end of property
Modified: DART/releases/Manhattan/assimilation_code/location/utilities/location_io_mod.f90
===================================================================
--- DART/releases/Manhattan/assimilation_code/location/utilities/location_io_mod.f90	2017-06-02 21:10:45 UTC (rev 11693)
+++ DART/releases/Manhattan/assimilation_code/location/utilities/location_io_mod.f90	2017-06-02 21:39:25 UTC (rev 11694)
@@ -34,7 +34,8 @@
 private
 
 public :: nc_write_location_atts, nc_get_location_varids, &
-          nc_write_location, nc_write_location_vert
+          nc_write_location, nc_write_location_vert,      &
+          nc_add_location_atts
 
 ! version controlled file description for error handling, do not edit
 character(len=256), parameter :: source   = &
@@ -76,7 +77,7 @@
 integer :: rc
 character(len=32) :: context = 'nc_write_location_atts'
 
-! get an id for the locations dimension:  
+! get an id for the location dimension:  
 !  if the user passes us in a dimension id, 
 !     assume it is already created and use it.
 !  if they pass in a valid length, create a 'location' dimension.
@@ -113,6 +114,28 @@
    call nc_check(rc, context, 'def_var4:location', fname)
 endif
 
+call nc_add_location_atts(ncFileID, 'location', fname)
+
+end subroutine nc_write_location_atts
+
+!----------------------------------------------------------------------------
+!> Add location-related attributes to the given variable.
+!> (assumes that this variable will contain location info)
+
+subroutine nc_add_location_atts(ncFileID, varname, fname) 
+ 
+integer,                    intent(in) :: ncFileID    ! handle to the netcdf file
+character(len=*),           intent(in) :: varname     ! name of location variable
+character(len=*), optional, intent(in) :: fname       ! file name (for error printing purposes)
+
+integer :: VarID
+integer :: rc
+character(len=32) :: context = 'nc_add_location_atts'
+
+! find the id of the given variable name
+rc = nf90_inq_varid(ncFileID, varname, varid=VarID)
+call nc_check(rc, context, 'inq_varid:'//trim(varname), fname)
+
 rc = nf90_put_att(ncFileID, VarID, 'description', 'location coordinates')
 call nc_check(rc, context, 'put_att:description', fname)
 
@@ -132,10 +155,10 @@
 ! create a variable to store the vert choice
 
 if (has_vertical_choice()) then
-   call nc_write_location_vert(ncFileID, LocDimID, fname)
+   call nc_write_location_vert(ncFileID, VarID, fname)
 endif
 
-end subroutine nc_write_location_atts
+end subroutine nc_add_location_atts
 
 !----------------------------------------------------------------------------
 !> Define the ancillary vertical array and attributes

Modified: DART/releases/Manhattan/assimilation_code/modules/assimilation/filter_mod.dopplerfold.f90
===================================================================
--- DART/releases/Manhattan/assimilation_code/modules/assimilation/filter_mod.dopplerfold.f90	2017-06-02 21:10:45 UTC (rev 11693)
+++ DART/releases/Manhattan/assimilation_code/modules/assimilation/filter_mod.dopplerfold.f90	2017-06-02 21:39:25 UTC (rev 11694)
@@ -2246,38 +2246,38 @@
 
 if ( do_prior_inflate ) then
    if ( inf_initial_from_restart(1)    ) &
-      call set_io_copy_flag(file_info, STAGE_COPIES(PRIORINF_MEAN), READ_COPY, has_units=.false.)
+      call set_io_copy_flag(file_info, STAGE_COPIES(PRIORINF_MEAN), READ_COPY, inherit_units=.false.)