Ignore:
Timestamp:
Feb 11, 2021, 3:29:29 PM (3 years ago)
Author:
acozic
Message:

add parameters to define unstructured grid on Inca model

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r3840 r3841  
    1313  USE mod_grid_phy_lmdz, ONLY: init_grid_phy_lmdz
    1414  USE dimphy, ONLY : Init_dimphy
    15 ! attention a modifier, on ne peut pas garder infotrac depuis la physique
    16 ! bug avec le couplage dynamico
    17   USE infotrac, ONLY : type_trac
     15!  USE infotrac, ONLY : type_trac
    1816#ifdef REPROBUS
    1917  USE CHEM_REP, ONLY : Init_chem_rep_phys
    … …  
    3129
    3230    CALL init_grid_phy_lmdz(grid_type,nvertex, nbp_lon,nbp_lat,nbp_lev)
    33     CALL init_phys_lmdz_para(nbp,nbp_lon, nbp_lat,nbp_lev, communicator)
     31    CALL init_phys_lmdz_para(nbp,nbp_lon, nbp_lat,nbp_lev, grid_type,nvertex, communicator)
    3432!$OMP PARALLEL
    3533    CALL init_dimphy(klon_omp,nbp_lev)
    3634
    3735! Initialization of Reprobus
    38     IF (type_trac == 'repr') THEN
     36!    IF (type_trac == 'repr') THEN
    3937#ifdef REPROBUS
    4038       CALL Init_chem_rep_phys(klon_omp,nbp_lev)
    4139#endif
    42     END IF
    43     IF (type_trac == 'inca') THEN
     40!    END IF
     41!    IF (type_trac == 'inca') THEN
    4442#ifdef INCA
    4543       CALL Init_inca_dim(klon_omp,nbp_lev)
    4644#endif
    47     END IF
     45!    END IF
    4846
    4947!$OMP END PARALLEL
Note: See TracChangeset for help on using the changeset viewer.