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 13164 – NEMO

Changeset 13164


Ignore:
Timestamp:
2020-06-26T17:02:14+02:00 (4 years ago)
Author:
techene
Message:

#2385 : pass sette tests without key_qco

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2020/dev_r12377_KERNEL-06_techene_e3/src/OCE/DYN/sshwzv.F90

    r12761 r13164  
    327327         DO_3D_00_00( 1, jpkm1 ) 
    328328            z1_e3t = 1._wp / e3t(ji,jj,jk,Kmm) 
    329             ! 2*rdt and not r2dt (for restartability) 
    330             Cu_adv(ji,jj,jk) =  2._wp * rDt *   & 
     329            Cu_adv(ji,jj,jk) =   rDt *                                                         & 
    331330               &  ( ( MAX( ww(ji,jj,jk) , 0._wp ) - MIN( ww(ji,jj,jk+1) , 0._wp ) )            & 
    332331               &  + ( MAX( e2u(ji  ,jj) * e3u(ji  ,jj,jk,Kmm)                                  & 
    … …  
    345344         DO_3D_00_00( 1, jpkm1 ) 
    346345            z1_e3t = 1._wp / e3t(ji,jj,jk,Kmm) 
    347             ! 2*rdt and not r2dt (for restartability) 
    348             Cu_adv(ji,jj,jk) =   2._wp * rDt *   & 
     346            Cu_adv(ji,jj,jk) =   rDt *                                                         & 
    349347               &  ( ( MAX( ww(ji,jj,jk) , 0._wp ) - MIN( ww(ji,jj,jk+1) , 0._wp ) )         & 
    350348               &  + ( MAX( e2u(ji  ,jj)*e3u(ji  ,jj,jk,Kmm)*uu(ji  ,jj,jk,Kmm), 0._wp ) -   & 
Note: See TracChangeset for help on using the changeset viewer.