Changeset 2781

Timestamp:

Jan 26, 2017, 10:00:52 PM (8 years ago)

Author:

oboucher

Message:

Removing the PRINTs that came from svn merging...

File:

• LMDZ5/trunk/libf/phylmd/phys_output_write_mod.F90 (modified) (5 diffs)

LMDZ5/trunk/libf/phylmd/phys_output_write_mod.F90

@@ -1918 +1918 @@
 #ifndef CPP_IOIPSL_NO_OUTPUT 
           DO iff=1,nfiles
-             PRINT *,'IFF=', iff
              IF (clef_files(iff)) THEN
-                PRINT *,'IFF=', iff, clef_files(iff)
                 CALL histend(nid_files(iff))
                 ndex2d = 0
@@ -1926 +1924 @@
              ENDIF ! clef_files
           ENDDO !  iff
-          PRINT *,'IFF fin boucle'
 #endif
 #ifdef CPP_XIOS
           !On finalise l'initialisation:
-          PRINT *,'avt wxios'
           CALL wxios_closedef()
-          PRINT *,'apres wxios'
 #endif
           !$OMP END MASTER
@@ -1941 +1936 @@
 
     ENDDO
-    PRINT *,'fin call histend'
 
     IF (vars_defined) THEN
@@ -1948 +1942 @@
        !$OMP MASTER
        DO iff=1,nfiles
-                PRINT *,'IFF sync=', iff, clef_files(iff)
           IF (ok_sync .AND. clef_files(iff)) THEN
              CALL histsync(nid_files(iff))
@@ -1956 +1949 @@
 #endif
     ENDIF
-    PRINT *,'fin phys_output_write'
 
   END SUBROUTINE phys_output_write