Changeset 10892 for branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90
- Timestamp:
- 2019-04-25T11:22:51+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90
r10774 r10892 183 183 ! 184 184 IF(lwp .AND. nprint>1) THEN 185 WRITE(numout,*)'cice_sbc_init'186 IF(lflush) CALL flush(numout)185 WRITE(numout,*)'cice_sbc_init' 186 IF(lflush) CALL flush(numout) 187 187 ENDIF 188 188 … … 346 346 IF( kt == nit000 ) THEN 347 347 IF(lwp .AND. nprint>1) THEN 348 WRITE(numout,*)'cice_sbc_in'349 IF(lflush) CALL flush(numout)348 WRITE(numout,*)'cice_sbc_in' 349 IF(lflush) CALL flush(numout) 350 350 ENDIF 351 351 ENDIF … … 590 590 IF( kt == nit000 ) THEN 591 591 IF(lwp .AND. nprint>1) THEN 592 WRITE(numout,*)'cice_sbc_out'593 IF(lflush) CALL flush(numout)592 WRITE(numout,*)'cice_sbc_out' 593 IF(lflush) CALL flush(numout) 594 594 ENDIF 595 595 ENDIF … … 830 830 831 831 IF(lwp .AND. nprint > 1) THEN 832 WRITE(numout,*)'cice_sbc_final'833 IF(lflush) CALL flush(numout)832 WRITE(numout,*)'cice_sbc_final' 833 IF(lflush) CALL flush(numout) 834 834 ENDIF 835 835
Note: See TracChangeset
for help on using the changeset viewer.