anchor.diff:          IF(SLTYPE.EQ.MMINSL)THEN
               WRITE( mess , * ) 'SOIL TEXTURE CLASSIFICATION = ', TRIM ( SLTYPE ) , ' FOUND', &
                     SLCATS,' CATEGORIES'
  -            write(*,*) mess
  +            if (this_image()==1) write(*,*) mess
             LUMATCH=1
           ENDIF
   ! prevent possible array overwrite, Bill Bovermann, IBM, May 6, 2008
  
positive.code: 
          CLOSE (19)
          IF (LUMATCH == 0) then
             write(*,*) "Land Use Dataset '"//MMINLU//"' not found in VEGPARM.TBL."
  		   stop
          ENDIF
  
  
negative.code:      DO i = its,itf
         IF ( ISLTYP( i,j ) .LT. 1 ) THEN
           errflag = 1
           if (this_image()==1) WRITE(*,*)"module_sf_noahlsm.F: lsminit: out of range ISLTYP ",i,j,ISLTYP( i,j )
  !          CALL wrf_message(err_message)
         ENDIF
         IF(.not.RDMAXALB) THEN
  