Ignore:
Timestamp:
Feb 4, 2021, 3:59:25 PM (3 years ago)
Author:
lmdz-users
Message:

to be able to work with dynamico's dynamic, we modify call for the inca initialisation

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/LMDZ-INCA-Dyn/libf/phy_common/physics_distribution_mod.F90

    r3435 r3820  
    2929
    3030    CALL init_grid_phy_lmdz(grid_type,nvertex, nbp_lon,nbp_lat,nbp_lev)
    31     CALL init_phys_lmdz_para(nbp,nbp_lon, nbp_lat, communicator)
     31    CALL init_phys_lmdz_para(nbp,nbp_lon, nbp_lat,nbp_lev, communicator)
    3232!$OMP PARALLEL
    3333    CALL init_dimphy(klon_omp,nbp_lev)
    … …  
    3737#ifdef REPROBUS
    3838       CALL Init_chem_rep_phys(klon_omp,nbp_lev)
     39#endif
     40    END IF
     41    IF (type_trac == 'inca') THEN
     42#ifdef INCA
     43       CALL Init_inca_dim(klon_omp,nbp_lev)
    3944#endif
    4045    END IF
Note: See TracChangeset for help on using the changeset viewer.