[Dart-dev] [3835] DART/trunk/models/wrf/model_mod.f90: At Ryan's request, add a ' domain_size' variable to the per-domain info,

[nancy at ucar.edu]

An HTML attachment was scrubbed...
URL: http://mailman.ucar.edu/pipermail/dart-dev/attachments/20090430/e714ab1e/attachment.html 
-------------- next part --------------
Modified: DART/trunk/models/wrf/model_mod.f90
===================================================================
--- DART/trunk/models/wrf/model_mod.f90	2009-04-30 23:07:16 UTC (rev 3834)
+++ DART/trunk/models/wrf/model_mod.f90	2009-04-30 23:12:03 UTC (rev 3835)
@@ -222,6 +222,7 @@
    logical  :: scm
 
    integer  :: n_moist
+   integer  :: domain_size
    logical  :: surf_obs
    logical  :: soil_data
    integer  :: vert_coord
@@ -528,6 +529,11 @@
       if ( debug ) write(*,*) 'assigned start, stop ',wrf%dom(id)%var_index(:,ind)
 
    enddo ! loop through all viable state variables on this domain
+   if ( id == 1 ) then
+     wrf%dom(id)%domain_size = dart_index - 1
+   else
+     wrf%dom(id)%domain_size = dart_index - 1 - wrf%dom(id-1)%domain_size
+   end if
 
 enddo WRFDomains