Changeset 1575 for LMDZ5/trunk/libf/phylmd/mod_phys_lmdz_mpi_data.F90

Timestamp:

Sep 21, 2011, 3:57:48 PM (13 years ago)

Author:

jghattas

Message:

• Added suffix _mpi_rank to lmdz.out text file. Each processus now write into seperate file but only if lunout/=6 (lunout is set in run.def).

• Change some print* into write(lunout,*)

• phytrac.F90 : always include ini_histrac and write_histrac. The file histrac.nc is written if ecrit_tra> 0 (set in physiq.def). Change default value of ecrit_tra into 0.

File:

• LMDZ5/trunk/libf/phylmd/mod_phys_lmdz_mpi_data.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/mod_phys_lmdz_mpi_data.F90

@@ -167 +167 @@
   SUBROUTINE print_module_data
   IMPLICIT NONE
-  
-  
-    PRINT *, 'ii_begin =', ii_begin
-    PRINT *, 'ii_end =', ii_end
-    PRINT *, 'jj_begin =',jj_begin
-    PRINT *, 'jj_end =', jj_end
-    PRINT *, 'jj_nb =', jj_nb
-    PRINT *, 'ij_begin =', ij_begin
-    PRINT *, 'ij_end =', ij_end
-    PRINT *, 'ij_nb =', ij_nb
-    PRINT *, 'klon_mpi_begin =', klon_mpi_begin
-    PRINT *, 'klon_mpi_end =', klon_mpi_end
-    PRINT *, 'klon_mpi =', klon_mpi
-    PRINT *, 'jj_para_nb =', jj_para_nb
-    PRINT *, 'jj_para_begin =', jj_para_begin
-    PRINT *, 'jj_para_end =', jj_para_end
-    PRINT *, 'ii_para_begin =', ii_para_begin
-    PRINT *, 'ii_para_end =', ii_para_end
-    PRINT *, 'ij_para_nb =', ij_para_nb
-    PRINT *, 'ij_para_begin =', ij_para_begin
-    PRINT *, 'ij_para_end =', ij_para_end
-    PRINT *, 'klon_mpi_para_nb =', klon_mpi_para_nb
-    PRINT *, 'klon_mpi_para_begin =', klon_mpi_para_begin
-    PRINT *, 'klon_mpi_para_end  =', klon_mpi_para_end 
-    PRINT *, 'mpi_rank =', mpi_rank
-    PRINT *, 'mpi_size =', mpi_size
-    PRINT *, 'mpi_root =', mpi_root
-    PRINT *, 'is_mpi_root =', is_mpi_root
-    PRINT *, 'is_north_pole =', is_north_pole
-    PRINT *, 'is_south_pole =', is_south_pole
-    PRINT *, 'COMM_LMDZ_PHY =', COMM_LMDZ_PHY
+  INCLUDE "iniprint.h" 
+  
+    WRITE(lunout,*) 'ii_begin =', ii_begin
+    WRITE(lunout,*) 'ii_end =', ii_end
+    WRITE(lunout,*) 'jj_begin =',jj_begin
+    WRITE(lunout,*) 'jj_end =', jj_end
+    WRITE(lunout,*) 'jj_nb =', jj_nb
+    WRITE(lunout,*) 'ij_begin =', ij_begin
+    WRITE(lunout,*) 'ij_end =', ij_end
+    WRITE(lunout,*) 'ij_nb =', ij_nb
+    WRITE(lunout,*) 'klon_mpi_begin =', klon_mpi_begin
+    WRITE(lunout,*) 'klon_mpi_end =', klon_mpi_end
+    WRITE(lunout,*) 'klon_mpi =', klon_mpi
+    WRITE(lunout,*) 'jj_para_nb =', jj_para_nb
+    WRITE(lunout,*) 'jj_para_begin =', jj_para_begin
+    WRITE(lunout,*) 'jj_para_end =', jj_para_end
+    WRITE(lunout,*) 'ii_para_begin =', ii_para_begin
+    WRITE(lunout,*) 'ii_para_end =', ii_para_end
+    WRITE(lunout,*) 'ij_para_nb =', ij_para_nb
+    WRITE(lunout,*) 'ij_para_begin =', ij_para_begin
+    WRITE(lunout,*) 'ij_para_end =', ij_para_end
+    WRITE(lunout,*) 'klon_mpi_para_nb =', klon_mpi_para_nb
+    WRITE(lunout,*) 'klon_mpi_para_begin =', klon_mpi_para_begin
+    WRITE(lunout,*) 'klon_mpi_para_end  =', klon_mpi_para_end 
+    WRITE(lunout,*) 'mpi_rank =', mpi_rank
+    WRITE(lunout,*) 'mpi_size =', mpi_size
+    WRITE(lunout,*) 'mpi_root =', mpi_root
+    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,*) 'COMM_LMDZ_PHY =', COMM_LMDZ_PHY
   
   END SUBROUTINE print_module_data