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

branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/ASM/asmbgc.F90

@@ -767 +767 @@
             &                    TRIM( c_asmbal ) // ' at timestep = ', kt
       ENDIF
+
+      IF(lwp .AND. lflush) CALL flush(numout)
                                  
    END SUBROUTINE asm_bgc_bal_wri
@@ -1140 +1142 @@
       ENDIF
       !
+      IF(lwp .AND. lflush) CALL flush(numout)
    END SUBROUTINE phyto2d_asm_inc
 
@@ -1327 +1330 @@
       ENDIF
       !
+      IF(lwp .AND. lflush) CALL flush(numout)
    END SUBROUTINE phyto3d_asm_inc
 
@@ -1598 +1602 @@
       ENDIF
       !
+      IF(lwp .AND. lflush) CALL flush(numout)
    END SUBROUTINE pco2_asm_inc
 
@@ -1821 +1826 @@
 #endif      
       !
+      IF(lwp .AND. lflush) CALL flush(numout)
+
    END SUBROUTINE ph_asm_inc
 
@@ -2186 +2193 @@
       ENDIF
       !
+      IF(lwp .AND. lflush) CALL flush(numout)
    END SUBROUTINE bgc3d_asm_inc