Changeset 604 for codes/icosagcm/trunk/src/sphere

Timestamp:

10/24/17 01:32:57 (7 years ago)

Author:

dubos

Message:

trunk : backported r600-603 from devel

File:

• codes/icosagcm/trunk/src/sphere/geometry.f90 (modified) (4 diffs)

codes/icosagcm/trunk/src/sphere/geometry.f90

@@ -639 +639 @@
           IF (ii_glo==1 .AND. jj_glo==1) THEN
             le(n+u_ldown)=0
+            le_de(n+u_ldown)=0
             xyz_v(n+z_ldown,:)=xyz_v(n+z_down,:)
                        
@@ -645 +646 @@
           IF (ii_glo==iim_glo .AND. jj_glo==1) THEN
             le(n+u_right)=0
+            le_de(n+u_right)=0
             xyz_v(n+z_rdown,:)=xyz_v(n+z_rup,:)
           ENDIF
@@ -650 +652 @@
           IF (ii_glo==iim_glo .AND. jj_glo==jjm_glo) THEN
             le(n+u_rup)=0
+            le_de(n+u_rup)=0
             xyz_v(n+z_rup,:)=xyz_v(n+z_up,:)
           ENDIF
@@ -655 +658 @@
           IF (ii_glo==1 .AND. jj_glo==jjm_glo) THEN
             le(n+u_lup)=0
+            le_de(n+u_lup)=0
             xyz_v(n+z_up,:)=xyz_v(n+z_lup,:)
           ENDIF