From 4ce004d14318c16b49b74be0fe4d774eb3bbe059 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?S=C3=A9bastien=20Riette?= <sebastien.riette@meteo.fr>
Date: Thu, 15 Jun 2023 11:57:20 +0200
Subject: [PATCH] S. Riette 15 Jun 2023: testprogs bf for ldverbose
---
src/testprogs/shallow/getdata_shallow_mod.F90 | 4 ++--
src/testprogs/shallow/main_shallow.F90 | 2 +-
src/testprogs/turb_mnh/getdata_turb_mod.F90 | 4 ++--
src/testprogs/turb_mnh/main_turb.F90 | 2 +-
4 files changed, 6 insertions(+), 6 deletions(-)
diff --git a/src/testprogs/shallow/getdata_shallow_mod.F90 b/src/testprogs/shallow/getdata_shallow_mod.F90
index 7625c4afb..689756df2 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 a94f4452d..f9b313141 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 3adad7d72..bc5598fd8 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 87db300ab..86401f110 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
--
GitLab