Changeset 3435
- Timestamp:
- 2012-07-23T14:26:38+02:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90
r3420 r3435 80 80 END INTERFACE 81 81 INTERFACE mpp_sum 82 # if defined key_mpp_rep83 82 MODULE PROCEDURE mppsum_a_int, mppsum_int, mppsum_a_real, mppsum_real, & 84 83 mppsum_realdd, mppsum_a_realdd 85 # else86 MODULE PROCEDURE mppsum_a_int, mppsum_int, mppsum_a_real, mppsum_real87 # endif88 84 END INTERFACE 89 85 INTERFACE mpp_lbc_north … … 114 110 !$AGRIF_END_DO_NOT_TREAT 115 111 116 # if defined key_mpp_rep117 112 INTEGER :: MPI_SUMDD 118 # endif119 113 120 114 ! variables used in case of sea-ice … … 356 350 mynode = mpprank 357 351 ! 358 #if defined key_mpp_rep359 352 CALL MPI_OP_CREATE(DDPDD_MPI, .TRUE., MPI_SUMDD, ierr) 360 #endif361 353 ! 362 354 END FUNCTION mynode … … 1507 1499 END SUBROUTINE mppsum_real 1508 1500 1509 # if defined key_mpp_rep1510 1501 SUBROUTINE mppsum_realdd( ytab, kcom ) 1511 1502 !!---------------------------------------------------------------------- … … 1560 1551 1561 1552 END SUBROUTINE mppsum_a_realdd 1562 # endif1563 1553 1564 1554 SUBROUTINE mpp_minloc2d( ptab, pmask, pmin, ki,kj ) … … 2603 2593 END SUBROUTINE mpi_init_opa 2604 2594 2605 #if defined key_mpp_rep2606 2595 SUBROUTINE DDPDD_MPI (ydda, yddb, ilen, itype) 2607 2596 !!--------------------------------------------------------------------- … … 2632 2621 2633 2622 END SUBROUTINE DDPDD_MPI 2634 #endif2635 2623 2636 2624 #else
Note: See TracChangeset
for help on using the changeset viewer.