◆ arrayof_gridinfo_append()

integer function arrayof_gridinfo_append	(	type(arrayof_gridinfo)	this,
		type(gridinfo_def), intent(in)	content
	)

Quick method to append an element to the array.

The return value is the position at which the element has been appended.

Parametri

	this	array object to extend
[in]	content	object of TYPE TYPE(gridinfo_def) to append

Definizione alla linea 504 del file gridinfo_class.F90.

 
 IF (c_e(valid_grid_id)) THEN ! a valid grid_id has been found
 ! open file
   output_file = grid_file_id_new(filename, 'w', from_grid_id=valid_grid_id)
   IF (c_e(output_file)) THEN
 !$OMP PARALLEL DEFAULT(SHARED)
 !$OMP MASTER
     DO i = 1, this%arraysize
 !$OMP TASK FIRSTPRIVATE(i)