Changeset 13162
- Timestamp:
- 2020-06-26T15:20:37+02:00 (5 years ago)
- 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 646 646 rn_trelax_dyn = 0.01 ! inverse of relaxation time (in steps) for dynamics [] 647 647 ln_chk_bathy = .false. ! =T check the parent bathymetry 648 ln_bry_south = .true. ! =T south boundary open649 648 / 650 649 !----------------------------------------------------------------------- -
NEMO/branches/2020/dev_r12973_AGRIF_CMEMS/src/NST/agrif_oce.F90
r13141 r13162 30 30 ! 31 31 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 ?33 32 34 33 LOGICAL , PUBLIC :: spongedoneT = .FALSE. !: tracer sponge layer indicator -
NEMO/branches/2020/dev_r12973_AGRIF_CMEMS/src/NST/agrif_user.F90
r13147 r13162 120 120 ENDIF 121 121 122 IF ( .NOT. l n_bry_south) THEN122 IF ( .NOT. lk_south ) THEN 123 123 CALL Agrif_Set_NearCommonBorderY(.TRUE.) 124 124 ENDIF … … 240 240 IF( agrif_oce_alloc() > 0 ) CALL ctl_warn('agrif agrif_oce_alloc: allocation of arrays failed') 241 241 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 ) 251 246 252 247 ! Build consistent parent bathymetry and number of levels … … 859 854 INTEGER :: ios ! Local integer output status for namelist read 860 855 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_south856 & ln_spc_dyn, ln_chk_bathy 862 857 !!-------------------------------------------------------------------------------------- 863 858 ! … … 881 876 WRITE(numout,*) ' use special values for dynamics ln_spc_dyn = ', ln_spc_dyn 882 877 WRITE(numout,*) ' check bathymetry ln_chk_bathy = ', ln_chk_bathy 883 WRITE(numout,*) ' south boundary ln_bry_south = ', ln_bry_south884 878 ENDIF 885 879 ! … … 890 884 ! 891 885 IF ( jperio == 1 ) nbghostcells_x = 0 892 IF ( .NOT. l n_bry_south ) nbghostcells_y_s = 0886 IF ( .NOT. lk_south ) nbghostcells_y_s = 0 893 887 894 888 ! Some checks … … 1154 1148 ENDIF 1155 1149 1156 END functionagrif_external_switch_index1150 END FUNCTION agrif_external_switch_index 1157 1151 1158 1152 SUBROUTINE Correct_field(tab2d,i1,i2,j1,j2)
Note: See TracChangeset
for help on using the changeset viewer.