anchor.diff:    errStatus = NF90_Inquire_Variable( ncId, varId, ndims = nDims, &
                                        xtype=varType, dimids = dimIds )
     If ( errStatus /= NF90_NOERR ) Then
  -     Print*, "Error: fail to retrieve info of the var: ", TRIM(varName)
  +     Print*, "[err]: fail to retrieve info of the var: ", TRIM(varName)
        Stop
     EndIf
   
   ! Check var type
     If ( varType /= NF90_INT ) Then
  -     Print*, "Error: var type mismatch."
  +     Print*, "[err]: var type mismatch."
        Print*, "       the type of var ( ", TRIM(varName), " ) is ", varType
        Stop
     EndIf
   ! Check var dimension
     If ( nDims /= RANK_TWO ) Then
  -     Print*, "Error: var ( ", TRIM(varName), " ) is not of RANK_TWO"
  +     Print*, "[err]: var ( ", TRIM(varName), " ) is not of RANK_TWO"
        Stop
     EndIf
   ! Check var sizes  
  
positive.code:   errStatus = NF90_Inquire_Variable( ncId, varId, ndims = nDims, &
                                       xtype=varType, dimids = dimIds )
    If ( errStatus /= NF90_NOERR ) Then
       Print*, "Error: fail to retrieve info of the var: ", TRIM(varName)
       Stop
    EndIf
  
  ! Check var type
    If ( varType /= NF90_SHORT ) Then
       Print*, "Error: var type mismatch."
       Print*, "       the type of var ( ", TRIM(varName), " ) is ", varType
       Stop
    EndIf
  ! Check var dimension
    If ( nDims /= RANK_ONE ) Then
       Print*, "Error: var ( ", TRIM(varName), " ) is not of RANK_ONE"
       Stop
    EndIf
  ! Check var sizes  
    errStatus = NF90_Inquire_Dimension( ncId, dimIds(1), len=varSize(1) )
    If ( varSize(1) /= SIZE(varValues,1) ) Then
       Print*, "Error: var size mismatches"
       Write(*,"(2(A,I8))") "dim(1)=",varSize(1), ", dim_input(1)=", SIZE(varValues,1)
       Stop
    Endif
  
negative.code: ! Open NetCDf file 
    errStatus = NF90_Open( TRIM(fileName), NF90_NOWRITE, ncId)
    If ( errStatus /= NF90_NOERR ) Then
       Print*, "[err]: fail to get the file id:",TRIM(fileName)
       Stop
    EndIf
  
  ! Inquire varId
    errStatus = NF90_Inq_Varid( ncId, TRIM(varName), varId )
    If ( errStatus /= NF90_NOERR ) Then
       Print*, "[err]: fail to get the var id: ", TRIM(varName)
       Stop
    EndIf 
  
  