Changeset 9132 for branches/UKMO/dev_r6912_GO6_package/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

Timestamp:

2017-12-19T15:42:23+01:00 (6 years ago)

Author:

andmirek

Message:

#1868 changes enabling coupling

File:

• branches/UKMO/dev_r6912_GO6_package/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90 (modified) (2 diffs)

branches/UKMO/dev_r6912_GO6_package/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

@@ -370 +370 @@
          END DO
          WRITE(numout,cform_aaa)                                         ! Flag AAAAAAA
+         call flush(numout)
          !
       ENDIF
@@ -475 +476 @@
       IF( lk_asminc     )   CALL asm_inc_init   ! Initialize assimilation increments
       IF(lwp) WRITE(numout,*) 'Euler time step switch is ', neuler
+      call flush(numout)
       !
    END SUBROUTINE nemo_init