File tree Expand file tree Collapse file tree 1 file changed +2
-2
lines changed
Expand file tree Collapse file tree 1 file changed +2
-2
lines changed Original file line number Diff line number Diff line change @@ -3975,8 +3975,8 @@ SUBROUTINE EXCHANGE_GLOBAL_OUTPUTS
39753975 IF (OP_INDEX== 1 .AND. (DV% SPATIAL_STATISTIC(1 :3 )==' MIN' .OR. DV% SPATIAL_STATISTIC(1 :3 )==' MAX' )) CYCLE DEVICE_LOOP_2
39763976 IF (OP_INDEX== 2 .AND. DV% SPATIAL_STATISTIC(1 :3 )/= ' MIN' ) CYCLE DEVICE_LOOP_2
39773977 IF (OP_INDEX== 3 .AND. DV% SPATIAL_STATISTIC(1 :3 )/= ' MAX' ) CYCLE DEVICE_LOOP_2
3978- IF (MY_RANK== 0 .AND. N_VALUES(N)==0 .AND. DV% SPATIAL_STATISTIC/= ' null' ) &
3979- WRITE (LU_ERR,' (3A)' ) ' WARNING: DEVC ' ,TRIM (DV% ID),' has no values.'
3978+ ! IF (MY_RANK==0 .AND. N_VALUES(N)==0 .AND. DV%SPATIAL_STATISTIC/='null') &
3979+ ! WRITE(LU_ERR,'(3A)') 'WARNING: DEVC ',TRIM(DV%ID),' has no values.'
39803980 IF (OP_INDEX== 1 ) THEN
39813981 DV% VALUE_1 = TC_ARRAY(N)
39823982 DV% VALUE_2 = TC_ARRAY( N_DEVC+ N)
You can’t perform that action at this time.
0 commit comments