Skip to content
Snippets Groups Projects
Commit ba8704d6 authored by Christine Lac's avatar Christine Lac
Browse files

Maud:avoid negative values for SVS

parent 75a2a456
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
src/MNH/shallow_mf_pack.f90
+ 3
− 2
View file @ ba8704d6
...@@ -114,6 +114,7 @@ END MODULE MODI_SHALLOW_MF_PACK ...@@ -114,6 +114,7 @@ END MODULE MODI_SHALLOW_MF_PACK
!! V.Masson 09/2010 !! V.Masson 09/2010
!! Modification R. Honnert 07/2012 : introduction of vertical wind !! Modification R. Honnert 07/2012 : introduction of vertical wind
!! for the height of the thermal !! for the height of the thermal
!! M. Leriche 02/2017 : avoid negative values for sv tendencies
!! -------------------------------------------------------------------------- !! --------------------------------------------------------------------------
! !
!* 0. DECLARATIONS !* 0. DECLARATIONS
...@@ -365,8 +366,8 @@ PRVS(:,:,:) = PRVS(:,:,:) +MYM( & ...@@ -365,8 +366,8 @@ PRVS(:,:,:) = PRVS(:,:,:) +MYM( &
DO JSV=1,ISV DO JSV=1,ISV
IF (LNOMIXLG .AND. JSV >= NSV_LGBEG .AND. JSV<= NSV_LGEND) CYCLE IF (LNOMIXLG .AND. JSV >= NSV_LGBEG .AND. JSV<= NSV_LGEND) CYCLE
PRSVS(:,:,:,JSV) = PRSVS(:,:,:,JSV) + & PRSVS(:,:,:,JSV) = MAX((PRSVS(:,:,:,JSV) + &
PRHODJ(:,:,:)*ZDSVDT(:,:,:,JSV) PRHODJ(:,:,:)*ZDSVDT(:,:,:,JSV)),XSVMIN(JSV))
END DO END DO
!!! 7. call to MesoNH budgets !!! 7. call to MesoNH budgets
......
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