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

Changeset 8537


Ignore:
Timestamp:
2017-09-19T07:46:09+02:00 (7 years ago)
Author:
gm
Message:

#1799 : correct a compilation error in lib_mpp with intel 17 and openmpi

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90

    r7531 r8537  
    2323   !!                          the mppobc routine to optimize the BDY and OBC communications 
    2424   !!            3.5  !  2013  ( C. Ethe, G. Madec ) message passing arrays as local variables  
    25    !!            3.5  !  2013 (S.Mocavero, I.Epicoco - CMCC) north fold optimizations 
    26    !!            3.6  !  2015 (O. Tintó and M. Castrillo - BSC) Added 'mpp_lnk_2d_multiple', 'mpp_lbc_north_2d_multiple', 'mpp_max_multiple'  
     25   !!            3.5  !  2013  (S.Mocavero, I.Epicoco - CMCC) north fold optimizations 
     26   !!            3.6  !  2015  (O. Tintó and M. Castrillo - BSC) Added 'mpp_lnk_2d_multiple', 'mpp_lbc_north_2d_multiple', 'mpp_max_multiple'  
    2727   !!---------------------------------------------------------------------- 
    2828 
     
    4444   !!   mpp_lnk_e     : interface (defined in lbclnk) for message passing of 2d array with extra halo (mpp_lnk_2d_e) 
    4545   !!   mpp_lnk_icb   : interface for message passing of 2d arrays with extra halo for icebergs (mpp_lnk_2d_icb) 
    46    !!   mpprecv         : 
     46   !!   mpprecv       : 
    4747   !!   mppsend       :   SUBROUTINE mpp_ini_znl 
    4848   !!   mppscatter    : 
     
    28802880      !! 
    28812881      !!---------------------------------------------------------------------- 
    2882  
    2883       USE lbcnfd          ! north fold 
    2884  
    2885       INCLUDE 'mpif.h' 
    2886  
    28872882      REAL(wp), DIMENSION(jpi,jpj,jpk), INTENT(inout) ::   ptab     ! 3D array on which the boundary condition is applied 
    28882883      CHARACTER(len=1)                , INTENT(in   ) ::   cd_type  ! define the nature of ptab array grid-points 
     
    28912886      !                                                             ! =  1. , the sign is kept 
    28922887      INTEGER                         , INTENT(in   ) ::   ib_bdy   ! BDY boundary set 
     2888      ! 
    28932889      INTEGER  ::   ji, jj, jk, jl             ! dummy loop indices 
    2894       INTEGER  ::   imigr, iihom, ijhom        ! temporary integers 
     2890      INTEGER  ::   imigr, iihom, ijhom        ! local integers 
    28952891      INTEGER  ::   ml_req1, ml_req2, ml_err   ! for key_mpi_isend 
    2896       REAL(wp) ::   zland 
     2892      REAL(wp) ::   zland                      ! local scalar 
    28972893      INTEGER, DIMENSION(MPI_STATUS_SIZE) ::   ml_stat   ! for key_mpi_isend 
    28982894      ! 
    28992895      REAL(wp), DIMENSION(:,:,:,:), ALLOCATABLE ::   zt3ns, zt3sn   ! 3d for north-south & south-north 
    29002896      REAL(wp), DIMENSION(:,:,:,:), ALLOCATABLE ::   zt3ew, zt3we   ! 3d for east-west & west-east 
    2901  
    29022897      !!---------------------------------------------------------------------- 
    29032898       
     
    30823077   END SUBROUTINE mpp_lnk_bdy_3d 
    30833078 
    3084       SUBROUTINE mpp_lnk_bdy_2d( ptab, cd_type, psgn, ib_bdy ) 
     3079 
     3080   SUBROUTINE mpp_lnk_bdy_2d( ptab, cd_type, psgn, ib_bdy ) 
    30853081      !!---------------------------------------------------------------------- 
    30863082      !!                  ***  routine mpp_lnk_bdy_2d  *** 
     
    31033099      !! 
    31043100      !!---------------------------------------------------------------------- 
    3105  
    3106       USE lbcnfd          ! north fold 
    3107  
    3108       INCLUDE 'mpif.h' 
    3109  
    3110       REAL(wp), DIMENSION(jpi,jpj)    , INTENT(inout) ::   ptab     ! 3D array on which the boundary condition is applied 
    3111       CHARACTER(len=1)                , INTENT(in   ) ::   cd_type  ! define the nature of ptab array grid-points 
    3112       !                                                             ! = T , U , V , F , W points 
    3113       REAL(wp)                        , INTENT(in   ) ::   psgn     ! =-1 the sign change across the north fold boundary 
    3114       !                                                             ! =  1. , the sign is kept 
    3115       INTEGER                         , INTENT(in   ) ::   ib_bdy   ! BDY boundary set 
     3101      REAL(wp), DIMENSION(jpi,jpj), INTENT(inout) ::   ptab     ! 3D array on which the boundary condition is applied 
     3102      CHARACTER(len=1)            , INTENT(in   ) ::   cd_type  ! define the nature of ptab array grid-points 
     3103      !                                                         ! = T , U , V , F , W points 
     3104      REAL(wp)                    , INTENT(in   ) ::   psgn     ! =-1 the sign change across the north fold boundary 
     3105      !                                                         ! =  1. , the sign is kept 
     3106      INTEGER                     , INTENT(in   ) ::   ib_bdy   ! BDY boundary set 
     3107      ! 
    31163108      INTEGER  ::   ji, jj, jl             ! dummy loop indices 
    3117       INTEGER  ::   imigr, iihom, ijhom        ! temporary integers 
     3109      INTEGER  ::   imigr, iihom, ijhom        ! local integers 
    31183110      INTEGER  ::   ml_req1, ml_req2, ml_err   ! for key_mpi_isend 
    31193111      REAL(wp) ::   zland 
     
    31223114      REAL(wp), DIMENSION(:,:,:), ALLOCATABLE ::  zt2ns, zt2sn   ! 2d for north-south & south-north 
    31233115      REAL(wp), DIMENSION(:,:,:), ALLOCATABLE ::  zt2ew, zt2we   ! 2d for east-west & west-east 
    3124  
    31253116      !!---------------------------------------------------------------------- 
    31263117 
     
    31283119         &      zt2ew(jpj,jpreci,2), zt2we(jpj,jpreci,2)   ) 
    31293120 
    3130       zland = 0.e0 
     3121      zland = 0._wp 
    31313122 
    31323123      ! 1. standard boundary treatment 
Note: See TracChangeset for help on using the changeset viewer.