Ignore:
Timestamp:
Oct 28, 2018, 5:55:23 PM (6 years ago)
Author:
flefevre
Message:

photolyse on-line:

  • regroupement des parametres en module
  • suppression des appels a chimiedata.h inutiles
  • optimisation geometrie spherique
  • revision des intervalles spectraux
File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r2024 r2030  
    88
    99      use comcstfi_h
     10      use photolysis_mod, only : nb_phot_max
    1011
    1112      implicit none
    … …  
    333334         v_phot(l, 8) = j(l,j_h2o2)
    334335         v_phot(l, 9) = j(l,j_ho2)
    335          v_phot(l,10) = 0.         ! h2
     336         v_phot(l,10) = 0.         ! h2 missing in lookup table
    336337         v_phot(l,11) = j(l,j_no)
    337338         v_phot(l,12) = j(l,j_no2)
    338          v_phot(l,13) = 0.         ! n2
     339         v_phot(l,13) = 0.         ! n2 missing in lookup table
    339340      end do
    340341
Note: See TracChangeset for help on using the changeset viewer.