Skip to content
Snippets Groups Projects
Commit eabb99c9 authored by VIE Benoît's avatar VIE Benoît
Browse files

Bugfix default_desfmn for nesting with LIMA

parent 2624cf59
No related branches found
No related tags found
No related merge requests found
...@@ -972,13 +972,13 @@ ENDIF ...@@ -972,13 +972,13 @@ ENDIF
!* 19.BIS SET DEFAULT VALUES FOR MODD_PARAM_LIMA : !* 19.BIS SET DEFAULT VALUES FOR MODD_PARAM_LIMA :
! ---------------------------------------- ! ----------------------------------------
! !
LPTSPLIT = .FALSE.
L_LFEEDBACKT = .TRUE.
L_NMAXITER = 1
L_XMRSTEP = 0.
L_XTSTEP_TS = 0.
!
IF (KMI == 1) THEN IF (KMI == 1) THEN
LPTSPLIT = .FALSE.
L_LFEEDBACKT = .TRUE.
L_NMAXITER = 1
L_XMRSTEP = 0.
L_XTSTEP_TS = 0.
!
YNUC = 1.0 YNUC = 1.0
YALPHAC = 3.0 YALPHAC = 3.0
YNUR = 2.0 YNUR = 2.0
...@@ -1017,9 +1017,7 @@ IF (KMI == 1) THEN ...@@ -1017,9 +1017,7 @@ IF (KMI == 1) THEN
LCCN_HOM = .TRUE. LCCN_HOM = .TRUE.
CCCN_MODES = 'COPT' CCCN_MODES = 'COPT'
XCCN_CONC(:)=300. XCCN_CONC(:)=300.
ENDIF
!
IF (KMI == 1) THEN
LHHONI = .FALSE. LHHONI = .FALSE.
LCOLD = .TRUE. LCOLD = .TRUE.
LNUCL = .TRUE. LNUCL = .TRUE.
......
...@@ -72,7 +72,7 @@ SUBROUTINE LIMA_ICE_DEPOSITION (PTSTEP, LDCOMPUTE, & ...@@ -72,7 +72,7 @@ SUBROUTINE LIMA_ICE_DEPOSITION (PTSTEP, LDCOMPUTE, &
!* 0. DECLARATIONS !* 0. DECLARATIONS
! ------------ ! ------------
! !
USE MODD_PARAM_LIMA, ONLY : XRTMIN, XCTMIN, XALPHAI, XALPHAS, XNUI, XNUS USE MODD_PARAM_LIMA, ONLY : XRTMIN, XCTMIN, XALPHAI, XALPHAS, XNUI, XNUS , LSNOW
USE MODD_PARAM_LIMA_COLD, ONLY : XCXS, XCCS, & USE MODD_PARAM_LIMA_COLD, ONLY : XCXS, XCCS, &
XLBDAS_MAX, XDSCNVI_LIM, XLBDASCNVI_MAX, & XLBDAS_MAX, XDSCNVI_LIM, XLBDASCNVI_MAX, &
XC0DEPSI, XC1DEPSI, XR0DEPSI, XR1DEPSI, & XC0DEPSI, XC1DEPSI, XR0DEPSI, XR1DEPSI, &
......
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