IFS-1849 Cosmetic fixes to ectrans

ecmwf-ifs · Nov 15, 2021 · d80c5f8 · d80c5f8
1 parent 426ebb4
commit d80c5f8
Show file tree

Hide file tree

Showing 5 changed files with 17 additions and 8 deletions.
diff --git a/README.md b/README.md
@@ -15,8 +15,8 @@ License
 Trans is distributed under the Apache License Version 2.0.
 See `LICENSE` file for details.
 
-Installing Trans 
-===============
+Installing ecTrans
+==================
 
 Supported Platforms
 -------------------
@@ -38,8 +38,8 @@ Requirements
 Further optional recommended dependencies:
 - FFTW (http://www.fftw.org)
 
-Building Trans
---------------
+Building ecTrans
+----------------
 
 Building and installing Trans happens via CMake, which provides automatic detection for
 third-party libraries in standard locations and helps cross-plaform portability.

diff --git a/src/trans/external/dist_grid.F90 b/src/trans/external/dist_grid.F90
@@ -77,7 +77,7 @@ SUBROUTINE DIST_GRID(PGPG,KPROMA,KFDISTG,KFROM,KRESOL,PGP,KSORT)
 !ifndef INTERFACE
 
 INTEGER(KIND=JPIM) :: IFSEND,J,IUBOUND(3),IPROMA,IGPBLKS
-REAL(KIND=JPHOOK)  :: ZHOOK_HANDLE
+REAL(KIND=JPHOOK) :: ZHOOK_HANDLE
 
 !     ------------------------------------------------------------------
 

diff --git a/src/trans/external/get_current.F90 b/src/trans/external/get_current.F90
@@ -44,8 +44,8 @@ SUBROUTINE GET_CURRENT(KRESOL,LDLAM)
 
 !ifndef INTERFACE
 
-USE TPM_GEN
-USE TPM_GEOMETRY
+USE TPM_GEN,      ONLY : NCUR_RESOL
+USE TPM_GEOMETRY, ONLY : G
 
 !endif INTERFACE
 

diff --git a/src/trans/include/ectrans/get_current.h b/src/trans/include/ectrans/get_current.h
@@ -1,4 +1,4 @@
-! (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.

diff --git a/src/trans/internal/gpnorm_trans_ctl_mod.F90 b/src/trans/internal/gpnorm_trans_ctl_mod.F90
@@ -1,3 +1,12 @@
+! (C) Copyright 2008- ECMWF.
+! 
+! 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.
+!
+
 MODULE GPNORM_TRANS_CTL_MOD
 CONTAINS
 SUBROUTINE GPNORM_TRANS_CTL(PGP,KFIELDS,KPROMA,PAVE,PMIN,PMAX,LDAVE_ONLY,PW)