Skip to content
Snippets Groups Projects
Commit 1975f42e authored by WAUTELET Philippe's avatar WAUTELET Philippe
Browse files

Philippe 17/08/2017: bug correction: corrected field name for reading of...

Philippe 17/08/2017: bug correction: corrected field name for reading of droplet deposition (ACPRC->ACDEP)
parent a208ee13
No related branches found
No related tags found
No related merge requests found
...@@ -195,7 +195,7 @@ IF (SIZE(PINPRC) /= 0 .AND. (LDEPOSC .OR. LDEPOC) ) THEN ...@@ -195,7 +195,7 @@ IF (SIZE(PINPRC) /= 0 .AND. (LDEPOSC .OR. LDEPOC) ) THEN
YRECFM = 'INDEP' YRECFM = 'INDEP'
CALL FMREAD(HINIFILE,YRECFM,HLUOUT,YDIR,Z2D,IGRID,ILENCH,YCOMMENT,IRESP) CALL FMREAD(HINIFILE,YRECFM,HLUOUT,YDIR,Z2D,IGRID,ILENCH,YCOMMENT,IRESP)
IF (IRESP == 0) PINDEP(:,:)=Z2D(:,:)/(1000.*3600.) IF (IRESP == 0) PINDEP(:,:)=Z2D(:,:)/(1000.*3600.)
YRECFM = 'ACPRC' YRECFM = 'ACDEP'
CALL FMREAD(HINIFILE,YRECFM,HLUOUT,YDIR,Z2D,IGRID,ILENCH,YCOMMENT,IRESP) CALL FMREAD(HINIFILE,YRECFM,HLUOUT,YDIR,Z2D,IGRID,ILENCH,YCOMMENT,IRESP)
IF (IRESP == 0) PACDEP(:,:)=Z2D(:,:)/(1000.) IF (IRESP == 0) PACDEP(:,:)=Z2D(:,:)/(1000.)
CASE ('INIT') CASE ('INIT')
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment