source: LMDZ4/branches/LMDZ4-dev-20091210/libf/phylmd/init_phys_lmdz.F90 @ 5170

Last change on this file since 5170 was 1114, checked in by jghattas, 16 years ago

Creation du module infotrac:

  • contient les variables de advtrac.h
  • contient la subroutine iniadvtrac renommer en infotrac_init
  • le nombre des traceurs est lu dans tracer.def en dynamique (ou par default ou recu par INCA)
  • ce module est utilise dans la dynamique et la physique
  • contient aussi la variable nbtr qui avant etait stockee dans dimphy

Le fichier advtrac.h n'existe plus.
La compilation ne prend plus en compte le nombre de traceur.

/JG

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 549 bytes
Line 
1!
2!$Header$
3!
4SUBROUTINE Init_Phys_lmdz(iim,jjp1,llm,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) :: 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
20    CALL Init_dimphy(klon_omp,nbp_lev)
21!$OMP END PARALLEL
22 
23END SUBROUTINE Init_Phys_lmdz 
Note: See TracBrowser for help on using the repository browser.