Changeset 13163


Ignore:
Timestamp:
2020-06-26T15:21:13+02:00 (2 weeks ago)
Author:
rblod
Message:

#2129 : suppress ln_bry_south

Location:
utils/tools_dev_r12970_AGRIF_CMEMS/DOMAINcfg
Files:
13 edited

Legend:

Unmodified
Added
Removed
  • utils/tools_dev_r12970_AGRIF_CMEMS/DOMAINcfg/1_namelist_cfg

    r13056 r13163  
    9090!----------------------------------------------------------------------- 
    9191&namagrif      !  AGRIF zoom                                            ("key_agrif") 
    92 ln_bry_south = .TRUE. 
    9392!----------------------------------------------------------------------- 
    9493/ 
  • utils/tools_dev_r12970_AGRIF_CMEMS/DOMAINcfg/1_namelist_ref

    r13056 r13163  
    2323&namdom        !   space and time domain (bathymetry, mesh, timestep) 
    2424!----------------------------------------------------------------------- 
     25   ln_read_cfg = .false.   !  Read from a domain_cfg file 
    2526   nn_bathy    =    1      !  compute analyticaly (=0) or read (=1) the bathymetry file 
    2627                           !  or compute (2) from external bathymetry 
    2728   nn_interp   =    1                          ! type of interpolation (nn_bathy =2) 
     29   cn_domcfg   = ' '       ! Name of the domain_cfg input file 
    2830   cn_topo     =  'bathymetry_ORCA12_V3.3.nc'  ! external topo file (nn_bathy =2) 
    2931   cn_bath     =  'Bathymetry'                 ! topo name in file  (nn_bathy =2) 
     
    169171   npt_connect   = 2 
    170172   npt_copy      = 2 
    171    ln_bry_south = .TRUE. 
    172173/ 
    173174!----------------------------------------------------------------------- 
  • utils/tools_dev_r12970_AGRIF_CMEMS/DOMAINcfg/2_namelist_cfg

    r13056 r13163  
    9090!----------------------------------------------------------------------- 
    9191&namagrif      !  AGRIF zoom                                            ("key_agrif") 
    92 ln_bry_south = .TRUE. 
    9392!----------------------------------------------------------------------- 
    9493/ 
  • utils/tools_dev_r12970_AGRIF_CMEMS/DOMAINcfg/2_namelist_ref

    r13056 r13163  
    2323&namdom        !   space and time domain (bathymetry, mesh, timestep) 
    2424!----------------------------------------------------------------------- 
     25   ln_read_cfg = .false.   !  Read from a domain_cfg file 
    2526   nn_bathy    =    1      !  compute analyticaly (=0) or read (=1) the bathymetry file 
    2627                           !  or compute (2) from external bathymetry 
    2728   nn_interp   =    1                          ! type of interpolation (nn_bathy =2) 
     29   cn_domcfg   = ' '       ! Name of the domain_cfg input file 
    2830   cn_topo     =  'bathymetry_ORCA12_V3.3.nc'  ! external topo file (nn_bathy =2) 
    2931   cn_bath     =  'Bathymetry'                 ! topo name in file  (nn_bathy =2) 
     
    169171   npt_connect   = 2 
    170172   npt_copy      = 2 
    171    ln_bry_south = .TRUE. 
    172173/ 
    173174!----------------------------------------------------------------------- 
  • utils/tools_dev_r12970_AGRIF_CMEMS/DOMAINcfg/3_namelist_cfg

    r13056 r13163  
    9090!----------------------------------------------------------------------- 
    9191&namagrif      !  AGRIF zoom                                            ("key_agrif") 
    92    ln_bry_south = .FALSE. 
    9392!----------------------------------------------------------------------- 
    9493/ 
  • utils/tools_dev_r12970_AGRIF_CMEMS/DOMAINcfg/3_namelist_ref

    r13056 r13163  
    2323&namdom        !   space and time domain (bathymetry, mesh, timestep) 
    2424!----------------------------------------------------------------------- 
     25   ln_read_cfg = .false.   !  Read from a domain_cfg file 
    2526   nn_bathy    =    1      !  compute analyticaly (=0) or read (=1) the bathymetry file 
    2627                           !  or compute (2) from external bathymetry 
    2728   nn_interp   =    1                          ! type of interpolation (nn_bathy =2) 
     29   cn_domcfg   = ' '       ! Name of the domain_cfg input file 
    2830   cn_topo     =  'bathymetry_ORCA12_V3.3.nc'  ! external topo file (nn_bathy =2) 
    2931   cn_bath     =  'Bathymetry'                 ! topo name in file  (nn_bathy =2) 
     
    169171   npt_connect   = 2 
    170172   npt_copy      = 2 
    171    ln_bry_south = .TRUE. 
    172173/ 
    173174!----------------------------------------------------------------------- 
  • utils/tools_dev_r12970_AGRIF_CMEMS/DOMAINcfg/make_namelist.py

    r13024 r13163  
    107107           if line.strip().startswith('cp_cfg'): 
    108108               line = "   cp_cfg = 'dumb'\n"                  
    109            if nbghostcells_y_s == 0 : 
    110                if line.strip().startswith('ln_bry_south'): 
    111                    line = "   ln_bry_south = .FALSE.\n"                        
    112109           f2.write(line) 
    113110           cnt1 += 1 
  • utils/tools_dev_r12970_AGRIF_CMEMS/DOMAINcfg/namelist_cfg

    r13056 r13163  
    9191!----------------------------------------------------------------------- 
    9292&namagrif      !  AGRIF zoom                                            ("key_agrif") 
    93 ln_bry_south = .TRUE. 
    9493!----------------------------------------------------------------------- 
    9594/ 
  • utils/tools_dev_r12970_AGRIF_CMEMS/DOMAINcfg/namelist_ref

    r13109 r13163  
    172172   npt_connect   = 2 
    173173   npt_copy      = 2 
    174    ln_bry_south = .TRUE. 
    175174/ 
    176175!----------------------------------------------------------------------- 
  • utils/tools_dev_r12970_AGRIF_CMEMS/DOMAINcfg/src/agrif_connect.F90

    r13109 r13163  
    201201 
    202202      ! --- South --- ! 
    203       IF(( (nbondj == -1) .OR. (nbondj == 2) ).AND.(ln_bry_south)) THEN 
     203      IF(( (nbondj == -1) .OR. (nbondj == 2) ).AND.(lk_south)) THEN 
    204204         ind1 = 1+nbghostcells + istart 
    205205         ind2 = ind1 + ispongearea  
  • utils/tools_dev_r12970_AGRIF_CMEMS/DOMAINcfg/src/agrif_parameters.F90

    r13056 r13163  
    1414   INTEGER :: npt_copy 
    1515   INTEGER :: npt_connect 
    16    LOGICAL :: ln_bry_south = .TRUE. 
    1716   REAL(wp), PUBLIC, ALLOCATABLE, SAVE        , DIMENSION(:,:) ::   ztabramp 
    1817   REAL(wp), PUBLIC, ALLOCATABLE, SAVE        , DIMENSION(:,:,:) ::   e3t_interp 
  • utils/tools_dev_r12970_AGRIF_CMEMS/DOMAINcfg/src/agrif_user.F90

    r13056 r13163  
    226226        CALL Agrif_Set_DistantCommonBorderX(.TRUE.) 
    227227      endif 
    228       if (.not.ln_bry_south) THEN 
     228      if (.not.lk_south) THEN 
    229229        CALL Agrif_Set_NearCommonBorderY(.TRUE.) 
    230230      endif 
     
    850850        ! May need to extend at south boundary 
    851851          IF (j1<1) THEN 
    852             IF (.NOT.agrif_child(ln_bry_south)) THEN 
     852            IF (.NOT.agrif_child(lk_south)) THEN 
    853853              IF ((nbondj == -1).OR.(nbondj == 2)) THEN 
    854854                DO jj=1,j2 
     
    888888      IF( before) THEN 
    889889          IF (j1<1) THEN 
    890             IF (.NOT.agrif_child(ln_bry_south)) THEN 
     890            IF (.NOT.agrif_child(lk_south)) THEN 
    891891              IF ((nbondj == -1).OR.(nbondj == 2)) THEN 
    892892                DO jj=1,j2 
     
    966966      IF( before) THEN 
    967967          IF (j1<1) THEN 
    968             IF (.NOT.agrif_child(ln_bry_south)) THEN 
     968            IF (.NOT.agrif_child(lk_south)) THEN 
    969969              IF ((nbondj == -1).OR.(nbondj == 2)) THEN 
    970970                DO jj=1,j2 
     
    10041004      IF( before) THEN 
    10051005          IF (j1<1) THEN 
    1006             IF (.NOT.agrif_child(ln_bry_south)) THEN 
     1006            IF (.NOT.agrif_child(lk_south)) THEN 
    10071007              IF ((nbondj == -1).OR.(nbondj == 2)) THEN 
    10081008                DO jj=1,j2 
     
    10761076 
    10771077      NAMELIST/namagrif/ nn_cln_update,ln_spc_dyn,rn_sponge_tra,rn_sponge_dyn,ln_chk_bathy,npt_connect,   & 
    1078       &  npt_copy, ln_bry_south 
     1078      &  npt_copy 
    10791079 
    10801080      REWIND( numnam_ref )              ! Namelist namagrif in reference namelist : nesting parameters 
     
    10941094         WRITE(numout,*) '      npt_copy             = ', npt_copy 
    10951095         WRITE(numout,*) '      npt_connect          = ', npt_connect 
    1096          WRITE(numout,*) '      ln_bry_south  = ', ln_bry_south 
    10971096      ENDIF 
    10981097 
     
    11021101      nbghostcells_y_s = nbghostcells 
    11031102      nbghostcells_y_n = nbghostcells 
     1103 
     1104      lk_west  = .NOT. ( Agrif_Ix() == 1 ) 
     1105      lk_east  = .NOT. ( Agrif_Ix() + nbcellsx/AGRIF_Irhox() == Agrif_Parent(jpiglo) -1 ) 
     1106      lk_south = .NOT. ( Agrif_Iy() == 1 ) 
     1107      lk_north = .NOT. ( Agrif_Iy() + nbcellsy/AGRIF_Irhoy() == Agrif_Parent(jpjglo) -1 ) 
    11041108 
    11051109      IF (.not.agrif_root()) THEN 
     
    11071111          nbghostcells_x = 0 
    11081112        ENDIF 
    1109         IF (.NOT.ln_bry_south) THEN 
     1113        IF (.NOT.lk_south) THEN 
    11101114          nbghostcells_y_s = 0 
    11111115        ENDIF 
  • utils/tools_dev_r12970_AGRIF_CMEMS/DOMAINcfg/src/dombat.F90

    r13056 r13163  
    408408       ! Correct South and North 
    409409#if defined key_agrif 
    410       IF( ln_bry_south ) THEN   
     410      IF( lk_south ) THEN   
    411411         IF( (nbondj == -1).OR.(nbondj == 2) ) THEN 
    412412           bathy(:,1)=bathy(:,2) 
Note: See TracChangeset for help on using the changeset viewer.