diff --git a/src/MNH/lima_ccn_activation.f90 b/src/MNH/lima_ccn_activation.f90 index 6b68fc42ac6cb29b8b50ecf120830fed4a2aaa02..c0990da97866d8cee65af3470c1449f11a906a8e 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 aa82c8db8c3d8fdec25d9dd2604e7769d004b5af..ff5a691461b7a5de36d44febb6c320ce909eee12 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 4752401bcb9aeff8fe62b642bf098156a3226717..8996b5425b8282ae43f1676dd6b09e55661b8787 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 39ae6ab24cabcbf2395497616bf4724fda283537..044030f792dd2b64affa03bd8407470d8486691b 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 2fb5c0cfcdebfbf96ac55c3f8177e23e71f6b62c..6bef29df3bfac250078b40d9c8f45d2d00cc4dfa 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 5307030052a3a6100fb1b5a4ffc5c913196457ac..79312e8cb058055804d58a2d48c53f10a04deb65 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 3f35b8ec23465d5aa18a442673951d0f8131bc64..042cde0842bf74116c47e156ce7d85ed03d5522a 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 47687d230489bfdc8cad3006895e71ec132ffe35..d283c9699bd1efbb3615b74716c3d50a6a29333f 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 d380dc85d33696701c7ebe80d3dc8fa16f9e7a95..15e01ec84b33a508d8b30285ea944540185b1015 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 e08931e938c20517a15ab0839167263bb7eafe20..8c7c57e4091305b31d8906cec050cd18427f63cb 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 d88bc07567629c2c68ae9cec1cef2c3b09040c91..01c31afbe3ff0152065142f33475281538a3c6ac 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 f4f76e850dbb90f172baac70940e1e73037d30c4..2970e027d0ae5d8b380a0c9348ddc7de249fe049 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 fecd2fde590a4ea942cc324391550a6d7f1b1506..a5a9225bc78a8382920f419595afa8b0c4b87b65 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 30caaff1fec66e1b59abf4b5eb33c25261ed490b..697f9ee74f5f9101579f9724421e76ee6f93d614 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 : !