Changeset 764 for LMDZ4/trunk/libf/dyn3dpar/bands.F90

Timestamp:

Jun 4, 2007, 4:13:10 PM (17 years ago)

Author:

Laurent Fairhead

Message:

Merge entre la version V3_conv et le HEAD
YM, JG, LF

File:

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

LMDZ4/trunk/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