anchor.diff:          IF(ierr .NE. OPEN_OK ) THEN
             WRITE(message,FMT='(A)') &
             'module_sf_noahlsm.F: soil_veg_gen_parm: failure opening VEGPARM.TBL'
  -          write(*,*) message
  +          if (this_image()==1) write(*,*) message
           END IF
   
   
  
positive.code:         IF(SLTYPE.EQ.MMINSL)THEN
              WRITE( mess , * ) 'SOIL TEXTURE CLASSIFICATION = ', TRIM ( SLTYPE ) , ' FOUND', &
                    SLCATS,' CATEGORIES'
              write(*,*) mess
            LUMATCH=1
          ENDIF
  ! prevent possible array overwrite, Bill Bovermann, IBM, May 6, 2008
  
negative.code:         IF(ierr .NE. OPEN_OK ) THEN
            WRITE(message,FMT='(A)') &
            'module_sf_noahlsm.F: soil_veg_gen_parm: failure opening SOILPARM.TBL'
            if (this_image()==1) write(*,*) message
          END IF
  
          WRITE(mess,*) 'INPUT SOIL TEXTURE CLASSIFICATION = ', TRIM ( MMINSL )
          if (this_image()==1) write(*,*) mess
  
          LUMATCH=0
  
  