From ab83edf6d18a4baa0728fdaf752152bfe144fad6 Mon Sep 17 00:00:00 2001
From: Gaelle Tanguy <gaelle.tanguy@meteo.fr>
Date: Thu, 30 Jan 2014 14:30:01 +0000
Subject: [PATCH] Christine 30/01/2014 : bug PACPRR au lieu de PACPRH
---
src/MNH/spawn_surf2_rain.f90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/MNH/spawn_surf2_rain.f90 b/src/MNH/spawn_surf2_rain.f90
index 70da3423d..f780a1ff7 100644
--- a/src/MNH/spawn_surf2_rain.f90
+++ b/src/MNH/spawn_surf2_rain.f90
@@ -304,7 +304,7 @@ ELSE
KXOR,KYOR,KXEND,KYEND,KDXRATIO,KDYRATIO,1, &
LBC_MODEL(1)%CLBCX,LBC_MODEL(1)%CLBCY,PRECIP_MODEL(1)%XACPRH,PACPRH)
PINPRH(:,:)=MAX(0.,PINPRH(:,:))
- PACPRR(:,:)=MAX(0.,PACPRH(:,:))
+ PACPRH(:,:)=MAX(0.,PACPRH(:,:))
END IF
!
END IF
--
GitLab