Ignore:
Timestamp:
2020-06-26T17:02:14+02:00 (3 months 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.