source: LMDZ4/trunk/libf/phytherm/init_phys_lmdz.F90 @ 815

Last change on this file since 815 was 814, checked in by Laurent Fairhead, 17 years ago

Rajout de la physique utilisant les thermiques FH
LF

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 590 bytes
Line 
1!
2!$Header$
3!
4SUBROUTINE 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 
24END SUBROUTINE Init_Phys_lmdz 
Note: See TracBrowser for help on using the repository browser.