Changeset 922 for codes/icosagcm/devel/src/output/xios_mod.F90
- Timestamp:
- 06/19/19 14:53:27 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/devel/src/output/xios_mod.F90
r905 r922 264 264 REAL(rstd) :: field_tmp(ncell_tot,nlev,nq) 265 265 TYPE(t_cellset), POINTER :: cellset 266 INTEGER :: ind, n_beg, n _end, n, ij, sgn266 INTEGER :: ind, n_beg, n, ij, sgn 267 267 LOGICAL :: signed 268 268 … … 279 279 DO ind=1,ndomain 280 280 cellset => cells(ind) 281 n_end = n_beg + cellset%ncell282 281 DO n=1, cellset%ncell 283 282 ij = cellset%ij(n) … … 292 291 END SELECT 293 292 END DO 293 n_beg = n_beg + cellset%ncell 294 294 END DO 295 295 END SUBROUTINE xios_read_field_hex
Note: See TracChangeset
for help on using the changeset viewer.