Changeset 10570 for NEMO/trunk/src/OCE/ICB/icblbc.F90
- Timestamp:
- 2019-01-24T16:14:49+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/ICB/icblbc.F90
r10425 r10570 640 640 zsbergs(0) = narea 641 641 zsbergs(1) = nicbfldnsend(jn) 642 !IF ( nicbfldnsend(jn) .GT. 0 ) write(numicb,*) 'ICB sending ',nicbfldnsend(jn),' to ', ifldproc642 !IF ( nicbfldnsend(jn) .GT. 0 .AND. nn_verbose_level > 0 ) write(numicb,*) 'ICB sending ',nicbfldnsend(jn),' to ', ifldproc 643 643 CALL mppsend( 21, zsbergs(0:1), 2, ifldproc-1, nicbfldreq(jn)) 644 644 ENDIF … … 656 656 IF( nicbfldproc(jjn) .eq. INT(znbergs(1)) ) EXIT 657 657 END DO 658 IF( jjn .GT. jpni ) write(numicb,*) 'ICB ERROR'658 IF( jjn .GT. jpni .AND. nn_verbose_level > 0 ) write(numicb,*) 'ICB ERROR' 659 659 nicbfldexpect(jjn) = INT( znbergs(2) ) 660 !IF ( nicbfldexpect(jjn) .GT. 0 ) write(numicb,*) 'ICB expecting ',nicbfldexpect(jjn),' from ', nicbfldproc(jjn)661 ! CALL FLUSH(numicb)660 !IF ( nicbfldexpect(jjn) .GT. 0 .AND. nn_verbose_level > 0 ) write(numicb,*) 'ICB expecting ',nicbfldexpect(jjn),' from ', nicbfldproc(jjn) 661 !IF (nn_verbose_level > 0) CALL FLUSH(numicb) 662 662 ENDIF 663 663 ! … … 911 911 ENDIF 912 912 old => new 913 !WRITE( numicb,*) 'icb_increase_ibuffer',narea,' increased to',inew_size913 !IF (nn_verbose_level > 0) WRITE( numicb,*) 'icb_increase_ibuffer',narea,' increased to',inew_size 914 914 ENDIF 915 915 !
Note: See TracChangeset
for help on using the changeset viewer.