Ignore:
Timestamp:
2020-07-02T12:40:30+02:00 (3 months ago)
Author:
smasson
Message:

better e3: update with trunk@13218 see #2385

Location:
NEMO/branches/2020/dev_r12377_KERNEL-06_techene_e3
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/dev_r12377_KERNEL-06_techene_e3

    • 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/branches/2020/dev_r12377_KERNEL-06_techene_e3/src/OCE/DOM/domain.F90

    r12732 r13219  
    210210 
    211211      ! 
     212 
    212213      IF( lk_c1d         )   CALL cor_c1d       ! 1D configuration: Coriolis set at T-point 
    213214      ! 
     215 
     216#if defined key_agrif 
     217      IF( .NOT. Agrif_Root() ) CALL Agrif_Init_Domain( Kbb, Kmm, Kaa ) 
     218#endif 
    214219      IF( ln_meshmask    )   CALL dom_wri       ! Create a domain file 
    215220      IF( .NOT.ln_rstart )   CALL dom_ctl       ! Domain control 
     
    330335902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namrun in configuration namelist' ) 
    331336      IF(lwm) WRITE ( numond, namrun ) 
     337 
     338#if defined key_agrif 
     339      IF( .NOT. Agrif_Root() ) THEN 
     340            nn_it000 = (Agrif_Parent(nn_it000)-1)*Agrif_IRhot() + 1 
     341            nn_itend =  Agrif_Parent(nn_itend)   *Agrif_IRhot() 
     342      ENDIF 
     343#endif 
    332344      ! 
    333345      IF(lwp) THEN                  ! control print 
     
    426438      IF(lwm) WRITE( numond, namdom ) 
    427439      ! 
     440#if defined key_agrif 
     441      IF( .NOT. Agrif_Root() ) THEN 
     442            rn_Dt = Agrif_Parent(rn_Dt) / Agrif_Rhot() 
     443      ENDIF 
     444#endif 
     445      ! 
    428446      IF(lwp) THEN 
    429447         WRITE(numout,*) 
Note: See TracChangeset for help on using the changeset viewer.