uEMEP_set_species_loop Subroutine

public subroutine uEMEP_set_species_loop()

Uses

  • proc~~uemep_set_species_loop~~UsesGraph proc~uemep_set_species_loop uEMEP_set_species_loop module~uemep_definitions uEMEP_definitions proc~uemep_set_species_loop->module~uemep_definitions

Arguments

None

Called by

proc~~uemep_set_species_loop~~CalledByGraph proc~uemep_set_species_loop uEMEP_set_species_loop program~uemep uEMEP program~uemep->proc~uemep_set_species_loop

Source Code

    subroutine uEMEP_set_species_loop

        use uEMEP_definitions

        implicit none

        integer s_loop

        !Set the pollutant index loops after reading in pollutant_index
        !Remove the sand and salt PM2.5, not necessary. Fixed ratio if needed n_pollutant_loop=6
        if (save_emep_species) then
            n_species_loop_index=n_sp_index
            do s_loop=1,n_species_loop_index
                species_loop_index(s_loop)=s_loop
            enddo
        elseif (save_seasalt) then
            n_species_loop_index=1
            species_loop_index(1)=sp_seasalt_index
        else
            !No species will be read or chosen. Set to 0 to make sure it fails if they are
            n_species_loop_index=1
            species_loop_index(1)=0
        endif
        !Override the save_emep_species to include the OP species
        if (save_emep_OP_species) then
            n_species_loop_index=n_sp_OP_index
            do s_loop=1,n_species_loop_index
                species_loop_index(s_loop)=s_loop
            enddo
        endif

        write(unit_logfile,'(a,i)') 'Number of species=',n_species_loop_index
        !write(*,*) '####0: ',n_species_loop_index

    end subroutine uEMEP_set_species_loop