Changeset 9845 for NEMO/trunk


Ignore:
Timestamp:
2018-06-26T13:55:55+02:00 (3 years ago)
Author:
jchanut
Message:

Add transport correction on tangential velocities in ghost cells

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/DYN/dynspg_ts.F90

    r9598 r9845  
    801801               DO jj = 1, jpj 
    802802                  zwx(2:nbghostcells+1,jj) = ubdy_w(1:nbghostcells,jj) * e2u(2:nbghostcells+1,jj) 
     803                  zwy(2:nbghostcells+1,jj) = vbdy_w(1:nbghostcells,jj) * e1v(2:nbghostcells+1,jj) 
    803804               END DO 
    804805            ENDIF 
     
    806807               DO jj=1,jpj 
    807808                  zwx(nlci-nbghostcells-1:nlci-2,jj) = ubdy_e(1:nbghostcells,jj) * e2u(nlci-nbghostcells-1:nlci-2,jj) 
     809                  zwy(nlci-nbghostcells  :nlci-1,jj) = vbdy_e(1:nbghostcells,jj) * e1v(nlci-nbghostcells  :nlci-1,jj) 
    808810               END DO 
    809811            ENDIF 
     
    811813               DO ji=1,jpi 
    812814                  zwy(ji,2:nbghostcells+1) = vbdy_s(ji,1:nbghostcells) * e1v(ji,2:nbghostcells+1) 
     815                  zwx(ji,2:nbghostcells+1) = ubdy_s(ji,1:nbghostcells) * e2u(ji,2:nbghostcells+1) 
    813816               END DO 
    814817            ENDIF 
     
    816819               DO ji=1,jpi 
    817820                  zwy(ji,nlcj-nbghostcells-1:nlcj-2) = vbdy_n(ji,1:nbghostcells) * e1v(ji,nlcj-nbghostcells-1:nlcj-2) 
     821                  zwx(ji,nlcj-nbghostcells  :nlcj-1) = ubdy_n(ji,1:nbghostcells) * e2u(ji,nlcj-nbghostcells  :nlcj-1) 
    818822               END DO 
    819823            ENDIF 
Note: See TracChangeset for help on using the changeset viewer.