Ignore:
Timestamp:
2020-07-02T11:25:49+02:00 (8 months ago)
Author:
rblod
Message:

Merge dev_r12973_AGRIF_CMEMS

Location:
NEMO/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk

    • Property svn:externals
      •  

        old new  
        22^/utils/build/makenemo@HEAD   makenemo 
        33^/utils/build/mk@HEAD         mk 
        4 ^/utils/tools@HEAD            tools 
        5 ^/vendors/AGRIF/dev@HEAD      ext/AGRIF 
         4^/utils/tools/@HEAD           tools 
         5^/vendors/AGRIF/dev_r12970_AGRIF_CMEMS      ext/AGRIF 
        66^/vendors/FCM@HEAD            ext/FCM 
        77^/vendors/IOIPSL@HEAD         ext/IOIPSL 
  • NEMO/trunk/src/OCE/nemogcm.F90

    r13011 r13216  
    143143#if defined key_agrif 
    144144      Kbb_a = Nbb; Kmm_a = Nnn; Krhs_a = Nrhs   ! agrif_oce module copies of time level indices 
    145       CALL Agrif_Declare_Var_dom   ! AGRIF: set the meshes for DOM 
    146       CALL Agrif_Declare_Var       !  "      "   "   "      "  DYN/TRA  
     145      CALL Agrif_Declare_Var       !  "      "   "   "      "  DYN/TRA 
    147146# if defined key_top 
    148147      CALL Agrif_Declare_Var_top   !  "      "   "   "      "  TOP 
    149 # endif 
    150 # if defined key_si3 
    151       CALL Agrif_Declare_Var_ice   !  "      "   "   "      "  Sea ice 
    152148# endif 
    153149#endif 
     
    400396      ! Initialise time level indices 
    401397      Nbb = 1; Nnn = 2; Naa = 3; Nrhs = Naa 
    402  
     398#if defined key_agrif 
     399      Kbb_a = Nbb; Kmm_a = Nnn; Krhs_a = Nrhs   ! agrif_oce module copies of time level indices 
     400#endif  
    403401      !                             !-------------------------------! 
    404402      !                             !  NEMO general initialization  ! 
     
    415413      IF( lk_c1d       )   CALL     c1d_init        ! 1D column configuration 
    416414                           CALL     wad_init        ! Wetting and drying options 
     415 
     416#if defined key_agrif 
     417     CALL Agrif_Declare_Var_ini   !  "      "   "   "      "  DOM 
     418#endif 
    417419                           CALL     dom_init( Nbb, Nnn, Naa, "OPA") ! Domain 
     420 
     421 
     422 
    418423      IF( ln_crs       )   CALL     crs_init(      Nnn )       ! coarsened grid: domain initialization  
    419424      IF( sn_cfctl%l_prtctl )   & 
     
    436441      ENDIF 
    437442      ! 
    438        
     443 
    439444                           CALL  istate_init( Nbb, Nnn, Naa )    ! ocean initial state (Dynamics and tracers) 
    440445 
Note: See TracChangeset for help on using the changeset viewer.