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 5803 for trunk – NEMO

Changeset 5803 for trunk


Ignore:
Timestamp:
2015-10-19T09:54:39+02:00 (8 years ago)
Author:
timgraham
Message:

Minor correction to previous commit

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.F90

    r5798 r5803  
    348348               z3du(ji,jj,jk) = 0.5 * ( avm(ji,jj,jk  ) + avm(ji+1,jj,jk) )   & 
    349349                  &                 * (  un(ji,jj,jk-1) -  un(ji  ,jj,jk) )   & 
    350                   &                 * (  ub(ji,jj,jk-1) -  ub(ji  ,jj,jk) ) * umask(ji,jj,jk) & 
     350                  &                 * (  ub(ji,jj,jk-1) -  ub(ji  ,jj,jk) ) * wumask(ji,jj,jk) & 
    351351                  &                 / (  fse3uw_n(ji,jj,jk) * fse3uw_b(ji,jj,jk) ) 
    352352               z3dv(ji,jj,jk) = 0.5 * ( avm(ji,jj,jk  ) + avm(ji,jj+1,jk) )   & 
    353353                  &                 * (  vn(ji,jj,jk-1) -  vn(ji,jj  ,jk) )   & 
    354                   &                 * (  vb(ji,jj,jk-1) -  vb(ji,jj  ,jk) ) * vmask(ji,jj,jk) & 
     354                  &                 * (  vb(ji,jj,jk-1) -  vb(ji,jj  ,jk) ) * wvmask(ji,jj,jk) & 
    355355                  &                 / (  fse3vw_n(ji,jj,jk) * fse3vw_b(ji,jj,jk) ) 
    356356            END DO 
Note: See TracChangeset for help on using the changeset viewer.