Skip to content
Snippets Groups Projects
Commit 15f00b51 authored by RODIER Quentin's avatar RODIER Quentin
Browse files

Quentin 07/07/2021: bugfix LIMA prognostic supersaturation

parent e068e820
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
src/MNH/prognos_lima.f90
+ 1
− 0
View file @ 15f00b51
...@@ -297,6 +297,7 @@ ENDWHERE ...@@ -297,6 +297,7 @@ ENDWHERE
!Calcul de S+dS !Calcul de S+dS
PS0(:)=PS0(:)+((ZA1(:)-(((ZB(:)*(PS0(:)+1.0)+1.0)*ZDZRC(:))/ZRVSAT1(:)))*PTSTEP) PS0(:)=PS0(:)+((ZA1(:)-(((ZB(:)*(PS0(:)+1.0)+1.0)*ZDZRC(:))/ZRVSAT1(:)))*PTSTEP)
! !
PS0=MAX(PS0,-0.98)
!Ajustement tel que rv=(s+1)*rvs !Ajustement tel que rv=(s+1)*rvs
ZTL(:)=PTT(:)-(PLV(:)/PCPH(:))*PRC(:) ZTL(:)=PTT(:)-(PLV(:)/PCPH(:))*PRC(:)
ZRT(:)=PRC(:)+PRV(:) ZRT(:)=PRC(:)+PRV(:)
......
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