Changeset 4249 for LMDZ6/trunk/libf


Ignore:
Timestamp:
Sep 15, 2022, 5:18:28 PM (2 years ago)
Author:
oboucher
Message:

add is_omp_root for computation of RCO2_glo

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/tracco2i_mod.F90

    r4050 r4249  
    305305
    306306!--compute a global mean CO2 value and print its value in ppm
    307        IF (is_mpi_root) THEN
     307       IF (is_mpi_root .AND. is_omp_root) THEN
    308308         RCO2_tot=SUM(co2_glo*m_air_glo)  !--unit kg CO2
    309309         RCO2_glo=RCO2_tot/SUM(m_air_glo) !--unit kg CO2 / kg air
Note: See TracChangeset for help on using the changeset viewer.