libsim  Versione 7.1.9

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

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 
2995 ELSE ! 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))
3011  CALL raise_error()
3012  RETURN
3013  ENDIF
3014 
3015  IF (innz /= outnz) THEN
3016  CALL l4f_category_log(this%category,l4f_error,"horizontal interpolation")

Generated with Doxygen.