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

2998 CALL l4f_category_log(this%category,l4f_error,"vertical interpolation")
2999 CALL l4f_category_log(this%category,l4f_error,"inconsistent input shape: "//&
3000 t2c(this%innz)//" /= "//t2c(innz))
3001 CALL raise_error()
3002 RETURN
3003 ENDIF
3004
3005 IF (outnz /= this%outnz) THEN
3006 CALL l4f_category_log(this%category,l4f_error,"vertical interpolation")
3007 CALL l4f_category_log(this%category,l4f_error,"inconsistent output shape: "//&
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
3022ELSE ! 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)//" /= "//&

Generated with Doxygen.