Ignore:
Timestamp:
Jun 17, 2022, 5:49:22 PM (3 years ago)
Author:
dcugnet
Message:
  • add the computation of nqINCA in the "tracer.def" case (A. Cozic)
  • few fixes
File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phy_common/physics_distribution_mod.F90

    r4170 r4172  
    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.