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

NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/TRA/eosbn2.F90

@@ -1253 +1253 @@
          WRITE(numout,*) '      EOS-80  : rho=F(Potential    Temperature, Practical Salinity, depth)   ln_EOS80  = ', ln_EOS80
          WRITE(numout,*) '      S-EOS   : rho=F(Conservative Temperature, Absolute  Salinity, depth)   ln_SEOS   = ', ln_SEOS
+         IF(lflush) CALL FLUSH(numout)
       ENDIF
 
@@ -1669 +1670 @@
          !
       END SELECT
+      IF(lwp .AND. lflush) CALL FLUSH(numout)
       !
       rau0_rcp    = rau0 * rcp 
@@ -1684 +1686 @@
             WRITE(numout,*) '   ==>>>   model does not use Conservative Temperature'
          ENDIF
+         IF(lflush) CALL FLUSH(numout)
       ENDIF
       !
-      IF(lwp) WRITE(numout,*)
-      IF(lwp) WRITE(numout,*) '   Associated physical constant'
-      IF(lwp) WRITE(numout,*) '      volumic mass of reference           rau0  = ', rau0   , ' kg/m^3'
-      IF(lwp) WRITE(numout,*) '      1. / rau0                        r1_rau0  = ', r1_rau0, ' m^3/kg'
-      IF(lwp) WRITE(numout,*) '      ocean specific heat                 rcp   = ', rcp    , ' J/Kelvin'
-      IF(lwp) WRITE(numout,*) '      rau0 * rcp                       rau0_rcp = ', rau0_rcp
-      IF(lwp) WRITE(numout,*) '      1. / ( rau0 * rcp )           r1_rau0_rcp = ', r1_rau0_rcp
+      IF(lwp) THEN
+         WRITE(numout,*)
+         WRITE(numout,*) '   Associated physical constant'
+         WRITE(numout,*) '      volumic mass of reference           rau0  = ', rau0   , ' kg/m^3'
+         WRITE(numout,*) '      1. / rau0                        r1_rau0  = ', r1_rau0, ' m^3/kg'
+         WRITE(numout,*) '      ocean specific heat                 rcp   = ', rcp    , ' J/Kelvin'
+         WRITE(numout,*) '      rau0 * rcp                       rau0_rcp = ', rau0_rcp
+         WRITE(numout,*) '      1. / ( rau0 * rcp )           r1_rau0_rcp = ', r1_rau0_rcp
+         IF(lflush) CALL FLUSH(numout)
+      ENDIF
       !
    END SUBROUTINE eos_init