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/DYN/dynspg_ts.F90

    r12732 r13219  
    520520         END_2D 
    521521         ! 
     522         ! Duplicate sea level across open boundaries (this is only cosmetic if linssh=T) 
     523         IF( ln_bdy )   CALL bdy_ssh( ssha_e ) 
     524#if defined key_agrif 
     525         IF( .NOT.Agrif_Root() )   CALL agrif_ssh_ts( jn ) 
     526#endif 
     527 
    522528         CALL lbc_lnk_multi( 'dynspg_ts', ssha_e, 'T', 1._wp,  zhU, 'U', -1._wp,  zhV, 'V', -1._wp ) 
    523529         ! 
     
    532538         END IF 
    533539         ! 
    534          ! Duplicate sea level across open boundaries (this is only cosmetic if linssh=T) 
    535          IF( ln_bdy )   CALL bdy_ssh( ssha_e ) 
    536 #if defined key_agrif 
    537          IF( .NOT.Agrif_Root() )   CALL agrif_ssh_ts( jn ) 
    538 #endif 
    539540         !   
    540541         ! Sea Surface Height at u-,v-points (vvl case only) 
     
    650651         ENDIF 
    651652        
    652          IF( .NOT.ln_linssh ) THEN   !* Update ocean depth (variable volume case only) 
     653         IF( .NOT.ln_linssh ) THEN !* Update ocean depth (variable volume case only) 
    653654            hu_e (2:jpim1,2:jpjm1) = hu_0(2:jpim1,2:jpjm1) + zsshu_a(2:jpim1,2:jpjm1) 
    654655            hur_e(2:jpim1,2:jpjm1) = ssumask(2:jpim1,2:jpjm1) / ( hu_e(2:jpim1,2:jpjm1) + 1._wp - ssumask(2:jpim1,2:jpjm1) ) 
    655656            hv_e (2:jpim1,2:jpjm1) = hv_0(2:jpim1,2:jpjm1) + zsshv_a(2:jpim1,2:jpjm1) 
    656657            hvr_e(2:jpim1,2:jpjm1) = ssvmask(2:jpim1,2:jpjm1) / ( hv_e(2:jpim1,2:jpjm1) + 1._wp - ssvmask(2:jpim1,2:jpjm1) ) 
     658         ENDIF 
     659         !                                                 ! open boundaries 
     660         IF( ln_bdy )   CALL bdy_dyn2d( jn, ua_e, va_e, un_e, vn_e, hur_e, hvr_e, ssha_e ) 
     661#if defined key_agrif                                                            
     662         IF( .NOT.Agrif_Root() )  CALL agrif_dyn_ts( jn )  ! Agrif 
     663#endif 
     664         ! 
     665         IF( .NOT.ln_linssh ) THEN   !* Update ocean depth (variable volume case only) 
    657666            CALL lbc_lnk_multi( 'dynspg_ts', ua_e , 'U', -1._wp, va_e , 'V', -1._wp  & 
    658667                 &                         , hu_e , 'U',  1._wp, hv_e , 'V',  1._wp  & 
     
    662671         ENDIF 
    663672         ! 
    664          ! 
    665          !                                                 ! open boundaries 
    666          IF( ln_bdy )   CALL bdy_dyn2d( jn, ua_e, va_e, un_e, vn_e, hur_e, hvr_e, ssha_e ) 
    667 #if defined key_agrif                                                            
    668          IF( .NOT.Agrif_Root() )  CALL agrif_dyn_ts( jn )  ! Agrif 
    669 #endif 
    670673         !                                             !* Swap 
    671674         !                                             !  ---- 
Note: See TracChangeset for help on using the changeset viewer.