libsim  Versione6.3.0

◆ 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
[in,out]thisgrid_transform object

Definizione alla linea 2759 del file grid_transform_class.F90.

2759  IF (innx /= this%innx .OR. inny /= this%inny) THEN
2760  CALL l4f_category_log(this%category,l4f_error,"horizontal interpolation")
2761  CALL l4f_category_log(this%category,l4f_error,"inconsistent input shape: "//&
2762  t2c(this%innx)//","//t2c(this%inny)//" /= "//&
2763  t2c(innx)//","//t2c(inny))
2764  CALL raise_error()
2765  RETURN
2766  ENDIF
2767 
2768  IF (outnx /= this%outnx .OR. outny /= this%outny) THEN
2769  CALL l4f_category_log(this%category,l4f_error,"horizontal interpolation")
2770  CALL l4f_category_log(this%category,l4f_error,"inconsistent output shape: "//&
2771  t2c(this%outnx)//","//t2c(this%outny)//" /= "//&
2772  t2c(outnx)//","//t2c(outny))
2773  CALL raise_error()
2774  RETURN
2775  ENDIF
2776 
2777  IF (innz /= outnz) THEN
2778  CALL l4f_category_log(this%category,l4f_error,"horizontal interpolation")
2779  CALL l4f_category_log(this%category,l4f_error,"inconsistent vert. sizes: "//&
2780  t2c(innz)//" /= "//t2c(outnz))
2781  CALL raise_error()
2782  RETURN
2783  ENDIF
2784 
2785 ENDIF
2786 
2787 #ifdef DEBUG
2788 call l4f_category_log(this%category,l4f_debug, &
2789  "start grid_transform_compute "//trim(this%trans%trans_type)//':'// &
2790  trim(this%trans%sub_type))
2791 #endif
2792 
2793 IF (this%trans%trans_type == 'zoom') THEN
2794 
2795  field_out(this%outinx:this%outfnx, &
2796  this%outiny:this%outfny,:) = &
2797  field_in(this%iniox:this%infox, &
Functions that return a trimmed CHARACTER representation of the input variable.

Generated with Doxygen.