diff --git a/src/testprogs/shallow/getdata_shallow_mod.F90 b/src/testprogs/shallow/getdata_shallow_mod.F90
index 7625c4afbc2fe2e55f6fed1ad84482327be21a39..689756df2e1580256c04b8e3c8adaac7de41ee1a 100644
--- a/src/testprogs/shallow/getdata_shallow_mod.F90
+++ b/src/testprogs/shallow/getdata_shallow_mod.F90
@@ -28,7 +28,7 @@ SUBROUTINE GETDATA_SHALLOW (NPROMA, NGPBLKS, NFLEVG, KRR, KRRL, KRRI, KSV, KLEV,
                         &ZFLXZUMF_OUT_B, ZFLXZVMF_OUT_B, PTHL_UP_OUT_B, PRT_UP_OUT_B, PRV_UP_OUT_B, PRC_UP_OUT_B, PRI_UP_OUT_B, &
                         &PU_UP_OUT_B, PV_UP_OUT_B, &
                         &PTHV_UP_OUT_B, PW_UP_OUT_B, &
-                        &PFRAC_UP_OUT_B, PEMF_OUT_B, ZDETR_OUT_B, ZENTR_OUT_B, IKLCL_OUT_B, IKETL_OUT_B, IKCTL_OUT_B)
+                        &PFRAC_UP_OUT_B, PEMF_OUT_B, ZDETR_OUT_B, ZENTR_OUT_B, IKLCL_OUT_B, IKETL_OUT_B, IKCTL_OUT_B, LDVERBOSE)
 
 IMPLICIT NONE
 
@@ -42,7 +42,7 @@ INTEGER, INTENT(OUT)      :: KRR, KRRL, KRRI
 INTEGER, INTENT(OUT)      :: KSV
 INTEGER      :: KDUM
 
-LOGICAL :: LDVERBOSE
+LOGICAL, INTENT(IN) :: LDVERBOSE
 
 !IN and INOUTS
 REAL, INTENT(OUT), ALLOCATABLE   :: PDZZF_B             (:,:,:,:)
diff --git a/src/testprogs/shallow/main_shallow.F90 b/src/testprogs/shallow/main_shallow.F90
index a94f4452dbb281f85c5f1b7ac9843703446d2169..f9b313141e5f47b349d83808a73331e627d373fd 100644
--- a/src/testprogs/shallow/main_shallow.F90
+++ b/src/testprogs/shallow/main_shallow.F90
@@ -175,7 +175,7 @@ CALL GETDATA_SHALLOW (NPROMA, NGPBLKS, NFLEVG, KRR, KRRL, KRRI, KSV, KLEV, &
                   &ZFLXZUMF_OUT, ZFLXZVMF_OUT, PTHL_UP_OUT, PRT_UP_OUT, PRV_UP_OUT, PRC_UP_OUT, PRI_UP_OUT, &
                   &PU_UP_OUT, PV_UP_OUT, &
                   &PTHV_UP_OUT, PW_UP_OUT, &
-                  &PFRAC_UP_OUT, PEMF_OUT, ZDETR_OUT, ZENTR_OUT, IKLCL_OUT, IKETL_OUT, IKCTL_OUT)
+                  &PFRAC_UP_OUT, PEMF_OUT, ZDETR_OUT, ZENTR_OUT, IKLCL_OUT, IKETL_OUT, IKCTL_OUT, LLVERBOSE)
 
 IF (LLVERBOSE) PRINT *, " KLEV = ", KLEV, " KRR = ", KRR
 
diff --git a/src/testprogs/turb_mnh/getdata_turb_mod.F90 b/src/testprogs/turb_mnh/getdata_turb_mod.F90
index 3adad7d725b7c662b5a50c42c8c813cbf337bf90..bc5598fd84f71d17b00442c60ead2f50ae241557 100644
--- a/src/testprogs/turb_mnh/getdata_turb_mod.F90
+++ b/src/testprogs/turb_mnh/getdata_turb_mod.F90
@@ -32,7 +32,7 @@ SUBROUTINE GETDATA_TURB (NPROMA, NGPBLKS, NFLEVG, KRR, KRRL, KRRI, KSV, KLEV, &
                         &ZWTH_OUT_B, ZWRC_OUT_B, ZWSV_OUT_B, PDP_OUT_B, PTP_OUT_B, PTDIFF_OUT_B, PTDISS_OUT_B, &
                         &PEDR_OUT_B, PTPMF_OUT_B, &
                         &PDRUS_TURB_OUT_B, PDRVS_TURB_OUT_B, &
-                        &PDRTHLS_TURB_OUT_B, PDRRTS_TURB_OUT_B, ZDRSVS_TURB_OUT_B)
+                        &PDRTHLS_TURB_OUT_B, PDRRTS_TURB_OUT_B, ZDRSVS_TURB_OUT_B, LDVERBOSE)
 
 IMPLICIT NONE
 
@@ -46,7 +46,7 @@ INTEGER, INTENT(OUT)      :: KRR, KRRL, KRRI
 INTEGER, INTENT(OUT)      :: KSV
 INTEGER      :: KDUM
 
-LOGICAL :: LDVERBOSE
+LOGICAL, INTENT(IN) :: LDVERBOSE
 
 !IN and INOUTS
 REAL, INTENT(OUT), ALLOCATABLE   :: ZDXX_B             (:,:,:,:)
diff --git a/src/testprogs/turb_mnh/main_turb.F90 b/src/testprogs/turb_mnh/main_turb.F90
index 87db300ab715ef475452761afd1c0e38e40b1b2d..86401f11040ed99a265c6dc8409ecfee157a88e8 100644
--- a/src/testprogs/turb_mnh/main_turb.F90
+++ b/src/testprogs/turb_mnh/main_turb.F90
@@ -191,7 +191,7 @@ CALL GETDATA_TURB (NPROMA, NGPBLKS, NFLEVG, KRR, KRRL, KRRI, KSV, KLEV, &
                   &ZWTH_OUT, ZWRC_OUT, ZWSV_OUT, PDP_OUT, PTP_OUT, PTDIFF_OUT, PTDISS_OUT, &
                   &PEDR_OUT, PTPMF_OUT, &
                   &PDRUS_TURB_OUT, PDRVS_TURB_OUT, &
-                  &PDRTHLS_TURB_OUT, PDRRTS_TURB_OUT, ZDRSVS_TURB_OUT)
+                  &PDRTHLS_TURB_OUT, PDRRTS_TURB_OUT, ZDRSVS_TURB_OUT, LLVERBOSE)
 
 IF (LLVERBOSE) PRINT *, " KLEV = ", KLEV, " KRR = ", KRR