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))
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))
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))
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))
2793 IF (this%trans%trans_type ==
'zoom')
THEN 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.