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 2513 – NEMO

Changeset 2513


Ignore:
Timestamp:
2010-12-23T17:01:47+01:00 (12 years ago)
Author:
smasson
Message:

v33b: unexplained changes needed to compile with agrif on IBM PW6 (xlf90 v12.1.0.9)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/obs_mpp.F90

    r2474 r2513  
    5858      INTEGER                , INTENT(in   ) ::   kroot   ! Processor to send data 
    5959      INTEGER, DIMENSION(kno), INTENT(inout) ::   kvals   ! Array to send on kroot, receive for non-kroot 
    60       !! 
    61 #if defined key_mpp_mpi 
     60      ! 
     61#if defined key_mpp_mpi 
     62      ! 
    6263      INTEGER :: ierr  
    63  
     64      ! 
    6465INCLUDE 'mpif.h' 
    6566      !!---------------------------------------------------------------------- 
     
    9192      INTEGER                , INTENT(in   ) ::   kno     ! Number of elements in array 
    9293      INTEGER, DIMENSION(kno), INTENT(inout) ::   kvals   ! Array to send on kroot, receive for non-kroot   
    93       !! 
    94 #if defined key_mpp_mpi 
     94      ! 
     95#if defined key_mpp_mpi 
     96      ! 
    9597      INTEGER :: ierr  
    9698      INTEGER, DIMENSION(kno) ::   ivals 
    97  
     99      ! 
    98100INCLUDE 'mpif.h' 
    99101      !!---------------------------------------------------------------------- 
     
    130132      INTEGER, DIMENSION(kno), INTENT(in   ) ::   kobsi, kobsj 
    131133      INTEGER, DIMENSION(kno), INTENT(inout) ::   kobsp 
    132       !! 
    133 #if defined key_mpp_mpi 
     134      ! 
     135#if defined key_mpp_mpi 
     136      ! 
    134137      INTEGER :: ji 
    135138      INTEGER :: jj 
     
    241244      INTEGER, DIMENSION(kno), INTENT(in   ) ::   kvalsin 
    242245      INTEGER, DIMENSION(kno), INTENT(  out) ::   kvalsout 
    243       !! 
    244 #if defined key_mpp_mpi 
    245       INTEGER :: ierr 
    246       !! 
     246      ! 
     247#if defined key_mpp_mpi 
     248      ! 
     249      INTEGER :: ierr 
     250      ! 
    247251INCLUDE 'mpif.h' 
    248252      !!---------------------------------------------------------------------- 
     
    278282      INTEGER, INTENT(in   ) ::   kvalin 
    279283      INTEGER, INTENT(  out) ::   kvalout 
    280       !! 
    281 #if defined key_mpp_mpi 
    282       INTEGER :: ierr 
    283       !! 
     284      ! 
     285#if defined key_mpp_mpi 
     286      ! 
     287      INTEGER :: ierr 
     288      ! 
    284289INCLUDE 'mpif.h' 
    285290      !!---------------------------------------------------------------------- 
     
    315320      !!---------------------------------------------------------------------- 
    316321      REAL(KIND=wp), DIMENSION(jpiglo,jpjglo), INTENT(inout) ::   pval 
    317       !! 
    318       INTEGER :: ierr 
    319 #if defined key_mpp_mpi 
     322      ! 
     323      INTEGER :: ierr 
     324      ! 
     325#if defined key_mpp_mpi 
     326      ! 
    320327INCLUDE 'mpif.h' 
    321328      REAL(KIND=wp), DIMENSION(:,:), ALLOCATABLE ::   zcp 
     
    363370      !! 
    364371      INTEGER :: ierr 
    365 #if defined key_mpp_mpi 
     372      ! 
     373#if defined key_mpp_mpi 
     374      ! 
    366375INCLUDE 'mpif.h' 
    367376      !----------------------------------------------------------------------- 
     
    403412      INTEGER :: ierr 
    404413      INTEGER :: jproc 
    405 #if defined key_mpp_mpi 
     414      ! 
     415#if defined key_mpp_mpi 
     416      ! 
    406417INCLUDE 'mpif.h' 
    407418      INTEGER, DIMENSION(jpnij) ::   irdsp, isdsp 
     
    453464      INTEGER :: ierr 
    454465      INTEGER :: jproc 
    455 #if defined key_mpp_mpi 
     466      ! 
     467#if defined key_mpp_mpi 
     468      ! 
    456469INCLUDE 'mpif.h' 
    457470      INTEGER, DIMENSION(jpnij) ::   irdsp, isdsp 
Note: See TracChangeset for help on using the changeset viewer.