- 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/LBC/mppini_2.h90
r6498 r11101 87 87 READ ( numnam_cfg, namzgr, IOSTAT = ios, ERR = 902 ) 88 88 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzgr in configuration namelist', lwp ) 89 IF(lwm ) WRITE ( numond, namzgr )89 IF(lwm .AND. nprint > 2) WRITE ( numond, namzgr ) 90 90 91 91 IF(lwp)WRITE(numout,*) … … 93 93 IF(lwp)WRITE(numout,*) '~~~~~~~~' 94 94 IF(lwp)WRITE(numout,*) ' ' 95 IF(lwp .AND. lflush) CALL flush(numout) 95 96 96 97 IF( jpni*jpnj < jpnij ) CALL ctl_stop( ' jpnij > jpni x jpnj impossible' ) … … 184 185 IF(lwp) WRITE(numout,*) ' sum ilcj(1,j)=',zjdom,' jpjglo=',jpjglo 185 186 IF(lwp) WRITE(numout,*) 187 IF(lwp .AND. lflush) CALL flush(numout) 186 188 187 189 … … 364 366 il1 = il1+ifreq 365 367 END DO 368 IF(lflush) CALL flush(numout) 366 369 9400 FORMAT(' ***',20('*************',a3)) 367 370 9403 FORMAT(' * ',20(' * ',a3)) … … 572 575 WRITE(numout,*) ' jprecj = ', jprecj , ' npnw = ', npnw 573 576 WRITE(numout,*) 577 IF(lflush) CALL flush(numout) 574 578 ENDIF 575 579 … … 581 585 CALL mpp_ini_north 582 586 IF(lwp) WRITE(numout,*) ' mpp_init2 : North fold boundary prepared for jpni >1' 587 IF(lwp .AND. lflush) CALL flush(numout) 583 588 ENDIF 584 589
Note: See TracChangeset
for help on using the changeset viewer.