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

Changeset 4645


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

Location:
trunk/NEMOGCM/NEMO/OPA_SRC
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90

    r4624 r4645  
    21312131      ! this domain will be identical. 
    21322132      ! 
    2133       CALL lbc_nfd( ztab, cd_type, psgn )   ! North fold boundary condition 
    2134       ! 
    2135       DO jk = 1, jpk 
    2136          DO jj = nlcj-ijpj+1, nlcj             ! Scatter back to pt3d 
    2137             ij = jj - nlcj + ijpj 
    2138             DO ji= 1, nlci 
    2139                pt3d(ji,jj,jk) = ztab(ji+nimpp-1,ij,jk) 
    2140             END DO 
    2141         END DO 
    2142       END DO 
    2143       ! 
    21442133      DEALLOCATE( ztab, znorthloc, zfoldwk, znorthgloio ) 
    21452134      DEALLOCATE( ztabl, ztabr )  

  • 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.