Changeset 2335 for branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/mpp_map.F90

Timestamp:

2010-10-29T09:39:51+02:00 (14 years ago)

Author:

gm

Message:

v3.3beta: Suppress obsolete key_mpp_shmem

File:

• branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/mpp_map.F90 (modified) (3 diffs)

branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/mpp_map.F90

@@ -4 +4 @@
    !! NEMOVAR: MPP global grid point mapping to processors
    !!======================================================================
+   !! History :  2.0  ! 2007-08  (K. Mogensen)  Original code
+   !!----------------------------------------------------------------------
 
    !!----------------------------------------------------------------------
-   !! mppmap      : Global array which maps i,j to area number.
-   !! mppmap_init : Initialize mppmap.
+   !!  mppmap_init : Initialize mppmap.
    !!----------------------------------------------------------------------
-   !! * Modules used   
-   USE par_kind, ONLY : &   ! Precision variables
-      & wp
-   USE par_oce, ONLY : &    ! Ocean parameters
-      & jpi,   &
-      & jpj
-   USE dom_oce, ONLY : &    ! Ocean space and time domain variables
-      & mig,   &
-      & mjg,   &  
-      & nldi,  &
-      & nlei,  &
-      & nldj,  &
-      & nlej,  &
-      & narea 
+   USE par_kind, ONLY :   wp            ! Precision variables
+   USE par_oce , ONLY :   jpi, jpj      ! Ocean parameters
+   USE dom_oce , ONLY :   mig, mjg, nldi, nlei, nldj, nlej, narea   ! Ocean space and time domain variables
 #if defined key_mpp_mpi
-   USE lib_mpp, ONLY : &    ! MPP library
-      & mpi_comm_opa
+   USE lib_mpp, ONLY :   mpi_comm_opa   ! MPP library
 #endif
-   USE in_out_manager
+   USE in_out_manager   ! I/O manager
 
    IMPLICIT NONE
-
-   !! * Routine accessibility
    PRIVATE
 
-   PUBLIC &
-      & mppmap_init,        &
-      & mppmap
+   PUBLIC ::   mppmap_init, mppmap   !: ???
 
-   !! * Module variables
-
-   INTEGER, DIMENSION(:,:), ALLOCATABLE :: &
-      & mppmap
+   INTEGER, DIMENSION(:,:), ALLOCATABLE ::   mppmap   ! ???
 
    !!----------------------------------------------------------------------
    !! NEMO/OPA 3.3 , NEMO Consortium (2010)
    !! $Id$
-   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
+   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)
    !!----------------------------------------------------------------------
-
 CONTAINS
 
@@ -60 +41 @@
       !!
       !! ** Action  : This does only work for MPI. 
-      !!              It does not work for SHMEM.
       !!
       !! References : http://www.mpi-forum.org
-      !!
-      !! History :
-      !!        !  07-08  (K. Mogensen)  Original code
       !!----------------------------------------------------------------------
-
-      !! * Arguments
-      INTEGER, DIMENSION(:,:), ALLOCATABLE :: imppmap
+      INTEGER, DIMENSION(:,:), ALLOCATABLE ::   imppmap   !
 #if defined key_mpp_mpi
-      !! * Local declarations
       INTEGER :: ierr
 INCLUDE 'mpif.h'
 #endif
+      !!----------------------------------------------------------------------
 
       ALLOCATE( &
@@ -95 +70 @@
 
       ! Call the MPI library to find the max across processors
-
-      CALL mpi_allreduce( imppmap, mppmap, jpiglo*jpjglo, mpi_integer, &
+      CALL mpi_allreduce( imppmap, mppmap, jpiglo*jpjglo, mpi_integer,   &
          &                mpi_max, mpi_comm_opa, ierr )
-#elif defined key_mpp_shmem
-#error "Only MPI support for MPP in NEMOVAR"
 #else      
       
-      ! Just copy the data
-
+      ! No MPP: Just copy the data
       mppmap(:,:) = imppmap(:,:)
-
 #endif
-
+      !
    END SUBROUTINE mppmap_init
 
+   !!======================================================================
 END MODULE mpp_map