Ignore:
Timestamp:
Jun 17, 2022, 6:49:40 PM (2 years ago)
Author:
lguez
Message:

Sync latest trunk changes to branch LMDZ-ECRAD.

Location:
LMDZ6/branches/LMDZ-ECRAD
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/LMDZ-ECRAD

  • LMDZ6/branches/LMDZ-ECRAD/libf/phy_common/physics_distribution_mod.F90

    r4171 r4173  
    3737#endif
    3838
     39#ifdef REPROBUS
    3940! Initialization of Reprobus
    40     IF (ANY(types_trac == 'repr')) THEN
    41 #ifdef REPROBUS
    42        CALL Init_chem_rep_phys(klon_omp,nbp_lev)
     41    IF (ANY(types_trac == 'repr')) CALL Init_chem_rep_phys(klon_omp,nbp_lev)
     42    END IF
    4343#endif
    44     END IF
    4544
    4645!$OMP END PARALLEL
    … …  
    7170!    CALL Init_dimphy(klon_omp,nbp_lev)
    7271!
     72!#ifdef REPROBUS
    7373!! Initialization of Reprobus
    74 !    IF (ANY(types_trac == 'repr')) THEN
    75 !#ifdef REPROBUS
    76 !       CALL Init_chem_rep_phys(klon_omp,nbp_lev)
     74!    IF (ANY(types_trac == 'repr')) CALL Init_chem_rep_phys(klon_omp,nbp_lev)
     75!    END IF
    7776!#endif
    78 !    END IF
    7977!
    8078!!$OMP END PARALLEL
Note: See TracChangeset for help on using the changeset viewer.