Ignore:
Timestamp:
2020-07-21T09:57:50+02:00 (4 months ago)
Author:
gm
Message:

fixes from last merge qco r12983

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/dev_r12527_Gurvan_ShallowWater/src/SWE/stpRK3.F90

    r13151 r13328  
    137137                         vv(:,:,:,Nrhs) = 0._wp 
    138138 
    139                             CALL dyn_adv( kstp, Nbb, Nbb      , uu, vv, Nrhs )  ! advection (VF or FF)   ==> RHS 
     139!!                            CALL dyn_adv( kstp, Nbb, Nnn      , uu, vv, Nrhs )  ! advection (VF or FF) ==> RHS 
    140140  
    141                             CALL dyn_vor( kstp,      Nbb      , uu, vv, Nrhs )  ! vorticity              ==> RHS 
     141                            CALL dyn_vor( kstp, Nbb, Nnn      , uu, vv, Nrhs )  ! vorticity              ==> RHS 
    142142#if defined key_RK3all  
    143143                            CALL dyn_ldf( kstp, Nbb, Nbb      , uu, vv, Nrhs )  ! lateral mixing 
     
    177177         END_3D 
    178178      ENDIF 
     179       
     180      CALL lbc_lnk_multi( 'stp_RK3', uu(:,:,:,Nnn), 'U', -1., vv(:,:,:,Nnn), 'V', -1.,   &   !* local domain boundaries 
     181             &                       uu(:,:,:,Naa), 'U', -1., vv(:,:,:,Naa), 'V', -1.    )      
     182 
     183 
    179184      ! Swap time levels 
    180185      Nrhs= Nnn 
     
    194199                         vv(:,:,:,Nrhs) = 0._wp 
    195200!!st TBC for dyn_adv 
    196                             CALL dyn_adv( kstp, Nbb, Nnn      , uu, vv, Nrhs )  ! advection (VF or FF)   ==> RHS  
     201!!                            CALL dyn_adv( kstp, Nbb, Nnn      , uu, vv, Nrhs )  ! advection (VF or FF) ==> RHS 
    197202  
    198                             CALL dyn_vor( kstp,     Nnn      , uu, vv, Nrhs )  ! vorticity              ==> RHS 
     203                            CALL dyn_vor( kstp, Nbb, Nnn      , uu, vv, Nrhs )  ! vorticity              ==> RHS 
    199204#if defined key_RK3all   
    200205                            CALL dyn_ldf( kstp, Nbb, Nbb      , uu, vv, Nrhs )  ! lateral mixing 
     
    235240         END_3D 
    236241      ENDIF 
     242       
     243      CALL lbc_lnk_multi( 'stp_RK3', uu(:,:,:,Nnn), 'U', -1., vv(:,:,:,Nnn), 'V', -1.,   &   !* local domain boundaries 
     244             &                       uu(:,:,:,Naa), 'U', -1., vv(:,:,:,Naa), 'V', -1.    )      
     245 
    237246      ! Swap time levels 
    238247      Nrhs= Nnn 
     
    257266               &            CALL Agrif_Sponge_dyn        ! momentum sponge 
    258267#endif 
    259                             CALL dyn_adv( kstp, Nbb, Nnn      , uu, vv, Nrhs )  ! advection (VF or FF)   ==> RHS 
     268!!                            CALL dyn_adv( kstp, Nbb, Nnn      , uu, vv, Nrhs )  ! advection (VF or FF) ==> RHS 
    260269  
    261                             CALL dyn_vor( kstp,     Nnn      , uu, vv, Nrhs )  ! vorticity              ==> RHS 
     270                            CALL dyn_vor( kstp, Nbb, Nnn      , uu, vv, Nrhs )  ! vorticity              ==> RHS 
    262271  
    263272                            CALL dyn_ldf( kstp, Nbb, Nnn      , uu, vv, Nrhs )  ! lateral mixing 
     
    309318 
    310319      CALL lbc_lnk_multi( 'stp_RK3', uu(:,:,:,Nnn), 'U', -1., vv(:,:,:,Nnn), 'V', -1.,   &   !* local domain boundaries 
    311          &                       uu(:,:,:,Naa), 'U', -1., vv(:,:,:,Naa), 'V', -1.    )      
    312  
    313 !!an          
    314  
    315  
     320             &                       uu(:,:,:,Naa), 'U', -1., vv(:,:,:,Naa), 'V', -1.    )      
    316321      ! Swap time levels 
    317322      Nrhs = Nbb 
Note: See TracChangeset for help on using the changeset viewer.