Skip to content
Snippets Groups Projects
Commit 4dfd945c authored by PIANEZZE Joris's avatar PIANEZZE Joris
Browse files

Bugfix : MNH_REAL=4 -> change default value for ZLBDC3 from 1E40 to 1E30

parent 45d8250a
No related branches found
No related tags found
1 merge request!5Bugfix : MNH_REAL=4 -> change default value for ZLBDC3 from 1E40 to 1E30
...@@ -802,7 +802,7 @@ ZZRCT(:,:,:) = MAX(ZZRCT(:,:,:), KRTMIN(2)/2.) ...@@ -802,7 +802,7 @@ ZZRCT(:,:,:) = MAX(ZZRCT(:,:,:), KRTMIN(2)/2.)
IF (PRESENT(PCRT)) THEN ! 2-moment schemes IF (PRESENT(PCRT)) THEN ! 2-moment schemes
! !
! from lima_warm_coal.f90 (AUTO) ! from lima_warm_coal.f90 (AUTO)
ZLBDC3(:,:,:) = 1E40 ZLBDC3(:,:,:) = 1E30
! ZLBDC3(:,:,:) = XMNH_HUGE ! ZLBDC3(:,:,:) = XMNH_HUGE
ZLBDC(:,:,:) = 1.E15 ZLBDC(:,:,:) = 1.E15
WHERE (ZZRCT(:,:,:) > KRTMIN(2) .AND. PCCT(:,:,:) > XCTMIN(2)) WHERE (ZZRCT(:,:,:) > KRTMIN(2) .AND. PCCT(:,:,:) > XCTMIN(2))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment