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

Last change on this file since 222 was 222, checked in by ymipsl, 10 years ago

Creating temporary dynamico/lmdz/saturn branche

YM
File size: 685 bytes
Line 
1!
2! $Id$
3!
4SUBROUTINE init_phys_lmdz(iim,jjp1,llm,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) :: llm
16    INTEGER,INTENT(in) :: nb_proc
17    INTEGER,INTENT(in) :: distrib(0:nb_proc-1)
18
19
20    CALL init_grid_phy_lmdz(iim,jjp1,llm)
21    CALL init_phys_lmdz_para(iim,jjp1,nb_proc,distrib)
22!$OMP PARALLEL
23    CALL init_dimphy(klon_omp,nbp_lev)
24
25!$OMP END PARALLEL
26 
27END SUBROUTINE init_phys_lmdz 
Note: See TracBrowser for help on using the repository browser.