libsim Versione 7.2.4
|
◆ arrayof_gridinfo_remove()
Method for removing elements of the array at a desired position. If necessary, the array is reallocated to reduce space.
Definizione alla linea 511 del file gridinfo_class.F90. 516
517!chiudo il logger
518CALL l4f_category_delete(category)
519
520END SUBROUTINE gridinfo_export_to_file
521
522
531FUNCTION gridinfo_decode_data(this) RESULT(field)
532TYPE(gridinfo_def),INTENT(in) :: this
533REAL :: field(this%griddim%dim%nx, this%griddim%dim%ny) ! array of decoded values
534
535CALL grid_id_decode_data(this%gaid, field)
536
537END FUNCTION gridinfo_decode_data
538
539
547SUBROUTINE gridinfo_encode_data(this, field)
548TYPE(gridinfo_def),INTENT(inout) :: this
549REAL,intent(in) :: field(:,:)
550
551IF (SIZE(field,1) /= this%griddim%dim%nx &
552 .OR. SIZE(field,2) /= this%griddim%dim%ny) THEN
553 CALL l4f_category_log(this%category,l4f_error, &
554 'gridinfo_encode: field and gridinfo object non conformal, field: ' &
555 //trim(to_char(SIZE(field,1)))//'X'//trim(to_char(SIZE(field,2)))//', nx,ny:' &
556 //trim(to_char(this%griddim%dim%nx))//'X'//trim(to_char(this%griddim%dim%ny)))
557 CALL raise_error()
558 RETURN
559ENDIF
560
561CALL grid_id_encode_data(this%gaid, field)
562
563END SUBROUTINE gridinfo_encode_data
564
565
566! =========================================
567! grib_api driver specific code
|