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 4645 for trunk/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90 – NEMO

Ignore:
Timestamp:
2014-05-20T17:17:03+02:00 (10 years ago)
Author:
epico
Message:

bug fixes for the north-fold optimization. see ticket #1195

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

    r4624 r4645  
    814814                   nsndto = nsndto + 1 
    815815                   isendto(nsndto) = jn 
    816                 ELSEIF ((sxM .le. sxT) .AND. (dxM .gt. dxT)) THEN 
     816                ELSEIF ((sxM .le. sxT) .AND. (dxM .ge. dxT)) THEN 
    817817                   nsndto = nsndto + 1 
    818818                   isendto(nsndto) = jn 
Note: See TracChangeset for help on using the changeset viewer.