New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 14229 for NEMO/trunk/src – NEMO

Changeset 14229 for NEMO/trunk/src


Ignore:
Timestamp:
2020-12-20T13:45:55+01:00 (3 years ago)
Author:
smasson
Message:

trunk: replace key_mpp_mpi by the opposite key key_mpi_off

Location:
NEMO/trunk/src
Files:
21 edited

Legend:

Unmodified
Added
Removed

  • NEMO/trunk/src/NST/agrif_user.F90

    r14218 r14229  
    889889 
    890890    
    891 # if defined key_mpp_mpi 
     891# if ! defined key_mpi_off 
    892892   SUBROUTINE Agrif_InvLoc( indloc, nprocloc, i, indglob ) 
    893893      !!---------------------------------------------------------------------- 

  • NEMO/trunk/src/OCE/DIA/diaptr.F90

    r14215 r14229  
    578578      REAL(wp), DIMENSION(A1Dj(nn_hls),nbasin), INTENT(in)            ::  pva    ! 
    579579      INTEGER                                               ::  jj 
    580 #if defined key_mpp_mpi 
     580#if ! defined key_mpi_off 
    581581      INTEGER, DIMENSION(1)           ::  ish1d 
    582582      INTEGER, DIMENSION(2)           ::  ish2d 
    … …  
    588588      END DO 
    589589 
    590 #if defined key_mpp_mpi 
     590#if ! defined key_mpi_off 
    591591      IF( ntile == 0 .OR. ntile == nijtile ) THEN 
    592592         ish1d(1) = jpj*nbasin 
    … …  
    614614      REAL(wp), DIMENSION(A1Dj(nn_hls),jpk,nbasin), INTENT(in)        ::  pva    ! 
    615615      INTEGER                                               ::  jj, jk 
    616 #if defined key_mpp_mpi 
     616#if ! defined key_mpi_off 
    617617      INTEGER, DIMENSION(1)              ::  ish1d 
    618618      INTEGER, DIMENSION(3)              ::  ish3d 
    … …  
    626626      END DO 
    627627 
    628 #if defined key_mpp_mpi 
     628#if ! defined key_mpi_off 
    629629      IF( ntile == 0 .OR. ntile == nijtile ) THEN 
    630630         ish1d(1) = jpj*jpk*nbasin 

  • NEMO/trunk/src/OCE/FLO/floblk.F90

    r13286 r14229  
    105105      iloop = 0 
    106106222   DO jfl = 1, jpnfl 
    107 # if   defined key_mpp_mpi 
     107# if ! defined key_mpi_off 
    108108         IF( iil(jfl) >= mig(Nis0) .AND. iil(jfl) <= mig(Nie0) .AND.   & 
    109109             ijl(jfl) >= mjg(Njs0) .AND. ijl(jfl) <= mjg(Nje0)   ) THEN 
    … …  
    329329            ! reinitialisation of the age of FLOAT 
    330330            zagefl(jfl) = zagenewfl(jfl) 
    331 # if   defined key_mpp_mpi 
     331# if ! defined key_mpi_off 
    332332         ELSE 
    333333            ! we put zgifl, zgjfl, zgkfl, zagefl 

  • NEMO/trunk/src/OCE/FLO/flodom.F90

    r13286 r14229  
    154154         ivtest(jfl) = 0 
    155155         ikmfl(jfl) = 0 
    156 # if   defined key_mpp_mpi 
     156# if ! defined key_mpi_off 
    157157         DO ji = MAX(Nis0,2), Nie0 
    158158            DO jj = MAX(Njs0,2), Nje0   ! NO vector opt. 

  • NEMO/trunk/src/OCE/ICB/icblbc.F90

    r13226 r14229  
    3636   PRIVATE 
    3737 
    38 #if defined key_mpp_mpi 
     38#if ! defined key_mpi_off 
    3939 
    4040!$AGRIF_DO_NOT_TREAT 
    … …  
    145145   END SUBROUTINE icb_lbc_nfld 
    146146 
    147 #if defined key_mpp_mpi 
     147#if ! defined key_mpi_off 
    148148   !!---------------------------------------------------------------------- 
    149    !!   'key_mpp_mpi'             MPI massively parallel processing library 
     149   !!            MPI massively parallel processing library 
    150150   !!---------------------------------------------------------------------- 
    151151 

  • NEMO/trunk/src/OCE/LBC/lbclnk.F90

    r14072 r14229  
    6666   PUBLIC   lbc_lnk_nc_multi   ! modified ocean/ice lateral boundary conditions (MPI3 version) 
    6767 
    68 #if   defined key_mpp_mpi 
     68#if ! defined key_mpi_off 
    6969!$AGRIF_DO_NOT_TREAT 
    7070   INCLUDE 'mpif.h' 

  • NEMO/trunk/src/OCE/LBC/lib_mpp.F90

    r14072 r14229  
    7373   PUBLIC   mpp_bcast_nml 
    7474   PUBLIC   tic_tac 
    75 #if ! defined key_mpp_mpi 
     75#if defined key_mpp_off 
    7676   PUBLIC MPI_wait 
    7777   PUBLIC MPI_Wtime 
    … …  
    110110   !!  MPI  variable definition !! 
    111111   !! ========================= !! 
    112 #if   defined key_mpp_mpi 
     112#if ! defined key_mpi_off 
    113113!$AGRIF_DO_NOT_TREAT 
    114114   INCLUDE 'mpif.h' 
    … …  
    209209      LOGICAL ::   llmpi_init 
    210210      !!---------------------------------------------------------------------- 
    211 #if defined key_mpp_mpi 
     211#if ! defined key_mpi_off 
    212212      ! 
    213213      CALL mpi_initialized ( llmpi_init, ierr ) 
    … …  
    271271      !!---------------------------------------------------------------------- 
    272272      ! 
    273 #if defined key_mpp_mpi 
     273#if ! defined key_mpi_off 
    274274      IF (wp == dp) THEN 
    275275         mpi_working_type = mpi_double_precision 
    … …  
    299299      !!---------------------------------------------------------------------- 
    300300      ! 
    301 #if defined key_mpp_mpi 
     301#if ! defined key_mpi_off 
    302302      CALL mpi_isend( pmess, kbytes, mpi_double_precision, kdest , ktyp, mpi_comm_oce, md_req, iflag ) 
    303303#endif 
    … …  
    322322      !!---------------------------------------------------------------------- 
    323323      ! 
    324 #if defined key_mpp_mpi 
     324#if ! defined key_mpi_off 
    325325      CALL mpi_isend( pmess, kbytes, mpi_real, kdest , ktyp, mpi_comm_oce, md_req, iflag ) 
    326326#endif 
    … …  
    347347      !!---------------------------------------------------------------------- 
    348348      ! 
    349 #if defined key_mpp_mpi 
     349#if ! defined key_mpi_off 
    350350      ! If a specific process number has been passed to the receive call, 
    351351      ! use that one. Default is to use mpi_any_source 
    … …  
    380380      !!---------------------------------------------------------------------- 
    381381      ! 
    382 #if defined key_mpp_mpi 
     382#if ! defined key_mpi_off 
    383383      ! If a specific process number has been passed to the receive call, 
    384384      ! use that one. Default is to use mpi_any_source 
    … …  
    409409      !!---------------------------------------------------------------------- 
    410410      ! 
    411 #if defined key_mpp_mpi 
     411#if ! defined key_mpi_off 
    412412      ! If a specific process number has been passed to the receive call, 
    413413      ! use that one. Default is to use mpi_any_source 
    … …  
    437437      ! 
    438438      itaille = jpi * jpj 
    439 #if defined key_mpp_mpi 
     439#if ! defined key_mpi_off 
    440440      CALL mpi_gather( ptab, itaille, mpi_double_precision, pio, itaille     ,   & 
    441441         &                            mpi_double_precision, kp , mpi_comm_oce, ierror ) 
    … …  
    464464      itaille = jpi * jpj 
    465465      ! 
    466 #if defined key_mpp_mpi 
     466#if ! defined key_mpi_off 
    467467      CALL mpi_scatter( pio, itaille, mpi_double_precision, ptab, itaille     ,   & 
    468468         &                            mpi_double_precision, kp  , mpi_comm_oce, ierror ) 
    … …  
    493493      COMPLEX(dp), ALLOCATABLE, DIMENSION(:) ::   ytmp 
    494494      !!---------------------------------------------------------------------- 
    495 #if defined key_mpp_mpi 
     495#if ! defined key_mpi_off 
    496496      ilocalcomm = mpi_comm_oce 
    497497      IF( PRESENT(kcom) )   ilocalcomm = kcom 
    … …  
    568568      !!---------------------------------------------------------------------- 
    569569 
    570 #if defined key_mpp_mpi 
     570#if ! defined key_mpi_off 
    571571      if( wp == dp ) then 
    572572         MPI_TYPE = MPI_DOUBLE_PRECISION 
    … …  
    640640      INTEGER ::   ierr 
    641641      !!---------------------------------------------------------------------- 
    642 #if defined key_mpp_mpi 
     642#if ! defined key_mpi_off 
    643643      IF( ln_timing ) CALL tic_tac( .TRUE., ld_global = .TRUE.) 
    644644      ! test on ndelayid(kid) useless as mpi_wait return immediatly if the request handle is MPI_REQUEST_NULL 
    … …  
    662662      !!---------------------------------------------------------------------- 
    663663      ! 
    664 #if defined key_mpp_mpi 
     664#if ! defined key_mpi_off 
    665665      call MPI_BCAST(kleng, 1, MPI_INT, 0, mpi_comm_oce, iflag) 
    666666      call MPI_BARRIER(mpi_comm_oce, iflag) 
    … …  
    928928      !!----------------------------------------------------------------------- 
    929929      ! 
    930 #if defined key_mpp_mpi 
     930#if ! defined key_mpi_off 
    931931      CALL mpi_barrier( mpi_comm_oce, ierror ) 
    932932#endif 
    … …  
    949949      IF( PRESENT(ld_abort) ) ll_abort = ld_abort 
    950950      ! 
    951 #if defined key_mpp_mpi 
     951#if ! defined key_mpi_off 
    952952      IF(ll_abort) THEN 
    953953         CALL mpi_abort( MPI_COMM_WORLD ) 
    … …  
    969969      !!---------------------------------------------------------------------- 
    970970      ! 
    971 #if defined key_mpp_mpi 
     971#if ! defined key_mpi_off 
    972972      CALL MPI_COMM_FREE(kcom, ierr) 
    973973#endif 
    … …  
    10011001      INTEGER, ALLOCATABLE, DIMENSION(:) ::   kwork 
    10021002      !!---------------------------------------------------------------------- 
    1003 #if defined key_mpp_mpi 
     1003#if ! defined key_mpi_off 
    10041004      !-$$     WRITE (numout,*) 'mpp_ini_znl ', nproc, ' - ngrp_world     : ', ngrp_world 
    10051005      !-$$     WRITE (numout,*) 'mpp_ini_znl ', nproc, ' - mpi_comm_world : ', mpi_comm_world 
    … …  
    10941094      LOGICAL, PARAMETER :: ireord = .FALSE. 
    10951095 
    1096 #if defined key_mpp_mpi 
     1096#if ! defined key_mpi_off 
    10971097 
    10981098      ideg = 0 
    … …  
    12481248      !!---------------------------------------------------------------------- 
    12491249      ! 
    1250 #if defined key_mpp_mpi 
     1250#if ! defined key_mpi_off 
    12511251      njmppmax = MAXVAL( njmppt ) 
    12521252      ! 
    … …  
    13301330      INTEGER ::    ji,  jj,  jk,  jh, jf, jcount   ! dummy loop indices 
    13311331      !!---------------------------------------------------------------------- 
    1332 #if defined key_mpp_mpi 
     1332#if ! defined key_mpi_off 
    13331333      ! 
    13341334      ll_lbc = .FALSE. 
    … …  
    14511451    REAL(dp),               SAVE :: tic_ct = 0._dp 
    14521452    INTEGER :: ii 
    1453 #if defined key_mpp_mpi 
     1453#if ! defined key_mpi_off 
    14541454 
    14551455    IF( ncom_stp <= nit000 ) RETURN 
    … …  
    14711471   END SUBROUTINE tic_tac 
    14721472 
    1473 #if ! defined key_mpp_mpi 
     1473#if defined key_mpi_off 
    14741474   SUBROUTINE mpi_wait(request, status, ierror) 
    14751475      INTEGER                            , INTENT(in   ) ::   request 
    … …  
    17921792         !write(*,'(32A)') cdnambuff 
    17931793      ENDIF 
    1794 #if defined key_mpp_mpi 
     1794#if ! defined key_mpi_off 
    17951795      CALL mpp_bcast_nml( cdnambuff, itot ) 
    17961796#endif 

  • NEMO/trunk/src/OCE/LBC/mpp_allreduce_generic.h90

    r13226 r14229  
    4848      INTEGER, OPTIONAL, INTENT(in   ) ::   kdim        ! optional pointer dimension 
    4949      INTEGER, OPTIONAL, INTENT(in   ) ::   kcom        ! optional communicator 
    50 #if defined key_mpp_mpi 
     50#if ! defined key_mpi_off 
    5151      ! 
    5252      INTEGER :: ipi, ii, ierr 

  • NEMO/trunk/src/OCE/LBC/mpp_lbc_north_icb_generic.h90

    r13438 r14229  
    4242      REAL(PRECISION), DIMENSION(:,:,:), ALLOCATABLE  ::  znorthgloio_e 
    4343      !!---------------------------------------------------------------------- 
    44 #if defined key_mpp_mpi 
     44#if ! defined key_mpi_off 
    4545      ! 
    4646      ipj=4 
    … …  
    6767      ! 
    6868      IF( ln_timing ) CALL tic_tac(.TRUE.) 
    69 #if defined key_mpp_mpi 
     69#if ! defined key_mpi_off 
    7070      CALL MPI_ALLGATHER( znorthloc_e(1,1-kextj)    , itaille, MPI_TYPE,    & 
    7171         &                znorthgloio_e(1,1-kextj,1), itaille, MPI_TYPE,    & 

  • NEMO/trunk/src/OCE/LBC/mpp_loc_generic.h90

    r13458 r14229  
    22#   if defined SINGLE_PRECISION 
    33#      define ARRAY_TYPE(i,j,k)    REAL(sp)        , INTENT(in   ) ::   ARRAY_IN(i,j,k) 
    4 #if defined key_mpp_mpi 
     4#if ! defined key_mpi_off 
    55#      define MPI_TYPE MPI_2REAL 
    66#endif 
    … …  
    88#   else 
    99#      define ARRAY_TYPE(i,j,k)    REAL(dp)        , INTENT(in   ) ::   ARRAY_IN(i,j,k) 
    10 #if defined key_mpp_mpi 
     10#if ! defined key_mpi_off 
    1111#      define MPI_TYPE MPI_2DOUBLE_PRECISION 
    1212#endif 
    … …  
    9595      zain(2,:) = REAL(index0, PRECISION) 
    9696      ! 
    97 #if defined key_mpp_mpi 
     97#if ! defined key_mpi_off 
    9898      IF( ln_timing ) CALL tic_tac(.TRUE., ld_global = .TRUE.) 
    9999      CALL MPI_ALLREDUCE( zain, zaout, 1, MPI_TYPE, MPI_OPERATION ,MPI_COMM_OCE, ierror) 
    … …  
    131131#undef MASK_IN 
    132132#undef K_SIZE 
    133 #if defined key_mpp_mpi 
     133#if ! defined key_mpi_off 
    134134#   undef MPI_TYPE 
    135135#endif 

  • NEMO/trunk/src/OCE/LBC/mpp_nfd_generic.h90

    r13438 r14229  
    317317         ! start waiting time measurement 
    318318         IF( ln_timing ) CALL tic_tac(.TRUE.) 
    319 #if defined key_mpp_mpi 
     319#if ! defined key_mpi_off 
    320320         CALL MPI_ALLGATHER( znorthloc, ibuffsize, MPI_TYPE, znorthglo, ibuffsize, MPI_TYPE, ncomm_north, ierr ) 
    321321#endif 

  • NEMO/trunk/src/OCE/LBC/mppini.F90

    r14072 r14229  
    4747CONTAINS 
    4848 
    49 #if ! defined key_mpp_mpi 
     49#if defined key_mpi_off 
    5050   !!---------------------------------------------------------------------- 
    5151   !!   Default option :                            shared memory computing 
    … …  
    107107#else 
    108108   !!---------------------------------------------------------------------- 
    109    !!   'key_mpp_mpi'                     MPI massively parallel processing 
     109   !!                   MPI massively parallel processing 
    110110   !!---------------------------------------------------------------------- 
    111111 

  • NEMO/trunk/src/OCE/OBS/mpp_map.F90

    r13286 r14229  
    1313   USE par_oce , ONLY :   jpi, jpj, Nis0, Nie0, Njs0, Nje0   ! Ocean parameters 
    1414   USE dom_oce , ONLY :   mig, mjg, narea                    ! Ocean space and time domain variables 
    15 #if defined key_mpp_mpi 
     15#if ! defined key_mpi_off 
    1616   USE lib_mpp , ONLY :   mpi_comm_oce   ! MPP library 
    1717#endif 
    … …  
    4545      !!---------------------------------------------------------------------- 
    4646      INTEGER, DIMENSION(:,:), ALLOCATABLE ::   imppmap   ! 
    47 #if defined key_mpp_mpi 
     47#if ! defined key_mpi_off 
    4848      INTEGER :: ierr 
    4949 
    … …  
    6969      ! Get global data 
    7070 
    71 #if defined key_mpp_mpi 
     71#if ! defined key_mpi_off 
    7272 
    7373      ! Call the MPI library to find the max across processors 

  • NEMO/trunk/src/OCE/OBS/obs_mpp.F90

    r10068 r14229  
    2121   USE mpp_map, ONLY :   mppmap 
    2222   USE in_out_manager 
    23 #if defined key_mpp_mpi 
     23#if ! defined key_mpi_off 
    2424   USE lib_mpp, ONLY :   mpi_comm_oce      ! MPP library 
    2525#endif 
    … …  
    6161      INTEGER, DIMENSION(kno), INTENT(inout) ::   kvals   ! Array to send on kroot, receive for non-kroot 
    6262      ! 
    63 #if defined key_mpp_mpi 
     63#if ! defined key_mpi_off 
    6464      ! 
    6565      INTEGER :: ierr  
    … …  
    9595      INTEGER, DIMENSION(kno), INTENT(inout) ::   kvals   ! Array to send on kroot, receive for non-kroot   
    9696      ! 
    97 #if defined key_mpp_mpi 
     97#if ! defined key_mpi_off 
    9898      ! 
    9999      INTEGER :: ierr  
    … …  
    134134      INTEGER, DIMENSION(kno), INTENT(inout) ::   kobsp 
    135135      ! 
    136 #if defined key_mpp_mpi 
     136#if ! defined key_mpi_off 
    137137      ! 
    138138      ! 
    … …  
    192192      INTEGER, DIMENSION(kno), INTENT(  out) ::   kvalsout 
    193193      ! 
    194 #if defined key_mpp_mpi 
     194#if ! defined key_mpi_off 
    195195      ! 
    196196      INTEGER :: ierr 
    … …  
    230230      INTEGER, INTENT(  out) ::   kvalout 
    231231      ! 
    232 #if defined key_mpp_mpi 
     232#if ! defined key_mpi_off 
    233233      ! 
    234234      INTEGER :: ierr 
    … …  
    270270      INTEGER :: ierr 
    271271      ! 
    272 #if defined key_mpp_mpi 
     272#if ! defined key_mpi_off 
    273273      ! 
    274274INCLUDE 'mpif.h' 
    … …  
    318318      INTEGER :: ierr 
    319319      ! 
    320 #if defined key_mpp_mpi 
     320#if ! defined key_mpi_off 
    321321      ! 
    322322INCLUDE 'mpif.h' 
    … …  
    360360      INTEGER :: jproc 
    361361      ! 
    362 #if defined key_mpp_mpi 
     362#if ! defined key_mpi_off 
    363363      ! 
    364364INCLUDE 'mpif.h' 
    … …  
    412412      INTEGER :: jproc 
    413413      ! 
    414 #if defined key_mpp_mpi 
     414#if ! defined key_mpi_off 
    415415      ! 
    416416INCLUDE 'mpif.h' 

  • NEMO/trunk/src/OCE/SBC/sbcmod.F90

    r14227 r14229  
    120120      IF(lwm) WRITE( numond, namsbc ) 
    121121      ! 
    122 #if defined key_mpp_mpi 
     122#if ! defined key_mpi_off 
    123123      ncom_fsbc = nn_fsbc    ! make nn_fsbc available for lib_mpp 
    124124#endif 

  • NEMO/trunk/src/OCE/nemogcm.F90

    r14227 r14229  
    8787   CHARACTER(lc) ::   cform_aaa="( /, 'AAAAAAAA', / ) "     ! flag for output listing 
    8888 
    89 #if defined key_mpp_mpi 
     89#if ! defined key_mpi_off 
    9090   ! need MPI_Wtime 
    9191   INCLUDE 'mpif.h' 

  • NEMO/trunk/src/OCE/timing.F90

    r14072 r14229  
    3131   PUBLIC   timing_start, timing_stop      ! called in each routine to time 
    3232 
    33 #if defined key_mpp_mpi 
     33#if ! defined key_mpi_off 
    3434   INCLUDE 'mpif.h' 
    3535#endif 
    … …  
    116116      CALL CPU_TIME( s_timer%t_cpu  ) 
    117117      ! clock time collection 
    118 #if defined key_mpp_mpi 
     118#if ! defined key_mpi_off 
    119119      s_timer%t_clock= MPI_Wtime() 
    120120#else 
    … …  
    142142 
    143143      ! clock time collection 
    144 #if defined key_mpp_mpi 
     144#if ! defined key_mpi_off 
    145145      zmpitime = MPI_Wtime() 
    146146#else 
    … …  
    166166 
    167167      ! clock time correction 
    168 #if defined key_mpp_mpi 
     168#if ! defined key_mpi_off 
    169169      zclock_raw = zmpitime - s_timer%t_clock - t_overclock ! total time including child 
    170170      s_timer%t_clock = zclock_raw - t_overclock - s_timer%tsub_clock 
    … …  
    249249 
    250250      ! Compute clock function overhead 
    251 #if defined key_mpp_mpi 
     251#if ! defined key_mpi_off 
    252252      t_overclock = MPI_WTIME() 
    253253      t_overclock = MPI_WTIME() - t_overclock 
    … …  
    274274 
    275275      CALL CPU_TIME(t_cpu(1)) 
    276 #if defined key_mpp_mpi 
     276#if ! defined key_mpi_off 
    277277      ! Start elapsed and CPU time counters 
    278278      t_elaps(1) = MPI_WTIME() 
    … …  
    305305      CALL CPU_TIME(t_cpu(2)) 
    306306      t_cpu(2)   = t_cpu(2)    - t_cpu(1)   - t_overcpu 
    307 #if defined key_mpp_mpi 
     307#if ! defined key_mpi_off 
    308308      t_elaps(2) = MPI_WTIME() - t_elaps(1) - t_overclock 
    309309#else 
    … …  
    336336      ENDIF 
    337337 
    338 #if defined key_mpp_mpi 
     338#if ! defined key_mpi_off 
    339339      ! in MPI gather some info 
    340340      ALLOCATE( all_etime(jpnij), all_ctime(jpnij) ) 
    … …  
    360360      IF( lwriter ) WRITE(numtime,'(5x,f12.3,1x,f12.3)')  tot_etime, tot_ctime 
    361361      IF( lwriter ) WRITE(numtime,*) 
    362 #if defined key_mpp_mpi 
     362#if ! defined key_mpi_off 
    363363      IF( ll_averep ) CALL waver_info 
    364364      CALL wmpi_info 
    … …  
    377377      &       czone(1:3),    czone(4:5) 
    378378 
    379 #if defined key_mpp_mpi 
     379#if ! defined key_mpi_off 
    380380      ALLOCATE(timing_glob(4*jpnij), stat=icode) 
    381381      CALL MPI_GATHER( (/compute_time, waiting_time(1), waiting_time(2), elapsed_time/),   & 
    … …  
    458458   END SUBROUTINE wcurrent_info 
    459459 
    460 #if defined key_mpp_mpi 
     460#if ! defined key_mpi_off 
    461461   SUBROUTINE waver_info 
    462462      !!---------------------------------------------------------------------- 

  • NEMO/trunk/src/OFF/nemogcm.F90

    r14227 r14229  
    7777 
    7878   CHARACTER (len=64) ::   cform_aaa="( /, 'AAAAAAAA', / ) "   ! flag for output listing 
    79 #if defined key_mpp_mpi 
     79#if ! defined key_mpi_off 
    8080   ! need MPI_Wtime 
    8181   INCLUDE 'mpif.h' 

  • NEMO/trunk/src/SAS/nemogcm.F90

    r14227 r14229  
    5858   CHARACTER(lc) ::   cform_aaa="( /, 'AAAAAAAA', / ) "     ! flag for output listing 
    5959 
    60 #if defined key_mpp_mpi 
     60#if ! defined key_mpi_off 
    6161   ! need MPI_Wtime 
    6262   INCLUDE 'mpif.h' 

  • NEMO/trunk/src/SWE/nemogcm.F90

    r14227 r14229  
    4444   CHARACTER(lc) ::   cform_aaa="( /, 'AAAAAAAA', / ) "     ! flag for output listing 
    4545 
    46 #if defined key_mpp_mpi 
     46#if ! defined key_mpi_off 
    4747   ! need MPI_Wtime 
    4848   INCLUDE 'mpif.h' 

  • NEMO/trunk/src/TOP/README.rst

    r11734 r14229  
    320320.. code-block:: perl 
    321321 
    322    bld::tool::fppkeys key_iomput key_mpp_mpi key_top 
     322   bld::tool::fppkeys key_iomput key_top 
    323323 
    324324the compilation with :file:`makenemo` will be executed through the following syntax 
    … …  
    348348.. code-block:: perl 
    349349 
    350    bld::tool::fppkeys  key_iomput key_mpp_mpi key_top 
     350   bld::tool::fppkeys  key_iomput key_top 
    351351 
    352352   src::MYBGC::initialization         <MYBGCPATH>/initialization 
    … …  
    376376   .. code-block:: perl 
    377377 
    378       bld::tool::fppkeys  key_zdftke key_dynspg_ts key_iomput key_mpp_mpi key_top 
     378      bld::tool::fppkeys  key_zdftke key_dynspg_ts key_iomput key_top 
    379379      inc <MYBGCPATH>/MYBGC.fcm 
    380380 
Note: See TracChangeset for help on using the changeset viewer.