Changeset 10986 for NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/SBC/sbcapr.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/SBC/sbcapr.F90 (modified) (4 diffs)

NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/SBC/sbcapr.F90

@@ -91 +91 @@
          WRITE(numout,*) '   Namelist namsbc_apr : Atmospheric PRessure as extrenal forcing'
          WRITE(numout,*) '      ref. pressure: global mean Patm (T) or a constant (F)  ln_ref_apr = ', ln_ref_apr
+         IF(lflush) CALL FLUSH(numout)
       ENDIF
       !
@@ -99 +100 @@
          IF(lwp) WRITE(numout,*) '         Reference Patm used : ', rn_pref, ' N/m2'
       ENDIF
+      IF(lwp .AND. lflush) CALL FLUSH(numout)
       !
       r1_grau = 1.e0 / (grav * rau0)               !* constant for optimization
       !
       !                                            !* control check
-      IF ( ln_apr_obc  ) THEN
-         IF(lwp) WRITE(numout,*) '         Inverse barometer added to OBC ssh data'
+      IF ( ln_apr_obc  .AND. lwp) THEN
+         WRITE(numout,*) '         Inverse barometer added to OBC ssh data'
+         IF(lflush) CALL FLUSH(numout)
       ENDIF
 !jc: stop below should rather be a warning 
@@ -155 +158 @@
          !                                            !* Restart: read in restart file
          IF( ln_rstart .AND. iom_varid( numror, 'ssh_ibb', ldstop = .FALSE. ) > 0 ) THEN 
-            IF(lwp) WRITE(numout,*) 'sbc_apr:   ssh_ibb read in the restart file'
+            IF(lwp .AND. nprint > 0) THEN
+               WRITE(numout,*) 'sbc_apr:   ssh_ibb read in the restart file'
+               IF(lflush) CALL FLUSH(numout)
+            ENDIF
             CALL iom_get( numror, jpdom_autoglo, 'ssh_ibb', ssh_ibb, ldxios = lrxios )   ! before inv. barometer ssh
             !
          ELSE                                         !* no restart: set from nit000 values
-            IF(lwp) WRITE(numout,*) 'sbc_apr:   ssh_ibb set to nit000 values'
+            IF(lwp .AND. nprint > 0) THEN
+               WRITE(numout,*) 'sbc_apr:   ssh_ibb set to nit000 values'
+               IF(lflush) CALL FLUSH(numout)
+            ENDIF
             ssh_ibb(:,:) = ssh_ib(:,:)
          ENDIF
@@ -166 +175 @@
       IF( lrst_oce ) THEN                       !      Write in the ocean restart file     !
          !                                      ! ---------------------------------------- !
-         IF(lwp) WRITE(numout,*)
-         IF(lwp) WRITE(numout,*) 'sbc_apr : ssh_ib written in ocean restart file at it= ', kt,' date= ', ndastp
-         IF(lwp) WRITE(numout,*) '~~~~'
+         IF(lwp .AND. nprint > 0) THEN
+            WRITE(numout,*)
+            WRITE(numout,*) 'sbc_apr : ssh_ib written in ocean restart file at it= ', kt,' date= ', ndastp
+            WRITE(numout,*) '~~~~'
+            IF(lflush) CALL FLUSH(numout)
+         ENDIF
          IF( lwxios ) CALL iom_swap(      cwxios_context          )
          CALL iom_rstput( kt, nitrst, numrow, 'ssh_ibb' , ssh_ib, ldxios = lwxios )