libsim Versione 7.2.0

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

2972 CALL l4f_category_log(this%category,l4f_error,"inconsistent input shape: "//&
2973 t2c(this%innz)//" /= "//t2c(innz))
2974 CALL raise_error()
2975 RETURN
2976 ENDIF
2977
2978 IF (outnz /= this%outnz) THEN
2979 CALL l4f_category_log(this%category,l4f_error,"vertical interpolation")
2980 CALL l4f_category_log(this%category,l4f_error,"inconsistent output shape: "//&
2981 t2c(this%outnz)//" /= "//t2c(outnz))
2982 CALL raise_error()
2983 RETURN
2984 ENDIF
2985
2986 IF (innx /= outnx .OR. inny /= outny) THEN
2987 CALL l4f_category_log(this%category,l4f_error,"vertical interpolation")
2988 CALL l4f_category_log(this%category,l4f_error,"inconsistent hor. sizes: "//&
2989 t2c(innx)//","//t2c(inny)//" /= "//&
2990 t2c(outnx)//","//t2c(outny))
2991 CALL raise_error()
2992 RETURN
2993 ENDIF
2994
2995ELSE ! horizontal interpolation
2996
2997 IF (innx /= this%innx .OR. inny /= this%inny) THEN
2998 CALL l4f_category_log(this%category,l4f_error,"horizontal interpolation")
2999 CALL l4f_category_log(this%category,l4f_error,"inconsistent input shape: "//&
3000 t2c(this%innx)//","//t2c(this%inny)//" /= "//&
3001 t2c(innx)//","//t2c(inny))
3002 CALL raise_error()
3003 RETURN
3004 ENDIF
3005
3006 IF (outnx /= this%outnx .OR. outny /= this%outny) THEN
3007 CALL l4f_category_log(this%category,l4f_error,"horizontal interpolation")
3008 CALL l4f_category_log(this%category,l4f_error,"inconsistent output shape: "//&
3009 t2c(this%outnx)//","//t2c(this%outny)//" /= "//&
3010 t2c(outnx)//","//t2c(outny))

Generated with Doxygen.