[Dart-dev] DART/branches Revision: 11948

[dart at ucar.edu]

nancy at ucar.edu
2017-09-21 16:13:41 -0600 (Thu, 21 Sep 2017)
164
increase the integer format width for lengths of dimensions.
the mpas model has very large numbers of cells, edges, etc
that didn't fit into the previous formats.




Modified: DART/branches/rma_trunk/assimilation_code/modules/io/state_structure_mod.f90
===================================================================
--- DART/branches/rma_trunk/assimilation_code/modules/io/state_structure_mod.f90	2017-09-21 22:12:47 UTC (rev 11947)
+++ DART/branches/rma_trunk/assimilation_code/modules/io/state_structure_mod.f90	2017-09-21 22:13:41 UTC (rev 11948)
@@ -1591,7 +1591,7 @@
    array_lengths(1:num_dims) = get_dim_lengths(dom_id,ivar)
    do jdim = 1, num_dims
        dim_name = get_dim_name(dom_id, ivar, jdim)
-       write(*,'("       state   dim_id[",I2,"] ",A15,", length = ",I6)') jdim, &
+       write(*,'("       state   dim_id[",I2,"] ",A15,", length = ",I8)') jdim, &
                                                                           trim(dim_name), &
                                                                           array_lengths(jdim)
    enddo
@@ -1603,7 +1603,7 @@
    array_lengths(1:num_dims) = get_io_dim_lengths(dom_id,ivar)
    do jdim = 1, num_dims
        dim_name = get_dim_name(dom_id, ivar, jdim)
-       write(*,'("       netCDF  dim_id[",I2,"] ",A15,", length = ",I6)') array_ids(jdim), &
+       write(*,'("       netCDF  dim_id[",I2,"] ",A15,", length = ",I8)') array_ids(jdim), &
                                                                           trim(dim_name), &
                                                                           array_lengths(jdim)
    enddo
@@ -1612,7 +1612,7 @@
    write(*,'('' io_unique_numdims     : '',I2)') num_dims
    do jdim = 1, num_dims
       write(*,'('' io_unique_dimname     : '',5A)' ) trim(get_io_unique_dim_name(dom_id,jdim))
-      write(*,'('' io_unique_dim_length  : '',I5)' ) get_io_unique_dim_length(dom_id,jdim)
+      write(*,'('' io_unique_dim_length  : '',I8)' ) get_io_unique_dim_length(dom_id,jdim)
    enddo
 
    if ( state%domain(dom_id)%info_file /= 'NULL' ) then