Changeset 2170 for trunk/LMDZ.MARS/libf/aeronomars/photolysis.F90

Timestamp:

Oct 14, 2019, 11:00:51 PM (5 years ago)

Author:

flefevre

Message:

• la chimie des ions est désormais optionnelle (FGG)
• regroupement des options de la photochimie dans calchim_mod (FL)
• mise à jour cinétique CO + OH, inactive pour le moment (FL)

File:

• trunk/LMDZ.MARS/libf/aeronomars/photolysis.F90 (modified) (3 diffs)

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

@@ -1 +1 @@
 !==========================================================================
 
-      subroutine photolysis(nlayer,                              &
+      subroutine photolysis(nlayer, nb_phot_max,                  &
                             lswitch, press, temp, sza, tauref,   &
                             zmmean, dist_sol, rmco2, rmo3, v_phot)
@@ -8 +8 @@
 
       use comcstfi_h
-      use photolysis_mod, only : nb_phot_max
 
       implicit none
@@ -18 +17 @@
 !==========================================================================
        
-      integer, intent(in) :: nlayer ! number of atmospheric layers
-      integer :: lswitch            ! interface level between chemistries
-      real :: press(nlayer)         ! pressure (hPa)
-      real :: temp(nlayer)          ! temperature (K)
-      real :: sza                   ! solar zenith angle (deg)
-      real :: tauref                ! optical depth at 7 hpa
-      real :: zmmean(nlayer)        ! mean molecular mass (g)
-      real :: dist_sol              ! sun distance (AU) 
-      real :: rmco2(nlayer)         ! co2 mixing ratio
-      real :: rmo3(nlayer)          ! ozone mixing ratio
+      integer, intent(in) :: nlayer      ! number of atmospheric layers
+      integer, intent(in) :: nb_phot_max ! number of processes treated numerically as photodissociations
+      integer :: lswitch                 ! interface level between chemistries
+      real :: press(nlayer)              ! pressure (hPa)
+      real :: temp(nlayer)               ! temperature (K)
+      real :: sza                        ! solar zenith angle (deg)
+      real :: tauref                     ! optical depth at 7 hpa
+      real :: zmmean(nlayer)             ! mean molecular mass (g)
+      real :: dist_sol                   ! sun distance (AU) 
+      real :: rmco2(nlayer)              ! co2 mixing ratio
+      real :: rmo3(nlayer)               ! ozone mixing ratio
 
 !==========================================================================