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

Timestamp:

Sep 11, 2013, 11:45:01 AM (11 years ago)

Author:

Laurent Fairhead

Message:

Création d'une nouvelle testing:

merge des modifications du trunk entre r1796 et r1860

---

New testing version

merged modifications between r1796 and r1860 from the trunk

i.e.
svn merge -r1796:1860 ​http://svn.lmd.jussieu.fr/LMDZ/LMDZ5/trunk

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

@@ -22 +22 @@
   SUBROUTINE call_dissip_allocate
   USE bands
-  USE allocate_field
-  USE parallel
-  USE dimensions
+  USE allocate_field_mod
+  USE parallel_lmdz
+  USE dimensions_mod
   USE dissip_mod, ONLY : dissip_allocate
   IMPLICIT NONE
@@ -50 +50 @@
   
   SUBROUTINE call_dissip_switch_dissip(dist)
-  USE allocate_field
+  USE allocate_field_mod
   USE bands
-  USE parallel
+  USE parallel_lmdz
   USE dissip_mod, ONLY : dissip_switch_dissip
   IMPLICIT NONE
@@ -78 +78 @@
   
   SUBROUTINE call_dissip(ucov_dyn,vcov_dyn,teta_dyn,p_dyn,pk_dyn,ps_dyn)
-  USE dimensions
-  USE parallel
+  USE dimensions_mod
+  USE parallel_lmdz
   USE times
   USE mod_hallo
@@ -98 +98 @@
     REAL  SSUM
     LOGICAL,PARAMETER :: dissip_conservative=.TRUE.
-    TYPE(Request) :: Request_dissip 
-    
+    TYPE(Request),SAVE :: Request_dissip 
+!$OMP THREADPRIVATE(Request_dissip )    
     INTEGER :: ij,l,ijb,ije