Changeset 735 for LMDZ4/branches/V3_test/libf/phylmd/iophy.F90

Timestamp:

Nov 10, 2006, 3:50:16 PM (18 years ago)

Author:

Laurent Fairhead

Message:

Modifications version parallele
YM/LF

File:

• LMDZ4/branches/V3_test/libf/phylmd/iophy.F90 (modified) (3 diffs)

LMDZ4/branches/V3_test/libf/phylmd/iophy.F90

@@ -134 +134 @@
   include 'dimensions90.h'
   
-    real,dimension(klon,nlev),intent(in) :: field_phy
+    real,dimension(klon_mpi,nlev),intent(in) :: field_phy
     real,dimension(iim,jjphy_nb,nlev),intent(out) :: field_dyn
     integer,intent(in) :: nlev
@@ -145 +145 @@
         if (jjphy_begin==jjphy_end) then
           field_dyn(:,1,l)=0.
-          field_dyn(iiphy_begin:iiphy_end,1,l)=field_phy(1:klon,l)
+          field_dyn(iiphy_begin:iiphy_end,1,l)=field_phy(1:klon_mpi,l)
         else
         
@@ -163 +163 @@
           
           if (jjphy_end==jjm+1) then
-             field_dyn(:,jjphy_nb,l)=field_phy(klon,l)
+             field_dyn(:,jjphy_nb,l)=field_phy(klon_mpi,l)
           else
            field_dyn(:,jjphy_nb,l)=0.