New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 13328 – NEMO

Changeset 13328


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

fixes from last merge qco r12983

Location:
NEMO/branches/2020/dev_r12527_Gurvan_ShallowWater/src
Files:
6 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2020/dev_r12527_Gurvan_ShallowWater/src/OCE/ASM/asminc.F90

    r13151 r13328  
    900900         IF ( kt == nitdin_r ) THEN 
    901901            ! 
    902 <<<<<<< .working 
    903             l_1st_euler = 0              ! Force Euler forward step 
    904 ======= 
    905902            l_1st_euler = .TRUE.              ! Force Euler forward step 
    906 >>>>>>> .merge-right.r13092 
    907903            ! 
    908904            ! Sea-ice : SI3 case 

  • NEMO/branches/2020/dev_r12527_Gurvan_ShallowWater/src/OCE/DYN/dynatf_qco.F90

    • Property svn:keywords set to Id
    r13151 r13328  
    6464   !!---------------------------------------------------------------------- 
    6565   !! NEMO/OCE 4.0 , NEMO Consortium (2018) 
    66    !! $Id: dynatf_qco.F90 12732 2020-04-09 19:06:01Z techene $ 
     66   !! $Id$ 
    6767   !! Software governed by the CeCILL license (see ./LICENSE) 
    6868   !!---------------------------------------------------------------------- 

  • NEMO/branches/2020/dev_r12527_Gurvan_ShallowWater/src/OCE/TRA/traatf_qco.F90

    • Property svn:keywords set to Id
    r13151 r13328  
    6161   !!---------------------------------------------------------------------- 
    6262   !! NEMO/OCE 4.0 , NEMO Consortium (2018) 
    63    !! $Id: traatf_qco.F90 12732 2020-04-09 19:06:01Z techene $ 
     63   !! $Id$ 
    6464   !! Software governed by the CeCILL license (see ./LICENSE) 
    6565   !!---------------------------------------------------------------------- 

  • NEMO/branches/2020/dev_r12527_Gurvan_ShallowWater/src/OCE/stpMLF.F90

    r13151 r13328  
    207207               &         CALL Agrif_Sponge_dyn        ! momentum sponge 
    208208#endif 
    209                          CALL dyn_adv( kstp, Nbb, Nnn      , uu, vv, Nrhs )  ! advection (VF or FF)   ==> RHS 
     209!!                         CALL dyn_adv( kstp, Nbb, Nnn      , uu, vv, Nrhs )  ! advection (VF or FF) ==> RHS 
    210210                         CALL dyn_vor( kstp,      Nnn      , uu, vv, Nrhs )  ! vorticity              ==> RHS 
    211211                         CALL dyn_ldf( kstp, Nbb, Nnn      , uu, vv, Nrhs )  ! lateral mixing 

  • NEMO/branches/2020/dev_r12527_Gurvan_ShallowWater/src/SWE/stepLF.F90

    r13151 r13328  
    137137               &            CALL Agrif_Sponge_dyn        ! momentum sponge 
    138138#endif 
    139                             CALL dyn_adv( kstp, Nbb, Nnn      , 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,     Nnn      , uu, vv, Nrhs )  ! vorticity              ==> RHS 
     141                            CALL dyn_vor( kstp, Nbb, Nnn      , uu, vv, Nrhs )  ! vorticity              ==> RHS 
    142142  
    143143                            CALL dyn_ldf( kstp, Nbb, Nnn      , uu, vv, Nrhs )  ! lateral mixing 

  • 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.