[Dart-dev] DART/branches Revision: 12267

[dart at ucar.edu]

thoar at ucar.edu
2018-01-03 15:23:59 -0700 (Wed, 03 Jan 2018)
50
Bringing coamps branch up-to-date WRT rma_trunk.




Index: DART/branches/coamps
===================================================================
--- DART/branches/coamps	2018-01-03 22:22:55 UTC (rev 12266)
+++ DART/branches/coamps	2018-01-03 22:23:59 UTC (rev 12267)

Property changes on: DART/branches/coamps
___________________________________________________________________
Modified: svn:mergeinfo
## -35,7 +35,7 ##
 /DART/branches/rma_sprint:8095-8166
 /DART/branches/rma_state_structure_test_dir:9472-9676
 /DART/branches/rma_state_structure_unit_test:9691-10268
-/DART/branches/rma_trunk:11712-12243
+/DART/branches/rma_trunk:11712-12266
 /DART/branches/rma_trunk_clamping:8786-8801
 /DART/branches/rma_trunk_filename:8011-8157
 /DART/branches/rma_trunk_get_state_fun:8568-8596
Modified: DART/branches/coamps/CHANGELOG
===================================================================
--- DART/branches/coamps/CHANGELOG	2018-01-03 22:22:55 UTC (rev 12266)
+++ DART/branches/coamps/CHANGELOG	2018-01-03 22:23:59 UTC (rev 12267)
@@ -616,6 +616,10 @@
 + MMM DD YYYY :: summary of next changes                    $Revision$
 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
+- Fixed an error in the mpas_atm model_mod for a debug print that failed with
+large ensemble sizes.
+
+
 # <next few lines under version control, do not edit>
 # $URL$
 # $Revision$

Modified: DART/branches/coamps/models/mpas_atm/model_mod.f90
===================================================================
--- DART/branches/coamps/models/mpas_atm/model_mod.f90	2018-01-03 22:22:55 UTC (rev 12266)
+++ DART/branches/coamps/models/mpas_atm/model_mod.f90	2018-01-03 22:23:59 UTC (rev 12267)
@@ -5553,7 +5553,7 @@
 call find_vert_level(state_handle, ens_size, loc, nc, c, .true., lower, upper, fract, ier)
 
 if (debug > 11) then
-   write(string3,*) 'ier = ',ier !(1), ' triangle = ',c(1:nc), ' vert_index = ',lower(1:nc, 1)+fract(1:nc, 1)
+   write(string3,*) 'ier = ',ier (1), ' triangle = ',c(1:nc), ' vert_index = ',lower(1:nc, 1)+fract(1:nc, 1)
    call error_handler(E_MSG, 'find_vert_indices', string3, source, revision, revdate)
 endif