Bugfix in pre_suleg: missing implicit none, use of tpm_gen brought back

ecmwf-ifs · Jan 24, 2024 · 2fdf99f · 2fdf99f
1 parent 4e91853
commit 2fdf99f
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/trans/internal/pre_suleg_mod.F90 b/src/trans/internal/pre_suleg_mod.F90
@@ -9,13 +9,14 @@
 !
 
 MODULE PRE_SULEG_MOD
+IMPLICIT NONE
 CONTAINS
 SUBROUTINE PRE_SULEG
 USE PARKIND1  ,ONLY : JPRD, JPIM
 USE PARKIND2  ,ONLY : JPRH
-!USE TPM_GEN
+USE TPM_GEN   ,ONLY : NPRINTLEV,NOUT
 USE TPM_DIM   ,ONLY : R
-!USE TPM_CONSTANTS
+USE TPM_CONSTANTS ,ONLY: RA
 USE TPM_DISTR ,ONLY : D
 USE TPM_FIELDS,ONLY : F