[Dart-dev] DART/branches Revision: 12255

dart at ucar.edu dart at ucar.edu
Wed Jan 3 11:01:22 MST 2018


nancy at ucar.edu
2018-01-03 11:01:22 -0700 (Wed, 03 Jan 2018)
453
print only the first error code if debugging > 11.
the code as committed was printing the error return for
all ensemble members - which worked for small ensemble
sizes but caused an error by overrunning the string length
for large ensemble sizes.  soyoung is going to take a pass
at removing some of the very low level print statements
and consolidating others, to make the debugs more useful
so i'm not going to do more than this quick fix right now.




Modified: DART/branches/rma_trunk/models/mpas_atm/model_mod.f90
===================================================================
--- DART/branches/rma_trunk/models/mpas_atm/model_mod.f90	2018-01-02 16:39:23 UTC (rev 12254)
+++ DART/branches/rma_trunk/models/mpas_atm/model_mod.f90	2018-01-03 18:01:22 UTC (rev 12255)
@@ -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
 


More information about the Dart-dev mailing list