Ignore:
Timestamp:
Oct 7, 2013, 6:42:03 PM (11 years ago)
Author:
slebonnois
Message:

SL: Titan runs ! see DOC/chantiers/commit_importants.log

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.TITAN/libf/phytitan/init_phys_lmdz.F90

    r119 r1056  
    33!
    44SUBROUTINE init_phys_lmdz(iim,jjp1,llm,nb_proc,distrib)
     5  USE mod_phys_lmdz_para
    56  USE mod_grid_phy_lmdz
    6   USE dimphy
     7  USE dimphy, ONLY : init_dimphy
     8  USE infotrac, ONLY : type_trac
     9
    710  IMPLICIT NONE
    811 
    … …  
    1518
    1619    CALL init_grid_phy_lmdz(iim,jjp1,llm)
    17     CALL init_dimphy(klon_glo,nbp_lev)
     20    CALL init_phys_lmdz_para(iim,jjp1,nb_proc,distrib)
     21!$OMP PARALLEL
     22    CALL init_dimphy(klon_omp,nbp_lev)
     23!$OMP END PARALLEL
    1824 
    1925END SUBROUTINE init_phys_lmdz 
Note: See TracChangeset for help on using the changeset viewer.