diff --git a/src/common/aux/gradient_m.F90 b/src/common/aux/gradient_m.F90
index 3ab195aa5fa580dc2a509920837c3a1fbb3dcfb2..b98d5acd8f7d79c84c8d296dac692f863fd20a8f 100644
--- a/src/common/aux/gradient_m.F90
+++ b/src/common/aux/gradient_m.F90
@@ -189,9 +189,9 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PY ! variable at mass
! localization
REAL, DIMENSION(SIZE(PY,1),SIZE(PY,2),SIZE(PY,3)) :: PGX_M_U ! result at flux
! side
-INTEGER IIU,IKU,JI,JK
+INTEGER IIU,IKU,JI
!
-INTEGER :: JJK,IJU
+INTEGER :: IJU
INTEGER :: JIJK,JIJKOR,JIJKEND
INTEGER :: JI_1JK, JIJK_1, JI_1JK_1, JIJKP1, JI_1JKP1
!
diff --git a/src/common/aux/mode_budget_phy.F90 b/src/common/aux/mode_budget_phy.F90
index 30db2f33b4fc10006c42562750ef1a5c7ddb131b..6e709a1abdf5a626a73595c4a59cf07cf33b8649 100644
--- a/src/common/aux/mode_budget_phy.F90
+++ b/src/common/aux/mode_budget_phy.F90
@@ -46,6 +46,5 @@ SUBROUTINE BUDGET_STORE_ADD(TPBUDGET, HSOURCE, PVARS)
TYPE(TBUDGETDATA), INTENT(INOUT) :: TPBUDGET ! Budget datastructure
CHARACTER(LEN=*), INTENT(IN) :: HSOURCE ! Name of the source term
REAL, DIMENSION(:,:,:), INTENT(IN) :: PVARS ! Current value to be stored
- REAL, DIMENSION(SIZE(PVARS, 1), SIZE(PVARS, 2), SIZE(PVARS, 3)) :: ZVARS
END SUBROUTINE BUDGET_STORE_ADD
END MODULE MODE_BUDGET_PHY
diff --git a/src/common/aux/mode_gradient_m_phy.F90 b/src/common/aux/mode_gradient_m_phy.F90
index 6f3c34f01c872849d90154f8b73a90b649854bd3..718599a9d74ac8e1a6f92a7c39b5226f82b7f9a5 100644
--- a/src/common/aux/mode_gradient_m_phy.F90
+++ b/src/common/aux/mode_gradient_m_phy.F90
@@ -439,7 +439,7 @@ REAL, DIMENSION(D%NIT*D%NJT*D%NKT) :: ZGX_M_U
REAL, DIMENSION(D%NIT,D%NJT,D%NKT):: ZY, ZDXX
INTEGER IIU,IKU,JI,JK,IKL, IKA
!
-INTEGER :: JJK,IJU
+INTEGER :: IJU
INTEGER :: JIJK,JIJKOR,JIJKEND
INTEGER :: JI_1JK, JIJK_1, JI_1JK_1, JIJKP1, JI_1JKP1
!
diff --git a/src/common/aux/mode_gradient_w_phy.F90 b/src/common/aux/mode_gradient_w_phy.F90
index 0f8db721bfbc5be4d986dd23373fb00eb0f36b2f..b9b43a2b41c9c46307e40ac5893731f555d1f811 100644
--- a/src/common/aux/mode_gradient_w_phy.F90
+++ b/src/common/aux/mode_gradient_w_phy.F90
@@ -50,7 +50,7 @@ CONTAINS
!* 0. DECLARATIONS
!
!
-USE MODE_SHUMAN_PHY, ONLY: MZF_PHY, DZF_PHY, MXM_PHY, DXM_PHY, MZM_PHY, DZM_PHY
+USE MODE_SHUMAN_PHY, ONLY: MZF_PHY, MXM_PHY, DXM_PHY, MZM_PHY, DZM_PHY
USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
!
IMPLICIT NONE
@@ -162,7 +162,7 @@ END SUBROUTINE GX_W_UW_PHY
!* 0. DECLARATIONS
!
!
-USE MODE_SHUMAN_PHY, ONLY: MZF_PHY, DZF_PHY, MYM_PHY, DYM_PHY, MZM_PHY, DZM_PHY
+USE MODE_SHUMAN_PHY, ONLY: MZF_PHY, MYM_PHY, DYM_PHY, MZM_PHY, DZM_PHY
USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
!
IMPLICIT NONE
diff --git a/src/common/aux/shuman.F90 b/src/common/aux/shuman.F90
index f8949e00d8e7966ffc2122154fc29121ec8f9a0e..be56b4cce204a0f76d1ab132de20f8bd8796e00a 100644
--- a/src/common/aux/shuman.F90
+++ b/src/common/aux/shuman.F90
@@ -66,7 +66,6 @@ REAL, DIMENSION(SIZE(PA,1),SIZE(PA,2),SIZE(PA,3)) :: PMXF ! result at mass
!* 0.2 Declarations of local variables
! -------------------------------
!
-INTEGER :: JI ! Loop index in x direction
INTEGER :: IIU ! upper bound in x direction of PA
!
!-------------------------------------------------------------------------------
@@ -159,7 +158,6 @@ REAL, DIMENSION(SIZE(PA,1),SIZE(PA,2),SIZE(PA,3)) :: PMXM ! result at flux loc
!* 0.2 Declarations of local variables
! -------------------------------
!
-INTEGER :: JI ! Loop index in x direction
INTEGER :: IIU ! Size of the array in the x direction
!
!-------------------------------------------------------------------------------
@@ -254,7 +252,6 @@ REAL, DIMENSION(SIZE(PA,1),SIZE(PA,2),SIZE(PA,3)) :: PMYF ! result at mass
!* 0.2 Declarations of local variables
! -------------------------------
!
-INTEGER :: JJ ! Loop index in y direction
INTEGER :: IJU ! upper bound in y direction of PA
!
!-------------------------------------------------------------------------------
@@ -346,7 +343,6 @@ REAL, DIMENSION(SIZE(PA,1),SIZE(PA,2),SIZE(PA,3)) :: PMYM ! result at flux loc
!* 0.2 Declarations of local variables
! -------------------------------
!
-INTEGER :: JJ ! Loop index in y direction
INTEGER :: IJU ! Size of the array in the y direction
!
!-------------------------------------------------------------------------------
diff --git a/src/common/aux/shuman_phy.F90 b/src/common/aux/shuman_phy.F90
index ab02447333cc790df851676ff903c851228c3d98..59af8535c383cbaac824e394cfa0502ff16b77a6 100644
--- a/src/common/aux/shuman_phy.F90
+++ b/src/common/aux/shuman_phy.F90
@@ -295,7 +295,6 @@ REAL, DIMENSION(D%NIT,D%NJT,D%NKT), INTENT(OUT) :: PMYM ! result at flux local
!* 0.2 Declarations of local variables
! -------------------------------
!
-INTEGER :: JJ ! Loop index in y direction
INTEGER :: IJU ! Size of the array in the y direction
!
!-------------------------------------------------------------------------------
@@ -565,7 +564,6 @@ REAL, DIMENSION(D%NIT,D%NJT,D%NKT), INTENT(OUT) :: PMXM ! result at flux local
!* 0.2 Declarations of local variables
! -------------------------------
!
-INTEGER :: JI ! Loop index in x direction
INTEGER :: IIU ! Size of the array in the x direction
!
!-------------------------------------------------------------------------------
diff --git a/src/common/micro/hypgeo.F90 b/src/common/micro/hypgeo.F90
index 4619bf51a94c3519bf8cda3586e08d1139185fba..378c3ce3d011fa69f9748ae882b6fb081c351f60 100644
--- a/src/common/micro/hypgeo.F90
+++ b/src/common/micro/hypgeo.F90
@@ -84,12 +84,9 @@ REAL :: PHYPGEO
!* 0.2 declarations of local variables
!
!
-INTEGER :: JN
-INTEGER :: ITMAX=100
REAL :: ZEPS,ZTEMP
-REAL :: ZFPMIN=1.E-30
REAL :: ZXH
-REAL :: ZX0,ZX1,ZZA,ZZB,ZZC,ZZD,Y(2)
+REAL :: ZX0,ZX1
!
!------------------------------------------------------------------------------
!
diff --git a/src/common/micro/lima.F90 b/src/common/micro/lima.F90
index 36474a920f88ec2b69ca5ca86947fa837a375b33..6665319bc5689b249629c1cf42b6ce5ded85919b 100644
--- a/src/common/micro/lima.F90
+++ b/src/common/micro/lima.F90
@@ -49,24 +49,20 @@ USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
USE MODD_BUDGET, ONLY: TBUDGETDATA, TBUDGETCONF_t, NBUDGET_TH, NBUDGET_RV, NBUDGET_RC, &
NBUDGET_RI, NBUDGET_RR, NBUDGET_RS, NBUDGET_RG, NBUDGET_RH, NBUDGET_SV1
USE MODD_CST, ONLY: CST_t
-USE MODD_IO, ONLY: TFILEDATA
USE MODD_NSV, ONLY: NSV_LIMA_NC, NSV_LIMA_NR, NSV_LIMA_CCN_FREE, NSV_LIMA_CCN_ACTI, &
NSV_LIMA_NI, NSV_LIMA_NS, NSV_LIMA_NG, NSV_LIMA_NH, &
NSV_LIMA_IFN_FREE, NSV_LIMA_IFN_NUCL, NSV_LIMA_IMM_NUCL, NSV_LIMA_HOM_HAZE, &
NSV_LIMA_BEG
-USE MODD_PARAMETERS, ONLY: JPHEXT, JPVEXT
USE MODD_PARAM_LIMA, ONLY: NMOD_CCN, NMOD_IFN, NMOD_IMM, LHHONI, &
- LACTIT, LFEEDBACKT, NMAXITER, XMRSTEP, XTSTEP_TS, &
+ LFEEDBACKT, NMAXITER, XMRSTEP, XTSTEP_TS, &
LSEDC, LSEDI, XRTMIN, XCTMIN, LDEPOC, XVDEPOC, &
NMOM_C, NMOM_R, NMOM_I, NMOM_S, NMOM_G, NMOM_H
-USE MODD_PARAM_LIMA_COLD, ONLY: XAI, XBI
-USE MODD_PARAM_LIMA_WARM, ONLY: XLBC, XLBEXC, XAC, XBC, XAR, XBR
USE MODE_BUDGET_PHY, ONLY: BUDGET_STORE_ADD_PHY, BUDGET_STORE_INIT_PHY, BUDGET_STORE_END_PHY
use mode_tools, only: Countjv
USE MODE_LIMA_COMPUTE_CLOUD_FRACTIONS, ONLY: LIMA_COMPUTE_CLOUD_FRACTIONS
-USE MODE_LIMA_DROPS_TO_DROPLETS_CONV, ONLY: LIMA_DROPS_TO_DROPLETS_CONV
+
USE MODE_LIMA_INST_PROCS, ONLY: LIMA_INST_PROCS
USE MODE_LIMA_NUCLEATION_PROCS, ONLY: LIMA_NUCLEATION_PROCS
USE MODE_LIMA_SEDIMENTATION, ONLY: LIMA_SEDIMENTATION
@@ -273,13 +269,12 @@ REAL, DIMENSION(:), ALLOCATABLE :: ZCF1D, ZIF1D, ZPF1D
! domain size and levels (AROME compatibility)
INTEGER :: KRR
! loops and packing
-INTEGER :: II, IPACK, JI, JJ, JK
+INTEGER :: II, IPACK, JI
integer :: idx
INTEGER, DIMENSION(:), ALLOCATABLE :: I1, I2, I3
! Inverse ov PTSTEP
REAL :: ZINV_TSTEP
! Work arrays
-REAL, DIMENSION(SIZE(PRT,1),SIZE(PRT,2),SIZE(PRT,3)) :: ZW3D
REAL, DIMENSION(SIZE(PRT,1),SIZE(PRT,2)) :: ZW2D
REAL, DIMENSION(SIZE(PRT,1),SIZE(PRT,2),SIZE(PRT,3)) :: ZRT_SUM ! Total condensed water mr
REAL, DIMENSION(SIZE(PRT,1),SIZE(PRT,2),SIZE(PRT,3)) :: ZCPT ! Total condensed water mr
diff --git a/src/common/micro/lima_adjust_split.F90 b/src/common/micro/lima_adjust_split.F90
index 96187f126b1503d5943ffe62a8a5a1824269a6f4..5ad444ac70a7f4809ac7c52ce72aade0965e1a09 100644
--- a/src/common/micro/lima_adjust_split.F90
+++ b/src/common/micro/lima_adjust_split.F90
@@ -106,7 +106,6 @@ USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
USE MODE_BUDGET_PHY, ONLY: BUDGET_STORE_INIT_PHY, BUDGET_STORE_END_PHY
!USE MODE_IO_FIELD_WRITE, only: IO_Field_write
use mode_msg
-use mode_tools, only: Countjv
!
USE MODI_CONDENSATION
USE MODE_LIMA_CCN_ACTIVATION, ONLY: LIMA_CCN_ACTIVATION
@@ -191,8 +190,7 @@ REAL, DIMENSION(SIZE(PRHODJ,1),SIZE(PRHODJ,2),SIZE(PRHODJ,3)) &
PCIT, & ! Cloud ice conc. at t
!
PCCS, & ! Cloud water C. source
- PMAS, & ! Mass of scavenged AP
- PCIS ! Ice crystal C. source
+ PMAS ! Mass of scavenged AP
!
REAL, DIMENSION(:,:,:,:), ALLOCATABLE &
:: PNFS, & ! Free CCN C. source
@@ -228,11 +226,6 @@ REAL, DIMENSION(SIZE(PRHODJ,1),SIZE(PRHODJ,2)) :: ZSIGQSAT2D
INTEGER, DIMENSION(SIZE(PRHODJ,1),SIZE(PRHODJ,2),SIZE(PRHODJ,3)) :: IVEC1
!
!INTEGER :: IRESP ! Return code of FM routines
-INTEGER :: IIU,IJU,IKU! dimensions of dummy arrays
-INTEGER :: IKB ! K index value of the first inner mass point
-INTEGER :: IKE ! K index value of the last inner mass point
-INTEGER :: IIB,IJB ! Horz index values of the first inner mass points
-INTEGER :: IIE,IJE ! Horz index values of the last inner mass points
INTEGER :: JITER,ITERMAX ! iterative loop for first order adjustment
!INTEGER :: ILUOUT ! Logical unit of output listing
!
@@ -243,7 +236,7 @@ REAL, DIMENSION(:), ALLOCATABLE :: ZCTMIN
!
integer :: idx
integer :: JI, JJ, JK, jl
-INTEGER :: JMOD, JMOD_IFN, JMOD_IMM
+INTEGER :: JMOD
!
!!$TYPE(TFIELDMETADATA) :: TZFIELD
!
diff --git a/src/common/micro/lima_precip_scavenging.F90 b/src/common/micro/lima_precip_scavenging.F90
index 3d23f6450a7a284c7d24ec4433d416db90b5f3c9..78d415912605c585c35ffe75c47985db47629aa2 100644
--- a/src/common/micro/lima_precip_scavenging.F90
+++ b/src/common/micro/lima_precip_scavenging.F90
@@ -86,7 +86,7 @@ USE MODD_PARAM_LIMA, ONLY: NMOD_IFN, NSPECIE, XFRAC,
XMDIAM_IFN, XSIGMA_IFN, XRHO_IFN, &
NMOD_CCN, XR_MEAN_CCN, XLOGSIG_CCN, XRHO_CCN, &
XALPHAR, XNUR, &
- LAERO_MASS, NDIAMR, NDIAMP, XT0SCAV, XTREF, XNDO, &
+ LAERO_MASS, NDIAMR, NDIAMP, XT0SCAV, XTREF, &
XMUA0, XT_SUTH_A, XMFPA0, XVISCW, XRHO00, &
XRTMIN, XCTMIN
USE MODD_PARAM_LIMA_WARM, ONLY: XCR, XDR
@@ -136,7 +136,7 @@ INTEGER :: IKB !
INTEGER :: IKE !
!
INTEGER :: JSV ! CCN or IFN mode
-INTEGER :: J1, J2, IJ, JMOD
+INTEGER :: J1, J2, JMOD
!
LOGICAL, DIMENSION(SIZE(PRHODREF,1),SIZE(PRHODREF,2),SIZE(PRHODREF,3)) &
:: GRAIN, &! Test where rain is present
@@ -149,7 +149,6 @@ REAL :: ZDENS_RATIO, & !density ratio
ZNUM, & !PNU-1.
ZSHAPE_FACTOR
!
-REAL, DIMENSION(SIZE(PZZ,1),SIZE(PZZ,2),SIZE(PZZ,3)) :: ZW ! work array
REAL, DIMENSION(SIZE(PZZ,1),SIZE(PZZ,2),SIZE(PZZ,3)) :: PCRT ! cloud droplet conc.
!
REAL, DIMENSION(:), ALLOCATABLE :: ZLAMBDAR, & !slope parameter of the
@@ -190,7 +189,6 @@ REAL, DIMENSION(:,:,:), ALLOCATABLE :: ZCOL_EF, &! Collision efficiency
ZSIZE_RATIO, &! Size Ratio
ZST ! Stokes number
!
-REAL, DIMENSION(SIZE(PRRT,1),SIZE(PRRT,2),SIZE(PRRT,3)) :: ZRRS
!
REAL, DIMENSION(SIZE(PRHODREF,1),SIZE(PRHODREF,2),SIZE(PRHODREF,3)) &
:: PMEAN_SCAV_COEF, & !Mean Scavenging
@@ -644,7 +642,7 @@ REAL, DIMENSION(:,:), INTENT(INOUT) :: PINPAP
!
!* 0.2 Declarations of local variables :
!
-INTEGER :: JJ, JK, JN, JRR ! Loop indexes
+INTEGER :: JK, JN ! Loop indexes
INTEGER :: IIB, IIE, IJB, IJE, IKB, IKE ! Physical domain
!
REAL :: ZTSPLITR ! Small time step for rain sedimentation
diff --git a/src/common/micro/modd_nebn.F90 b/src/common/micro/modd_nebn.F90
index f1dc34df0ef32a8fe2daa2559a2af6afaedb3a4e..459b4cfbde61dc4f59027c29b6f8d286d4ecbff7 100644
--- a/src/common/micro/modd_nebn.F90
+++ b/src/common/micro/modd_nebn.F90
@@ -129,8 +129,7 @@ SUBROUTINE NEBN_INIT(HPROGRAM, KUNITNML, LDNEEDNAM, KLUOUT, &
! ---------------
!
USE MODE_POSNAM_PHY, ONLY: POSNAM_PHY
-USE MODE_MSG, ONLY: PRINT_MSG, NVERB_FATAL
-USE MODE_CHECK_NAM_VAL, ONLY: CHECK_NAM_VAL_CHAR, CHECK_NAM_VAL_REAL, CHECK_NAM_VAL_INT
+USE MODE_CHECK_NAM_VAL, ONLY: CHECK_NAM_VAL_CHAR
!
IMPLICIT NONE
!
diff --git a/src/common/micro/modd_param_lima.F90 b/src/common/micro/modd_param_lima.F90
index 22baffab5b5b80a63808dc967e8d5cf63492fdf7..b1f61e2ee906b3435c2be346af927439a7df68d6 100644
--- a/src/common/micro/modd_param_lima.F90
+++ b/src/common/micro/modd_param_lima.F90
@@ -589,7 +589,7 @@ SUBROUTINE PARAM_LIMA_INIT(HPROGRAM, KUNITNML, LDNEEDNAM, KLUOUT, &
!
USE MODE_POSNAM_PHY, ONLY: POSNAM_PHY
USE MODE_MSG, ONLY: PRINT_MSG, NVERB_FATAL
-USE MODE_CHECK_NAM_VAL, ONLY: CHECK_NAM_VAL_CHAR, CHECK_NAM_VAL_REAL, CHECK_NAM_VAL_INT
+USE MODE_CHECK_NAM_VAL, ONLY: CHECK_NAM_VAL_CHAR
!
IMPLICIT NONE
!
diff --git a/src/common/micro/mode_ice4_budgets.F90 b/src/common/micro/mode_ice4_budgets.F90
index 47d1df99ae28ec879b5458d0b8cc942195cdfa2b..9aa4f2eb9519fc9a9b2c2380547042811dbbea84 100644
--- a/src/common/micro/mode_ice4_budgets.F90
+++ b/src/common/micro/mode_ice4_budgets.F90
@@ -25,7 +25,7 @@ USE MODD_PARAM_ICE_n, ONLY: PARAM_ICE_t
!
USE MODD_FIELDS_ADDRESS ! index number for prognostic (theta and mixing ratios) and budgets
!
-USE MODE_BUDGET_PHY, ONLY: BUDGET_STORE_ADD_PHY, BUDGET_STORE_INIT_PHY, BUDGET_STORE_END_PHY
+USE MODE_BUDGET_PHY, ONLY: BUDGET_STORE_ADD_PHY
!
!
IMPLICIT NONE
diff --git a/src/common/micro/mode_ice4_fast_rh.F90 b/src/common/micro/mode_ice4_fast_rh.F90
index 44112410a19c7e557182136c7cddc71a84c60b70..6ea2630e604d522c0a31e468ead21b4f646f4b75 100644
--- a/src/common/micro/mode_ice4_fast_rh.F90
+++ b/src/common/micro/mode_ice4_fast_rh.F90
@@ -98,7 +98,7 @@ INTEGER, DIMENSION(KPROMA) :: IBUF1, IBUF2, IBUF3
REAL, DIMENSION(KPROMA) :: ZZW, &
ZRDRYH_INIT, ZRWETH_INIT, &
ZRDRYHG
-INTEGER :: JJ, JL
+INTEGER :: JL
REAL(KIND=JPRB) :: ZHOOK_HANDLE
LOGICAL, DIMENSION(KPROMA) :: LLWETH, LLDRYH
!
diff --git a/src/common/micro/mode_ice4_fast_rs.F90 b/src/common/micro/mode_ice4_fast_rs.F90
index 415869a19c0944f983b6c094b3c89707c1bc5f6f..3545799c228bd8c1f7d67ed9881c2699267264b5 100644
--- a/src/common/micro/mode_ice4_fast_rs.F90
+++ b/src/common/micro/mode_ice4_fast_rs.F90
@@ -89,7 +89,7 @@ INTEGER :: IGRIM, IGACC
INTEGER, DIMENSION(KPROMA) :: IBUF1, IBUF2, IBUF3
REAL, DIMENSION(KPROMA) :: ZBUF1, ZBUF2, ZBUF3
REAL, DIMENSION(KPROMA) :: ZZW, ZZW1, ZZW2, ZZW3, ZFREEZ_RATE
-INTEGER :: JJ, JL
+INTEGER :: JL
REAL :: ZZW0D
REAL(KIND=JPRB) :: ZHOOK_HANDLE
!-------------------------------------------------------------------------------
diff --git a/src/common/micro/mode_ice4_sedimentation.F90 b/src/common/micro/mode_ice4_sedimentation.F90
index eddcadf26246a3e5c5da8734b407fc492ad01c08..e0a0d6ab75ec02f2b03044b94cbdb16c5d1009b0 100644
--- a/src/common/micro/mode_ice4_sedimentation.F90
+++ b/src/common/micro/mode_ice4_sedimentation.F90
@@ -34,7 +34,7 @@ SUBROUTINE ICE4_SEDIMENTATION(D, CST, ICEP, ICED, PARAMI, BUCONF, &
USE PARKIND1, ONLY : JPRB
USE YOMHOOK , ONLY : LHOOK, DR_HOOK
USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
-USE MODD_BUDGET, ONLY: TBUDGETDATA, TBUDGETCONF_t, NBUDGET_TH, NBUDGET_RV, NBUDGET_RC, &
+USE MODD_BUDGET, ONLY: TBUDGETDATA, TBUDGETCONF_t, NBUDGET_RC, &
NBUDGET_RI, NBUDGET_RR, NBUDGET_RS, NBUDGET_RG, NBUDGET_RH
USE MODD_CST, ONLY: CST_t
USE MODD_RAIN_ICE_DESCR_n, ONLY: RAIN_ICE_DESCR_t
diff --git a/src/common/micro/mode_ice4_sedimentation_split.F90 b/src/common/micro/mode_ice4_sedimentation_split.F90
index 83402d58a628da9f48122fd9f5a7b532c0dbb743..e72dfba7dab58430fe3eb1bd987d82ffeb24dd12 100644
--- a/src/common/micro/mode_ice4_sedimentation_split.F90
+++ b/src/common/micro/mode_ice4_sedimentation_split.F90
@@ -88,7 +88,7 @@ REAL, DIMENSION(D%NIJT,D%NKT,KRR), OPTIONAL, INTENT(OUT) :: PFPR ! upper-ai
!
!
INTEGER :: JIJ, JK
-INTEGER :: IKTB, IKTE, IKB, IKL, IIJE, IIJB
+INTEGER :: IKTB, IKTE, IIJE, IIJB
INTEGER :: IRR !Workaround of PGI bug with OpenACC (at least up to 18.10 version)
LOGICAL :: GSEDIC !Workaround of PGI bug with OpenACC (at least up to 18.10 version)
LOGICAL :: GPRESENT_PFPR, GPRESENT_PSEA
@@ -311,7 +311,7 @@ REAL, DIMENSION(D%NIJT,D%NKT,KRR), INTENT(INOUT), OPTIONAL :: PFPR ! upper-ai
!* 0.2 declaration of local variables
!
CHARACTER(LEN=10) :: YSPE ! String for error message
-INTEGER :: JIJ, JK, JL
+INTEGER :: JIJ, JK
LOGICAL :: GPRESENT_PFPR
REAL :: ZINVTSTEP
REAL :: ZZWLBDC, ZRAY, ZZT, ZZWLBDA, ZZCC
diff --git a/src/common/micro/mode_ice4_sedimentation_stat.F90 b/src/common/micro/mode_ice4_sedimentation_stat.F90
index 1c43850476aa65b8f3cb6564ef439f51543b8815..fe8e820df4ee516114b6280d61a14d38af10ad77 100644
--- a/src/common/micro/mode_ice4_sedimentation_stat.F90
+++ b/src/common/micro/mode_ice4_sedimentation_stat.F90
@@ -91,7 +91,7 @@ REAL, DIMENSION(D%NIJT,D%NKT,KRR), OPTIONAL, INTENT(OUT) :: PFPR ! upper-ai
LOGICAL :: LLSEA_AND_TOWN
INTEGER :: JRR, JIJ, JK, IKB, IKE,IKL, IIJB, IIJE, IKTB, IKTE
INTEGER :: ISHIFT, IK, IKPLUS
-REAL :: ZQP, ZP1, ZINVTSTEP, ZGAC, ZGC, ZGAC2, ZGC2, ZRAYDEFO, ZLBDAS
+REAL :: ZQP, ZINVTSTEP, ZGAC, ZGC, ZGAC2, ZGC2, ZRAYDEFO, ZLBDAS
REAL, DIMENSION(D%NIJT) :: ZWSEDW1, ZWSEDW2 ! sedimentation speed
REAL, DIMENSION(D%NIJT) :: ZTSORHODZ ! TimeStep Over (Rhodref times delta Z)
REAL, DIMENSION(D%NIJT,0:1,2:KRR) :: ZSED ! sedimentation flux array for each species and for above and current levels
@@ -253,7 +253,7 @@ CONTAINS
REAL :: ZRAY ! Cloud Mean radius
REAL :: ZZWLBDA, ZZWLBDC, ZZCC
- REAL(KIND=JPRB) :: ZHOOK_HANDLE
+ !!REAL(KIND=JPRB) :: ZHOOK_HANDLE
!!IF (LHOOK) CALL DR_HOOK('ICE4_SEDIMENTATION_STAT:CLOUD',0,ZHOOK_HANDLE)
@@ -312,7 +312,7 @@ CONTAINS
REAL, INTENT(IN) :: PRXT(D%NIJT) ! mr of specy X
- REAL(KIND=JPRB) :: ZHOOK_HANDLE
+ !!REAL(KIND=JPRB) :: ZHOOK_HANDLE
!!IF (LHOOK) CALL DR_HOOK('ICE4_SEDIMENTATION_STAT:PRISTINE_ICE',0,ZHOOK_HANDLE)
@@ -359,7 +359,7 @@ CONTAINS
REAL, INTENT(IN) :: PRXT(D%NIJT) ! mr of specy X
- REAL(KIND=JPRB) :: ZHOOK_HANDLE
+ !!REAL(KIND=JPRB) :: ZHOOK_HANDLE
!!IF (LHOOK) CALL DR_HOOK('ICE4_SEDIMENTATION_STAT:SNOW',0,ZHOOK_HANDLE)
@@ -418,7 +418,7 @@ CONTAINS
REAL, INTENT(IN) :: PEXSED
REAL, INTENT(IN) :: PRXT(D%NIJT) ! mr of specy X
- REAL(KIND=JPRB) :: ZHOOK_HANDLE
+ !!REAL(KIND=JPRB) :: ZHOOK_HANDLE
!!IF (LHOOK) CALL DR_HOOK('ICE4_SEDIMENTATION_STAT:OTHER_SPECIES',0,ZHOOK_HANDLE)
diff --git a/src/common/micro/mode_ice4_slow.F90 b/src/common/micro/mode_ice4_slow.F90
index cdf1e056e9cf988e7067363b76db7179719985e3..03a55ed212bfed67af4528d057334e69b58c2239 100644
--- a/src/common/micro/mode_ice4_slow.F90
+++ b/src/common/micro/mode_ice4_slow.F90
@@ -71,7 +71,6 @@ REAL, DIMENSION(KPROMA), INTENT(INOUT) :: PRVDEPG ! Deposition on r_g
!* 0.2 declaration of local variables
!
REAL, DIMENSION(KPROMA) :: ZCRIAUTI
-REAL :: ZTIMAUTIC
INTEGER :: JL
REAL(KIND=JPRB) :: ZHOOK_HANDLE
!-------------------------------------------------------------------------------
diff --git a/src/common/micro/mode_ice4_stepping.F90 b/src/common/micro/mode_ice4_stepping.F90
index 6cb5d7421b0a7ab9c1e96bbfc1ce09d7044b6a3c..98a45c58301d884585cde64d7aadf06aefad60ba 100644
--- a/src/common/micro/mode_ice4_stepping.F90
+++ b/src/common/micro/mode_ice4_stepping.F90
@@ -44,8 +44,6 @@ USE MODD_FIELDS_ADDRESS, ONLY : & ! common fields adress
& IRREVAV, & ! Index for the evaporation tendency
& IBUEXTRAIND ! Index indirection
-USE MODE_MSG, ONLY: PRINT_MSG, NVERB_FATAL
-
USE MODE_ICE4_TENDENCIES, ONLY: ICE4_TENDENCIES
!
IMPLICIT NONE
diff --git a/src/common/micro/mode_ice4_tendencies.F90 b/src/common/micro/mode_ice4_tendencies.F90
index 42994ff49cf39aba3bba7c839bb5769294a7203e..46c7d8e035c578640f67363774342dd4b9e1df85 100644
--- a/src/common/micro/mode_ice4_tendencies.F90
+++ b/src/common/micro/mode_ice4_tendencies.F90
@@ -39,7 +39,6 @@ SUBROUTINE ICE4_TENDENCIES(D, CST, PARAMI, ICEP, ICED, BUCONF, KPROMA, KSIZE, &
!
USE MODD_BUDGET, ONLY: TBUDGETCONF_t
USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
-USE MODE_MSG, ONLY: PRINT_MSG, NVERB_FATAL
USE MODD_CST, ONLY: CST_t
USE MODD_PARAM_ICE_n, ONLY: PARAM_ICE_t
USE MODD_RAIN_ICE_DESCR_n, ONLY: RAIN_ICE_DESCR_t
diff --git a/src/common/micro/mode_icecloud.F90 b/src/common/micro/mode_icecloud.F90
index e05effa6e2f66def26ffba530cc9601c3348b921..8ba69db98ffa5d3591809183e51189c270b0414e 100644
--- a/src/common/micro/mode_icecloud.F90
+++ b/src/common/micro/mode_icecloud.F90
@@ -10,7 +10,7 @@ SUBROUTINE ICECLOUD &
USE PARKIND1, ONLY : JPRB
USE YOMHOOK , ONLY : LHOOK, DR_HOOK
USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
- USE MODD_CST,ONLY : XCPD,XCPV,XLVTT,XLSTT,XG,XRD,XEPSILO
+ USE MODD_CST,ONLY : XCPD,XLVTT,XG,XRD,XEPSILO
USE MODE_TIWMX, ONLY: ESATW, ESATI
USE MODE_QSATMX_TAB, ONLY: QSATMX_TAB
IMPLICIT NONE
@@ -73,7 +73,7 @@ REAL, INTENT(OUT) :: RSI(D%NIJT)
! Working variables:
REAL :: ZSIGMAX,ZSIGMAY,ZSIGMAZ,ZXDIST,ZYDIST,&
- & ZRSW,ZRHW,ZRHIN,ZDRHDZ,ZZ,ZRHDIST,ZRHLIM, &
+ & ZRHW,ZRHIN,ZDRHDZ,ZZ,ZRHDIST,ZRHLIM, &
& ZRHDIF,ZWCLD,ZI2W,ZRHLIMICE,ZRHLIMINV,ZA,ZRHI,ZR
INTEGER :: JIJ, IIJB, IIJE
diff --git a/src/common/micro/mode_ini_lima.F90 b/src/common/micro/mode_ini_lima.F90
index 5c834e5c7a79d3842e108cd164ac6f38fd3f44ba..3fba2eaabb5078c0426457590e71941afb8e1e3b 100644
--- a/src/common/micro/mode_ini_lima.F90
+++ b/src/common/micro/mode_ini_lima.F90
@@ -63,8 +63,6 @@ REAL :: ZT ! Work variable
REAL, DIMENSION(7) :: ZVTRMAX
!
INTEGER :: JI
-INTEGER :: ILUOUT0 ! Logical unit number for output-listing
-INTEGER :: IRESP ! Return code of FM-routines
!
!-------------------------------------------------------------------------------
!
diff --git a/src/common/micro/mode_ini_lima_cold_mixed.F90 b/src/common/micro/mode_ini_lima_cold_mixed.F90
index 88f340867f5965ea1b7d79e0c8d7db5780c27e25..e8774847097e970a599f89335616b835b54b3c94 100644
--- a/src/common/micro/mode_ini_lima_cold_mixed.F90
+++ b/src/common/micro/mode_ini_lima_cold_mixed.F90
@@ -80,13 +80,11 @@ REAL, INTENT(IN) :: PDZMIN ! minimun vertical mesh size
character(len=13) :: yval ! String for error message
INTEGER :: IKB ! Coordinates of the first physical
! points along z
-INTEGER :: J1,J2 ! Internal loop indexes
+INTEGER :: J1 ! Internal loop indexes
!
REAL, DIMENSION(8) :: ZGAMI ! parameters involving various moments
REAL, DIMENSION(2) :: ZGAMS ! of the generalized gamma law
!
-REAL :: ZT ! Work variable
-REAL :: ZVTRMAX ! Raindrop maximal fall velocity
REAL :: ZRHO00 ! Surface reference air density
REAL :: ZRATE ! Geometrical growth of Lbda in the tabulated
! functions and kernels
@@ -109,7 +107,7 @@ INTEGER :: KND
INTEGER :: KACCLBDAS,KACCLBDAR,KDRYLBDAG,KDRYLBDAS,KDRYLBDAR
REAL :: PALPHAR,PALPHAS,PALPHAG,PALPHAH
REAL :: PNUR,PNUS,PNUG,PNUH
-REAL :: PBR,PBS,PBG,PBH
+REAL :: PBR,PBS,PBG
REAL :: PCR,PCS,PCG,PCH
REAL :: PDR,PDS,PFVELOS,PDG,PDH
REAL :: PESR,PEGS,PEGR,PEHS,PEHG
@@ -123,20 +121,15 @@ INTEGER :: KWETLBDAS,KWETLBDAG,KWETLBDAH
!
REAL :: ZFAC_ZRNIC ! Zrnic factor used to decrease Long Kernels
!
-REAL :: ZBOUND_CIBU_SMIN ! XDCSLIM*Lbda_s : lower & upper bound used
-REAL :: ZBOUND_CIBU_SMAX ! in the tabulated function
-REAL :: ZBOUND_CIBU_GMIN ! XDCGLIM*Lbda_g : lower & upper bound used
-REAL :: ZBOUND_CIBU_GMAX ! in the tabulated function
+REAL :: ZBOUND_CIBU_SMIN ! XDCSLIM*Lbda_s : lower bound used in the tabulated function
+REAL :: ZBOUND_CIBU_GMIN ! XDCGLIM*Lbda_g : lower bound used in the tabulated function
REAL :: ZRATE_S ! Geometrical growth of Lbda_s in the tabulated function
REAL :: ZRATE_G ! Geometrical growth of Lbda_g in the tabulated function
!
-REAL :: ZBOUND_RDSF_RMIN ! XDCRLIM*Lbda_r : lower & upper bound used
-REAL :: ZBOUND_RDSF_RMAX ! in the tabulated function
+REAL :: ZBOUND_RDSF_RMIN ! XDCRLIM*Lbda_r : lower bound used in the tabulated function
REAL :: ZRATE_R ! Geometrical growth of Lbda_r in the tabulated function
REAL :: ZKHI_LWM ! Coefficient of Lawson et al. (2015)
!
-REAL :: ZRHOIW ! ice density
-!
!-------------------------------------------------------------------------------
!
!
diff --git a/src/common/micro/mode_ini_lima_warm.F90 b/src/common/micro/mode_ini_lima_warm.F90
index 47ed2c23b011c1bc00ba83b9c00e65138218e790..f3f8d60c1c12bee4bdaac51849dc01d9fa834d22 100644
--- a/src/common/micro/mode_ini_lima_warm.F90
+++ b/src/common/micro/mode_ini_lima_warm.F90
@@ -67,9 +67,7 @@ REAL, DIMENSION(6) :: ZGAMC, ZGAMR ! parameters involving various moments of
REAL :: ZTT ! Temperature in Celsius
REAL :: ZLV ! Latent heat of vaporization
REAL :: ZSS ! Supersaturation
-REAL :: ZPSI1, ZG ! Psi1 and G functions
-REAL :: ZAHENR ! r_star (FH92)
-REAL :: ZVTRMAX ! Raindrop maximal fall velocity
+REAL :: ZG ! G function
REAL :: ZRHO00 ! Surface reference air density
REAL :: ZSURF_TEN ! Water drop surface tension
REAL :: ZSMIN, ZSMAX ! Minimal and maximal supersaturation used to
diff --git a/src/common/micro/mode_ini_tiwmx.F90 b/src/common/micro/mode_ini_tiwmx.F90
index 22b1432a8e589cf3b8c05db5b6e5a45702abc357..4e69d5de76588151affacd7eeedadeb1349a53c7 100644
--- a/src/common/micro/mode_ini_tiwmx.F90
+++ b/src/common/micro/mode_ini_tiwmx.F90
@@ -3,8 +3,6 @@ IMPLICIT NONE
CONTAINS
SUBROUTINE INI_TIWMX
USE PARKIND1, ONLY : JPRB
- USE MODD_CST, ONLY : XALPW,XBETAW,XGAMW,XALPI,XBETAI,XGAMI, &
- & XTT,XRV,XLVTT,XLSTT
! Include function definitions
USE MODE_TIWMX_FUN, ONLY : ESATW,DESDTW,ESATI,DESDTI,AA2,AA2W,AM3,AF3,BB3,BB3W,REDIN
! Only the tables, _NOT_ the functions!
diff --git a/src/common/micro/mode_init_aerosol_properties.F90 b/src/common/micro/mode_init_aerosol_properties.F90
index e23662ec088af0e93294365147b1b440dcde31b0..a936ac46f035e650fff35140e4a085be0d2dba00 100644
--- a/src/common/micro/mode_init_aerosol_properties.F90
+++ b/src/common/micro/mode_init_aerosol_properties.F90
@@ -45,8 +45,7 @@ CONTAINS
USE MODD_PARAM_LIMA, ONLY : NMOD_CCN, HINI_CCN, HTYPE_CCN, &
XR_MEAN_CCN, XLOGSIG_CCN, XRHO_CCN, &
XKHEN_MULTI, XMUHEN_MULTI, XBETAHEN_MULTI, &
- XLIMIT_FACTOR, CCCN_MODES, LSCAV, &
- XACTEMP_CCN, XFSOLUB_CCN, &
+ XLIMIT_FACTOR, CCCN_MODES, &
NMOD_IFN, NSPECIE, CIFN_SPECIES, &
XMDIAM_IFN, XSIGMA_IFN, XRHO_IFN, XFRAC, XFRAC_REF, &
CINT_MIXING, NPHILLIPS, &
@@ -60,18 +59,6 @@ USE MODE_LIMA_INIT_CCN_ACTIVATION_SPECTRUM, ONLY: LIMA_INIT_CCN_ACTIVATION_SPECT
!
IMPLICIT NONE
!
-REAL :: XKHEN0
-REAL :: XLOGSIG0
-REAL :: XALPHA1
-REAL :: XMUHEN0
-REAL :: XALPHA2
-REAL :: XBETAHEN0
-REAL :: XR_MEAN0
-REAL :: XALPHA3
-REAL :: XALPHA4
-REAL :: XALPHA5
-REAL :: XACTEMP0
-REAL :: XALPHA6
!
REAL, DIMENSION(6) :: XKHEN_TMP = (/1.56, 1.56, 1.56, 1.56, 1.56, 1.56 /)
REAL, DIMENSION(6) :: XMUHEN_TMP = (/0.80, 0.80, 0.80, 0.80, 0.80, 0.80 /)
@@ -92,7 +79,6 @@ REAL :: X1, X2, X3, X4, X5
! CHARACTER(LEN=7), DIMENSION(3) :: types=(/ 'NH42SO4', 'NaCl ', ' ' /)
!REAL, DIMENSION(1) :: diameters=(/ 0.25E-6 /)
!CHARACTER(LEN=7), DIMENSION(1) :: types=(/ ' ' /)
-INTEGER :: II, IJ, IK
!
!-------------------------------------------------------------------------------
!
diff --git a/src/common/micro/mode_lima_ccn_activation.F90 b/src/common/micro/mode_lima_ccn_activation.F90
index cb3ed2cd0577211420da0b5ec6dc254186182757..38732eee869583c4958e6624ee743a1e322a847f 100644
--- a/src/common/micro/mode_lima_ccn_activation.F90
+++ b/src/common/micro/mode_lima_ccn_activation.F90
@@ -136,7 +136,7 @@ REAL, DIMENSION(:), ALLOCATABLE :: ZZW1, ZZW2, ZZW3, ZZW4, ZZW5, ZZW6, &
REAL, DIMENSION(:,:), ALLOCATABLE :: ZTMP, ZCHEN_MULTI
!
REAL, DIMENSION(SIZE(PRHODREF,1),SIZE(PRHODREF,2),SIZE(PRHODREF,3)) &
- :: ZTDT, ZDRC, ZRVSAT, ZW, ZW2, ZCLDFR
+ :: ZTDT, ZRVSAT, ZW, ZW2, ZCLDFR
REAL, DIMENSION(SIZE(PNFT,1),SIZE(PNFT,2),SIZE(PNFT,3)) &
:: ZCONC_TOT ! total CCN C. available
!
diff --git a/src/common/micro/mode_lima_ccn_hom_freezing.F90 b/src/common/micro/mode_lima_ccn_hom_freezing.F90
index 25744d42abb867dfca9935a86bb924329e49ee8e..38f760fc59473f3cad1d4d5ef76083cf52a7bd16 100644
--- a/src/common/micro/mode_lima_ccn_hom_freezing.F90
+++ b/src/common/micro/mode_lima_ccn_hom_freezing.F90
@@ -38,14 +38,11 @@ CONTAINS
USE MODD_CST, ONLY: CST_t
USE MODD_NSV
USE MODD_PARAMETERS, ONLY: JPHEXT, JPVEXT
-USE MODD_PARAM_LIMA, ONLY: NMOD_CCN, NMOD_IMM, XRTMIN, XCTMIN, XNUC
+USE MODD_PARAM_LIMA, ONLY: NMOD_CCN
USE MODD_PARAM_LIMA_COLD, ONLY: XRCOEF_HONH, XCEXP_DIFVAP_HONH, XCOEF_DIFVAP_HONH,&
XCRITSAT1_HONH, XCRITSAT2_HONH, XTMAX_HONH, &
XTMIN_HONH, XC1_HONH, XC2_HONH, XC3_HONH, &
- XDLNJODT1_HONH, XDLNJODT2_HONH, XRHOI_HONH, &
- XC_HONC, XTEXP1_HONC, XTEXP2_HONC, XTEXP3_HONC, &
- XTEXP4_HONC, XTEXP5_HONC
-USE MODD_PARAM_LIMA_WARM, ONLY: XLBC
+ XDLNJODT1_HONH, XDLNJODT2_HONH, XRHOI_HONH
!
use mode_tools, only: Countjv
!
@@ -99,11 +96,10 @@ REAL, DIMENSION(SIZE(PRHODREF,1),SIZE(PRHODREF,2),SIZE(PRHODREF,3)) &
:: ZNHT ! Nucleated Ice nuclei conc. source
! by Homogeneous freezing of haze
REAL, DIMENSION(SIZE(PRHODREF,1),SIZE(PRHODREF,2),SIZE(PRHODREF,3)) &
- :: ZW, ZT ! work arrays
+ :: ZT ! work arrays
!
REAL, DIMENSION(:), ALLOCATABLE &
:: ZRHODREF, & ! RHO Dry REFerence
- ZRHODJ, & ! RHO times Jacobian
ZZT, & ! Temperature
ZPRES, & ! Pressure
ZEXNREF, & ! EXNer Pressure REFerence
@@ -125,11 +121,11 @@ REAL, DIMENSION(:), ALLOCATABLE &
ZCCNFROZEN
!
INTEGER :: IIB, IIE, IJB, IJE, IKB, IKE ! Physical domain
-INTEGER :: JL, JMOD_CCN, JMOD_IMM ! Loop index
+INTEGER :: JL, JMOD_CCN ! Loop index
!
INTEGER :: INEGT ! Case number of hom. nucleation
LOGICAL, DIMENSION(SIZE(PRHODREF,1),SIZE(PRHODREF,2),SIZE(PRHODREF,3)) &
- :: GNEGT ! Test where to compute the hom. nucleation
+ :: GNEGT ! Test where to compute the hom. nucleation
INTEGER , DIMENSION(SIZE(GNEGT)) :: I1,I2,I3 ! Used to replace the COUNT
!
REAL :: ZEPS ! molar mass ratio
diff --git a/src/common/micro/mode_lima_collisional_ice_breakup.F90 b/src/common/micro/mode_lima_collisional_ice_breakup.F90
index 58a040f5af64a6c7b1b780d32a0b6ea0a448709a..35542d9c2ccdd6c56aa86219a830cf8a127824d1 100644
--- a/src/common/micro/mode_lima_collisional_ice_breakup.F90
+++ b/src/common/micro/mode_lima_collisional_ice_breakup.F90
@@ -36,7 +36,7 @@ CONTAINS
USE MODD_PARAM_LIMA, ONLY : LCIBU, XRTMIN, XCTMIN, XCEXVT, XALPHAS, XNUS, XNDEBRIS_CIBU
USE MODD_PARAM_LIMA_COLD, ONLY : XBS, XCS, XDS, XFVELOS, XMNU0
-USE MODD_PARAM_LIMA_MIXED, ONLY : XCG, XDG, XCXG, &
+USE MODD_PARAM_LIMA_MIXED, ONLY : XCG, XDG, &
XCIBUINTP_S, XCIBUINTP1_S, XCIBUINTP2_S, &
XCIBUINTP_G, XCIBUINTP1_G, &
XFACTOR_CIBU_NI, XFACTOR_CIBU_RI, &
diff --git a/src/common/micro/mode_lima_compute_cloud_fractions.F90 b/src/common/micro/mode_lima_compute_cloud_fractions.F90
index 98ac4ae517cd8b246674fd551efabd46b21cd441..325e04864aa96085cebf933f563936ab68cde7cd 100644
--- a/src/common/micro/mode_lima_compute_cloud_fractions.F90
+++ b/src/common/micro/mode_lima_compute_cloud_fractions.F90
@@ -69,7 +69,6 @@ REAL, DIMENSION(:,:,:),INTENT(INOUT) :: PPRCFR !
!
!* 0.2 Declarations of local variables :
!
-INTEGER :: JI, JJ, JK
!
!-------------------------------------------------------------------------------
!
diff --git a/src/common/micro/mode_lima_conversion_melting_snow.F90 b/src/common/micro/mode_lima_conversion_melting_snow.F90
index 0921e3f73188b680251bbae80789d0f74870c35c..32537b585e8663dafafcc2499113e27100a67722 100644
--- a/src/common/micro/mode_lima_conversion_melting_snow.F90
+++ b/src/common/micro/mode_lima_conversion_melting_snow.F90
@@ -38,7 +38,7 @@ CONTAINS
USE MODD_CST, ONLY : XTT, XMV, XMD, XLVTT, XCPV, XCL, XESTT, XRV
USE MODD_PARAM_LIMA, ONLY : XRTMIN, XCTMIN, XNUS, XALPHAS
USE MODD_PARAM_LIMA_MIXED, ONLY : XFSCVMG
-USE MODD_PARAM_LIMA_COLD, ONLY : X0DEPS, XEX0DEPS, X1DEPS, XEX1DEPS, XBS, XFVELOS
+USE MODD_PARAM_LIMA_COLD, ONLY : X0DEPS, XEX0DEPS, X1DEPS, XEX1DEPS, XFVELOS
!
IMPLICIT NONE
!
diff --git a/src/common/micro/mode_lima_droplets_riming_snow.F90 b/src/common/micro/mode_lima_droplets_riming_snow.F90
index 70ab95d4787ed23f3b4e12fb544d6c25f3edcf40..9974166a1111a0ed9f0815781a6333b6eac5661e 100644
--- a/src/common/micro/mode_lima_droplets_riming_snow.F90
+++ b/src/common/micro/mode_lima_droplets_riming_snow.F90
@@ -42,7 +42,7 @@ USE MODD_PARAM_LIMA, ONLY : XRTMIN, XCTMIN, XCEXVT, XNUS, XALPHAS, LMURAKA
USE MODD_PARAM_LIMA_MIXED, ONLY : NGAMINC, XRIMINTP1, XRIMINTP2, XGAMINC_RIM1, XGAMINC_RIM2, XGAMINC_RIM4, &
XCRIMSS, XEXCRIMSS, XSRIMCG, XEXSRIMCG, XSRIMCG2, XSRIMCG3, XEXSRIMCG2, &
XHMLINTP1, XHMLINTP2, XGAMINC_HMC, XHM_FACTS, XHMTMIN, XHMTMAX
-USE MODD_PARAM_LIMA_COLD, ONLY : XMNU0, XBS, XFVELOS
+USE MODD_PARAM_LIMA_COLD, ONLY : XMNU0, XFVELOS
!
IMPLICIT NONE
!
@@ -78,7 +78,7 @@ REAL, DIMENSION(:), INTENT(OUT) :: P_RS_HMS
!
REAL, DIMENSION(SIZE(PRCT)) :: ZZW1, ZZW2, ZZW3, ZZW4, ZZW5
!
-INTEGER, DIMENSION(SIZE(PRCT)) :: IVEC1,IVEC2 ! Vectors of indices
+INTEGER, DIMENSION(SIZE(PRCT)) :: IVEC2 ! Vector of indices
REAL, DIMENSION(SIZE(PRCT)) :: ZVEC1,ZVEC2,ZVEC1W ! Work vectors
INTEGER :: JI
!
diff --git a/src/common/micro/mode_lima_drops_break_up.F90 b/src/common/micro/mode_lima_drops_break_up.F90
index e2b36c2ab18e6bfa233bd9c9e27f5c40bbb62927..67f119b54563f20013621a6fa30afb911a43185e 100644
--- a/src/common/micro/mode_lima_drops_break_up.F90
+++ b/src/common/micro/mode_lima_drops_break_up.F90
@@ -52,7 +52,6 @@ REAL, DIMENSION(:), INTENT(INOUT) :: PB_CR ! Cumulated concentrati
!* 0.2 Declarations of local variables :
!
REAL, DIMENSION(SIZE(PCRT)) :: ZWLBDR,ZWLBDR3
-INTEGER :: JL
!
!-------------------------------------------------------------------------------
!
diff --git a/src/common/micro/mode_lima_drops_to_droplets_conv.F90 b/src/common/micro/mode_lima_drops_to_droplets_conv.F90
index 808bed2403a360d48509250e1925cea5d12a25ca..daaf68b457e58724983dc01d88d162d60ab56bbf 100644
--- a/src/common/micro/mode_lima_drops_to_droplets_conv.F90
+++ b/src/common/micro/mode_lima_drops_to_droplets_conv.F90
@@ -33,8 +33,6 @@ CONTAINS
!
USE MODD_CST, ONLY : CST_t
USE MODD_PARAM_LIMA, ONLY : XRTMIN, XCTMIN
-USE MODD_PARAM_LIMA_WARM, ONLY : XLBR, XLBEXR, XLBC, XLBEXC, &
- XACCR1, XACCR3, XACCR4, XACCR5
!
IMPLICIT NONE
!
@@ -58,7 +56,6 @@ REAL, DIMENSION(SIZE(PRCT,1),SIZE(PRCT,2),SIZE(PRCT,3)) :: ZDR
!
LOGICAL, DIMENSION(SIZE(PRCT,1),SIZE(PRCT,2),SIZE(PRCT,3)) :: ZMASKR, ZMASKC
!
-REAL :: ZFACT
!
!
!
diff --git a/src/common/micro/mode_lima_graupel.F90 b/src/common/micro/mode_lima_graupel.F90
index 74f8bff5884c6363f9e4ef8fb3b7c8f30e131474..84f56e43dc2e839cde629f0c423da950d8b6064c 100644
--- a/src/common/micro/mode_lima_graupel.F90
+++ b/src/common/micro/mode_lima_graupel.F90
@@ -46,9 +46,9 @@ CONTAINS
!* 0. DECLARATIONS
! ------------
!
-USE MODD_CST, ONLY : XTT, XMD, XMV, XRD, XRV, XLVTT, XLMTT, XESTT, XCL, XCI, XCPV
+USE MODD_CST, ONLY : XTT, XMD, XMV, XRV, XLVTT, XLMTT, XESTT, XCL, XCI, XCPV
USE MODD_PARAM_LIMA, ONLY : XRTMIN, XCTMIN, XCEXVT, NMOM_H
-USE MODD_PARAM_LIMA_MIXED, ONLY : XCXG, XDG, X0DEPG, X1DEPG, NGAMINC, &
+USE MODD_PARAM_LIMA_MIXED, ONLY : XDG, X0DEPG, X1DEPG, NGAMINC, &
XFCDRYG, XFIDRYG, XCOLIG, XCOLSG, XCOLEXIG, XCOLEXSG, &
XFSDRYG, XLBSDRYG1, XLBSDRYG2, XLBSDRYG3, XKER_SDRYG, &
XFNSDRYG, XLBNSDRYG1, XLBNSDRYG2, XLBNSDRYG3, XKER_N_SDRYG, &
@@ -59,7 +59,7 @@ USE MODD_PARAM_LIMA_MIXED, ONLY : XCXG, XDG, X0DEPG, X1DEPG, NGAMINC,
XDRYINTP1R, XDRYINTP1S, XDRYINTP1G, &
XDRYINTP2R, XDRYINTP2S, XDRYINTP2G, &
NDRYLBDAR, NDRYLBDAS, NDRYLBDAG
-USE MODD_PARAM_LIMA_COLD, ONLY : XMNU0, XCXS, XBS
+USE MODD_PARAM_LIMA_COLD, ONLY : XMNU0
!
IMPLICIT NONE
!
@@ -146,8 +146,6 @@ REAL, DIMENSION(:), INTENT(INOUT) :: PA_CH
!* 0.2 Declarations of local variables :
!
LOGICAL, DIMENSION(SIZE(PRCT)) :: GDRY
-INTEGER :: IGDRY
-INTEGER :: JJ
!
REAL, DIMENSION(SIZE(PRCT)) :: Z1, Z2, Z3, Z4
REAL, DIMENSION(SIZE(PRCT)) :: ZZX, ZZW, ZZW1, ZZW2, ZZW3, ZZW4, ZZW5, ZZW6, ZZW7
diff --git a/src/common/micro/mode_lima_hail.F90 b/src/common/micro/mode_lima_hail.F90
index 8c3f23c4e6a4fa8af5200b854f2b9104f369b3c7..7c0231d89ae203c89aaedf4e014bb86e85b232ce 100644
--- a/src/common/micro/mode_lima_hail.F90
+++ b/src/common/micro/mode_lima_hail.F90
@@ -44,7 +44,7 @@ CONTAINS
!* 0. DECLARATIONS
! ------------
!
-USE MODD_CST, ONLY : XTT, XMD, XMV, XRD, XRV, XLVTT, XLMTT, XESTT, XCL, XCI, XCPV
+USE MODD_CST, ONLY : XTT, XMD, XMV, XRV, XLVTT, XLMTT, XESTT, XCL, XCI, XCPV
USE MODD_PARAM_LIMA, ONLY : XRTMIN, XCTMIN, XCEXVT
USE MODD_PARAM_LIMA_MIXED, ONLY : NWETLBDAG, XWETINTP1G, XWETINTP2G, &
NWETLBDAH, X0DEPH, X1DEPH, XDH, XEX0DEPH, XEX1DEPH, &
@@ -56,7 +56,6 @@ USE MODD_PARAM_LIMA_MIXED, ONLY : NWETLBDAG, XWETINTP1G, XWETINTP2G, &
XFGWETH, XLBGWETH1, XLBGWETH2, XLBGWETH3, &
XFNGWETH, XLBNGWETH1, XLBNGWETH2, XLBNGWETH3
-USE MODD_PARAM_LIMA_COLD, ONLY : XMNU0, XCXS, XBS
!
IMPLICIT NONE
!
@@ -134,17 +133,15 @@ REAL, DIMENSION(:), INTENT(INOUT) :: PA_CH
!* 0.2 Declarations of local variables :
!
LOGICAL, DIMENSION(SIZE(PRCT)) :: GWET
-INTEGER :: JJ
!
REAL, DIMENSION(SIZE(PRCT)) :: Z1, Z2, Z3, Z4
-REAL, DIMENSION(SIZE(PRCT)) :: ZZX, ZZW, ZZW1, ZZW2, ZZW3, ZZW4, ZZW5, ZZW6
-REAL, DIMENSION(SIZE(PRCT)) :: ZZW3N, ZZW4N, ZZW6N
+REAL, DIMENSION(SIZE(PRCT)) :: ZZW, ZZW1, ZZW2, ZZW3, ZZW4, ZZW5, ZZW6
+REAL, DIMENSION(SIZE(PRCT)) :: ZZW3N, ZZW4N
REAL, DIMENSION(SIZE(PRCT)) :: ZRWETH
!
INTEGER, DIMENSION(SIZE(PRCT)) :: IVEC1,IVEC2 ! Vectors of indices
REAL, DIMENSION(SIZE(PRCT)) :: ZVEC1,ZVEC2, ZVEC3 ! Work vectors
!
-INTEGER :: NHAIL
REAL :: ZTHRH, ZTHRC
!
!-------------------------------------------------------------------------------
diff --git a/src/common/micro/mode_lima_ice_aggregation_snow.F90 b/src/common/micro/mode_lima_ice_aggregation_snow.F90
index 03f4c10b228955877104f014612422e0374ce9d2..c442ab8b02965cbbf95a0a20709632085783b02b 100644
--- a/src/common/micro/mode_lima_ice_aggregation_snow.F90
+++ b/src/common/micro/mode_lima_ice_aggregation_snow.F90
@@ -38,8 +38,8 @@ CONTAINS
!
USE MODD_CST, ONLY : XTT
USE MODD_PARAM_LIMA, ONLY : XRTMIN, XCTMIN, XCEXVT, NMOM_I, XNUS, XALPHAS, XCEXVT
-USE MODD_PARAM_LIMA_COLD, ONLY : XBI, XCCS, XCXS, XCOLEXIS, XAGGS_CLARGE1, XAGGS_CLARGE2, &
- XAGGS_RLARGE1, XAGGS_RLARGE2, XFIAGGS, XBS, XNS, XFVELOS, XEXIAGGS
+USE MODD_PARAM_LIMA_COLD, ONLY : XBI, XCOLEXIS, XAGGS_CLARGE1, XAGGS_CLARGE2, &
+ XAGGS_RLARGE1, XAGGS_RLARGE2, XFIAGGS, XFVELOS, XEXIAGGS
!
IMPLICIT NONE
!
diff --git a/src/common/micro/mode_lima_ice_deposition.F90 b/src/common/micro/mode_lima_ice_deposition.F90
index ed7540ca238a6898c0c9c4a61ac52eaad60d2035..99ea4469cca24a3066f51ca7ee305a3558130b26 100644
--- a/src/common/micro/mode_lima_ice_deposition.F90
+++ b/src/common/micro/mode_lima_ice_deposition.F90
@@ -40,15 +40,10 @@ CONTAINS
!* 0. DECLARATIONS
! ------------
!
-USE MODD_PARAM_LIMA, ONLY : XRTMIN, XCTMIN, XALPHAI, XALPHAS, XNUI, XNUS,&
+USE MODD_PARAM_LIMA, ONLY : XRTMIN, XCTMIN, XALPHAI, XNUI, &
NMOM_I, NMOM_S
-USE MODD_PARAM_LIMA_COLD, ONLY : XCXS, XCCS, &
- XLBDAS_MAX, XDSCNVI_LIM, XLBDASCNVI_MAX, &
- XC0DEPSI, XC1DEPSI, XR0DEPSI, XR1DEPSI, &
- XSCFAC, XDICNVS_LIM, XLBDAICNVS_LIM, &
+USE MODD_PARAM_LIMA_COLD, ONLY : XDICNVS_LIM, XLBDAICNVS_LIM, &
XC0DEPIS, XC1DEPIS, XR0DEPIS, XR1DEPIS, &
- XCOLEXIS, XAGGS_CLARGE1, XAGGS_CLARGE2, &
- XAGGS_RLARGE1, XAGGS_RLARGE2, &
XDI, X0DEPI, X2DEPI
USE MODD_CST, ONLY : XTT
!
diff --git a/src/common/micro/mode_lima_init_ccn_activation_spectrum.F90 b/src/common/micro/mode_lima_init_ccn_activation_spectrum.F90
index 69c448bcea675524ccd85773c4248b7d96aeca0c..a706525749d8ca10a8ea1ab46481cc58927d683c 100644
--- a/src/common/micro/mode_lima_init_ccn_activation_spectrum.F90
+++ b/src/common/micro/mode_lima_init_ccn_activation_spectrum.F90
@@ -230,10 +230,9 @@ REAL :: PZRIDDR
!
!
INTEGER, PARAMETER :: MAXIT=60
-REAL, PARAMETER :: UNUSED=0.0 !-1.11e30
REAL :: fh,fl, fm,fnew
REAL :: s,xh,xl,xm,xnew
-INTEGER :: j, JL
+INTEGER :: j
!
PZRIDDR= 999999.
fl = DSDD(PX1,XDDRY,XKAPPA,XT)
@@ -407,7 +406,7 @@ END FUNCTION DSDD
!
integer I
real C
- real ZW, ZW2
+ real ZW
!
! print *, "X = ", X
IF ( ANY(X .LT.0.) .OR. X(1).gt.2*X(2)) THEN
diff --git a/src/common/micro/mode_lima_nucleation_procs.F90 b/src/common/micro/mode_lima_nucleation_procs.F90
index a31c5521000cfa2350ab168d422fdc63590d915e..58f9212cc92f27eeca5fb93952f8a5e476357ba9 100644
--- a/src/common/micro/mode_lima_nucleation_procs.F90
+++ b/src/common/micro/mode_lima_nucleation_procs.F90
@@ -39,9 +39,7 @@ USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
USE MODD_BUDGET, ONLY: TBUDGETDATA, TBUDGETCONF_t
USE MODD_CST, ONLY: CST_t
use modd_budget, only: NBUDGET_TH, NBUDGET_RV, NBUDGET_RC, NBUDGET_RI, NBUDGET_SV1
-!USE MODD_IO, ONLY: TFILEDATA
-USE MODD_PARAMETERS, ONLY : JPHEXT, JPVEXT
-USE MODD_NSV, ONLY : NSV_LIMA_NC, NSV_LIMA_NR, NSV_LIMA_CCN_FREE, NSV_LIMA_CCN_ACTI, &
+USE MODD_NSV, ONLY : NSV_LIMA_NC, NSV_LIMA_CCN_FREE, NSV_LIMA_CCN_ACTI, &
NSV_LIMA_NI, NSV_LIMA_IFN_FREE, NSV_LIMA_IFN_NUCL, NSV_LIMA_IMM_NUCL, NSV_LIMA_HOM_HAZE
USE MODD_PARAM_LIMA, ONLY : LNUCL, LMEYERS, LACTI, LHHONI, &
NMOD_CCN, NMOD_IFN, NMOD_IMM, XCTMIN, XRTMIN, LSPRO, NMOM_I, NMOM_C
diff --git a/src/common/micro/mode_lima_phillips_ifn_nucleation.F90 b/src/common/micro/mode_lima_phillips_ifn_nucleation.F90
index 37d4b321f11f73814c63fb5fd163bd87b9ecf614..41b8b5762cf9f83d9fbe762a21061fcfff7133ae 100644
--- a/src/common/micro/mode_lima_phillips_ifn_nucleation.F90
+++ b/src/common/micro/mode_lima_phillips_ifn_nucleation.F90
@@ -75,7 +75,7 @@ USE MODD_CST, ONLY: CST_t
USE MODD_PARAMETERS, ONLY : JPHEXT, JPVEXT
USE MODD_PARAM_LIMA, ONLY : NMOD_IFN, NSPECIE, XFRAC, &
NMOD_CCN, NMOD_IMM, NIND_SPECIE, NINDICE_CCN_IMM, &
- XDSI0, XRTMIN, XCTMIN, NPHILLIPS
+ XDSI0, NPHILLIPS
USE MODD_PARAM_LIMA_COLD, ONLY : XMNU0
use mode_tools, only: Countjv
@@ -149,7 +149,6 @@ REAL, DIMENSION(:,:), ALLOCATABLE :: ZNIT ! Nucleated Ice nuclei conc. source
!
REAL, DIMENSION(:), ALLOCATABLE &
:: ZRHODREF, & ! RHO Dry REFerence
- ZRHODJ, & ! RHO times Jacobian
ZZT, & ! Temperature
ZPRES, & ! Pressure
ZEXNREF, & ! EXNer Pressure REFerence
diff --git a/src/common/micro/mode_lima_sedimentation.F90 b/src/common/micro/mode_lima_sedimentation.F90
index dc6164d492aedbacd1aa7819285d9289d210e909..1efeb31919684052c0a3fe5ba224450e668fb0e9 100644
--- a/src/common/micro/mode_lima_sedimentation.F90
+++ b/src/common/micro/mode_lima_sedimentation.F90
@@ -47,12 +47,11 @@ CONTAINS
!
USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
USE MODD_CST, ONLY: CST_t
-USE MODD_PARAMETERS, ONLY: JPHEXT, JPVEXT
USE MODD_PARAM_LIMA, ONLY: XCEXVT, XRTMIN, XCTMIN, NSPLITSED, &
XLB, XLBEX, XD, XFSEDR, XFSEDC, &
XALPHAC, XNUC, XALPHAS, XNUS, LSNOW_T, &
NMOM_S
-USE MODD_PARAM_LIMA_COLD, ONLY: XLBEXI, XLBI, XDI, XLBDAS_MAX, XBS, XEXSEDS, &
+USE MODD_PARAM_LIMA_COLD, ONLY: XLBDAS_MAX, XBS, &
XLBDAS_MIN, XTRANS_MP_GAMMAS, XFVELOS
use mode_tools, only: Countjv
diff --git a/src/common/micro/mode_lima_snow_deposition.F90 b/src/common/micro/mode_lima_snow_deposition.F90
index 0a520c063aa1e96b4c6631a836ab3c4470b62023..c45153e9e817098e2f0dbaebdd43829dd08efaf2 100644
--- a/src/common/micro/mode_lima_snow_deposition.F90
+++ b/src/common/micro/mode_lima_snow_deposition.F90
@@ -42,15 +42,11 @@ CONTAINS
!* 0. DECLARATIONS
! ------------
!
-USE MODD_PARAM_LIMA, ONLY : XRTMIN, XCTMIN, XALPHAI, XALPHAS, XNUI, XNUS, NMOM_I
-USE MODD_PARAM_LIMA_COLD, ONLY : XNS,XBS, &
- XLBDAS_MAX, XDSCNVI_LIM, XLBDASCNVI_MAX, &
+USE MODD_PARAM_LIMA, ONLY : XRTMIN, XCTMIN, XALPHAS, XNUS, NMOM_I
+USE MODD_PARAM_LIMA_COLD, ONLY : XDSCNVI_LIM, XLBDASCNVI_MAX, &
XC0DEPSI, XC1DEPSI, XR0DEPSI, XR1DEPSI, &
- XSCFAC, X1DEPS, X0DEPS, XEX1DEPS, XEX0DEPS, &
- XDICNVS_LIM, XLBDAICNVS_LIM, &
- XC0DEPIS, XC1DEPIS, XR0DEPIS, XR1DEPIS, &
- XCOLEXIS, XAGGS_CLARGE1, XAGGS_CLARGE2, &
- XAGGS_RLARGE1, XAGGS_RLARGE2, XFVELOS
+ X1DEPS, X0DEPS, XEX1DEPS, XEX0DEPS, &
+ XFVELOS
!
IMPLICIT NONE
diff --git a/src/common/micro/mode_lima_snow_self_collection.F90 b/src/common/micro/mode_lima_snow_self_collection.F90
index 50339a87f9cfab882ee4e4ea81fea509d1aebfd2..1a3bdb581aedd1a875c96665989f8f6c1747a220 100644
--- a/src/common/micro/mode_lima_snow_self_collection.F90
+++ b/src/common/micro/mode_lima_snow_self_collection.F90
@@ -61,8 +61,8 @@ REAL, DIMENSION(SIZE(PCST)) :: &
ZW2
LOGICAL, DIMENSION(SIZE(PCST)) :: GSSC
INTEGER :: IGSSC, JJ
-INTEGER, DIMENSION(:), ALLOCATABLE :: IVEC1,IVEC2 ! Vectors of indices
-REAL, DIMENSION(:), ALLOCATABLE :: ZVEC1,ZVEC2, ZVEC3 ! Work vectors
+INTEGER, DIMENSION(:), ALLOCATABLE :: IVEC1 ! Vectors of indices
+REAL, DIMENSION(:), ALLOCATABLE :: ZVEC1, ZVEC3 ! Work vectors
!
!-------------------------------------------------------------------------------
!
diff --git a/src/common/micro/mode_lima_tendencies.F90 b/src/common/micro/mode_lima_tendencies.F90
index d25250bcc03b6020789d727a7b4d915fce8ef20c..cbfde662f9a2a3c67c487e313b5199da0dd7ebc1 100644
--- a/src/common/micro/mode_lima_tendencies.F90
+++ b/src/common/micro/mode_lima_tendencies.F90
@@ -72,13 +72,12 @@ CONTAINS
!
USE MODD_CST, ONLY : XP00, XRD, XRV, XMD, XMV, XCPD, XCPV, XCL, XCI, XLVTT, XLSTT, XTT, &
XALPW, XBETAW, XGAMW, XALPI, XBETAI, XGAMI
-USE MODD_PARAM_LIMA, ONLY : XRTMIN, XCTMIN, XNUS, LCIBU, LRDSF, &
- LNUCL, LACTI, LKHKO, LSNOW_T, &
+USE MODD_PARAM_LIMA, ONLY : XRTMIN, XCTMIN, LCIBU, LRDSF, LKHKO, LSNOW_T, &
NMOM_C, NMOM_R, NMOM_I, NMOM_S, NMOM_G, NMOM_H
USE MODD_PARAM_LIMA_WARM, ONLY : XLBC, XLBEXC, XLBR, XLBEXR, XCCR, XCXR
-USE MODD_PARAM_LIMA_MIXED, ONLY : XLBG, XLBEXG, XCCG, XCXG, XLBH, XLBEXH, XCCH, XCXH, XLBDAG_MAX
+USE MODD_PARAM_LIMA_MIXED, ONLY : XLBG, XLBEXG, XCCG, XCXG, XLBH, XLBEXH, XCCH, XCXH
USE MODD_PARAM_LIMA_COLD, ONLY : XSCFAC, XLBI, XLBEXI, XLBS, XLBEXS, XLBDAS_MAX, XTRANS_MP_GAMMAS, &
- XFVELOS, XLBDAS_MIN, XCCS, XCXS, XBS, XNS
+ XLBDAS_MIN, XCCS, XCXS, XBS, XNS
!
USE MODE_LIMA_DROPLETS_HOM_FREEZING, ONLY: LIMA_DROPLETS_HOM_FREEZING
USE MODE_LIMA_DROPLETS_SELF_COLLECTION, ONLY: LIMA_DROPLETS_SELF_COLLECTION
diff --git a/src/common/micro/mode_qsatmx_tab.F90 b/src/common/micro/mode_qsatmx_tab.F90
index 01d697b19bdeeb1cc011c4826e8c37da037cb944..9e2c333735104e66e635cd3c205db2623b2f6994 100644
--- a/src/common/micro/mode_qsatmx_tab.F90
+++ b/src/common/micro/mode_qsatmx_tab.F90
@@ -3,7 +3,6 @@ IMPLICIT NONE
CONTAINS
FUNCTION QSATMX_TAB(P,T,FICE)
- USE PARKIND1, ONLY : JPRB
USE MODD_CST ,ONLY : XEPSILO
USE MODE_TIWMX, ONLY : ESATI,ESATW
diff --git a/src/common/micro/mode_rain_ice_old_fast_rg.F90 b/src/common/micro/mode_rain_ice_old_fast_rg.F90
index 77c17fac252bb67ee7a8d99a274d7153762e5097..a18241de170fbc2937d00cf36a449c63eafc6f84 100644
--- a/src/common/micro/mode_rain_ice_old_fast_rg.F90
+++ b/src/common/micro/mode_rain_ice_old_fast_rg.F90
@@ -29,7 +29,7 @@ MODULE MODE_RAIN_ICE_OLD_FAST_RG
USE MODD_RAIN_ICE_DESCR_n, ONLY: RAIN_ICE_DESCR_T
USE MODE_BUDGET_PHY, ONLY: BUDGET_STORE_INIT_PHY, BUDGET_STORE_END_PHY
- USE MODD_BUDGET, ONLY: TBUDGETDATA, TBUDGETCONF_t, LBU_ENABLE, NBUDGET_TH, NBUDGET_RG, NBUDGET_RR, NBUDGET_RC, &
+ USE MODD_BUDGET, ONLY: TBUDGETDATA, TBUDGETCONF_t, NBUDGET_TH, NBUDGET_RG, NBUDGET_RR, NBUDGET_RC, &
NBUDGET_RI, NBUDGET_RS, NBUDGET_RH
IMPLICIT NONE
diff --git a/src/common/micro/mode_rain_ice_old_fast_rh.F90 b/src/common/micro/mode_rain_ice_old_fast_rh.F90
index 838e8526ab2a7f7b5526af9524bd9bf8aa5a767d..6d9348523492dbe7cbeb4a1979692bf5ce09519f 100644
--- a/src/common/micro/mode_rain_ice_old_fast_rh.F90
+++ b/src/common/micro/mode_rain_ice_old_fast_rh.F90
@@ -29,7 +29,7 @@ MODULE MODE_RAIN_ICE_OLD_FAST_RH
USE MODD_RAIN_ICE_DESCR_n, ONLY: RAIN_ICE_DESCR_T
USE MODE_BUDGET_PHY, ONLY: BUDGET_STORE_INIT_PHY, BUDGET_STORE_END_PHY
- USE MODD_BUDGET, ONLY: TBUDGETDATA, TBUDGETCONF_t, LBU_ENABLE, NBUDGET_TH, NBUDGET_RG, NBUDGET_RR, NBUDGET_RC, &
+ USE MODD_BUDGET, ONLY: TBUDGETDATA, TBUDGETCONF_t, NBUDGET_TH, NBUDGET_RG, NBUDGET_RR, NBUDGET_RC, &
NBUDGET_RI, NBUDGET_RS, NBUDGET_RH
IMPLICIT NONE
diff --git a/src/common/micro/mode_rain_ice_old_fast_ri.F90 b/src/common/micro/mode_rain_ice_old_fast_ri.F90
index ad746a45d2f54e6705a82084a3cc6f24eb6fb7e5..776aa0080a4c7329babb5e7862f41c53448499cc 100644
--- a/src/common/micro/mode_rain_ice_old_fast_ri.F90
+++ b/src/common/micro/mode_rain_ice_old_fast_ri.F90
@@ -35,7 +35,7 @@ MODULE MODE_RAIN_ICE_OLD_FAST_RI
USE MODE_BUDGET_PHY, ONLY: BUDGET_STORE_INIT_PHY, BUDGET_STORE_END_PHY
USE MODD_BUDGET, ONLY: TBUDGETDATA, TBUDGETCONF_t, &
- LBU_ENABLE, NBUDGET_TH, NBUDGET_RC, NBUDGET_RI
+ NBUDGET_TH, NBUDGET_RC, NBUDGET_RI
IMPLICIT NONE
@@ -104,7 +104,7 @@ MODULE MODE_RAIN_ICE_OLD_FAST_RI
REAL :: ZQIMAX
REAL :: ZHU
- INTEGER :: JJ, JK, JL
+ INTEGER :: JK, JL
REAL(KIND=JPRB) :: ZHOOK_HANDLE
!
diff --git a/src/common/micro/mode_rain_ice_old_fast_rs.F90 b/src/common/micro/mode_rain_ice_old_fast_rs.F90
index 82ddf721d67506307012e0f7bfe8032d309161eb..4cba8e31b7b4a82e999bd97db5fc76b49017d882 100644
--- a/src/common/micro/mode_rain_ice_old_fast_rs.F90
+++ b/src/common/micro/mode_rain_ice_old_fast_rs.F90
@@ -28,7 +28,7 @@ MODULE MODE_RAIN_ICE_OLD_FAST_RS
USE MODE_BUDGET_PHY, ONLY: BUDGET_STORE_INIT_PHY, BUDGET_STORE_END_PHY
USE MODD_BUDGET, ONLY: TBUDGETDATA, TBUDGETCONF_t, &
- LBU_ENABLE, NBUDGET_TH, NBUDGET_RG, NBUDGET_RR, NBUDGET_RC, NBUDGET_RS
+ NBUDGET_TH, NBUDGET_RG, NBUDGET_RR, NBUDGET_RC, NBUDGET_RS
IMPLICIT NONE
diff --git a/src/common/micro/mode_rain_ice_old_sedimentation_stat.F90 b/src/common/micro/mode_rain_ice_old_sedimentation_stat.F90
index 9b452f28d60de5536fe1d373ce54694e0b2e6aa8..44a4f3062bc2c26e25e5be3bffd0fa61ba9a8572 100644
--- a/src/common/micro/mode_rain_ice_old_sedimentation_stat.F90
+++ b/src/common/micro/mode_rain_ice_old_sedimentation_stat.F90
@@ -85,7 +85,7 @@ MODULE MODE_RAIN_ICE_OLD_SEDIMENTATION_STAT
REAL, DIMENSION(SIZE(PRHODREF,1)) :: ZQP
INTEGER :: JI,JK
INTEGER :: JCOUNT, JL
- INTEGER, DIMENSION(SIZE(PRHODREF,1)*SIZE(PRHODREF,2)) :: I1, I2
+ INTEGER, DIMENSION(SIZE(PRHODREF,1)*SIZE(PRHODREF,2)) :: I1
REAL, DIMENSION(D%NIT,D%NKT) :: ZPRCS, ZPRRS, ZPRSS, ZPRGS, ZPRHS ! Mixing ratios created during the time step
diff --git a/src/common/micro/mode_rain_ice_old_slow.F90 b/src/common/micro/mode_rain_ice_old_slow.F90
index c96f8c34b64d571d16584c72a12dc30a8d24d875..984b80124407277c6af698b6d0dcf861d9f08160 100644
--- a/src/common/micro/mode_rain_ice_old_slow.F90
+++ b/src/common/micro/mode_rain_ice_old_slow.F90
@@ -32,7 +32,7 @@ MODULE MODE_RAIN_ICE_OLD_SLOW
USE MODE_BUDGET_PHY, ONLY: BUDGET_STORE_INIT_PHY, BUDGET_STORE_END_PHY
- USE MODD_BUDGET, ONLY: TBUDGETDATA, TBUDGETCONF_t, LBU_ENABLE, NBUDGET_TH, NBUDGET_RG, NBUDGET_RR, NBUDGET_RC, &
+ USE MODD_BUDGET, ONLY: TBUDGETDATA, TBUDGETCONF_t, NBUDGET_TH, NBUDGET_RG, NBUDGET_RR, NBUDGET_RC, &
NBUDGET_RI, NBUDGET_RS, NBUDGET_RV
USE MODE_RAIN_ICE_OLD_ICENUMBER2, ONLY: ICENUMBER2
diff --git a/src/common/micro/mode_rain_ice_old_warm.F90 b/src/common/micro/mode_rain_ice_old_warm.F90
index b65a822211546ca4afd5e382fdf8c06b5f40a5b7..8b1d1520e26f45b115cbd64bdf2ebb72f62ea146 100644
--- a/src/common/micro/mode_rain_ice_old_warm.F90
+++ b/src/common/micro/mode_rain_ice_old_warm.F90
@@ -35,7 +35,7 @@ MODULE MODE_RAIN_ICE_OLD_WARM
USE MODE_BUDGET_PHY, ONLY: BUDGET_STORE_INIT_PHY, BUDGET_STORE_END_PHY
USE MODD_BUDGET, ONLY: TBUDGETDATA, TBUDGETCONF_t, &
- LBU_ENABLE, NBUDGET_TH, NBUDGET_RR, NBUDGET_RC, NBUDGET_RV
+ NBUDGET_TH, NBUDGET_RR, NBUDGET_RC, NBUDGET_RV
IMPLICIT NONE
diff --git a/src/common/micro/mode_set_conc_lima.F90 b/src/common/micro/mode_set_conc_lima.F90
index 39995cd4b5b70d2ad8ba5597192a495e8e8cb988..c7ffbfc6efe0b98ed56b2e9907e33e2645007642 100644
--- a/src/common/micro/mode_set_conc_lima.F90
+++ b/src/common/micro/mode_set_conc_lima.F90
@@ -73,15 +73,13 @@ contains
!* 0. DECLARATIONS
! ------------
!
-USE MODD_PARAM_LIMA, ONLY : XRTMIN, XCTMIN, NMOD_CCN, NMOD_IFN, &
+USE MODD_PARAM_LIMA, ONLY : NMOD_CCN, NMOD_IFN, &
NMOM_C, NMOM_R, NMOM_I
-USE MODD_PARAM_LIMA_COLD, ONLY : XAI, XBI, XAS, XBS
+USE MODD_PARAM_LIMA_COLD, ONLY : XAS, XBS
USE MODD_PARAM_LIMA_MIXED,ONLY : XAG, XBG, XAH, XBH
-USE MODD_NSV, ONLY : NSV_LIMA_BEG_A, NSV_LIMA_NC_A, NSV_LIMA_NR_A, NSV_LIMA_CCN_ACTI_A, &
- NSV_LIMA_NI_A, NSV_LIMA_NS_A, NSV_LIMA_NG_A, NSV_LIMA_NH_A, NSV_LIMA_IFN_NUCL_A, &
- NSV_LIMA_BEG, NSV_LIMA_NC, NSV_LIMA_NR, NSV_LIMA_CCN_ACTI, &
+USE MODD_NSV, ONLY : NSV_LIMA_BEG, NSV_LIMA_NC, NSV_LIMA_NR, NSV_LIMA_CCN_ACTI, &
NSV_LIMA_NI, NSV_LIMA_NS, NSV_LIMA_NG, NSV_LIMA_NH, NSV_LIMA_IFN_NUCL
-USE MODD_CST, ONLY : XPI, XRHOLW, XRHOLI
+USE MODD_CST, ONLY : XPI, XRHOLW
!
IMPLICIT NONE
!
diff --git a/src/common/micro/rain_ice.F90 b/src/common/micro/rain_ice.F90
index 4e47e20cdc7763505308b21046ac309955321fa7..6f413b6acbb8efc5796a108851b1c28157a62d22 100644
--- a/src/common/micro/rain_ice.F90
+++ b/src/common/micro/rain_ice.F90
@@ -186,7 +186,6 @@ USE MODD_CST, ONLY: CST_t
USE MODD_PARAM_ICE_n, ONLY: PARAM_ICE_t
USE MODD_RAIN_ICE_DESCR_n, ONLY: RAIN_ICE_DESCR_t
USE MODD_RAIN_ICE_PARAM_n, ONLY: RAIN_ICE_PARAM_t
-USE MODD_TURB_n, ONLY: TURB_t
USE MODD_FIELDS_ADDRESS, ONLY : & ! common fields adress
& ITH, & ! Potential temperature
& IRV, & ! Water vapor
@@ -197,10 +196,10 @@ USE MODD_FIELDS_ADDRESS, ONLY : & ! common fields adress
& IRG, & ! Graupel
& IRH ! Hail
-USE MODE_BUDGET_PHY, ONLY: BUDGET_STORE_ADD_PHY, BUDGET_STORE_INIT_PHY, BUDGET_STORE_END_PHY
-USE MODE_MSG, ONLY: PRINT_MSG, NVERB_FATAL
+USE MODE_BUDGET_PHY, ONLY: BUDGET_STORE_INIT_PHY, BUDGET_STORE_END_PHY
+USE MODE_MSG, ONLY: PRINT_MSG, NVERB_FATAL
-USE MODE_ICE4_RAINFR_VERT, ONLY: ICE4_RAINFR_VERT
+USE MODE_ICE4_RAINFR_VERT, ONLY: ICE4_RAINFR_VERT
USE MODE_ICE4_SEDIMENTATION, ONLY: ICE4_SEDIMENTATION
USE MODE_ICE4_PACK, ONLY: ICE4_PACK
USE MODE_ICE4_NUCLEATION, ONLY: ICE4_NUCLEATION
diff --git a/src/common/micro/rain_ice_old.F90 b/src/common/micro/rain_ice_old.F90
index 10e830dc31f81b18c041ad4ec42db8effde81214..6db99a7779d3fe1994d27741263f8956a804048b 100644
--- a/src/common/micro/rain_ice_old.F90
+++ b/src/common/micro/rain_ice_old.F90
@@ -180,7 +180,6 @@ USE MODD_LES, ONLY: TLES
USE MODE_BUDGET_PHY, ONLY: BUDGET_STORE_ADD_PHY, BUDGET_STORE_INIT_PHY, BUDGET_STORE_END_PHY
USE MODI_GAMMA, ONLY: GAMMA
USE MODE_TIWMX, ONLY: ESATI, ESATW, AA2, BB3, AA2W, BB3W
-USE MODE_ICECLOUD, ONLY: ICECLOUD
USE MODE_TIWMX_TAB, ONLY: TIWMX_TAB
!
USE MODE_RAIN_ICE_OLD_NUCLEATION, ONLY: RAIN_ICE_OLD_NUCLEATION
@@ -193,7 +192,6 @@ USE MODE_RAIN_ICE_OLD_FAST_RG, ONLY: RAIN_ICE_OLD_FAST_RG
USE MODE_RAIN_ICE_OLD_FAST_RH, ONLY: RAIN_ICE_OLD_FAST_RH
USE MODE_RAIN_ICE_OLD_FAST_RI, ONLY: RAIN_ICE_OLD_FAST_RI
-use iso_fortran_env, only: output_unit
IMPLICIT NONE
!
@@ -282,14 +280,11 @@ REAL, DIMENSION(D%NIT,D%NKT,KRR), OPTIONAL, INTENT(OUT) :: PFPR ! upper-air p
!* 0.2 Declarations of local variables :
!
INTEGER :: JK ! Vertical loop index for the rain sedimentation
-INTEGER :: JJ ! Loop index for the interpolation
INTEGER :: JI ! Loop index for the interpolation
INTEGER :: IKB !
INTEGER :: IKE !
!
INTEGER :: IMICRO ! Case number of sedimentation, T>0 (for HEN) and r_x>0 locations
-LOGICAL, DIMENSION(D%NIT,D%NKT) :: GNEGT ! Test where to compute the HEN process
- ! interpolations
REAL, DIMENSION(D%NIT,D%NKT) :: ZW ! work array
REAL, DIMENSION(D%NIT) :: ZCONC_TMP ! Weighted concentration
REAL, DIMENSION(D%NIT,D%NKT) :: ZT ! Temperature
diff --git a/src/common/turb/modd_param_mfshalln.F90 b/src/common/turb/modd_param_mfshalln.F90
index 05e586f47d3c73d86e00a1fb01b0c4fd055fb942..d946794f87a0f68585b130bae751b2e40a74e0d4 100644
--- a/src/common/turb/modd_param_mfshalln.F90
+++ b/src/common/turb/modd_param_mfshalln.F90
@@ -212,8 +212,7 @@ SUBROUTINE PARAM_MFSHALLN_INIT(HPROGRAM, KUNITNML, LDNEEDNAM, KLUOUT, &
! ---------------
!
USE MODE_POSNAM_PHY, ONLY: POSNAM_PHY
-USE MODE_MSG, ONLY: PRINT_MSG, NVERB_FATAL
-USE MODE_CHECK_NAM_VAL, ONLY: CHECK_NAM_VAL_CHAR, CHECK_NAM_VAL_REAL, CHECK_NAM_VAL_INT
+USE MODE_CHECK_NAM_VAL, ONLY: CHECK_NAM_VAL_CHAR
!
IMPLICIT NONE
!
diff --git a/src/common/turb/modd_turbn.F90 b/src/common/turb/modd_turbn.F90
index 3cf66c444e04955f9cede89b85d4d21f78a0fba5..58145676730acb5057d7b64792717220d075fb59 100644
--- a/src/common/turb/modd_turbn.F90
+++ b/src/common/turb/modd_turbn.F90
@@ -260,8 +260,7 @@ SUBROUTINE TURBN_INIT(HPROGRAM, KUNITNML, LDNEEDNAM, KLUOUT, &
! ---------------
!
USE MODE_POSNAM_PHY, ONLY: POSNAM_PHY
-USE MODE_MSG, ONLY: PRINT_MSG, NVERB_FATAL
-USE MODE_CHECK_NAM_VAL, ONLY: CHECK_NAM_VAL_CHAR, CHECK_NAM_VAL_REAL, CHECK_NAM_VAL_INT
+USE MODE_CHECK_NAM_VAL, ONLY: CHECK_NAM_VAL_CHAR
USE MODD_PARAMETERS, ONLY: XUNDEF
!
IMPLICIT NONE
diff --git a/src/common/turb/mode_bl89.F90 b/src/common/turb/mode_bl89.F90
index 72c752c074d8a49d07a13550181ab8899640740a..13bed023bd31271be6b28425d85e1754b9a583a5 100644
--- a/src/common/turb/mode_bl89.F90
+++ b/src/common/turb/mode_bl89.F90
@@ -60,7 +60,6 @@ USE MODD_CST, ONLY: CST_t
USE MODD_CTURB, ONLY: CSTURB_t
USE MODD_TURB_n, ONLY: TURB_t
USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
-USE MODD_PARAMETERS, ONLY: JPVEXT_TURB
USE MODD_PRECISION, ONLY: MNHREAL
!
!
diff --git a/src/common/turb/mode_compute_updraft_raha.F90 b/src/common/turb/mode_compute_updraft_raha.F90
index e87194468cf524abdf9f6ceb8194639b7eac2b5c..4914be2aedc14ed0423c51d72f31d7d0806b00c1 100644
--- a/src/common/turb/mode_compute_updraft_raha.F90
+++ b/src/common/turb/mode_compute_updraft_raha.F90
@@ -122,18 +122,13 @@ REAL, DIMENSION(D%NIJT), INTENT(OUT) :: PDEPTH ! Deepness of clo
!
!
! Mean environment variables at t-dt at flux point
-REAL, DIMENSION(D%NIJT,D%NKT) :: ZTHM_F,ZRVM_F,ZRCM_F ! Theta,rv of
- ! updraft environnement
+REAL, DIMENSION(D%NIJT,D%NKT) :: ZTHM_F,ZRVM_F ! Theta,rv of updraft environnement
REAL, DIMENSION(D%NIJT,D%NKT) :: ZRTM_F, ZTHLM_F, ZTKEM_F ! rt, thetal,TKE,pressure,
REAL, DIMENSION(D%NIJT,D%NKT) :: ZUM_F,ZVM_F,ZRHO_F ! density,momentum
REAL, DIMENSION(D%NIJT,D%NKT) :: ZPRES_F,ZTHVM_F,ZTHVM ! interpolated at the flux point
REAL, DIMENSION(D%NIJT,D%NKT) :: ZG_O_THVREF ! g*ThetaV ref
REAL, DIMENSION(D%NIJT,D%NKT) :: ZW_UP2 ! w**2 of the updraft
-REAL, DIMENSION(D%NIJT,D%NKT,KSV) :: ZSVM_F ! scalar variables
-
-
-
REAL, DIMENSION(D%NIJT,D%NKT) :: ZTH_UP ! updraft THETA
REAL, DIMENSION(D%NIJT) :: ZT_UP ! updraft T
REAL, DIMENSION(D%NIJT) :: ZLVOCPEXN ! updraft L
@@ -143,35 +138,26 @@ REAL, DIMENSION(D%NIJT,D%NKT) :: ZTHS_UP,ZTHSM
REAL, DIMENSION(D%NIJT,D%NKT) :: ZCOEF ! diminution coefficient for too high clouds
-REAL, DIMENSION(D%NIJT) :: ZWTHVSURF ! Surface w'thetav'
-
REAL :: ZRDORV ! RD/RV
REAL :: ZRVORD ! RV/RD
REAL, DIMENSION(D%NIJT) :: ZMIX1,ZMIX2,ZMIX3
-REAL, DIMENSION(D%NIJT) :: ZLUP ! Upward Mixing length from the ground
-
-REAL, DIMENSION(D%NIJT) :: ZDEPTH ! Deepness limit for cloud
-INTEGER :: JK,JIJ,JSV ! loop counters
+INTEGER :: JK,JIJ ! loop counters
INTEGER :: IIJB,IIJE ! physical horizontal domain indices
INTEGEr :: IKT,IKB,IKE,IKL
LOGICAL, DIMENSION(D%NIJT) :: GTEST,GTESTLCL,GTESTETL
! Test if the ascent continue, if LCL or ETL is reached
-LOGICAL :: GLMIX
- ! To choose upward or downward mixing length
LOGICAL, DIMENSION(D%NIJT) :: GWORK1
LOGICAL, DIMENSION(D%NIJT,D%NKT) :: GWORK2
-INTEGER :: ITEST
-REAL, DIMENSION(D%NIJT) :: ZRC_UP, ZRI_UP, ZRV_UP, ZWP2, ZRSATW, ZRSATI
+REAL, DIMENSION(D%NIJT) :: ZRC_UP, ZRI_UP, ZRV_UP, ZRSATW, ZRSATI
-LOGICAL, DIMENSION(D%NIJT) :: GTEST_FER
REAL, DIMENSION(D%NIJT) :: ZPHI,ZALIM_STAR_TOT
REAL, DIMENSION(D%NIJT,D%NKT) :: ZDTHETASDZ,ZALIM_STAR,ZZDZ,ZZZ
INTEGER, DIMENSION(D%NIJT) :: IALIM
@@ -181,7 +167,7 @@ REAL, DIMENSION(D%NIJT) :: ZCOE,ZWCOE,ZBUCOE
REAL, DIMENSION(D%NIJT) :: ZDETR_BUO, ZDETR_RT
REAL, DIMENSION(D%NIJT) :: ZW_MAX ! w**2 max of the updraft
REAL, DIMENSION(D%NIJT) :: ZZTOP ! Top of the updraft
-REAL, DIMENSION(D%NIJT) :: ZA,ZB,ZQTM,ZQT_UP
+REAL, DIMENSION(D%NIJT) :: ZQTM,ZQT_UP
REAL :: ZDEPTH_MAX1, ZDEPTH_MAX2 ! control auto-extinction process
diff --git a/src/common/turb/mode_compute_updraft_rhcj10.F90 b/src/common/turb/mode_compute_updraft_rhcj10.F90
index 4d1a51e6415e8e20890a6fe1ad5fe77894745d7e..aa87a5bcc8ca2e59ff4cff4b0aac497881d16248 100644
--- a/src/common/turb/mode_compute_updraft_rhcj10.F90
+++ b/src/common/turb/mode_compute_updraft_rhcj10.F90
@@ -138,10 +138,6 @@ REAL, DIMENSION(D%NIJT,D%NKT) :: ZPRES_F,ZTHVM_F ! interpolated at
REAL, DIMENSION(D%NIJT,D%NKT) :: ZG_O_THVREF ! g*ThetaV ref
REAL, DIMENSION(D%NIJT,D%NKT) :: ZW_UP2 ! w**2 of the updraft
-REAL, DIMENSION(D%NIJT,D%NKT,KSV) :: ZSVM_F ! scalar variables
-
-
-
REAL, DIMENSION(D%NIJT,D%NKT) :: ZTH_UP ! updraft THETA
!REAL, DIMENSION(SIZE(PTHM,1)) :: ZT_UP ! updraft T
!REAL, DIMENSION(SIZE(PTHM,1)) :: ZLVOCPEXN ! updraft L
@@ -160,7 +156,7 @@ REAL, DIMENSION(D%NIJT) :: ZMIX1,ZMIX2
REAL, DIMENSION(D%NIJT) :: ZLUP ! Upward Mixing length from the ground
-INTEGER :: JK,JIJ,JSV ! loop counters
+INTEGER :: JK,JIJ ! loop counters
INTEGER :: IIJB,IIJE ! physical horizontal domain indices
INTEGER :: IKT,IKB,IKE,IKL
LOGICAL, DIMENSION(D%NIJT) :: GTEST,GTESTLCL
@@ -170,8 +166,6 @@ LOGICAL :: GLMIX
LOGICAL, DIMENSION(D%NIJT) :: GWORK1
LOGICAL, DIMENSION(D%NIJT,D%NKT) :: GWORK2
-INTEGER :: ITEST
-
REAL, DIMENSION(D%NIJT) :: ZRC_UP, ZRI_UP, ZRV_UP, ZRSATW, ZRSATI
REAL, DIMENSION(D%NIJT,D%NKT) :: ZZDZ
diff --git a/src/common/turb/mode_ibm_mixinglength.F90 b/src/common/turb/mode_ibm_mixinglength.F90
index 94fb3cf9e9480a7e1953f624085dd1c7dda45fed..c1fc1a51aa5c3cc8cd35a58d7c87d298b8d2d0c9 100644
--- a/src/common/turb/mode_ibm_mixinglength.F90
+++ b/src/common/turb/mode_ibm_mixinglength.F90
@@ -58,8 +58,6 @@ SUBROUTINE IBM_MIXINGLENGTH(D,PLM,PLEPS,PMU,PHI,PTKE)
REAL, DIMENSION(D%NIT,D%NJT,D%NKT), INTENT(OUT) :: PMU
REAL, DIMENSION(D%NIT,D%NJT,D%NKT), INTENT(IN) :: PHI
REAL, DIMENSION(D%NIT,D%NJT,D%NKT), INTENT(IN) :: PTKE
- REAL, DIMENSION(D%NIT,D%NJT,D%NKT) :: ZALPHA,ZBETA
- REAL, DIMENSION(D%NIT,D%NJT,D%NKT) :: ZLM,ZMU,ZLN
!
! IBM CAN NOT BE USED WITH AROME
!
diff --git a/src/common/turb/mode_prandtl.F90 b/src/common/turb/mode_prandtl.F90
index 5cd31ef51bca042422da7dcdc1c026676a1b1870..2a0039c57bf7b92c4524e4b5668b543f1eac46fe 100644
--- a/src/common/turb/mode_prandtl.F90
+++ b/src/common/turb/mode_prandtl.F90
@@ -151,7 +151,6 @@ USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
USE MODD_FIELD, ONLY: TFIELDMETADATA, TYPEREAL
USE MODD_TURB_n, ONLY: TURB_t
USE MODD_IO, ONLY: TFILEDATA
-USE MODD_PARAMETERS, ONLY: JPVEXT_TURB
!
USE MODE_EMOIST, ONLY: EMOIST
USE MODE_ETHETA, ONLY: ETHETA
@@ -220,9 +219,9 @@ REAL, DIMENSION(D%NIJT,D%NKT), INTENT(OUT) :: PEMOIST ! coefficient E_moist
! 0.2 declaration of local variables
!
REAL, DIMENSION(D%NIJT,D%NKT) :: &
- ZW1, ZW2, ZW3, &
+ ZW1, ZW2, &
! working variables
- ZWORK1,ZWORK2,ZWORK3,ZWORK4, ZWORK5, ZWORK6,ZWORK7, &
+ ZWORK1,ZWORK2,ZWORK3,ZWORK4, &
ZGXMM_PTH,ZGYMM_PTH,ZGXMM_PRM,ZGYMM_PRM, ZGXMM_PSV,ZGYMM_PSV
! working variables for explicit array
!
@@ -231,7 +230,6 @@ INTEGER :: IKE ! vertical index value for the last inner mass point
INTEGER:: JSV,JIJ,JK ! loop index
INTEGER :: IIJB,IIJE,IKT,IKA,IKL
-INTEGER :: JLOOP
REAL :: ZMINVAL
TYPE(TFIELDMETADATA) :: TZFIELD
! ---------------------------------------------------------------------------
diff --git a/src/common/turb/mode_sbl.F90 b/src/common/turb/mode_sbl.F90
index 6ae740a9bc0096baf346a1dd879ddd27f0ef152a..b5761ea72facaedd6b8d1037ef9b8f925c725824 100644
--- a/src/common/turb/mode_sbl.F90
+++ b/src/common/turb/mode_sbl.F90
@@ -299,7 +299,7 @@ END SUBROUTINE PAULSON_PSIM_0D
!
SUBROUTINE LMO_2D(PUSTAR,PTHETA,PRV,PSFTH,PSFRV,LMO2D)
USE MODD_CST
- USE MODD_PARAMETERS, ONLY: JPVEXT_TURB,XUNDEF
+ USE MODD_PARAMETERS, ONLY: XUNDEF
REAL, DIMENSION(:,:), INTENT(IN) :: PUSTAR
REAL, DIMENSION(:,:), INTENT(IN) :: PTHETA
REAL, DIMENSION(:,:), INTENT(IN) :: PRV
@@ -330,7 +330,7 @@ END SUBROUTINE LMO_2D
!
SUBROUTINE LMO_1D(PUSTAR,PTHETA,PRV,PSFTH,PSFRV,LMO1D)
USE MODD_CST
- USE MODD_PARAMETERS, ONLY: JPVEXT_TURB,XUNDEF
+ USE MODD_PARAMETERS, ONLY: XUNDEF
REAL, DIMENSION(:), INTENT(IN) :: PUSTAR
REAL, DIMENSION(:), INTENT(IN) :: PTHETA
REAL, DIMENSION(:), INTENT(IN) :: PRV
@@ -360,7 +360,7 @@ END SUBROUTINE LMO_1D
!
SUBROUTINE LMO_0D(PUSTAR,PTHETA,PRV,PSFTH,PSFRV,LMO0D)
USE MODD_CST
- USE MODD_PARAMETERS, ONLY: JPVEXT_TURB,XUNDEF
+ USE MODD_PARAMETERS, ONLY: XUNDEF
REAL, INTENT(IN) :: PUSTAR
REAL, INTENT(IN) :: PTHETA
REAL, INTENT(IN) :: PRV
@@ -392,7 +392,7 @@ END SUBROUTINE LMO_0D
!
SUBROUTINE USTAR_2D(PU,PV,PZ,PZ0,PLMO,USTAR2D)
USE MODD_CST
- USE MODD_PARAMETERS, ONLY: JPVEXT_TURB,XUNDEF
+ USE MODD_PARAMETERS, ONLY: XUNDEF
REAL, DIMENSION(:,:), INTENT(IN) :: PU
REAL, DIMENSION(:,:), INTENT(IN) :: PV
REAL, DIMENSION(:,:), INTENT(IN) :: PZ
@@ -436,7 +436,7 @@ END SUBROUTINE USTAR_2D
!
SUBROUTINE USTAR_1D(PU,PV,PZ,PZ0,PLMO,USTAR1D)
USE MODD_CST
- USE MODD_PARAMETERS, ONLY: JPVEXT_TURB,XUNDEF
+ USE MODD_PARAMETERS, ONLY: XUNDEF
REAL, DIMENSION(:), INTENT(IN) :: PU
REAL, DIMENSION(:), INTENT(IN) :: PV
REAL, DIMENSION(:), INTENT(IN) :: PZ
@@ -480,7 +480,7 @@ END SUBROUTINE USTAR_1D
!
SUBROUTINE USTAR_0D(PU,PV,PZ,PZ0,PLMO,USTAR0D)
USE MODD_CST
- USE MODD_PARAMETERS, ONLY: JPVEXT_TURB,XUNDEF
+ USE MODD_PARAMETERS, ONLY: XUNDEF
REAL, INTENT(IN) :: PU
REAL, INTENT(IN) :: PV
REAL, INTENT(IN) :: PZ
diff --git a/src/common/turb/mode_sbl_phy.F90 b/src/common/turb/mode_sbl_phy.F90
index c3d8be4f0a876451e0267d88c4a3ee535dd5ac7c..72a416d08a0f4ea1b6a91c5956143b13a2ffd944 100644
--- a/src/common/turb/mode_sbl_phy.F90
+++ b/src/common/turb/mode_sbl_phy.F90
@@ -143,7 +143,7 @@ END SUBROUTINE BUSINGER_PHIE
SUBROUTINE LMO(D,CST,PUSTAR,PTHETA,PRV,PSFTH,PSFRV,PLMO)
USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
USE MODD_CST, ONLY: CST_t
- USE MODD_PARAMETERS, ONLY: JPVEXT_TURB,XUNDEF
+ USE MODD_PARAMETERS, ONLY: XUNDEF
!
TYPE(DIMPHYEX_t), INTENT(IN) :: D
TYPE(CST_t), INTENT(IN) :: CST
diff --git a/src/common/turb/mode_tke_eps_sources.F90 b/src/common/turb/mode_tke_eps_sources.F90
index 2b8bb97ab40f14a60a578ddb262631ea1b706652..45c54331ac48ec9d2f9a873492a97788c30b5e52 100644
--- a/src/common/turb/mode_tke_eps_sources.F90
+++ b/src/common/turb/mode_tke_eps_sources.F90
@@ -132,14 +132,13 @@ USE MODE_SHUMAN_PHY, ONLY: MZM_PHY, MZF_PHY, DZF_PHY, DZM_PHY
USE YOMHOOK, ONLY: LHOOK, DR_HOOK
!
USE MODD_ARGSLIST_ll, ONLY: LIST_ll
-USE MODD_BUDGET, ONLY: TBUDGETCONF_t, NBUDGET_TKE, NBUDGET_TH, TBUDGETDATA
+USE MODD_BUDGET, ONLY: TBUDGETCONF_t, NBUDGET_TKE, TBUDGETDATA
USE MODD_CST, ONLY: CST_t
USE MODD_CTURB, ONLY: CSTURB_t
USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
USE MODD_FIELD, ONLY: TFIELDMETADATA, TYPEREAL
USE MODD_IO, ONLY: TFILEDATA
USE MODD_LES, ONLY: TLES_t
-USE MODD_PARAMETERS, ONLY: JPVEXT_TURB
USE MODD_TURB_n, ONLY: TURB_t
!
USE MODE_BUDGET_PHY, ONLY: BUDGET_STORE_ADD_PHY, BUDGET_STORE_END_PHY, BUDGET_STORE_INIT_PHY
diff --git a/src/common/turb/mode_tm06.F90 b/src/common/turb/mode_tm06.F90
index d5f9ea2de34a14418c499634b7f78224ac6be80d..21452a8c427b01a74e83552d3c6003cd9419c7f1 100644
--- a/src/common/turb/mode_tm06.F90
+++ b/src/common/turb/mode_tm06.F90
@@ -47,7 +47,7 @@ SUBROUTINE TM06(D,CST,PTHVREF,PBL_DEPTH,PZZ,PSFTH,PMWTH,PMTH2)
!
USE MODD_CST, ONLY: CST_t
USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
-USE MODD_PARAMETERS, ONLY: XUNDEF,JPVEXT_TURB
+USE MODD_PARAMETERS, ONLY: XUNDEF
!
!
IMPLICIT NONE
diff --git a/src/common/turb/mode_tridiag.F90 b/src/common/turb/mode_tridiag.F90
index 6c15c7dc20122a834aa5487c98a185bacdaa1bcd..ce755096c55657269ca3f2d87254924c643a9d08 100644
--- a/src/common/turb/mode_tridiag.F90
+++ b/src/common/turb/mode_tridiag.F90
@@ -114,7 +114,6 @@ SUBROUTINE TRIDIAG(D,PVARM,PA,PTSTEP,PEXPL,PIMPL, &
!
!* 0. DECLARATIONS
!
-USE MODD_PARAMETERS, ONLY: JPVEXT_TURB
USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
!
IMPLICIT NONE
diff --git a/src/common/turb/mode_tridiag_thermo.F90 b/src/common/turb/mode_tridiag_thermo.F90
index 23d959b9bdb5714bdc06ecfe4592456c2a0a5751..6c77d7772b83141b8dc2c9b71bff435c17a71ff1 100644
--- a/src/common/turb/mode_tridiag_thermo.F90
+++ b/src/common/turb/mode_tridiag_thermo.F90
@@ -119,9 +119,7 @@ SUBROUTINE TRIDIAG_THERMO(D,PVARM,PF,PDFDDTDZ,PTSTEP,PIMPL, &
USE PARKIND1, ONLY : JPRB
USE YOMHOOK , ONLY : LHOOK, DR_HOOK
USE MODD_DIMPHYEX, ONLY : DIMPHYEX_t
-USE MODD_PARAMETERS, ONLY : JPVEXT_TURB
!
-USE MODI_SHUMAN, ONLY : MZM
USE MODE_SHUMAN_PHY, ONLY: MZM_PHY
!
IMPLICIT NONE
diff --git a/src/common/turb/mode_turb_hor_dyn_corr.F90 b/src/common/turb/mode_turb_hor_dyn_corr.F90
index 32270e64e5176722c2eaf993ef9376614878d4e9..7acf5b2c9630309c2ac0d30e31f47912c273dd10 100644
--- a/src/common/turb/mode_turb_hor_dyn_corr.F90
+++ b/src/common/turb/mode_turb_hor_dyn_corr.F90
@@ -88,7 +88,6 @@ USE MODI_GRADIENT_U
USE MODI_GRADIENT_V
USE MODI_GRADIENT_W
USE MODI_SHUMAN
-USE MODE_COEFJ, ONLY: COEFJ
USE MODI_LES_MEAN_SUBGRID
USE MODE_TRIDIAG_W, ONLY: TRIDIAG_W
!
diff --git a/src/common/turb/mode_turb_hor_sv_flux.F90 b/src/common/turb/mode_turb_hor_sv_flux.F90
index b5544d926c44d03342fe0775a790cc1550f57bc7..a84139fe54080bfcbcfdfd05c232b728e9287f7e 100644
--- a/src/common/turb/mode_turb_hor_sv_flux.F90
+++ b/src/common/turb/mode_turb_hor_sv_flux.F90
@@ -75,7 +75,6 @@ USE MODI_GRADIENT_U
USE MODI_GRADIENT_V
USE MODI_GRADIENT_W
USE MODI_SHUMAN
-USE MODE_COEFJ, ONLY: COEFJ
USE MODI_LES_MEAN_SUBGRID
!
USE MODI_SECOND_MNH
diff --git a/src/common/turb/mode_turb_hor_uv.F90 b/src/common/turb/mode_turb_hor_uv.F90
index 717ef59073695384a958d49e2c3a1ff00090ec2b..e0ad7d63d4e2c5b113e500e067bd469effe91dfd 100644
--- a/src/common/turb/mode_turb_hor_uv.F90
+++ b/src/common/turb/mode_turb_hor_uv.F90
@@ -74,7 +74,6 @@ USE MODI_GRADIENT_U
USE MODI_GRADIENT_V
USE MODI_GRADIENT_W
USE MODI_SHUMAN
-USE MODE_COEFJ, ONLY: COEFJ
USE MODI_LES_MEAN_SUBGRID
!
USE MODI_SECOND_MNH
diff --git a/src/common/turb/mode_turb_hor_uw.F90 b/src/common/turb/mode_turb_hor_uw.F90
index 1885d3d9eda92940af4df9714b87cb8cf6db225a..918c5fac1fc0a56d5970f33554523f37952eacc5 100644
--- a/src/common/turb/mode_turb_hor_uw.F90
+++ b/src/common/turb/mode_turb_hor_uw.F90
@@ -78,7 +78,6 @@ USE MODI_GRADIENT_U
USE MODI_GRADIENT_V
USE MODI_GRADIENT_W
USE MODI_SHUMAN
-USE MODE_COEFJ, ONLY: COEFJ
USE MODI_LES_MEAN_SUBGRID
!
USE MODI_SECOND_MNH
diff --git a/src/common/turb/mode_turb_hor_vw.F90 b/src/common/turb/mode_turb_hor_vw.F90
index 2fe089f60f8dc098787ad3c5dea9dd9b858fa9d2..c6cfd8294a5ef99e37de2aad206daa43c788b904 100644
--- a/src/common/turb/mode_turb_hor_vw.F90
+++ b/src/common/turb/mode_turb_hor_vw.F90
@@ -77,7 +77,6 @@ USE MODI_GRADIENT_U
USE MODI_GRADIENT_V
USE MODI_GRADIENT_W
USE MODI_SHUMAN
-USE MODE_COEFJ, ONLY: COEFJ
USE MODI_LES_MEAN_SUBGRID
!
USE MODI_SECOND_MNH
diff --git a/src/common/turb/mode_turb_ver.F90 b/src/common/turb/mode_turb_ver.F90
index 8553a63ea8ec07bd7afa5556c90da7f55578ef2f..7fbabc4a6a03032f959996b362257e10967c944c 100644
--- a/src/common/turb/mode_turb_ver.F90
+++ b/src/common/turb/mode_turb_ver.F90
@@ -219,13 +219,10 @@ USE MODD_CTURB, ONLY: CSTURB_t
USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
USE MODD_FIELD, ONLY: TFIELDMETADATA, TYPEREAL
USE MODD_IO, ONLY: TFILEDATA
-USE MODD_PARAMETERS, ONLY: JPVEXT_TURB
USE MODD_LES, ONLY: TLES_t
USE MODD_TURB_n, ONLY: TURB_t
USE MODD_NEB_n, ONLY: NEB_t
!
-USE MODE_EMOIST, ONLY: EMOIST
-USE MODE_ETHETA, ONLY: ETHETA
USE MODE_GRADIENT_M_PHY, ONLY: GZ_M_W_PHY
USE MODE_IO_FIELD_WRITE_PHY, ONLY: IO_FIELD_WRITE_PHY
USE MODE_PRANDTL, ONLY: PSI_SV, PSI3, PHI3, PRANDTL
diff --git a/src/common/turb/mode_turb_ver_dyn_flux.F90 b/src/common/turb/mode_turb_ver_dyn_flux.F90
index acda739bf432db377a546504ce3cb145282f4738..8814e1d667aeeeb3beb04d8e90b7e63cec03c346 100644
--- a/src/common/turb/mode_turb_ver_dyn_flux.F90
+++ b/src/common/turb/mode_turb_ver_dyn_flux.F90
@@ -214,7 +214,7 @@ USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
USE MODD_FIELD, ONLY: TFIELDMETADATA, TYPEREAL
USE MODD_IO, ONLY: TFILEDATA
USE MODD_LES, ONLY: TLES_t
-USE MODD_PARAMETERS, ONLY: JPVEXT_TURB, XUNDEF
+USE MODD_PARAMETERS, ONLY: XUNDEF
USE MODD_TURB_n, ONLY: TURB_t
!
USE MODE_GRADIENT_U_PHY, ONLY : GZ_U_UW_PHY, GX_U_M_PHY
@@ -317,7 +317,7 @@ REAL, DIMENSION(D%NIJT,D%NKT) :: &
ZKEFF, & ! effectif diffusion coeff = LT * SQRT( TKE )
ZWORK1,ZWORK2,&
ZWORK3,ZWORK4,&
- ZWORK5,ZWORK6! working var. for shuman operators (array syntax)
+ ZWORK5 ! working var. for shuman operators (array syntax)
!
INTEGER :: IIJE,IIJB,IKB,IKE,IKA,IKU ! index value for the mass points of the domain
INTEGER :: IKT ! array size in k direction
diff --git a/src/common/turb/mode_turb_ver_sv_corr.F90 b/src/common/turb/mode_turb_ver_sv_corr.F90
index 3e4604d23f919e77416c0d2942c7ecd31b718b53..d0756b1fb34d82fc2c2dab359c5f47d3d6e27381 100644
--- a/src/common/turb/mode_turb_ver_sv_corr.F90
+++ b/src/common/turb/mode_turb_ver_sv_corr.F90
@@ -60,7 +60,6 @@ USE MODD_CST, ONLY: CST_t
USE MODD_CTURB, ONLY: CSTURB_t
USE MODD_TURB_n, ONLY: TURB_t
USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
-USE MODD_PARAMETERS, ONLY: JPVEXT_TURB
USE MODD_LES, ONLY: TLES_t
!
USE MODE_SHUMAN_PHY, ONLY: MZF_PHY
diff --git a/src/common/turb/mode_turb_ver_sv_flux.F90 b/src/common/turb/mode_turb_ver_sv_flux.F90
index 3655723bf51d497a9057ba1002e64b9a1b16f866..e78333ce7848a63fca3111960c9de3d67e8a680d 100644
--- a/src/common/turb/mode_turb_ver_sv_flux.F90
+++ b/src/common/turb/mode_turb_ver_sv_flux.F90
@@ -219,11 +219,9 @@ USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
USE MODD_FIELD, ONLY: TFIELDMETADATA, TYPEREAL
USE MODD_IO, ONLY: TFILEDATA
USE MODD_LES, ONLY: TLES_t
-USE MODD_PARAMETERS, ONLY: JPVEXT_TURB, NMNHNAMELGTMAX
+USE MODD_PARAMETERS, ONLY: NMNHNAMELGTMAX
USE MODD_TURB_n, ONLY: TURB_t
!
-USE MODE_EMOIST, ONLY: EMOIST
-USE MODE_ETHETA, ONLY: ETHETA
USE MODE_GRADIENT_W_PHY, ONLY: GZ_W_M_PHY
USE MODE_GRADIENT_M_PHY, ONLY: GZ_M_W_PHY
USE MODE_IO_FIELD_WRITE_PHY, ONLY: IO_FIELD_WRITE_PHY
diff --git a/src/common/turb/mode_turb_ver_thermo_corr.F90 b/src/common/turb/mode_turb_ver_thermo_corr.F90
index d4f9ec5d6a2c94afa07e0a9242e9f2273cbb20bd..15bb4f0736966a9001b9720711cea18e4159f556 100644
--- a/src/common/turb/mode_turb_ver_thermo_corr.F90
+++ b/src/common/turb/mode_turb_ver_thermo_corr.F90
@@ -311,14 +311,11 @@ REAL, DIMENSION(MERGE(D%NIJT,0,OCOMPUTE_SRC),&
!
!
REAL, DIMENSION(D%NIJT,D%NKT) :: &
- ZA, & ! work variable for wrc
ZFLXZ, & ! vertical flux of the treated variable
- ZSOURCE, & ! source of evolution for the treated variable
ZKEFF, & ! effectif diffusion coeff = LT * SQRT( TKE )
ZF, & ! Flux in dTh/dt =-dF/dz (evaluated at t-1)(or rt instead of Th)
ZDFDDTDZ, & ! dF/d(dTh/dz)
ZDFDDRDZ, & ! dF/d(dr/dz)
- Z3RDMOMENT, & ! 3 order term in flux or variance equation
! Estimate of full level length and dissipation length scale in case TURBN%LHARATU
PLMF, & ! estimate full level length scale from half levels (sub optimal)
PLEPSF, & ! estimate full level diss length scale from half levels (sub optimal)
diff --git a/src/common/turb/mode_turb_ver_thermo_flux.F90 b/src/common/turb/mode_turb_ver_thermo_flux.F90
index c1d10b037f3a98aaebd08b2f4e2a30468acbcac3..9d65e0a16656625454432dbabc6c2e472f988ecf 100644
--- a/src/common/turb/mode_turb_ver_thermo_flux.F90
+++ b/src/common/turb/mode_turb_ver_thermo_flux.F90
@@ -239,7 +239,7 @@ USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
USE MODD_FIELD, ONLY: TFIELDMETADATA, TYPEREAL
USE MODD_IO, ONLY: TFILEDATA
USE MODD_LES, ONLY: TLES_t
-USE MODD_PARAMETERS, ONLY: JPVEXT_TURB, JPHEXT, XUNDEF
+USE MODD_PARAMETERS, ONLY: XUNDEF
USE MODD_TURB_n, ONLY: TURB_t
!
USE MODE_GRADIENT_W_PHY, ONLY: GZ_W_M_PHY
@@ -352,7 +352,6 @@ REAL, DIMENSION(D%NIJT), INTENT(IN),OPTIONAL :: PSSRFL_C ! O-A interface flu
REAL, DIMENSION(D%NIJT,D%NKT) :: &
ZA, & ! work variable for wrc or LES computation
ZFLXZ, & ! vertical flux of the treated variable
- ZSOURCE, & ! source of evolution for the treated variable
ZKEFF, & ! effectif diffusion coeff = LT * SQRT( TKE )
ZF, & ! Flux in dTh/dt =-dF/dz (evaluated at t-1)(or rt instead of Th)
ZDFDDTDZ, & ! dF/d(dTh/dz)
@@ -375,10 +374,6 @@ INTEGER :: IIJB, IIJE
INTEGER :: IKL
!
REAL :: ZTIME1, ZTIME2
-REAL :: ZFLPROV
-INTEGER :: JKM ! vertical index loop
-INTEGER :: JSW
-REAL :: ZSWA ! index for time flux interpolation
!
INTEGER :: IIU, IJU
LOGICAL :: GUSERV ! flag to use water
diff --git a/src/common/turb/turb.F90 b/src/common/turb/turb.F90
index 255611d2db0eed5ad82e9b20a1c0e850d8b903eb..27165edd37d4855fb6b4854b9a14b2ff1d73993a 100644
--- a/src/common/turb/turb.F90
+++ b/src/common/turb/turb.F90
@@ -244,7 +244,7 @@ USE MODE_SHUMAN_PHY, ONLY: MZF_PHY,MXF_PHY,MYF_PHY
USE YOMHOOK , ONLY: LHOOK, DR_HOOK
!
USE MODD_BUDGET, ONLY: NBUDGET_U, NBUDGET_V, NBUDGET_W, NBUDGET_TH, NBUDGET_RV, NBUDGET_RC, &
- NBUDGET_RR, NBUDGET_RI, NBUDGET_RS, NBUDGET_RG, NBUDGET_RH, NBUDGET_SV1, &
+ NBUDGET_RI, NBUDGET_SV1, &
TBUDGETDATA, TBUDGETCONF_t
USE MODD_CST, ONLY: CST_t
USE MODD_CTURB, ONLY: CSTURB_t
@@ -488,7 +488,6 @@ REAL :: ZCOEF_AMPL_CEI_NUL! Ordonnate at the origin of the
! amplification straight line (for routine CLOUD_MODIF_LM)
!
INTEGER :: IIJB,IIJE,IKB,IKE ! index value for the
-INTEGER :: IINFO_ll ! return code of parallel routine
! Beginning and the End of the physical domain for the mass points
INTEGER :: IKT,IKA,IKU ! array size in k direction
INTEGER :: IKL