libsim  Versione 7.1.6

◆ 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 2961 del file grid_transform_class.F90.

2962  IF (outnz /= this%outnz) THEN
2963  CALL l4f_category_log(this%category,l4f_error,"vertical interpolation")
2964  CALL l4f_category_log(this%category,l4f_error,"inconsistent output shape: "//&
2965  t2c(this%outnz)//" /= "//t2c(outnz))
2966  CALL raise_error()
2967  RETURN
2968  ENDIF
2969 
2970  IF (innx /= outnx .OR. inny /= outny) THEN
2971  CALL l4f_category_log(this%category,l4f_error,"vertical interpolation")
2972  CALL l4f_category_log(this%category,l4f_error,"inconsistent hor. sizes: "//&
2973  t2c(innx)//","//t2c(inny)//" /= "//&
2974  t2c(outnx)//","//t2c(outny))
2975  CALL raise_error()
2976  RETURN
2977  ENDIF
2978 
2979 ELSE ! horizontal interpolation
2980 
2981  IF (innx /= this%innx .OR. inny /= this%inny) THEN
2982  CALL l4f_category_log(this%category,l4f_error,"horizontal interpolation")
2983  CALL l4f_category_log(this%category,l4f_error,"inconsistent input shape: "//&
2984  t2c(this%innx)//","//t2c(this%inny)//" /= "//&
2985  t2c(innx)//","//t2c(inny))
2986  CALL raise_error()
2987  RETURN
2988  ENDIF
2989 
2990  IF (outnx /= this%outnx .OR. outny /= this%outny) THEN
2991  CALL l4f_category_log(this%category,l4f_error,"horizontal interpolation")
2992  CALL l4f_category_log(this%category,l4f_error,"inconsistent output shape: "//&
2993  t2c(this%outnx)//","//t2c(this%outny)//" /= "//&
2994  t2c(outnx)//","//t2c(outny))
2995  CALL raise_error()
2996  RETURN
2997  ENDIF
2998 
2999  IF (innz /= outnz) THEN
3000  CALL l4f_category_log(this%category,l4f_error,"horizontal interpolation")

Generated with Doxygen.