Changeset 10986 for NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/DIA/diahsb.F90

Timestamp:

2019-05-16T15:23:56+02:00 (5 years ago)

Author:

andmirek

Message:

GMED 462 add flush

File:

• NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/DIA/diahsb.F90 (modified) (7 diffs)

NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/DIA/diahsb.F90

@@ -211 +211 @@
          CALL iom_put( 'bgvole3t' , zdiff_v2 * 1.e-9    )              ! volume e3t drift      (km3)  
          !
-         IF( kt == nitend .AND. lwp) THEN
+         IF( kt == nitend .AND. lwp .AND. nprint > 0) THEN
             WRITE(numout,*)
             WRITE(numout,*) 'dia_hsb : last time step hsb diagnostics: at it= ', kt,' date= ', ndastp
@@ -219 +219 @@
             WRITE(numout,*) '   volume ssh  drift = ', zdiff_v1 * 1.e-9   , ' km^3'
             WRITE(numout,*) '   volume e3t  drift = ', zdiff_v2 * 1.e-9   , ' km^3'
+            IF(lflush) CALL FLUSH(numout)
          ENDIF
          !
@@ -257 +258 @@
          IF( ln_rstart ) THEN                   !* Read the restart file
             !
-            IF(lwp) WRITE(numout,*)
-            IF(lwp) WRITE(numout,*) '   dia_hsb_rst : read hsb restart at it= ', kt,' date= ', ndastp
-            IF(lwp) WRITE(numout,*)
+            IF(lwp) THEN
+               WRITE(numout,*)
+               WRITE(numout,*) '   dia_hsb_rst : read hsb restart at it= ', kt,' date= ', ndastp
+               WRITE(numout,*)
+               IF(lflush) CALL FLUSH(numout)
+            ENDIF
             CALL iom_get( numror, 'frc_v', frc_v, ldxios = lrxios )
             CALL iom_get( numror, 'frc_t', frc_t, ldxios = lrxios )
@@ -277 +281 @@
             ENDIF
          ELSE
-            IF(lwp) WRITE(numout,*)
-            IF(lwp) WRITE(numout,*) '   dia_hsb_rst : initialise hsb at initial state '
-            IF(lwp) WRITE(numout,*)
+            IF(lwp) THEN
+               WRITE(numout,*)
+               WRITE(numout,*) '   dia_hsb_rst : initialise hsb at initial state '
+               WRITE(numout,*)
+            ENDIF
             surf_ini(:,:) = e1e2t(:,:) * tmask_i(:,:)         ! initial ocean surface
             ssh_ini(:,:) = sshn(:,:)                          ! initial ssh
@@ -310 +316 @@
       ELSEIF( TRIM(cdrw) == 'WRITE' ) THEN   ! Create restart file
          !                                   ! -------------------
-         IF(lwp .AND. nprint > 0) WRITE(numout,*)
-         IF(lwp .AND. nprint > 0) WRITE(numout,*) '   dia_hsb_rst : write restart at it= ', kt,' date= ', ndastp
-         IF(lwp .AND. nprint > 0) WRITE(numout,*)
+         IF(lwp .AND. nprint > 0) THEN
+            WRITE(numout,*)
+            WRITE(numout,*) '   dia_hsb_rst : write restart at it= ', kt,' date= ', ndastp
+            WRITE(numout,*)
+            IF(lflush) CALL FLUSH(numout)
+         ENDIF
          !
          IF( lwxios ) CALL iom_swap(      cwxios_context          )
@@ -359 +368 @@
          WRITE(numout,*) 'dia_hsb_init : heat and salt budgets diagnostics'
          WRITE(numout,*) '~~~~~~~~~~~~ '
+         IF(lflush) CALL FLUSH(numout)
       ENDIF
       REWIND( numnam_ref )              ! Namelist namhsb in reference namelist
@@ -371 +381 @@
          WRITE(numout,*) '   Namelist  namhsb :'
          WRITE(numout,*) '      check the heat and salt budgets (T) or not (F)       ln_diahsb = ', ln_diahsb
+         IF(lflush) CALL FLUSH(numout)
       ENDIF
       !