libsim  Versione 7.2.4

◆ grid_transform_delete()

subroutine grid_transform_delete ( type(grid_transform), intent(inout)  this)

Destructor of grid_tranform object.

It releases any memory and data associated to grid_transform object this, the logger category will be deleted too.

Parametri
[in,out]thisgrid_transform object

Definizione alla linea 3007 del file grid_transform_class.F90.

3008  t2c(this%outnz)//" /= "//t2c(outnz))
3009  CALL raise_error()
3010  RETURN
3011  ENDIF
3012 
3013  IF (innx /= outnx .OR. inny /= outny) THEN
3014  CALL l4f_category_log(this%category,l4f_error,"vertical interpolation")
3015  CALL l4f_category_log(this%category,l4f_error,"inconsistent hor. sizes: "//&
3016  t2c(innx)//","//t2c(inny)//" /= "//&
3017  t2c(outnx)//","//t2c(outny))
3018  CALL raise_error()
3019  RETURN
3020  ENDIF
3021 
3022 ELSE ! horizontal interpolation
3023 
3024  IF (innx /= this%innx .OR. inny /= this%inny) THEN
3025  CALL l4f_category_log(this%category,l4f_error,"horizontal interpolation")
3026  CALL l4f_category_log(this%category,l4f_error,"inconsistent input shape: "//&
3027  t2c(this%innx)//","//t2c(this%inny)//" /= "//&
3028  t2c(innx)//","//t2c(inny))
3029  CALL raise_error()
3030  RETURN
3031  ENDIF
3032 
3033  IF (outnx /= this%outnx .OR. outny /= this%outny) THEN
3034  CALL l4f_category_log(this%category,l4f_error,"horizontal interpolation")
3035  CALL l4f_category_log(this%category,l4f_error,"inconsistent output shape: "//&
3036  t2c(this%outnx)//","//t2c(this%outny)//" /= "//&
3037  t2c(outnx)//","//t2c(outny))
3038  CALL raise_error()
3039  RETURN
3040  ENDIF
3041 
3042  IF (innz /= outnz) THEN
3043  CALL l4f_category_log(this%category,l4f_error,"horizontal interpolation")
3044  CALL l4f_category_log(this%category,l4f_error,"inconsistent vert. sizes: "//&
3045  t2c(innz)//" /= "//t2c(outnz))
3046  CALL raise_error()

Generated with Doxygen.