Changeset 10774 for branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/DOM/daymod.F90

Timestamp:

2019-03-19T12:32:19+01:00 (5 years ago)

Author:

andmirek

Message:

GMED 450 add flush after prints

File:

• branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/DOM/daymod.F90 (modified) (5 diffs)

branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/DOM/daymod.F90

@@ -130 +130 @@
       IF(lwp) WRITE(numout,'(a,i6,a,i2,a,i2,a,i8,a,i8)')' =======>> 1/2 time step before the start of the run DATE Y/M/D = ',   &
            &                   nyear, '/', nmonth, '/', nday, '  nsec_day:', nsec_day, '  nsec_week:', nsec_week
+      IF(lwp .AND. lflush) CALL flush(numout)
 
       ! Up to now, calendar parameters are related to the end of previous run (nit000-1)
@@ -253 +254 @@
          CALL ymds2ju( nyear, 01, 01, 0.0, fjulstartyear )
          !
-         IF(lwp .AND. nprint > 0) WRITE(numout,'(a,i8,a,i4.4,a,i2.2,a,i2.2,a,i3.3)') '======>> time-step =', kt,   &
+         IF(lwp .AND. nprint > 0) THEN
+             WRITE(numout,'(a,i8,a,i4.4,a,i2.2,a,i2.2,a,i3.3)') '======>> time-step =', kt,   &
               &   '      New day, DATE Y/M/D = ', nyear, '/', nmonth, '/', nday, '      nday_year = ', nday_year
-         IF(lwp .AND. nprint > 0) WRITE(numout,'(a,i8,a,i7,a,i5)') '         nsec_year = ', nsec_year,   &
+             WRITE(numout,'(a,i8,a,i7,a,i5)') '         nsec_year = ', nsec_year,   &
               &   '   nsec_month = ', nsec_month, '   nsec_day = ', nsec_day, '   nsec_week = ', nsec_week
+             IF(lflush) CALL flush(numout)
+         ENDIF
       ENDIF
 
@@ -321 +325 @@
                CASE ( 2 )   ;   WRITE(numout,*) ' nrstdt = 2 : calendar parameters read in restart'
                END SELECT
-               WRITE(numout,*)
+               WRITE(numout,*) ' '
+               IF(lflush) CALL flush(numout)
             ENDIF
             ! Control of date
@@ -353 +358 @@
             WRITE(numout,*) '   number of elapsed days since the begining of run : ', adatrj
             WRITE(numout,*)
+            IF(lflush) CALL flush(numout)
          ENDIF
          !
@@ -361 +367 @@
             WRITE(numout,*) 'rst_write : write oce restart file  kt =', kt
             WRITE(numout,*) '~~~~~~~'
+            IF(lflush) CALL flush(numout)
          ENDIF
          ! calendar control