Changeset 1548

Timestamp:

Jun 29, 2011, 4:32:25 PM (13 years ago)

Author:

jghattas

Message:

Errors detected using compile option "-check bound" at titane.

ACo

Location:

LMDZ5/trunk/libf

Files:

• bibio/lnblnk.F (modified) (1 diff)
• phylmd/surf_land_orchidee_noopenmp_mod.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/bibio/lnblnk.F

@@ -25 +25 @@
       INTEGER i,imax
       PARAMETER (imax = 256)
-      CHARACTER*256 letter
+      CHARACTER(*) letter
 
       i=0

LMDZ5/trunk/libf/phylmd/surf_land_orchidee_noopenmp_mod.F90

@@ -655 +655 @@
     INTEGER                              :: i, igrid, jj, ij, iglob
     INTEGER                              :: ierr, ireal, index
+    INTEGER                              :: var_tmp
     INTEGER, DIMENSION(0:mpi_size-1)     :: knon_nb
     INTEGER, DIMENSION(0:mpi_size-1)     :: displs
@@ -760 +761 @@
        ELSE
 #ifdef CPP_MPI
-          CALL MPI_SCATTERV(neighbours_g(:,i),knon_nb,displs,MPI_INTEGER,neighbours(:,i),knon,MPI_INTEGER,0,COMM_LMDZ_PHY,ierr) 
+          IF (knon > 0) THEN
+             ! knon>0, scattter global field neighbours_g from master process to local process
+             CALL MPI_SCATTERV(neighbours_g(:,i),knon_nb,displs,MPI_INTEGER,neighbours(:,i),knon,MPI_INTEGER,0,COMM_LMDZ_PHY,ierr) 
+          ELSE
+             ! knon=0, no need to save the field for this process
+             CALL MPI_SCATTERV(neighbours_g(:,i),knon_nb,displs,MPI_INTEGER,var_tmp,knon,MPI_INTEGER,0,COMM_LMDZ_PHY,ierr) 
+          END IF
 #endif
        ENDIF