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

Changeset 7475


Ignore:
Timestamp:
2016-12-07T23:47:06+01:00 (7 years ago)
Author:
mocavero
Message:

fix for ticket #1813

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2016/dev_merge_2016/NEMOGCM/NEMO/OPA_SRC/LBC/lbcnfd.F90

    r6140 r7475  
    802802            ELSE 
    803803               startloop = 3 
    804                pt2dl(2,ijpj) = psgn * pt2dr(3,ijpjm1) 
     804               pt2dl(2,ijpj) = psgn * pt2dl(3,ijpjm1) 
    805805            ENDIF 
    806806            DO ji = startloop, nlci 
     
    814814            ELSE 
    815815               startloop = 3 
    816                pt2dl(2,ijpj) = psgn * pt2dr(3,ijpjm1) 
     816               pt2dl(2,ijpj) = psgn * pt2dl(3,ijpjm1) 
    817817            ENDIF 
    818818            DO ji = startloop, nlci 
     
    908908               DO ji = startloop , endloop 
    909909                  ijt = jpiglo - ji - nimpp - nfiimpp(isendto(1),jpnj) + 4 
    910                   pt2dl(ji,ijpj)= 0.5 * (pt2dr(ji,ijpjm1) + psgn * pt2dr(ijt,ijpjm1)) 
     910                  pt2dl(ji,ijpj)= 0.5 * (pt2dl(ji,ijpjm1) + psgn * pt2dr(ijt,ijpjm1)) 
    911911               END DO 
    912912 
     
    924924               DO ji = startloop , endloop 
    925925                  ijt = jpiglo - ji - nimpp - nfiimpp(isendto(1),jpnj) + 4 
    926                   pt2dl(ji,ijpj) = pt2dr(ji,ijpjm1) 
     926                  pt2dl(ji,ijpj) = pt2dl(ji,ijpjm1) 
    927927               END DO 
    928928 
Note: See TracChangeset for help on using the changeset viewer.