[Dart-dev] [4718] DART/trunk/models/wrf/WRF_DART_utilities/dart_to_wrf.f90: At some point during the most recent revisions i apparently changed

[nancy at ucar.edu]

Revision: 4718
Author:   nancy
Date:     2011-02-15 14:12:38 -0700 (Tue, 15 Feb 2011)
Log Message:
-----------
At some point during the most recent revisions i apparently changed
the max number of domains from 50 down to 10.  it's probably
academic, but i'm putting it back to the original value of 50.
No code changes.

Modified Paths:
--------------
    DART/trunk/models/wrf/WRF_DART_utilities/dart_to_wrf.f90

-------------- next part --------------
Modified: DART/trunk/models/wrf/WRF_DART_utilities/dart_to_wrf.f90
===================================================================
--- DART/trunk/models/wrf/WRF_DART_utilities/dart_to_wrf.f90	2011-02-15 21:09:51 UTC (rev 4717)
+++ DART/trunk/models/wrf/WRF_DART_utilities/dart_to_wrf.f90	2011-02-15 21:12:38 UTC (rev 4718)
@@ -65,8 +65,8 @@
 character(len=19) :: timestring
 character(len=2)  :: idom
 
-integer, parameter :: max_dom = 10    ! max nested wrf domains
-integer           :: ncid(max_dom), var_id, id, iunit, dart_unit
+integer, parameter :: max_dom = 50    ! max nested wrf domains
+integer            :: ncid(max_dom), var_id, id, iunit, dart_unit
 
 if (debug) print*, 'DART to WRF'