Changeset 5798


Ignore:
Timestamp:
2015-10-16T12:16:44+02:00 (5 years ago)
Author:
timgraham
Message:

Minor change so that results are preserved if nn_pdl=0 after changes from AGRIF branch

File:
1 edited

Legend:

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

    r5776 r5798  
    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) ) / (  fse3uw_n(ji,jj,jk) * fse3uw_b(ji,jj,jk) ) 
     350                  &                 * (  ub(ji,jj,jk-1) -  ub(ji  ,jj,jk) ) * umask(ji,jj,jk) & 
     351                  &                 / (  fse3uw_n(ji,jj,jk) * fse3uw_b(ji,jj,jk) ) 
    351352               z3dv(ji,jj,jk) = 0.5 * ( avm(ji,jj,jk  ) + avm(ji,jj+1,jk) )   & 
    352353                  &                 * (  vn(ji,jj,jk-1) -  vn(ji,jj  ,jk) )   & 
    353                   &                 * (  vb(ji,jj,jk-1) -  vb(ji,jj  ,jk) ) / (  fse3vw_n(ji,jj,jk) * fse3vw_b(ji,jj,jk) ) 
     354                  &                 * (  vb(ji,jj,jk-1) -  vb(ji,jj  ,jk) ) * vmask(ji,jj,jk) & 
     355                  &                 / (  fse3vw_n(ji,jj,jk) * fse3vw_b(ji,jj,jk) ) 
    354356            END DO 
    355357         END DO 
Note: See TracChangeset for help on using the changeset viewer.