Changeset 1707 for LMDZ5/branches/testing/libf/dyn3dmem/call_dissip_mod.F90

Timestamp:

Jan 11, 2013, 10:19:19 AM (12 years ago)

Author:

Laurent Fairhead

Message:

Version testing basée sur la r1706

---

Testing release based on r1706

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/dyn3dmem/call_dissip_mod.F90 (modified) (4 diffs)

LMDZ5/branches/testing/libf/dyn3dmem/call_dissip_mod.F90

@@ -240 +240 @@
     !$OMP END DO NOWAIT
 
+         if (1 == 0) then
+!!! Ehouarn: lines here 1) kill 1+1=2 in the dynamics
+!!!                     2) should probably not be here anyway
+!!! but are kept for those who would want to revert to previous behaviour
     !$OMP MASTER               
       DO ij =  1,iim
@@ -251 +255 @@
     !$OMP END MASTER
     
-    ENDIF
+    ENDIF ! of if (1 == 0)
+    endif ! of of (pole_nord)
         
     IF (pole_sud) THEN
@@ -269 +274 @@
     !$OMP END DO NOWAIT
 
+    if (1 == 0) then
+!!! Ehouarn: lines here 1) kill 1+1=2 in the dynamics
+!!!                     2) should probably not be here anyway
+!!! but are kept for those who would want to revert to previous behaviour
     !$OMP MASTER               
       DO ij =  1,iim
@@ -279 +288 @@
       ENDDO
     !$OMP END MASTER
-    ENDIF
+    ENDIF ! of if (1 == 0)
+    endif ! of if (pole_sud)