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
Files:
1 added
14 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/bibio/ioipsl_getincom_p.F90

    r228 r245  
    1212!--------------------------------------------------------------------- 
    1313USE ioipsl_getincom ! to use  'getin' 
    14 USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root 
    15 USE mod_phys_lmdz_omp_data, ONLY :  is_omp_root 
     14USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_master 
     15USE mod_phys_lmdz_omp_data, ONLY :  is_omp_master 
    1616use mod_phys_lmdz_para, only : bcast 
    1717!- 
    … …  
    4444 
    4545!$OMP BARRIER 
    46     IF (is_mpi_root .AND. is_omp_root) THEN 
     46    IF (is_mpi_master .AND. is_omp_master) THEN 
    4747        CALL getin(VarIn,VarOut) 
    4848    ENDIF 
    … …  
    5858 
    5959!$OMP BARRIER 
    60     IF (is_mpi_root .AND. is_omp_root) THEN 
     60    IF (is_mpi_master .AND. is_omp_master) THEN 
    6161        CALL getin(VarIn,VarOut) 
    6262    ENDIF 
    … …  
    7070 
    7171!$OMP BARRIER 
    72     IF (is_mpi_root .AND. is_omp_root) THEN 
     72    IF (is_mpi_master .AND. is_omp_master) THEN 
    7373        CALL getin(VarIn,VarOut) 
    7474    ENDIF 
    … …  
    8282 
    8383!$OMP BARRIER 
    84     IF (is_mpi_root .AND. is_omp_root) THEN 
     84    IF (is_mpi_master .AND. is_omp_master) THEN 
    8585        CALL getin(VarIn,VarOut) 
    8686    ENDIF 
    … …  
    9696 
    9797!$OMP BARRIER 
    98     IF (is_mpi_root .AND. is_omp_root) THEN 
     98    IF (is_mpi_master .AND. is_omp_master) THEN 
    9999        CALL getin(VarIn,VarOut) 
    100100    ENDIF 
    … …  
    108108 
    109109!$OMP BARRIER 
    110     IF (is_mpi_root .AND. is_omp_root) THEN 
     110    IF (is_mpi_master .AND. is_omp_master) THEN 
    111111        CALL getin(VarIn,VarOut) 
    112112    ENDIF 
    … …  
    120120 
    121121!$OMP BARRIER 
    122     IF (is_mpi_root .AND. is_omp_root) THEN 
     122    IF (is_mpi_master .AND. is_omp_master) THEN 
    123123        CALL getin(VarIn,VarOut) 
    124124    ENDIF 
    … …  
    134134 
    135135!$OMP BARRIER 
    136     IF (is_mpi_root .AND. is_omp_root) THEN 
     136    IF (is_mpi_master .AND. is_omp_master) THEN 
    137137        CALL getin(VarIn,VarOut) 
    138138    ENDIF 
    … …  
    146146 
    147147!$OMP BARRIER 
    148     IF (is_mpi_root .AND. is_omp_root) THEN 
     148    IF (is_mpi_master .AND. is_omp_master) THEN 
    149149        CALL getin(VarIn,VarOut) 
    150150    ENDIF 
    … …  
    158158 
    159159!$OMP BARRIER 
    160     IF (is_mpi_root .AND. is_omp_root) THEN 
     160    IF (is_mpi_master .AND. is_omp_master) THEN 
    161161        CALL getin(VarIn,VarOut) 
    162162    ENDIF 

  • 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 

  • codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/init_phys_lmdz.F90

    r222 r245  
    22! $Id$ 
    33! 
    4 SUBROUTINE init_phys_lmdz(iim,jjp1,llm,nb_proc,distrib) 
     4SUBROUTINE init_phys_lmdz(iim,jjp1,llm,comm_lmdz,nb_proc,distrib) 
    55  USE mod_phys_lmdz_omp_data, only: klon_omp 
    66  USE mod_grid_phy_lmdz, only: nbp_lev 
    … …  
    1313    INTEGER,INTENT(in) :: iim 
    1414    INTEGER,INTENT(in) :: jjp1 
     15    INTEGER,INTENT(in) :: comm_lmdz 
    1516    INTEGER,INTENT(in) :: llm 
    1617    INTEGER,INTENT(in) :: nb_proc 
    … …  
    1920 
    2021    CALL init_grid_phy_lmdz(iim,jjp1,sum(distrib),llm) 
    21     CALL init_phys_lmdz_para(iim,jjp1,nb_proc,distrib) 
     22    CALL init_phys_lmdz_para(iim,jjp1,comm_lmdz,nb_proc,distrib) 
    2223!$OMP PARALLEL 
    2324    CALL init_dimphy(klon_omp,nbp_lev) 

  • codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/iostart.F90

    r227 r245  
    422422    INTEGER :: ierr 
    423423     
    424     IF (is_mpi_root .AND. is_omp_root) THEN 
     424    IF (is_mpi_master .AND. is_omp_master) THEN 
    425425   
    426426      ierr=NF90_INQ_VARID(nid_start,var_name,varid) 

  • codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/mod_phys_lmdz_mpi_data.F90

    r227 r245  
    33! 
    44MODULE mod_phys_lmdz_mpi_data 
    5   USE mod_const_mpi, only: MPI_REAL_LMDZ, COMM_LMDZ 
    6    
     5   
     6  INTEGER,SAVE :: MPI_REAL_LMDZ 
    77  INTEGER,SAVE :: ii_begin 
    88  INTEGER,SAVE :: ii_end 
    … …  
    4040  INTEGER,SAVE :: mpi_rank 
    4141  INTEGER,SAVE :: mpi_size 
    42   INTEGER,SAVE :: mpi_root 
    43   LOGICAL,SAVE :: is_mpi_root 
     42  INTEGER,SAVE :: mpi_master 
     43  LOGICAL,SAVE :: is_mpi_master 
    4444  LOGICAL,SAVE :: is_using_mpi 
    45 !!$OMP THREADPRIVATE(mpi_rank,mpi_size,mpi_root,is_mpi_root,is_using_mpi) 
     45!!$OMP THREADPRIVATE(mpi_rank,mpi_size,mpi_master,is_mpi_master,is_using_mpi) 
    4646   
    4747   
    … …  
    5353CONTAINS 
    5454   
    55   SUBROUTINE Init_phys_lmdz_mpi_data(iim,jjp1,nb_proc,distrib) 
    56   USE mod_const_mpi, ONLY : COMM_LMDZ 
     55  SUBROUTINE Init_phys_lmdz_mpi_data(iim,jjp1,comm_lmdz, nb_proc,distrib) 
    5756  IMPLICIT NONE 
    5857    INTEGER,INTENT(in) :: iim 
    5958    INTEGER,INTENT(in) :: jjp1 
     59    INTEGER,INTENT(in) :: comm_lmdz 
    6060    INTEGER,INTENT(in) :: nb_proc 
    6161    INTEGER,INTENT(in) :: distrib(0:nb_proc-1) 
    … …  
    6666     
    6767#ifdef CPP_MPI 
     68    INCLUDE 'mpif.h' 
    6869    is_using_mpi=.TRUE. 
    6970#else 
    … …  
    7879    endif 
    7980     
    80     COMM_LMDZ_PHY=COMM_LMDZ 
     81    COMM_LMDZ_PHY=comm_lmdz 
    8182 
    8283    IF (is_using_mpi) THEN     
    8384#ifdef CPP_MPI 
     85      MPI_REAL_LMDZ = MPI_REAL8  
    8486      CALL MPI_COMM_SIZE(COMM_LMDZ_PHY,mpi_size,ierr)     
    8587      CALL MPI_COMM_RANK(COMM_LMDZ_PHY,mpi_rank,ierr) 
    … …  
    9193     
    9294    IF (mpi_rank == 0) THEN 
    93       mpi_root = 0 
    94       is_mpi_root = .true. 
     95      mpi_master = 0 
     96      is_mpi_master = .true. 
    9597    ENDIF 
    9698     
    … …  
    198200    WRITE(*,*) 'jj_para_nb =', jj_para_nb 
    199201    WRITE(*,*) 'jj_para_begin =', jj_para_begin 
    200     WRITE(*,*) 'jj_para_end =', jj_para_end 
     202    WRITE(*,*) 'jj_para_end =', jj_para_end  
    201203    WRITE(*,*) 'ii_para_begin =', ii_para_begin 
    202204    WRITE(*,*) 'ii_para_end =', ii_para_end 
    … …  
    209211    WRITE(*,*) 'mpi_rank =', mpi_rank 
    210212    WRITE(*,*) 'mpi_size =', mpi_size 
    211     WRITE(*,*) 'mpi_root =', mpi_root 
    212     WRITE(*,*) 'is_mpi_root =', is_mpi_root 
     213    WRITE(*,*) 'mpi_master =', mpi_master 
     214    WRITE(*,*) 'is_mpi_master =', is_mpi_master 
    213215    WRITE(*,*) 'is_north_pole =', is_north_pole 
    214216    WRITE(*,*) 'is_south_pole =', is_south_pole 

  • codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/mod_phys_lmdz_mpi_transfert.F90

    r222 r245  
    7373   
    7474  SUBROUTINE bcast_mpi_i(var) 
    75   USE mod_phys_lmdz_mpi_data, ONLY : is_mpi_root 
     75  USE mod_phys_lmdz_mpi_data, ONLY : is_mpi_master 
    7676  IMPLICIT NONE 
    7777    INTEGER,INTENT(INOUT) :: Var 
    … …  
    7979    INTEGER               :: var_tmp(1) 
    8080     
    81     IF (is_mpi_root) var_tmp(1)=var 
     81    IF (is_mpi_master) var_tmp(1)=var 
    8282    CALL bcast_mpi_igen(Var_tmp,1) 
    8383    var=var_tmp(1) 
    … …  
    121121 
    122122  SUBROUTINE bcast_mpi_r(var) 
    123   USE mod_phys_lmdz_mpi_data, ONLY : is_mpi_root 
     123  USE mod_phys_lmdz_mpi_data, ONLY : is_mpi_master 
    124124  IMPLICIT NONE 
    125125    REAL,INTENT(INOUT) :: Var 
    126126    REAL               :: var_tmp(1) 
    127127     
    128     IF (is_mpi_root) var_tmp(1)=var 
     128    IF (is_mpi_master) var_tmp(1)=var 
    129129    CALL bcast_mpi_rgen(Var_tmp,1) 
    130130    var=var_tmp(1)    
    … …  
    167167 
    168168  SUBROUTINE bcast_mpi_l(var) 
    169   USE mod_phys_lmdz_mpi_data, ONLY : is_mpi_root 
     169  USE mod_phys_lmdz_mpi_data, ONLY : is_mpi_master 
    170170  IMPLICIT NONE 
    171171    LOGICAL,INTENT(INOUT) :: Var 
    172172    LOGICAL               :: var_tmp(1) 
    173173     
    174     IF (is_mpi_root) var_tmp(1)=var 
     174    IF (is_mpi_master) var_tmp(1)=var 
    175175    CALL bcast_mpi_lgen(Var_tmp,1) 
    176176    var=var_tmp(1)    
    … …  
    215215 
    216216  SUBROUTINE scatter_mpi_i(VarIn, VarOut) 
    217     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root 
     217    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_master 
    218218    IMPLICIT NONE 
    219219   
    … …  
    226226 
    227227  SUBROUTINE scatter_mpi_i1(VarIn, VarOut) 
    228     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root 
     228    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_master 
    229229    IMPLICIT NONE 
    230230   
    … …  
    237237   
    238238  SUBROUTINE scatter_mpi_i2(VarIn, VarOut) 
    239     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root 
     239    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_master 
    240240    IMPLICIT NONE 
    241241   
    … …  
    248248 
    249249  SUBROUTINE scatter_mpi_i3(VarIn, VarOut) 
    250     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root 
     250    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_master 
    251251    IMPLICIT NONE 
    252252   
    … …  
    260260 
    261261  SUBROUTINE scatter_mpi_r(VarIn, VarOut) 
    262     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root 
     262    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_master 
    263263    IMPLICIT NONE 
    264264   
    … …  
    271271 
    272272  SUBROUTINE scatter_mpi_r1(VarIn, VarOut) 
    273   USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root 
     273  USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_master 
    274274  IMPLICIT NONE 
    275275   
    … …  
    282282   
    283283  SUBROUTINE scatter_mpi_r2(VarIn, VarOut) 
    284     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root 
     284    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_master 
    285285    IMPLICIT NONE 
    286286   
    … …  
    293293 
    294294  SUBROUTINE scatter_mpi_r3(VarIn, VarOut) 
    295     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root 
     295    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_master 
    296296    IMPLICIT NONE 
    297297   
    … …  
    305305 
    306306  SUBROUTINE scatter_mpi_l(VarIn, VarOut) 
    307     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root 
     307    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_master 
    308308    IMPLICIT NONE 
    309309   
    … …  
    316316 
    317317  SUBROUTINE scatter_mpi_l1(VarIn, VarOut) 
    318     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root 
     318    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_master 
    319319    IMPLICIT NONE 
    320320   
    … …  
    327327   
    328328  SUBROUTINE scatter_mpi_l2(VarIn, VarOut) 
    329     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root 
     329    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_master 
    330330    IMPLICIT NONE 
    331331   
    … …  
    338338 
    339339  SUBROUTINE scatter_mpi_l3(VarIn, VarOut) 
    340     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root 
     340    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_master 
    341341    IMPLICIT NONE 
    342342   
    … …  
    355355 
    356356  SUBROUTINE gather_mpi_i(VarIn, VarOut) 
    357     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root 
     357    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_master 
    358358    IMPLICIT NONE 
    359359   
    … …  
    369369 
    370370  SUBROUTINE gather_mpi_i1(VarIn, VarOut) 
    371     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root 
     371    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_master 
    372372    IMPLICIT NONE 
    373373   
    … …  
    382382   
    383383  SUBROUTINE gather_mpi_i2(VarIn, VarOut) 
    384     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root 
     384    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_master 
    385385    IMPLICIT NONE 
    386386   
    … …  
    395395 
    396396  SUBROUTINE gather_mpi_i3(VarIn, VarOut) 
    397     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root 
     397    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_master 
    398398    IMPLICIT NONE 
    399399   
    … …  
    408408 
    409409  SUBROUTINE gather_mpi_r(VarIn, VarOut) 
    410     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root 
     410    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_master 
    411411    IMPLICIT NONE 
    412412   
    … …  
    421421 
    422422  SUBROUTINE gather_mpi_r1(VarIn, VarOut) 
    423     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root 
     423    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_master 
    424424    IMPLICIT NONE 
    425425   
    … …  
    434434   
    435435  SUBROUTINE gather_mpi_r2(VarIn, VarOut) 
    436     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root 
     436    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_master 
    437437    IMPLICIT NONE 
    438438   
    … …  
    447447 
    448448  SUBROUTINE gather_mpi_r3(VarIn, VarOut) 
    449     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root 
     449    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_master 
    450450    IMPLICIT NONE 
    451451   
    … …  
    460460 
    461461  SUBROUTINE gather_mpi_l(VarIn, VarOut) 
    462     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root 
     462    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_master 
    463463    IMPLICIT NONE 
    464464   
    … …  
    473473 
    474474  SUBROUTINE gather_mpi_l1(VarIn, VarOut) 
    475     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root 
     475    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_master 
    476476    IMPLICIT NONE 
    477477   
    … …  
    486486   
    487487  SUBROUTINE gather_mpi_l2(VarIn, VarOut) 
    488     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root 
     488    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_master 
    489489    IMPLICIT NONE 
    490490   
    … …  
    499499 
    500500  SUBROUTINE gather_mpi_l3(VarIn, VarOut) 
    501     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root 
     501    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_master 
    502502    IMPLICIT NONE 
    503503   
    … …  
    868868 
    869869  SUBROUTINE reduce_sum_mpi_i(VarIn, VarOut) 
    870     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root 
     870    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_master 
    871871    IMPLICIT NONE 
    872872   
    … …  
    883883 
    884884  SUBROUTINE reduce_sum_mpi_i1(VarIn, VarOut) 
    885     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root 
     885    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_master 
    886886    IMPLICIT NONE 
    887887   
    … …  
    894894 
    895895  SUBROUTINE reduce_sum_mpi_i2(VarIn, VarOut) 
    896     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root 
     896    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_master 
    897897    IMPLICIT NONE 
    898898   
    … …  
    905905 
    906906  SUBROUTINE reduce_sum_mpi_i3(VarIn, VarOut) 
    907     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root 
     907    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_master 
    908908    IMPLICIT NONE 
    909909   
    … …  
    916916 
    917917  SUBROUTINE reduce_sum_mpi_i4(VarIn, VarOut) 
    918     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root 
     918    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_master 
    919919    IMPLICIT NONE 
    920920   
    … …  
    928928   
    929929  SUBROUTINE reduce_sum_mpi_r(VarIn, VarOut) 
    930     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root 
     930    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_master 
    931931    IMPLICIT NONE 
    932932   
    … …  
    943943 
    944944  SUBROUTINE reduce_sum_mpi_r1(VarIn, VarOut) 
    945     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root 
     945    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_master 
    946946    IMPLICIT NONE 
    947947   
    … …  
    954954 
    955955  SUBROUTINE reduce_sum_mpi_r2(VarIn, VarOut) 
    956     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root 
     956    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_master 
    957957    IMPLICIT NONE 
    958958   
    … …  
    965965 
    966966  SUBROUTINE reduce_sum_mpi_r3(VarIn, VarOut) 
    967     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root 
     967    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_master 
    968968    IMPLICIT NONE 
    969969   
    … …  
    976976 
    977977  SUBROUTINE reduce_sum_mpi_r4(VarIn, VarOut) 
    978     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root 
     978    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_master 
    979979    IMPLICIT NONE 
    980980   
    … …  
    12361236 
    12371237  SUBROUTINE bcast_mpi_cgen(var,nb) 
    1238     USE mod_phys_lmdz_mpi_data , mpi_root_x=>mpi_root 
     1238    USE mod_phys_lmdz_mpi_data  
    12391239    IMPLICIT NONE 
    12401240     
    … …  
    12501250     
    12511251#ifdef CPP_MPI 
    1252     CALL MPI_BCAST(Var,nb,MPI_CHARACTER,mpi_root_x,COMM_LMDZ_PHY,ierr) 
     1252    CALL MPI_BCAST(Var,nb,MPI_CHARACTER,mpi_master,COMM_LMDZ_PHY,ierr) 
    12531253#endif 
    12541254         
    … …  
    12581258       
    12591259  SUBROUTINE bcast_mpi_igen(var,nb) 
    1260     USE mod_phys_lmdz_mpi_data , mpi_root_x=>mpi_root 
     1260    USE mod_phys_lmdz_mpi_data 
    12611261    IMPLICIT NONE 
    12621262     
    … …  
    12721272 
    12731273#ifdef CPP_MPI 
    1274     CALL MPI_BCAST(Var,nb,MPI_INTEGER,mpi_root_x,COMM_LMDZ_PHY,ierr) 
     1274    CALL MPI_BCAST(Var,nb,MPI_INTEGER,mpi_master,COMM_LMDZ_PHY,ierr) 
    12751275#endif 
    12761276         
    … …  
    12811281   
    12821282  SUBROUTINE bcast_mpi_rgen(var,nb) 
    1283     USE mod_phys_lmdz_mpi_data , mpi_root_x=>mpi_root 
     1283    USE mod_phys_lmdz_mpi_data  
    12841284    IMPLICIT NONE 
    12851285     
    … …  
    12951295 
    12961296#ifdef CPP_MPI 
    1297     CALL MPI_BCAST(Var,nb,MPI_REAL_LMDZ,mpi_root_x,COMM_LMDZ_PHY,ierr) 
     1297    CALL MPI_BCAST(Var,nb,MPI_REAL_LMDZ,mpi_master,COMM_LMDZ_PHY,ierr) 
    12981298#endif 
    12991299     
    … …  
    13041304 
    13051305  SUBROUTINE bcast_mpi_lgen(var,nb) 
    1306     USE mod_phys_lmdz_mpi_data ,  mpi_root_x=>mpi_root 
     1306    USE mod_phys_lmdz_mpi_data 
    13071307    IMPLICIT NONE 
    13081308     
    … …  
    13181318 
    13191319#ifdef CPP_MPI 
    1320     CALL MPI_BCAST(Var,nb,MPI_LOGICAL,mpi_root_x,COMM_LMDZ_PHY,ierr) 
     1320    CALL MPI_BCAST(Var,nb,MPI_LOGICAL,mpi_master,COMM_LMDZ_PHY,ierr) 
    13211321    if (ierr.ne.MPI_SUCCESS) then 
    13221322      write(*,*) "bcast_mpi error: ierr=",ierr 
    … …  
    13301330 
    13311331  SUBROUTINE scatter_mpi_igen(VarIn, VarOut, dimsize) 
    1332     USE mod_phys_lmdz_mpi_data , mpi_root_x=>mpi_root 
     1332    USE mod_phys_lmdz_mpi_data  
    13331333    USE mod_grid_phy_lmdz 
    13341334    IMPLICIT NONE 
    … …  
    13541354 
    13551355     
    1356     IF (is_mpi_root) THEN 
     1356    IF (is_mpi_master) THEN 
    13571357      Index=1 
    13581358      DO rank=0,mpi_size-1 
    … …  
    13691369#ifdef CPP_MPI  
    13701370    CALL MPI_SCATTERV(VarTmp,counts,displs,MPI_INTEGER,VarOut,klon_mpi*dimsize,   & 
    1371                       MPI_INTEGER,mpi_root_x, COMM_LMDZ_PHY,ierr) 
     1371                      MPI_INTEGER,mpi_master, COMM_LMDZ_PHY,ierr) 
    13721372#endif 
    13731373 
    … …  
    13751375 
    13761376  SUBROUTINE scatter_mpi_rgen(VarIn, VarOut, dimsize) 
    1377     USE mod_phys_lmdz_mpi_data , mpi_root_x=>mpi_root 
     1377    USE mod_phys_lmdz_mpi_data 
    13781378    USE mod_grid_phy_lmdz 
    13791379    IMPLICIT NONE 
    … …  
    13981398    ENDIF 
    13991399     
    1400     IF (is_mpi_root) THEN 
     1400    IF (is_mpi_master) THEN 
    14011401      Index=1 
    14021402      DO rank=0,mpi_size-1 
    … …  
    14131413#ifdef CPP_MPI  
    14141414    CALL MPI_SCATTERV(VarTmp,counts,displs,MPI_REAL_LMDZ,VarOut,klon_mpi*dimsize,   & 
    1415                       MPI_REAL_LMDZ,mpi_root_x, COMM_LMDZ_PHY,ierr) 
     1415                      MPI_REAL_LMDZ,mpi_master, COMM_LMDZ_PHY,ierr) 
    14161416 
    14171417#endif 
    … …  
    14211421   
    14221422  SUBROUTINE scatter_mpi_lgen(VarIn, VarOut, dimsize) 
    1423     USE mod_phys_lmdz_mpi_data , mpi_root_x=>mpi_root 
     1423    USE mod_phys_lmdz_mpi_data 
    14241424    USE mod_grid_phy_lmdz 
    14251425    IMPLICIT NONE 
    … …  
    14441444    ENDIF 
    14451445     
    1446     IF (is_mpi_root) THEN 
     1446    IF (is_mpi_master) THEN 
    14471447      Index=1 
    14481448      DO rank=0,mpi_size-1 
    … …  
    14591459#ifdef CPP_MPI 
    14601460    CALL MPI_SCATTERV(VarTmp,counts,displs,MPI_LOGICAL,VarOut,klon_mpi*dimsize,   & 
    1461                       MPI_LOGICAL,mpi_root_x, COMM_LMDZ_PHY,ierr) 
     1461                      MPI_LOGICAL,mpi_master, COMM_LMDZ_PHY,ierr) 
    14621462#endif 
    14631463 
    … …  
    14681468 
    14691469  SUBROUTINE gather_mpi_igen(VarIn, VarOut, dimsize) 
    1470     USE mod_phys_lmdz_mpi_data , mpi_root_x=>mpi_root 
     1470    USE mod_phys_lmdz_mpi_data 
    14711471    USE mod_grid_phy_lmdz 
    14721472    IMPLICIT NONE 
    … …  
    14911491    ENDIF 
    14921492 
    1493     IF (is_mpi_root) THEN 
     1493    IF (is_mpi_master) THEN 
    14941494      Index=1 
    14951495      DO rank=0,mpi_size-1 
    … …  
    15041504#ifdef CPP_MPI 
    15051505    CALL MPI_GATHERV(VarIn,klon_mpi*dimsize,MPI_INTEGER,VarTmp,counts,displs,   & 
    1506                      MPI_INTEGER,mpi_root_x, COMM_LMDZ_PHY,ierr) 
     1506                     MPI_INTEGER,mpi_master, COMM_LMDZ_PHY,ierr) 
    15071507#endif 
    15081508 
    15091509                           
    1510     IF (is_mpi_root) THEN 
     1510    IF (is_mpi_master) THEN 
    15111511      Index=1 
    15121512      DO rank=0,mpi_size-1 
    … …  
    15221522 
    15231523  SUBROUTINE gather_mpi_rgen(VarIn, VarOut, dimsize) 
    1524     USE mod_phys_lmdz_mpi_data , mpi_root_x=>mpi_root 
     1524    USE mod_phys_lmdz_mpi_data , mpi_master=>mpi_master 
    15251525    USE mod_grid_phy_lmdz 
    15261526    IMPLICIT NONE 
    … …  
    15401540    INTEGER :: ierr 
    15411541 
    1542     IF (is_mpi_root) THEN 
     1542    IF (is_mpi_master) THEN 
    15431543      Index=1 
    15441544      DO rank=0,mpi_size-1 
    … …  
    15571557#ifdef CPP_MPI 
    15581558    CALL MPI_GATHERV(VarIn,klon_mpi*dimsize,MPI_REAL_LMDZ,VarTmp,counts,displs,   & 
    1559                       MPI_REAL_LMDZ,mpi_root_x, COMM_LMDZ_PHY,ierr) 
     1559                      MPI_REAL_LMDZ,mpi_master, COMM_LMDZ_PHY,ierr) 
    15601560#endif 
    15611561                           
    1562     IF (is_mpi_root) THEN 
     1562    IF (is_mpi_master) THEN 
    15631563      Index=1 
    15641564      DO rank=0,mpi_size-1 
    … …  
    15741574 
    15751575  SUBROUTINE gather_mpi_lgen(VarIn, VarOut, dimsize) 
    1576     USE mod_phys_lmdz_mpi_data , mpi_root_x=>mpi_root 
     1576    USE mod_phys_lmdz_mpi_data 
    15771577    USE mod_grid_phy_lmdz 
    15781578    IMPLICIT NONE 
    … …  
    15971597    ENDIF 
    15981598 
    1599     IF (is_mpi_root) THEN 
     1599    IF (is_mpi_master) THEN 
    16001600      Index=1 
    16011601      DO rank=0,mpi_size-1 
    … …  
    16101610#ifdef CPP_MPI 
    16111611    CALL MPI_GATHERV(VarIn,klon_mpi*dimsize,MPI_LOGICAL,VarTmp,counts,displs,   & 
    1612                       MPI_LOGICAL,mpi_root_x, COMM_LMDZ_PHY,ierr) 
     1612                      MPI_LOGICAL,mpi_master, COMM_LMDZ_PHY,ierr) 
    16131613#endif 
    16141614                           
    1615     IF (is_mpi_root) THEN 
     1615    IF (is_mpi_master) THEN 
    16161616      Index=1 
    16171617      DO rank=0,mpi_size-1 
    … …  
    16291629 
    16301630  SUBROUTINE reduce_sum_mpi_igen(VarIn,VarOut,nb) 
    1631     USE mod_phys_lmdz_mpi_data , mpi_root_x=>mpi_root 
     1631    USE mod_phys_lmdz_mpi_data 
    16321632    USE mod_grid_phy_lmdz 
    16331633    IMPLICIT NONE 
    … …  
    16491649 
    16501650#ifdef CPP_MPI 
    1651     CALL MPI_REDUCE(VarIn,VarOut,nb,MPI_INTEGER,MPI_SUM,mpi_root_x,COMM_LMDZ_PHY,ierr) 
     1651    CALL MPI_REDUCE(VarIn,VarOut,nb,MPI_INTEGER,MPI_SUM,mpi_master,COMM_LMDZ_PHY,ierr) 
    16521652#endif 
    16531653             
    … …  
    16551655   
    16561656  SUBROUTINE reduce_sum_mpi_rgen(VarIn,VarOut,nb) 
    1657     USE mod_phys_lmdz_mpi_data , mpi_root_x=>mpi_root 
     1657    USE mod_phys_lmdz_mpi_data  
    16581658    USE mod_grid_phy_lmdz 
    16591659 
    … …  
    16751675    
    16761676#ifdef CPP_MPI 
    1677     CALL MPI_REDUCE(VarIn,VarOut,nb,MPI_REAL_LMDZ,MPI_SUM,mpi_root_x,COMM_LMDZ_PHY,ierr) 
     1677    CALL MPI_REDUCE(VarIn,VarOut,nb,MPI_REAL_LMDZ,MPI_SUM,mpi_master,COMM_LMDZ_PHY,ierr) 
    16781678#endif 
    16791679         

  • codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/mod_phys_lmdz_omp_data.F90

    r222 r245  
    66  INTEGER,SAVE :: omp_size 
    77  INTEGER,SAVE :: omp_rank 
    8   LOGICAL,SAVE :: is_omp_root 
     8  LOGICAL,SAVE :: is_omp_master 
    99  LOGICAL,SAVE :: is_using_omp 
    1010   
    … …  
    1616  INTEGER,SAVE :: klon_omp_begin 
    1717  INTEGER,SAVE :: klon_omp_end 
    18 !$OMP  THREADPRIVATE(omp_rank,klon_omp,is_omp_root,klon_omp_begin,klon_omp_end) 
     18!$OMP  THREADPRIVATE(omp_rank,klon_omp,is_omp_master,klon_omp_begin,klon_omp_end) 
    1919 
    2020CONTAINS 
    … …  
    5050#endif 
    5151 
    52    is_omp_root=.FALSE. 
     52   is_omp_master=.FALSE. 
    5353!$OMP MASTER 
    5454   IF (omp_rank==0) THEN 
    55      is_omp_root=.TRUE. 
     55     is_omp_master=.TRUE. 
    5656   ELSE 
    5757     abort_message = 'ANORMAL : OMP_MASTER /= 0' 
    … …  
    9797  WRITE(*,*)'omp_size =',omp_size 
    9898  WRITE(*,*)'omp_rank =',omp_rank 
    99   WRITE(*,*)'is_omp_root =',is_omp_root 
     99  WRITE(*,*)'is_omp_master =',is_omp_master 
    100100  WRITE(*,*)'klon_omp_para_nb =',klon_omp_para_nb 
    101101  WRITE(*,*)'klon_omp_para_begin =',klon_omp_para_begin 

  • codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/mod_phys_lmdz_para.F90

    r227 r245  
    1717CONTAINS 
    1818 
    19   SUBROUTINE Init_phys_lmdz_para(iim,jjp1,nb_proc,distrib) 
     19  SUBROUTINE Init_phys_lmdz_para(iim,jjp1,comm_lmdz, nb_proc,distrib) 
    2020  IMPLICIT NONE 
    2121    INTEGER,INTENT(in) :: iim 
    2222    INTEGER,INTENT(in) :: jjp1 
     23    INTEGER,INTENT(in) :: comm_lmdz 
    2324    INTEGER,INTENT(in) :: nb_proc 
    2425    INTEGER,INTENT(in) :: distrib(0:nb_proc-1) 
    2526 
    26     CALL Init_phys_lmdz_mpi_data(iim,jjp1,nb_proc,distrib) 
     27    CALL Init_phys_lmdz_mpi_data(iim,jjp1,comm_lmdz, nb_proc, distrib) 
    2728!$OMP PARALLEL 
    2829    CALL Init_phys_lmdz_omp_data(klon_mpi) 
    2930    klon_loc=klon_omp 
    30     IF (is_mpi_root .AND. is_omp_root) THEN  
     31    IF (is_mpi_master .AND. is_omp_master) THEN  
    3132       is_master=.TRUE. 
    3233     ELSE 
    … …  
    6667    Test_Field2d_loc = 0. 
    6768   
    68     IF (is_mpi_root) THEN 
     69    IF (is_mpi_master) THEN 
    6970!$OMP MASTER 
    7071      DO l=1,nbp_lev 
    … …  
    8081    CALL Gather(Test_Field1d_loc,tmp1d_glo) 
    8182   
    82     IF (is_mpi_root) THEN 
     83    IF (is_mpi_master) THEN 
    8384!$OMP MASTER   
    8485      Checksum=sum(Test_Field1d_glo-tmp1d_glo) 
    … …  
    9293    CALL grid2dTo1d_glo(Test_Field2d_glo,tmp1d_glo) 
    9394 
    94     IF (is_mpi_root) THEN 
     95    IF (is_mpi_master) THEN 
    9596!$OMP MASTER   
    9697      Checksum=sum(Test_Field1d_glo-tmp1d_glo) 
    … …  
    102103    CALL reduce_sum(Test_Field1d_glo,tmp1d_glo) 
    103104 
    104     IF (is_mpi_root) THEN 
     105    IF (is_mpi_master) THEN 
    105106!$OMP MASTER   
    106107      Checksum=sum(Test_Field1d_glo*omp_size*mpi_size-tmp1d_glo) 

  • codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/writediagfi.F

    r227 r245  
    4141      use surfdat_h, only: phisfi 
    4242      use control_mod, only: ecritphy, day_step, iphysiq 
    43       USE mod_phys_lmdz_para, only : is_parallel, is_mpi_root, 
     43      USE mod_phys_lmdz_para, only : is_parallel, is_mpi_master, 
    4444     &                               is_master, gather 
    4545      USE mod_grid_phy_lmdz, only : klon_glo, Grid1Dto2D_glo 
    … …  
    296296          call Gather(px,dx3_glop) 
    297297!$OMP MASTER 
    298           if (is_mpi_root) then 
     298          if (is_mpi_master) then 
    299299            call Grid1Dto2D_glo(dx3_glop,dx3_glo) 
    300300            ! copy dx3_glo() to dx3(:) and add redundant longitude 
    … …  
    380380          call Gather(px2,dx2_glop) 
    381381!$OMP MASTER 
    382           if (is_mpi_root) then 
     382          if (is_mpi_master) then 
    383383            call Grid1Dto2D_glo(dx2_glop,dx2_glo) 
    384384            ! copy dx2_glo() to dx2(:) and add redundant longitude 

  • codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/writediagsoil.F90

    r227 r245  
    1414use comsoil_h, only: nsoilmx 
    1515use control_mod, only: ecritphy, day_step, iphysiq 
    16 use mod_phys_lmdz_para, only : is_mpi_root, is_master, gather 
     16use mod_phys_lmdz_para, only : is_mpi_master, is_master, gather 
    1717use mod_grid_phy_lmdz, only : klon_glo, Grid1Dto2D_glo 
    1818 
    … …  
    145145  call Gather(px,dx3_glop) 
    146146!$OMP MASTER 
    147   if (is_mpi_root) then 
     147  if (is_mpi_master) then 
    148148    call Grid1Dto2D_glo(dx3_glop,dx3_glo) 
    149149    ! copy dx3_glo() to dx3(:) and add redundant longitude 
    … …  
    220220  call Gather(px2,dx2_glop) 
    221221!$OMP MASTER 
    222   if (is_mpi_root) then 
     222  if (is_mpi_master) then 
    223223    call Grid1Dto2D_glo(dx2_glop,dx2_glo) 
    224224    ! copy dx3_glo() to dx3(:) and add redundant longitude 

  • codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/writediagspecIR.F

    r227 r245  
    4545!      USE surfdat_h, only : phisfi 
    4646#ifdef CPP_PARA 
    47       use mod_phys_lmdz_para, only : is_mpi_root, is_master, gather 
     47      use mod_phys_lmdz_para, only : is_mpi_master, is_master, gather 
    4848      use mod_grid_phy_lmdz, only : klon_glo, Grid1Dto2D_glo 
    4949#endif 
    … …  
    111111#else 
    112112      logical,parameter :: is_master=.true. 
    113       logical,parameter :: is_mpi_root=.true. 
     113      logical,parameter :: is_mpi_master=.true. 
    114114#endif 
    115115 
    … …  
    232232          call Gather(px,dx3_glop) 
    233233!$OMP MASTER 
    234           if (is_mpi_root) then 
     234          if (is_mpi_master) then 
    235235            call Grid1Dto2D_glo(dx3_glop,dx3_glo) 
    236236            ! copy dx3_glo() to dx3(:) and add redundant longitude 

  • codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/writediagspecVI.F

    r227 r245  
    4545!      USE surfdat_h 
    4646#ifdef CPP_PARA 
    47       use mod_phys_lmdz_para, only : is_mpi_root, is_master, gather 
     47      use mod_phys_lmdz_para, only : is_mpi_master, is_master, gather 
    4848      use mod_grid_phy_lmdz, only : klon_glo, Grid1Dto2D_glo 
    4949#endif 
    … …  
    111111#else 
    112112      logical,parameter :: is_master=.true. 
    113       logical,parameter :: is_mpi_root=.true. 
     113      logical,parameter :: is_mpi_master=.true. 
    114114#endif 
    115115 
    … …  
    232232          call Gather(px,dx3_glop) 
    233233!$OMP MASTER 
    234           if (is_mpi_root) then 
     234          if (is_mpi_master) then 
    235235            call Grid1Dto2D_glo(dx3_glop,dx3_glo) 
    236236            ! copy dx3_glo() to dx3(:) and add redundant longitude 

  • codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/wstats.F90

    r227 r245  
    11subroutine wstats(ngrid,nom,titre,unite,dim,px) 
    22 
    3 use mod_phys_lmdz_para, only : is_mpi_root, is_master, gather, klon_mpi_begin 
     3use mod_phys_lmdz_para, only : is_mpi_master, is_master, gather, klon_mpi_begin 
    44use mod_grid_phy_lmdz, only : klon_glo, Grid1Dto2D_glo 
    55 
    … …  
    7272  call Gather(px3,px3_glop) 
    7373!$OMP MASTER 
    74   if (is_mpi_root) then 
     74  if (is_mpi_master) then 
    7575    call Grid1Dto2D_glo(px3_glop,px3_glo) 
    7676    ! copy dx3_glo() to dx3(:) and add redundant longitude 
    … …  
    8585  call Gather(px2,px2_glop) 
    8686!$OMP MASTER 
    87           if (is_mpi_root) then 
     87          if (is_mpi_master) then 
    8888            call Grid1Dto2D_glo(px2_glop,px2_glo) 
    8989            ! copy px2_glo() to dx2(:) and add redundant longitude 
Note: See TracChangeset for help on using the changeset viewer.