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: 
          IF(.NOT.FNDSNOWH)THEN
  ! If no SNOWH do the following
            write(*,*) 'SNOW HEIGHT NOT FOUND - VALUE DEFINED IN LSMINIT'
            DO J = jts,jtf
            DO I = its,itf
              SNOWH(I,J)=SNOW(I,J)*0.005               ! SNOW in mm and SNOWH in m
  
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
  
  