From 34f9d7976b36dd893e6d8ae7ff2fbc00de0aa321 Mon Sep 17 00:00:00 2001 From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr> Date: Mon, 28 Jun 2021 14:31:41 +0200 Subject: [PATCH] Philippe 28/06/2021: LIMA: improve intent of several dummy arguments --- src/MNH/lima_ccn_activation.f90 | 7 +++-- src/MNH/lima_conversion_melting_snow.f90 | 4 +-- src/MNH/lima_droplets_accretion.f90 | 8 +++--- src/MNH/lima_droplets_autoconversion.f90 | 12 ++++----- src/MNH/lima_droplets_riming_snow.f90 | 32 +++++++++++------------ src/MNH/lima_droplets_self_collection.f90 | 4 +-- src/MNH/lima_drops_self_collection.f90 | 4 +-- src/MNH/lima_graupel_deposition.f90 | 8 +++--- src/MNH/lima_ice_aggregation_snow.f90 | 8 +++--- src/MNH/lima_ice_deposition.f90 | 16 ++++++------ src/MNH/lima_rain_accr_snow.f90 | 20 +++++++------- src/MNH/lima_rain_evaporation.f90 | 8 +++--- src/MNH/lima_rain_freezing.f90 | 20 +++++++------- src/MNH/lima_snow_deposition.f90 | 16 ++++++------ 14 files changed, 83 insertions(+), 84 deletions(-) diff --git a/src/MNH/lima_ccn_activation.f90 b/src/MNH/lima_ccn_activation.f90 index 6b68fc42a..c0990da97 100644 --- a/src/MNH/lima_ccn_activation.f90 +++ b/src/MNH/lima_ccn_activation.f90 @@ -35,7 +35,7 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PRRT ! Cloud water m.r. at t REAL, DIMENSION(:,:,:,:), INTENT(INOUT) :: PNFT ! CCN C. available at t REAL, DIMENSION(:,:,:,:), INTENT(INOUT) :: PNAT ! CCN C. activated at t ! -REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PCLDFR ! Precipitation fraction +REAL, DIMENSION(:,:,:), INTENT(IN) :: PCLDFR ! Precipitation fraction ! END SUBROUTINE LIMA_CCN_ACTIVATION END INTERFACE @@ -99,8 +99,7 @@ END MODULE MODI_LIMA_CCN_ACTIVATION !* 0. DECLARATIONS ! ------------ ! -USE MODD_CST, ONLY: XALPW, XBETAW, XCL, XCPD, XCPV, XGAMW, XLVTT, XMD, XMV, XRV, XTT, & - XMNH_EPSILON +USE MODD_CST, ONLY: XALPW, XBETAW, XCL, XCPD, XCPV, XGAMW, XLVTT, XMD, XMNH_EPSILON, XMV, XRV, XTT use modd_field, only: TFIELDDATA, TYPEREAL USE MODD_IO, ONLY: TFILEDATA USE MODD_LUNIT_n, ONLY: TLUOUT @@ -141,7 +140,7 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PRRT ! Cloud water m.r. at t REAL, DIMENSION(:,:,:,:), INTENT(INOUT) :: PNFT ! CCN C. available at t REAL, DIMENSION(:,:,:,:), INTENT(INOUT) :: PNAT ! CCN C. activated at t ! -REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PCLDFR ! Precipitation fraction +REAL, DIMENSION(:,:,:), INTENT(IN) :: PCLDFR ! Precipitation fraction ! !* 0.1 Declarations of local variables : ! diff --git a/src/MNH/lima_conversion_melting_snow.f90 b/src/MNH/lima_conversion_melting_snow.f90 index aa82c8db8..ff5a69146 100644 --- a/src/MNH/lima_conversion_melting_snow.f90 +++ b/src/MNH/lima_conversion_melting_snow.f90 @@ -26,7 +26,7 @@ REAL, DIMENSION(:), INTENT(IN) :: PRVT ! REAL, DIMENSION(:), INTENT(IN) :: PRST ! Cloud water C. at t REAL, DIMENSION(:), INTENT(IN) :: PLBDS ! ! -REAL, DIMENSION(:), INTENT(INOUT) :: P_RS_CMEL +REAL, DIMENSION(:), INTENT(OUT) :: P_RS_CMEL ! END SUBROUTINE LIMA_CONVERSION_MELTING_SNOW END INTERFACE @@ -82,7 +82,7 @@ REAL, DIMENSION(:), INTENT(IN) :: PRVT ! REAL, DIMENSION(:), INTENT(IN) :: PRST ! Cloud water C. at t REAL, DIMENSION(:), INTENT(IN) :: PLBDS ! ! -REAL, DIMENSION(:), INTENT(INOUT) :: P_RS_CMEL +REAL, DIMENSION(:), INTENT(OUT) :: P_RS_CMEL ! !* 0.2 Declarations of local variables : ! diff --git a/src/MNH/lima_droplets_accretion.f90 b/src/MNH/lima_droplets_accretion.f90 index 4752401bc..8996b5425 100644 --- a/src/MNH/lima_droplets_accretion.f90 +++ b/src/MNH/lima_droplets_accretion.f90 @@ -27,8 +27,8 @@ REAL, DIMENSION(:), INTENT(IN) :: PLBDC3 ! REAL, DIMENSION(:), INTENT(IN) :: PLBDR ! REAL, DIMENSION(:), INTENT(IN) :: PLBDR3 ! ! -REAL, DIMENSION(:), INTENT(INOUT) :: P_RC_ACCR -REAL, DIMENSION(:), INTENT(INOUT) :: P_CC_ACCR +REAL, DIMENSION(:), INTENT(OUT) :: P_RC_ACCR +REAL, DIMENSION(:), INTENT(OUT) :: P_CC_ACCR ! END SUBROUTINE LIMA_DROPLETS_ACCRETION END INTERFACE @@ -86,8 +86,8 @@ REAL, DIMENSION(:), INTENT(IN) :: PLBDC3 ! REAL, DIMENSION(:), INTENT(IN) :: PLBDR ! REAL, DIMENSION(:), INTENT(IN) :: PLBDR3 ! ! -REAL, DIMENSION(:), INTENT(INOUT) :: P_RC_ACCR -REAL, DIMENSION(:), INTENT(INOUT) :: P_CC_ACCR +REAL, DIMENSION(:), INTENT(OUT) :: P_RC_ACCR +REAL, DIMENSION(:), INTENT(OUT) :: P_CC_ACCR ! !* 0.2 Declarations of local variables : ! diff --git a/src/MNH/lima_droplets_autoconversion.f90 b/src/MNH/lima_droplets_autoconversion.f90 index 39ae6ab24..044030f79 100644 --- a/src/MNH/lima_droplets_autoconversion.f90 +++ b/src/MNH/lima_droplets_autoconversion.f90 @@ -22,9 +22,9 @@ REAL, DIMENSION(:), INTENT(IN) :: PCCT ! Cloud water conc. at t REAL, DIMENSION(:), INTENT(IN) :: PLBDC ! REAL, DIMENSION(:), INTENT(IN) :: PLBDR ! ! -REAL, DIMENSION(:), INTENT(INOUT) :: P_RC_AUTO -REAL, DIMENSION(:), INTENT(INOUT) :: P_CC_AUTO -REAL, DIMENSION(:), INTENT(INOUT) :: P_CR_AUTO +REAL, DIMENSION(:), INTENT(OUT) :: P_RC_AUTO +REAL, DIMENSION(:), INTENT(OUT) :: P_CC_AUTO +REAL, DIMENSION(:), INTENT(OUT) :: P_CR_AUTO ! END SUBROUTINE LIMA_DROPLETS_AUTOCONVERSION END INTERFACE @@ -76,9 +76,9 @@ REAL, DIMENSION(:), INTENT(IN) :: PCCT ! Cloud water conc. at t REAL, DIMENSION(:), INTENT(IN) :: PLBDC ! REAL, DIMENSION(:), INTENT(IN) :: PLBDR ! ! -REAL, DIMENSION(:), INTENT(INOUT) :: P_RC_AUTO -REAL, DIMENSION(:), INTENT(INOUT) :: P_CC_AUTO -REAL, DIMENSION(:), INTENT(INOUT) :: P_CR_AUTO +REAL, DIMENSION(:), INTENT(OUT) :: P_RC_AUTO +REAL, DIMENSION(:), INTENT(OUT) :: P_CC_AUTO +REAL, DIMENSION(:), INTENT(OUT) :: P_CR_AUTO ! !* 0.2 Declarations of local variables : ! diff --git a/src/MNH/lima_droplets_riming_snow.f90 b/src/MNH/lima_droplets_riming_snow.f90 index 2fb5c0cfc..6bef29df3 100644 --- a/src/MNH/lima_droplets_riming_snow.f90 +++ b/src/MNH/lima_droplets_riming_snow.f90 @@ -28,15 +28,15 @@ REAL, DIMENSION(:), INTENT(IN) :: PLBDS ! REAL, DIMENSION(:), INTENT(IN) :: PLVFACT ! REAL, DIMENSION(:), INTENT(IN) :: PLSFACT ! ! -REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_RIM -REAL, DIMENSION(:), INTENT(INOUT) :: P_RC_RIM -REAL, DIMENSION(:), INTENT(INOUT) :: P_CC_RIM -REAL, DIMENSION(:), INTENT(INOUT) :: P_RS_RIM -REAL, DIMENSION(:), INTENT(INOUT) :: P_RG_RIM +REAL, DIMENSION(:), INTENT(OUT) :: P_TH_RIM +REAL, DIMENSION(:), INTENT(OUT) :: P_RC_RIM +REAL, DIMENSION(:), INTENT(OUT) :: P_CC_RIM +REAL, DIMENSION(:), INTENT(OUT) :: P_RS_RIM +REAL, DIMENSION(:), INTENT(OUT) :: P_RG_RIM ! -REAL, DIMENSION(:), INTENT(INOUT) :: P_RI_HMS -REAL, DIMENSION(:), INTENT(INOUT) :: P_CI_HMS -REAL, DIMENSION(:), INTENT(INOUT) :: P_RS_HMS +REAL, DIMENSION(:), INTENT(OUT) :: P_RI_HMS +REAL, DIMENSION(:), INTENT(OUT) :: P_CI_HMS +REAL, DIMENSION(:), INTENT(OUT) :: P_RS_HMS ! END SUBROUTINE LIMA_DROPLETS_RIMING_SNOW END INTERFACE @@ -97,15 +97,15 @@ REAL, DIMENSION(:), INTENT(IN) :: PLBDS ! REAL, DIMENSION(:), INTENT(IN) :: PLVFACT ! REAL, DIMENSION(:), INTENT(IN) :: PLSFACT ! ! -REAL, DIMENSION(:), INTENT(INOUT) :: P_RC_RIM -REAL, DIMENSION(:), INTENT(INOUT) :: P_CC_RIM -REAL, DIMENSION(:), INTENT(INOUT) :: P_RS_RIM -REAL, DIMENSION(:), INTENT(INOUT) :: P_RG_RIM +REAL, DIMENSION(:), INTENT(OUT) :: P_RC_RIM +REAL, DIMENSION(:), INTENT(OUT) :: P_CC_RIM +REAL, DIMENSION(:), INTENT(OUT) :: P_RS_RIM +REAL, DIMENSION(:), INTENT(OUT) :: P_RG_RIM ! -REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_RIM -REAL, DIMENSION(:), INTENT(INOUT) :: P_RI_HMS -REAL, DIMENSION(:), INTENT(INOUT) :: P_CI_HMS -REAL, DIMENSION(:), INTENT(INOUT) :: P_RS_HMS +REAL, DIMENSION(:), INTENT(OUT) :: P_TH_RIM +REAL, DIMENSION(:), INTENT(OUT) :: P_RI_HMS +REAL, DIMENSION(:), INTENT(OUT) :: P_CI_HMS +REAL, DIMENSION(:), INTENT(OUT) :: P_RS_HMS ! !* 0.2 Declarations of local variables : ! diff --git a/src/MNH/lima_droplets_self_collection.f90 b/src/MNH/lima_droplets_self_collection.f90 index 530703005..79312e8cb 100644 --- a/src/MNH/lima_droplets_self_collection.f90 +++ b/src/MNH/lima_droplets_self_collection.f90 @@ -20,7 +20,7 @@ REAL, DIMENSION(:), INTENT(IN) :: PRHODREF ! Reference Exner function REAL, DIMENSION(:), INTENT(IN) :: PCCT ! Cloud water C. at t REAL, DIMENSION(:), INTENT(IN) :: PLBDC3 ! ! -REAL, DIMENSION(:), INTENT(INOUT) :: P_CC_SELF +REAL, DIMENSION(:), INTENT(OUT) :: P_CC_SELF ! END SUBROUTINE LIMA_DROPLETS_SELF_COLLECTION END INTERFACE @@ -68,7 +68,7 @@ REAL, DIMENSION(:), INTENT(IN) :: PRHODREF ! Reference Exner function REAL, DIMENSION(:), INTENT(IN) :: PCCT ! Cloud water C. at t REAL, DIMENSION(:), INTENT(IN) :: PLBDC3 ! ! -REAL, DIMENSION(:), INTENT(INOUT) :: P_CC_SELF +REAL, DIMENSION(:), INTENT(OUT) :: P_CC_SELF ! !* 0.2 Declarations of local variables : ! diff --git a/src/MNH/lima_drops_self_collection.f90 b/src/MNH/lima_drops_self_collection.f90 index 3f35b8ec2..042cde084 100644 --- a/src/MNH/lima_drops_self_collection.f90 +++ b/src/MNH/lima_drops_self_collection.f90 @@ -21,7 +21,7 @@ REAL, DIMENSION(:), INTENT(IN) :: PCRT ! Cloud water C. at t REAL, DIMENSION(:), INTENT(IN) :: PLBDR ! REAL, DIMENSION(:), INTENT(IN) :: PLBDR3 ! ! -REAL, DIMENSION(:), INTENT(INOUT) :: P_CR_SCBU +REAL, DIMENSION(:), INTENT(OUT) :: P_CR_SCBU ! END SUBROUTINE LIMA_DROPS_SELF_COLLECTION END INTERFACE @@ -71,7 +71,7 @@ REAL, DIMENSION(:), INTENT(IN) :: PCRT ! Rain drops C. at t REAL, DIMENSION(:), INTENT(IN) :: PLBDR ! REAL, DIMENSION(:), INTENT(IN) :: PLBDR3 ! ! -REAL, DIMENSION(:), INTENT(INOUT) :: P_CR_SCBU +REAL, DIMENSION(:), INTENT(OUT) :: P_CR_SCBU ! !* 0.2 Declarations of local variables : ! diff --git a/src/MNH/lima_graupel_deposition.f90 b/src/MNH/lima_graupel_deposition.f90 index 47687d230..d283c9699 100644 --- a/src/MNH/lima_graupel_deposition.f90 +++ b/src/MNH/lima_graupel_deposition.f90 @@ -22,8 +22,8 @@ REAL, DIMENSION(:), INTENT(IN) :: PAI ! REAL, DIMENSION(:), INTENT(IN) :: PCJ ! REAL, DIMENSION(:), INTENT(IN) :: PLSFACT ! ! -REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_DEPG -REAL, DIMENSION(:), INTENT(INOUT) :: P_RG_DEPG +REAL, DIMENSION(:), INTENT(OUT) :: P_TH_DEPG +REAL, DIMENSION(:), INTENT(OUT) :: P_RG_DEPG !! END SUBROUTINE LIMA_GRAUPEL_DEPOSITION END INTERFACE @@ -73,8 +73,8 @@ REAL, DIMENSION(:), INTENT(IN) :: PAI ! REAL, DIMENSION(:), INTENT(IN) :: PCJ ! REAL, DIMENSION(:), INTENT(IN) :: PLSFACT ! ! -REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_DEPG -REAL, DIMENSION(:), INTENT(INOUT) :: P_RG_DEPG +REAL, DIMENSION(:), INTENT(OUT) :: P_TH_DEPG +REAL, DIMENSION(:), INTENT(OUT) :: P_RG_DEPG ! ! !------------------------------------------------------------------------------- diff --git a/src/MNH/lima_ice_aggregation_snow.f90 b/src/MNH/lima_ice_aggregation_snow.f90 index d380dc85d..15e01ec84 100644 --- a/src/MNH/lima_ice_aggregation_snow.f90 +++ b/src/MNH/lima_ice_aggregation_snow.f90 @@ -24,8 +24,8 @@ REAL, DIMENSION(:), INTENT(IN) :: PCIT REAL, DIMENSION(:), INTENT(IN) :: PLBDI REAL, DIMENSION(:), INTENT(IN) :: PLBDS ! -REAL, DIMENSION(:), INTENT(INOUT) :: P_RI_AGGS -REAL, DIMENSION(:), INTENT(INOUT) :: P_CI_AGGS +REAL, DIMENSION(:), INTENT(OUT) :: P_RI_AGGS +REAL, DIMENSION(:), INTENT(OUT) :: P_CI_AGGS ! END SUBROUTINE LIMA_ICE_AGGREGATION_SNOW END INTERFACE @@ -78,8 +78,8 @@ REAL, DIMENSION(:), INTENT(IN) :: PCIT REAL, DIMENSION(:), INTENT(IN) :: PLBDI REAL, DIMENSION(:), INTENT(IN) :: PLBDS ! -REAL, DIMENSION(:), INTENT(INOUT) :: P_RI_AGGS -REAL, DIMENSION(:), INTENT(INOUT) :: P_CI_AGGS +REAL, DIMENSION(:), INTENT(OUT) :: P_RI_AGGS +REAL, DIMENSION(:), INTENT(OUT) :: P_CI_AGGS ! !* 0.2 Declarations of local variables : ! diff --git a/src/MNH/lima_ice_deposition.f90 b/src/MNH/lima_ice_deposition.f90 index e08931e93..8c7c57e40 100644 --- a/src/MNH/lima_ice_deposition.f90 +++ b/src/MNH/lima_ice_deposition.f90 @@ -29,10 +29,10 @@ REAL, DIMENSION(:), INTENT(IN) :: PCIT ! Ice crystal C. at t ! REAL, DIMENSION(:), INTENT(IN) :: PLBDI ! Graupel m.r. at t ! -REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_DEPI -REAL, DIMENSION(:), INTENT(INOUT) :: P_RI_DEPI -REAL, DIMENSION(:), INTENT(INOUT) :: P_RI_CNVS -REAL, DIMENSION(:), INTENT(INOUT) :: P_CI_CNVS +REAL, DIMENSION(:), INTENT(OUT) :: P_TH_DEPI +REAL, DIMENSION(:), INTENT(OUT) :: P_RI_DEPI +REAL, DIMENSION(:), INTENT(OUT) :: P_RI_CNVS +REAL, DIMENSION(:), INTENT(OUT) :: P_CI_CNVS ! END SUBROUTINE LIMA_ICE_DEPOSITION END INTERFACE @@ -102,10 +102,10 @@ REAL, DIMENSION(:), INTENT(IN) :: PCIT ! Ice crystal C. at t ! REAL, DIMENSION(:), INTENT(IN) :: PLBDI ! Graupel m.r. at t ! -REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_DEPI -REAL, DIMENSION(:), INTENT(INOUT) :: P_RI_DEPI -REAL, DIMENSION(:), INTENT(INOUT) :: P_RI_CNVS -REAL, DIMENSION(:), INTENT(INOUT) :: P_CI_CNVS +REAL, DIMENSION(:), INTENT(OUT) :: P_TH_DEPI +REAL, DIMENSION(:), INTENT(OUT) :: P_RI_DEPI +REAL, DIMENSION(:), INTENT(OUT) :: P_RI_CNVS +REAL, DIMENSION(:), INTENT(OUT) :: P_CI_CNVS ! !* 0.2 Declarations of local variables : ! diff --git a/src/MNH/lima_rain_accr_snow.f90 b/src/MNH/lima_rain_accr_snow.f90 index d88bc0756..01c31afbe 100644 --- a/src/MNH/lima_rain_accr_snow.f90 +++ b/src/MNH/lima_rain_accr_snow.f90 @@ -27,11 +27,11 @@ REAL, DIMENSION(:), INTENT(IN) :: PLBDS ! REAL, DIMENSION(:), INTENT(IN) :: PLVFACT ! REAL, DIMENSION(:), INTENT(IN) :: PLSFACT ! ! -REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_ACC -REAL, DIMENSION(:), INTENT(INOUT) :: P_RR_ACC -REAL, DIMENSION(:), INTENT(INOUT) :: P_CR_ACC -REAL, DIMENSION(:), INTENT(INOUT) :: P_RS_ACC -REAL, DIMENSION(:), INTENT(INOUT) :: P_RG_ACC +REAL, DIMENSION(:), INTENT(OUT) :: P_TH_ACC +REAL, DIMENSION(:), INTENT(OUT) :: P_RR_ACC +REAL, DIMENSION(:), INTENT(OUT) :: P_CR_ACC +REAL, DIMENSION(:), INTENT(OUT) :: P_RS_ACC +REAL, DIMENSION(:), INTENT(OUT) :: P_RG_ACC ! END SUBROUTINE LIMA_RAIN_ACCR_SNOW END INTERFACE @@ -93,11 +93,11 @@ REAL, DIMENSION(:), INTENT(IN) :: PLBDS ! REAL, DIMENSION(:), INTENT(IN) :: PLVFACT ! REAL, DIMENSION(:), INTENT(IN) :: PLSFACT ! ! -REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_ACC -REAL, DIMENSION(:), INTENT(INOUT) :: P_RR_ACC -REAL, DIMENSION(:), INTENT(INOUT) :: P_CR_ACC -REAL, DIMENSION(:), INTENT(INOUT) :: P_RS_ACC -REAL, DIMENSION(:), INTENT(INOUT) :: P_RG_ACC +REAL, DIMENSION(:), INTENT(OUT) :: P_TH_ACC +REAL, DIMENSION(:), INTENT(OUT) :: P_RR_ACC +REAL, DIMENSION(:), INTENT(OUT) :: P_CR_ACC +REAL, DIMENSION(:), INTENT(OUT) :: P_RS_ACC +REAL, DIMENSION(:), INTENT(OUT) :: P_RG_ACC ! !* 0.2 Declarations of local variables : ! diff --git a/src/MNH/lima_rain_evaporation.f90 b/src/MNH/lima_rain_evaporation.f90 index f4f76e850..2970e027d 100644 --- a/src/MNH/lima_rain_evaporation.f90 +++ b/src/MNH/lima_rain_evaporation.f90 @@ -29,8 +29,8 @@ REAL, DIMENSION(:), INTENT(IN) :: PRCT ! Cloud water m.r. at t REAL, DIMENSION(:), INTENT(IN) :: PRRT ! Rain water m.r. at t REAL, DIMENSION(:), INTENT(IN) :: PLBDR ! Lambda(rain) ! -REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_EVAP -REAL, DIMENSION(:), INTENT(INOUT) :: P_RR_EVAP +REAL, DIMENSION(:), INTENT(OUT) :: P_TH_EVAP +REAL, DIMENSION(:), INTENT(OUT) :: P_RR_EVAP ! REAL, DIMENSION(:), INTENT(INOUT) :: PEVAP3D ! Rain evap profile ! @@ -91,8 +91,8 @@ REAL, DIMENSION(:), INTENT(IN) :: PRCT ! Cloud water m.r. at t REAL, DIMENSION(:), INTENT(IN) :: PRRT ! Rain water m.r. at t REAL, DIMENSION(:), INTENT(IN) :: PLBDR ! Lambda(rain) ! -REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_EVAP -REAL, DIMENSION(:), INTENT(INOUT) :: P_RR_EVAP +REAL, DIMENSION(:), INTENT(OUT) :: P_TH_EVAP +REAL, DIMENSION(:), INTENT(OUT) :: P_RR_EVAP ! REAL, DIMENSION(:), INTENT(INOUT) :: PEVAP3D ! Rain evap profile ! diff --git a/src/MNH/lima_rain_freezing.f90 b/src/MNH/lima_rain_freezing.f90 index fecd2fde5..a5a9225bc 100644 --- a/src/MNH/lima_rain_freezing.f90 +++ b/src/MNH/lima_rain_freezing.f90 @@ -26,11 +26,11 @@ REAL, DIMENSION(:), INTENT(IN) :: PRIT ! REAL, DIMENSION(:), INTENT(IN) :: PCIT ! REAL, DIMENSION(:), INTENT(IN) :: PLBDR ! ! -REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_CFRZ -REAL, DIMENSION(:), INTENT(INOUT) :: P_RR_CFRZ -REAL, DIMENSION(:), INTENT(INOUT) :: P_CR_CFRZ -REAL, DIMENSION(:), INTENT(INOUT) :: P_RI_CFRZ -REAL, DIMENSION(:), INTENT(INOUT) :: P_CI_CFRZ +REAL, DIMENSION(:), INTENT(OUT) :: P_TH_CFRZ +REAL, DIMENSION(:), INTENT(OUT) :: P_RR_CFRZ +REAL, DIMENSION(:), INTENT(OUT) :: P_CR_CFRZ +REAL, DIMENSION(:), INTENT(OUT) :: P_RI_CFRZ +REAL, DIMENSION(:), INTENT(OUT) :: P_CI_CFRZ ! END SUBROUTINE LIMA_RAIN_FREEZING END INTERFACE @@ -85,11 +85,11 @@ REAL, DIMENSION(:), INTENT(IN) :: PRIT ! REAL, DIMENSION(:), INTENT(IN) :: PCIT ! REAL, DIMENSION(:), INTENT(IN) :: PLBDR ! ! -REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_CFRZ -REAL, DIMENSION(:), INTENT(INOUT) :: P_RR_CFRZ -REAL, DIMENSION(:), INTENT(INOUT) :: P_CR_CFRZ -REAL, DIMENSION(:), INTENT(INOUT) :: P_RI_CFRZ -REAL, DIMENSION(:), INTENT(INOUT) :: P_CI_CFRZ +REAL, DIMENSION(:), INTENT(OUT) :: P_TH_CFRZ +REAL, DIMENSION(:), INTENT(OUT) :: P_RR_CFRZ +REAL, DIMENSION(:), INTENT(OUT) :: P_CR_CFRZ +REAL, DIMENSION(:), INTENT(OUT) :: P_RI_CFRZ +REAL, DIMENSION(:), INTENT(OUT) :: P_CI_CFRZ ! !* 0.2 Declarations of local variables : ! diff --git a/src/MNH/lima_snow_deposition.f90 b/src/MNH/lima_snow_deposition.f90 index 30caaff1f..697f9ee74 100644 --- a/src/MNH/lima_snow_deposition.f90 +++ b/src/MNH/lima_snow_deposition.f90 @@ -26,10 +26,10 @@ REAL, DIMENSION(:), INTENT(IN) :: PRST ! Snow/aggregate m.r. at t ! REAL, DIMENSION(:), INTENT(IN) :: PLBDS ! Graupel m.r. at t ! -REAL, DIMENSION(:), INTENT(INOUT) :: P_RI_CNVI -REAL, DIMENSION(:), INTENT(INOUT) :: P_CI_CNVI -REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_DEPS -REAL, DIMENSION(:), INTENT(INOUT) :: P_RS_DEPS +REAL, DIMENSION(:), INTENT(OUT) :: P_RI_CNVI +REAL, DIMENSION(:), INTENT(OUT) :: P_CI_CNVI +REAL, DIMENSION(:), INTENT(OUT) :: P_TH_DEPS +REAL, DIMENSION(:), INTENT(OUT) :: P_RS_DEPS ! END SUBROUTINE LIMA_SNOW_DEPOSITION END INTERFACE @@ -95,10 +95,10 @@ REAL, DIMENSION(:), INTENT(IN) :: PRST ! Snow/aggregate m.r. at t ! REAL, DIMENSION(:), INTENT(IN) :: PLBDS ! Graupel m.r. at t ! -REAL, DIMENSION(:), INTENT(INOUT) :: P_RI_CNVI -REAL, DIMENSION(:), INTENT(INOUT) :: P_CI_CNVI -REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_DEPS -REAL, DIMENSION(:), INTENT(INOUT) :: P_RS_DEPS +REAL, DIMENSION(:), INTENT(OUT) :: P_RI_CNVI +REAL, DIMENSION(:), INTENT(OUT) :: P_CI_CNVI +REAL, DIMENSION(:), INTENT(OUT) :: P_TH_DEPS +REAL, DIMENSION(:), INTENT(OUT) :: P_RS_DEPS ! !* 0.2 Declarations of local variables : ! -- GitLab