anchor.diff:       DO i = its,itf
          IF ( ISLTYP( i,j ) .LT. 1 ) THEN
            errflag = 1
  -         WRITE(*,*)"module_sf_noahlsm.F: lsminit: out of range ISLTYP ",i,j,ISLTYP( i,j )
  +         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
  
positive.code:              SIZE(ZBOTVTBL) < LUCATS .OR. &
               SIZE(EMISSMINTBL ) < LUCATS .OR. &
               SIZE(EMISSMAXTBL ) < LUCATS ) THEN
             write(*,*) 'Table sizes too small for value of LUCATS in module_sf_noahdrv.F'
  		   stop
          ENDIF
  
  
negative.code: 
  ! initialize three Noah LSM related tables
     IF ( allowed_to_read ) THEN
       if (this_image()==1) write(*,*) 'INITIALIZE THREE Noah LSM RELATED TABLES'
       CALL  SOIL_VEG_GEN_PARM( MMINLU, MMINSL )
     ENDIF
  
  