Changeset 2883


Ignore:
Timestamp:
2011-09-30T18:30:13+02:00 (9 years ago)
Author:
acc
Message:

Branch 2011/dev_r2855_NOCS_mppsca. Correction to comments and removal of unwanted debugging options

Location:
branches/2011/dev_r2855_NOCS_mppsca/NEMOGCM/NEMO/OPA_SRC
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/2011/dev_r2855_NOCS_mppsca/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90

    r2882 r2883  
    22522252      IF ( l_north_nogather ) THEN 
    22532253! 
    2254 ! Avoid the use of mpi_allgather by exchanging only with the processes already identified (in opa_northcomms) 
     2254! Avoid the use of mpi_allgather by exchanging only with the processes already identified (in nemo_northcomms) 
    22552255! as being  involved in this process' northern boundary exchange 
    22562256! 
     
    23892389      IF ( l_north_nogather ) THEN 
    23902390! 
    2391 ! Avoid the use of mpi_allgather by exchanging only with the processes already identified (in opa_northcomms)  
     2391! Avoid the use of mpi_allgather by exchanging only with the processes already identified (in nemo_northcomms)  
    23922392! as being  involved in this process' northern boundary exchange 
    23932393! 
  • branches/2011/dev_r2855_NOCS_mppsca/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

    r2882 r2883  
    662662      ! 
    663663! Exchange and store ranks on northern rows 
    664         WRITE(numout,*) narea, njmppt(narea) , MAXVAL( njmppt ) ; FLUSH(numout) 
    665664 
    666665     DO jtyp = 1,4 
     
    764763        l_north_nogather = .TRUE. 
    765764! 
    766         DO jtyp=1,5 
    767          write(numout,'(i4,a,2i4,a,8i5)') narea-1,' : ',jtyp,nsndto(jtyp),' ids ',(isendto(ij,jtyp),ij=1,nsndto(jtyp)) 
    768         END DO 
    769         CALL FLUSH(numout) 
    770       ENDIF 
    771         WRITE(numout,*) narea, ' l_north_nogather ',l_north_nogather; FLUSH(numout) 
     765      ENDIF 
    772766      DEALLOCATE( znnbrs ) 
    773767      DEALLOCATE( lrankset ) 
Note: See TracChangeset for help on using the changeset viewer.