Ignore:
Timestamp:
2019-10-18T12:52:29+02:00 (12 months ago)
Author:
francesca
Message:

add extra halo support- ticket #2009

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r11514_HPC-02_single-core-extrahalo/src/OCE/LBC/mppini.F90

    r11692 r11719  
    2525   USE bdy_oce        ! open BounDarY   
    2626   ! 
    27    USE lbcnfd  , ONLY : isendto, nsndto, nfsloop, nfeloop   ! Setup of north fold exchanges  
     27   USE lbcnfd  , ONLY : isendto, nsndto   ! Setup of north fold exchanges  
    2828   USE lib_mpp        ! distribued memory computing library 
    2929   USE iom            ! nemo I/O library  
     
    703703            WRITE(inum,*) 
    704704            WRITE(inum,*) 'north fold exchanges with explicit point-to-point messaging :' 
    705             WRITE(inum,*) 'nfsloop : ', nfsloop 
    706             WRITE(inum,*) 'nfeloop : ', nfeloop 
    707705            WRITE(inum,*) 'nsndto : ', nsndto 
    708706            WRITE(inum,*) 'isendto : ', isendto 
     
    12651263            ! 
    12661264         END DO 
    1267          nfsloop = 1 
    1268          nfeloop = nlci 
    1269          DO jn = 2,jpni-1 
    1270             IF( nfipproc(jn,jpnj) == (narea - 1) ) THEN 
    1271                IF( nfipproc(jn-1,jpnj) == -1 )   nfsloop = nldi 
    1272                IF( nfipproc(jn+1,jpnj) == -1 )   nfeloop = nlei 
    1273             ENDIF 
    1274          END DO 
    12751265         ! 
    12761266      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.