Changeset 734 for LMDZ4/branches/V3_test/libf/dyn3dpar/bands.F90

Timestamp:

Nov 10, 2006, 3:42:49 PM (18 years ago)

Author:

Laurent Fairhead

Message:

Nettoyage version parallele
YM/LF

File:

• LMDZ4/branches/V3_test/libf/dyn3dpar/bands.F90 (modified) (2 diffs)

LMDZ4/branches/V3_test/libf/dyn3dpar/bands.F90

@@ -103 +103 @@
           if (jjphy_para_begin(i)==jjphy_para_end(i-1)) then
             jj_Nb_physic_bis(i)=jj_Nb_physic_bis(i)-1
-          endif
+          else
+            jj_Nb_physic_bis(i-1)=jj_Nb_physic_bis(i-1)+1
+            jj_Nb_physic_bis(i)=jj_Nb_physic_bis(i)-1
+          endif
         endif
       enddo
@@ -401 +404 @@
         CLOSE(unit_number)   
       else 
-        print *,'problème lors de l écriture des bandes'
+        print *,'probleme lors de l ecriture des bandes'
       endif