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

Benoit V. 02/03/2020: add missing process on CC cloud autoconversion

parent 5db46310
No related branches found
No related tags found
No related merge requests found
...@@ -57,7 +57,7 @@ END MODULE MODI_LIMA_DROPLETS_AUTOCONVERSION ...@@ -57,7 +57,7 @@ END MODULE MODI_LIMA_DROPLETS_AUTOCONVERSION
!! MODIFICATIONS !! MODIFICATIONS
!! ------------- !! -------------
!! Original 15/03/2018 !! Original 15/03/2018
!! !! B. Vie 02/03/2020 : missing CC process
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------
! !
!* 0. DECLARATIONS !* 0. DECLARATIONS
...@@ -125,11 +125,11 @@ WHERE( PRCT(:)>XRTMIN(2) .AND. PLBDC(:)>0. .AND. LDCOMPUTE(:) ) ...@@ -125,11 +125,11 @@ WHERE( PRCT(:)>XRTMIN(2) .AND. PLBDC(:)>0. .AND. LDCOMPUTE(:) )
! min (80 microns, D_h, D_r) ! min (80 microns, D_h, D_r)
ZW3(:) = ZW3(:) * MAX( 0.0,ZW1(:) )**3 / XAC ZW3(:) = ZW3(:) * MAX( 0.0,ZW1(:) )**3 / XAC
! !
P_CC_AUTO(:) = 0. P_CC_AUTO(:) = -ZW3(:)
P_CR_AUTO(:) = ZW3(:) P_CR_AUTO(:) = ZW3(:)
! !
PA_RC(:) = PA_RC(:) + P_RC_AUTO(:) PA_RC(:) = PA_RC(:) + P_RC_AUTO(:)
PA_CC(:) = PA_CC(:) PA_CC(:) = PA_CC(:) + P_CC_AUTO(:)
PA_RR(:) = PA_RR(:) - P_RC_AUTO(:) PA_RR(:) = PA_RR(:) - P_RC_AUTO(:)
PA_CR(:) = PA_CR(:) + P_CR_AUTO(:) PA_CR(:) = PA_CR(:) + P_CR_AUTO(:)
END WHERE END WHERE
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment