Changeset 12555 for branches/UKMO/dev_r5518_GO6_starthour_obsoper/NEMOGCM/NEMO/OPA_SRC/DOM/dommsk.F90
- Timestamp:
- 2020-03-13T17:33:02+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_starthour_obsoper/NEMOGCM/NEMO/OPA_SRC/DOM/dommsk.F90
r9830 r12555 157 157 READ ( numnam_cfg, namlbc, IOSTAT = ios, ERR = 902 ) 158 158 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlbc in configuration namelist', lwp ) 159 IF(lwm ) WRITE ( numond, namlbc )159 IF(lwm .AND. nprint > 2) WRITE ( numond, namlbc ) 160 160 161 161 IF(lwp) THEN ! control print … … 514 514 ! CAUTION : The fmask may be further modified in dyn_vor_init ( dynvor.F90 ) 515 515 516 IF( nprint == 1.AND. lwp ) THEN ! Control print516 IF( nprint > 3 .AND. lwp ) THEN ! Control print 517 517 imsk(:,:) = INT( tmask_i(:,:) ) 518 518 WRITE(numout,*) ' tmask_i : ' … … 561 561 CALL wrk_dealloc( jpi, jpj, imsk ) 562 562 CALL wrk_dealloc( jpi, jpj, zwf ) 563 ! 564 IF(lwp .AND. lflush) CALL flush(numout) 563 565 ! 564 566 IF( nn_timing == 1 ) CALL timing_stop('dom_msk') … … 640 642 nicoa(inw,1,jk) = ji 641 643 njcoa(inw,1,jk) = jj 642 IF( nprint == 1) WRITE(numout,*) ' west : ', jk, inw, ji, jj644 IF( nprint > 3 ) WRITE(numout,*) ' west : ', jk, inw, ji, jj 643 645 ENDIF 644 646 zaa = tmask(ji,jj,jk) + tmask(ji,jj+1,jk) … … 647 649 nicoa(ine,2,jk) = ji 648 650 njcoa(ine,2,jk) = jj 649 IF( nprint == 1) WRITE(numout,*) ' east : ', jk, ine, ji, jj651 IF( nprint > 3 ) WRITE(numout,*) ' east : ', jk, ine, ji, jj 650 652 ENDIF 651 653 END DO … … 667 669 nicoa(ins,3,jk) = ji 668 670 njcoa(ins,3,jk) = jj 669 IF( nprint == 1) WRITE(numout,*) ' south : ', jk, ins, ji, jj671 IF( nprint > 3 ) WRITE(numout,*) ' south : ', jk, ins, ji, jj 670 672 ENDIF 671 673 zaa = tmask(ji+1,jj,jk) + tmask(ji,jj,jk) … … 674 676 nicoa(inn,4,jk) = ji 675 677 njcoa(inn,4,jk) = jj 676 IF( nprint == 1) WRITE(numout,*) ' north : ', jk, inn, ji, jj678 IF( nprint > 3 ) WRITE(numout,*) ' north : ', jk, inn, ji, jj 677 679 ENDIF 678 680 END DO
Note: See TracChangeset
for help on using the changeset viewer.