source: LMDZ4/trunk/libf/phylmd/init_phys_lmdz.F90 @ 5360

Last change on this file since 5360 was 1146, checked in by Laurent Fairhead, 16 years ago

Réintegration dans le tronc des modifications issues de la branche LMDZ-dev
comprises entre la révision 1074 et 1145
Validation: une simulation de 1 jour en séquentiel sur PC donne les mêmes
résultats entre la trunk et la dev
LF

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 549 bytes
RevLine 
[775]1!
2!$Header$
3!
[1146]4SUBROUTINE Init_Phys_lmdz(iim,jjp1,llm,nb_proc,distrib)
[775]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) :: nb_proc
14    INTEGER,INTENT(in) :: distrib(0:nb_proc-1)
15
16
17    CALL Init_grid_phy_lmdz(iim,jjp1,llm)
18    CALL Init_phys_lmdz_para(iim,jjp1,nb_proc,distrib)
19!$OMP PARALLEL
[1146]20    CALL Init_dimphy(klon_omp,nbp_lev)
[775]21!$OMP END PARALLEL
22 
23END SUBROUTINE Init_Phys_lmdz 
Note: See TracBrowser for help on using the repository browser.