Changeset 2007 for trunk/LMDZ.MARS/libf/aeronomars/calchim.F90

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/aeronomars/calchim.F90 (moved) (moved from trunk/LMDZ.MARS/libf/aeronomars/calchim_asis.F90) (2 diffs)

trunk/LMDZ.MARS/libf/aeronomars/calchim.F90

@@ -1 @@
-      subroutine calchim_asis(ngrid,nlayer,nq,                              &
+      subroutine calchim(ngrid,nlayer,nq,                                   &
                          ptimestep,pplay,pplev,pt,pdt,dist_sol,mu0,         &
                          zzlev,zzlay,zday,pq,pdq,dqchim,dqschim,dqcloud,    &
@@ -658 +658 @@
          if (photochem) then
 
-            call photochemistry_asis(nlayer,nq,                       &
+            call photochemistry(nlayer,nq,                            &
                                 ig,lswitch,zycol,szacol,ptimestep,    &
                                 zpress,ztemp,zdens,zmmean,dist_sol,   &