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

branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/SBC/sbcapr.F90

@@ -99 +99 @@
             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
          !
@@ -114 +115 @@
             IF(lwp) WRITE(numout,*) '         Inverse barometer added to OBC ssh data'
          ENDIF
+         
+         IF(lwp .AND. lflush) CALL flush(numout)
+
          IF( ( ln_apr_obc ) .AND. .NOT. lk_dynspg_ts )   &
             CALL ctl_stop( 'sbc_apr: use inverse barometer ssh at open boundary ONLY possible with time-splitting' )
@@ -152 +156 @@
             ssh_ibb(:,:) = ssh_ib(:,:)
          ENDIF
+  
+         IF(lwp .AND. lflush) CALL flush(numout)
+
       ENDIF
       !                                         ! ---------------------------------------- !
@@ -159 +166 @@
          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. lflush) CALL flush(numout)
          IF(nn_timing == 2)  CALL timing_start('iom_rstput')
          CALL iom_rstput( kt, nitrst, numrow, 'ssh_ibb' , ssh_ib )