Changeset 1005 for LMDZ4/trunk


Ignore:
Timestamp:
Oct 7, 2008, 10:58:33 AM (16 years ago)
Author:
Laurent Fairhead
Message:
  • Modifs sur le parallélisme: masquage dans la physique
  • Inclusion strato
  • mise en coherence etat0
  • le mode offline fonctionne maintenant en parallèle,
  • les fichiers de la dynamiques sont correctement sortis et peuvent etre reconstruit avec rebuild
  • la version parallèle de la dynamique peut s'exécuter sans MPI (sur 1 proc)
  • L'OPENMP fonctionne maintenant sans la parallélisation MPI.

YM
LF

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ4/trunk/libf/phylmd/mod_surf_para.F90

    r987 r1005  
    5050  SUBROUTINE Init_surf_para(knon)
    5151  USE mod_phys_lmdz_para, mpi_rank_root=>mpi_root
    52 #ifdef CPP_PARA
     52#ifdef CPP_MPI
    5353  INCLUDE 'mpif.h'
    5454#endif
     
    8787      ALLOCATE(knon_glo_end_para(0:mpi_size*omp_size-1))
    8888     
    89       IF (is_ok_mpi) THEN
    90 #ifdef CPP_PARA
     89      IF (is_using_mpi) THEN
     90#ifdef CPP_MPI
    9191        CALL MPI_ALLGather(knon_mpi,1,MPI_INTEGER,knon_mpi_para,1,MPI_INTEGER,COMM_LMDZ_PHY,ierr)
    9292        CALL MPI_ALLGather(knon_omp_para,omp_size,MPI_INTEGER,knon_glo_para,omp_size,MPI_INTEGER,COMM_LMDZ_PHY,ierr)
     
    169169  SUBROUTINE gather_surf_mpi_i(FieldIn,FieldOut)
    170170  USE mod_phys_lmdz_para, mpi_rank_root => mpi_root
    171 #ifdef CPP_PARA
     171#ifdef CPP_MPI
    172172  INCLUDE 'mpif.h'
    173173#endif
     
    176176    INTEGER :: ierr
    177177   
    178     IF (is_ok_mpi) THEN
    179 #ifdef CPP_PARA
     178    IF (is_using_mpi) THEN
     179#ifdef CPP_MPI
    180180      CALL MPI_Gatherv(FieldIn,knon_mpi,MPI_INTEGER,                                &
    181181                       FieldOut,knon_mpi_para,knon_mpi_begin_para(:)-1,MPI_INTEGER, &
     
    224224  SUBROUTINE gather_surf_mpi_r(FieldIn,FieldOut)
    225225  USE mod_phys_lmdz_para, mpi_rank_root => mpi_root
    226 #ifdef CPP_PARA
     226#ifdef CPP_MPI
    227227  INCLUDE 'mpif.h'
    228228#endif
     
    231231    REAL :: ierr
    232232   
    233     IF (is_ok_mpi) THEN
    234 #ifdef CPP_PARA
     233    IF (is_using_mpi) THEN
     234#ifdef CPP_MPI
    235235      CALL MPI_Gatherv(FieldIn,knon_mpi,MPI_REAL_LMDZ,                                 &
    236236                       FieldOut,knon_mpi_para,knon_mpi_begin_para(:)-1,MPI_REAL_LMDZ,  &
     
    277277  SUBROUTINE scatter_surf_mpi_i(FieldIn,FieldOut)
    278278  USE mod_phys_lmdz_para, mpi_rank_root => mpi_root
    279 #ifdef CPP_PARA
     279#ifdef CPP_MPI
    280280  INCLUDE 'mpif.h'
    281281#endif
     
    284284    INTEGER :: ierr
    285285   
    286     IF (is_ok_mpi) THEN
    287 #ifdef CPP_PARA
     286    IF (is_using_mpi) THEN
     287#ifdef CPP_MPI
    288288      CALL MPI_Scatterv(FieldIn,knon_mpi_para,knon_mpi_begin_para(:)-1,MPI_INTEGER,   &
    289289                        FieldOut,knon_mpi,MPI_INTEGER,                                &
     
    329329  SUBROUTINE scatter_surf_mpi_r(FieldIn,FieldOut)
    330330  USE mod_phys_lmdz_para, mpi_rank_root => mpi_root
    331 #ifdef CPP_PARA
     331#ifdef CPP_MPI
    332332  INCLUDE 'mpif.h'
    333333#endif
     
    336336    INTEGER :: ierr
    337337   
    338     IF (is_ok_mpi) THEN
    339 #ifdef CPP_PARA
     338    IF (is_using_mpi) THEN
     339#ifdef CPP_MPI
    340340      CALL MPI_Scatterv(FieldIn,knon_mpi_para,knon_mpi_begin_para(:)-1,MPI_INTEGER,   &
    341341                        FieldOut,knon_mpi,MPI_INTEGER,                                &
Note: See TracChangeset for help on using the changeset viewer.