! (C) Copyright 2000- ECMWF. ! (C) Copyright 2000- Meteo-France. ! ! This software is licensed under the terms of the Apache Licence Version 2.0 ! which can be obtained at http://www.apache.org/licenses/LICENSE-2.0. ! In applying this licence, ECMWF does not waive the privileges and immunities ! granted to it by virtue of its status as an intergovernmental organisation ! nor does it submit to any jurisdiction. ! ! Single-precision version of DIST_GRID. ! This subroutine no longer has a purpose and is deprecated. It will be removed in a future release. SUBROUTINE DIST_GRID_32(PGPG,KPROMA,KFDISTG,KFROM,KRESOL,PGP) USE ABORT_TRANS_MOD, ONLY: ABORT_TRANS USE PARKIND1, ONLY: JPIM ,JPRM IMPLICIT NONE REAL(KIND=JPRM) ,OPTIONAL, INTENT(IN) :: PGPG(:,:) INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(IN) :: KPROMA INTEGER(KIND=JPIM) , INTENT(IN) :: KFDISTG INTEGER(KIND=JPIM) , INTENT(IN) :: KFROM(:) INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(IN) :: KRESOL REAL(KIND=JPRM) , INTENT(OUT) :: PGP(:,:,:) ! ------------------------------------------------------------------ CALL ABORT_TRANS('DIST_GRID_32: This subroutine is deprecated.') ! ------------------------------------------------------------------ END SUBROUTINE DIST_GRID_32