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 3286 for branches – NEMO

Changeset 3286 for branches


Ignore:
Timestamp:
2012-01-27T14:26:15+01:00 (12 years ago)
Author:
rblod
Message:

Dummy routine in lib_mpp, see ticket #920

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90

    r3243 r3286  
    26372637 
    26382638   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 
    26402640   END INTERFACE 
    26412641   INTERFACE mpp_max 
     
    27102710   END SUBROUTINE mpp_sum_i 
    27112711 
     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 
    27122725   SUBROUTINE mppmax_a_real( parr, kdim, kcom ) 
    27132726      REAL   , DIMENSION(:) :: parr 
Note: See TracChangeset for help on using the changeset viewer.