!$Id: lmdz_physics_distribution.F90 5185 2024-09-11 14:27:07Z evignon $

MODULE lmdz_physics_distribution


CONTAINS

  SUBROUTINE init_physics_distribution(grid_type, nvertex, &
          nbp, nbp_lon, nbp_lat, nbp_lev, &
          communicator)
    USE lmdz_phys_para, ONLY: init_phys_lmdz_para, klon_omp
    USE lmdz_grid_phy, ONLY: init_grid_phy_lmdz
    USE dimphy, ONLY: Init_dimphy
    USE infotrac_phy, ONLY: type_trac
    USE lmdz_reprobus_wrappers, ONLY: Init_chem_rep_phys
    USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_INCA, CPPKEY_REPROBUS
    IMPLICIT NONE
    INTEGER, INTENT(IN) :: grid_type
    INTEGER, INTENT(IN) :: nvertex
    INTEGER, INTENT(IN) :: nbp
    INTEGER, INTENT(IN) :: nbp_lon
    INTEGER, INTENT(IN) :: nbp_lat
    INTEGER, INTENT(IN) :: nbp_lev
    INTEGER, INTENT(IN) :: communicator

    CALL init_grid_phy_lmdz(grid_type, nvertex, nbp_lon, nbp_lat, nbp_lev)
    CALL init_phys_lmdz_para(nbp, nbp_lon, nbp_lat, nbp_lev, grid_type, nvertex, communicator)
    !$OMP PARALLEL
    CALL init_dimphy(klon_omp, nbp_lev)

    IF (CPPKEY_INCA) THEN
      CALL Init_inca_dim(klon_omp, nbp_lev)
    END IF

    IF (CPPKEY_REPROBUS) THEN
      ! Initialization of Reprobus
      IF (type_trac == 'repr') CALL Init_chem_rep_phys(klon_omp, nbp_lev)
    END IF

    !$OMP END PARALLEL

  END SUBROUTINE init_physics_distribution

  !SUBROUTINE Init_Phys_lmdz(iim,jjp1,llm,nb_proc,distrib)
  !  USE lmdz_phys_para, ONLY: Init_phys_lmdz_para!, klon_omp
  !  USE lmdz_grid_phy, ONLY: Init_grid_phy_lmdz!, nbp_lev
  !  USE dimphy, ONLY: Init_dimphy
  !  USE infotrac_phy, ONLY: type_trac
  !IF (CPPKEY_REPROBUS) THEN
  !  USE lmdz_reprobus_wrappers, ONLY: Init_chem_rep_phys
  !END IF

  !  IMPLICIT NONE

  !    INTEGER,INTENT(IN) :: iim
  !    INTEGER,INTENT(IN) :: jjp1
  !    INTEGER,INTENT(IN) :: llm
  !    INTEGER,INTENT(IN) :: nb_proc
  !    INTEGER,INTENT(IN) :: distrib(0:nb_proc-1)


  !    CALL Init_grid_phy_lmdz(iim,jjp1,llm)
  !    CALL Init_phys_lmdz_para(iim,jjp1,nb_proc,distrib)
  !!$OMP PARALLEL
  !    CALL Init_dimphy(klon_omp,nbp_lev)

  !IF (CPPKEY_REPROBUS) THEN
  !! Initialization of Reprobus
  !    IF (type_trac == 'repr') CALL Init_chem_rep_phys(klon_omp,nbp_lev)
  !    END IF
  !END IF

  !!$OMP END PARALLEL

  !END SUBROUTINE Init_Phys_lmdz


END MODULE lmdz_physics_distribution