Skip to content
Snippets Groups Projects
Commit b661b184 authored by Gaelle Tanguy's avatar Gaelle Tanguy Committed by WAUTELET Philippe
Browse files

Gaelle 22/03/2016 : restore min value of ZSIGMA

parent 3083088f
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
src/MNH/condensation.f90
+ 3
− 2
View file @ b661b184
...@@ -116,6 +116,7 @@ END MODULE MODI_CONDENSATION ...@@ -116,6 +116,7 @@ END MODULE MODI_CONDENSATION
!! Safety limitation to .99*Pressure for saturation vapour pressure !! Safety limitation to .99*Pressure for saturation vapour pressure
!! 2012-02 Y. Seity, add possibility to run with reversed vertical levels !! 2012-02 Y. Seity, add possibility to run with reversed vertical levels
!! 2015 C.Lac Change min value of ZSIGMA to be in agreement with AROME !! 2015 C.Lac Change min value of ZSIGMA to be in agreement with AROME
!! 2016 G.Delautier Restore min value of ZSIGMA (instability)
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------
! !
!* 0. DECLARATIONS !* 0. DECLARATIONS
...@@ -321,8 +322,8 @@ DO JK=IKTB,IKTE ...@@ -321,8 +322,8 @@ DO JK=IKTB,IKTE
ZA*ZA*ZDRW*ZDRW - 2.*ZA*ZB*ZDRW*ZDTL + ZB*ZB*ZDTL*ZDTL) + & ZA*ZA*ZDRW*ZDRW - 2.*ZA*ZB*ZDRW*ZDTL + ZB*ZB*ZDTL*ZDTL) + &
ZSIG_CONV * ZSIG_CONV ) ) ZSIG_CONV * ZSIG_CONV ) )
END IF END IF
! ZSIGMA= MAX( 1.E-10, ZSIGMA ) ZSIGMA= MAX( 1.E-10, ZSIGMA )
ZSIGMA= MAX( 1.E-12, ZSIGMA ) ! ZSIGMA= MAX( 1.E-12, ZSIGMA )
! normalized saturation deficit ! normalized saturation deficit
ZQ1 = ZSBAR/ZSIGMA ZQ1 = ZSBAR/ZSIGMA
......
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