Ignore:
Timestamp:
2020-07-02T17:33:41+02:00 (3 months ago)
Author:
francesca
Message:

dev_r12558_HPC-08_epico_Extra_Halo: merge with trunk@13218, see #2366

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/NST/agrif_oce.F90

    r13065 r13229  
    1919   
    2020   !                                              !!* Namelist namagrif: AGRIF parameters 
     21   LOGICAL , PUBLIC ::   ln_init_chfrpar = .FALSE. !: set child grids initial state from parent 
    2122   LOGICAL , PUBLIC ::   ln_agrif_2way = .TRUE.    !: activate two way nesting  
    2223   LOGICAL , PUBLIC ::   ln_spc_dyn    = .FALSE.   !: use zeros (.false.) or not (.true.) in 
     
    2930   ! 
    3031   INTEGER , PUBLIC, PARAMETER ::   nn_sponge_len = 2  !: Sponge width (in number of parent grid points) 
     32 
    3133   LOGICAL , PUBLIC :: spongedoneT = .FALSE.       !: tracer   sponge layer indicator 
    3234   LOGICAL , PUBLIC :: spongedoneU = .FALSE.       !: dynamics sponge layer indicator 
     
    4951   INTEGER , PUBLIC,              SAVE                 ::  Kbb_a, Kmm_a, Krhs_a   !: AGRIF module-specific copies of time-level indices 
    5052 
    51 # if defined key_vertical 
    5253   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: ht0_parent, hu0_parent, hv0_parent 
    5354   INTEGER,  PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: mbkt_parent, mbku_parent, mbkv_parent 
    54 # endif 
    5555 
    5656   INTEGER, PUBLIC :: tsn_id                                                  ! AGRIF profile for tracers interpolation and update 
     
    5858   INTEGER, PUBLIC :: un_update_id, vn_update_id                              ! AGRIF profiles for udpates 
    5959   INTEGER, PUBLIC :: tsn_sponge_id, un_sponge_id, vn_sponge_id               ! AGRIF profiles for sponge layers 
     60   INTEGER, PUBLIC :: tsini_id, uini_id, vini_id, sshini_id                   ! AGRIF profile for initialization 
    6061# if defined key_top 
    6162   INTEGER, PUBLIC :: trn_id, trn_sponge_id 
     
    6970   INTEGER, PUBLIC :: glamt_id, gphit_id 
    7071   INTEGER, PUBLIC :: kindic_agr 
     72 
     73   ! North fold 
     74!$AGRIF_DO_NOT_TREAT 
     75   LOGICAL, PUBLIC :: use_sign_north 
     76   REAL, PUBLIC :: sign_north 
     77   LOGICAL, PUBLIC :: l_ini_child = .FALSE. 
     78# if defined key_vertical 
     79   LOGICAL, PUBLIC :: l_vremap    = .TRUE. 
     80# else 
     81   LOGICAL, PUBLIC :: l_vremap    = .FALSE. 
     82# endif 
     83!$AGRIF_END_DO_NOT_TREAT 
    7184    
    7285   !!---------------------------------------------------------------------- 
     
    92105         &      tabspongedone_trn(jpi,jpj),           & 
    93106# endif    
    94 # if defined key_vertical 
    95107         &      ht0_parent(jpi,jpj), mbkt_parent(jpi,jpj),  & 
    96108         &      hu0_parent(jpi,jpj), mbku_parent(jpi,jpj),  & 
    97109         &      hv0_parent(jpi,jpj), mbkv_parent(jpi,jpj),  & 
    98 # endif       
    99110         &      tabspongedone_u  (jpi,jpj),           & 
    100111         &      tabspongedone_v  (jpi,jpj), STAT = ierr(1) ) 
Note: See TracChangeset for help on using the changeset viewer.