Changeset 10774 for branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/BDY/bdyini.F90
- Timestamp:
- 2019-03-19T12:32:19+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/BDY/bdyini.F90
r10759 r10774 110 110 IF( nn_timing == 1 ) CALL timing_start('bdy_init') 111 111 112 IF(lwp) WRITE(numout,*) 113 IF(lwp) WRITE(numout,*) 'bdy_init : initialization of open boundaries' 114 IF(lwp) WRITE(numout,*) '~~~~~~~~' 112 IF(lwp) THEN 113 WRITE(numout,*) 114 WRITE(numout,*) 'bdy_init : initialization of open boundaries' 115 WRITE(numout,*) '~~~~~~~~' 116 IF(lflush) CALL flush(numout) 117 ENDIF 115 118 ! 116 119 … … 1348 1351 ENDIF 1349 1352 1353 IF(lwp .AND. lflush) CALL flush(numout) 1354 1350 1355 CALL wrk_dealloc(jpi,jpj,zfmask) 1351 1356 … … 1722 1727 IF ((itest==0).AND.(lwp)) WRITE(numout,*) 'NO open boundary corner found' 1723 1728 ! 1729 IF(lwp. AND. lflush) CALL flush(numout) 1730 ! 1724 1731 ! Other tests TBD: 1725 1732 ! segments completly on land … … 1757 1764 IF(lwp) WRITE(numout,*) ' ========== have different open bdy schemes' 1758 1765 IF(lwp) WRITE(numout,*) 1766 IF(lflush) CALL flush(numout) 1759 1767 nstop = nstop + 1 1760 1768 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.