Changeset 10774 for branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/TRA/traqsr.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/TRA/traqsr.F90 (modified) (8 diffs)

branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/TRA/traqsr.F90

@@ -119 +119 @@
          IF(lwp) WRITE(numout,*) 'tra_qsr : penetration of the surface solar radiation'
          IF(lwp) WRITE(numout,*) '~~~~~~~'
+         IF(lwp .AND. lflush) CALL flush(numout)
          IF( .NOT.ln_traqsr )   RETURN
       ENDIF
@@ -135 +136 @@
          IF( ln_rstart .AND.    &                    ! Restart: read in restart file
               & iom_varid( numror, 'qsr_hc_b', ldstop = .FALSE. ) > 0 ) THEN
-            IF(lwp .AND. nprint >0) WRITE(numout,*) '          nit000-1 qsr tracer content forcing field red in the restart file'
+            IF(lwp .AND. nprint >0) THEN
+               WRITE(numout,*) '          nit000-1 qsr tracer content forcing field red in the restart file'
+               IF(lflush) CALL flush(numout)
+            ENDIF
             zfact = 0.5e0
             CALL iom_get( numror, jpdom_autoglo, 'qsr_hc_b', qsr_hc_b )   ! before heat content trend due to Qsr flux
@@ -369 +373 @@
             &                    'at it= ', kt,' date= ', ndastp
             WRITE(numout,*) '~~~~'
+            IF(lflush) CALL flush(numout)
          ENDIF
          IF(nn_timing == 2)  CALL timing_start('iom_rstput') 
@@ -456 +461 @@
          WRITE(numout,*) '      RGB & 2 bands: shortess depth of extinction  rn_si0 = ', rn_si0
          WRITE(numout,*) '      2 bands: longest depth of extinction         rn_si1 = ', rn_si1
+         IF(lflush) CALL flush(numout)
       ENDIF
 
@@ -487 +493 @@
             IF( nqsr ==  4 )   WRITE(numout,*) '         2 bands light penetration'
             IF( nqsr ==  5 )   WRITE(numout,*) '         bio-model light penetration'
+            IF(lflush) CALL flush(numout)
          ENDIF
          !
@@ -569 +576 @@
             ENDIF
             !
+            IF(lwp .AND. lflush) CALL flush(numout)
+            !
          ENDIF
             !                             ! ---------------------------------- !
@@ -578 +587 @@
             IF(lwp) THEN
                WRITE(numout,*)
-            IF(lwp) WRITE(numout,*) '        level of light extinction = ', nksr, ' ref depth = ', gdepw_1d(nksr+1), ' m'
+               WRITE(numout,*) '        level of light extinction = ', nksr, ' ref depth = ', gdepw_1d(nksr+1), ' m'
+               IF(lflush) CALL flush(numout)
             ENDIF
             !
             IF( lk_vvl ) THEN                   ! variable volume
                IF(lwp) WRITE(numout,*) '        key_vvl: light distribution will be computed at each time step'
+               IF(lwp .AND. lflush) CALL flush(numout)
             ELSE                                ! constant volume: computes one for all
                zz0 =        rn_abs   * r1_rau0_rcp
@@ -606 +617 @@
             WRITE(numout,*) 'tra_qsr_init : NO solar flux penetration'
             WRITE(numout,*) '~~~~~~~~~~~~'
+            IF(lflush) CALL flush(numout)
          ENDIF
       ENDIF