Add missing JPRM imports

ecmwf-ifs · Nov 17, 2023 · dfa0e8d · dfa0e8d
1 parent 72a7d17
commit dfa0e8d
Show file tree

Hide file tree

Showing 5 changed files with 5 additions and 5 deletions.
diff --git a/src/trans/algor/butterfly_alg_mod.F90 b/src/trans/algor/butterfly_alg_mod.F90
@@ -9,7 +9,7 @@
 !
 
 MODULE BUTTERFLY_ALG_MOD 
-USE PARKIND1, ONLY : JPRD, JPIM, JPRB, JPIB
+USE PARKIND1, ONLY : JPRD, JPRM, JPIM, JPRB, JPIB
 USE INTERPOL_DECOMP_MOD
 USE SHAREDMEM_MOD
 

diff --git a/src/trans/internal/ledir_mod.F90 b/src/trans/internal/ledir_mod.F90
@@ -55,7 +55,7 @@ SUBROUTINE LEDIR(KM,KMLOC,KFC,KIFC,KSL,KDGLU,KLED2,PAIA,PSIA,POA1,PW)
 !      P. Dueben : Dec 2019 Improvements for mass conservation in single precision
 !     ------------------------------------------------------------------
 
-USE PARKIND1  ,ONLY : JPRD, JPIM, JPRB
+USE PARKIND1  ,ONLY : JPRD, JPRM, JPIM, JPRB
 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK, JPHOOK
 
 USE TPM_DIM         ,ONLY : R

diff --git a/src/trans/internal/ledirad_mod.F90 b/src/trans/internal/ledirad_mod.F90
@@ -59,7 +59,7 @@ SUBROUTINE LEDIRAD(KM,KMLOC,KFC,KIFC,KDGLU,KLED2,PAIA,PSIA,POA1)
 !        Modified ! 16/10/12 J.Hague : DR_HOOK round calls to DGEMM:
 !     ------------------------------------------------------------------
 
-USE PARKIND1  ,ONLY : JPIM     ,JPRB     ,JPRD
+USE PARKIND1  ,ONLY : JPIM     ,JPRB     ,JPRD, JPRM
 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK, JPHOOK
 
 USE TPM_DIM         ,ONLY : R

diff --git a/src/trans/internal/leinv_mod.F90 b/src/trans/internal/leinv_mod.F90
@@ -54,7 +54,7 @@ SUBROUTINE LEINV(KM,KMLOC,KFC,KIFC,KF_OUT_LT,KSL,KDGLU,PIA,PAOA1,PSOA1)
 !      F. Vana  05-Mar-2015  Support for single precision
 !     ------------------------------------------------------------------
 
-USE PARKIND1  ,ONLY : JPRD, JPIM     ,JPRB
+USE PARKIND1  ,ONLY : JPRD, JPRM, JPIM     ,JPRB
 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK, JPHOOK
 
 USE TPM_DIM         ,ONLY : R

diff --git a/src/trans/internal/leinvad_mod.F90 b/src/trans/internal/leinvad_mod.F90
@@ -54,7 +54,7 @@ SUBROUTINE LEINVAD(KM,KMLOC,KFC,KIFC,KF_OUT_LT,KDGLU,PIA,PAOA1,PSOA1)
 !        Modified ! 16/10/12 J.Hague : DR_HOOK round calls to DGEMM:
 !     ------------------------------------------------------------------
 
-USE PARKIND1  ,ONLY : JPIM     ,JPRB     ,JPRD
+USE PARKIND1  ,ONLY : JPIM     ,JPRB     ,JPRD, JPRM
 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK, JPHOOK
 
 USE TPM_DIM         ,ONLY : R