Changeset 3435


Ignore:
Timestamp:
2012-07-23T14:26:38+02:00 (9 years ago)
Author:
rfurner
Message:

ticket 982, removed unnecessary ifdef statments from the lib_mpp to fix bug preventing compiling of closea.F90.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90

    r3420 r3435  
    8080   END INTERFACE 
    8181   INTERFACE mpp_sum 
    82 # if defined key_mpp_rep 
    8382      MODULE PROCEDURE mppsum_a_int, mppsum_int, mppsum_a_real, mppsum_real, & 
    8483                       mppsum_realdd, mppsum_a_realdd 
    85 # else 
    86       MODULE PROCEDURE mppsum_a_int, mppsum_int, mppsum_a_real, mppsum_real 
    87 # endif 
    8884   END INTERFACE 
    8985   INTERFACE mpp_lbc_north 
     
    114110!$AGRIF_END_DO_NOT_TREAT 
    115111 
    116 # if defined key_mpp_rep 
    117112   INTEGER :: MPI_SUMDD 
    118 # endif 
    119113 
    120114   ! variables used in case of sea-ice 
     
    356350      mynode = mpprank 
    357351      !  
    358 #if defined key_mpp_rep 
    359352      CALL MPI_OP_CREATE(DDPDD_MPI, .TRUE., MPI_SUMDD, ierr) 
    360 #endif 
    361353      ! 
    362354   END FUNCTION mynode 
     
    15071499   END SUBROUTINE mppsum_real 
    15081500 
    1509 # if defined key_mpp_rep 
    15101501   SUBROUTINE mppsum_realdd( ytab, kcom ) 
    15111502      !!---------------------------------------------------------------------- 
     
    15601551 
    15611552   END SUBROUTINE mppsum_a_realdd 
    1562 # endif    
    15631553    
    15641554   SUBROUTINE mpp_minloc2d( ptab, pmask, pmin, ki,kj ) 
     
    26032593   END SUBROUTINE mpi_init_opa 
    26042594 
    2605 #if defined key_mpp_rep 
    26062595   SUBROUTINE DDPDD_MPI (ydda, yddb, ilen, itype) 
    26072596      !!--------------------------------------------------------------------- 
     
    26322621 
    26332622   END SUBROUTINE DDPDD_MPI 
    2634 #endif 
    26352623 
    26362624#else 
Note: See TracChangeset for help on using the changeset viewer.