Ignore:
Timestamp:
Feb 18, 2021, 11:23:57 AM (4 years ago)
Author:
acozic
Message:

init_inca_dim need to be call after init_dimphy

File:
1 edited

Legend:

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

    r3844 r3848  
    2828
    2929
     30
     31    CALL init_grid_phy_lmdz(grid_type,nvertex, nbp_lon,nbp_lat,nbp_lev)
     32    CALL init_phys_lmdz_para(nbp,nbp_lon, nbp_lat,nbp_lev, grid_type,nvertex, communicator)
     33!$OMP PARALLEL
     34    CALL init_dimphy(klon_omp,nbp_lev)
     35
     36
    3037!    IF (type_trac == 'inca') THEN
    3138#ifdef INCA
     
    3340#endif
    3441!    END IF
    35 
    36     CALL init_grid_phy_lmdz(grid_type,nvertex, nbp_lon,nbp_lat,nbp_lev)
    37     CALL init_phys_lmdz_para(nbp,nbp_lon, nbp_lat,nbp_lev, grid_type,nvertex, communicator)
    38 !$OMP PARALLEL
    39     CALL init_dimphy(klon_omp,nbp_lev)
    4042
    4143! Initialization of Reprobus
Note: See TracChangeset for help on using the changeset viewer.