Changeset 1864 for LMDZ5/branches/testing/libf/dyn3dmem/bands.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/bands.F90 (modified) (9 diffs)

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

@@ -3 +3 @@
 !
   module Bands
-  USE parallel
+  USE parallel_lmdz
     integer, parameter :: bands_caldyn=1
     integer, parameter :: bands_vanleer=2
@@ -27 +27 @@
   
   subroutine AllocateBands
-    use parallel
+    USE parallel_lmdz
     implicit none
     
@@ -41 +41 @@
   
   subroutine Read_distrib
-    use parallel
+    USE parallel_lmdz
     implicit none
 
@@ -104 +104 @@
    
    SUBROUTINE  Set_Bands 
-     USE parallel
+     USE parallel_lmdz
 #ifdef CPP_PHYS
 ! Ehouarn: what follows is only related to // physics
@@ -168 +168 @@
     subroutine AdjustBands_caldyn(new_dist)
       use times
-      use parallel
+      USE parallel_lmdz
       implicit none
       TYPE(distrib),INTENT(INOUT) :: new_dist
@@ -235 +235 @@
     subroutine AdjustBands_vanleer(new_dist)
       use times
-      use parallel
+      USE parallel_lmdz
       implicit none
       TYPE(distrib),INTENT(INOUT) :: new_dist
@@ -304 +304 @@
     subroutine AdjustBands_dissip(new_dist)
       use times
-      use parallel
+      USE parallel_lmdz
       implicit none
       TYPE(distrib),INTENT(INOUT) :: new_dist
@@ -377 +377 @@
       USE mod_phys_lmdz_para, only : klon_mpi_para_nb
 #endif
-      USE parallel
+      USE parallel_lmdz
       implicit none
 
@@ -428 +428 @@
 
     subroutine WriteBands
-    USE parallel
+    USE parallel_lmdz
     implicit none
     include "dimensions.h"