Skip to content
Snippets Groups Projects
Commit ce9b4978 authored by VIE Benoît's avatar VIE Benoît Committed by RODIER Quentin
Browse files

bugfix lima rain accr snow for 2-m snow

parent be410caf
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
src/mesonh/micro/lima_rain_accr_snow.f90
+ 1
− 1
View file @ ce9b4978
...@@ -288,7 +288,7 @@ WHERE( GACC ) ...@@ -288,7 +288,7 @@ WHERE( GACC )
XLBSACCR2/( PLBDR(:) * PLBDS(:) ) + & XLBSACCR2/( PLBDR(:) * PLBDS(:) ) + &
XLBSACCR3/( PLBDS(:)**2 ) ) XLBSACCR3/( PLBDS(:)**2 ) )
! !
ZZWC5(:)= XFNSACCRG * ZZW3(:) * PCRT(:) * & ! RSACCRG ZZWC5(:)= XFNSACCRG * ZZWC3(:) * PCRT(:) * & ! RSACCRG
PCST(:) * PRHODREF(:)**(1-XCEXVT) * & PCST(:) * PRHODREF(:)**(1-XCEXVT) * &
( XLBNSACCR1/( PLBDR(:)**2 ) + & ( XLBNSACCR1/( PLBDR(:)**2 ) + &
XLBNSACCR2/( PLBDR(:) * PLBDS(:) ) + & XLBNSACCR2/( PLBDR(:) * PLBDS(:) ) + &
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment

Documentation | Mentions légales | CGU | Accessibilité : non conforme