Changeset 13162


Ignore:
Timestamp:
2020-06-26T15:20:37+02:00 (6 weeks ago)
Author:
rblod
Message:

#2129 : suppress ln_bry_south

Location:
NEMO/branches/2020/dev_r12973_AGRIF_CMEMS
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/dev_r12973_AGRIF_CMEMS/cfgs/SHARED/namelist_ref

    r13146 r13162  
    646646   rn_trelax_dyn   = 0.01    !  inverse of relaxation time (in steps) for dynamics [] 
    647647   ln_chk_bathy    = .false. !  =T  check the parent bathymetry 
    648    ln_bry_south    = .true.  !  =T  south boundary open 
    649648/ 
    650649!----------------------------------------------------------------------- 
  • NEMO/branches/2020/dev_r12973_AGRIF_CMEMS/src/NST/agrif_oce.F90

    r13141 r13162  
    3030   ! 
    3131   INTEGER , PUBLIC, PARAMETER ::   nn_sponge_len = 2  !: Sponge width (in number of parent grid points) 
    32    LOGICAL , PUBLIC ::   ln_bry_south  = .TRUE. !: Is the South boundary open ? 
    3332 
    3433   LOGICAL , PUBLIC :: spongedoneT = .FALSE.       !: tracer   sponge layer indicator 
  • NEMO/branches/2020/dev_r12973_AGRIF_CMEMS/src/NST/agrif_user.F90

    r13147 r13162  
    120120      ENDIF 
    121121 
    122       IF ( .NOT. ln_bry_south) THEN 
     122      IF ( .NOT. lk_south ) THEN 
    123123         CALL Agrif_Set_NearCommonBorderY(.TRUE.) 
    124124      ENDIF 
     
    240240      IF( agrif_oce_alloc()  > 0 )   CALL ctl_warn('agrif agrif_oce_alloc: allocation of arrays failed') 
    241241 
    242     !  lk_west  = ( ((nbondi == -1) .OR. (nbondi == 2) ).AND. .NOT. (jperio == 1 .OR. jperio == 4 .OR. jperio == 6)) 
    243     !  lk_east  = ( ((nbondi ==  1) .OR. (nbondi == 2) ).AND. .NOT. (jperio == 1 .OR. jperio == 4 .OR. jperio == 6)) 
    244     !  lk_south = ( ((nbondj == -1) .OR. (nbondj == 2) ).AND. ln_bry_south) 
    245     !  lk_north = ( ((nbondj ==  1) .OR. (nbondj == 2) )) 
    246      
    247       lk_west  = ( .NOT. (jperio == 1 .OR. jperio == 4 .OR. jperio == 6) ) 
    248       lk_east  = ( .NOT. (jperio == 1 .OR. jperio == 4 .OR. jperio == 6) ) 
    249       lk_south = ln_bry_south 
    250       lk_north = .true. 
     242      lk_west  = .NOT. ( Agrif_Ix() == 1 ) 
     243      lk_east  = .NOT. ( Agrif_Ix() + nbcellsx/AGRIF_Irhox() == Agrif_Parent(jpiglo) -1 ) 
     244      lk_south = .NOT. ( Agrif_Iy() == 1 ) 
     245      lk_north = .NOT. ( Agrif_Iy() + nbcellsy/AGRIF_Irhoy() == Agrif_Parent(jpjglo) -1 ) 
    251246 
    252247      ! Build consistent parent bathymetry and number of levels 
     
    859854      INTEGER  ::   ios                 ! Local integer output status for namelist read 
    860855      NAMELIST/namagrif/ ln_agrif_2way, ln_init_chfrpar, rn_sponge_tra, rn_sponge_dyn, rn_trelax_tra, rn_trelax_dyn, & 
    861                        & ln_spc_dyn, ln_chk_bathy, ln_bry_south 
     856                       & ln_spc_dyn, ln_chk_bathy 
    862857      !!-------------------------------------------------------------------------------------- 
    863858      ! 
     
    881876         WRITE(numout,*) '      use special values for dynamics   ln_spc_dyn    = ', ln_spc_dyn 
    882877         WRITE(numout,*) '      check bathymetry                  ln_chk_bathy  = ', ln_chk_bathy 
    883          WRITE(numout,*) '      south boundary                    ln_bry_south  = ', ln_bry_south 
    884878      ENDIF 
    885879      ! 
     
    890884      ! 
    891885      IF ( jperio == 1 ) nbghostcells_x = 0 
    892       IF ( .NOT. ln_bry_south ) nbghostcells_y_s = 0 
     886      IF ( .NOT. lk_south ) nbghostcells_y_s = 0 
    893887 
    894888      ! Some checks 
     
    11541148   ENDIF 
    11551149 
    1156    END function agrif_external_switch_index 
     1150   END FUNCTION agrif_external_switch_index 
    11571151 
    11581152   SUBROUTINE Correct_field(tab2d,i1,i2,j1,j2) 
Note: See TracChangeset for help on using the changeset viewer.