Changeset 883 for codes/icosagcm/devel/src/output/write_field.f90
- Timestamp:
- 06/11/19 17:38:17 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/devel/src/output/write_field.f90
r880 r883 175 175 DO n=1, cells(ind)%ncell 176 176 ij=cells(ind)%ij(n) 177 PRINT *, 'write_2d :', ind, n, n_begin+n, ij178 177 field_val2d(n_begin+n) = field(ind)%rval2d(ij) 179 178 END DO
Note: See TracChangeset
for help on using the changeset viewer.