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 7509 for branches/2016/dev_v3_6_STABLE_r6506_AGRIF_LIM3/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90 – NEMO

Ignore:
Timestamp:
2016-12-19T15:48:12+01:00 (8 years ago)
Author:
clem
Message:

update branch

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2016/dev_v3_6_STABLE_r6506_AGRIF_LIM3/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90

    r6971 r7509  
    29082908      !! 
    29092909      !!---------------------------------------------------------------------- 
    2910  
    2911       USE lbcnfd          ! north fold 
    2912  
    2913       INCLUDE 'mpif.h' 
    2914  
    29152910      REAL(wp), DIMENSION(jpi,jpj,jpk), INTENT(inout) ::   ptab     ! 3D array on which the boundary condition is applied 
    29162911      CHARACTER(len=1)                , INTENT(in   ) ::   cd_type  ! define the nature of ptab array grid-points 
    … …  
    29192914      !                                                             ! =  1. , the sign is kept 
    29202915      INTEGER                         , INTENT(in   ) ::   ib_bdy   ! BDY boundary set 
     2916      ! 
    29212917      INTEGER  ::   ji, jj, jk, jl             ! dummy loop indices 
    29222918      INTEGER  ::   imigr, iihom, ijhom        ! temporary integers 
    … …  
    31313127      !! 
    31323128      !!---------------------------------------------------------------------- 
    3133  
    3134       USE lbcnfd          ! north fold 
    3135  
    3136       INCLUDE 'mpif.h' 
    3137  
    31383129      REAL(wp), DIMENSION(jpi,jpj)    , INTENT(inout) ::   ptab     ! 3D array on which the boundary condition is applied 
    31393130      CHARACTER(len=1)                , INTENT(in   ) ::   cd_type  ! define the nature of ptab array grid-points 
    … …  
    31423133      !                                                             ! =  1. , the sign is kept 
    31433134      INTEGER                         , INTENT(in   ) ::   ib_bdy   ! BDY boundary set 
     3135      ! 
    31443136      INTEGER  ::   ji, jj, jl             ! dummy loop indices 
    31453137      INTEGER  ::   imigr, iihom, ijhom        ! temporary integers 
Note: See TracChangeset for help on using the changeset viewer.