source: codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/init_phys_lmdz.F90 @ 245

Last change on this file since 245 was 245, checked in by ymipsl, 10 years ago
  • One call for initialize physics from dynamico
  • mpi_root renamed into mpi_master due to conflict with an existaing symbol from the mpi library

==> mpi_root => mpi_master, is_mpi_root => is_mpi_master, is_omp_root => is_omp_master

YM
File size: 754 bytes
Line 
1!
2! $Id$
3!
4SUBROUTINE init_phys_lmdz(iim,jjp1,llm,comm_lmdz,nb_proc,distrib)
5  USE mod_phys_lmdz_omp_data, only: klon_omp
6  USE mod_grid_phy_lmdz, only: nbp_lev
7  USE mod_phys_lmdz_para, only: init_phys_lmdz_para
8  USE mod_grid_phy_lmdz, only: init_grid_phy_lmdz
9  USE dimphy, ONLY : init_dimphy
10
11  IMPLICIT NONE
12 
13    INTEGER,INTENT(in) :: iim
14    INTEGER,INTENT(in) :: jjp1
15    INTEGER,INTENT(in) :: comm_lmdz
16    INTEGER,INTENT(in) :: llm
17    INTEGER,INTENT(in) :: nb_proc
18    INTEGER,INTENT(in) :: distrib(0:nb_proc-1)
19
20
21    CALL init_grid_phy_lmdz(iim,jjp1,sum(distrib),llm)
22    CALL init_phys_lmdz_para(iim,jjp1,comm_lmdz,nb_proc,distrib)
23!$OMP PARALLEL
24    CALL init_dimphy(klon_omp,nbp_lev)
25
26!$OMP END PARALLEL
27 
28END SUBROUTINE init_phys_lmdz 
Note: See TracBrowser for help on using the repository browser.