Ignore:
Timestamp:
2018-06-14T11:54:23+02:00 (2 years ago)
Author:
cbricaud
Message:

Restore C1D_PAPA configuration, #2061 and #2087

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/LBC/lbclnk.F90

    r9598 r9799  
    109109CONTAINS 
    110110 
    111 # if defined key_c1d 
    112    !!====================================================================== 
    113    !!   'key_c1d'                                          1D configuration 
    114    !!====================================================================== 
    115    !!     central point value replicated over the 8 surrounding points 
    116    !!---------------------------------------------------------------------- 
    117  
    118    SUBROUTINE lbc_lnk_3d( pt3d, cd_type, psgn, cd_mpp, pval ) 
    119       !!--------------------------------------------------------------------- 
    120       !!                  ***  ROUTINE lbc_lnk_3d  *** 
    121       !! 
    122       !! ** Purpose :   set lateral boundary conditions on a 3D array (C1D case) 
    123       !! 
    124       !! ** Method  :   1D case, the central water column is set everywhere 
    125       !!---------------------------------------------------------------------- 
    126       REAL(wp), DIMENSION(:,:,:), INTENT(inout)           ::   pt3d      ! 3D array on which the lbc is applied 
    127       CHARACTER(len=1)          , INTENT(in   )           ::   cd_type   ! nature of pt3d grid-points 
    128       REAL(wp)                  , INTENT(in   )           ::   psgn      ! sign used across north fold  
    129       CHARACTER(len=3)          , INTENT(in   ), OPTIONAL ::   cd_mpp    ! MPP only (here do nothing) 
    130       REAL(wp)                  , INTENT(in   ), OPTIONAL ::   pval      ! background value (for closed boundaries) 
    131       ! 
    132       INTEGER  ::   jk     ! dummy loop index 
    133       REAL(wp) ::   ztab   ! local scalar 
    134       !!---------------------------------------------------------------------- 
    135       ! 
    136       DO jk = 1, SIZE( pt3d, 3 ) 
    137          ztab = pt3d(2,2,jk) 
    138          pt3d(:,:,jk) = ztab 
    139       END DO 
    140       ! 
    141    END SUBROUTINE lbc_lnk_3d 
    142  
    143  
    144    SUBROUTINE lbc_lnk_2d( pt2d, cd_type, psgn, cd_mpp, pval ) 
    145       !!--------------------------------------------------------------------- 
    146       !!                 ***  ROUTINE lbc_lnk_2d  *** 
    147       !! 
    148       !! ** Purpose :   set lateral boundary conditions on a 2D array (non mpp case) 
    149       !! 
    150       !! ** Method  :   1D case, the central water column is set everywhere 
    151       !!---------------------------------------------------------------------- 
    152       REAL(wp), DIMENSION(jpi,jpj), INTENT(inout)           ::   pt2d      ! 2D array on which the lbc is applied 
    153       CHARACTER(len=1)            , INTENT(in   )           ::   cd_type   ! nature of pt3d grid-points 
    154       REAL(wp)                    , INTENT(in   )           ::   psgn      ! sign used across north fold  
    155       CHARACTER(len=3)            , INTENT(in   ), OPTIONAL ::   cd_mpp    ! MPP only (here do nothing) 
    156       REAL(wp)                    , INTENT(in   ), OPTIONAL ::   pval      ! background value (for closed boundaries) 
    157       ! 
    158       REAL(wp) ::   ztab   ! local scalar 
    159       !!---------------------------------------------------------------------- 
    160       ! 
    161       ztab = pt2d(2,2) 
    162       pt2d(:,:) = ztab 
    163       ! 
    164    END SUBROUTINE lbc_lnk_2d 
    165     
    166 #else 
    167111   !!====================================================================== 
    168112   !!   Default option                           3D shared memory computing 
     
    224168#  undef DIM_4d 
    225169    
    226 #endif 
    227  
    228170   !!====================================================================== 
    229171   !!   identical routines in both C1D and shared memory computing 
Note: See TracChangeset for help on using the changeset viewer.