Add missing files for testing

src/programs/wrappers/dir_transad.F90

@@ -0,0 +1,70 @@
+! (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.
+!
+SUBROUTINE DIR_TRANSAD_ISP(PSPVOR,PSPDIV,PSPSCALAR,PSPSC3A,PSPSC3B,PSPSC2,&
+& KPROMA,KVSETUV,KVSETSC,KRESOL,KVSETSC3A,KVSETSC3B,KVSETSC2,&
+& PGP,PGPUV,PGP3A,PGP3B,PGP2,PRECBACKEND_FLAG)
+
+USE EC_PARKIND  ,ONLY : JPIM,JPRM 
+USE ECTRANS_MOD_SP, ONLY : DIR_TRANSAD !=> DIR_TRANS 
+
+REAL(KIND=JPRM)    ,OPTIONAL, INTENT(INOUT) :: PSPVOR(:,:)
+REAL(KIND=JPRM)    ,OPTIONAL, INTENT(INOUT) :: PSPDIV(:,:)
+REAL(KIND=JPRM)    ,OPTIONAL, INTENT(INOUT) :: PSPSCALAR(:,:)
+REAL(KIND=JPRM)    ,OPTIONAL, INTENT(INOUT) :: PSPSC3A(:,:,:)
+REAL(KIND=JPRM)    ,OPTIONAL, INTENT(INOUT) :: PSPSC3B(:,:,:)
+REAL(KIND=JPRM)    ,OPTIONAL, INTENT(INOUT) :: PSPSC2(:,:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(IN) :: KPROMA
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(IN) :: KVSETUV(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(IN) :: KVSETSC(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(IN) :: KVSETSC3A(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(IN) :: KVSETSC3B(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(IN) :: KVSETSC2(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(IN) :: KRESOL
+REAL(KIND=JPRM),OPTIONAL    ,INTENT(OUT) :: PGP(:,:,:)
+REAL(KIND=JPRM),OPTIONAL    ,INTENT(OUT) :: PGPUV(:,:,:,:)
+REAL(KIND=JPRM),OPTIONAL    ,INTENT(OUT) :: PGP3A(:,:,:,:)
+REAL(KIND=JPRM),OPTIONAL    ,INTENT(OUT) :: PGP3B(:,:,:,:)
+REAL(KIND=JPRM),OPTIONAL    ,INTENT(OUT) :: PGP2(:,:,:)
+REAL(KIND=JPRM),INTENT(IN)     :: PRECBACKEND_FLAG
+CALL DIR_TRANSAD(PSPVOR,PSPDIV,PSPSCALAR,PSPSC3A,PSPSC3B,PSPSC2,&
+& KPROMA,KVSETUV,KVSETSC,KRESOL,KVSETSC3A,KVSETSC3B,KVSETSC2,&
+& PGP,PGPUV,PGP3A,PGP3B,PGP2)
+END SUBROUTINE DIR_TRANSAD_ISP
+
+SUBROUTINE DIR_TRANSAD_IDP(PSPVOR,PSPDIV,PSPSCALAR,PSPSC3A,PSPSC3B,PSPSC2,&
+& KPROMA,KVSETUV,KVSETSC,KRESOL,KVSETSC3A,KVSETSC3B,KVSETSC2,&
+& PGP,PGPUV,PGP3A,PGP3B,PGP2,PRECBACKEND_FLAG)
+
+USE EC_PARKIND  ,ONLY : JPIM,JPRD 
+USE ECTRANS_MOD_DP, ONLY : DIR_TRANSAD
+
+REAL(KIND=JPRD)    ,OPTIONAL, INTENT(INOUT) :: PSPVOR(:,:)
+REAL(KIND=JPRD)    ,OPTIONAL, INTENT(INOUT) :: PSPDIV(:,:)
+REAL(KIND=JPRD)    ,OPTIONAL, INTENT(INOUT) :: PSPSCALAR(:,:)
+REAL(KIND=JPRD)    ,OPTIONAL, INTENT(INOUT) :: PSPSC3A(:,:,:)
+REAL(KIND=JPRD)    ,OPTIONAL, INTENT(INOUT) :: PSPSC3B(:,:,:)
+REAL(KIND=JPRD)    ,OPTIONAL, INTENT(INOUT) :: PSPSC2(:,:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(IN) :: KPROMA
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(IN) :: KVSETUV(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(IN) :: KVSETSC(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(IN) :: KVSETSC3A(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(IN) :: KVSETSC3B(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(IN) :: KVSETSC2(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(IN) :: KRESOL
+REAL(KIND=JPRD),OPTIONAL    ,INTENT(OUT) :: PGP(:,:,:)
+REAL(KIND=JPRD),OPTIONAL    ,INTENT(OUT) :: PGPUV(:,:,:,:)
+REAL(KIND=JPRD),OPTIONAL    ,INTENT(OUT) :: PGP3A(:,:,:,:)
+REAL(KIND=JPRD),OPTIONAL    ,INTENT(OUT) :: PGP3B(:,:,:,:)
+REAL(KIND=JPRD),OPTIONAL    ,INTENT(OUT) :: PGP2(:,:,:)
+REAL(KIND=JPRD),INTENT(IN)     :: PRECBACKEND_FLAG
+CALL DIR_TRANSAD(PSPVOR,PSPDIV,PSPSCALAR,PSPSC3A,PSPSC3B,PSPSC2,&
+& KPROMA,KVSETUV,KVSETSC,KRESOL,KVSETSC3A,KVSETSC3B,KVSETSC2,&
+& PGP,PGPUV,PGP3A,PGP3B,PGP2)
+END SUBROUTINE DIR_TRANSAD_IDP

src/programs/wrappers/dir_transad.inc

@@ -0,0 +1,68 @@
+! (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.
+!
+INTERFACE DIR_TRANSAD
+SUBROUTINE DIR_TRANSAD_ISP(PSPVOR,PSPDIV,PSPSCALAR,PSPSC3A,PSPSC3B,PSPSC2,&
+& KPROMA,KVSETUV,KVSETSC,KRESOL,KVSETSC3A,KVSETSC3B,KVSETSC2,&
+& PGP,PGPUV,PGP3A,PGP3B,PGP2,PRECBACKEND_FLAG)
+
+USE EC_PARKIND  ,ONLY : JPIM,JPRM 
+USE ECTRANS_MOD_SP, ONLY : DIR_TRANS !=> DIR_TRANS 
+
+REAL(KIND=JPRM)    ,OPTIONAL, INTENT(INOUT) :: PSPVOR(:,:)
+REAL(KIND=JPRM)    ,OPTIONAL, INTENT(INOUT) :: PSPDIV(:,:)
+REAL(KIND=JPRM)    ,OPTIONAL, INTENT(INOUT) :: PSPSCALAR(:,:)
+REAL(KIND=JPRM)    ,OPTIONAL, INTENT(INOUT) :: PSPSC3A(:,:,:)
+REAL(KIND=JPRM)    ,OPTIONAL, INTENT(INOUT) :: PSPSC3B(:,:,:)
+REAL(KIND=JPRM)    ,OPTIONAL, INTENT(INOUT) :: PSPSC2(:,:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(IN) :: KPROMA
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(IN) :: KVSETUV(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(IN) :: KVSETSC(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(IN) :: KVSETSC3A(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(IN) :: KVSETSC3B(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(IN) :: KVSETSC2(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(IN) :: KRESOL
+REAL(KIND=JPRM),OPTIONAL    ,INTENT(OUT) :: PGP(:,:,:)
+REAL(KIND=JPRM),OPTIONAL    ,INTENT(OUT) :: PGPUV(:,:,:,:)
+REAL(KIND=JPRM),OPTIONAL    ,INTENT(OUT) :: PGP3A(:,:,:,:)
+REAL(KIND=JPRM),OPTIONAL    ,INTENT(OUT) :: PGP3B(:,:,:,:)
+REAL(KIND=JPRM),OPTIONAL    ,INTENT(OUT) :: PGP2(:,:,:)
+REAL(KIND=JPRM),INTENT(IN)     :: PRECBACKEND_FLAG
+END SUBROUTINE DIR_TRANSAD_ISP
+
+SUBROUTINE DIR_TRANSAD_IDP(PSPVOR,PSPDIV,PSPSCALAR,PSPSC3A,PSPSC3B,PSPSC2,&
+& KPROMA,KVSETUV,KVSETSC,KRESOL,KVSETSC3A,KVSETSC3B,KVSETSC2,&
+& PGP,PGPUV,PGP3A,PGP3B,PGP2,PRECBACKEND_FLAG)
+
+USE EC_PARKIND  ,ONLY : JPIM,JPRD 
+USE ECTRANS_MOD_DP, ONLY : DIR_TRANSAD
+
+REAL(KIND=JPRD)    ,OPTIONAL, INTENT(INOUT) :: PSPVOR(:,:)
+REAL(KIND=JPRD)    ,OPTIONAL, INTENT(INOUT) :: PSPDIV(:,:)
+REAL(KIND=JPRD)    ,OPTIONAL, INTENT(INOUT) :: PSPSCALAR(:,:)
+REAL(KIND=JPRD)    ,OPTIONAL, INTENT(INOUT) :: PSPSC3A(:,:,:)
+REAL(KIND=JPRD)    ,OPTIONAL, INTENT(INOUT) :: PSPSC3B(:,:,:)
+REAL(KIND=JPRD)    ,OPTIONAL, INTENT(INOUT) :: PSPSC2(:,:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(IN) :: KPROMA
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(IN) :: KVSETUV(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(IN) :: KVSETSC(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(IN) :: KVSETSC3A(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(IN) :: KVSETSC3B(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(IN) :: KVSETSC2(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(IN) :: KRESOL
+
+REAL(KIND=JPRD),OPTIONAL    ,INTENT(OUT) :: PGP(:,:,:)
+REAL(KIND=JPRD),OPTIONAL    ,INTENT(OUT) :: PGPUV(:,:,:,:)
+REAL(KIND=JPRD),OPTIONAL    ,INTENT(OUT) :: PGP3A(:,:,:,:)
+REAL(KIND=JPRD),OPTIONAL    ,INTENT(OUT) :: PGP3B(:,:,:,:)
+REAL(KIND=JPRD),OPTIONAL    ,INTENT(OUT) :: PGP2(:,:,:)
+
+REAL(KIND=JPRD),INTENT(IN)     :: PRECBACKEND_FLAG
+END SUBROUTINE DIR_TRANSAD_IDP
+END INTERFACE DIR_TRANSAD

src/programs/wrappers/dist_grid.inc

@@ -0,0 +1,34 @@
+! (C) Copyright 2000- ECMWF.
+! (C) Copyright 2013- 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.
+!
+
+INTERFACE DIST_GRID
+SUBROUTINE DIST_GRID_SP(PGPG,KPROMA,KFDISTG,KFROM,KRESOL,PGP,KSORT)
+USE EC_PARKIND  ,ONLY : JPIM     ,JPRM
+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(:,:,:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(IN)  :: KSORT (:)
+END SUBROUTINE DIST_GRID_SP
+
+SUBROUTINE DIST_GRID_DP(PGPG,KPROMA,KFDISTG,KFROM,KRESOL,PGP,KSORT)
+USE EC_PARKIND  ,ONLY : JPIM     ,JPRD
+REAL(KIND=JPRD)    ,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=JPRD)             , INTENT(OUT) :: PGP(:,:,:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(IN)  :: KSORT (:)
+END SUBROUTINE DIST_GRID_DP
+
+END INTERFACE DIST_GRID

src/programs/wrappers/dist_spec.F90

@@ -0,0 +1,47 @@
+! (C) Copyright 2000- ECMWF.
+! (C) Copyright 2013- 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.
+!
+
+SUBROUTINE DIST_SPEC_SP(PSPECG,KFDISTG,KFROM,KVSET,KRESOL,PSPEC,&
+ & LDIM1_IS_FLD,KSMAX,KSORT,PRECBACKEND_FLAG)
+USE EC_PARKIND  ,ONLY : JPIM     ,JPRM
+USE ECTRANS_MOD_SP, ONLY : DIST_SPEC
+
+REAL(KIND=JPRM)    ,OPTIONAL, INTENT(IN)  :: PSPECG(:,:)
+INTEGER(KIND=JPIM)          , INTENT(IN)  :: KFDISTG
+INTEGER(KIND=JPIM)          , INTENT(IN)  :: KFROM(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(IN)  :: KVSET(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(IN)  :: KRESOL
+REAL(KIND=JPRM)    ,OPTIONAL, INTENT(OUT) :: PSPEC(:,:)
+LOGICAL            ,OPTIONAL, INTENT(IN)  :: LDIM1_IS_FLD
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(IN)  :: KSMAX
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(IN)  :: KSORT (:)
+REAL(KIND=JPRM)             , INTENT(IN)  :: PRECBACKEND_FLAG
+CALL DIST_SPEC(PSPECG,KFDISTG,KFROM,KVSET,KRESOL,PSPEC,&
+ & LDIM1_IS_FLD,KSMAX,KSORT) 
+END SUBROUTINE DIST_SPEC_SP
+
+SUBROUTINE DIST_SPEC_DP(PSPECG,KFDISTG,KFROM,KVSET,KRESOL,PSPEC,&
+ & LDIM1_IS_FLD,KSMAX,KSORT,PRECBACKEND_FLAG)
+USE EC_PARKIND  ,ONLY : JPIM     ,JPRD
+USE ECTRANS_MOD_DP, ONLY : DIST_SPEC
+
+REAL(KIND=JPRD)    ,OPTIONAL, INTENT(IN)  :: PSPECG(:,:)
+INTEGER(KIND=JPIM)          , INTENT(IN)  :: KFDISTG
+INTEGER(KIND=JPIM)          , INTENT(IN)  :: KFROM(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(IN)  :: KVSET(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(IN)  :: KRESOL
+REAL(KIND=JPRD)    ,OPTIONAL, INTENT(OUT) :: PSPEC(:,:)
+LOGICAL            ,OPTIONAL, INTENT(IN)  :: LDIM1_IS_FLD
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(IN)  :: KSMAX
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(IN)  :: KSORT (:)
+REAL(KIND=JPRD)             , INTENT(IN)  :: PRECBACKEND_FLAG
+CALL DIST_SPEC(PSPECG,KFDISTG,KFROM,KVSET,KRESOL,PSPEC,&
+ & LDIM1_IS_FLD,KSMAX,KSORT) 
+END SUBROUTINE DIST_SPEC_DP

src/programs/wrappers/dist_spec.inc

@@ -0,0 +1,45 @@
+! (C) Copyright 2000- ECMWF.
+! (C) Copyright 2013- 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.
+!
+
+INTERFACE DIST_SPEC
+SUBROUTINE DIST_SPEC_SP(PSPECG,KFDISTG,KFROM,KVSET,KRESOL,PSPEC,&
+ & LDIM1_IS_FLD,KSMAX,KSORT,PRECBACKEND_FLAG)
+USE EC_PARKIND  ,ONLY : JPIM     ,JPRM
+
+REAL(KIND=JPRM)    ,OPTIONAL, INTENT(IN)  :: PSPECG(:,:)
+INTEGER(KIND=JPIM)          , INTENT(IN)  :: KFDISTG
+INTEGER(KIND=JPIM)          , INTENT(IN)  :: KFROM(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(IN)  :: KVSET(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(IN)  :: KRESOL
+REAL(KIND=JPRM)    ,OPTIONAL, INTENT(OUT) :: PSPEC(:,:)
+LOGICAL            ,OPTIONAL, INTENT(IN)  :: LDIM1_IS_FLD
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(IN)  :: KSMAX
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(IN)  :: KSORT (:)
+REAL(KIND=JPRM)             , INTENT(IN)  :: PRECBACKEND_FLAG
+
+END SUBROUTINE DIST_SPEC_SP
+
+SUBROUTINE DIST_SPEC_DP(PSPECG,KFDISTG,KFROM,KVSET,KRESOL,PSPEC,&
+ & LDIM1_IS_FLD,KSMAX,KSORT,PRECBACKEND_FLAG)
+USE EC_PARKIND  ,ONLY : JPIM     ,JPRD
+
+REAL(KIND=JPRD)    ,OPTIONAL, INTENT(IN)  :: PSPECG(:,:)
+INTEGER(KIND=JPIM)          , INTENT(IN)  :: KFDISTG
+INTEGER(KIND=JPIM)          , INTENT(IN)  :: KFROM(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(IN)  :: KVSET(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(IN)  :: KRESOL
+REAL(KIND=JPRD)    ,OPTIONAL, INTENT(OUT) :: PSPEC(:,:)
+LOGICAL            ,OPTIONAL, INTENT(IN)  :: LDIM1_IS_FLD
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(IN)  :: KSMAX
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(IN)  :: KSORT (:)
+REAL(KIND=JPRD)             , INTENT(IN)  :: PRECBACKEND_FLAG
+
+END SUBROUTINE DIST_SPEC_DP
+END INTERFACE DIST_SPEC

src/programs/wrappers/gath_spec.F90

@@ -0,0 +1,45 @@
+! (C) Copyright 2000- ECMWF.
+! (C) Copyright 2013- 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.
+!
+
+SUBROUTINE GATH_SPEC_SP(PSPECG,KFGATHG,KTO,KVSET,KRESOL,PSPEC, &
+& LDIM1_IS_FLD,KSMAX,LDZA0IP,PRECBACKEND_FLAG)
+
+USE EC_PARKIND  ,ONLY : JPIM     ,JPRM
+USE ECTRANS_MOD_SP, ONLY : GATH_SPEC
+REAL(KIND=JPRM)    ,OPTIONAL, INTENT(OUT) :: PSPECG(:,:)
+INTEGER(KIND=JPIM)          , INTENT(IN)  :: KFGATHG
+INTEGER(KIND=JPIM)          , INTENT(IN)  :: KTO(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(IN)  :: KVSET(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(IN)  :: KRESOL
+REAL(KIND=JPRM)    ,OPTIONAL, INTENT(IN)  :: PSPEC(:,:)
+LOGICAL            ,OPTIONAL, INTENT(IN)  :: LDIM1_IS_FLD
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(IN)  :: KSMAX
+LOGICAL            ,OPTIONAL, INTENT(IN)  :: LDZA0IP
+REAL(KIND=JPRM)             , INTENT(IN)  :: PRECBACKEND_FLAG 
+CALL GATH_SPEC(PSPECG,KFGATHG,KTO,KVSET,KRESOL,PSPEC,LDIM1_IS_FLD,KSMAX,LDZA0IP)
+END SUBROUTINE GATH_SPEC_SP
+
+SUBROUTINE GATH_SPEC_DP(PSPECG,KFGATHG,KTO,KVSET,KRESOL,PSPEC, &
+& LDIM1_IS_FLD,KSMAX,LDZA0IP,PRECBACKEND_FLAG)
+
+USE EC_PARKIND  ,ONLY : JPIM     ,JPRD
+USE ECTRANS_MOD_DP, ONLY : GATH_SPEC
+REAL(KIND=JPRD)    ,OPTIONAL, INTENT(OUT) :: PSPECG(:,:)
+INTEGER(KIND=JPIM)          , INTENT(IN)  :: KFGATHG
+INTEGER(KIND=JPIM)          , INTENT(IN)  :: KTO(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(IN)  :: KVSET(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(IN)  :: KRESOL
+REAL(KIND=JPRD)    ,OPTIONAL, INTENT(IN)  :: PSPEC(:,:)
+LOGICAL            ,OPTIONAL, INTENT(IN)  :: LDIM1_IS_FLD
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(IN)  :: KSMAX
+LOGICAL            ,OPTIONAL, INTENT(IN)  :: LDZA0IP
+REAL(KIND=JPRD)             , INTENT(IN)  :: PRECBACKEND_FLAG 
+CALL GATH_SPEC(PSPECG,KFGATHG,KTO,KVSET,KRESOL,PSPEC,LDIM1_IS_FLD,KSMAX,LDZA0IP)
+END SUBROUTINE GATH_SPEC_DP

src/programs/wrappers/gath_spec.inc

@@ -0,0 +1,46 @@
+! (C) Copyright 2000- ECMWF.
+! (C) Copyright 2013- 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.
+!
+
+INTERFACE GATH_SPEC
+SUBROUTINE GATH_SPEC_SP(PSPECG,KFGATHG,KTO,KVSET,KRESOL,PSPEC, &
+& LDIM1_IS_FLD,KSMAX,LDZA0IP,PRECBACKEND_FLAG)
+
+USE EC_PARKIND  ,ONLY : JPIM     ,JPRM
+REAL(KIND=JPRM)    ,OPTIONAL, INTENT(OUT) :: PSPECG(:,:)
+INTEGER(KIND=JPIM)          , INTENT(IN)  :: KFGATHG
+INTEGER(KIND=JPIM)          , INTENT(IN)  :: KTO(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(IN)  :: KVSET(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(IN)  :: KRESOL
+REAL(KIND=JPRM)    ,OPTIONAL, INTENT(IN)  :: PSPEC(:,:)
+LOGICAL            ,OPTIONAL, INTENT(IN)  :: LDIM1_IS_FLD
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(IN)  :: KSMAX
+LOGICAL            ,OPTIONAL, INTENT(IN)  :: LDZA0IP
+REAL(KIND=JPRM)             , INTENT(IN)  :: PRECBACKEND_FLAG 
+
+END SUBROUTINE GATH_SPEC_SP
+
+SUBROUTINE GATH_SPEC_DP(PSPECG,KFGATHG,KTO,KVSET,KRESOL,PSPEC, &
+& LDIM1_IS_FLD,KSMAX,LDZA0IP,PRECBACKEND_FLAG)
+
+USE EC_PARKIND  ,ONLY : JPIM     ,JPRD
+REAL(KIND=JPRD)    ,OPTIONAL, INTENT(OUT) :: PSPECG(:,:)
+INTEGER(KIND=JPIM)          , INTENT(IN)  :: KFGATHG
+INTEGER(KIND=JPIM)          , INTENT(IN)  :: KTO(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(IN)  :: KVSET(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(IN)  :: KRESOL
+REAL(KIND=JPRD)    ,OPTIONAL, INTENT(IN)  :: PSPEC(:,:)
+LOGICAL            ,OPTIONAL, INTENT(IN)  :: LDIM1_IS_FLD
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(IN)  :: KSMAX
+LOGICAL            ,OPTIONAL, INTENT(IN)  :: LDZA0IP
+REAL(KIND=JPRD)             , INTENT(IN)  :: PRECBACKEND_FLAG 
+
+END SUBROUTINE GATH_SPEC_DP
+
+END INTERFACE GATH_SPEC