Changeset 13182 for NEMO


Ignore:
Timestamp:
2020-06-30T18:05:17+02:00 (5 months ago)
Author:
rblod
Message:

#2129 : move lk_south declaration + compatibility with SAS

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  
    3434   LOGICAL , PUBLIC :: spongedoneU = .FALSE.       !: dynamics sponge layer indicator 
    3535   LOGICAL , PUBLIC :: lk_agrif_fstep = .TRUE.     !: if true: first step 
    36    LOGICAL , PUBLIC :: lk_agrif_debug = .FALSE.    !: if true: print debugging info 
     36   LOGICAL , PUBLIC :: lk_agrif_debug = .TRUE.    !: if true: print debugging info 
    3737 
    3838   LOGICAL , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: tabspongedone_tsn 
  • NEMO/branches/2020/dev_r12973_AGRIF_CMEMS/src/NST/agrif_user.F90

    r13162 r13182  
    239239 
    240240      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 ) 
    246241 
    247242      ! Build consistent parent bathymetry and number of levels 
     
    877872         WRITE(numout,*) '      check bathymetry                  ln_chk_bathy  = ', ln_chk_bathy 
    878873      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 
    879880      ! 
    880881      ! Set the number of ghost cells according to periodicity 
     
    885886      IF ( jperio == 1 ) nbghostcells_x = 0 
    886887      IF ( .NOT. lk_south ) nbghostcells_y_s = 0 
     888 
     889      write(*,*) lk_south, nbghostcells_y_s, nbghostcells_y_n 
    887890 
    888891      ! Some checks 
  • NEMO/branches/2020/dev_r12973_AGRIF_CMEMS/src/SAS/nemogcm.F90

    r13058 r13182  
    9191#if defined key_agrif 
    9292      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 DOM 
    9493      CALL Agrif_Declare_Var       !  "      "   "   "      "  DYN/TRA  
    9594# if defined key_top 
    9695      CALL Agrif_Declare_Var_top   !  "      "   "   "      "  TOP 
    97 # endif 
    98 # if defined key_si3 
    99       CALL Agrif_Declare_Var_ice   !  "      "   "   "      "  Sea ice 
    10096# endif 
    10197#endif 
     
    345341      ! Initialise time level indices 
    346342      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  
    347346 
    348347      !                             !-------------------------------! 
     
    358357                           CALL phy_cst         ! Physical constants 
    359358                           CALL eos_init        ! Equation of seawater 
     359#if defined key_agrif 
     360     CALL Agrif_Declare_Var_ini   !  "      "   "   "      "  DOM 
     361#endif 
    360362                           CALL dom_init( Nbb, Nnn, Naa, 'SAS') ! Domain 
    361363      IF( sn_cfctl%l_prtctl )   & 
Note: See TracChangeset for help on using the changeset viewer.