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/istate.F90

    r13193 r13219  
    3434   USE lib_mpp         ! MPP library 
    3535   USE restart         ! restart 
     36#if defined key_agrif 
     37   USE agrif_oce_interp 
     38   USE agrif_oce 
     39#endif    
    3640 
    3741   IMPLICIT NONE 
     
    7175!!gm  Why not include in the first call of dta_tsd ?   
    7276!!gm  probably associated with the use of internal damping... 
    73                      CALL dta_tsd_init        ! Initialisation of T & S input data 
     77       CALL dta_tsd_init        ! Initialisation of T & S input data 
    7478!!gm to be moved in usrdef of C1D case 
    7579!      IF( lk_c1d )   CALL dta_uvd_init        ! Initialization of U & V input data 
     
    8589#endif 
    8690 
     91#if defined key_agrif 
     92      IF ( (.NOT.Agrif_root()).AND.ln_init_chfrpar ) THEN 
     93         numror = 0                           ! define numror = 0 -> no restart file to read 
     94         ln_1st_euler = .true.                ! Set time-step indicator at nit000 (euler forward) 
     95         CALL day_init  
     96         CALL agrif_istate( Kbb, Kmm, Kaa )   ! Interp from parent 
     97         ! 
     98         ts  (:,:,:,:,Kmm) = ts (:,:,:,:,Kbb)  
     99         ssh (:,:,Kmm)     = ssh(:,:,Kbb) 
     100         uu   (:,:,:,Kmm)   = uu  (:,:,:,Kbb) 
     101         vv   (:,:,:,Kmm)   = vv  (:,:,:,Kbb) 
     102      ELSE 
     103#endif 
    87104      IF( ln_rstart ) THEN                    ! Restart from a file 
    88105         !                                    ! ------------------- 
     
    101118            ! 
    102119            ssh(:,:,Kbb)   = 0._wp               ! set the ocean at rest 
     120            uu  (:,:,:,Kbb) = 0._wp 
     121            vv  (:,:,:,Kbb) = 0._wp   
     122            ! 
    103123            IF( ll_wd ) THEN 
    104124               ssh(:,:,Kbb) =  -ssh_ref  ! Added in 30 here for bathy that adds 30 as Iterative test CEOD  
     
    112132               END_2D 
    113133            ENDIF  
    114             uu  (:,:,:,Kbb) = 0._wp 
    115             vv  (:,:,:,Kbb) = 0._wp   
    116             ! 
     134             ! 
    117135         ELSE                                 ! user defined initial T and S 
    118136            DO jk = 1, jpk 
     
    152170         !  
    153171      ENDIF  
     172#if defined key_agrif 
     173      ENDIF 
     174#endif 
    154175      !  
    155176      ! Initialize "now" and "before" barotropic velocities: 
Note: See TracChangeset for help on using the changeset viewer.