Changeset 922


Ignore:
Timestamp:
06/19/19 14:53:27 (5 years ago)
Author:
dubos
Message:

devel :fix bug in xios_read_field introduced by [880]

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/devel/src/output/xios_mod.F90

    r905 r922  
    264264   REAL(rstd) :: field_tmp(ncell_tot,nlev,nq) 
    265265   TYPE(t_cellset), POINTER :: cellset 
    266    INTEGER :: ind, n_beg, n_end, n, ij, sgn 
     266   INTEGER :: ind, n_beg, n, ij, sgn 
    267267   LOGICAL :: signed 
    268268 
    … …  
    279279   DO ind=1,ndomain 
    280280      cellset => cells(ind) 
    281       n_end = n_beg + cellset%ncell 
    282281      DO n=1, cellset%ncell 
    283282         ij = cellset%ij(n) 
    … …  
    292291         END SELECT 
    293292      END DO 
     293      n_beg = n_beg + cellset%ncell 
    294294   END DO 
    295295 END SUBROUTINE xios_read_field_hex 
Note: See TracChangeset for help on using the changeset viewer.