libsim  Versione7.2.6

◆ grid_transform_delete()

subroutine grid_transform_class::grid_transform_delete ( type(grid_transform), intent(inout)  this)
private

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

3025  t2c(this%outnz)//" /= "//t2c(outnz))
3026  CALL raise_error()
3027  RETURN
3028  ENDIF
3029 
3030  IF (innx /= outnx .OR. inny /= outny) THEN
3031  CALL l4f_category_log(this%category,l4f_error,"vertical interpolation")
3032  CALL l4f_category_log(this%category,l4f_error,"inconsistent hor. sizes: "//&
3033  t2c(innx)//","//t2c(inny)//" /= "//&
3034  t2c(outnx)//","//t2c(outny))
3035  CALL raise_error()
3036  RETURN
3037  ENDIF
3038 
3039 ELSE ! horizontal interpolation
3040 
3041  IF (innx /= this%innx .OR. inny /= this%inny) THEN
3042  CALL l4f_category_log(this%category,l4f_error,"horizontal interpolation")
3043  CALL l4f_category_log(this%category,l4f_error,"inconsistent input shape: "//&
3044  t2c(this%innx)//","//t2c(this%inny)//" /= "//&
3045  t2c(innx)//","//t2c(inny))
3046  CALL raise_error()
3047  RETURN
3048  ENDIF
3049 
3050  IF (outnx /= this%outnx .OR. outny /= this%outny) THEN
3051  CALL l4f_category_log(this%category,l4f_error,"horizontal interpolation")
3052  CALL l4f_category_log(this%category,l4f_error,"inconsistent output shape: "//&
3053  t2c(this%outnx)//","//t2c(this%outny)//" /= "//&
3054  t2c(outnx)//","//t2c(outny))
3055  CALL raise_error()
3056  RETURN
3057  ENDIF
3058 
3059  IF (innz /= outnz) THEN
3060  CALL l4f_category_log(this%category,l4f_error,"horizontal interpolation")
3061  CALL l4f_category_log(this%category,l4f_error,"inconsistent vert. sizes: "//&
3062  t2c(innz)//" /= "//t2c(outnz))
3063  CALL raise_error()

Generated with Doxygen.