anchor.diff:    errStatus = NF90_Inquire_Dimension( ncId, dimIds(2), len=varSize(2) )  
     If ( varSize(1) /= SIZE(varValues,1) .or. &
          varSize(2) /= SIZE(varValues,2) ) Then
  -     Print*, "Error: var size mismatches"
  +     Print*, "[err]: var size mismatches"
        Write(*,"(2(A,I8))") "dim(1)=",varSize(1), ", dim_input(1)=", SIZE(varValues,1)
        Write(*,"(2(A,I8))") "dim(2)=",varSize(2), ", dim_input(2)=", SIZE(varValues,2)
        Stop
  
positive.code:   If ( varSize(1) /= SIZE(varValues,1) .or. &
         varSize(2) /= SIZE(varValues,2) .or. &
         varSize(3) /= SIZE(varValues,3) ) Then
       Print*, "Error: var size mismatches"
       Write(*,"(2(A,I8))") "dim(1)=",varSize(1), ", dim_input(1)=", SIZE(varValues,1)
       Write(*,"(2(A,I8))") "dim(2)=",varSize(2), ", dim_input(2)=", SIZE(varValues,2)
       Write(*,"(2(A,I8))") "dim(3)=",varSize(3), ", dim_input(3)=", SIZE(varValues,3)
  
negative.code: ! Get var value
    errStatus = NF90_Get_Var( ncId, varId, varValues )
    If ( errStatus /= NF90_NOERR ) Then
       Print*, "[err]: fail to get the var value: ", TRIM(varName)
       Stop
    EndIf
  
  ! Close the NetCDF file
    errStatus = NF90_Close( ncId )
    If ( errStatus /= NF90_NOERR ) Then
       Print*, "[err]: fail to the close the var: ", TRIM(fileName)
       Stop
    EndIf
  
  