From 1975f42efbc591965c2085bb01cb55dea4955e66 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Thu, 17 Aug 2017 11:37:15 +0200
Subject: [PATCH] Philippe 17/08/2017: bug correction: corrected field name for
reading of droplet deposition (ACPRC->ACDEP)
---
src/MNH/read_precip_field.f90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/MNH/read_precip_field.f90 b/src/MNH/read_precip_field.f90
index a1dd9add8..51336a7f8 100644
--- a/src/MNH/read_precip_field.f90
+++ b/src/MNH/read_precip_field.f90
@@ -195,7 +195,7 @@ IF (SIZE(PINPRC) /= 0 .AND. (LDEPOSC .OR. LDEPOC) ) THEN
YRECFM = 'INDEP'
CALL FMREAD(HINIFILE,YRECFM,HLUOUT,YDIR,Z2D,IGRID,ILENCH,YCOMMENT,IRESP)
IF (IRESP == 0) PINDEP(:,:)=Z2D(:,:)/(1000.*3600.)
- YRECFM = 'ACPRC'
+ YRECFM = 'ACDEP'
CALL FMREAD(HINIFILE,YRECFM,HLUOUT,YDIR,Z2D,IGRID,ILENCH,YCOMMENT,IRESP)
IF (IRESP == 0) PACDEP(:,:)=Z2D(:,:)/(1000.)
CASE ('INIT')
--
GitLab