libsim Versione 7.2.6
|
◆ grid_transform_delete()
Destructor of grid_tranform object. It releases any memory and data associated to grid_transform object this, the logger category will be deleted too.
Definizione alla linea 3014 del file grid_transform_class.F90. 3015 CALL l4f_category_log(this%category,l4f_error,"vertical interpolation")
3016 CALL l4f_category_log(this%category,l4f_error,"inconsistent input shape: "//&
3017 t2c(this%innz)//" /= "//t2c(innz))
3018 CALL raise_error()
3019 RETURN
3020 ENDIF
3021
3022 IF (outnz /= this%outnz) THEN
3023 CALL l4f_category_log(this%category,l4f_error,"vertical interpolation")
3024 CALL l4f_category_log(this%category,l4f_error,"inconsistent output shape: "//&
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
3039ELSE ! 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)//" /= "//&
|