- Timestamp:
- 2019-06-11T16:10:28+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/BDY/bdyini.F90
r6487 r11101 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 … … 131 134 READ ( numnam_cfg, nambdy, IOSTAT = ios, ERR = 902 ) 132 135 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy in configuration namelist', lwp ) 133 IF(lwm ) WRITE ( numond, nambdy )136 IF(lwm .AND. nprint > 2) WRITE ( numond, nambdy ) 134 137 135 138 ! ----------------------------------------- … … 420 423 READ ( numnam_cfg, nambdy_index, IOSTAT = ios, ERR = 904 ) 421 424 904 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_index in configuration namelist', lwp ) 422 IF(lwm ) WRITE ( numond, nambdy_index )425 IF(lwm .AND. nprint > 2) WRITE ( numond, nambdy_index ) 423 426 424 427 SELECT CASE ( TRIM(ctypebdy) ) … … 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.