Changeset 1035 for codes

Timestamp:

08/05/20 13:42:14 (4 years ago)

Author:

dubos

Message:

devel : compile on JeanZay? with PGI (X64)

Location:

codes/icosagcm/devel

Files:

• arch/arch-X64_JEANZAY_PGI.env (added)
• arch/arch-X64_JEANZAY_PGI.fcm (added)
• arch/arch-X64_JEANZAY_PGI.path (added)
• src/parallel/mpipara.F90 (modified) (1 diff)

codes/icosagcm/devel/src/parallel/mpipara.F90

@@ -1 +1 @@
 MODULE mpipara
-
-  INTEGER,SAVE :: mpi_rank
-  INTEGER,SAVE :: mpi_size
-  INTEGER,SAVE :: mpi_threading_mode
+  IMPLICIT NONE
+  SAVE
   
-  INTEGER,SAVE :: comm_icosa
-  INTEGER,SAVE :: ierr
-  LOGICAL,SAVE :: using_mpi
-  LOGICAL,SAVE :: is_mpi_root
-  LOGICAL,SAVE, BIND(C) :: is_mpi_master=.TRUE.
-  INTEGER,SAVE :: mpi_master
+  INTEGER :: mpi_rank
+  INTEGER :: mpi_size
+  INTEGER :: mpi_threading_mode
   
-  INTEGER,SAVE :: id_mpi ! id for profiling
+  INTEGER :: comm_icosa
+  INTEGER :: ierr
+  LOGICAL :: using_mpi
+  LOGICAL :: is_mpi_root
+  LOGICAL, BIND(C) :: is_mpi_master=.TRUE.
+  INTEGER :: mpi_master
+  
+  INTEGER :: id_mpi ! id for profiling
 
   INTERFACE allocate_mpi_buffer