source:
LMDZ4/branches/LMDZ4-dev/libf/phytherm/init_phys_lmdz.F90
@
1086
Last change on this file since 1086 was 814, checked in by , 17 years ago | |
---|---|
|
|
File size: 590 bytes |
Line | |
---|---|
1 | ! |
2 | !$Header$ |
3 | ! |
4 | SUBROUTINE Init_Phys_lmdz(iim,jjp1,llm,nbtr,nb_proc,distrib) |
5 | USE mod_phys_lmdz_para |
6 | USE mod_grid_phy_lmdz |
7 | USE dimphy, ONLY : Init_dimphy |
8 | IMPLICIT NONE |
9 | |
10 | INTEGER,INTENT(in) :: iim |
11 | INTEGER,INTENT(in) :: jjp1 |
12 | INTEGER,INTENT(in) :: llm |
13 | INTEGER,INTENT(in) :: nbtr |
14 | INTEGER,INTENT(in) :: nb_proc |
15 | INTEGER,INTENT(in) :: distrib(0:nb_proc-1) |
16 | |
17 | |
18 | CALL Init_grid_phy_lmdz(iim,jjp1,llm) |
19 | CALL Init_phys_lmdz_para(iim,jjp1,nb_proc,distrib) |
20 | !$OMP PARALLEL |
21 | CALL Init_dimphy(klon_omp,nbp_lev,nbtr) |
22 | !$OMP END PARALLEL |
23 | |
24 | END SUBROUTINE Init_Phys_lmdz |
Note: See TracBrowser
for help on using the repository browser.