Ignore:
Timestamp:
07/22/14 16:00:02 (10 years ago)
Author:
ymipsl
Message:
  • One call for initialize physics from dynamico
  • mpi_root renamed into mpi_master due to conflict with an existaing symbol from the mpi library

==> mpi_root => mpi_master, is_mpi_root => is_mpi_master, is_omp_root => is_omp_master

YM

Location:
codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/dyn3dpar
Files:
1 added
2 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/dyn3dpar/calfis_p.F

    r222 r245  
    2929! Ehouarn: if using (parallelized) physics 
    3030      USE dimphy 
    31       USE mod_phys_lmdz_para, mpi_root_xx=>mpi_root  
     31      USE mod_phys_lmdz_para 
    3232      USE mod_interface_dyn_phys 
     33      USE mod_const_mpi, ONLY : COMM_LMDZ 
    3334!      USE IOPHY 
    3435#endif 

  • codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/dyn3dpar/init_gcm_lmdz.F

    r242 r245  
    206206#ifdef CPP_PHYS 
    207207!        CALL init_phys_lmdz(iim,jjp1,llm,mpi_size,distrib_phys) 
    208         CALL Init_Phys_lmdz(iim,jjp1,llm,nproc,distrib_icosa) 
     208!        CALL Init_Phys_lmdz(iim,jjp1,llm,nproc,distrib_icosa) 
    209209#endif 
    210210!      CALL set_bands 
    … …  
    222222 
    223223#ifdef CPP_PHYS 
    224 c$OMP PARALLEL 
    225       call initcomgeomphy 
    226 c$OMP END PARALLEL  
     224!c$OMP PARALLEL 
     225!      call initcomgeomphy 
     226!c$OMP END PARALLEL  
    227227#endif 
    228228 
Note: See TracChangeset for help on using the changeset viewer.