Changeset 2435 for LMDZ5/branches/testing/libf/phylmd/oasis.F90

Timestamp:

Jan 28, 2016, 5:02:13 PM (9 years ago)

Author:

Laurent Fairhead

Message:

Merged trunk changes r2396:2434 into testing branch

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/phylmd/oasis.F90 (modified) (3 diffs)

LMDZ5/branches/testing/libf/phylmd/oasis.F90

@@ -342 +342 @@
     
     istart=ii_begin
-    IF (is_south_pole) THEN
+    IF (is_south_pole_dyn) THEN
        iend=(jj_end-jj_begin)*nbp_lon+nbp_lon
     ELSE
@@ -408 +408 @@
 
     istart=ii_begin
-    IF (is_south_pole) THEN
+    IF (is_south_pole_dyn) THEN
        iend=(jj_end-jj_begin)*nbp_lon+nbp_lon
     ELSE
@@ -417 +417 @@
        wstart=istart
        wend=iend
-       IF (is_north_pole) wstart=istart+nbp_lon-1
-       IF (is_south_pole) wend=iend-nbp_lon+1
+       IF (is_north_pole_dyn) wstart=istart+nbp_lon-1
+       IF (is_south_pole_dyn) wend=iend-nbp_lon+1
        
        DO i = 1, maxsend