Changeset 13182
- Timestamp:
- 2020-06-30T18:05:17+02:00 (5 years ago)
- Location:
- NEMO/branches/2020/dev_r12973_AGRIF_CMEMS/src
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r12973_AGRIF_CMEMS/src/NST/agrif_oce.F90
r13162 r13182 34 34 LOGICAL , PUBLIC :: spongedoneU = .FALSE. !: dynamics sponge layer indicator 35 35 LOGICAL , PUBLIC :: lk_agrif_fstep = .TRUE. !: if true: first step 36 LOGICAL , PUBLIC :: lk_agrif_debug = . FALSE. !: if true: print debugging info36 LOGICAL , PUBLIC :: lk_agrif_debug = .TRUE. !: if true: print debugging info 37 37 38 38 LOGICAL , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: tabspongedone_tsn -
NEMO/branches/2020/dev_r12973_AGRIF_CMEMS/src/NST/agrif_user.F90
r13162 r13182 239 239 240 240 IF( agrif_oce_alloc() > 0 ) CALL ctl_warn('agrif agrif_oce_alloc: allocation of arrays failed') 241 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 )246 241 247 242 ! Build consistent parent bathymetry and number of levels … … 877 872 WRITE(numout,*) ' check bathymetry ln_chk_bathy = ', ln_chk_bathy 878 873 ENDIF 874 875 lk_west = .NOT. ( Agrif_Ix() == 1 ) 876 lk_east = .NOT. ( Agrif_Ix() + nbcellsx/AGRIF_Irhox() == Agrif_Parent(jpiglo) -1 ) 877 lk_south = .NOT. ( Agrif_Iy() == 1 ) 878 lk_north = .NOT. ( Agrif_Iy() + nbcellsy/AGRIF_Irhoy() == Agrif_Parent(jpjglo) -1 ) 879 879 880 ! 880 881 ! Set the number of ghost cells according to periodicity … … 885 886 IF ( jperio == 1 ) nbghostcells_x = 0 886 887 IF ( .NOT. lk_south ) nbghostcells_y_s = 0 888 889 write(*,*) lk_south, nbghostcells_y_s, nbghostcells_y_n 887 890 888 891 ! Some checks -
NEMO/branches/2020/dev_r12973_AGRIF_CMEMS/src/SAS/nemogcm.F90
r13058 r13182 91 91 #if defined key_agrif 92 92 Kbb_a = Nbb; Kmm_a = Nnn; Krhs_a = Nrhs ! agrif_oce module copies of time level indices 93 CALL Agrif_Declare_Var_dom ! AGRIF: set the meshes for DOM94 93 CALL Agrif_Declare_Var ! " " " " " DYN/TRA 95 94 # if defined key_top 96 95 CALL Agrif_Declare_Var_top ! " " " " " TOP 97 # endif98 # if defined key_si399 CALL Agrif_Declare_Var_ice ! " " " " " Sea ice100 96 # endif 101 97 #endif … … 345 341 ! Initialise time level indices 346 342 Nbb = 1; Nnn = 2; Naa = 3; Nrhs = Naa 343 #if defined key_agrif 344 Kbb_a = Nbb; Kmm_a = Nnn; Krhs_a = Nrhs ! agrif_oce module copies of time level indices 345 #endif 347 346 348 347 ! !-------------------------------! … … 358 357 CALL phy_cst ! Physical constants 359 358 CALL eos_init ! Equation of seawater 359 #if defined key_agrif 360 CALL Agrif_Declare_Var_ini ! " " " " " DOM 361 #endif 360 362 CALL dom_init( Nbb, Nnn, Naa, 'SAS') ! Domain 361 363 IF( sn_cfctl%l_prtctl ) &
Note: See TracChangeset
for help on using the changeset viewer.