- Timestamp:
- 2019-10-24T10:30:30+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11756_text_output/src/OCE/LBC/lib_mpp.F90
r11536 r11782 946 946 crname_dlg(n_sequence_dlg) = cdname ! keep the name of the calling routine 947 947 ENDIF 948 ELSE IF ( ncom_stp == nit000+2*ncom_freq ) THEN948 ELSE IF ( ncom_stp == nit000+2*ncom_freq .AND. nprint > 1 ) THEN 949 949 CALL ctl_opn( numcom, 'communication_report.txt', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE., narea ) 950 950 WRITE(numcom,*) ' ' … … 1204 1204 & OPEN(UNIT=knum,FILE='NUL', FORM=cdform, ACCESS=cdacce, STATUS=cdstat , ERR=100, IOSTAT=iost ) 1205 1205 IF( iost == 0 ) THEN 1206 IF(ldwp ) THEN1206 IF(ldwp .AND. nprint > 2) THEN 1207 1207 WRITE(kout,*) ' file : ', TRIM(clfile),' open ok' 1208 1208 WRITE(kout,*) ' unit = ', knum
Note: See TracChangeset
for help on using the changeset viewer.