Changeset 2429 for LMDZ5/trunk/libf/phy_common/mod_phys_lmdz_mpi_data.F90

Timestamp:

Jan 27, 2016, 1:43:09 PM (9 years ago)

Author:

Laurent Fairhead

Message:

Correction on the calculation of the surface of the grid at the poles (problem was introduced
in r2222).
Due to the different distribution of OMP tasks in the dynamics and the physics, had to
introduce 2 new logical variables, is_pole_north_phy and is_pole_south_phy, and so decided
to rename the old is_north_pole/is_south_pole to is_north_pole_dyn/is_south_pole_dyn to
stay coherent and, hopefully, clear things up a bit.
LF

File:

• LMDZ5/trunk/libf/phy_common/mod_phys_lmdz_mpi_data.F90 (modified) (4 diffs, 1 prop)

LMDZ5/trunk/libf/phy_common/mod_phys_lmdz_mpi_data.F90

@@ -1 +1 @@
 !
-!$Header$
+!$Id$
 !
 MODULE mod_phys_lmdz_mpi_data
@@ -41 +41 @@
   
   
-  LOGICAL,SAVE :: is_north_pole
-  LOGICAL,SAVE :: is_south_pole
+!  LOGICAL,SAVE :: is_north_pole
+!  LOGICAL,SAVE :: is_south_pole
+  LOGICAL,SAVE :: is_north_pole_dyn
+  LOGICAL,SAVE :: is_south_pole_dyn
   INTEGER,SAVE :: COMM_LMDZ_PHY
   INTEGER,SAVE :: MPI_REAL_LMDZ   ! MPI_REAL8
@@ -109 +111 @@
     
     IF (mpi_rank == 0) THEN 
-      is_north_pole = .TRUE.
-    ELSE
-      is_north_pole = .FALSE.
+      is_north_pole_dyn = .TRUE.
+    ELSE
+      is_north_pole_dyn = .FALSE.
     ENDIF
     
     IF (mpi_rank == mpi_size-1) THEN
-      is_south_pole = .TRUE.
-    ELSE
-      is_south_pole = .FALSE.
+      is_south_pole_dyn = .TRUE.
+    ELSE
+      is_south_pole_dyn = .FALSE.
     ENDIF
     
@@ -217 +219 @@
     WRITE(lunout,*) 'mpi_master =', mpi_master
     WRITE(lunout,*) 'is_mpi_root =', is_mpi_root
-    WRITE(lunout,*) 'is_north_pole =', is_north_pole
-    WRITE(lunout,*) 'is_south_pole =', is_south_pole
+    WRITE(lunout,*) 'is_north_pole =', is_north_pole_dyn
+    WRITE(lunout,*) 'is_south_pole =', is_south_pole_dyn
     WRITE(lunout,*) 'COMM_LMDZ_PHY =', COMM_LMDZ_PHY