source: trunk/LMDZ.TITAN/libf/phytitan/init_phys_lmdz.F90 @ 537

Last change on this file since 537 was 119, checked in by slebonnois, 14 years ago

Sebastien Lebonnois: apres validation des versions Venus et Titan,
correction d'un certain nombre de bugs.
File size: 415 bytes
Line 
1!
2!$Header$
3!
4SUBROUTINE init_phys_lmdz(iim,jjp1,llm,nb_proc,distrib)
5  USE mod_grid_phy_lmdz
6  USE dimphy
7  IMPLICIT NONE
8 
9    INTEGER,INTENT(in) :: iim
10    INTEGER,INTENT(in) :: jjp1
11    INTEGER,INTENT(in) :: llm
12    INTEGER,INTENT(in) :: nb_proc
13    INTEGER,INTENT(in) :: distrib(0:nb_proc-1)
14
15
16    CALL init_grid_phy_lmdz(iim,jjp1,llm)
17    CALL init_dimphy(klon_glo,nbp_lev)
18 
19END SUBROUTINE init_phys_lmdz 
Note: See TracBrowser for help on using the repository browser.