Changeset 5618 for LMDZ6/branches/contrails/libf/phylmd/lmdz_thermcell_down.f90

Timestamp:

Apr 15, 2025, 11:56:45 AM (2 months ago)

Author:

aborella

Message:

Merge with trunk testing r5597. We have convergence in prod and debug in NPv7.0.1c

Location:

LMDZ6/branches/contrails

Files:

• . (modified) (1 prop)
• libf/phylmd/lmdz_thermcell_down.f90 (modified) (2 diffs)

LMDZ6/branches/contrails/libf/phylmd/lmdz_thermcell_down.f90

@@ -43 +43 @@
    integer ig,ilay
    real, dimension(ngrid,nlay):: s1,s2,num !coefficients pour la resolution implicite
-   integer :: iflag_impl=1 ! 0 pour explicite, 1 pour implicite "classique", 2 pour implicite avec entrainement et detrainement
-   
+   integer :: iflag_impl ! 0 pour explicite, 1 pour implicite "classique", 2 pour implicite avec entrainement et detrainement
+  
    fdn(:,:)=0.
    fup(:,:)=0.
@@ -59 +59 @@
    s2(:,:)=0.
    num(:,:)=1.
+   
+   iflag_impl=1 ! 0 pour explicite, 1 pour implicite "classique", 2 pour implicite avec entrainement et detrainement
 
    if ( iflag_thermals_down < 10 ) then