Ignore:
Timestamp:
Feb 15, 2021, 4:27:07 PM (4 years ago)
Author:
acozic
Message:

need to initialize lon and lev for inca before call init_inca_para

File:
1 edited

Legend:

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

    r3841 r3844  
    2828
    2929
     30!    IF (type_trac == 'inca') THEN
     31#ifdef INCA
     32       CALL Init_inca_dim(klon_omp,nbp_lev)
     33#endif
     34!    END IF
     35
    3036    CALL init_grid_phy_lmdz(grid_type,nvertex, nbp_lon,nbp_lat,nbp_lev)
    3137    CALL init_phys_lmdz_para(nbp,nbp_lon, nbp_lat,nbp_lev, grid_type,nvertex, communicator)
     
    3743#ifdef REPROBUS
    3844       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)
    4445#endif
    4546!    END IF
Note: See TracChangeset for help on using the changeset viewer.