Changeset 2007 for trunk/LMDZ.MARS/libf/phymars

Timestamp:

Oct 18, 2018, 9:59:39 AM (6 years ago)

Author:

flefevre

Message:

Suppression de l'ancien code photochimique (euler-backward)

File:

• trunk/LMDZ.MARS/libf/phymars/physiq_mod.F (modified) (2 diffs)

trunk/LMDZ.MARS/libf/phymars/physiq_mod.F

@@ -241 +241 @@
       real zcondicea_co2microp(ngrid,nlayer)
 c     Variables used by the photochemistry
-      logical :: asis             ! true  : adaptative semi-implicit symmetric (asis) chemical solver
-                                  ! false : euler backward chemical solver
       REAL surfdust(ngrid,nlayer) ! dust surface area (m2/m3, if photochemistry)
       REAL surfice(ngrid,nlayer)  !  ice surface area (m2/m3, if photochemistry)
@@ -1588 +1586 @@
      $                       surfdust, surfice)
 !           call photochemistry
-!           asis = .false.  euler-backward scheme 
-!           asis = .true.   asis scheme 
-
-            asis = .true.
-
-            if (asis) then
-            call calchim_asis(ngrid,nlayer,nq,
-     &                   ptimestep,zplay,zplev,pt,pdt,dist_sol,mu0,
-     $                   zzlev,zzlay,zday,pq,pdq,zdqchim,zdqschim,
-     $                   zdqcloud,zdqscloud,tauref,co2ice,
-     $                   pu,pdu,pv,pdv,surfdust,surfice)
-            else
             call calchim(ngrid,nlayer,nq,
      &                   ptimestep,zplay,zplev,pt,pdt,dist_sol,mu0,