Changeset 2883

Timestamp:

2011-09-30T18:30:13+02:00 (13 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:

• LBC/lib_mpp.F90 (modified) (2 diffs)
• nemogcm.F90 (modified) (2 diffs)

branches/2011/dev_r2855_NOCS_mppsca/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90

@@ -2252 +2252 @@
       IF ( l_north_nogather ) THEN
 !
-! Avoid the use of mpi_allgather by exchanging only with the processes already identified (in opa_northcomms)
+! Avoid the use of mpi_allgather by exchanging only with the processes already identified (in nemo_northcomms)
 ! as being  involved in this process' northern boundary exchange
 !
@@ -2389 +2389 @@
       IF ( l_north_nogather ) THEN
 !
-! Avoid the use of mpi_allgather by exchanging only with the processes already identified (in opa_northcomms) 
+! Avoid the use of mpi_allgather by exchanging only with the processes already identified (in nemo_northcomms) 
 ! as being  involved in this process' northern boundary exchange
 !

branches/2011/dev_r2855_NOCS_mppsca/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

@@ -662 +662 @@
       !
 ! Exchange and store ranks on northern rows
-        WRITE(numout,*) narea, njmppt(narea) , MAXVAL( njmppt ) ; FLUSH(numout)
 
      DO jtyp = 1,4
@@ -764 +763 @@
         l_north_nogather = .TRUE.
 !
-        DO jtyp=1,5
-         write(numout,'(i4,a,2i4,a,8i5)') narea-1,' : ',jtyp,nsndto(jtyp),' ids ',(isendto(ij,jtyp),ij=1,nsndto(jtyp))
-        END DO
-        CALL FLUSH(numout)
-      ENDIF
-        WRITE(numout,*) narea, ' l_north_nogather ',l_north_nogather; FLUSH(numout)
+      ENDIF
       DEALLOCATE( znnbrs )
       DEALLOCATE( lrankset )