diff --git a/src/MNH/prognos_lima.f90 b/src/MNH/prognos_lima.f90 index 967dd166ab2933510cf616c46e378076e66a5ffe..64834850299bea38e862fe05238081fc5dac9b1a 100644 --- a/src/MNH/prognos_lima.f90 +++ b/src/MNH/prognos_lima.f90 @@ -297,6 +297,7 @@ ENDWHERE !Calcul de S+dS PS0(:)=PS0(:)+((ZA1(:)-(((ZB(:)*(PS0(:)+1.0)+1.0)*ZDZRC(:))/ZRVSAT1(:)))*PTSTEP) ! +PS0=MAX(PS0,-0.98) !Ajustement tel que rv=(s+1)*rvs ZTL(:)=PTT(:)-(PLV(:)/PCPH(:))*PRC(:) ZRT(:)=PRC(:)+PRV(:)