Changeset 791 for LMDZ4/trunk/libf


Ignore:
Timestamp:
Jun 22, 2007, 2:15:55 PM (17 years ago)
Author:
lsce
Message:

ACo : mise a jour pour inca

Location:
LMDZ4/trunk/libf
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/trunk/libf/dyn3dpar/gcm.F

    r774 r791  
    1111      USE mod_const_mpi, ONLY: init_const_mpi
    1212      USE parallel
     13      USE mod_phys_lmdz_para, ONLY : klon_mpi_para_nb
     14      USE mod_grid_phy_lmdz
    1315      USE dimphy
    1416      USE mod_interface_dyn_phys
    … …  
    235237#ifdef INCA
    236238      call init_const_lmdz(nbtrac,anneeref,dayref,iphysiq,day_step,nday)
    237       call init_inca_para(iim,jjm+1,klon2,phy_size,klon_para_nb)
     239      call init_inca_para(iim,jjm+1,klon_glo,mpi_size,klon_mpi_para_nb)
    238240#endif
    239241

  • LMDZ4/trunk/libf/phylmd/physiq.F

    r782 r791  
    2828      USE pbl_surface_mod, ONLY : pbl_surface
    2929
    30 #ifdef INCA
    31 cym      USE chemshut
    32       USE species_names
    33 #ifdef INCA_CH4
    34 !      USE obs_pos
    35 #endif
    36 #endif
    3730
    3831      USE ocean_slab_mod, ONLY   : ocean_slab_get_vars
    … …  
    30913084     $                        annee_ref,
    30923085     $                        day_ini,
     3086     $                        airephy,
    30933087#ifdef INCA_AER
    30943088     $                        xjour,
Note: See TracChangeset for help on using the changeset viewer.