From 08403c279265f779ed46adae47e97362e71f5682 Mon Sep 17 00:00:00 2001 From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr> Date: Mon, 28 Jun 2021 15:38:29 +0200 Subject: [PATCH] Philippe 28/06/2021: rain_ice_red: some arrays are sometimes of size 0 (and not KIT*KJT*KKT) --- src/MNH/rain_ice_red.f90 | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/src/MNH/rain_ice_red.f90 b/src/MNH/rain_ice_red.f90 index 0bd10fd92..57de2d2a1 100644 --- a/src/MNH/rain_ice_red.f90 +++ b/src/MNH/rain_ice_red.f90 @@ -72,15 +72,18 @@ REAL, DIMENSION(KIT,KJT,KKT), INTENT(INOUT) :: PRSS ! Snow/aggregate m.r. s REAL, DIMENSION(KIT,KJT,KKT), INTENT(INOUT) :: PRGS ! Graupel m.r. source ! -REAL, DIMENSION(KIT,KJT), INTENT(OUT) :: PINPRC! Cloud instant precip +! REAL, DIMENSION(KIT,KJT), INTENT(OUT) :: PINPRC! Cloud instant precip +REAL, DIMENSION(:,:), INTENT(OUT) :: PINPRC! Cloud instant precip REAL, DIMENSION(KIT,KJT), INTENT(OUT) :: PINPRR! Rain instant precip REAL, DIMENSION(KIT,KJT,KKT), INTENT(OUT) :: PINPRR3D! Rain inst precip 3D REAL, DIMENSION(KIT,KJT,KKT), INTENT(OUT) :: PEVAP3D! Rain evap profile REAL, DIMENSION(KIT,KJT), INTENT(OUT) :: PINPRS! Snow instant precip REAL, DIMENSION(KIT,KJT), INTENT(OUT) :: PINPRG! Graupel instant precip -REAL, DIMENSION(KIT,KJT), INTENT(OUT) :: PINDEP ! Cloud instant deposition +! REAL, DIMENSION(KIT,KJT), INTENT(OUT) :: PINDEP ! Cloud instant deposition +REAL, DIMENSION(:,:), INTENT(OUT) :: PINDEP ! Cloud instant deposition REAL, DIMENSION(KIT,KJT,KKT), INTENT(OUT) :: PRAINFR -REAL, DIMENSION(KIT,KJT,KKT), INTENT(IN) :: PSIGS ! Sigma_s at t +! REAL, DIMENSION(KIT,KJT,KKT), INTENT(IN) :: PSIGS ! Sigma_s at t +REAL, DIMENSION(:,:,:), INTENT(IN) :: PSIGS ! Sigma_s at t REAL, DIMENSION(KIT,KJT), OPTIONAL, INTENT(IN) :: PSEA ! Sea Mask REAL, DIMENSION(KIT,KJT), OPTIONAL, INTENT(IN) :: PTOWN! Fraction that is town REAL, DIMENSION(KIT,KJT,KKT), OPTIONAL, INTENT(IN) :: PRHT ! Hail m.r. at t -- GitLab