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

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

@@ -164 +164 @@
                               END DO
                               WRITE(numout,*)
+                              IF(lflush) CALL flush(numout)
                            ENDIF
                            
@@ -169 +170 @@
                            IF( jiter == 1 )   inpcc = inpcc + 1 
 
-                           IF( lp_monitor_point )   WRITE(numout, *) 'Negative N2 at ikp =',ikp,' for layer #', ilayer
+                           IF( lp_monitor_point )   THEN
+                              WRITE(numout, *) 'Negative N2 at ikp =',ikp,' for layer #', ilayer
+                              IF(lflush) CALL flush(numout)
+                           ENDIF
 
                            !! ikup is the uppermost point where mixing will start:
@@ -223 +227 @@
                               WRITE(numout,*) '  => Mean Alfa  in that portion =', zalfa
                               WRITE(numout,*) '  => Mean Beta  in that portion =', zbeta
+                              IF(lflush) CALL flush(numout)
                            ENDIF
 
@@ -285 +290 @@
                            END DO
                            WRITE(numout,*)
+                           IF(lflush) CALL flush(numout)
                         ENDIF
                         !
@@ -323 +329 @@
             WRITE(numout,*) 'Exiting tra_npc , kt = ',kt,', => numb. of statically instable water-columns: ', inpcc
             WRITE(numout,*)
+            IF(lflush) CALL flush(numout)
          ENDIF
          !