init_phys_lmdz.F90

Go to the documentation of this file.

!
!$Id: init_phys_lmdz.F90 2239 2015-03-23 07:27:30Z emillour $
!
SUBROUTINE init_phys_lmdz(iim,jjp1,llm,nb_proc,distrib)
  USE mod_phys_lmdz_para, ONLY: init_phys_lmdz_para, klon_omp
  USE mod_grid_phy_lmdz, ONLY: init_grid_phy_lmdz, nbp_lev
  USE dimphy, ONLY : init_dimphy
  USE infotrac, ONLY : type_trac
#ifdef REPROBUS
  USE chem_rep, ONLY : init_chem_rep_phys
#endif

  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)

! Initialization of Reprobus
    IF (type_trac == 'repr') THEN
#ifdef REPROBUS
       CALL init_chem_rep_phys(klon_omp,nbp_lev)
#endif
    END IF

!$OMP END PARALLEL
 
END SUBROUTINE init_phys_lmdz