Changeset 4768 for LMDZ6


Ignore:
Timestamp:
Dec 10, 2023, 10:37:08 PM (12 months ago)
Author:
lguez
Message:

Change default value of id_species

So that execution crashes if no value is specified by the
user and flag_emit == 4. (Commit on behalf of N. Lebas.)

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/StratAer/strataer_emiss_mod.F90

    r4766 r4768  
    6767             ALLOCATE(id_HBr)
    6868             ALLOCATE(id_species(nSpeciesErupt))
    69              id_species = 3
     69             id_species = 0
    7070             ALLOCATE(m_species_emiss_vol(nErupt,nSpeciesErupt))
    7171             m_species_emiss_vol=0.
Note: See TracChangeset for help on using the changeset viewer.