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

Benoit V. 02/03/2020: Desactivate temperature change of droplets by air temperature

parent 1173e76c
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
src/MNH/lima_sedimentation.f90
+ 2
− 1
View file @ 2ce04dd5
...@@ -62,6 +62,7 @@ END MODULE MODI_LIMA_SEDIMENTATION ...@@ -62,6 +62,7 @@ END MODULE MODI_LIMA_SEDIMENTATION
!! Original 15/03/2018 !! Original 15/03/2018
!! !!
!! B.Vie 02/2019 Desactivate (comment) the heat transport by droplets !! B.Vie 02/2019 Desactivate (comment) the heat transport by droplets
!! B.Vie 03/2020 Desactivate temperature change of droplets by air temperature
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------
! !
!* 0. DECLARATIONS !* 0. DECLARATIONS
...@@ -225,7 +226,7 @@ DO JN = 1 , NSPLITSED(KID) ...@@ -225,7 +226,7 @@ DO JN = 1 , NSPLITSED(KID)
DEALLOCATE(ZZY) DEALLOCATE(ZZY)
! !
PINPR(:,:) = PINPR(:,:) + ZWSEDR(:,:,KKB)/XRHOLW/NSPLITSED(KID) ! in m/s PINPR(:,:) = PINPR(:,:) + ZWSEDR(:,:,KKB)/XRHOLW/NSPLITSED(KID) ! in m/s
PT(:,:,:) = PT(:,:,:) + ZWDT(:,:,:) !PT(:,:,:) = PT(:,:,:) + ZWDT(:,:,:)
END IF END IF
END DO END DO
......
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