|
◆ 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
-
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))
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))
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))
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))
3015 IF (innz /= outnz) THEN
3016 CALL l4f_category_log(this%category,l4f_error, "horizontal interpolation")
|