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

#2129 : move lk_south declaration + compatibility with SAS

File:
1 edited

Legend:

Unmodified
Added
Removed
  • 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.