Changeset 4117 for dynamico_lmdz/aquaplanet/LMDZ5/libf

Timestamp:

Oct 17, 2018, 11:17:31 PM (6 years ago)

Author:

dubos

Message:

aquaplanet : deactivate non-scalable LMDZ output

Location:

dynamico_lmdz/aquaplanet/LMDZ5/libf/phy_common

Files:

• mod_phys_lmdz_mpi_data.F90 (modified) (1 diff)
• mod_phys_lmdz_para.F90 (modified) (1 diff)

dynamico_lmdz/aquaplanet/LMDZ5/libf/phy_common/mod_phys_lmdz_mpi_data.F90

@@ -198 +198 @@
     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,*) '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

dynamico_lmdz/aquaplanet/LMDZ5/libf/phy_common/mod_phys_lmdz_para.F90

@@ -33 +33 @@
        is_master=.FALSE.
      ENDIF
-     CALL Test_transfert
+!     CALL Test_transfert
 !$OMP END PARALLEL    
      IF (is_using_mpi .OR. is_using_omp) THEN