[Dart-dev] DART/branches Revision: 11086

[dart at ucar.edu]

hendric at ucar.edu
2017-02-09 16:18:42 -0700 (Thu, 09 Feb 2017)
120
Fixing dimension variable names to match the names in
nc_write_model_atts. This used when defining a domain
from spec.




Modified: DART/branches/rma_single_file/models/bgrid_solo/model_mod.f90
===================================================================
--- DART/branches/rma_single_file/models/bgrid_solo/model_mod.f90	2017-02-09 23:13:27 UTC (rev 11085)
+++ DART/branches/rma_single_file/models/bgrid_solo/model_mod.f90	2017-02-09 23:18:42 UTC (rev 11086)
@@ -2126,8 +2126,6 @@
 
 dom_id = add_domain(numrows, state_variables(1,1:numrows), state_kinds_list(:))
 
-call state_structure_info(dom_id)
-
 kub = Var_dt%kub
 klb = Var_dt%klb
 
@@ -2146,8 +2144,8 @@
       nVelJ   = vje - vjs + 1
       nlev    = Var_dt%kub - Var_dt%klb + 1
 
-      call add_dimension_to_variable(dom_id, i, "slon", nVelI)
-      call add_dimension_to_variable(dom_id, i, "slat", nVelJ)
+      call add_dimension_to_variable(dom_id, i, "VelI", nVelI)
+      call add_dimension_to_variable(dom_id, i, "VelJ", nVelJ)
       call add_dimension_to_variable(dom_id, i, "lev", nlev)
 
    else if (thiskind == KIND_TEMPERATURE .or. thiskind == KIND_PRESSURE) then
@@ -2157,8 +2155,8 @@
       nTmpJ   = tje - tjs + 1
       nlev    = Var_dt%kub - Var_dt%klb + 1
 
-      call add_dimension_to_variable(dom_id, i, "lon", nTmpI)
-      call add_dimension_to_variable(dom_id, i, "lat", nTmpJ)
+      call add_dimension_to_variable(dom_id, i, "TmpI", nTmpI)
+      call add_dimension_to_variable(dom_id, i, "TmpJ", nTmpJ)
       call add_dimension_to_variable(dom_id, i, "lev", nlev)
 
    else if (thiskind == KIND_SURFACE_PRESSURE) then
@@ -2168,8 +2166,8 @@
       nTmpJ   = tje - tjs + 1
       nlev    = 1
 
-      call add_dimension_to_variable(dom_id, i, "lon", nTmpI)
-      call add_dimension_to_variable(dom_id, i, "lat", nTmpJ)
+      call add_dimension_to_variable(dom_id, i, "TmpI", nTmpI)
+      call add_dimension_to_variable(dom_id, i, "TmpJ", nTmpJ)
 
    else ! is tracer, Q, CO, etc
       tis = Dynam%Hgrid%Tmp%is; tie = Dynam%Hgrid%Tmp%ie
@@ -2179,8 +2177,8 @@
       !ntracer = Var_dt%ntrace 
       nlev    = Var_dt%kub - Var_dt%klb + 1
 
-      call add_dimension_to_variable(dom_id, i, "lon", nTmpI)
-      call add_dimension_to_variable(dom_id, i, "lat", nTmpJ)
+      call add_dimension_to_variable(dom_id, i, "TmpI", nTmpI)
+      call add_dimension_to_variable(dom_id, i, "TmpJ", nTmpJ)
       call add_dimension_to_variable(dom_id, i, "lev", nlev)
 
    endif
@@ -2190,6 +2188,8 @@
 
 call finished_adding_domain(dom_id)
 
+call state_structure_info(dom_id)
+
 !> @TODO we will have to fill in the lon, lat, and lev arrays
 !> with actual grid values somewhere so they get written to
 !> the restart file

Added: DART/branches/rma_single_file/models/bgrid_solo/work/filter_input_list.txt
===================================================================
--- DART/branches/rma_single_file/models/bgrid_solo/work/filter_input_list.txt	                        (rev 0)
+++ DART/branches/rma_single_file/models/bgrid_solo/work/filter_input_list.txt	2017-02-09 23:18:42 UTC (rev 11086)
@@ -0,0 +1 @@
+filter_input.nc

Added: DART/branches/rma_single_file/models/bgrid_solo/work/filter_output_list.txt
===================================================================
--- DART/branches/rma_single_file/models/bgrid_solo/work/filter_output_list.txt	                        (rev 0)
+++ DART/branches/rma_single_file/models/bgrid_solo/work/filter_output_list.txt	2017-02-09 23:18:42 UTC (rev 11086)
@@ -0,0 +1 @@
+filter_output.nc