diff --git a/src/MNH/read_precip_field.f90 b/src/MNH/read_precip_field.f90 index a1dd9add8e4e95c5620e99835b181e744b2d3230..51336a7f89d209c202b2afa3f2de222860df9231 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')