libsim Versione 7.2.0
|
◆ arrayof_gridinfo_append()
Quick method to append an element to the array. The return value is the position at which the element has been appended.
Definizione alla linea 493 del file gridinfo_class.F90. 494
495IF (c_e(valid_grid_id)) THEN ! a valid grid_id has been found
496! open file
497 output_file = grid_file_id_new(filename, 'w', from_grid_id=valid_grid_id)
498 IF (c_e(output_file)) THEN
499 DO i = 1, this%arraysize
500 CALL export(this%array(i)) ! export information to gaid
501 CALL export(this%array(i)%gaid, output_file) ! export gaid to file
502 ENDDO
|