Changeset 3286 for branches/2011/dev_NEMO_MERGE_2011/NEMOGCM
- Timestamp:
- 2012-01-27T14:26:15+01:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90
r3243 r3286 2637 2637 2638 2638 INTERFACE mpp_sum 2639 MODULE PROCEDURE mpp_sum_a2s, mpp_sum_as, mpp_sum_ai, mpp_sum_s, mpp_sum_i 2639 MODULE PROCEDURE mpp_sum_a2s, mpp_sum_as, mpp_sum_ai, mpp_sum_s, mpp_sum_i, mppsum_realdd, mppsum_a_realdd 2640 2640 END INTERFACE 2641 2641 INTERFACE mpp_max … … 2710 2710 END SUBROUTINE mpp_sum_i 2711 2711 2712 SUBROUTINE mppsum_realdd( ytab, kcom ) 2713 COMPLEX(wp), INTENT(inout) :: ytab ! input scalar 2714 INTEGER , INTENT( in ), OPTIONAL :: kcom 2715 WRITE(*,*) 'mppsum_realdd: You should not have seen this print! error?', ytab 2716 END SUBROUTINE mppsum_realdd 2717 2718 SUBROUTINE mppsum_a_realdd( ytab, kdim, kcom ) 2719 INTEGER , INTENT( in ) :: kdim ! size of ytab 2720 COMPLEX(wp), DIMENSION(kdim), INTENT( inout ) :: ytab ! input array 2721 INTEGER , INTENT( in ), OPTIONAL :: kcom 2722 WRITE(*,*) 'mppsum_a_realdd: You should not have seen this print! error?', kdim, ytab(1), kcom 2723 END SUBROUTINE mppsum_a_realdd 2724 2712 2725 SUBROUTINE mppmax_a_real( parr, kdim, kcom ) 2713 2726 REAL , DIMENSION(:) :: parr
Note: See TracChangeset
for help on using the changeset viewer.